diff --git a/GI/Gtk.hs b/GI/Gtk.hs deleted file mode 100644 --- a/GI/Gtk.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.Gtk - ( module GI.Gtk.Callbacks , - module GI.Gtk.Constants , - module GI.Gtk.Enums , - module GI.Gtk.Flags , - module GI.Gtk.Functions , - module GI.Gtk.Interfaces , - module GI.Gtk.Objects , - module GI.Gtk.Structs , - - - - module Data.GI.Base , - - - ) where - -import GI.Gtk.Callbacks -import GI.Gtk.Constants -import GI.Gtk.Enums -import GI.Gtk.Flags -import GI.Gtk.Functions -import GI.Gtk.Interfaces -import GI.Gtk.Objects -import GI.Gtk.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.Gtk.Types -import GI.Gtk.Callbacks - -import Data.GI.Base - diff --git a/GI/Gtk/Callbacks.hs b/GI/Gtk/Callbacks.hs deleted file mode 100644 --- a/GI/Gtk/Callbacks.hs +++ /dev/null @@ -1,2883 +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.Gtk.Callbacks - ( - - -- * Signals --- ** AccelGroupActivate - AccelGroupActivate , - AccelGroupActivateC , - accelGroupActivateClosure , - accelGroupActivateWrapper , - mkAccelGroupActivate , - noAccelGroupActivate , - - --- ** AccelGroupFindFunc - AccelGroupFindFunc , - AccelGroupFindFuncC , - accelGroupFindFuncClosure , - accelGroupFindFuncWrapper , - mkAccelGroupFindFunc , - noAccelGroupFindFunc , - - --- ** AccelMapForeach - AccelMapForeach , - AccelMapForeachC , - accelMapForeachClosure , - accelMapForeachWrapper , - mkAccelMapForeach , - noAccelMapForeach , - - --- ** AssistantPageFunc - AssistantPageFunc , - AssistantPageFuncC , - assistantPageFuncClosure , - assistantPageFuncWrapper , - mkAssistantPageFunc , - noAssistantPageFunc , - - --- ** BuilderConnectFunc - BuilderConnectFunc , - BuilderConnectFuncC , - builderConnectFuncClosure , - builderConnectFuncWrapper , - mkBuilderConnectFunc , - noBuilderConnectFunc , - - --- ** CalendarDetailFunc - CalendarDetailFunc , - CalendarDetailFuncC , - calendarDetailFuncClosure , - calendarDetailFuncWrapper , - mkCalendarDetailFunc , - noCalendarDetailFunc , - - --- ** Callback - Callback , - CallbackC , - callbackClosure , - callbackWrapper , - mkCallback , - noCallback , - - --- ** CellAllocCallback - CellAllocCallback , - CellAllocCallbackC , - cellAllocCallbackClosure , - cellAllocCallbackWrapper , - mkCellAllocCallback , - noCellAllocCallback , - - --- ** CellCallback - CellCallback , - CellCallbackC , - cellCallbackClosure , - cellCallbackWrapper , - mkCellCallback , - noCellCallback , - - --- ** CellLayoutDataFunc - CellLayoutDataFunc , - CellLayoutDataFuncC , - cellLayoutDataFuncClosure , - cellLayoutDataFuncWrapper , - mkCellLayoutDataFunc , - noCellLayoutDataFunc , - - --- ** ClipboardClearFunc - ClipboardClearFunc , - ClipboardClearFuncC , - clipboardClearFuncClosure , - clipboardClearFuncWrapper , - mkClipboardClearFunc , - noClipboardClearFunc , - - --- ** ClipboardGetFunc - ClipboardGetFunc , - ClipboardGetFuncC , - clipboardGetFuncClosure , - clipboardGetFuncWrapper , - mkClipboardGetFunc , - noClipboardGetFunc , - - --- ** ClipboardImageReceivedFunc - ClipboardImageReceivedFunc , - ClipboardImageReceivedFuncC , - clipboardImageReceivedFuncClosure , - clipboardImageReceivedFuncWrapper , - mkClipboardImageReceivedFunc , - noClipboardImageReceivedFunc , - - --- ** ClipboardReceivedFunc - ClipboardReceivedFunc , - ClipboardReceivedFuncC , - clipboardReceivedFuncClosure , - clipboardReceivedFuncWrapper , - mkClipboardReceivedFunc , - noClipboardReceivedFunc , - - --- ** ClipboardRichTextReceivedFunc - ClipboardRichTextReceivedFunc , - ClipboardRichTextReceivedFuncC , - clipboardRichTextReceivedFuncClosure , - clipboardRichTextReceivedFuncWrapper , - mkClipboardRichTextReceivedFunc , - noClipboardRichTextReceivedFunc , - - --- ** ClipboardTargetsReceivedFunc - ClipboardTargetsReceivedFunc , - ClipboardTargetsReceivedFuncC , - clipboardTargetsReceivedFuncClosure , - clipboardTargetsReceivedFuncWrapper , - mkClipboardTargetsReceivedFunc , - noClipboardTargetsReceivedFunc , - - --- ** ClipboardTextReceivedFunc - ClipboardTextReceivedFunc , - ClipboardTextReceivedFuncC , - clipboardTextReceivedFuncClosure , - clipboardTextReceivedFuncWrapper , - mkClipboardTextReceivedFunc , - noClipboardTextReceivedFunc , - - --- ** ClipboardURIReceivedFunc - ClipboardURIReceivedFunc , - ClipboardURIReceivedFuncC , - clipboardURIReceivedFuncClosure , - clipboardURIReceivedFuncWrapper , - mkClipboardURIReceivedFunc , - noClipboardURIReceivedFunc , - - --- ** ColorSelectionChangePaletteFunc - ColorSelectionChangePaletteFunc , - ColorSelectionChangePaletteFuncC , - colorSelectionChangePaletteFuncClosure , - colorSelectionChangePaletteFuncWrapper , - mkColorSelectionChangePaletteFunc , - noColorSelectionChangePaletteFunc , - - --- ** ColorSelectionChangePaletteWithScreenFunc - ColorSelectionChangePaletteWithScreenFunc, - ColorSelectionChangePaletteWithScreenFuncC, - colorSelectionChangePaletteWithScreenFuncClosure, - colorSelectionChangePaletteWithScreenFuncWrapper, - mkColorSelectionChangePaletteWithScreenFunc, - noColorSelectionChangePaletteWithScreenFunc, - - --- ** EntryCompletionMatchFunc - EntryCompletionMatchFunc , - EntryCompletionMatchFuncC , - entryCompletionMatchFuncClosure , - entryCompletionMatchFuncWrapper , - mkEntryCompletionMatchFunc , - noEntryCompletionMatchFunc , - - --- ** FileFilterFunc - FileFilterFunc , - FileFilterFuncC , - fileFilterFuncClosure , - fileFilterFuncWrapper , - mkFileFilterFunc , - noFileFilterFunc , - - --- ** FlowBoxFilterFunc - FlowBoxFilterFunc , - FlowBoxFilterFuncC , - flowBoxFilterFuncClosure , - flowBoxFilterFuncWrapper , - mkFlowBoxFilterFunc , - noFlowBoxFilterFunc , - - --- ** FlowBoxForeachFunc - FlowBoxForeachFunc , - FlowBoxForeachFuncC , - flowBoxForeachFuncClosure , - flowBoxForeachFuncWrapper , - mkFlowBoxForeachFunc , - noFlowBoxForeachFunc , - - --- ** FlowBoxSortFunc - FlowBoxSortFunc , - FlowBoxSortFuncC , - flowBoxSortFuncClosure , - flowBoxSortFuncWrapper , - mkFlowBoxSortFunc , - noFlowBoxSortFunc , - - --- ** FontFilterFunc - FontFilterFunc , - FontFilterFuncC , - fontFilterFuncClosure , - fontFilterFuncWrapper , - mkFontFilterFunc , - noFontFilterFunc , - - --- ** IconViewForeachFunc - IconViewForeachFunc , - IconViewForeachFuncC , - iconViewForeachFuncClosure , - iconViewForeachFuncWrapper , - mkIconViewForeachFunc , - noIconViewForeachFunc , - - --- ** KeySnoopFunc - KeySnoopFunc , - KeySnoopFuncC , - keySnoopFuncClosure , - keySnoopFuncWrapper , - mkKeySnoopFunc , - noKeySnoopFunc , - - --- ** ListBoxCreateWidgetFunc - ListBoxCreateWidgetFunc , - ListBoxCreateWidgetFuncC , - listBoxCreateWidgetFuncClosure , - listBoxCreateWidgetFuncWrapper , - mkListBoxCreateWidgetFunc , - noListBoxCreateWidgetFunc , - - --- ** ListBoxFilterFunc - ListBoxFilterFunc , - ListBoxFilterFuncC , - listBoxFilterFuncClosure , - listBoxFilterFuncWrapper , - mkListBoxFilterFunc , - noListBoxFilterFunc , - - --- ** ListBoxForeachFunc - ListBoxForeachFunc , - ListBoxForeachFuncC , - listBoxForeachFuncClosure , - listBoxForeachFuncWrapper , - mkListBoxForeachFunc , - noListBoxForeachFunc , - - --- ** ListBoxSortFunc - ListBoxSortFunc , - ListBoxSortFuncC , - listBoxSortFuncClosure , - listBoxSortFuncWrapper , - mkListBoxSortFunc , - noListBoxSortFunc , - - --- ** ListBoxUpdateHeaderFunc - ListBoxUpdateHeaderFunc , - ListBoxUpdateHeaderFuncC , - listBoxUpdateHeaderFuncClosure , - listBoxUpdateHeaderFuncWrapper , - mkListBoxUpdateHeaderFunc , - noListBoxUpdateHeaderFunc , - - --- ** MenuDetachFunc - MenuDetachFunc , - MenuDetachFuncC , - menuDetachFuncClosure , - menuDetachFuncWrapper , - mkMenuDetachFunc , - noMenuDetachFunc , - - --- ** MenuPositionFunc - MenuPositionFunc , - MenuPositionFuncC , - menuPositionFuncClosure , - menuPositionFuncWrapper , - mkMenuPositionFunc , - noMenuPositionFunc , - - --- ** ModuleDisplayInitFunc - ModuleDisplayInitFunc , - ModuleDisplayInitFuncC , - mkModuleDisplayInitFunc , - moduleDisplayInitFuncClosure , - moduleDisplayInitFuncWrapper , - noModuleDisplayInitFunc , - - --- ** ModuleInitFunc - ModuleInitFunc , - ModuleInitFuncC , - mkModuleInitFunc , - moduleInitFuncClosure , - moduleInitFuncWrapper , - noModuleInitFunc , - - --- ** PageSetupDoneFunc - PageSetupDoneFunc , - PageSetupDoneFuncC , - mkPageSetupDoneFunc , - noPageSetupDoneFunc , - pageSetupDoneFuncClosure , - pageSetupDoneFuncWrapper , - - --- ** PrintSettingsFunc - PrintSettingsFunc , - PrintSettingsFuncC , - mkPrintSettingsFunc , - noPrintSettingsFunc , - printSettingsFuncClosure , - printSettingsFuncWrapper , - - --- ** RcPropertyParser - RcPropertyParser , - RcPropertyParserC , - mkRcPropertyParser , - noRcPropertyParser , - rcPropertyParserClosure , - rcPropertyParserWrapper , - - --- ** RecentFilterFunc - RecentFilterFunc , - RecentFilterFuncC , - mkRecentFilterFunc , - noRecentFilterFunc , - recentFilterFuncClosure , - recentFilterFuncWrapper , - - --- ** RecentSortFunc - RecentSortFunc , - RecentSortFuncC , - mkRecentSortFunc , - noRecentSortFunc , - recentSortFuncClosure , - recentSortFuncWrapper , - - --- ** StylePropertyParser - StylePropertyParser , - StylePropertyParserC , - mkStylePropertyParser , - noStylePropertyParser , - stylePropertyParserClosure , - stylePropertyParserWrapper , - - --- ** TextBufferDeserializeFunc - TextBufferDeserializeFunc , - TextBufferDeserializeFuncC , - mkTextBufferDeserializeFunc , - noTextBufferDeserializeFunc , - textBufferDeserializeFuncClosure , - textBufferDeserializeFuncWrapper , - - --- ** TextBufferSerializeFunc - TextBufferSerializeFunc , - TextBufferSerializeFuncC , - mkTextBufferSerializeFunc , - noTextBufferSerializeFunc , - textBufferSerializeFuncClosure , - textBufferSerializeFuncWrapper , - - --- ** TextCharPredicate - TextCharPredicate , - TextCharPredicateC , - mkTextCharPredicate , - noTextCharPredicate , - textCharPredicateClosure , - textCharPredicateWrapper , - - --- ** TextTagTableForeach - TextTagTableForeach , - TextTagTableForeachC , - mkTextTagTableForeach , - noTextTagTableForeach , - textTagTableForeachClosure , - textTagTableForeachWrapper , - - --- ** TickCallback - TickCallback , - TickCallbackC , - mkTickCallback , - noTickCallback , - tickCallbackClosure , - tickCallbackWrapper , - - --- ** TranslateFunc - TranslateFunc , - TranslateFuncC , - mkTranslateFunc , - noTranslateFunc , - translateFuncClosure , - translateFuncWrapper , - - --- ** TreeCellDataFunc - TreeCellDataFunc , - TreeCellDataFuncC , - mkTreeCellDataFunc , - noTreeCellDataFunc , - treeCellDataFuncClosure , - treeCellDataFuncWrapper , - - --- ** TreeDestroyCountFunc - TreeDestroyCountFunc , - TreeDestroyCountFuncC , - mkTreeDestroyCountFunc , - noTreeDestroyCountFunc , - treeDestroyCountFuncClosure , - treeDestroyCountFuncWrapper , - - --- ** TreeIterCompareFunc - TreeIterCompareFunc , - TreeIterCompareFuncC , - mkTreeIterCompareFunc , - noTreeIterCompareFunc , - treeIterCompareFuncClosure , - treeIterCompareFuncWrapper , - - --- ** TreeModelFilterVisibleFunc - TreeModelFilterVisibleFunc , - TreeModelFilterVisibleFuncC , - mkTreeModelFilterVisibleFunc , - noTreeModelFilterVisibleFunc , - treeModelFilterVisibleFuncClosure , - treeModelFilterVisibleFuncWrapper , - - --- ** TreeModelForeachFunc - TreeModelForeachFunc , - TreeModelForeachFuncC , - mkTreeModelForeachFunc , - noTreeModelForeachFunc , - treeModelForeachFuncClosure , - treeModelForeachFuncWrapper , - - --- ** TreeSelectionForeachFunc - TreeSelectionForeachFunc , - TreeSelectionForeachFuncC , - mkTreeSelectionForeachFunc , - noTreeSelectionForeachFunc , - treeSelectionForeachFuncClosure , - treeSelectionForeachFuncWrapper , - - --- ** TreeSelectionFunc - TreeSelectionFunc , - TreeSelectionFuncC , - mkTreeSelectionFunc , - noTreeSelectionFunc , - treeSelectionFuncClosure , - treeSelectionFuncWrapper , - - --- ** TreeViewColumnDropFunc - TreeViewColumnDropFunc , - TreeViewColumnDropFuncC , - mkTreeViewColumnDropFunc , - noTreeViewColumnDropFunc , - treeViewColumnDropFuncClosure , - treeViewColumnDropFuncWrapper , - - --- ** TreeViewMappingFunc - TreeViewMappingFunc , - TreeViewMappingFuncC , - mkTreeViewMappingFunc , - noTreeViewMappingFunc , - treeViewMappingFuncClosure , - treeViewMappingFuncWrapper , - - --- ** TreeViewRowSeparatorFunc - TreeViewRowSeparatorFunc , - TreeViewRowSeparatorFuncC , - mkTreeViewRowSeparatorFunc , - noTreeViewRowSeparatorFunc , - treeViewRowSeparatorFuncClosure , - treeViewRowSeparatorFuncWrapper , - - --- ** TreeViewSearchEqualFunc - TreeViewSearchEqualFunc , - TreeViewSearchEqualFuncC , - mkTreeViewSearchEqualFunc , - noTreeViewSearchEqualFunc , - treeViewSearchEqualFuncClosure , - treeViewSearchEqualFuncWrapper , - - --- ** TreeViewSearchPositionFunc - TreeViewSearchPositionFunc , - TreeViewSearchPositionFuncC , - mkTreeViewSearchPositionFunc , - noTreeViewSearchPositionFunc , - treeViewSearchPositionFuncClosure , - treeViewSearchPositionFuncWrapper , - - - - - ) 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.Gtk.Types - -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Pango as Pango - --- callback TreeViewSearchPositionFunc -treeViewSearchPositionFuncClosure :: TreeViewSearchPositionFunc -> IO Closure -treeViewSearchPositionFuncClosure cb = newCClosure =<< mkTreeViewSearchPositionFunc wrapped - where wrapped = treeViewSearchPositionFuncWrapper Nothing cb - -type TreeViewSearchPositionFuncC = - Ptr TreeView -> - Ptr Widget -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTreeViewSearchPositionFunc :: TreeViewSearchPositionFuncC -> IO (FunPtr TreeViewSearchPositionFuncC) - -type TreeViewSearchPositionFunc = - TreeView -> - Widget -> - IO () - -noTreeViewSearchPositionFunc :: Maybe TreeViewSearchPositionFunc -noTreeViewSearchPositionFunc = Nothing - -treeViewSearchPositionFuncWrapper :: - Maybe (Ptr (FunPtr (TreeViewSearchPositionFuncC))) -> - TreeViewSearchPositionFunc -> - Ptr TreeView -> - Ptr Widget -> - Ptr () -> - IO () -treeViewSearchPositionFuncWrapper funptrptr _cb treeView searchDialog _ = do - treeView' <- (newObject TreeView) treeView - searchDialog' <- (newObject Widget) searchDialog - _cb treeView' searchDialog' - maybeReleaseFunPtr funptrptr - --- callback TreeViewSearchEqualFunc -treeViewSearchEqualFuncClosure :: TreeViewSearchEqualFunc -> IO Closure -treeViewSearchEqualFuncClosure cb = newCClosure =<< mkTreeViewSearchEqualFunc wrapped - where wrapped = treeViewSearchEqualFuncWrapper Nothing cb - -type TreeViewSearchEqualFuncC = - Ptr TreeModel -> - Int32 -> - CString -> - Ptr TreeIter -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSearchEqualFunc :: TreeViewSearchEqualFuncC -> IO (FunPtr TreeViewSearchEqualFuncC) - -type TreeViewSearchEqualFunc = - TreeModel -> - Int32 -> - T.Text -> - TreeIter -> - IO Bool - -noTreeViewSearchEqualFunc :: Maybe TreeViewSearchEqualFunc -noTreeViewSearchEqualFunc = Nothing - -treeViewSearchEqualFuncWrapper :: - Maybe (Ptr (FunPtr (TreeViewSearchEqualFuncC))) -> - TreeViewSearchEqualFunc -> - Ptr TreeModel -> - Int32 -> - CString -> - Ptr TreeIter -> - Ptr () -> - IO CInt -treeViewSearchEqualFuncWrapper funptrptr _cb model column key iter _ = do - model' <- (newObject TreeModel) model - key' <- cstringToText key - iter' <- (newBoxed TreeIter) iter - result <- _cb model' column key' iter' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeViewRowSeparatorFunc -treeViewRowSeparatorFuncClosure :: TreeViewRowSeparatorFunc -> IO Closure -treeViewRowSeparatorFuncClosure cb = newCClosure =<< mkTreeViewRowSeparatorFunc wrapped - where wrapped = treeViewRowSeparatorFuncWrapper Nothing cb - -type TreeViewRowSeparatorFuncC = - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeViewRowSeparatorFunc :: TreeViewRowSeparatorFuncC -> IO (FunPtr TreeViewRowSeparatorFuncC) - -type TreeViewRowSeparatorFunc = - TreeModel -> - TreeIter -> - IO Bool - -noTreeViewRowSeparatorFunc :: Maybe TreeViewRowSeparatorFunc -noTreeViewRowSeparatorFunc = Nothing - -treeViewRowSeparatorFuncWrapper :: - Maybe (Ptr (FunPtr (TreeViewRowSeparatorFuncC))) -> - TreeViewRowSeparatorFunc -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt -treeViewRowSeparatorFuncWrapper funptrptr _cb model iter _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - result <- _cb model' iter' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeViewMappingFunc -treeViewMappingFuncClosure :: TreeViewMappingFunc -> IO Closure -treeViewMappingFuncClosure cb = newCClosure =<< mkTreeViewMappingFunc wrapped - where wrapped = treeViewMappingFuncWrapper Nothing cb - -type TreeViewMappingFuncC = - Ptr TreeView -> - Ptr TreePath -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTreeViewMappingFunc :: TreeViewMappingFuncC -> IO (FunPtr TreeViewMappingFuncC) - -type TreeViewMappingFunc = - TreeView -> - TreePath -> - IO () - -noTreeViewMappingFunc :: Maybe TreeViewMappingFunc -noTreeViewMappingFunc = Nothing - -treeViewMappingFuncWrapper :: - Maybe (Ptr (FunPtr (TreeViewMappingFuncC))) -> - TreeViewMappingFunc -> - Ptr TreeView -> - Ptr TreePath -> - Ptr () -> - IO () -treeViewMappingFuncWrapper funptrptr _cb treeView path _ = do - treeView' <- (newObject TreeView) treeView - path' <- (newBoxed TreePath) path - _cb treeView' path' - maybeReleaseFunPtr funptrptr - --- callback TreeViewColumnDropFunc -treeViewColumnDropFuncClosure :: TreeViewColumnDropFunc -> IO Closure -treeViewColumnDropFuncClosure cb = newCClosure =<< mkTreeViewColumnDropFunc wrapped - where wrapped = treeViewColumnDropFuncWrapper Nothing cb - -type TreeViewColumnDropFuncC = - Ptr TreeView -> - Ptr TreeViewColumn -> - Ptr TreeViewColumn -> - Ptr TreeViewColumn -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeViewColumnDropFunc :: TreeViewColumnDropFuncC -> IO (FunPtr TreeViewColumnDropFuncC) - -type TreeViewColumnDropFunc = - TreeView -> - TreeViewColumn -> - TreeViewColumn -> - TreeViewColumn -> - IO Bool - -noTreeViewColumnDropFunc :: Maybe TreeViewColumnDropFunc -noTreeViewColumnDropFunc = Nothing - -treeViewColumnDropFuncWrapper :: - Maybe (Ptr (FunPtr (TreeViewColumnDropFuncC))) -> - TreeViewColumnDropFunc -> - Ptr TreeView -> - Ptr TreeViewColumn -> - Ptr TreeViewColumn -> - Ptr TreeViewColumn -> - Ptr () -> - IO CInt -treeViewColumnDropFuncWrapper funptrptr _cb treeView column prevColumn nextColumn _ = do - treeView' <- (newObject TreeView) treeView - column' <- (newObject TreeViewColumn) column - prevColumn' <- (newObject TreeViewColumn) prevColumn - nextColumn' <- (newObject TreeViewColumn) nextColumn - result <- _cb treeView' column' prevColumn' nextColumn' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeSelectionFunc -treeSelectionFuncClosure :: TreeSelectionFunc -> IO Closure -treeSelectionFuncClosure cb = newCClosure =<< mkTreeSelectionFunc wrapped - where wrapped = treeSelectionFuncWrapper Nothing cb - -type TreeSelectionFuncC = - Ptr TreeSelection -> - Ptr TreeModel -> - Ptr TreePath -> - CInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeSelectionFunc :: TreeSelectionFuncC -> IO (FunPtr TreeSelectionFuncC) - -type TreeSelectionFunc = - TreeSelection -> - TreeModel -> - TreePath -> - Bool -> - IO Bool - -noTreeSelectionFunc :: Maybe TreeSelectionFunc -noTreeSelectionFunc = Nothing - -treeSelectionFuncWrapper :: - Maybe (Ptr (FunPtr (TreeSelectionFuncC))) -> - TreeSelectionFunc -> - Ptr TreeSelection -> - Ptr TreeModel -> - Ptr TreePath -> - CInt -> - Ptr () -> - IO CInt -treeSelectionFuncWrapper funptrptr _cb selection model path pathCurrentlySelected _ = do - selection' <- (newObject TreeSelection) selection - model' <- (newObject TreeModel) model - path' <- (newBoxed TreePath) path - let pathCurrentlySelected' = (/= 0) pathCurrentlySelected - result <- _cb selection' model' path' pathCurrentlySelected' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeSelectionForeachFunc -treeSelectionForeachFuncClosure :: TreeSelectionForeachFunc -> IO Closure -treeSelectionForeachFuncClosure cb = newCClosure =<< mkTreeSelectionForeachFunc wrapped - where wrapped = treeSelectionForeachFuncWrapper Nothing cb - -type TreeSelectionForeachFuncC = - Ptr TreeModel -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTreeSelectionForeachFunc :: TreeSelectionForeachFuncC -> IO (FunPtr TreeSelectionForeachFuncC) - -type TreeSelectionForeachFunc = - TreeModel -> - TreePath -> - TreeIter -> - IO () - -noTreeSelectionForeachFunc :: Maybe TreeSelectionForeachFunc -noTreeSelectionForeachFunc = Nothing - -treeSelectionForeachFuncWrapper :: - Maybe (Ptr (FunPtr (TreeSelectionForeachFuncC))) -> - TreeSelectionForeachFunc -> - Ptr TreeModel -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO () -treeSelectionForeachFuncWrapper funptrptr _cb model path iter _ = do - model' <- (newObject TreeModel) model - path' <- (newBoxed TreePath) path - iter' <- (newBoxed TreeIter) iter - _cb model' path' iter' - maybeReleaseFunPtr funptrptr - --- callback TreeModelForeachFunc -treeModelForeachFuncClosure :: TreeModelForeachFunc -> IO Closure -treeModelForeachFuncClosure cb = newCClosure =<< mkTreeModelForeachFunc wrapped - where wrapped = treeModelForeachFuncWrapper Nothing cb - -type TreeModelForeachFuncC = - Ptr TreeModel -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeModelForeachFunc :: TreeModelForeachFuncC -> IO (FunPtr TreeModelForeachFuncC) - -type TreeModelForeachFunc = - TreeModel -> - TreePath -> - TreeIter -> - IO Bool - -noTreeModelForeachFunc :: Maybe TreeModelForeachFunc -noTreeModelForeachFunc = Nothing - -treeModelForeachFuncWrapper :: - Maybe (Ptr (FunPtr (TreeModelForeachFuncC))) -> - TreeModelForeachFunc -> - Ptr TreeModel -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO CInt -treeModelForeachFuncWrapper funptrptr _cb model path iter _ = do - model' <- (newObject TreeModel) model - path' <- (newBoxed TreePath) path - iter' <- (newBoxed TreeIter) iter - result <- _cb model' path' iter' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeModelFilterVisibleFunc -treeModelFilterVisibleFuncClosure :: TreeModelFilterVisibleFunc -> IO Closure -treeModelFilterVisibleFuncClosure cb = newCClosure =<< mkTreeModelFilterVisibleFunc wrapped - where wrapped = treeModelFilterVisibleFuncWrapper Nothing cb - -type TreeModelFilterVisibleFuncC = - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTreeModelFilterVisibleFunc :: TreeModelFilterVisibleFuncC -> IO (FunPtr TreeModelFilterVisibleFuncC) - -type TreeModelFilterVisibleFunc = - TreeModel -> - TreeIter -> - IO Bool - -noTreeModelFilterVisibleFunc :: Maybe TreeModelFilterVisibleFunc -noTreeModelFilterVisibleFunc = Nothing - -treeModelFilterVisibleFuncWrapper :: - Maybe (Ptr (FunPtr (TreeModelFilterVisibleFuncC))) -> - TreeModelFilterVisibleFunc -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt -treeModelFilterVisibleFuncWrapper funptrptr _cb model iter _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - result <- _cb model' iter' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TreeModelFilterModifyFunc --- XXX Could not generate callback wrapper for TreeModelFilterModifyFunc --- Error was : Not implemented: "Unexpected transfer type for \"value\"" --- callback TreeIterCompareFunc -treeIterCompareFuncClosure :: TreeIterCompareFunc -> IO Closure -treeIterCompareFuncClosure cb = newCClosure =<< mkTreeIterCompareFunc wrapped - where wrapped = treeIterCompareFuncWrapper Nothing cb - -type TreeIterCompareFuncC = - Ptr TreeModel -> - Ptr TreeIter -> - Ptr TreeIter -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkTreeIterCompareFunc :: TreeIterCompareFuncC -> IO (FunPtr TreeIterCompareFuncC) - -type TreeIterCompareFunc = - TreeModel -> - TreeIter -> - TreeIter -> - IO Int32 - -noTreeIterCompareFunc :: Maybe TreeIterCompareFunc -noTreeIterCompareFunc = Nothing - -treeIterCompareFuncWrapper :: - Maybe (Ptr (FunPtr (TreeIterCompareFuncC))) -> - TreeIterCompareFunc -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr TreeIter -> - Ptr () -> - IO Int32 -treeIterCompareFuncWrapper funptrptr _cb model a b _ = do - model' <- (newObject TreeModel) model - a' <- (newBoxed TreeIter) a - b' <- (newBoxed TreeIter) b - result <- _cb model' a' b' - maybeReleaseFunPtr funptrptr - return result - --- callback TreeDestroyCountFunc -treeDestroyCountFuncClosure :: TreeDestroyCountFunc -> IO Closure -treeDestroyCountFuncClosure cb = newCClosure =<< mkTreeDestroyCountFunc wrapped - where wrapped = treeDestroyCountFuncWrapper Nothing cb - -type TreeDestroyCountFuncC = - Ptr TreeView -> - Ptr TreePath -> - Int32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTreeDestroyCountFunc :: TreeDestroyCountFuncC -> IO (FunPtr TreeDestroyCountFuncC) - -type TreeDestroyCountFunc = - TreeView -> - TreePath -> - Int32 -> - IO () - -noTreeDestroyCountFunc :: Maybe TreeDestroyCountFunc -noTreeDestroyCountFunc = Nothing - -treeDestroyCountFuncWrapper :: - Maybe (Ptr (FunPtr (TreeDestroyCountFuncC))) -> - TreeDestroyCountFunc -> - Ptr TreeView -> - Ptr TreePath -> - Int32 -> - Ptr () -> - IO () -treeDestroyCountFuncWrapper funptrptr _cb treeView path children _ = do - treeView' <- (newObject TreeView) treeView - path' <- (newBoxed TreePath) path - _cb treeView' path' children - maybeReleaseFunPtr funptrptr - --- callback TreeCellDataFunc -treeCellDataFuncClosure :: TreeCellDataFunc -> IO Closure -treeCellDataFuncClosure cb = newCClosure =<< mkTreeCellDataFunc wrapped - where wrapped = treeCellDataFuncWrapper Nothing cb - -type TreeCellDataFuncC = - Ptr TreeViewColumn -> - Ptr CellRenderer -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTreeCellDataFunc :: TreeCellDataFuncC -> IO (FunPtr TreeCellDataFuncC) - -type TreeCellDataFunc = - TreeViewColumn -> - CellRenderer -> - TreeModel -> - TreeIter -> - IO () - -noTreeCellDataFunc :: Maybe TreeCellDataFunc -noTreeCellDataFunc = Nothing - -treeCellDataFuncWrapper :: - Maybe (Ptr (FunPtr (TreeCellDataFuncC))) -> - TreeCellDataFunc -> - Ptr TreeViewColumn -> - Ptr CellRenderer -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO () -treeCellDataFuncWrapper funptrptr _cb treeColumn cell treeModel iter _ = do - treeColumn' <- (newObject TreeViewColumn) treeColumn - cell' <- (newObject CellRenderer) cell - treeModel' <- (newObject TreeModel) treeModel - iter' <- (newBoxed TreeIter) iter - _cb treeColumn' cell' treeModel' iter' - maybeReleaseFunPtr funptrptr - --- callback TranslateFunc -translateFuncClosure :: TranslateFunc -> IO Closure -translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped - where wrapped = translateFuncWrapper Nothing cb - -type TranslateFuncC = - CString -> - Ptr () -> - IO CString - -foreign import ccall "wrapper" - mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC) - -type TranslateFunc = - T.Text -> - IO T.Text - -noTranslateFunc :: Maybe TranslateFunc -noTranslateFunc = Nothing - -translateFuncWrapper :: - Maybe (Ptr (FunPtr (TranslateFuncC))) -> - TranslateFunc -> - CString -> - Ptr () -> - IO CString -translateFuncWrapper funptrptr _cb path _ = do - path' <- cstringToText path - result <- _cb path' - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' - --- callback TickCallback -tickCallbackClosure :: TickCallback -> IO Closure -tickCallbackClosure cb = newCClosure =<< mkTickCallback wrapped - where wrapped = tickCallbackWrapper Nothing cb - -type TickCallbackC = - Ptr Widget -> - Ptr Gdk.FrameClock -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTickCallback :: TickCallbackC -> IO (FunPtr TickCallbackC) - -type TickCallback = - Widget -> - Gdk.FrameClock -> - IO Bool - -noTickCallback :: Maybe TickCallback -noTickCallback = Nothing - -tickCallbackWrapper :: - Maybe (Ptr (FunPtr (TickCallbackC))) -> - TickCallback -> - Ptr Widget -> - Ptr Gdk.FrameClock -> - Ptr () -> - IO CInt -tickCallbackWrapper funptrptr _cb widget frameClock _ = do - widget' <- (newObject Widget) widget - frameClock' <- (newObject Gdk.FrameClock) frameClock - result <- _cb widget' frameClock' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TextTagTableForeach -textTagTableForeachClosure :: TextTagTableForeach -> IO Closure -textTagTableForeachClosure cb = newCClosure =<< mkTextTagTableForeach wrapped - where wrapped = textTagTableForeachWrapper Nothing cb - -type TextTagTableForeachC = - Ptr TextTag -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTextTagTableForeach :: TextTagTableForeachC -> IO (FunPtr TextTagTableForeachC) - -type TextTagTableForeach = - TextTag -> - IO () - -noTextTagTableForeach :: Maybe TextTagTableForeach -noTextTagTableForeach = Nothing - -textTagTableForeachWrapper :: - Maybe (Ptr (FunPtr (TextTagTableForeachC))) -> - TextTagTableForeach -> - Ptr TextTag -> - Ptr () -> - IO () -textTagTableForeachWrapper funptrptr _cb tag _ = do - tag' <- (newObject TextTag) tag - _cb tag' - maybeReleaseFunPtr funptrptr - --- callback TextCharPredicate -textCharPredicateClosure :: TextCharPredicate -> IO Closure -textCharPredicateClosure cb = newCClosure =<< mkTextCharPredicate wrapped - where wrapped = textCharPredicateWrapper Nothing cb - -type TextCharPredicateC = - CInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTextCharPredicate :: TextCharPredicateC -> IO (FunPtr TextCharPredicateC) - -type TextCharPredicate = - Char -> - IO Bool - -noTextCharPredicate :: Maybe TextCharPredicate -noTextCharPredicate = Nothing - -textCharPredicateWrapper :: - Maybe (Ptr (FunPtr (TextCharPredicateC))) -> - TextCharPredicate -> - CInt -> - Ptr () -> - IO CInt -textCharPredicateWrapper funptrptr _cb ch _ = do - let ch' = (chr . fromIntegral) ch - result <- _cb ch' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TextBufferSerializeFunc -textBufferSerializeFuncClosure :: TextBufferSerializeFunc -> IO Closure -textBufferSerializeFuncClosure cb = newCClosure =<< mkTextBufferSerializeFunc wrapped - where wrapped = textBufferSerializeFuncWrapper Nothing cb - -type TextBufferSerializeFuncC = - Ptr TextBuffer -> - Ptr TextBuffer -> - Ptr TextIter -> - Ptr TextIter -> - Word64 -> - Ptr () -> - IO Word8 - -foreign import ccall "wrapper" - mkTextBufferSerializeFunc :: TextBufferSerializeFuncC -> IO (FunPtr TextBufferSerializeFuncC) - -type TextBufferSerializeFunc = - TextBuffer -> - TextBuffer -> - TextIter -> - TextIter -> - Word64 -> - IO Word8 - -noTextBufferSerializeFunc :: Maybe TextBufferSerializeFunc -noTextBufferSerializeFunc = Nothing - -textBufferSerializeFuncWrapper :: - Maybe (Ptr (FunPtr (TextBufferSerializeFuncC))) -> - TextBufferSerializeFunc -> - Ptr TextBuffer -> - Ptr TextBuffer -> - Ptr TextIter -> - Ptr TextIter -> - Word64 -> - Ptr () -> - IO Word8 -textBufferSerializeFuncWrapper funptrptr _cb registerBuffer contentBuffer start end length_ _ = do - registerBuffer' <- (newObject TextBuffer) registerBuffer - contentBuffer' <- (newObject TextBuffer) contentBuffer - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - result <- _cb registerBuffer' contentBuffer' start' end' length_ - maybeReleaseFunPtr funptrptr - return result - --- callback TextBufferDeserializeFunc -textBufferDeserializeFuncClosure :: TextBufferDeserializeFunc -> IO Closure -textBufferDeserializeFuncClosure cb = newCClosure =<< mkTextBufferDeserializeFunc wrapped - where wrapped = textBufferDeserializeFuncWrapper Nothing cb - -type TextBufferDeserializeFuncC = - Ptr TextBuffer -> - Ptr TextBuffer -> - Ptr TextIter -> - Ptr Word8 -> - Word64 -> - CInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTextBufferDeserializeFunc :: TextBufferDeserializeFuncC -> IO (FunPtr TextBufferDeserializeFuncC) - -type TextBufferDeserializeFunc = - TextBuffer -> - TextBuffer -> - TextIter -> - ByteString -> - Bool -> - IO Bool - -noTextBufferDeserializeFunc :: Maybe TextBufferDeserializeFunc -noTextBufferDeserializeFunc = Nothing - -textBufferDeserializeFuncWrapper :: - Maybe (Ptr (FunPtr (TextBufferDeserializeFuncC))) -> - TextBufferDeserializeFunc -> - Ptr TextBuffer -> - Ptr TextBuffer -> - Ptr TextIter -> - Ptr Word8 -> - Word64 -> - CInt -> - Ptr () -> - IO CInt -textBufferDeserializeFuncWrapper funptrptr _cb registerBuffer contentBuffer iter data_ length_ createTags _ = do - registerBuffer' <- (newObject TextBuffer) registerBuffer - contentBuffer' <- (newObject TextBuffer) contentBuffer - iter' <- (newBoxed TextIter) iter - data_' <- (unpackByteStringWithLength length_) data_ - let createTags' = (/= 0) createTags - result <- _cb registerBuffer' contentBuffer' iter' data_' createTags' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback StylePropertyParser -stylePropertyParserClosure :: StylePropertyParser -> IO Closure -stylePropertyParserClosure cb = newCClosure =<< mkStylePropertyParser wrapped - where wrapped = stylePropertyParserWrapper Nothing cb - -type StylePropertyParserC = - CString -> - Ptr GValue -> - IO CInt - -foreign import ccall "wrapper" - mkStylePropertyParser :: StylePropertyParserC -> IO (FunPtr StylePropertyParserC) - -type StylePropertyParser = - T.Text -> - GValue -> - IO Bool - -noStylePropertyParser :: Maybe StylePropertyParser -noStylePropertyParser = Nothing - -stylePropertyParserWrapper :: - Maybe (Ptr (FunPtr (StylePropertyParserC))) -> - StylePropertyParser -> - CString -> - Ptr GValue -> - IO CInt -stylePropertyParserWrapper funptrptr _cb string value = do - string' <- cstringToText string - value' <- (newBoxed GValue) value - result <- _cb string' value' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback RecentSortFunc -recentSortFuncClosure :: RecentSortFunc -> IO Closure -recentSortFuncClosure cb = newCClosure =<< mkRecentSortFunc wrapped - where wrapped = recentSortFuncWrapper Nothing cb - -type RecentSortFuncC = - Ptr RecentInfo -> - Ptr RecentInfo -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkRecentSortFunc :: RecentSortFuncC -> IO (FunPtr RecentSortFuncC) - -type RecentSortFunc = - RecentInfo -> - RecentInfo -> - IO Int32 - -noRecentSortFunc :: Maybe RecentSortFunc -noRecentSortFunc = Nothing - -recentSortFuncWrapper :: - Maybe (Ptr (FunPtr (RecentSortFuncC))) -> - RecentSortFunc -> - Ptr RecentInfo -> - Ptr RecentInfo -> - Ptr () -> - IO Int32 -recentSortFuncWrapper funptrptr _cb a b _ = do - a' <- (newBoxed RecentInfo) a - b' <- (newBoxed RecentInfo) b - result <- _cb a' b' - maybeReleaseFunPtr funptrptr - return result - --- callback RecentFilterFunc -recentFilterFuncClosure :: RecentFilterFunc -> IO Closure -recentFilterFuncClosure cb = newCClosure =<< mkRecentFilterFunc wrapped - where wrapped = recentFilterFuncWrapper Nothing cb - -type RecentFilterFuncC = - Ptr RecentFilterInfo -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkRecentFilterFunc :: RecentFilterFuncC -> IO (FunPtr RecentFilterFuncC) - -type RecentFilterFunc = - RecentFilterInfo -> - IO Bool - -noRecentFilterFunc :: Maybe RecentFilterFunc -noRecentFilterFunc = Nothing - -recentFilterFuncWrapper :: - Maybe (Ptr (FunPtr (RecentFilterFuncC))) -> - RecentFilterFunc -> - Ptr RecentFilterInfo -> - Ptr () -> - IO CInt -recentFilterFuncWrapper funptrptr _cb filterInfo _ = do - filterInfo' <- (newPtr RecentFilterInfo) filterInfo - result <- _cb filterInfo' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback RcPropertyParser -rcPropertyParserClosure :: RcPropertyParser -> IO Closure -rcPropertyParserClosure cb = newCClosure =<< mkRcPropertyParser wrapped - where wrapped = rcPropertyParserWrapper Nothing cb - -type RcPropertyParserC = - Ptr GParamSpec -> - Ptr GLib.String -> - Ptr GValue -> - IO CInt - -foreign import ccall "wrapper" - mkRcPropertyParser :: RcPropertyParserC -> IO (FunPtr RcPropertyParserC) - -type RcPropertyParser = - GParamSpec -> - GLib.String -> - GValue -> - IO Bool - -noRcPropertyParser :: Maybe RcPropertyParser -noRcPropertyParser = Nothing - -rcPropertyParserWrapper :: - Maybe (Ptr (FunPtr (RcPropertyParserC))) -> - RcPropertyParser -> - Ptr GParamSpec -> - Ptr GLib.String -> - Ptr GValue -> - IO CInt -rcPropertyParserWrapper funptrptr _cb pspec rcString propertyValue = do - pspec' <- newGParamSpecFromPtr pspec - rcString' <- (newBoxed GLib.String) rcString - propertyValue' <- (newBoxed GValue) propertyValue - result <- _cb pspec' rcString' propertyValue' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback PrintSettingsFunc -printSettingsFuncClosure :: PrintSettingsFunc -> IO Closure -printSettingsFuncClosure cb = newCClosure =<< mkPrintSettingsFunc wrapped - where wrapped = printSettingsFuncWrapper Nothing cb - -type PrintSettingsFuncC = - CString -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkPrintSettingsFunc :: PrintSettingsFuncC -> IO (FunPtr PrintSettingsFuncC) - -type PrintSettingsFunc = - T.Text -> - T.Text -> - IO () - -noPrintSettingsFunc :: Maybe PrintSettingsFunc -noPrintSettingsFunc = Nothing - -printSettingsFuncWrapper :: - Maybe (Ptr (FunPtr (PrintSettingsFuncC))) -> - PrintSettingsFunc -> - CString -> - CString -> - Ptr () -> - IO () -printSettingsFuncWrapper funptrptr _cb key value _ = do - key' <- cstringToText key - value' <- cstringToText value - _cb key' value' - maybeReleaseFunPtr funptrptr - --- callback PageSetupDoneFunc -pageSetupDoneFuncClosure :: PageSetupDoneFunc -> IO Closure -pageSetupDoneFuncClosure cb = newCClosure =<< mkPageSetupDoneFunc wrapped - where wrapped = pageSetupDoneFuncWrapper Nothing cb - -type PageSetupDoneFuncC = - Ptr PageSetup -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkPageSetupDoneFunc :: PageSetupDoneFuncC -> IO (FunPtr PageSetupDoneFuncC) - -type PageSetupDoneFunc = - PageSetup -> - IO () - -noPageSetupDoneFunc :: Maybe PageSetupDoneFunc -noPageSetupDoneFunc = Nothing - -pageSetupDoneFuncWrapper :: - Maybe (Ptr (FunPtr (PageSetupDoneFuncC))) -> - PageSetupDoneFunc -> - Ptr PageSetup -> - Ptr () -> - IO () -pageSetupDoneFuncWrapper funptrptr _cb pageSetup _ = do - pageSetup' <- (newObject PageSetup) pageSetup - _cb pageSetup' - maybeReleaseFunPtr funptrptr - --- callback ModuleInitFunc -moduleInitFuncClosure :: ModuleInitFunc -> IO Closure -moduleInitFuncClosure cb = newCClosure =<< mkModuleInitFunc wrapped - where wrapped = moduleInitFuncWrapper Nothing cb - -type ModuleInitFuncC = - Int32 -> - Ptr CString -> - IO () - -foreign import ccall "wrapper" - mkModuleInitFunc :: ModuleInitFuncC -> IO (FunPtr ModuleInitFuncC) - -type ModuleInitFunc = - Maybe [T.Text] -> - IO () - -noModuleInitFunc :: Maybe ModuleInitFunc -noModuleInitFunc = Nothing - -moduleInitFuncWrapper :: - Maybe (Ptr (FunPtr (ModuleInitFuncC))) -> - ModuleInitFunc -> - Int32 -> - Ptr CString -> - IO () -moduleInitFuncWrapper funptrptr _cb argc argv = do - maybeArgv <- - if argv == nullPtr - then return Nothing - else do - argv' <- (unpackUTF8CArrayWithLength argc) argv - return $ Just argv' - _cb maybeArgv - maybeReleaseFunPtr funptrptr - --- callback ModuleDisplayInitFunc -moduleDisplayInitFuncClosure :: ModuleDisplayInitFunc -> IO Closure -moduleDisplayInitFuncClosure cb = newCClosure =<< mkModuleDisplayInitFunc wrapped - where wrapped = moduleDisplayInitFuncWrapper Nothing cb - -type ModuleDisplayInitFuncC = - Ptr Gdk.Display -> - IO () - -foreign import ccall "wrapper" - mkModuleDisplayInitFunc :: ModuleDisplayInitFuncC -> IO (FunPtr ModuleDisplayInitFuncC) - -type ModuleDisplayInitFunc = - Gdk.Display -> - IO () - -noModuleDisplayInitFunc :: Maybe ModuleDisplayInitFunc -noModuleDisplayInitFunc = Nothing - -moduleDisplayInitFuncWrapper :: - Maybe (Ptr (FunPtr (ModuleDisplayInitFuncC))) -> - ModuleDisplayInitFunc -> - Ptr Gdk.Display -> - IO () -moduleDisplayInitFuncWrapper funptrptr _cb display = do - display' <- (newObject Gdk.Display) display - _cb display' - maybeReleaseFunPtr funptrptr - --- callback MenuPositionFunc -menuPositionFuncClosure :: MenuPositionFunc -> IO Closure -menuPositionFuncClosure cb = newCClosure =<< mkMenuPositionFunc wrapped - where wrapped = menuPositionFuncWrapper Nothing cb - -type MenuPositionFuncC = - Ptr Menu -> - Ptr Int32 -> - Ptr Int32 -> - Ptr CInt -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMenuPositionFunc :: MenuPositionFuncC -> IO (FunPtr MenuPositionFuncC) - -type MenuPositionFunc = - Menu -> - Int32 -> - Int32 -> - IO (Int32,Int32,Bool) - -noMenuPositionFunc :: Maybe MenuPositionFunc -noMenuPositionFunc = Nothing - -menuPositionFuncWrapper :: - Maybe (Ptr (FunPtr (MenuPositionFuncC))) -> - MenuPositionFunc -> - Ptr Menu -> - Ptr Int32 -> - Ptr Int32 -> - Ptr CInt -> - Ptr () -> - IO () -menuPositionFuncWrapper funptrptr _cb menu x y pushIn _ = do - menu' <- (newObject Menu) menu - x' <- peek x - y' <- peek y - (outx, outy, outpushIn) <- _cb menu' x' y' - poke x outx - poke y outy - let outpushIn' = (fromIntegral . fromEnum) outpushIn - poke pushIn outpushIn' - maybeReleaseFunPtr funptrptr - --- callback MenuDetachFunc -menuDetachFuncClosure :: MenuDetachFunc -> IO Closure -menuDetachFuncClosure cb = newCClosure =<< mkMenuDetachFunc wrapped - where wrapped = menuDetachFuncWrapper Nothing cb - -type MenuDetachFuncC = - Ptr Widget -> - Ptr Menu -> - IO () - -foreign import ccall "wrapper" - mkMenuDetachFunc :: MenuDetachFuncC -> IO (FunPtr MenuDetachFuncC) - -type MenuDetachFunc = - Widget -> - Menu -> - IO () - -noMenuDetachFunc :: Maybe MenuDetachFunc -noMenuDetachFunc = Nothing - -menuDetachFuncWrapper :: - Maybe (Ptr (FunPtr (MenuDetachFuncC))) -> - MenuDetachFunc -> - Ptr Widget -> - Ptr Menu -> - IO () -menuDetachFuncWrapper funptrptr _cb attachWidget menu = do - attachWidget' <- (newObject Widget) attachWidget - menu' <- (newObject Menu) menu - _cb attachWidget' menu' - maybeReleaseFunPtr funptrptr - --- callback ListBoxUpdateHeaderFunc -listBoxUpdateHeaderFuncClosure :: ListBoxUpdateHeaderFunc -> IO Closure -listBoxUpdateHeaderFuncClosure cb = newCClosure =<< mkListBoxUpdateHeaderFunc wrapped - where wrapped = listBoxUpdateHeaderFuncWrapper Nothing cb - -type ListBoxUpdateHeaderFuncC = - Ptr ListBoxRow -> - Ptr ListBoxRow -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkListBoxUpdateHeaderFunc :: ListBoxUpdateHeaderFuncC -> IO (FunPtr ListBoxUpdateHeaderFuncC) - -type ListBoxUpdateHeaderFunc = - ListBoxRow -> - Maybe ListBoxRow -> - IO () - -noListBoxUpdateHeaderFunc :: Maybe ListBoxUpdateHeaderFunc -noListBoxUpdateHeaderFunc = Nothing - -listBoxUpdateHeaderFuncWrapper :: - Maybe (Ptr (FunPtr (ListBoxUpdateHeaderFuncC))) -> - ListBoxUpdateHeaderFunc -> - Ptr ListBoxRow -> - Ptr ListBoxRow -> - Ptr () -> - IO () -listBoxUpdateHeaderFuncWrapper funptrptr _cb row before _ = do - row' <- (newObject ListBoxRow) row - maybeBefore <- - if before == nullPtr - then return Nothing - else do - before' <- (newObject ListBoxRow) before - return $ Just before' - _cb row' maybeBefore - maybeReleaseFunPtr funptrptr - --- callback ListBoxSortFunc -listBoxSortFuncClosure :: ListBoxSortFunc -> IO Closure -listBoxSortFuncClosure cb = newCClosure =<< mkListBoxSortFunc wrapped - where wrapped = listBoxSortFuncWrapper Nothing cb - -type ListBoxSortFuncC = - Ptr ListBoxRow -> - Ptr ListBoxRow -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkListBoxSortFunc :: ListBoxSortFuncC -> IO (FunPtr ListBoxSortFuncC) - -type ListBoxSortFunc = - ListBoxRow -> - ListBoxRow -> - IO Int32 - -noListBoxSortFunc :: Maybe ListBoxSortFunc -noListBoxSortFunc = Nothing - -listBoxSortFuncWrapper :: - Maybe (Ptr (FunPtr (ListBoxSortFuncC))) -> - ListBoxSortFunc -> - Ptr ListBoxRow -> - Ptr ListBoxRow -> - Ptr () -> - IO Int32 -listBoxSortFuncWrapper funptrptr _cb row1 row2 _ = do - row1' <- (newObject ListBoxRow) row1 - row2' <- (newObject ListBoxRow) row2 - result <- _cb row1' row2' - maybeReleaseFunPtr funptrptr - return result - --- callback ListBoxForeachFunc -listBoxForeachFuncClosure :: ListBoxForeachFunc -> IO Closure -listBoxForeachFuncClosure cb = newCClosure =<< mkListBoxForeachFunc wrapped - where wrapped = listBoxForeachFuncWrapper Nothing cb - -type ListBoxForeachFuncC = - Ptr ListBox -> - Ptr ListBoxRow -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkListBoxForeachFunc :: ListBoxForeachFuncC -> IO (FunPtr ListBoxForeachFuncC) - -type ListBoxForeachFunc = - ListBox -> - ListBoxRow -> - IO () - -noListBoxForeachFunc :: Maybe ListBoxForeachFunc -noListBoxForeachFunc = Nothing - -listBoxForeachFuncWrapper :: - Maybe (Ptr (FunPtr (ListBoxForeachFuncC))) -> - ListBoxForeachFunc -> - Ptr ListBox -> - Ptr ListBoxRow -> - Ptr () -> - IO () -listBoxForeachFuncWrapper funptrptr _cb box row _ = do - box' <- (newObject ListBox) box - row' <- (newObject ListBoxRow) row - _cb box' row' - maybeReleaseFunPtr funptrptr - --- callback ListBoxFilterFunc -listBoxFilterFuncClosure :: ListBoxFilterFunc -> IO Closure -listBoxFilterFuncClosure cb = newCClosure =<< mkListBoxFilterFunc wrapped - where wrapped = listBoxFilterFuncWrapper Nothing cb - -type ListBoxFilterFuncC = - Ptr ListBoxRow -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkListBoxFilterFunc :: ListBoxFilterFuncC -> IO (FunPtr ListBoxFilterFuncC) - -type ListBoxFilterFunc = - ListBoxRow -> - IO Bool - -noListBoxFilterFunc :: Maybe ListBoxFilterFunc -noListBoxFilterFunc = Nothing - -listBoxFilterFuncWrapper :: - Maybe (Ptr (FunPtr (ListBoxFilterFuncC))) -> - ListBoxFilterFunc -> - Ptr ListBoxRow -> - Ptr () -> - IO CInt -listBoxFilterFuncWrapper funptrptr _cb row _ = do - row' <- (newObject ListBoxRow) row - result <- _cb row' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback ListBoxCreateWidgetFunc -listBoxCreateWidgetFuncClosure :: ListBoxCreateWidgetFunc -> IO Closure -listBoxCreateWidgetFuncClosure cb = newCClosure =<< mkListBoxCreateWidgetFunc wrapped - where wrapped = listBoxCreateWidgetFuncWrapper Nothing cb - -type ListBoxCreateWidgetFuncC = - Ptr GObject.Object -> - Ptr () -> - IO (Ptr Widget) - -foreign import ccall "wrapper" - mkListBoxCreateWidgetFunc :: ListBoxCreateWidgetFuncC -> IO (FunPtr ListBoxCreateWidgetFuncC) - -type ListBoxCreateWidgetFunc = - GObject.Object -> - IO Widget - -noListBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc -noListBoxCreateWidgetFunc = Nothing - -listBoxCreateWidgetFuncWrapper :: - Maybe (Ptr (FunPtr (ListBoxCreateWidgetFuncC))) -> - ListBoxCreateWidgetFunc -> - Ptr GObject.Object -> - Ptr () -> - IO (Ptr Widget) -listBoxCreateWidgetFuncWrapper funptrptr _cb item _ = do - item' <- (newObject GObject.Object) item - result <- _cb item' - maybeReleaseFunPtr funptrptr - result' <- refObject result - return result' - --- callback KeySnoopFunc -keySnoopFuncClosure :: KeySnoopFunc -> IO Closure -keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped - where wrapped = keySnoopFuncWrapper Nothing cb - -type KeySnoopFuncC = - Ptr Widget -> - Ptr Gdk.EventKey -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC) - -type KeySnoopFunc = - Widget -> - Gdk.EventKey -> - IO Int32 - -noKeySnoopFunc :: Maybe KeySnoopFunc -noKeySnoopFunc = Nothing - -keySnoopFuncWrapper :: - Maybe (Ptr (FunPtr (KeySnoopFuncC))) -> - KeySnoopFunc -> - Ptr Widget -> - Ptr Gdk.EventKey -> - Ptr () -> - IO Int32 -keySnoopFuncWrapper funptrptr _cb grabWidget event _ = do - grabWidget' <- (newObject Widget) grabWidget - event' <- (newPtr Gdk.EventKey) event - result <- _cb grabWidget' event' - maybeReleaseFunPtr funptrptr - return result - --- callback IconViewForeachFunc -iconViewForeachFuncClosure :: IconViewForeachFunc -> IO Closure -iconViewForeachFuncClosure cb = newCClosure =<< mkIconViewForeachFunc wrapped - where wrapped = iconViewForeachFuncWrapper Nothing cb - -type IconViewForeachFuncC = - Ptr IconView -> - Ptr TreePath -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkIconViewForeachFunc :: IconViewForeachFuncC -> IO (FunPtr IconViewForeachFuncC) - -type IconViewForeachFunc = - IconView -> - TreePath -> - IO () - -noIconViewForeachFunc :: Maybe IconViewForeachFunc -noIconViewForeachFunc = Nothing - -iconViewForeachFuncWrapper :: - Maybe (Ptr (FunPtr (IconViewForeachFuncC))) -> - IconViewForeachFunc -> - Ptr IconView -> - Ptr TreePath -> - Ptr () -> - IO () -iconViewForeachFuncWrapper funptrptr _cb iconView path _ = do - iconView' <- (newObject IconView) iconView - path' <- (newBoxed TreePath) path - _cb iconView' path' - maybeReleaseFunPtr funptrptr - --- callback FontFilterFunc -fontFilterFuncClosure :: FontFilterFunc -> IO Closure -fontFilterFuncClosure cb = newCClosure =<< mkFontFilterFunc wrapped - where wrapped = fontFilterFuncWrapper Nothing cb - -type FontFilterFuncC = - Ptr Pango.FontFamily -> - Ptr Pango.FontFace -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkFontFilterFunc :: FontFilterFuncC -> IO (FunPtr FontFilterFuncC) - -type FontFilterFunc = - Pango.FontFamily -> - Pango.FontFace -> - IO Bool - -noFontFilterFunc :: Maybe FontFilterFunc -noFontFilterFunc = Nothing - -fontFilterFuncWrapper :: - Maybe (Ptr (FunPtr (FontFilterFuncC))) -> - FontFilterFunc -> - Ptr Pango.FontFamily -> - Ptr Pango.FontFace -> - Ptr () -> - IO CInt -fontFilterFuncWrapper funptrptr _cb family face _ = do - family' <- (newObject Pango.FontFamily) family - face' <- (newObject Pango.FontFace) face - result <- _cb family' face' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback FlowBoxSortFunc -flowBoxSortFuncClosure :: FlowBoxSortFunc -> IO Closure -flowBoxSortFuncClosure cb = newCClosure =<< mkFlowBoxSortFunc wrapped - where wrapped = flowBoxSortFuncWrapper Nothing cb - -type FlowBoxSortFuncC = - Ptr FlowBoxChild -> - Ptr FlowBoxChild -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkFlowBoxSortFunc :: FlowBoxSortFuncC -> IO (FunPtr FlowBoxSortFuncC) - -type FlowBoxSortFunc = - FlowBoxChild -> - FlowBoxChild -> - IO Int32 - -noFlowBoxSortFunc :: Maybe FlowBoxSortFunc -noFlowBoxSortFunc = Nothing - -flowBoxSortFuncWrapper :: - Maybe (Ptr (FunPtr (FlowBoxSortFuncC))) -> - FlowBoxSortFunc -> - Ptr FlowBoxChild -> - Ptr FlowBoxChild -> - Ptr () -> - IO Int32 -flowBoxSortFuncWrapper funptrptr _cb child1 child2 _ = do - child1' <- (newObject FlowBoxChild) child1 - child2' <- (newObject FlowBoxChild) child2 - result <- _cb child1' child2' - maybeReleaseFunPtr funptrptr - return result - --- callback FlowBoxForeachFunc -flowBoxForeachFuncClosure :: FlowBoxForeachFunc -> IO Closure -flowBoxForeachFuncClosure cb = newCClosure =<< mkFlowBoxForeachFunc wrapped - where wrapped = flowBoxForeachFuncWrapper Nothing cb - -type FlowBoxForeachFuncC = - Ptr FlowBox -> - Ptr FlowBoxChild -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkFlowBoxForeachFunc :: FlowBoxForeachFuncC -> IO (FunPtr FlowBoxForeachFuncC) - -type FlowBoxForeachFunc = - FlowBox -> - FlowBoxChild -> - IO () - -noFlowBoxForeachFunc :: Maybe FlowBoxForeachFunc -noFlowBoxForeachFunc = Nothing - -flowBoxForeachFuncWrapper :: - Maybe (Ptr (FunPtr (FlowBoxForeachFuncC))) -> - FlowBoxForeachFunc -> - Ptr FlowBox -> - Ptr FlowBoxChild -> - Ptr () -> - IO () -flowBoxForeachFuncWrapper funptrptr _cb box child _ = do - box' <- (newObject FlowBox) box - child' <- (newObject FlowBoxChild) child - _cb box' child' - maybeReleaseFunPtr funptrptr - --- callback FlowBoxFilterFunc -flowBoxFilterFuncClosure :: FlowBoxFilterFunc -> IO Closure -flowBoxFilterFuncClosure cb = newCClosure =<< mkFlowBoxFilterFunc wrapped - where wrapped = flowBoxFilterFuncWrapper Nothing cb - -type FlowBoxFilterFuncC = - Ptr FlowBoxChild -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkFlowBoxFilterFunc :: FlowBoxFilterFuncC -> IO (FunPtr FlowBoxFilterFuncC) - -type FlowBoxFilterFunc = - FlowBoxChild -> - IO Bool - -noFlowBoxFilterFunc :: Maybe FlowBoxFilterFunc -noFlowBoxFilterFunc = Nothing - -flowBoxFilterFuncWrapper :: - Maybe (Ptr (FunPtr (FlowBoxFilterFuncC))) -> - FlowBoxFilterFunc -> - Ptr FlowBoxChild -> - Ptr () -> - IO CInt -flowBoxFilterFuncWrapper funptrptr _cb child _ = do - child' <- (newObject FlowBoxChild) child - result <- _cb child' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback FileFilterFunc -fileFilterFuncClosure :: FileFilterFunc -> IO Closure -fileFilterFuncClosure cb = newCClosure =<< mkFileFilterFunc wrapped - where wrapped = fileFilterFuncWrapper Nothing cb - -type FileFilterFuncC = - Ptr FileFilterInfo -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkFileFilterFunc :: FileFilterFuncC -> IO (FunPtr FileFilterFuncC) - -type FileFilterFunc = - FileFilterInfo -> - IO Bool - -noFileFilterFunc :: Maybe FileFilterFunc -noFileFilterFunc = Nothing - -fileFilterFuncWrapper :: - Maybe (Ptr (FunPtr (FileFilterFuncC))) -> - FileFilterFunc -> - Ptr FileFilterInfo -> - Ptr () -> - IO CInt -fileFilterFuncWrapper funptrptr _cb filterInfo _ = do - filterInfo' <- (newPtr FileFilterInfo) filterInfo - result <- _cb filterInfo' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback EntryCompletionMatchFunc -entryCompletionMatchFuncClosure :: EntryCompletionMatchFunc -> IO Closure -entryCompletionMatchFuncClosure cb = newCClosure =<< mkEntryCompletionMatchFunc wrapped - where wrapped = entryCompletionMatchFuncWrapper Nothing cb - -type EntryCompletionMatchFuncC = - Ptr EntryCompletion -> - CString -> - Ptr TreeIter -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkEntryCompletionMatchFunc :: EntryCompletionMatchFuncC -> IO (FunPtr EntryCompletionMatchFuncC) - -type EntryCompletionMatchFunc = - EntryCompletion -> - T.Text -> - TreeIter -> - IO Bool - -noEntryCompletionMatchFunc :: Maybe EntryCompletionMatchFunc -noEntryCompletionMatchFunc = Nothing - -entryCompletionMatchFuncWrapper :: - Maybe (Ptr (FunPtr (EntryCompletionMatchFuncC))) -> - EntryCompletionMatchFunc -> - Ptr EntryCompletion -> - CString -> - Ptr TreeIter -> - Ptr () -> - IO CInt -entryCompletionMatchFuncWrapper funptrptr _cb completion key iter _ = do - completion' <- (newObject EntryCompletion) completion - key' <- cstringToText key - iter' <- (newBoxed TreeIter) iter - result <- _cb completion' key' iter' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback ColorSelectionChangePaletteWithScreenFunc -colorSelectionChangePaletteWithScreenFuncClosure :: ColorSelectionChangePaletteWithScreenFunc -> IO Closure -colorSelectionChangePaletteWithScreenFuncClosure cb = newCClosure =<< mkColorSelectionChangePaletteWithScreenFunc wrapped - where wrapped = colorSelectionChangePaletteWithScreenFuncWrapper Nothing cb - -type ColorSelectionChangePaletteWithScreenFuncC = - Ptr Gdk.Screen -> - Ptr Gdk.Color -> - Int32 -> - IO () - -foreign import ccall "wrapper" - mkColorSelectionChangePaletteWithScreenFunc :: ColorSelectionChangePaletteWithScreenFuncC -> IO (FunPtr ColorSelectionChangePaletteWithScreenFuncC) - -type ColorSelectionChangePaletteWithScreenFunc = - Gdk.Screen -> - [Gdk.Color] -> - IO () - -noColorSelectionChangePaletteWithScreenFunc :: Maybe ColorSelectionChangePaletteWithScreenFunc -noColorSelectionChangePaletteWithScreenFunc = Nothing - -colorSelectionChangePaletteWithScreenFuncWrapper :: - Maybe (Ptr (FunPtr (ColorSelectionChangePaletteWithScreenFuncC))) -> - ColorSelectionChangePaletteWithScreenFunc -> - Ptr Gdk.Screen -> - Ptr Gdk.Color -> - Int32 -> - IO () -colorSelectionChangePaletteWithScreenFuncWrapper funptrptr _cb screen colors nColors = do - screen' <- (newObject Gdk.Screen) screen - colors' <- (unpackBoxedArrayWithLength 12 nColors) colors - colors'' <- mapM (newBoxed Gdk.Color) colors' - _cb screen' colors'' - maybeReleaseFunPtr funptrptr - --- callback ColorSelectionChangePaletteFunc -colorSelectionChangePaletteFuncClosure :: ColorSelectionChangePaletteFunc -> IO Closure -colorSelectionChangePaletteFuncClosure cb = newCClosure =<< mkColorSelectionChangePaletteFunc wrapped - where wrapped = colorSelectionChangePaletteFuncWrapper Nothing cb - -type ColorSelectionChangePaletteFuncC = - Ptr Gdk.Color -> - Int32 -> - IO () - -foreign import ccall "wrapper" - mkColorSelectionChangePaletteFunc :: ColorSelectionChangePaletteFuncC -> IO (FunPtr ColorSelectionChangePaletteFuncC) - -type ColorSelectionChangePaletteFunc = - [Gdk.Color] -> - IO () - -noColorSelectionChangePaletteFunc :: Maybe ColorSelectionChangePaletteFunc -noColorSelectionChangePaletteFunc = Nothing - -colorSelectionChangePaletteFuncWrapper :: - Maybe (Ptr (FunPtr (ColorSelectionChangePaletteFuncC))) -> - ColorSelectionChangePaletteFunc -> - Ptr Gdk.Color -> - Int32 -> - IO () -colorSelectionChangePaletteFuncWrapper funptrptr _cb colors nColors = do - colors' <- (unpackBoxedArrayWithLength 12 nColors) colors - colors'' <- mapM (newBoxed Gdk.Color) colors' - _cb colors'' - maybeReleaseFunPtr funptrptr - --- callback ClipboardURIReceivedFunc -clipboardURIReceivedFuncClosure :: ClipboardURIReceivedFunc -> IO Closure -clipboardURIReceivedFuncClosure cb = newCClosure =<< mkClipboardURIReceivedFunc wrapped - where wrapped = clipboardURIReceivedFuncWrapper Nothing cb - -type ClipboardURIReceivedFuncC = - Ptr Clipboard -> - Ptr CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardURIReceivedFunc :: ClipboardURIReceivedFuncC -> IO (FunPtr ClipboardURIReceivedFuncC) - -type ClipboardURIReceivedFunc = - Clipboard -> - [T.Text] -> - IO () - -noClipboardURIReceivedFunc :: Maybe ClipboardURIReceivedFunc -noClipboardURIReceivedFunc = Nothing - -clipboardURIReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardURIReceivedFuncC))) -> - ClipboardURIReceivedFunc -> - Ptr Clipboard -> - Ptr CString -> - Ptr () -> - IO () -clipboardURIReceivedFuncWrapper funptrptr _cb clipboard uris _ = do - clipboard' <- (newObject Clipboard) clipboard - uris' <- unpackZeroTerminatedUTF8CArray uris - _cb clipboard' uris' - maybeReleaseFunPtr funptrptr - --- callback ClipboardTextReceivedFunc -clipboardTextReceivedFuncClosure :: ClipboardTextReceivedFunc -> IO Closure -clipboardTextReceivedFuncClosure cb = newCClosure =<< mkClipboardTextReceivedFunc wrapped - where wrapped = clipboardTextReceivedFuncWrapper Nothing cb - -type ClipboardTextReceivedFuncC = - Ptr Clipboard -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardTextReceivedFunc :: ClipboardTextReceivedFuncC -> IO (FunPtr ClipboardTextReceivedFuncC) - -type ClipboardTextReceivedFunc = - Clipboard -> - Maybe T.Text -> - IO () - -noClipboardTextReceivedFunc :: Maybe ClipboardTextReceivedFunc -noClipboardTextReceivedFunc = Nothing - -clipboardTextReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardTextReceivedFuncC))) -> - ClipboardTextReceivedFunc -> - Ptr Clipboard -> - CString -> - Ptr () -> - IO () -clipboardTextReceivedFuncWrapper funptrptr _cb clipboard text _ = do - clipboard' <- (newObject Clipboard) clipboard - maybeText <- - if text == nullPtr - then return Nothing - else do - text' <- cstringToText text - return $ Just text' - _cb clipboard' maybeText - maybeReleaseFunPtr funptrptr - --- callback ClipboardTargetsReceivedFunc -clipboardTargetsReceivedFuncClosure :: ClipboardTargetsReceivedFunc -> IO Closure -clipboardTargetsReceivedFuncClosure cb = newCClosure =<< mkClipboardTargetsReceivedFunc wrapped - where wrapped = clipboardTargetsReceivedFuncWrapper Nothing cb - -type ClipboardTargetsReceivedFuncC = - Ptr Clipboard -> - Ptr (Ptr Gdk.Atom) -> - Int32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardTargetsReceivedFunc :: ClipboardTargetsReceivedFuncC -> IO (FunPtr ClipboardTargetsReceivedFuncC) - -type ClipboardTargetsReceivedFunc = - Clipboard -> - Maybe [Gdk.Atom] -> - IO () - -noClipboardTargetsReceivedFunc :: Maybe ClipboardTargetsReceivedFunc -noClipboardTargetsReceivedFunc = Nothing - -clipboardTargetsReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardTargetsReceivedFuncC))) -> - ClipboardTargetsReceivedFunc -> - Ptr Clipboard -> - Ptr (Ptr Gdk.Atom) -> - Int32 -> - Ptr () -> - IO () -clipboardTargetsReceivedFuncWrapper funptrptr _cb clipboard atoms nAtoms _ = do - clipboard' <- (newObject Clipboard) clipboard - maybeAtoms <- - if atoms == nullPtr - then return Nothing - else do - atoms' <- (unpackPtrArrayWithLength nAtoms) atoms - atoms'' <- mapM (newPtr Gdk.Atom) atoms' - return $ Just atoms'' - _cb clipboard' maybeAtoms - maybeReleaseFunPtr funptrptr - --- callback ClipboardRichTextReceivedFunc -clipboardRichTextReceivedFuncClosure :: ClipboardRichTextReceivedFunc -> IO Closure -clipboardRichTextReceivedFuncClosure cb = newCClosure =<< mkClipboardRichTextReceivedFunc wrapped - where wrapped = clipboardRichTextReceivedFuncWrapper Nothing cb - -type ClipboardRichTextReceivedFuncC = - Ptr Clipboard -> - Ptr Gdk.Atom -> - CString -> - Word64 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardRichTextReceivedFunc :: ClipboardRichTextReceivedFuncC -> IO (FunPtr ClipboardRichTextReceivedFuncC) - -type ClipboardRichTextReceivedFunc = - Clipboard -> - Gdk.Atom -> - Maybe T.Text -> - Word64 -> - IO () - -noClipboardRichTextReceivedFunc :: Maybe ClipboardRichTextReceivedFunc -noClipboardRichTextReceivedFunc = Nothing - -clipboardRichTextReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardRichTextReceivedFuncC))) -> - ClipboardRichTextReceivedFunc -> - Ptr Clipboard -> - Ptr Gdk.Atom -> - CString -> - Word64 -> - Ptr () -> - IO () -clipboardRichTextReceivedFuncWrapper funptrptr _cb clipboard format text length_ _ = do - clipboard' <- (newObject Clipboard) clipboard - format' <- (newPtr Gdk.Atom) format - maybeText <- - if text == nullPtr - then return Nothing - else do - text' <- cstringToText text - return $ Just text' - _cb clipboard' format' maybeText length_ - maybeReleaseFunPtr funptrptr - --- callback ClipboardReceivedFunc -clipboardReceivedFuncClosure :: ClipboardReceivedFunc -> IO Closure -clipboardReceivedFuncClosure cb = newCClosure =<< mkClipboardReceivedFunc wrapped - where wrapped = clipboardReceivedFuncWrapper Nothing cb - -type ClipboardReceivedFuncC = - Ptr Clipboard -> - Ptr SelectionData -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardReceivedFunc :: ClipboardReceivedFuncC -> IO (FunPtr ClipboardReceivedFuncC) - -type ClipboardReceivedFunc = - Clipboard -> - SelectionData -> - IO () - -noClipboardReceivedFunc :: Maybe ClipboardReceivedFunc -noClipboardReceivedFunc = Nothing - -clipboardReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardReceivedFuncC))) -> - ClipboardReceivedFunc -> - Ptr Clipboard -> - Ptr SelectionData -> - Ptr () -> - IO () -clipboardReceivedFuncWrapper funptrptr _cb clipboard selectionData _ = do - clipboard' <- (newObject Clipboard) clipboard - selectionData' <- (newBoxed SelectionData) selectionData - _cb clipboard' selectionData' - maybeReleaseFunPtr funptrptr - --- callback ClipboardImageReceivedFunc -clipboardImageReceivedFuncClosure :: ClipboardImageReceivedFunc -> IO Closure -clipboardImageReceivedFuncClosure cb = newCClosure =<< mkClipboardImageReceivedFunc wrapped - where wrapped = clipboardImageReceivedFuncWrapper Nothing cb - -type ClipboardImageReceivedFuncC = - Ptr Clipboard -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardImageReceivedFunc :: ClipboardImageReceivedFuncC -> IO (FunPtr ClipboardImageReceivedFuncC) - -type ClipboardImageReceivedFunc = - Clipboard -> - GdkPixbuf.Pixbuf -> - IO () - -noClipboardImageReceivedFunc :: Maybe ClipboardImageReceivedFunc -noClipboardImageReceivedFunc = Nothing - -clipboardImageReceivedFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardImageReceivedFuncC))) -> - ClipboardImageReceivedFunc -> - Ptr Clipboard -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> - IO () -clipboardImageReceivedFuncWrapper funptrptr _cb clipboard pixbuf _ = do - clipboard' <- (newObject Clipboard) clipboard - pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf - _cb clipboard' pixbuf' - maybeReleaseFunPtr funptrptr - --- callback ClipboardGetFunc -clipboardGetFuncClosure :: ClipboardGetFunc -> IO Closure -clipboardGetFuncClosure cb = newCClosure =<< mkClipboardGetFunc wrapped - where wrapped = clipboardGetFuncWrapper Nothing cb - -type ClipboardGetFuncC = - Ptr Clipboard -> - Ptr SelectionData -> - Word32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardGetFunc :: ClipboardGetFuncC -> IO (FunPtr ClipboardGetFuncC) - -type ClipboardGetFunc = - Clipboard -> - SelectionData -> - Word32 -> - Ptr () -> - IO () - -noClipboardGetFunc :: Maybe ClipboardGetFunc -noClipboardGetFunc = Nothing - -clipboardGetFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardGetFuncC))) -> - ClipboardGetFunc -> - Ptr Clipboard -> - Ptr SelectionData -> - Word32 -> - Ptr () -> - IO () -clipboardGetFuncWrapper funptrptr _cb clipboard selectionData info userDataOrOwner = do - clipboard' <- (newObject Clipboard) clipboard - selectionData' <- (newBoxed SelectionData) selectionData - _cb clipboard' selectionData' info userDataOrOwner - maybeReleaseFunPtr funptrptr - --- callback ClipboardClearFunc -clipboardClearFuncClosure :: ClipboardClearFunc -> IO Closure -clipboardClearFuncClosure cb = newCClosure =<< mkClipboardClearFunc wrapped - where wrapped = clipboardClearFuncWrapper Nothing cb - -type ClipboardClearFuncC = - Ptr Clipboard -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClipboardClearFunc :: ClipboardClearFuncC -> IO (FunPtr ClipboardClearFuncC) - -type ClipboardClearFunc = - Clipboard -> - Ptr () -> - IO () - -noClipboardClearFunc :: Maybe ClipboardClearFunc -noClipboardClearFunc = Nothing - -clipboardClearFuncWrapper :: - Maybe (Ptr (FunPtr (ClipboardClearFuncC))) -> - ClipboardClearFunc -> - Ptr Clipboard -> - Ptr () -> - IO () -clipboardClearFuncWrapper funptrptr _cb clipboard userDataOrOwner = do - clipboard' <- (newObject Clipboard) clipboard - _cb clipboard' userDataOrOwner - maybeReleaseFunPtr funptrptr - --- callback CellLayoutDataFunc -cellLayoutDataFuncClosure :: CellLayoutDataFunc -> IO Closure -cellLayoutDataFuncClosure cb = newCClosure =<< mkCellLayoutDataFunc wrapped - where wrapped = cellLayoutDataFuncWrapper Nothing cb - -type CellLayoutDataFuncC = - Ptr CellLayout -> - Ptr CellRenderer -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkCellLayoutDataFunc :: CellLayoutDataFuncC -> IO (FunPtr CellLayoutDataFuncC) - -type CellLayoutDataFunc = - CellLayout -> - CellRenderer -> - TreeModel -> - TreeIter -> - IO () - -noCellLayoutDataFunc :: Maybe CellLayoutDataFunc -noCellLayoutDataFunc = Nothing - -cellLayoutDataFuncWrapper :: - Maybe (Ptr (FunPtr (CellLayoutDataFuncC))) -> - CellLayoutDataFunc -> - Ptr CellLayout -> - Ptr CellRenderer -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO () -cellLayoutDataFuncWrapper funptrptr _cb cellLayout cell treeModel iter _ = do - cellLayout' <- (newObject CellLayout) cellLayout - cell' <- (newObject CellRenderer) cell - treeModel' <- (newObject TreeModel) treeModel - iter' <- (newBoxed TreeIter) iter - _cb cellLayout' cell' treeModel' iter' - maybeReleaseFunPtr funptrptr - --- callback CellCallback -cellCallbackClosure :: CellCallback -> IO Closure -cellCallbackClosure cb = newCClosure =<< mkCellCallback wrapped - where wrapped = cellCallbackWrapper Nothing cb - -type CellCallbackC = - Ptr CellRenderer -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkCellCallback :: CellCallbackC -> IO (FunPtr CellCallbackC) - -type CellCallback = - CellRenderer -> - IO Bool - -noCellCallback :: Maybe CellCallback -noCellCallback = Nothing - -cellCallbackWrapper :: - Maybe (Ptr (FunPtr (CellCallbackC))) -> - CellCallback -> - Ptr CellRenderer -> - Ptr () -> - IO CInt -cellCallbackWrapper funptrptr _cb renderer _ = do - renderer' <- (newObject CellRenderer) renderer - result <- _cb renderer' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback CellAllocCallback -cellAllocCallbackClosure :: CellAllocCallback -> IO Closure -cellAllocCallbackClosure cb = newCClosure =<< mkCellAllocCallback wrapped - where wrapped = cellAllocCallbackWrapper Nothing cb - -type CellAllocCallbackC = - Ptr CellRenderer -> - Ptr Gdk.Rectangle -> - Ptr Gdk.Rectangle -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkCellAllocCallback :: CellAllocCallbackC -> IO (FunPtr CellAllocCallbackC) - -type CellAllocCallback = - CellRenderer -> - Gdk.Rectangle -> - Gdk.Rectangle -> - IO Bool - -noCellAllocCallback :: Maybe CellAllocCallback -noCellAllocCallback = Nothing - -cellAllocCallbackWrapper :: - Maybe (Ptr (FunPtr (CellAllocCallbackC))) -> - CellAllocCallback -> - Ptr CellRenderer -> - Ptr Gdk.Rectangle -> - Ptr Gdk.Rectangle -> - Ptr () -> - IO CInt -cellAllocCallbackWrapper funptrptr _cb renderer cellArea cellBackground _ = do - renderer' <- (newObject CellRenderer) renderer - cellArea' <- (newBoxed Gdk.Rectangle) cellArea - cellBackground' <- (newBoxed Gdk.Rectangle) cellBackground - result <- _cb renderer' cellArea' cellBackground' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback Callback -callbackClosure :: Callback -> IO Closure -callbackClosure cb = newCClosure =<< mkCallback wrapped - where wrapped = callbackWrapper Nothing cb - -type CallbackC = - Ptr Widget -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkCallback :: CallbackC -> IO (FunPtr CallbackC) - -type Callback = - Widget -> - IO () - -noCallback :: Maybe Callback -noCallback = Nothing - -callbackWrapper :: - Maybe (Ptr (FunPtr (CallbackC))) -> - Callback -> - Ptr Widget -> - Ptr () -> - IO () -callbackWrapper funptrptr _cb widget _ = do - widget' <- (newObject Widget) widget - _cb widget' - maybeReleaseFunPtr funptrptr - --- callback CalendarDetailFunc -calendarDetailFuncClosure :: CalendarDetailFunc -> IO Closure -calendarDetailFuncClosure cb = newCClosure =<< mkCalendarDetailFunc wrapped - where wrapped = calendarDetailFuncWrapper Nothing cb - -type CalendarDetailFuncC = - Ptr Calendar -> - Word32 -> - Word32 -> - Word32 -> - Ptr () -> - IO CString - -foreign import ccall "wrapper" - mkCalendarDetailFunc :: CalendarDetailFuncC -> IO (FunPtr CalendarDetailFuncC) - -type CalendarDetailFunc = - Calendar -> - Word32 -> - Word32 -> - Word32 -> - IO T.Text - -noCalendarDetailFunc :: Maybe CalendarDetailFunc -noCalendarDetailFunc = Nothing - -calendarDetailFuncWrapper :: - Maybe (Ptr (FunPtr (CalendarDetailFuncC))) -> - CalendarDetailFunc -> - Ptr Calendar -> - Word32 -> - Word32 -> - Word32 -> - Ptr () -> - IO CString -calendarDetailFuncWrapper funptrptr _cb calendar year month day _ = do - calendar' <- (newObject Calendar) calendar - result <- _cb calendar' year month day - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' - --- callback BuilderConnectFunc -builderConnectFuncClosure :: BuilderConnectFunc -> IO Closure -builderConnectFuncClosure cb = newCClosure =<< mkBuilderConnectFunc wrapped - where wrapped = builderConnectFuncWrapper Nothing cb - -type BuilderConnectFuncC = - Ptr Builder -> - Ptr GObject.Object -> - CString -> - CString -> - Ptr GObject.Object -> - CUInt -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBuilderConnectFunc :: BuilderConnectFuncC -> IO (FunPtr BuilderConnectFuncC) - -type BuilderConnectFunc = - Builder -> - GObject.Object -> - T.Text -> - T.Text -> - Maybe GObject.Object -> - [GObject.ConnectFlags] -> - IO () - -noBuilderConnectFunc :: Maybe BuilderConnectFunc -noBuilderConnectFunc = Nothing - -builderConnectFuncWrapper :: - Maybe (Ptr (FunPtr (BuilderConnectFuncC))) -> - BuilderConnectFunc -> - Ptr Builder -> - Ptr GObject.Object -> - CString -> - CString -> - Ptr GObject.Object -> - CUInt -> - Ptr () -> - IO () -builderConnectFuncWrapper funptrptr _cb builder object signalName handlerName connectObject flags _ = do - builder' <- (newObject Builder) builder - object' <- (newObject GObject.Object) object - signalName' <- cstringToText signalName - handlerName' <- cstringToText handlerName - maybeConnectObject <- - if connectObject == nullPtr - then return Nothing - else do - connectObject' <- (newObject GObject.Object) connectObject - return $ Just connectObject' - let flags' = wordToGFlags flags - _cb builder' object' signalName' handlerName' maybeConnectObject flags' - maybeReleaseFunPtr funptrptr - --- callback AssistantPageFunc -assistantPageFuncClosure :: AssistantPageFunc -> IO Closure -assistantPageFuncClosure cb = newCClosure =<< mkAssistantPageFunc wrapped - where wrapped = assistantPageFuncWrapper Nothing cb - -type AssistantPageFuncC = - Int32 -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkAssistantPageFunc :: AssistantPageFuncC -> IO (FunPtr AssistantPageFuncC) - -type AssistantPageFunc = - Int32 -> - IO Int32 - -noAssistantPageFunc :: Maybe AssistantPageFunc -noAssistantPageFunc = Nothing - -assistantPageFuncWrapper :: - Maybe (Ptr (FunPtr (AssistantPageFuncC))) -> - AssistantPageFunc -> - Int32 -> - Ptr () -> - IO Int32 -assistantPageFuncWrapper funptrptr _cb currentPage _ = do - result <- _cb currentPage - maybeReleaseFunPtr funptrptr - return result - --- callback AccelMapForeach -accelMapForeachClosure :: AccelMapForeach -> IO Closure -accelMapForeachClosure cb = newCClosure =<< mkAccelMapForeach wrapped - where wrapped = accelMapForeachWrapper Nothing cb - -type AccelMapForeachC = - Ptr () -> - CString -> - Word32 -> - CUInt -> - CInt -> - IO () - -foreign import ccall "wrapper" - mkAccelMapForeach :: AccelMapForeachC -> IO (FunPtr AccelMapForeachC) - -type AccelMapForeach = - Ptr () -> - T.Text -> - Word32 -> - [Gdk.ModifierType] -> - Bool -> - IO () - -noAccelMapForeach :: Maybe AccelMapForeach -noAccelMapForeach = Nothing - -accelMapForeachWrapper :: - Maybe (Ptr (FunPtr (AccelMapForeachC))) -> - AccelMapForeach -> - Ptr () -> - CString -> - Word32 -> - CUInt -> - CInt -> - IO () -accelMapForeachWrapper funptrptr _cb data_ accelPath accelKey accelMods changed = do - accelPath' <- cstringToText accelPath - let accelMods' = wordToGFlags accelMods - let changed' = (/= 0) changed - _cb data_ accelPath' accelKey accelMods' changed' - maybeReleaseFunPtr funptrptr - --- callback AccelGroupFindFunc -accelGroupFindFuncClosure :: AccelGroupFindFunc -> IO Closure -accelGroupFindFuncClosure cb = newCClosure =<< mkAccelGroupFindFunc wrapped - where wrapped = accelGroupFindFuncWrapper Nothing cb - -type AccelGroupFindFuncC = - Ptr AccelKey -> - Ptr Closure -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkAccelGroupFindFunc :: AccelGroupFindFuncC -> IO (FunPtr AccelGroupFindFuncC) - -type AccelGroupFindFunc = - AccelKey -> - Closure -> - IO Bool - -noAccelGroupFindFunc :: Maybe AccelGroupFindFunc -noAccelGroupFindFunc = Nothing - -accelGroupFindFuncWrapper :: - Maybe (Ptr (FunPtr (AccelGroupFindFuncC))) -> - AccelGroupFindFunc -> - Ptr AccelKey -> - Ptr Closure -> - Ptr () -> - IO CInt -accelGroupFindFuncWrapper funptrptr _cb key closure _ = do - key' <- (newPtr AccelKey) key - closure' <- (newBoxed Closure) closure - result <- _cb key' closure' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback AccelGroupActivate -accelGroupActivateClosure :: AccelGroupActivate -> IO Closure -accelGroupActivateClosure cb = newCClosure =<< mkAccelGroupActivate wrapped - where wrapped = accelGroupActivateWrapper Nothing cb - -type AccelGroupActivateC = - Ptr AccelGroup -> - Ptr GObject.Object -> - Word32 -> - CUInt -> - IO CInt - -foreign import ccall "wrapper" - mkAccelGroupActivate :: AccelGroupActivateC -> IO (FunPtr AccelGroupActivateC) - -type AccelGroupActivate = - AccelGroup -> - GObject.Object -> - Word32 -> - [Gdk.ModifierType] -> - IO Bool - -noAccelGroupActivate :: Maybe AccelGroupActivate -noAccelGroupActivate = Nothing - -accelGroupActivateWrapper :: - Maybe (Ptr (FunPtr (AccelGroupActivateC))) -> - AccelGroupActivate -> - Ptr AccelGroup -> - Ptr GObject.Object -> - Word32 -> - CUInt -> - IO CInt -accelGroupActivateWrapper funptrptr _cb accelGroup acceleratable keyval modifier = do - accelGroup' <- (newObject AccelGroup) accelGroup - acceleratable' <- (newObject GObject.Object) acceleratable - let modifier' = wordToGFlags modifier - result <- _cb accelGroup' acceleratable' keyval modifier' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - - diff --git a/GI/Gtk/Constants.hs b/GI/Gtk/Constants.hs deleted file mode 100644 --- a/GI/Gtk/Constants.hs +++ /dev/null @@ -1,1069 +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.Gtk.Constants - ( - pattern TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID, - pattern TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID, - pattern TEXT_VIEW_PRIORITY_VALIDATE , - pattern STYLE_REGION_TAB , - pattern STYLE_REGION_ROW , - pattern STYLE_REGION_COLUMN_HEADER , - pattern STYLE_REGION_COLUMN , - pattern STYLE_PROVIDER_PRIORITY_USER , - pattern STYLE_PROVIDER_PRIORITY_THEME , - pattern STYLE_PROVIDER_PRIORITY_SETTINGS, - pattern STYLE_PROVIDER_PRIORITY_FALLBACK, - pattern STYLE_PROVIDER_PRIORITY_APPLICATION, - pattern STYLE_PROPERTY_PADDING , - pattern STYLE_PROPERTY_MARGIN , - pattern STYLE_PROPERTY_FONT , - pattern STYLE_PROPERTY_COLOR , - pattern STYLE_PROPERTY_BORDER_WIDTH , - pattern STYLE_PROPERTY_BORDER_STYLE , - pattern STYLE_PROPERTY_BORDER_RADIUS , - pattern STYLE_PROPERTY_BORDER_COLOR , - pattern STYLE_PROPERTY_BACKGROUND_IMAGE , - pattern STYLE_PROPERTY_BACKGROUND_COLOR , - pattern STYLE_CLASS_WIDE , - pattern STYLE_CLASS_WARNING , - pattern STYLE_CLASS_VIEW , - pattern STYLE_CLASS_VERTICAL , - pattern STYLE_CLASS_UNDERSHOOT , - pattern STYLE_CLASS_TROUGH , - pattern STYLE_CLASS_TOUCH_SELECTION , - pattern STYLE_CLASS_TOP , - pattern STYLE_CLASS_TOOLTIP , - pattern STYLE_CLASS_TOOLBAR , - pattern STYLE_CLASS_TITLEBAR , - pattern STYLE_CLASS_TITLE , - pattern STYLE_CLASS_SUGGESTED_ACTION , - pattern STYLE_CLASS_SUBTITLE , - pattern STYLE_CLASS_STATUSBAR , - pattern STYLE_CLASS_SPINNER , - pattern STYLE_CLASS_SPINBUTTON , - pattern STYLE_CLASS_SLIDER , - pattern STYLE_CLASS_SIDEBAR , - pattern STYLE_CLASS_SEPARATOR , - pattern STYLE_CLASS_SCROLLBARS_JUNCTION , - pattern STYLE_CLASS_SCROLLBAR , - pattern STYLE_CLASS_SCALE_HAS_MARKS_BELOW, - pattern STYLE_CLASS_SCALE_HAS_MARKS_ABOVE, - pattern STYLE_CLASS_SCALE , - pattern STYLE_CLASS_RUBBERBAND , - pattern STYLE_CLASS_RIGHT , - pattern STYLE_CLASS_READ_ONLY , - pattern STYLE_CLASS_RAISED , - pattern STYLE_CLASS_RADIO , - pattern STYLE_CLASS_QUESTION , - pattern STYLE_CLASS_PULSE , - pattern STYLE_CLASS_PROGRESSBAR , - pattern STYLE_CLASS_PRIMARY_TOOLBAR , - pattern STYLE_CLASS_POPUP , - pattern STYLE_CLASS_POPOVER , - pattern STYLE_CLASS_PAPER , - pattern STYLE_CLASS_PANE_SEPARATOR , - pattern STYLE_CLASS_OVERSHOOT , - pattern STYLE_CLASS_OSD , - pattern STYLE_CLASS_NOTEBOOK , - pattern STYLE_CLASS_NEEDS_ATTENTION , - pattern STYLE_CLASS_MONOSPACE , - pattern STYLE_CLASS_MESSAGE_DIALOG , - pattern STYLE_CLASS_MENUITEM , - pattern STYLE_CLASS_MENUBAR , - pattern STYLE_CLASS_MENU , - pattern STYLE_CLASS_MARK , - pattern STYLE_CLASS_LIST_ROW , - pattern STYLE_CLASS_LIST , - pattern STYLE_CLASS_LINKED , - pattern STYLE_CLASS_LEVEL_BAR , - pattern STYLE_CLASS_LEFT , - pattern STYLE_CLASS_LABEL , - pattern STYLE_CLASS_INSERTION_CURSOR , - pattern STYLE_CLASS_INLINE_TOOLBAR , - pattern STYLE_CLASS_INFO , - pattern STYLE_CLASS_IMAGE , - pattern STYLE_CLASS_HORIZONTAL , - pattern STYLE_CLASS_HIGHLIGHT , - pattern STYLE_CLASS_HEADER , - pattern STYLE_CLASS_GRIP , - pattern STYLE_CLASS_FRAME , - pattern STYLE_CLASS_FLAT , - pattern STYLE_CLASS_EXPANDER , - pattern STYLE_CLASS_ERROR , - pattern STYLE_CLASS_ENTRY , - pattern STYLE_CLASS_DOCK , - pattern STYLE_CLASS_DND , - pattern STYLE_CLASS_DIM_LABEL , - pattern STYLE_CLASS_DESTRUCTIVE_ACTION , - pattern STYLE_CLASS_DEFAULT , - pattern STYLE_CLASS_CURSOR_HANDLE , - pattern STYLE_CLASS_CSD , - pattern STYLE_CLASS_CONTEXT_MENU , - pattern STYLE_CLASS_COMBOBOX_ENTRY , - pattern STYLE_CLASS_CHECK , - pattern STYLE_CLASS_CELL , - pattern STYLE_CLASS_CALENDAR , - pattern STYLE_CLASS_BUTTON , - pattern STYLE_CLASS_BOTTOM , - pattern STYLE_CLASS_BACKGROUND , - pattern STYLE_CLASS_ARROW , - pattern STYLE_CLASS_ACCELERATOR , - pattern STOCK_ZOOM_OUT , - pattern STOCK_ZOOM_IN , - pattern STOCK_ZOOM_FIT , - pattern STOCK_ZOOM_100 , - pattern STOCK_YES , - pattern STOCK_UNINDENT , - pattern STOCK_UNDO , - pattern STOCK_UNDERLINE , - pattern STOCK_UNDELETE , - pattern STOCK_STRIKETHROUGH , - pattern STOCK_STOP , - pattern STOCK_SPELL_CHECK , - pattern STOCK_SORT_DESCENDING , - pattern STOCK_SORT_ASCENDING , - pattern STOCK_SELECT_FONT , - pattern STOCK_SELECT_COLOR , - pattern STOCK_SELECT_ALL , - pattern STOCK_SAVE_AS , - pattern STOCK_SAVE , - pattern STOCK_REVERT_TO_SAVED , - pattern STOCK_REMOVE , - pattern STOCK_REFRESH , - pattern STOCK_REDO , - pattern STOCK_QUIT , - pattern STOCK_PROPERTIES , - pattern STOCK_PRINT_WARNING , - pattern STOCK_PRINT_REPORT , - pattern STOCK_PRINT_PREVIEW , - pattern STOCK_PRINT_PAUSED , - pattern STOCK_PRINT_ERROR , - pattern STOCK_PRINT , - pattern STOCK_PREFERENCES , - pattern STOCK_PASTE , - pattern STOCK_PAGE_SETUP , - pattern STOCK_ORIENTATION_REVERSE_PORTRAIT, - pattern STOCK_ORIENTATION_REVERSE_LANDSCAPE, - pattern STOCK_ORIENTATION_PORTRAIT , - pattern STOCK_ORIENTATION_LANDSCAPE , - pattern STOCK_OPEN , - pattern STOCK_OK , - pattern STOCK_NO , - pattern STOCK_NEW , - pattern STOCK_NETWORK , - pattern STOCK_MISSING_IMAGE , - pattern STOCK_MEDIA_STOP , - pattern STOCK_MEDIA_REWIND , - pattern STOCK_MEDIA_RECORD , - pattern STOCK_MEDIA_PREVIOUS , - pattern STOCK_MEDIA_PLAY , - pattern STOCK_MEDIA_PAUSE , - pattern STOCK_MEDIA_NEXT , - pattern STOCK_MEDIA_FORWARD , - pattern STOCK_LEAVE_FULLSCREEN , - pattern STOCK_JUSTIFY_RIGHT , - pattern STOCK_JUSTIFY_LEFT , - pattern STOCK_JUSTIFY_FILL , - pattern STOCK_JUSTIFY_CENTER , - pattern STOCK_JUMP_TO , - pattern STOCK_ITALIC , - pattern STOCK_INFO , - pattern STOCK_INDEX , - pattern STOCK_INDENT , - pattern STOCK_HOME , - pattern STOCK_HELP , - pattern STOCK_HARDDISK , - pattern STOCK_GO_UP , - pattern STOCK_GO_FORWARD , - pattern STOCK_GO_DOWN , - pattern STOCK_GO_BACK , - pattern STOCK_GOTO_TOP , - pattern STOCK_GOTO_LAST , - pattern STOCK_GOTO_FIRST , - pattern STOCK_GOTO_BOTTOM , - pattern STOCK_FULLSCREEN , - pattern STOCK_FLOPPY , - pattern STOCK_FIND_AND_REPLACE , - pattern STOCK_FIND , - pattern STOCK_FILE , - pattern STOCK_EXECUTE , - pattern STOCK_EDIT , - pattern STOCK_DND_MULTIPLE , - pattern STOCK_DND , - pattern STOCK_DISCONNECT , - pattern STOCK_DISCARD , - pattern STOCK_DIRECTORY , - pattern STOCK_DIALOG_WARNING , - pattern STOCK_DIALOG_QUESTION , - pattern STOCK_DIALOG_INFO , - pattern STOCK_DIALOG_ERROR , - pattern STOCK_DIALOG_AUTHENTICATION , - pattern STOCK_DELETE , - pattern STOCK_CUT , - pattern STOCK_COPY , - pattern STOCK_CONVERT , - pattern STOCK_CONNECT , - pattern STOCK_COLOR_PICKER , - pattern STOCK_CLOSE , - pattern STOCK_CLEAR , - pattern STOCK_CDROM , - pattern STOCK_CAPS_LOCK_WARNING , - pattern STOCK_CANCEL , - pattern STOCK_BOLD , - pattern STOCK_APPLY , - pattern STOCK_ADD , - pattern STOCK_ABOUT , - pattern PRIORITY_RESIZE , - pattern PRINT_SETTINGS_WIN32_DRIVER_VERSION, - pattern PRINT_SETTINGS_WIN32_DRIVER_EXTRA, - pattern PRINT_SETTINGS_USE_COLOR , - pattern PRINT_SETTINGS_SCALE , - pattern PRINT_SETTINGS_REVERSE , - pattern PRINT_SETTINGS_RESOLUTION_Y , - pattern PRINT_SETTINGS_RESOLUTION_X , - pattern PRINT_SETTINGS_RESOLUTION , - pattern PRINT_SETTINGS_QUALITY , - pattern PRINT_SETTINGS_PRINT_PAGES , - pattern PRINT_SETTINGS_PRINTER_LPI , - pattern PRINT_SETTINGS_PRINTER , - pattern PRINT_SETTINGS_PAPER_WIDTH , - pattern PRINT_SETTINGS_PAPER_HEIGHT , - pattern PRINT_SETTINGS_PAPER_FORMAT , - pattern PRINT_SETTINGS_PAGE_SET , - pattern PRINT_SETTINGS_PAGE_RANGES , - pattern PRINT_SETTINGS_OUTPUT_URI , - pattern PRINT_SETTINGS_OUTPUT_FILE_FORMAT, - pattern PRINT_SETTINGS_OUTPUT_DIR , - pattern PRINT_SETTINGS_OUTPUT_BIN , - pattern PRINT_SETTINGS_OUTPUT_BASENAME , - pattern PRINT_SETTINGS_ORIENTATION , - pattern PRINT_SETTINGS_N_COPIES , - pattern PRINT_SETTINGS_NUMBER_UP_LAYOUT , - pattern PRINT_SETTINGS_NUMBER_UP , - pattern PRINT_SETTINGS_MEDIA_TYPE , - pattern PRINT_SETTINGS_FINISHINGS , - pattern PRINT_SETTINGS_DUPLEX , - pattern PRINT_SETTINGS_DITHER , - pattern PRINT_SETTINGS_DEFAULT_SOURCE , - pattern PRINT_SETTINGS_COLLATE , - pattern PATH_PRIO_MASK , - pattern PAPER_NAME_LETTER , - pattern PAPER_NAME_LEGAL , - pattern PAPER_NAME_EXECUTIVE , - pattern PAPER_NAME_B5 , - pattern PAPER_NAME_A5 , - pattern PAPER_NAME_A4 , - pattern PAPER_NAME_A3 , - pattern MINOR_VERSION , - pattern MICRO_VERSION , - pattern MAX_COMPOSE_LEN , - pattern MAJOR_VERSION , - pattern LEVEL_BAR_OFFSET_LOW , - pattern LEVEL_BAR_OFFSET_HIGH , - pattern INTERFACE_AGE , - pattern INPUT_ERROR , - 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.Gtk.Types -import GI.Gtk.Callbacks - - -pattern TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID = -2 :: Int32 - - -pattern TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID = -1 :: Int32 - - -pattern TEXT_VIEW_PRIORITY_VALIDATE = 5 :: Int32 - - -pattern STYLE_REGION_TAB = "tab" :: T.Text - - -pattern STYLE_REGION_ROW = "row" :: T.Text - - -pattern STYLE_REGION_COLUMN_HEADER = "column-header" :: T.Text - - -pattern STYLE_REGION_COLUMN = "column" :: T.Text - - -pattern STYLE_PROVIDER_PRIORITY_USER = 800 :: Int32 - - -pattern STYLE_PROVIDER_PRIORITY_THEME = 200 :: Int32 - - -pattern STYLE_PROVIDER_PRIORITY_SETTINGS = 400 :: Int32 - - -pattern STYLE_PROVIDER_PRIORITY_FALLBACK = 1 :: Int32 - - -pattern STYLE_PROVIDER_PRIORITY_APPLICATION = 600 :: Int32 - - -pattern STYLE_PROPERTY_PADDING = "padding" :: T.Text - - -pattern STYLE_PROPERTY_MARGIN = "margin" :: T.Text - - -pattern STYLE_PROPERTY_FONT = "font" :: T.Text - - -pattern STYLE_PROPERTY_COLOR = "color" :: T.Text - - -pattern STYLE_PROPERTY_BORDER_WIDTH = "border-width" :: T.Text - - -pattern STYLE_PROPERTY_BORDER_STYLE = "border-style" :: T.Text - - -pattern STYLE_PROPERTY_BORDER_RADIUS = "border-radius" :: T.Text - - -pattern STYLE_PROPERTY_BORDER_COLOR = "border-color" :: T.Text - - -pattern STYLE_PROPERTY_BACKGROUND_IMAGE = "background-image" :: T.Text - - -pattern STYLE_PROPERTY_BACKGROUND_COLOR = "background-color" :: T.Text - - -pattern STYLE_CLASS_WIDE = "wide" :: T.Text - - -pattern STYLE_CLASS_WARNING = "warning" :: T.Text - - -pattern STYLE_CLASS_VIEW = "view" :: T.Text - - -pattern STYLE_CLASS_VERTICAL = "vertical" :: T.Text - - -pattern STYLE_CLASS_UNDERSHOOT = "undershoot" :: T.Text - - -pattern STYLE_CLASS_TROUGH = "trough" :: T.Text - - -pattern STYLE_CLASS_TOUCH_SELECTION = "touch-selection" :: T.Text - - -pattern STYLE_CLASS_TOP = "top" :: T.Text - - -pattern STYLE_CLASS_TOOLTIP = "tooltip" :: T.Text - - -pattern STYLE_CLASS_TOOLBAR = "toolbar" :: T.Text - - -pattern STYLE_CLASS_TITLEBAR = "titlebar" :: T.Text - - -pattern STYLE_CLASS_TITLE = "title" :: T.Text - - -pattern STYLE_CLASS_SUGGESTED_ACTION = "suggested-action" :: T.Text - - -pattern STYLE_CLASS_SUBTITLE = "subtitle" :: T.Text - - -pattern STYLE_CLASS_STATUSBAR = "statusbar" :: T.Text - - -pattern STYLE_CLASS_SPINNER = "spinner" :: T.Text - - -pattern STYLE_CLASS_SPINBUTTON = "spinbutton" :: T.Text - - -pattern STYLE_CLASS_SLIDER = "slider" :: T.Text - - -pattern STYLE_CLASS_SIDEBAR = "sidebar" :: T.Text - - -pattern STYLE_CLASS_SEPARATOR = "separator" :: T.Text - - -pattern STYLE_CLASS_SCROLLBARS_JUNCTION = "scrollbars-junction" :: T.Text - - -pattern STYLE_CLASS_SCROLLBAR = "scrollbar" :: T.Text - - -pattern STYLE_CLASS_SCALE_HAS_MARKS_BELOW = "scale-has-marks-below" :: T.Text - - -pattern STYLE_CLASS_SCALE_HAS_MARKS_ABOVE = "scale-has-marks-above" :: T.Text - - -pattern STYLE_CLASS_SCALE = "scale" :: T.Text - - -pattern STYLE_CLASS_RUBBERBAND = "rubberband" :: T.Text - - -pattern STYLE_CLASS_RIGHT = "right" :: T.Text - - -pattern STYLE_CLASS_READ_ONLY = "read-only" :: T.Text - - -pattern STYLE_CLASS_RAISED = "raised" :: T.Text - - -pattern STYLE_CLASS_RADIO = "radio" :: T.Text - - -pattern STYLE_CLASS_QUESTION = "question" :: T.Text - - -pattern STYLE_CLASS_PULSE = "pulse" :: T.Text - - -pattern STYLE_CLASS_PROGRESSBAR = "progressbar" :: T.Text - - -pattern STYLE_CLASS_PRIMARY_TOOLBAR = "primary-toolbar" :: T.Text - - -pattern STYLE_CLASS_POPUP = "popup" :: T.Text - - -pattern STYLE_CLASS_POPOVER = "popover" :: T.Text - - -pattern STYLE_CLASS_PAPER = "paper" :: T.Text - - -pattern STYLE_CLASS_PANE_SEPARATOR = "pane-separator" :: T.Text - - -pattern STYLE_CLASS_OVERSHOOT = "overshoot" :: T.Text - - -pattern STYLE_CLASS_OSD = "osd" :: T.Text - - -pattern STYLE_CLASS_NOTEBOOK = "notebook" :: T.Text - - -pattern STYLE_CLASS_NEEDS_ATTENTION = "needs-attention" :: T.Text - - -pattern STYLE_CLASS_MONOSPACE = "monospace" :: T.Text - - -pattern STYLE_CLASS_MESSAGE_DIALOG = "message-dialog" :: T.Text - - -pattern STYLE_CLASS_MENUITEM = "menuitem" :: T.Text - - -pattern STYLE_CLASS_MENUBAR = "menubar" :: T.Text - - -pattern STYLE_CLASS_MENU = "menu" :: T.Text - - -pattern STYLE_CLASS_MARK = "mark" :: T.Text - - -pattern STYLE_CLASS_LIST_ROW = "list-row" :: T.Text - - -pattern STYLE_CLASS_LIST = "list" :: T.Text - - -pattern STYLE_CLASS_LINKED = "linked" :: T.Text - - -pattern STYLE_CLASS_LEVEL_BAR = "level-bar" :: T.Text - - -pattern STYLE_CLASS_LEFT = "left" :: T.Text - - -pattern STYLE_CLASS_LABEL = "label" :: T.Text - - -pattern STYLE_CLASS_INSERTION_CURSOR = "insertion-cursor" :: T.Text - - -pattern STYLE_CLASS_INLINE_TOOLBAR = "inline-toolbar" :: T.Text - - -pattern STYLE_CLASS_INFO = "info" :: T.Text - - -pattern STYLE_CLASS_IMAGE = "image" :: T.Text - - -pattern STYLE_CLASS_HORIZONTAL = "horizontal" :: T.Text - - -pattern STYLE_CLASS_HIGHLIGHT = "highlight" :: T.Text - - -pattern STYLE_CLASS_HEADER = "header" :: T.Text - - -pattern STYLE_CLASS_GRIP = "grip" :: T.Text - - -pattern STYLE_CLASS_FRAME = "frame" :: T.Text - - -pattern STYLE_CLASS_FLAT = "flat" :: T.Text - - -pattern STYLE_CLASS_EXPANDER = "expander" :: T.Text - - -pattern STYLE_CLASS_ERROR = "error" :: T.Text - - -pattern STYLE_CLASS_ENTRY = "entry" :: T.Text - - -pattern STYLE_CLASS_DOCK = "dock" :: T.Text - - -pattern STYLE_CLASS_DND = "dnd" :: T.Text - - -pattern STYLE_CLASS_DIM_LABEL = "dim-label" :: T.Text - - -pattern STYLE_CLASS_DESTRUCTIVE_ACTION = "destructive-action" :: T.Text - - -pattern STYLE_CLASS_DEFAULT = "default" :: T.Text - - -pattern STYLE_CLASS_CURSOR_HANDLE = "cursor-handle" :: T.Text - - -pattern STYLE_CLASS_CSD = "csd" :: T.Text - - -pattern STYLE_CLASS_CONTEXT_MENU = "context-menu" :: T.Text - - -pattern STYLE_CLASS_COMBOBOX_ENTRY = "combobox-entry" :: T.Text - - -pattern STYLE_CLASS_CHECK = "check" :: T.Text - - -pattern STYLE_CLASS_CELL = "cell" :: T.Text - - -pattern STYLE_CLASS_CALENDAR = "calendar" :: T.Text - - -pattern STYLE_CLASS_BUTTON = "button" :: T.Text - - -pattern STYLE_CLASS_BOTTOM = "bottom" :: T.Text - - -pattern STYLE_CLASS_BACKGROUND = "background" :: T.Text - - -pattern STYLE_CLASS_ARROW = "arrow" :: T.Text - - -pattern STYLE_CLASS_ACCELERATOR = "accelerator" :: T.Text - -{-# DEPRECATED STOCK_ZOOM_OUT ["(Since version 3.10)","Use named icon "zoom-out" or the label "Zoom _Out"."]#-} -pattern STOCK_ZOOM_OUT = "gtk-zoom-out" :: T.Text - -{-# DEPRECATED STOCK_ZOOM_IN ["(Since version 3.10)","Use named icon "zoom-in" or the label "Zoom _In"."]#-} -pattern STOCK_ZOOM_IN = "gtk-zoom-in" :: T.Text - -{-# DEPRECATED STOCK_ZOOM_FIT ["(Since version 3.10)","Use named icon "zoom-fit-best" or the label "Best _Fit"."]#-} -pattern STOCK_ZOOM_FIT = "gtk-zoom-fit" :: T.Text - -{-# DEPRECATED STOCK_ZOOM_100 ["(Since version 3.10)","Use named icon "zoom-original" or the label "_Normal Size"."]#-} -pattern STOCK_ZOOM_100 = "gtk-zoom-100" :: T.Text - -{-# DEPRECATED STOCK_YES ["(Since version 3.10)"]#-} -pattern STOCK_YES = "gtk-yes" :: T.Text - -{-# DEPRECATED STOCK_UNINDENT ["(Since version 3.10)","Use named icon "format-indent-less"."]#-} -pattern STOCK_UNINDENT = "gtk-unindent" :: T.Text - -{-# DEPRECATED STOCK_UNDO ["(Since version 3.10)","Use named icon "edit-undo" or the label "_Undo"."]#-} -pattern STOCK_UNDO = "gtk-undo" :: T.Text - -{-# DEPRECATED STOCK_UNDERLINE ["(Since version 3.10)","Use named icon "format-text-underline" or the label "_Underline"."]#-} -pattern STOCK_UNDERLINE = "gtk-underline" :: T.Text - -{-# DEPRECATED STOCK_UNDELETE ["(Since version 3.10)"]#-} -pattern STOCK_UNDELETE = "gtk-undelete" :: T.Text - -{-# DEPRECATED STOCK_STRIKETHROUGH ["(Since version 3.10)","Use named icon "format-text-strikethrough" or the label "_Strikethrough"."]#-} -pattern STOCK_STRIKETHROUGH = "gtk-strikethrough" :: T.Text - -{-# DEPRECATED STOCK_STOP ["(Since version 3.10)","Use named icon "process-stop" or the label "_Stop"."]#-} -pattern STOCK_STOP = "gtk-stop" :: T.Text - -{-# DEPRECATED STOCK_SPELL_CHECK ["(Since version 3.10)","Use named icon "tools-check-spelling"."]#-} -pattern STOCK_SPELL_CHECK = "gtk-spell-check" :: T.Text - -{-# DEPRECATED STOCK_SORT_DESCENDING ["(Since version 3.10)","Use named icon "view-sort-descending"."]#-} -pattern STOCK_SORT_DESCENDING = "gtk-sort-descending" :: T.Text - -{-# DEPRECATED STOCK_SORT_ASCENDING ["(Since version 3.10)","Use named icon "view-sort-ascending"."]#-} -pattern STOCK_SORT_ASCENDING = "gtk-sort-ascending" :: T.Text - -{-# DEPRECATED STOCK_SELECT_FONT ["(Since version 3.10)"]#-} -pattern STOCK_SELECT_FONT = "gtk-select-font" :: T.Text - -{-# DEPRECATED STOCK_SELECT_COLOR ["(Since version 3.10)"]#-} -pattern STOCK_SELECT_COLOR = "gtk-select-color" :: T.Text - -{-# DEPRECATED STOCK_SELECT_ALL ["(Since version 3.10)","Use named icon "edit-select-all" or the label "Select _All"."]#-} -pattern STOCK_SELECT_ALL = "gtk-select-all" :: T.Text - -{-# DEPRECATED STOCK_SAVE_AS ["(Since version 3.10)","Use named icon "document-save-as" or the label "Save _As"."]#-} -pattern STOCK_SAVE_AS = "gtk-save-as" :: T.Text - -{-# DEPRECATED STOCK_SAVE ["(Since version 3.10)","Use named icon "document-save" or the label "_Save"."]#-} -pattern STOCK_SAVE = "gtk-save" :: T.Text - -{-# DEPRECATED STOCK_REVERT_TO_SAVED ["(Since version 3.10)","Use named icon "document-revert" or the label "_Revert"."]#-} -pattern STOCK_REVERT_TO_SAVED = "gtk-revert-to-saved" :: T.Text - -{-# DEPRECATED STOCK_REMOVE ["(Since version 3.10)","Use named icon "list-remove" or the label "_Remove"."]#-} -pattern STOCK_REMOVE = "gtk-remove" :: T.Text - -{-# DEPRECATED STOCK_REFRESH ["(Since version 3.10)","Use named icon "view-refresh" or the label "_Refresh"."]#-} -pattern STOCK_REFRESH = "gtk-refresh" :: T.Text - -{-# DEPRECATED STOCK_REDO ["(Since version 3.10)","Use named icon "edit-redo" or the label "_Redo"."]#-} -pattern STOCK_REDO = "gtk-redo" :: T.Text - -{-# DEPRECATED STOCK_QUIT ["(Since version 3.10)","Use named icon "application-exit" or the label "_Quit"."]#-} -pattern STOCK_QUIT = "gtk-quit" :: T.Text - -{-# DEPRECATED STOCK_PROPERTIES ["(Since version 3.10)","Use named icon "document-properties" or the label "_Properties"."]#-} -pattern STOCK_PROPERTIES = "gtk-properties" :: T.Text - -{-# DEPRECATED STOCK_PRINT_WARNING ["(Since version 3.10)"]#-} -pattern STOCK_PRINT_WARNING = "gtk-print-warning" :: T.Text - -{-# DEPRECATED STOCK_PRINT_REPORT ["(Since version 3.10)"]#-} -pattern STOCK_PRINT_REPORT = "gtk-print-report" :: T.Text - -{-# DEPRECATED STOCK_PRINT_PREVIEW ["(Since version 3.10)","Use label "Pre_view"."]#-} -pattern STOCK_PRINT_PREVIEW = "gtk-print-preview" :: T.Text - -{-# DEPRECATED STOCK_PRINT_PAUSED ["(Since version 3.10)"]#-} -pattern STOCK_PRINT_PAUSED = "gtk-print-paused" :: T.Text - -{-# DEPRECATED STOCK_PRINT_ERROR ["(Since version 3.10)","Use named icon "printer-error"."]#-} -pattern STOCK_PRINT_ERROR = "gtk-print-error" :: T.Text - -{-# DEPRECATED STOCK_PRINT ["(Since version 3.10)","Use named icon "document-print" or the label "_Print"."]#-} -pattern STOCK_PRINT = "gtk-print" :: T.Text - -{-# DEPRECATED STOCK_PREFERENCES ["(Since version 3.10)","Use named icon "preferences-system" or the label "_Preferences"."]#-} -pattern STOCK_PREFERENCES = "gtk-preferences" :: T.Text - -{-# DEPRECATED STOCK_PASTE ["(Since version 3.10)","Use named icon "edit-paste" or the label "_Paste"."]#-} -pattern STOCK_PASTE = "gtk-paste" :: T.Text - -{-# DEPRECATED STOCK_PAGE_SETUP ["(Since version 3.10)","Use named icon "document-page-setup" or the label "Page Set_up"."]#-} -pattern STOCK_PAGE_SETUP = "gtk-page-setup" :: T.Text - -{-# DEPRECATED STOCK_ORIENTATION_REVERSE_PORTRAIT ["(Since version 3.10)"]#-} -pattern STOCK_ORIENTATION_REVERSE_PORTRAIT = "gtk-orientation-reverse-portrait" :: T.Text - -{-# DEPRECATED STOCK_ORIENTATION_REVERSE_LANDSCAPE ["(Since version 3.10)"]#-} -pattern STOCK_ORIENTATION_REVERSE_LANDSCAPE = "gtk-orientation-reverse-landscape" :: T.Text - -{-# DEPRECATED STOCK_ORIENTATION_PORTRAIT ["(Since version 3.10)"]#-} -pattern STOCK_ORIENTATION_PORTRAIT = "gtk-orientation-portrait" :: T.Text - -{-# DEPRECATED STOCK_ORIENTATION_LANDSCAPE ["(Since version 3.10)"]#-} -pattern STOCK_ORIENTATION_LANDSCAPE = "gtk-orientation-landscape" :: T.Text - -{-# DEPRECATED STOCK_OPEN ["(Since version 3.10)","Use named icon "document-open" or the label "_Open"."]#-} -pattern STOCK_OPEN = "gtk-open" :: T.Text - -{-# DEPRECATED STOCK_OK ["(Since version 3.10)","Do not use an icon. Use label "_OK"."]#-} -pattern STOCK_OK = "gtk-ok" :: T.Text - -{-# DEPRECATED STOCK_NO ["(Since version 3.10)"]#-} -pattern STOCK_NO = "gtk-no" :: T.Text - -{-# DEPRECATED STOCK_NEW ["(Since version 3.10)","Use named icon "document-new" or the label "_New"."]#-} -pattern STOCK_NEW = "gtk-new" :: T.Text - -{-# DEPRECATED STOCK_NETWORK ["(Since version 3.10)","Use named icon "network-workgroup"."]#-} -pattern STOCK_NETWORK = "gtk-network" :: T.Text - -{-# DEPRECATED STOCK_MISSING_IMAGE ["(Since version 3.10)","Use named icon "image-missing"."]#-} -pattern STOCK_MISSING_IMAGE = "gtk-missing-image" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_STOP ["(Since version 3.10)","Use named icon "media-playback-stop" or the label "_Stop"."]#-} -pattern STOCK_MEDIA_STOP = "gtk-media-stop" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_REWIND ["(Since version 3.10)","Use named icon "media-seek-backward" or the label "R_ewind"."]#-} -pattern STOCK_MEDIA_REWIND = "gtk-media-rewind" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_RECORD ["(Since version 3.10)","Use named icon "media-record" or the label "_Record"."]#-} -pattern STOCK_MEDIA_RECORD = "gtk-media-record" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_PREVIOUS ["(Since version 3.10)","Use named icon "media-skip-backward" or the label "Pre_vious"."]#-} -pattern STOCK_MEDIA_PREVIOUS = "gtk-media-previous" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_PLAY ["(Since version 3.10)","Use named icon "media-playback-start" or the label "_Play"."]#-} -pattern STOCK_MEDIA_PLAY = "gtk-media-play" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_PAUSE ["(Since version 3.10)","Use named icon "media-playback-pause" or the label "P_ause"."]#-} -pattern STOCK_MEDIA_PAUSE = "gtk-media-pause" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_NEXT ["(Since version 3.10)","Use named icon "media-skip-forward" or the label "_Next"."]#-} -pattern STOCK_MEDIA_NEXT = "gtk-media-next" :: T.Text - -{-# DEPRECATED STOCK_MEDIA_FORWARD ["(Since version 3.10)","Use named icon "media-seek-forward" or the label "_Forward"."]#-} -pattern STOCK_MEDIA_FORWARD = "gtk-media-forward" :: T.Text - -{-# DEPRECATED STOCK_LEAVE_FULLSCREEN ["(Since version 3.10)","Use named icon "view-restore"."]#-} -pattern STOCK_LEAVE_FULLSCREEN = "gtk-leave-fullscreen" :: T.Text - -{-# DEPRECATED STOCK_JUSTIFY_RIGHT ["(Since version 3.10)","Use named icon "format-justify-right"."]#-} -pattern STOCK_JUSTIFY_RIGHT = "gtk-justify-right" :: T.Text - -{-# DEPRECATED STOCK_JUSTIFY_LEFT ["(Since version 3.10)","Use named icon "format-justify-left"."]#-} -pattern STOCK_JUSTIFY_LEFT = "gtk-justify-left" :: T.Text - -{-# DEPRECATED STOCK_JUSTIFY_FILL ["(Since version 3.10)","Use named icon "format-justify-fill"."]#-} -pattern STOCK_JUSTIFY_FILL = "gtk-justify-fill" :: T.Text - -{-# DEPRECATED STOCK_JUSTIFY_CENTER ["(Since version 3.10)","Use named icon "format-justify-center"."]#-} -pattern STOCK_JUSTIFY_CENTER = "gtk-justify-center" :: T.Text - -{-# DEPRECATED STOCK_JUMP_TO ["(Since version 3.10)","Use named icon "go-jump"."]#-} -pattern STOCK_JUMP_TO = "gtk-jump-to" :: T.Text - -{-# DEPRECATED STOCK_ITALIC ["(Since version 3.10)","Use named icon "format-text-italic"."]#-} -pattern STOCK_ITALIC = "gtk-italic" :: T.Text - -{-# DEPRECATED STOCK_INFO ["(Since version 3.10)","Use named icon "dialog-information"."]#-} -pattern STOCK_INFO = "gtk-info" :: T.Text - -{-# DEPRECATED STOCK_INDEX ["(Since version 3.10)"]#-} -pattern STOCK_INDEX = "gtk-index" :: T.Text - -{-# DEPRECATED STOCK_INDENT ["(Since version 3.10)","Use named icon "format-indent-more"."]#-} -pattern STOCK_INDENT = "gtk-indent" :: T.Text - -{-# DEPRECATED STOCK_HOME ["(Since version 3.10)","Use named icon "go-home"."]#-} -pattern STOCK_HOME = "gtk-home" :: T.Text - -{-# DEPRECATED STOCK_HELP ["(Since version 3.10)","Use named icon "help-browser"."]#-} -pattern STOCK_HELP = "gtk-help" :: T.Text - -{-# DEPRECATED STOCK_HARDDISK ["(Since version 3.10)","Use named icon "drive-harddisk"."]#-} -pattern STOCK_HARDDISK = "gtk-harddisk" :: T.Text - -{-# DEPRECATED STOCK_GO_UP ["(Since version 3.10)","Use named icon "go-up"."]#-} -pattern STOCK_GO_UP = "gtk-go-up" :: T.Text - -{-# DEPRECATED STOCK_GO_FORWARD ["(Since version 3.10)","Use named icon "go-next"."]#-} -pattern STOCK_GO_FORWARD = "gtk-go-forward" :: T.Text - -{-# DEPRECATED STOCK_GO_DOWN ["(Since version 3.10)","Use named icon "go-down"."]#-} -pattern STOCK_GO_DOWN = "gtk-go-down" :: T.Text - -{-# DEPRECATED STOCK_GO_BACK ["(Since version 3.10)","Use named icon "go-previous"."]#-} -pattern STOCK_GO_BACK = "gtk-go-back" :: T.Text - -{-# DEPRECATED STOCK_GOTO_TOP ["(Since version 3.10)","Use named icon "go-top"."]#-} -pattern STOCK_GOTO_TOP = "gtk-goto-top" :: T.Text - -{-# DEPRECATED STOCK_GOTO_LAST ["(Since version 3.10)","Use named icon "go-last"."]#-} -pattern STOCK_GOTO_LAST = "gtk-goto-last" :: T.Text - -{-# DEPRECATED STOCK_GOTO_FIRST ["(Since version 3.10)","Use named icon "go-first"."]#-} -pattern STOCK_GOTO_FIRST = "gtk-goto-first" :: T.Text - -{-# DEPRECATED STOCK_GOTO_BOTTOM ["(Since version 3.10)","Use named icon "go-bottom"."]#-} -pattern STOCK_GOTO_BOTTOM = "gtk-goto-bottom" :: T.Text - -{-# DEPRECATED STOCK_FULLSCREEN ["(Since version 3.10)","Use named icon "view-fullscreen"."]#-} -pattern STOCK_FULLSCREEN = "gtk-fullscreen" :: T.Text - -{-# DEPRECATED STOCK_FLOPPY ["(Since version 3.10)"]#-} -pattern STOCK_FLOPPY = "gtk-floppy" :: T.Text - -{-# DEPRECATED STOCK_FIND_AND_REPLACE ["(Since version 3.10)","Use named icon "edit-find-replace"."]#-} -pattern STOCK_FIND_AND_REPLACE = "gtk-find-and-replace" :: T.Text - -{-# DEPRECATED STOCK_FIND ["(Since version 3.10)","Use named icon "edit-find"."]#-} -pattern STOCK_FIND = "gtk-find" :: T.Text - -{-# DEPRECATED STOCK_FILE ["(Since version 3.10)","Use named icon "text-x-generic"."]#-} -pattern STOCK_FILE = "gtk-file" :: T.Text - -{-# DEPRECATED STOCK_EXECUTE ["(Since version 3.10)","Use named icon "system-run"."]#-} -pattern STOCK_EXECUTE = "gtk-execute" :: T.Text - -{-# DEPRECATED STOCK_EDIT ["(Since version 3.10)"]#-} -pattern STOCK_EDIT = "gtk-edit" :: T.Text - -{-# DEPRECATED STOCK_DND_MULTIPLE ["(Since version 3.10)"]#-} -pattern STOCK_DND_MULTIPLE = "gtk-dnd-multiple" :: T.Text - -{-# DEPRECATED STOCK_DND ["(Since version 3.10)"]#-} -pattern STOCK_DND = "gtk-dnd" :: T.Text - -{-# DEPRECATED STOCK_DISCONNECT ["(Since version 3.10)"]#-} -pattern STOCK_DISCONNECT = "gtk-disconnect" :: T.Text - -{-# DEPRECATED STOCK_DISCARD ["(Since version 3.10)"]#-} -pattern STOCK_DISCARD = "gtk-discard" :: T.Text - -{-# DEPRECATED STOCK_DIRECTORY ["(Since version 3.10)","Use named icon "folder"."]#-} -pattern STOCK_DIRECTORY = "gtk-directory" :: T.Text - -{-# DEPRECATED STOCK_DIALOG_WARNING ["(Since version 3.10)","Use named icon "dialog-warning"."]#-} -pattern STOCK_DIALOG_WARNING = "gtk-dialog-warning" :: T.Text - -{-# DEPRECATED STOCK_DIALOG_QUESTION ["(Since version 3.10)","Use named icon "dialog-question"."]#-} -pattern STOCK_DIALOG_QUESTION = "gtk-dialog-question" :: T.Text - -{-# DEPRECATED STOCK_DIALOG_INFO ["(Since version 3.10)","Use named icon "dialog-information"."]#-} -pattern STOCK_DIALOG_INFO = "gtk-dialog-info" :: T.Text - -{-# DEPRECATED STOCK_DIALOG_ERROR ["(Since version 3.10)","Use named icon "dialog-error"."]#-} -pattern STOCK_DIALOG_ERROR = "gtk-dialog-error" :: T.Text - -{-# DEPRECATED STOCK_DIALOG_AUTHENTICATION ["(Since version 3.10)","Use named icon "dialog-password"."]#-} -pattern STOCK_DIALOG_AUTHENTICATION = "gtk-dialog-authentication" :: T.Text - -{-# DEPRECATED STOCK_DELETE ["(Since version 3.10)","Use the named icon "edit-delete" or the label "_Delete"."]#-} -pattern STOCK_DELETE = "gtk-delete" :: T.Text - -{-# DEPRECATED STOCK_CUT ["(Since version 3.10)","Use the named icon "edit-cut" or the label "Cu_t"."]#-} -pattern STOCK_CUT = "gtk-cut" :: T.Text - -{-# DEPRECATED STOCK_COPY ["(Since version 3.10)","Use the named icon "edit-copy" or the label "_Copy"."]#-} -pattern STOCK_COPY = "gtk-copy" :: T.Text - -{-# DEPRECATED STOCK_CONVERT ["(Since version 3.10)"]#-} -pattern STOCK_CONVERT = "gtk-convert" :: T.Text - -{-# DEPRECATED STOCK_CONNECT ["(Since version 3.10)"]#-} -pattern STOCK_CONNECT = "gtk-connect" :: T.Text - -{-# DEPRECATED STOCK_COLOR_PICKER ["(Since version 3.10)"]#-} -pattern STOCK_COLOR_PICKER = "gtk-color-picker" :: T.Text - -{-# DEPRECATED STOCK_CLOSE ["(Since version 3.10)","Use named icon "window-close" or the label "_Close"."]#-} -pattern STOCK_CLOSE = "gtk-close" :: T.Text - -{-# DEPRECATED STOCK_CLEAR ["(Since version 3.10)","Use named icon "edit-clear"."]#-} -pattern STOCK_CLEAR = "gtk-clear" :: T.Text - -{-# DEPRECATED STOCK_CDROM ["(Since version 3.10)","Use named icon "media-optical"."]#-} -pattern STOCK_CDROM = "gtk-cdrom" :: T.Text - -{-# DEPRECATED STOCK_CAPS_LOCK_WARNING ["(Since version 3.10)","Use named icon "dialog-warning-symbolic"."]#-} -pattern STOCK_CAPS_LOCK_WARNING = "gtk-caps-lock-warning" :: T.Text - -{-# DEPRECATED STOCK_CANCEL ["(Since version 3.10)","Do not use an icon. Use label "_Cancel"."]#-} -pattern STOCK_CANCEL = "gtk-cancel" :: T.Text - -{-# DEPRECATED STOCK_BOLD ["(Since version 3.10)","Use named icon "format-text-bold"."]#-} -pattern STOCK_BOLD = "gtk-bold" :: T.Text - -{-# DEPRECATED STOCK_APPLY ["(Since version 3.10)","Do not use an icon. Use label "_Apply"."]#-} -pattern STOCK_APPLY = "gtk-apply" :: T.Text - -{-# DEPRECATED STOCK_ADD ["(Since version 3.10)","Use named icon "list-add" or the label "_Add"."]#-} -pattern STOCK_ADD = "gtk-add" :: T.Text - -{-# DEPRECATED STOCK_ABOUT ["(Since version 3.10)","Use named icon "help-about" or the label "_About"."]#-} -pattern STOCK_ABOUT = "gtk-about" :: T.Text - - -pattern PRIORITY_RESIZE = 10 :: Int32 - - -pattern PRINT_SETTINGS_WIN32_DRIVER_VERSION = "win32-driver-version" :: T.Text - - -pattern PRINT_SETTINGS_WIN32_DRIVER_EXTRA = "win32-driver-extra" :: T.Text - - -pattern PRINT_SETTINGS_USE_COLOR = "use-color" :: T.Text - - -pattern PRINT_SETTINGS_SCALE = "scale" :: T.Text - - -pattern PRINT_SETTINGS_REVERSE = "reverse" :: T.Text - - -pattern PRINT_SETTINGS_RESOLUTION_Y = "resolution-y" :: T.Text - - -pattern PRINT_SETTINGS_RESOLUTION_X = "resolution-x" :: T.Text - - -pattern PRINT_SETTINGS_RESOLUTION = "resolution" :: T.Text - - -pattern PRINT_SETTINGS_QUALITY = "quality" :: T.Text - - -pattern PRINT_SETTINGS_PRINT_PAGES = "print-pages" :: T.Text - - -pattern PRINT_SETTINGS_PRINTER_LPI = "printer-lpi" :: T.Text - - -pattern PRINT_SETTINGS_PRINTER = "printer" :: T.Text - - -pattern PRINT_SETTINGS_PAPER_WIDTH = "paper-width" :: T.Text - - -pattern PRINT_SETTINGS_PAPER_HEIGHT = "paper-height" :: T.Text - - -pattern PRINT_SETTINGS_PAPER_FORMAT = "paper-format" :: T.Text - - -pattern PRINT_SETTINGS_PAGE_SET = "page-set" :: T.Text - - -pattern PRINT_SETTINGS_PAGE_RANGES = "page-ranges" :: T.Text - - -pattern PRINT_SETTINGS_OUTPUT_URI = "output-uri" :: T.Text - - -pattern PRINT_SETTINGS_OUTPUT_FILE_FORMAT = "output-file-format" :: T.Text - - -pattern PRINT_SETTINGS_OUTPUT_DIR = "output-dir" :: T.Text - - -pattern PRINT_SETTINGS_OUTPUT_BIN = "output-bin" :: T.Text - - -pattern PRINT_SETTINGS_OUTPUT_BASENAME = "output-basename" :: T.Text - - -pattern PRINT_SETTINGS_ORIENTATION = "orientation" :: T.Text - - -pattern PRINT_SETTINGS_N_COPIES = "n-copies" :: T.Text - - -pattern PRINT_SETTINGS_NUMBER_UP_LAYOUT = "number-up-layout" :: T.Text - - -pattern PRINT_SETTINGS_NUMBER_UP = "number-up" :: T.Text - - -pattern PRINT_SETTINGS_MEDIA_TYPE = "media-type" :: T.Text - - -pattern PRINT_SETTINGS_FINISHINGS = "finishings" :: T.Text - - -pattern PRINT_SETTINGS_DUPLEX = "duplex" :: T.Text - - -pattern PRINT_SETTINGS_DITHER = "dither" :: T.Text - - -pattern PRINT_SETTINGS_DEFAULT_SOURCE = "default-source" :: T.Text - - -pattern PRINT_SETTINGS_COLLATE = "collate" :: T.Text - - -pattern PATH_PRIO_MASK = 15 :: Int32 - - -pattern PAPER_NAME_LETTER = "na_letter" :: T.Text - - -pattern PAPER_NAME_LEGAL = "na_legal" :: T.Text - - -pattern PAPER_NAME_EXECUTIVE = "na_executive" :: T.Text - - -pattern PAPER_NAME_B5 = "iso_b5" :: T.Text - - -pattern PAPER_NAME_A5 = "iso_a5" :: T.Text - - -pattern PAPER_NAME_A4 = "iso_a4" :: T.Text - - -pattern PAPER_NAME_A3 = "iso_a3" :: T.Text - - -pattern MINOR_VERSION = 18 :: Int32 - - -pattern MICRO_VERSION = 9 :: Int32 - - -pattern MAX_COMPOSE_LEN = 7 :: Int32 - - -pattern MAJOR_VERSION = 3 :: Int32 - - -pattern LEVEL_BAR_OFFSET_LOW = "low" :: T.Text - - -pattern LEVEL_BAR_OFFSET_HIGH = "high" :: T.Text - - -pattern INTERFACE_AGE = 9 :: Int32 - - -pattern INPUT_ERROR = -1 :: Int32 - - -pattern BINARY_AGE = 1809 :: Int32 - - diff --git a/GI/Gtk/Enums.hs b/GI/Gtk/Enums.hs deleted file mode 100644 --- a/GI/Gtk/Enums.hs +++ /dev/null @@ -1,3296 +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.Gtk.Enums - ( - catchRecentManagerError , - handleRecentManagerError , - catchRecentChooserError , - handleRecentChooserError , - catchPrintError , - handlePrintError , - catchIconThemeError , - handleIconThemeError , - catchFileChooserError , - handleFileChooserError , - catchCssProviderError , - handleCssProviderError , - catchBuilderError , - handleBuilderError , - --- * Exported types - WrapMode(..) , - WindowType(..) , - WindowPosition(..) , - WidgetHelpType(..) , - Unit(..) , - TreeViewGridLines(..) , - TreeViewDropPosition(..) , - TreeViewColumnSizing(..) , - ToolbarStyle(..) , - ToolbarSpaceStyle(..) , - TextWindowType(..) , - TextViewLayer(..) , - TextExtendSelection(..) , - TextDirection(..) , - TextBufferTargetInfo(..) , - StateType(..) , - StackTransitionType(..) , - SpinType(..) , - SpinButtonUpdatePolicy(..) , - SortType(..) , - SizeRequestMode(..) , - SizeGroupMode(..) , - ShadowType(..) , - SensitivityType(..) , - SelectionMode(..) , - ScrollablePolicy(..) , - ScrollType(..) , - ScrollStep(..) , - RevealerTransitionType(..) , - ResponseType(..) , - ResizeMode(..) , - ReliefStyle(..) , - RecentSortType(..) , - RecentManagerError(..) , - RecentChooserError(..) , - RcTokenType(..) , - PropagationPhase(..) , - PrintStatus(..) , - PrintQuality(..) , - PrintPages(..) , - PrintOperationResult(..) , - PrintOperationAction(..) , - PrintError(..) , - PrintDuplex(..) , - PositionType(..) , - PolicyType(..) , - PathType(..) , - PathPriorityType(..) , - PanDirection(..) , - PageSet(..) , - PageOrientation(..) , - PackType(..) , - PackDirection(..) , - Orientation(..) , - NumberUpLayout(..) , - NotebookTab(..) , - MovementStep(..) , - MessageType(..) , - MenuDirectionType(..) , - License(..) , - LevelBarMode(..) , - Justification(..) , - InputPurpose(..) , - ImageType(..) , - IconViewDropPosition(..) , - IconThemeError(..) , - IconSize(..) , - IMStatusStyle(..) , - IMPreeditStyle(..) , - FileChooserError(..) , - FileChooserConfirmation(..) , - FileChooserAction(..) , - ExpanderStyle(..) , - EventSequenceState(..) , - EntryIconPosition(..) , - DragResult(..) , - DirectionType(..) , - DeleteType(..) , - CssSectionType(..) , - CssProviderError(..) , - CornerType(..) , - CellRendererMode(..) , - CellRendererAccelMode(..) , - ButtonsType(..) , - ButtonRole(..) , - ButtonBoxStyle(..) , - BuilderError(..) , - BorderStyle(..) , - BaselinePosition(..) , - AssistantPageType(..) , - ArrowType(..) , - ArrowPlacement(..) , - Align(..) , - - - ) 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 WrapMode - -data WrapMode = - WrapModeNone - | WrapModeChar - | WrapModeWord - | WrapModeWordChar - | AnotherWrapMode Int - deriving (Show, Eq) - -instance Enum WrapMode where - fromEnum WrapModeNone = 0 - fromEnum WrapModeChar = 1 - fromEnum WrapModeWord = 2 - fromEnum WrapModeWordChar = 3 - fromEnum (AnotherWrapMode k) = k - - toEnum 0 = WrapModeNone - toEnum 1 = WrapModeChar - toEnum 2 = WrapModeWord - toEnum 3 = WrapModeWordChar - toEnum k = AnotherWrapMode k - -foreign import ccall "gtk_wrap_mode_get_type" c_gtk_wrap_mode_get_type :: - IO GType - -instance BoxedEnum WrapMode where - boxedEnumType _ = c_gtk_wrap_mode_get_type - --- Enum WindowType - -data WindowType = - WindowTypeToplevel - | WindowTypePopup - | AnotherWindowType Int - deriving (Show, Eq) - -instance Enum WindowType where - fromEnum WindowTypeToplevel = 0 - fromEnum WindowTypePopup = 1 - fromEnum (AnotherWindowType k) = k - - toEnum 0 = WindowTypeToplevel - toEnum 1 = WindowTypePopup - toEnum k = AnotherWindowType k - -foreign import ccall "gtk_window_type_get_type" c_gtk_window_type_get_type :: - IO GType - -instance BoxedEnum WindowType where - boxedEnumType _ = c_gtk_window_type_get_type - --- Enum WindowPosition - -data WindowPosition = - WindowPositionNone - | WindowPositionCenter - | WindowPositionMouse - | WindowPositionCenterAlways - | WindowPositionCenterOnParent - | AnotherWindowPosition Int - deriving (Show, Eq) - -instance Enum WindowPosition where - fromEnum WindowPositionNone = 0 - fromEnum WindowPositionCenter = 1 - fromEnum WindowPositionMouse = 2 - fromEnum WindowPositionCenterAlways = 3 - fromEnum WindowPositionCenterOnParent = 4 - fromEnum (AnotherWindowPosition k) = k - - toEnum 0 = WindowPositionNone - toEnum 1 = WindowPositionCenter - toEnum 2 = WindowPositionMouse - toEnum 3 = WindowPositionCenterAlways - toEnum 4 = WindowPositionCenterOnParent - toEnum k = AnotherWindowPosition k - -foreign import ccall "gtk_window_position_get_type" c_gtk_window_position_get_type :: - IO GType - -instance BoxedEnum WindowPosition where - boxedEnumType _ = c_gtk_window_position_get_type - --- Enum WidgetHelpType - -data WidgetHelpType = - WidgetHelpTypeTooltip - | WidgetHelpTypeWhatsThis - | AnotherWidgetHelpType Int - deriving (Show, Eq) - -instance Enum WidgetHelpType where - fromEnum WidgetHelpTypeTooltip = 0 - fromEnum WidgetHelpTypeWhatsThis = 1 - fromEnum (AnotherWidgetHelpType k) = k - - toEnum 0 = WidgetHelpTypeTooltip - toEnum 1 = WidgetHelpTypeWhatsThis - toEnum k = AnotherWidgetHelpType k - -foreign import ccall "gtk_widget_help_type_get_type" c_gtk_widget_help_type_get_type :: - IO GType - -instance BoxedEnum WidgetHelpType where - boxedEnumType _ = c_gtk_widget_help_type_get_type - --- Enum Unit - -data Unit = - UnitNone - | UnitPoints - | UnitInch - | UnitMm - | AnotherUnit Int - deriving (Show, Eq) - -instance Enum Unit where - fromEnum UnitNone = 0 - fromEnum UnitPoints = 1 - fromEnum UnitInch = 2 - fromEnum UnitMm = 3 - fromEnum (AnotherUnit k) = k - - toEnum 0 = UnitNone - toEnum 1 = UnitPoints - toEnum 2 = UnitInch - toEnum 3 = UnitMm - toEnum k = AnotherUnit k - -foreign import ccall "gtk_unit_get_type" c_gtk_unit_get_type :: - IO GType - -instance BoxedEnum Unit where - boxedEnumType _ = c_gtk_unit_get_type - --- Enum TreeViewGridLines - -data TreeViewGridLines = - TreeViewGridLinesNone - | TreeViewGridLinesHorizontal - | TreeViewGridLinesVertical - | TreeViewGridLinesBoth - | AnotherTreeViewGridLines Int - deriving (Show, Eq) - -instance Enum TreeViewGridLines where - fromEnum TreeViewGridLinesNone = 0 - fromEnum TreeViewGridLinesHorizontal = 1 - fromEnum TreeViewGridLinesVertical = 2 - fromEnum TreeViewGridLinesBoth = 3 - fromEnum (AnotherTreeViewGridLines k) = k - - toEnum 0 = TreeViewGridLinesNone - toEnum 1 = TreeViewGridLinesHorizontal - toEnum 2 = TreeViewGridLinesVertical - toEnum 3 = TreeViewGridLinesBoth - toEnum k = AnotherTreeViewGridLines k - -foreign import ccall "gtk_tree_view_grid_lines_get_type" c_gtk_tree_view_grid_lines_get_type :: - IO GType - -instance BoxedEnum TreeViewGridLines where - boxedEnumType _ = c_gtk_tree_view_grid_lines_get_type - --- Enum TreeViewDropPosition - -data TreeViewDropPosition = - TreeViewDropPositionBefore - | TreeViewDropPositionAfter - | TreeViewDropPositionIntoOrBefore - | TreeViewDropPositionIntoOrAfter - | AnotherTreeViewDropPosition Int - deriving (Show, Eq) - -instance Enum TreeViewDropPosition where - fromEnum TreeViewDropPositionBefore = 0 - fromEnum TreeViewDropPositionAfter = 1 - fromEnum TreeViewDropPositionIntoOrBefore = 2 - fromEnum TreeViewDropPositionIntoOrAfter = 3 - fromEnum (AnotherTreeViewDropPosition k) = k - - toEnum 0 = TreeViewDropPositionBefore - toEnum 1 = TreeViewDropPositionAfter - toEnum 2 = TreeViewDropPositionIntoOrBefore - toEnum 3 = TreeViewDropPositionIntoOrAfter - toEnum k = AnotherTreeViewDropPosition k - -foreign import ccall "gtk_tree_view_drop_position_get_type" c_gtk_tree_view_drop_position_get_type :: - IO GType - -instance BoxedEnum TreeViewDropPosition where - boxedEnumType _ = c_gtk_tree_view_drop_position_get_type - --- Enum TreeViewColumnSizing - -data TreeViewColumnSizing = - TreeViewColumnSizingGrowOnly - | TreeViewColumnSizingAutosize - | TreeViewColumnSizingFixed - | AnotherTreeViewColumnSizing Int - deriving (Show, Eq) - -instance Enum TreeViewColumnSizing where - fromEnum TreeViewColumnSizingGrowOnly = 0 - fromEnum TreeViewColumnSizingAutosize = 1 - fromEnum TreeViewColumnSizingFixed = 2 - fromEnum (AnotherTreeViewColumnSizing k) = k - - toEnum 0 = TreeViewColumnSizingGrowOnly - toEnum 1 = TreeViewColumnSizingAutosize - toEnum 2 = TreeViewColumnSizingFixed - toEnum k = AnotherTreeViewColumnSizing k - -foreign import ccall "gtk_tree_view_column_sizing_get_type" c_gtk_tree_view_column_sizing_get_type :: - IO GType - -instance BoxedEnum TreeViewColumnSizing where - boxedEnumType _ = c_gtk_tree_view_column_sizing_get_type - --- Enum ToolbarStyle - -data ToolbarStyle = - ToolbarStyleIcons - | ToolbarStyleText - | ToolbarStyleBoth - | ToolbarStyleBothHoriz - | AnotherToolbarStyle Int - deriving (Show, Eq) - -instance Enum ToolbarStyle where - fromEnum ToolbarStyleIcons = 0 - fromEnum ToolbarStyleText = 1 - fromEnum ToolbarStyleBoth = 2 - fromEnum ToolbarStyleBothHoriz = 3 - fromEnum (AnotherToolbarStyle k) = k - - toEnum 0 = ToolbarStyleIcons - toEnum 1 = ToolbarStyleText - toEnum 2 = ToolbarStyleBoth - toEnum 3 = ToolbarStyleBothHoriz - toEnum k = AnotherToolbarStyle k - -foreign import ccall "gtk_toolbar_style_get_type" c_gtk_toolbar_style_get_type :: - IO GType - -instance BoxedEnum ToolbarStyle where - boxedEnumType _ = c_gtk_toolbar_style_get_type - --- Enum ToolbarSpaceStyle - -data ToolbarSpaceStyle = - ToolbarSpaceStyleEmpty - | ToolbarSpaceStyleLine - | AnotherToolbarSpaceStyle Int - deriving (Show, Eq) - -instance Enum ToolbarSpaceStyle where - fromEnum ToolbarSpaceStyleEmpty = 0 - fromEnum ToolbarSpaceStyleLine = 1 - fromEnum (AnotherToolbarSpaceStyle k) = k - - toEnum 0 = ToolbarSpaceStyleEmpty - toEnum 1 = ToolbarSpaceStyleLine - toEnum k = AnotherToolbarSpaceStyle k - -foreign import ccall "gtk_toolbar_space_style_get_type" c_gtk_toolbar_space_style_get_type :: - IO GType - -instance BoxedEnum ToolbarSpaceStyle where - boxedEnumType _ = c_gtk_toolbar_space_style_get_type - --- Enum TextWindowType - -data TextWindowType = - TextWindowTypePrivate - | TextWindowTypeWidget - | TextWindowTypeText - | TextWindowTypeLeft - | TextWindowTypeRight - | TextWindowTypeTop - | TextWindowTypeBottom - | AnotherTextWindowType Int - deriving (Show, Eq) - -instance Enum TextWindowType where - fromEnum TextWindowTypePrivate = 0 - fromEnum TextWindowTypeWidget = 1 - fromEnum TextWindowTypeText = 2 - fromEnum TextWindowTypeLeft = 3 - fromEnum TextWindowTypeRight = 4 - fromEnum TextWindowTypeTop = 5 - fromEnum TextWindowTypeBottom = 6 - fromEnum (AnotherTextWindowType k) = k - - toEnum 0 = TextWindowTypePrivate - toEnum 1 = TextWindowTypeWidget - toEnum 2 = TextWindowTypeText - toEnum 3 = TextWindowTypeLeft - toEnum 4 = TextWindowTypeRight - toEnum 5 = TextWindowTypeTop - toEnum 6 = TextWindowTypeBottom - toEnum k = AnotherTextWindowType k - -foreign import ccall "gtk_text_window_type_get_type" c_gtk_text_window_type_get_type :: - IO GType - -instance BoxedEnum TextWindowType where - boxedEnumType _ = c_gtk_text_window_type_get_type - --- Enum TextViewLayer - -data TextViewLayer = - TextViewLayerBelow - | TextViewLayerAbove - | AnotherTextViewLayer Int - deriving (Show, Eq) - -instance Enum TextViewLayer where - fromEnum TextViewLayerBelow = 0 - fromEnum TextViewLayerAbove = 1 - fromEnum (AnotherTextViewLayer k) = k - - toEnum 0 = TextViewLayerBelow - toEnum 1 = TextViewLayerAbove - toEnum k = AnotherTextViewLayer k - -foreign import ccall "gtk_text_view_layer_get_type" c_gtk_text_view_layer_get_type :: - IO GType - -instance BoxedEnum TextViewLayer where - boxedEnumType _ = c_gtk_text_view_layer_get_type - --- Enum TextExtendSelection - -data TextExtendSelection = - TextExtendSelectionWord - | TextExtendSelectionLine - | AnotherTextExtendSelection Int - deriving (Show, Eq) - -instance Enum TextExtendSelection where - fromEnum TextExtendSelectionWord = 0 - fromEnum TextExtendSelectionLine = 1 - fromEnum (AnotherTextExtendSelection k) = k - - toEnum 0 = TextExtendSelectionWord - toEnum 1 = TextExtendSelectionLine - toEnum k = AnotherTextExtendSelection k - -foreign import ccall "gtk_text_extend_selection_get_type" c_gtk_text_extend_selection_get_type :: - IO GType - -instance BoxedEnum TextExtendSelection where - boxedEnumType _ = c_gtk_text_extend_selection_get_type - --- Enum TextDirection - -data TextDirection = - TextDirectionNone - | TextDirectionLtr - | TextDirectionRtl - | AnotherTextDirection Int - deriving (Show, Eq) - -instance Enum TextDirection where - fromEnum TextDirectionNone = 0 - fromEnum TextDirectionLtr = 1 - fromEnum TextDirectionRtl = 2 - fromEnum (AnotherTextDirection k) = k - - toEnum 0 = TextDirectionNone - toEnum 1 = TextDirectionLtr - toEnum 2 = TextDirectionRtl - toEnum k = AnotherTextDirection k - -foreign import ccall "gtk_text_direction_get_type" c_gtk_text_direction_get_type :: - IO GType - -instance BoxedEnum TextDirection where - boxedEnumType _ = c_gtk_text_direction_get_type - --- Enum TextBufferTargetInfo - -data TextBufferTargetInfo = - TextBufferTargetInfoBufferContents - | TextBufferTargetInfoRichText - | TextBufferTargetInfoText - | AnotherTextBufferTargetInfo Int - deriving (Show, Eq) - -instance Enum TextBufferTargetInfo where - fromEnum TextBufferTargetInfoBufferContents = -1 - fromEnum TextBufferTargetInfoRichText = -2 - fromEnum TextBufferTargetInfoText = -3 - fromEnum (AnotherTextBufferTargetInfo k) = k - - toEnum -3 = TextBufferTargetInfoText - toEnum -2 = TextBufferTargetInfoRichText - toEnum -1 = TextBufferTargetInfoBufferContents - toEnum k = AnotherTextBufferTargetInfo k - -foreign import ccall "gtk_text_buffer_target_info_get_type" c_gtk_text_buffer_target_info_get_type :: - IO GType - -instance BoxedEnum TextBufferTargetInfo where - boxedEnumType _ = c_gtk_text_buffer_target_info_get_type - --- Enum StateType -{-# DEPRECATED StateType ["(Since version 3.14)","All APIs that are using this enumeration have been deprecated"," in favor of alternatives using #GtkStateFlags."]#-} -data StateType = - StateTypeNormal - | StateTypeActive - | StateTypePrelight - | StateTypeSelected - | StateTypeInsensitive - | StateTypeInconsistent - | StateTypeFocused - | AnotherStateType Int - deriving (Show, Eq) - -instance Enum StateType where - fromEnum StateTypeNormal = 0 - fromEnum StateTypeActive = 1 - fromEnum StateTypePrelight = 2 - fromEnum StateTypeSelected = 3 - fromEnum StateTypeInsensitive = 4 - fromEnum StateTypeInconsistent = 5 - fromEnum StateTypeFocused = 6 - fromEnum (AnotherStateType k) = k - - toEnum 0 = StateTypeNormal - toEnum 1 = StateTypeActive - toEnum 2 = StateTypePrelight - toEnum 3 = StateTypeSelected - toEnum 4 = StateTypeInsensitive - toEnum 5 = StateTypeInconsistent - toEnum 6 = StateTypeFocused - toEnum k = AnotherStateType k - -foreign import ccall "gtk_state_type_get_type" c_gtk_state_type_get_type :: - IO GType - -instance BoxedEnum StateType where - boxedEnumType _ = c_gtk_state_type_get_type - --- Enum StackTransitionType - -data StackTransitionType = - StackTransitionTypeNone - | StackTransitionTypeCrossfade - | StackTransitionTypeSlideRight - | StackTransitionTypeSlideLeft - | StackTransitionTypeSlideUp - | StackTransitionTypeSlideDown - | StackTransitionTypeSlideLeftRight - | StackTransitionTypeSlideUpDown - | StackTransitionTypeOverUp - | StackTransitionTypeOverDown - | StackTransitionTypeOverLeft - | StackTransitionTypeOverRight - | StackTransitionTypeUnderUp - | StackTransitionTypeUnderDown - | StackTransitionTypeUnderLeft - | StackTransitionTypeUnderRight - | StackTransitionTypeOverUpDown - | StackTransitionTypeOverDownUp - | StackTransitionTypeOverLeftRight - | StackTransitionTypeOverRightLeft - | AnotherStackTransitionType Int - deriving (Show, Eq) - -instance Enum StackTransitionType where - fromEnum StackTransitionTypeNone = 0 - fromEnum StackTransitionTypeCrossfade = 1 - fromEnum StackTransitionTypeSlideRight = 2 - fromEnum StackTransitionTypeSlideLeft = 3 - fromEnum StackTransitionTypeSlideUp = 4 - fromEnum StackTransitionTypeSlideDown = 5 - fromEnum StackTransitionTypeSlideLeftRight = 6 - fromEnum StackTransitionTypeSlideUpDown = 7 - fromEnum StackTransitionTypeOverUp = 8 - fromEnum StackTransitionTypeOverDown = 9 - fromEnum StackTransitionTypeOverLeft = 10 - fromEnum StackTransitionTypeOverRight = 11 - fromEnum StackTransitionTypeUnderUp = 12 - fromEnum StackTransitionTypeUnderDown = 13 - fromEnum StackTransitionTypeUnderLeft = 14 - fromEnum StackTransitionTypeUnderRight = 15 - fromEnum StackTransitionTypeOverUpDown = 16 - fromEnum StackTransitionTypeOverDownUp = 17 - fromEnum StackTransitionTypeOverLeftRight = 18 - fromEnum StackTransitionTypeOverRightLeft = 19 - fromEnum (AnotherStackTransitionType k) = k - - toEnum 0 = StackTransitionTypeNone - toEnum 1 = StackTransitionTypeCrossfade - toEnum 2 = StackTransitionTypeSlideRight - toEnum 3 = StackTransitionTypeSlideLeft - toEnum 4 = StackTransitionTypeSlideUp - toEnum 5 = StackTransitionTypeSlideDown - toEnum 6 = StackTransitionTypeSlideLeftRight - toEnum 7 = StackTransitionTypeSlideUpDown - toEnum 8 = StackTransitionTypeOverUp - toEnum 9 = StackTransitionTypeOverDown - toEnum 10 = StackTransitionTypeOverLeft - toEnum 11 = StackTransitionTypeOverRight - toEnum 12 = StackTransitionTypeUnderUp - toEnum 13 = StackTransitionTypeUnderDown - toEnum 14 = StackTransitionTypeUnderLeft - toEnum 15 = StackTransitionTypeUnderRight - toEnum 16 = StackTransitionTypeOverUpDown - toEnum 17 = StackTransitionTypeOverDownUp - toEnum 18 = StackTransitionTypeOverLeftRight - toEnum 19 = StackTransitionTypeOverRightLeft - toEnum k = AnotherStackTransitionType k - -foreign import ccall "gtk_stack_transition_type_get_type" c_gtk_stack_transition_type_get_type :: - IO GType - -instance BoxedEnum StackTransitionType where - boxedEnumType _ = c_gtk_stack_transition_type_get_type - --- Enum SpinType - -data SpinType = - SpinTypeStepForward - | SpinTypeStepBackward - | SpinTypePageForward - | SpinTypePageBackward - | SpinTypeHome - | SpinTypeEnd - | SpinTypeUserDefined - | AnotherSpinType Int - deriving (Show, Eq) - -instance Enum SpinType where - fromEnum SpinTypeStepForward = 0 - fromEnum SpinTypeStepBackward = 1 - fromEnum SpinTypePageForward = 2 - fromEnum SpinTypePageBackward = 3 - fromEnum SpinTypeHome = 4 - fromEnum SpinTypeEnd = 5 - fromEnum SpinTypeUserDefined = 6 - fromEnum (AnotherSpinType k) = k - - toEnum 0 = SpinTypeStepForward - toEnum 1 = SpinTypeStepBackward - toEnum 2 = SpinTypePageForward - toEnum 3 = SpinTypePageBackward - toEnum 4 = SpinTypeHome - toEnum 5 = SpinTypeEnd - toEnum 6 = SpinTypeUserDefined - toEnum k = AnotherSpinType k - -foreign import ccall "gtk_spin_type_get_type" c_gtk_spin_type_get_type :: - IO GType - -instance BoxedEnum SpinType where - boxedEnumType _ = c_gtk_spin_type_get_type - --- Enum SpinButtonUpdatePolicy - -data SpinButtonUpdatePolicy = - SpinButtonUpdatePolicyAlways - | SpinButtonUpdatePolicyIfValid - | AnotherSpinButtonUpdatePolicy Int - deriving (Show, Eq) - -instance Enum SpinButtonUpdatePolicy where - fromEnum SpinButtonUpdatePolicyAlways = 0 - fromEnum SpinButtonUpdatePolicyIfValid = 1 - fromEnum (AnotherSpinButtonUpdatePolicy k) = k - - toEnum 0 = SpinButtonUpdatePolicyAlways - toEnum 1 = SpinButtonUpdatePolicyIfValid - toEnum k = AnotherSpinButtonUpdatePolicy k - -foreign import ccall "gtk_spin_button_update_policy_get_type" c_gtk_spin_button_update_policy_get_type :: - IO GType - -instance BoxedEnum SpinButtonUpdatePolicy where - boxedEnumType _ = c_gtk_spin_button_update_policy_get_type - --- Enum SortType - -data SortType = - SortTypeAscending - | SortTypeDescending - | AnotherSortType Int - deriving (Show, Eq) - -instance Enum SortType where - fromEnum SortTypeAscending = 0 - fromEnum SortTypeDescending = 1 - fromEnum (AnotherSortType k) = k - - toEnum 0 = SortTypeAscending - toEnum 1 = SortTypeDescending - toEnum k = AnotherSortType k - -foreign import ccall "gtk_sort_type_get_type" c_gtk_sort_type_get_type :: - IO GType - -instance BoxedEnum SortType where - boxedEnumType _ = c_gtk_sort_type_get_type - --- Enum SizeRequestMode - -data SizeRequestMode = - SizeRequestModeHeightForWidth - | SizeRequestModeWidthForHeight - | SizeRequestModeConstantSize - | AnotherSizeRequestMode Int - deriving (Show, Eq) - -instance Enum SizeRequestMode where - fromEnum SizeRequestModeHeightForWidth = 0 - fromEnum SizeRequestModeWidthForHeight = 1 - fromEnum SizeRequestModeConstantSize = 2 - fromEnum (AnotherSizeRequestMode k) = k - - toEnum 0 = SizeRequestModeHeightForWidth - toEnum 1 = SizeRequestModeWidthForHeight - toEnum 2 = SizeRequestModeConstantSize - toEnum k = AnotherSizeRequestMode k - -foreign import ccall "gtk_size_request_mode_get_type" c_gtk_size_request_mode_get_type :: - IO GType - -instance BoxedEnum SizeRequestMode where - boxedEnumType _ = c_gtk_size_request_mode_get_type - --- Enum SizeGroupMode - -data SizeGroupMode = - SizeGroupModeNone - | SizeGroupModeHorizontal - | SizeGroupModeVertical - | SizeGroupModeBoth - | AnotherSizeGroupMode Int - deriving (Show, Eq) - -instance Enum SizeGroupMode where - fromEnum SizeGroupModeNone = 0 - fromEnum SizeGroupModeHorizontal = 1 - fromEnum SizeGroupModeVertical = 2 - fromEnum SizeGroupModeBoth = 3 - fromEnum (AnotherSizeGroupMode k) = k - - toEnum 0 = SizeGroupModeNone - toEnum 1 = SizeGroupModeHorizontal - toEnum 2 = SizeGroupModeVertical - toEnum 3 = SizeGroupModeBoth - toEnum k = AnotherSizeGroupMode k - -foreign import ccall "gtk_size_group_mode_get_type" c_gtk_size_group_mode_get_type :: - IO GType - -instance BoxedEnum SizeGroupMode where - boxedEnumType _ = c_gtk_size_group_mode_get_type - --- Enum ShadowType - -data ShadowType = - ShadowTypeNone - | ShadowTypeIn - | ShadowTypeOut - | ShadowTypeEtchedIn - | ShadowTypeEtchedOut - | AnotherShadowType Int - deriving (Show, Eq) - -instance Enum ShadowType where - fromEnum ShadowTypeNone = 0 - fromEnum ShadowTypeIn = 1 - fromEnum ShadowTypeOut = 2 - fromEnum ShadowTypeEtchedIn = 3 - fromEnum ShadowTypeEtchedOut = 4 - fromEnum (AnotherShadowType k) = k - - toEnum 0 = ShadowTypeNone - toEnum 1 = ShadowTypeIn - toEnum 2 = ShadowTypeOut - toEnum 3 = ShadowTypeEtchedIn - toEnum 4 = ShadowTypeEtchedOut - toEnum k = AnotherShadowType k - -foreign import ccall "gtk_shadow_type_get_type" c_gtk_shadow_type_get_type :: - IO GType - -instance BoxedEnum ShadowType where - boxedEnumType _ = c_gtk_shadow_type_get_type - --- Enum SensitivityType - -data SensitivityType = - SensitivityTypeAuto - | SensitivityTypeOn - | SensitivityTypeOff - | AnotherSensitivityType Int - deriving (Show, Eq) - -instance Enum SensitivityType where - fromEnum SensitivityTypeAuto = 0 - fromEnum SensitivityTypeOn = 1 - fromEnum SensitivityTypeOff = 2 - fromEnum (AnotherSensitivityType k) = k - - toEnum 0 = SensitivityTypeAuto - toEnum 1 = SensitivityTypeOn - toEnum 2 = SensitivityTypeOff - toEnum k = AnotherSensitivityType k - -foreign import ccall "gtk_sensitivity_type_get_type" c_gtk_sensitivity_type_get_type :: - IO GType - -instance BoxedEnum SensitivityType where - boxedEnumType _ = c_gtk_sensitivity_type_get_type - --- Enum SelectionMode - -data SelectionMode = - SelectionModeNone - | SelectionModeSingle - | SelectionModeBrowse - | SelectionModeMultiple - | AnotherSelectionMode Int - deriving (Show, Eq) - -instance Enum SelectionMode where - fromEnum SelectionModeNone = 0 - fromEnum SelectionModeSingle = 1 - fromEnum SelectionModeBrowse = 2 - fromEnum SelectionModeMultiple = 3 - fromEnum (AnotherSelectionMode k) = k - - toEnum 0 = SelectionModeNone - toEnum 1 = SelectionModeSingle - toEnum 2 = SelectionModeBrowse - toEnum 3 = SelectionModeMultiple - toEnum k = AnotherSelectionMode k - -foreign import ccall "gtk_selection_mode_get_type" c_gtk_selection_mode_get_type :: - IO GType - -instance BoxedEnum SelectionMode where - boxedEnumType _ = c_gtk_selection_mode_get_type - --- Enum ScrollablePolicy - -data ScrollablePolicy = - ScrollablePolicyMinimum - | ScrollablePolicyNatural - | AnotherScrollablePolicy Int - deriving (Show, Eq) - -instance Enum ScrollablePolicy where - fromEnum ScrollablePolicyMinimum = 0 - fromEnum ScrollablePolicyNatural = 1 - fromEnum (AnotherScrollablePolicy k) = k - - toEnum 0 = ScrollablePolicyMinimum - toEnum 1 = ScrollablePolicyNatural - toEnum k = AnotherScrollablePolicy k - -foreign import ccall "gtk_scrollable_policy_get_type" c_gtk_scrollable_policy_get_type :: - IO GType - -instance BoxedEnum ScrollablePolicy where - boxedEnumType _ = c_gtk_scrollable_policy_get_type - --- Enum ScrollType - -data ScrollType = - ScrollTypeNone - | ScrollTypeJump - | ScrollTypeStepBackward - | ScrollTypeStepForward - | ScrollTypePageBackward - | ScrollTypePageForward - | ScrollTypeStepUp - | ScrollTypeStepDown - | ScrollTypePageUp - | ScrollTypePageDown - | ScrollTypeStepLeft - | ScrollTypeStepRight - | ScrollTypePageLeft - | ScrollTypePageRight - | ScrollTypeStart - | ScrollTypeEnd - | AnotherScrollType Int - deriving (Show, Eq) - -instance Enum ScrollType where - fromEnum ScrollTypeNone = 0 - fromEnum ScrollTypeJump = 1 - fromEnum ScrollTypeStepBackward = 2 - fromEnum ScrollTypeStepForward = 3 - fromEnum ScrollTypePageBackward = 4 - fromEnum ScrollTypePageForward = 5 - fromEnum ScrollTypeStepUp = 6 - fromEnum ScrollTypeStepDown = 7 - fromEnum ScrollTypePageUp = 8 - fromEnum ScrollTypePageDown = 9 - fromEnum ScrollTypeStepLeft = 10 - fromEnum ScrollTypeStepRight = 11 - fromEnum ScrollTypePageLeft = 12 - fromEnum ScrollTypePageRight = 13 - fromEnum ScrollTypeStart = 14 - fromEnum ScrollTypeEnd = 15 - fromEnum (AnotherScrollType k) = k - - toEnum 0 = ScrollTypeNone - toEnum 1 = ScrollTypeJump - toEnum 2 = ScrollTypeStepBackward - toEnum 3 = ScrollTypeStepForward - toEnum 4 = ScrollTypePageBackward - toEnum 5 = ScrollTypePageForward - toEnum 6 = ScrollTypeStepUp - toEnum 7 = ScrollTypeStepDown - toEnum 8 = ScrollTypePageUp - toEnum 9 = ScrollTypePageDown - toEnum 10 = ScrollTypeStepLeft - toEnum 11 = ScrollTypeStepRight - toEnum 12 = ScrollTypePageLeft - toEnum 13 = ScrollTypePageRight - toEnum 14 = ScrollTypeStart - toEnum 15 = ScrollTypeEnd - toEnum k = AnotherScrollType k - -foreign import ccall "gtk_scroll_type_get_type" c_gtk_scroll_type_get_type :: - IO GType - -instance BoxedEnum ScrollType where - boxedEnumType _ = c_gtk_scroll_type_get_type - --- Enum ScrollStep - -data ScrollStep = - ScrollStepSteps - | ScrollStepPages - | ScrollStepEnds - | ScrollStepHorizontalSteps - | ScrollStepHorizontalPages - | ScrollStepHorizontalEnds - | AnotherScrollStep Int - deriving (Show, Eq) - -instance Enum ScrollStep where - fromEnum ScrollStepSteps = 0 - fromEnum ScrollStepPages = 1 - fromEnum ScrollStepEnds = 2 - fromEnum ScrollStepHorizontalSteps = 3 - fromEnum ScrollStepHorizontalPages = 4 - fromEnum ScrollStepHorizontalEnds = 5 - fromEnum (AnotherScrollStep k) = k - - toEnum 0 = ScrollStepSteps - toEnum 1 = ScrollStepPages - toEnum 2 = ScrollStepEnds - toEnum 3 = ScrollStepHorizontalSteps - toEnum 4 = ScrollStepHorizontalPages - toEnum 5 = ScrollStepHorizontalEnds - toEnum k = AnotherScrollStep k - -foreign import ccall "gtk_scroll_step_get_type" c_gtk_scroll_step_get_type :: - IO GType - -instance BoxedEnum ScrollStep where - boxedEnumType _ = c_gtk_scroll_step_get_type - --- Enum RevealerTransitionType - -data RevealerTransitionType = - RevealerTransitionTypeNone - | RevealerTransitionTypeCrossfade - | RevealerTransitionTypeSlideRight - | RevealerTransitionTypeSlideLeft - | RevealerTransitionTypeSlideUp - | RevealerTransitionTypeSlideDown - | AnotherRevealerTransitionType Int - deriving (Show, Eq) - -instance Enum RevealerTransitionType where - fromEnum RevealerTransitionTypeNone = 0 - fromEnum RevealerTransitionTypeCrossfade = 1 - fromEnum RevealerTransitionTypeSlideRight = 2 - fromEnum RevealerTransitionTypeSlideLeft = 3 - fromEnum RevealerTransitionTypeSlideUp = 4 - fromEnum RevealerTransitionTypeSlideDown = 5 - fromEnum (AnotherRevealerTransitionType k) = k - - toEnum 0 = RevealerTransitionTypeNone - toEnum 1 = RevealerTransitionTypeCrossfade - toEnum 2 = RevealerTransitionTypeSlideRight - toEnum 3 = RevealerTransitionTypeSlideLeft - toEnum 4 = RevealerTransitionTypeSlideUp - toEnum 5 = RevealerTransitionTypeSlideDown - toEnum k = AnotherRevealerTransitionType k - -foreign import ccall "gtk_revealer_transition_type_get_type" c_gtk_revealer_transition_type_get_type :: - IO GType - -instance BoxedEnum RevealerTransitionType where - boxedEnumType _ = c_gtk_revealer_transition_type_get_type - --- Enum ResponseType - -data ResponseType = - ResponseTypeNone - | ResponseTypeReject - | ResponseTypeAccept - | ResponseTypeDeleteEvent - | ResponseTypeOk - | ResponseTypeCancel - | ResponseTypeClose - | ResponseTypeYes - | ResponseTypeNo - | ResponseTypeApply - | ResponseTypeHelp - | AnotherResponseType Int - deriving (Show, Eq) - -instance Enum ResponseType where - fromEnum ResponseTypeNone = -1 - fromEnum ResponseTypeReject = -2 - fromEnum ResponseTypeAccept = -3 - fromEnum ResponseTypeDeleteEvent = -4 - fromEnum ResponseTypeOk = -5 - fromEnum ResponseTypeCancel = -6 - fromEnum ResponseTypeClose = -7 - fromEnum ResponseTypeYes = -8 - fromEnum ResponseTypeNo = -9 - fromEnum ResponseTypeApply = -10 - fromEnum ResponseTypeHelp = -11 - fromEnum (AnotherResponseType k) = k - - toEnum -11 = ResponseTypeHelp - toEnum -10 = ResponseTypeApply - toEnum -9 = ResponseTypeNo - toEnum -8 = ResponseTypeYes - toEnum -7 = ResponseTypeClose - toEnum -6 = ResponseTypeCancel - toEnum -5 = ResponseTypeOk - toEnum -4 = ResponseTypeDeleteEvent - toEnum -3 = ResponseTypeAccept - toEnum -2 = ResponseTypeReject - toEnum -1 = ResponseTypeNone - toEnum k = AnotherResponseType k - -foreign import ccall "gtk_response_type_get_type" c_gtk_response_type_get_type :: - IO GType - -instance BoxedEnum ResponseType where - boxedEnumType _ = c_gtk_response_type_get_type - --- Enum ResizeMode - -data ResizeMode = - ResizeModeParent - | ResizeModeQueue - | ResizeModeImmediate - | AnotherResizeMode Int - deriving (Show, Eq) - -instance Enum ResizeMode where - fromEnum ResizeModeParent = 0 - fromEnum ResizeModeQueue = 1 - fromEnum ResizeModeImmediate = 2 - fromEnum (AnotherResizeMode k) = k - - toEnum 0 = ResizeModeParent - toEnum 1 = ResizeModeQueue - toEnum 2 = ResizeModeImmediate - toEnum k = AnotherResizeMode k - -foreign import ccall "gtk_resize_mode_get_type" c_gtk_resize_mode_get_type :: - IO GType - -instance BoxedEnum ResizeMode where - boxedEnumType _ = c_gtk_resize_mode_get_type - --- Enum ReliefStyle - -data ReliefStyle = - ReliefStyleNormal - | ReliefStyleHalf - | ReliefStyleNone - | AnotherReliefStyle Int - deriving (Show, Eq) - -instance Enum ReliefStyle where - fromEnum ReliefStyleNormal = 0 - fromEnum ReliefStyleHalf = 1 - fromEnum ReliefStyleNone = 2 - fromEnum (AnotherReliefStyle k) = k - - toEnum 0 = ReliefStyleNormal - toEnum 1 = ReliefStyleHalf - toEnum 2 = ReliefStyleNone - toEnum k = AnotherReliefStyle k - -foreign import ccall "gtk_relief_style_get_type" c_gtk_relief_style_get_type :: - IO GType - -instance BoxedEnum ReliefStyle where - boxedEnumType _ = c_gtk_relief_style_get_type - --- Enum RecentSortType - -data RecentSortType = - RecentSortTypeNone - | RecentSortTypeMru - | RecentSortTypeLru - | RecentSortTypeCustom - | AnotherRecentSortType Int - deriving (Show, Eq) - -instance Enum RecentSortType where - fromEnum RecentSortTypeNone = 0 - fromEnum RecentSortTypeMru = 1 - fromEnum RecentSortTypeLru = 2 - fromEnum RecentSortTypeCustom = 3 - fromEnum (AnotherRecentSortType k) = k - - toEnum 0 = RecentSortTypeNone - toEnum 1 = RecentSortTypeMru - toEnum 2 = RecentSortTypeLru - toEnum 3 = RecentSortTypeCustom - toEnum k = AnotherRecentSortType k - -foreign import ccall "gtk_recent_sort_type_get_type" c_gtk_recent_sort_type_get_type :: - IO GType - -instance BoxedEnum RecentSortType where - boxedEnumType _ = c_gtk_recent_sort_type_get_type - --- Enum RecentManagerError - -data RecentManagerError = - RecentManagerErrorNotFound - | RecentManagerErrorInvalidUri - | RecentManagerErrorInvalidEncoding - | RecentManagerErrorNotRegistered - | RecentManagerErrorRead - | RecentManagerErrorWrite - | RecentManagerErrorUnknown - | AnotherRecentManagerError Int - deriving (Show, Eq) - -instance Enum RecentManagerError where - fromEnum RecentManagerErrorNotFound = 0 - fromEnum RecentManagerErrorInvalidUri = 1 - fromEnum RecentManagerErrorInvalidEncoding = 2 - fromEnum RecentManagerErrorNotRegistered = 3 - fromEnum RecentManagerErrorRead = 4 - fromEnum RecentManagerErrorWrite = 5 - fromEnum RecentManagerErrorUnknown = 6 - fromEnum (AnotherRecentManagerError k) = k - - toEnum 0 = RecentManagerErrorNotFound - toEnum 1 = RecentManagerErrorInvalidUri - toEnum 2 = RecentManagerErrorInvalidEncoding - toEnum 3 = RecentManagerErrorNotRegistered - toEnum 4 = RecentManagerErrorRead - toEnum 5 = RecentManagerErrorWrite - toEnum 6 = RecentManagerErrorUnknown - toEnum k = AnotherRecentManagerError k - -instance GErrorClass RecentManagerError where - gerrorClassDomain _ = "gtk-recent-manager-error-quark" - -catchRecentManagerError :: - IO a -> - (RecentManagerError -> GErrorMessage -> IO a) -> - IO a -catchRecentManagerError = catchGErrorJustDomain - -handleRecentManagerError :: - (RecentManagerError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleRecentManagerError = handleGErrorJustDomain - -foreign import ccall "gtk_recent_manager_error_get_type" c_gtk_recent_manager_error_get_type :: - IO GType - -instance BoxedEnum RecentManagerError where - boxedEnumType _ = c_gtk_recent_manager_error_get_type - --- Enum RecentChooserError - -data RecentChooserError = - RecentChooserErrorNotFound - | RecentChooserErrorInvalidUri - | AnotherRecentChooserError Int - deriving (Show, Eq) - -instance Enum RecentChooserError where - fromEnum RecentChooserErrorNotFound = 0 - fromEnum RecentChooserErrorInvalidUri = 1 - fromEnum (AnotherRecentChooserError k) = k - - toEnum 0 = RecentChooserErrorNotFound - toEnum 1 = RecentChooserErrorInvalidUri - toEnum k = AnotherRecentChooserError k - -instance GErrorClass RecentChooserError where - gerrorClassDomain _ = "gtk-recent-chooser-error-quark" - -catchRecentChooserError :: - IO a -> - (RecentChooserError -> GErrorMessage -> IO a) -> - IO a -catchRecentChooserError = catchGErrorJustDomain - -handleRecentChooserError :: - (RecentChooserError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleRecentChooserError = handleGErrorJustDomain - -foreign import ccall "gtk_recent_chooser_error_get_type" c_gtk_recent_chooser_error_get_type :: - IO GType - -instance BoxedEnum RecentChooserError where - boxedEnumType _ = c_gtk_recent_chooser_error_get_type - --- Enum RcTokenType -{-# DEPRECATED RcTokenType ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -data RcTokenType = - RcTokenTypeInvalid - | RcTokenTypeInclude - | RcTokenTypeNormal - | RcTokenTypeActive - | RcTokenTypePrelight - | RcTokenTypeSelected - | RcTokenTypeInsensitive - | RcTokenTypeFg - | RcTokenTypeBg - | RcTokenTypeText - | RcTokenTypeBase - | RcTokenTypeXthickness - | RcTokenTypeYthickness - | RcTokenTypeFont - | RcTokenTypeFontset - | RcTokenTypeFontName - | RcTokenTypeBgPixmap - | RcTokenTypePixmapPath - | RcTokenTypeStyle - | RcTokenTypeBinding - | RcTokenTypeBind - | RcTokenTypeWidget - | RcTokenTypeWidgetClass - | RcTokenTypeClass - | RcTokenTypeLowest - | RcTokenTypeGtk - | RcTokenTypeApplication - | RcTokenTypeTheme - | RcTokenTypeRc - | RcTokenTypeHighest - | RcTokenTypeEngine - | RcTokenTypeModulePath - | RcTokenTypeImModulePath - | RcTokenTypeImModuleFile - | RcTokenTypeStock - | RcTokenTypeLtr - | RcTokenTypeRtl - | RcTokenTypeColor - | RcTokenTypeUnbind - | RcTokenTypeLast - | AnotherRcTokenType Int - deriving (Show, Eq) - -instance Enum RcTokenType where - fromEnum RcTokenTypeInvalid = 270 - fromEnum RcTokenTypeInclude = 271 - fromEnum RcTokenTypeNormal = 272 - fromEnum RcTokenTypeActive = 273 - fromEnum RcTokenTypePrelight = 274 - fromEnum RcTokenTypeSelected = 275 - fromEnum RcTokenTypeInsensitive = 276 - fromEnum RcTokenTypeFg = 277 - fromEnum RcTokenTypeBg = 278 - fromEnum RcTokenTypeText = 279 - fromEnum RcTokenTypeBase = 280 - fromEnum RcTokenTypeXthickness = 281 - fromEnum RcTokenTypeYthickness = 282 - fromEnum RcTokenTypeFont = 283 - fromEnum RcTokenTypeFontset = 284 - fromEnum RcTokenTypeFontName = 285 - fromEnum RcTokenTypeBgPixmap = 286 - fromEnum RcTokenTypePixmapPath = 287 - fromEnum RcTokenTypeStyle = 288 - fromEnum RcTokenTypeBinding = 289 - fromEnum RcTokenTypeBind = 290 - fromEnum RcTokenTypeWidget = 291 - fromEnum RcTokenTypeWidgetClass = 292 - fromEnum RcTokenTypeClass = 293 - fromEnum RcTokenTypeLowest = 294 - fromEnum RcTokenTypeGtk = 295 - fromEnum RcTokenTypeApplication = 296 - fromEnum RcTokenTypeTheme = 297 - fromEnum RcTokenTypeRc = 298 - fromEnum RcTokenTypeHighest = 299 - fromEnum RcTokenTypeEngine = 300 - fromEnum RcTokenTypeModulePath = 301 - fromEnum RcTokenTypeImModulePath = 302 - fromEnum RcTokenTypeImModuleFile = 303 - fromEnum RcTokenTypeStock = 304 - fromEnum RcTokenTypeLtr = 305 - fromEnum RcTokenTypeRtl = 306 - fromEnum RcTokenTypeColor = 307 - fromEnum RcTokenTypeUnbind = 308 - fromEnum RcTokenTypeLast = 309 - fromEnum (AnotherRcTokenType k) = k - - toEnum 270 = RcTokenTypeInvalid - toEnum 271 = RcTokenTypeInclude - toEnum 272 = RcTokenTypeNormal - toEnum 273 = RcTokenTypeActive - toEnum 274 = RcTokenTypePrelight - toEnum 275 = RcTokenTypeSelected - toEnum 276 = RcTokenTypeInsensitive - toEnum 277 = RcTokenTypeFg - toEnum 278 = RcTokenTypeBg - toEnum 279 = RcTokenTypeText - toEnum 280 = RcTokenTypeBase - toEnum 281 = RcTokenTypeXthickness - toEnum 282 = RcTokenTypeYthickness - toEnum 283 = RcTokenTypeFont - toEnum 284 = RcTokenTypeFontset - toEnum 285 = RcTokenTypeFontName - toEnum 286 = RcTokenTypeBgPixmap - toEnum 287 = RcTokenTypePixmapPath - toEnum 288 = RcTokenTypeStyle - toEnum 289 = RcTokenTypeBinding - toEnum 290 = RcTokenTypeBind - toEnum 291 = RcTokenTypeWidget - toEnum 292 = RcTokenTypeWidgetClass - toEnum 293 = RcTokenTypeClass - toEnum 294 = RcTokenTypeLowest - toEnum 295 = RcTokenTypeGtk - toEnum 296 = RcTokenTypeApplication - toEnum 297 = RcTokenTypeTheme - toEnum 298 = RcTokenTypeRc - toEnum 299 = RcTokenTypeHighest - toEnum 300 = RcTokenTypeEngine - toEnum 301 = RcTokenTypeModulePath - toEnum 302 = RcTokenTypeImModulePath - toEnum 303 = RcTokenTypeImModuleFile - toEnum 304 = RcTokenTypeStock - toEnum 305 = RcTokenTypeLtr - toEnum 306 = RcTokenTypeRtl - toEnum 307 = RcTokenTypeColor - toEnum 308 = RcTokenTypeUnbind - toEnum 309 = RcTokenTypeLast - toEnum k = AnotherRcTokenType k - -foreign import ccall "gtk_rc_token_type_get_type" c_gtk_rc_token_type_get_type :: - IO GType - -instance BoxedEnum RcTokenType where - boxedEnumType _ = c_gtk_rc_token_type_get_type - --- Enum PropagationPhase - -data PropagationPhase = - PropagationPhaseNone - | PropagationPhaseCapture - | PropagationPhaseBubble - | PropagationPhaseTarget - | AnotherPropagationPhase Int - deriving (Show, Eq) - -instance Enum PropagationPhase where - fromEnum PropagationPhaseNone = 0 - fromEnum PropagationPhaseCapture = 1 - fromEnum PropagationPhaseBubble = 2 - fromEnum PropagationPhaseTarget = 3 - fromEnum (AnotherPropagationPhase k) = k - - toEnum 0 = PropagationPhaseNone - toEnum 1 = PropagationPhaseCapture - toEnum 2 = PropagationPhaseBubble - toEnum 3 = PropagationPhaseTarget - toEnum k = AnotherPropagationPhase k - -foreign import ccall "gtk_propagation_phase_get_type" c_gtk_propagation_phase_get_type :: - IO GType - -instance BoxedEnum PropagationPhase where - boxedEnumType _ = c_gtk_propagation_phase_get_type - --- Enum PrintStatus - -data PrintStatus = - PrintStatusInitial - | PrintStatusPreparing - | PrintStatusGeneratingData - | PrintStatusSendingData - | PrintStatusPending - | PrintStatusPendingIssue - | PrintStatusPrinting - | PrintStatusFinished - | PrintStatusFinishedAborted - | AnotherPrintStatus Int - deriving (Show, Eq) - -instance Enum PrintStatus where - fromEnum PrintStatusInitial = 0 - fromEnum PrintStatusPreparing = 1 - fromEnum PrintStatusGeneratingData = 2 - fromEnum PrintStatusSendingData = 3 - fromEnum PrintStatusPending = 4 - fromEnum PrintStatusPendingIssue = 5 - fromEnum PrintStatusPrinting = 6 - fromEnum PrintStatusFinished = 7 - fromEnum PrintStatusFinishedAborted = 8 - fromEnum (AnotherPrintStatus k) = k - - toEnum 0 = PrintStatusInitial - toEnum 1 = PrintStatusPreparing - toEnum 2 = PrintStatusGeneratingData - toEnum 3 = PrintStatusSendingData - toEnum 4 = PrintStatusPending - toEnum 5 = PrintStatusPendingIssue - toEnum 6 = PrintStatusPrinting - toEnum 7 = PrintStatusFinished - toEnum 8 = PrintStatusFinishedAborted - toEnum k = AnotherPrintStatus k - -foreign import ccall "gtk_print_status_get_type" c_gtk_print_status_get_type :: - IO GType - -instance BoxedEnum PrintStatus where - boxedEnumType _ = c_gtk_print_status_get_type - --- Enum PrintQuality - -data PrintQuality = - PrintQualityLow - | PrintQualityNormal - | PrintQualityHigh - | PrintQualityDraft - | AnotherPrintQuality Int - deriving (Show, Eq) - -instance Enum PrintQuality where - fromEnum PrintQualityLow = 0 - fromEnum PrintQualityNormal = 1 - fromEnum PrintQualityHigh = 2 - fromEnum PrintQualityDraft = 3 - fromEnum (AnotherPrintQuality k) = k - - toEnum 0 = PrintQualityLow - toEnum 1 = PrintQualityNormal - toEnum 2 = PrintQualityHigh - toEnum 3 = PrintQualityDraft - toEnum k = AnotherPrintQuality k - -foreign import ccall "gtk_print_quality_get_type" c_gtk_print_quality_get_type :: - IO GType - -instance BoxedEnum PrintQuality where - boxedEnumType _ = c_gtk_print_quality_get_type - --- Enum PrintPages - -data PrintPages = - PrintPagesAll - | PrintPagesCurrent - | PrintPagesRanges - | PrintPagesSelection - | AnotherPrintPages Int - deriving (Show, Eq) - -instance Enum PrintPages where - fromEnum PrintPagesAll = 0 - fromEnum PrintPagesCurrent = 1 - fromEnum PrintPagesRanges = 2 - fromEnum PrintPagesSelection = 3 - fromEnum (AnotherPrintPages k) = k - - toEnum 0 = PrintPagesAll - toEnum 1 = PrintPagesCurrent - toEnum 2 = PrintPagesRanges - toEnum 3 = PrintPagesSelection - toEnum k = AnotherPrintPages k - -foreign import ccall "gtk_print_pages_get_type" c_gtk_print_pages_get_type :: - IO GType - -instance BoxedEnum PrintPages where - boxedEnumType _ = c_gtk_print_pages_get_type - --- Enum PrintOperationResult - -data PrintOperationResult = - PrintOperationResultError - | PrintOperationResultApply - | PrintOperationResultCancel - | PrintOperationResultInProgress - | AnotherPrintOperationResult Int - deriving (Show, Eq) - -instance Enum PrintOperationResult where - fromEnum PrintOperationResultError = 0 - fromEnum PrintOperationResultApply = 1 - fromEnum PrintOperationResultCancel = 2 - fromEnum PrintOperationResultInProgress = 3 - fromEnum (AnotherPrintOperationResult k) = k - - toEnum 0 = PrintOperationResultError - toEnum 1 = PrintOperationResultApply - toEnum 2 = PrintOperationResultCancel - toEnum 3 = PrintOperationResultInProgress - toEnum k = AnotherPrintOperationResult k - -foreign import ccall "gtk_print_operation_result_get_type" c_gtk_print_operation_result_get_type :: - IO GType - -instance BoxedEnum PrintOperationResult where - boxedEnumType _ = c_gtk_print_operation_result_get_type - --- Enum PrintOperationAction - -data PrintOperationAction = - PrintOperationActionPrintDialog - | PrintOperationActionPrint - | PrintOperationActionPreview - | PrintOperationActionExport - | AnotherPrintOperationAction Int - deriving (Show, Eq) - -instance Enum PrintOperationAction where - fromEnum PrintOperationActionPrintDialog = 0 - fromEnum PrintOperationActionPrint = 1 - fromEnum PrintOperationActionPreview = 2 - fromEnum PrintOperationActionExport = 3 - fromEnum (AnotherPrintOperationAction k) = k - - toEnum 0 = PrintOperationActionPrintDialog - toEnum 1 = PrintOperationActionPrint - toEnum 2 = PrintOperationActionPreview - toEnum 3 = PrintOperationActionExport - toEnum k = AnotherPrintOperationAction k - -foreign import ccall "gtk_print_operation_action_get_type" c_gtk_print_operation_action_get_type :: - IO GType - -instance BoxedEnum PrintOperationAction where - boxedEnumType _ = c_gtk_print_operation_action_get_type - --- Enum PrintError - -data PrintError = - PrintErrorGeneral - | PrintErrorInternalError - | PrintErrorNomem - | PrintErrorInvalidFile - | AnotherPrintError Int - deriving (Show, Eq) - -instance Enum PrintError where - fromEnum PrintErrorGeneral = 0 - fromEnum PrintErrorInternalError = 1 - fromEnum PrintErrorNomem = 2 - fromEnum PrintErrorInvalidFile = 3 - fromEnum (AnotherPrintError k) = k - - toEnum 0 = PrintErrorGeneral - toEnum 1 = PrintErrorInternalError - toEnum 2 = PrintErrorNomem - toEnum 3 = PrintErrorInvalidFile - toEnum k = AnotherPrintError k - -instance GErrorClass PrintError where - gerrorClassDomain _ = "gtk-print-error-quark" - -catchPrintError :: - IO a -> - (PrintError -> GErrorMessage -> IO a) -> - IO a -catchPrintError = catchGErrorJustDomain - -handlePrintError :: - (PrintError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePrintError = handleGErrorJustDomain - -foreign import ccall "gtk_print_error_get_type" c_gtk_print_error_get_type :: - IO GType - -instance BoxedEnum PrintError where - boxedEnumType _ = c_gtk_print_error_get_type - --- Enum PrintDuplex - -data PrintDuplex = - PrintDuplexSimplex - | PrintDuplexHorizontal - | PrintDuplexVertical - | AnotherPrintDuplex Int - deriving (Show, Eq) - -instance Enum PrintDuplex where - fromEnum PrintDuplexSimplex = 0 - fromEnum PrintDuplexHorizontal = 1 - fromEnum PrintDuplexVertical = 2 - fromEnum (AnotherPrintDuplex k) = k - - toEnum 0 = PrintDuplexSimplex - toEnum 1 = PrintDuplexHorizontal - toEnum 2 = PrintDuplexVertical - toEnum k = AnotherPrintDuplex k - -foreign import ccall "gtk_print_duplex_get_type" c_gtk_print_duplex_get_type :: - IO GType - -instance BoxedEnum PrintDuplex where - boxedEnumType _ = c_gtk_print_duplex_get_type - --- Enum PositionType - -data PositionType = - PositionTypeLeft - | PositionTypeRight - | PositionTypeTop - | PositionTypeBottom - | AnotherPositionType Int - deriving (Show, Eq) - -instance Enum PositionType where - fromEnum PositionTypeLeft = 0 - fromEnum PositionTypeRight = 1 - fromEnum PositionTypeTop = 2 - fromEnum PositionTypeBottom = 3 - fromEnum (AnotherPositionType k) = k - - toEnum 0 = PositionTypeLeft - toEnum 1 = PositionTypeRight - toEnum 2 = PositionTypeTop - toEnum 3 = PositionTypeBottom - toEnum k = AnotherPositionType k - -foreign import ccall "gtk_position_type_get_type" c_gtk_position_type_get_type :: - IO GType - -instance BoxedEnum PositionType where - boxedEnumType _ = c_gtk_position_type_get_type - --- Enum PolicyType - -data PolicyType = - PolicyTypeAlways - | PolicyTypeAutomatic - | PolicyTypeNever - | PolicyTypeExternal - | AnotherPolicyType Int - deriving (Show, Eq) - -instance Enum PolicyType where - fromEnum PolicyTypeAlways = 0 - fromEnum PolicyTypeAutomatic = 1 - fromEnum PolicyTypeNever = 2 - fromEnum PolicyTypeExternal = 3 - fromEnum (AnotherPolicyType k) = k - - toEnum 0 = PolicyTypeAlways - toEnum 1 = PolicyTypeAutomatic - toEnum 2 = PolicyTypeNever - toEnum 3 = PolicyTypeExternal - toEnum k = AnotherPolicyType k - -foreign import ccall "gtk_policy_type_get_type" c_gtk_policy_type_get_type :: - IO GType - -instance BoxedEnum PolicyType where - boxedEnumType _ = c_gtk_policy_type_get_type - --- Enum PathType -{-# DEPRECATED PathType ["(Since version 3.0)"]#-} -data PathType = - PathTypeWidget - | PathTypeWidgetClass - | PathTypeClass - | AnotherPathType Int - deriving (Show, Eq) - -instance Enum PathType where - fromEnum PathTypeWidget = 0 - fromEnum PathTypeWidgetClass = 1 - fromEnum PathTypeClass = 2 - fromEnum (AnotherPathType k) = k - - toEnum 0 = PathTypeWidget - toEnum 1 = PathTypeWidgetClass - toEnum 2 = PathTypeClass - toEnum k = AnotherPathType k - -foreign import ccall "gtk_path_type_get_type" c_gtk_path_type_get_type :: - IO GType - -instance BoxedEnum PathType where - boxedEnumType _ = c_gtk_path_type_get_type - --- Enum PathPriorityType -{-# DEPRECATED PathPriorityType ["(Since version 3.0)"]#-} -data PathPriorityType = - PathPriorityTypeLowest - | PathPriorityTypeGtk - | PathPriorityTypeApplication - | PathPriorityTypeTheme - | PathPriorityTypeRc - | PathPriorityTypeHighest - | AnotherPathPriorityType Int - deriving (Show, Eq) - -instance Enum PathPriorityType where - fromEnum PathPriorityTypeLowest = 0 - fromEnum PathPriorityTypeGtk = 4 - fromEnum PathPriorityTypeApplication = 8 - fromEnum PathPriorityTypeTheme = 10 - fromEnum PathPriorityTypeRc = 12 - fromEnum PathPriorityTypeHighest = 15 - fromEnum (AnotherPathPriorityType k) = k - - toEnum 0 = PathPriorityTypeLowest - toEnum 4 = PathPriorityTypeGtk - toEnum 8 = PathPriorityTypeApplication - toEnum 10 = PathPriorityTypeTheme - toEnum 12 = PathPriorityTypeRc - toEnum 15 = PathPriorityTypeHighest - toEnum k = AnotherPathPriorityType k - -foreign import ccall "gtk_path_priority_type_get_type" c_gtk_path_priority_type_get_type :: - IO GType - -instance BoxedEnum PathPriorityType where - boxedEnumType _ = c_gtk_path_priority_type_get_type - --- Enum PanDirection - -data PanDirection = - PanDirectionLeft - | PanDirectionRight - | PanDirectionUp - | PanDirectionDown - | AnotherPanDirection Int - deriving (Show, Eq) - -instance Enum PanDirection where - fromEnum PanDirectionLeft = 0 - fromEnum PanDirectionRight = 1 - fromEnum PanDirectionUp = 2 - fromEnum PanDirectionDown = 3 - fromEnum (AnotherPanDirection k) = k - - toEnum 0 = PanDirectionLeft - toEnum 1 = PanDirectionRight - toEnum 2 = PanDirectionUp - toEnum 3 = PanDirectionDown - toEnum k = AnotherPanDirection k - -foreign import ccall "gtk_pan_direction_get_type" c_gtk_pan_direction_get_type :: - IO GType - -instance BoxedEnum PanDirection where - boxedEnumType _ = c_gtk_pan_direction_get_type - --- Enum PageSet - -data PageSet = - PageSetAll - | PageSetEven - | PageSetOdd - | AnotherPageSet Int - deriving (Show, Eq) - -instance Enum PageSet where - fromEnum PageSetAll = 0 - fromEnum PageSetEven = 1 - fromEnum PageSetOdd = 2 - fromEnum (AnotherPageSet k) = k - - toEnum 0 = PageSetAll - toEnum 1 = PageSetEven - toEnum 2 = PageSetOdd - toEnum k = AnotherPageSet k - -foreign import ccall "gtk_page_set_get_type" c_gtk_page_set_get_type :: - IO GType - -instance BoxedEnum PageSet where - boxedEnumType _ = c_gtk_page_set_get_type - --- Enum PageOrientation - -data PageOrientation = - PageOrientationPortrait - | PageOrientationLandscape - | PageOrientationReversePortrait - | PageOrientationReverseLandscape - | AnotherPageOrientation Int - deriving (Show, Eq) - -instance Enum PageOrientation where - fromEnum PageOrientationPortrait = 0 - fromEnum PageOrientationLandscape = 1 - fromEnum PageOrientationReversePortrait = 2 - fromEnum PageOrientationReverseLandscape = 3 - fromEnum (AnotherPageOrientation k) = k - - toEnum 0 = PageOrientationPortrait - toEnum 1 = PageOrientationLandscape - toEnum 2 = PageOrientationReversePortrait - toEnum 3 = PageOrientationReverseLandscape - toEnum k = AnotherPageOrientation k - -foreign import ccall "gtk_page_orientation_get_type" c_gtk_page_orientation_get_type :: - IO GType - -instance BoxedEnum PageOrientation where - boxedEnumType _ = c_gtk_page_orientation_get_type - --- Enum PackType - -data PackType = - PackTypeStart - | PackTypeEnd - | AnotherPackType Int - deriving (Show, Eq) - -instance Enum PackType where - fromEnum PackTypeStart = 0 - fromEnum PackTypeEnd = 1 - fromEnum (AnotherPackType k) = k - - toEnum 0 = PackTypeStart - toEnum 1 = PackTypeEnd - toEnum k = AnotherPackType k - -foreign import ccall "gtk_pack_type_get_type" c_gtk_pack_type_get_type :: - IO GType - -instance BoxedEnum PackType where - boxedEnumType _ = c_gtk_pack_type_get_type - --- Enum PackDirection - -data PackDirection = - PackDirectionLtr - | PackDirectionRtl - | PackDirectionTtb - | PackDirectionBtt - | AnotherPackDirection Int - deriving (Show, Eq) - -instance Enum PackDirection where - fromEnum PackDirectionLtr = 0 - fromEnum PackDirectionRtl = 1 - fromEnum PackDirectionTtb = 2 - fromEnum PackDirectionBtt = 3 - fromEnum (AnotherPackDirection k) = k - - toEnum 0 = PackDirectionLtr - toEnum 1 = PackDirectionRtl - toEnum 2 = PackDirectionTtb - toEnum 3 = PackDirectionBtt - toEnum k = AnotherPackDirection k - -foreign import ccall "gtk_pack_direction_get_type" c_gtk_pack_direction_get_type :: - IO GType - -instance BoxedEnum PackDirection where - boxedEnumType _ = c_gtk_pack_direction_get_type - --- Enum Orientation - -data Orientation = - OrientationHorizontal - | OrientationVertical - | AnotherOrientation Int - deriving (Show, Eq) - -instance Enum Orientation where - fromEnum OrientationHorizontal = 0 - fromEnum OrientationVertical = 1 - fromEnum (AnotherOrientation k) = k - - toEnum 0 = OrientationHorizontal - toEnum 1 = OrientationVertical - toEnum k = AnotherOrientation k - -foreign import ccall "gtk_orientation_get_type" c_gtk_orientation_get_type :: - IO GType - -instance BoxedEnum Orientation where - boxedEnumType _ = c_gtk_orientation_get_type - --- Enum NumberUpLayout - -data NumberUpLayout = - NumberUpLayoutLrtb - | NumberUpLayoutLrbt - | NumberUpLayoutRltb - | NumberUpLayoutRlbt - | NumberUpLayoutTblr - | NumberUpLayoutTbrl - | NumberUpLayoutBtlr - | NumberUpLayoutBtrl - | AnotherNumberUpLayout Int - deriving (Show, Eq) - -instance Enum NumberUpLayout where - fromEnum NumberUpLayoutLrtb = 0 - fromEnum NumberUpLayoutLrbt = 1 - fromEnum NumberUpLayoutRltb = 2 - fromEnum NumberUpLayoutRlbt = 3 - fromEnum NumberUpLayoutTblr = 4 - fromEnum NumberUpLayoutTbrl = 5 - fromEnum NumberUpLayoutBtlr = 6 - fromEnum NumberUpLayoutBtrl = 7 - fromEnum (AnotherNumberUpLayout k) = k - - toEnum 0 = NumberUpLayoutLrtb - toEnum 1 = NumberUpLayoutLrbt - toEnum 2 = NumberUpLayoutRltb - toEnum 3 = NumberUpLayoutRlbt - toEnum 4 = NumberUpLayoutTblr - toEnum 5 = NumberUpLayoutTbrl - toEnum 6 = NumberUpLayoutBtlr - toEnum 7 = NumberUpLayoutBtrl - toEnum k = AnotherNumberUpLayout k - -foreign import ccall "gtk_number_up_layout_get_type" c_gtk_number_up_layout_get_type :: - IO GType - -instance BoxedEnum NumberUpLayout where - boxedEnumType _ = c_gtk_number_up_layout_get_type - --- Enum NotebookTab - -data NotebookTab = - NotebookTabFirst - | NotebookTabLast - | AnotherNotebookTab Int - deriving (Show, Eq) - -instance Enum NotebookTab where - fromEnum NotebookTabFirst = 0 - fromEnum NotebookTabLast = 1 - fromEnum (AnotherNotebookTab k) = k - - toEnum 0 = NotebookTabFirst - toEnum 1 = NotebookTabLast - toEnum k = AnotherNotebookTab k - -foreign import ccall "gtk_notebook_tab_get_type" c_gtk_notebook_tab_get_type :: - IO GType - -instance BoxedEnum NotebookTab where - boxedEnumType _ = c_gtk_notebook_tab_get_type - --- Enum MovementStep - -data MovementStep = - MovementStepLogicalPositions - | MovementStepVisualPositions - | MovementStepWords - | MovementStepDisplayLines - | MovementStepDisplayLineEnds - | MovementStepParagraphs - | MovementStepParagraphEnds - | MovementStepPages - | MovementStepBufferEnds - | MovementStepHorizontalPages - | AnotherMovementStep Int - deriving (Show, Eq) - -instance Enum MovementStep where - fromEnum MovementStepLogicalPositions = 0 - fromEnum MovementStepVisualPositions = 1 - fromEnum MovementStepWords = 2 - fromEnum MovementStepDisplayLines = 3 - fromEnum MovementStepDisplayLineEnds = 4 - fromEnum MovementStepParagraphs = 5 - fromEnum MovementStepParagraphEnds = 6 - fromEnum MovementStepPages = 7 - fromEnum MovementStepBufferEnds = 8 - fromEnum MovementStepHorizontalPages = 9 - fromEnum (AnotherMovementStep k) = k - - toEnum 0 = MovementStepLogicalPositions - toEnum 1 = MovementStepVisualPositions - toEnum 2 = MovementStepWords - toEnum 3 = MovementStepDisplayLines - toEnum 4 = MovementStepDisplayLineEnds - toEnum 5 = MovementStepParagraphs - toEnum 6 = MovementStepParagraphEnds - toEnum 7 = MovementStepPages - toEnum 8 = MovementStepBufferEnds - toEnum 9 = MovementStepHorizontalPages - toEnum k = AnotherMovementStep k - -foreign import ccall "gtk_movement_step_get_type" c_gtk_movement_step_get_type :: - IO GType - -instance BoxedEnum MovementStep where - boxedEnumType _ = c_gtk_movement_step_get_type - --- Enum MessageType - -data MessageType = - MessageTypeInfo - | MessageTypeWarning - | MessageTypeQuestion - | MessageTypeError - | MessageTypeOther - | AnotherMessageType Int - deriving (Show, Eq) - -instance Enum MessageType where - fromEnum MessageTypeInfo = 0 - fromEnum MessageTypeWarning = 1 - fromEnum MessageTypeQuestion = 2 - fromEnum MessageTypeError = 3 - fromEnum MessageTypeOther = 4 - fromEnum (AnotherMessageType k) = k - - toEnum 0 = MessageTypeInfo - toEnum 1 = MessageTypeWarning - toEnum 2 = MessageTypeQuestion - toEnum 3 = MessageTypeError - toEnum 4 = MessageTypeOther - toEnum k = AnotherMessageType k - -foreign import ccall "gtk_message_type_get_type" c_gtk_message_type_get_type :: - IO GType - -instance BoxedEnum MessageType where - boxedEnumType _ = c_gtk_message_type_get_type - --- Enum MenuDirectionType - -data MenuDirectionType = - MenuDirectionTypeParent - | MenuDirectionTypeChild - | MenuDirectionTypeNext - | MenuDirectionTypePrev - | AnotherMenuDirectionType Int - deriving (Show, Eq) - -instance Enum MenuDirectionType where - fromEnum MenuDirectionTypeParent = 0 - fromEnum MenuDirectionTypeChild = 1 - fromEnum MenuDirectionTypeNext = 2 - fromEnum MenuDirectionTypePrev = 3 - fromEnum (AnotherMenuDirectionType k) = k - - toEnum 0 = MenuDirectionTypeParent - toEnum 1 = MenuDirectionTypeChild - toEnum 2 = MenuDirectionTypeNext - toEnum 3 = MenuDirectionTypePrev - toEnum k = AnotherMenuDirectionType k - -foreign import ccall "gtk_menu_direction_type_get_type" c_gtk_menu_direction_type_get_type :: - IO GType - -instance BoxedEnum MenuDirectionType where - boxedEnumType _ = c_gtk_menu_direction_type_get_type - --- Enum License - -data License = - LicenseUnknown - | LicenseCustom - | LicenseGpl20 - | LicenseGpl30 - | LicenseLgpl21 - | LicenseLgpl30 - | LicenseBsd - | LicenseMitX11 - | LicenseArtistic - | LicenseGpl20Only - | LicenseGpl30Only - | LicenseLgpl21Only - | LicenseLgpl30Only - | AnotherLicense Int - deriving (Show, Eq) - -instance Enum License where - fromEnum LicenseUnknown = 0 - fromEnum LicenseCustom = 1 - fromEnum LicenseGpl20 = 2 - fromEnum LicenseGpl30 = 3 - fromEnum LicenseLgpl21 = 4 - fromEnum LicenseLgpl30 = 5 - fromEnum LicenseBsd = 6 - fromEnum LicenseMitX11 = 7 - fromEnum LicenseArtistic = 8 - fromEnum LicenseGpl20Only = 9 - fromEnum LicenseGpl30Only = 10 - fromEnum LicenseLgpl21Only = 11 - fromEnum LicenseLgpl30Only = 12 - fromEnum (AnotherLicense k) = k - - toEnum 0 = LicenseUnknown - toEnum 1 = LicenseCustom - toEnum 2 = LicenseGpl20 - toEnum 3 = LicenseGpl30 - toEnum 4 = LicenseLgpl21 - toEnum 5 = LicenseLgpl30 - toEnum 6 = LicenseBsd - toEnum 7 = LicenseMitX11 - toEnum 8 = LicenseArtistic - toEnum 9 = LicenseGpl20Only - toEnum 10 = LicenseGpl30Only - toEnum 11 = LicenseLgpl21Only - toEnum 12 = LicenseLgpl30Only - toEnum k = AnotherLicense k - -foreign import ccall "gtk_license_get_type" c_gtk_license_get_type :: - IO GType - -instance BoxedEnum License where - boxedEnumType _ = c_gtk_license_get_type - --- Enum LevelBarMode - -data LevelBarMode = - LevelBarModeContinuous - | LevelBarModeDiscrete - | AnotherLevelBarMode Int - deriving (Show, Eq) - -instance Enum LevelBarMode where - fromEnum LevelBarModeContinuous = 0 - fromEnum LevelBarModeDiscrete = 1 - fromEnum (AnotherLevelBarMode k) = k - - toEnum 0 = LevelBarModeContinuous - toEnum 1 = LevelBarModeDiscrete - toEnum k = AnotherLevelBarMode k - -foreign import ccall "gtk_level_bar_mode_get_type" c_gtk_level_bar_mode_get_type :: - IO GType - -instance BoxedEnum LevelBarMode where - boxedEnumType _ = c_gtk_level_bar_mode_get_type - --- Enum Justification - -data Justification = - JustificationLeft - | JustificationRight - | JustificationCenter - | JustificationFill - | AnotherJustification Int - deriving (Show, Eq) - -instance Enum Justification where - fromEnum JustificationLeft = 0 - fromEnum JustificationRight = 1 - fromEnum JustificationCenter = 2 - fromEnum JustificationFill = 3 - fromEnum (AnotherJustification k) = k - - toEnum 0 = JustificationLeft - toEnum 1 = JustificationRight - toEnum 2 = JustificationCenter - toEnum 3 = JustificationFill - toEnum k = AnotherJustification k - -foreign import ccall "gtk_justification_get_type" c_gtk_justification_get_type :: - IO GType - -instance BoxedEnum Justification where - boxedEnumType _ = c_gtk_justification_get_type - --- Enum InputPurpose - -data InputPurpose = - InputPurposeFreeForm - | InputPurposeAlpha - | InputPurposeDigits - | InputPurposeNumber - | InputPurposePhone - | InputPurposeUrl - | InputPurposeEmail - | InputPurposeName - | InputPurposePassword - | InputPurposePin - | AnotherInputPurpose Int - deriving (Show, Eq) - -instance Enum InputPurpose where - fromEnum InputPurposeFreeForm = 0 - fromEnum InputPurposeAlpha = 1 - fromEnum InputPurposeDigits = 2 - fromEnum InputPurposeNumber = 3 - fromEnum InputPurposePhone = 4 - fromEnum InputPurposeUrl = 5 - fromEnum InputPurposeEmail = 6 - fromEnum InputPurposeName = 7 - fromEnum InputPurposePassword = 8 - fromEnum InputPurposePin = 9 - fromEnum (AnotherInputPurpose k) = k - - toEnum 0 = InputPurposeFreeForm - toEnum 1 = InputPurposeAlpha - toEnum 2 = InputPurposeDigits - toEnum 3 = InputPurposeNumber - toEnum 4 = InputPurposePhone - toEnum 5 = InputPurposeUrl - toEnum 6 = InputPurposeEmail - toEnum 7 = InputPurposeName - toEnum 8 = InputPurposePassword - toEnum 9 = InputPurposePin - toEnum k = AnotherInputPurpose k - -foreign import ccall "gtk_input_purpose_get_type" c_gtk_input_purpose_get_type :: - IO GType - -instance BoxedEnum InputPurpose where - boxedEnumType _ = c_gtk_input_purpose_get_type - --- Enum ImageType - -data ImageType = - ImageTypeEmpty - | ImageTypePixbuf - | ImageTypeStock - | ImageTypeIconSet - | ImageTypeAnimation - | ImageTypeIconName - | ImageTypeGicon - | ImageTypeSurface - | AnotherImageType Int - deriving (Show, Eq) - -instance Enum ImageType where - fromEnum ImageTypeEmpty = 0 - fromEnum ImageTypePixbuf = 1 - fromEnum ImageTypeStock = 2 - fromEnum ImageTypeIconSet = 3 - fromEnum ImageTypeAnimation = 4 - fromEnum ImageTypeIconName = 5 - fromEnum ImageTypeGicon = 6 - fromEnum ImageTypeSurface = 7 - fromEnum (AnotherImageType k) = k - - toEnum 0 = ImageTypeEmpty - toEnum 1 = ImageTypePixbuf - toEnum 2 = ImageTypeStock - toEnum 3 = ImageTypeIconSet - toEnum 4 = ImageTypeAnimation - toEnum 5 = ImageTypeIconName - toEnum 6 = ImageTypeGicon - toEnum 7 = ImageTypeSurface - toEnum k = AnotherImageType k - -foreign import ccall "gtk_image_type_get_type" c_gtk_image_type_get_type :: - IO GType - -instance BoxedEnum ImageType where - boxedEnumType _ = c_gtk_image_type_get_type - --- Enum IconViewDropPosition - -data IconViewDropPosition = - IconViewDropPositionNoDrop - | IconViewDropPositionDropInto - | IconViewDropPositionDropLeft - | IconViewDropPositionDropRight - | IconViewDropPositionDropAbove - | IconViewDropPositionDropBelow - | AnotherIconViewDropPosition Int - deriving (Show, Eq) - -instance Enum IconViewDropPosition where - fromEnum IconViewDropPositionNoDrop = 0 - fromEnum IconViewDropPositionDropInto = 1 - fromEnum IconViewDropPositionDropLeft = 2 - fromEnum IconViewDropPositionDropRight = 3 - fromEnum IconViewDropPositionDropAbove = 4 - fromEnum IconViewDropPositionDropBelow = 5 - fromEnum (AnotherIconViewDropPosition k) = k - - toEnum 0 = IconViewDropPositionNoDrop - toEnum 1 = IconViewDropPositionDropInto - toEnum 2 = IconViewDropPositionDropLeft - toEnum 3 = IconViewDropPositionDropRight - toEnum 4 = IconViewDropPositionDropAbove - toEnum 5 = IconViewDropPositionDropBelow - toEnum k = AnotherIconViewDropPosition k - -foreign import ccall "gtk_icon_view_drop_position_get_type" c_gtk_icon_view_drop_position_get_type :: - IO GType - -instance BoxedEnum IconViewDropPosition where - boxedEnumType _ = c_gtk_icon_view_drop_position_get_type - --- Enum IconThemeError - -data IconThemeError = - IconThemeErrorNotFound - | IconThemeErrorFailed - | AnotherIconThemeError Int - deriving (Show, Eq) - -instance Enum IconThemeError where - fromEnum IconThemeErrorNotFound = 0 - fromEnum IconThemeErrorFailed = 1 - fromEnum (AnotherIconThemeError k) = k - - toEnum 0 = IconThemeErrorNotFound - toEnum 1 = IconThemeErrorFailed - toEnum k = AnotherIconThemeError k - -instance GErrorClass IconThemeError where - gerrorClassDomain _ = "gtk-icon-theme-error-quark" - -catchIconThemeError :: - IO a -> - (IconThemeError -> GErrorMessage -> IO a) -> - IO a -catchIconThemeError = catchGErrorJustDomain - -handleIconThemeError :: - (IconThemeError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleIconThemeError = handleGErrorJustDomain - -foreign import ccall "gtk_icon_theme_error_get_type" c_gtk_icon_theme_error_get_type :: - IO GType - -instance BoxedEnum IconThemeError where - boxedEnumType _ = c_gtk_icon_theme_error_get_type - --- Enum IconSize - -data IconSize = - IconSizeInvalid - | IconSizeMenu - | IconSizeSmallToolbar - | IconSizeLargeToolbar - | IconSizeButton - | IconSizeDnd - | IconSizeDialog - | AnotherIconSize Int - deriving (Show, Eq) - -instance Enum IconSize where - fromEnum IconSizeInvalid = 0 - fromEnum IconSizeMenu = 1 - fromEnum IconSizeSmallToolbar = 2 - fromEnum IconSizeLargeToolbar = 3 - fromEnum IconSizeButton = 4 - fromEnum IconSizeDnd = 5 - fromEnum IconSizeDialog = 6 - fromEnum (AnotherIconSize k) = k - - toEnum 0 = IconSizeInvalid - toEnum 1 = IconSizeMenu - toEnum 2 = IconSizeSmallToolbar - toEnum 3 = IconSizeLargeToolbar - toEnum 4 = IconSizeButton - toEnum 5 = IconSizeDnd - toEnum 6 = IconSizeDialog - toEnum k = AnotherIconSize k - -foreign import ccall "gtk_icon_size_get_type" c_gtk_icon_size_get_type :: - IO GType - -instance BoxedEnum IconSize where - boxedEnumType _ = c_gtk_icon_size_get_type - --- Enum IMStatusStyle -{-# DEPRECATED IMStatusStyle ["(Since version 3.10)"]#-} -data IMStatusStyle = - IMStatusStyleNothing - | IMStatusStyleCallback - | IMStatusStyleNone - | AnotherIMStatusStyle Int - deriving (Show, Eq) - -instance Enum IMStatusStyle where - fromEnum IMStatusStyleNothing = 0 - fromEnum IMStatusStyleCallback = 1 - fromEnum IMStatusStyleNone = 2 - fromEnum (AnotherIMStatusStyle k) = k - - toEnum 0 = IMStatusStyleNothing - toEnum 1 = IMStatusStyleCallback - toEnum 2 = IMStatusStyleNone - toEnum k = AnotherIMStatusStyle k - -foreign import ccall "gtk_im_status_style_get_type" c_gtk_im_status_style_get_type :: - IO GType - -instance BoxedEnum IMStatusStyle where - boxedEnumType _ = c_gtk_im_status_style_get_type - --- Enum IMPreeditStyle -{-# DEPRECATED IMPreeditStyle ["(Since version 3.10)"]#-} -data IMPreeditStyle = - IMPreeditStyleNothing - | IMPreeditStyleCallback - | IMPreeditStyleNone - | AnotherIMPreeditStyle Int - deriving (Show, Eq) - -instance Enum IMPreeditStyle where - fromEnum IMPreeditStyleNothing = 0 - fromEnum IMPreeditStyleCallback = 1 - fromEnum IMPreeditStyleNone = 2 - fromEnum (AnotherIMPreeditStyle k) = k - - toEnum 0 = IMPreeditStyleNothing - toEnum 1 = IMPreeditStyleCallback - toEnum 2 = IMPreeditStyleNone - toEnum k = AnotherIMPreeditStyle k - -foreign import ccall "gtk_im_preedit_style_get_type" c_gtk_im_preedit_style_get_type :: - IO GType - -instance BoxedEnum IMPreeditStyle where - boxedEnumType _ = c_gtk_im_preedit_style_get_type - --- Enum FileChooserError - -data FileChooserError = - FileChooserErrorNonexistent - | FileChooserErrorBadFilename - | FileChooserErrorAlreadyExists - | FileChooserErrorIncompleteHostname - | AnotherFileChooserError Int - deriving (Show, Eq) - -instance Enum FileChooserError where - fromEnum FileChooserErrorNonexistent = 0 - fromEnum FileChooserErrorBadFilename = 1 - fromEnum FileChooserErrorAlreadyExists = 2 - fromEnum FileChooserErrorIncompleteHostname = 3 - fromEnum (AnotherFileChooserError k) = k - - toEnum 0 = FileChooserErrorNonexistent - toEnum 1 = FileChooserErrorBadFilename - toEnum 2 = FileChooserErrorAlreadyExists - toEnum 3 = FileChooserErrorIncompleteHostname - toEnum k = AnotherFileChooserError k - -instance GErrorClass FileChooserError where - gerrorClassDomain _ = "gtk-file-chooser-error-quark" - -catchFileChooserError :: - IO a -> - (FileChooserError -> GErrorMessage -> IO a) -> - IO a -catchFileChooserError = catchGErrorJustDomain - -handleFileChooserError :: - (FileChooserError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleFileChooserError = handleGErrorJustDomain - -foreign import ccall "gtk_file_chooser_error_get_type" c_gtk_file_chooser_error_get_type :: - IO GType - -instance BoxedEnum FileChooserError where - boxedEnumType _ = c_gtk_file_chooser_error_get_type - --- Enum FileChooserConfirmation - -data FileChooserConfirmation = - FileChooserConfirmationConfirm - | FileChooserConfirmationAcceptFilename - | FileChooserConfirmationSelectAgain - | AnotherFileChooserConfirmation Int - deriving (Show, Eq) - -instance Enum FileChooserConfirmation where - fromEnum FileChooserConfirmationConfirm = 0 - fromEnum FileChooserConfirmationAcceptFilename = 1 - fromEnum FileChooserConfirmationSelectAgain = 2 - fromEnum (AnotherFileChooserConfirmation k) = k - - toEnum 0 = FileChooserConfirmationConfirm - toEnum 1 = FileChooserConfirmationAcceptFilename - toEnum 2 = FileChooserConfirmationSelectAgain - toEnum k = AnotherFileChooserConfirmation k - -foreign import ccall "gtk_file_chooser_confirmation_get_type" c_gtk_file_chooser_confirmation_get_type :: - IO GType - -instance BoxedEnum FileChooserConfirmation where - boxedEnumType _ = c_gtk_file_chooser_confirmation_get_type - --- Enum FileChooserAction - -data FileChooserAction = - FileChooserActionOpen - | FileChooserActionSave - | FileChooserActionSelectFolder - | FileChooserActionCreateFolder - | AnotherFileChooserAction Int - deriving (Show, Eq) - -instance Enum FileChooserAction where - fromEnum FileChooserActionOpen = 0 - fromEnum FileChooserActionSave = 1 - fromEnum FileChooserActionSelectFolder = 2 - fromEnum FileChooserActionCreateFolder = 3 - fromEnum (AnotherFileChooserAction k) = k - - toEnum 0 = FileChooserActionOpen - toEnum 1 = FileChooserActionSave - toEnum 2 = FileChooserActionSelectFolder - toEnum 3 = FileChooserActionCreateFolder - toEnum k = AnotherFileChooserAction k - -foreign import ccall "gtk_file_chooser_action_get_type" c_gtk_file_chooser_action_get_type :: - IO GType - -instance BoxedEnum FileChooserAction where - boxedEnumType _ = c_gtk_file_chooser_action_get_type - --- Enum ExpanderStyle - -data ExpanderStyle = - ExpanderStyleCollapsed - | ExpanderStyleSemiCollapsed - | ExpanderStyleSemiExpanded - | ExpanderStyleExpanded - | AnotherExpanderStyle Int - deriving (Show, Eq) - -instance Enum ExpanderStyle where - fromEnum ExpanderStyleCollapsed = 0 - fromEnum ExpanderStyleSemiCollapsed = 1 - fromEnum ExpanderStyleSemiExpanded = 2 - fromEnum ExpanderStyleExpanded = 3 - fromEnum (AnotherExpanderStyle k) = k - - toEnum 0 = ExpanderStyleCollapsed - toEnum 1 = ExpanderStyleSemiCollapsed - toEnum 2 = ExpanderStyleSemiExpanded - toEnum 3 = ExpanderStyleExpanded - toEnum k = AnotherExpanderStyle k - -foreign import ccall "gtk_expander_style_get_type" c_gtk_expander_style_get_type :: - IO GType - -instance BoxedEnum ExpanderStyle where - boxedEnumType _ = c_gtk_expander_style_get_type - --- Enum EventSequenceState - -data EventSequenceState = - EventSequenceStateNone - | EventSequenceStateClaimed - | EventSequenceStateDenied - | AnotherEventSequenceState Int - deriving (Show, Eq) - -instance Enum EventSequenceState where - fromEnum EventSequenceStateNone = 0 - fromEnum EventSequenceStateClaimed = 1 - fromEnum EventSequenceStateDenied = 2 - fromEnum (AnotherEventSequenceState k) = k - - toEnum 0 = EventSequenceStateNone - toEnum 1 = EventSequenceStateClaimed - toEnum 2 = EventSequenceStateDenied - toEnum k = AnotherEventSequenceState k - -foreign import ccall "gtk_event_sequence_state_get_type" c_gtk_event_sequence_state_get_type :: - IO GType - -instance BoxedEnum EventSequenceState where - boxedEnumType _ = c_gtk_event_sequence_state_get_type - --- Enum EntryIconPosition - -data EntryIconPosition = - EntryIconPositionPrimary - | EntryIconPositionSecondary - | AnotherEntryIconPosition Int - deriving (Show, Eq) - -instance Enum EntryIconPosition where - fromEnum EntryIconPositionPrimary = 0 - fromEnum EntryIconPositionSecondary = 1 - fromEnum (AnotherEntryIconPosition k) = k - - toEnum 0 = EntryIconPositionPrimary - toEnum 1 = EntryIconPositionSecondary - toEnum k = AnotherEntryIconPosition k - -foreign import ccall "gtk_entry_icon_position_get_type" c_gtk_entry_icon_position_get_type :: - IO GType - -instance BoxedEnum EntryIconPosition where - boxedEnumType _ = c_gtk_entry_icon_position_get_type - --- Enum DragResult - -data DragResult = - DragResultSuccess - | DragResultNoTarget - | DragResultUserCancelled - | DragResultTimeoutExpired - | DragResultGrabBroken - | DragResultError - | AnotherDragResult Int - deriving (Show, Eq) - -instance Enum DragResult where - fromEnum DragResultSuccess = 0 - fromEnum DragResultNoTarget = 1 - fromEnum DragResultUserCancelled = 2 - fromEnum DragResultTimeoutExpired = 3 - fromEnum DragResultGrabBroken = 4 - fromEnum DragResultError = 5 - fromEnum (AnotherDragResult k) = k - - toEnum 0 = DragResultSuccess - toEnum 1 = DragResultNoTarget - toEnum 2 = DragResultUserCancelled - toEnum 3 = DragResultTimeoutExpired - toEnum 4 = DragResultGrabBroken - toEnum 5 = DragResultError - toEnum k = AnotherDragResult k - -foreign import ccall "gtk_drag_result_get_type" c_gtk_drag_result_get_type :: - IO GType - -instance BoxedEnum DragResult where - boxedEnumType _ = c_gtk_drag_result_get_type - --- Enum DirectionType - -data DirectionType = - DirectionTypeTabForward - | DirectionTypeTabBackward - | DirectionTypeUp - | DirectionTypeDown - | DirectionTypeLeft - | DirectionTypeRight - | AnotherDirectionType Int - deriving (Show, Eq) - -instance Enum DirectionType where - fromEnum DirectionTypeTabForward = 0 - fromEnum DirectionTypeTabBackward = 1 - fromEnum DirectionTypeUp = 2 - fromEnum DirectionTypeDown = 3 - fromEnum DirectionTypeLeft = 4 - fromEnum DirectionTypeRight = 5 - fromEnum (AnotherDirectionType k) = k - - toEnum 0 = DirectionTypeTabForward - toEnum 1 = DirectionTypeTabBackward - toEnum 2 = DirectionTypeUp - toEnum 3 = DirectionTypeDown - toEnum 4 = DirectionTypeLeft - toEnum 5 = DirectionTypeRight - toEnum k = AnotherDirectionType k - -foreign import ccall "gtk_direction_type_get_type" c_gtk_direction_type_get_type :: - IO GType - -instance BoxedEnum DirectionType where - boxedEnumType _ = c_gtk_direction_type_get_type - --- Enum DeleteType - -data DeleteType = - DeleteTypeChars - | DeleteTypeWordEnds - | DeleteTypeWords - | DeleteTypeDisplayLines - | DeleteTypeDisplayLineEnds - | DeleteTypeParagraphEnds - | DeleteTypeParagraphs - | DeleteTypeWhitespace - | AnotherDeleteType Int - deriving (Show, Eq) - -instance Enum DeleteType where - fromEnum DeleteTypeChars = 0 - fromEnum DeleteTypeWordEnds = 1 - fromEnum DeleteTypeWords = 2 - fromEnum DeleteTypeDisplayLines = 3 - fromEnum DeleteTypeDisplayLineEnds = 4 - fromEnum DeleteTypeParagraphEnds = 5 - fromEnum DeleteTypeParagraphs = 6 - fromEnum DeleteTypeWhitespace = 7 - fromEnum (AnotherDeleteType k) = k - - toEnum 0 = DeleteTypeChars - toEnum 1 = DeleteTypeWordEnds - toEnum 2 = DeleteTypeWords - toEnum 3 = DeleteTypeDisplayLines - toEnum 4 = DeleteTypeDisplayLineEnds - toEnum 5 = DeleteTypeParagraphEnds - toEnum 6 = DeleteTypeParagraphs - toEnum 7 = DeleteTypeWhitespace - toEnum k = AnotherDeleteType k - -foreign import ccall "gtk_delete_type_get_type" c_gtk_delete_type_get_type :: - IO GType - -instance BoxedEnum DeleteType where - boxedEnumType _ = c_gtk_delete_type_get_type - --- Enum CssSectionType - -data CssSectionType = - CssSectionTypeDocument - | CssSectionTypeImport - | CssSectionTypeColorDefinition - | CssSectionTypeBindingSet - | CssSectionTypeRuleset - | CssSectionTypeSelector - | CssSectionTypeDeclaration - | CssSectionTypeValue - | CssSectionTypeKeyframes - | AnotherCssSectionType Int - deriving (Show, Eq) - -instance Enum CssSectionType where - fromEnum CssSectionTypeDocument = 0 - fromEnum CssSectionTypeImport = 1 - fromEnum CssSectionTypeColorDefinition = 2 - fromEnum CssSectionTypeBindingSet = 3 - fromEnum CssSectionTypeRuleset = 4 - fromEnum CssSectionTypeSelector = 5 - fromEnum CssSectionTypeDeclaration = 6 - fromEnum CssSectionTypeValue = 7 - fromEnum CssSectionTypeKeyframes = 8 - fromEnum (AnotherCssSectionType k) = k - - toEnum 0 = CssSectionTypeDocument - toEnum 1 = CssSectionTypeImport - toEnum 2 = CssSectionTypeColorDefinition - toEnum 3 = CssSectionTypeBindingSet - toEnum 4 = CssSectionTypeRuleset - toEnum 5 = CssSectionTypeSelector - toEnum 6 = CssSectionTypeDeclaration - toEnum 7 = CssSectionTypeValue - toEnum 8 = CssSectionTypeKeyframes - toEnum k = AnotherCssSectionType k - -foreign import ccall "gtk_css_section_type_get_type" c_gtk_css_section_type_get_type :: - IO GType - -instance BoxedEnum CssSectionType where - boxedEnumType _ = c_gtk_css_section_type_get_type - --- Enum CssProviderError - -data CssProviderError = - CssProviderErrorFailed - | CssProviderErrorSyntax - | CssProviderErrorImport - | CssProviderErrorName - | CssProviderErrorDeprecated - | CssProviderErrorUnknownValue - | AnotherCssProviderError Int - deriving (Show, Eq) - -instance Enum CssProviderError where - fromEnum CssProviderErrorFailed = 0 - fromEnum CssProviderErrorSyntax = 1 - fromEnum CssProviderErrorImport = 2 - fromEnum CssProviderErrorName = 3 - fromEnum CssProviderErrorDeprecated = 4 - fromEnum CssProviderErrorUnknownValue = 5 - fromEnum (AnotherCssProviderError k) = k - - toEnum 0 = CssProviderErrorFailed - toEnum 1 = CssProviderErrorSyntax - toEnum 2 = CssProviderErrorImport - toEnum 3 = CssProviderErrorName - toEnum 4 = CssProviderErrorDeprecated - toEnum 5 = CssProviderErrorUnknownValue - toEnum k = AnotherCssProviderError k - -instance GErrorClass CssProviderError where - gerrorClassDomain _ = "gtk-css-provider-error-quark" - -catchCssProviderError :: - IO a -> - (CssProviderError -> GErrorMessage -> IO a) -> - IO a -catchCssProviderError = catchGErrorJustDomain - -handleCssProviderError :: - (CssProviderError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleCssProviderError = handleGErrorJustDomain - -foreign import ccall "gtk_css_provider_error_get_type" c_gtk_css_provider_error_get_type :: - IO GType - -instance BoxedEnum CssProviderError where - boxedEnumType _ = c_gtk_css_provider_error_get_type - --- Enum CornerType - -data CornerType = - CornerTypeTopLeft - | CornerTypeBottomLeft - | CornerTypeTopRight - | CornerTypeBottomRight - | AnotherCornerType Int - deriving (Show, Eq) - -instance Enum CornerType where - fromEnum CornerTypeTopLeft = 0 - fromEnum CornerTypeBottomLeft = 1 - fromEnum CornerTypeTopRight = 2 - fromEnum CornerTypeBottomRight = 3 - fromEnum (AnotherCornerType k) = k - - toEnum 0 = CornerTypeTopLeft - toEnum 1 = CornerTypeBottomLeft - toEnum 2 = CornerTypeTopRight - toEnum 3 = CornerTypeBottomRight - toEnum k = AnotherCornerType k - -foreign import ccall "gtk_corner_type_get_type" c_gtk_corner_type_get_type :: - IO GType - -instance BoxedEnum CornerType where - boxedEnumType _ = c_gtk_corner_type_get_type - --- Enum CellRendererMode - -data CellRendererMode = - CellRendererModeInert - | CellRendererModeActivatable - | CellRendererModeEditable - | AnotherCellRendererMode Int - deriving (Show, Eq) - -instance Enum CellRendererMode where - fromEnum CellRendererModeInert = 0 - fromEnum CellRendererModeActivatable = 1 - fromEnum CellRendererModeEditable = 2 - fromEnum (AnotherCellRendererMode k) = k - - toEnum 0 = CellRendererModeInert - toEnum 1 = CellRendererModeActivatable - toEnum 2 = CellRendererModeEditable - toEnum k = AnotherCellRendererMode k - -foreign import ccall "gtk_cell_renderer_mode_get_type" c_gtk_cell_renderer_mode_get_type :: - IO GType - -instance BoxedEnum CellRendererMode where - boxedEnumType _ = c_gtk_cell_renderer_mode_get_type - --- Enum CellRendererAccelMode - -data CellRendererAccelMode = - CellRendererAccelModeGtk - | CellRendererAccelModeOther - | AnotherCellRendererAccelMode Int - deriving (Show, Eq) - -instance Enum CellRendererAccelMode where - fromEnum CellRendererAccelModeGtk = 0 - fromEnum CellRendererAccelModeOther = 1 - fromEnum (AnotherCellRendererAccelMode k) = k - - toEnum 0 = CellRendererAccelModeGtk - toEnum 1 = CellRendererAccelModeOther - toEnum k = AnotherCellRendererAccelMode k - -foreign import ccall "gtk_cell_renderer_accel_mode_get_type" c_gtk_cell_renderer_accel_mode_get_type :: - IO GType - -instance BoxedEnum CellRendererAccelMode where - boxedEnumType _ = c_gtk_cell_renderer_accel_mode_get_type - --- Enum ButtonsType - -data ButtonsType = - ButtonsTypeNone - | ButtonsTypeOk - | ButtonsTypeClose - | ButtonsTypeCancel - | ButtonsTypeYesNo - | ButtonsTypeOkCancel - | AnotherButtonsType Int - deriving (Show, Eq) - -instance Enum ButtonsType where - fromEnum ButtonsTypeNone = 0 - fromEnum ButtonsTypeOk = 1 - fromEnum ButtonsTypeClose = 2 - fromEnum ButtonsTypeCancel = 3 - fromEnum ButtonsTypeYesNo = 4 - fromEnum ButtonsTypeOkCancel = 5 - fromEnum (AnotherButtonsType k) = k - - toEnum 0 = ButtonsTypeNone - toEnum 1 = ButtonsTypeOk - toEnum 2 = ButtonsTypeClose - toEnum 3 = ButtonsTypeCancel - toEnum 4 = ButtonsTypeYesNo - toEnum 5 = ButtonsTypeOkCancel - toEnum k = AnotherButtonsType k - -foreign import ccall "gtk_buttons_type_get_type" c_gtk_buttons_type_get_type :: - IO GType - -instance BoxedEnum ButtonsType where - boxedEnumType _ = c_gtk_buttons_type_get_type - --- Enum ButtonRole - -data ButtonRole = - ButtonRoleNormal - | ButtonRoleCheck - | ButtonRoleRadio - | AnotherButtonRole Int - deriving (Show, Eq) - -instance Enum ButtonRole where - fromEnum ButtonRoleNormal = 0 - fromEnum ButtonRoleCheck = 1 - fromEnum ButtonRoleRadio = 2 - fromEnum (AnotherButtonRole k) = k - - toEnum 0 = ButtonRoleNormal - toEnum 1 = ButtonRoleCheck - toEnum 2 = ButtonRoleRadio - toEnum k = AnotherButtonRole k - -foreign import ccall "gtk_button_role_get_type" c_gtk_button_role_get_type :: - IO GType - -instance BoxedEnum ButtonRole where - boxedEnumType _ = c_gtk_button_role_get_type - --- Enum ButtonBoxStyle - -data ButtonBoxStyle = - ButtonBoxStyleSpread - | ButtonBoxStyleEdge - | ButtonBoxStyleStart - | ButtonBoxStyleEnd - | ButtonBoxStyleCenter - | ButtonBoxStyleExpand - | AnotherButtonBoxStyle Int - deriving (Show, Eq) - -instance Enum ButtonBoxStyle where - fromEnum ButtonBoxStyleSpread = 1 - fromEnum ButtonBoxStyleEdge = 2 - fromEnum ButtonBoxStyleStart = 3 - fromEnum ButtonBoxStyleEnd = 4 - fromEnum ButtonBoxStyleCenter = 5 - fromEnum ButtonBoxStyleExpand = 6 - fromEnum (AnotherButtonBoxStyle k) = k - - toEnum 1 = ButtonBoxStyleSpread - toEnum 2 = ButtonBoxStyleEdge - toEnum 3 = ButtonBoxStyleStart - toEnum 4 = ButtonBoxStyleEnd - toEnum 5 = ButtonBoxStyleCenter - toEnum 6 = ButtonBoxStyleExpand - toEnum k = AnotherButtonBoxStyle k - -foreign import ccall "gtk_button_box_style_get_type" c_gtk_button_box_style_get_type :: - IO GType - -instance BoxedEnum ButtonBoxStyle where - boxedEnumType _ = c_gtk_button_box_style_get_type - --- Enum BuilderError - -data BuilderError = - BuilderErrorInvalidTypeFunction - | BuilderErrorUnhandledTag - | BuilderErrorMissingAttribute - | BuilderErrorInvalidAttribute - | BuilderErrorInvalidTag - | BuilderErrorMissingPropertyValue - | BuilderErrorInvalidValue - | BuilderErrorVersionMismatch - | BuilderErrorDuplicateId - | BuilderErrorObjectTypeRefused - | BuilderErrorTemplateMismatch - | BuilderErrorInvalidProperty - | BuilderErrorInvalidSignal - | BuilderErrorInvalidId - | AnotherBuilderError Int - deriving (Show, Eq) - -instance Enum BuilderError where - fromEnum BuilderErrorInvalidTypeFunction = 0 - fromEnum BuilderErrorUnhandledTag = 1 - fromEnum BuilderErrorMissingAttribute = 2 - fromEnum BuilderErrorInvalidAttribute = 3 - fromEnum BuilderErrorInvalidTag = 4 - fromEnum BuilderErrorMissingPropertyValue = 5 - fromEnum BuilderErrorInvalidValue = 6 - fromEnum BuilderErrorVersionMismatch = 7 - fromEnum BuilderErrorDuplicateId = 8 - fromEnum BuilderErrorObjectTypeRefused = 9 - fromEnum BuilderErrorTemplateMismatch = 10 - fromEnum BuilderErrorInvalidProperty = 11 - fromEnum BuilderErrorInvalidSignal = 12 - fromEnum BuilderErrorInvalidId = 13 - fromEnum (AnotherBuilderError k) = k - - toEnum 0 = BuilderErrorInvalidTypeFunction - toEnum 1 = BuilderErrorUnhandledTag - toEnum 2 = BuilderErrorMissingAttribute - toEnum 3 = BuilderErrorInvalidAttribute - toEnum 4 = BuilderErrorInvalidTag - toEnum 5 = BuilderErrorMissingPropertyValue - toEnum 6 = BuilderErrorInvalidValue - toEnum 7 = BuilderErrorVersionMismatch - toEnum 8 = BuilderErrorDuplicateId - toEnum 9 = BuilderErrorObjectTypeRefused - toEnum 10 = BuilderErrorTemplateMismatch - toEnum 11 = BuilderErrorInvalidProperty - toEnum 12 = BuilderErrorInvalidSignal - toEnum 13 = BuilderErrorInvalidId - toEnum k = AnotherBuilderError k - -instance GErrorClass BuilderError where - gerrorClassDomain _ = "gtk-builder-error-quark" - -catchBuilderError :: - IO a -> - (BuilderError -> GErrorMessage -> IO a) -> - IO a -catchBuilderError = catchGErrorJustDomain - -handleBuilderError :: - (BuilderError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleBuilderError = handleGErrorJustDomain - -foreign import ccall "gtk_builder_error_get_type" c_gtk_builder_error_get_type :: - IO GType - -instance BoxedEnum BuilderError where - boxedEnumType _ = c_gtk_builder_error_get_type - --- Enum BorderStyle - -data BorderStyle = - BorderStyleNone - | BorderStyleSolid - | BorderStyleInset - | BorderStyleOutset - | BorderStyleHidden - | BorderStyleDotted - | BorderStyleDashed - | BorderStyleDouble - | BorderStyleGroove - | BorderStyleRidge - | AnotherBorderStyle Int - deriving (Show, Eq) - -instance Enum BorderStyle where - fromEnum BorderStyleNone = 0 - fromEnum BorderStyleSolid = 1 - fromEnum BorderStyleInset = 2 - fromEnum BorderStyleOutset = 3 - fromEnum BorderStyleHidden = 4 - fromEnum BorderStyleDotted = 5 - fromEnum BorderStyleDashed = 6 - fromEnum BorderStyleDouble = 7 - fromEnum BorderStyleGroove = 8 - fromEnum BorderStyleRidge = 9 - fromEnum (AnotherBorderStyle k) = k - - toEnum 0 = BorderStyleNone - toEnum 1 = BorderStyleSolid - toEnum 2 = BorderStyleInset - toEnum 3 = BorderStyleOutset - toEnum 4 = BorderStyleHidden - toEnum 5 = BorderStyleDotted - toEnum 6 = BorderStyleDashed - toEnum 7 = BorderStyleDouble - toEnum 8 = BorderStyleGroove - toEnum 9 = BorderStyleRidge - toEnum k = AnotherBorderStyle k - -foreign import ccall "gtk_border_style_get_type" c_gtk_border_style_get_type :: - IO GType - -instance BoxedEnum BorderStyle where - boxedEnumType _ = c_gtk_border_style_get_type - --- Enum BaselinePosition - -data BaselinePosition = - BaselinePositionTop - | BaselinePositionCenter - | BaselinePositionBottom - | AnotherBaselinePosition Int - deriving (Show, Eq) - -instance Enum BaselinePosition where - fromEnum BaselinePositionTop = 0 - fromEnum BaselinePositionCenter = 1 - fromEnum BaselinePositionBottom = 2 - fromEnum (AnotherBaselinePosition k) = k - - toEnum 0 = BaselinePositionTop - toEnum 1 = BaselinePositionCenter - toEnum 2 = BaselinePositionBottom - toEnum k = AnotherBaselinePosition k - -foreign import ccall "gtk_baseline_position_get_type" c_gtk_baseline_position_get_type :: - IO GType - -instance BoxedEnum BaselinePosition where - boxedEnumType _ = c_gtk_baseline_position_get_type - --- Enum AssistantPageType - -data AssistantPageType = - AssistantPageTypeContent - | AssistantPageTypeIntro - | AssistantPageTypeConfirm - | AssistantPageTypeSummary - | AssistantPageTypeProgress - | AssistantPageTypeCustom - | AnotherAssistantPageType Int - deriving (Show, Eq) - -instance Enum AssistantPageType where - fromEnum AssistantPageTypeContent = 0 - fromEnum AssistantPageTypeIntro = 1 - fromEnum AssistantPageTypeConfirm = 2 - fromEnum AssistantPageTypeSummary = 3 - fromEnum AssistantPageTypeProgress = 4 - fromEnum AssistantPageTypeCustom = 5 - fromEnum (AnotherAssistantPageType k) = k - - toEnum 0 = AssistantPageTypeContent - toEnum 1 = AssistantPageTypeIntro - toEnum 2 = AssistantPageTypeConfirm - toEnum 3 = AssistantPageTypeSummary - toEnum 4 = AssistantPageTypeProgress - toEnum 5 = AssistantPageTypeCustom - toEnum k = AnotherAssistantPageType k - -foreign import ccall "gtk_assistant_page_type_get_type" c_gtk_assistant_page_type_get_type :: - IO GType - -instance BoxedEnum AssistantPageType where - boxedEnumType _ = c_gtk_assistant_page_type_get_type - --- Enum ArrowType - -data ArrowType = - ArrowTypeUp - | ArrowTypeDown - | ArrowTypeLeft - | ArrowTypeRight - | ArrowTypeNone - | AnotherArrowType Int - deriving (Show, Eq) - -instance Enum ArrowType where - fromEnum ArrowTypeUp = 0 - fromEnum ArrowTypeDown = 1 - fromEnum ArrowTypeLeft = 2 - fromEnum ArrowTypeRight = 3 - fromEnum ArrowTypeNone = 4 - fromEnum (AnotherArrowType k) = k - - toEnum 0 = ArrowTypeUp - toEnum 1 = ArrowTypeDown - toEnum 2 = ArrowTypeLeft - toEnum 3 = ArrowTypeRight - toEnum 4 = ArrowTypeNone - toEnum k = AnotherArrowType k - -foreign import ccall "gtk_arrow_type_get_type" c_gtk_arrow_type_get_type :: - IO GType - -instance BoxedEnum ArrowType where - boxedEnumType _ = c_gtk_arrow_type_get_type - --- Enum ArrowPlacement - -data ArrowPlacement = - ArrowPlacementBoth - | ArrowPlacementStart - | ArrowPlacementEnd - | AnotherArrowPlacement Int - deriving (Show, Eq) - -instance Enum ArrowPlacement where - fromEnum ArrowPlacementBoth = 0 - fromEnum ArrowPlacementStart = 1 - fromEnum ArrowPlacementEnd = 2 - fromEnum (AnotherArrowPlacement k) = k - - toEnum 0 = ArrowPlacementBoth - toEnum 1 = ArrowPlacementStart - toEnum 2 = ArrowPlacementEnd - toEnum k = AnotherArrowPlacement k - -foreign import ccall "gtk_arrow_placement_get_type" c_gtk_arrow_placement_get_type :: - IO GType - -instance BoxedEnum ArrowPlacement where - boxedEnumType _ = c_gtk_arrow_placement_get_type - --- Enum Align - -data Align = - AlignFill - | AlignStart - | AlignEnd - | AlignCenter - | AlignBaseline - | AnotherAlign Int - deriving (Show, Eq) - -instance Enum Align where - fromEnum AlignFill = 0 - fromEnum AlignStart = 1 - fromEnum AlignEnd = 2 - fromEnum AlignCenter = 3 - fromEnum AlignBaseline = 4 - fromEnum (AnotherAlign k) = k - - toEnum 0 = AlignFill - toEnum 1 = AlignStart - toEnum 2 = AlignEnd - toEnum 3 = AlignCenter - toEnum 4 = AlignBaseline - toEnum k = AnotherAlign k - -foreign import ccall "gtk_align_get_type" c_gtk_align_get_type :: - IO GType - -instance BoxedEnum Align where - boxedEnumType _ = c_gtk_align_get_type - - diff --git a/GI/Gtk/Flags.hs b/GI/Gtk/Flags.hs deleted file mode 100644 --- a/GI/Gtk/Flags.hs +++ /dev/null @@ -1,872 +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.Gtk.Flags - ( - --- * Exported types - UIManagerItemType(..) , - TreeModelFlags(..) , - ToolPaletteDragTargets(..) , - TextSearchFlags(..) , - TargetFlags(..) , - StateFlags(..) , - RegionFlags(..) , - RecentFilterFlags(..) , - RcFlags(..) , - PlacesOpenFlags(..) , - JunctionSides(..) , - InputHints(..) , - IconLookupFlags(..) , - FileFilterFlags(..) , - DialogFlags(..) , - DestDefaults(..) , - DebugFlag(..) , - CellRendererState(..) , - CalendarDisplayOptions(..) , - AttachOptions(..) , - ApplicationInhibitFlags(..) , - AccelFlags(..) , - - - ) 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 UIManagerItemType -{-# DEPRECATED UIManagerItemType ["(Since version 3.10)"]#-} -data UIManagerItemType = - UIManagerItemTypeAuto - | UIManagerItemTypeMenubar - | UIManagerItemTypeMenu - | UIManagerItemTypeToolbar - | UIManagerItemTypePlaceholder - | UIManagerItemTypePopup - | UIManagerItemTypeMenuitem - | UIManagerItemTypeToolitem - | UIManagerItemTypeSeparator - | UIManagerItemTypeAccelerator - | UIManagerItemTypePopupWithAccels - | AnotherUIManagerItemType Int - deriving (Show, Eq) - -instance Enum UIManagerItemType where - fromEnum UIManagerItemTypeAuto = 0 - fromEnum UIManagerItemTypeMenubar = 1 - fromEnum UIManagerItemTypeMenu = 2 - fromEnum UIManagerItemTypeToolbar = 4 - fromEnum UIManagerItemTypePlaceholder = 8 - fromEnum UIManagerItemTypePopup = 16 - fromEnum UIManagerItemTypeMenuitem = 32 - fromEnum UIManagerItemTypeToolitem = 64 - fromEnum UIManagerItemTypeSeparator = 128 - fromEnum UIManagerItemTypeAccelerator = 256 - fromEnum UIManagerItemTypePopupWithAccels = 512 - fromEnum (AnotherUIManagerItemType k) = k - - toEnum 0 = UIManagerItemTypeAuto - toEnum 1 = UIManagerItemTypeMenubar - toEnum 2 = UIManagerItemTypeMenu - toEnum 4 = UIManagerItemTypeToolbar - toEnum 8 = UIManagerItemTypePlaceholder - toEnum 16 = UIManagerItemTypePopup - toEnum 32 = UIManagerItemTypeMenuitem - toEnum 64 = UIManagerItemTypeToolitem - toEnum 128 = UIManagerItemTypeSeparator - toEnum 256 = UIManagerItemTypeAccelerator - toEnum 512 = UIManagerItemTypePopupWithAccels - toEnum k = AnotherUIManagerItemType k - -foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type :: - IO GType - -instance BoxedFlags UIManagerItemType where - boxedFlagsType _ = c_gtk_ui_manager_item_type_get_type - -instance IsGFlag UIManagerItemType - --- Flags TreeModelFlags - -data TreeModelFlags = - TreeModelFlagsItersPersist - | TreeModelFlagsListOnly - | AnotherTreeModelFlags Int - deriving (Show, Eq) - -instance Enum TreeModelFlags where - fromEnum TreeModelFlagsItersPersist = 1 - fromEnum TreeModelFlagsListOnly = 2 - fromEnum (AnotherTreeModelFlags k) = k - - toEnum 1 = TreeModelFlagsItersPersist - toEnum 2 = TreeModelFlagsListOnly - toEnum k = AnotherTreeModelFlags k - -foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type :: - IO GType - -instance BoxedFlags TreeModelFlags where - boxedFlagsType _ = c_gtk_tree_model_flags_get_type - -instance IsGFlag TreeModelFlags - --- Flags ToolPaletteDragTargets - -data ToolPaletteDragTargets = - ToolPaletteDragTargetsItems - | ToolPaletteDragTargetsGroups - | AnotherToolPaletteDragTargets Int - deriving (Show, Eq) - -instance Enum ToolPaletteDragTargets where - fromEnum ToolPaletteDragTargetsItems = 1 - fromEnum ToolPaletteDragTargetsGroups = 2 - fromEnum (AnotherToolPaletteDragTargets k) = k - - toEnum 1 = ToolPaletteDragTargetsItems - toEnum 2 = ToolPaletteDragTargetsGroups - toEnum k = AnotherToolPaletteDragTargets k - -foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type :: - IO GType - -instance BoxedFlags ToolPaletteDragTargets where - boxedFlagsType _ = c_gtk_tool_palette_drag_targets_get_type - -instance IsGFlag ToolPaletteDragTargets - --- Flags TextSearchFlags - -data TextSearchFlags = - TextSearchFlagsVisibleOnly - | TextSearchFlagsTextOnly - | TextSearchFlagsCaseInsensitive - | AnotherTextSearchFlags Int - deriving (Show, Eq) - -instance Enum TextSearchFlags where - fromEnum TextSearchFlagsVisibleOnly = 1 - fromEnum TextSearchFlagsTextOnly = 2 - fromEnum TextSearchFlagsCaseInsensitive = 4 - fromEnum (AnotherTextSearchFlags k) = k - - toEnum 1 = TextSearchFlagsVisibleOnly - toEnum 2 = TextSearchFlagsTextOnly - toEnum 4 = TextSearchFlagsCaseInsensitive - toEnum k = AnotherTextSearchFlags k - -foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type :: - IO GType - -instance BoxedFlags TextSearchFlags where - boxedFlagsType _ = c_gtk_text_search_flags_get_type - -instance IsGFlag TextSearchFlags - --- Flags TargetFlags - -data TargetFlags = - TargetFlagsSameApp - | TargetFlagsSameWidget - | TargetFlagsOtherApp - | TargetFlagsOtherWidget - | AnotherTargetFlags Int - deriving (Show, Eq) - -instance Enum TargetFlags where - fromEnum TargetFlagsSameApp = 1 - fromEnum TargetFlagsSameWidget = 2 - fromEnum TargetFlagsOtherApp = 4 - fromEnum TargetFlagsOtherWidget = 8 - fromEnum (AnotherTargetFlags k) = k - - toEnum 1 = TargetFlagsSameApp - toEnum 2 = TargetFlagsSameWidget - toEnum 4 = TargetFlagsOtherApp - toEnum 8 = TargetFlagsOtherWidget - toEnum k = AnotherTargetFlags k - -foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type :: - IO GType - -instance BoxedFlags TargetFlags where - boxedFlagsType _ = c_gtk_target_flags_get_type - -instance IsGFlag TargetFlags - --- Flags StateFlags - -data StateFlags = - StateFlagsNormal - | StateFlagsActive - | StateFlagsPrelight - | StateFlagsSelected - | StateFlagsInsensitive - | StateFlagsInconsistent - | StateFlagsFocused - | StateFlagsBackdrop - | StateFlagsDirLtr - | StateFlagsDirRtl - | StateFlagsLink - | StateFlagsVisited - | StateFlagsChecked - | AnotherStateFlags Int - deriving (Show, Eq) - -instance Enum StateFlags where - fromEnum StateFlagsNormal = 0 - fromEnum StateFlagsActive = 1 - fromEnum StateFlagsPrelight = 2 - fromEnum StateFlagsSelected = 4 - fromEnum StateFlagsInsensitive = 8 - fromEnum StateFlagsInconsistent = 16 - fromEnum StateFlagsFocused = 32 - fromEnum StateFlagsBackdrop = 64 - fromEnum StateFlagsDirLtr = 128 - fromEnum StateFlagsDirRtl = 256 - fromEnum StateFlagsLink = 512 - fromEnum StateFlagsVisited = 1024 - fromEnum StateFlagsChecked = 2048 - fromEnum (AnotherStateFlags k) = k - - toEnum 0 = StateFlagsNormal - toEnum 1 = StateFlagsActive - toEnum 2 = StateFlagsPrelight - toEnum 4 = StateFlagsSelected - toEnum 8 = StateFlagsInsensitive - toEnum 16 = StateFlagsInconsistent - toEnum 32 = StateFlagsFocused - toEnum 64 = StateFlagsBackdrop - toEnum 128 = StateFlagsDirLtr - toEnum 256 = StateFlagsDirRtl - toEnum 512 = StateFlagsLink - toEnum 1024 = StateFlagsVisited - toEnum 2048 = StateFlagsChecked - toEnum k = AnotherStateFlags k - -foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type :: - IO GType - -instance BoxedFlags StateFlags where - boxedFlagsType _ = c_gtk_state_flags_get_type - -instance IsGFlag StateFlags - --- Flags RegionFlags - -data RegionFlags = - RegionFlagsEven - | RegionFlagsOdd - | RegionFlagsFirst - | RegionFlagsLast - | RegionFlagsOnly - | RegionFlagsSorted - | AnotherRegionFlags Int - deriving (Show, Eq) - -instance Enum RegionFlags where - fromEnum RegionFlagsEven = 1 - fromEnum RegionFlagsOdd = 2 - fromEnum RegionFlagsFirst = 4 - fromEnum RegionFlagsLast = 8 - fromEnum RegionFlagsOnly = 16 - fromEnum RegionFlagsSorted = 32 - fromEnum (AnotherRegionFlags k) = k - - toEnum 1 = RegionFlagsEven - toEnum 2 = RegionFlagsOdd - toEnum 4 = RegionFlagsFirst - toEnum 8 = RegionFlagsLast - toEnum 16 = RegionFlagsOnly - toEnum 32 = RegionFlagsSorted - toEnum k = AnotherRegionFlags k - -foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type :: - IO GType - -instance BoxedFlags RegionFlags where - boxedFlagsType _ = c_gtk_region_flags_get_type - -instance IsGFlag RegionFlags - --- Flags RecentFilterFlags - -data RecentFilterFlags = - RecentFilterFlagsUri - | RecentFilterFlagsDisplayName - | RecentFilterFlagsMimeType - | RecentFilterFlagsApplication - | RecentFilterFlagsGroup - | RecentFilterFlagsAge - | AnotherRecentFilterFlags Int - deriving (Show, Eq) - -instance Enum RecentFilterFlags where - fromEnum RecentFilterFlagsUri = 1 - fromEnum RecentFilterFlagsDisplayName = 2 - fromEnum RecentFilterFlagsMimeType = 4 - fromEnum RecentFilterFlagsApplication = 8 - fromEnum RecentFilterFlagsGroup = 16 - fromEnum RecentFilterFlagsAge = 32 - fromEnum (AnotherRecentFilterFlags k) = k - - toEnum 1 = RecentFilterFlagsUri - toEnum 2 = RecentFilterFlagsDisplayName - toEnum 4 = RecentFilterFlagsMimeType - toEnum 8 = RecentFilterFlagsApplication - toEnum 16 = RecentFilterFlagsGroup - toEnum 32 = RecentFilterFlagsAge - toEnum k = AnotherRecentFilterFlags k - -foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type :: - IO GType - -instance BoxedFlags RecentFilterFlags where - boxedFlagsType _ = c_gtk_recent_filter_flags_get_type - -instance IsGFlag RecentFilterFlags - --- Flags RcFlags - -data RcFlags = - RcFlagsFg - | RcFlagsBg - | RcFlagsText - | RcFlagsBase - | AnotherRcFlags Int - deriving (Show, Eq) - -instance Enum RcFlags where - fromEnum RcFlagsFg = 1 - fromEnum RcFlagsBg = 2 - fromEnum RcFlagsText = 4 - fromEnum RcFlagsBase = 8 - fromEnum (AnotherRcFlags k) = k - - toEnum 1 = RcFlagsFg - toEnum 2 = RcFlagsBg - toEnum 4 = RcFlagsText - toEnum 8 = RcFlagsBase - toEnum k = AnotherRcFlags k - -foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type :: - IO GType - -instance BoxedFlags RcFlags where - boxedFlagsType _ = c_gtk_rc_flags_get_type - -instance IsGFlag RcFlags - --- Flags PlacesOpenFlags - -data PlacesOpenFlags = - PlacesOpenFlagsNormal - | PlacesOpenFlagsNewTab - | PlacesOpenFlagsNewWindow - | AnotherPlacesOpenFlags Int - deriving (Show, Eq) - -instance Enum PlacesOpenFlags where - fromEnum PlacesOpenFlagsNormal = 1 - fromEnum PlacesOpenFlagsNewTab = 2 - fromEnum PlacesOpenFlagsNewWindow = 4 - fromEnum (AnotherPlacesOpenFlags k) = k - - toEnum 1 = PlacesOpenFlagsNormal - toEnum 2 = PlacesOpenFlagsNewTab - toEnum 4 = PlacesOpenFlagsNewWindow - toEnum k = AnotherPlacesOpenFlags k - -foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type :: - IO GType - -instance BoxedFlags PlacesOpenFlags where - boxedFlagsType _ = c_gtk_places_open_flags_get_type - -instance IsGFlag PlacesOpenFlags - --- Flags JunctionSides - -data JunctionSides = - JunctionSidesNone - | JunctionSidesCornerTopleft - | JunctionSidesCornerTopright - | JunctionSidesCornerBottomleft - | JunctionSidesCornerBottomright - | JunctionSidesTop - | JunctionSidesBottom - | JunctionSidesLeft - | JunctionSidesRight - | AnotherJunctionSides Int - deriving (Show, Eq) - -instance Enum JunctionSides where - fromEnum JunctionSidesNone = 0 - fromEnum JunctionSidesCornerTopleft = 1 - fromEnum JunctionSidesCornerTopright = 2 - fromEnum JunctionSidesCornerBottomleft = 4 - fromEnum JunctionSidesCornerBottomright = 8 - fromEnum JunctionSidesTop = 3 - fromEnum JunctionSidesBottom = 12 - fromEnum JunctionSidesLeft = 5 - fromEnum JunctionSidesRight = 10 - fromEnum (AnotherJunctionSides k) = k - - toEnum 0 = JunctionSidesNone - toEnum 1 = JunctionSidesCornerTopleft - toEnum 2 = JunctionSidesCornerTopright - toEnum 3 = JunctionSidesTop - toEnum 4 = JunctionSidesCornerBottomleft - toEnum 5 = JunctionSidesLeft - toEnum 8 = JunctionSidesCornerBottomright - toEnum 10 = JunctionSidesRight - toEnum 12 = JunctionSidesBottom - toEnum k = AnotherJunctionSides k - -foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type :: - IO GType - -instance BoxedFlags JunctionSides where - boxedFlagsType _ = c_gtk_junction_sides_get_type - -instance IsGFlag JunctionSides - --- Flags InputHints - -data InputHints = - InputHintsNone - | InputHintsSpellcheck - | InputHintsNoSpellcheck - | InputHintsWordCompletion - | InputHintsLowercase - | InputHintsUppercaseChars - | InputHintsUppercaseWords - | InputHintsUppercaseSentences - | InputHintsInhibitOsk - | InputHintsVerticalWriting - | AnotherInputHints Int - deriving (Show, Eq) - -instance Enum InputHints where - fromEnum InputHintsNone = 0 - fromEnum InputHintsSpellcheck = 1 - fromEnum InputHintsNoSpellcheck = 2 - fromEnum InputHintsWordCompletion = 4 - fromEnum InputHintsLowercase = 8 - fromEnum InputHintsUppercaseChars = 16 - fromEnum InputHintsUppercaseWords = 32 - fromEnum InputHintsUppercaseSentences = 64 - fromEnum InputHintsInhibitOsk = 128 - fromEnum InputHintsVerticalWriting = 256 - fromEnum (AnotherInputHints k) = k - - toEnum 0 = InputHintsNone - toEnum 1 = InputHintsSpellcheck - toEnum 2 = InputHintsNoSpellcheck - toEnum 4 = InputHintsWordCompletion - toEnum 8 = InputHintsLowercase - toEnum 16 = InputHintsUppercaseChars - toEnum 32 = InputHintsUppercaseWords - toEnum 64 = InputHintsUppercaseSentences - toEnum 128 = InputHintsInhibitOsk - toEnum 256 = InputHintsVerticalWriting - toEnum k = AnotherInputHints k - -foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type :: - IO GType - -instance BoxedFlags InputHints where - boxedFlagsType _ = c_gtk_input_hints_get_type - -instance IsGFlag InputHints - --- Flags IconLookupFlags - -data IconLookupFlags = - IconLookupFlagsNoSvg - | IconLookupFlagsForceSvg - | IconLookupFlagsUseBuiltin - | IconLookupFlagsGenericFallback - | IconLookupFlagsForceSize - | IconLookupFlagsForceRegular - | IconLookupFlagsForceSymbolic - | IconLookupFlagsDirLtr - | IconLookupFlagsDirRtl - | AnotherIconLookupFlags Int - deriving (Show, Eq) - -instance Enum IconLookupFlags where - fromEnum IconLookupFlagsNoSvg = 1 - fromEnum IconLookupFlagsForceSvg = 2 - fromEnum IconLookupFlagsUseBuiltin = 4 - fromEnum IconLookupFlagsGenericFallback = 8 - fromEnum IconLookupFlagsForceSize = 16 - fromEnum IconLookupFlagsForceRegular = 32 - fromEnum IconLookupFlagsForceSymbolic = 64 - fromEnum IconLookupFlagsDirLtr = 128 - fromEnum IconLookupFlagsDirRtl = 256 - fromEnum (AnotherIconLookupFlags k) = k - - toEnum 1 = IconLookupFlagsNoSvg - toEnum 2 = IconLookupFlagsForceSvg - toEnum 4 = IconLookupFlagsUseBuiltin - toEnum 8 = IconLookupFlagsGenericFallback - toEnum 16 = IconLookupFlagsForceSize - toEnum 32 = IconLookupFlagsForceRegular - toEnum 64 = IconLookupFlagsForceSymbolic - toEnum 128 = IconLookupFlagsDirLtr - toEnum 256 = IconLookupFlagsDirRtl - toEnum k = AnotherIconLookupFlags k - -foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type :: - IO GType - -instance BoxedFlags IconLookupFlags where - boxedFlagsType _ = c_gtk_icon_lookup_flags_get_type - -instance IsGFlag IconLookupFlags - --- Flags FileFilterFlags - -data FileFilterFlags = - FileFilterFlagsFilename - | FileFilterFlagsUri - | FileFilterFlagsDisplayName - | FileFilterFlagsMimeType - | AnotherFileFilterFlags Int - deriving (Show, Eq) - -instance Enum FileFilterFlags where - fromEnum FileFilterFlagsFilename = 1 - fromEnum FileFilterFlagsUri = 2 - fromEnum FileFilterFlagsDisplayName = 4 - fromEnum FileFilterFlagsMimeType = 8 - fromEnum (AnotherFileFilterFlags k) = k - - toEnum 1 = FileFilterFlagsFilename - toEnum 2 = FileFilterFlagsUri - toEnum 4 = FileFilterFlagsDisplayName - toEnum 8 = FileFilterFlagsMimeType - toEnum k = AnotherFileFilterFlags k - -foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type :: - IO GType - -instance BoxedFlags FileFilterFlags where - boxedFlagsType _ = c_gtk_file_filter_flags_get_type - -instance IsGFlag FileFilterFlags - --- Flags DialogFlags - -data DialogFlags = - DialogFlagsModal - | DialogFlagsDestroyWithParent - | DialogFlagsUseHeaderBar - | AnotherDialogFlags Int - deriving (Show, Eq) - -instance Enum DialogFlags where - fromEnum DialogFlagsModal = 1 - fromEnum DialogFlagsDestroyWithParent = 2 - fromEnum DialogFlagsUseHeaderBar = 4 - fromEnum (AnotherDialogFlags k) = k - - toEnum 1 = DialogFlagsModal - toEnum 2 = DialogFlagsDestroyWithParent - toEnum 4 = DialogFlagsUseHeaderBar - toEnum k = AnotherDialogFlags k - -foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type :: - IO GType - -instance BoxedFlags DialogFlags where - boxedFlagsType _ = c_gtk_dialog_flags_get_type - -instance IsGFlag DialogFlags - --- Flags DestDefaults - -data DestDefaults = - DestDefaultsMotion - | DestDefaultsHighlight - | DestDefaultsDrop - | DestDefaultsAll - | AnotherDestDefaults Int - deriving (Show, Eq) - -instance Enum DestDefaults where - fromEnum DestDefaultsMotion = 1 - fromEnum DestDefaultsHighlight = 2 - fromEnum DestDefaultsDrop = 4 - fromEnum DestDefaultsAll = 7 - fromEnum (AnotherDestDefaults k) = k - - toEnum 1 = DestDefaultsMotion - toEnum 2 = DestDefaultsHighlight - toEnum 4 = DestDefaultsDrop - toEnum 7 = DestDefaultsAll - toEnum k = AnotherDestDefaults k - -foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type :: - IO GType - -instance BoxedFlags DestDefaults where - boxedFlagsType _ = c_gtk_dest_defaults_get_type - -instance IsGFlag DestDefaults - --- Flags DebugFlag - -data DebugFlag = - DebugFlagMisc - | DebugFlagPlugsocket - | DebugFlagText - | DebugFlagTree - | DebugFlagUpdates - | DebugFlagKeybindings - | DebugFlagMultihead - | DebugFlagModules - | DebugFlagGeometry - | DebugFlagIcontheme - | DebugFlagPrinting - | DebugFlagBuilder - | DebugFlagSizeRequest - | DebugFlagNoCssCache - | DebugFlagBaselines - | DebugFlagPixelCache - | DebugFlagNoPixelCache - | DebugFlagInteractive - | DebugFlagTouchscreen - | DebugFlagActions - | AnotherDebugFlag Int - deriving (Show, Eq) - -instance Enum DebugFlag where - fromEnum DebugFlagMisc = 1 - fromEnum DebugFlagPlugsocket = 2 - fromEnum DebugFlagText = 4 - fromEnum DebugFlagTree = 8 - fromEnum DebugFlagUpdates = 16 - fromEnum DebugFlagKeybindings = 32 - fromEnum DebugFlagMultihead = 64 - fromEnum DebugFlagModules = 128 - fromEnum DebugFlagGeometry = 256 - fromEnum DebugFlagIcontheme = 512 - fromEnum DebugFlagPrinting = 1024 - fromEnum DebugFlagBuilder = 2048 - fromEnum DebugFlagSizeRequest = 4096 - fromEnum DebugFlagNoCssCache = 8192 - fromEnum DebugFlagBaselines = 16384 - fromEnum DebugFlagPixelCache = 32768 - fromEnum DebugFlagNoPixelCache = 65536 - fromEnum DebugFlagInteractive = 131072 - fromEnum DebugFlagTouchscreen = 262144 - fromEnum DebugFlagActions = 524288 - fromEnum (AnotherDebugFlag k) = k - - toEnum 1 = DebugFlagMisc - toEnum 2 = DebugFlagPlugsocket - toEnum 4 = DebugFlagText - toEnum 8 = DebugFlagTree - toEnum 16 = DebugFlagUpdates - toEnum 32 = DebugFlagKeybindings - toEnum 64 = DebugFlagMultihead - toEnum 128 = DebugFlagModules - toEnum 256 = DebugFlagGeometry - toEnum 512 = DebugFlagIcontheme - toEnum 1024 = DebugFlagPrinting - toEnum 2048 = DebugFlagBuilder - toEnum 4096 = DebugFlagSizeRequest - toEnum 8192 = DebugFlagNoCssCache - toEnum 16384 = DebugFlagBaselines - toEnum 32768 = DebugFlagPixelCache - toEnum 65536 = DebugFlagNoPixelCache - toEnum 131072 = DebugFlagInteractive - toEnum 262144 = DebugFlagTouchscreen - toEnum 524288 = DebugFlagActions - toEnum k = AnotherDebugFlag k - -foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type :: - IO GType - -instance BoxedFlags DebugFlag where - boxedFlagsType _ = c_gtk_debug_flag_get_type - -instance IsGFlag DebugFlag - --- Flags CellRendererState - -data CellRendererState = - CellRendererStateSelected - | CellRendererStatePrelit - | CellRendererStateInsensitive - | CellRendererStateSorted - | CellRendererStateFocused - | CellRendererStateExpandable - | CellRendererStateExpanded - | AnotherCellRendererState Int - deriving (Show, Eq) - -instance Enum CellRendererState where - fromEnum CellRendererStateSelected = 1 - fromEnum CellRendererStatePrelit = 2 - fromEnum CellRendererStateInsensitive = 4 - fromEnum CellRendererStateSorted = 8 - fromEnum CellRendererStateFocused = 16 - fromEnum CellRendererStateExpandable = 32 - fromEnum CellRendererStateExpanded = 64 - fromEnum (AnotherCellRendererState k) = k - - toEnum 1 = CellRendererStateSelected - toEnum 2 = CellRendererStatePrelit - toEnum 4 = CellRendererStateInsensitive - toEnum 8 = CellRendererStateSorted - toEnum 16 = CellRendererStateFocused - toEnum 32 = CellRendererStateExpandable - toEnum 64 = CellRendererStateExpanded - toEnum k = AnotherCellRendererState k - -foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type :: - IO GType - -instance BoxedFlags CellRendererState where - boxedFlagsType _ = c_gtk_cell_renderer_state_get_type - -instance IsGFlag CellRendererState - --- Flags CalendarDisplayOptions - -data CalendarDisplayOptions = - CalendarDisplayOptionsShowHeading - | CalendarDisplayOptionsShowDayNames - | CalendarDisplayOptionsNoMonthChange - | CalendarDisplayOptionsShowWeekNumbers - | CalendarDisplayOptionsShowDetails - | AnotherCalendarDisplayOptions Int - deriving (Show, Eq) - -instance Enum CalendarDisplayOptions where - fromEnum CalendarDisplayOptionsShowHeading = 1 - fromEnum CalendarDisplayOptionsShowDayNames = 2 - fromEnum CalendarDisplayOptionsNoMonthChange = 4 - fromEnum CalendarDisplayOptionsShowWeekNumbers = 8 - fromEnum CalendarDisplayOptionsShowDetails = 32 - fromEnum (AnotherCalendarDisplayOptions k) = k - - toEnum 1 = CalendarDisplayOptionsShowHeading - toEnum 2 = CalendarDisplayOptionsShowDayNames - toEnum 4 = CalendarDisplayOptionsNoMonthChange - toEnum 8 = CalendarDisplayOptionsShowWeekNumbers - toEnum 32 = CalendarDisplayOptionsShowDetails - toEnum k = AnotherCalendarDisplayOptions k - -foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type :: - IO GType - -instance BoxedFlags CalendarDisplayOptions where - boxedFlagsType _ = c_gtk_calendar_display_options_get_type - -instance IsGFlag CalendarDisplayOptions - --- Flags AttachOptions - -data AttachOptions = - AttachOptionsExpand - | AttachOptionsShrink - | AttachOptionsFill - | AnotherAttachOptions Int - deriving (Show, Eq) - -instance Enum AttachOptions where - fromEnum AttachOptionsExpand = 1 - fromEnum AttachOptionsShrink = 2 - fromEnum AttachOptionsFill = 4 - fromEnum (AnotherAttachOptions k) = k - - toEnum 1 = AttachOptionsExpand - toEnum 2 = AttachOptionsShrink - toEnum 4 = AttachOptionsFill - toEnum k = AnotherAttachOptions k - -foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type :: - IO GType - -instance BoxedFlags AttachOptions where - boxedFlagsType _ = c_gtk_attach_options_get_type - -instance IsGFlag AttachOptions - --- Flags ApplicationInhibitFlags - -data ApplicationInhibitFlags = - ApplicationInhibitFlagsLogout - | ApplicationInhibitFlagsSwitch - | ApplicationInhibitFlagsSuspend - | ApplicationInhibitFlagsIdle - | AnotherApplicationInhibitFlags Int - deriving (Show, Eq) - -instance Enum ApplicationInhibitFlags where - fromEnum ApplicationInhibitFlagsLogout = 1 - fromEnum ApplicationInhibitFlagsSwitch = 2 - fromEnum ApplicationInhibitFlagsSuspend = 4 - fromEnum ApplicationInhibitFlagsIdle = 8 - fromEnum (AnotherApplicationInhibitFlags k) = k - - toEnum 1 = ApplicationInhibitFlagsLogout - toEnum 2 = ApplicationInhibitFlagsSwitch - toEnum 4 = ApplicationInhibitFlagsSuspend - toEnum 8 = ApplicationInhibitFlagsIdle - toEnum k = AnotherApplicationInhibitFlags k - -foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type :: - IO GType - -instance BoxedFlags ApplicationInhibitFlags where - boxedFlagsType _ = c_gtk_application_inhibit_flags_get_type - -instance IsGFlag ApplicationInhibitFlags - --- Flags AccelFlags - -data AccelFlags = - AccelFlagsVisible - | AccelFlagsLocked - | AccelFlagsMask - | AnotherAccelFlags Int - deriving (Show, Eq) - -instance Enum AccelFlags where - fromEnum AccelFlagsVisible = 1 - fromEnum AccelFlagsLocked = 2 - fromEnum AccelFlagsMask = 7 - fromEnum (AnotherAccelFlags k) = k - - toEnum 1 = AccelFlagsVisible - toEnum 2 = AccelFlagsLocked - toEnum 7 = AccelFlagsMask - toEnum k = AnotherAccelFlags k - -foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type :: - IO GType - -instance BoxedFlags AccelFlags where - boxedFlagsType _ = c_gtk_accel_flags_get_type - -instance IsGFlag AccelFlags - - diff --git a/GI/Gtk/Functions.hs b/GI/Gtk/Functions.hs deleted file mode 100644 --- a/GI/Gtk/Functions.hs +++ /dev/null @@ -1,5872 +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.Gtk.Functions - ( - - -- * Methods --- ** accelGroupsActivate - accelGroupsActivate , - - --- ** accelGroupsFromObject - accelGroupsFromObject , - - --- ** acceleratorGetDefaultModMask - acceleratorGetDefaultModMask , - - --- ** acceleratorGetLabel - acceleratorGetLabel , - - --- ** acceleratorGetLabelWithKeycode - acceleratorGetLabelWithKeycode , - - --- ** acceleratorName - acceleratorName , - - --- ** acceleratorNameWithKeycode - acceleratorNameWithKeycode , - - --- ** acceleratorParse - acceleratorParse , - - --- ** acceleratorParseWithKeycode - acceleratorParseWithKeycode , - - --- ** acceleratorSetDefaultModMask - acceleratorSetDefaultModMask , - - --- ** acceleratorValid - acceleratorValid , - - --- ** alternativeDialogButtonOrder - alternativeDialogButtonOrder , - - --- ** bindingsActivate - bindingsActivate , - - --- ** bindingsActivateEvent - bindingsActivateEvent , - - --- ** cairoShouldDrawWindow - cairoShouldDrawWindow , - - --- ** cairoTransformToWindow - cairoTransformToWindow , - - --- ** checkVersion - checkVersion , - - --- ** deviceGrabAdd - deviceGrabAdd , - - --- ** deviceGrabRemove - deviceGrabRemove , - - --- ** disableSetlocale - disableSetlocale , - - --- ** distributeNaturalAllocation - distributeNaturalAllocation , - - --- ** dragCancel - dragCancel , - - --- ** dragFinish - dragFinish , - - --- ** dragGetSourceWidget - dragGetSourceWidget , - - --- ** dragSetIconDefault - dragSetIconDefault , - - --- ** dragSetIconGicon - dragSetIconGicon , - - --- ** dragSetIconName - dragSetIconName , - - --- ** dragSetIconPixbuf - dragSetIconPixbuf , - - --- ** dragSetIconStock - dragSetIconStock , - - --- ** dragSetIconSurface - dragSetIconSurface , - - --- ** dragSetIconWidget - dragSetIconWidget , - - --- ** drawInsertionCursor - drawInsertionCursor , - - --- ** eventsPending - eventsPending , - - --- ** false - false , - - --- ** getBinaryAge - getBinaryAge , - - --- ** getCurrentEvent - getCurrentEvent , - - --- ** getCurrentEventDevice - getCurrentEventDevice , - - --- ** getCurrentEventState - getCurrentEventState , - - --- ** getCurrentEventTime - getCurrentEventTime , - - --- ** getDebugFlags - getDebugFlags , - - --- ** getDefaultLanguage - getDefaultLanguage , - - --- ** getEventWidget - getEventWidget , - - --- ** getInterfaceAge - getInterfaceAge , - - --- ** getLocaleDirection - getLocaleDirection , - - --- ** getMajorVersion - getMajorVersion , - - --- ** getMicroVersion - getMicroVersion , - - --- ** getMinorVersion - getMinorVersion , - - --- ** getOptionGroup - getOptionGroup , - - --- ** grabGetCurrent - grabGetCurrent , - - --- ** init - init , - - --- ** initCheck - initCheck , - - --- ** initWithArgs - initWithArgs , - - --- ** keySnooperRemove - keySnooperRemove , - - --- ** main - main , - - --- ** mainDoEvent - mainDoEvent , - - --- ** mainIteration - mainIteration , - - --- ** mainIterationDo - mainIterationDo , - - --- ** mainLevel - mainLevel , - - --- ** mainQuit - mainQuit , - - --- ** paintArrow - paintArrow , - - --- ** paintBox - paintBox , - - --- ** paintBoxGap - paintBoxGap , - - --- ** paintCheck - paintCheck , - - --- ** paintDiamond - paintDiamond , - - --- ** paintExpander - paintExpander , - - --- ** paintExtension - paintExtension , - - --- ** paintFlatBox - paintFlatBox , - - --- ** paintFocus - paintFocus , - - --- ** paintHandle - paintHandle , - - --- ** paintHline - paintHline , - - --- ** paintLayout - paintLayout , - - --- ** paintOption - paintOption , - - --- ** paintResizeGrip - paintResizeGrip , - - --- ** paintShadow - paintShadow , - - --- ** paintShadowGap - paintShadowGap , - - --- ** paintSlider - paintSlider , - - --- ** paintSpinner - paintSpinner , - - --- ** paintTab - paintTab , - - --- ** paintVline - paintVline , - - --- ** parseArgs - parseArgs , - - --- ** printRunPageSetupDialog - printRunPageSetupDialog , - - --- ** printRunPageSetupDialogAsync - printRunPageSetupDialogAsync , - - --- ** propagateEvent - propagateEvent , - - --- ** rcAddDefaultFile - rcAddDefaultFile , - - --- ** rcFindModuleInPath - rcFindModuleInPath , - - --- ** rcFindPixmapInPath - rcFindPixmapInPath , - - --- ** rcGetDefaultFiles - rcGetDefaultFiles , - - --- ** rcGetImModuleFile - rcGetImModuleFile , - - --- ** rcGetImModulePath - rcGetImModulePath , - - --- ** rcGetModuleDir - rcGetModuleDir , - - --- ** rcGetStyle - rcGetStyle , - - --- ** rcGetStyleByPaths - rcGetStyleByPaths , - - --- ** rcGetThemeDir - rcGetThemeDir , - - --- ** rcParse - rcParse , - - --- ** rcParseColor - rcParseColor , - - --- ** rcParseColorFull - rcParseColorFull , - - --- ** rcParsePriority - rcParsePriority , - - --- ** rcParseState - rcParseState , - - --- ** rcParseString - rcParseString , - - --- ** rcReparseAll - rcReparseAll , - - --- ** rcReparseAllForSettings - rcReparseAllForSettings , - - --- ** rcResetStyles - rcResetStyles , - - --- ** rcSetDefaultFiles - rcSetDefaultFiles , - - --- ** renderActivity - renderActivity , - - --- ** renderArrow - renderArrow , - - --- ** renderBackground - renderBackground , - - --- ** renderCheck - renderCheck , - - --- ** renderExpander - renderExpander , - - --- ** renderExtension - renderExtension , - - --- ** renderFocus - renderFocus , - - --- ** renderFrame - renderFrame , - - --- ** renderFrameGap - renderFrameGap , - - --- ** renderHandle - renderHandle , - - --- ** renderIcon - renderIcon , - - --- ** renderIconPixbuf - renderIconPixbuf , - - --- ** renderIconSurface - renderIconSurface , - - --- ** renderInsertionCursor - renderInsertionCursor , - - --- ** renderLayout - renderLayout , - - --- ** renderLine - renderLine , - - --- ** renderOption - renderOption , - - --- ** renderSlider - renderSlider , - - --- ** rgbToHsv - rgbToHsv , - - --- ** selectionAddTarget - selectionAddTarget , - - --- ** selectionAddTargets - selectionAddTargets , - - --- ** selectionClearTargets - selectionClearTargets , - - --- ** selectionConvert - selectionConvert , - - --- ** selectionOwnerSet - selectionOwnerSet , - - --- ** selectionOwnerSetForDisplay - selectionOwnerSetForDisplay , - - --- ** selectionRemoveAll - selectionRemoveAll , - - --- ** setDebugFlags - setDebugFlags , - - --- ** showUri - showUri , - - --- ** stockAdd - stockAdd , - - --- ** stockAddStatic - stockAddStatic , - - --- ** stockListIds - stockListIds , - - --- ** stockLookup - stockLookup , - - --- ** stockSetTranslateFunc - stockSetTranslateFunc , - - --- ** targetTableFree - targetTableFree , - - --- ** targetTableNewFromList - targetTableNewFromList , - - --- ** targetsIncludeImage - targetsIncludeImage , - - --- ** targetsIncludeRichText - targetsIncludeRichText , - - --- ** targetsIncludeText - targetsIncludeText , - - --- ** targetsIncludeUri - targetsIncludeUri , - - --- ** testCreateSimpleWindow - testCreateSimpleWindow , - - --- ** testFindLabel - testFindLabel , - - --- ** testFindSibling - testFindSibling , - - --- ** testFindWidget - testFindWidget , - - --- ** testListAllTypes - testListAllTypes , - - --- ** testRegisterAllTypes - testRegisterAllTypes , - - --- ** testSliderGetValue - testSliderGetValue , - - --- ** testSliderSetPerc - testSliderSetPerc , - - --- ** testSpinButtonClick - testSpinButtonClick , - - --- ** testTextGet - testTextGet , - - --- ** testTextSet - testTextSet , - - --- ** testWidgetClick - testWidgetClick , - - --- ** testWidgetSendKey - testWidgetSendKey , - - --- ** testWidgetWaitForDraw - testWidgetWaitForDraw , - - --- ** treeGetRowDragData - treeGetRowDragData , - - --- ** treeSetRowDragData - treeSetRowDragData , - - --- ** true - true , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - --- function gtk_true --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_true" gtk_true :: - IO CInt - - -true :: - (MonadIO m) => - m Bool -- result -true = liftIO $ do - result <- gtk_true - let result' = (/= 0) result - return result' - - --- function gtk_tree_set_row_drag_data --- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_set_row_drag_data" gtk_tree_set_row_drag_data :: - Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData" - Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeSetRowDragData :: - (MonadIO m, TreeModelK a) => - SelectionData -- selectionData - -> a -- treeModel - -> TreePath -- path - -> m Bool -- result -treeSetRowDragData selectionData treeModel path = liftIO $ do - let selectionData' = unsafeManagedPtrGetPtr selectionData - let treeModel' = unsafeManagedPtrCastPtr treeModel - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_set_row_drag_data selectionData' treeModel' path' - let result' = (/= 0) result - touchManagedPtr selectionData - touchManagedPtr treeModel - touchManagedPtr path - return result' - - --- function gtk_tree_get_row_drag_data --- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_get_row_drag_data" gtk_tree_get_row_drag_data :: - Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData" - Ptr (Ptr TreeModel) -> -- tree_model : TInterface "Gtk" "TreeModel" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeGetRowDragData :: - (MonadIO m) => - SelectionData -- selectionData - -> m (Bool,(Maybe TreeModel),(Maybe TreePath))-- result -treeGetRowDragData selectionData = liftIO $ do - let selectionData' = unsafeManagedPtrGetPtr selectionData - treeModel <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_tree_get_row_drag_data selectionData' treeModel path - let result' = (/= 0) result - treeModel' <- peek treeModel - maybeTreeModel' <- convertIfNonNull treeModel' $ \treeModel'' -> do - treeModel''' <- (newObject TreeModel) treeModel'' - return treeModel''' - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - touchManagedPtr selectionData - freeMem treeModel - freeMem path - return (result', maybeTreeModel', maybePath') - - --- function gtk_test_widget_wait_for_draw --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_test_widget_wait_for_draw" gtk_test_widget_wait_for_draw :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -testWidgetWaitForDraw :: - (MonadIO m, WidgetK a) => - a -- widget - -> m () -- result -testWidgetWaitForDraw widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - gtk_test_widget_wait_for_draw widget' - touchManagedPtr widget - return () - - --- function gtk_test_widget_send_key --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_test_widget_send_key" gtk_test_widget_send_key :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -testWidgetSendKey :: - (MonadIO m, WidgetK a) => - a -- widget - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> m Bool -- result -testWidgetSendKey widget keyval modifiers = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let modifiers' = gflagsToWord modifiers - result <- gtk_test_widget_send_key widget' keyval modifiers' - let result' = (/= 0) result - touchManagedPtr widget - return result' - - --- function gtk_test_widget_click --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_test_widget_click" gtk_test_widget_click :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- button : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -testWidgetClick :: - (MonadIO m, WidgetK a) => - a -- widget - -> Word32 -- button - -> [Gdk.ModifierType] -- modifiers - -> m Bool -- result -testWidgetClick widget button modifiers = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let modifiers' = gflagsToWord modifiers - result <- gtk_test_widget_click widget' button modifiers' - let result' = (/= 0) result - touchManagedPtr widget - return result' - - --- function gtk_test_text_set --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_test_text_set" gtk_test_text_set :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- string : TBasicType TUTF8 - IO () - - -testTextSet :: - (MonadIO m, WidgetK a) => - a -- widget - -> T.Text -- string - -> m () -- result -testTextSet widget string = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - string' <- textToCString string - gtk_test_text_set widget' string' - touchManagedPtr widget - freeMem string' - return () - - --- function gtk_test_text_get --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_test_text_get" gtk_test_text_get :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO CString - - -testTextGet :: - (MonadIO m, WidgetK a) => - a -- widget - -> m T.Text -- result -testTextGet widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_test_text_get widget' - checkUnexpectedReturnNULL "gtk_test_text_get" result - result' <- cstringToText result - freeMem result - touchManagedPtr widget - return result' - - --- function gtk_test_spin_button_click --- Args : [Arg {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, 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 "gtk_test_spin_button_click" gtk_test_spin_button_click :: - Ptr SpinButton -> -- spinner : TInterface "Gtk" "SpinButton" - Word32 -> -- button : TBasicType TUInt - CInt -> -- upwards : TBasicType TBoolean - IO CInt - - -testSpinButtonClick :: - (MonadIO m, SpinButtonK a) => - a -- spinner - -> Word32 -- button - -> Bool -- upwards - -> m Bool -- result -testSpinButtonClick spinner button upwards = liftIO $ do - let spinner' = unsafeManagedPtrCastPtr spinner - let upwards' = (fromIntegral . fromEnum) upwards - result <- gtk_test_spin_button_click spinner' button upwards' - let result' = (/= 0) result - touchManagedPtr spinner - return result' - - --- function gtk_test_slider_set_perc --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percentage", 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 "gtk_test_slider_set_perc" gtk_test_slider_set_perc :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CDouble -> -- percentage : TBasicType TDouble - IO () - - -testSliderSetPerc :: - (MonadIO m, WidgetK a) => - a -- widget - -> Double -- percentage - -> m () -- result -testSliderSetPerc widget percentage = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let percentage' = realToFrac percentage - gtk_test_slider_set_perc widget' percentage' - touchManagedPtr widget - return () - - --- function gtk_test_slider_get_value --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_test_slider_get_value" gtk_test_slider_get_value :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO CDouble - - -testSliderGetValue :: - (MonadIO m, WidgetK a) => - a -- widget - -> m Double -- result -testSliderGetValue widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_test_slider_get_value widget' - let result' = realToFrac result - touchManagedPtr widget - return result' - - --- function gtk_test_register_all_types --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_register_all_types" gtk_test_register_all_types :: - IO () - - -testRegisterAllTypes :: - (MonadIO m) => - m () -- result -testRegisterAllTypes = liftIO $ do - gtk_test_register_all_types - return () - - --- function gtk_test_list_all_types --- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) 0 (TBasicType TGType)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types :: - Ptr Word32 -> -- n_types : TBasicType TUInt - IO (Ptr CGType) - - -testListAllTypes :: - (MonadIO m) => - m ([GType],Word32) -- result -testListAllTypes = liftIO $ do - nTypes <- allocMem :: IO (Ptr Word32) - result <- gtk_test_list_all_types nTypes - checkUnexpectedReturnNULL "gtk_test_list_all_types" result - result' <- (unpackMapZeroTerminatedStorableArray GType) result - nTypes' <- peek nTypes - freeMem nTypes - return (result', nTypes') - - --- function gtk_test_find_widget --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_find_widget" gtk_test_find_widget :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- label_pattern : TBasicType TUTF8 - CGType -> -- widget_type : TBasicType TGType - IO (Ptr Widget) - - -testFindWidget :: - (MonadIO m, WidgetK a) => - a -- widget - -> T.Text -- labelPattern - -> GType -- widgetType - -> m Widget -- result -testFindWidget widget labelPattern widgetType = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - labelPattern' <- textToCString labelPattern - let widgetType' = gtypeToCGType widgetType - result <- gtk_test_find_widget widget' labelPattern' widgetType' - checkUnexpectedReturnNULL "gtk_test_find_widget" result - result' <- (newObject Widget) result - touchManagedPtr widget - freeMem labelPattern' - return result' - - --- function gtk_test_find_sibling --- Args : [Arg {argCName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_find_sibling" gtk_test_find_sibling :: - Ptr Widget -> -- base_widget : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - IO (Ptr Widget) - - -testFindSibling :: - (MonadIO m, WidgetK a) => - a -- baseWidget - -> GType -- widgetType - -> m Widget -- result -testFindSibling baseWidget widgetType = liftIO $ do - let baseWidget' = unsafeManagedPtrCastPtr baseWidget - let widgetType' = gtypeToCGType widgetType - result <- gtk_test_find_sibling baseWidget' widgetType' - checkUnexpectedReturnNULL "gtk_test_find_sibling" result - result' <- (newObject Widget) result - touchManagedPtr baseWidget - return result' - - --- function gtk_test_find_label --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_find_label" gtk_test_find_label :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- label_pattern : TBasicType TUTF8 - IO (Ptr Widget) - - -testFindLabel :: - (MonadIO m, WidgetK a) => - a -- widget - -> T.Text -- labelPattern - -> m Widget -- result -testFindLabel widget labelPattern = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - labelPattern' <- textToCString labelPattern - result <- gtk_test_find_label widget' labelPattern' - checkUnexpectedReturnNULL "gtk_test_find_label" result - result' <- (newObject Widget) result - touchManagedPtr widget - freeMem labelPattern' - return result' - - --- function gtk_test_create_simple_window --- Args : [Arg {argCName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_create_simple_window" gtk_test_create_simple_window :: - CString -> -- window_title : TBasicType TUTF8 - CString -> -- dialog_text : TBasicType TUTF8 - IO (Ptr Widget) - - -testCreateSimpleWindow :: - (MonadIO m) => - T.Text -- windowTitle - -> T.Text -- dialogText - -> m Widget -- result -testCreateSimpleWindow windowTitle dialogText = liftIO $ do - windowTitle' <- textToCString windowTitle - dialogText' <- textToCString dialogText - result <- gtk_test_create_simple_window windowTitle' dialogText' - checkUnexpectedReturnNULL "gtk_test_create_simple_window" result - result' <- (newObject Widget) result - freeMem windowTitle' - freeMem dialogText' - return result' - - --- function gtk_targets_include_uri --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), 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}] --- Lengths : [Arg {argCName = "n_targets", 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 "gtk_targets_include_uri" gtk_targets_include_uri :: - Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt - IO CInt - - -targetsIncludeUri :: - (MonadIO m) => - [Gdk.Atom] -- targets - -> m Bool -- result -targetsIncludeUri targets = liftIO $ do - let nTargets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - result <- gtk_targets_include_uri targets'' nTargets - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_targets_include_text --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), 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}] --- Lengths : [Arg {argCName = "n_targets", 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 "gtk_targets_include_text" gtk_targets_include_text :: - Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt - IO CInt - - -targetsIncludeText :: - (MonadIO m) => - [Gdk.Atom] -- targets - -> m Bool -- result -targetsIncludeText targets = liftIO $ do - let nTargets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - result <- gtk_targets_include_text targets'' nTargets - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_targets_include_rich_text --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), 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 = "buffer", argType = TInterface "Gtk" "TextBuffer", 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 (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text :: - Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO CInt - - -targetsIncludeRichText :: - (MonadIO m, TextBufferK a) => - [Gdk.Atom] -- targets - -> a -- buffer - -> m Bool -- result -targetsIncludeRichText targets buffer = liftIO $ do - let nTargets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_targets_include_rich_text targets'' nTargets buffer' - let result' = (/= 0) result - mapM_ touchManagedPtr targets - touchManagedPtr buffer - freeMem targets'' - return result' - - --- function gtk_targets_include_image --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), 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 = "writable", argType = TBasicType TBoolean, 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 (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_targets_include_image" gtk_targets_include_image :: - Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt - CInt -> -- writable : TBasicType TBoolean - IO CInt - - -targetsIncludeImage :: - (MonadIO m) => - [Gdk.Atom] -- targets - -> Bool -- writable - -> m Bool -- result -targetsIncludeImage targets writable = liftIO $ do - let nTargets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - let writable' = (fromIntegral . fromEnum) writable - result <- gtk_targets_include_image targets'' nTargets writable' - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_target_table_new_from_list --- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list :: - Ptr TargetList -> -- list : TInterface "Gtk" "TargetList" - Ptr Int32 -> -- n_targets : TBasicType TInt - IO (Ptr TargetEntry) - - -targetTableNewFromList :: - (MonadIO m) => - TargetList -- list - -> m [TargetEntry] -- result -targetTableNewFromList list = liftIO $ do - let list' = unsafeManagedPtrGetPtr list - nTargets <- allocMem :: IO (Ptr Int32) - result <- gtk_target_table_new_from_list list' nTargets - nTargets' <- peek nTargets - checkUnexpectedReturnNULL "gtk_target_table_new_from_list" result - result' <- (unpackBoxedArrayWithLength 16 nTargets') result - result'' <- mapM (wrapBoxed TargetEntry) result' - freeMem result - touchManagedPtr list - freeMem nTargets - return result'' - - --- function gtk_target_table_free --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), 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}] --- Lengths : [Arg {argCName = "n_targets", 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 "gtk_target_table_free" gtk_target_table_free :: - Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - IO () - - -targetTableFree :: - (MonadIO m) => - [TargetEntry] -- targets - -> m () -- result -targetTableFree targets = liftIO $ do - let nTargets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - gtk_target_table_free targets'' nTargets - mapM_ touchManagedPtr targets - freeMem targets'' - return () - - --- function gtk_stock_set_translate_func --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func :: - CString -> -- domain : TBasicType TUTF8 - FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED stockSetTranslateFunc ["(Since version 3.10)"]#-} -stockSetTranslateFunc :: - (MonadIO m) => - T.Text -- domain - -> TranslateFunc -- func - -> m () -- result -stockSetTranslateFunc domain func = liftIO $ do - domain' <- textToCString domain - func' <- mkTranslateFunc (translateFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - gtk_stock_set_translate_func domain' func' data_ notify - freeMem domain' - return () - - --- function gtk_stock_lookup --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_stock_lookup" gtk_stock_lookup :: - CString -> -- stock_id : TBasicType TUTF8 - Ptr StockItem -> -- item : TInterface "Gtk" "StockItem" - IO CInt - -{-# DEPRECATED stockLookup ["(Since version 3.10)"]#-} -stockLookup :: - (MonadIO m) => - T.Text -- stockId - -> m (Bool,StockItem) -- result -stockLookup stockId = liftIO $ do - stockId' <- textToCString stockId - item <- callocBytes 32 :: IO (Ptr StockItem) - result <- gtk_stock_lookup stockId' item - let result' = (/= 0) result - item' <- (wrapPtr StockItem) item - freeMem stockId' - return (result', item') - - --- function gtk_stock_list_ids --- Args : [] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_stock_list_ids" gtk_stock_list_ids :: - IO (Ptr (GSList CString)) - -{-# DEPRECATED stockListIds ["(Since version 3.10)"]#-} -stockListIds :: - (MonadIO m) => - m [T.Text] -- result -stockListIds = liftIO $ do - result <- gtk_stock_list_ids - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - return result'' - - --- function gtk_stock_add_static --- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_stock_add_static" gtk_stock_add_static :: - Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem") - Word32 -> -- n_items : TBasicType TUInt - IO () - -{-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-} -stockAddStatic :: - (MonadIO m) => - [StockItem] -- items - -> m () -- result -stockAddStatic items = liftIO $ do - let nItems = fromIntegral $ length items - let items' = map unsafeManagedPtrGetPtr items - items'' <- packBlockArray 32 items' - gtk_stock_add_static items'' nItems - mapM_ touchManagedPtr items - freeMem items'' - return () - - --- function gtk_stock_add --- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_stock_add" gtk_stock_add :: - Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem") - Word32 -> -- n_items : TBasicType TUInt - IO () - -{-# DEPRECATED stockAdd ["(Since version 3.10)"]#-} -stockAdd :: - (MonadIO m) => - [StockItem] -- items - -> m () -- result -stockAdd items = liftIO $ do - let nItems = fromIntegral $ length items - let items' = map unsafeManagedPtrGetPtr items - items'' <- packBlockArray 32 items' - gtk_stock_add items'' nItems - mapM_ touchManagedPtr items - freeMem items'' - return () - - --- function gtk_show_uri --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_show_uri" gtk_show_uri :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - CString -> -- uri : TBasicType TUTF8 - Word32 -> -- timestamp : TBasicType TUInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -showUri :: - (MonadIO m, Gdk.ScreenK a) => - Maybe (a) -- screen - -> T.Text -- uri - -> Word32 -- timestamp - -> m () -- result -showUri screen uri timestamp = liftIO $ do - maybeScreen <- case screen of - Nothing -> return nullPtr - Just jScreen -> do - let jScreen' = unsafeManagedPtrCastPtr jScreen - return jScreen' - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_show_uri maybeScreen uri' timestamp - whenJust screen touchManagedPtr - freeMem uri' - return () - ) (do - freeMem uri' - ) - - --- function gtk_set_debug_flags --- Args : [Arg {argCName = "flags", 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 "gtk_set_debug_flags" gtk_set_debug_flags :: - Word32 -> -- flags : TBasicType TUInt - IO () - - -setDebugFlags :: - (MonadIO m) => - Word32 -- flags - -> m () -- result -setDebugFlags flags = liftIO $ do - gtk_set_debug_flags flags - return () - - --- function gtk_selection_remove_all --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_selection_remove_all" gtk_selection_remove_all :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -selectionRemoveAll :: - (MonadIO m, WidgetK a) => - a -- widget - -> m () -- result -selectionRemoveAll widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - gtk_selection_remove_all widget' - touchManagedPtr widget - return () - - --- function gtk_selection_owner_set_for_display --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, 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 "gtk_selection_owner_set_for_display" gtk_selection_owner_set_for_display :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO CInt - - -selectionOwnerSetForDisplay :: - (MonadIO m, Gdk.DisplayK a, WidgetK b) => - a -- display - -> Maybe (b) -- widget - -> Gdk.Atom -- selection - -> Word32 -- time_ - -> m Bool -- result -selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_ - let result' = (/= 0) result - touchManagedPtr display - whenJust widget touchManagedPtr - touchManagedPtr selection - return result' - - --- function gtk_selection_owner_set --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, 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 "gtk_selection_owner_set" gtk_selection_owner_set :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO CInt - - -selectionOwnerSet :: - (MonadIO m, WidgetK a) => - Maybe (a) -- widget - -> Gdk.Atom -- selection - -> Word32 -- time_ - -> m Bool -- result -selectionOwnerSet widget selection time_ = liftIO $ do - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_selection_owner_set maybeWidget selection' time_ - let result' = (/= 0) result - whenJust widget touchManagedPtr - touchManagedPtr selection - return result' - - --- function gtk_selection_convert --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, 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 "gtk_selection_convert" gtk_selection_convert :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO CInt - - -selectionConvert :: - (MonadIO m, WidgetK a) => - a -- widget - -> Gdk.Atom -- selection - -> Gdk.Atom -- target - -> Word32 -- time_ - -> m Bool -- result -selectionConvert widget selection target time_ = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let selection' = unsafeManagedPtrGetPtr selection - let target' = unsafeManagedPtrGetPtr target - result <- gtk_selection_convert widget' selection' target' time_ - let result' = (/= 0) result - touchManagedPtr widget - touchManagedPtr selection - touchManagedPtr target - return result' - - --- function gtk_selection_clear_targets --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", 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 "gtk_selection_clear_targets" gtk_selection_clear_targets :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO () - - -selectionClearTargets :: - (MonadIO m, WidgetK a) => - a -- widget - -> Gdk.Atom -- selection - -> m () -- result -selectionClearTargets widget selection = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let selection' = unsafeManagedPtrGetPtr selection - gtk_selection_clear_targets widget' selection' - touchManagedPtr widget - touchManagedPtr selection - return () - - --- function gtk_selection_add_targets --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_add_targets" gtk_selection_add_targets :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt - IO () - - -selectionAddTargets :: - (MonadIO m, WidgetK a) => - a -- widget - -> Gdk.Atom -- selection - -> [TargetEntry] -- targets - -> m () -- result -selectionAddTargets widget selection targets = liftIO $ do - let ntargets = fromIntegral $ length targets - let widget' = unsafeManagedPtrCastPtr widget - let selection' = unsafeManagedPtrGetPtr selection - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - gtk_selection_add_targets widget' selection' targets'' ntargets - touchManagedPtr widget - touchManagedPtr selection - mapM_ touchManagedPtr targets - freeMem targets'' - return () - - --- function gtk_selection_add_target --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", 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 "gtk_selection_add_target" gtk_selection_add_target :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- info : TBasicType TUInt - IO () - - -selectionAddTarget :: - (MonadIO m, WidgetK a) => - a -- widget - -> Gdk.Atom -- selection - -> Gdk.Atom -- target - -> Word32 -- info - -> m () -- result -selectionAddTarget widget selection target info = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let selection' = unsafeManagedPtrGetPtr selection - let target' = unsafeManagedPtrGetPtr target - gtk_selection_add_target widget' selection' target' info - touchManagedPtr widget - touchManagedPtr selection - touchManagedPtr target - return () - - --- function gtk_rgb_to_hsv --- Args : [Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, 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 "gtk_rgb_to_hsv" gtk_rgb_to_hsv :: - CDouble -> -- r : TBasicType TDouble - CDouble -> -- g : TBasicType TDouble - CDouble -> -- b : TBasicType TDouble - Ptr CDouble -> -- h : TBasicType TDouble - Ptr CDouble -> -- s : TBasicType TDouble - Ptr CDouble -> -- v : TBasicType TDouble - IO () - - -rgbToHsv :: - (MonadIO m) => - Double -- r - -> Double -- g - -> Double -- b - -> m (Double,Double,Double) -- result -rgbToHsv r g b = liftIO $ do - let r' = realToFrac r - let g' = realToFrac g - let b' = realToFrac b - h <- allocMem :: IO (Ptr CDouble) - s <- allocMem :: IO (Ptr CDouble) - v <- allocMem :: IO (Ptr CDouble) - gtk_rgb_to_hsv r' g' b' h s v - h' <- peek h - let h'' = realToFrac h' - s' <- peek s - let s'' = realToFrac s' - v' <- peek v - let v'' = realToFrac v' - freeMem h - freeMem s - freeMem v - return (h'', s'', v'') - - --- function gtk_render_slider --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_render_slider" gtk_render_slider :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - - -renderSlider :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> Orientation -- orientation - -> m () -- result -renderSlider context cr x y width height orientation = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - let orientation' = (fromIntegral . fromEnum) orientation - gtk_render_slider context' cr' x' y' width' height' orientation' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_option --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_option" gtk_render_option :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderOption :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderOption context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_option context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_line --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", 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 "gtk_render_line" gtk_render_line :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x0 : TBasicType TDouble - CDouble -> -- y0 : TBasicType TDouble - CDouble -> -- x1 : TBasicType TDouble - CDouble -> -- y1 : TBasicType TDouble - IO () - - -renderLine :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x0 - -> Double -- y0 - -> Double -- x1 - -> Double -- y1 - -> m () -- result -renderLine context cr x0 y0 x1 y1 = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x0' = realToFrac x0 - let y0' = realToFrac y0 - let x1' = realToFrac x1 - let y1' = realToFrac y1 - gtk_render_line context' cr' x0' y0' x1' y1' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_layout --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", 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 "gtk_render_layout" gtk_render_layout :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" - IO () - - -renderLayout :: - (MonadIO m, StyleContextK a, Pango.LayoutK b) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> b -- layout - -> m () -- result -renderLayout context cr x y layout = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let layout' = unsafeManagedPtrCastPtr layout - gtk_render_layout context' cr' x' y' layout' - touchManagedPtr context - touchManagedPtr cr - touchManagedPtr layout - return () - - --- function gtk_render_insertion_cursor --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", 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},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", 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 "gtk_render_insertion_cursor" gtk_render_insertion_cursor :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" - Int32 -> -- index : TBasicType TInt - CUInt -> -- direction : TInterface "Pango" "Direction" - IO () - - -renderInsertionCursor :: - (MonadIO m, StyleContextK a, Pango.LayoutK b) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> b -- layout - -> Int32 -- index - -> Pango.Direction -- direction - -> m () -- result -renderInsertionCursor context cr x y layout index direction = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let layout' = unsafeManagedPtrCastPtr layout - let direction' = (fromIntegral . fromEnum) direction - gtk_render_insertion_cursor context' cr' x' y' layout' index direction' - touchManagedPtr context - touchManagedPtr cr - touchManagedPtr layout - return () - - --- function gtk_render_icon_surface --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", 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 "gtk_render_icon_surface" gtk_render_icon_surface :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - IO () - - -renderIconSurface :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Cairo.Surface -- surface - -> Double -- x - -> Double -- y - -> m () -- result -renderIconSurface context cr surface x y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let surface' = unsafeManagedPtrGetPtr surface - let x' = realToFrac x - let y' = realToFrac y - gtk_render_icon_surface context' cr' surface' x' y' - touchManagedPtr context - touchManagedPtr cr - touchManagedPtr surface - return () - - --- function gtk_render_icon_pixbuf --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr IconSource -> -- source : TInterface "Gtk" "IconSource" - Int32 -> -- size : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} -renderIconPixbuf :: - (MonadIO m, StyleContextK a) => - a -- context - -> IconSource -- source - -> Int32 -- size - -> m GdkPixbuf.Pixbuf -- result -renderIconPixbuf context source size = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let source' = unsafeManagedPtrGetPtr source - result <- gtk_render_icon_pixbuf context' source' size - checkUnexpectedReturnNULL "gtk_render_icon_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr context - touchManagedPtr source - return result' - - --- function gtk_render_icon --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", 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 "gtk_render_icon" gtk_render_icon :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - IO () - - -renderIcon :: - (MonadIO m, StyleContextK a, GdkPixbuf.PixbufK b) => - a -- context - -> Cairo.Context -- cr - -> b -- pixbuf - -> Double -- x - -> Double -- y - -> m () -- result -renderIcon context cr pixbuf x y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - let x' = realToFrac x - let y' = realToFrac y - gtk_render_icon context' cr' pixbuf' x' y' - touchManagedPtr context - touchManagedPtr cr - touchManagedPtr pixbuf - return () - - --- function gtk_render_handle --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_handle" gtk_render_handle :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderHandle :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderHandle context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_handle context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_frame_gap --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy1_gap", 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 "gtk_render_frame_gap" gtk_render_frame_gap :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - CDouble -> -- xy0_gap : TBasicType TDouble - CDouble -> -- xy1_gap : TBasicType TDouble - IO () - - -renderFrameGap :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> PositionType -- gapSide - -> Double -- xy0Gap - -> Double -- xy1Gap - -> m () -- result -renderFrameGap context cr x y width height gapSide xy0Gap xy1Gap = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - let gapSide' = (fromIntegral . fromEnum) gapSide - let xy0Gap' = realToFrac xy0Gap - let xy1Gap' = realToFrac xy1Gap - gtk_render_frame_gap context' cr' x' y' width' height' gapSide' xy0Gap' xy1Gap' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_frame --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_frame" gtk_render_frame :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderFrame :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderFrame context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_frame context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_focus --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_focus" gtk_render_focus :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderFocus :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderFocus context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_focus context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_extension --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", 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 "gtk_render_extension" gtk_render_extension :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - IO () - - -renderExtension :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> PositionType -- gapSide - -> m () -- result -renderExtension context cr x y width height gapSide = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - let gapSide' = (fromIntegral . fromEnum) gapSide - gtk_render_extension context' cr' x' y' width' height' gapSide' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_expander --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_expander" gtk_render_expander :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderExpander :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderExpander context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_expander context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_check --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_check" gtk_render_check :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderCheck :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderCheck context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_check context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_background --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_background" gtk_render_background :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderBackground :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderBackground context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_background context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_arrow --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_render_arrow" gtk_render_arrow :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- angle : TBasicType TDouble - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- size : TBasicType TDouble - IO () - - -renderArrow :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- angle - -> Double -- x - -> Double -- y - -> Double -- size - -> m () -- result -renderArrow context cr angle x y size = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let angle' = realToFrac angle - let x' = realToFrac x - let y' = realToFrac y - let size' = realToFrac size - gtk_render_arrow context' cr' angle' x' y' size' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_activity --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_render_activity" gtk_render_activity :: - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -renderActivity :: - (MonadIO m, StyleContextK a) => - a -- context - -> Cairo.Context -- cr - -> Double -- x - -> Double -- y - -> Double -- width - -> Double -- height - -> m () -- result -renderActivity context cr x y width height = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let cr' = unsafeManagedPtrGetPtr cr - let x' = realToFrac x - let y' = realToFrac y - let width' = realToFrac width - let height' = realToFrac height - gtk_render_activity context' cr' x' y' width' height' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_rc_set_default_files --- Args : [Arg {argCName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), 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 "gtk_rc_set_default_files" gtk_rc_set_default_files :: - Ptr CString -> -- filenames : TCArray True (-1) (-1) (TBasicType TFileName) - IO () - -{-# DEPRECATED rcSetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -rcSetDefaultFiles :: - (MonadIO m) => - [[Char]] -- filenames - -> m () -- result -rcSetDefaultFiles filenames = liftIO $ do - filenames' <- packZeroTerminatedFileNameArray filenames - gtk_rc_set_default_files filenames' - mapZeroTerminatedCArray freeMem filenames' - freeMem filenames' - return () - - --- function gtk_rc_reset_styles --- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", 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 "gtk_rc_reset_styles" gtk_rc_reset_styles :: - Ptr Settings -> -- settings : TInterface "Gtk" "Settings" - IO () - -{-# DEPRECATED rcResetStyles ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcResetStyles :: - (MonadIO m, SettingsK a) => - a -- settings - -> m () -- result -rcResetStyles settings = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - gtk_rc_reset_styles settings' - touchManagedPtr settings - return () - - --- function gtk_rc_reparse_all_for_settings --- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_load", argType = TBasicType TBoolean, 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 "gtk_rc_reparse_all_for_settings" gtk_rc_reparse_all_for_settings :: - Ptr Settings -> -- settings : TInterface "Gtk" "Settings" - CInt -> -- force_load : TBasicType TBoolean - IO CInt - -{-# DEPRECATED rcReparseAllForSettings ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcReparseAllForSettings :: - (MonadIO m, SettingsK a) => - a -- settings - -> Bool -- forceLoad - -> m Bool -- result -rcReparseAllForSettings settings forceLoad = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - let forceLoad' = (fromIntegral . fromEnum) forceLoad - result <- gtk_rc_reparse_all_for_settings settings' forceLoad' - let result' = (/= 0) result - touchManagedPtr settings - return result' - - --- function gtk_rc_reparse_all --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_reparse_all" gtk_rc_reparse_all :: - IO CInt - -{-# DEPRECATED rcReparseAll ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcReparseAll :: - (MonadIO m) => - m Bool -- result -rcReparseAll = liftIO $ do - result <- gtk_rc_reparse_all - let result' = (/= 0) result - return result' - - --- function gtk_rc_parse_string --- Args : [Arg {argCName = "rc_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 "gtk_rc_parse_string" gtk_rc_parse_string :: - CString -> -- rc_string : TBasicType TUTF8 - IO () - -{-# DEPRECATED rcParseString ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcParseString :: - (MonadIO m) => - T.Text -- rcString - -> m () -- result -rcParseString rcString = liftIO $ do - rcString' <- textToCString rcString - gtk_rc_parse_string rcString' - freeMem rcString' - return () - - --- function gtk_rc_parse_state --- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_parse_state" gtk_rc_parse_state :: - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - Ptr CUInt -> -- state : TInterface "Gtk" "StateType" - IO Word32 - -{-# DEPRECATED rcParseState ["(Since version 3.0)","Use #GtkCssProvider instead"]#-} -rcParseState :: - (MonadIO m) => - GLib.Scanner -- scanner - -> m (Word32,StateType) -- result -rcParseState scanner = liftIO $ do - let scanner' = unsafeManagedPtrGetPtr scanner - state <- allocMem :: IO (Ptr CUInt) - result <- gtk_rc_parse_state scanner' state - state' <- peek state - let state'' = (toEnum . fromIntegral) state' - touchManagedPtr scanner - freeMem state - return (result, state'') - - --- function gtk_rc_parse_priority --- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_parse_priority" gtk_rc_parse_priority :: - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - CUInt -> -- priority : TInterface "Gtk" "PathPriorityType" - IO Word32 - -{-# DEPRECATED rcParsePriority ["(Since version 3.0)","Use #GtkCssProvider instead"]#-} -rcParsePriority :: - (MonadIO m) => - GLib.Scanner -- scanner - -> PathPriorityType -- priority - -> m Word32 -- result -rcParsePriority scanner priority = liftIO $ do - let scanner' = unsafeManagedPtrGetPtr scanner - let priority' = (fromIntegral . fromEnum) priority - result <- gtk_rc_parse_priority scanner' priority' - touchManagedPtr scanner - return result - - --- function gtk_rc_parse_color_full --- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_parse_color_full" gtk_rc_parse_color_full :: - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO Word32 - -{-# DEPRECATED rcParseColorFull ["(Since version 3.0)","Use #GtkCssProvider instead"]#-} -rcParseColorFull :: - (MonadIO m, RcStyleK a) => - GLib.Scanner -- scanner - -> Maybe (a) -- style - -> m (Word32,Gdk.Color) -- result -rcParseColorFull scanner style = liftIO $ do - let scanner' = unsafeManagedPtrGetPtr scanner - maybeStyle <- case style of - Nothing -> return nullPtr - Just jStyle -> do - let jStyle' = unsafeManagedPtrCastPtr jStyle - return jStyle' - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - result <- gtk_rc_parse_color_full scanner' maybeStyle color - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr scanner - whenJust style touchManagedPtr - return (result, color') - - --- function gtk_rc_parse_color --- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_parse_color" gtk_rc_parse_color :: - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO Word32 - -{-# DEPRECATED rcParseColor ["(Since version 3.0)","Use #GtkCssProvider instead"]#-} -rcParseColor :: - (MonadIO m) => - GLib.Scanner -- scanner - -> m (Word32,Gdk.Color) -- result -rcParseColor scanner = liftIO $ do - let scanner' = unsafeManagedPtrGetPtr scanner - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - result <- gtk_rc_parse_color scanner' color - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr scanner - return (result, color') - - --- function gtk_rc_parse --- Args : [Arg {argCName = "filename", 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 "gtk_rc_parse" gtk_rc_parse :: - CString -> -- filename : TBasicType TUTF8 - IO () - -{-# DEPRECATED rcParse ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcParse :: - (MonadIO m) => - T.Text -- filename - -> m () -- result -rcParse filename = liftIO $ do - filename' <- textToCString filename - gtk_rc_parse filename' - freeMem filename' - return () - - --- function gtk_rc_get_theme_dir --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_theme_dir" gtk_rc_get_theme_dir :: - IO CString - -{-# DEPRECATED rcGetThemeDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcGetThemeDir :: - (MonadIO m) => - m T.Text -- result -rcGetThemeDir = liftIO $ do - result <- gtk_rc_get_theme_dir - checkUnexpectedReturnNULL "gtk_rc_get_theme_dir" result - result' <- cstringToText result - freeMem result - return result' - - --- function gtk_rc_get_style_by_paths --- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_style_by_paths" gtk_rc_get_style_by_paths :: - Ptr Settings -> -- settings : TInterface "Gtk" "Settings" - CString -> -- widget_path : TBasicType TUTF8 - CString -> -- class_path : TBasicType TUTF8 - CGType -> -- type : TBasicType TGType - IO (Ptr Style) - -{-# DEPRECATED rcGetStyleByPaths ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -rcGetStyleByPaths :: - (MonadIO m, SettingsK a) => - a -- settings - -> Maybe (T.Text) -- widgetPath - -> Maybe (T.Text) -- classPath - -> GType -- type_ - -> m (Maybe Style) -- result -rcGetStyleByPaths settings widgetPath classPath type_ = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - maybeWidgetPath <- case widgetPath of - Nothing -> return nullPtr - Just jWidgetPath -> do - jWidgetPath' <- textToCString jWidgetPath - return jWidgetPath' - maybeClassPath <- case classPath of - Nothing -> return nullPtr - Just jClassPath -> do - jClassPath' <- textToCString jClassPath - return jClassPath' - let type_' = gtypeToCGType type_ - result <- gtk_rc_get_style_by_paths settings' maybeWidgetPath maybeClassPath type_' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Style) result' - return result'' - touchManagedPtr settings - freeMem maybeWidgetPath - freeMem maybeClassPath - return maybeResult - - --- function gtk_rc_get_style --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_style" gtk_rc_get_style :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr Style) - -{-# DEPRECATED rcGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -rcGetStyle :: - (MonadIO m, WidgetK a) => - a -- widget - -> m Style -- result -rcGetStyle widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_rc_get_style widget' - checkUnexpectedReturnNULL "gtk_rc_get_style" result - result' <- (newObject Style) result - touchManagedPtr widget - return result' - - --- function gtk_rc_get_module_dir --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_module_dir" gtk_rc_get_module_dir :: - IO CString - -{-# DEPRECATED rcGetModuleDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcGetModuleDir :: - (MonadIO m) => - m [Char] -- result -rcGetModuleDir = liftIO $ do - result <- gtk_rc_get_module_dir - checkUnexpectedReturnNULL "gtk_rc_get_module_dir" result - result' <- cstringToString result - freeMem result - return result' - - --- function gtk_rc_get_im_module_path --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_im_module_path" gtk_rc_get_im_module_path :: - IO CString - -{-# DEPRECATED rcGetImModulePath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcGetImModulePath :: - (MonadIO m) => - m [Char] -- result -rcGetImModulePath = liftIO $ do - result <- gtk_rc_get_im_module_path - checkUnexpectedReturnNULL "gtk_rc_get_im_module_path" result - result' <- cstringToString result - freeMem result - return result' - - --- function gtk_rc_get_im_module_file --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_im_module_file" gtk_rc_get_im_module_file :: - IO CString - -{-# DEPRECATED rcGetImModuleFile ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcGetImModuleFile :: - (MonadIO m) => - m [Char] -- result -rcGetImModuleFile = liftIO $ do - result <- gtk_rc_get_im_module_file - checkUnexpectedReturnNULL "gtk_rc_get_im_module_file" result - result' <- cstringToString result - freeMem result - return result' - - --- function gtk_rc_get_default_files --- Args : [] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_get_default_files" gtk_rc_get_default_files :: - IO (Ptr CString) - -{-# DEPRECATED rcGetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -rcGetDefaultFiles :: - (MonadIO m) => - m [[Char]] -- result -rcGetDefaultFiles = liftIO $ do - result <- gtk_rc_get_default_files - checkUnexpectedReturnNULL "gtk_rc_get_default_files" result - result' <- unpackZeroTerminatedFileNameArray result - return result' - - --- function gtk_rc_find_pixmap_in_path --- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_find_pixmap_in_path" gtk_rc_find_pixmap_in_path :: - Ptr Settings -> -- settings : TInterface "Gtk" "Settings" - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - CString -> -- pixmap_file : TBasicType TUTF8 - IO CString - -{-# DEPRECATED rcFindPixmapInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcFindPixmapInPath :: - (MonadIO m, SettingsK a) => - a -- settings - -> GLib.Scanner -- scanner - -> T.Text -- pixmapFile - -> m [Char] -- result -rcFindPixmapInPath settings scanner pixmapFile = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - let scanner' = unsafeManagedPtrGetPtr scanner - pixmapFile' <- textToCString pixmapFile - result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmapFile' - checkUnexpectedReturnNULL "gtk_rc_find_pixmap_in_path" result - result' <- cstringToString result - freeMem result - touchManagedPtr settings - touchManagedPtr scanner - freeMem pixmapFile' - return result' - - --- function gtk_rc_find_module_in_path --- Args : [Arg {argCName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_find_module_in_path" gtk_rc_find_module_in_path :: - CString -> -- module_file : TBasicType TUTF8 - IO CString - -{-# DEPRECATED rcFindModuleInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcFindModuleInPath :: - (MonadIO m) => - T.Text -- moduleFile - -> m [Char] -- result -rcFindModuleInPath moduleFile = liftIO $ do - moduleFile' <- textToCString moduleFile - result <- gtk_rc_find_module_in_path moduleFile' - checkUnexpectedReturnNULL "gtk_rc_find_module_in_path" result - result' <- cstringToString result - freeMem result - freeMem moduleFile' - return result' - - --- function gtk_rc_add_default_file --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_rc_add_default_file" gtk_rc_add_default_file :: - CString -> -- filename : TBasicType TFileName - IO () - -{-# DEPRECATED rcAddDefaultFile ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -rcAddDefaultFile :: - (MonadIO m) => - [Char] -- filename - -> m () -- result -rcAddDefaultFile filename = liftIO $ do - filename' <- stringToCString filename - gtk_rc_add_default_file filename' - freeMem filename' - return () - - --- function gtk_propagate_event --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_propagate_event" gtk_propagate_event :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO () - - -propagateEvent :: - (MonadIO m, WidgetK a) => - a -- widget - -> Gdk.Event -- event - -> m () -- result -propagateEvent widget event = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let event' = unsafeManagedPtrGetPtr event - gtk_propagate_event widget' event' - touchManagedPtr widget - touchManagedPtr event - return () - - --- function gtk_print_run_page_setup_dialog_async --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, 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 "gtk_print_run_page_setup_dialog_async" gtk_print_run_page_setup_dialog_async :: - Ptr Window -> -- parent : TInterface "Gtk" "Window" - Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup" - Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings" - FunPtr PageSetupDoneFuncC -> -- done_cb : TInterface "Gtk" "PageSetupDoneFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -printRunPageSetupDialogAsync :: - (MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) => - Maybe (a) -- parent - -> Maybe (b) -- pageSetup - -> c -- settings - -> PageSetupDoneFunc -- doneCb - -> m () -- result -printRunPageSetupDialogAsync parent pageSetup settings doneCb = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - maybePageSetup <- case pageSetup of - Nothing -> return nullPtr - Just jPageSetup -> do - let jPageSetup' = unsafeManagedPtrCastPtr jPageSetup - return jPageSetup' - let settings' = unsafeManagedPtrCastPtr settings - ptrdoneCb <- callocMem :: IO (Ptr (FunPtr PageSetupDoneFuncC)) - doneCb' <- mkPageSetupDoneFunc (pageSetupDoneFuncWrapper (Just ptrdoneCb) doneCb) - poke ptrdoneCb doneCb' - let data_ = nullPtr - gtk_print_run_page_setup_dialog_async maybeParent maybePageSetup settings' doneCb' data_ - whenJust parent touchManagedPtr - whenJust pageSetup touchManagedPtr - touchManagedPtr settings - return () - - --- function gtk_print_run_page_setup_dialog --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_run_page_setup_dialog" gtk_print_run_page_setup_dialog :: - Ptr Window -> -- parent : TInterface "Gtk" "Window" - Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup" - Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings" - IO (Ptr PageSetup) - - -printRunPageSetupDialog :: - (MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) => - Maybe (a) -- parent - -> Maybe (b) -- pageSetup - -> c -- settings - -> m PageSetup -- result -printRunPageSetupDialog parent pageSetup settings = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - maybePageSetup <- case pageSetup of - Nothing -> return nullPtr - Just jPageSetup -> do - let jPageSetup' = unsafeManagedPtrCastPtr jPageSetup - return jPageSetup' - let settings' = unsafeManagedPtrCastPtr settings - result <- gtk_print_run_page_setup_dialog maybeParent maybePageSetup settings' - checkUnexpectedReturnNULL "gtk_print_run_page_setup_dialog" result - result' <- (wrapObject PageSetup) result - whenJust parent touchManagedPtr - whenJust pageSetup touchManagedPtr - touchManagedPtr settings - return result' - - --- function gtk_parse_args --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_parse_args" gtk_parse_args :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO CInt - - -parseArgs :: - (MonadIO m) => - [T.Text] -- argv - -> m (Bool,[T.Text]) -- result -parseArgs argv = liftIO $ do - let argc = fromIntegral $ length argv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - argv' <- packUTF8CArray argv - argv'' <- allocMem :: IO (Ptr (Ptr CString)) - poke argv'' argv' - result <- gtk_parse_args argc' argv'' - argc'' <- peek argc' - let result' = (/= 0) result - argv''' <- peek argv'' - argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' - (mapCArrayWithLength argc'') freeMem argv''' - freeMem argv''' - freeMem argc' - freeMem argv'' - return (result', argv'''') - - --- function gtk_paint_vline --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_vline" gtk_paint_vline :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- y1_ : TBasicType TInt - Int32 -> -- y2_ : TBasicType TInt - Int32 -> -- x : TBasicType TInt - IO () - -{-# DEPRECATED paintVline ["(Since version 3.0)","Use gtk_render_line() instead"]#-} -paintVline :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- y1_ - -> Int32 -- y2_ - -> Int32 -- x - -> m () -- result -paintVline style cr stateType widget detail y1_ y2_ x = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1_ y2_ x - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_tab --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_tab" gtk_paint_tab :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-} -paintTab :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintTab style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_tab style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_spinner --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_spinner" gtk_paint_spinner :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Word32 -> -- step : TBasicType TUInt - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintSpinner ["(Since version 3.0)","Use gtk_render_activity() instead"]#-} -paintSpinner :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Word32 -- step - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintSpinner style cr stateType widget detail step x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_spinner style' cr' stateType' maybeWidget maybeDetail step x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_slider --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_paint_slider" gtk_paint_slider :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - -{-# DEPRECATED paintSlider ["(Since version 3.0)","Use gtk_render_slider() instead"]#-} -paintSlider :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> Orientation -- orientation - -> m () -- result -paintSlider style cr stateType shadowType widget detail x y width height orientation = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let orientation' = (fromIntegral . fromEnum) orientation - gtk_paint_slider style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_shadow_gap --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", 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 "gtk_paint_shadow_gap" gtk_paint_shadow_gap :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt - Int32 -> -- gap_width : TBasicType TInt - IO () - -{-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-} -paintShadowGap :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> PositionType -- gapSide - -> Int32 -- gapX - -> Int32 -- gapWidth - -> m () -- result -paintShadowGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let gapSide' = (fromIntegral . fromEnum) gapSide - gtk_paint_shadow_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_shadow --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_shadow" gtk_paint_shadow :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintShadow ["(Since version 3.0)","Use gtk_render_frame() instead"]#-} -paintShadow :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintShadow style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_shadow style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_resize_grip --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_resize_grip" gtk_paint_resize_grip :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use gtk_render_handle() instead"]#-} -paintResizeGrip :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Gdk.WindowEdge -- edge - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintResizeGrip style cr stateType widget detail edge x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let edge' = (fromIntegral . fromEnum) edge - gtk_paint_resize_grip style' cr' stateType' maybeWidget maybeDetail edge' x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_option --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_option" gtk_paint_option :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintOption ["(Since version 3.0)","Use gtk_render_option() instead"]#-} -paintOption :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintOption style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_option style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_layout --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "layout", argType = TInterface "Pango" "Layout", 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 "gtk_paint_layout" gtk_paint_layout :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CInt -> -- use_text : TBasicType TBoolean - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" - IO () - -{-# DEPRECATED paintLayout ["(Since version 3.0)","Use gtk_render_layout() instead"]#-} -paintLayout :: - (MonadIO m, StyleK a, WidgetK b, Pango.LayoutK c) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Bool -- useText - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> c -- layout - -> m () -- result -paintLayout style cr stateType useText widget detail x y layout = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let useText' = (fromIntegral . fromEnum) useText - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let layout' = unsafeManagedPtrCastPtr layout - gtk_paint_layout style' cr' stateType' useText' maybeWidget maybeDetail x y layout' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - touchManagedPtr layout - freeMem maybeDetail - return () - - --- function gtk_paint_hline --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_hline" gtk_paint_hline :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x1 : TBasicType TInt - Int32 -> -- x2 : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - -{-# DEPRECATED paintHline ["(Since version 3.0)","Use gtk_render_line() instead"]#-} -paintHline :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x1 - -> Int32 -- x2 - -> Int32 -- y - -> m () -- result -paintHline style cr stateType widget detail x1 x2 y = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_hline style' cr' stateType' maybeWidget maybeDetail x1 x2 y - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_handle --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_paint_handle" gtk_paint_handle :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - -{-# DEPRECATED paintHandle ["(Since version 3.0)","Use gtk_render_handle() instead"]#-} -paintHandle :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> Orientation -- orientation - -> m () -- result -paintHandle style cr stateType shadowType widget detail x y width height orientation = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let orientation' = (fromIntegral . fromEnum) orientation - gtk_paint_handle style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_focus --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_focus" gtk_paint_focus :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintFocus ["(Since version 3.0)","Use gtk_render_focus() instead"]#-} -paintFocus :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintFocus style cr stateType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_focus style' cr' stateType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_flat_box --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_flat_box" gtk_paint_flat_box :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-} -paintFlatBox :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintFlatBox style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_flat_box style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_extension --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "gap_side", argType = TInterface "Gtk" "PositionType", 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 "gtk_paint_extension" gtk_paint_extension :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - IO () - -{-# DEPRECATED paintExtension ["(Since version 3.0)","Use gtk_render_extension() instead"]#-} -paintExtension :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> PositionType -- gapSide - -> m () -- result -paintExtension style cr stateType shadowType widget detail x y width height gapSide = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let gapSide' = (fromIntegral . fromEnum) gapSide - gtk_paint_extension style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_expander --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", 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 "gtk_paint_expander" gtk_paint_expander :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - CUInt -> -- expander_style : TInterface "Gtk" "ExpanderStyle" - IO () - -{-# DEPRECATED paintExpander ["(Since version 3.0)","Use gtk_render_expander() instead"]#-} -paintExpander :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> ExpanderStyle -- expanderStyle - -> m () -- result -paintExpander style cr stateType widget detail x y expanderStyle = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let expanderStyle' = (fromIntegral . fromEnum) expanderStyle - gtk_paint_expander style' cr' stateType' maybeWidget maybeDetail x y expanderStyle' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_diamond --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_diamond" gtk_paint_diamond :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-} -paintDiamond :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintDiamond style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_diamond style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_check --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_check" gtk_paint_check :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintCheck ["(Since version 3.0)","Use gtk_render_check() instead"]#-} -paintCheck :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintCheck style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_check style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_box_gap --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", 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 "gtk_paint_box_gap" gtk_paint_box_gap :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt - Int32 -> -- gap_width : TBasicType TInt - IO () - -{-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-} -paintBoxGap :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> PositionType -- gapSide - -> Int32 -- gapX - -> Int32 -- gapWidth - -> m () -- result -paintBoxGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let gapSide' = (fromIntegral . fromEnum) gapSide - gtk_paint_box_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_box --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_box" gtk_paint_box :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-} -paintBox :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintBox style cr stateType shadowType widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - gtk_paint_box style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_arrow --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_paint_arrow" gtk_paint_arrow :: - Ptr Style -> -- style : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType" - CInt -> -- fill : TBasicType TBoolean - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED paintArrow ["(Since version 3.0)","Use gtk_render_arrow() instead"]#-} -paintArrow :: - (MonadIO m, StyleK a, WidgetK b) => - a -- style - -> Cairo.Context -- cr - -> StateType -- stateType - -> ShadowType -- shadowType - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> ArrowType -- arrowType - -> Bool -- fill - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -paintArrow style cr stateType shadowType widget detail arrowType fill x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let stateType' = (fromIntegral . fromEnum) stateType - let shadowType' = (fromIntegral . fromEnum) shadowType - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - let arrowType' = (fromIntegral . fromEnum) arrowType - let fill' = (fromIntegral . fromEnum) fill - gtk_paint_arrow style' cr' stateType' shadowType' maybeWidget maybeDetail arrowType' fill' x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_main_quit --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_quit" gtk_main_quit :: - IO () - - -mainQuit :: - (MonadIO m) => - m () -- result -mainQuit = liftIO $ do - gtk_main_quit - return () - - --- function gtk_main_level --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_level" gtk_main_level :: - IO Word32 - - -mainLevel :: - (MonadIO m) => - m Word32 -- result -mainLevel = liftIO $ do - result <- gtk_main_level - return result - - --- function gtk_main_iteration_do --- Args : [Arg {argCName = "blocking", argType = TBasicType TBoolean, 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 "gtk_main_iteration_do" gtk_main_iteration_do :: - CInt -> -- blocking : TBasicType TBoolean - IO CInt - - -mainIterationDo :: - (MonadIO m) => - Bool -- blocking - -> m Bool -- result -mainIterationDo blocking = liftIO $ do - let blocking' = (fromIntegral . fromEnum) blocking - result <- gtk_main_iteration_do blocking' - let result' = (/= 0) result - return result' - - --- function gtk_main_iteration --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_iteration" gtk_main_iteration :: - IO CInt - - -mainIteration :: - (MonadIO m) => - m Bool -- result -mainIteration = liftIO $ do - result <- gtk_main_iteration - let result' = (/= 0) result - return result' - - --- function gtk_main_do_event --- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_main_do_event" gtk_main_do_event :: - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO () - - -mainDoEvent :: - (MonadIO m) => - Gdk.Event -- event - -> m () -- result -mainDoEvent event = liftIO $ do - let event' = unsafeManagedPtrGetPtr event - gtk_main_do_event event' - touchManagedPtr event - return () - - --- function gtk_main --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_main" gtk_main :: - IO () - - -main :: - (MonadIO m) => - m () -- result -main = liftIO $ do - gtk_main - return () - - --- function gtk_key_snooper_remove --- Args : [Arg {argCName = "snooper_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 "gtk_key_snooper_remove" gtk_key_snooper_remove :: - Word32 -> -- snooper_handler_id : TBasicType TUInt - IO () - -{-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-} -keySnooperRemove :: - (MonadIO m) => - Word32 -- snooperHandlerId - -> m () -- result -keySnooperRemove snooperHandlerId = liftIO $ do - gtk_key_snooper_remove snooperHandlerId - return () - - --- function gtk_init_with_args --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_init_with_args" gtk_init_with_args :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - CString -> -- parameter_string : TBasicType TUTF8 - Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry") - CString -> -- translation_domain : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -initWithArgs :: - (MonadIO m) => - Maybe ([T.Text]) -- argv - -> Maybe (T.Text) -- parameterString - -> [GLib.OptionEntry] -- entries - -> Maybe (T.Text) -- translationDomain - -> m ((Maybe [T.Text])) -- result -initWithArgs argv parameterString entries translationDomain = liftIO $ do - let argc = case argv of - Nothing -> 0 - Just jArgv -> fromIntegral $ length jArgv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - maybeArgv <- case argv of - Nothing -> return nullPtr - Just jArgv -> do - jArgv' <- packUTF8CArray jArgv - return jArgv' - maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) - poke maybeArgv' maybeArgv - maybeParameterString <- case parameterString of - Nothing -> return nullPtr - Just jParameterString -> do - jParameterString' <- textToCString jParameterString - return jParameterString' - let entries' = map unsafeManagedPtrGetPtr entries - entries'' <- packZeroTerminatedPtrArray entries' - maybeTranslationDomain <- case translationDomain of - Nothing -> return nullPtr - Just jTranslationDomain -> do - jTranslationDomain' <- textToCString jTranslationDomain - return jTranslationDomain' - onException (do - _ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameterString entries'' maybeTranslationDomain - argc'' <- peek argc' - maybeArgv'' <- peek maybeArgv' - maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do - maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' - (mapCArrayWithLength argc'') freeMem maybeArgv''' - freeMem maybeArgv''' - return maybeArgv'''' - mapM_ touchManagedPtr entries - freeMem argc' - freeMem maybeArgv' - freeMem maybeParameterString - freeMem entries'' - freeMem maybeTranslationDomain - return maybeMaybeArgv'' - ) (do - freeMem argc' - freeMem maybeArgv' - freeMem maybeParameterString - freeMem entries'' - freeMem maybeTranslationDomain - ) - - --- function gtk_init_check --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_init_check" gtk_init_check :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO CInt - - -initCheck :: - (MonadIO m) => - Maybe ([T.Text]) -- argv - -> m (Bool,(Maybe [T.Text])) -- result -initCheck argv = liftIO $ do - let argc = case argv of - Nothing -> 0 - Just jArgv -> fromIntegral $ length jArgv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - maybeArgv <- case argv of - Nothing -> return nullPtr - Just jArgv -> do - jArgv' <- packUTF8CArray jArgv - return jArgv' - maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) - poke maybeArgv' maybeArgv - result <- gtk_init_check argc' maybeArgv' - argc'' <- peek argc' - let result' = (/= 0) result - maybeArgv'' <- peek maybeArgv' - maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do - maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' - (mapCArrayWithLength argc'') freeMem maybeArgv''' - freeMem maybeArgv''' - return maybeArgv'''' - freeMem argc' - freeMem maybeArgv' - return (result', maybeMaybeArgv'') - - --- function gtk_init --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_init" gtk_init :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO () - - -init :: - (MonadIO m) => - Maybe ([T.Text]) -- argv - -> m ((Maybe [T.Text])) -- result -init argv = liftIO $ do - let argc = case argv of - Nothing -> 0 - Just jArgv -> fromIntegral $ length jArgv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - maybeArgv <- case argv of - Nothing -> return nullPtr - Just jArgv -> do - jArgv' <- packUTF8CArray jArgv - return jArgv' - maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) - poke maybeArgv' maybeArgv - gtk_init argc' maybeArgv' - argc'' <- peek argc' - maybeArgv'' <- peek maybeArgv' - maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do - maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' - (mapCArrayWithLength argc'') freeMem maybeArgv''' - freeMem maybeArgv''' - return maybeArgv'''' - freeMem argc' - freeMem maybeArgv' - return maybeMaybeArgv'' - - --- function gtk_grab_get_current --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_grab_get_current" gtk_grab_get_current :: - IO (Ptr Widget) - - -grabGetCurrent :: - (MonadIO m) => - m (Maybe Widget) -- result -grabGetCurrent = liftIO $ do - result <- gtk_grab_get_current - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - return maybeResult - - --- function gtk_get_option_group --- Args : [Arg {argCName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "OptionGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_option_group" gtk_get_option_group :: - CInt -> -- open_default_display : TBasicType TBoolean - IO (Ptr GLib.OptionGroup) - - -getOptionGroup :: - (MonadIO m) => - Bool -- openDefaultDisplay - -> m GLib.OptionGroup -- result -getOptionGroup openDefaultDisplay = liftIO $ do - let openDefaultDisplay' = (fromIntegral . fromEnum) openDefaultDisplay - result <- gtk_get_option_group openDefaultDisplay' - checkUnexpectedReturnNULL "gtk_get_option_group" result - result' <- (wrapBoxed GLib.OptionGroup) result - return result' - - --- function gtk_get_minor_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_minor_version" gtk_get_minor_version :: - IO Word32 - - -getMinorVersion :: - (MonadIO m) => - m Word32 -- result -getMinorVersion = liftIO $ do - result <- gtk_get_minor_version - return result - - --- function gtk_get_micro_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_micro_version" gtk_get_micro_version :: - IO Word32 - - -getMicroVersion :: - (MonadIO m) => - m Word32 -- result -getMicroVersion = liftIO $ do - result <- gtk_get_micro_version - return result - - --- function gtk_get_major_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_major_version" gtk_get_major_version :: - IO Word32 - - -getMajorVersion :: - (MonadIO m) => - m Word32 -- result -getMajorVersion = liftIO $ do - result <- gtk_get_major_version - return result - - --- function gtk_get_locale_direction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_locale_direction" gtk_get_locale_direction :: - IO CUInt - - -getLocaleDirection :: - (MonadIO m) => - m TextDirection -- result -getLocaleDirection = liftIO $ do - result <- gtk_get_locale_direction - let result' = (toEnum . fromIntegral) result - return result' - - --- function gtk_get_interface_age --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_interface_age" gtk_get_interface_age :: - IO Word32 - - -getInterfaceAge :: - (MonadIO m) => - m Word32 -- result -getInterfaceAge = liftIO $ do - result <- gtk_get_interface_age - return result - - --- function gtk_get_event_widget --- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_event_widget" gtk_get_event_widget :: - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO (Ptr Widget) - - -getEventWidget :: - (MonadIO m) => - Gdk.Event -- event - -> m (Maybe Widget) -- result -getEventWidget event = liftIO $ do - let event' = unsafeManagedPtrGetPtr event - result <- gtk_get_event_widget event' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr event - return maybeResult - - --- function gtk_get_default_language --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Language") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_default_language" gtk_get_default_language :: - IO (Ptr Pango.Language) - - -getDefaultLanguage :: - (MonadIO m) => - m Pango.Language -- result -getDefaultLanguage = liftIO $ do - result <- gtk_get_default_language - checkUnexpectedReturnNULL "gtk_get_default_language" result - result' <- (newBoxed Pango.Language) result - return result' - - --- function gtk_get_debug_flags --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_debug_flags" gtk_get_debug_flags :: - IO Word32 - - -getDebugFlags :: - (MonadIO m) => - m Word32 -- result -getDebugFlags = liftIO $ do - result <- gtk_get_debug_flags - return result - - --- function gtk_get_current_event_time --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_current_event_time" gtk_get_current_event_time :: - IO Word32 - - -getCurrentEventTime :: - (MonadIO m) => - m Word32 -- result -getCurrentEventTime = liftIO $ do - result <- gtk_get_current_event_time - return result - - --- function gtk_get_current_event_state --- Args : [Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", 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 "gtk_get_current_event_state" gtk_get_current_event_state :: - Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" - IO CInt - - -getCurrentEventState :: - (MonadIO m) => - m (Bool,[Gdk.ModifierType]) -- result -getCurrentEventState = liftIO $ do - state <- allocMem :: IO (Ptr CUInt) - result <- gtk_get_current_event_state state - let result' = (/= 0) result - state' <- peek state - let state'' = wordToGFlags state' - freeMem state - return (result', state'') - - --- function gtk_get_current_event_device --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_current_event_device" gtk_get_current_event_device :: - IO (Ptr Gdk.Device) - - -getCurrentEventDevice :: - (MonadIO m) => - m (Maybe Gdk.Device) -- result -getCurrentEventDevice = liftIO $ do - result <- gtk_get_current_event_device - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gdk.Device) result' - return result'' - return maybeResult - - --- function gtk_get_current_event --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_current_event" gtk_get_current_event :: - IO (Ptr Gdk.Event) - - -getCurrentEvent :: - (MonadIO m) => - m (Maybe Gdk.Event) -- result -getCurrentEvent = liftIO $ do - result <- gtk_get_current_event - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Gdk.Event) result' - return result'' - return maybeResult - - --- function gtk_get_binary_age --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_binary_age" gtk_get_binary_age :: - IO Word32 - - -getBinaryAge :: - (MonadIO m) => - m Word32 -- result -getBinaryAge = liftIO $ do - result <- gtk_get_binary_age - return result - - --- function gtk_false --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_false" gtk_false :: - IO CInt - - -false :: - (MonadIO m) => - m Bool -- result -false = liftIO $ do - result <- gtk_false - let result' = (/= 0) result - return result' - - --- function gtk_events_pending --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_events_pending" gtk_events_pending :: - IO CInt - - -eventsPending :: - (MonadIO m) => - m Bool -- result -eventsPending = liftIO $ do - result <- gtk_events_pending - let result' = (/= 0) result - return result' - - --- function gtk_draw_insertion_cursor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_arrow", 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 "gtk_draw_insertion_cursor" gtk_draw_insertion_cursor :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle" - CInt -> -- is_primary : TBasicType TBoolean - CUInt -> -- direction : TInterface "Gtk" "TextDirection" - CInt -> -- draw_arrow : TBasicType TBoolean - IO () - -{-# DEPRECATED drawInsertionCursor ["(Since version 3.4)","Use gtk_render_insertion_cursor() instead."]#-} -drawInsertionCursor :: - (MonadIO m, WidgetK a) => - a -- widget - -> Cairo.Context -- cr - -> Gdk.Rectangle -- location - -> Bool -- isPrimary - -> TextDirection -- direction - -> Bool -- drawArrow - -> m () -- result -drawInsertionCursor widget cr location isPrimary direction drawArrow = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let cr' = unsafeManagedPtrGetPtr cr - let location' = unsafeManagedPtrGetPtr location - let isPrimary' = (fromIntegral . fromEnum) isPrimary - let direction' = (fromIntegral . fromEnum) direction - let drawArrow' = (fromIntegral . fromEnum) drawArrow - gtk_draw_insertion_cursor widget' cr' location' isPrimary' direction' drawArrow' - touchManagedPtr widget - touchManagedPtr cr - touchManagedPtr location - return () - - --- function gtk_drag_set_icon_widget --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", 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 "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- hot_x : TBasicType TInt - Int32 -> -- hot_y : TBasicType TInt - IO () - - -dragSetIconWidget :: - (MonadIO m, Gdk.DragContextK a, WidgetK b) => - a -- context - -> b -- widget - -> Int32 -- hotX - -> Int32 -- hotY - -> m () -- result -dragSetIconWidget context widget hotX hotY = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - gtk_drag_set_icon_widget context' widget' hotX hotY - touchManagedPtr context - touchManagedPtr widget - return () - - --- function gtk_drag_set_icon_surface --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", 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 "gtk_drag_set_icon_surface" gtk_drag_set_icon_surface :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - IO () - - -dragSetIconSurface :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> Cairo.Surface -- surface - -> m () -- result -dragSetIconSurface context surface = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let surface' = unsafeManagedPtrGetPtr surface - gtk_drag_set_icon_surface context' surface' - touchManagedPtr context - touchManagedPtr surface - return () - - --- function gtk_drag_set_icon_stock --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", 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 "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- hot_x : TBasicType TInt - Int32 -> -- hot_y : TBasicType TInt - IO () - -{-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-} -dragSetIconStock :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> T.Text -- stockId - -> Int32 -- hotX - -> Int32 -- hotY - -> m () -- result -dragSetIconStock context stockId hotX hotY = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - stockId' <- textToCString stockId - gtk_drag_set_icon_stock context' stockId' hotX hotY - touchManagedPtr context - freeMem stockId' - return () - - --- function gtk_drag_set_icon_pixbuf --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", 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 "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- hot_x : TBasicType TInt - Int32 -> -- hot_y : TBasicType TInt - IO () - - -dragSetIconPixbuf :: - (MonadIO m, Gdk.DragContextK a, GdkPixbuf.PixbufK b) => - a -- context - -> b -- pixbuf - -> Int32 -- hotX - -> Int32 -- hotY - -> m () -- result -dragSetIconPixbuf context pixbuf hotX hotY = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_drag_set_icon_pixbuf context' pixbuf' hotX hotY - touchManagedPtr context - touchManagedPtr pixbuf - return () - - --- function gtk_drag_set_icon_name --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", 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 "gtk_drag_set_icon_name" gtk_drag_set_icon_name :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- hot_x : TBasicType TInt - Int32 -> -- hot_y : TBasicType TInt - IO () - - -dragSetIconName :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> T.Text -- iconName - -> Int32 -- hotX - -> Int32 -- hotY - -> m () -- result -dragSetIconName context iconName hotX hotY = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - iconName' <- textToCString iconName - gtk_drag_set_icon_name context' iconName' hotX hotY - touchManagedPtr context - freeMem iconName' - return () - - --- function gtk_drag_set_icon_gicon --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", 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 "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- hot_x : TBasicType TInt - Int32 -> -- hot_y : TBasicType TInt - IO () - - -dragSetIconGicon :: - (MonadIO m, Gdk.DragContextK a, Gio.IconK b) => - a -- context - -> b -- icon - -> Int32 -- hotX - -> Int32 -- hotY - -> m () -- result -dragSetIconGicon context icon hotX hotY = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let icon' = unsafeManagedPtrCastPtr icon - gtk_drag_set_icon_gicon context' icon' hotX hotY - touchManagedPtr context - touchManagedPtr icon - return () - - --- function gtk_drag_set_icon_default --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 "gtk_drag_set_icon_default" gtk_drag_set_icon_default :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - IO () - - -dragSetIconDefault :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> m () -- result -dragSetIconDefault context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - gtk_drag_set_icon_default context' - touchManagedPtr context - return () - - --- function gtk_drag_get_source_widget --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_get_source_widget" gtk_drag_get_source_widget :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - IO (Ptr Widget) - - -dragGetSourceWidget :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> m Widget -- result -dragGetSourceWidget context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - result <- gtk_drag_get_source_widget context' - checkUnexpectedReturnNULL "gtk_drag_get_source_widget" result - result' <- (newObject Widget) result - touchManagedPtr context - return result' - - --- function gtk_drag_finish --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, 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 "gtk_drag_finish" gtk_drag_finish :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - CInt -> -- success : TBasicType TBoolean - CInt -> -- del : TBasicType TBoolean - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dragFinish :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> Bool -- success - -> Bool -- del - -> Word32 -- time_ - -> m () -- result -dragFinish context success del time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let success' = (fromIntegral . fromEnum) success - let del' = (fromIntegral . fromEnum) del - gtk_drag_finish context' success' del' time_ - touchManagedPtr context - return () - - --- function gtk_drag_cancel --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 "gtk_drag_cancel" gtk_drag_cancel :: - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - IO () - - -dragCancel :: - (MonadIO m, Gdk.DragContextK a) => - a -- context - -> m () -- result -dragCancel context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - gtk_drag_cancel context' - touchManagedPtr context - return () - - --- function gtk_distribute_natural_allocation --- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", 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 "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation :: - Int32 -> -- extra_space : TBasicType TInt - Word32 -> -- n_requested_sizes : TBasicType TUInt - Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize" - IO Int32 - - -distributeNaturalAllocation :: - (MonadIO m) => - Int32 -- extraSpace - -> Word32 -- nRequestedSizes - -> RequestedSize -- sizes - -> m Int32 -- result -distributeNaturalAllocation extraSpace nRequestedSizes sizes = liftIO $ do - let sizes' = unsafeManagedPtrGetPtr sizes - result <- gtk_distribute_natural_allocation extraSpace nRequestedSizes sizes' - touchManagedPtr sizes - return result - - --- function gtk_disable_setlocale --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale :: - IO () - - -disableSetlocale :: - (MonadIO m) => - m () -- result -disableSetlocale = liftIO $ do - gtk_disable_setlocale - return () - - --- function gtk_device_grab_remove --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", 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 "gtk_device_grab_remove" gtk_device_grab_remove :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO () - - -deviceGrabRemove :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- widget - -> b -- device - -> m () -- result -deviceGrabRemove widget device = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let device' = unsafeManagedPtrCastPtr device - gtk_device_grab_remove widget' device' - touchManagedPtr widget - touchManagedPtr device - return () - - --- function gtk_device_grab_add --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "block_others", 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 "gtk_device_grab_add" gtk_device_grab_add :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CInt -> -- block_others : TBasicType TBoolean - IO () - - -deviceGrabAdd :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- widget - -> b -- device - -> Bool -- blockOthers - -> m () -- result -deviceGrabAdd widget device blockOthers = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let device' = unsafeManagedPtrCastPtr device - let blockOthers' = (fromIntegral . fromEnum) blockOthers - gtk_device_grab_add widget' device' blockOthers' - touchManagedPtr widget - touchManagedPtr device - return () - - --- function gtk_check_version --- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt, 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 "gtk_check_version" gtk_check_version :: - Word32 -> -- required_major : TBasicType TUInt - Word32 -> -- required_minor : TBasicType TUInt - Word32 -> -- required_micro : TBasicType TUInt - IO CString - - -checkVersion :: - (MonadIO m) => - Word32 -- requiredMajor - -> Word32 -- requiredMinor - -> Word32 -- requiredMicro - -> m T.Text -- result -checkVersion requiredMajor requiredMinor requiredMicro = liftIO $ do - result <- gtk_check_version requiredMajor requiredMinor requiredMicro - checkUnexpectedReturnNULL "gtk_check_version" result - result' <- cstringToText result - return result' - - --- function gtk_cairo_transform_to_window --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", 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 "gtk_cairo_transform_to_window" gtk_cairo_transform_to_window :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -cairoTransformToWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - Cairo.Context -- cr - -> a -- widget - -> b -- window - -> m () -- result -cairoTransformToWindow cr widget window = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let widget' = unsafeManagedPtrCastPtr widget - let window' = unsafeManagedPtrCastPtr window - gtk_cairo_transform_to_window cr' widget' window' - touchManagedPtr cr - touchManagedPtr widget - touchManagedPtr window - return () - - --- function gtk_cairo_should_draw_window --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", 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 "gtk_cairo_should_draw_window" gtk_cairo_should_draw_window :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO CInt - - -cairoShouldDrawWindow :: - (MonadIO m, Gdk.WindowK a) => - Cairo.Context -- cr - -> a -- window - -> m Bool -- result -cairoShouldDrawWindow cr window = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let window' = unsafeManagedPtrCastPtr window - result <- gtk_cairo_should_draw_window cr' window' - let result' = (/= 0) result - touchManagedPtr cr - touchManagedPtr window - return result' - - --- function gtk_bindings_activate_event --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_bindings_activate_event" gtk_bindings_activate_event :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -bindingsActivateEvent :: - (MonadIO m, GObject.ObjectK a) => - a -- object - -> Gdk.EventKey -- event - -> m Bool -- result -bindingsActivateEvent object event = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - let event' = unsafeManagedPtrGetPtr event - result <- gtk_bindings_activate_event object' event' - let result' = (/= 0) result - touchManagedPtr object - touchManagedPtr event - return result' - - --- function gtk_bindings_activate --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_bindings_activate" gtk_bindings_activate :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -bindingsActivate :: - (MonadIO m, GObject.ObjectK a) => - a -- object - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> m Bool -- result -bindingsActivate object keyval modifiers = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - let modifiers' = gflagsToWord modifiers - result <- gtk_bindings_activate object' keyval modifiers' - let result' = (/= 0) result - touchManagedPtr object - return result' - - --- function gtk_alternative_dialog_button_order --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_alternative_dialog_button_order" gtk_alternative_dialog_button_order :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO CInt - -{-# DEPRECATED alternativeDialogButtonOrder ["(Since version 3.10)","Deprecated"]#-} -alternativeDialogButtonOrder :: - (MonadIO m, Gdk.ScreenK a) => - Maybe (a) -- screen - -> m Bool -- result -alternativeDialogButtonOrder screen = liftIO $ do - maybeScreen <- case screen of - Nothing -> return nullPtr - Just jScreen -> do - let jScreen' = unsafeManagedPtrCastPtr jScreen - return jScreen' - result <- gtk_alternative_dialog_button_order maybeScreen - let result' = (/= 0) result - whenJust screen touchManagedPtr - return result' - - --- function gtk_accelerator_valid --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_valid" gtk_accelerator_valid :: - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -acceleratorValid :: - (MonadIO m) => - Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> m Bool -- result -acceleratorValid keyval modifiers = liftIO $ do - let modifiers' = gflagsToWord modifiers - result <- gtk_accelerator_valid keyval modifiers' - let result' = (/= 0) result - return result' - - --- function gtk_accelerator_set_default_mod_mask --- Args : [Arg {argCName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_set_default_mod_mask" gtk_accelerator_set_default_mod_mask :: - CUInt -> -- default_mod_mask : TInterface "Gdk" "ModifierType" - IO () - - -acceleratorSetDefaultModMask :: - (MonadIO m) => - [Gdk.ModifierType] -- defaultModMask - -> m () -- result -acceleratorSetDefaultModMask defaultModMask = liftIO $ do - let defaultModMask' = gflagsToWord defaultModMask - gtk_accelerator_set_default_mod_mask defaultModMask' - return () - - --- function gtk_accelerator_parse_with_keycode --- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode :: - CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt - Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt) - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -acceleratorParseWithKeycode :: - (MonadIO m) => - T.Text -- accelerator - -> m (Word32,[Word32],[Gdk.ModifierType])-- result -acceleratorParseWithKeycode accelerator = liftIO $ do - accelerator' <- textToCString accelerator - acceleratorKey <- allocMem :: IO (Ptr Word32) - acceleratorCodes <- allocMem :: IO (Ptr (Ptr Word32)) - acceleratorMods <- allocMem :: IO (Ptr CUInt) - gtk_accelerator_parse_with_keycode accelerator' acceleratorKey acceleratorCodes acceleratorMods - acceleratorKey' <- peek acceleratorKey - acceleratorCodes' <- peek acceleratorCodes - acceleratorCodes'' <- unpackZeroTerminatedStorableArray acceleratorCodes' - freeMem acceleratorCodes' - acceleratorMods' <- peek acceleratorMods - let acceleratorMods'' = wordToGFlags acceleratorMods' - freeMem accelerator' - freeMem acceleratorKey - freeMem acceleratorCodes - freeMem acceleratorMods - return (acceleratorKey', acceleratorCodes'', acceleratorMods'') - - --- function gtk_accelerator_parse --- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_parse" gtk_accelerator_parse :: - CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -acceleratorParse :: - (MonadIO m) => - T.Text -- accelerator - -> m (Word32,[Gdk.ModifierType]) -- result -acceleratorParse accelerator = liftIO $ do - accelerator' <- textToCString accelerator - acceleratorKey <- allocMem :: IO (Ptr Word32) - acceleratorMods <- allocMem :: IO (Ptr CUInt) - gtk_accelerator_parse accelerator' acceleratorKey acceleratorMods - acceleratorKey' <- peek acceleratorKey - acceleratorMods' <- peek acceleratorMods - let acceleratorMods'' = wordToGFlags acceleratorMods' - freeMem accelerator' - freeMem acceleratorKey - freeMem acceleratorMods - return (acceleratorKey', acceleratorMods'') - - --- function gtk_accelerator_name_with_keycode --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word32 -> -- accelerator_key : TBasicType TUInt - Word32 -> -- keycode : TBasicType TUInt - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorNameWithKeycode :: - (MonadIO m, Gdk.DisplayK a) => - Maybe (a) -- display - -> Word32 -- acceleratorKey - -> Word32 -- keycode - -> [Gdk.ModifierType] -- acceleratorMods - -> m T.Text -- result -acceleratorNameWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do - maybeDisplay <- case display of - Nothing -> return nullPtr - Just jDisplay -> do - let jDisplay' = unsafeManagedPtrCastPtr jDisplay - return jDisplay' - let acceleratorMods' = gflagsToWord acceleratorMods - result <- gtk_accelerator_name_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' - checkUnexpectedReturnNULL "gtk_accelerator_name_with_keycode" result - result' <- cstringToText result - freeMem result - whenJust display touchManagedPtr - return result' - - --- function gtk_accelerator_name --- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_name" gtk_accelerator_name :: - Word32 -> -- accelerator_key : TBasicType TUInt - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorName :: - (MonadIO m) => - Word32 -- acceleratorKey - -> [Gdk.ModifierType] -- acceleratorMods - -> m T.Text -- result -acceleratorName acceleratorKey acceleratorMods = liftIO $ do - let acceleratorMods' = gflagsToWord acceleratorMods - result <- gtk_accelerator_name acceleratorKey acceleratorMods' - checkUnexpectedReturnNULL "gtk_accelerator_name" result - result' <- cstringToText result - freeMem result - return result' - - --- function gtk_accelerator_get_label_with_keycode --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word32 -> -- accelerator_key : TBasicType TUInt - Word32 -> -- keycode : TBasicType TUInt - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorGetLabelWithKeycode :: - (MonadIO m, Gdk.DisplayK a) => - Maybe (a) -- display - -> Word32 -- acceleratorKey - -> Word32 -- keycode - -> [Gdk.ModifierType] -- acceleratorMods - -> m T.Text -- result -acceleratorGetLabelWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do - maybeDisplay <- case display of - Nothing -> return nullPtr - Just jDisplay -> do - let jDisplay' = unsafeManagedPtrCastPtr jDisplay - return jDisplay' - let acceleratorMods' = gflagsToWord acceleratorMods - result <- gtk_accelerator_get_label_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' - checkUnexpectedReturnNULL "gtk_accelerator_get_label_with_keycode" result - result' <- cstringToText result - freeMem result - whenJust display touchManagedPtr - return result' - - --- function gtk_accelerator_get_label --- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accelerator_get_label" gtk_accelerator_get_label :: - Word32 -> -- accelerator_key : TBasicType TUInt - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorGetLabel :: - (MonadIO m) => - Word32 -- acceleratorKey - -> [Gdk.ModifierType] -- acceleratorMods - -> m T.Text -- result -acceleratorGetLabel acceleratorKey acceleratorMods = liftIO $ do - let acceleratorMods' = gflagsToWord acceleratorMods - result <- gtk_accelerator_get_label acceleratorKey acceleratorMods' - checkUnexpectedReturnNULL "gtk_accelerator_get_label" result - result' <- cstringToText result - freeMem result - return result' - - --- function gtk_accelerator_get_default_mod_mask --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ModifierType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_get_default_mod_mask" gtk_accelerator_get_default_mod_mask :: - IO CUInt - - -acceleratorGetDefaultModMask :: - (MonadIO m) => - m [Gdk.ModifierType] -- result -acceleratorGetDefaultModMask = liftIO $ do - result <- gtk_accelerator_get_default_mod_mask - let result' = wordToGFlags result - return result' - - --- function gtk_accel_groups_from_object --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "AccelGroup")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_groups_from_object" gtk_accel_groups_from_object :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - IO (Ptr (GSList (Ptr AccelGroup))) - - -accelGroupsFromObject :: - (MonadIO m, GObject.ObjectK a) => - a -- object - -> m [AccelGroup] -- result -accelGroupsFromObject object = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - result <- gtk_accel_groups_from_object object' - result' <- unpackGSList result - result'' <- mapM (newObject AccelGroup) result' - touchManagedPtr object - return result'' - - --- function gtk_accel_groups_activate --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_groups_activate" gtk_accel_groups_activate :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupsActivate :: - (MonadIO m, GObject.ObjectK a) => - a -- object - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m Bool -- result -accelGroupsActivate object accelKey accelMods = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - let accelMods' = gflagsToWord accelMods - result <- gtk_accel_groups_activate object' accelKey accelMods' - let result' = (/= 0) result - touchManagedPtr object - return result' - - - diff --git a/GI/Gtk/Interfaces.hs b/GI/Gtk/Interfaces.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces.hs +++ /dev/null @@ -1,67 +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.Gtk.Interfaces - ( module GI.Gtk.Interfaces.Actionable , - module GI.Gtk.Interfaces.Activatable , - module GI.Gtk.Interfaces.AppChooser , - module GI.Gtk.Interfaces.Buildable , - module GI.Gtk.Interfaces.CellAccessibleParent, - module GI.Gtk.Interfaces.CellEditable , - module GI.Gtk.Interfaces.CellLayout , - module GI.Gtk.Interfaces.ColorChooser , - module GI.Gtk.Interfaces.Editable , - module GI.Gtk.Interfaces.FileChooser , - module GI.Gtk.Interfaces.FontChooser , - module GI.Gtk.Interfaces.Orientable , - module GI.Gtk.Interfaces.PrintOperationPreview, - module GI.Gtk.Interfaces.RecentChooser , - module GI.Gtk.Interfaces.Scrollable , - module GI.Gtk.Interfaces.StyleProvider , - module GI.Gtk.Interfaces.ToolShell , - module GI.Gtk.Interfaces.TreeDragDest , - module GI.Gtk.Interfaces.TreeDragSource , - module GI.Gtk.Interfaces.TreeModel , - module GI.Gtk.Interfaces.TreeSortable , - - - ) where - -import GI.Gtk.Interfaces.Actionable -import GI.Gtk.Interfaces.Activatable -import GI.Gtk.Interfaces.AppChooser -import GI.Gtk.Interfaces.Buildable -import GI.Gtk.Interfaces.CellAccessibleParent -import GI.Gtk.Interfaces.CellEditable -import GI.Gtk.Interfaces.CellLayout -import GI.Gtk.Interfaces.ColorChooser -import GI.Gtk.Interfaces.Editable -import GI.Gtk.Interfaces.FileChooser -import GI.Gtk.Interfaces.FontChooser -import GI.Gtk.Interfaces.Orientable -import GI.Gtk.Interfaces.PrintOperationPreview -import GI.Gtk.Interfaces.RecentChooser -import GI.Gtk.Interfaces.Scrollable -import GI.Gtk.Interfaces.StyleProvider -import GI.Gtk.Interfaces.ToolShell -import GI.Gtk.Interfaces.TreeDragDest -import GI.Gtk.Interfaces.TreeDragSource -import GI.Gtk.Interfaces.TreeModel -import GI.Gtk.Interfaces.TreeSortable - -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.Gtk.Types -import GI.Gtk.Callbacks - - diff --git a/GI/Gtk/Interfaces/Actionable.hs b/GI/Gtk/Interfaces/Actionable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Actionable.hs +++ /dev/null @@ -1,621 +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.Gtk.Interfaces.Actionable - ( - --- * Exported types - Actionable(..) , - noActionable , - ActionableK , - toActionable , - - - -- * Methods --- ** actionableGetActionName - ActionableGetActionNameMethodInfo , - actionableGetActionName , - - --- ** actionableGetActionTargetValue - ActionableGetActionTargetValueMethodInfo, - actionableGetActionTargetValue , - - --- ** actionableSetActionName - ActionableSetActionNameMethodInfo , - actionableSetActionName , - - --- ** actionableSetActionTargetValue - ActionableSetActionTargetValueMethodInfo, - actionableSetActionTargetValue , - - --- ** actionableSetDetailedActionName - ActionableSetDetailedActionNameMethodInfo, - actionableSetDetailedActionName , - - - - - -- * Properties --- ** ActionName - ActionableActionNamePropertyInfo , - actionableActionName , - constructActionableActionName , - getActionableActionName , - setActionableActionName , - - --- ** ActionTarget - ActionableActionTargetPropertyInfo , - actionableActionTarget , - clearActionableActionTarget , - constructActionableActionTarget , - getActionableActionTarget , - setActionableActionTarget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Actionable - -newtype Actionable = Actionable (ForeignPtr Actionable) -noActionable :: Maybe Actionable -noActionable = Nothing - -type family ResolveActionableMethod (t :: Symbol) (o :: *) :: * where - ResolveActionableMethod "activate" o = WidgetActivateMethodInfo - ResolveActionableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveActionableMethod "addChild" o = BuildableAddChildMethodInfo - ResolveActionableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveActionableMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveActionableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveActionableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveActionableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveActionableMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveActionableMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveActionableMethod "classPath" o = WidgetClassPathMethodInfo - ResolveActionableMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveActionableMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveActionableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveActionableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveActionableMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveActionableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveActionableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveActionableMethod "destroy" o = WidgetDestroyMethodInfo - ResolveActionableMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveActionableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveActionableMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveActionableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveActionableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveActionableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveActionableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveActionableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveActionableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveActionableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveActionableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveActionableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveActionableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveActionableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveActionableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveActionableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveActionableMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveActionableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveActionableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveActionableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveActionableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveActionableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveActionableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveActionableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveActionableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveActionableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveActionableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveActionableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveActionableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveActionableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveActionableMethod "draw" o = WidgetDrawMethodInfo - ResolveActionableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveActionableMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveActionableMethod "event" o = WidgetEventMethodInfo - ResolveActionableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveActionableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionableMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveActionableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveActionableMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveActionableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveActionableMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveActionableMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveActionableMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveActionableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveActionableMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveActionableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveActionableMethod "hide" o = WidgetHideMethodInfo - ResolveActionableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveActionableMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveActionableMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveActionableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveActionableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveActionableMethod "intersect" o = WidgetIntersectMethodInfo - ResolveActionableMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveActionableMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveActionableMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveActionableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionableMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveActionableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveActionableMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveActionableMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveActionableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveActionableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveActionableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveActionableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveActionableMethod "map" o = WidgetMapMethodInfo - ResolveActionableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveActionableMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveActionableMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveActionableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveActionableMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveActionableMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveActionableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveActionableMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveActionableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveActionableMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveActionableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveActionableMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveActionableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveActionableMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveActionableMethod "path" o = WidgetPathMethodInfo - ResolveActionableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveActionableMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveActionableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveActionableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveActionableMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveActionableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveActionableMethod "realize" o = WidgetRealizeMethodInfo - ResolveActionableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveActionableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveActionableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveActionableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveActionableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveActionableMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveActionableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveActionableMethod "reparent" o = WidgetReparentMethodInfo - ResolveActionableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveActionableMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveActionableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionableMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveActionableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveActionableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveActionableMethod "show" o = WidgetShowMethodInfo - ResolveActionableMethod "showAll" o = WidgetShowAllMethodInfo - ResolveActionableMethod "showNow" o = WidgetShowNowMethodInfo - ResolveActionableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveActionableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveActionableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveActionableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionableMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveActionableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveActionableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveActionableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveActionableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveActionableMethod "unmap" o = WidgetUnmapMethodInfo - ResolveActionableMethod "unparent" o = WidgetUnparentMethodInfo - ResolveActionableMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveActionableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveActionableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveActionableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveActionableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveActionableMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveActionableMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveActionableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveActionableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveActionableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveActionableMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveActionableMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveActionableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveActionableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveActionableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveActionableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveActionableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveActionableMethod "getClip" o = WidgetGetClipMethodInfo - ResolveActionableMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveActionableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveActionableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveActionableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveActionableMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveActionableMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveActionableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveActionableMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveActionableMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveActionableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveActionableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveActionableMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveActionableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveActionableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveActionableMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveActionableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveActionableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveActionableMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveActionableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveActionableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveActionableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveActionableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveActionableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveActionableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveActionableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveActionableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveActionableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveActionableMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveActionableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveActionableMethod "getParent" o = WidgetGetParentMethodInfo - ResolveActionableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveActionableMethod "getPath" o = WidgetGetPathMethodInfo - ResolveActionableMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveActionableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveActionableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveActionableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveActionableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveActionableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveActionableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveActionableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionableMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveActionableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveActionableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveActionableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveActionableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveActionableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveActionableMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveActionableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveActionableMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveActionableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveActionableMethod "getState" o = WidgetGetStateMethodInfo - ResolveActionableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveActionableMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveActionableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveActionableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveActionableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveActionableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveActionableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveActionableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveActionableMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveActionableMethod "getValign" o = WidgetGetValignMethodInfo - ResolveActionableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveActionableMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveActionableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveActionableMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveActionableMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveActionableMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveActionableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveActionableMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveActionableMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveActionableMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveActionableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveActionableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveActionableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveActionableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveActionableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveActionableMethod "setClip" o = WidgetSetClipMethodInfo - ResolveActionableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveActionableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionableMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveActionableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveActionableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveActionableMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveActionableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveActionableMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveActionableMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveActionableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveActionableMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveActionableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveActionableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveActionableMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveActionableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveActionableMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveActionableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveActionableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveActionableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveActionableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveActionableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveActionableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveActionableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveActionableMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveActionableMethod "setParent" o = WidgetSetParentMethodInfo - ResolveActionableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveActionableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionableMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveActionableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveActionableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveActionableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveActionableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveActionableMethod "setState" o = WidgetSetStateMethodInfo - ResolveActionableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveActionableMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveActionableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveActionableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveActionableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveActionableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveActionableMethod "setValign" o = WidgetSetValignMethodInfo - ResolveActionableMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveActionableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveActionableMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveActionableMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveActionableMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveActionableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionableMethod t Actionable, MethodInfo info Actionable p) => IsLabelProxy t (Actionable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionableMethod t Actionable, MethodInfo info Actionable p) => IsLabel t (Actionable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "action-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionableActionName :: (MonadIO m, ActionableK o) => o -> m T.Text -getActionableActionName obj = liftIO $ checkUnexpectedNothing "getActionableActionName" $ getObjectPropertyString obj "action-name" - -setActionableActionName :: (MonadIO m, ActionableK o) => o -> T.Text -> m () -setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" (Just val) - -constructActionableActionName :: T.Text -> IO ([Char], GValue) -constructActionableActionName val = constructObjectPropertyString "action-name" (Just val) - -data ActionableActionNamePropertyInfo -instance AttrInfo ActionableActionNamePropertyInfo where - type AttrAllowedOps ActionableActionNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionableActionNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionableActionNamePropertyInfo = ActionableK - type AttrGetType ActionableActionNamePropertyInfo = T.Text - type AttrLabel ActionableActionNamePropertyInfo = "action-name" - attrGet _ = getActionableActionName - attrSet _ = setActionableActionName - attrConstruct _ = constructActionableActionName - attrClear _ = undefined - --- VVV Prop "action-target" - -- Type: TVariant - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m (Maybe GVariant) -getActionableActionTarget obj = liftIO $ getObjectPropertyVariant obj "action-target" - -setActionableActionTarget :: (MonadIO m, ActionableK o) => o -> GVariant -> m () -setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" (Just val) - -constructActionableActionTarget :: GVariant -> IO ([Char], GValue) -constructActionableActionTarget val = constructObjectPropertyVariant "action-target" (Just val) - -clearActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m () -clearActionableActionTarget obj = liftIO $ setObjectPropertyVariant obj "action-target" (Nothing :: Maybe GVariant) - -data ActionableActionTargetPropertyInfo -instance AttrInfo ActionableActionTargetPropertyInfo where - type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant - type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK - type AttrGetType ActionableActionTargetPropertyInfo = (Maybe GVariant) - type AttrLabel ActionableActionTargetPropertyInfo = "action-target" - attrGet _ = getActionableActionTarget - attrSet _ = setActionableActionTarget - attrConstruct _ = constructActionableActionTarget - attrClear _ = clearActionableActionTarget - -type instance AttributeList Actionable = ActionableAttributeList -type ActionableAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -actionableActionName :: AttrLabelProxy "actionName" -actionableActionName = AttrLabelProxy - -actionableActionTarget :: AttrLabelProxy "actionTarget" -actionableActionTarget = AttrLabelProxy - -type instance SignalList Actionable = ActionableSignalList -type ActionableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_actionable_get_type" - c_gtk_actionable_get_type :: IO GType - -type instance ParentTypes Actionable = ActionableParentTypes -type ActionableParentTypes = '[Widget, GObject.Object] - -instance GObject Actionable where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_actionable_get_type - - -class GObject o => ActionableK o -instance (GObject o, IsDescendantOf Actionable o) => ActionableK o - -toActionable :: ActionableK o => o -> IO Actionable -toActionable = unsafeCastTo Actionable - --- method Actionable::get_action_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", 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 "gtk_actionable_get_action_name" gtk_actionable_get_action_name :: - Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable" - IO CString - - -actionableGetActionName :: - (MonadIO m, ActionableK a) => - a -- _obj - -> m T.Text -- result -actionableGetActionName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_actionable_get_action_name _obj' - checkUnexpectedReturnNULL "gtk_actionable_get_action_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionableGetActionNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionableK a) => MethodInfo ActionableGetActionNameMethodInfo a signature where - overloadedMethod _ = actionableGetActionName - --- method Actionable::get_action_target_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "gtk_actionable_get_action_target_value" gtk_actionable_get_action_target_value :: - Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable" - IO (Ptr GVariant) - - -actionableGetActionTargetValue :: - (MonadIO m, ActionableK a) => - a -- _obj - -> m GVariant -- result -actionableGetActionTargetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_actionable_get_action_target_value _obj' - checkUnexpectedReturnNULL "gtk_actionable_get_action_target_value" result - result' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - -data ActionableGetActionTargetValueMethodInfo -instance (signature ~ (m GVariant), MonadIO m, ActionableK a) => MethodInfo ActionableGetActionTargetValueMethodInfo a signature where - overloadedMethod _ = actionableGetActionTargetValue - --- method Actionable::set_action_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_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 "gtk_actionable_set_action_name" gtk_actionable_set_action_name :: - Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable" - CString -> -- action_name : TBasicType TUTF8 - IO () - - -actionableSetActionName :: - (MonadIO m, ActionableK a) => - a -- _obj - -> T.Text -- actionName - -> m () -- result -actionableSetActionName _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - gtk_actionable_set_action_name _obj' actionName' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionableSetActionNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetActionNameMethodInfo a signature where - overloadedMethod _ = actionableSetActionName - --- method Actionable::set_action_target_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, 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 "gtk_actionable_set_action_target_value" gtk_actionable_set_action_target_value :: - Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable" - Ptr GVariant -> -- target_value : TVariant - IO () - - -actionableSetActionTargetValue :: - (MonadIO m, ActionableK a) => - a -- _obj - -> GVariant -- targetValue - -> m () -- result -actionableSetActionTargetValue _obj targetValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targetValue' = unsafeManagedPtrGetPtr targetValue - gtk_actionable_set_action_target_value _obj' targetValue' - touchManagedPtr _obj - return () - -data ActionableSetActionTargetValueMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetActionTargetValueMethodInfo a signature where - overloadedMethod _ = actionableSetActionTargetValue - --- method Actionable::set_detailed_action_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_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 "gtk_actionable_set_detailed_action_name" gtk_actionable_set_detailed_action_name :: - Ptr Actionable -> -- _obj : TInterface "Gtk" "Actionable" - CString -> -- detailed_action_name : TBasicType TUTF8 - IO () - - -actionableSetDetailedActionName :: - (MonadIO m, ActionableK a) => - a -- _obj - -> T.Text -- detailedActionName - -> m () -- result -actionableSetDetailedActionName _obj detailedActionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailedActionName' <- textToCString detailedActionName - gtk_actionable_set_detailed_action_name _obj' detailedActionName' - touchManagedPtr _obj - freeMem detailedActionName' - return () - -data ActionableSetDetailedActionNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetDetailedActionNameMethodInfo a signature where - overloadedMethod _ = actionableSetDetailedActionName - - diff --git a/GI/Gtk/Interfaces/Actionable.hs-boot b/GI/Gtk/Interfaces/Actionable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Actionable.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Interfaces.Actionable 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 Actionable = Actionable (ForeignPtr Actionable) -data ActionableActionNamePropertyInfo -data ActionableActionTargetPropertyInfo -instance GObject Actionable where -class GObject o => ActionableK o -instance (GObject o, IsDescendantOf Actionable o) => ActionableK o -data ActionableGetActionNameMethodInfo -data ActionableGetActionTargetValueMethodInfo -data ActionableSetActionNameMethodInfo -data ActionableSetActionTargetValueMethodInfo -data ActionableSetDetailedActionNameMethodInfo diff --git a/GI/Gtk/Interfaces/Activatable.hs b/GI/Gtk/Interfaces/Activatable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Activatable.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.Gtk.Interfaces.Activatable - ( - --- * Exported types - Activatable(..) , - noActivatable , - ActivatableK , - toActivatable , - - - -- * Methods --- ** activatableDoSetRelatedAction - ActivatableDoSetRelatedActionMethodInfo , - activatableDoSetRelatedAction , - - --- ** activatableGetRelatedAction - ActivatableGetRelatedActionMethodInfo , - activatableGetRelatedAction , - - --- ** activatableGetUseActionAppearance - ActivatableGetUseActionAppearanceMethodInfo, - activatableGetUseActionAppearance , - - --- ** activatableSetRelatedAction - ActivatableSetRelatedActionMethodInfo , - activatableSetRelatedAction , - - --- ** activatableSetUseActionAppearance - ActivatableSetUseActionAppearanceMethodInfo, - activatableSetUseActionAppearance , - - --- ** activatableSyncActionProperties - ActivatableSyncActionPropertiesMethodInfo, - activatableSyncActionProperties , - - - - - -- * Properties --- ** RelatedAction - ActivatableRelatedActionPropertyInfo , - activatableRelatedAction , - constructActivatableRelatedAction , - getActivatableRelatedAction , - setActivatableRelatedAction , - - --- ** UseActionAppearance - ActivatableUseActionAppearancePropertyInfo, - activatableUseActionAppearance , - constructActivatableUseActionAppearance , - getActivatableUseActionAppearance , - setActivatableUseActionAppearance , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Activatable - -newtype Activatable = Activatable (ForeignPtr Activatable) -noActivatable :: Maybe Activatable -noActivatable = Nothing - -type family ResolveActivatableMethod (t :: Symbol) (o :: *) :: * where - ResolveActivatableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActivatableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActivatableMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveActivatableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActivatableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActivatableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActivatableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActivatableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActivatableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActivatableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActivatableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActivatableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActivatableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActivatableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActivatableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActivatableMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveActivatableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActivatableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActivatableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActivatableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActivatableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActivatableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActivatableMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveActivatableMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveActivatableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActivatableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActivatableMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveActivatableMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveActivatableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActivatableMethod t Activatable, MethodInfo info Activatable p) => IsLabelProxy t (Activatable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActivatableMethod t Activatable, MethodInfo info Activatable p) => IsLabel t (Activatable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "related-action" - -- Type: TInterface "Gtk" "Action" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActivatableRelatedAction :: (MonadIO m, ActivatableK o) => o -> m Action -getActivatableRelatedAction obj = liftIO $ checkUnexpectedNothing "getActivatableRelatedAction" $ getObjectPropertyObject obj "related-action" Action - -setActivatableRelatedAction :: (MonadIO m, ActivatableK o, ActionK a) => o -> a -> m () -setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" (Just val) - -constructActivatableRelatedAction :: (ActionK a) => a -> IO ([Char], GValue) -constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" (Just val) - -data ActivatableRelatedActionPropertyInfo -instance AttrInfo ActivatableRelatedActionPropertyInfo where - type AttrAllowedOps ActivatableRelatedActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActivatableRelatedActionPropertyInfo = ActionK - type AttrBaseTypeConstraint ActivatableRelatedActionPropertyInfo = ActivatableK - type AttrGetType ActivatableRelatedActionPropertyInfo = Action - type AttrLabel ActivatableRelatedActionPropertyInfo = "related-action" - attrGet _ = getActivatableRelatedAction - attrSet _ = setActivatableRelatedAction - attrConstruct _ = constructActivatableRelatedAction - attrClear _ = undefined - --- VVV Prop "use-action-appearance" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActivatableUseActionAppearance :: (MonadIO m, ActivatableK o) => o -> m Bool -getActivatableUseActionAppearance obj = liftIO $ getObjectPropertyBool obj "use-action-appearance" - -setActivatableUseActionAppearance :: (MonadIO m, ActivatableK o) => o -> Bool -> m () -setActivatableUseActionAppearance obj val = liftIO $ setObjectPropertyBool obj "use-action-appearance" val - -constructActivatableUseActionAppearance :: Bool -> IO ([Char], GValue) -constructActivatableUseActionAppearance val = constructObjectPropertyBool "use-action-appearance" val - -data ActivatableUseActionAppearancePropertyInfo -instance AttrInfo ActivatableUseActionAppearancePropertyInfo where - type AttrAllowedOps ActivatableUseActionAppearancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActivatableUseActionAppearancePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActivatableUseActionAppearancePropertyInfo = ActivatableK - type AttrGetType ActivatableUseActionAppearancePropertyInfo = Bool - type AttrLabel ActivatableUseActionAppearancePropertyInfo = "use-action-appearance" - attrGet _ = getActivatableUseActionAppearance - attrSet _ = setActivatableUseActionAppearance - attrConstruct _ = constructActivatableUseActionAppearance - attrClear _ = undefined - -type instance AttributeList Activatable = ActivatableAttributeList -type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) - -activatableRelatedAction :: AttrLabelProxy "relatedAction" -activatableRelatedAction = AttrLabelProxy - -activatableUseActionAppearance :: AttrLabelProxy "useActionAppearance" -activatableUseActionAppearance = AttrLabelProxy - -type instance SignalList Activatable = ActivatableSignalList -type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_activatable_get_type" - c_gtk_activatable_get_type :: IO GType - -type instance ParentTypes Activatable = ActivatableParentTypes -type ActivatableParentTypes = '[GObject.Object] - -instance GObject Activatable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_activatable_get_type - - -class GObject o => ActivatableK o -instance (GObject o, IsDescendantOf Activatable o) => ActivatableK o - -toActivatable :: ActivatableK o => o -> IO Activatable -toActivatable = unsafeCastTo Activatable - --- method Activatable::do_set_related_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", 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 "gtk_activatable_do_set_related_action" gtk_activatable_do_set_related_action :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - Ptr Action -> -- action : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED activatableDoSetRelatedAction ["(Since version 3.10)"]#-} -activatableDoSetRelatedAction :: - (MonadIO m, ActivatableK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -activatableDoSetRelatedAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - gtk_activatable_do_set_related_action _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data ActivatableDoSetRelatedActionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableDoSetRelatedActionMethodInfo a signature where - overloadedMethod _ = activatableDoSetRelatedAction - --- method Activatable::get_related_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Action") --- throws : False --- Skip return : False - -foreign import ccall "gtk_activatable_get_related_action" gtk_activatable_get_related_action :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - IO (Ptr Action) - -{-# DEPRECATED activatableGetRelatedAction ["(Since version 3.10)"]#-} -activatableGetRelatedAction :: - (MonadIO m, ActivatableK a) => - a -- _obj - -> m Action -- result -activatableGetRelatedAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_activatable_get_related_action _obj' - checkUnexpectedReturnNULL "gtk_activatable_get_related_action" result - result' <- (newObject Action) result - touchManagedPtr _obj - return result' - -data ActivatableGetRelatedActionMethodInfo -instance (signature ~ (m Action), MonadIO m, ActivatableK a) => MethodInfo ActivatableGetRelatedActionMethodInfo a signature where - overloadedMethod _ = activatableGetRelatedAction - --- method Activatable::get_use_action_appearance --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", 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 "gtk_activatable_get_use_action_appearance" gtk_activatable_get_use_action_appearance :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - IO CInt - -{-# DEPRECATED activatableGetUseActionAppearance ["(Since version 3.10)"]#-} -activatableGetUseActionAppearance :: - (MonadIO m, ActivatableK a) => - a -- _obj - -> m Bool -- result -activatableGetUseActionAppearance _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_activatable_get_use_action_appearance _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActivatableGetUseActionAppearanceMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActivatableK a) => MethodInfo ActivatableGetUseActionAppearanceMethodInfo a signature where - overloadedMethod _ = activatableGetUseActionAppearance - --- method Activatable::set_related_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", 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 "gtk_activatable_set_related_action" gtk_activatable_set_related_action :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - Ptr Action -> -- action : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED activatableSetRelatedAction ["(Since version 3.10)"]#-} -activatableSetRelatedAction :: - (MonadIO m, ActivatableK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -activatableSetRelatedAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - gtk_activatable_set_related_action _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data ActivatableSetRelatedActionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableSetRelatedActionMethodInfo a signature where - overloadedMethod _ = activatableSetRelatedAction - --- method Activatable::set_use_action_appearance --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_appearance", 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 "gtk_activatable_set_use_action_appearance" gtk_activatable_set_use_action_appearance :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - CInt -> -- use_appearance : TBasicType TBoolean - IO () - -{-# DEPRECATED activatableSetUseActionAppearance ["(Since version 3.10)"]#-} -activatableSetUseActionAppearance :: - (MonadIO m, ActivatableK a) => - a -- _obj - -> Bool -- useAppearance - -> m () -- result -activatableSetUseActionAppearance _obj useAppearance = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useAppearance' = (fromIntegral . fromEnum) useAppearance - gtk_activatable_set_use_action_appearance _obj' useAppearance' - touchManagedPtr _obj - return () - -data ActivatableSetUseActionAppearanceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActivatableK a) => MethodInfo ActivatableSetUseActionAppearanceMethodInfo a signature where - overloadedMethod _ = activatableSetUseActionAppearance - --- method Activatable::sync_action_properties --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_activatable_sync_action_properties" gtk_activatable_sync_action_properties :: - Ptr Activatable -> -- _obj : TInterface "Gtk" "Activatable" - Ptr Action -> -- action : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED activatableSyncActionProperties ["(Since version 3.10)"]#-} -activatableSyncActionProperties :: - (MonadIO m, ActivatableK a, ActionK b) => - a -- _obj - -> Maybe (b) -- action - -> m () -- result -activatableSyncActionProperties _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAction <- case action of - Nothing -> return nullPtr - Just jAction -> do - let jAction' = unsafeManagedPtrCastPtr jAction - return jAction' - gtk_activatable_sync_action_properties _obj' maybeAction - touchManagedPtr _obj - whenJust action touchManagedPtr - return () - -data ActivatableSyncActionPropertiesMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableSyncActionPropertiesMethodInfo a signature where - overloadedMethod _ = activatableSyncActionProperties - - diff --git a/GI/Gtk/Interfaces/Activatable.hs-boot b/GI/Gtk/Interfaces/Activatable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Activatable.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Interfaces.Activatable 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 Activatable = Activatable (ForeignPtr Activatable) -data ActivatableRelatedActionPropertyInfo -data ActivatableUseActionAppearancePropertyInfo -instance GObject Activatable where -class GObject o => ActivatableK o -instance (GObject o, IsDescendantOf Activatable o) => ActivatableK o -data ActivatableDoSetRelatedActionMethodInfo -data ActivatableGetRelatedActionMethodInfo -data ActivatableGetUseActionAppearanceMethodInfo -data ActivatableSetRelatedActionMethodInfo -data ActivatableSetUseActionAppearanceMethodInfo -data ActivatableSyncActionPropertiesMethodInfo diff --git a/GI/Gtk/Interfaces/AppChooser.hs b/GI/Gtk/Interfaces/AppChooser.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/AppChooser.hs +++ /dev/null @@ -1,501 +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.Gtk.Interfaces.AppChooser - ( - --- * Exported types - AppChooser(..) , - noAppChooser , - AppChooserK , - toAppChooser , - - - -- * Methods --- ** appChooserGetAppInfo - AppChooserGetAppInfoMethodInfo , - appChooserGetAppInfo , - - --- ** appChooserGetContentType - AppChooserGetContentTypeMethodInfo , - appChooserGetContentType , - - --- ** appChooserRefresh - AppChooserRefreshMethodInfo , - appChooserRefresh , - - - - - -- * Properties --- ** ContentType - AppChooserContentTypePropertyInfo , - appChooserContentType , - constructAppChooserContentType , - getAppChooserContentType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface AppChooser - -newtype AppChooser = AppChooser (ForeignPtr AppChooser) -noAppChooser :: Maybe AppChooser -noAppChooser = Nothing - -type family ResolveAppChooserMethod (t :: Symbol) (o :: *) :: * where - ResolveAppChooserMethod "activate" o = WidgetActivateMethodInfo - ResolveAppChooserMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAppChooserMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAppChooserMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAppChooserMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAppChooserMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAppChooserMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAppChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppChooserMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAppChooserMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAppChooserMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveAppChooserMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAppChooserMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAppChooserMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAppChooserMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAppChooserMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAppChooserMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAppChooserMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAppChooserMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAppChooserMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAppChooserMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAppChooserMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAppChooserMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAppChooserMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAppChooserMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAppChooserMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAppChooserMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAppChooserMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAppChooserMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAppChooserMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAppChooserMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAppChooserMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAppChooserMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAppChooserMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAppChooserMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAppChooserMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAppChooserMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAppChooserMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAppChooserMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAppChooserMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAppChooserMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAppChooserMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAppChooserMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAppChooserMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAppChooserMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAppChooserMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAppChooserMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAppChooserMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAppChooserMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAppChooserMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAppChooserMethod "draw" o = WidgetDrawMethodInfo - ResolveAppChooserMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAppChooserMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAppChooserMethod "event" o = WidgetEventMethodInfo - ResolveAppChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppChooserMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAppChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppChooserMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAppChooserMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAppChooserMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAppChooserMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAppChooserMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAppChooserMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAppChooserMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAppChooserMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAppChooserMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAppChooserMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAppChooserMethod "hide" o = WidgetHideMethodInfo - ResolveAppChooserMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAppChooserMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAppChooserMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAppChooserMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAppChooserMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAppChooserMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAppChooserMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAppChooserMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAppChooserMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAppChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppChooserMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAppChooserMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAppChooserMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAppChooserMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAppChooserMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAppChooserMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAppChooserMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAppChooserMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAppChooserMethod "map" o = WidgetMapMethodInfo - ResolveAppChooserMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAppChooserMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAppChooserMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAppChooserMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAppChooserMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAppChooserMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAppChooserMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAppChooserMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAppChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppChooserMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAppChooserMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAppChooserMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAppChooserMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAppChooserMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAppChooserMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAppChooserMethod "path" o = WidgetPathMethodInfo - ResolveAppChooserMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAppChooserMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAppChooserMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAppChooserMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAppChooserMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAppChooserMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAppChooserMethod "realize" o = WidgetRealizeMethodInfo - ResolveAppChooserMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppChooserMethod "refresh" o = AppChooserRefreshMethodInfo - ResolveAppChooserMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAppChooserMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAppChooserMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAppChooserMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAppChooserMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAppChooserMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAppChooserMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAppChooserMethod "reparent" o = WidgetReparentMethodInfo - ResolveAppChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppChooserMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAppChooserMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAppChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppChooserMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAppChooserMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAppChooserMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAppChooserMethod "show" o = WidgetShowMethodInfo - ResolveAppChooserMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAppChooserMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAppChooserMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAppChooserMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAppChooserMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAppChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppChooserMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAppChooserMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAppChooserMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAppChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppChooserMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAppChooserMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAppChooserMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAppChooserMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAppChooserMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAppChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppChooserMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAppChooserMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAppChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppChooserMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAppChooserMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAppChooserMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAppChooserMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAppChooserMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAppChooserMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAppChooserMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAppChooserMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo - ResolveAppChooserMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAppChooserMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAppChooserMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAppChooserMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAppChooserMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAppChooserMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAppChooserMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAppChooserMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAppChooserMethod "getContentType" o = AppChooserGetContentTypeMethodInfo - ResolveAppChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppChooserMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAppChooserMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAppChooserMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAppChooserMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAppChooserMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAppChooserMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAppChooserMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAppChooserMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAppChooserMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAppChooserMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAppChooserMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAppChooserMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAppChooserMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAppChooserMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAppChooserMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAppChooserMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAppChooserMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAppChooserMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAppChooserMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAppChooserMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAppChooserMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAppChooserMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAppChooserMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAppChooserMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAppChooserMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAppChooserMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAppChooserMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAppChooserMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAppChooserMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAppChooserMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAppChooserMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAppChooserMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAppChooserMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAppChooserMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAppChooserMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAppChooserMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAppChooserMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAppChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppChooserMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAppChooserMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAppChooserMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAppChooserMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAppChooserMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAppChooserMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAppChooserMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAppChooserMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAppChooserMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAppChooserMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAppChooserMethod "getState" o = WidgetGetStateMethodInfo - ResolveAppChooserMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAppChooserMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAppChooserMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAppChooserMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAppChooserMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAppChooserMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAppChooserMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAppChooserMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAppChooserMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAppChooserMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAppChooserMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAppChooserMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAppChooserMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAppChooserMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAppChooserMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAppChooserMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAppChooserMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAppChooserMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAppChooserMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAppChooserMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAppChooserMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAppChooserMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAppChooserMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAppChooserMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAppChooserMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAppChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppChooserMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAppChooserMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAppChooserMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAppChooserMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAppChooserMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAppChooserMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAppChooserMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAppChooserMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAppChooserMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAppChooserMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAppChooserMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAppChooserMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAppChooserMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAppChooserMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAppChooserMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAppChooserMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAppChooserMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAppChooserMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAppChooserMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAppChooserMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAppChooserMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAppChooserMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAppChooserMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAppChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppChooserMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAppChooserMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAppChooserMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAppChooserMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAppChooserMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAppChooserMethod "setState" o = WidgetSetStateMethodInfo - ResolveAppChooserMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAppChooserMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAppChooserMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAppChooserMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAppChooserMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAppChooserMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAppChooserMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAppChooserMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAppChooserMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAppChooserMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAppChooserMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAppChooserMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAppChooserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppChooserMethod t AppChooser, MethodInfo info AppChooser p) => IsLabelProxy t (AppChooser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppChooserMethod t AppChooser, MethodInfo info AppChooser p) => IsLabel t (AppChooser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "content-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m (Maybe T.Text) -getAppChooserContentType obj = liftIO $ getObjectPropertyString obj "content-type" - -constructAppChooserContentType :: T.Text -> IO ([Char], GValue) -constructAppChooserContentType val = constructObjectPropertyString "content-type" (Just val) - -data AppChooserContentTypePropertyInfo -instance AttrInfo AppChooserContentTypePropertyInfo where - type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK - type AttrGetType AppChooserContentTypePropertyInfo = (Maybe T.Text) - type AttrLabel AppChooserContentTypePropertyInfo = "content-type" - attrGet _ = getAppChooserContentType - attrSet _ = undefined - attrConstruct _ = constructAppChooserContentType - attrClear _ = undefined - -type instance AttributeList AppChooser = AppChooserAttributeList -type AppChooserAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -appChooserContentType :: AttrLabelProxy "contentType" -appChooserContentType = AttrLabelProxy - -type instance SignalList AppChooser = AppChooserSignalList -type AppChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_app_chooser_get_type" - c_gtk_app_chooser_get_type :: IO GType - -type instance ParentTypes AppChooser = AppChooserParentTypes -type AppChooserParentTypes = '[Widget, GObject.Object] - -instance GObject AppChooser where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_app_chooser_get_type - - -class GObject o => AppChooserK o -instance (GObject o, IsDescendantOf AppChooser o) => AppChooserK o - -toAppChooser :: AppChooserK o => o -> IO AppChooser -toAppChooser = unsafeCastTo AppChooser - --- method AppChooser::get_app_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_get_app_info" gtk_app_chooser_get_app_info :: - Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser" - IO (Ptr Gio.AppInfo) - - -appChooserGetAppInfo :: - (MonadIO m, AppChooserK a) => - a -- _obj - -> m Gio.AppInfo -- result -appChooserGetAppInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_get_app_info _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_get_app_info" result - result' <- (wrapObject Gio.AppInfo) result - touchManagedPtr _obj - return result' - -data AppChooserGetAppInfoMethodInfo -instance (signature ~ (m Gio.AppInfo), MonadIO m, AppChooserK a) => MethodInfo AppChooserGetAppInfoMethodInfo a signature where - overloadedMethod _ = appChooserGetAppInfo - --- method AppChooser::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", 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 "gtk_app_chooser_get_content_type" gtk_app_chooser_get_content_type :: - Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser" - IO CString - - -appChooserGetContentType :: - (MonadIO m, AppChooserK a) => - a -- _obj - -> m T.Text -- result -appChooserGetContentType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_get_content_type _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_get_content_type" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AppChooserGetContentTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppChooserK a) => MethodInfo AppChooserGetContentTypeMethodInfo a signature where - overloadedMethod _ = appChooserGetContentType - --- method AppChooser::refresh --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", 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 "gtk_app_chooser_refresh" gtk_app_chooser_refresh :: - Ptr AppChooser -> -- _obj : TInterface "Gtk" "AppChooser" - IO () - - -appChooserRefresh :: - (MonadIO m, AppChooserK a) => - a -- _obj - -> m () -- result -appChooserRefresh _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_app_chooser_refresh _obj' - touchManagedPtr _obj - return () - -data AppChooserRefreshMethodInfo -instance (signature ~ (m ()), MonadIO m, AppChooserK a) => MethodInfo AppChooserRefreshMethodInfo a signature where - overloadedMethod _ = appChooserRefresh - - diff --git a/GI/Gtk/Interfaces/AppChooser.hs-boot b/GI/Gtk/Interfaces/AppChooser.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/AppChooser.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Interfaces.AppChooser 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 AppChooser = AppChooser (ForeignPtr AppChooser) -data AppChooserContentTypePropertyInfo -instance GObject AppChooser where -class GObject o => AppChooserK o -instance (GObject o, IsDescendantOf AppChooser o) => AppChooserK o -data AppChooserGetAppInfoMethodInfo -data AppChooserGetContentTypeMethodInfo -data AppChooserRefreshMethodInfo diff --git a/GI/Gtk/Interfaces/Buildable.hs b/GI/Gtk/Interfaces/Buildable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Buildable.hs +++ /dev/null @@ -1,546 +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.Gtk.Interfaces.Buildable - ( - --- * Exported types - Buildable(..) , - noBuildable , - BuildableK , - toBuildable , - - - -- * Methods --- ** buildableAddChild - BuildableAddChildMethodInfo , - buildableAddChild , - - --- ** buildableConstructChild - BuildableConstructChildMethodInfo , - buildableConstructChild , - - --- ** buildableCustomFinished - BuildableCustomFinishedMethodInfo , - buildableCustomFinished , - - --- ** buildableCustomTagEnd - BuildableCustomTagEndMethodInfo , - buildableCustomTagEnd , - - --- ** buildableCustomTagStart - BuildableCustomTagStartMethodInfo , - buildableCustomTagStart , - - --- ** buildableGetInternalChild - BuildableGetInternalChildMethodInfo , - buildableGetInternalChild , - - --- ** buildableGetName - BuildableGetNameMethodInfo , - buildableGetName , - - --- ** buildableParserFinished - BuildableParserFinishedMethodInfo , - buildableParserFinished , - - --- ** buildableSetBuildableProperty - BuildableSetBuildablePropertyMethodInfo , - buildableSetBuildableProperty , - - --- ** buildableSetName - BuildableSetNameMethodInfo , - buildableSetName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface Buildable - -newtype Buildable = Buildable (ForeignPtr Buildable) -noBuildable :: Maybe Buildable -noBuildable = Nothing - -type family ResolveBuildableMethod (t :: Symbol) (o :: *) :: * where - ResolveBuildableMethod "addChild" o = BuildableAddChildMethodInfo - ResolveBuildableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBuildableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBuildableMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveBuildableMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveBuildableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveBuildableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveBuildableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBuildableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBuildableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBuildableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBuildableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBuildableMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveBuildableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBuildableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBuildableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBuildableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBuildableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBuildableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBuildableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBuildableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBuildableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBuildableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBuildableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBuildableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveBuildableMethod "getName" o = BuildableGetNameMethodInfo - ResolveBuildableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBuildableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBuildableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveBuildableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBuildableMethod "setName" o = BuildableSetNameMethodInfo - ResolveBuildableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBuildableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBuildableMethod t Buildable, MethodInfo info Buildable p) => IsLabelProxy t (Buildable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBuildableMethod t Buildable, MethodInfo info Buildable p) => IsLabel t (Buildable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Buildable = BuildableAttributeList -type BuildableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Buildable = BuildableSignalList -type BuildableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_buildable_get_type" - c_gtk_buildable_get_type :: IO GType - -type instance ParentTypes Buildable = BuildableParentTypes -type BuildableParentTypes = '[GObject.Object] - -instance GObject Buildable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_buildable_get_type - - -class GObject o => BuildableK o -instance (GObject o, IsDescendantOf Buildable o) => BuildableK o - -toBuildable :: BuildableK o => o -> IO Buildable -toBuildable = unsafeCastTo Buildable - --- method Buildable::add_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_buildable_add_child" gtk_buildable_add_child :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - Ptr GObject.Object -> -- child : TInterface "GObject" "Object" - CString -> -- type : TBasicType TUTF8 - IO () - - -buildableAddChild :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -- _obj - -> b -- builder - -> c -- child - -> Maybe (T.Text) -- type_ - -> m () -- result -buildableAddChild _obj builder child type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - let child' = unsafeManagedPtrCastPtr child - maybeType_ <- case type_ of - Nothing -> return nullPtr - Just jType_ -> do - jType_' <- textToCString jType_ - return jType_' - gtk_buildable_add_child _obj' builder' child' maybeType_ - touchManagedPtr _obj - touchManagedPtr builder - touchManagedPtr child - freeMem maybeType_ - return () - -data BuildableAddChildMethodInfo -instance (signature ~ (b -> c -> Maybe (T.Text) -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableAddChildMethodInfo a signature where - overloadedMethod _ = buildableAddChild - --- method Buildable::construct_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", 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 : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "gtk_buildable_construct_child" gtk_buildable_construct_child :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - CString -> -- name : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -buildableConstructChild :: - (MonadIO m, BuildableK a, BuilderK b) => - a -- _obj - -> b -- builder - -> T.Text -- name - -> m GObject.Object -- result -buildableConstructChild _obj builder name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - name' <- textToCString name - result <- gtk_buildable_construct_child _obj' builder' name' - checkUnexpectedReturnNULL "gtk_buildable_construct_child" result - result' <- (wrapObject GObject.Object) result - touchManagedPtr _obj - touchManagedPtr builder - freeMem name' - return result' - -data BuildableConstructChildMethodInfo -instance (signature ~ (b -> T.Text -> m GObject.Object), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableConstructChildMethodInfo a signature where - overloadedMethod _ = buildableConstructChild - --- method Buildable::custom_finished --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, 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 "gtk_buildable_custom_finished" gtk_buildable_custom_finished :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - Ptr GObject.Object -> -- child : TInterface "GObject" "Object" - CString -> -- tagname : TBasicType TUTF8 - Ptr () -> -- data : TBasicType TPtr - IO () - - -buildableCustomFinished :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -- _obj - -> b -- builder - -> Maybe (c) -- child - -> T.Text -- tagname - -> Ptr () -- data_ - -> m () -- result -buildableCustomFinished _obj builder child tagname data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - maybeChild <- case child of - Nothing -> return nullPtr - Just jChild -> do - let jChild' = unsafeManagedPtrCastPtr jChild - return jChild' - tagname' <- textToCString tagname - gtk_buildable_custom_finished _obj' builder' maybeChild tagname' data_ - touchManagedPtr _obj - touchManagedPtr builder - whenJust child touchManagedPtr - freeMem tagname' - return () - -data BuildableCustomFinishedMethodInfo -instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomFinishedMethodInfo a signature where - overloadedMethod _ = buildableCustomFinished - --- method Buildable::custom_tag_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, 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 "gtk_buildable_custom_tag_end" gtk_buildable_custom_tag_end :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - Ptr GObject.Object -> -- child : TInterface "GObject" "Object" - CString -> -- tagname : TBasicType TUTF8 - Ptr () -> -- data : TBasicType TPtr - IO () - - -buildableCustomTagEnd :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -- _obj - -> b -- builder - -> Maybe (c) -- child - -> T.Text -- tagname - -> Ptr () -- data_ - -> m () -- result -buildableCustomTagEnd _obj builder child tagname data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - maybeChild <- case child of - Nothing -> return nullPtr - Just jChild -> do - let jChild' = unsafeManagedPtrCastPtr jChild - return jChild' - tagname' <- textToCString tagname - gtk_buildable_custom_tag_end _obj' builder' maybeChild tagname' data_ - touchManagedPtr _obj - touchManagedPtr builder - whenJust child touchManagedPtr - freeMem tagname' - return () - -data BuildableCustomTagEndMethodInfo -instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomTagEndMethodInfo a signature where - overloadedMethod _ = buildableCustomTagEnd - --- method Buildable::custom_tag_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, 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 "gtk_buildable_custom_tag_start" gtk_buildable_custom_tag_start :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - Ptr GObject.Object -> -- child : TInterface "GObject" "Object" - CString -> -- tagname : TBasicType TUTF8 - Ptr GLib.MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" - Ptr (Ptr ()) -> -- data : TBasicType TPtr - IO CInt - - -buildableCustomTagStart :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -- _obj - -> b -- builder - -> Maybe (c) -- child - -> T.Text -- tagname - -> m (Bool,GLib.MarkupParser,(Ptr ())) -- result -buildableCustomTagStart _obj builder child tagname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - maybeChild <- case child of - Nothing -> return nullPtr - Just jChild -> do - let jChild' = unsafeManagedPtrCastPtr jChild - return jChild' - tagname' <- textToCString tagname - parser <- callocBytes 40 :: IO (Ptr GLib.MarkupParser) - data_ <- allocMem :: IO (Ptr (Ptr ())) - result <- gtk_buildable_custom_tag_start _obj' builder' maybeChild tagname' parser data_ - let result' = (/= 0) result - parser' <- (wrapPtr GLib.MarkupParser) parser - data_' <- peek data_ - touchManagedPtr _obj - touchManagedPtr builder - whenJust child touchManagedPtr - freeMem tagname' - freeMem data_ - return (result', parser', data_') - -data BuildableCustomTagStartMethodInfo -instance (signature ~ (b -> Maybe (c) -> T.Text -> m (Bool,GLib.MarkupParser,(Ptr ()))), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomTagStartMethodInfo a signature where - overloadedMethod _ = buildableCustomTagStart - --- method Buildable::get_internal_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "childname", argType = TBasicType TUTF8, 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 "gtk_buildable_get_internal_child" gtk_buildable_get_internal_child :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - CString -> -- childname : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -buildableGetInternalChild :: - (MonadIO m, BuildableK a, BuilderK b) => - a -- _obj - -> b -- builder - -> T.Text -- childname - -> m GObject.Object -- result -buildableGetInternalChild _obj builder childname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - childname' <- textToCString childname - result <- gtk_buildable_get_internal_child _obj' builder' childname' - checkUnexpectedReturnNULL "gtk_buildable_get_internal_child" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - touchManagedPtr builder - freeMem childname' - return result' - -data BuildableGetInternalChildMethodInfo -instance (signature ~ (b -> T.Text -> m GObject.Object), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableGetInternalChildMethodInfo a signature where - overloadedMethod _ = buildableGetInternalChild - --- method Buildable::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", 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 "gtk_buildable_get_name" gtk_buildable_get_name :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - IO CString - - -buildableGetName :: - (MonadIO m, BuildableK a) => - a -- _obj - -> m T.Text -- result -buildableGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_buildable_get_name _obj' - checkUnexpectedReturnNULL "gtk_buildable_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data BuildableGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, BuildableK a) => MethodInfo BuildableGetNameMethodInfo a signature where - overloadedMethod _ = buildableGetName - --- method Buildable::parser_finished --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", 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 "gtk_buildable_parser_finished" gtk_buildable_parser_finished :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - IO () - - -buildableParserFinished :: - (MonadIO m, BuildableK a, BuilderK b) => - a -- _obj - -> b -- builder - -> m () -- result -buildableParserFinished _obj builder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - gtk_buildable_parser_finished _obj' builder' - touchManagedPtr _obj - touchManagedPtr builder - return () - -data BuildableParserFinishedMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableParserFinishedMethodInfo a signature where - overloadedMethod _ = buildableParserFinished - --- method Buildable::set_buildable_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", 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},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 "gtk_buildable_set_buildable_property" gtk_buildable_set_buildable_property :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - Ptr Builder -> -- builder : TInterface "Gtk" "Builder" - CString -> -- name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -buildableSetBuildableProperty :: - (MonadIO m, BuildableK a, BuilderK b) => - a -- _obj - -> b -- builder - -> T.Text -- name - -> GValue -- value - -> m () -- result -buildableSetBuildableProperty _obj builder name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - name' <- textToCString name - let value' = unsafeManagedPtrGetPtr value - gtk_buildable_set_buildable_property _obj' builder' name' value' - touchManagedPtr _obj - touchManagedPtr builder - touchManagedPtr value - freeMem name' - return () - -data BuildableSetBuildablePropertyMethodInfo -instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableSetBuildablePropertyMethodInfo a signature where - overloadedMethod _ = buildableSetBuildableProperty - --- method Buildable::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", 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 "gtk_buildable_set_name" gtk_buildable_set_name :: - Ptr Buildable -> -- _obj : TInterface "Gtk" "Buildable" - CString -> -- name : TBasicType TUTF8 - IO () - - -buildableSetName :: - (MonadIO m, BuildableK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -buildableSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_buildable_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data BuildableSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, BuildableK a) => MethodInfo BuildableSetNameMethodInfo a signature where - overloadedMethod _ = buildableSetName - - diff --git a/GI/Gtk/Interfaces/Buildable.hs-boot b/GI/Gtk/Interfaces/Buildable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Buildable.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gtk.Interfaces.Buildable 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 Buildable = Buildable (ForeignPtr Buildable) -instance GObject Buildable where -class GObject o => BuildableK o -instance (GObject o, IsDescendantOf Buildable o) => BuildableK o -data BuildableAddChildMethodInfo -data BuildableConstructChildMethodInfo -data BuildableCustomFinishedMethodInfo -data BuildableCustomTagEndMethodInfo -data BuildableCustomTagStartMethodInfo -data BuildableGetInternalChildMethodInfo -data BuildableGetNameMethodInfo -data BuildableParserFinishedMethodInfo -data BuildableSetBuildablePropertyMethodInfo -data BuildableSetNameMethodInfo diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs b/GI/Gtk/Interfaces/CellAccessibleParent.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs +++ /dev/null @@ -1,417 +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.Gtk.Interfaces.CellAccessibleParent - ( - --- * Exported types - CellAccessibleParent(..) , - noCellAccessibleParent , - CellAccessibleParentK , - - - -- * Methods --- ** cellAccessibleParentActivate - CellAccessibleParentActivateMethodInfo , - cellAccessibleParentActivate , - - --- ** cellAccessibleParentEdit - CellAccessibleParentEditMethodInfo , - cellAccessibleParentEdit , - - --- ** cellAccessibleParentExpandCollapse - CellAccessibleParentExpandCollapseMethodInfo, - cellAccessibleParentExpandCollapse , - - --- ** cellAccessibleParentGetCellArea - CellAccessibleParentGetCellAreaMethodInfo, - cellAccessibleParentGetCellArea , - - --- ** cellAccessibleParentGetCellExtents - CellAccessibleParentGetCellExtentsMethodInfo, - cellAccessibleParentGetCellExtents , - - --- ** cellAccessibleParentGetChildIndex - CellAccessibleParentGetChildIndexMethodInfo, - cellAccessibleParentGetChildIndex , - - --- ** cellAccessibleParentGetRendererState - CellAccessibleParentGetRendererStateMethodInfo, - cellAccessibleParentGetRendererState , - - --- ** cellAccessibleParentGrabFocus - CellAccessibleParentGrabFocusMethodInfo , - cellAccessibleParentGrabFocus , - - --- ** cellAccessibleParentUpdateRelationset - CellAccessibleParentUpdateRelationsetMethodInfo, - cellAccessibleParentUpdateRelationset , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.Gdk as Gdk - --- interface CellAccessibleParent - -newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent) -noCellAccessibleParent :: Maybe CellAccessibleParent -noCellAccessibleParent = Nothing - -type family ResolveCellAccessibleParentMethod (t :: Symbol) (o :: *) :: * where - ResolveCellAccessibleParentMethod "activate" o = CellAccessibleParentActivateMethodInfo - ResolveCellAccessibleParentMethod "edit" o = CellAccessibleParentEditMethodInfo - ResolveCellAccessibleParentMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo - ResolveCellAccessibleParentMethod "grabFocus" o = CellAccessibleParentGrabFocusMethodInfo - ResolveCellAccessibleParentMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo - ResolveCellAccessibleParentMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo - ResolveCellAccessibleParentMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo - ResolveCellAccessibleParentMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo - ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo - ResolveCellAccessibleParentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabelProxy t (CellAccessibleParent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabel t (CellAccessibleParent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList CellAccessibleParent = CellAccessibleParentAttributeList -type CellAccessibleParentAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList CellAccessibleParent = CellAccessibleParentSignalList -type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, *)]) - -class ForeignPtrNewtype a => CellAccessibleParentK a -instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o -type instance ParentTypes CellAccessibleParent = CellAccessibleParentParentTypes -type CellAccessibleParentParentTypes = '[] - --- method CellAccessibleParent::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO () - - -cellAccessibleParentActivate :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m () -- result -cellAccessibleParentActivate _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_cell_accessible_parent_activate _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellAccessibleParentActivateMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentActivateMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentActivate - --- method CellAccessibleParent::edit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO () - - -cellAccessibleParentEdit :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m () -- result -cellAccessibleParentEdit _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_cell_accessible_parent_edit _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellAccessibleParentEditMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentEditMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentEdit - --- method CellAccessibleParent::expand_collapse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO () - - -cellAccessibleParentExpandCollapse :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m () -- result -cellAccessibleParentExpandCollapse _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_cell_accessible_parent_expand_collapse _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellAccessibleParentExpandCollapseMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentExpandCollapse - --- method CellAccessibleParent::get_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface "Gdk" "Rectangle", 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 "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - Ptr Gdk.Rectangle -> -- cell_rect : TInterface "Gdk" "Rectangle" - IO () - - -cellAccessibleParentGetCellArea :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> Gdk.Rectangle -- cellRect - -> m () -- result -cellAccessibleParentGetCellArea _obj cell cellRect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let cellRect' = unsafeManagedPtrGetPtr cellRect - gtk_cell_accessible_parent_get_cell_area _obj' cell' cellRect' - touchManagedPtr _obj - touchManagedPtr cell - touchManagedPtr cellRect - return () - -data CellAccessibleParentGetCellAreaMethodInfo -instance (signature ~ (b -> Gdk.Rectangle -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellAreaMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentGetCellArea - --- method CellAccessibleParent::get_cell_extents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO () - - -cellAccessibleParentGetCellExtents :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> Atk.CoordType -- coordType - -> m () -- result -cellAccessibleParentGetCellExtents _obj cell x y width height coordType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let coordType' = (fromIntegral . fromEnum) coordType - gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coordType' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellAccessibleParentGetCellExtentsMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Atk.CoordType -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellExtentsMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentGetCellExtents - --- method CellAccessibleParent::get_child_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO Int32 - - -cellAccessibleParentGetChildIndex :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m Int32 -- result -cellAccessibleParentGetChildIndex _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - result <- gtk_cell_accessible_parent_get_child_index _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return result - -data CellAccessibleParentGetChildIndexMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentGetChildIndex - --- method CellAccessibleParent::get_renderer_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererState") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_accessible_parent_get_renderer_state" gtk_cell_accessible_parent_get_renderer_state :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO CUInt - - -cellAccessibleParentGetRendererState :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m [CellRendererState] -- result -cellAccessibleParentGetRendererState _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - result <- gtk_cell_accessible_parent_get_renderer_state _obj' cell' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr cell - return result' - -data CellAccessibleParentGetRendererStateMethodInfo -instance (signature ~ (b -> m [CellRendererState]), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetRendererStateMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentGetRendererState - --- method CellAccessibleParent::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - IO CInt - - -cellAccessibleParentGrabFocus :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -- _obj - -> b -- cell - -> m Bool -- result -cellAccessibleParentGrabFocus _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - result <- gtk_cell_accessible_parent_grab_focus _obj' cell' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr cell - return result' - -data CellAccessibleParentGrabFocusMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentGrabFocus - --- method CellAccessibleParent::update_relationset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface "Atk" "RelationSet", 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 "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset :: - Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" - Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - Ptr Atk.RelationSet -> -- relationset : TInterface "Atk" "RelationSet" - IO () - - -cellAccessibleParentUpdateRelationset :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) => - a -- _obj - -> b -- cell - -> c -- relationset - -> m () -- result -cellAccessibleParentUpdateRelationset _obj cell relationset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let relationset' = unsafeManagedPtrCastPtr relationset - gtk_cell_accessible_parent_update_relationset _obj' cell' relationset' - touchManagedPtr _obj - touchManagedPtr cell - touchManagedPtr relationset - return () - -data CellAccessibleParentUpdateRelationsetMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) => MethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a signature where - overloadedMethod _ = cellAccessibleParentUpdateRelationset - - diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Interfaces.CellAccessibleParent 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 CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent) -class ForeignPtrNewtype a => CellAccessibleParentK a -instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o -data CellAccessibleParentActivateMethodInfo -data CellAccessibleParentEditMethodInfo -data CellAccessibleParentExpandCollapseMethodInfo -data CellAccessibleParentGetCellAreaMethodInfo -data CellAccessibleParentGetCellExtentsMethodInfo -data CellAccessibleParentGetChildIndexMethodInfo -data CellAccessibleParentGetRendererStateMethodInfo -data CellAccessibleParentGrabFocusMethodInfo -data CellAccessibleParentUpdateRelationsetMethodInfo diff --git a/GI/Gtk/Interfaces/CellEditable.hs b/GI/Gtk/Interfaces/CellEditable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellEditable.hs +++ /dev/null @@ -1,621 +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.Gtk.Interfaces.CellEditable - ( - --- * Exported types - CellEditable(..) , - noCellEditable , - CellEditableK , - toCellEditable , - - - -- * Methods --- ** cellEditableEditingDone - CellEditableEditingDoneMethodInfo , - cellEditableEditingDone , - - --- ** cellEditableRemoveWidget - CellEditableRemoveWidgetMethodInfo , - cellEditableRemoveWidget , - - --- ** cellEditableStartEditing - CellEditableStartEditingMethodInfo , - cellEditableStartEditing , - - - - - -- * Properties --- ** EditingCanceled - CellEditableEditingCanceledPropertyInfo , - cellEditableEditingCanceled , - constructCellEditableEditingCanceled , - getCellEditableEditingCanceled , - setCellEditableEditingCanceled , - - - - - -- * Signals --- ** EditingDone - CellEditableEditingDoneCallback , - CellEditableEditingDoneCallbackC , - CellEditableEditingDoneSignalInfo , - afterCellEditableEditingDone , - cellEditableEditingDoneCallbackWrapper , - cellEditableEditingDoneClosure , - mkCellEditableEditingDoneCallback , - noCellEditableEditingDoneCallback , - onCellEditableEditingDone , - - --- ** RemoveWidget - CellEditableRemoveWidgetCallback , - CellEditableRemoveWidgetCallbackC , - CellEditableRemoveWidgetSignalInfo , - afterCellEditableRemoveWidget , - cellEditableRemoveWidgetCallbackWrapper , - cellEditableRemoveWidgetClosure , - mkCellEditableRemoveWidgetCallback , - noCellEditableRemoveWidgetCallback , - onCellEditableRemoveWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - --- interface CellEditable - -newtype CellEditable = CellEditable (ForeignPtr CellEditable) -noCellEditable :: Maybe CellEditable -noCellEditable = Nothing - -type family ResolveCellEditableMethod (t :: Symbol) (o :: *) :: * where - ResolveCellEditableMethod "activate" o = WidgetActivateMethodInfo - ResolveCellEditableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveCellEditableMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCellEditableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveCellEditableMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveCellEditableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveCellEditableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveCellEditableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellEditableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellEditableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveCellEditableMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveCellEditableMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveCellEditableMethod "classPath" o = WidgetClassPathMethodInfo - ResolveCellEditableMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveCellEditableMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCellEditableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveCellEditableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveCellEditableMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCellEditableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCellEditableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCellEditableMethod "destroy" o = WidgetDestroyMethodInfo - ResolveCellEditableMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveCellEditableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveCellEditableMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveCellEditableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveCellEditableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveCellEditableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveCellEditableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveCellEditableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveCellEditableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveCellEditableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveCellEditableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveCellEditableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveCellEditableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveCellEditableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveCellEditableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveCellEditableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveCellEditableMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveCellEditableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveCellEditableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveCellEditableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveCellEditableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveCellEditableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveCellEditableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveCellEditableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveCellEditableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveCellEditableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveCellEditableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveCellEditableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveCellEditableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveCellEditableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveCellEditableMethod "draw" o = WidgetDrawMethodInfo - ResolveCellEditableMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveCellEditableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveCellEditableMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveCellEditableMethod "event" o = WidgetEventMethodInfo - ResolveCellEditableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellEditableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveCellEditableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellEditableMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveCellEditableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveCellEditableMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveCellEditableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveCellEditableMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveCellEditableMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveCellEditableMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveCellEditableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveCellEditableMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveCellEditableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveCellEditableMethod "hide" o = WidgetHideMethodInfo - ResolveCellEditableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveCellEditableMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveCellEditableMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveCellEditableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveCellEditableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveCellEditableMethod "intersect" o = WidgetIntersectMethodInfo - ResolveCellEditableMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveCellEditableMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveCellEditableMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveCellEditableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellEditableMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveCellEditableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveCellEditableMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveCellEditableMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveCellEditableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveCellEditableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveCellEditableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveCellEditableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveCellEditableMethod "map" o = WidgetMapMethodInfo - ResolveCellEditableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveCellEditableMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveCellEditableMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveCellEditableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveCellEditableMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveCellEditableMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveCellEditableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveCellEditableMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveCellEditableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellEditableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellEditableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveCellEditableMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveCellEditableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveCellEditableMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveCellEditableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveCellEditableMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCellEditableMethod "path" o = WidgetPathMethodInfo - ResolveCellEditableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveCellEditableMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveCellEditableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveCellEditableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveCellEditableMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveCellEditableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveCellEditableMethod "realize" o = WidgetRealizeMethodInfo - ResolveCellEditableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellEditableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellEditableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveCellEditableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveCellEditableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveCellEditableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveCellEditableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveCellEditableMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveCellEditableMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveCellEditableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveCellEditableMethod "reparent" o = WidgetReparentMethodInfo - ResolveCellEditableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellEditableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellEditableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveCellEditableMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveCellEditableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellEditableMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveCellEditableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveCellEditableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveCellEditableMethod "show" o = WidgetShowMethodInfo - ResolveCellEditableMethod "showAll" o = WidgetShowAllMethodInfo - ResolveCellEditableMethod "showNow" o = WidgetShowNowMethodInfo - ResolveCellEditableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveCellEditableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveCellEditableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveCellEditableMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveCellEditableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellEditableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellEditableMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveCellEditableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveCellEditableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveCellEditableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellEditableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveCellEditableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveCellEditableMethod "unmap" o = WidgetUnmapMethodInfo - ResolveCellEditableMethod "unparent" o = WidgetUnparentMethodInfo - ResolveCellEditableMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveCellEditableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellEditableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveCellEditableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveCellEditableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellEditableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveCellEditableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveCellEditableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveCellEditableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveCellEditableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveCellEditableMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveCellEditableMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveCellEditableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveCellEditableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveCellEditableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveCellEditableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveCellEditableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveCellEditableMethod "getClip" o = WidgetGetClipMethodInfo - ResolveCellEditableMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveCellEditableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveCellEditableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellEditableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveCellEditableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveCellEditableMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveCellEditableMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveCellEditableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveCellEditableMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveCellEditableMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveCellEditableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveCellEditableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveCellEditableMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveCellEditableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveCellEditableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveCellEditableMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveCellEditableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveCellEditableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCellEditableMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveCellEditableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveCellEditableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveCellEditableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveCellEditableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveCellEditableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveCellEditableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveCellEditableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveCellEditableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveCellEditableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveCellEditableMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveCellEditableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveCellEditableMethod "getParent" o = WidgetGetParentMethodInfo - ResolveCellEditableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveCellEditableMethod "getPath" o = WidgetGetPathMethodInfo - ResolveCellEditableMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveCellEditableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveCellEditableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveCellEditableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveCellEditableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveCellEditableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveCellEditableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveCellEditableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellEditableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellEditableMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveCellEditableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveCellEditableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveCellEditableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveCellEditableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveCellEditableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveCellEditableMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveCellEditableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveCellEditableMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveCellEditableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveCellEditableMethod "getState" o = WidgetGetStateMethodInfo - ResolveCellEditableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveCellEditableMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveCellEditableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveCellEditableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveCellEditableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveCellEditableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveCellEditableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveCellEditableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveCellEditableMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveCellEditableMethod "getValign" o = WidgetGetValignMethodInfo - ResolveCellEditableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveCellEditableMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveCellEditableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveCellEditableMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveCellEditableMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveCellEditableMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveCellEditableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveCellEditableMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveCellEditableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveCellEditableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCellEditableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveCellEditableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveCellEditableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveCellEditableMethod "setClip" o = WidgetSetClipMethodInfo - ResolveCellEditableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveCellEditableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellEditableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveCellEditableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveCellEditableMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveCellEditableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveCellEditableMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveCellEditableMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveCellEditableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveCellEditableMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveCellEditableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveCellEditableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveCellEditableMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveCellEditableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveCellEditableMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveCellEditableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveCellEditableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveCellEditableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveCellEditableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveCellEditableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveCellEditableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveCellEditableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveCellEditableMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveCellEditableMethod "setParent" o = WidgetSetParentMethodInfo - ResolveCellEditableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveCellEditableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellEditableMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveCellEditableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveCellEditableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveCellEditableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveCellEditableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveCellEditableMethod "setState" o = WidgetSetStateMethodInfo - ResolveCellEditableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveCellEditableMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveCellEditableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveCellEditableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveCellEditableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveCellEditableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveCellEditableMethod "setValign" o = WidgetSetValignMethodInfo - ResolveCellEditableMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveCellEditableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveCellEditableMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveCellEditableMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveCellEditableMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveCellEditableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellEditableMethod t CellEditable, MethodInfo info CellEditable p) => IsLabelProxy t (CellEditable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellEditableMethod t CellEditable, MethodInfo info CellEditable p) => IsLabel t (CellEditable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellEditable::editing-done -type CellEditableEditingDoneCallback = - IO () - -noCellEditableEditingDoneCallback :: Maybe CellEditableEditingDoneCallback -noCellEditableEditingDoneCallback = Nothing - -type CellEditableEditingDoneCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellEditableEditingDoneCallback :: CellEditableEditingDoneCallbackC -> IO (FunPtr CellEditableEditingDoneCallbackC) - -cellEditableEditingDoneClosure :: CellEditableEditingDoneCallback -> IO Closure -cellEditableEditingDoneClosure cb = newCClosure =<< mkCellEditableEditingDoneCallback wrapped - where wrapped = cellEditableEditingDoneCallbackWrapper cb - -cellEditableEditingDoneCallbackWrapper :: - CellEditableEditingDoneCallback -> - Ptr () -> - Ptr () -> - IO () -cellEditableEditingDoneCallbackWrapper _cb _ _ = do - _cb - -onCellEditableEditingDone :: (GObject a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId -onCellEditableEditingDone obj cb = liftIO $ connectCellEditableEditingDone obj cb SignalConnectBefore -afterCellEditableEditingDone :: (GObject a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId -afterCellEditableEditingDone obj cb = connectCellEditableEditingDone obj cb SignalConnectAfter - -connectCellEditableEditingDone :: (GObject a, MonadIO m) => - a -> CellEditableEditingDoneCallback -> SignalConnectMode -> m SignalHandlerId -connectCellEditableEditingDone obj cb after = liftIO $ do - cb' <- mkCellEditableEditingDoneCallback (cellEditableEditingDoneCallbackWrapper cb) - connectSignalFunPtr obj "editing-done" cb' after - --- signal CellEditable::remove-widget -type CellEditableRemoveWidgetCallback = - IO () - -noCellEditableRemoveWidgetCallback :: Maybe CellEditableRemoveWidgetCallback -noCellEditableRemoveWidgetCallback = Nothing - -type CellEditableRemoveWidgetCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellEditableRemoveWidgetCallback :: CellEditableRemoveWidgetCallbackC -> IO (FunPtr CellEditableRemoveWidgetCallbackC) - -cellEditableRemoveWidgetClosure :: CellEditableRemoveWidgetCallback -> IO Closure -cellEditableRemoveWidgetClosure cb = newCClosure =<< mkCellEditableRemoveWidgetCallback wrapped - where wrapped = cellEditableRemoveWidgetCallbackWrapper cb - -cellEditableRemoveWidgetCallbackWrapper :: - CellEditableRemoveWidgetCallback -> - Ptr () -> - Ptr () -> - IO () -cellEditableRemoveWidgetCallbackWrapper _cb _ _ = do - _cb - -onCellEditableRemoveWidget :: (GObject a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId -onCellEditableRemoveWidget obj cb = liftIO $ connectCellEditableRemoveWidget obj cb SignalConnectBefore -afterCellEditableRemoveWidget :: (GObject a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId -afterCellEditableRemoveWidget obj cb = connectCellEditableRemoveWidget obj cb SignalConnectAfter - -connectCellEditableRemoveWidget :: (GObject a, MonadIO m) => - a -> CellEditableRemoveWidgetCallback -> SignalConnectMode -> m SignalHandlerId -connectCellEditableRemoveWidget obj cb after = liftIO $ do - cb' <- mkCellEditableRemoveWidgetCallback (cellEditableRemoveWidgetCallbackWrapper cb) - connectSignalFunPtr obj "remove-widget" cb' after - --- VVV Prop "editing-canceled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellEditableEditingCanceled :: (MonadIO m, CellEditableK o) => o -> m Bool -getCellEditableEditingCanceled obj = liftIO $ getObjectPropertyBool obj "editing-canceled" - -setCellEditableEditingCanceled :: (MonadIO m, CellEditableK o) => o -> Bool -> m () -setCellEditableEditingCanceled obj val = liftIO $ setObjectPropertyBool obj "editing-canceled" val - -constructCellEditableEditingCanceled :: Bool -> IO ([Char], GValue) -constructCellEditableEditingCanceled val = constructObjectPropertyBool "editing-canceled" val - -data CellEditableEditingCanceledPropertyInfo -instance AttrInfo CellEditableEditingCanceledPropertyInfo where - type AttrAllowedOps CellEditableEditingCanceledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellEditableEditingCanceledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellEditableEditingCanceledPropertyInfo = CellEditableK - type AttrGetType CellEditableEditingCanceledPropertyInfo = Bool - type AttrLabel CellEditableEditingCanceledPropertyInfo = "editing-canceled" - attrGet _ = getCellEditableEditingCanceled - attrSet _ = setCellEditableEditingCanceled - attrConstruct _ = constructCellEditableEditingCanceled - attrClear _ = undefined - -type instance AttributeList CellEditable = CellEditableAttributeList -type CellEditableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -cellEditableEditingCanceled :: AttrLabelProxy "editingCanceled" -cellEditableEditingCanceled = AttrLabelProxy - -data CellEditableEditingDoneSignalInfo -instance SignalInfo CellEditableEditingDoneSignalInfo where - type HaskellCallbackType CellEditableEditingDoneSignalInfo = CellEditableEditingDoneCallback - connectSignal _ = connectCellEditableEditingDone - -data CellEditableRemoveWidgetSignalInfo -instance SignalInfo CellEditableRemoveWidgetSignalInfo where - type HaskellCallbackType CellEditableRemoveWidgetSignalInfo = CellEditableRemoveWidgetCallback - connectSignal _ = connectCellEditableRemoveWidget - -type instance SignalList CellEditable = CellEditableSignalList -type CellEditableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_cell_editable_get_type" - c_gtk_cell_editable_get_type :: IO GType - -type instance ParentTypes CellEditable = CellEditableParentTypes -type CellEditableParentTypes = '[Widget, GObject.Object] - -instance GObject CellEditable where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_editable_get_type - - -class GObject o => CellEditableK o -instance (GObject o, IsDescendantOf CellEditable o) => CellEditableK o - -toCellEditable :: CellEditableK o => o -> IO CellEditable -toCellEditable = unsafeCastTo CellEditable - --- method CellEditable::editing_done --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", 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 "gtk_cell_editable_editing_done" gtk_cell_editable_editing_done :: - Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable" - IO () - - -cellEditableEditingDone :: - (MonadIO m, CellEditableK a) => - a -- _obj - -> m () -- result -cellEditableEditingDone _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_editable_editing_done _obj' - touchManagedPtr _obj - return () - -data CellEditableEditingDoneMethodInfo -instance (signature ~ (m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableEditingDoneMethodInfo a signature where - overloadedMethod _ = cellEditableEditingDone - --- method CellEditable::remove_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", 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 "gtk_cell_editable_remove_widget" gtk_cell_editable_remove_widget :: - Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable" - IO () - - -cellEditableRemoveWidget :: - (MonadIO m, CellEditableK a) => - a -- _obj - -> m () -- result -cellEditableRemoveWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_editable_remove_widget _obj' - touchManagedPtr _obj - return () - -data CellEditableRemoveWidgetMethodInfo -instance (signature ~ (m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableRemoveWidgetMethodInfo a signature where - overloadedMethod _ = cellEditableRemoveWidget - --- method CellEditable::start_editing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_editable_start_editing" gtk_cell_editable_start_editing :: - Ptr CellEditable -> -- _obj : TInterface "Gtk" "CellEditable" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO () - - -cellEditableStartEditing :: - (MonadIO m, CellEditableK a) => - a -- _obj - -> Maybe (Gdk.Event) -- event - -> m () -- result -cellEditableStartEditing _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - gtk_cell_editable_start_editing _obj' maybeEvent - touchManagedPtr _obj - whenJust event touchManagedPtr - return () - -data CellEditableStartEditingMethodInfo -instance (signature ~ (Maybe (Gdk.Event) -> m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableStartEditingMethodInfo a signature where - overloadedMethod _ = cellEditableStartEditing - - diff --git a/GI/Gtk/Interfaces/CellEditable.hs-boot b/GI/Gtk/Interfaces/CellEditable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellEditable.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Interfaces.CellEditable 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 CellEditable = CellEditable (ForeignPtr CellEditable) -data CellEditableEditingCanceledPropertyInfo -data CellEditableEditingDoneSignalInfo -data CellEditableRemoveWidgetSignalInfo -instance GObject CellEditable where -class GObject o => CellEditableK o -instance (GObject o, IsDescendantOf CellEditable o) => CellEditableK o -data CellEditableEditingDoneMethodInfo -data CellEditableRemoveWidgetMethodInfo -data CellEditableStartEditingMethodInfo diff --git a/GI/Gtk/Interfaces/CellLayout.hs b/GI/Gtk/Interfaces/CellLayout.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellLayout.hs +++ /dev/null @@ -1,450 +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.Gtk.Interfaces.CellLayout - ( - --- * Exported types - CellLayout(..) , - noCellLayout , - CellLayoutK , - toCellLayout , - - - -- * Methods --- ** cellLayoutAddAttribute - CellLayoutAddAttributeMethodInfo , - cellLayoutAddAttribute , - - --- ** cellLayoutClear - CellLayoutClearMethodInfo , - cellLayoutClear , - - --- ** cellLayoutClearAttributes - CellLayoutClearAttributesMethodInfo , - cellLayoutClearAttributes , - - --- ** cellLayoutGetArea - CellLayoutGetAreaMethodInfo , - cellLayoutGetArea , - - --- ** cellLayoutGetCells - CellLayoutGetCellsMethodInfo , - cellLayoutGetCells , - - --- ** cellLayoutPackEnd - CellLayoutPackEndMethodInfo , - cellLayoutPackEnd , - - --- ** cellLayoutPackStart - CellLayoutPackStartMethodInfo , - cellLayoutPackStart , - - --- ** cellLayoutReorder - CellLayoutReorderMethodInfo , - cellLayoutReorder , - - --- ** cellLayoutSetCellDataFunc - CellLayoutSetCellDataFuncMethodInfo , - cellLayoutSetCellDataFunc , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface CellLayout - -newtype CellLayout = CellLayout (ForeignPtr CellLayout) -noCellLayout :: Maybe CellLayout -noCellLayout = Nothing - -type family ResolveCellLayoutMethod (t :: Symbol) (o :: *) :: * where - ResolveCellLayoutMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveCellLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellLayoutMethod "clear" o = CellLayoutClearMethodInfo - ResolveCellLayoutMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveCellLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellLayoutMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveCellLayoutMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveCellLayoutMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellLayoutMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveCellLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellLayoutMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveCellLayoutMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveCellLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellLayoutMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveCellLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellLayoutMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellLayoutMethod t CellLayout, MethodInfo info CellLayout p) => IsLabelProxy t (CellLayout -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellLayoutMethod t CellLayout, MethodInfo info CellLayout p) => IsLabel t (CellLayout -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList CellLayout = CellLayoutAttributeList -type CellLayoutAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList CellLayout = CellLayoutSignalList -type CellLayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_cell_layout_get_type" - c_gtk_cell_layout_get_type :: IO GType - -type instance ParentTypes CellLayout = CellLayoutParentTypes -type CellLayoutParentTypes = '[GObject.Object] - -instance GObject CellLayout where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_cell_layout_get_type - - -class GObject o => CellLayoutK o -instance (GObject o, IsDescendantOf CellLayout o) => CellLayoutK o - -toCellLayout :: CellLayoutK o => o -> IO CellLayout -toCellLayout = unsafeCastTo CellLayout - --- method CellLayout::add_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_layout_add_attribute" gtk_cell_layout_add_attribute :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt - IO () - - -cellLayoutAddAttribute :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> T.Text -- attribute - -> Int32 -- column - -> m () -- result -cellLayoutAddAttribute _obj cell attribute column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - attribute' <- textToCString attribute - gtk_cell_layout_add_attribute _obj' cell' attribute' column - touchManagedPtr _obj - touchManagedPtr cell - freeMem attribute' - return () - -data CellLayoutAddAttributeMethodInfo -instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutAddAttributeMethodInfo a signature where - overloadedMethod _ = cellLayoutAddAttribute - --- method CellLayout::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", 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 "gtk_cell_layout_clear" gtk_cell_layout_clear :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - IO () - - -cellLayoutClear :: - (MonadIO m, CellLayoutK a) => - a -- _obj - -> m () -- result -cellLayoutClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_layout_clear _obj' - touchManagedPtr _obj - return () - -data CellLayoutClearMethodInfo -instance (signature ~ (m ()), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutClearMethodInfo a signature where - overloadedMethod _ = cellLayoutClear - --- method CellLayout::clear_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_layout_clear_attributes" gtk_cell_layout_clear_attributes :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -cellLayoutClearAttributes :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> m () -- result -cellLayoutClearAttributes _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_cell_layout_clear_attributes _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellLayoutClearAttributesMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutClearAttributesMethodInfo a signature where - overloadedMethod _ = cellLayoutClearAttributes - --- method CellLayout::get_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellArea") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_layout_get_area" gtk_cell_layout_get_area :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - IO (Ptr CellArea) - - -cellLayoutGetArea :: - (MonadIO m, CellLayoutK a) => - a -- _obj - -> m (Maybe CellArea) -- result -cellLayoutGetArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_layout_get_area _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject CellArea) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data CellLayoutGetAreaMethodInfo -instance (signature ~ (m (Maybe CellArea)), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where - overloadedMethod _ = cellLayoutGetArea - --- method CellLayout::get_cells --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_layout_get_cells" gtk_cell_layout_get_cells :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - IO (Ptr (GList (Ptr CellRenderer))) - - -cellLayoutGetCells :: - (MonadIO m, CellLayoutK a) => - a -- _obj - -> m [CellRenderer] -- result -cellLayoutGetCells _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_layout_get_cells _obj' - result' <- unpackGList result - result'' <- mapM (newObject CellRenderer) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data CellLayoutGetCellsMethodInfo -instance (signature ~ (m [CellRenderer]), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetCellsMethodInfo a signature where - overloadedMethod _ = cellLayoutGetCells - --- method CellLayout::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_cell_layout_pack_end" gtk_cell_layout_pack_end :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - IO () - - -cellLayoutPackEnd :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Bool -- expand - -> m () -- result -cellLayoutPackEnd _obj cell expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let expand' = (fromIntegral . fromEnum) expand - gtk_cell_layout_pack_end _obj' cell' expand' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellLayoutPackEndMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutPackEndMethodInfo a signature where - overloadedMethod _ = cellLayoutPackEnd - --- method CellLayout::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_cell_layout_pack_start" gtk_cell_layout_pack_start :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - IO () - - -cellLayoutPackStart :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Bool -- expand - -> m () -- result -cellLayoutPackStart _obj cell expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let expand' = (fromIntegral . fromEnum) expand - gtk_cell_layout_pack_start _obj' cell' expand' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellLayoutPackStartMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutPackStartMethodInfo a signature where - overloadedMethod _ = cellLayoutPackStart - --- method CellLayout::reorder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_layout_reorder" gtk_cell_layout_reorder :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - Int32 -> -- position : TBasicType TInt - IO () - - -cellLayoutReorder :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Int32 -- position - -> m () -- result -cellLayoutReorder _obj cell position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_cell_layout_reorder _obj' cell' position - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellLayoutReorderMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutReorderMethodInfo a signature where - overloadedMethod _ = cellLayoutReorder - --- method CellLayout::set_cell_data_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_layout_set_cell_data_func" gtk_cell_layout_set_cell_data_func :: - Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - FunPtr CellLayoutDataFuncC -> -- func : TInterface "Gtk" "CellLayoutDataFunc" - Ptr () -> -- func_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -cellLayoutSetCellDataFunc :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Maybe (CellLayoutDataFunc) -- func - -> m () -- result -cellLayoutSetCellDataFunc _obj cell func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkCellLayoutDataFunc (cellLayoutDataFuncWrapper Nothing jFunc) - return jFunc' - let funcData = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_cell_layout_set_cell_data_func _obj' cell' maybeFunc funcData destroy - touchManagedPtr _obj - touchManagedPtr cell - return () - -data CellLayoutSetCellDataFuncMethodInfo -instance (signature ~ (b -> Maybe (CellLayoutDataFunc) -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutSetCellDataFuncMethodInfo a signature where - overloadedMethod _ = cellLayoutSetCellDataFunc - - diff --git a/GI/Gtk/Interfaces/CellLayout.hs-boot b/GI/Gtk/Interfaces/CellLayout.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/CellLayout.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Interfaces.CellLayout 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 CellLayout = CellLayout (ForeignPtr CellLayout) -instance GObject CellLayout where -class GObject o => CellLayoutK o -instance (GObject o, IsDescendantOf CellLayout o) => CellLayoutK o -data CellLayoutAddAttributeMethodInfo -data CellLayoutClearMethodInfo -data CellLayoutClearAttributesMethodInfo -data CellLayoutGetAreaMethodInfo -data CellLayoutGetCellsMethodInfo -data CellLayoutPackEndMethodInfo -data CellLayoutPackStartMethodInfo -data CellLayoutReorderMethodInfo -data CellLayoutSetCellDataFuncMethodInfo diff --git a/GI/Gtk/Interfaces/ColorChooser.hs b/GI/Gtk/Interfaces/ColorChooser.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/ColorChooser.hs +++ /dev/null @@ -1,432 +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.Gtk.Interfaces.ColorChooser - ( - --- * Exported types - ColorChooser(..) , - noColorChooser , - ColorChooserK , - toColorChooser , - - - -- * Methods --- ** colorChooserAddPalette - ColorChooserAddPaletteMethodInfo , - colorChooserAddPalette , - - --- ** colorChooserGetRgba - ColorChooserGetRgbaMethodInfo , - colorChooserGetRgba , - - --- ** colorChooserGetUseAlpha - ColorChooserGetUseAlphaMethodInfo , - colorChooserGetUseAlpha , - - --- ** colorChooserSetRgba - ColorChooserSetRgbaMethodInfo , - colorChooserSetRgba , - - --- ** colorChooserSetUseAlpha - ColorChooserSetUseAlphaMethodInfo , - colorChooserSetUseAlpha , - - - - - -- * Properties --- ** Rgba - ColorChooserRgbaPropertyInfo , - colorChooserRgba , - constructColorChooserRgba , - getColorChooserRgba , - setColorChooserRgba , - - --- ** UseAlpha - ColorChooserUseAlphaPropertyInfo , - colorChooserUseAlpha , - constructColorChooserUseAlpha , - getColorChooserUseAlpha , - setColorChooserUseAlpha , - - - - - -- * Signals --- ** ColorActivated - ColorChooserColorActivatedCallback , - ColorChooserColorActivatedCallbackC , - ColorChooserColorActivatedSignalInfo , - afterColorChooserColorActivated , - colorChooserColorActivatedCallbackWrapper, - colorChooserColorActivatedClosure , - mkColorChooserColorActivatedCallback , - noColorChooserColorActivatedCallback , - onColorChooserColorActivated , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - --- interface ColorChooser - -newtype ColorChooser = ColorChooser (ForeignPtr ColorChooser) -noColorChooser :: Maybe ColorChooser -noColorChooser = Nothing - -type family ResolveColorChooserMethod (t :: Symbol) (o :: *) :: * where - ResolveColorChooserMethod "addPalette" o = ColorChooserAddPaletteMethodInfo - ResolveColorChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorChooserMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorChooserMethod "getRgba" o = ColorChooserGetRgbaMethodInfo - ResolveColorChooserMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo - ResolveColorChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorChooserMethod "setRgba" o = ColorChooserSetRgbaMethodInfo - ResolveColorChooserMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo - ResolveColorChooserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorChooserMethod t ColorChooser, MethodInfo info ColorChooser p) => IsLabelProxy t (ColorChooser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorChooserMethod t ColorChooser, MethodInfo info ColorChooser p) => IsLabel t (ColorChooser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ColorChooser::color-activated -type ColorChooserColorActivatedCallback = - Gdk.RGBA -> - IO () - -noColorChooserColorActivatedCallback :: Maybe ColorChooserColorActivatedCallback -noColorChooserColorActivatedCallback = Nothing - -type ColorChooserColorActivatedCallbackC = - Ptr () -> -- object - Ptr Gdk.RGBA -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkColorChooserColorActivatedCallback :: ColorChooserColorActivatedCallbackC -> IO (FunPtr ColorChooserColorActivatedCallbackC) - -colorChooserColorActivatedClosure :: ColorChooserColorActivatedCallback -> IO Closure -colorChooserColorActivatedClosure cb = newCClosure =<< mkColorChooserColorActivatedCallback wrapped - where wrapped = colorChooserColorActivatedCallbackWrapper cb - -colorChooserColorActivatedCallbackWrapper :: - ColorChooserColorActivatedCallback -> - Ptr () -> - Ptr Gdk.RGBA -> - Ptr () -> - IO () -colorChooserColorActivatedCallbackWrapper _cb _ color _ = do - color' <- (newBoxed Gdk.RGBA) color - _cb color' - -onColorChooserColorActivated :: (GObject a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId -onColorChooserColorActivated obj cb = liftIO $ connectColorChooserColorActivated obj cb SignalConnectBefore -afterColorChooserColorActivated :: (GObject a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId -afterColorChooserColorActivated obj cb = connectColorChooserColorActivated obj cb SignalConnectAfter - -connectColorChooserColorActivated :: (GObject a, MonadIO m) => - a -> ColorChooserColorActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectColorChooserColorActivated obj cb after = liftIO $ do - cb' <- mkColorChooserColorActivatedCallback (colorChooserColorActivatedCallbackWrapper cb) - connectSignalFunPtr obj "color-activated" cb' after - --- VVV Prop "rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m (Maybe Gdk.RGBA) -getColorChooserRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA - -setColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> Gdk.RGBA -> m () -setColorChooserRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) - -constructColorChooserRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" (Just val) - -data ColorChooserRgbaPropertyInfo -instance AttrInfo ColorChooserRgbaPropertyInfo where - type AttrAllowedOps ColorChooserRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorChooserRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint ColorChooserRgbaPropertyInfo = ColorChooserK - type AttrGetType ColorChooserRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel ColorChooserRgbaPropertyInfo = "rgba" - attrGet _ = getColorChooserRgba - attrSet _ = setColorChooserRgba - attrConstruct _ = constructColorChooserRgba - attrClear _ = undefined - --- VVV Prop "use-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getColorChooserUseAlpha :: (MonadIO m, ColorChooserK o) => o -> m Bool -getColorChooserUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha" - -setColorChooserUseAlpha :: (MonadIO m, ColorChooserK o) => o -> Bool -> m () -setColorChooserUseAlpha obj val = liftIO $ setObjectPropertyBool obj "use-alpha" val - -constructColorChooserUseAlpha :: Bool -> IO ([Char], GValue) -constructColorChooserUseAlpha val = constructObjectPropertyBool "use-alpha" val - -data ColorChooserUseAlphaPropertyInfo -instance AttrInfo ColorChooserUseAlphaPropertyInfo where - type AttrAllowedOps ColorChooserUseAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorChooserUseAlphaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorChooserUseAlphaPropertyInfo = ColorChooserK - type AttrGetType ColorChooserUseAlphaPropertyInfo = Bool - type AttrLabel ColorChooserUseAlphaPropertyInfo = "use-alpha" - attrGet _ = getColorChooserUseAlpha - attrSet _ = setColorChooserUseAlpha - attrConstruct _ = constructColorChooserUseAlpha - attrClear _ = undefined - -type instance AttributeList ColorChooser = ColorChooserAttributeList -type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) - -colorChooserRgba :: AttrLabelProxy "rgba" -colorChooserRgba = AttrLabelProxy - -colorChooserUseAlpha :: AttrLabelProxy "useAlpha" -colorChooserUseAlpha = AttrLabelProxy - -data ColorChooserColorActivatedSignalInfo -instance SignalInfo ColorChooserColorActivatedSignalInfo where - type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback - connectSignal _ = connectColorChooserColorActivated - -type instance SignalList ColorChooser = ColorChooserSignalList -type ColorChooserSignalList = ('[ '("colorActivated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_color_chooser_get_type" - c_gtk_color_chooser_get_type :: IO GType - -type instance ParentTypes ColorChooser = ColorChooserParentTypes -type ColorChooserParentTypes = '[GObject.Object] - -instance GObject ColorChooser where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_color_chooser_get_type - - -class GObject o => ColorChooserK o -instance (GObject o, IsDescendantOf ColorChooser o) => ColorChooserK o - -toColorChooser :: ColorChooserK o => o -> IO ColorChooser -toColorChooser = unsafeCastTo ColorChooser - --- method ColorChooser::add_palette --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_colors", 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 "gtk_color_chooser_add_palette" gtk_color_chooser_add_palette :: - Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Int32 -> -- colors_per_line : TBasicType TInt - Int32 -> -- n_colors : TBasicType TInt - Ptr Gdk.RGBA -> -- colors : TCArray False (-1) 3 (TInterface "Gdk" "RGBA") - IO () - - -colorChooserAddPalette :: - (MonadIO m, ColorChooserK a) => - a -- _obj - -> Orientation -- orientation - -> Int32 -- colorsPerLine - -> Maybe ([Gdk.RGBA]) -- colors - -> m () -- result -colorChooserAddPalette _obj orientation colorsPerLine colors = liftIO $ do - let nColors = case colors of - Nothing -> 0 - Just jColors -> fromIntegral $ length jColors - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - maybeColors <- case colors of - Nothing -> return nullPtr - Just jColors -> do - let jColors' = map unsafeManagedPtrGetPtr jColors - jColors'' <- packBlockArray 32 jColors' - return jColors'' - gtk_color_chooser_add_palette _obj' orientation' colorsPerLine nColors maybeColors - touchManagedPtr _obj - whenJust colors (mapM_ touchManagedPtr) - freeMem maybeColors - return () - -data ColorChooserAddPaletteMethodInfo -instance (signature ~ (Orientation -> Int32 -> Maybe ([Gdk.RGBA]) -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserAddPaletteMethodInfo a signature where - overloadedMethod _ = colorChooserAddPalette - --- method ColorChooser::get_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_chooser_get_rgba" gtk_color_chooser_get_rgba :: - Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - - -colorChooserGetRgba :: - (MonadIO m, ColorChooserK a) => - a -- _obj - -> m (Gdk.RGBA) -- result -colorChooserGetRgba _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_color_chooser_get_rgba _obj' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data ColorChooserGetRgbaMethodInfo -instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserGetRgbaMethodInfo a signature where - overloadedMethod _ = colorChooserGetRgba - --- method ColorChooser::get_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", 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 "gtk_color_chooser_get_use_alpha" gtk_color_chooser_get_use_alpha :: - Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" - IO CInt - - -colorChooserGetUseAlpha :: - (MonadIO m, ColorChooserK a) => - a -- _obj - -> m Bool -- result -colorChooserGetUseAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_chooser_get_use_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ColorChooserGetUseAlphaMethodInfo -instance (signature ~ (m Bool), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserGetUseAlphaMethodInfo a signature where - overloadedMethod _ = colorChooserGetUseAlpha - --- method ColorChooser::set_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", 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 "gtk_color_chooser_set_rgba" gtk_color_chooser_set_rgba :: - Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - - -colorChooserSetRgba :: - (MonadIO m, ColorChooserK a) => - a -- _obj - -> Gdk.RGBA -- color - -> m () -- result -colorChooserSetRgba _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gtk_color_chooser_set_rgba _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data ColorChooserSetRgbaMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserSetRgbaMethodInfo a signature where - overloadedMethod _ = colorChooserSetRgba - --- method ColorChooser::set_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", 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 "gtk_color_chooser_set_use_alpha" gtk_color_chooser_set_use_alpha :: - Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" - CInt -> -- use_alpha : TBasicType TBoolean - IO () - - -colorChooserSetUseAlpha :: - (MonadIO m, ColorChooserK a) => - a -- _obj - -> Bool -- useAlpha - -> m () -- result -colorChooserSetUseAlpha _obj useAlpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useAlpha' = (fromIntegral . fromEnum) useAlpha - gtk_color_chooser_set_use_alpha _obj' useAlpha' - touchManagedPtr _obj - return () - -data ColorChooserSetUseAlphaMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserSetUseAlphaMethodInfo a signature where - overloadedMethod _ = colorChooserSetUseAlpha - - diff --git a/GI/Gtk/Interfaces/ColorChooser.hs-boot b/GI/Gtk/Interfaces/ColorChooser.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/ColorChooser.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Interfaces.ColorChooser 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 ColorChooser = ColorChooser (ForeignPtr ColorChooser) -data ColorChooserRgbaPropertyInfo -data ColorChooserUseAlphaPropertyInfo -data ColorChooserColorActivatedSignalInfo -instance GObject ColorChooser where -class GObject o => ColorChooserK o -instance (GObject o, IsDescendantOf ColorChooser o) => ColorChooserK o -data ColorChooserAddPaletteMethodInfo -data ColorChooserGetRgbaMethodInfo -data ColorChooserGetUseAlphaMethodInfo -data ColorChooserSetRgbaMethodInfo -data ColorChooserSetUseAlphaMethodInfo diff --git a/GI/Gtk/Interfaces/Editable.hs b/GI/Gtk/Interfaces/Editable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Editable.hs +++ /dev/null @@ -1,718 +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.Gtk.Interfaces.Editable - ( - --- * Exported types - Editable(..) , - noEditable , - EditableK , - - - -- * Methods --- ** editableCopyClipboard - EditableCopyClipboardMethodInfo , - editableCopyClipboard , - - --- ** editableCutClipboard - EditableCutClipboardMethodInfo , - editableCutClipboard , - - --- ** editableDeleteSelection - EditableDeleteSelectionMethodInfo , - editableDeleteSelection , - - --- ** editableDeleteText - EditableDeleteTextMethodInfo , - editableDeleteText , - - --- ** editableGetChars - EditableGetCharsMethodInfo , - editableGetChars , - - --- ** editableGetEditable - EditableGetEditableMethodInfo , - editableGetEditable , - - --- ** editableGetPosition - EditableGetPositionMethodInfo , - editableGetPosition , - - --- ** editableGetSelectionBounds - EditableGetSelectionBoundsMethodInfo , - editableGetSelectionBounds , - - --- ** editableInsertText - EditableInsertTextMethodInfo , - editableInsertText , - - --- ** editablePasteClipboard - EditablePasteClipboardMethodInfo , - editablePasteClipboard , - - --- ** editableSelectRegion - EditableSelectRegionMethodInfo , - editableSelectRegion , - - --- ** editableSetEditable - EditableSetEditableMethodInfo , - editableSetEditable , - - --- ** editableSetPosition - EditableSetPositionMethodInfo , - editableSetPosition , - - - - - -- * Signals --- ** Changed - EditableChangedCallback , - EditableChangedCallbackC , - EditableChangedSignalInfo , - afterEditableChanged , - editableChangedCallbackWrapper , - editableChangedClosure , - mkEditableChangedCallback , - noEditableChangedCallback , - onEditableChanged , - - --- ** DeleteText - EditableDeleteTextCallback , - EditableDeleteTextCallbackC , - EditableDeleteTextSignalInfo , - afterEditableDeleteText , - editableDeleteTextCallbackWrapper , - editableDeleteTextClosure , - mkEditableDeleteTextCallback , - noEditableDeleteTextCallback , - onEditableDeleteText , - - --- ** InsertText - EditableInsertTextCallback , - EditableInsertTextCallbackC , - EditableInsertTextSignalInfo , - afterEditableInsertText , - editableInsertTextCallbackWrapper , - editableInsertTextClosure , - mkEditableInsertTextCallback , - noEditableInsertTextCallback , - onEditableInsertText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - --- interface Editable - -newtype Editable = Editable (ForeignPtr Editable) -noEditable :: Maybe Editable -noEditable = Nothing - -type family ResolveEditableMethod (t :: Symbol) (o :: *) :: * where - ResolveEditableMethod "copyClipboard" o = EditableCopyClipboardMethodInfo - ResolveEditableMethod "cutClipboard" o = EditableCutClipboardMethodInfo - ResolveEditableMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo - ResolveEditableMethod "deleteText" o = EditableDeleteTextMethodInfo - ResolveEditableMethod "insertText" o = EditableInsertTextMethodInfo - ResolveEditableMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo - ResolveEditableMethod "selectRegion" o = EditableSelectRegionMethodInfo - ResolveEditableMethod "getChars" o = EditableGetCharsMethodInfo - ResolveEditableMethod "getEditable" o = EditableGetEditableMethodInfo - ResolveEditableMethod "getPosition" o = EditableGetPositionMethodInfo - ResolveEditableMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo - ResolveEditableMethod "setEditable" o = EditableSetEditableMethodInfo - ResolveEditableMethod "setPosition" o = EditableSetPositionMethodInfo - ResolveEditableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEditableMethod t Editable, MethodInfo info Editable p) => IsLabelProxy t (Editable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEditableMethod t Editable, MethodInfo info Editable p) => IsLabel t (Editable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Editable::changed -type EditableChangedCallback = - IO () - -noEditableChangedCallback :: Maybe EditableChangedCallback -noEditableChangedCallback = Nothing - -type EditableChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEditableChangedCallback :: EditableChangedCallbackC -> IO (FunPtr EditableChangedCallbackC) - -editableChangedClosure :: EditableChangedCallback -> IO Closure -editableChangedClosure cb = newCClosure =<< mkEditableChangedCallback wrapped - where wrapped = editableChangedCallbackWrapper cb - -editableChangedCallbackWrapper :: - EditableChangedCallback -> - Ptr () -> - Ptr () -> - IO () -editableChangedCallbackWrapper _cb _ _ = do - _cb - -onEditableChanged :: (GObject a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId -onEditableChanged obj cb = liftIO $ connectEditableChanged obj cb SignalConnectBefore -afterEditableChanged :: (GObject a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId -afterEditableChanged obj cb = connectEditableChanged obj cb SignalConnectAfter - -connectEditableChanged :: (GObject a, MonadIO m) => - a -> EditableChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectEditableChanged obj cb after = liftIO $ do - cb' <- mkEditableChangedCallback (editableChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Editable::delete-text -type EditableDeleteTextCallback = - Int32 -> - Int32 -> - IO () - -noEditableDeleteTextCallback :: Maybe EditableDeleteTextCallback -noEditableDeleteTextCallback = Nothing - -type EditableDeleteTextCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEditableDeleteTextCallback :: EditableDeleteTextCallbackC -> IO (FunPtr EditableDeleteTextCallbackC) - -editableDeleteTextClosure :: EditableDeleteTextCallback -> IO Closure -editableDeleteTextClosure cb = newCClosure =<< mkEditableDeleteTextCallback wrapped - where wrapped = editableDeleteTextCallbackWrapper cb - -editableDeleteTextCallbackWrapper :: - EditableDeleteTextCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -editableDeleteTextCallbackWrapper _cb _ startPos endPos _ = do - _cb startPos endPos - -onEditableDeleteText :: (GObject a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId -onEditableDeleteText obj cb = liftIO $ connectEditableDeleteText obj cb SignalConnectBefore -afterEditableDeleteText :: (GObject a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId -afterEditableDeleteText obj cb = connectEditableDeleteText obj cb SignalConnectAfter - -connectEditableDeleteText :: (GObject a, MonadIO m) => - a -> EditableDeleteTextCallback -> SignalConnectMode -> m SignalHandlerId -connectEditableDeleteText obj cb after = liftIO $ do - cb' <- mkEditableDeleteTextCallback (editableDeleteTextCallbackWrapper cb) - connectSignalFunPtr obj "delete-text" cb' after - --- signal Editable::insert-text -type EditableInsertTextCallback = - T.Text -> - Int32 -> - Int32 -> - IO (Int32) - -noEditableInsertTextCallback :: Maybe EditableInsertTextCallback -noEditableInsertTextCallback = Nothing - -type EditableInsertTextCallbackC = - Ptr () -> -- object - CString -> - Int32 -> - Ptr Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEditableInsertTextCallback :: EditableInsertTextCallbackC -> IO (FunPtr EditableInsertTextCallbackC) - -editableInsertTextClosure :: EditableInsertTextCallback -> IO Closure -editableInsertTextClosure cb = newCClosure =<< mkEditableInsertTextCallback wrapped - where wrapped = editableInsertTextCallbackWrapper cb - -editableInsertTextCallbackWrapper :: - EditableInsertTextCallback -> - Ptr () -> - CString -> - Int32 -> - Ptr Int32 -> - Ptr () -> - IO () -editableInsertTextCallbackWrapper _cb _ newText newTextLength position _ = do - newText' <- cstringToText newText - position' <- peek position - outposition <- _cb newText' newTextLength position' - poke position outposition - -onEditableInsertText :: (GObject a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId -onEditableInsertText obj cb = liftIO $ connectEditableInsertText obj cb SignalConnectBefore -afterEditableInsertText :: (GObject a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId -afterEditableInsertText obj cb = connectEditableInsertText obj cb SignalConnectAfter - -connectEditableInsertText :: (GObject a, MonadIO m) => - a -> EditableInsertTextCallback -> SignalConnectMode -> m SignalHandlerId -connectEditableInsertText obj cb after = liftIO $ do - cb' <- mkEditableInsertTextCallback (editableInsertTextCallbackWrapper cb) - connectSignalFunPtr obj "insert-text" cb' after - -type instance AttributeList Editable = EditableAttributeList -type EditableAttributeList = ('[ ] :: [(Symbol, *)]) - -data EditableChangedSignalInfo -instance SignalInfo EditableChangedSignalInfo where - type HaskellCallbackType EditableChangedSignalInfo = EditableChangedCallback - connectSignal _ = connectEditableChanged - -data EditableDeleteTextSignalInfo -instance SignalInfo EditableDeleteTextSignalInfo where - type HaskellCallbackType EditableDeleteTextSignalInfo = EditableDeleteTextCallback - connectSignal _ = connectEditableDeleteText - -data EditableInsertTextSignalInfo -instance SignalInfo EditableInsertTextSignalInfo where - type HaskellCallbackType EditableInsertTextSignalInfo = EditableInsertTextCallback - connectSignal _ = connectEditableInsertText - -type instance SignalList Editable = EditableSignalList -type EditableSignalList = ('[ '("changed", EditableChangedSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("insertText", EditableInsertTextSignalInfo)] :: [(Symbol, *)]) - -class ForeignPtrNewtype a => EditableK a -instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o -type instance ParentTypes Editable = EditableParentTypes -type EditableParentTypes = '[] - --- method Editable::copy_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_copy_clipboard" gtk_editable_copy_clipboard :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO () - - -editableCopyClipboard :: - (MonadIO m, EditableK a) => - a -- _obj - -> m () -- result -editableCopyClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_copy_clipboard _obj' - touchManagedPtr _obj - return () - -data EditableCopyClipboardMethodInfo -instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableCopyClipboardMethodInfo a signature where - overloadedMethod _ = editableCopyClipboard - --- method Editable::cut_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_cut_clipboard" gtk_editable_cut_clipboard :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO () - - -editableCutClipboard :: - (MonadIO m, EditableK a) => - a -- _obj - -> m () -- result -editableCutClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_cut_clipboard _obj' - touchManagedPtr _obj - return () - -data EditableCutClipboardMethodInfo -instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableCutClipboardMethodInfo a signature where - overloadedMethod _ = editableCutClipboard - --- method Editable::delete_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_delete_selection" gtk_editable_delete_selection :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO () - - -editableDeleteSelection :: - (MonadIO m, EditableK a) => - a -- _obj - -> m () -- result -editableDeleteSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_delete_selection _obj' - touchManagedPtr _obj - return () - -data EditableDeleteSelectionMethodInfo -instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableDeleteSelectionMethodInfo a signature where - overloadedMethod _ = editableDeleteSelection - --- method Editable::delete_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_delete_text" gtk_editable_delete_text :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt - Int32 -> -- end_pos : TBasicType TInt - IO () - - -editableDeleteText :: - (MonadIO m, EditableK a) => - a -- _obj - -> Int32 -- startPos - -> Int32 -- endPos - -> m () -- result -editableDeleteText _obj startPos endPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_delete_text _obj' startPos endPos - touchManagedPtr _obj - return () - -data EditableDeleteTextMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableDeleteTextMethodInfo a signature where - overloadedMethod _ = editableDeleteText - --- method Editable::get_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt - Int32 -> -- end_pos : TBasicType TInt - IO CString - - -editableGetChars :: - (MonadIO m, EditableK a) => - a -- _obj - -> Int32 -- startPos - -> Int32 -- endPos - -> m T.Text -- result -editableGetChars _obj startPos endPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_chars _obj' startPos endPos - checkUnexpectedReturnNULL "gtk_editable_get_chars" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data EditableGetCharsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m T.Text), MonadIO m, EditableK a) => MethodInfo EditableGetCharsMethodInfo a signature where - overloadedMethod _ = editableGetChars - --- method Editable::get_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_get_editable" gtk_editable_get_editable :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO CInt - - -editableGetEditable :: - (MonadIO m, EditableK a) => - a -- _obj - -> m Bool -- result -editableGetEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EditableGetEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, EditableK a) => MethodInfo EditableGetEditableMethodInfo a signature where - overloadedMethod _ = editableGetEditable - --- method Editable::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_get_position" gtk_editable_get_position :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO Int32 - - -editableGetPosition :: - (MonadIO m, EditableK a) => - a -- _obj - -> m Int32 -- result -editableGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_position _obj' - touchManagedPtr _obj - return result - -data EditableGetPositionMethodInfo -instance (signature ~ (m Int32), MonadIO m, EditableK a) => MethodInfo EditableGetPositionMethodInfo a signature where - overloadedMethod _ = editableGetPosition - --- method Editable::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", 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 "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Ptr Int32 -> -- start_pos : TBasicType TInt - Ptr Int32 -> -- end_pos : TBasicType TInt - IO CInt - - -editableGetSelectionBounds :: - (MonadIO m, EditableK a) => - a -- _obj - -> m (Bool,Int32,Int32) -- result -editableGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startPos <- allocMem :: IO (Ptr Int32) - endPos <- allocMem :: IO (Ptr Int32) - result <- gtk_editable_get_selection_bounds _obj' startPos endPos - let result' = (/= 0) result - startPos' <- peek startPos - endPos' <- peek endPos - touchManagedPtr _obj - freeMem startPos - freeMem endPos - return (result', startPos', endPos') - -data EditableGetSelectionBoundsMethodInfo -instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, EditableK a) => MethodInfo EditableGetSelectionBoundsMethodInfo a signature where - overloadedMethod _ = editableGetSelectionBounds - --- method Editable::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_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 = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - CString -> -- new_text : TBasicType TUTF8 - Int32 -> -- new_text_length : TBasicType TInt - Ptr Int32 -> -- position : TBasicType TInt - IO () - - -editableInsertText :: - (MonadIO m, EditableK a) => - a -- _obj - -> T.Text -- newText - -> Int32 -- newTextLength - -> Int32 -- position - -> m (Int32) -- result -editableInsertText _obj newText newTextLength position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - newText' <- textToCString newText - position' <- allocMem :: IO (Ptr Int32) - poke position' position - gtk_editable_insert_text _obj' newText' newTextLength position' - position'' <- peek position' - touchManagedPtr _obj - freeMem newText' - freeMem position' - return position'' - -data EditableInsertTextMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> m (Int32)), MonadIO m, EditableK a) => MethodInfo EditableInsertTextMethodInfo a signature where - overloadedMethod _ = editableInsertText - --- method Editable::paste_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_paste_clipboard" gtk_editable_paste_clipboard :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - IO () - - -editablePasteClipboard :: - (MonadIO m, EditableK a) => - a -- _obj - -> m () -- result -editablePasteClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_paste_clipboard _obj' - touchManagedPtr _obj - return () - -data EditablePasteClipboardMethodInfo -instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditablePasteClipboardMethodInfo a signature where - overloadedMethod _ = editablePasteClipboard - --- method Editable::select_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_select_region" gtk_editable_select_region :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt - Int32 -> -- end_pos : TBasicType TInt - IO () - - -editableSelectRegion :: - (MonadIO m, EditableK a) => - a -- _obj - -> Int32 -- startPos - -> Int32 -- endPos - -> m () -- result -editableSelectRegion _obj startPos endPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_select_region _obj' startPos endPos - touchManagedPtr _obj - return () - -data EditableSelectRegionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSelectRegionMethodInfo a signature where - overloadedMethod _ = editableSelectRegion - --- method Editable::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_editable", 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 "gtk_editable_set_editable" gtk_editable_set_editable :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - CInt -> -- is_editable : TBasicType TBoolean - IO () - - -editableSetEditable :: - (MonadIO m, EditableK a) => - a -- _obj - -> Bool -- isEditable - -> m () -- result -editableSetEditable _obj isEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isEditable' = (fromIntegral . fromEnum) isEditable - gtk_editable_set_editable _obj' isEditable' - touchManagedPtr _obj - return () - -data EditableSetEditableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSetEditableMethodInfo a signature where - overloadedMethod _ = editableSetEditable - --- method Editable::set_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", 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 "gtk_editable_set_position" gtk_editable_set_position :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- position : TBasicType TInt - IO () - - -editableSetPosition :: - (MonadIO m, EditableK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -editableSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_set_position _obj' position - touchManagedPtr _obj - return () - -data EditableSetPositionMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSetPositionMethodInfo a signature where - overloadedMethod _ = editableSetPosition - - diff --git a/GI/Gtk/Interfaces/Editable.hs-boot b/GI/Gtk/Interfaces/Editable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Editable.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Interfaces.Editable 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 Editable = Editable (ForeignPtr Editable) -data EditableChangedSignalInfo -data EditableDeleteTextSignalInfo -data EditableInsertTextSignalInfo -class ForeignPtrNewtype a => EditableK a -instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o -data EditableCopyClipboardMethodInfo -data EditableCutClipboardMethodInfo -data EditableDeleteSelectionMethodInfo -data EditableDeleteTextMethodInfo -data EditableGetCharsMethodInfo -data EditableGetEditableMethodInfo -data EditableGetPositionMethodInfo -data EditableGetSelectionBoundsMethodInfo -data EditableInsertTextMethodInfo -data EditablePasteClipboardMethodInfo -data EditableSelectRegionMethodInfo -data EditableSetEditableMethodInfo -data EditableSetPositionMethodInfo diff --git a/GI/Gtk/Interfaces/FileChooser.hs b/GI/Gtk/Interfaces/FileChooser.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/FileChooser.hs +++ /dev/null @@ -1,3214 +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.Gtk.Interfaces.FileChooser - ( - --- * Exported types - FileChooser(..) , - noFileChooser , - FileChooserK , - toFileChooser , - - - -- * Methods --- ** fileChooserAddFilter - FileChooserAddFilterMethodInfo , - fileChooserAddFilter , - - --- ** fileChooserAddShortcutFolder - FileChooserAddShortcutFolderMethodInfo , - fileChooserAddShortcutFolder , - - --- ** fileChooserAddShortcutFolderUri - FileChooserAddShortcutFolderUriMethodInfo, - fileChooserAddShortcutFolderUri , - - --- ** fileChooserGetAction - FileChooserGetActionMethodInfo , - fileChooserGetAction , - - --- ** fileChooserGetCreateFolders - FileChooserGetCreateFoldersMethodInfo , - fileChooserGetCreateFolders , - - --- ** fileChooserGetCurrentFolder - FileChooserGetCurrentFolderMethodInfo , - fileChooserGetCurrentFolder , - - --- ** fileChooserGetCurrentFolderFile - FileChooserGetCurrentFolderFileMethodInfo, - fileChooserGetCurrentFolderFile , - - --- ** fileChooserGetCurrentFolderUri - FileChooserGetCurrentFolderUriMethodInfo, - fileChooserGetCurrentFolderUri , - - --- ** fileChooserGetCurrentName - FileChooserGetCurrentNameMethodInfo , - fileChooserGetCurrentName , - - --- ** fileChooserGetDoOverwriteConfirmation - FileChooserGetDoOverwriteConfirmationMethodInfo, - fileChooserGetDoOverwriteConfirmation , - - --- ** fileChooserGetExtraWidget - FileChooserGetExtraWidgetMethodInfo , - fileChooserGetExtraWidget , - - --- ** fileChooserGetFile - FileChooserGetFileMethodInfo , - fileChooserGetFile , - - --- ** fileChooserGetFilename - FileChooserGetFilenameMethodInfo , - fileChooserGetFilename , - - --- ** fileChooserGetFilenames - FileChooserGetFilenamesMethodInfo , - fileChooserGetFilenames , - - --- ** fileChooserGetFiles - FileChooserGetFilesMethodInfo , - fileChooserGetFiles , - - --- ** fileChooserGetFilter - FileChooserGetFilterMethodInfo , - fileChooserGetFilter , - - --- ** fileChooserGetLocalOnly - FileChooserGetLocalOnlyMethodInfo , - fileChooserGetLocalOnly , - - --- ** fileChooserGetPreviewFile - FileChooserGetPreviewFileMethodInfo , - fileChooserGetPreviewFile , - - --- ** fileChooserGetPreviewFilename - FileChooserGetPreviewFilenameMethodInfo , - fileChooserGetPreviewFilename , - - --- ** fileChooserGetPreviewUri - FileChooserGetPreviewUriMethodInfo , - fileChooserGetPreviewUri , - - --- ** fileChooserGetPreviewWidget - FileChooserGetPreviewWidgetMethodInfo , - fileChooserGetPreviewWidget , - - --- ** fileChooserGetPreviewWidgetActive - FileChooserGetPreviewWidgetActiveMethodInfo, - fileChooserGetPreviewWidgetActive , - - --- ** fileChooserGetSelectMultiple - FileChooserGetSelectMultipleMethodInfo , - fileChooserGetSelectMultiple , - - --- ** fileChooserGetShowHidden - FileChooserGetShowHiddenMethodInfo , - fileChooserGetShowHidden , - - --- ** fileChooserGetUri - FileChooserGetUriMethodInfo , - fileChooserGetUri , - - --- ** fileChooserGetUris - FileChooserGetUrisMethodInfo , - fileChooserGetUris , - - --- ** fileChooserGetUsePreviewLabel - FileChooserGetUsePreviewLabelMethodInfo , - fileChooserGetUsePreviewLabel , - - --- ** fileChooserListFilters - FileChooserListFiltersMethodInfo , - fileChooserListFilters , - - --- ** fileChooserListShortcutFolderUris - FileChooserListShortcutFolderUrisMethodInfo, - fileChooserListShortcutFolderUris , - - --- ** fileChooserListShortcutFolders - FileChooserListShortcutFoldersMethodInfo, - fileChooserListShortcutFolders , - - --- ** fileChooserRemoveFilter - FileChooserRemoveFilterMethodInfo , - fileChooserRemoveFilter , - - --- ** fileChooserRemoveShortcutFolder - FileChooserRemoveShortcutFolderMethodInfo, - fileChooserRemoveShortcutFolder , - - --- ** fileChooserRemoveShortcutFolderUri - FileChooserRemoveShortcutFolderUriMethodInfo, - fileChooserRemoveShortcutFolderUri , - - --- ** fileChooserSelectAll - FileChooserSelectAllMethodInfo , - fileChooserSelectAll , - - --- ** fileChooserSelectFile - FileChooserSelectFileMethodInfo , - fileChooserSelectFile , - - --- ** fileChooserSelectFilename - FileChooserSelectFilenameMethodInfo , - fileChooserSelectFilename , - - --- ** fileChooserSelectUri - FileChooserSelectUriMethodInfo , - fileChooserSelectUri , - - --- ** fileChooserSetAction - FileChooserSetActionMethodInfo , - fileChooserSetAction , - - --- ** fileChooserSetCreateFolders - FileChooserSetCreateFoldersMethodInfo , - fileChooserSetCreateFolders , - - --- ** fileChooserSetCurrentFolder - FileChooserSetCurrentFolderMethodInfo , - fileChooserSetCurrentFolder , - - --- ** fileChooserSetCurrentFolderFile - FileChooserSetCurrentFolderFileMethodInfo, - fileChooserSetCurrentFolderFile , - - --- ** fileChooserSetCurrentFolderUri - FileChooserSetCurrentFolderUriMethodInfo, - fileChooserSetCurrentFolderUri , - - --- ** fileChooserSetCurrentName - FileChooserSetCurrentNameMethodInfo , - fileChooserSetCurrentName , - - --- ** fileChooserSetDoOverwriteConfirmation - FileChooserSetDoOverwriteConfirmationMethodInfo, - fileChooserSetDoOverwriteConfirmation , - - --- ** fileChooserSetExtraWidget - FileChooserSetExtraWidgetMethodInfo , - fileChooserSetExtraWidget , - - --- ** fileChooserSetFile - FileChooserSetFileMethodInfo , - fileChooserSetFile , - - --- ** fileChooserSetFilename - FileChooserSetFilenameMethodInfo , - fileChooserSetFilename , - - --- ** fileChooserSetFilter - FileChooserSetFilterMethodInfo , - fileChooserSetFilter , - - --- ** fileChooserSetLocalOnly - FileChooserSetLocalOnlyMethodInfo , - fileChooserSetLocalOnly , - - --- ** fileChooserSetPreviewWidget - FileChooserSetPreviewWidgetMethodInfo , - fileChooserSetPreviewWidget , - - --- ** fileChooserSetPreviewWidgetActive - FileChooserSetPreviewWidgetActiveMethodInfo, - fileChooserSetPreviewWidgetActive , - - --- ** fileChooserSetSelectMultiple - FileChooserSetSelectMultipleMethodInfo , - fileChooserSetSelectMultiple , - - --- ** fileChooserSetShowHidden - FileChooserSetShowHiddenMethodInfo , - fileChooserSetShowHidden , - - --- ** fileChooserSetUri - FileChooserSetUriMethodInfo , - fileChooserSetUri , - - --- ** fileChooserSetUsePreviewLabel - FileChooserSetUsePreviewLabelMethodInfo , - fileChooserSetUsePreviewLabel , - - --- ** fileChooserUnselectAll - FileChooserUnselectAllMethodInfo , - fileChooserUnselectAll , - - --- ** fileChooserUnselectFile - FileChooserUnselectFileMethodInfo , - fileChooserUnselectFile , - - --- ** fileChooserUnselectFilename - FileChooserUnselectFilenameMethodInfo , - fileChooserUnselectFilename , - - --- ** fileChooserUnselectUri - FileChooserUnselectUriMethodInfo , - fileChooserUnselectUri , - - - - - -- * Properties --- ** Action - FileChooserActionPropertyInfo , - constructFileChooserAction , - fileChooserAction , - getFileChooserAction , - setFileChooserAction , - - --- ** CreateFolders - FileChooserCreateFoldersPropertyInfo , - constructFileChooserCreateFolders , - fileChooserCreateFolders , - getFileChooserCreateFolders , - setFileChooserCreateFolders , - - --- ** DoOverwriteConfirmation - FileChooserDoOverwriteConfirmationPropertyInfo, - constructFileChooserDoOverwriteConfirmation, - fileChooserDoOverwriteConfirmation , - getFileChooserDoOverwriteConfirmation , - setFileChooserDoOverwriteConfirmation , - - --- ** ExtraWidget - FileChooserExtraWidgetPropertyInfo , - constructFileChooserExtraWidget , - fileChooserExtraWidget , - getFileChooserExtraWidget , - setFileChooserExtraWidget , - - --- ** Filter - FileChooserFilterPropertyInfo , - constructFileChooserFilter , - fileChooserFilter , - getFileChooserFilter , - setFileChooserFilter , - - --- ** LocalOnly - FileChooserLocalOnlyPropertyInfo , - constructFileChooserLocalOnly , - fileChooserLocalOnly , - getFileChooserLocalOnly , - setFileChooserLocalOnly , - - --- ** PreviewWidget - FileChooserPreviewWidgetPropertyInfo , - constructFileChooserPreviewWidget , - fileChooserPreviewWidget , - getFileChooserPreviewWidget , - setFileChooserPreviewWidget , - - --- ** PreviewWidgetActive - FileChooserPreviewWidgetActivePropertyInfo, - constructFileChooserPreviewWidgetActive , - fileChooserPreviewWidgetActive , - getFileChooserPreviewWidgetActive , - setFileChooserPreviewWidgetActive , - - --- ** SelectMultiple - FileChooserSelectMultiplePropertyInfo , - constructFileChooserSelectMultiple , - fileChooserSelectMultiple , - getFileChooserSelectMultiple , - setFileChooserSelectMultiple , - - --- ** ShowHidden - FileChooserShowHiddenPropertyInfo , - constructFileChooserShowHidden , - fileChooserShowHidden , - getFileChooserShowHidden , - setFileChooserShowHidden , - - --- ** UsePreviewLabel - FileChooserUsePreviewLabelPropertyInfo , - constructFileChooserUsePreviewLabel , - fileChooserUsePreviewLabel , - getFileChooserUsePreviewLabel , - setFileChooserUsePreviewLabel , - - - - - -- * Signals --- ** ConfirmOverwrite - FileChooserConfirmOverwriteCallback , - FileChooserConfirmOverwriteCallbackC , - FileChooserConfirmOverwriteSignalInfo , - afterFileChooserConfirmOverwrite , - fileChooserConfirmOverwriteCallbackWrapper, - fileChooserConfirmOverwriteClosure , - mkFileChooserConfirmOverwriteCallback , - noFileChooserConfirmOverwriteCallback , - onFileChooserConfirmOverwrite , - - --- ** CurrentFolderChanged - FileChooserCurrentFolderChangedCallback , - FileChooserCurrentFolderChangedCallbackC, - FileChooserCurrentFolderChangedSignalInfo, - afterFileChooserCurrentFolderChanged , - fileChooserCurrentFolderChangedCallbackWrapper, - fileChooserCurrentFolderChangedClosure , - mkFileChooserCurrentFolderChangedCallback, - noFileChooserCurrentFolderChangedCallback, - onFileChooserCurrentFolderChanged , - - --- ** FileActivated - FileChooserFileActivatedCallback , - FileChooserFileActivatedCallbackC , - FileChooserFileActivatedSignalInfo , - afterFileChooserFileActivated , - fileChooserFileActivatedCallbackWrapper , - fileChooserFileActivatedClosure , - mkFileChooserFileActivatedCallback , - noFileChooserFileActivatedCallback , - onFileChooserFileActivated , - - --- ** SelectionChanged - FileChooserSelectionChangedCallback , - FileChooserSelectionChangedCallbackC , - FileChooserSelectionChangedSignalInfo , - afterFileChooserSelectionChanged , - fileChooserSelectionChangedCallbackWrapper, - fileChooserSelectionChangedClosure , - mkFileChooserSelectionChangedCallback , - noFileChooserSelectionChangedCallback , - onFileChooserSelectionChanged , - - --- ** UpdatePreview - FileChooserUpdatePreviewCallback , - FileChooserUpdatePreviewCallbackC , - FileChooserUpdatePreviewSignalInfo , - afterFileChooserUpdatePreview , - fileChooserUpdatePreviewCallbackWrapper , - fileChooserUpdatePreviewClosure , - mkFileChooserUpdatePreviewCallback , - noFileChooserUpdatePreviewCallback , - onFileChooserUpdatePreview , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface FileChooser - -newtype FileChooser = FileChooser (ForeignPtr FileChooser) -noFileChooser :: Maybe FileChooser -noFileChooser = Nothing - -type family ResolveFileChooserMethod (t :: Symbol) (o :: *) :: * where - ResolveFileChooserMethod "activate" o = WidgetActivateMethodInfo - ResolveFileChooserMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFileChooserMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFileChooserMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFileChooserMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFileChooserMethod "addFilter" o = FileChooserAddFilterMethodInfo - ResolveFileChooserMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFileChooserMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo - ResolveFileChooserMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo - ResolveFileChooserMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFileChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileChooserMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFileChooserMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFileChooserMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveFileChooserMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFileChooserMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFileChooserMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFileChooserMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFileChooserMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFileChooserMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFileChooserMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFileChooserMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFileChooserMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFileChooserMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFileChooserMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFileChooserMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFileChooserMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFileChooserMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFileChooserMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFileChooserMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFileChooserMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFileChooserMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFileChooserMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFileChooserMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFileChooserMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFileChooserMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFileChooserMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFileChooserMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFileChooserMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFileChooserMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFileChooserMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFileChooserMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFileChooserMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFileChooserMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFileChooserMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFileChooserMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFileChooserMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFileChooserMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFileChooserMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFileChooserMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFileChooserMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFileChooserMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFileChooserMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFileChooserMethod "draw" o = WidgetDrawMethodInfo - ResolveFileChooserMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFileChooserMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFileChooserMethod "event" o = WidgetEventMethodInfo - ResolveFileChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileChooserMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFileChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileChooserMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFileChooserMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFileChooserMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFileChooserMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFileChooserMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFileChooserMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFileChooserMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFileChooserMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFileChooserMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFileChooserMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFileChooserMethod "hide" o = WidgetHideMethodInfo - ResolveFileChooserMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFileChooserMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFileChooserMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFileChooserMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFileChooserMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFileChooserMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFileChooserMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFileChooserMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFileChooserMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFileChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileChooserMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFileChooserMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFileChooserMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFileChooserMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFileChooserMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFileChooserMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFileChooserMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFileChooserMethod "listFilters" o = FileChooserListFiltersMethodInfo - ResolveFileChooserMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFileChooserMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo - ResolveFileChooserMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo - ResolveFileChooserMethod "map" o = WidgetMapMethodInfo - ResolveFileChooserMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFileChooserMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFileChooserMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFileChooserMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFileChooserMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFileChooserMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFileChooserMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFileChooserMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFileChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileChooserMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFileChooserMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFileChooserMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFileChooserMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFileChooserMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFileChooserMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFileChooserMethod "path" o = WidgetPathMethodInfo - ResolveFileChooserMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFileChooserMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFileChooserMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFileChooserMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFileChooserMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFileChooserMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFileChooserMethod "realize" o = WidgetRealizeMethodInfo - ResolveFileChooserMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileChooserMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFileChooserMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFileChooserMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFileChooserMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo - ResolveFileChooserMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFileChooserMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo - ResolveFileChooserMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo - ResolveFileChooserMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFileChooserMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFileChooserMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFileChooserMethod "reparent" o = WidgetReparentMethodInfo - ResolveFileChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileChooserMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFileChooserMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFileChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileChooserMethod "selectAll" o = FileChooserSelectAllMethodInfo - ResolveFileChooserMethod "selectFile" o = FileChooserSelectFileMethodInfo - ResolveFileChooserMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo - ResolveFileChooserMethod "selectUri" o = FileChooserSelectUriMethodInfo - ResolveFileChooserMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFileChooserMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFileChooserMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFileChooserMethod "show" o = WidgetShowMethodInfo - ResolveFileChooserMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFileChooserMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFileChooserMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFileChooserMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFileChooserMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFileChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileChooserMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFileChooserMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFileChooserMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFileChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileChooserMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFileChooserMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFileChooserMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFileChooserMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFileChooserMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFileChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileChooserMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFileChooserMethod "unselectAll" o = FileChooserUnselectAllMethodInfo - ResolveFileChooserMethod "unselectFile" o = FileChooserUnselectFileMethodInfo - ResolveFileChooserMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo - ResolveFileChooserMethod "unselectUri" o = FileChooserUnselectUriMethodInfo - ResolveFileChooserMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFileChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileChooserMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFileChooserMethod "getAction" o = FileChooserGetActionMethodInfo - ResolveFileChooserMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFileChooserMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFileChooserMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFileChooserMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFileChooserMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFileChooserMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFileChooserMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFileChooserMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFileChooserMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFileChooserMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFileChooserMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFileChooserMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFileChooserMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFileChooserMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFileChooserMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo - ResolveFileChooserMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo - ResolveFileChooserMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo - ResolveFileChooserMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo - ResolveFileChooserMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo - ResolveFileChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileChooserMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFileChooserMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFileChooserMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFileChooserMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFileChooserMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo - ResolveFileChooserMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFileChooserMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFileChooserMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo - ResolveFileChooserMethod "getFile" o = FileChooserGetFileMethodInfo - ResolveFileChooserMethod "getFilename" o = FileChooserGetFilenameMethodInfo - ResolveFileChooserMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo - ResolveFileChooserMethod "getFiles" o = FileChooserGetFilesMethodInfo - ResolveFileChooserMethod "getFilter" o = FileChooserGetFilterMethodInfo - ResolveFileChooserMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFileChooserMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFileChooserMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFileChooserMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFileChooserMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFileChooserMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFileChooserMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFileChooserMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFileChooserMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFileChooserMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo - ResolveFileChooserMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFileChooserMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFileChooserMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFileChooserMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFileChooserMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFileChooserMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFileChooserMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFileChooserMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFileChooserMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFileChooserMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFileChooserMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFileChooserMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFileChooserMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFileChooserMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFileChooserMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFileChooserMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFileChooserMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFileChooserMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFileChooserMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFileChooserMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFileChooserMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFileChooserMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFileChooserMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo - ResolveFileChooserMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo - ResolveFileChooserMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo - ResolveFileChooserMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo - ResolveFileChooserMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo - ResolveFileChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileChooserMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFileChooserMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFileChooserMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFileChooserMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFileChooserMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFileChooserMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFileChooserMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFileChooserMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo - ResolveFileChooserMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFileChooserMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFileChooserMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo - ResolveFileChooserMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFileChooserMethod "getState" o = WidgetGetStateMethodInfo - ResolveFileChooserMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFileChooserMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFileChooserMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFileChooserMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFileChooserMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFileChooserMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFileChooserMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFileChooserMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFileChooserMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFileChooserMethod "getUri" o = FileChooserGetUriMethodInfo - ResolveFileChooserMethod "getUris" o = FileChooserGetUrisMethodInfo - ResolveFileChooserMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo - ResolveFileChooserMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFileChooserMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFileChooserMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFileChooserMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFileChooserMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFileChooserMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFileChooserMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFileChooserMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFileChooserMethod "setAction" o = FileChooserSetActionMethodInfo - ResolveFileChooserMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFileChooserMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFileChooserMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFileChooserMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFileChooserMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFileChooserMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFileChooserMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFileChooserMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFileChooserMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo - ResolveFileChooserMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo - ResolveFileChooserMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo - ResolveFileChooserMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo - ResolveFileChooserMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo - ResolveFileChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileChooserMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFileChooserMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFileChooserMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFileChooserMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo - ResolveFileChooserMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFileChooserMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFileChooserMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo - ResolveFileChooserMethod "setFile" o = FileChooserSetFileMethodInfo - ResolveFileChooserMethod "setFilename" o = FileChooserSetFilenameMethodInfo - ResolveFileChooserMethod "setFilter" o = FileChooserSetFilterMethodInfo - ResolveFileChooserMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFileChooserMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFileChooserMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFileChooserMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFileChooserMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFileChooserMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFileChooserMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFileChooserMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo - ResolveFileChooserMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFileChooserMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFileChooserMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFileChooserMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFileChooserMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFileChooserMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFileChooserMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFileChooserMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFileChooserMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFileChooserMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFileChooserMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFileChooserMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo - ResolveFileChooserMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo - ResolveFileChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileChooserMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFileChooserMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFileChooserMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFileChooserMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo - ResolveFileChooserMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFileChooserMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo - ResolveFileChooserMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFileChooserMethod "setState" o = WidgetSetStateMethodInfo - ResolveFileChooserMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFileChooserMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFileChooserMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFileChooserMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFileChooserMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFileChooserMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFileChooserMethod "setUri" o = FileChooserSetUriMethodInfo - ResolveFileChooserMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo - ResolveFileChooserMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFileChooserMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFileChooserMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFileChooserMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFileChooserMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFileChooserMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFileChooserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileChooserMethod t FileChooser, MethodInfo info FileChooser p) => IsLabelProxy t (FileChooser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileChooserMethod t FileChooser, MethodInfo info FileChooser p) => IsLabel t (FileChooser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FileChooser::confirm-overwrite -type FileChooserConfirmOverwriteCallback = - IO FileChooserConfirmation - -noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback -noFileChooserConfirmOverwriteCallback = Nothing - -type FileChooserConfirmOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CUInt - -foreign import ccall "wrapper" - mkFileChooserConfirmOverwriteCallback :: FileChooserConfirmOverwriteCallbackC -> IO (FunPtr FileChooserConfirmOverwriteCallbackC) - -fileChooserConfirmOverwriteClosure :: FileChooserConfirmOverwriteCallback -> IO Closure -fileChooserConfirmOverwriteClosure cb = newCClosure =<< mkFileChooserConfirmOverwriteCallback wrapped - where wrapped = fileChooserConfirmOverwriteCallbackWrapper cb - -fileChooserConfirmOverwriteCallbackWrapper :: - FileChooserConfirmOverwriteCallback -> - Ptr () -> - Ptr () -> - IO CUInt -fileChooserConfirmOverwriteCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId -onFileChooserConfirmOverwrite obj cb = liftIO $ connectFileChooserConfirmOverwrite obj cb SignalConnectBefore -afterFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId -afterFileChooserConfirmOverwrite obj cb = connectFileChooserConfirmOverwrite obj cb SignalConnectAfter - -connectFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => - a -> FileChooserConfirmOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserConfirmOverwrite obj cb after = liftIO $ do - cb' <- mkFileChooserConfirmOverwriteCallback (fileChooserConfirmOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "confirm-overwrite" cb' after - --- signal FileChooser::current-folder-changed -type FileChooserCurrentFolderChangedCallback = - IO () - -noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback -noFileChooserCurrentFolderChangedCallback = Nothing - -type FileChooserCurrentFolderChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserCurrentFolderChangedCallback :: FileChooserCurrentFolderChangedCallbackC -> IO (FunPtr FileChooserCurrentFolderChangedCallbackC) - -fileChooserCurrentFolderChangedClosure :: FileChooserCurrentFolderChangedCallback -> IO Closure -fileChooserCurrentFolderChangedClosure cb = newCClosure =<< mkFileChooserCurrentFolderChangedCallback wrapped - where wrapped = fileChooserCurrentFolderChangedCallbackWrapper cb - -fileChooserCurrentFolderChangedCallbackWrapper :: - FileChooserCurrentFolderChangedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserCurrentFolderChangedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId -onFileChooserCurrentFolderChanged obj cb = liftIO $ connectFileChooserCurrentFolderChanged obj cb SignalConnectBefore -afterFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId -afterFileChooserCurrentFolderChanged obj cb = connectFileChooserCurrentFolderChanged obj cb SignalConnectAfter - -connectFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => - a -> FileChooserCurrentFolderChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserCurrentFolderChanged obj cb after = liftIO $ do - cb' <- mkFileChooserCurrentFolderChangedCallback (fileChooserCurrentFolderChangedCallbackWrapper cb) - connectSignalFunPtr obj "current-folder-changed" cb' after - --- signal FileChooser::file-activated -type FileChooserFileActivatedCallback = - IO () - -noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback -noFileChooserFileActivatedCallback = Nothing - -type FileChooserFileActivatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserFileActivatedCallback :: FileChooserFileActivatedCallbackC -> IO (FunPtr FileChooserFileActivatedCallbackC) - -fileChooserFileActivatedClosure :: FileChooserFileActivatedCallback -> IO Closure -fileChooserFileActivatedClosure cb = newCClosure =<< mkFileChooserFileActivatedCallback wrapped - where wrapped = fileChooserFileActivatedCallbackWrapper cb - -fileChooserFileActivatedCallbackWrapper :: - FileChooserFileActivatedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserFileActivatedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId -onFileChooserFileActivated obj cb = liftIO $ connectFileChooserFileActivated obj cb SignalConnectBefore -afterFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId -afterFileChooserFileActivated obj cb = connectFileChooserFileActivated obj cb SignalConnectAfter - -connectFileChooserFileActivated :: (GObject a, MonadIO m) => - a -> FileChooserFileActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserFileActivated obj cb after = liftIO $ do - cb' <- mkFileChooserFileActivatedCallback (fileChooserFileActivatedCallbackWrapper cb) - connectSignalFunPtr obj "file-activated" cb' after - --- signal FileChooser::selection-changed -type FileChooserSelectionChangedCallback = - IO () - -noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback -noFileChooserSelectionChangedCallback = Nothing - -type FileChooserSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserSelectionChangedCallback :: FileChooserSelectionChangedCallbackC -> IO (FunPtr FileChooserSelectionChangedCallbackC) - -fileChooserSelectionChangedClosure :: FileChooserSelectionChangedCallback -> IO Closure -fileChooserSelectionChangedClosure cb = newCClosure =<< mkFileChooserSelectionChangedCallback wrapped - where wrapped = fileChooserSelectionChangedCallbackWrapper cb - -fileChooserSelectionChangedCallbackWrapper :: - FileChooserSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId -onFileChooserSelectionChanged obj cb = liftIO $ connectFileChooserSelectionChanged obj cb SignalConnectBefore -afterFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId -afterFileChooserSelectionChanged obj cb = connectFileChooserSelectionChanged obj cb SignalConnectAfter - -connectFileChooserSelectionChanged :: (GObject a, MonadIO m) => - a -> FileChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserSelectionChanged obj cb after = liftIO $ do - cb' <- mkFileChooserSelectionChangedCallback (fileChooserSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- signal FileChooser::update-preview -type FileChooserUpdatePreviewCallback = - IO () - -noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback -noFileChooserUpdatePreviewCallback = Nothing - -type FileChooserUpdatePreviewCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserUpdatePreviewCallback :: FileChooserUpdatePreviewCallbackC -> IO (FunPtr FileChooserUpdatePreviewCallbackC) - -fileChooserUpdatePreviewClosure :: FileChooserUpdatePreviewCallback -> IO Closure -fileChooserUpdatePreviewClosure cb = newCClosure =<< mkFileChooserUpdatePreviewCallback wrapped - where wrapped = fileChooserUpdatePreviewCallbackWrapper cb - -fileChooserUpdatePreviewCallbackWrapper :: - FileChooserUpdatePreviewCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserUpdatePreviewCallbackWrapper _cb _ _ = do - _cb - -onFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId -onFileChooserUpdatePreview obj cb = liftIO $ connectFileChooserUpdatePreview obj cb SignalConnectBefore -afterFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId -afterFileChooserUpdatePreview obj cb = connectFileChooserUpdatePreview obj cb SignalConnectAfter - -connectFileChooserUpdatePreview :: (GObject a, MonadIO m) => - a -> FileChooserUpdatePreviewCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserUpdatePreview obj cb after = liftIO $ do - cb' <- mkFileChooserUpdatePreviewCallback (fileChooserUpdatePreviewCallbackWrapper cb) - connectSignalFunPtr obj "update-preview" cb' after - --- VVV Prop "action" - -- Type: TInterface "Gtk" "FileChooserAction" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserAction :: (MonadIO m, FileChooserK o) => o -> m FileChooserAction -getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action" - -setFileChooserAction :: (MonadIO m, FileChooserK o) => o -> FileChooserAction -> m () -setFileChooserAction obj val = liftIO $ setObjectPropertyEnum obj "action" val - -constructFileChooserAction :: FileChooserAction -> IO ([Char], GValue) -constructFileChooserAction val = constructObjectPropertyEnum "action" val - -data FileChooserActionPropertyInfo -instance AttrInfo FileChooserActionPropertyInfo where - type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) FileChooserAction - type AttrBaseTypeConstraint FileChooserActionPropertyInfo = FileChooserK - type AttrGetType FileChooserActionPropertyInfo = FileChooserAction - type AttrLabel FileChooserActionPropertyInfo = "action" - attrGet _ = getFileChooserAction - attrSet _ = setFileChooserAction - attrConstruct _ = constructFileChooserAction - attrClear _ = undefined - --- VVV Prop "create-folders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders" - -setFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserCreateFolders obj val = liftIO $ setObjectPropertyBool obj "create-folders" val - -constructFileChooserCreateFolders :: Bool -> IO ([Char], GValue) -constructFileChooserCreateFolders val = constructObjectPropertyBool "create-folders" val - -data FileChooserCreateFoldersPropertyInfo -instance AttrInfo FileChooserCreateFoldersPropertyInfo where - type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = FileChooserK - type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool - type AttrLabel FileChooserCreateFoldersPropertyInfo = "create-folders" - attrGet _ = getFileChooserCreateFolders - attrSet _ = setFileChooserCreateFolders - attrConstruct _ = constructFileChooserCreateFolders - attrClear _ = undefined - --- VVV Prop "do-overwrite-confirmation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation" - -setFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserDoOverwriteConfirmation obj val = liftIO $ setObjectPropertyBool obj "do-overwrite-confirmation" val - -constructFileChooserDoOverwriteConfirmation :: Bool -> IO ([Char], GValue) -constructFileChooserDoOverwriteConfirmation val = constructObjectPropertyBool "do-overwrite-confirmation" val - -data FileChooserDoOverwriteConfirmationPropertyInfo -instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where - type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = FileChooserK - type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool - type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "do-overwrite-confirmation" - attrGet _ = getFileChooserDoOverwriteConfirmation - attrSet _ = setFileChooserDoOverwriteConfirmation - attrConstruct _ = constructFileChooserDoOverwriteConfirmation - attrClear _ = undefined - --- VVV Prop "extra-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserExtraWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserExtraWidget" $ getObjectPropertyObject obj "extra-widget" Widget - -setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" (Just val) - -constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" (Just val) - -data FileChooserExtraWidgetPropertyInfo -instance AttrInfo FileChooserExtraWidgetPropertyInfo where - type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = FileChooserK - type AttrGetType FileChooserExtraWidgetPropertyInfo = Widget - type AttrLabel FileChooserExtraWidgetPropertyInfo = "extra-widget" - attrGet _ = getFileChooserExtraWidget - attrSet _ = setFileChooserExtraWidget - attrConstruct _ = constructFileChooserExtraWidget - attrClear _ = undefined - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "FileFilter" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter -getFileChooserFilter obj = liftIO $ checkUnexpectedNothing "getFileChooserFilter" $ getObjectPropertyObject obj "filter" FileFilter - -setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () -setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) - -constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) -constructFileChooserFilter val = constructObjectPropertyObject "filter" (Just val) - -data FileChooserFilterPropertyInfo -instance AttrInfo FileChooserFilterPropertyInfo where - type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserFilterPropertyInfo = FileFilterK - type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = FileChooserK - type AttrGetType FileChooserFilterPropertyInfo = FileFilter - type AttrLabel FileChooserFilterPropertyInfo = "filter" - attrGet _ = getFileChooserFilter - attrSet _ = setFileChooserFilter - attrConstruct _ = constructFileChooserFilter - attrClear _ = undefined - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" - -setFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val - -constructFileChooserLocalOnly :: Bool -> IO ([Char], GValue) -constructFileChooserLocalOnly val = constructObjectPropertyBool "local-only" val - -data FileChooserLocalOnlyPropertyInfo -instance AttrInfo FileChooserLocalOnlyPropertyInfo where - type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = FileChooserK - type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool - type AttrLabel FileChooserLocalOnlyPropertyInfo = "local-only" - attrGet _ = getFileChooserLocalOnly - attrSet _ = setFileChooserLocalOnly - attrConstruct _ = constructFileChooserLocalOnly - attrClear _ = undefined - --- VVV Prop "preview-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserPreviewWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserPreviewWidget" $ getObjectPropertyObject obj "preview-widget" Widget - -setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" (Just val) - -constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" (Just val) - -data FileChooserPreviewWidgetPropertyInfo -instance AttrInfo FileChooserPreviewWidgetPropertyInfo where - type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = FileChooserK - type AttrGetType FileChooserPreviewWidgetPropertyInfo = Widget - type AttrLabel FileChooserPreviewWidgetPropertyInfo = "preview-widget" - attrGet _ = getFileChooserPreviewWidget - attrSet _ = setFileChooserPreviewWidget - attrConstruct _ = constructFileChooserPreviewWidget - attrClear _ = undefined - --- VVV Prop "preview-widget-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active" - -setFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserPreviewWidgetActive obj val = liftIO $ setObjectPropertyBool obj "preview-widget-active" val - -constructFileChooserPreviewWidgetActive :: Bool -> IO ([Char], GValue) -constructFileChooserPreviewWidgetActive val = constructObjectPropertyBool "preview-widget-active" val - -data FileChooserPreviewWidgetActivePropertyInfo -instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where - type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = FileChooserK - type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool - type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "preview-widget-active" - attrGet _ = getFileChooserPreviewWidgetActive - attrSet _ = setFileChooserPreviewWidgetActive - attrConstruct _ = constructFileChooserPreviewWidgetActive - attrClear _ = undefined - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" - -setFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserSelectMultiple obj val = liftIO $ setObjectPropertyBool obj "select-multiple" val - -constructFileChooserSelectMultiple :: Bool -> IO ([Char], GValue) -constructFileChooserSelectMultiple val = constructObjectPropertyBool "select-multiple" val - -data FileChooserSelectMultiplePropertyInfo -instance AttrInfo FileChooserSelectMultiplePropertyInfo where - type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = FileChooserK - type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool - type AttrLabel FileChooserSelectMultiplePropertyInfo = "select-multiple" - attrGet _ = getFileChooserSelectMultiple - attrSet _ = setFileChooserSelectMultiple - attrConstruct _ = constructFileChooserSelectMultiple - attrClear _ = undefined - --- VVV Prop "show-hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden" - -setFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserShowHidden obj val = liftIO $ setObjectPropertyBool obj "show-hidden" val - -constructFileChooserShowHidden :: Bool -> IO ([Char], GValue) -constructFileChooserShowHidden val = constructObjectPropertyBool "show-hidden" val - -data FileChooserShowHiddenPropertyInfo -instance AttrInfo FileChooserShowHiddenPropertyInfo where - type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = FileChooserK - type AttrGetType FileChooserShowHiddenPropertyInfo = Bool - type AttrLabel FileChooserShowHiddenPropertyInfo = "show-hidden" - attrGet _ = getFileChooserShowHidden - attrSet _ = setFileChooserShowHidden - attrConstruct _ = constructFileChooserShowHidden - attrClear _ = undefined - --- VVV Prop "use-preview-label" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label" - -setFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserUsePreviewLabel obj val = liftIO $ setObjectPropertyBool obj "use-preview-label" val - -constructFileChooserUsePreviewLabel :: Bool -> IO ([Char], GValue) -constructFileChooserUsePreviewLabel val = constructObjectPropertyBool "use-preview-label" val - -data FileChooserUsePreviewLabelPropertyInfo -instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where - type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = FileChooserK - type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool - type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "use-preview-label" - attrGet _ = getFileChooserUsePreviewLabel - attrSet _ = setFileChooserUsePreviewLabel - attrConstruct _ = constructFileChooserUsePreviewLabel - attrClear _ = undefined - -type instance AttributeList FileChooser = FileChooserAttributeList -type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -fileChooserAction :: AttrLabelProxy "action" -fileChooserAction = AttrLabelProxy - -fileChooserCreateFolders :: AttrLabelProxy "createFolders" -fileChooserCreateFolders = AttrLabelProxy - -fileChooserDoOverwriteConfirmation :: AttrLabelProxy "doOverwriteConfirmation" -fileChooserDoOverwriteConfirmation = AttrLabelProxy - -fileChooserExtraWidget :: AttrLabelProxy "extraWidget" -fileChooserExtraWidget = AttrLabelProxy - -fileChooserFilter :: AttrLabelProxy "filter" -fileChooserFilter = AttrLabelProxy - -fileChooserLocalOnly :: AttrLabelProxy "localOnly" -fileChooserLocalOnly = AttrLabelProxy - -fileChooserPreviewWidget :: AttrLabelProxy "previewWidget" -fileChooserPreviewWidget = AttrLabelProxy - -fileChooserPreviewWidgetActive :: AttrLabelProxy "previewWidgetActive" -fileChooserPreviewWidgetActive = AttrLabelProxy - -fileChooserSelectMultiple :: AttrLabelProxy "selectMultiple" -fileChooserSelectMultiple = AttrLabelProxy - -fileChooserShowHidden :: AttrLabelProxy "showHidden" -fileChooserShowHidden = AttrLabelProxy - -fileChooserUsePreviewLabel :: AttrLabelProxy "usePreviewLabel" -fileChooserUsePreviewLabel = AttrLabelProxy - -data FileChooserConfirmOverwriteSignalInfo -instance SignalInfo FileChooserConfirmOverwriteSignalInfo where - type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback - connectSignal _ = connectFileChooserConfirmOverwrite - -data FileChooserCurrentFolderChangedSignalInfo -instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where - type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback - connectSignal _ = connectFileChooserCurrentFolderChanged - -data FileChooserFileActivatedSignalInfo -instance SignalInfo FileChooserFileActivatedSignalInfo where - type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback - connectSignal _ = connectFileChooserFileActivated - -data FileChooserSelectionChangedSignalInfo -instance SignalInfo FileChooserSelectionChangedSignalInfo where - type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback - connectSignal _ = connectFileChooserSelectionChanged - -data FileChooserUpdatePreviewSignalInfo -instance SignalInfo FileChooserUpdatePreviewSignalInfo where - type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback - connectSignal _ = connectFileChooserUpdatePreview - -type instance SignalList FileChooser = FileChooserSignalList -type FileChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_file_chooser_get_type" - c_gtk_file_chooser_get_type :: IO GType - -type instance ParentTypes FileChooser = FileChooserParentTypes -type FileChooserParentTypes = '[Widget, GObject.Object] - -instance GObject FileChooser where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_chooser_get_type - - -class GObject o => FileChooserK o -instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o - -toFileChooser :: FileChooserK o => o -> IO FileChooser -toFileChooser = unsafeCastTo FileChooser - --- method FileChooser::add_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserAddFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -- _obj - -> b -- filter - -> m () -- result -fileChooserAddFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter' <- refObject filter - gtk_file_chooser_add_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - -data FileChooserAddFilterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserAddFilterMethodInfo a signature where - overloadedMethod _ = fileChooserAddFilter - --- method FileChooser::add_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- folder : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserAddShortcutFolder :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- folder - -> m () -- result -fileChooserAddShortcutFolder _obj folder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - folder' <- stringToCString folder - onException (do - _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder _obj' folder' - touchManagedPtr _obj - freeMem folder' - return () - ) (do - freeMem folder' - ) - -data FileChooserAddShortcutFolderMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserAddShortcutFolderMethodInfo a signature where - overloadedMethod _ = fileChooserAddShortcutFolder - --- method FileChooser::add_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserAddShortcutFolderUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -fileChooserAddShortcutFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data FileChooserAddShortcutFolderUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserAddShortcutFolderUriMethodInfo a signature where - overloadedMethod _ = fileChooserAddShortcutFolderUri - --- method FileChooser::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileChooserAction") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CUInt - - -fileChooserGetAction :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m FileChooserAction -- result -fileChooserGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_action _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FileChooserGetActionMethodInfo -instance (signature ~ (m FileChooserAction), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetActionMethodInfo a signature where - overloadedMethod _ = fileChooserGetAction - --- method FileChooser::get_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetCreateFolders :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetCreateFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_create_folders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetCreateFoldersMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCreateFoldersMethodInfo a signature where - overloadedMethod _ = fileChooserGetCreateFolders - --- method FileChooser::get_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentFolder :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [Char] -- result -fileChooserGetCurrentFolder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetCurrentFolderMethodInfo -instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderMethodInfo a signature where - overloadedMethod _ = fileChooserGetCurrentFolder - --- method FileChooser::get_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_folder_file" gtk_file_chooser_get_current_folder_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetCurrentFolderFile :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Gio.File -- result -fileChooserGetCurrentFolderFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - -data FileChooserGetCurrentFolderFileMethodInfo -instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderFileMethodInfo a signature where - overloadedMethod _ = fileChooserGetCurrentFolderFile - --- method FileChooser::get_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentFolderUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m T.Text -- result -fileChooserGetCurrentFolderUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetCurrentFolderUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderUriMethodInfo a signature where - overloadedMethod _ = fileChooserGetCurrentFolderUri - --- method FileChooser::get_current_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentName :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m T.Text -- result -fileChooserGetCurrentName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_name _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetCurrentNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentNameMethodInfo a signature where - overloadedMethod _ = fileChooserGetCurrentName - --- method FileChooser::get_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetDoOverwriteConfirmation :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetDoOverwriteConfirmation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_do_overwrite_confirmation _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetDoOverwriteConfirmationMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetDoOverwriteConfirmationMethodInfo a signature where - overloadedMethod _ = fileChooserGetDoOverwriteConfirmation - --- method FileChooser::get_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Widget) - - -fileChooserGetExtraWidget :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Widget -- result -fileChooserGetExtraWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_extra_widget _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_extra_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FileChooserGetExtraWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetExtraWidgetMethodInfo a signature where - overloadedMethod _ = fileChooserGetExtraWidget - --- method FileChooser::get_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetFile :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Gio.File -- result -fileChooserGetFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - -data FileChooserGetFileMethodInfo -instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFileMethodInfo a signature where - overloadedMethod _ = fileChooserGetFile - --- method FileChooser::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetFilename :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [Char] -- result -fileChooserGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filename _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filename" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetFilenameMethodInfo -instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilenameMethodInfo a signature where - overloadedMethod _ = fileChooserGetFilename - --- method FileChooser::get_filenames --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TFileName)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserGetFilenames :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [[Char]] -- result -fileChooserGetFilenames _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filenames _obj' - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserGetFilenamesMethodInfo -instance (signature ~ (m [[Char]]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilenamesMethodInfo a signature where - overloadedMethod _ = fileChooserGetFilenames - --- method FileChooser::get_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gio" "File")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList (Ptr Gio.File))) - - -fileChooserGetFiles :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [Gio.File] -- result -fileChooserGetFiles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_files _obj' - result' <- unpackGSList result - result'' <- mapM (wrapObject Gio.File) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserGetFilesMethodInfo -instance (signature ~ (m [Gio.File]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilesMethodInfo a signature where - overloadedMethod _ = fileChooserGetFiles - --- method FileChooser::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileFilter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr FileFilter) - - -fileChooserGetFilter :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m FileFilter -- result -fileChooserGetFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filter _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filter" result - result' <- (newObject FileFilter) result - touchManagedPtr _obj - return result' - -data FileChooserGetFilterMethodInfo -instance (signature ~ (m FileFilter), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilterMethodInfo a signature where - overloadedMethod _ = fileChooserGetFilter - --- method FileChooser::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetLocalOnly :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetLocalOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetLocalOnlyMethodInfo a signature where - overloadedMethod _ = fileChooserGetLocalOnly - --- method FileChooser::get_preview_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetPreviewFile :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Gio.File -- result -fileChooserGetPreviewFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - -data FileChooserGetPreviewFileMethodInfo -instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewFileMethodInfo a signature where - overloadedMethod _ = fileChooserGetPreviewFile - --- method FileChooser::get_preview_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetPreviewFilename :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [Char] -- result -fileChooserGetPreviewFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_filename _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_filename" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetPreviewFilenameMethodInfo -instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewFilenameMethodInfo a signature where - overloadedMethod _ = fileChooserGetPreviewFilename - --- method FileChooser::get_preview_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetPreviewUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m T.Text -- result -fileChooserGetPreviewUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetPreviewUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewUriMethodInfo a signature where - overloadedMethod _ = fileChooserGetPreviewUri - --- method FileChooser::get_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Widget) - - -fileChooserGetPreviewWidget :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Widget -- result -fileChooserGetPreviewWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_widget _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FileChooserGetPreviewWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewWidgetMethodInfo a signature where - overloadedMethod _ = fileChooserGetPreviewWidget - --- method FileChooser::get_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetPreviewWidgetActive :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetPreviewWidgetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_widget_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetPreviewWidgetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewWidgetActiveMethodInfo a signature where - overloadedMethod _ = fileChooserGetPreviewWidgetActive - --- method FileChooser::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetSelectMultiple :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetSelectMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetSelectMultipleMethodInfo a signature where - overloadedMethod _ = fileChooserGetSelectMultiple - --- method FileChooser::get_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetShowHidden :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetShowHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_show_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetShowHiddenMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetShowHiddenMethodInfo a signature where - overloadedMethod _ = fileChooserGetShowHidden - --- method FileChooser::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m T.Text -- result -fileChooserGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileChooserGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUriMethodInfo a signature where - overloadedMethod _ = fileChooserGetUri - --- method FileChooser::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserGetUris :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [T.Text] -- result -fileChooserGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_uris _obj' - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserGetUrisMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUrisMethodInfo a signature where - overloadedMethod _ = fileChooserGetUris - --- method FileChooser::get_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetUsePreviewLabel :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m Bool -- result -fileChooserGetUsePreviewLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_use_preview_label _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserGetUsePreviewLabelMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUsePreviewLabelMethodInfo a signature where - overloadedMethod _ = fileChooserGetUsePreviewLabel - --- method FileChooser::list_filters --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "FileFilter")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList (Ptr FileFilter))) - - -fileChooserListFilters :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [FileFilter] -- result -fileChooserListFilters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_filters _obj' - result' <- unpackGSList result - result'' <- mapM (newObject FileFilter) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserListFiltersMethodInfo -instance (signature ~ (m [FileFilter]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListFiltersMethodInfo a signature where - overloadedMethod _ = fileChooserListFilters - --- method FileChooser::list_shortcut_folder_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserListShortcutFolderUris :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [T.Text] -- result -fileChooserListShortcutFolderUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folder_uris _obj' - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserListShortcutFolderUrisMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListShortcutFolderUrisMethodInfo a signature where - overloadedMethod _ = fileChooserListShortcutFolderUris - --- method FileChooser::list_shortcut_folders --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TFileName)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserListShortcutFolders :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m [[Char]] -- result -fileChooserListShortcutFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folders _obj' - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - -data FileChooserListShortcutFoldersMethodInfo -instance (signature ~ (m [[Char]]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListShortcutFoldersMethodInfo a signature where - overloadedMethod _ = fileChooserListShortcutFolders - --- method FileChooser::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", 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 "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserRemoveFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -- _obj - -> b -- filter - -> m () -- result -fileChooserRemoveFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_file_chooser_remove_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - -data FileChooserRemoveFilterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserRemoveFilterMethodInfo a signature where - overloadedMethod _ = fileChooserRemoveFilter - --- method FileChooser::remove_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- folder : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserRemoveShortcutFolder :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- folder - -> m () -- result -fileChooserRemoveShortcutFolder _obj folder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - folder' <- stringToCString folder - onException (do - _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder _obj' folder' - touchManagedPtr _obj - freeMem folder' - return () - ) (do - freeMem folder' - ) - -data FileChooserRemoveShortcutFolderMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserRemoveShortcutFolderMethodInfo a signature where - overloadedMethod _ = fileChooserRemoveShortcutFolder - --- method FileChooser::remove_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserRemoveShortcutFolderUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -fileChooserRemoveShortcutFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data FileChooserRemoveShortcutFolderUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserRemoveShortcutFolderUriMethodInfo a signature where - overloadedMethod _ = fileChooserRemoveShortcutFolderUri - --- method FileChooser::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_select_all" gtk_file_chooser_select_all :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO () - - -fileChooserSelectAll :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m () -- result -fileChooserSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_select_all _obj' - touchManagedPtr _obj - return () - -data FileChooserSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectAllMethodInfo a signature where - overloadedMethod _ = fileChooserSelectAll - --- method FileChooser::select_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSelectFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -- _obj - -> b -- file - -> m () -- result -fileChooserSelectFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_select_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - -data FileChooserSelectFileMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSelectFileMethodInfo a signature where - overloadedMethod _ = fileChooserSelectFile - --- method FileChooser::select_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSelectFilename :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- filename - -> m Bool -- result -fileChooserSelectFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_select_filename _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - -data FileChooserSelectFilenameMethodInfo -instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectFilenameMethodInfo a signature where - overloadedMethod _ = fileChooserSelectFilename - --- method FileChooser::select_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSelectUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m Bool -- result -fileChooserSelectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_select_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - -data FileChooserSelectUriMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectUriMethodInfo a signature where - overloadedMethod _ = fileChooserSelectUri - --- method FileChooser::set_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", 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 "gtk_file_chooser_set_action" gtk_file_chooser_set_action :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CUInt -> -- action : TInterface "Gtk" "FileChooserAction" - IO () - - -fileChooserSetAction :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> FileChooserAction -- action - -> m () -- result -fileChooserSetAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = (fromIntegral . fromEnum) action - gtk_file_chooser_set_action _obj' action' - touchManagedPtr _obj - return () - -data FileChooserSetActionMethodInfo -instance (signature ~ (FileChooserAction -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetActionMethodInfo a signature where - overloadedMethod _ = fileChooserSetAction - --- method FileChooser::set_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_folders", 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 "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- create_folders : TBasicType TBoolean - IO () - - -fileChooserSetCreateFolders :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- createFolders - -> m () -- result -fileChooserSetCreateFolders _obj createFolders = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let createFolders' = (fromIntegral . fromEnum) createFolders - gtk_file_chooser_set_create_folders _obj' createFolders' - touchManagedPtr _obj - return () - -data FileChooserSetCreateFoldersMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCreateFoldersMethodInfo a signature where - overloadedMethod _ = fileChooserSetCreateFolders - --- method FileChooser::set_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSetCurrentFolder :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- filename - -> m Bool -- result -fileChooserSetCurrentFolder _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_set_current_folder _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - -data FileChooserSetCurrentFolderMethodInfo -instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentFolderMethodInfo a signature where - overloadedMethod _ = fileChooserSetCurrentFolder - --- method FileChooser::set_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSetCurrentFolderFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -- _obj - -> b -- file - -> m () -- result -fileChooserSetCurrentFolderFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_set_current_folder_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - -data FileChooserSetCurrentFolderFileMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSetCurrentFolderFileMethodInfo a signature where - overloadedMethod _ = fileChooserSetCurrentFolderFile - --- method FileChooser::set_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSetCurrentFolderUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m Bool -- result -fileChooserSetCurrentFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_set_current_folder_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - -data FileChooserSetCurrentFolderUriMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentFolderUriMethodInfo a signature where - overloadedMethod _ = fileChooserSetCurrentFolderUri - --- method FileChooser::set_current_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, 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 "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- name : TBasicType TFileName - IO () - - -fileChooserSetCurrentName :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- name - -> m () -- result -fileChooserSetCurrentName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- stringToCString name - gtk_file_chooser_set_current_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data FileChooserSetCurrentNameMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentNameMethodInfo a signature where - overloadedMethod _ = fileChooserSetCurrentName - --- method FileChooser::set_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_overwrite_confirmation", 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 "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- do_overwrite_confirmation : TBasicType TBoolean - IO () - - -fileChooserSetDoOverwriteConfirmation :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- doOverwriteConfirmation - -> m () -- result -fileChooserSetDoOverwriteConfirmation _obj doOverwriteConfirmation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let doOverwriteConfirmation' = (fromIntegral . fromEnum) doOverwriteConfirmation - gtk_file_chooser_set_do_overwrite_confirmation _obj' doOverwriteConfirmation' - touchManagedPtr _obj - return () - -data FileChooserSetDoOverwriteConfirmationMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetDoOverwriteConfirmationMethodInfo a signature where - overloadedMethod _ = fileChooserSetDoOverwriteConfirmation - --- method FileChooser::set_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_widget", argType = TInterface "Gtk" "Widget", 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 "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Widget -> -- extra_widget : TInterface "Gtk" "Widget" - IO () - - -fileChooserSetExtraWidget :: - (MonadIO m, FileChooserK a, WidgetK b) => - a -- _obj - -> b -- extraWidget - -> m () -- result -fileChooserSetExtraWidget _obj extraWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let extraWidget' = unsafeManagedPtrCastPtr extraWidget - gtk_file_chooser_set_extra_widget _obj' extraWidget' - touchManagedPtr _obj - touchManagedPtr extraWidget - return () - -data FileChooserSetExtraWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, WidgetK b) => MethodInfo FileChooserSetExtraWidgetMethodInfo a signature where - overloadedMethod _ = fileChooserSetExtraWidget - --- method FileChooser::set_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSetFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -- _obj - -> b -- file - -> m () -- result -fileChooserSetFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_set_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - -data FileChooserSetFileMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSetFileMethodInfo a signature where - overloadedMethod _ = fileChooserSetFile - --- method FileChooser::set_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSetFilename :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- filename - -> m Bool -- result -fileChooserSetFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_set_filename _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - -data FileChooserSetFilenameMethodInfo -instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetFilenameMethodInfo a signature where - overloadedMethod _ = fileChooserSetFilename - --- method FileChooser::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", 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 "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserSetFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -- _obj - -> b -- filter - -> m () -- result -fileChooserSetFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_file_chooser_set_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - -data FileChooserSetFilterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserSetFilterMethodInfo a signature where - overloadedMethod _ = fileChooserSetFilter - --- method FileChooser::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", 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 "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- local_only : TBasicType TBoolean - IO () - - -fileChooserSetLocalOnly :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- localOnly - -> m () -- result -fileChooserSetLocalOnly _obj localOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let localOnly' = (fromIntegral . fromEnum) localOnly - gtk_file_chooser_set_local_only _obj' localOnly' - touchManagedPtr _obj - return () - -data FileChooserSetLocalOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetLocalOnlyMethodInfo a signature where - overloadedMethod _ = fileChooserSetLocalOnly - --- method FileChooser::set_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preview_widget", argType = TInterface "Gtk" "Widget", 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 "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Widget -> -- preview_widget : TInterface "Gtk" "Widget" - IO () - - -fileChooserSetPreviewWidget :: - (MonadIO m, FileChooserK a, WidgetK b) => - a -- _obj - -> b -- previewWidget - -> m () -- result -fileChooserSetPreviewWidget _obj previewWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let previewWidget' = unsafeManagedPtrCastPtr previewWidget - gtk_file_chooser_set_preview_widget _obj' previewWidget' - touchManagedPtr _obj - touchManagedPtr previewWidget - return () - -data FileChooserSetPreviewWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, WidgetK b) => MethodInfo FileChooserSetPreviewWidgetMethodInfo a signature where - overloadedMethod _ = fileChooserSetPreviewWidget - --- method FileChooser::set_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", 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 "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- active : TBasicType TBoolean - IO () - - -fileChooserSetPreviewWidgetActive :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- active - -> m () -- result -fileChooserSetPreviewWidgetActive _obj active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let active' = (fromIntegral . fromEnum) active - gtk_file_chooser_set_preview_widget_active _obj' active' - touchManagedPtr _obj - return () - -data FileChooserSetPreviewWidgetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetPreviewWidgetActiveMethodInfo a signature where - overloadedMethod _ = fileChooserSetPreviewWidgetActive - --- method FileChooser::set_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", 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 "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- select_multiple : TBasicType TBoolean - IO () - - -fileChooserSetSelectMultiple :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- selectMultiple - -> m () -- result -fileChooserSetSelectMultiple _obj selectMultiple = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selectMultiple' = (fromIntegral . fromEnum) selectMultiple - gtk_file_chooser_set_select_multiple _obj' selectMultiple' - touchManagedPtr _obj - return () - -data FileChooserSetSelectMultipleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetSelectMultipleMethodInfo a signature where - overloadedMethod _ = fileChooserSetSelectMultiple - --- method FileChooser::set_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_hidden", 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 "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- show_hidden : TBasicType TBoolean - IO () - - -fileChooserSetShowHidden :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- showHidden - -> m () -- result -fileChooserSetShowHidden _obj showHidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showHidden' = (fromIntegral . fromEnum) showHidden - gtk_file_chooser_set_show_hidden _obj' showHidden' - touchManagedPtr _obj - return () - -data FileChooserSetShowHiddenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetShowHiddenMethodInfo a signature where - overloadedMethod _ = fileChooserSetShowHidden - --- method FileChooser::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSetUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m Bool -- result -fileChooserSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_set_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - -data FileChooserSetUriMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetUriMethodInfo a signature where - overloadedMethod _ = fileChooserSetUri - --- method FileChooser::set_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_label", 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 "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- use_label : TBasicType TBoolean - IO () - - -fileChooserSetUsePreviewLabel :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> Bool -- useLabel - -> m () -- result -fileChooserSetUsePreviewLabel _obj useLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useLabel' = (fromIntegral . fromEnum) useLabel - gtk_file_chooser_set_use_preview_label _obj' useLabel' - touchManagedPtr _obj - return () - -data FileChooserSetUsePreviewLabelMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetUsePreviewLabelMethodInfo a signature where - overloadedMethod _ = fileChooserSetUsePreviewLabel - --- method FileChooser::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", 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 "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO () - - -fileChooserUnselectAll :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> m () -- result -fileChooserUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_unselect_all _obj' - touchManagedPtr _obj - return () - -data FileChooserUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectAllMethodInfo a signature where - overloadedMethod _ = fileChooserUnselectAll - --- method FileChooser::unselect_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", 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 "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - IO () - - -fileChooserUnselectFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -- _obj - -> b -- file - -> m () -- result -fileChooserUnselectFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - gtk_file_chooser_unselect_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - -data FileChooserUnselectFileMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserUnselectFileMethodInfo a signature where - overloadedMethod _ = fileChooserUnselectFile - --- method FileChooser::unselect_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO () - - -fileChooserUnselectFilename :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> [Char] -- filename - -> m () -- result -fileChooserUnselectFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - gtk_file_chooser_unselect_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - -data FileChooserUnselectFilenameMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectFilenameMethodInfo a signature where - overloadedMethod _ = fileChooserUnselectFilename - --- method FileChooser::unselect_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO () - - -fileChooserUnselectUri :: - (MonadIO m, FileChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -fileChooserUnselectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_file_chooser_unselect_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data FileChooserUnselectUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectUriMethodInfo a signature where - overloadedMethod _ = fileChooserUnselectUri - - diff --git a/GI/Gtk/Interfaces/FileChooser.hs-boot b/GI/Gtk/Interfaces/FileChooser.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/FileChooser.hs-boot +++ /dev/null @@ -1,88 +0,0 @@ -module GI.Gtk.Interfaces.FileChooser 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 FileChooser = FileChooser (ForeignPtr FileChooser) -data FileChooserActionPropertyInfo -data FileChooserCreateFoldersPropertyInfo -data FileChooserDoOverwriteConfirmationPropertyInfo -data FileChooserExtraWidgetPropertyInfo -data FileChooserFilterPropertyInfo -data FileChooserLocalOnlyPropertyInfo -data FileChooserPreviewWidgetPropertyInfo -data FileChooserPreviewWidgetActivePropertyInfo -data FileChooserSelectMultiplePropertyInfo -data FileChooserShowHiddenPropertyInfo -data FileChooserUsePreviewLabelPropertyInfo -data FileChooserConfirmOverwriteSignalInfo -data FileChooserCurrentFolderChangedSignalInfo -data FileChooserFileActivatedSignalInfo -data FileChooserSelectionChangedSignalInfo -data FileChooserUpdatePreviewSignalInfo -instance GObject FileChooser where -class GObject o => FileChooserK o -instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o -data FileChooserAddFilterMethodInfo -data FileChooserAddShortcutFolderMethodInfo -data FileChooserAddShortcutFolderUriMethodInfo -data FileChooserGetActionMethodInfo -data FileChooserGetCreateFoldersMethodInfo -data FileChooserGetCurrentFolderMethodInfo -data FileChooserGetCurrentFolderFileMethodInfo -data FileChooserGetCurrentFolderUriMethodInfo -data FileChooserGetCurrentNameMethodInfo -data FileChooserGetDoOverwriteConfirmationMethodInfo -data FileChooserGetExtraWidgetMethodInfo -data FileChooserGetFileMethodInfo -data FileChooserGetFilenameMethodInfo -data FileChooserGetFilenamesMethodInfo -data FileChooserGetFilesMethodInfo -data FileChooserGetFilterMethodInfo -data FileChooserGetLocalOnlyMethodInfo -data FileChooserGetPreviewFileMethodInfo -data FileChooserGetPreviewFilenameMethodInfo -data FileChooserGetPreviewUriMethodInfo -data FileChooserGetPreviewWidgetMethodInfo -data FileChooserGetPreviewWidgetActiveMethodInfo -data FileChooserGetSelectMultipleMethodInfo -data FileChooserGetShowHiddenMethodInfo -data FileChooserGetUriMethodInfo -data FileChooserGetUrisMethodInfo -data FileChooserGetUsePreviewLabelMethodInfo -data FileChooserListFiltersMethodInfo -data FileChooserListShortcutFolderUrisMethodInfo -data FileChooserListShortcutFoldersMethodInfo -data FileChooserRemoveFilterMethodInfo -data FileChooserRemoveShortcutFolderMethodInfo -data FileChooserRemoveShortcutFolderUriMethodInfo -data FileChooserSelectAllMethodInfo -data FileChooserSelectFileMethodInfo -data FileChooserSelectFilenameMethodInfo -data FileChooserSelectUriMethodInfo -data FileChooserSetActionMethodInfo -data FileChooserSetCreateFoldersMethodInfo -data FileChooserSetCurrentFolderMethodInfo -data FileChooserSetCurrentFolderFileMethodInfo -data FileChooserSetCurrentFolderUriMethodInfo -data FileChooserSetCurrentNameMethodInfo -data FileChooserSetDoOverwriteConfirmationMethodInfo -data FileChooserSetExtraWidgetMethodInfo -data FileChooserSetFileMethodInfo -data FileChooserSetFilenameMethodInfo -data FileChooserSetFilterMethodInfo -data FileChooserSetLocalOnlyMethodInfo -data FileChooserSetPreviewWidgetMethodInfo -data FileChooserSetPreviewWidgetActiveMethodInfo -data FileChooserSetSelectMultipleMethodInfo -data FileChooserSetShowHiddenMethodInfo -data FileChooserSetUriMethodInfo -data FileChooserSetUsePreviewLabelMethodInfo -data FileChooserUnselectAllMethodInfo -data FileChooserUnselectFileMethodInfo -data FileChooserUnselectFilenameMethodInfo -data FileChooserUnselectUriMethodInfo diff --git a/GI/Gtk/Interfaces/FontChooser.hs b/GI/Gtk/Interfaces/FontChooser.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/FontChooser.hs +++ /dev/null @@ -1,823 +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.Gtk.Interfaces.FontChooser - ( - --- * Exported types - FontChooser(..) , - noFontChooser , - FontChooserK , - toFontChooser , - - - -- * Methods --- ** fontChooserGetFont - FontChooserGetFontMethodInfo , - fontChooserGetFont , - - --- ** fontChooserGetFontDesc - FontChooserGetFontDescMethodInfo , - fontChooserGetFontDesc , - - --- ** fontChooserGetFontFace - FontChooserGetFontFaceMethodInfo , - fontChooserGetFontFace , - - --- ** fontChooserGetFontFamily - FontChooserGetFontFamilyMethodInfo , - fontChooserGetFontFamily , - - --- ** fontChooserGetFontMap - FontChooserGetFontMapMethodInfo , - fontChooserGetFontMap , - - --- ** fontChooserGetFontSize - FontChooserGetFontSizeMethodInfo , - fontChooserGetFontSize , - - --- ** fontChooserGetPreviewText - FontChooserGetPreviewTextMethodInfo , - fontChooserGetPreviewText , - - --- ** fontChooserGetShowPreviewEntry - FontChooserGetShowPreviewEntryMethodInfo, - fontChooserGetShowPreviewEntry , - - --- ** fontChooserSetFilterFunc - FontChooserSetFilterFuncMethodInfo , - fontChooserSetFilterFunc , - - --- ** fontChooserSetFont - FontChooserSetFontMethodInfo , - fontChooserSetFont , - - --- ** fontChooserSetFontDesc - FontChooserSetFontDescMethodInfo , - fontChooserSetFontDesc , - - --- ** fontChooserSetFontMap - FontChooserSetFontMapMethodInfo , - fontChooserSetFontMap , - - --- ** fontChooserSetPreviewText - FontChooserSetPreviewTextMethodInfo , - fontChooserSetPreviewText , - - --- ** fontChooserSetShowPreviewEntry - FontChooserSetShowPreviewEntryMethodInfo, - fontChooserSetShowPreviewEntry , - - - - - -- * Properties --- ** Font - FontChooserFontPropertyInfo , - constructFontChooserFont , - fontChooserFont , - getFontChooserFont , - setFontChooserFont , - - --- ** FontDesc - FontChooserFontDescPropertyInfo , - constructFontChooserFontDesc , - fontChooserFontDesc , - getFontChooserFontDesc , - setFontChooserFontDesc , - - --- ** PreviewText - FontChooserPreviewTextPropertyInfo , - constructFontChooserPreviewText , - fontChooserPreviewText , - getFontChooserPreviewText , - setFontChooserPreviewText , - - --- ** ShowPreviewEntry - FontChooserShowPreviewEntryPropertyInfo , - constructFontChooserShowPreviewEntry , - fontChooserShowPreviewEntry , - getFontChooserShowPreviewEntry , - setFontChooserShowPreviewEntry , - - - - - -- * Signals --- ** FontActivated - FontChooserFontActivatedCallback , - FontChooserFontActivatedCallbackC , - FontChooserFontActivatedSignalInfo , - afterFontChooserFontActivated , - fontChooserFontActivatedCallbackWrapper , - fontChooserFontActivatedClosure , - mkFontChooserFontActivatedCallback , - noFontChooserFontActivatedCallback , - onFontChooserFontActivated , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - --- interface FontChooser - -newtype FontChooser = FontChooser (ForeignPtr FontChooser) -noFontChooser :: Maybe FontChooser -noFontChooser = Nothing - -type family ResolveFontChooserMethod (t :: Symbol) (o :: *) :: * where - ResolveFontChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontChooserMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontChooserMethod "getFont" o = FontChooserGetFontMethodInfo - ResolveFontChooserMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo - ResolveFontChooserMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo - ResolveFontChooserMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo - ResolveFontChooserMethod "getFontMap" o = FontChooserGetFontMapMethodInfo - ResolveFontChooserMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo - ResolveFontChooserMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo - ResolveFontChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontChooserMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo - ResolveFontChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontChooserMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo - ResolveFontChooserMethod "setFont" o = FontChooserSetFontMethodInfo - ResolveFontChooserMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo - ResolveFontChooserMethod "setFontMap" o = FontChooserSetFontMapMethodInfo - ResolveFontChooserMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo - ResolveFontChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontChooserMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo - ResolveFontChooserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabelProxy t (FontChooser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabel t (FontChooser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FontChooser::font-activated -type FontChooserFontActivatedCallback = - T.Text -> - IO () - -noFontChooserFontActivatedCallback :: Maybe FontChooserFontActivatedCallback -noFontChooserFontActivatedCallback = Nothing - -type FontChooserFontActivatedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFontChooserFontActivatedCallback :: FontChooserFontActivatedCallbackC -> IO (FunPtr FontChooserFontActivatedCallbackC) - -fontChooserFontActivatedClosure :: FontChooserFontActivatedCallback -> IO Closure -fontChooserFontActivatedClosure cb = newCClosure =<< mkFontChooserFontActivatedCallback wrapped - where wrapped = fontChooserFontActivatedCallbackWrapper cb - -fontChooserFontActivatedCallbackWrapper :: - FontChooserFontActivatedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -fontChooserFontActivatedCallbackWrapper _cb _ fontname _ = do - fontname' <- cstringToText fontname - _cb fontname' - -onFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId -onFontChooserFontActivated obj cb = liftIO $ connectFontChooserFontActivated obj cb SignalConnectBefore -afterFontChooserFontActivated :: (GObject a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId -afterFontChooserFontActivated obj cb = connectFontChooserFontActivated obj cb SignalConnectAfter - -connectFontChooserFontActivated :: (GObject a, MonadIO m) => - a -> FontChooserFontActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectFontChooserFontActivated obj cb after = liftIO $ do - cb' <- mkFontChooserFontActivatedCallback (fontChooserFontActivatedCallbackWrapper cb) - connectSignalFunPtr obj "font-activated" cb' after - --- VVV Prop "font" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) -getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" - -setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () -setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) - -constructFontChooserFont :: T.Text -> IO ([Char], GValue) -constructFontChooserFont val = constructObjectPropertyString "font" (Just val) - -data FontChooserFontPropertyInfo -instance AttrInfo FontChooserFontPropertyInfo where - type AttrAllowedOps FontChooserFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontChooserFontPropertyInfo = FontChooserK - type AttrGetType FontChooserFontPropertyInfo = (Maybe T.Text) - type AttrLabel FontChooserFontPropertyInfo = "font" - attrGet _ = getFontChooserFont - attrSet _ = setFontChooserFont - attrConstruct _ = constructFontChooserFont - attrClear _ = undefined - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m (Maybe Pango.FontDescription) -getFontChooserFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription - -setFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> Pango.FontDescription -> m () -setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) - -constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) - -data FontChooserFontDescPropertyInfo -instance AttrInfo FontChooserFontDescPropertyInfo where - type AttrAllowedOps FontChooserFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription - type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = FontChooserK - type AttrGetType FontChooserFontDescPropertyInfo = (Maybe Pango.FontDescription) - type AttrLabel FontChooserFontDescPropertyInfo = "font-desc" - attrGet _ = getFontChooserFontDesc - attrSet _ = setFontChooserFontDesc - attrConstruct _ = constructFontChooserFontDesc - attrClear _ = undefined - --- VVV Prop "preview-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) -getFontChooserPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" - -setFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () -setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) - -constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue) -constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" (Just val) - -data FontChooserPreviewTextPropertyInfo -instance AttrInfo FontChooserPreviewTextPropertyInfo where - type AttrAllowedOps FontChooserPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = FontChooserK - type AttrGetType FontChooserPreviewTextPropertyInfo = (Maybe T.Text) - type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text" - attrGet _ = getFontChooserPreviewText - attrSet _ = setFontChooserPreviewText - attrConstruct _ = constructFontChooserPreviewText - attrClear _ = undefined - --- VVV Prop "show-preview-entry" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> m Bool -getFontChooserShowPreviewEntry obj = liftIO $ getObjectPropertyBool obj "show-preview-entry" - -setFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> Bool -> m () -setFontChooserShowPreviewEntry obj val = liftIO $ setObjectPropertyBool obj "show-preview-entry" val - -constructFontChooserShowPreviewEntry :: Bool -> IO ([Char], GValue) -constructFontChooserShowPreviewEntry val = constructObjectPropertyBool "show-preview-entry" val - -data FontChooserShowPreviewEntryPropertyInfo -instance AttrInfo FontChooserShowPreviewEntryPropertyInfo where - type AttrAllowedOps FontChooserShowPreviewEntryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontChooserShowPreviewEntryPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FontChooserShowPreviewEntryPropertyInfo = FontChooserK - type AttrGetType FontChooserShowPreviewEntryPropertyInfo = Bool - type AttrLabel FontChooserShowPreviewEntryPropertyInfo = "show-preview-entry" - attrGet _ = getFontChooserShowPreviewEntry - attrSet _ = setFontChooserShowPreviewEntry - attrConstruct _ = constructFontChooserShowPreviewEntry - attrClear _ = undefined - -type instance AttributeList FontChooser = FontChooserAttributeList -type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) - -fontChooserFont :: AttrLabelProxy "font" -fontChooserFont = AttrLabelProxy - -fontChooserFontDesc :: AttrLabelProxy "fontDesc" -fontChooserFontDesc = AttrLabelProxy - -fontChooserPreviewText :: AttrLabelProxy "previewText" -fontChooserPreviewText = AttrLabelProxy - -fontChooserShowPreviewEntry :: AttrLabelProxy "showPreviewEntry" -fontChooserShowPreviewEntry = AttrLabelProxy - -data FontChooserFontActivatedSignalInfo -instance SignalInfo FontChooserFontActivatedSignalInfo where - type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback - connectSignal _ = connectFontChooserFontActivated - -type instance SignalList FontChooser = FontChooserSignalList -type FontChooserSignalList = ('[ '("fontActivated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_font_chooser_get_type" - c_gtk_font_chooser_get_type :: IO GType - -type instance ParentTypes FontChooser = FontChooserParentTypes -type FontChooserParentTypes = '[GObject.Object] - -instance GObject FontChooser where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_font_chooser_get_type - - -class GObject o => FontChooserK o -instance (GObject o, IsDescendantOf FontChooser o) => FontChooserK o - -toFontChooser :: FontChooserK o => o -> IO FontChooser -toFontChooser = unsafeCastTo FontChooser - --- method FontChooser::get_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", 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 "gtk_font_chooser_get_font" gtk_font_chooser_get_font :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO CString - - -fontChooserGetFont :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m T.Text -- result -fontChooserGetFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_font" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FontChooserGetFontMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMethodInfo a signature where - overloadedMethod _ = fontChooserGetFont - --- method FontChooser::get_font_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontDescription") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_get_font_desc" gtk_font_chooser_get_font_desc :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO (Ptr Pango.FontDescription) - - -fontChooserGetFontDesc :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Pango.FontDescription -- result -fontChooserGetFontDesc _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_desc _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_font_desc" result - result' <- (wrapBoxed Pango.FontDescription) result - touchManagedPtr _obj - return result' - -data FontChooserGetFontDescMethodInfo -instance (signature ~ (m Pango.FontDescription), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontDescMethodInfo a signature where - overloadedMethod _ = fontChooserGetFontDesc - --- method FontChooser::get_font_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontFace") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_get_font_face" gtk_font_chooser_get_font_face :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO (Ptr Pango.FontFace) - - -fontChooserGetFontFace :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Pango.FontFace -- result -fontChooserGetFontFace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_face _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_font_face" result - result' <- (newObject Pango.FontFace) result - touchManagedPtr _obj - return result' - -data FontChooserGetFontFaceMethodInfo -instance (signature ~ (m Pango.FontFace), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFaceMethodInfo a signature where - overloadedMethod _ = fontChooserGetFontFace - --- method FontChooser::get_font_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontFamily") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_get_font_family" gtk_font_chooser_get_font_family :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO (Ptr Pango.FontFamily) - - -fontChooserGetFontFamily :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Pango.FontFamily -- result -fontChooserGetFontFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_family _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_font_family" result - result' <- (newObject Pango.FontFamily) result - touchManagedPtr _obj - return result' - -data FontChooserGetFontFamilyMethodInfo -instance (signature ~ (m Pango.FontFamily), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFamilyMethodInfo a signature where - overloadedMethod _ = fontChooserGetFontFamily - --- method FontChooser::get_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontMap") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_get_font_map" gtk_font_chooser_get_font_map :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO (Ptr Pango.FontMap) - - -fontChooserGetFontMap :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Pango.FontMap -- result -fontChooserGetFontMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_map _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_font_map" result - result' <- (wrapObject Pango.FontMap) result - touchManagedPtr _obj - return result' - -data FontChooserGetFontMapMethodInfo -instance (signature ~ (m Pango.FontMap), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMapMethodInfo a signature where - overloadedMethod _ = fontChooserGetFontMap - --- method FontChooser::get_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", 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 "gtk_font_chooser_get_font_size" gtk_font_chooser_get_font_size :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO Int32 - - -fontChooserGetFontSize :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Int32 -- result -fontChooserGetFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_size _obj' - touchManagedPtr _obj - return result - -data FontChooserGetFontSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontSizeMethodInfo a signature where - overloadedMethod _ = fontChooserGetFontSize - --- method FontChooser::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", 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 "gtk_font_chooser_get_preview_text" gtk_font_chooser_get_preview_text :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO CString - - -fontChooserGetPreviewText :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m T.Text -- result -fontChooserGetPreviewText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_preview_text _obj' - checkUnexpectedReturnNULL "gtk_font_chooser_get_preview_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FontChooserGetPreviewTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontChooserGetPreviewText - --- method FontChooser::get_show_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", 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 "gtk_font_chooser_get_show_preview_entry" gtk_font_chooser_get_show_preview_entry :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - IO CInt - - -fontChooserGetShowPreviewEntry :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> m Bool -- result -fontChooserGetShowPreviewEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_show_preview_entry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontChooserGetShowPreviewEntryMethodInfo -instance (signature ~ (m Bool), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetShowPreviewEntryMethodInfo a signature where - overloadedMethod _ = fontChooserGetShowPreviewEntry - --- method FontChooser::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - FunPtr FontFilterFuncC -> -- filter : TInterface "Gtk" "FontFilterFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -fontChooserSetFilterFunc :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> Maybe (FontFilterFunc) -- filter - -> m () -- result -fontChooserSetFilterFunc _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter <- case filter of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilter -> do - jFilter' <- mkFontFilterFunc (fontFilterFuncWrapper Nothing jFilter) - return jFilter' - let userData = castFunPtrToPtr maybeFilter - let destroy = safeFreeFunPtrPtr - gtk_font_chooser_set_filter_func _obj' maybeFilter userData destroy - touchManagedPtr _obj - return () - -data FontChooserSetFilterFuncMethodInfo -instance (signature ~ (Maybe (FontFilterFunc) -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFilterFuncMethodInfo a signature where - overloadedMethod _ = fontChooserSetFilterFunc - --- method FontChooser::set_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", 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 "gtk_font_chooser_set_font" gtk_font_chooser_set_font :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - CString -> -- fontname : TBasicType TUTF8 - IO () - - -fontChooserSetFont :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> T.Text -- fontname - -> m () -- result -fontChooserSetFont _obj fontname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fontname' <- textToCString fontname - gtk_font_chooser_set_font _obj' fontname' - touchManagedPtr _obj - freeMem fontname' - return () - -data FontChooserSetFontMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontMethodInfo a signature where - overloadedMethod _ = fontChooserSetFont - --- method FontChooser::set_font_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", 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 "gtk_font_chooser_set_font_desc" gtk_font_chooser_set_font_desc :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - - -fontChooserSetFontDesc :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> Pango.FontDescription -- fontDesc - -> m () -- result -fontChooserSetFontDesc _obj fontDesc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fontDesc' = unsafeManagedPtrGetPtr fontDesc - gtk_font_chooser_set_font_desc _obj' fontDesc' - touchManagedPtr _obj - touchManagedPtr fontDesc - return () - -data FontChooserSetFontDescMethodInfo -instance (signature ~ (Pango.FontDescription -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontDescMethodInfo a signature where - overloadedMethod _ = fontChooserSetFontDesc - --- method FontChooser::set_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_set_font_map" gtk_font_chooser_set_font_map :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - Ptr Pango.FontMap -> -- fontmap : TInterface "Pango" "FontMap" - IO () - - -fontChooserSetFontMap :: - (MonadIO m, FontChooserK a, Pango.FontMapK b) => - a -- _obj - -> Maybe (b) -- fontmap - -> m () -- result -fontChooserSetFontMap _obj fontmap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontmap <- case fontmap of - Nothing -> return nullPtr - Just jFontmap -> do - let jFontmap' = unsafeManagedPtrCastPtr jFontmap - return jFontmap' - gtk_font_chooser_set_font_map _obj' maybeFontmap - touchManagedPtr _obj - whenJust fontmap touchManagedPtr - return () - -data FontChooserSetFontMapMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FontChooserK a, Pango.FontMapK b) => MethodInfo FontChooserSetFontMapMethodInfo a signature where - overloadedMethod _ = fontChooserSetFontMap - --- method FontChooser::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_font_chooser_set_preview_text" gtk_font_chooser_set_preview_text :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - CString -> -- text : TBasicType TUTF8 - IO () - - -fontChooserSetPreviewText :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -fontChooserSetPreviewText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_font_chooser_set_preview_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data FontChooserSetPreviewTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontChooserSetPreviewText - --- method FontChooser::set_show_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", 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 "gtk_font_chooser_set_show_preview_entry" gtk_font_chooser_set_show_preview_entry :: - Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" - CInt -> -- show_preview_entry : TBasicType TBoolean - IO () - - -fontChooserSetShowPreviewEntry :: - (MonadIO m, FontChooserK a) => - a -- _obj - -> Bool -- showPreviewEntry - -> m () -- result -fontChooserSetShowPreviewEntry _obj showPreviewEntry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showPreviewEntry' = (fromIntegral . fromEnum) showPreviewEntry - gtk_font_chooser_set_show_preview_entry _obj' showPreviewEntry' - touchManagedPtr _obj - return () - -data FontChooserSetShowPreviewEntryMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetShowPreviewEntryMethodInfo a signature where - overloadedMethod _ = fontChooserSetShowPreviewEntry - - diff --git a/GI/Gtk/Interfaces/FontChooser.hs-boot b/GI/Gtk/Interfaces/FontChooser.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/FontChooser.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Interfaces.FontChooser 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 FontChooser = FontChooser (ForeignPtr FontChooser) -data FontChooserFontPropertyInfo -data FontChooserFontDescPropertyInfo -data FontChooserPreviewTextPropertyInfo -data FontChooserShowPreviewEntryPropertyInfo -data FontChooserFontActivatedSignalInfo -instance GObject FontChooser where -class GObject o => FontChooserK o -instance (GObject o, IsDescendantOf FontChooser o) => FontChooserK o -data FontChooserGetFontMethodInfo -data FontChooserGetFontDescMethodInfo -data FontChooserGetFontFaceMethodInfo -data FontChooserGetFontFamilyMethodInfo -data FontChooserGetFontMapMethodInfo -data FontChooserGetFontSizeMethodInfo -data FontChooserGetPreviewTextMethodInfo -data FontChooserGetShowPreviewEntryMethodInfo -data FontChooserSetFilterFuncMethodInfo -data FontChooserSetFontMethodInfo -data FontChooserSetFontDescMethodInfo -data FontChooserSetFontMapMethodInfo -data FontChooserSetPreviewTextMethodInfo -data FontChooserSetShowPreviewEntryMethodInfo diff --git a/GI/Gtk/Interfaces/Orientable.hs b/GI/Gtk/Interfaces/Orientable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Orientable.hs +++ /dev/null @@ -1,207 +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.Gtk.Interfaces.Orientable - ( - --- * Exported types - Orientable(..) , - noOrientable , - OrientableK , - toOrientable , - - - -- * Methods --- ** orientableGetOrientation - OrientableGetOrientationMethodInfo , - orientableGetOrientation , - - --- ** orientableSetOrientation - OrientableSetOrientationMethodInfo , - orientableSetOrientation , - - - - - -- * Properties --- ** Orientation - OrientableOrientationPropertyInfo , - constructOrientableOrientation , - getOrientableOrientation , - orientableOrientation , - setOrientableOrientation , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Orientable - -newtype Orientable = Orientable (ForeignPtr Orientable) -noOrientable :: Maybe Orientable -noOrientable = Nothing - -type family ResolveOrientableMethod (t :: Symbol) (o :: *) :: * where - ResolveOrientableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveOrientableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveOrientableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveOrientableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveOrientableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveOrientableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveOrientableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveOrientableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveOrientableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveOrientableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveOrientableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveOrientableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveOrientableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveOrientableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveOrientableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveOrientableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveOrientableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveOrientableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveOrientableMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveOrientableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveOrientableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveOrientableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveOrientableMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveOrientableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveOrientableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOrientableMethod t Orientable, MethodInfo info Orientable p) => IsLabelProxy t (Orientable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOrientableMethod t Orientable, MethodInfo info Orientable p) => IsLabel t (Orientable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getOrientableOrientation :: (MonadIO m, OrientableK o) => o -> m Orientation -getOrientableOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" - -setOrientableOrientation :: (MonadIO m, OrientableK o) => o -> Orientation -> m () -setOrientableOrientation obj val = liftIO $ setObjectPropertyEnum obj "orientation" val - -constructOrientableOrientation :: Orientation -> IO ([Char], GValue) -constructOrientableOrientation val = constructObjectPropertyEnum "orientation" val - -data OrientableOrientationPropertyInfo -instance AttrInfo OrientableOrientationPropertyInfo where - type AttrAllowedOps OrientableOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint OrientableOrientationPropertyInfo = (~) Orientation - type AttrBaseTypeConstraint OrientableOrientationPropertyInfo = OrientableK - type AttrGetType OrientableOrientationPropertyInfo = Orientation - type AttrLabel OrientableOrientationPropertyInfo = "orientation" - attrGet _ = getOrientableOrientation - attrSet _ = setOrientableOrientation - attrConstruct _ = constructOrientableOrientation - attrClear _ = undefined - -type instance AttributeList Orientable = OrientableAttributeList -type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) - -orientableOrientation :: AttrLabelProxy "orientation" -orientableOrientation = AttrLabelProxy - -type instance SignalList Orientable = OrientableSignalList -type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_orientable_get_type" - c_gtk_orientable_get_type :: IO GType - -type instance ParentTypes Orientable = OrientableParentTypes -type OrientableParentTypes = '[GObject.Object] - -instance GObject Orientable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_orientable_get_type - - -class GObject o => OrientableK o -instance (GObject o, IsDescendantOf Orientable o) => OrientableK o - -toOrientable :: OrientableK o => o -> IO Orientable -toOrientable = unsafeCastTo Orientable - --- method Orientable::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_orientable_get_orientation" gtk_orientable_get_orientation :: - Ptr Orientable -> -- _obj : TInterface "Gtk" "Orientable" - IO CUInt - - -orientableGetOrientation :: - (MonadIO m, OrientableK a) => - a -- _obj - -> m Orientation -- result -orientableGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_orientable_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data OrientableGetOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, OrientableK a) => MethodInfo OrientableGetOrientationMethodInfo a signature where - overloadedMethod _ = orientableGetOrientation - --- method Orientable::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_orientable_set_orientation" gtk_orientable_set_orientation :: - Ptr Orientable -> -- _obj : TInterface "Gtk" "Orientable" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - - -orientableSetOrientation :: - (MonadIO m, OrientableK a) => - a -- _obj - -> Orientation -- orientation - -> m () -- result -orientableSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_orientable_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - -data OrientableSetOrientationMethodInfo -instance (signature ~ (Orientation -> m ()), MonadIO m, OrientableK a) => MethodInfo OrientableSetOrientationMethodInfo a signature where - overloadedMethod _ = orientableSetOrientation - - diff --git a/GI/Gtk/Interfaces/Orientable.hs-boot b/GI/Gtk/Interfaces/Orientable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Orientable.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Interfaces.Orientable 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 Orientable = Orientable (ForeignPtr Orientable) -data OrientableOrientationPropertyInfo -instance GObject Orientable where -class GObject o => OrientableK o -instance (GObject o, IsDescendantOf Orientable o) => OrientableK o -data OrientableGetOrientationMethodInfo -data OrientableSetOrientationMethodInfo diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs b/GI/Gtk/Interfaces/PrintOperationPreview.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs +++ /dev/null @@ -1,326 +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.Gtk.Interfaces.PrintOperationPreview - ( - --- * Exported types - PrintOperationPreview(..) , - noPrintOperationPreview , - PrintOperationPreviewK , - toPrintOperationPreview , - - - -- * Methods --- ** printOperationPreviewEndPreview - PrintOperationPreviewEndPreviewMethodInfo, - printOperationPreviewEndPreview , - - --- ** printOperationPreviewIsSelected - PrintOperationPreviewIsSelectedMethodInfo, - printOperationPreviewIsSelected , - - --- ** printOperationPreviewRenderPage - PrintOperationPreviewRenderPageMethodInfo, - printOperationPreviewRenderPage , - - - - - -- * Signals --- ** GotPageSize - PrintOperationPreviewGotPageSizeCallback, - PrintOperationPreviewGotPageSizeCallbackC, - PrintOperationPreviewGotPageSizeSignalInfo, - afterPrintOperationPreviewGotPageSize , - mkPrintOperationPreviewGotPageSizeCallback, - noPrintOperationPreviewGotPageSizeCallback, - onPrintOperationPreviewGotPageSize , - printOperationPreviewGotPageSizeCallbackWrapper, - printOperationPreviewGotPageSizeClosure , - - --- ** Ready - PrintOperationPreviewReadyCallback , - PrintOperationPreviewReadyCallbackC , - PrintOperationPreviewReadySignalInfo , - afterPrintOperationPreviewReady , - mkPrintOperationPreviewReadyCallback , - noPrintOperationPreviewReadyCallback , - onPrintOperationPreviewReady , - printOperationPreviewReadyCallbackWrapper, - printOperationPreviewReadyClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface PrintOperationPreview - -newtype PrintOperationPreview = PrintOperationPreview (ForeignPtr PrintOperationPreview) -noPrintOperationPreview :: Maybe PrintOperationPreview -noPrintOperationPreview = Nothing - -type family ResolvePrintOperationPreviewMethod (t :: Symbol) (o :: *) :: * where - ResolvePrintOperationPreviewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePrintOperationPreviewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePrintOperationPreviewMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo - ResolvePrintOperationPreviewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePrintOperationPreviewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePrintOperationPreviewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePrintOperationPreviewMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo - ResolvePrintOperationPreviewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePrintOperationPreviewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePrintOperationPreviewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePrintOperationPreviewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePrintOperationPreviewMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo - ResolvePrintOperationPreviewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePrintOperationPreviewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePrintOperationPreviewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePrintOperationPreviewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePrintOperationPreviewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePrintOperationPreviewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePrintOperationPreviewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePrintOperationPreviewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePrintOperationPreviewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePrintOperationPreviewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePrintOperationPreviewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePrintOperationPreviewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePrintOperationPreviewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePrintOperationPreviewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, MethodInfo info PrintOperationPreview p) => IsLabelProxy t (PrintOperationPreview -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, MethodInfo info PrintOperationPreview p) => IsLabel t (PrintOperationPreview -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal PrintOperationPreview::got-page-size -type PrintOperationPreviewGotPageSizeCallback = - PrintContext -> - PageSetup -> - IO () - -noPrintOperationPreviewGotPageSizeCallback :: Maybe PrintOperationPreviewGotPageSizeCallback -noPrintOperationPreviewGotPageSizeCallback = Nothing - -type PrintOperationPreviewGotPageSizeCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Ptr PageSetup -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationPreviewGotPageSizeCallback :: PrintOperationPreviewGotPageSizeCallbackC -> IO (FunPtr PrintOperationPreviewGotPageSizeCallbackC) - -printOperationPreviewGotPageSizeClosure :: PrintOperationPreviewGotPageSizeCallback -> IO Closure -printOperationPreviewGotPageSizeClosure cb = newCClosure =<< mkPrintOperationPreviewGotPageSizeCallback wrapped - where wrapped = printOperationPreviewGotPageSizeCallbackWrapper cb - -printOperationPreviewGotPageSizeCallbackWrapper :: - PrintOperationPreviewGotPageSizeCallback -> - Ptr () -> - Ptr PrintContext -> - Ptr PageSetup -> - Ptr () -> - IO () -printOperationPreviewGotPageSizeCallbackWrapper _cb _ context pageSetup _ = do - context' <- (newObject PrintContext) context - pageSetup' <- (newObject PageSetup) pageSetup - _cb context' pageSetup' - -onPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId -onPrintOperationPreviewGotPageSize obj cb = liftIO $ connectPrintOperationPreviewGotPageSize obj cb SignalConnectBefore -afterPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId -afterPrintOperationPreviewGotPageSize obj cb = connectPrintOperationPreviewGotPageSize obj cb SignalConnectAfter - -connectPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => - a -> PrintOperationPreviewGotPageSizeCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationPreviewGotPageSize obj cb after = liftIO $ do - cb' <- mkPrintOperationPreviewGotPageSizeCallback (printOperationPreviewGotPageSizeCallbackWrapper cb) - connectSignalFunPtr obj "got-page-size" cb' after - --- signal PrintOperationPreview::ready -type PrintOperationPreviewReadyCallback = - PrintContext -> - IO () - -noPrintOperationPreviewReadyCallback :: Maybe PrintOperationPreviewReadyCallback -noPrintOperationPreviewReadyCallback = Nothing - -type PrintOperationPreviewReadyCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationPreviewReadyCallback :: PrintOperationPreviewReadyCallbackC -> IO (FunPtr PrintOperationPreviewReadyCallbackC) - -printOperationPreviewReadyClosure :: PrintOperationPreviewReadyCallback -> IO Closure -printOperationPreviewReadyClosure cb = newCClosure =<< mkPrintOperationPreviewReadyCallback wrapped - where wrapped = printOperationPreviewReadyCallbackWrapper cb - -printOperationPreviewReadyCallbackWrapper :: - PrintOperationPreviewReadyCallback -> - Ptr () -> - Ptr PrintContext -> - Ptr () -> - IO () -printOperationPreviewReadyCallbackWrapper _cb _ context _ = do - context' <- (newObject PrintContext) context - _cb context' - -onPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId -onPrintOperationPreviewReady obj cb = liftIO $ connectPrintOperationPreviewReady obj cb SignalConnectBefore -afterPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId -afterPrintOperationPreviewReady obj cb = connectPrintOperationPreviewReady obj cb SignalConnectAfter - -connectPrintOperationPreviewReady :: (GObject a, MonadIO m) => - a -> PrintOperationPreviewReadyCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationPreviewReady obj cb after = liftIO $ do - cb' <- mkPrintOperationPreviewReadyCallback (printOperationPreviewReadyCallbackWrapper cb) - connectSignalFunPtr obj "ready" cb' after - -type instance AttributeList PrintOperationPreview = PrintOperationPreviewAttributeList -type PrintOperationPreviewAttributeList = ('[ ] :: [(Symbol, *)]) - -data PrintOperationPreviewGotPageSizeSignalInfo -instance SignalInfo PrintOperationPreviewGotPageSizeSignalInfo where - type HaskellCallbackType PrintOperationPreviewGotPageSizeSignalInfo = PrintOperationPreviewGotPageSizeCallback - connectSignal _ = connectPrintOperationPreviewGotPageSize - -data PrintOperationPreviewReadySignalInfo -instance SignalInfo PrintOperationPreviewReadySignalInfo where - type HaskellCallbackType PrintOperationPreviewReadySignalInfo = PrintOperationPreviewReadyCallback - connectSignal _ = connectPrintOperationPreviewReady - -type instance SignalList PrintOperationPreview = PrintOperationPreviewSignalList -type PrintOperationPreviewSignalList = ('[ '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_print_operation_preview_get_type" - c_gtk_print_operation_preview_get_type :: IO GType - -type instance ParentTypes PrintOperationPreview = PrintOperationPreviewParentTypes -type PrintOperationPreviewParentTypes = '[GObject.Object] - -instance GObject PrintOperationPreview where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_print_operation_preview_get_type - - -class GObject o => PrintOperationPreviewK o -instance (GObject o, IsDescendantOf PrintOperationPreview o) => PrintOperationPreviewK o - -toPrintOperationPreview :: PrintOperationPreviewK o => o -> IO PrintOperationPreview -toPrintOperationPreview = unsafeCastTo PrintOperationPreview - --- method PrintOperationPreview::end_preview --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", 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 "gtk_print_operation_preview_end_preview" gtk_print_operation_preview_end_preview :: - Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - IO () - - -printOperationPreviewEndPreview :: - (MonadIO m, PrintOperationPreviewK a) => - a -- _obj - -> m () -- result -printOperationPreviewEndPreview _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_preview_end_preview _obj' - touchManagedPtr _obj - return () - -data PrintOperationPreviewEndPreviewMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewEndPreviewMethodInfo a signature where - overloadedMethod _ = printOperationPreviewEndPreview - --- method PrintOperationPreview::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", 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 "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected :: - Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - Int32 -> -- page_nr : TBasicType TInt - IO CInt - - -printOperationPreviewIsSelected :: - (MonadIO m, PrintOperationPreviewK a) => - a -- _obj - -> Int32 -- pageNr - -> m Bool -- result -printOperationPreviewIsSelected _obj pageNr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_preview_is_selected _obj' pageNr - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintOperationPreviewIsSelectedMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewIsSelectedMethodInfo a signature where - overloadedMethod _ = printOperationPreviewIsSelected - --- method PrintOperationPreview::render_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", 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 "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page :: - Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - Int32 -> -- page_nr : TBasicType TInt - IO () - - -printOperationPreviewRenderPage :: - (MonadIO m, PrintOperationPreviewK a) => - a -- _obj - -> Int32 -- pageNr - -> m () -- result -printOperationPreviewRenderPage _obj pageNr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_preview_render_page _obj' pageNr - touchManagedPtr _obj - return () - -data PrintOperationPreviewRenderPageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewRenderPageMethodInfo a signature where - overloadedMethod _ = printOperationPreviewRenderPage - - diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Interfaces.PrintOperationPreview 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 PrintOperationPreview = PrintOperationPreview (ForeignPtr PrintOperationPreview) -data PrintOperationPreviewGotPageSizeSignalInfo -data PrintOperationPreviewReadySignalInfo -instance GObject PrintOperationPreview where -class GObject o => PrintOperationPreviewK o -instance (GObject o, IsDescendantOf PrintOperationPreview o) => PrintOperationPreviewK o -data PrintOperationPreviewEndPreviewMethodInfo -data PrintOperationPreviewIsSelectedMethodInfo -data PrintOperationPreviewRenderPageMethodInfo diff --git a/GI/Gtk/Interfaces/RecentChooser.hs b/GI/Gtk/Interfaces/RecentChooser.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/RecentChooser.hs +++ /dev/null @@ -1,1699 +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.Gtk.Interfaces.RecentChooser - ( - --- * Exported types - RecentChooser(..) , - noRecentChooser , - RecentChooserK , - toRecentChooser , - - - -- * Methods --- ** recentChooserAddFilter - RecentChooserAddFilterMethodInfo , - recentChooserAddFilter , - - --- ** recentChooserGetCurrentItem - RecentChooserGetCurrentItemMethodInfo , - recentChooserGetCurrentItem , - - --- ** recentChooserGetCurrentUri - RecentChooserGetCurrentUriMethodInfo , - recentChooserGetCurrentUri , - - --- ** recentChooserGetFilter - RecentChooserGetFilterMethodInfo , - recentChooserGetFilter , - - --- ** recentChooserGetItems - RecentChooserGetItemsMethodInfo , - recentChooserGetItems , - - --- ** recentChooserGetLimit - RecentChooserGetLimitMethodInfo , - recentChooserGetLimit , - - --- ** recentChooserGetLocalOnly - RecentChooserGetLocalOnlyMethodInfo , - recentChooserGetLocalOnly , - - --- ** recentChooserGetSelectMultiple - RecentChooserGetSelectMultipleMethodInfo, - recentChooserGetSelectMultiple , - - --- ** recentChooserGetShowIcons - RecentChooserGetShowIconsMethodInfo , - recentChooserGetShowIcons , - - --- ** recentChooserGetShowNotFound - RecentChooserGetShowNotFoundMethodInfo , - recentChooserGetShowNotFound , - - --- ** recentChooserGetShowPrivate - RecentChooserGetShowPrivateMethodInfo , - recentChooserGetShowPrivate , - - --- ** recentChooserGetShowTips - RecentChooserGetShowTipsMethodInfo , - recentChooserGetShowTips , - - --- ** recentChooserGetSortType - RecentChooserGetSortTypeMethodInfo , - recentChooserGetSortType , - - --- ** recentChooserGetUris - RecentChooserGetUrisMethodInfo , - recentChooserGetUris , - - --- ** recentChooserListFilters - RecentChooserListFiltersMethodInfo , - recentChooserListFilters , - - --- ** recentChooserRemoveFilter - RecentChooserRemoveFilterMethodInfo , - recentChooserRemoveFilter , - - --- ** recentChooserSelectAll - RecentChooserSelectAllMethodInfo , - recentChooserSelectAll , - - --- ** recentChooserSelectUri - RecentChooserSelectUriMethodInfo , - recentChooserSelectUri , - - --- ** recentChooserSetCurrentUri - RecentChooserSetCurrentUriMethodInfo , - recentChooserSetCurrentUri , - - --- ** recentChooserSetFilter - RecentChooserSetFilterMethodInfo , - recentChooserSetFilter , - - --- ** recentChooserSetLimit - RecentChooserSetLimitMethodInfo , - recentChooserSetLimit , - - --- ** recentChooserSetLocalOnly - RecentChooserSetLocalOnlyMethodInfo , - recentChooserSetLocalOnly , - - --- ** recentChooserSetSelectMultiple - RecentChooserSetSelectMultipleMethodInfo, - recentChooserSetSelectMultiple , - - --- ** recentChooserSetShowIcons - RecentChooserSetShowIconsMethodInfo , - recentChooserSetShowIcons , - - --- ** recentChooserSetShowNotFound - RecentChooserSetShowNotFoundMethodInfo , - recentChooserSetShowNotFound , - - --- ** recentChooserSetShowPrivate - RecentChooserSetShowPrivateMethodInfo , - recentChooserSetShowPrivate , - - --- ** recentChooserSetShowTips - RecentChooserSetShowTipsMethodInfo , - recentChooserSetShowTips , - - --- ** recentChooserSetSortFunc - RecentChooserSetSortFuncMethodInfo , - recentChooserSetSortFunc , - - --- ** recentChooserSetSortType - RecentChooserSetSortTypeMethodInfo , - recentChooserSetSortType , - - --- ** recentChooserUnselectAll - RecentChooserUnselectAllMethodInfo , - recentChooserUnselectAll , - - --- ** recentChooserUnselectUri - RecentChooserUnselectUriMethodInfo , - recentChooserUnselectUri , - - - - - -- * Properties --- ** Filter - RecentChooserFilterPropertyInfo , - clearRecentChooserFilter , - constructRecentChooserFilter , - getRecentChooserFilter , - recentChooserFilter , - setRecentChooserFilter , - - --- ** Limit - RecentChooserLimitPropertyInfo , - constructRecentChooserLimit , - getRecentChooserLimit , - recentChooserLimit , - setRecentChooserLimit , - - --- ** LocalOnly - RecentChooserLocalOnlyPropertyInfo , - constructRecentChooserLocalOnly , - getRecentChooserLocalOnly , - recentChooserLocalOnly , - setRecentChooserLocalOnly , - - --- ** RecentManager - RecentChooserRecentManagerPropertyInfo , - constructRecentChooserRecentManager , - recentChooserRecentManager , - - --- ** SelectMultiple - RecentChooserSelectMultiplePropertyInfo , - constructRecentChooserSelectMultiple , - getRecentChooserSelectMultiple , - recentChooserSelectMultiple , - setRecentChooserSelectMultiple , - - --- ** ShowIcons - RecentChooserShowIconsPropertyInfo , - constructRecentChooserShowIcons , - getRecentChooserShowIcons , - recentChooserShowIcons , - setRecentChooserShowIcons , - - --- ** ShowNotFound - RecentChooserShowNotFoundPropertyInfo , - constructRecentChooserShowNotFound , - getRecentChooserShowNotFound , - recentChooserShowNotFound , - setRecentChooserShowNotFound , - - --- ** ShowPrivate - RecentChooserShowPrivatePropertyInfo , - constructRecentChooserShowPrivate , - getRecentChooserShowPrivate , - recentChooserShowPrivate , - setRecentChooserShowPrivate , - - --- ** ShowTips - RecentChooserShowTipsPropertyInfo , - constructRecentChooserShowTips , - getRecentChooserShowTips , - recentChooserShowTips , - setRecentChooserShowTips , - - --- ** SortType - RecentChooserSortTypePropertyInfo , - constructRecentChooserSortType , - getRecentChooserSortType , - recentChooserSortType , - setRecentChooserSortType , - - - - - -- * Signals --- ** ItemActivated - RecentChooserItemActivatedCallback , - RecentChooserItemActivatedCallbackC , - RecentChooserItemActivatedSignalInfo , - afterRecentChooserItemActivated , - mkRecentChooserItemActivatedCallback , - noRecentChooserItemActivatedCallback , - onRecentChooserItemActivated , - recentChooserItemActivatedCallbackWrapper, - recentChooserItemActivatedClosure , - - --- ** SelectionChanged - RecentChooserSelectionChangedCallback , - RecentChooserSelectionChangedCallbackC , - RecentChooserSelectionChangedSignalInfo , - afterRecentChooserSelectionChanged , - mkRecentChooserSelectionChangedCallback , - noRecentChooserSelectionChangedCallback , - onRecentChooserSelectionChanged , - recentChooserSelectionChangedCallbackWrapper, - recentChooserSelectionChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface RecentChooser - -newtype RecentChooser = RecentChooser (ForeignPtr RecentChooser) -noRecentChooser :: Maybe RecentChooser -noRecentChooser = Nothing - -type family ResolveRecentChooserMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentChooserMethod "addFilter" o = RecentChooserAddFilterMethodInfo - ResolveRecentChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentChooserMethod "listFilters" o = RecentChooserListFiltersMethodInfo - ResolveRecentChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentChooserMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentChooserMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo - ResolveRecentChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentChooserMethod "selectAll" o = RecentChooserSelectAllMethodInfo - ResolveRecentChooserMethod "selectUri" o = RecentChooserSelectUriMethodInfo - ResolveRecentChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentChooserMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo - ResolveRecentChooserMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo - ResolveRecentChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentChooserMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo - ResolveRecentChooserMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo - ResolveRecentChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentChooserMethod "getFilter" o = RecentChooserGetFilterMethodInfo - ResolveRecentChooserMethod "getItems" o = RecentChooserGetItemsMethodInfo - ResolveRecentChooserMethod "getLimit" o = RecentChooserGetLimitMethodInfo - ResolveRecentChooserMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo - ResolveRecentChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentChooserMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo - ResolveRecentChooserMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo - ResolveRecentChooserMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo - ResolveRecentChooserMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo - ResolveRecentChooserMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo - ResolveRecentChooserMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo - ResolveRecentChooserMethod "getUris" o = RecentChooserGetUrisMethodInfo - ResolveRecentChooserMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo - ResolveRecentChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentChooserMethod "setFilter" o = RecentChooserSetFilterMethodInfo - ResolveRecentChooserMethod "setLimit" o = RecentChooserSetLimitMethodInfo - ResolveRecentChooserMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo - ResolveRecentChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentChooserMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo - ResolveRecentChooserMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo - ResolveRecentChooserMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo - ResolveRecentChooserMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo - ResolveRecentChooserMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo - ResolveRecentChooserMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo - ResolveRecentChooserMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo - ResolveRecentChooserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentChooserMethod t RecentChooser, MethodInfo info RecentChooser p) => IsLabelProxy t (RecentChooser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentChooserMethod t RecentChooser, MethodInfo info RecentChooser p) => IsLabel t (RecentChooser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal RecentChooser::item-activated -type RecentChooserItemActivatedCallback = - IO () - -noRecentChooserItemActivatedCallback :: Maybe RecentChooserItemActivatedCallback -noRecentChooserItemActivatedCallback = Nothing - -type RecentChooserItemActivatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRecentChooserItemActivatedCallback :: RecentChooserItemActivatedCallbackC -> IO (FunPtr RecentChooserItemActivatedCallbackC) - -recentChooserItemActivatedClosure :: RecentChooserItemActivatedCallback -> IO Closure -recentChooserItemActivatedClosure cb = newCClosure =<< mkRecentChooserItemActivatedCallback wrapped - where wrapped = recentChooserItemActivatedCallbackWrapper cb - -recentChooserItemActivatedCallbackWrapper :: - RecentChooserItemActivatedCallback -> - Ptr () -> - Ptr () -> - IO () -recentChooserItemActivatedCallbackWrapper _cb _ _ = do - _cb - -onRecentChooserItemActivated :: (GObject a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId -onRecentChooserItemActivated obj cb = liftIO $ connectRecentChooserItemActivated obj cb SignalConnectBefore -afterRecentChooserItemActivated :: (GObject a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId -afterRecentChooserItemActivated obj cb = connectRecentChooserItemActivated obj cb SignalConnectAfter - -connectRecentChooserItemActivated :: (GObject a, MonadIO m) => - a -> RecentChooserItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectRecentChooserItemActivated obj cb after = liftIO $ do - cb' <- mkRecentChooserItemActivatedCallback (recentChooserItemActivatedCallbackWrapper cb) - connectSignalFunPtr obj "item-activated" cb' after - --- signal RecentChooser::selection-changed -type RecentChooserSelectionChangedCallback = - IO () - -noRecentChooserSelectionChangedCallback :: Maybe RecentChooserSelectionChangedCallback -noRecentChooserSelectionChangedCallback = Nothing - -type RecentChooserSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRecentChooserSelectionChangedCallback :: RecentChooserSelectionChangedCallbackC -> IO (FunPtr RecentChooserSelectionChangedCallbackC) - -recentChooserSelectionChangedClosure :: RecentChooserSelectionChangedCallback -> IO Closure -recentChooserSelectionChangedClosure cb = newCClosure =<< mkRecentChooserSelectionChangedCallback wrapped - where wrapped = recentChooserSelectionChangedCallbackWrapper cb - -recentChooserSelectionChangedCallbackWrapper :: - RecentChooserSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -recentChooserSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onRecentChooserSelectionChanged :: (GObject a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId -onRecentChooserSelectionChanged obj cb = liftIO $ connectRecentChooserSelectionChanged obj cb SignalConnectBefore -afterRecentChooserSelectionChanged :: (GObject a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId -afterRecentChooserSelectionChanged obj cb = connectRecentChooserSelectionChanged obj cb SignalConnectAfter - -connectRecentChooserSelectionChanged :: (GObject a, MonadIO m) => - a -> RecentChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRecentChooserSelectionChanged obj cb after = liftIO $ do - cb' <- mkRecentChooserSelectionChangedCallback (recentChooserSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "RecentFilter" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m RecentFilter -getRecentChooserFilter obj = liftIO $ checkUnexpectedNothing "getRecentChooserFilter" $ getObjectPropertyObject obj "filter" RecentFilter - -setRecentChooserFilter :: (MonadIO m, RecentChooserK o, RecentFilterK a) => o -> a -> m () -setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) - -constructRecentChooserFilter :: (RecentFilterK a) => a -> IO ([Char], GValue) -constructRecentChooserFilter val = constructObjectPropertyObject "filter" (Just val) - -clearRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m () -clearRecentChooserFilter obj = liftIO $ setObjectPropertyObject obj "filter" (Nothing :: Maybe RecentFilter) - -data RecentChooserFilterPropertyInfo -instance AttrInfo RecentChooserFilterPropertyInfo where - type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK - type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK - type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter - type AttrLabel RecentChooserFilterPropertyInfo = "filter" - attrGet _ = getRecentChooserFilter - attrSet _ = setRecentChooserFilter - attrConstruct _ = constructRecentChooserFilter - attrClear _ = clearRecentChooserFilter - --- VVV Prop "limit" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> m Int32 -getRecentChooserLimit obj = liftIO $ getObjectPropertyInt32 obj "limit" - -setRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> Int32 -> m () -setRecentChooserLimit obj val = liftIO $ setObjectPropertyInt32 obj "limit" val - -constructRecentChooserLimit :: Int32 -> IO ([Char], GValue) -constructRecentChooserLimit val = constructObjectPropertyInt32 "limit" val - -data RecentChooserLimitPropertyInfo -instance AttrInfo RecentChooserLimitPropertyInfo where - type AttrAllowedOps RecentChooserLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserLimitPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint RecentChooserLimitPropertyInfo = RecentChooserK - type AttrGetType RecentChooserLimitPropertyInfo = Int32 - type AttrLabel RecentChooserLimitPropertyInfo = "limit" - attrGet _ = getRecentChooserLimit - attrSet _ = setRecentChooserLimit - attrConstruct _ = constructRecentChooserLimit - attrClear _ = undefined - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserLocalOnly :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" - -setRecentChooserLocalOnly :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val - -constructRecentChooserLocalOnly :: Bool -> IO ([Char], GValue) -constructRecentChooserLocalOnly val = constructObjectPropertyBool "local-only" val - -data RecentChooserLocalOnlyPropertyInfo -instance AttrInfo RecentChooserLocalOnlyPropertyInfo where - type AttrAllowedOps RecentChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserLocalOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserLocalOnlyPropertyInfo = RecentChooserK - type AttrGetType RecentChooserLocalOnlyPropertyInfo = Bool - type AttrLabel RecentChooserLocalOnlyPropertyInfo = "local-only" - attrGet _ = getRecentChooserLocalOnly - attrSet _ = setRecentChooserLocalOnly - attrConstruct _ = constructRecentChooserLocalOnly - attrClear _ = undefined - --- VVV Prop "recent-manager" - -- Type: TInterface "Gtk" "RecentManager" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructRecentChooserRecentManager :: (RecentManagerK a) => a -> IO ([Char], GValue) -constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" (Just val) - -data RecentChooserRecentManagerPropertyInfo -instance AttrInfo RecentChooserRecentManagerPropertyInfo where - type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK - type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK - type AttrGetType RecentChooserRecentManagerPropertyInfo = () - type AttrLabel RecentChooserRecentManagerPropertyInfo = "recent-manager" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructRecentChooserRecentManager - attrClear _ = undefined - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserSelectMultiple :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" - -setRecentChooserSelectMultiple :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserSelectMultiple obj val = liftIO $ setObjectPropertyBool obj "select-multiple" val - -constructRecentChooserSelectMultiple :: Bool -> IO ([Char], GValue) -constructRecentChooserSelectMultiple val = constructObjectPropertyBool "select-multiple" val - -data RecentChooserSelectMultiplePropertyInfo -instance AttrInfo RecentChooserSelectMultiplePropertyInfo where - type AttrAllowedOps RecentChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserSelectMultiplePropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserSelectMultiplePropertyInfo = RecentChooserK - type AttrGetType RecentChooserSelectMultiplePropertyInfo = Bool - type AttrLabel RecentChooserSelectMultiplePropertyInfo = "select-multiple" - attrGet _ = getRecentChooserSelectMultiple - attrSet _ = setRecentChooserSelectMultiple - attrConstruct _ = constructRecentChooserSelectMultiple - attrClear _ = undefined - --- VVV Prop "show-icons" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserShowIcons :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserShowIcons obj = liftIO $ getObjectPropertyBool obj "show-icons" - -setRecentChooserShowIcons :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserShowIcons obj val = liftIO $ setObjectPropertyBool obj "show-icons" val - -constructRecentChooserShowIcons :: Bool -> IO ([Char], GValue) -constructRecentChooserShowIcons val = constructObjectPropertyBool "show-icons" val - -data RecentChooserShowIconsPropertyInfo -instance AttrInfo RecentChooserShowIconsPropertyInfo where - type AttrAllowedOps RecentChooserShowIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserShowIconsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserShowIconsPropertyInfo = RecentChooserK - type AttrGetType RecentChooserShowIconsPropertyInfo = Bool - type AttrLabel RecentChooserShowIconsPropertyInfo = "show-icons" - attrGet _ = getRecentChooserShowIcons - attrSet _ = setRecentChooserShowIcons - attrConstruct _ = constructRecentChooserShowIcons - attrClear _ = undefined - --- VVV Prop "show-not-found" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserShowNotFound :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserShowNotFound obj = liftIO $ getObjectPropertyBool obj "show-not-found" - -setRecentChooserShowNotFound :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserShowNotFound obj val = liftIO $ setObjectPropertyBool obj "show-not-found" val - -constructRecentChooserShowNotFound :: Bool -> IO ([Char], GValue) -constructRecentChooserShowNotFound val = constructObjectPropertyBool "show-not-found" val - -data RecentChooserShowNotFoundPropertyInfo -instance AttrInfo RecentChooserShowNotFoundPropertyInfo where - type AttrAllowedOps RecentChooserShowNotFoundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserShowNotFoundPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserShowNotFoundPropertyInfo = RecentChooserK - type AttrGetType RecentChooserShowNotFoundPropertyInfo = Bool - type AttrLabel RecentChooserShowNotFoundPropertyInfo = "show-not-found" - attrGet _ = getRecentChooserShowNotFound - attrSet _ = setRecentChooserShowNotFound - attrConstruct _ = constructRecentChooserShowNotFound - attrClear _ = undefined - --- VVV Prop "show-private" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserShowPrivate :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserShowPrivate obj = liftIO $ getObjectPropertyBool obj "show-private" - -setRecentChooserShowPrivate :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserShowPrivate obj val = liftIO $ setObjectPropertyBool obj "show-private" val - -constructRecentChooserShowPrivate :: Bool -> IO ([Char], GValue) -constructRecentChooserShowPrivate val = constructObjectPropertyBool "show-private" val - -data RecentChooserShowPrivatePropertyInfo -instance AttrInfo RecentChooserShowPrivatePropertyInfo where - type AttrAllowedOps RecentChooserShowPrivatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserShowPrivatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserShowPrivatePropertyInfo = RecentChooserK - type AttrGetType RecentChooserShowPrivatePropertyInfo = Bool - type AttrLabel RecentChooserShowPrivatePropertyInfo = "show-private" - attrGet _ = getRecentChooserShowPrivate - attrSet _ = setRecentChooserShowPrivate - attrConstruct _ = constructRecentChooserShowPrivate - attrClear _ = undefined - --- VVV Prop "show-tips" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserShowTips :: (MonadIO m, RecentChooserK o) => o -> m Bool -getRecentChooserShowTips obj = liftIO $ getObjectPropertyBool obj "show-tips" - -setRecentChooserShowTips :: (MonadIO m, RecentChooserK o) => o -> Bool -> m () -setRecentChooserShowTips obj val = liftIO $ setObjectPropertyBool obj "show-tips" val - -constructRecentChooserShowTips :: Bool -> IO ([Char], GValue) -constructRecentChooserShowTips val = constructObjectPropertyBool "show-tips" val - -data RecentChooserShowTipsPropertyInfo -instance AttrInfo RecentChooserShowTipsPropertyInfo where - type AttrAllowedOps RecentChooserShowTipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserShowTipsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserShowTipsPropertyInfo = RecentChooserK - type AttrGetType RecentChooserShowTipsPropertyInfo = Bool - type AttrLabel RecentChooserShowTipsPropertyInfo = "show-tips" - attrGet _ = getRecentChooserShowTips - attrSet _ = setRecentChooserShowTips - attrConstruct _ = constructRecentChooserShowTips - attrClear _ = undefined - --- VVV Prop "sort-type" - -- Type: TInterface "Gtk" "RecentSortType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserSortType :: (MonadIO m, RecentChooserK o) => o -> m RecentSortType -getRecentChooserSortType obj = liftIO $ getObjectPropertyEnum obj "sort-type" - -setRecentChooserSortType :: (MonadIO m, RecentChooserK o) => o -> RecentSortType -> m () -setRecentChooserSortType obj val = liftIO $ setObjectPropertyEnum obj "sort-type" val - -constructRecentChooserSortType :: RecentSortType -> IO ([Char], GValue) -constructRecentChooserSortType val = constructObjectPropertyEnum "sort-type" val - -data RecentChooserSortTypePropertyInfo -instance AttrInfo RecentChooserSortTypePropertyInfo where - type AttrAllowedOps RecentChooserSortTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserSortTypePropertyInfo = (~) RecentSortType - type AttrBaseTypeConstraint RecentChooserSortTypePropertyInfo = RecentChooserK - type AttrGetType RecentChooserSortTypePropertyInfo = RecentSortType - type AttrLabel RecentChooserSortTypePropertyInfo = "sort-type" - attrGet _ = getRecentChooserSortType - attrSet _ = setRecentChooserSortType - attrConstruct _ = constructRecentChooserSortType - attrClear _ = undefined - -type instance AttributeList RecentChooser = RecentChooserAttributeList -type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) - -recentChooserFilter :: AttrLabelProxy "filter" -recentChooserFilter = AttrLabelProxy - -recentChooserLimit :: AttrLabelProxy "limit" -recentChooserLimit = AttrLabelProxy - -recentChooserLocalOnly :: AttrLabelProxy "localOnly" -recentChooserLocalOnly = AttrLabelProxy - -recentChooserRecentManager :: AttrLabelProxy "recentManager" -recentChooserRecentManager = AttrLabelProxy - -recentChooserSelectMultiple :: AttrLabelProxy "selectMultiple" -recentChooserSelectMultiple = AttrLabelProxy - -recentChooserShowIcons :: AttrLabelProxy "showIcons" -recentChooserShowIcons = AttrLabelProxy - -recentChooserShowNotFound :: AttrLabelProxy "showNotFound" -recentChooserShowNotFound = AttrLabelProxy - -recentChooserShowPrivate :: AttrLabelProxy "showPrivate" -recentChooserShowPrivate = AttrLabelProxy - -recentChooserShowTips :: AttrLabelProxy "showTips" -recentChooserShowTips = AttrLabelProxy - -recentChooserSortType :: AttrLabelProxy "sortType" -recentChooserSortType = AttrLabelProxy - -data RecentChooserItemActivatedSignalInfo -instance SignalInfo RecentChooserItemActivatedSignalInfo where - type HaskellCallbackType RecentChooserItemActivatedSignalInfo = RecentChooserItemActivatedCallback - connectSignal _ = connectRecentChooserItemActivated - -data RecentChooserSelectionChangedSignalInfo -instance SignalInfo RecentChooserSelectionChangedSignalInfo where - type HaskellCallbackType RecentChooserSelectionChangedSignalInfo = RecentChooserSelectionChangedCallback - connectSignal _ = connectRecentChooserSelectionChanged - -type instance SignalList RecentChooser = RecentChooserSignalList -type RecentChooserSignalList = ('[ '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_recent_chooser_get_type" - c_gtk_recent_chooser_get_type :: IO GType - -type instance ParentTypes RecentChooser = RecentChooserParentTypes -type RecentChooserParentTypes = '[GObject.Object] - -instance GObject RecentChooser where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_recent_chooser_get_type - - -class GObject o => RecentChooserK o -instance (GObject o, IsDescendantOf RecentChooser o) => RecentChooserK o - -toRecentChooser :: RecentChooserK o => o -> IO RecentChooser -toRecentChooser = unsafeCastTo RecentChooser - --- method RecentChooser::add_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", 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 "gtk_recent_chooser_add_filter" gtk_recent_chooser_add_filter :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter" - IO () - - -recentChooserAddFilter :: - (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -- _obj - -> b -- filter - -> m () -- result -recentChooserAddFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_recent_chooser_add_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - -data RecentChooserAddFilterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserAddFilterMethodInfo a signature where - overloadedMethod _ = recentChooserAddFilter - --- method RecentChooser::get_current_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_get_current_item" gtk_recent_chooser_get_current_item :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO (Ptr RecentInfo) - - -recentChooserGetCurrentItem :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m RecentInfo -- result -recentChooserGetCurrentItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_current_item _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_get_current_item" result - result' <- (wrapBoxed RecentInfo) result - touchManagedPtr _obj - return result' - -data RecentChooserGetCurrentItemMethodInfo -instance (signature ~ (m RecentInfo), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetCurrentItemMethodInfo a signature where - overloadedMethod _ = recentChooserGetCurrentItem - --- method RecentChooser::get_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_current_uri" gtk_recent_chooser_get_current_uri :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CString - - -recentChooserGetCurrentUri :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m T.Text -- result -recentChooserGetCurrentUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_current_uri _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_get_current_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data RecentChooserGetCurrentUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetCurrentUriMethodInfo a signature where - overloadedMethod _ = recentChooserGetCurrentUri - --- method RecentChooser::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentFilter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_get_filter" gtk_recent_chooser_get_filter :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO (Ptr RecentFilter) - - -recentChooserGetFilter :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m RecentFilter -- result -recentChooserGetFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_filter _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_get_filter" result - result' <- (newObject RecentFilter) result - touchManagedPtr _obj - return result' - -data RecentChooserGetFilterMethodInfo -instance (signature ~ (m RecentFilter), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetFilterMethodInfo a signature where - overloadedMethod _ = recentChooserGetFilter - --- method RecentChooser::get_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "RecentInfo")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_get_items" gtk_recent_chooser_get_items :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO (Ptr (GList (Ptr RecentInfo))) - - -recentChooserGetItems :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m [RecentInfo] -- result -recentChooserGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_items _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed RecentInfo) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data RecentChooserGetItemsMethodInfo -instance (signature ~ (m [RecentInfo]), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetItemsMethodInfo a signature where - overloadedMethod _ = recentChooserGetItems - --- method RecentChooser::get_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_limit" gtk_recent_chooser_get_limit :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO Int32 - - -recentChooserGetLimit :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Int32 -- result -recentChooserGetLimit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_limit _obj' - touchManagedPtr _obj - return result - -data RecentChooserGetLimitMethodInfo -instance (signature ~ (m Int32), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetLimitMethodInfo a signature where - overloadedMethod _ = recentChooserGetLimit - --- method RecentChooser::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_local_only" gtk_recent_chooser_get_local_only :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetLocalOnly :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetLocalOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetLocalOnlyMethodInfo a signature where - overloadedMethod _ = recentChooserGetLocalOnly - --- method RecentChooser::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_select_multiple" gtk_recent_chooser_get_select_multiple :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetSelectMultiple :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetSelectMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetSelectMultipleMethodInfo a signature where - overloadedMethod _ = recentChooserGetSelectMultiple - --- method RecentChooser::get_show_icons --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_show_icons" gtk_recent_chooser_get_show_icons :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetShowIcons :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetShowIcons _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_icons _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetShowIconsMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowIconsMethodInfo a signature where - overloadedMethod _ = recentChooserGetShowIcons - --- method RecentChooser::get_show_not_found --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_show_not_found" gtk_recent_chooser_get_show_not_found :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetShowNotFound :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetShowNotFound _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_not_found _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetShowNotFoundMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowNotFoundMethodInfo a signature where - overloadedMethod _ = recentChooserGetShowNotFound - --- method RecentChooser::get_show_private --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_show_private" gtk_recent_chooser_get_show_private :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetShowPrivate :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetShowPrivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_private _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetShowPrivateMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowPrivateMethodInfo a signature where - overloadedMethod _ = recentChooserGetShowPrivate - --- method RecentChooser::get_show_tips --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_get_show_tips" gtk_recent_chooser_get_show_tips :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CInt - - -recentChooserGetShowTips :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m Bool -- result -recentChooserGetShowTips _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_tips _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserGetShowTipsMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowTipsMethodInfo a signature where - overloadedMethod _ = recentChooserGetShowTips - --- method RecentChooser::get_sort_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentSortType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_get_sort_type" gtk_recent_chooser_get_sort_type :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO CUInt - - -recentChooserGetSortType :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m RecentSortType -- result -recentChooserGetSortType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_sort_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data RecentChooserGetSortTypeMethodInfo -instance (signature ~ (m RecentSortType), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetSortTypeMethodInfo a signature where - overloadedMethod _ = recentChooserGetSortType - --- method RecentChooser::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_get_uris" gtk_recent_chooser_get_uris :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr CString) - - -recentChooserGetUris :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m ([T.Text],Word64) -- result -recentChooserGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_recent_chooser_get_uris _obj' length_ - checkUnexpectedReturnNULL "gtk_recent_chooser_get_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - -data RecentChooserGetUrisMethodInfo -instance (signature ~ (m ([T.Text],Word64)), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetUrisMethodInfo a signature where - overloadedMethod _ = recentChooserGetUris - --- method RecentChooser::list_filters --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "RecentFilter")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_list_filters" gtk_recent_chooser_list_filters :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO (Ptr (GSList (Ptr RecentFilter))) - - -recentChooserListFilters :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m [RecentFilter] -- result -recentChooserListFilters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_list_filters _obj' - result' <- unpackGSList result - result'' <- mapM (newObject RecentFilter) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data RecentChooserListFiltersMethodInfo -instance (signature ~ (m [RecentFilter]), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserListFiltersMethodInfo a signature where - overloadedMethod _ = recentChooserListFilters - --- method RecentChooser::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", 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 "gtk_recent_chooser_remove_filter" gtk_recent_chooser_remove_filter :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter" - IO () - - -recentChooserRemoveFilter :: - (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -- _obj - -> b -- filter - -> m () -- result -recentChooserRemoveFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_recent_chooser_remove_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - -data RecentChooserRemoveFilterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserRemoveFilterMethodInfo a signature where - overloadedMethod _ = recentChooserRemoveFilter - --- method RecentChooser::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_select_all" gtk_recent_chooser_select_all :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO () - - -recentChooserSelectAll :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m () -- result -recentChooserSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_select_all _obj' - touchManagedPtr _obj - return () - -data RecentChooserSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSelectAllMethodInfo a signature where - overloadedMethod _ = recentChooserSelectAll - --- method RecentChooser::select_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_chooser_select_uri" gtk_recent_chooser_select_uri :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -recentChooserSelectUri :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -recentChooserSelectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_recent_chooser_select_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data RecentChooserSelectUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSelectUriMethodInfo a signature where - overloadedMethod _ = recentChooserSelectUri - --- method RecentChooser::set_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_chooser_set_current_uri" gtk_recent_chooser_set_current_uri :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -recentChooserSetCurrentUri :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -recentChooserSetCurrentUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_recent_chooser_set_current_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data RecentChooserSetCurrentUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetCurrentUriMethodInfo a signature where - overloadedMethod _ = recentChooserSetCurrentUri - --- method RecentChooser::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_set_filter" gtk_recent_chooser_set_filter :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Ptr RecentFilter -> -- filter : TInterface "Gtk" "RecentFilter" - IO () - - -recentChooserSetFilter :: - (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -- _obj - -> Maybe (b) -- filter - -> m () -- result -recentChooserSetFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter <- case filter of - Nothing -> return nullPtr - Just jFilter -> do - let jFilter' = unsafeManagedPtrCastPtr jFilter - return jFilter' - gtk_recent_chooser_set_filter _obj' maybeFilter - touchManagedPtr _obj - whenJust filter touchManagedPtr - return () - -data RecentChooserSetFilterMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserSetFilterMethodInfo a signature where - overloadedMethod _ = recentChooserSetFilter - --- method RecentChooser::set_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", 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 "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Int32 -> -- limit : TBasicType TInt - IO () - - -recentChooserSetLimit :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Int32 -- limit - -> m () -- result -recentChooserSetLimit _obj limit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_set_limit _obj' limit - touchManagedPtr _obj - return () - -data RecentChooserSetLimitMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetLimitMethodInfo a signature where - overloadedMethod _ = recentChooserSetLimit - --- method RecentChooser::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", 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 "gtk_recent_chooser_set_local_only" gtk_recent_chooser_set_local_only :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- local_only : TBasicType TBoolean - IO () - - -recentChooserSetLocalOnly :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- localOnly - -> m () -- result -recentChooserSetLocalOnly _obj localOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let localOnly' = (fromIntegral . fromEnum) localOnly - gtk_recent_chooser_set_local_only _obj' localOnly' - touchManagedPtr _obj - return () - -data RecentChooserSetLocalOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetLocalOnlyMethodInfo a signature where - overloadedMethod _ = recentChooserSetLocalOnly - --- method RecentChooser::set_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", 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 "gtk_recent_chooser_set_select_multiple" gtk_recent_chooser_set_select_multiple :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- select_multiple : TBasicType TBoolean - IO () - - -recentChooserSetSelectMultiple :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- selectMultiple - -> m () -- result -recentChooserSetSelectMultiple _obj selectMultiple = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selectMultiple' = (fromIntegral . fromEnum) selectMultiple - gtk_recent_chooser_set_select_multiple _obj' selectMultiple' - touchManagedPtr _obj - return () - -data RecentChooserSetSelectMultipleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSelectMultipleMethodInfo a signature where - overloadedMethod _ = recentChooserSetSelectMultiple - --- method RecentChooser::set_show_icons --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_icons", 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 "gtk_recent_chooser_set_show_icons" gtk_recent_chooser_set_show_icons :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- show_icons : TBasicType TBoolean - IO () - - -recentChooserSetShowIcons :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- showIcons - -> m () -- result -recentChooserSetShowIcons _obj showIcons = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showIcons' = (fromIntegral . fromEnum) showIcons - gtk_recent_chooser_set_show_icons _obj' showIcons' - touchManagedPtr _obj - return () - -data RecentChooserSetShowIconsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowIconsMethodInfo a signature where - overloadedMethod _ = recentChooserSetShowIcons - --- method RecentChooser::set_show_not_found --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_not_found", 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 "gtk_recent_chooser_set_show_not_found" gtk_recent_chooser_set_show_not_found :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- show_not_found : TBasicType TBoolean - IO () - - -recentChooserSetShowNotFound :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- showNotFound - -> m () -- result -recentChooserSetShowNotFound _obj showNotFound = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showNotFound' = (fromIntegral . fromEnum) showNotFound - gtk_recent_chooser_set_show_not_found _obj' showNotFound' - touchManagedPtr _obj - return () - -data RecentChooserSetShowNotFoundMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowNotFoundMethodInfo a signature where - overloadedMethod _ = recentChooserSetShowNotFound - --- method RecentChooser::set_show_private --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_private", 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 "gtk_recent_chooser_set_show_private" gtk_recent_chooser_set_show_private :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- show_private : TBasicType TBoolean - IO () - - -recentChooserSetShowPrivate :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- showPrivate - -> m () -- result -recentChooserSetShowPrivate _obj showPrivate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showPrivate' = (fromIntegral . fromEnum) showPrivate - gtk_recent_chooser_set_show_private _obj' showPrivate' - touchManagedPtr _obj - return () - -data RecentChooserSetShowPrivateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowPrivateMethodInfo a signature where - overloadedMethod _ = recentChooserSetShowPrivate - --- method RecentChooser::set_show_tips --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tips", 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 "gtk_recent_chooser_set_show_tips" gtk_recent_chooser_set_show_tips :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CInt -> -- show_tips : TBasicType TBoolean - IO () - - -recentChooserSetShowTips :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> Bool -- showTips - -> m () -- result -recentChooserSetShowTips _obj showTips = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showTips' = (fromIntegral . fromEnum) showTips - gtk_recent_chooser_set_show_tips _obj' showTips' - touchManagedPtr _obj - return () - -data RecentChooserSetShowTipsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowTipsMethodInfo a signature where - overloadedMethod _ = recentChooserSetShowTips - --- method RecentChooser::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_set_sort_func" gtk_recent_chooser_set_sort_func :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - FunPtr RecentSortFuncC -> -- sort_func : TInterface "Gtk" "RecentSortFunc" - Ptr () -> -- sort_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -recentChooserSetSortFunc :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> RecentSortFunc -- sortFunc - -> m () -- result -recentChooserSetSortFunc _obj sortFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sortFunc' <- mkRecentSortFunc (recentSortFuncWrapper Nothing sortFunc) - let sortData = castFunPtrToPtr sortFunc' - let dataDestroy = safeFreeFunPtrPtr - gtk_recent_chooser_set_sort_func _obj' sortFunc' sortData dataDestroy - touchManagedPtr _obj - return () - -data RecentChooserSetSortFuncMethodInfo -instance (signature ~ (RecentSortFunc -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSortFuncMethodInfo a signature where - overloadedMethod _ = recentChooserSetSortFunc - --- method RecentChooser::set_sort_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_type", argType = TInterface "Gtk" "RecentSortType", 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 "gtk_recent_chooser_set_sort_type" gtk_recent_chooser_set_sort_type :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CUInt -> -- sort_type : TInterface "Gtk" "RecentSortType" - IO () - - -recentChooserSetSortType :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> RecentSortType -- sortType - -> m () -- result -recentChooserSetSortType _obj sortType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sortType' = (fromIntegral . fromEnum) sortType - gtk_recent_chooser_set_sort_type _obj' sortType' - touchManagedPtr _obj - return () - -data RecentChooserSetSortTypeMethodInfo -instance (signature ~ (RecentSortType -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSortTypeMethodInfo a signature where - overloadedMethod _ = recentChooserSetSortType - --- method RecentChooser::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", 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 "gtk_recent_chooser_unselect_all" gtk_recent_chooser_unselect_all :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - IO () - - -recentChooserUnselectAll :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> m () -- result -recentChooserUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_unselect_all _obj' - touchManagedPtr _obj - return () - -data RecentChooserUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserUnselectAllMethodInfo a signature where - overloadedMethod _ = recentChooserUnselectAll - --- method RecentChooser::unselect_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_recent_chooser_unselect_uri" gtk_recent_chooser_unselect_uri :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - CString -> -- uri : TBasicType TUTF8 - IO () - - -recentChooserUnselectUri :: - (MonadIO m, RecentChooserK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -recentChooserUnselectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_recent_chooser_unselect_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data RecentChooserUnselectUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserUnselectUriMethodInfo a signature where - overloadedMethod _ = recentChooserUnselectUri - - diff --git a/GI/Gtk/Interfaces/RecentChooser.hs-boot b/GI/Gtk/Interfaces/RecentChooser.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/RecentChooser.hs-boot +++ /dev/null @@ -1,56 +0,0 @@ -module GI.Gtk.Interfaces.RecentChooser 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 RecentChooser = RecentChooser (ForeignPtr RecentChooser) -data RecentChooserFilterPropertyInfo -data RecentChooserLimitPropertyInfo -data RecentChooserLocalOnlyPropertyInfo -data RecentChooserRecentManagerPropertyInfo -data RecentChooserSelectMultiplePropertyInfo -data RecentChooserShowIconsPropertyInfo -data RecentChooserShowNotFoundPropertyInfo -data RecentChooserShowPrivatePropertyInfo -data RecentChooserShowTipsPropertyInfo -data RecentChooserSortTypePropertyInfo -data RecentChooserItemActivatedSignalInfo -data RecentChooserSelectionChangedSignalInfo -instance GObject RecentChooser where -class GObject o => RecentChooserK o -instance (GObject o, IsDescendantOf RecentChooser o) => RecentChooserK o -data RecentChooserAddFilterMethodInfo -data RecentChooserGetCurrentItemMethodInfo -data RecentChooserGetCurrentUriMethodInfo -data RecentChooserGetFilterMethodInfo -data RecentChooserGetItemsMethodInfo -data RecentChooserGetLimitMethodInfo -data RecentChooserGetLocalOnlyMethodInfo -data RecentChooserGetSelectMultipleMethodInfo -data RecentChooserGetShowIconsMethodInfo -data RecentChooserGetShowNotFoundMethodInfo -data RecentChooserGetShowPrivateMethodInfo -data RecentChooserGetShowTipsMethodInfo -data RecentChooserGetSortTypeMethodInfo -data RecentChooserGetUrisMethodInfo -data RecentChooserListFiltersMethodInfo -data RecentChooserRemoveFilterMethodInfo -data RecentChooserSelectAllMethodInfo -data RecentChooserSelectUriMethodInfo -data RecentChooserSetCurrentUriMethodInfo -data RecentChooserSetFilterMethodInfo -data RecentChooserSetLimitMethodInfo -data RecentChooserSetLocalOnlyMethodInfo -data RecentChooserSetSelectMultipleMethodInfo -data RecentChooserSetShowIconsMethodInfo -data RecentChooserSetShowNotFoundMethodInfo -data RecentChooserSetShowPrivateMethodInfo -data RecentChooserSetShowTipsMethodInfo -data RecentChooserSetSortFuncMethodInfo -data RecentChooserSetSortTypeMethodInfo -data RecentChooserUnselectAllMethodInfo -data RecentChooserUnselectUriMethodInfo diff --git a/GI/Gtk/Interfaces/Scrollable.hs b/GI/Gtk/Interfaces/Scrollable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/Scrollable.hs +++ /dev/null @@ -1,586 +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.Gtk.Interfaces.Scrollable - ( - --- * Exported types - Scrollable(..) , - noScrollable , - ScrollableK , - toScrollable , - - - -- * Methods --- ** scrollableGetBorder - ScrollableGetBorderMethodInfo , - scrollableGetBorder , - - --- ** scrollableGetHadjustment - ScrollableGetHadjustmentMethodInfo , - scrollableGetHadjustment , - - --- ** scrollableGetHscrollPolicy - ScrollableGetHscrollPolicyMethodInfo , - scrollableGetHscrollPolicy , - - --- ** scrollableGetVadjustment - ScrollableGetVadjustmentMethodInfo , - scrollableGetVadjustment , - - --- ** scrollableGetVscrollPolicy - ScrollableGetVscrollPolicyMethodInfo , - scrollableGetVscrollPolicy , - - --- ** scrollableSetHadjustment - ScrollableSetHadjustmentMethodInfo , - scrollableSetHadjustment , - - --- ** scrollableSetHscrollPolicy - ScrollableSetHscrollPolicyMethodInfo , - scrollableSetHscrollPolicy , - - --- ** scrollableSetVadjustment - ScrollableSetVadjustmentMethodInfo , - scrollableSetVadjustment , - - --- ** scrollableSetVscrollPolicy - ScrollableSetVscrollPolicyMethodInfo , - scrollableSetVscrollPolicy , - - - - - -- * Properties --- ** Hadjustment - ScrollableHadjustmentPropertyInfo , - clearScrollableHadjustment , - constructScrollableHadjustment , - getScrollableHadjustment , - scrollableHadjustment , - setScrollableHadjustment , - - --- ** HscrollPolicy - ScrollableHscrollPolicyPropertyInfo , - constructScrollableHscrollPolicy , - getScrollableHscrollPolicy , - scrollableHscrollPolicy , - setScrollableHscrollPolicy , - - --- ** Vadjustment - ScrollableVadjustmentPropertyInfo , - clearScrollableVadjustment , - constructScrollableVadjustment , - getScrollableVadjustment , - scrollableVadjustment , - setScrollableVadjustment , - - --- ** VscrollPolicy - ScrollableVscrollPolicyPropertyInfo , - constructScrollableVscrollPolicy , - getScrollableVscrollPolicy , - scrollableVscrollPolicy , - setScrollableVscrollPolicy , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Scrollable - -newtype Scrollable = Scrollable (ForeignPtr Scrollable) -noScrollable :: Maybe Scrollable -noScrollable = Nothing - -type family ResolveScrollableMethod (t :: Symbol) (o :: *) :: * where - ResolveScrollableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScrollableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScrollableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScrollableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScrollableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScrollableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScrollableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScrollableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScrollableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScrollableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScrollableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScrollableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScrollableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScrollableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScrollableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScrollableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScrollableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScrollableMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveScrollableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScrollableMethod "getHadjustment" o = ScrollableGetHadjustmentMethodInfo - ResolveScrollableMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveScrollableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScrollableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScrollableMethod "getVadjustment" o = ScrollableGetVadjustmentMethodInfo - ResolveScrollableMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveScrollableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScrollableMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo - ResolveScrollableMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveScrollableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScrollableMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo - ResolveScrollableMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveScrollableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScrollableMethod t Scrollable, MethodInfo info Scrollable p) => IsLabelProxy t (Scrollable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScrollableMethod t Scrollable, MethodInfo info Scrollable p) => IsLabel t (Scrollable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "hadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableHadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableHadjustment" $ getObjectPropertyObject obj "hadjustment" Adjustment - -setScrollableHadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" (Just val) - -constructScrollableHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" (Just val) - -clearScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m () -clearScrollableHadjustment obj = liftIO $ setObjectPropertyObject obj "hadjustment" (Nothing :: Maybe Adjustment) - -data ScrollableHadjustmentPropertyInfo -instance AttrInfo ScrollableHadjustmentPropertyInfo where - type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK - type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableHadjustmentPropertyInfo = "hadjustment" - attrGet _ = getScrollableHadjustment - attrSet _ = setScrollableHadjustment - attrConstruct _ = constructScrollableHadjustment - attrClear _ = clearScrollableHadjustment - --- VVV Prop "hscroll-policy" - -- Type: TInterface "Gtk" "ScrollablePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrollableHscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy -getScrollableHscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "hscroll-policy" - -setScrollableHscrollPolicy :: (MonadIO m, ScrollableK o) => o -> ScrollablePolicy -> m () -setScrollableHscrollPolicy obj val = liftIO $ setObjectPropertyEnum obj "hscroll-policy" val - -constructScrollableHscrollPolicy :: ScrollablePolicy -> IO ([Char], GValue) -constructScrollableHscrollPolicy val = constructObjectPropertyEnum "hscroll-policy" val - -data ScrollableHscrollPolicyPropertyInfo -instance AttrInfo ScrollableHscrollPolicyPropertyInfo where - type AttrAllowedOps ScrollableHscrollPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrollableHscrollPolicyPropertyInfo = (~) ScrollablePolicy - type AttrBaseTypeConstraint ScrollableHscrollPolicyPropertyInfo = ScrollableK - type AttrGetType ScrollableHscrollPolicyPropertyInfo = ScrollablePolicy - type AttrLabel ScrollableHscrollPolicyPropertyInfo = "hscroll-policy" - attrGet _ = getScrollableHscrollPolicy - attrSet _ = setScrollableHscrollPolicy - attrConstruct _ = constructScrollableHscrollPolicy - attrClear _ = undefined - --- VVV Prop "vadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableVadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableVadjustment" $ getObjectPropertyObject obj "vadjustment" Adjustment - -setScrollableVadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" (Just val) - -constructScrollableVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" (Just val) - -clearScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m () -clearScrollableVadjustment obj = liftIO $ setObjectPropertyObject obj "vadjustment" (Nothing :: Maybe Adjustment) - -data ScrollableVadjustmentPropertyInfo -instance AttrInfo ScrollableVadjustmentPropertyInfo where - type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK - type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableVadjustmentPropertyInfo = "vadjustment" - attrGet _ = getScrollableVadjustment - attrSet _ = setScrollableVadjustment - attrConstruct _ = constructScrollableVadjustment - attrClear _ = clearScrollableVadjustment - --- VVV Prop "vscroll-policy" - -- Type: TInterface "Gtk" "ScrollablePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrollableVscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy -getScrollableVscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "vscroll-policy" - -setScrollableVscrollPolicy :: (MonadIO m, ScrollableK o) => o -> ScrollablePolicy -> m () -setScrollableVscrollPolicy obj val = liftIO $ setObjectPropertyEnum obj "vscroll-policy" val - -constructScrollableVscrollPolicy :: ScrollablePolicy -> IO ([Char], GValue) -constructScrollableVscrollPolicy val = constructObjectPropertyEnum "vscroll-policy" val - -data ScrollableVscrollPolicyPropertyInfo -instance AttrInfo ScrollableVscrollPolicyPropertyInfo where - type AttrAllowedOps ScrollableVscrollPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrollableVscrollPolicyPropertyInfo = (~) ScrollablePolicy - type AttrBaseTypeConstraint ScrollableVscrollPolicyPropertyInfo = ScrollableK - type AttrGetType ScrollableVscrollPolicyPropertyInfo = ScrollablePolicy - type AttrLabel ScrollableVscrollPolicyPropertyInfo = "vscroll-policy" - attrGet _ = getScrollableVscrollPolicy - attrSet _ = setScrollableVscrollPolicy - attrConstruct _ = constructScrollableVscrollPolicy - attrClear _ = undefined - -type instance AttributeList Scrollable = ScrollableAttributeList -type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) - -scrollableHadjustment :: AttrLabelProxy "hadjustment" -scrollableHadjustment = AttrLabelProxy - -scrollableHscrollPolicy :: AttrLabelProxy "hscrollPolicy" -scrollableHscrollPolicy = AttrLabelProxy - -scrollableVadjustment :: AttrLabelProxy "vadjustment" -scrollableVadjustment = AttrLabelProxy - -scrollableVscrollPolicy :: AttrLabelProxy "vscrollPolicy" -scrollableVscrollPolicy = AttrLabelProxy - -type instance SignalList Scrollable = ScrollableSignalList -type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_scrollable_get_type" - c_gtk_scrollable_get_type :: IO GType - -type instance ParentTypes Scrollable = ScrollableParentTypes -type ScrollableParentTypes = '[GObject.Object] - -instance GObject Scrollable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_scrollable_get_type - - -class GObject o => ScrollableK o -instance (GObject o, IsDescendantOf Scrollable o) => ScrollableK o - -toScrollable :: ScrollableK o => o -> IO Scrollable -toScrollable = unsafeCastTo Scrollable - --- method Scrollable::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", 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 "gtk_scrollable_get_border" gtk_scrollable_get_border :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - Ptr Border -> -- border : TInterface "Gtk" "Border" - IO CInt - - -scrollableGetBorder :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> Border -- border - -> m Bool -- result -scrollableGetBorder _obj border = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let border' = unsafeManagedPtrGetPtr border - result <- gtk_scrollable_get_border _obj' border' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr border - return result' - -data ScrollableGetBorderMethodInfo -instance (signature ~ (Border -> m Bool), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetBorderMethodInfo a signature where - overloadedMethod _ = scrollableGetBorder - --- method Scrollable::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_get_hadjustment" gtk_scrollable_get_hadjustment :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - IO (Ptr Adjustment) - - -scrollableGetHadjustment :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> m Adjustment -- result -scrollableGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_scrollable_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ScrollableGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetHadjustmentMethodInfo a signature where - overloadedMethod _ = scrollableGetHadjustment - --- method Scrollable::get_hscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ScrollablePolicy") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_get_hscroll_policy" gtk_scrollable_get_hscroll_policy :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - IO CUInt - - -scrollableGetHscrollPolicy :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> m ScrollablePolicy -- result -scrollableGetHscrollPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_hscroll_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScrollableGetHscrollPolicyMethodInfo -instance (signature ~ (m ScrollablePolicy), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetHscrollPolicyMethodInfo a signature where - overloadedMethod _ = scrollableGetHscrollPolicy - --- method Scrollable::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_get_vadjustment" gtk_scrollable_get_vadjustment :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - IO (Ptr Adjustment) - - -scrollableGetVadjustment :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> m Adjustment -- result -scrollableGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_scrollable_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ScrollableGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetVadjustmentMethodInfo a signature where - overloadedMethod _ = scrollableGetVadjustment - --- method Scrollable::get_vscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ScrollablePolicy") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_get_vscroll_policy" gtk_scrollable_get_vscroll_policy :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - IO CUInt - - -scrollableGetVscrollPolicy :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> m ScrollablePolicy -- result -scrollableGetVscrollPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_vscroll_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScrollableGetVscrollPolicyMethodInfo -instance (signature ~ (m ScrollablePolicy), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetVscrollPolicyMethodInfo a signature where - overloadedMethod _ = scrollableGetVscrollPolicy - --- method Scrollable::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_set_hadjustment" gtk_scrollable_set_hadjustment :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment" - IO () - - -scrollableSetHadjustment :: - (MonadIO m, ScrollableK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- hadjustment - -> m () -- result -scrollableSetHadjustment _obj hadjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeHadjustment <- case hadjustment of - Nothing -> return nullPtr - Just jHadjustment -> do - let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment - return jHadjustment' - gtk_scrollable_set_hadjustment _obj' maybeHadjustment - touchManagedPtr _obj - whenJust hadjustment touchManagedPtr - return () - -data ScrollableSetHadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ScrollableK a, AdjustmentK b) => MethodInfo ScrollableSetHadjustmentMethodInfo a signature where - overloadedMethod _ = scrollableSetHadjustment - --- method Scrollable::set_hscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", 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 "gtk_scrollable_set_hscroll_policy" gtk_scrollable_set_hscroll_policy :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - CUInt -> -- policy : TInterface "Gtk" "ScrollablePolicy" - IO () - - -scrollableSetHscrollPolicy :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> ScrollablePolicy -- policy - -> m () -- result -scrollableSetHscrollPolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - gtk_scrollable_set_hscroll_policy _obj' policy' - touchManagedPtr _obj - return () - -data ScrollableSetHscrollPolicyMethodInfo -instance (signature ~ (ScrollablePolicy -> m ()), MonadIO m, ScrollableK a) => MethodInfo ScrollableSetHscrollPolicyMethodInfo a signature where - overloadedMethod _ = scrollableSetHscrollPolicy - --- method Scrollable::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollable_set_vadjustment" gtk_scrollable_set_vadjustment :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment" - IO () - - -scrollableSetVadjustment :: - (MonadIO m, ScrollableK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- vadjustment - -> m () -- result -scrollableSetVadjustment _obj vadjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeVadjustment <- case vadjustment of - Nothing -> return nullPtr - Just jVadjustment -> do - let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment - return jVadjustment' - gtk_scrollable_set_vadjustment _obj' maybeVadjustment - touchManagedPtr _obj - whenJust vadjustment touchManagedPtr - return () - -data ScrollableSetVadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ScrollableK a, AdjustmentK b) => MethodInfo ScrollableSetVadjustmentMethodInfo a signature where - overloadedMethod _ = scrollableSetVadjustment - --- method Scrollable::set_vscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", 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 "gtk_scrollable_set_vscroll_policy" gtk_scrollable_set_vscroll_policy :: - Ptr Scrollable -> -- _obj : TInterface "Gtk" "Scrollable" - CUInt -> -- policy : TInterface "Gtk" "ScrollablePolicy" - IO () - - -scrollableSetVscrollPolicy :: - (MonadIO m, ScrollableK a) => - a -- _obj - -> ScrollablePolicy -- policy - -> m () -- result -scrollableSetVscrollPolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - gtk_scrollable_set_vscroll_policy _obj' policy' - touchManagedPtr _obj - return () - -data ScrollableSetVscrollPolicyMethodInfo -instance (signature ~ (ScrollablePolicy -> m ()), MonadIO m, ScrollableK a) => MethodInfo ScrollableSetVscrollPolicyMethodInfo a signature where - overloadedMethod _ = scrollableSetVscrollPolicy - - diff --git a/GI/Gtk/Interfaces/Scrollable.hs-boot b/GI/Gtk/Interfaces/Scrollable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/Scrollable.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gtk.Interfaces.Scrollable 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 Scrollable = Scrollable (ForeignPtr Scrollable) -data ScrollableHadjustmentPropertyInfo -data ScrollableHscrollPolicyPropertyInfo -data ScrollableVadjustmentPropertyInfo -data ScrollableVscrollPolicyPropertyInfo -instance GObject Scrollable where -class GObject o => ScrollableK o -instance (GObject o, IsDescendantOf Scrollable o) => ScrollableK o -data ScrollableGetBorderMethodInfo -data ScrollableGetHadjustmentMethodInfo -data ScrollableGetHscrollPolicyMethodInfo -data ScrollableGetVadjustmentMethodInfo -data ScrollableGetVscrollPolicyMethodInfo -data ScrollableSetHadjustmentMethodInfo -data ScrollableSetHscrollPolicyMethodInfo -data ScrollableSetVadjustmentMethodInfo -data ScrollableSetVscrollPolicyMethodInfo diff --git a/GI/Gtk/Interfaces/StyleProvider.hs b/GI/Gtk/Interfaces/StyleProvider.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/StyleProvider.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.Gtk.Interfaces.StyleProvider - ( - --- * Exported types - StyleProvider(..) , - noStyleProvider , - StyleProviderK , - - - -- * Methods --- ** styleProviderGetIconFactory - StyleProviderGetIconFactoryMethodInfo , - styleProviderGetIconFactory , - - --- ** styleProviderGetStyle - StyleProviderGetStyleMethodInfo , - styleProviderGetStyle , - - --- ** styleProviderGetStyleProperty - StyleProviderGetStylePropertyMethodInfo , - styleProviderGetStyleProperty , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - --- interface StyleProvider - -newtype StyleProvider = StyleProvider (ForeignPtr StyleProvider) -noStyleProvider :: Maybe StyleProvider -noStyleProvider = Nothing - -type family ResolveStyleProviderMethod (t :: Symbol) (o :: *) :: * where - ResolveStyleProviderMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo - ResolveStyleProviderMethod "getStyle" o = StyleProviderGetStyleMethodInfo - ResolveStyleProviderMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo - ResolveStyleProviderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStyleProviderMethod t StyleProvider, MethodInfo info StyleProvider p) => IsLabelProxy t (StyleProvider -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStyleProviderMethod t StyleProvider, MethodInfo info StyleProvider p) => IsLabel t (StyleProvider -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList StyleProvider = StyleProviderAttributeList -type StyleProviderAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList StyleProvider = StyleProviderSignalList -type StyleProviderSignalList = ('[ ] :: [(Symbol, *)]) - -class ForeignPtrNewtype a => StyleProviderK a -instance (ForeignPtrNewtype o, IsDescendantOf StyleProvider o) => StyleProviderK o -type instance ParentTypes StyleProvider = StyleProviderParentTypes -type StyleProviderParentTypes = '[] - --- method StyleProvider::get_icon_factory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconFactory") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_provider_get_icon_factory" gtk_style_provider_get_icon_factory :: - Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider" - Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath" - IO (Ptr IconFactory) - -{-# DEPRECATED styleProviderGetIconFactory ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers."]#-} -styleProviderGetIconFactory :: - (MonadIO m, StyleProviderK a) => - a -- _obj - -> WidgetPath -- path - -> m IconFactory -- result -styleProviderGetIconFactory _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_style_provider_get_icon_factory _obj' path' - checkUnexpectedReturnNULL "gtk_style_provider_get_icon_factory" result - result' <- (newObject IconFactory) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data StyleProviderGetIconFactoryMethodInfo -instance (signature ~ (WidgetPath -> m IconFactory), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetIconFactoryMethodInfo a signature where - overloadedMethod _ = styleProviderGetIconFactory - --- method StyleProvider::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleProperties") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_provider_get_style" gtk_style_provider_get_style :: - Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider" - Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath" - IO (Ptr StyleProperties) - -{-# DEPRECATED styleProviderGetStyle ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers"," as the interface cannot correctly work the way CSS is specified."]#-} -styleProviderGetStyle :: - (MonadIO m, StyleProviderK a) => - a -- _obj - -> WidgetPath -- path - -> m StyleProperties -- result -styleProviderGetStyle _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_style_provider_get_style _obj' path' - checkUnexpectedReturnNULL "gtk_style_provider_get_style" result - result' <- (wrapObject StyleProperties) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data StyleProviderGetStyleMethodInfo -instance (signature ~ (WidgetPath -> m StyleProperties), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetStyleMethodInfo a signature where - overloadedMethod _ = styleProviderGetStyle - --- method StyleProvider::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_provider_get_style_property" gtk_style_provider_get_style_property :: - Ptr StyleProvider -> -- _obj : TInterface "Gtk" "StyleProvider" - Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CInt - - -styleProviderGetStyleProperty :: - (MonadIO m, StyleProviderK a) => - a -- _obj - -> WidgetPath -- path - -> [StateFlags] -- state - -> GParamSpec -- pspec - -> m (Bool,GValue) -- result -styleProviderGetStyleProperty _obj path state pspec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let state' = gflagsToWord state - let pspec' = unsafeManagedPtrGetPtr pspec - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - result <- gtk_style_provider_get_style_property _obj' path' state' pspec' value - let result' = (/= 0) result - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - touchManagedPtr path - return (result', value') - -data StyleProviderGetStylePropertyMethodInfo -instance (signature ~ (WidgetPath -> [StateFlags] -> GParamSpec -> m (Bool,GValue)), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetStylePropertyMethodInfo a signature where - overloadedMethod _ = styleProviderGetStyleProperty - - diff --git a/GI/Gtk/Interfaces/StyleProvider.hs-boot b/GI/Gtk/Interfaces/StyleProvider.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/StyleProvider.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Interfaces.StyleProvider 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 StyleProvider = StyleProvider (ForeignPtr StyleProvider) -class ForeignPtrNewtype a => StyleProviderK a -instance (ForeignPtrNewtype o, IsDescendantOf StyleProvider o) => StyleProviderK o -data StyleProviderGetIconFactoryMethodInfo -data StyleProviderGetStyleMethodInfo -data StyleProviderGetStylePropertyMethodInfo diff --git a/GI/Gtk/Interfaces/ToolShell.hs b/GI/Gtk/Interfaces/ToolShell.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/ToolShell.hs +++ /dev/null @@ -1,664 +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.Gtk.Interfaces.ToolShell - ( - --- * Exported types - ToolShell(..) , - noToolShell , - ToolShellK , - toToolShell , - - - -- * Methods --- ** toolShellGetEllipsizeMode - ToolShellGetEllipsizeModeMethodInfo , - toolShellGetEllipsizeMode , - - --- ** toolShellGetIconSize - ToolShellGetIconSizeMethodInfo , - toolShellGetIconSize , - - --- ** toolShellGetOrientation - ToolShellGetOrientationMethodInfo , - toolShellGetOrientation , - - --- ** toolShellGetReliefStyle - ToolShellGetReliefStyleMethodInfo , - toolShellGetReliefStyle , - - --- ** toolShellGetStyle - ToolShellGetStyleMethodInfo , - toolShellGetStyle , - - --- ** toolShellGetTextAlignment - ToolShellGetTextAlignmentMethodInfo , - toolShellGetTextAlignment , - - --- ** toolShellGetTextOrientation - ToolShellGetTextOrientationMethodInfo , - toolShellGetTextOrientation , - - --- ** toolShellGetTextSizeGroup - ToolShellGetTextSizeGroupMethodInfo , - toolShellGetTextSizeGroup , - - --- ** toolShellRebuildMenu - ToolShellRebuildMenuMethodInfo , - toolShellRebuildMenu , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - --- interface ToolShell - -newtype ToolShell = ToolShell (ForeignPtr ToolShell) -noToolShell :: Maybe ToolShell -noToolShell = Nothing - -type family ResolveToolShellMethod (t :: Symbol) (o :: *) :: * where - ResolveToolShellMethod "activate" o = WidgetActivateMethodInfo - ResolveToolShellMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolShellMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolShellMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolShellMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolShellMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolShellMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolShellMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolShellMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolShellMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolShellMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolShellMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveToolShellMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolShellMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolShellMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolShellMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolShellMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolShellMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolShellMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolShellMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolShellMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolShellMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolShellMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolShellMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolShellMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolShellMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolShellMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolShellMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolShellMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolShellMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolShellMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolShellMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolShellMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolShellMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolShellMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolShellMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolShellMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolShellMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolShellMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolShellMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolShellMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolShellMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolShellMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolShellMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolShellMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolShellMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolShellMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolShellMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolShellMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolShellMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolShellMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolShellMethod "draw" o = WidgetDrawMethodInfo - ResolveToolShellMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolShellMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolShellMethod "event" o = WidgetEventMethodInfo - ResolveToolShellMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolShellMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolShellMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolShellMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolShellMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolShellMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolShellMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolShellMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolShellMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolShellMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolShellMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolShellMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolShellMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolShellMethod "hide" o = WidgetHideMethodInfo - ResolveToolShellMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolShellMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolShellMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolShellMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolShellMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolShellMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolShellMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolShellMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolShellMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolShellMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolShellMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolShellMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolShellMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolShellMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolShellMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolShellMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolShellMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolShellMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolShellMethod "map" o = WidgetMapMethodInfo - ResolveToolShellMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolShellMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolShellMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolShellMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolShellMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolShellMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolShellMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolShellMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolShellMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolShellMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolShellMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolShellMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolShellMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolShellMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolShellMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolShellMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolShellMethod "path" o = WidgetPathMethodInfo - ResolveToolShellMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolShellMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolShellMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolShellMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolShellMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolShellMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolShellMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolShellMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo - ResolveToolShellMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolShellMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolShellMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolShellMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolShellMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolShellMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolShellMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolShellMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolShellMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolShellMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolShellMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolShellMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolShellMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolShellMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolShellMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolShellMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolShellMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolShellMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolShellMethod "show" o = WidgetShowMethodInfo - ResolveToolShellMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolShellMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolShellMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolShellMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolShellMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolShellMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolShellMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolShellMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolShellMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolShellMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolShellMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolShellMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolShellMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolShellMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolShellMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolShellMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolShellMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolShellMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolShellMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolShellMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolShellMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolShellMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolShellMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolShellMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolShellMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolShellMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolShellMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolShellMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolShellMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolShellMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolShellMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolShellMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolShellMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolShellMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolShellMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolShellMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolShellMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolShellMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolShellMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolShellMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolShellMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolShellMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo - ResolveToolShellMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolShellMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolShellMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolShellMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolShellMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolShellMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolShellMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolShellMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolShellMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolShellMethod "getIconSize" o = ToolShellGetIconSizeMethodInfo - ResolveToolShellMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolShellMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolShellMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolShellMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolShellMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolShellMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolShellMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolShellMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolShellMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolShellMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolShellMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolShellMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolShellMethod "getOrientation" o = ToolShellGetOrientationMethodInfo - ResolveToolShellMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolShellMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolShellMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolShellMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolShellMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolShellMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolShellMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolShellMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolShellMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolShellMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolShellMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolShellMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolShellMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolShellMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolShellMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolShellMethod "getReliefStyle" o = ToolShellGetReliefStyleMethodInfo - ResolveToolShellMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolShellMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolShellMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolShellMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolShellMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolShellMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolShellMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolShellMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolShellMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolShellMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolShellMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolShellMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolShellMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolShellMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo - ResolveToolShellMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo - ResolveToolShellMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo - ResolveToolShellMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolShellMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolShellMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolShellMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolShellMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolShellMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolShellMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolShellMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolShellMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolShellMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolShellMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolShellMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolShellMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolShellMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolShellMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolShellMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolShellMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolShellMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolShellMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolShellMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolShellMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolShellMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolShellMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolShellMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolShellMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolShellMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolShellMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolShellMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolShellMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolShellMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolShellMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolShellMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolShellMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolShellMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolShellMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolShellMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolShellMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolShellMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolShellMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolShellMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolShellMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolShellMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolShellMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolShellMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolShellMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolShellMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolShellMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolShellMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolShellMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolShellMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolShellMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolShellMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolShellMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToolShellMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolShellMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveToolShellMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveToolShellMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolShellMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolShellMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolShellMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolShellMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolShellMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolShellMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolShellMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolShellMethod t ToolShell, MethodInfo info ToolShell p) => IsLabelProxy t (ToolShell -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolShellMethod t ToolShell, MethodInfo info ToolShell p) => IsLabel t (ToolShell -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ToolShell = ToolShellAttributeList -type ToolShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToolShell = ToolShellSignalList -type ToolShellSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_tool_shell_get_type" - c_gtk_tool_shell_get_type :: IO GType - -type instance ParentTypes ToolShell = ToolShellParentTypes -type ToolShellParentTypes = '[Widget, GObject.Object] - -instance GObject ToolShell where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tool_shell_get_type - - -class GObject o => ToolShellK o -instance (GObject o, IsDescendantOf ToolShell o) => ToolShellK o - -toToolShell :: ToolShellK o => o -> IO ToolShell -toToolShell = unsafeCastTo ToolShell - --- method ToolShell::get_ellipsize_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "EllipsizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_ellipsize_mode" gtk_tool_shell_get_ellipsize_mode :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CUInt - - -toolShellGetEllipsizeMode :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m Pango.EllipsizeMode -- result -toolShellGetEllipsizeMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_ellipsize_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolShellGetEllipsizeModeMethodInfo -instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetEllipsizeModeMethodInfo a signature where - overloadedMethod _ = toolShellGetEllipsizeMode - --- method ToolShell::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", 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 "gtk_tool_shell_get_icon_size" gtk_tool_shell_get_icon_size :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO Int32 - - -toolShellGetIconSize :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m Int32 -- result -toolShellGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_icon_size _obj' - touchManagedPtr _obj - return result - -data ToolShellGetIconSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetIconSizeMethodInfo a signature where - overloadedMethod _ = toolShellGetIconSize - --- method ToolShell::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_orientation" gtk_tool_shell_get_orientation :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CUInt - - -toolShellGetOrientation :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m Orientation -- result -toolShellGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolShellGetOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetOrientationMethodInfo a signature where - overloadedMethod _ = toolShellGetOrientation - --- method ToolShell::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ReliefStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_relief_style" gtk_tool_shell_get_relief_style :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CUInt - - -toolShellGetReliefStyle :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m ReliefStyle -- result -toolShellGetReliefStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_relief_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolShellGetReliefStyleMethodInfo -instance (signature ~ (m ReliefStyle), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetReliefStyleMethodInfo a signature where - overloadedMethod _ = toolShellGetReliefStyle - --- method ToolShell::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolbarStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_style" gtk_tool_shell_get_style :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CUInt - - -toolShellGetStyle :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m ToolbarStyle -- result -toolShellGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolShellGetStyleMethodInfo -instance (signature ~ (m ToolbarStyle), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetStyleMethodInfo a signature where - overloadedMethod _ = toolShellGetStyle - --- method ToolShell::get_text_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_text_alignment" gtk_tool_shell_get_text_alignment :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CFloat - - -toolShellGetTextAlignment :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m Float -- result -toolShellGetTextAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_text_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ToolShellGetTextAlignmentMethodInfo -instance (signature ~ (m Float), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextAlignmentMethodInfo a signature where - overloadedMethod _ = toolShellGetTextAlignment - --- method ToolShell::get_text_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_text_orientation" gtk_tool_shell_get_text_orientation :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO CUInt - - -toolShellGetTextOrientation :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m Orientation -- result -toolShellGetTextOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_text_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolShellGetTextOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextOrientationMethodInfo a signature where - overloadedMethod _ = toolShellGetTextOrientation - --- method ToolShell::get_text_size_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_shell_get_text_size_group" gtk_tool_shell_get_text_size_group :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO (Ptr SizeGroup) - - -toolShellGetTextSizeGroup :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m SizeGroup -- result -toolShellGetTextSizeGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_text_size_group _obj' - checkUnexpectedReturnNULL "gtk_tool_shell_get_text_size_group" result - result' <- (newObject SizeGroup) result - touchManagedPtr _obj - return result' - -data ToolShellGetTextSizeGroupMethodInfo -instance (signature ~ (m SizeGroup), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextSizeGroupMethodInfo a signature where - overloadedMethod _ = toolShellGetTextSizeGroup - --- method ToolShell::rebuild_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", 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 "gtk_tool_shell_rebuild_menu" gtk_tool_shell_rebuild_menu :: - Ptr ToolShell -> -- _obj : TInterface "Gtk" "ToolShell" - IO () - - -toolShellRebuildMenu :: - (MonadIO m, ToolShellK a) => - a -- _obj - -> m () -- result -toolShellRebuildMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_shell_rebuild_menu _obj' - touchManagedPtr _obj - return () - -data ToolShellRebuildMenuMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolShellK a) => MethodInfo ToolShellRebuildMenuMethodInfo a signature where - overloadedMethod _ = toolShellRebuildMenu - - diff --git a/GI/Gtk/Interfaces/ToolShell.hs-boot b/GI/Gtk/Interfaces/ToolShell.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/ToolShell.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Interfaces.ToolShell 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 ToolShell = ToolShell (ForeignPtr ToolShell) -instance GObject ToolShell where -class GObject o => ToolShellK o -instance (GObject o, IsDescendantOf ToolShell o) => ToolShellK o -data ToolShellGetEllipsizeModeMethodInfo -data ToolShellGetIconSizeMethodInfo -data ToolShellGetOrientationMethodInfo -data ToolShellGetReliefStyleMethodInfo -data ToolShellGetStyleMethodInfo -data ToolShellGetTextAlignmentMethodInfo -data ToolShellGetTextOrientationMethodInfo -data ToolShellGetTextSizeGroupMethodInfo -data ToolShellRebuildMenuMethodInfo diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs b/GI/Gtk/Interfaces/TreeDragDest.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeDragDest.hs +++ /dev/null @@ -1,145 +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.Gtk.Interfaces.TreeDragDest - ( - --- * Exported types - TreeDragDest(..) , - noTreeDragDest , - TreeDragDestK , - - - -- * Methods --- ** treeDragDestDragDataReceived - TreeDragDestDragDataReceivedMethodInfo , - treeDragDestDragDataReceived , - - --- ** treeDragDestRowDropPossible - TreeDragDestRowDropPossibleMethodInfo , - treeDragDestRowDropPossible , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - --- interface TreeDragDest - -newtype TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest) -noTreeDragDest :: Maybe TreeDragDest -noTreeDragDest = Nothing - -type family ResolveTreeDragDestMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeDragDestMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo - ResolveTreeDragDestMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo - ResolveTreeDragDestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, MethodInfo info TreeDragDest p) => IsLabelProxy t (TreeDragDest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, MethodInfo info TreeDragDest p) => IsLabel t (TreeDragDest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TreeDragDest = TreeDragDestAttributeList -type TreeDragDestAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TreeDragDest = TreeDragDestSignalList -type TreeDragDestSignalList = ('[ ] :: [(Symbol, *)]) - -class ForeignPtrNewtype a => TreeDragDestK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragDest o) => TreeDragDestK o -type instance ParentTypes TreeDragDest = TreeDragDestParentTypes -type TreeDragDestParentTypes = '[] - --- method TreeDragDest::drag_data_received --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", 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 "gtk_tree_drag_dest_drag_data_received" gtk_tree_drag_dest_drag_data_received :: - Ptr TreeDragDest -> -- _obj : TInterface "Gtk" "TreeDragDest" - Ptr TreePath -> -- dest : TInterface "Gtk" "TreePath" - Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData" - IO CInt - - -treeDragDestDragDataReceived :: - (MonadIO m, TreeDragDestK a) => - a -- _obj - -> TreePath -- dest - -> SelectionData -- selectionData - -> m Bool -- result -treeDragDestDragDataReceived _obj dest selectionData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrGetPtr dest - let selectionData' = unsafeManagedPtrGetPtr selectionData - result <- gtk_tree_drag_dest_drag_data_received _obj' dest' selectionData' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr dest - touchManagedPtr selectionData - return result' - -data TreeDragDestDragDataReceivedMethodInfo -instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragDestK a) => MethodInfo TreeDragDestDragDataReceivedMethodInfo a signature where - overloadedMethod _ = treeDragDestDragDataReceived - --- method TreeDragDest::row_drop_possible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", 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 "gtk_tree_drag_dest_row_drop_possible" gtk_tree_drag_dest_row_drop_possible :: - Ptr TreeDragDest -> -- _obj : TInterface "Gtk" "TreeDragDest" - Ptr TreePath -> -- dest_path : TInterface "Gtk" "TreePath" - Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData" - IO CInt - - -treeDragDestRowDropPossible :: - (MonadIO m, TreeDragDestK a) => - a -- _obj - -> TreePath -- destPath - -> SelectionData -- selectionData - -> m Bool -- result -treeDragDestRowDropPossible _obj destPath selectionData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destPath' = unsafeManagedPtrGetPtr destPath - let selectionData' = unsafeManagedPtrGetPtr selectionData - result <- gtk_tree_drag_dest_row_drop_possible _obj' destPath' selectionData' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr destPath - touchManagedPtr selectionData - return result' - -data TreeDragDestRowDropPossibleMethodInfo -instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragDestK a) => MethodInfo TreeDragDestRowDropPossibleMethodInfo a signature where - overloadedMethod _ = treeDragDestRowDropPossible - - diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs-boot b/GI/Gtk/Interfaces/TreeDragDest.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeDragDest.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Interfaces.TreeDragDest 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 TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest) -class ForeignPtrNewtype a => TreeDragDestK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragDest o) => TreeDragDestK o -data TreeDragDestDragDataReceivedMethodInfo -data TreeDragDestRowDropPossibleMethodInfo diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs b/GI/Gtk/Interfaces/TreeDragSource.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeDragSource.hs +++ /dev/null @@ -1,179 +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.Gtk.Interfaces.TreeDragSource - ( - --- * Exported types - TreeDragSource(..) , - noTreeDragSource , - TreeDragSourceK , - - - -- * Methods --- ** treeDragSourceDragDataDelete - TreeDragSourceDragDataDeleteMethodInfo , - treeDragSourceDragDataDelete , - - --- ** treeDragSourceDragDataGet - TreeDragSourceDragDataGetMethodInfo , - treeDragSourceDragDataGet , - - --- ** treeDragSourceRowDraggable - TreeDragSourceRowDraggableMethodInfo , - treeDragSourceRowDraggable , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - --- interface TreeDragSource - -newtype TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource) -noTreeDragSource :: Maybe TreeDragSource -noTreeDragSource = Nothing - -type family ResolveTreeDragSourceMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeDragSourceMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo - ResolveTreeDragSourceMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo - ResolveTreeDragSourceMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo - ResolveTreeDragSourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeDragSourceMethod t TreeDragSource, MethodInfo info TreeDragSource p) => IsLabelProxy t (TreeDragSource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeDragSourceMethod t TreeDragSource, MethodInfo info TreeDragSource p) => IsLabel t (TreeDragSource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TreeDragSource = TreeDragSourceAttributeList -type TreeDragSourceAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TreeDragSource = TreeDragSourceSignalList -type TreeDragSourceSignalList = ('[ ] :: [(Symbol, *)]) - -class ForeignPtrNewtype a => TreeDragSourceK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragSource o) => TreeDragSourceK o -type instance ParentTypes TreeDragSource = TreeDragSourceParentTypes -type TreeDragSourceParentTypes = '[] - --- method TreeDragSource::drag_data_delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_drag_source_drag_data_delete" gtk_tree_drag_source_drag_data_delete :: - Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeDragSourceDragDataDelete :: - (MonadIO m, TreeDragSourceK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -treeDragSourceDragDataDelete _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_drag_source_drag_data_delete _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeDragSourceDragDataDeleteMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceDragDataDeleteMethodInfo a signature where - overloadedMethod _ = treeDragSourceDragDataDelete - --- method TreeDragSource::drag_data_get --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", 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 "gtk_tree_drag_source_drag_data_get" gtk_tree_drag_source_drag_data_get :: - Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData" - IO CInt - - -treeDragSourceDragDataGet :: - (MonadIO m, TreeDragSourceK a) => - a -- _obj - -> TreePath -- path - -> SelectionData -- selectionData - -> m Bool -- result -treeDragSourceDragDataGet _obj path selectionData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let selectionData' = unsafeManagedPtrGetPtr selectionData - result <- gtk_tree_drag_source_drag_data_get _obj' path' selectionData' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr selectionData - return result' - -data TreeDragSourceDragDataGetMethodInfo -instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceDragDataGetMethodInfo a signature where - overloadedMethod _ = treeDragSourceDragDataGet - --- method TreeDragSource::row_draggable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_drag_source_row_draggable" gtk_tree_drag_source_row_draggable :: - Ptr TreeDragSource -> -- _obj : TInterface "Gtk" "TreeDragSource" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeDragSourceRowDraggable :: - (MonadIO m, TreeDragSourceK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -treeDragSourceRowDraggable _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_drag_source_row_draggable _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeDragSourceRowDraggableMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceRowDraggableMethodInfo a signature where - overloadedMethod _ = treeDragSourceRowDraggable - - diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs-boot b/GI/Gtk/Interfaces/TreeDragSource.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeDragSource.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Interfaces.TreeDragSource 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 TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource) -class ForeignPtrNewtype a => TreeDragSourceK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragSource o) => TreeDragSourceK o -data TreeDragSourceDragDataDeleteMethodInfo -data TreeDragSourceDragDataGetMethodInfo -data TreeDragSourceRowDraggableMethodInfo diff --git a/GI/Gtk/Interfaces/TreeModel.hs b/GI/Gtk/Interfaces/TreeModel.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeModel.hs +++ /dev/null @@ -1,1381 +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.Gtk.Interfaces.TreeModel - ( - --- * Exported types - TreeModel(..) , - noTreeModel , - TreeModelK , - toTreeModel , - - - -- * Methods --- ** treeModelFilterNew - TreeModelFilterNewMethodInfo , - treeModelFilterNew , - - --- ** treeModelForeach - TreeModelForeachMethodInfo , - treeModelForeach , - - --- ** treeModelGetColumnType - TreeModelGetColumnTypeMethodInfo , - treeModelGetColumnType , - - --- ** treeModelGetFlags - TreeModelGetFlagsMethodInfo , - treeModelGetFlags , - - --- ** treeModelGetIter - TreeModelGetIterMethodInfo , - treeModelGetIter , - - --- ** treeModelGetIterFirst - TreeModelGetIterFirstMethodInfo , - treeModelGetIterFirst , - - --- ** treeModelGetIterFromString - TreeModelGetIterFromStringMethodInfo , - treeModelGetIterFromString , - - --- ** treeModelGetNColumns - TreeModelGetNColumnsMethodInfo , - treeModelGetNColumns , - - --- ** treeModelGetPath - TreeModelGetPathMethodInfo , - treeModelGetPath , - - --- ** treeModelGetStringFromIter - TreeModelGetStringFromIterMethodInfo , - treeModelGetStringFromIter , - - --- ** treeModelGetValue - TreeModelGetValueMethodInfo , - treeModelGetValue , - - --- ** treeModelIterChildren - TreeModelIterChildrenMethodInfo , - treeModelIterChildren , - - --- ** treeModelIterHasChild - TreeModelIterHasChildMethodInfo , - treeModelIterHasChild , - - --- ** treeModelIterNChildren - TreeModelIterNChildrenMethodInfo , - treeModelIterNChildren , - - --- ** treeModelIterNext - TreeModelIterNextMethodInfo , - treeModelIterNext , - - --- ** treeModelIterNthChild - TreeModelIterNthChildMethodInfo , - treeModelIterNthChild , - - --- ** treeModelIterParent - TreeModelIterParentMethodInfo , - treeModelIterParent , - - --- ** treeModelIterPrevious - TreeModelIterPreviousMethodInfo , - treeModelIterPrevious , - - --- ** treeModelRefNode - TreeModelRefNodeMethodInfo , - treeModelRefNode , - - --- ** treeModelRowChanged - TreeModelRowChangedMethodInfo , - treeModelRowChanged , - - --- ** treeModelRowDeleted - TreeModelRowDeletedMethodInfo , - treeModelRowDeleted , - - --- ** treeModelRowHasChildToggled - TreeModelRowHasChildToggledMethodInfo , - treeModelRowHasChildToggled , - - --- ** treeModelRowInserted - TreeModelRowInsertedMethodInfo , - treeModelRowInserted , - - --- ** treeModelRowsReordered - TreeModelRowsReorderedMethodInfo , - treeModelRowsReordered , - - --- ** treeModelSortNewWithModel - TreeModelSortNewWithModelMethodInfo , - treeModelSortNewWithModel , - - --- ** treeModelUnrefNode - TreeModelUnrefNodeMethodInfo , - treeModelUnrefNode , - - - - - -- * Signals --- ** RowChanged - TreeModelRowChangedCallback , - TreeModelRowChangedCallbackC , - TreeModelRowChangedSignalInfo , - afterTreeModelRowChanged , - mkTreeModelRowChangedCallback , - noTreeModelRowChangedCallback , - onTreeModelRowChanged , - treeModelRowChangedCallbackWrapper , - treeModelRowChangedClosure , - - --- ** RowDeleted - TreeModelRowDeletedCallback , - TreeModelRowDeletedCallbackC , - TreeModelRowDeletedSignalInfo , - afterTreeModelRowDeleted , - mkTreeModelRowDeletedCallback , - noTreeModelRowDeletedCallback , - onTreeModelRowDeleted , - treeModelRowDeletedCallbackWrapper , - treeModelRowDeletedClosure , - - --- ** RowHasChildToggled - TreeModelRowHasChildToggledCallback , - TreeModelRowHasChildToggledCallbackC , - TreeModelRowHasChildToggledSignalInfo , - afterTreeModelRowHasChildToggled , - mkTreeModelRowHasChildToggledCallback , - noTreeModelRowHasChildToggledCallback , - onTreeModelRowHasChildToggled , - treeModelRowHasChildToggledCallbackWrapper, - treeModelRowHasChildToggledClosure , - - --- ** RowInserted - TreeModelRowInsertedCallback , - TreeModelRowInsertedCallbackC , - TreeModelRowInsertedSignalInfo , - afterTreeModelRowInserted , - mkTreeModelRowInsertedCallback , - noTreeModelRowInsertedCallback , - onTreeModelRowInserted , - treeModelRowInsertedCallbackWrapper , - treeModelRowInsertedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface TreeModel - -newtype TreeModel = TreeModel (ForeignPtr TreeModel) -noTreeModel :: Maybe TreeModel -noTreeModel = Nothing - -type family ResolveTreeModelMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeModelMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveTreeModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeModelMethod "foreach" o = TreeModelForeachMethodInfo - ResolveTreeModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeModelMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveTreeModelMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveTreeModelMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveTreeModelMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveTreeModelMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveTreeModelMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveTreeModelMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveTreeModelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeModelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeModelMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveTreeModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeModelMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveTreeModelMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveTreeModelMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveTreeModelMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveTreeModelMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveTreeModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeModelMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveTreeModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeModelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeModelMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveTreeModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeModelMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveTreeModelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeModelMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveTreeModelMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveTreeModelMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveTreeModelMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveTreeModelMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveTreeModelMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveTreeModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeModelMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveTreeModelMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveTreeModelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeModelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeModelMethod t TreeModel, MethodInfo info TreeModel p) => IsLabelProxy t (TreeModel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeModelMethod t TreeModel, MethodInfo info TreeModel p) => IsLabel t (TreeModel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TreeModel::row-changed -type TreeModelRowChangedCallback = - TreePath -> - TreeIter -> - IO () - -noTreeModelRowChangedCallback :: Maybe TreeModelRowChangedCallback -noTreeModelRowChangedCallback = Nothing - -type TreeModelRowChangedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeModelRowChangedCallback :: TreeModelRowChangedCallbackC -> IO (FunPtr TreeModelRowChangedCallbackC) - -treeModelRowChangedClosure :: TreeModelRowChangedCallback -> IO Closure -treeModelRowChangedClosure cb = newCClosure =<< mkTreeModelRowChangedCallback wrapped - where wrapped = treeModelRowChangedCallbackWrapper cb - -treeModelRowChangedCallbackWrapper :: - TreeModelRowChangedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO () -treeModelRowChangedCallbackWrapper _cb _ path iter _ = do - path' <- (newBoxed TreePath) path - iter' <- (newBoxed TreeIter) iter - _cb path' iter' - -onTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId -onTreeModelRowChanged obj cb = liftIO $ connectTreeModelRowChanged obj cb SignalConnectBefore -afterTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId -afterTreeModelRowChanged obj cb = connectTreeModelRowChanged obj cb SignalConnectAfter - -connectTreeModelRowChanged :: (GObject a, MonadIO m) => - a -> TreeModelRowChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeModelRowChanged obj cb after = liftIO $ do - cb' <- mkTreeModelRowChangedCallback (treeModelRowChangedCallbackWrapper cb) - connectSignalFunPtr obj "row-changed" cb' after - --- signal TreeModel::row-deleted -type TreeModelRowDeletedCallback = - TreePath -> - IO () - -noTreeModelRowDeletedCallback :: Maybe TreeModelRowDeletedCallback -noTreeModelRowDeletedCallback = Nothing - -type TreeModelRowDeletedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeModelRowDeletedCallback :: TreeModelRowDeletedCallbackC -> IO (FunPtr TreeModelRowDeletedCallbackC) - -treeModelRowDeletedClosure :: TreeModelRowDeletedCallback -> IO Closure -treeModelRowDeletedClosure cb = newCClosure =<< mkTreeModelRowDeletedCallback wrapped - where wrapped = treeModelRowDeletedCallbackWrapper cb - -treeModelRowDeletedCallbackWrapper :: - TreeModelRowDeletedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr () -> - IO () -treeModelRowDeletedCallbackWrapper _cb _ path _ = do - path' <- (newBoxed TreePath) path - _cb path' - -onTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId -onTreeModelRowDeleted obj cb = liftIO $ connectTreeModelRowDeleted obj cb SignalConnectBefore -afterTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId -afterTreeModelRowDeleted obj cb = connectTreeModelRowDeleted obj cb SignalConnectAfter - -connectTreeModelRowDeleted :: (GObject a, MonadIO m) => - a -> TreeModelRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeModelRowDeleted obj cb after = liftIO $ do - cb' <- mkTreeModelRowDeletedCallback (treeModelRowDeletedCallbackWrapper cb) - connectSignalFunPtr obj "row-deleted" cb' after - --- signal TreeModel::row-has-child-toggled -type TreeModelRowHasChildToggledCallback = - TreePath -> - TreeIter -> - IO () - -noTreeModelRowHasChildToggledCallback :: Maybe TreeModelRowHasChildToggledCallback -noTreeModelRowHasChildToggledCallback = Nothing - -type TreeModelRowHasChildToggledCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeModelRowHasChildToggledCallback :: TreeModelRowHasChildToggledCallbackC -> IO (FunPtr TreeModelRowHasChildToggledCallbackC) - -treeModelRowHasChildToggledClosure :: TreeModelRowHasChildToggledCallback -> IO Closure -treeModelRowHasChildToggledClosure cb = newCClosure =<< mkTreeModelRowHasChildToggledCallback wrapped - where wrapped = treeModelRowHasChildToggledCallbackWrapper cb - -treeModelRowHasChildToggledCallbackWrapper :: - TreeModelRowHasChildToggledCallback -> - Ptr () -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO () -treeModelRowHasChildToggledCallbackWrapper _cb _ path iter _ = do - path' <- (newBoxed TreePath) path - iter' <- (newBoxed TreeIter) iter - _cb path' iter' - -onTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId -onTreeModelRowHasChildToggled obj cb = liftIO $ connectTreeModelRowHasChildToggled obj cb SignalConnectBefore -afterTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId -afterTreeModelRowHasChildToggled obj cb = connectTreeModelRowHasChildToggled obj cb SignalConnectAfter - -connectTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => - a -> TreeModelRowHasChildToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeModelRowHasChildToggled obj cb after = liftIO $ do - cb' <- mkTreeModelRowHasChildToggledCallback (treeModelRowHasChildToggledCallbackWrapper cb) - connectSignalFunPtr obj "row-has-child-toggled" cb' after - --- signal TreeModel::row-inserted -type TreeModelRowInsertedCallback = - TreePath -> - TreeIter -> - IO () - -noTreeModelRowInsertedCallback :: Maybe TreeModelRowInsertedCallback -noTreeModelRowInsertedCallback = Nothing - -type TreeModelRowInsertedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeModelRowInsertedCallback :: TreeModelRowInsertedCallbackC -> IO (FunPtr TreeModelRowInsertedCallbackC) - -treeModelRowInsertedClosure :: TreeModelRowInsertedCallback -> IO Closure -treeModelRowInsertedClosure cb = newCClosure =<< mkTreeModelRowInsertedCallback wrapped - where wrapped = treeModelRowInsertedCallbackWrapper cb - -treeModelRowInsertedCallbackWrapper :: - TreeModelRowInsertedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr TreeIter -> - Ptr () -> - IO () -treeModelRowInsertedCallbackWrapper _cb _ path iter _ = do - path' <- (newBoxed TreePath) path - iter' <- (newBoxed TreeIter) iter - _cb path' iter' - -onTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId -onTreeModelRowInserted obj cb = liftIO $ connectTreeModelRowInserted obj cb SignalConnectBefore -afterTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId -afterTreeModelRowInserted obj cb = connectTreeModelRowInserted obj cb SignalConnectAfter - -connectTreeModelRowInserted :: (GObject a, MonadIO m) => - a -> TreeModelRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeModelRowInserted obj cb after = liftIO $ do - cb' <- mkTreeModelRowInsertedCallback (treeModelRowInsertedCallbackWrapper cb) - connectSignalFunPtr obj "row-inserted" cb' after - -type instance AttributeList TreeModel = TreeModelAttributeList -type TreeModelAttributeList = ('[ ] :: [(Symbol, *)]) - -data TreeModelRowChangedSignalInfo -instance SignalInfo TreeModelRowChangedSignalInfo where - type HaskellCallbackType TreeModelRowChangedSignalInfo = TreeModelRowChangedCallback - connectSignal _ = connectTreeModelRowChanged - -data TreeModelRowDeletedSignalInfo -instance SignalInfo TreeModelRowDeletedSignalInfo where - type HaskellCallbackType TreeModelRowDeletedSignalInfo = TreeModelRowDeletedCallback - connectSignal _ = connectTreeModelRowDeleted - -data TreeModelRowHasChildToggledSignalInfo -instance SignalInfo TreeModelRowHasChildToggledSignalInfo where - type HaskellCallbackType TreeModelRowHasChildToggledSignalInfo = TreeModelRowHasChildToggledCallback - connectSignal _ = connectTreeModelRowHasChildToggled - -data TreeModelRowInsertedSignalInfo -instance SignalInfo TreeModelRowInsertedSignalInfo where - type HaskellCallbackType TreeModelRowInsertedSignalInfo = TreeModelRowInsertedCallback - connectSignal _ = connectTreeModelRowInserted - -type instance SignalList TreeModel = TreeModelSignalList -type TreeModelSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_tree_model_get_type" - c_gtk_tree_model_get_type :: IO GType - -type instance ParentTypes TreeModel = TreeModelParentTypes -type TreeModelParentTypes = '[GObject.Object] - -instance GObject TreeModel where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_model_get_type - - -class GObject o => TreeModelK o -instance (GObject o, IsDescendantOf TreeModel o) => TreeModelK o - -toTreeModel :: TreeModelK o => o -> IO TreeModel -toTreeModel = unsafeCastTo TreeModel - --- method TreeModel::filter_new --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_new" gtk_tree_model_filter_new :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- root : TInterface "Gtk" "TreePath" - IO (Ptr TreeModel) - - -treeModelFilterNew :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> Maybe (TreePath) -- root - -> m TreeModel -- result -treeModelFilterNew _obj root = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRoot <- case root of - Nothing -> return nullPtr - Just jRoot -> do - let jRoot' = unsafeManagedPtrGetPtr jRoot - return jRoot' - result <- gtk_tree_model_filter_new _obj' maybeRoot - checkUnexpectedReturnNULL "gtk_tree_model_filter_new" result - result' <- (wrapObject TreeModel) result - touchManagedPtr _obj - whenJust root touchManagedPtr - return result' - -data TreeModelFilterNewMethodInfo -instance (signature ~ (Maybe (TreePath) -> m TreeModel), MonadIO m, TreeModelK a) => MethodInfo TreeModelFilterNewMethodInfo a signature where - overloadedMethod _ = treeModelFilterNew - --- method TreeModel::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_tree_model_foreach" gtk_tree_model_foreach :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - FunPtr TreeModelForeachFuncC -> -- func : TInterface "Gtk" "TreeModelForeachFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -treeModelForeach :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeModelForeachFunc -- func - -> m () -- result -treeModelForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeModelForeachFunc (treeModelForeachFuncWrapper Nothing func) - let userData = nullPtr - gtk_tree_model_foreach _obj' func' userData - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data TreeModelForeachMethodInfo -instance (signature ~ (TreeModelForeachFunc -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelForeachMethodInfo a signature where - overloadedMethod _ = treeModelForeach - --- method TreeModel::get_column_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", 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 TGType) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Int32 -> -- index_ : TBasicType TInt - IO CGType - - -treeModelGetColumnType :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> Int32 -- index_ - -> m GType -- result -treeModelGetColumnType _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_column_type _obj' index_ - let result' = GType result - touchManagedPtr _obj - return result' - -data TreeModelGetColumnTypeMethodInfo -instance (signature ~ (Int32 -> m GType), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetColumnTypeMethodInfo a signature where - overloadedMethod _ = treeModelGetColumnType - --- method TreeModel::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModelFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_get_flags" gtk_tree_model_get_flags :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - IO CUInt - - -treeModelGetFlags :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> m [TreeModelFlags] -- result -treeModelGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TreeModelGetFlagsMethodInfo -instance (signature ~ (m [TreeModelFlags]), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetFlagsMethodInfo a signature where - overloadedMethod _ = treeModelGetFlags - --- method TreeModel::get_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_model_get_iter" gtk_tree_model_get_iter :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeModelGetIter :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> m (Bool,TreeIter) -- result -treeModelGetIter _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_model_get_iter _obj' iter path' - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - touchManagedPtr path - return (result', iter') - -data TreeModelGetIterMethodInfo -instance (signature ~ (TreePath -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterMethodInfo a signature where - overloadedMethod _ = treeModelGetIter - --- method TreeModel::get_iter_first --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_get_iter_first" gtk_tree_model_get_iter_first :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelGetIterFirst :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> m (Bool,TreeIter) -- result -treeModelGetIterFirst _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_tree_model_get_iter_first _obj' iter - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - return (result', iter') - -data TreeModelGetIterFirstMethodInfo -instance (signature ~ (m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterFirstMethodInfo a signature where - overloadedMethod _ = treeModelGetIterFirst - --- method TreeModel::get_iter_from_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", 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 "gtk_tree_model_get_iter_from_string" gtk_tree_model_get_iter_from_string :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - CString -> -- path_string : TBasicType TUTF8 - IO CInt - - -treeModelGetIterFromString :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> T.Text -- pathString - -> m (Bool,TreeIter) -- result -treeModelGetIterFromString _obj pathString = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - pathString' <- textToCString pathString - result <- gtk_tree_model_get_iter_from_string _obj' iter pathString' - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem pathString' - return (result', iter') - -data TreeModelGetIterFromStringMethodInfo -instance (signature ~ (T.Text -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterFromStringMethodInfo a signature where - overloadedMethod _ = treeModelGetIterFromString - --- method TreeModel::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", 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 "gtk_tree_model_get_n_columns" gtk_tree_model_get_n_columns :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - IO Int32 - - -treeModelGetNColumns :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> m Int32 -- result -treeModelGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_n_columns _obj' - touchManagedPtr _obj - return result - -data TreeModelGetNColumnsMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetNColumnsMethodInfo a signature where - overloadedMethod _ = treeModelGetNColumns - --- method TreeModel::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_get_path" gtk_tree_model_get_path :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO (Ptr TreePath) - - -treeModelGetPath :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m TreePath -- result -treeModelGetPath _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_get_path _obj' iter' - checkUnexpectedReturnNULL "gtk_tree_model_get_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelGetPathMethodInfo -instance (signature ~ (TreeIter -> m TreePath), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetPathMethodInfo a signature where - overloadedMethod _ = treeModelGetPath - --- method TreeModel::get_string_from_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_get_string_from_iter" gtk_tree_model_get_string_from_iter :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CString - - -treeModelGetStringFromIter :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m T.Text -- result -treeModelGetStringFromIter _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_get_string_from_iter _obj' iter' - checkUnexpectedReturnNULL "gtk_tree_model_get_string_from_iter" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelGetStringFromIterMethodInfo -instance (signature ~ (TreeIter -> m T.Text), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetStringFromIterMethodInfo a signature where - overloadedMethod _ = treeModelGetStringFromIter - --- method TreeModel::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -treeModelGetValue :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> Int32 -- column - -> m (GValue) -- result -treeModelGetValue _obj iter column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_tree_model_get_value _obj' iter' column value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - touchManagedPtr iter - return value' - -data TreeModelGetValueMethodInfo -instance (signature ~ (TreeIter -> Int32 -> m (GValue)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetValueMethodInfo a signature where - overloadedMethod _ = treeModelGetValue - --- method TreeModel::iter_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_iter_children" gtk_tree_model_iter_children :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelIterChildren :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> m (Bool,TreeIter) -- result -treeModelIterChildren _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - result <- gtk_tree_model_iter_children _obj' iter maybeParent - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - return (result', iter') - -data TreeModelIterChildrenMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterChildrenMethodInfo a signature where - overloadedMethod _ = treeModelIterChildren - --- method TreeModel::iter_has_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_iter_has_child" gtk_tree_model_iter_has_child :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelIterHasChild :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeModelIterHasChild _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_iter_has_child _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelIterHasChildMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterHasChildMethodInfo a signature where - overloadedMethod _ = treeModelIterHasChild - --- method TreeModel::iter_n_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_iter_n_children" gtk_tree_model_iter_n_children :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO Int32 - - -treeModelIterNChildren :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> Maybe (TreeIter) -- iter - -> m Int32 -- result -treeModelIterNChildren _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - result <- gtk_tree_model_iter_n_children _obj' maybeIter - touchManagedPtr _obj - whenJust iter touchManagedPtr - return result - -data TreeModelIterNChildrenMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m Int32), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNChildrenMethodInfo a signature where - overloadedMethod _ = treeModelIterNChildren - --- method TreeModel::iter_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_iter_next" gtk_tree_model_iter_next :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelIterNext :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeModelIterNext _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_iter_next _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelIterNextMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNextMethodInfo a signature where - overloadedMethod _ = treeModelIterNext - --- method TreeModel::iter_nth_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", 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 "gtk_tree_model_iter_nth_child" gtk_tree_model_iter_nth_child :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- n : TBasicType TInt - IO CInt - - -treeModelIterNthChild :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> Int32 -- n - -> m (Bool,TreeIter) -- result -treeModelIterNthChild _obj parent n = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - result <- gtk_tree_model_iter_nth_child _obj' iter maybeParent n - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - return (result', iter') - -data TreeModelIterNthChildMethodInfo -instance (signature ~ (Maybe (TreeIter) -> Int32 -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNthChildMethodInfo a signature where - overloadedMethod _ = treeModelIterNthChild - --- method TreeModel::iter_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_iter_parent" gtk_tree_model_iter_parent :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- child : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelIterParent :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- child - -> m (Bool,TreeIter) -- result -treeModelIterParent _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let child' = unsafeManagedPtrGetPtr child - result <- gtk_tree_model_iter_parent _obj' iter child' - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - touchManagedPtr child - return (result', iter') - -data TreeModelIterParentMethodInfo -instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterParentMethodInfo a signature where - overloadedMethod _ = treeModelIterParent - --- method TreeModel::iter_previous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_iter_previous" gtk_tree_model_iter_previous :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelIterPrevious :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeModelIterPrevious _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_iter_previous _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelIterPreviousMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterPreviousMethodInfo a signature where - overloadedMethod _ = treeModelIterPrevious - --- method TreeModel::ref_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_ref_node" gtk_tree_model_ref_node :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelRefNode :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m () -- result -treeModelRefNode _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_model_ref_node _obj' iter' - touchManagedPtr _obj - touchManagedPtr iter - return () - -data TreeModelRefNodeMethodInfo -instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRefNodeMethodInfo a signature where - overloadedMethod _ = treeModelRefNode - --- method TreeModel::row_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_row_changed" gtk_tree_model_row_changed :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelRowChanged :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> TreeIter -- iter - -> m () -- result -treeModelRowChanged _obj path iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_model_row_changed _obj' path' iter' - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr iter - return () - -data TreeModelRowChangedMethodInfo -instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowChangedMethodInfo a signature where - overloadedMethod _ = treeModelRowChanged - --- method TreeModel::row_deleted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_model_row_deleted" gtk_tree_model_row_deleted :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeModelRowDeleted :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -treeModelRowDeleted _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_tree_model_row_deleted _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data TreeModelRowDeletedMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowDeletedMethodInfo a signature where - overloadedMethod _ = treeModelRowDeleted - --- method TreeModel::row_has_child_toggled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_row_has_child_toggled" gtk_tree_model_row_has_child_toggled :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelRowHasChildToggled :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> TreeIter -- iter - -> m () -- result -treeModelRowHasChildToggled _obj path iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_model_row_has_child_toggled _obj' path' iter' - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr iter - return () - -data TreeModelRowHasChildToggledMethodInfo -instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowHasChildToggledMethodInfo a signature where - overloadedMethod _ = treeModelRowHasChildToggled - --- method TreeModel::row_inserted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_row_inserted" gtk_tree_model_row_inserted :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelRowInserted :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> TreeIter -- iter - -> m () -- result -treeModelRowInserted _obj path iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_model_row_inserted _obj' path' iter' - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr iter - return () - -data TreeModelRowInsertedMethodInfo -instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowInsertedMethodInfo a signature where - overloadedMethod _ = treeModelRowInserted - --- method TreeModel::rows_reordered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt), 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}] --- Lengths : [Arg {argCName = "length", 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 "gtk_tree_model_rows_reordered_with_length" gtk_tree_model_rows_reordered_with_length :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt) - Int32 -> -- length : TBasicType TInt - IO () - - -treeModelRowsReordered :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreePath -- path - -> Maybe (TreeIter) -- iter - -> [Int32] -- newOrder - -> m () -- result -treeModelRowsReordered _obj path iter newOrder = liftIO $ do - let length_ = fromIntegral $ length newOrder - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - newOrder' <- packStorableArray newOrder - gtk_tree_model_rows_reordered_with_length _obj' path' maybeIter newOrder' length_ - touchManagedPtr _obj - touchManagedPtr path - whenJust iter touchManagedPtr - freeMem newOrder' - return () - -data TreeModelRowsReorderedMethodInfo -instance (signature ~ (TreePath -> Maybe (TreeIter) -> [Int32] -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowsReorderedMethodInfo a signature where - overloadedMethod _ = treeModelRowsReordered - --- method TreeModel::sort_new_with_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_sort_new_with_model" gtk_tree_model_sort_new_with_model :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - IO (Ptr TreeModel) - - -treeModelSortNewWithModel :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> m TreeModel -- result -treeModelSortNewWithModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_sort_new_with_model _obj' - checkUnexpectedReturnNULL "gtk_tree_model_sort_new_with_model" result - result' <- (wrapObject TreeModel) result - touchManagedPtr _obj - return result' - -data TreeModelSortNewWithModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, TreeModelK a) => MethodInfo TreeModelSortNewWithModelMethodInfo a signature where - overloadedMethod _ = treeModelSortNewWithModel - --- method TreeModel::unref_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_unref_node" gtk_tree_model_unref_node :: - Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelUnrefNode :: - (MonadIO m, TreeModelK a) => - a -- _obj - -> TreeIter -- iter - -> m () -- result -treeModelUnrefNode _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_model_unref_node _obj' iter' - touchManagedPtr _obj - touchManagedPtr iter - return () - -data TreeModelUnrefNodeMethodInfo -instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelUnrefNodeMethodInfo a signature where - overloadedMethod _ = treeModelUnrefNode - - diff --git a/GI/Gtk/Interfaces/TreeModel.hs-boot b/GI/Gtk/Interfaces/TreeModel.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeModel.hs-boot +++ /dev/null @@ -1,43 +0,0 @@ -module GI.Gtk.Interfaces.TreeModel 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 TreeModel = TreeModel (ForeignPtr TreeModel) -data TreeModelRowChangedSignalInfo -data TreeModelRowDeletedSignalInfo -data TreeModelRowHasChildToggledSignalInfo -data TreeModelRowInsertedSignalInfo -instance GObject TreeModel where -class GObject o => TreeModelK o -instance (GObject o, IsDescendantOf TreeModel o) => TreeModelK o -data TreeModelFilterNewMethodInfo -data TreeModelForeachMethodInfo -data TreeModelGetColumnTypeMethodInfo -data TreeModelGetFlagsMethodInfo -data TreeModelGetIterMethodInfo -data TreeModelGetIterFirstMethodInfo -data TreeModelGetIterFromStringMethodInfo -data TreeModelGetNColumnsMethodInfo -data TreeModelGetPathMethodInfo -data TreeModelGetStringFromIterMethodInfo -data TreeModelGetValueMethodInfo -data TreeModelIterChildrenMethodInfo -data TreeModelIterHasChildMethodInfo -data TreeModelIterNChildrenMethodInfo -data TreeModelIterNextMethodInfo -data TreeModelIterNthChildMethodInfo -data TreeModelIterParentMethodInfo -data TreeModelIterPreviousMethodInfo -data TreeModelRefNodeMethodInfo -data TreeModelRowChangedMethodInfo -data TreeModelRowDeletedMethodInfo -data TreeModelRowHasChildToggledMethodInfo -data TreeModelRowInsertedMethodInfo -data TreeModelRowsReorderedMethodInfo -data TreeModelSortNewWithModelMethodInfo -data TreeModelUnrefNodeMethodInfo diff --git a/GI/Gtk/Interfaces/TreeSortable.hs b/GI/Gtk/Interfaces/TreeSortable.hs deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeSortable.hs +++ /dev/null @@ -1,412 +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.Gtk.Interfaces.TreeSortable - ( - --- * Exported types - TreeSortable(..) , - noTreeSortable , - TreeSortableK , - toTreeSortable , - - - -- * Methods --- ** treeSortableGetSortColumnId - TreeSortableGetSortColumnIdMethodInfo , - treeSortableGetSortColumnId , - - --- ** treeSortableHasDefaultSortFunc - TreeSortableHasDefaultSortFuncMethodInfo, - treeSortableHasDefaultSortFunc , - - --- ** treeSortableSetDefaultSortFunc - TreeSortableSetDefaultSortFuncMethodInfo, - treeSortableSetDefaultSortFunc , - - --- ** treeSortableSetSortColumnId - TreeSortableSetSortColumnIdMethodInfo , - treeSortableSetSortColumnId , - - --- ** treeSortableSetSortFunc - TreeSortableSetSortFuncMethodInfo , - treeSortableSetSortFunc , - - --- ** treeSortableSortColumnChanged - TreeSortableSortColumnChangedMethodInfo , - treeSortableSortColumnChanged , - - - - - -- * Signals --- ** SortColumnChanged - TreeSortableSortColumnChangedCallback , - TreeSortableSortColumnChangedCallbackC , - TreeSortableSortColumnChangedSignalInfo , - afterTreeSortableSortColumnChanged , - mkTreeSortableSortColumnChangedCallback , - noTreeSortableSortColumnChangedCallback , - onTreeSortableSortColumnChanged , - treeSortableSortColumnChangedCallbackWrapper, - treeSortableSortColumnChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface TreeSortable - -newtype TreeSortable = TreeSortable (ForeignPtr TreeSortable) -noTreeSortable :: Maybe TreeSortable -noTreeSortable = Nothing - -type family ResolveTreeSortableMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeSortableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeSortableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeSortableMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveTreeSortableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeSortableMethod "foreach" o = TreeModelForeachMethodInfo - ResolveTreeSortableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeSortableMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo - ResolveTreeSortableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeSortableMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveTreeSortableMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveTreeSortableMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveTreeSortableMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveTreeSortableMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveTreeSortableMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveTreeSortableMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveTreeSortableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeSortableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeSortableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeSortableMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveTreeSortableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeSortableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeSortableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeSortableMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveTreeSortableMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveTreeSortableMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveTreeSortableMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveTreeSortableMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveTreeSortableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeSortableMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo - ResolveTreeSortableMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveTreeSortableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeSortableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeSortableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeSortableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeSortableMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveTreeSortableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeSortableMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveTreeSortableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeSortableMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveTreeSortableMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveTreeSortableMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveTreeSortableMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveTreeSortableMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveTreeSortableMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveTreeSortableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeSortableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeSortableMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo - ResolveTreeSortableMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveTreeSortableMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveTreeSortableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeSortableMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo - ResolveTreeSortableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeSortableMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo - ResolveTreeSortableMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo - ResolveTreeSortableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeSortableMethod t TreeSortable, MethodInfo info TreeSortable p) => IsLabelProxy t (TreeSortable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeSortableMethod t TreeSortable, MethodInfo info TreeSortable p) => IsLabel t (TreeSortable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TreeSortable::sort-column-changed -type TreeSortableSortColumnChangedCallback = - IO () - -noTreeSortableSortColumnChangedCallback :: Maybe TreeSortableSortColumnChangedCallback -noTreeSortableSortColumnChangedCallback = Nothing - -type TreeSortableSortColumnChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeSortableSortColumnChangedCallback :: TreeSortableSortColumnChangedCallbackC -> IO (FunPtr TreeSortableSortColumnChangedCallbackC) - -treeSortableSortColumnChangedClosure :: TreeSortableSortColumnChangedCallback -> IO Closure -treeSortableSortColumnChangedClosure cb = newCClosure =<< mkTreeSortableSortColumnChangedCallback wrapped - where wrapped = treeSortableSortColumnChangedCallbackWrapper cb - -treeSortableSortColumnChangedCallbackWrapper :: - TreeSortableSortColumnChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeSortableSortColumnChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeSortableSortColumnChanged :: (GObject a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId -onTreeSortableSortColumnChanged obj cb = liftIO $ connectTreeSortableSortColumnChanged obj cb SignalConnectBefore -afterTreeSortableSortColumnChanged :: (GObject a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId -afterTreeSortableSortColumnChanged obj cb = connectTreeSortableSortColumnChanged obj cb SignalConnectAfter - -connectTreeSortableSortColumnChanged :: (GObject a, MonadIO m) => - a -> TreeSortableSortColumnChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeSortableSortColumnChanged obj cb after = liftIO $ do - cb' <- mkTreeSortableSortColumnChangedCallback (treeSortableSortColumnChangedCallbackWrapper cb) - connectSignalFunPtr obj "sort-column-changed" cb' after - -type instance AttributeList TreeSortable = TreeSortableAttributeList -type TreeSortableAttributeList = ('[ ] :: [(Symbol, *)]) - -data TreeSortableSortColumnChangedSignalInfo -instance SignalInfo TreeSortableSortColumnChangedSignalInfo where - type HaskellCallbackType TreeSortableSortColumnChangedSignalInfo = TreeSortableSortColumnChangedCallback - connectSignal _ = connectTreeSortableSortColumnChanged - -type instance SignalList TreeSortable = TreeSortableSignalList -type TreeSortableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_tree_sortable_get_type" - c_gtk_tree_sortable_get_type :: IO GType - -type instance ParentTypes TreeSortable = TreeSortableParentTypes -type TreeSortableParentTypes = '[TreeModel, GObject.Object] - -instance GObject TreeSortable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_sortable_get_type - - -class GObject o => TreeSortableK o -instance (GObject o, IsDescendantOf TreeSortable o) => TreeSortableK o - -toTreeSortable :: TreeSortableK o => o -> IO TreeSortable -toTreeSortable = unsafeCastTo TreeSortable - --- method TreeSortable::get_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", 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 "gtk_tree_sortable_get_sort_column_id" gtk_tree_sortable_get_sort_column_id :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Ptr Int32 -> -- sort_column_id : TBasicType TInt - Ptr CUInt -> -- order : TInterface "Gtk" "SortType" - IO CInt - - -treeSortableGetSortColumnId :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> m (Bool,Int32,SortType) -- result -treeSortableGetSortColumnId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sortColumnId <- allocMem :: IO (Ptr Int32) - order <- allocMem :: IO (Ptr CUInt) - result <- gtk_tree_sortable_get_sort_column_id _obj' sortColumnId order - let result' = (/= 0) result - sortColumnId' <- peek sortColumnId - order' <- peek order - let order'' = (toEnum . fromIntegral) order' - touchManagedPtr _obj - freeMem sortColumnId - freeMem order - return (result', sortColumnId', order'') - -data TreeSortableGetSortColumnIdMethodInfo -instance (signature ~ (m (Bool,Int32,SortType)), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableGetSortColumnIdMethodInfo a signature where - overloadedMethod _ = treeSortableGetSortColumnId - --- method TreeSortable::has_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", 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 "gtk_tree_sortable_has_default_sort_func" gtk_tree_sortable_has_default_sort_func :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - IO CInt - - -treeSortableHasDefaultSortFunc :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> m Bool -- result -treeSortableHasDefaultSortFunc _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_sortable_has_default_sort_func _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeSortableHasDefaultSortFuncMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableHasDefaultSortFuncMethodInfo a signature where - overloadedMethod _ = treeSortableHasDefaultSortFunc - --- method TreeSortable::set_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_sortable_set_default_sort_func" gtk_tree_sortable_set_default_sort_func :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSortableSetDefaultSortFunc :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> TreeIterCompareFunc -- sortFunc - -> m () -- result -treeSortableSetDefaultSortFunc _obj sortFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sortFunc' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sortFunc) - let userData = castFunPtrToPtr sortFunc' - let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_default_sort_func _obj' sortFunc' userData destroy - touchManagedPtr _obj - return () - -data TreeSortableSetDefaultSortFuncMethodInfo -instance (signature ~ (TreeIterCompareFunc -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetDefaultSortFuncMethodInfo a signature where - overloadedMethod _ = treeSortableSetDefaultSortFunc - --- method TreeSortable::set_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", 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 "gtk_tree_sortable_set_sort_column_id" gtk_tree_sortable_set_sort_column_id :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Int32 -> -- sort_column_id : TBasicType TInt - CUInt -> -- order : TInterface "Gtk" "SortType" - IO () - - -treeSortableSetSortColumnId :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> Int32 -- sortColumnId - -> SortType -- order - -> m () -- result -treeSortableSetSortColumnId _obj sortColumnId order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let order' = (fromIntegral . fromEnum) order - gtk_tree_sortable_set_sort_column_id _obj' sortColumnId order' - touchManagedPtr _obj - return () - -data TreeSortableSetSortColumnIdMethodInfo -instance (signature ~ (Int32 -> SortType -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetSortColumnIdMethodInfo a signature where - overloadedMethod _ = treeSortableSetSortColumnId - --- method TreeSortable::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_sortable_set_sort_func" gtk_tree_sortable_set_sort_func :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Int32 -> -- sort_column_id : TBasicType TInt - FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSortableSetSortFunc :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> Int32 -- sortColumnId - -> TreeIterCompareFunc -- sortFunc - -> m () -- result -treeSortableSetSortFunc _obj sortColumnId sortFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sortFunc' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sortFunc) - let userData = castFunPtrToPtr sortFunc' - let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_sort_func _obj' sortColumnId sortFunc' userData destroy - touchManagedPtr _obj - return () - -data TreeSortableSetSortFuncMethodInfo -instance (signature ~ (Int32 -> TreeIterCompareFunc -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetSortFuncMethodInfo a signature where - overloadedMethod _ = treeSortableSetSortFunc - --- method TreeSortable::sort_column_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", 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 "gtk_tree_sortable_sort_column_changed" gtk_tree_sortable_sort_column_changed :: - Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - IO () - - -treeSortableSortColumnChanged :: - (MonadIO m, TreeSortableK a) => - a -- _obj - -> m () -- result -treeSortableSortColumnChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_sortable_sort_column_changed _obj' - touchManagedPtr _obj - return () - -data TreeSortableSortColumnChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSortColumnChangedMethodInfo a signature where - overloadedMethod _ = treeSortableSortColumnChanged - - diff --git a/GI/Gtk/Interfaces/TreeSortable.hs-boot b/GI/Gtk/Interfaces/TreeSortable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Interfaces/TreeSortable.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Interfaces.TreeSortable 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 TreeSortable = TreeSortable (ForeignPtr TreeSortable) -data TreeSortableSortColumnChangedSignalInfo -instance GObject TreeSortable where -class GObject o => TreeSortableK o -instance (GObject o, IsDescendantOf TreeSortable o) => TreeSortableK o -data TreeSortableGetSortColumnIdMethodInfo -data TreeSortableHasDefaultSortFuncMethodInfo -data TreeSortableSetDefaultSortFuncMethodInfo -data TreeSortableSetSortColumnIdMethodInfo -data TreeSortableSetSortFuncMethodInfo -data TreeSortableSortColumnChangedMethodInfo diff --git a/GI/Gtk/Objects.hs b/GI/Gtk/Objects.hs deleted file mode 100644 --- a/GI/Gtk/Objects.hs +++ /dev/null @@ -1,535 +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.Gtk.Objects - ( module GI.Gtk.Objects.AboutDialog , - module GI.Gtk.Objects.AccelGroup , - module GI.Gtk.Objects.AccelLabel , - module GI.Gtk.Objects.AccelMap , - module GI.Gtk.Objects.Accessible , - module GI.Gtk.Objects.Action , - module GI.Gtk.Objects.ActionBar , - module GI.Gtk.Objects.ActionGroup , - module GI.Gtk.Objects.Adjustment , - module GI.Gtk.Objects.Alignment , - module GI.Gtk.Objects.AppChooserButton , - module GI.Gtk.Objects.AppChooserDialog , - module GI.Gtk.Objects.AppChooserWidget , - module GI.Gtk.Objects.Application , - module GI.Gtk.Objects.ApplicationWindow , - module GI.Gtk.Objects.Arrow , - module GI.Gtk.Objects.ArrowAccessible , - module GI.Gtk.Objects.AspectFrame , - module GI.Gtk.Objects.Assistant , - module GI.Gtk.Objects.Bin , - module GI.Gtk.Objects.BooleanCellAccessible, - module GI.Gtk.Objects.Box , - module GI.Gtk.Objects.Builder , - module GI.Gtk.Objects.Button , - module GI.Gtk.Objects.ButtonAccessible , - module GI.Gtk.Objects.ButtonBox , - module GI.Gtk.Objects.Calendar , - module GI.Gtk.Objects.CellAccessible , - module GI.Gtk.Objects.CellArea , - module GI.Gtk.Objects.CellAreaBox , - module GI.Gtk.Objects.CellAreaContext , - module GI.Gtk.Objects.CellRenderer , - module GI.Gtk.Objects.CellRendererAccel , - module GI.Gtk.Objects.CellRendererCombo , - module GI.Gtk.Objects.CellRendererPixbuf, - module GI.Gtk.Objects.CellRendererProgress, - module GI.Gtk.Objects.CellRendererSpin , - module GI.Gtk.Objects.CellRendererSpinner, - module GI.Gtk.Objects.CellRendererText , - module GI.Gtk.Objects.CellRendererToggle, - module GI.Gtk.Objects.CellView , - module GI.Gtk.Objects.CheckButton , - module GI.Gtk.Objects.CheckMenuItem , - module GI.Gtk.Objects.CheckMenuItemAccessible, - module GI.Gtk.Objects.Clipboard , - module GI.Gtk.Objects.ColorButton , - module GI.Gtk.Objects.ColorChooserDialog, - module GI.Gtk.Objects.ColorChooserWidget, - module GI.Gtk.Objects.ColorSelection , - module GI.Gtk.Objects.ColorSelectionDialog, - module GI.Gtk.Objects.ComboBox , - module GI.Gtk.Objects.ComboBoxAccessible, - module GI.Gtk.Objects.ComboBoxText , - module GI.Gtk.Objects.Container , - module GI.Gtk.Objects.ContainerAccessible, - module GI.Gtk.Objects.ContainerCellAccessible, - module GI.Gtk.Objects.CssProvider , - module GI.Gtk.Objects.Dialog , - module GI.Gtk.Objects.DrawingArea , - module GI.Gtk.Objects.Entry , - module GI.Gtk.Objects.EntryAccessible , - module GI.Gtk.Objects.EntryBuffer , - module GI.Gtk.Objects.EntryCompletion , - module GI.Gtk.Objects.EntryIconAccessible, - module GI.Gtk.Objects.EventBox , - module GI.Gtk.Objects.EventController , - module GI.Gtk.Objects.Expander , - module GI.Gtk.Objects.ExpanderAccessible, - module GI.Gtk.Objects.FileChooserButton , - module GI.Gtk.Objects.FileChooserDialog , - module GI.Gtk.Objects.FileChooserWidget , - module GI.Gtk.Objects.FileFilter , - module GI.Gtk.Objects.Fixed , - module GI.Gtk.Objects.FlowBox , - module GI.Gtk.Objects.FlowBoxAccessible , - module GI.Gtk.Objects.FlowBoxChild , - module GI.Gtk.Objects.FlowBoxChildAccessible, - module GI.Gtk.Objects.FontButton , - module GI.Gtk.Objects.FontChooserDialog , - module GI.Gtk.Objects.FontChooserWidget , - module GI.Gtk.Objects.FontSelection , - module GI.Gtk.Objects.FontSelectionDialog, - module GI.Gtk.Objects.Frame , - module GI.Gtk.Objects.FrameAccessible , - module GI.Gtk.Objects.GLArea , - module GI.Gtk.Objects.Gesture , - module GI.Gtk.Objects.GestureDrag , - module GI.Gtk.Objects.GestureLongPress , - module GI.Gtk.Objects.GestureMultiPress , - module GI.Gtk.Objects.GesturePan , - module GI.Gtk.Objects.GestureRotate , - module GI.Gtk.Objects.GestureSingle , - module GI.Gtk.Objects.GestureSwipe , - module GI.Gtk.Objects.GestureZoom , - module GI.Gtk.Objects.Grid , - module GI.Gtk.Objects.HBox , - module GI.Gtk.Objects.HButtonBox , - module GI.Gtk.Objects.HPaned , - module GI.Gtk.Objects.HSV , - module GI.Gtk.Objects.HScale , - module GI.Gtk.Objects.HScrollbar , - module GI.Gtk.Objects.HSeparator , - module GI.Gtk.Objects.HandleBox , - module GI.Gtk.Objects.HeaderBar , - module GI.Gtk.Objects.IMContext , - module GI.Gtk.Objects.IMContextSimple , - module GI.Gtk.Objects.IMMulticontext , - module GI.Gtk.Objects.IconFactory , - module GI.Gtk.Objects.IconInfo , - module GI.Gtk.Objects.IconTheme , - module GI.Gtk.Objects.IconView , - module GI.Gtk.Objects.IconViewAccessible, - module GI.Gtk.Objects.Image , - module GI.Gtk.Objects.ImageAccessible , - module GI.Gtk.Objects.ImageCellAccessible, - module GI.Gtk.Objects.ImageMenuItem , - module GI.Gtk.Objects.InfoBar , - module GI.Gtk.Objects.Invisible , - module GI.Gtk.Objects.Label , - module GI.Gtk.Objects.LabelAccessible , - module GI.Gtk.Objects.Layout , - module GI.Gtk.Objects.LevelBar , - module GI.Gtk.Objects.LevelBarAccessible, - module GI.Gtk.Objects.LinkButton , - module GI.Gtk.Objects.LinkButtonAccessible, - module GI.Gtk.Objects.ListBox , - module GI.Gtk.Objects.ListBoxAccessible , - module GI.Gtk.Objects.ListBoxRow , - module GI.Gtk.Objects.ListBoxRowAccessible, - module GI.Gtk.Objects.ListStore , - module GI.Gtk.Objects.LockButton , - module GI.Gtk.Objects.LockButtonAccessible, - module GI.Gtk.Objects.Menu , - module GI.Gtk.Objects.MenuAccessible , - module GI.Gtk.Objects.MenuBar , - module GI.Gtk.Objects.MenuButton , - module GI.Gtk.Objects.MenuButtonAccessible, - module GI.Gtk.Objects.MenuItem , - module GI.Gtk.Objects.MenuItemAccessible, - module GI.Gtk.Objects.MenuShell , - module GI.Gtk.Objects.MenuShellAccessible, - module GI.Gtk.Objects.MenuToolButton , - module GI.Gtk.Objects.MessageDialog , - module GI.Gtk.Objects.Misc , - module GI.Gtk.Objects.ModelButton , - module GI.Gtk.Objects.MountOperation , - module GI.Gtk.Objects.Notebook , - module GI.Gtk.Objects.NotebookAccessible, - module GI.Gtk.Objects.NotebookPageAccessible, - module GI.Gtk.Objects.NumerableIcon , - module GI.Gtk.Objects.OffscreenWindow , - module GI.Gtk.Objects.Overlay , - module GI.Gtk.Objects.PageSetup , - module GI.Gtk.Objects.Paned , - module GI.Gtk.Objects.PanedAccessible , - module GI.Gtk.Objects.PlacesSidebar , - module GI.Gtk.Objects.Plug , - module GI.Gtk.Objects.Popover , - module GI.Gtk.Objects.PopoverAccessible , - module GI.Gtk.Objects.PopoverMenu , - module GI.Gtk.Objects.PrintContext , - module GI.Gtk.Objects.PrintOperation , - module GI.Gtk.Objects.PrintSettings , - module GI.Gtk.Objects.ProgressBar , - module GI.Gtk.Objects.ProgressBarAccessible, - module GI.Gtk.Objects.RadioAction , - module GI.Gtk.Objects.RadioButton , - module GI.Gtk.Objects.RadioButtonAccessible, - module GI.Gtk.Objects.RadioMenuItem , - module GI.Gtk.Objects.RadioMenuItemAccessible, - module GI.Gtk.Objects.RadioToolButton , - module GI.Gtk.Objects.Range , - module GI.Gtk.Objects.RangeAccessible , - module GI.Gtk.Objects.RcStyle , - module GI.Gtk.Objects.RecentAction , - module GI.Gtk.Objects.RecentChooserDialog, - module GI.Gtk.Objects.RecentChooserMenu , - module GI.Gtk.Objects.RecentChooserWidget, - module GI.Gtk.Objects.RecentFilter , - module GI.Gtk.Objects.RecentManager , - module GI.Gtk.Objects.RendererCellAccessible, - module GI.Gtk.Objects.Revealer , - module GI.Gtk.Objects.Scale , - module GI.Gtk.Objects.ScaleAccessible , - module GI.Gtk.Objects.ScaleButton , - module GI.Gtk.Objects.ScaleButtonAccessible, - module GI.Gtk.Objects.Scrollbar , - module GI.Gtk.Objects.ScrolledWindow , - module GI.Gtk.Objects.ScrolledWindowAccessible, - module GI.Gtk.Objects.SearchBar , - module GI.Gtk.Objects.SearchEntry , - module GI.Gtk.Objects.Separator , - module GI.Gtk.Objects.SeparatorMenuItem , - module GI.Gtk.Objects.SeparatorToolItem , - module GI.Gtk.Objects.Settings , - module GI.Gtk.Objects.SizeGroup , - module GI.Gtk.Objects.Socket , - module GI.Gtk.Objects.SpinButton , - module GI.Gtk.Objects.SpinButtonAccessible, - module GI.Gtk.Objects.Spinner , - module GI.Gtk.Objects.SpinnerAccessible , - module GI.Gtk.Objects.Stack , - module GI.Gtk.Objects.StackSidebar , - module GI.Gtk.Objects.StackSwitcher , - module GI.Gtk.Objects.StatusIcon , - module GI.Gtk.Objects.Statusbar , - module GI.Gtk.Objects.StatusbarAccessible, - module GI.Gtk.Objects.Style , - module GI.Gtk.Objects.StyleContext , - module GI.Gtk.Objects.StyleProperties , - module GI.Gtk.Objects.Switch , - module GI.Gtk.Objects.SwitchAccessible , - module GI.Gtk.Objects.Table , - module GI.Gtk.Objects.TearoffMenuItem , - module GI.Gtk.Objects.TextBuffer , - module GI.Gtk.Objects.TextCellAccessible, - module GI.Gtk.Objects.TextChildAnchor , - module GI.Gtk.Objects.TextMark , - module GI.Gtk.Objects.TextTag , - module GI.Gtk.Objects.TextTagTable , - module GI.Gtk.Objects.TextView , - module GI.Gtk.Objects.TextViewAccessible, - module GI.Gtk.Objects.ThemingEngine , - module GI.Gtk.Objects.ToggleAction , - module GI.Gtk.Objects.ToggleButton , - module GI.Gtk.Objects.ToggleButtonAccessible, - module GI.Gtk.Objects.ToggleToolButton , - module GI.Gtk.Objects.ToolButton , - module GI.Gtk.Objects.ToolItem , - module GI.Gtk.Objects.ToolItemGroup , - module GI.Gtk.Objects.ToolPalette , - module GI.Gtk.Objects.Toolbar , - module GI.Gtk.Objects.Tooltip , - module GI.Gtk.Objects.ToplevelAccessible, - module GI.Gtk.Objects.TreeModelFilter , - module GI.Gtk.Objects.TreeModelSort , - module GI.Gtk.Objects.TreeSelection , - module GI.Gtk.Objects.TreeStore , - module GI.Gtk.Objects.TreeView , - module GI.Gtk.Objects.TreeViewAccessible, - module GI.Gtk.Objects.TreeViewColumn , - module GI.Gtk.Objects.UIManager , - module GI.Gtk.Objects.VBox , - module GI.Gtk.Objects.VButtonBox , - module GI.Gtk.Objects.VPaned , - module GI.Gtk.Objects.VScale , - module GI.Gtk.Objects.VScrollbar , - module GI.Gtk.Objects.VSeparator , - module GI.Gtk.Objects.Viewport , - module GI.Gtk.Objects.VolumeButton , - module GI.Gtk.Objects.Widget , - module GI.Gtk.Objects.WidgetAccessible , - module GI.Gtk.Objects.Window , - module GI.Gtk.Objects.WindowAccessible , - module GI.Gtk.Objects.WindowGroup , - - - ) where - -import GI.Gtk.Objects.AboutDialog -import GI.Gtk.Objects.AccelGroup -import GI.Gtk.Objects.AccelLabel -import GI.Gtk.Objects.AccelMap -import GI.Gtk.Objects.Accessible -import GI.Gtk.Objects.Action -import GI.Gtk.Objects.ActionBar -import GI.Gtk.Objects.ActionGroup -import GI.Gtk.Objects.Adjustment -import GI.Gtk.Objects.Alignment -import GI.Gtk.Objects.AppChooserButton -import GI.Gtk.Objects.AppChooserDialog -import GI.Gtk.Objects.AppChooserWidget -import GI.Gtk.Objects.Application -import GI.Gtk.Objects.ApplicationWindow -import GI.Gtk.Objects.Arrow -import GI.Gtk.Objects.ArrowAccessible -import GI.Gtk.Objects.AspectFrame -import GI.Gtk.Objects.Assistant -import GI.Gtk.Objects.Bin -import GI.Gtk.Objects.BooleanCellAccessible -import GI.Gtk.Objects.Box -import GI.Gtk.Objects.Builder -import GI.Gtk.Objects.Button -import GI.Gtk.Objects.ButtonAccessible -import GI.Gtk.Objects.ButtonBox -import GI.Gtk.Objects.Calendar -import GI.Gtk.Objects.CellAccessible -import GI.Gtk.Objects.CellArea -import GI.Gtk.Objects.CellAreaBox -import GI.Gtk.Objects.CellAreaContext -import GI.Gtk.Objects.CellRenderer -import GI.Gtk.Objects.CellRendererAccel -import GI.Gtk.Objects.CellRendererCombo -import GI.Gtk.Objects.CellRendererPixbuf -import GI.Gtk.Objects.CellRendererProgress -import GI.Gtk.Objects.CellRendererSpin -import GI.Gtk.Objects.CellRendererSpinner -import GI.Gtk.Objects.CellRendererText -import GI.Gtk.Objects.CellRendererToggle -import GI.Gtk.Objects.CellView -import GI.Gtk.Objects.CheckButton -import GI.Gtk.Objects.CheckMenuItem -import GI.Gtk.Objects.CheckMenuItemAccessible -import GI.Gtk.Objects.Clipboard -import GI.Gtk.Objects.ColorButton -import GI.Gtk.Objects.ColorChooserDialog -import GI.Gtk.Objects.ColorChooserWidget -import GI.Gtk.Objects.ColorSelection -import GI.Gtk.Objects.ColorSelectionDialog -import GI.Gtk.Objects.ComboBox -import GI.Gtk.Objects.ComboBoxAccessible -import GI.Gtk.Objects.ComboBoxText -import GI.Gtk.Objects.Container -import GI.Gtk.Objects.ContainerAccessible -import GI.Gtk.Objects.ContainerCellAccessible -import GI.Gtk.Objects.CssProvider -import GI.Gtk.Objects.Dialog -import GI.Gtk.Objects.DrawingArea -import GI.Gtk.Objects.Entry -import GI.Gtk.Objects.EntryAccessible -import GI.Gtk.Objects.EntryBuffer -import GI.Gtk.Objects.EntryCompletion -import GI.Gtk.Objects.EntryIconAccessible -import GI.Gtk.Objects.EventBox -import GI.Gtk.Objects.EventController -import GI.Gtk.Objects.Expander -import GI.Gtk.Objects.ExpanderAccessible -import GI.Gtk.Objects.FileChooserButton -import GI.Gtk.Objects.FileChooserDialog -import GI.Gtk.Objects.FileChooserWidget -import GI.Gtk.Objects.FileFilter -import GI.Gtk.Objects.Fixed -import GI.Gtk.Objects.FlowBox -import GI.Gtk.Objects.FlowBoxAccessible -import GI.Gtk.Objects.FlowBoxChild -import GI.Gtk.Objects.FlowBoxChildAccessible -import GI.Gtk.Objects.FontButton -import GI.Gtk.Objects.FontChooserDialog -import GI.Gtk.Objects.FontChooserWidget -import GI.Gtk.Objects.FontSelection -import GI.Gtk.Objects.FontSelectionDialog -import GI.Gtk.Objects.Frame -import GI.Gtk.Objects.FrameAccessible -import GI.Gtk.Objects.GLArea -import GI.Gtk.Objects.Gesture -import GI.Gtk.Objects.GestureDrag -import GI.Gtk.Objects.GestureLongPress -import GI.Gtk.Objects.GestureMultiPress -import GI.Gtk.Objects.GesturePan -import GI.Gtk.Objects.GestureRotate -import GI.Gtk.Objects.GestureSingle -import GI.Gtk.Objects.GestureSwipe -import GI.Gtk.Objects.GestureZoom -import GI.Gtk.Objects.Grid -import GI.Gtk.Objects.HBox -import GI.Gtk.Objects.HButtonBox -import GI.Gtk.Objects.HPaned -import GI.Gtk.Objects.HSV -import GI.Gtk.Objects.HScale -import GI.Gtk.Objects.HScrollbar -import GI.Gtk.Objects.HSeparator -import GI.Gtk.Objects.HandleBox -import GI.Gtk.Objects.HeaderBar -import GI.Gtk.Objects.IMContext -import GI.Gtk.Objects.IMContextSimple -import GI.Gtk.Objects.IMMulticontext -import GI.Gtk.Objects.IconFactory -import GI.Gtk.Objects.IconInfo -import GI.Gtk.Objects.IconTheme -import GI.Gtk.Objects.IconView -import GI.Gtk.Objects.IconViewAccessible -import GI.Gtk.Objects.Image -import GI.Gtk.Objects.ImageAccessible -import GI.Gtk.Objects.ImageCellAccessible -import GI.Gtk.Objects.ImageMenuItem -import GI.Gtk.Objects.InfoBar -import GI.Gtk.Objects.Invisible -import GI.Gtk.Objects.Label -import GI.Gtk.Objects.LabelAccessible -import GI.Gtk.Objects.Layout -import GI.Gtk.Objects.LevelBar -import GI.Gtk.Objects.LevelBarAccessible -import GI.Gtk.Objects.LinkButton -import GI.Gtk.Objects.LinkButtonAccessible -import GI.Gtk.Objects.ListBox -import GI.Gtk.Objects.ListBoxAccessible -import GI.Gtk.Objects.ListBoxRow -import GI.Gtk.Objects.ListBoxRowAccessible -import GI.Gtk.Objects.ListStore -import GI.Gtk.Objects.LockButton -import GI.Gtk.Objects.LockButtonAccessible -import GI.Gtk.Objects.Menu -import GI.Gtk.Objects.MenuAccessible -import GI.Gtk.Objects.MenuBar -import GI.Gtk.Objects.MenuButton -import GI.Gtk.Objects.MenuButtonAccessible -import GI.Gtk.Objects.MenuItem -import GI.Gtk.Objects.MenuItemAccessible -import GI.Gtk.Objects.MenuShell -import GI.Gtk.Objects.MenuShellAccessible -import GI.Gtk.Objects.MenuToolButton -import GI.Gtk.Objects.MessageDialog -import GI.Gtk.Objects.Misc -import GI.Gtk.Objects.ModelButton -import GI.Gtk.Objects.MountOperation -import GI.Gtk.Objects.Notebook -import GI.Gtk.Objects.NotebookAccessible -import GI.Gtk.Objects.NotebookPageAccessible -import GI.Gtk.Objects.NumerableIcon -import GI.Gtk.Objects.OffscreenWindow -import GI.Gtk.Objects.Overlay -import GI.Gtk.Objects.PageSetup -import GI.Gtk.Objects.Paned -import GI.Gtk.Objects.PanedAccessible -import GI.Gtk.Objects.PlacesSidebar -import GI.Gtk.Objects.Plug -import GI.Gtk.Objects.Popover -import GI.Gtk.Objects.PopoverAccessible -import GI.Gtk.Objects.PopoverMenu -import GI.Gtk.Objects.PrintContext -import GI.Gtk.Objects.PrintOperation -import GI.Gtk.Objects.PrintSettings -import GI.Gtk.Objects.ProgressBar -import GI.Gtk.Objects.ProgressBarAccessible -import GI.Gtk.Objects.RadioAction -import GI.Gtk.Objects.RadioButton -import GI.Gtk.Objects.RadioButtonAccessible -import GI.Gtk.Objects.RadioMenuItem -import GI.Gtk.Objects.RadioMenuItemAccessible -import GI.Gtk.Objects.RadioToolButton -import GI.Gtk.Objects.Range -import GI.Gtk.Objects.RangeAccessible -import GI.Gtk.Objects.RcStyle -import GI.Gtk.Objects.RecentAction -import GI.Gtk.Objects.RecentChooserDialog -import GI.Gtk.Objects.RecentChooserMenu -import GI.Gtk.Objects.RecentChooserWidget -import GI.Gtk.Objects.RecentFilter -import GI.Gtk.Objects.RecentManager -import GI.Gtk.Objects.RendererCellAccessible -import GI.Gtk.Objects.Revealer -import GI.Gtk.Objects.Scale -import GI.Gtk.Objects.ScaleAccessible -import GI.Gtk.Objects.ScaleButton -import GI.Gtk.Objects.ScaleButtonAccessible -import GI.Gtk.Objects.Scrollbar -import GI.Gtk.Objects.ScrolledWindow -import GI.Gtk.Objects.ScrolledWindowAccessible -import GI.Gtk.Objects.SearchBar -import GI.Gtk.Objects.SearchEntry -import GI.Gtk.Objects.Separator -import GI.Gtk.Objects.SeparatorMenuItem -import GI.Gtk.Objects.SeparatorToolItem -import GI.Gtk.Objects.Settings -import GI.Gtk.Objects.SizeGroup -import GI.Gtk.Objects.Socket -import GI.Gtk.Objects.SpinButton -import GI.Gtk.Objects.SpinButtonAccessible -import GI.Gtk.Objects.Spinner -import GI.Gtk.Objects.SpinnerAccessible -import GI.Gtk.Objects.Stack -import GI.Gtk.Objects.StackSidebar -import GI.Gtk.Objects.StackSwitcher -import GI.Gtk.Objects.StatusIcon -import GI.Gtk.Objects.Statusbar -import GI.Gtk.Objects.StatusbarAccessible -import GI.Gtk.Objects.Style -import GI.Gtk.Objects.StyleContext -import GI.Gtk.Objects.StyleProperties -import GI.Gtk.Objects.Switch -import GI.Gtk.Objects.SwitchAccessible -import GI.Gtk.Objects.Table -import GI.Gtk.Objects.TearoffMenuItem -import GI.Gtk.Objects.TextBuffer -import GI.Gtk.Objects.TextCellAccessible -import GI.Gtk.Objects.TextChildAnchor -import GI.Gtk.Objects.TextMark -import GI.Gtk.Objects.TextTag -import GI.Gtk.Objects.TextTagTable -import GI.Gtk.Objects.TextView -import GI.Gtk.Objects.TextViewAccessible -import GI.Gtk.Objects.ThemingEngine -import GI.Gtk.Objects.ToggleAction -import GI.Gtk.Objects.ToggleButton -import GI.Gtk.Objects.ToggleButtonAccessible -import GI.Gtk.Objects.ToggleToolButton -import GI.Gtk.Objects.ToolButton -import GI.Gtk.Objects.ToolItem -import GI.Gtk.Objects.ToolItemGroup -import GI.Gtk.Objects.ToolPalette -import GI.Gtk.Objects.Toolbar -import GI.Gtk.Objects.Tooltip -import GI.Gtk.Objects.ToplevelAccessible -import GI.Gtk.Objects.TreeModelFilter -import GI.Gtk.Objects.TreeModelSort -import GI.Gtk.Objects.TreeSelection -import GI.Gtk.Objects.TreeStore -import GI.Gtk.Objects.TreeView -import GI.Gtk.Objects.TreeViewAccessible -import GI.Gtk.Objects.TreeViewColumn -import GI.Gtk.Objects.UIManager -import GI.Gtk.Objects.VBox -import GI.Gtk.Objects.VButtonBox -import GI.Gtk.Objects.VPaned -import GI.Gtk.Objects.VScale -import GI.Gtk.Objects.VScrollbar -import GI.Gtk.Objects.VSeparator -import GI.Gtk.Objects.Viewport -import GI.Gtk.Objects.VolumeButton -import GI.Gtk.Objects.Widget -import GI.Gtk.Objects.WidgetAccessible -import GI.Gtk.Objects.Window -import GI.Gtk.Objects.WindowAccessible -import GI.Gtk.Objects.WindowGroup - -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.Gtk.Types -import GI.Gtk.Callbacks - - diff --git a/GI/Gtk/Objects/AboutDialog.hs b/GI/Gtk/Objects/AboutDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AboutDialog.hs +++ /dev/null @@ -1,2332 +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.Gtk.Objects.AboutDialog - ( - --- * Exported types - AboutDialog(..) , - AboutDialogK , - toAboutDialog , - noAboutDialog , - - - -- * Methods --- ** aboutDialogAddCreditSection - AboutDialogAddCreditSectionMethodInfo , - aboutDialogAddCreditSection , - - --- ** aboutDialogGetArtists - AboutDialogGetArtistsMethodInfo , - aboutDialogGetArtists , - - --- ** aboutDialogGetAuthors - AboutDialogGetAuthorsMethodInfo , - aboutDialogGetAuthors , - - --- ** aboutDialogGetComments - AboutDialogGetCommentsMethodInfo , - aboutDialogGetComments , - - --- ** aboutDialogGetCopyright - AboutDialogGetCopyrightMethodInfo , - aboutDialogGetCopyright , - - --- ** aboutDialogGetDocumenters - AboutDialogGetDocumentersMethodInfo , - aboutDialogGetDocumenters , - - --- ** aboutDialogGetLicense - AboutDialogGetLicenseMethodInfo , - aboutDialogGetLicense , - - --- ** aboutDialogGetLicenseType - AboutDialogGetLicenseTypeMethodInfo , - aboutDialogGetLicenseType , - - --- ** aboutDialogGetLogo - AboutDialogGetLogoMethodInfo , - aboutDialogGetLogo , - - --- ** aboutDialogGetLogoIconName - AboutDialogGetLogoIconNameMethodInfo , - aboutDialogGetLogoIconName , - - --- ** aboutDialogGetProgramName - AboutDialogGetProgramNameMethodInfo , - aboutDialogGetProgramName , - - --- ** aboutDialogGetTranslatorCredits - AboutDialogGetTranslatorCreditsMethodInfo, - aboutDialogGetTranslatorCredits , - - --- ** aboutDialogGetVersion - AboutDialogGetVersionMethodInfo , - aboutDialogGetVersion , - - --- ** aboutDialogGetWebsite - AboutDialogGetWebsiteMethodInfo , - aboutDialogGetWebsite , - - --- ** aboutDialogGetWebsiteLabel - AboutDialogGetWebsiteLabelMethodInfo , - aboutDialogGetWebsiteLabel , - - --- ** aboutDialogGetWrapLicense - AboutDialogGetWrapLicenseMethodInfo , - aboutDialogGetWrapLicense , - - --- ** aboutDialogNew - aboutDialogNew , - - --- ** aboutDialogSetArtists - AboutDialogSetArtistsMethodInfo , - aboutDialogSetArtists , - - --- ** aboutDialogSetAuthors - AboutDialogSetAuthorsMethodInfo , - aboutDialogSetAuthors , - - --- ** aboutDialogSetComments - AboutDialogSetCommentsMethodInfo , - aboutDialogSetComments , - - --- ** aboutDialogSetCopyright - AboutDialogSetCopyrightMethodInfo , - aboutDialogSetCopyright , - - --- ** aboutDialogSetDocumenters - AboutDialogSetDocumentersMethodInfo , - aboutDialogSetDocumenters , - - --- ** aboutDialogSetLicense - AboutDialogSetLicenseMethodInfo , - aboutDialogSetLicense , - - --- ** aboutDialogSetLicenseType - AboutDialogSetLicenseTypeMethodInfo , - aboutDialogSetLicenseType , - - --- ** aboutDialogSetLogo - AboutDialogSetLogoMethodInfo , - aboutDialogSetLogo , - - --- ** aboutDialogSetLogoIconName - AboutDialogSetLogoIconNameMethodInfo , - aboutDialogSetLogoIconName , - - --- ** aboutDialogSetProgramName - AboutDialogSetProgramNameMethodInfo , - aboutDialogSetProgramName , - - --- ** aboutDialogSetTranslatorCredits - AboutDialogSetTranslatorCreditsMethodInfo, - aboutDialogSetTranslatorCredits , - - --- ** aboutDialogSetVersion - AboutDialogSetVersionMethodInfo , - aboutDialogSetVersion , - - --- ** aboutDialogSetWebsite - AboutDialogSetWebsiteMethodInfo , - aboutDialogSetWebsite , - - --- ** aboutDialogSetWebsiteLabel - AboutDialogSetWebsiteLabelMethodInfo , - aboutDialogSetWebsiteLabel , - - --- ** aboutDialogSetWrapLicense - AboutDialogSetWrapLicenseMethodInfo , - aboutDialogSetWrapLicense , - - - - - -- * Properties --- ** Artists - AboutDialogArtistsPropertyInfo , - aboutDialogArtists , - constructAboutDialogArtists , - getAboutDialogArtists , - setAboutDialogArtists , - - --- ** Authors - AboutDialogAuthorsPropertyInfo , - aboutDialogAuthors , - constructAboutDialogAuthors , - getAboutDialogAuthors , - setAboutDialogAuthors , - - --- ** Comments - AboutDialogCommentsPropertyInfo , - aboutDialogComments , - clearAboutDialogComments , - constructAboutDialogComments , - getAboutDialogComments , - setAboutDialogComments , - - --- ** Copyright - AboutDialogCopyrightPropertyInfo , - aboutDialogCopyright , - clearAboutDialogCopyright , - constructAboutDialogCopyright , - getAboutDialogCopyright , - setAboutDialogCopyright , - - --- ** Documenters - AboutDialogDocumentersPropertyInfo , - aboutDialogDocumenters , - constructAboutDialogDocumenters , - getAboutDialogDocumenters , - setAboutDialogDocumenters , - - --- ** License - AboutDialogLicensePropertyInfo , - aboutDialogLicense , - clearAboutDialogLicense , - constructAboutDialogLicense , - getAboutDialogLicense , - setAboutDialogLicense , - - --- ** LicenseType - AboutDialogLicenseTypePropertyInfo , - aboutDialogLicenseType , - constructAboutDialogLicenseType , - getAboutDialogLicenseType , - setAboutDialogLicenseType , - - --- ** Logo - AboutDialogLogoPropertyInfo , - aboutDialogLogo , - clearAboutDialogLogo , - constructAboutDialogLogo , - getAboutDialogLogo , - setAboutDialogLogo , - - --- ** LogoIconName - AboutDialogLogoIconNamePropertyInfo , - aboutDialogLogoIconName , - clearAboutDialogLogoIconName , - constructAboutDialogLogoIconName , - getAboutDialogLogoIconName , - setAboutDialogLogoIconName , - - --- ** ProgramName - AboutDialogProgramNamePropertyInfo , - aboutDialogProgramName , - constructAboutDialogProgramName , - getAboutDialogProgramName , - setAboutDialogProgramName , - - --- ** TranslatorCredits - AboutDialogTranslatorCreditsPropertyInfo, - aboutDialogTranslatorCredits , - clearAboutDialogTranslatorCredits , - constructAboutDialogTranslatorCredits , - getAboutDialogTranslatorCredits , - setAboutDialogTranslatorCredits , - - --- ** Version - AboutDialogVersionPropertyInfo , - aboutDialogVersion , - clearAboutDialogVersion , - constructAboutDialogVersion , - getAboutDialogVersion , - setAboutDialogVersion , - - --- ** Website - AboutDialogWebsitePropertyInfo , - aboutDialogWebsite , - clearAboutDialogWebsite , - constructAboutDialogWebsite , - getAboutDialogWebsite , - setAboutDialogWebsite , - - --- ** WebsiteLabel - AboutDialogWebsiteLabelPropertyInfo , - aboutDialogWebsiteLabel , - constructAboutDialogWebsiteLabel , - getAboutDialogWebsiteLabel , - setAboutDialogWebsiteLabel , - - --- ** WrapLicense - AboutDialogWrapLicensePropertyInfo , - aboutDialogWrapLicense , - constructAboutDialogWrapLicense , - getAboutDialogWrapLicense , - setAboutDialogWrapLicense , - - - - - -- * Signals --- ** ActivateLink - AboutDialogActivateLinkCallback , - AboutDialogActivateLinkCallbackC , - AboutDialogActivateLinkSignalInfo , - aboutDialogActivateLinkCallbackWrapper , - aboutDialogActivateLinkClosure , - afterAboutDialogActivateLink , - mkAboutDialogActivateLinkCallback , - noAboutDialogActivateLinkCallback , - onAboutDialogActivateLink , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype AboutDialog = AboutDialog (ForeignPtr AboutDialog) -foreign import ccall "gtk_about_dialog_get_type" - c_gtk_about_dialog_get_type :: IO GType - -type instance ParentTypes AboutDialog = AboutDialogParentTypes -type AboutDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject AboutDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_about_dialog_get_type - - -class GObject o => AboutDialogK o -instance (GObject o, IsDescendantOf AboutDialog o) => AboutDialogK o - -toAboutDialog :: AboutDialogK o => o -> IO AboutDialog -toAboutDialog = unsafeCastTo AboutDialog - -noAboutDialog :: Maybe AboutDialog -noAboutDialog = Nothing - -type family ResolveAboutDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveAboutDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveAboutDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveAboutDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveAboutDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveAboutDialogMethod "add" o = ContainerAddMethodInfo - ResolveAboutDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveAboutDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAboutDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveAboutDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveAboutDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAboutDialogMethod "addCreditSection" o = AboutDialogAddCreditSectionMethodInfo - ResolveAboutDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAboutDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAboutDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveAboutDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAboutDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAboutDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveAboutDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveAboutDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAboutDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAboutDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAboutDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAboutDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAboutDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAboutDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAboutDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAboutDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAboutDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAboutDialogMethod "close" o = WindowCloseMethodInfo - ResolveAboutDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAboutDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAboutDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAboutDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAboutDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAboutDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAboutDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAboutDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveAboutDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAboutDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAboutDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAboutDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAboutDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAboutDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAboutDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAboutDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAboutDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAboutDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAboutDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAboutDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAboutDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAboutDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAboutDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAboutDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAboutDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAboutDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAboutDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAboutDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAboutDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAboutDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAboutDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAboutDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAboutDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAboutDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAboutDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAboutDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAboutDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAboutDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAboutDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAboutDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveAboutDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAboutDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAboutDialogMethod "event" o = WidgetEventMethodInfo - ResolveAboutDialogMethod "forall" o = ContainerForallMethodInfo - ResolveAboutDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAboutDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveAboutDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAboutDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAboutDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveAboutDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveAboutDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAboutDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAboutDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAboutDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAboutDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAboutDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAboutDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAboutDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveAboutDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAboutDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAboutDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveAboutDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAboutDialogMethod "hide" o = WidgetHideMethodInfo - ResolveAboutDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAboutDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveAboutDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAboutDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAboutDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAboutDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAboutDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAboutDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveAboutDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAboutDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAboutDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAboutDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAboutDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAboutDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveAboutDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAboutDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAboutDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAboutDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAboutDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAboutDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAboutDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAboutDialogMethod "map" o = WidgetMapMethodInfo - ResolveAboutDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveAboutDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAboutDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAboutDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAboutDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAboutDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAboutDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAboutDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAboutDialogMethod "move" o = WindowMoveMethodInfo - ResolveAboutDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAboutDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAboutDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAboutDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAboutDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAboutDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAboutDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAboutDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveAboutDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAboutDialogMethod "path" o = WidgetPathMethodInfo - ResolveAboutDialogMethod "present" o = WindowPresentMethodInfo - ResolveAboutDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveAboutDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAboutDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveAboutDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAboutDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAboutDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAboutDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAboutDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAboutDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAboutDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveAboutDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAboutDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAboutDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAboutDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAboutDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveAboutDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveAboutDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAboutDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveAboutDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAboutDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAboutDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAboutDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAboutDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveAboutDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAboutDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAboutDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAboutDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAboutDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveAboutDialogMethod "resize" o = WindowResizeMethodInfo - ResolveAboutDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAboutDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveAboutDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveAboutDialogMethod "response" o = DialogResponseMethodInfo - ResolveAboutDialogMethod "run" o = DialogRunMethodInfo - ResolveAboutDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAboutDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAboutDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAboutDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAboutDialogMethod "show" o = WidgetShowMethodInfo - ResolveAboutDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAboutDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAboutDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAboutDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAboutDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAboutDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAboutDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAboutDialogMethod "stick" o = WindowStickMethodInfo - ResolveAboutDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAboutDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAboutDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAboutDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAboutDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAboutDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAboutDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveAboutDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAboutDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveAboutDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAboutDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAboutDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAboutDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAboutDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAboutDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAboutDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveAboutDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAboutDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveAboutDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAboutDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveAboutDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAboutDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAboutDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAboutDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAboutDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAboutDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAboutDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAboutDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveAboutDialogMethod "getArtists" o = AboutDialogGetArtistsMethodInfo - ResolveAboutDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveAboutDialogMethod "getAuthors" o = AboutDialogGetAuthorsMethodInfo - ResolveAboutDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAboutDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAboutDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAboutDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveAboutDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAboutDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAboutDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAboutDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAboutDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAboutDialogMethod "getComments" o = AboutDialogGetCommentsMethodInfo - ResolveAboutDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAboutDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveAboutDialogMethod "getCopyright" o = AboutDialogGetCopyrightMethodInfo - ResolveAboutDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAboutDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveAboutDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveAboutDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveAboutDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveAboutDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveAboutDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAboutDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAboutDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAboutDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAboutDialogMethod "getDocumenters" o = AboutDialogGetDocumentersMethodInfo - ResolveAboutDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAboutDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAboutDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveAboutDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAboutDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAboutDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAboutDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveAboutDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAboutDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveAboutDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAboutDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAboutDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAboutDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveAboutDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveAboutDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAboutDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveAboutDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAboutDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAboutDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveAboutDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAboutDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAboutDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveAboutDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveAboutDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveAboutDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveAboutDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAboutDialogMethod "getLicense" o = AboutDialogGetLicenseMethodInfo - ResolveAboutDialogMethod "getLicenseType" o = AboutDialogGetLicenseTypeMethodInfo - ResolveAboutDialogMethod "getLogo" o = AboutDialogGetLogoMethodInfo - ResolveAboutDialogMethod "getLogoIconName" o = AboutDialogGetLogoIconNameMethodInfo - ResolveAboutDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAboutDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAboutDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAboutDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAboutDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAboutDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAboutDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAboutDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveAboutDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveAboutDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveAboutDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAboutDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAboutDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAboutDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAboutDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAboutDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAboutDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAboutDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAboutDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAboutDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveAboutDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAboutDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAboutDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAboutDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAboutDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAboutDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAboutDialogMethod "getProgramName" o = AboutDialogGetProgramNameMethodInfo - ResolveAboutDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAboutDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAboutDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAboutDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAboutDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAboutDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAboutDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveAboutDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveAboutDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAboutDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveAboutDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveAboutDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAboutDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAboutDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAboutDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAboutDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveAboutDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAboutDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveAboutDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveAboutDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveAboutDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAboutDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAboutDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAboutDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAboutDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAboutDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveAboutDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveAboutDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAboutDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAboutDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAboutDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAboutDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveAboutDialogMethod "getTranslatorCredits" o = AboutDialogGetTranslatorCreditsMethodInfo - ResolveAboutDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveAboutDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveAboutDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAboutDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAboutDialogMethod "getVersion" o = AboutDialogGetVersionMethodInfo - ResolveAboutDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAboutDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAboutDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAboutDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAboutDialogMethod "getWebsite" o = AboutDialogGetWebsiteMethodInfo - ResolveAboutDialogMethod "getWebsiteLabel" o = AboutDialogGetWebsiteLabelMethodInfo - ResolveAboutDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveAboutDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAboutDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveAboutDialogMethod "getWrapLicense" o = AboutDialogGetWrapLicenseMethodInfo - ResolveAboutDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAboutDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveAboutDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAboutDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveAboutDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAboutDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveAboutDialogMethod "setArtists" o = AboutDialogSetArtistsMethodInfo - ResolveAboutDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveAboutDialogMethod "setAuthors" o = AboutDialogSetAuthorsMethodInfo - ResolveAboutDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAboutDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAboutDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAboutDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAboutDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAboutDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAboutDialogMethod "setComments" o = AboutDialogSetCommentsMethodInfo - ResolveAboutDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAboutDialogMethod "setCopyright" o = AboutDialogSetCopyrightMethodInfo - ResolveAboutDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAboutDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveAboutDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveAboutDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveAboutDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveAboutDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveAboutDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveAboutDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveAboutDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAboutDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAboutDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAboutDialogMethod "setDocumenters" o = AboutDialogSetDocumentersMethodInfo - ResolveAboutDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAboutDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAboutDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveAboutDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAboutDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAboutDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAboutDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveAboutDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAboutDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveAboutDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAboutDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAboutDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveAboutDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveAboutDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAboutDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveAboutDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAboutDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveAboutDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAboutDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAboutDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAboutDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveAboutDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveAboutDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveAboutDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveAboutDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveAboutDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveAboutDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveAboutDialogMethod "setLicense" o = AboutDialogSetLicenseMethodInfo - ResolveAboutDialogMethod "setLicenseType" o = AboutDialogSetLicenseTypeMethodInfo - ResolveAboutDialogMethod "setLogo" o = AboutDialogSetLogoMethodInfo - ResolveAboutDialogMethod "setLogoIconName" o = AboutDialogSetLogoIconNameMethodInfo - ResolveAboutDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAboutDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAboutDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAboutDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAboutDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAboutDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAboutDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAboutDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveAboutDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveAboutDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveAboutDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAboutDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAboutDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAboutDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveAboutDialogMethod "setProgramName" o = AboutDialogSetProgramNameMethodInfo - ResolveAboutDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAboutDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAboutDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAboutDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAboutDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAboutDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveAboutDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAboutDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveAboutDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveAboutDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveAboutDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAboutDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAboutDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveAboutDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveAboutDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveAboutDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveAboutDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAboutDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAboutDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAboutDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveAboutDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveAboutDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAboutDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAboutDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAboutDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveAboutDialogMethod "setTranslatorCredits" o = AboutDialogSetTranslatorCreditsMethodInfo - ResolveAboutDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveAboutDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveAboutDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAboutDialogMethod "setVersion" o = AboutDialogSetVersionMethodInfo - ResolveAboutDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAboutDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAboutDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAboutDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAboutDialogMethod "setWebsite" o = AboutDialogSetWebsiteMethodInfo - ResolveAboutDialogMethod "setWebsiteLabel" o = AboutDialogSetWebsiteLabelMethodInfo - ResolveAboutDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAboutDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveAboutDialogMethod "setWrapLicense" o = AboutDialogSetWrapLicenseMethodInfo - ResolveAboutDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAboutDialogMethod t AboutDialog, MethodInfo info AboutDialog p) => IsLabelProxy t (AboutDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAboutDialogMethod t AboutDialog, MethodInfo info AboutDialog p) => IsLabel t (AboutDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AboutDialog::activate-link -type AboutDialogActivateLinkCallback = - T.Text -> - IO Bool - -noAboutDialogActivateLinkCallback :: Maybe AboutDialogActivateLinkCallback -noAboutDialogActivateLinkCallback = Nothing - -type AboutDialogActivateLinkCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkAboutDialogActivateLinkCallback :: AboutDialogActivateLinkCallbackC -> IO (FunPtr AboutDialogActivateLinkCallbackC) - -aboutDialogActivateLinkClosure :: AboutDialogActivateLinkCallback -> IO Closure -aboutDialogActivateLinkClosure cb = newCClosure =<< mkAboutDialogActivateLinkCallback wrapped - where wrapped = aboutDialogActivateLinkCallbackWrapper cb - -aboutDialogActivateLinkCallbackWrapper :: - AboutDialogActivateLinkCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CInt -aboutDialogActivateLinkCallbackWrapper _cb _ uri _ = do - uri' <- cstringToText uri - result <- _cb uri' - let result' = (fromIntegral . fromEnum) result - return result' - -onAboutDialogActivateLink :: (GObject a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId -onAboutDialogActivateLink obj cb = liftIO $ connectAboutDialogActivateLink obj cb SignalConnectBefore -afterAboutDialogActivateLink :: (GObject a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId -afterAboutDialogActivateLink obj cb = connectAboutDialogActivateLink obj cb SignalConnectAfter - -connectAboutDialogActivateLink :: (GObject a, MonadIO m) => - a -> AboutDialogActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectAboutDialogActivateLink obj cb after = liftIO $ do - cb' <- mkAboutDialogActivateLinkCallback (aboutDialogActivateLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-link" cb' after - --- VVV Prop "artists" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogArtists obj = liftIO $ checkUnexpectedNothing "getAboutDialogArtists" $ getObjectPropertyStringArray obj "artists" - -setAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" (Just val) - -constructAboutDialogArtists :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" (Just val) - -data AboutDialogArtistsPropertyInfo -instance AttrInfo AboutDialogArtistsPropertyInfo where - type AttrAllowedOps AboutDialogArtistsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogArtistsPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint AboutDialogArtistsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogArtistsPropertyInfo = [T.Text] - type AttrLabel AboutDialogArtistsPropertyInfo = "artists" - attrGet _ = getAboutDialogArtists - attrSet _ = setAboutDialogArtists - attrConstruct _ = constructAboutDialogArtists - attrClear _ = undefined - --- VVV Prop "authors" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogAuthors obj = liftIO $ checkUnexpectedNothing "getAboutDialogAuthors" $ getObjectPropertyStringArray obj "authors" - -setAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" (Just val) - -constructAboutDialogAuthors :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" (Just val) - -data AboutDialogAuthorsPropertyInfo -instance AttrInfo AboutDialogAuthorsPropertyInfo where - type AttrAllowedOps AboutDialogAuthorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogAuthorsPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint AboutDialogAuthorsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogAuthorsPropertyInfo = [T.Text] - type AttrLabel AboutDialogAuthorsPropertyInfo = "authors" - attrGet _ = getAboutDialogAuthors - attrSet _ = setAboutDialogAuthors - attrConstruct _ = constructAboutDialogAuthors - attrClear _ = undefined - --- VVV Prop "comments" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogComments obj = liftIO $ checkUnexpectedNothing "getAboutDialogComments" $ getObjectPropertyString obj "comments" - -setAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" (Just val) - -constructAboutDialogComments :: T.Text -> IO ([Char], GValue) -constructAboutDialogComments val = constructObjectPropertyString "comments" (Just val) - -clearAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogComments obj = liftIO $ setObjectPropertyString obj "comments" (Nothing :: Maybe T.Text) - -data AboutDialogCommentsPropertyInfo -instance AttrInfo AboutDialogCommentsPropertyInfo where - type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogCommentsPropertyInfo = T.Text - type AttrLabel AboutDialogCommentsPropertyInfo = "comments" - attrGet _ = getAboutDialogComments - attrSet _ = setAboutDialogComments - attrConstruct _ = constructAboutDialogComments - attrClear _ = clearAboutDialogComments - --- VVV Prop "copyright" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogCopyright obj = liftIO $ checkUnexpectedNothing "getAboutDialogCopyright" $ getObjectPropertyString obj "copyright" - -setAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" (Just val) - -constructAboutDialogCopyright :: T.Text -> IO ([Char], GValue) -constructAboutDialogCopyright val = constructObjectPropertyString "copyright" (Just val) - -clearAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogCopyright obj = liftIO $ setObjectPropertyString obj "copyright" (Nothing :: Maybe T.Text) - -data AboutDialogCopyrightPropertyInfo -instance AttrInfo AboutDialogCopyrightPropertyInfo where - type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK - type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text - type AttrLabel AboutDialogCopyrightPropertyInfo = "copyright" - attrGet _ = getAboutDialogCopyright - attrSet _ = setAboutDialogCopyright - attrConstruct _ = constructAboutDialogCopyright - attrClear _ = clearAboutDialogCopyright - --- VVV Prop "documenters" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogDocumenters obj = liftIO $ checkUnexpectedNothing "getAboutDialogDocumenters" $ getObjectPropertyStringArray obj "documenters" - -setAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" (Just val) - -constructAboutDialogDocumenters :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" (Just val) - -data AboutDialogDocumentersPropertyInfo -instance AttrInfo AboutDialogDocumentersPropertyInfo where - type AttrAllowedOps AboutDialogDocumentersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogDocumentersPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint AboutDialogDocumentersPropertyInfo = AboutDialogK - type AttrGetType AboutDialogDocumentersPropertyInfo = [T.Text] - type AttrLabel AboutDialogDocumentersPropertyInfo = "documenters" - attrGet _ = getAboutDialogDocumenters - attrSet _ = setAboutDialogDocumenters - attrConstruct _ = constructAboutDialogDocumenters - attrClear _ = undefined - --- VVV Prop "license" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLicense obj = liftIO $ checkUnexpectedNothing "getAboutDialogLicense" $ getObjectPropertyString obj "license" - -setAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" (Just val) - -constructAboutDialogLicense :: T.Text -> IO ([Char], GValue) -constructAboutDialogLicense val = constructObjectPropertyString "license" (Just val) - -clearAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogLicense obj = liftIO $ setObjectPropertyString obj "license" (Nothing :: Maybe T.Text) - -data AboutDialogLicensePropertyInfo -instance AttrInfo AboutDialogLicensePropertyInfo where - type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK - type AttrGetType AboutDialogLicensePropertyInfo = T.Text - type AttrLabel AboutDialogLicensePropertyInfo = "license" - attrGet _ = getAboutDialogLicense - attrSet _ = setAboutDialogLicense - attrConstruct _ = constructAboutDialogLicense - attrClear _ = clearAboutDialogLicense - --- VVV Prop "license-type" - -- Type: TInterface "Gtk" "License" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogLicenseType :: (MonadIO m, AboutDialogK o) => o -> m License -getAboutDialogLicenseType obj = liftIO $ getObjectPropertyEnum obj "license-type" - -setAboutDialogLicenseType :: (MonadIO m, AboutDialogK o) => o -> License -> m () -setAboutDialogLicenseType obj val = liftIO $ setObjectPropertyEnum obj "license-type" val - -constructAboutDialogLicenseType :: License -> IO ([Char], GValue) -constructAboutDialogLicenseType val = constructObjectPropertyEnum "license-type" val - -data AboutDialogLicenseTypePropertyInfo -instance AttrInfo AboutDialogLicenseTypePropertyInfo where - type AttrAllowedOps AboutDialogLicenseTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogLicenseTypePropertyInfo = (~) License - type AttrBaseTypeConstraint AboutDialogLicenseTypePropertyInfo = AboutDialogK - type AttrGetType AboutDialogLicenseTypePropertyInfo = License - type AttrLabel AboutDialogLicenseTypePropertyInfo = "license-type" - attrGet _ = getAboutDialogLicenseType - attrSet _ = setAboutDialogLicenseType - attrConstruct _ = constructAboutDialogLicenseType - attrClear _ = undefined - --- VVV Prop "logo" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m GdkPixbuf.Pixbuf -getAboutDialogLogo obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogo" $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf - -setAboutDialogLogo :: (MonadIO m, AboutDialogK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" (Just val) - -constructAboutDialogLogo :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructAboutDialogLogo val = constructObjectPropertyObject "logo" (Just val) - -clearAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogLogo obj = liftIO $ setObjectPropertyObject obj "logo" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data AboutDialogLogoPropertyInfo -instance AttrInfo AboutDialogLogoPropertyInfo where - type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK - type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel AboutDialogLogoPropertyInfo = "logo" - attrGet _ = getAboutDialogLogo - attrSet _ = setAboutDialogLogo - attrConstruct _ = constructAboutDialogLogo - attrClear _ = clearAboutDialogLogo - --- VVV Prop "logo-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLogoIconName obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogoIconName" $ getObjectPropertyString obj "logo-icon-name" - -setAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" (Just val) - -constructAboutDialogLogoIconName :: T.Text -> IO ([Char], GValue) -constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" (Just val) - -clearAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogLogoIconName obj = liftIO $ setObjectPropertyString obj "logo-icon-name" (Nothing :: Maybe T.Text) - -data AboutDialogLogoIconNamePropertyInfo -instance AttrInfo AboutDialogLogoIconNamePropertyInfo where - type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK - type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text - type AttrLabel AboutDialogLogoIconNamePropertyInfo = "logo-icon-name" - attrGet _ = getAboutDialogLogoIconName - attrSet _ = setAboutDialogLogoIconName - attrConstruct _ = constructAboutDialogLogoIconName - attrClear _ = clearAboutDialogLogoIconName - --- VVV Prop "program-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogProgramName obj = liftIO $ checkUnexpectedNothing "getAboutDialogProgramName" $ getObjectPropertyString obj "program-name" - -setAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" (Just val) - -constructAboutDialogProgramName :: T.Text -> IO ([Char], GValue) -constructAboutDialogProgramName val = constructObjectPropertyString "program-name" (Just val) - -data AboutDialogProgramNamePropertyInfo -instance AttrInfo AboutDialogProgramNamePropertyInfo where - type AttrAllowedOps AboutDialogProgramNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogProgramNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogProgramNamePropertyInfo = AboutDialogK - type AttrGetType AboutDialogProgramNamePropertyInfo = T.Text - type AttrLabel AboutDialogProgramNamePropertyInfo = "program-name" - attrGet _ = getAboutDialogProgramName - attrSet _ = setAboutDialogProgramName - attrConstruct _ = constructAboutDialogProgramName - attrClear _ = undefined - --- VVV Prop "translator-credits" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogTranslatorCredits obj = liftIO $ checkUnexpectedNothing "getAboutDialogTranslatorCredits" $ getObjectPropertyString obj "translator-credits" - -setAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" (Just val) - -constructAboutDialogTranslatorCredits :: T.Text -> IO ([Char], GValue) -constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" (Just val) - -clearAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogTranslatorCredits obj = liftIO $ setObjectPropertyString obj "translator-credits" (Nothing :: Maybe T.Text) - -data AboutDialogTranslatorCreditsPropertyInfo -instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where - type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text - type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "translator-credits" - attrGet _ = getAboutDialogTranslatorCredits - attrSet _ = setAboutDialogTranslatorCredits - attrConstruct _ = constructAboutDialogTranslatorCredits - attrClear _ = clearAboutDialogTranslatorCredits - --- VVV Prop "version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogVersion obj = liftIO $ checkUnexpectedNothing "getAboutDialogVersion" $ getObjectPropertyString obj "version" - -setAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" (Just val) - -constructAboutDialogVersion :: T.Text -> IO ([Char], GValue) -constructAboutDialogVersion val = constructObjectPropertyString "version" (Just val) - -clearAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogVersion obj = liftIO $ setObjectPropertyString obj "version" (Nothing :: Maybe T.Text) - -data AboutDialogVersionPropertyInfo -instance AttrInfo AboutDialogVersionPropertyInfo where - type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK - type AttrGetType AboutDialogVersionPropertyInfo = T.Text - type AttrLabel AboutDialogVersionPropertyInfo = "version" - attrGet _ = getAboutDialogVersion - attrSet _ = setAboutDialogVersion - attrConstruct _ = constructAboutDialogVersion - attrClear _ = clearAboutDialogVersion - --- VVV Prop "website" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsite obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsite" $ getObjectPropertyString obj "website" - -setAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" (Just val) - -constructAboutDialogWebsite :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsite val = constructObjectPropertyString "website" (Just val) - -clearAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m () -clearAboutDialogWebsite obj = liftIO $ setObjectPropertyString obj "website" (Nothing :: Maybe T.Text) - -data AboutDialogWebsitePropertyInfo -instance AttrInfo AboutDialogWebsitePropertyInfo where - type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK - type AttrGetType AboutDialogWebsitePropertyInfo = T.Text - type AttrLabel AboutDialogWebsitePropertyInfo = "website" - attrGet _ = getAboutDialogWebsite - attrSet _ = setAboutDialogWebsite - attrConstruct _ = constructAboutDialogWebsite - attrClear _ = clearAboutDialogWebsite - --- VVV Prop "website-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsiteLabel obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsiteLabel" $ getObjectPropertyString obj "website-label" - -setAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" (Just val) - -constructAboutDialogWebsiteLabel :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" (Just val) - -data AboutDialogWebsiteLabelPropertyInfo -instance AttrInfo AboutDialogWebsiteLabelPropertyInfo where - type AttrAllowedOps AboutDialogWebsiteLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogWebsiteLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogWebsiteLabelPropertyInfo = AboutDialogK - type AttrGetType AboutDialogWebsiteLabelPropertyInfo = T.Text - type AttrLabel AboutDialogWebsiteLabelPropertyInfo = "website-label" - attrGet _ = getAboutDialogWebsiteLabel - attrSet _ = setAboutDialogWebsiteLabel - attrConstruct _ = constructAboutDialogWebsiteLabel - attrClear _ = undefined - --- VVV Prop "wrap-license" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAboutDialogWrapLicense :: (MonadIO m, AboutDialogK o) => o -> m Bool -getAboutDialogWrapLicense obj = liftIO $ getObjectPropertyBool obj "wrap-license" - -setAboutDialogWrapLicense :: (MonadIO m, AboutDialogK o) => o -> Bool -> m () -setAboutDialogWrapLicense obj val = liftIO $ setObjectPropertyBool obj "wrap-license" val - -constructAboutDialogWrapLicense :: Bool -> IO ([Char], GValue) -constructAboutDialogWrapLicense val = constructObjectPropertyBool "wrap-license" val - -data AboutDialogWrapLicensePropertyInfo -instance AttrInfo AboutDialogWrapLicensePropertyInfo where - type AttrAllowedOps AboutDialogWrapLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogWrapLicensePropertyInfo = (~) Bool - type AttrBaseTypeConstraint AboutDialogWrapLicensePropertyInfo = AboutDialogK - type AttrGetType AboutDialogWrapLicensePropertyInfo = Bool - type AttrLabel AboutDialogWrapLicensePropertyInfo = "wrap-license" - attrGet _ = getAboutDialogWrapLicense - attrSet _ = setAboutDialogWrapLicense - attrConstruct _ = constructAboutDialogWrapLicense - attrClear _ = undefined - -type instance AttributeList AboutDialog = AboutDialogAttributeList -type AboutDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logoIconName", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("programName", AboutDialogProgramNamePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("websiteLabel", AboutDialogWebsiteLabelPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo), '("wrapLicense", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) - -aboutDialogArtists :: AttrLabelProxy "artists" -aboutDialogArtists = AttrLabelProxy - -aboutDialogAuthors :: AttrLabelProxy "authors" -aboutDialogAuthors = AttrLabelProxy - -aboutDialogComments :: AttrLabelProxy "comments" -aboutDialogComments = AttrLabelProxy - -aboutDialogCopyright :: AttrLabelProxy "copyright" -aboutDialogCopyright = AttrLabelProxy - -aboutDialogDocumenters :: AttrLabelProxy "documenters" -aboutDialogDocumenters = AttrLabelProxy - -aboutDialogLicense :: AttrLabelProxy "license" -aboutDialogLicense = AttrLabelProxy - -aboutDialogLicenseType :: AttrLabelProxy "licenseType" -aboutDialogLicenseType = AttrLabelProxy - -aboutDialogLogo :: AttrLabelProxy "logo" -aboutDialogLogo = AttrLabelProxy - -aboutDialogLogoIconName :: AttrLabelProxy "logoIconName" -aboutDialogLogoIconName = AttrLabelProxy - -aboutDialogProgramName :: AttrLabelProxy "programName" -aboutDialogProgramName = AttrLabelProxy - -aboutDialogTranslatorCredits :: AttrLabelProxy "translatorCredits" -aboutDialogTranslatorCredits = AttrLabelProxy - -aboutDialogVersion :: AttrLabelProxy "version" -aboutDialogVersion = AttrLabelProxy - -aboutDialogWebsite :: AttrLabelProxy "website" -aboutDialogWebsite = AttrLabelProxy - -aboutDialogWebsiteLabel :: AttrLabelProxy "websiteLabel" -aboutDialogWebsiteLabel = AttrLabelProxy - -aboutDialogWrapLicense :: AttrLabelProxy "wrapLicense" -aboutDialogWrapLicense = AttrLabelProxy - -data AboutDialogActivateLinkSignalInfo -instance SignalInfo AboutDialogActivateLinkSignalInfo where - type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback - connectSignal _ = connectAboutDialogActivateLink - -type instance SignalList AboutDialog = AboutDialogSignalList -type AboutDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("activateLink", AboutDialogActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AboutDialog::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AboutDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_new" gtk_about_dialog_new :: - IO (Ptr AboutDialog) - - -aboutDialogNew :: - (MonadIO m) => - m AboutDialog -- result -aboutDialogNew = liftIO $ do - result <- gtk_about_dialog_new - checkUnexpectedReturnNULL "gtk_about_dialog_new" result - result' <- (newObject AboutDialog) result - return result' - --- method AboutDialog::add_credit_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "people", argType = TCArray True (-1) (-1) (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 "gtk_about_dialog_add_credit_section" gtk_about_dialog_add_credit_section :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- section_name : TBasicType TUTF8 - Ptr CString -> -- people : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -aboutDialogAddCreditSection :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> T.Text -- sectionName - -> [T.Text] -- people - -> m () -- result -aboutDialogAddCreditSection _obj sectionName people = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sectionName' <- textToCString sectionName - people' <- packZeroTerminatedUTF8CArray people - gtk_about_dialog_add_credit_section _obj' sectionName' people' - touchManagedPtr _obj - freeMem sectionName' - mapZeroTerminatedCArray freeMem people' - freeMem people' - return () - -data AboutDialogAddCreditSectionMethodInfo -instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogAddCreditSectionMethodInfo a signature where - overloadedMethod _ = aboutDialogAddCreditSection - --- method AboutDialog::get_artists --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_get_artists" gtk_about_dialog_get_artists :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO (Ptr CString) - - -aboutDialogGetArtists :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m [T.Text] -- result -aboutDialogGetArtists _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_artists _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_artists" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data AboutDialogGetArtistsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetArtistsMethodInfo a signature where - overloadedMethod _ = aboutDialogGetArtists - --- method AboutDialog::get_authors --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_get_authors" gtk_about_dialog_get_authors :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO (Ptr CString) - - -aboutDialogGetAuthors :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m [T.Text] -- result -aboutDialogGetAuthors _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_authors _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_authors" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data AboutDialogGetAuthorsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetAuthorsMethodInfo a signature where - overloadedMethod _ = aboutDialogGetAuthors - --- method AboutDialog::get_comments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_comments" gtk_about_dialog_get_comments :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetComments :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetComments _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_comments _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_comments" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetCommentsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetCommentsMethodInfo a signature where - overloadedMethod _ = aboutDialogGetComments - --- method AboutDialog::get_copyright --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_copyright" gtk_about_dialog_get_copyright :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetCopyright :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetCopyright _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_copyright _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_copyright" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetCopyrightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetCopyrightMethodInfo a signature where - overloadedMethod _ = aboutDialogGetCopyright - --- method AboutDialog::get_documenters --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_get_documenters" gtk_about_dialog_get_documenters :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO (Ptr CString) - - -aboutDialogGetDocumenters :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m [T.Text] -- result -aboutDialogGetDocumenters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_documenters _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_documenters" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data AboutDialogGetDocumentersMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetDocumentersMethodInfo a signature where - overloadedMethod _ = aboutDialogGetDocumenters - --- method AboutDialog::get_license --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_license" gtk_about_dialog_get_license :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetLicense :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetLicense _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_license _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_license" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetLicenseMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLicenseMethodInfo a signature where - overloadedMethod _ = aboutDialogGetLicense - --- method AboutDialog::get_license_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "License") --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_get_license_type" gtk_about_dialog_get_license_type :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CUInt - - -aboutDialogGetLicenseType :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m License -- result -aboutDialogGetLicenseType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_license_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AboutDialogGetLicenseTypeMethodInfo -instance (signature ~ (m License), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLicenseTypeMethodInfo a signature where - overloadedMethod _ = aboutDialogGetLicenseType - --- method AboutDialog::get_logo --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_get_logo" gtk_about_dialog_get_logo :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO (Ptr GdkPixbuf.Pixbuf) - - -aboutDialogGetLogo :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -aboutDialogGetLogo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_logo _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_logo" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data AboutDialogGetLogoMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLogoMethodInfo a signature where - overloadedMethod _ = aboutDialogGetLogo - --- method AboutDialog::get_logo_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_logo_icon_name" gtk_about_dialog_get_logo_icon_name :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetLogoIconName :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetLogoIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_logo_icon_name _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_logo_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetLogoIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLogoIconNameMethodInfo a signature where - overloadedMethod _ = aboutDialogGetLogoIconName - --- method AboutDialog::get_program_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_program_name" gtk_about_dialog_get_program_name :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetProgramName :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetProgramName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_program_name _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_program_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetProgramNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetProgramNameMethodInfo a signature where - overloadedMethod _ = aboutDialogGetProgramName - --- method AboutDialog::get_translator_credits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_translator_credits" gtk_about_dialog_get_translator_credits :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetTranslatorCredits :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetTranslatorCredits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_translator_credits _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_translator_credits" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetTranslatorCreditsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetTranslatorCreditsMethodInfo a signature where - overloadedMethod _ = aboutDialogGetTranslatorCredits - --- method AboutDialog::get_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_version" gtk_about_dialog_get_version :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetVersion :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_version _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_version" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetVersionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetVersionMethodInfo a signature where - overloadedMethod _ = aboutDialogGetVersion - --- method AboutDialog::get_website --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_website" gtk_about_dialog_get_website :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetWebsite :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetWebsite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_website _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_website" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetWebsiteMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWebsiteMethodInfo a signature where - overloadedMethod _ = aboutDialogGetWebsite - --- method AboutDialog::get_website_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_website_label" gtk_about_dialog_get_website_label :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CString - - -aboutDialogGetWebsiteLabel :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m T.Text -- result -aboutDialogGetWebsiteLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_website_label _obj' - checkUnexpectedReturnNULL "gtk_about_dialog_get_website_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AboutDialogGetWebsiteLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWebsiteLabelMethodInfo a signature where - overloadedMethod _ = aboutDialogGetWebsiteLabel - --- method AboutDialog::get_wrap_license --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_get_wrap_license" gtk_about_dialog_get_wrap_license :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - IO CInt - - -aboutDialogGetWrapLicense :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> m Bool -- result -aboutDialogGetWrapLicense _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_wrap_license _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AboutDialogGetWrapLicenseMethodInfo -instance (signature ~ (m Bool), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWrapLicenseMethodInfo a signature where - overloadedMethod _ = aboutDialogGetWrapLicense - --- method AboutDialog::set_artists --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "artists", argType = TCArray True (-1) (-1) (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 "gtk_about_dialog_set_artists" gtk_about_dialog_set_artists :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - Ptr CString -> -- artists : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -aboutDialogSetArtists :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> [T.Text] -- artists - -> m () -- result -aboutDialogSetArtists _obj artists = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - artists' <- packZeroTerminatedUTF8CArray artists - gtk_about_dialog_set_artists _obj' artists' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem artists' - freeMem artists' - return () - -data AboutDialogSetArtistsMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetArtistsMethodInfo a signature where - overloadedMethod _ = aboutDialogSetArtists - --- method AboutDialog::set_authors --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "authors", argType = TCArray True (-1) (-1) (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 "gtk_about_dialog_set_authors" gtk_about_dialog_set_authors :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - Ptr CString -> -- authors : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -aboutDialogSetAuthors :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> [T.Text] -- authors - -> m () -- result -aboutDialogSetAuthors _obj authors = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - authors' <- packZeroTerminatedUTF8CArray authors - gtk_about_dialog_set_authors _obj' authors' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem authors' - freeMem authors' - return () - -data AboutDialogSetAuthorsMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetAuthorsMethodInfo a signature where - overloadedMethod _ = aboutDialogSetAuthors - --- method AboutDialog::set_comments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_comments" gtk_about_dialog_set_comments :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- comments : TBasicType TUTF8 - IO () - - -aboutDialogSetComments :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- comments - -> m () -- result -aboutDialogSetComments _obj comments = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeComments <- case comments of - Nothing -> return nullPtr - Just jComments -> do - jComments' <- textToCString jComments - return jComments' - gtk_about_dialog_set_comments _obj' maybeComments - touchManagedPtr _obj - freeMem maybeComments - return () - -data AboutDialogSetCommentsMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetCommentsMethodInfo a signature where - overloadedMethod _ = aboutDialogSetComments - --- method AboutDialog::set_copyright --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_copyright" gtk_about_dialog_set_copyright :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- copyright : TBasicType TUTF8 - IO () - - -aboutDialogSetCopyright :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- copyright - -> m () -- result -aboutDialogSetCopyright _obj copyright = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCopyright <- case copyright of - Nothing -> return nullPtr - Just jCopyright -> do - jCopyright' <- textToCString jCopyright - return jCopyright' - gtk_about_dialog_set_copyright _obj' maybeCopyright - touchManagedPtr _obj - freeMem maybeCopyright - return () - -data AboutDialogSetCopyrightMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetCopyrightMethodInfo a signature where - overloadedMethod _ = aboutDialogSetCopyright - --- method AboutDialog::set_documenters --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "documenters", argType = TCArray True (-1) (-1) (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 "gtk_about_dialog_set_documenters" gtk_about_dialog_set_documenters :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - Ptr CString -> -- documenters : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -aboutDialogSetDocumenters :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> [T.Text] -- documenters - -> m () -- result -aboutDialogSetDocumenters _obj documenters = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - documenters' <- packZeroTerminatedUTF8CArray documenters - gtk_about_dialog_set_documenters _obj' documenters' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem documenters' - freeMem documenters' - return () - -data AboutDialogSetDocumentersMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetDocumentersMethodInfo a signature where - overloadedMethod _ = aboutDialogSetDocumenters - --- method AboutDialog::set_license --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_license" gtk_about_dialog_set_license :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- license : TBasicType TUTF8 - IO () - - -aboutDialogSetLicense :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- license - -> m () -- result -aboutDialogSetLicense _obj license = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLicense <- case license of - Nothing -> return nullPtr - Just jLicense -> do - jLicense' <- textToCString jLicense - return jLicense' - gtk_about_dialog_set_license _obj' maybeLicense - touchManagedPtr _obj - freeMem maybeLicense - return () - -data AboutDialogSetLicenseMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLicenseMethodInfo a signature where - overloadedMethod _ = aboutDialogSetLicense - --- method AboutDialog::set_license_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license_type", argType = TInterface "Gtk" "License", 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 "gtk_about_dialog_set_license_type" gtk_about_dialog_set_license_type :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CUInt -> -- license_type : TInterface "Gtk" "License" - IO () - - -aboutDialogSetLicenseType :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> License -- licenseType - -> m () -- result -aboutDialogSetLicenseType _obj licenseType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let licenseType' = (fromIntegral . fromEnum) licenseType - gtk_about_dialog_set_license_type _obj' licenseType' - touchManagedPtr _obj - return () - -data AboutDialogSetLicenseTypeMethodInfo -instance (signature ~ (License -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLicenseTypeMethodInfo a signature where - overloadedMethod _ = aboutDialogSetLicenseType - --- method AboutDialog::set_logo --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_logo" gtk_about_dialog_set_logo :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - Ptr GdkPixbuf.Pixbuf -> -- logo : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -aboutDialogSetLogo :: - (MonadIO m, AboutDialogK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> Maybe (b) -- logo - -> m () -- result -aboutDialogSetLogo _obj logo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLogo <- case logo of - Nothing -> return nullPtr - Just jLogo -> do - let jLogo' = unsafeManagedPtrCastPtr jLogo - return jLogo' - gtk_about_dialog_set_logo _obj' maybeLogo - touchManagedPtr _obj - whenJust logo touchManagedPtr - return () - -data AboutDialogSetLogoMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AboutDialogK a, GdkPixbuf.PixbufK b) => MethodInfo AboutDialogSetLogoMethodInfo a signature where - overloadedMethod _ = aboutDialogSetLogo - --- method AboutDialog::set_logo_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_logo_icon_name" gtk_about_dialog_set_logo_icon_name :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -aboutDialogSetLogoIconName :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- iconName - -> m () -- result -aboutDialogSetLogoIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_about_dialog_set_logo_icon_name _obj' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data AboutDialogSetLogoIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLogoIconNameMethodInfo a signature where - overloadedMethod _ = aboutDialogSetLogoIconName - --- method AboutDialog::set_program_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 "gtk_about_dialog_set_program_name" gtk_about_dialog_set_program_name :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- name : TBasicType TUTF8 - IO () - - -aboutDialogSetProgramName :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -aboutDialogSetProgramName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_about_dialog_set_program_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data AboutDialogSetProgramNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetProgramNameMethodInfo a signature where - overloadedMethod _ = aboutDialogSetProgramName - --- method AboutDialog::set_translator_credits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_translator_credits" gtk_about_dialog_set_translator_credits :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- translator_credits : TBasicType TUTF8 - IO () - - -aboutDialogSetTranslatorCredits :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- translatorCredits - -> m () -- result -aboutDialogSetTranslatorCredits _obj translatorCredits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTranslatorCredits <- case translatorCredits of - Nothing -> return nullPtr - Just jTranslatorCredits -> do - jTranslatorCredits' <- textToCString jTranslatorCredits - return jTranslatorCredits' - gtk_about_dialog_set_translator_credits _obj' maybeTranslatorCredits - touchManagedPtr _obj - freeMem maybeTranslatorCredits - return () - -data AboutDialogSetTranslatorCreditsMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetTranslatorCreditsMethodInfo a signature where - overloadedMethod _ = aboutDialogSetTranslatorCredits - --- method AboutDialog::set_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_version" gtk_about_dialog_set_version :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- version : TBasicType TUTF8 - IO () - - -aboutDialogSetVersion :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- version - -> m () -- result -aboutDialogSetVersion _obj version = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeVersion <- case version of - Nothing -> return nullPtr - Just jVersion -> do - jVersion' <- textToCString jVersion - return jVersion' - gtk_about_dialog_set_version _obj' maybeVersion - touchManagedPtr _obj - freeMem maybeVersion - return () - -data AboutDialogSetVersionMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetVersionMethodInfo a signature where - overloadedMethod _ = aboutDialogSetVersion - --- method AboutDialog::set_website --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_about_dialog_set_website" gtk_about_dialog_set_website :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- website : TBasicType TUTF8 - IO () - - -aboutDialogSetWebsite :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Maybe (T.Text) -- website - -> m () -- result -aboutDialogSetWebsite _obj website = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWebsite <- case website of - Nothing -> return nullPtr - Just jWebsite -> do - jWebsite' <- textToCString jWebsite - return jWebsite' - gtk_about_dialog_set_website _obj' maybeWebsite - touchManagedPtr _obj - freeMem maybeWebsite - return () - -data AboutDialogSetWebsiteMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWebsiteMethodInfo a signature where - overloadedMethod _ = aboutDialogSetWebsite - --- method AboutDialog::set_website_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_label", 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 "gtk_about_dialog_set_website_label" gtk_about_dialog_set_website_label :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CString -> -- website_label : TBasicType TUTF8 - IO () - - -aboutDialogSetWebsiteLabel :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> T.Text -- websiteLabel - -> m () -- result -aboutDialogSetWebsiteLabel _obj websiteLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - websiteLabel' <- textToCString websiteLabel - gtk_about_dialog_set_website_label _obj' websiteLabel' - touchManagedPtr _obj - freeMem websiteLabel' - return () - -data AboutDialogSetWebsiteLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWebsiteLabelMethodInfo a signature where - overloadedMethod _ = aboutDialogSetWebsiteLabel - --- method AboutDialog::set_wrap_license --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_license", 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 "gtk_about_dialog_set_wrap_license" gtk_about_dialog_set_wrap_license :: - Ptr AboutDialog -> -- _obj : TInterface "Gtk" "AboutDialog" - CInt -> -- wrap_license : TBasicType TBoolean - IO () - - -aboutDialogSetWrapLicense :: - (MonadIO m, AboutDialogK a) => - a -- _obj - -> Bool -- wrapLicense - -> m () -- result -aboutDialogSetWrapLicense _obj wrapLicense = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrapLicense' = (fromIntegral . fromEnum) wrapLicense - gtk_about_dialog_set_wrap_license _obj' wrapLicense' - touchManagedPtr _obj - return () - -data AboutDialogSetWrapLicenseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWrapLicenseMethodInfo a signature where - overloadedMethod _ = aboutDialogSetWrapLicense - - diff --git a/GI/Gtk/Objects/AboutDialog.hs-boot b/GI/Gtk/Objects/AboutDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AboutDialog.hs-boot +++ /dev/null @@ -1,60 +0,0 @@ -module GI.Gtk.Objects.AboutDialog 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 AboutDialog = AboutDialog (ForeignPtr AboutDialog) -instance GObject AboutDialog where -class GObject o => AboutDialogK o -instance (GObject o, IsDescendantOf AboutDialog o) => AboutDialogK o -data AboutDialogArtistsPropertyInfo -data AboutDialogAuthorsPropertyInfo -data AboutDialogCommentsPropertyInfo -data AboutDialogCopyrightPropertyInfo -data AboutDialogDocumentersPropertyInfo -data AboutDialogLicensePropertyInfo -data AboutDialogLicenseTypePropertyInfo -data AboutDialogLogoPropertyInfo -data AboutDialogLogoIconNamePropertyInfo -data AboutDialogProgramNamePropertyInfo -data AboutDialogTranslatorCreditsPropertyInfo -data AboutDialogVersionPropertyInfo -data AboutDialogWebsitePropertyInfo -data AboutDialogWebsiteLabelPropertyInfo -data AboutDialogWrapLicensePropertyInfo -data AboutDialogActivateLinkSignalInfo -data AboutDialogAddCreditSectionMethodInfo -data AboutDialogGetArtistsMethodInfo -data AboutDialogGetAuthorsMethodInfo -data AboutDialogGetCommentsMethodInfo -data AboutDialogGetCopyrightMethodInfo -data AboutDialogGetDocumentersMethodInfo -data AboutDialogGetLicenseMethodInfo -data AboutDialogGetLicenseTypeMethodInfo -data AboutDialogGetLogoMethodInfo -data AboutDialogGetLogoIconNameMethodInfo -data AboutDialogGetProgramNameMethodInfo -data AboutDialogGetTranslatorCreditsMethodInfo -data AboutDialogGetVersionMethodInfo -data AboutDialogGetWebsiteMethodInfo -data AboutDialogGetWebsiteLabelMethodInfo -data AboutDialogGetWrapLicenseMethodInfo -data AboutDialogSetArtistsMethodInfo -data AboutDialogSetAuthorsMethodInfo -data AboutDialogSetCommentsMethodInfo -data AboutDialogSetCopyrightMethodInfo -data AboutDialogSetDocumentersMethodInfo -data AboutDialogSetLicenseMethodInfo -data AboutDialogSetLicenseTypeMethodInfo -data AboutDialogSetLogoMethodInfo -data AboutDialogSetLogoIconNameMethodInfo -data AboutDialogSetProgramNameMethodInfo -data AboutDialogSetTranslatorCreditsMethodInfo -data AboutDialogSetVersionMethodInfo -data AboutDialogSetWebsiteMethodInfo -data AboutDialogSetWebsiteLabelMethodInfo -data AboutDialogSetWrapLicenseMethodInfo diff --git a/GI/Gtk/Objects/AccelGroup.hs b/GI/Gtk/Objects/AccelGroup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AccelGroup.hs +++ /dev/null @@ -1,780 +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.Gtk.Objects.AccelGroup - ( - --- * Exported types - AccelGroup(..) , - AccelGroupK , - toAccelGroup , - noAccelGroup , - - - -- * Methods --- ** accelGroupActivate - AccelGroupActivateMethodInfo , - accelGroupActivate , - - --- ** accelGroupConnect - AccelGroupConnectMethodInfo , - accelGroupConnect , - - --- ** accelGroupConnectByPath - AccelGroupConnectByPathMethodInfo , - accelGroupConnectByPath , - - --- ** accelGroupDisconnect - AccelGroupDisconnectMethodInfo , - accelGroupDisconnect , - - --- ** accelGroupDisconnectKey - AccelGroupDisconnectKeyMethodInfo , - accelGroupDisconnectKey , - - --- ** accelGroupFind - AccelGroupFindMethodInfo , - accelGroupFind , - - --- ** accelGroupFromAccelClosure - accelGroupFromAccelClosure , - - --- ** accelGroupGetIsLocked - AccelGroupGetIsLockedMethodInfo , - accelGroupGetIsLocked , - - --- ** accelGroupGetModifierMask - AccelGroupGetModifierMaskMethodInfo , - accelGroupGetModifierMask , - - --- ** accelGroupLock - AccelGroupLockMethodInfo , - accelGroupLock , - - --- ** accelGroupNew - accelGroupNew , - - --- ** accelGroupQuery - AccelGroupQueryMethodInfo , - accelGroupQuery , - - --- ** accelGroupUnlock - AccelGroupUnlockMethodInfo , - accelGroupUnlock , - - - - - -- * Properties --- ** IsLocked - AccelGroupIsLockedPropertyInfo , - accelGroupIsLocked , - getAccelGroupIsLocked , - - --- ** ModifierMask - AccelGroupModifierMaskPropertyInfo , - accelGroupModifierMask , - getAccelGroupModifierMask , - - - - - -- * Signals --- ** AccelActivate - AccelGroupAccelActivateCallback , - AccelGroupAccelActivateCallbackC , - AccelGroupAccelActivateSignalInfo , - accelGroupAccelActivateCallbackWrapper , - accelGroupAccelActivateClosure , - afterAccelGroupAccelActivate , - mkAccelGroupAccelActivateCallback , - noAccelGroupAccelActivateCallback , - onAccelGroupAccelActivate , - - --- ** AccelChanged - AccelGroupAccelChangedCallback , - AccelGroupAccelChangedCallbackC , - AccelGroupAccelChangedSignalInfo , - accelGroupAccelChangedCallbackWrapper , - accelGroupAccelChangedClosure , - afterAccelGroupAccelChanged , - mkAccelGroupAccelChangedCallback , - noAccelGroupAccelChangedCallback , - onAccelGroupAccelChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype AccelGroup = AccelGroup (ForeignPtr AccelGroup) -foreign import ccall "gtk_accel_group_get_type" - c_gtk_accel_group_get_type :: IO GType - -type instance ParentTypes AccelGroup = AccelGroupParentTypes -type AccelGroupParentTypes = '[GObject.Object] - -instance GObject AccelGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_accel_group_get_type - - -class GObject o => AccelGroupK o -instance (GObject o, IsDescendantOf AccelGroup o) => AccelGroupK o - -toAccelGroup :: AccelGroupK o => o -> IO AccelGroup -toAccelGroup = unsafeCastTo AccelGroup - -noAccelGroup :: Maybe AccelGroup -noAccelGroup = Nothing - -type family ResolveAccelGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveAccelGroupMethod "activate" o = AccelGroupActivateMethodInfo - ResolveAccelGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAccelGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAccelGroupMethod "connect" o = AccelGroupConnectMethodInfo - ResolveAccelGroupMethod "connectByPath" o = AccelGroupConnectByPathMethodInfo - ResolveAccelGroupMethod "disconnect" o = AccelGroupDisconnectMethodInfo - ResolveAccelGroupMethod "disconnectKey" o = AccelGroupDisconnectKeyMethodInfo - ResolveAccelGroupMethod "find" o = AccelGroupFindMethodInfo - ResolveAccelGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAccelGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAccelGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAccelGroupMethod "lock" o = AccelGroupLockMethodInfo - ResolveAccelGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAccelGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAccelGroupMethod "query" o = AccelGroupQueryMethodInfo - ResolveAccelGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAccelGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAccelGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAccelGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAccelGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAccelGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAccelGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAccelGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAccelGroupMethod "unlock" o = AccelGroupUnlockMethodInfo - ResolveAccelGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAccelGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAccelGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAccelGroupMethod "getIsLocked" o = AccelGroupGetIsLockedMethodInfo - ResolveAccelGroupMethod "getModifierMask" o = AccelGroupGetModifierMaskMethodInfo - ResolveAccelGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAccelGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAccelGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAccelGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAccelGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccelGroupMethod t AccelGroup, MethodInfo info AccelGroup p) => IsLabelProxy t (AccelGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccelGroupMethod t AccelGroup, MethodInfo info AccelGroup p) => IsLabel t (AccelGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AccelGroup::accel-activate -type AccelGroupAccelActivateCallback = - GObject.Object -> - Word32 -> - [Gdk.ModifierType] -> - IO Bool - -noAccelGroupAccelActivateCallback :: Maybe AccelGroupAccelActivateCallback -noAccelGroupAccelActivateCallback = Nothing - -type AccelGroupAccelActivateCallbackC = - Ptr () -> -- object - Ptr GObject.Object -> - Word32 -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkAccelGroupAccelActivateCallback :: AccelGroupAccelActivateCallbackC -> IO (FunPtr AccelGroupAccelActivateCallbackC) - -accelGroupAccelActivateClosure :: AccelGroupAccelActivateCallback -> IO Closure -accelGroupAccelActivateClosure cb = newCClosure =<< mkAccelGroupAccelActivateCallback wrapped - where wrapped = accelGroupAccelActivateCallbackWrapper cb - -accelGroupAccelActivateCallbackWrapper :: - AccelGroupAccelActivateCallback -> - Ptr () -> - Ptr GObject.Object -> - Word32 -> - CUInt -> - Ptr () -> - IO CInt -accelGroupAccelActivateCallbackWrapper _cb _ acceleratable keyval modifier _ = do - acceleratable' <- (newObject GObject.Object) acceleratable - let modifier' = wordToGFlags modifier - result <- _cb acceleratable' keyval modifier' - let result' = (fromIntegral . fromEnum) result - return result' - -onAccelGroupAccelActivate :: (GObject a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId -onAccelGroupAccelActivate obj cb = liftIO $ connectAccelGroupAccelActivate obj cb SignalConnectBefore -afterAccelGroupAccelActivate :: (GObject a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId -afterAccelGroupAccelActivate obj cb = connectAccelGroupAccelActivate obj cb SignalConnectAfter - -connectAccelGroupAccelActivate :: (GObject a, MonadIO m) => - a -> AccelGroupAccelActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectAccelGroupAccelActivate obj cb after = liftIO $ do - cb' <- mkAccelGroupAccelActivateCallback (accelGroupAccelActivateCallbackWrapper cb) - connectSignalFunPtr obj "accel-activate" cb' after - --- signal AccelGroup::accel-changed -type AccelGroupAccelChangedCallback = - Word32 -> - [Gdk.ModifierType] -> - Closure -> - IO () - -noAccelGroupAccelChangedCallback :: Maybe AccelGroupAccelChangedCallback -noAccelGroupAccelChangedCallback = Nothing - -type AccelGroupAccelChangedCallbackC = - Ptr () -> -- object - Word32 -> - CUInt -> - Ptr Closure -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAccelGroupAccelChangedCallback :: AccelGroupAccelChangedCallbackC -> IO (FunPtr AccelGroupAccelChangedCallbackC) - -accelGroupAccelChangedClosure :: AccelGroupAccelChangedCallback -> IO Closure -accelGroupAccelChangedClosure cb = newCClosure =<< mkAccelGroupAccelChangedCallback wrapped - where wrapped = accelGroupAccelChangedCallbackWrapper cb - -accelGroupAccelChangedCallbackWrapper :: - AccelGroupAccelChangedCallback -> - Ptr () -> - Word32 -> - CUInt -> - Ptr Closure -> - Ptr () -> - IO () -accelGroupAccelChangedCallbackWrapper _cb _ keyval modifier accelClosure _ = do - let modifier' = wordToGFlags modifier - accelClosure' <- (newBoxed Closure) accelClosure - _cb keyval modifier' accelClosure' - -onAccelGroupAccelChanged :: (GObject a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId -onAccelGroupAccelChanged obj cb = liftIO $ connectAccelGroupAccelChanged obj cb SignalConnectBefore -afterAccelGroupAccelChanged :: (GObject a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId -afterAccelGroupAccelChanged obj cb = connectAccelGroupAccelChanged obj cb SignalConnectAfter - -connectAccelGroupAccelChanged :: (GObject a, MonadIO m) => - a -> AccelGroupAccelChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectAccelGroupAccelChanged obj cb after = liftIO $ do - cb' <- mkAccelGroupAccelChangedCallback (accelGroupAccelChangedCallbackWrapper cb) - connectSignalFunPtr obj "accel-changed" cb' after - --- VVV Prop "is-locked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getAccelGroupIsLocked :: (MonadIO m, AccelGroupK o) => o -> m Bool -getAccelGroupIsLocked obj = liftIO $ getObjectPropertyBool obj "is-locked" - -data AccelGroupIsLockedPropertyInfo -instance AttrInfo AccelGroupIsLockedPropertyInfo where - type AttrAllowedOps AccelGroupIsLockedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint AccelGroupIsLockedPropertyInfo = (~) () - type AttrBaseTypeConstraint AccelGroupIsLockedPropertyInfo = AccelGroupK - type AttrGetType AccelGroupIsLockedPropertyInfo = Bool - type AttrLabel AccelGroupIsLockedPropertyInfo = "is-locked" - attrGet _ = getAccelGroupIsLocked - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "modifier-mask" - -- Type: TInterface "Gdk" "ModifierType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getAccelGroupModifierMask :: (MonadIO m, AccelGroupK o) => o -> m [Gdk.ModifierType] -getAccelGroupModifierMask obj = liftIO $ getObjectPropertyFlags obj "modifier-mask" - -data AccelGroupModifierMaskPropertyInfo -instance AttrInfo AccelGroupModifierMaskPropertyInfo where - type AttrAllowedOps AccelGroupModifierMaskPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint AccelGroupModifierMaskPropertyInfo = (~) () - type AttrBaseTypeConstraint AccelGroupModifierMaskPropertyInfo = AccelGroupK - type AttrGetType AccelGroupModifierMaskPropertyInfo = [Gdk.ModifierType] - type AttrLabel AccelGroupModifierMaskPropertyInfo = "modifier-mask" - attrGet _ = getAccelGroupModifierMask - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList AccelGroup = AccelGroupAttributeList -type AccelGroupAttributeList = ('[ '("isLocked", AccelGroupIsLockedPropertyInfo), '("modifierMask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) - -accelGroupIsLocked :: AttrLabelProxy "isLocked" -accelGroupIsLocked = AttrLabelProxy - -accelGroupModifierMask :: AttrLabelProxy "modifierMask" -accelGroupModifierMask = AttrLabelProxy - -data AccelGroupAccelActivateSignalInfo -instance SignalInfo AccelGroupAccelActivateSignalInfo where - type HaskellCallbackType AccelGroupAccelActivateSignalInfo = AccelGroupAccelActivateCallback - connectSignal _ = connectAccelGroupAccelActivate - -data AccelGroupAccelChangedSignalInfo -instance SignalInfo AccelGroupAccelChangedSignalInfo where - type HaskellCallbackType AccelGroupAccelChangedSignalInfo = AccelGroupAccelChangedCallback - connectSignal _ = connectAccelGroupAccelChanged - -type instance SignalList AccelGroup = AccelGroupSignalList -type AccelGroupSignalList = ('[ '("accelActivate", AccelGroupAccelActivateSignalInfo), '("accelChanged", AccelGroupAccelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AccelGroup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_new" gtk_accel_group_new :: - IO (Ptr AccelGroup) - - -accelGroupNew :: - (MonadIO m) => - m AccelGroup -- result -accelGroupNew = liftIO $ do - result <- gtk_accel_group_new - checkUnexpectedReturnNULL "gtk_accel_group_new" result - result' <- (wrapObject AccelGroup) result - return result' - --- method AccelGroup::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_group_activate" gtk_accel_group_activate :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_quark : TBasicType TUInt32 - Ptr GObject.Object -> -- acceleratable : TInterface "GObject" "Object" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupActivate :: - (MonadIO m, AccelGroupK a, GObject.ObjectK b) => - a -- _obj - -> Word32 -- accelQuark - -> b -- acceleratable - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m Bool -- result -accelGroupActivate _obj accelQuark acceleratable accelKey accelMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let acceleratable' = unsafeManagedPtrCastPtr acceleratable - let accelMods' = gflagsToWord accelMods - result <- gtk_accel_group_activate _obj' accelQuark acceleratable' accelKey accelMods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr acceleratable - return result' - -data AccelGroupActivateMethodInfo -instance (signature ~ (Word32 -> b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, AccelGroupK a, GObject.ObjectK b) => MethodInfo AccelGroupActivateMethodInfo a signature where - overloadedMethod _ = accelGroupActivate - --- method AccelGroup::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", 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 "gtk_accel_group_connect" gtk_accel_group_connect :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" - Ptr Closure -> -- closure : TInterface "GObject" "Closure" - IO () - - -accelGroupConnect :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> [AccelFlags] -- accelFlags - -> Closure -- closure - -> m () -- result -accelGroupConnect _obj accelKey accelMods accelFlags closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelMods' = gflagsToWord accelMods - let accelFlags' = gflagsToWord accelFlags - let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect _obj' accelKey accelMods' accelFlags' closure' - touchManagedPtr _obj - touchManagedPtr closure - return () - -data AccelGroupConnectMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> Closure -> m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupConnectMethodInfo a signature where - overloadedMethod _ = accelGroupConnect - --- method AccelGroup::connect_by_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", 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 "gtk_accel_group_connect_by_path" gtk_accel_group_connect_by_path :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - CString -> -- accel_path : TBasicType TUTF8 - Ptr Closure -> -- closure : TInterface "GObject" "Closure" - IO () - - -accelGroupConnectByPath :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> T.Text -- accelPath - -> Closure -- closure - -> m () -- result -accelGroupConnectByPath _obj accelPath closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelPath' <- textToCString accelPath - let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect_by_path _obj' accelPath' closure' - touchManagedPtr _obj - touchManagedPtr closure - freeMem accelPath' - return () - -data AccelGroupConnectByPathMethodInfo -instance (signature ~ (T.Text -> Closure -> m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupConnectByPathMethodInfo a signature where - overloadedMethod _ = accelGroupConnectByPath - --- method AccelGroup::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_disconnect" gtk_accel_group_disconnect :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Ptr Closure -> -- closure : TInterface "GObject" "Closure" - IO CInt - - -accelGroupDisconnect :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> Maybe (Closure) -- closure - -> m Bool -- result -accelGroupDisconnect _obj closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeClosure <- case closure of - Nothing -> return nullPtr - Just jClosure -> do - let jClosure' = unsafeManagedPtrGetPtr jClosure - return jClosure' - result <- gtk_accel_group_disconnect _obj' maybeClosure - let result' = (/= 0) result - touchManagedPtr _obj - whenJust closure touchManagedPtr - return result' - -data AccelGroupDisconnectMethodInfo -instance (signature ~ (Maybe (Closure) -> m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupDisconnectMethodInfo a signature where - overloadedMethod _ = accelGroupDisconnect - --- method AccelGroup::disconnect_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_group_disconnect_key" gtk_accel_group_disconnect_key :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupDisconnectKey :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m Bool -- result -accelGroupDisconnectKey _obj accelKey accelMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelMods' = gflagsToWord accelMods - result <- gtk_accel_group_disconnect_key _obj' accelKey accelMods' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AccelGroupDisconnectKeyMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupDisconnectKeyMethodInfo a signature where - overloadedMethod _ = accelGroupDisconnectKey - --- method AccelGroup::find --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 : Just (TInterface "Gtk" "AccelKey") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_find" gtk_accel_group_find :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - FunPtr AccelGroupFindFuncC -> -- find_func : TInterface "Gtk" "AccelGroupFindFunc" - Ptr () -> -- data : TBasicType TPtr - IO (Ptr AccelKey) - - -accelGroupFind :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> AccelGroupFindFunc -- findFunc - -> m AccelKey -- result -accelGroupFind _obj findFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - findFunc' <- mkAccelGroupFindFunc (accelGroupFindFuncWrapper Nothing findFunc) - let data_ = nullPtr - result <- gtk_accel_group_find _obj' findFunc' data_ - checkUnexpectedReturnNULL "gtk_accel_group_find" result - result' <- (newPtr AccelKey) result - safeFreeFunPtr $ castFunPtrToPtr findFunc' - touchManagedPtr _obj - return result' - -data AccelGroupFindMethodInfo -instance (signature ~ (AccelGroupFindFunc -> m AccelKey), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupFindMethodInfo a signature where - overloadedMethod _ = accelGroupFind - --- method AccelGroup::get_is_locked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_accel_group_get_is_locked" gtk_accel_group_get_is_locked :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - IO CInt - - -accelGroupGetIsLocked :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> m Bool -- result -accelGroupGetIsLocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_group_get_is_locked _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AccelGroupGetIsLockedMethodInfo -instance (signature ~ (m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupGetIsLockedMethodInfo a signature where - overloadedMethod _ = accelGroupGetIsLocked - --- method AccelGroup::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ModifierType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_get_modifier_mask" gtk_accel_group_get_modifier_mask :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - IO CUInt - - -accelGroupGetModifierMask :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> m [Gdk.ModifierType] -- result -accelGroupGetModifierMask _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_group_get_modifier_mask _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data AccelGroupGetModifierMaskMethodInfo -instance (signature ~ (m [Gdk.ModifierType]), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupGetModifierMaskMethodInfo a signature where - overloadedMethod _ = accelGroupGetModifierMask - --- method AccelGroup::lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_accel_group_lock" gtk_accel_group_lock :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - IO () - - -accelGroupLock :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> m () -- result -accelGroupLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accel_group_lock _obj' - touchManagedPtr _obj - return () - -data AccelGroupLockMethodInfo -instance (signature ~ (m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupLockMethodInfo a signature where - overloadedMethod _ = accelGroupLock - --- method AccelGroup::query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_query" gtk_accel_group_query :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - Ptr Word32 -> -- n_entries : TBasicType TUInt - IO (Ptr AccelGroupEntry) - - -accelGroupQuery :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m [AccelGroupEntry] -- result -accelGroupQuery _obj accelKey accelMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelMods' = gflagsToWord accelMods - nEntries <- allocMem :: IO (Ptr Word32) - result <- gtk_accel_group_query _obj' accelKey accelMods' nEntries - nEntries' <- peek nEntries - checkUnexpectedReturnNULL "gtk_accel_group_query" result - result' <- (unpackBlockArrayWithLength 32 nEntries') result - result'' <- mapM (newPtr AccelGroupEntry) result' - touchManagedPtr _obj - freeMem nEntries - return result'' - -data AccelGroupQueryMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m [AccelGroupEntry]), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupQueryMethodInfo a signature where - overloadedMethod _ = accelGroupQuery - --- method AccelGroup::unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_accel_group_unlock" gtk_accel_group_unlock :: - Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - IO () - - -accelGroupUnlock :: - (MonadIO m, AccelGroupK a) => - a -- _obj - -> m () -- result -accelGroupUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accel_group_unlock _obj' - touchManagedPtr _obj - return () - -data AccelGroupUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupUnlockMethodInfo a signature where - overloadedMethod _ = accelGroupUnlock - --- method AccelGroup::from_accel_closure --- method type : MemberFunction --- Args : [Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_group_from_accel_closure" gtk_accel_group_from_accel_closure :: - Ptr Closure -> -- closure : TInterface "GObject" "Closure" - IO (Ptr AccelGroup) - - -accelGroupFromAccelClosure :: - (MonadIO m) => - Closure -- closure - -> m AccelGroup -- result -accelGroupFromAccelClosure closure = liftIO $ do - let closure' = unsafeManagedPtrGetPtr closure - result <- gtk_accel_group_from_accel_closure closure' - checkUnexpectedReturnNULL "gtk_accel_group_from_accel_closure" result - result' <- (newObject AccelGroup) result - touchManagedPtr closure - return result' - - diff --git a/GI/Gtk/Objects/AccelGroup.hs-boot b/GI/Gtk/Objects/AccelGroup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AccelGroup.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.AccelGroup 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 AccelGroup = AccelGroup (ForeignPtr AccelGroup) -instance GObject AccelGroup where -class GObject o => AccelGroupK o -instance (GObject o, IsDescendantOf AccelGroup o) => AccelGroupK o -data AccelGroupIsLockedPropertyInfo -data AccelGroupModifierMaskPropertyInfo -data AccelGroupAccelActivateSignalInfo -data AccelGroupAccelChangedSignalInfo -data AccelGroupActivateMethodInfo -data AccelGroupConnectMethodInfo -data AccelGroupConnectByPathMethodInfo -data AccelGroupDisconnectMethodInfo -data AccelGroupDisconnectKeyMethodInfo -data AccelGroupFindMethodInfo -data AccelGroupGetIsLockedMethodInfo -data AccelGroupGetModifierMaskMethodInfo -data AccelGroupLockMethodInfo -data AccelGroupQueryMethodInfo -data AccelGroupUnlockMethodInfo diff --git a/GI/Gtk/Objects/AccelLabel.hs b/GI/Gtk/Objects/AccelLabel.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AccelLabel.hs +++ /dev/null @@ -1,780 +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.Gtk.Objects.AccelLabel - ( - --- * Exported types - AccelLabel(..) , - AccelLabelK , - toAccelLabel , - noAccelLabel , - - - -- * Methods --- ** accelLabelGetAccel - AccelLabelGetAccelMethodInfo , - accelLabelGetAccel , - - --- ** accelLabelGetAccelWidget - AccelLabelGetAccelWidgetMethodInfo , - accelLabelGetAccelWidget , - - --- ** accelLabelGetAccelWidth - AccelLabelGetAccelWidthMethodInfo , - accelLabelGetAccelWidth , - - --- ** accelLabelNew - accelLabelNew , - - --- ** accelLabelRefetch - AccelLabelRefetchMethodInfo , - accelLabelRefetch , - - --- ** accelLabelSetAccel - AccelLabelSetAccelMethodInfo , - accelLabelSetAccel , - - --- ** accelLabelSetAccelClosure - AccelLabelSetAccelClosureMethodInfo , - accelLabelSetAccelClosure , - - --- ** accelLabelSetAccelWidget - AccelLabelSetAccelWidgetMethodInfo , - accelLabelSetAccelWidget , - - - - - -- * Properties --- ** AccelClosure - AccelLabelAccelClosurePropertyInfo , - accelLabelAccelClosure , - constructAccelLabelAccelClosure , - getAccelLabelAccelClosure , - setAccelLabelAccelClosure , - - --- ** AccelWidget - AccelLabelAccelWidgetPropertyInfo , - accelLabelAccelWidget , - constructAccelLabelAccelWidget , - getAccelLabelAccelWidget , - setAccelLabelAccelWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype AccelLabel = AccelLabel (ForeignPtr AccelLabel) -foreign import ccall "gtk_accel_label_get_type" - c_gtk_accel_label_get_type :: IO GType - -type instance ParentTypes AccelLabel = AccelLabelParentTypes -type AccelLabelParentTypes = '[Label, Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject AccelLabel where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_accel_label_get_type - - -class GObject o => AccelLabelK o -instance (GObject o, IsDescendantOf AccelLabel o) => AccelLabelK o - -toAccelLabel :: AccelLabelK o => o -> IO AccelLabel -toAccelLabel = unsafeCastTo AccelLabel - -noAccelLabel :: Maybe AccelLabel -noAccelLabel = Nothing - -type family ResolveAccelLabelMethod (t :: Symbol) (o :: *) :: * where - ResolveAccelLabelMethod "activate" o = WidgetActivateMethodInfo - ResolveAccelLabelMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAccelLabelMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAccelLabelMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAccelLabelMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAccelLabelMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAccelLabelMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAccelLabelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAccelLabelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAccelLabelMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAccelLabelMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAccelLabelMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveAccelLabelMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAccelLabelMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAccelLabelMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAccelLabelMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAccelLabelMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAccelLabelMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAccelLabelMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAccelLabelMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAccelLabelMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAccelLabelMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAccelLabelMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAccelLabelMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAccelLabelMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAccelLabelMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAccelLabelMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAccelLabelMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAccelLabelMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAccelLabelMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAccelLabelMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAccelLabelMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAccelLabelMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAccelLabelMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAccelLabelMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAccelLabelMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAccelLabelMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAccelLabelMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAccelLabelMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAccelLabelMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAccelLabelMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAccelLabelMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAccelLabelMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAccelLabelMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAccelLabelMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAccelLabelMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAccelLabelMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAccelLabelMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAccelLabelMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAccelLabelMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAccelLabelMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAccelLabelMethod "draw" o = WidgetDrawMethodInfo - ResolveAccelLabelMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAccelLabelMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAccelLabelMethod "event" o = WidgetEventMethodInfo - ResolveAccelLabelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAccelLabelMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAccelLabelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAccelLabelMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAccelLabelMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAccelLabelMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAccelLabelMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAccelLabelMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAccelLabelMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAccelLabelMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAccelLabelMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAccelLabelMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAccelLabelMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAccelLabelMethod "hide" o = WidgetHideMethodInfo - ResolveAccelLabelMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAccelLabelMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAccelLabelMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAccelLabelMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAccelLabelMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAccelLabelMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAccelLabelMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAccelLabelMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAccelLabelMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAccelLabelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAccelLabelMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAccelLabelMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAccelLabelMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAccelLabelMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAccelLabelMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAccelLabelMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAccelLabelMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAccelLabelMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAccelLabelMethod "map" o = WidgetMapMethodInfo - ResolveAccelLabelMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAccelLabelMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAccelLabelMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAccelLabelMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAccelLabelMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAccelLabelMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAccelLabelMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAccelLabelMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAccelLabelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAccelLabelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAccelLabelMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAccelLabelMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAccelLabelMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAccelLabelMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAccelLabelMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAccelLabelMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAccelLabelMethod "path" o = WidgetPathMethodInfo - ResolveAccelLabelMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAccelLabelMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAccelLabelMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAccelLabelMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAccelLabelMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAccelLabelMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAccelLabelMethod "realize" o = WidgetRealizeMethodInfo - ResolveAccelLabelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAccelLabelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAccelLabelMethod "refetch" o = AccelLabelRefetchMethodInfo - ResolveAccelLabelMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAccelLabelMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAccelLabelMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAccelLabelMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAccelLabelMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAccelLabelMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAccelLabelMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAccelLabelMethod "reparent" o = WidgetReparentMethodInfo - ResolveAccelLabelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAccelLabelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAccelLabelMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAccelLabelMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAccelLabelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAccelLabelMethod "selectRegion" o = LabelSelectRegionMethodInfo - ResolveAccelLabelMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAccelLabelMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAccelLabelMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAccelLabelMethod "show" o = WidgetShowMethodInfo - ResolveAccelLabelMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAccelLabelMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAccelLabelMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAccelLabelMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAccelLabelMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAccelLabelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAccelLabelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAccelLabelMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAccelLabelMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAccelLabelMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAccelLabelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAccelLabelMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAccelLabelMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAccelLabelMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAccelLabelMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAccelLabelMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAccelLabelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAccelLabelMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAccelLabelMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAccelLabelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAccelLabelMethod "getAccel" o = AccelLabelGetAccelMethodInfo - ResolveAccelLabelMethod "getAccelWidget" o = AccelLabelGetAccelWidgetMethodInfo - ResolveAccelLabelMethod "getAccelWidth" o = AccelLabelGetAccelWidthMethodInfo - ResolveAccelLabelMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAccelLabelMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAccelLabelMethod "getAlignment" o = MiscGetAlignmentMethodInfo - ResolveAccelLabelMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAccelLabelMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAccelLabelMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAccelLabelMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAccelLabelMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAccelLabelMethod "getAngle" o = LabelGetAngleMethodInfo - ResolveAccelLabelMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAccelLabelMethod "getAttributes" o = LabelGetAttributesMethodInfo - ResolveAccelLabelMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAccelLabelMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAccelLabelMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAccelLabelMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAccelLabelMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAccelLabelMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAccelLabelMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAccelLabelMethod "getCurrentUri" o = LabelGetCurrentUriMethodInfo - ResolveAccelLabelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAccelLabelMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAccelLabelMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAccelLabelMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAccelLabelMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAccelLabelMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAccelLabelMethod "getEllipsize" o = LabelGetEllipsizeMethodInfo - ResolveAccelLabelMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAccelLabelMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAccelLabelMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAccelLabelMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAccelLabelMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAccelLabelMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAccelLabelMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAccelLabelMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAccelLabelMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAccelLabelMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAccelLabelMethod "getJustify" o = LabelGetJustifyMethodInfo - ResolveAccelLabelMethod "getLabel" o = LabelGetLabelMethodInfo - ResolveAccelLabelMethod "getLayout" o = LabelGetLayoutMethodInfo - ResolveAccelLabelMethod "getLayoutOffsets" o = LabelGetLayoutOffsetsMethodInfo - ResolveAccelLabelMethod "getLineWrap" o = LabelGetLineWrapMethodInfo - ResolveAccelLabelMethod "getLineWrapMode" o = LabelGetLineWrapModeMethodInfo - ResolveAccelLabelMethod "getLines" o = LabelGetLinesMethodInfo - ResolveAccelLabelMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAccelLabelMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAccelLabelMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAccelLabelMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAccelLabelMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAccelLabelMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAccelLabelMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAccelLabelMethod "getMaxWidthChars" o = LabelGetMaxWidthCharsMethodInfo - ResolveAccelLabelMethod "getMnemonicKeyval" o = LabelGetMnemonicKeyvalMethodInfo - ResolveAccelLabelMethod "getMnemonicWidget" o = LabelGetMnemonicWidgetMethodInfo - ResolveAccelLabelMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAccelLabelMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAccelLabelMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAccelLabelMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAccelLabelMethod "getPadding" o = MiscGetPaddingMethodInfo - ResolveAccelLabelMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAccelLabelMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAccelLabelMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAccelLabelMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAccelLabelMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAccelLabelMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAccelLabelMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAccelLabelMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAccelLabelMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAccelLabelMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAccelLabelMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAccelLabelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAccelLabelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAccelLabelMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAccelLabelMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAccelLabelMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAccelLabelMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAccelLabelMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAccelLabelMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAccelLabelMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAccelLabelMethod "getSelectable" o = LabelGetSelectableMethodInfo - ResolveAccelLabelMethod "getSelectionBounds" o = LabelGetSelectionBoundsMethodInfo - ResolveAccelLabelMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAccelLabelMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAccelLabelMethod "getSingleLineMode" o = LabelGetSingleLineModeMethodInfo - ResolveAccelLabelMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAccelLabelMethod "getState" o = WidgetGetStateMethodInfo - ResolveAccelLabelMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAccelLabelMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAccelLabelMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAccelLabelMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAccelLabelMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAccelLabelMethod "getText" o = LabelGetTextMethodInfo - ResolveAccelLabelMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAccelLabelMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAccelLabelMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAccelLabelMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAccelLabelMethod "getTrackVisitedLinks" o = LabelGetTrackVisitedLinksMethodInfo - ResolveAccelLabelMethod "getUseMarkup" o = LabelGetUseMarkupMethodInfo - ResolveAccelLabelMethod "getUseUnderline" o = LabelGetUseUnderlineMethodInfo - ResolveAccelLabelMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAccelLabelMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAccelLabelMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAccelLabelMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAccelLabelMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAccelLabelMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAccelLabelMethod "getWidthChars" o = LabelGetWidthCharsMethodInfo - ResolveAccelLabelMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAccelLabelMethod "getXalign" o = LabelGetXalignMethodInfo - ResolveAccelLabelMethod "getYalign" o = LabelGetYalignMethodInfo - ResolveAccelLabelMethod "setAccel" o = AccelLabelSetAccelMethodInfo - ResolveAccelLabelMethod "setAccelClosure" o = AccelLabelSetAccelClosureMethodInfo - ResolveAccelLabelMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAccelLabelMethod "setAccelWidget" o = AccelLabelSetAccelWidgetMethodInfo - ResolveAccelLabelMethod "setAlignment" o = MiscSetAlignmentMethodInfo - ResolveAccelLabelMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAccelLabelMethod "setAngle" o = LabelSetAngleMethodInfo - ResolveAccelLabelMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAccelLabelMethod "setAttributes" o = LabelSetAttributesMethodInfo - ResolveAccelLabelMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAccelLabelMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAccelLabelMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAccelLabelMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAccelLabelMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAccelLabelMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAccelLabelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAccelLabelMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAccelLabelMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAccelLabelMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAccelLabelMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAccelLabelMethod "setEllipsize" o = LabelSetEllipsizeMethodInfo - ResolveAccelLabelMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAccelLabelMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAccelLabelMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAccelLabelMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAccelLabelMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAccelLabelMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAccelLabelMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAccelLabelMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAccelLabelMethod "setJustify" o = LabelSetJustifyMethodInfo - ResolveAccelLabelMethod "setLabel" o = LabelSetLabelMethodInfo - ResolveAccelLabelMethod "setLineWrap" o = LabelSetLineWrapMethodInfo - ResolveAccelLabelMethod "setLineWrapMode" o = LabelSetLineWrapModeMethodInfo - ResolveAccelLabelMethod "setLines" o = LabelSetLinesMethodInfo - ResolveAccelLabelMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAccelLabelMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAccelLabelMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAccelLabelMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAccelLabelMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAccelLabelMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAccelLabelMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAccelLabelMethod "setMarkup" o = LabelSetMarkupMethodInfo - ResolveAccelLabelMethod "setMarkupWithMnemonic" o = LabelSetMarkupWithMnemonicMethodInfo - ResolveAccelLabelMethod "setMaxWidthChars" o = LabelSetMaxWidthCharsMethodInfo - ResolveAccelLabelMethod "setMnemonicWidget" o = LabelSetMnemonicWidgetMethodInfo - ResolveAccelLabelMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAccelLabelMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAccelLabelMethod "setPadding" o = MiscSetPaddingMethodInfo - ResolveAccelLabelMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAccelLabelMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAccelLabelMethod "setPattern" o = LabelSetPatternMethodInfo - ResolveAccelLabelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAccelLabelMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAccelLabelMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAccelLabelMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAccelLabelMethod "setSelectable" o = LabelSetSelectableMethodInfo - ResolveAccelLabelMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAccelLabelMethod "setSingleLineMode" o = LabelSetSingleLineModeMethodInfo - ResolveAccelLabelMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAccelLabelMethod "setState" o = WidgetSetStateMethodInfo - ResolveAccelLabelMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAccelLabelMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAccelLabelMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAccelLabelMethod "setText" o = LabelSetTextMethodInfo - ResolveAccelLabelMethod "setTextWithMnemonic" o = LabelSetTextWithMnemonicMethodInfo - ResolveAccelLabelMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAccelLabelMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAccelLabelMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAccelLabelMethod "setTrackVisitedLinks" o = LabelSetTrackVisitedLinksMethodInfo - ResolveAccelLabelMethod "setUseMarkup" o = LabelSetUseMarkupMethodInfo - ResolveAccelLabelMethod "setUseUnderline" o = LabelSetUseUnderlineMethodInfo - ResolveAccelLabelMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAccelLabelMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAccelLabelMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAccelLabelMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAccelLabelMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAccelLabelMethod "setWidthChars" o = LabelSetWidthCharsMethodInfo - ResolveAccelLabelMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAccelLabelMethod "setXalign" o = LabelSetXalignMethodInfo - ResolveAccelLabelMethod "setYalign" o = LabelSetYalignMethodInfo - ResolveAccelLabelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccelLabelMethod t AccelLabel, MethodInfo info AccelLabel p) => IsLabelProxy t (AccelLabel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccelLabelMethod t AccelLabel, MethodInfo info AccelLabel p) => IsLabel t (AccelLabel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} --- VVV Prop "accel-closure" - -- Type: TInterface "GObject" "Closure" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m (Maybe Closure) -getAccelLabelAccelClosure obj = liftIO $ getObjectPropertyBoxed obj "accel-closure" Closure - -setAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> Closure -> m () -setAccelLabelAccelClosure obj val = liftIO $ setObjectPropertyBoxed obj "accel-closure" (Just val) - -constructAccelLabelAccelClosure :: Closure -> IO ([Char], GValue) -constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" (Just val) - -data AccelLabelAccelClosurePropertyInfo -instance AttrInfo AccelLabelAccelClosurePropertyInfo where - type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure - type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK - type AttrGetType AccelLabelAccelClosurePropertyInfo = (Maybe Closure) - type AttrLabel AccelLabelAccelClosurePropertyInfo = "accel-closure" - attrGet _ = getAccelLabelAccelClosure - attrSet _ = setAccelLabelAccelClosure - attrConstruct _ = constructAccelLabelAccelClosure - attrClear _ = undefined - --- VVV Prop "accel-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o) => o -> m Widget -getAccelLabelAccelWidget obj = liftIO $ checkUnexpectedNothing "getAccelLabelAccelWidget" $ getObjectPropertyObject obj "accel-widget" Widget - -setAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o, WidgetK a) => o -> a -> m () -setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" (Just val) - -constructAccelLabelAccelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" (Just val) - -data AccelLabelAccelWidgetPropertyInfo -instance AttrInfo AccelLabelAccelWidgetPropertyInfo where - type AttrAllowedOps AccelLabelAccelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AccelLabelAccelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint AccelLabelAccelWidgetPropertyInfo = AccelLabelK - type AttrGetType AccelLabelAccelWidgetPropertyInfo = Widget - type AttrLabel AccelLabelAccelWidgetPropertyInfo = "accel-widget" - attrGet _ = getAccelLabelAccelWidget - attrSet _ = setAccelLabelAccelWidget - attrConstruct _ = constructAccelLabelAccelWidget - attrClear _ = undefined - -type instance AttributeList AccelLabel = AccelLabelAttributeList -type AccelLabelAttributeList = ('[ '("accelClosure", AccelLabelAccelClosurePropertyInfo), '("accelWidget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -accelLabelAccelClosure :: AttrLabelProxy "accelClosure" -accelLabelAccelClosure = AttrLabelProxy - -accelLabelAccelWidget :: AttrLabelProxy "accelWidget" -accelLabelAccelWidget = AttrLabelProxy - -type instance SignalList AccelLabel = AccelLabelSignalList -type AccelLabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AccelLabel::new --- method type : Constructor --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelLabel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_label_new" gtk_accel_label_new :: - CString -> -- string : TBasicType TUTF8 - IO (Ptr AccelLabel) - - -accelLabelNew :: - (MonadIO m) => - T.Text -- string - -> m AccelLabel -- result -accelLabelNew string = liftIO $ do - string' <- textToCString string - result <- gtk_accel_label_new string' - checkUnexpectedReturnNULL "gtk_accel_label_new" result - result' <- (newObject AccelLabel) result - freeMem string' - return result' - --- method AccelLabel::get_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_label_get_accel" gtk_accel_label_get_accel :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Ptr Word32 -> -- accelerator_key : TBasicType TUInt - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelLabelGetAccel :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> m (Word32,[Gdk.ModifierType]) -- result -accelLabelGetAccel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - acceleratorKey <- allocMem :: IO (Ptr Word32) - acceleratorMods <- allocMem :: IO (Ptr CUInt) - gtk_accel_label_get_accel _obj' acceleratorKey acceleratorMods - acceleratorKey' <- peek acceleratorKey - acceleratorMods' <- peek acceleratorMods - let acceleratorMods'' = wordToGFlags acceleratorMods' - touchManagedPtr _obj - freeMem acceleratorKey - freeMem acceleratorMods - return (acceleratorKey', acceleratorMods'') - -data AccelLabelGetAccelMethodInfo -instance (signature ~ (m (Word32,[Gdk.ModifierType])), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelMethodInfo a signature where - overloadedMethod _ = accelLabelGetAccel - --- method AccelLabel::get_accel_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_label_get_accel_widget" gtk_accel_label_get_accel_widget :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - IO (Ptr Widget) - - -accelLabelGetAccelWidget :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> m Widget -- result -accelLabelGetAccelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_label_get_accel_widget _obj' - checkUnexpectedReturnNULL "gtk_accel_label_get_accel_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data AccelLabelGetAccelWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelWidgetMethodInfo a signature where - overloadedMethod _ = accelLabelGetAccelWidget - --- method AccelLabel::get_accel_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_label_get_accel_width" gtk_accel_label_get_accel_width :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - IO Word32 - - -accelLabelGetAccelWidth :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> m Word32 -- result -accelLabelGetAccelWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_label_get_accel_width _obj' - touchManagedPtr _obj - return result - -data AccelLabelGetAccelWidthMethodInfo -instance (signature ~ (m Word32), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelWidthMethodInfo a signature where - overloadedMethod _ = accelLabelGetAccelWidth - --- method AccelLabel::refetch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", 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 "gtk_accel_label_refetch" gtk_accel_label_refetch :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - IO CInt - - -accelLabelRefetch :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> m Bool -- result -accelLabelRefetch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_label_refetch _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AccelLabelRefetchMethodInfo -instance (signature ~ (m Bool), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelRefetchMethodInfo a signature where - overloadedMethod _ = accelLabelRefetch - --- method AccelLabel::set_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_label_set_accel" gtk_accel_label_set_accel :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Word32 -> -- accelerator_key : TBasicType TUInt - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelLabelSetAccel :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> Word32 -- acceleratorKey - -> [Gdk.ModifierType] -- acceleratorMods - -> m () -- result -accelLabelSetAccel _obj acceleratorKey acceleratorMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let acceleratorMods' = gflagsToWord acceleratorMods - gtk_accel_label_set_accel _obj' acceleratorKey acceleratorMods' - touchManagedPtr _obj - return () - -data AccelLabelSetAccelMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m ()), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelSetAccelMethodInfo a signature where - overloadedMethod _ = accelLabelSetAccel - --- method AccelLabel::set_accel_closure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_closure", argType = TInterface "GObject" "Closure", 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 "gtk_accel_label_set_accel_closure" gtk_accel_label_set_accel_closure :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Ptr Closure -> -- accel_closure : TInterface "GObject" "Closure" - IO () - - -accelLabelSetAccelClosure :: - (MonadIO m, AccelLabelK a) => - a -- _obj - -> Closure -- accelClosure - -> m () -- result -accelLabelSetAccelClosure _obj accelClosure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelClosure' = unsafeManagedPtrGetPtr accelClosure - gtk_accel_label_set_accel_closure _obj' accelClosure' - touchManagedPtr _obj - touchManagedPtr accelClosure - return () - -data AccelLabelSetAccelClosureMethodInfo -instance (signature ~ (Closure -> m ()), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelSetAccelClosureMethodInfo a signature where - overloadedMethod _ = accelLabelSetAccelClosure - --- method AccelLabel::set_accel_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_widget", argType = TInterface "Gtk" "Widget", 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 "gtk_accel_label_set_accel_widget" gtk_accel_label_set_accel_widget :: - Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Ptr Widget -> -- accel_widget : TInterface "Gtk" "Widget" - IO () - - -accelLabelSetAccelWidget :: - (MonadIO m, AccelLabelK a, WidgetK b) => - a -- _obj - -> b -- accelWidget - -> m () -- result -accelLabelSetAccelWidget _obj accelWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelWidget' = unsafeManagedPtrCastPtr accelWidget - gtk_accel_label_set_accel_widget _obj' accelWidget' - touchManagedPtr _obj - touchManagedPtr accelWidget - return () - -data AccelLabelSetAccelWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AccelLabelK a, WidgetK b) => MethodInfo AccelLabelSetAccelWidgetMethodInfo a signature where - overloadedMethod _ = accelLabelSetAccelWidget - - diff --git a/GI/Gtk/Objects/AccelLabel.hs-boot b/GI/Gtk/Objects/AccelLabel.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AccelLabel.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.AccelLabel 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 AccelLabel = AccelLabel (ForeignPtr AccelLabel) -instance GObject AccelLabel where -class GObject o => AccelLabelK o -instance (GObject o, IsDescendantOf AccelLabel o) => AccelLabelK o -data AccelLabelAccelClosurePropertyInfo -data AccelLabelAccelWidgetPropertyInfo -data AccelLabelGetAccelMethodInfo -data AccelLabelGetAccelWidgetMethodInfo -data AccelLabelGetAccelWidthMethodInfo -data AccelLabelRefetchMethodInfo -data AccelLabelSetAccelMethodInfo -data AccelLabelSetAccelClosureMethodInfo -data AccelLabelSetAccelWidgetMethodInfo diff --git a/GI/Gtk/Objects/AccelMap.hs b/GI/Gtk/Objects/AccelMap.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AccelMap.hs +++ /dev/null @@ -1,560 +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.Gtk.Objects.AccelMap - ( - --- * Exported types - AccelMap(..) , - AccelMapK , - toAccelMap , - noAccelMap , - - - -- * Methods --- ** accelMapAddEntry - accelMapAddEntry , - - --- ** accelMapAddFilter - accelMapAddFilter , - - --- ** accelMapChangeEntry - accelMapChangeEntry , - - --- ** accelMapForeach - accelMapForeach , - - --- ** accelMapForeachUnfiltered - accelMapForeachUnfiltered , - - --- ** accelMapGet - accelMapGet , - - --- ** accelMapLoad - accelMapLoad , - - --- ** accelMapLoadFd - accelMapLoadFd , - - --- ** accelMapLoadScanner - accelMapLoadScanner , - - --- ** accelMapLockPath - accelMapLockPath , - - --- ** accelMapLookupEntry - accelMapLookupEntry , - - --- ** accelMapSave - accelMapSave , - - --- ** accelMapSaveFd - accelMapSaveFd , - - --- ** accelMapUnlockPath - accelMapUnlockPath , - - - - - -- * Signals --- ** Changed - AccelMapChangedCallback , - AccelMapChangedCallbackC , - AccelMapChangedSignalInfo , - accelMapChangedCallbackWrapper , - accelMapChangedClosure , - afterAccelMapChanged , - mkAccelMapChangedCallback , - noAccelMapChangedCallback , - onAccelMapChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype AccelMap = AccelMap (ForeignPtr AccelMap) -foreign import ccall "gtk_accel_map_get_type" - c_gtk_accel_map_get_type :: IO GType - -type instance ParentTypes AccelMap = AccelMapParentTypes -type AccelMapParentTypes = '[GObject.Object] - -instance GObject AccelMap where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_accel_map_get_type - - -class GObject o => AccelMapK o -instance (GObject o, IsDescendantOf AccelMap o) => AccelMapK o - -toAccelMap :: AccelMapK o => o -> IO AccelMap -toAccelMap = unsafeCastTo AccelMap - -noAccelMap :: Maybe AccelMap -noAccelMap = Nothing - -type family ResolveAccelMapMethod (t :: Symbol) (o :: *) :: * where - ResolveAccelMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAccelMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAccelMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAccelMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAccelMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAccelMapMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAccelMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAccelMapMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAccelMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAccelMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAccelMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAccelMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAccelMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAccelMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAccelMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAccelMapMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAccelMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAccelMapMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAccelMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAccelMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAccelMapMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAccelMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAccelMapMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccelMapMethod t AccelMap, MethodInfo info AccelMap p) => IsLabelProxy t (AccelMap -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccelMapMethod t AccelMap, MethodInfo info AccelMap p) => IsLabel t (AccelMap -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AccelMap::changed -type AccelMapChangedCallback = - T.Text -> - Word32 -> - [Gdk.ModifierType] -> - IO () - -noAccelMapChangedCallback :: Maybe AccelMapChangedCallback -noAccelMapChangedCallback = Nothing - -type AccelMapChangedCallbackC = - Ptr () -> -- object - CString -> - Word32 -> - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAccelMapChangedCallback :: AccelMapChangedCallbackC -> IO (FunPtr AccelMapChangedCallbackC) - -accelMapChangedClosure :: AccelMapChangedCallback -> IO Closure -accelMapChangedClosure cb = newCClosure =<< mkAccelMapChangedCallback wrapped - where wrapped = accelMapChangedCallbackWrapper cb - -accelMapChangedCallbackWrapper :: - AccelMapChangedCallback -> - Ptr () -> - CString -> - Word32 -> - CUInt -> - Ptr () -> - IO () -accelMapChangedCallbackWrapper _cb _ accelPath accelKey accelMods _ = do - accelPath' <- cstringToText accelPath - let accelMods' = wordToGFlags accelMods - _cb accelPath' accelKey accelMods' - -onAccelMapChanged :: (GObject a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId -onAccelMapChanged obj cb = liftIO $ connectAccelMapChanged obj cb SignalConnectBefore -afterAccelMapChanged :: (GObject a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId -afterAccelMapChanged obj cb = connectAccelMapChanged obj cb SignalConnectAfter - -connectAccelMapChanged :: (GObject a, MonadIO m) => - a -> AccelMapChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectAccelMapChanged obj cb after = liftIO $ do - cb' <- mkAccelMapChangedCallback (accelMapChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - -type instance AttributeList AccelMap = AccelMapAttributeList -type AccelMapAttributeList = ('[ ] :: [(Symbol, *)]) - -data AccelMapChangedSignalInfo -instance SignalInfo AccelMapChangedSignalInfo where - type HaskellCallbackType AccelMapChangedSignalInfo = AccelMapChangedCallback - connectSignal _ = connectAccelMapChanged - -type instance SignalList AccelMap = AccelMapSignalList -type AccelMapSignalList = ('[ '("changed", AccelMapChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AccelMap::add_entry --- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_accel_map_add_entry" gtk_accel_map_add_entry :: - CString -> -- accel_path : TBasicType TUTF8 - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelMapAddEntry :: - (MonadIO m) => - T.Text -- accelPath - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m () -- result -accelMapAddEntry accelPath accelKey accelMods = liftIO $ do - accelPath' <- textToCString accelPath - let accelMods' = gflagsToWord accelMods - gtk_accel_map_add_entry accelPath' accelKey accelMods' - freeMem accelPath' - return () - --- method AccelMap::add_filter --- method type : MemberFunction --- Args : [Arg {argCName = "filter_pattern", 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 "gtk_accel_map_add_filter" gtk_accel_map_add_filter :: - CString -> -- filter_pattern : TBasicType TUTF8 - IO () - - -accelMapAddFilter :: - (MonadIO m) => - T.Text -- filterPattern - -> m () -- result -accelMapAddFilter filterPattern = liftIO $ do - filterPattern' <- textToCString filterPattern - gtk_accel_map_add_filter filterPattern' - freeMem filterPattern' - return () - --- method AccelMap::change_entry --- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, 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 "gtk_accel_map_change_entry" gtk_accel_map_change_entry :: - CString -> -- accel_path : TBasicType TUTF8 - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CInt -> -- replace : TBasicType TBoolean - IO CInt - - -accelMapChangeEntry :: - (MonadIO m) => - T.Text -- accelPath - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> Bool -- replace - -> m Bool -- result -accelMapChangeEntry accelPath accelKey accelMods replace = liftIO $ do - accelPath' <- textToCString accelPath - let accelMods' = gflagsToWord accelMods - let replace' = (fromIntegral . fromEnum) replace - result <- gtk_accel_map_change_entry accelPath' accelKey accelMods' replace' - let result' = (/= 0) result - freeMem accelPath' - return result' - --- method AccelMap::foreach --- method type : MemberFunction --- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach :: - Ptr () -> -- data : TBasicType TPtr - FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" - IO () - - -accelMapForeach :: - (MonadIO m) => - Ptr () -- data_ - -> AccelMapForeach -- foreachFunc - -> m () -- result -accelMapForeach data_ foreachFunc = liftIO $ do - foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc) - gtk_accel_map_foreach data_ foreachFunc' - safeFreeFunPtr $ castFunPtrToPtr foreachFunc' - return () - --- method AccelMap::foreach_unfiltered --- method type : MemberFunction --- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered :: - Ptr () -> -- data : TBasicType TPtr - FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" - IO () - - -accelMapForeachUnfiltered :: - (MonadIO m) => - Ptr () -- data_ - -> AccelMapForeach -- foreachFunc - -> m () -- result -accelMapForeachUnfiltered data_ foreachFunc = liftIO $ do - foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc) - gtk_accel_map_foreach_unfiltered data_ foreachFunc' - safeFreeFunPtr $ castFunPtrToPtr foreachFunc' - return () - --- method AccelMap::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelMap") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_get" gtk_accel_map_get :: - IO (Ptr AccelMap) - - -accelMapGet :: - (MonadIO m) => - m AccelMap -- result -accelMapGet = liftIO $ do - result <- gtk_accel_map_get - checkUnexpectedReturnNULL "gtk_accel_map_get" result - result' <- (newObject AccelMap) result - return result' - --- method AccelMap::load --- method type : MemberFunction --- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, 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 "gtk_accel_map_load" gtk_accel_map_load :: - CString -> -- file_name : TBasicType TFileName - IO () - - -accelMapLoad :: - (MonadIO m) => - [Char] -- fileName - -> m () -- result -accelMapLoad fileName = liftIO $ do - fileName' <- stringToCString fileName - gtk_accel_map_load fileName' - freeMem fileName' - return () - --- method AccelMap::load_fd --- method type : MemberFunction --- Args : [Arg {argCName = "fd", 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 "gtk_accel_map_load_fd" gtk_accel_map_load_fd :: - Int32 -> -- fd : TBasicType TInt - IO () - - -accelMapLoadFd :: - (MonadIO m) => - Int32 -- fd - -> m () -- result -accelMapLoadFd fd = liftIO $ do - gtk_accel_map_load_fd fd - return () - --- method AccelMap::load_scanner --- method type : MemberFunction --- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", 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 "gtk_accel_map_load_scanner" gtk_accel_map_load_scanner :: - Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner" - IO () - - -accelMapLoadScanner :: - (MonadIO m) => - GLib.Scanner -- scanner - -> m () -- result -accelMapLoadScanner scanner = liftIO $ do - let scanner' = unsafeManagedPtrGetPtr scanner - gtk_accel_map_load_scanner scanner' - touchManagedPtr scanner - return () - --- method AccelMap::lock_path --- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", 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 "gtk_accel_map_lock_path" gtk_accel_map_lock_path :: - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -accelMapLockPath :: - (MonadIO m) => - T.Text -- accelPath - -> m () -- result -accelMapLockPath accelPath = liftIO $ do - accelPath' <- textToCString accelPath - gtk_accel_map_lock_path accelPath' - freeMem accelPath' - return () - --- method AccelMap::lookup_entry --- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_lookup_entry" gtk_accel_map_lookup_entry :: - CString -> -- accel_path : TBasicType TUTF8 - Ptr AccelKey -> -- key : TInterface "Gtk" "AccelKey" - IO CInt - - -accelMapLookupEntry :: - (MonadIO m) => - T.Text -- accelPath - -> m (Bool,AccelKey) -- result -accelMapLookupEntry accelPath = liftIO $ do - accelPath' <- textToCString accelPath - key <- callocBytes 12 :: IO (Ptr AccelKey) - result <- gtk_accel_map_lookup_entry accelPath' key - let result' = (/= 0) result - key' <- (wrapPtr AccelKey) key - freeMem accelPath' - return (result', key') - --- method AccelMap::save --- method type : MemberFunction --- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, 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 "gtk_accel_map_save" gtk_accel_map_save :: - CString -> -- file_name : TBasicType TFileName - IO () - - -accelMapSave :: - (MonadIO m) => - [Char] -- fileName - -> m () -- result -accelMapSave fileName = liftIO $ do - fileName' <- stringToCString fileName - gtk_accel_map_save fileName' - freeMem fileName' - return () - --- method AccelMap::save_fd --- method type : MemberFunction --- Args : [Arg {argCName = "fd", 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 "gtk_accel_map_save_fd" gtk_accel_map_save_fd :: - Int32 -> -- fd : TBasicType TInt - IO () - - -accelMapSaveFd :: - (MonadIO m) => - Int32 -- fd - -> m () -- result -accelMapSaveFd fd = liftIO $ do - gtk_accel_map_save_fd fd - return () - --- method AccelMap::unlock_path --- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", 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 "gtk_accel_map_unlock_path" gtk_accel_map_unlock_path :: - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -accelMapUnlockPath :: - (MonadIO m) => - T.Text -- accelPath - -> m () -- result -accelMapUnlockPath accelPath = liftIO $ do - accelPath' <- textToCString accelPath - gtk_accel_map_unlock_path accelPath' - freeMem accelPath' - return () - - diff --git a/GI/Gtk/Objects/AccelMap.hs-boot b/GI/Gtk/Objects/AccelMap.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AccelMap.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.AccelMap 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 AccelMap = AccelMap (ForeignPtr AccelMap) -instance GObject AccelMap where -class GObject o => AccelMapK o -instance (GObject o, IsDescendantOf AccelMap o) => AccelMapK o -data AccelMapChangedSignalInfo diff --git a/GI/Gtk/Objects/Accessible.hs b/GI/Gtk/Objects/Accessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Accessible.hs +++ /dev/null @@ -1,272 +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.Gtk.Objects.Accessible - ( - --- * Exported types - Accessible(..) , - AccessibleK , - toAccessible , - noAccessible , - - - -- * Methods --- ** accessibleConnectWidgetDestroyed - AccessibleConnectWidgetDestroyedMethodInfo, - accessibleConnectWidgetDestroyed , - - --- ** accessibleGetWidget - AccessibleGetWidgetMethodInfo , - accessibleGetWidget , - - --- ** accessibleSetWidget - AccessibleSetWidgetMethodInfo , - accessibleSetWidget , - - - - - -- * Properties --- ** Widget - AccessibleWidgetPropertyInfo , - accessibleWidget , - clearAccessibleWidget , - constructAccessibleWidget , - getAccessibleWidget , - setAccessibleWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Accessible = Accessible (ForeignPtr Accessible) -foreign import ccall "gtk_accessible_get_type" - c_gtk_accessible_get_type :: IO GType - -type instance ParentTypes Accessible = AccessibleParentTypes -type AccessibleParentTypes = '[Atk.Object, GObject.Object] - -instance GObject Accessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_accessible_get_type - - -class GObject o => AccessibleK o -instance (GObject o, IsDescendantOf Accessible o) => AccessibleK o - -toAccessible :: AccessibleK o => o -> IO Accessible -toAccessible = unsafeCastTo Accessible - -noAccessible :: Maybe Accessible -noAccessible = Nothing - -type family ResolveAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveAccessibleMethod "getLayer" o = Atk.ObjectGetLayerMethodInfo - ResolveAccessibleMethod "getMdiZorder" o = Atk.ObjectGetMdiZorderMethodInfo - ResolveAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccessibleMethod t Accessible, MethodInfo info Accessible p) => IsLabelProxy t (Accessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccessibleMethod t Accessible, MethodInfo info Accessible p) => IsLabel t (Accessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m Widget -getAccessibleWidget obj = liftIO $ checkUnexpectedNothing "getAccessibleWidget" $ getObjectPropertyObject obj "widget" Widget - -setAccessibleWidget :: (MonadIO m, AccessibleK o, WidgetK a) => o -> a -> m () -setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) - -constructAccessibleWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccessibleWidget val = constructObjectPropertyObject "widget" (Just val) - -clearAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m () -clearAccessibleWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget) - -data AccessibleWidgetPropertyInfo -instance AttrInfo AccessibleWidgetPropertyInfo where - type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK - type AttrGetType AccessibleWidgetPropertyInfo = Widget - type AttrLabel AccessibleWidgetPropertyInfo = "widget" - attrGet _ = getAccessibleWidget - attrSet _ = setAccessibleWidget - attrConstruct _ = constructAccessibleWidget - attrClear _ = clearAccessibleWidget - -type instance AttributeList Accessible = AccessibleAttributeList -type AccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -accessibleWidget :: AttrLabelProxy "widget" -accessibleWidget = AttrLabelProxy - -type instance SignalList Accessible = AccessibleSignalList -type AccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - --- method Accessible::connect_widget_destroyed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", 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 "gtk_accessible_connect_widget_destroyed" gtk_accessible_connect_widget_destroyed :: - Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible" - IO () - -{-# DEPRECATED accessibleConnectWidgetDestroyed ["(Since version 3.4)","Use gtk_accessible_set_widget() and its vfuncs."]#-} -accessibleConnectWidgetDestroyed :: - (MonadIO m, AccessibleK a) => - a -- _obj - -> m () -- result -accessibleConnectWidgetDestroyed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accessible_connect_widget_destroyed _obj' - touchManagedPtr _obj - return () - -data AccessibleConnectWidgetDestroyedMethodInfo -instance (signature ~ (m ()), MonadIO m, AccessibleK a) => MethodInfo AccessibleConnectWidgetDestroyedMethodInfo a signature where - overloadedMethod _ = accessibleConnectWidgetDestroyed - --- method Accessible::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_accessible_get_widget" gtk_accessible_get_widget :: - Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible" - IO (Ptr Widget) - - -accessibleGetWidget :: - (MonadIO m, AccessibleK a) => - a -- _obj - -> m Widget -- result -accessibleGetWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accessible_get_widget _obj' - checkUnexpectedReturnNULL "gtk_accessible_get_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data AccessibleGetWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, AccessibleK a) => MethodInfo AccessibleGetWidgetMethodInfo a signature where - overloadedMethod _ = accessibleGetWidget - --- method Accessible::set_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_accessible_set_widget" gtk_accessible_set_widget :: - Ptr Accessible -> -- _obj : TInterface "Gtk" "Accessible" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -accessibleSetWidget :: - (MonadIO m, AccessibleK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- widget - -> m () -- result -accessibleSetWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_accessible_set_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - -data AccessibleSetWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AccessibleK a, WidgetK b) => MethodInfo AccessibleSetWidgetMethodInfo a signature where - overloadedMethod _ = accessibleSetWidget - - diff --git a/GI/Gtk/Objects/Accessible.hs-boot b/GI/Gtk/Objects/Accessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Accessible.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.Accessible 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 Accessible = Accessible (ForeignPtr Accessible) -instance GObject Accessible where -class GObject o => AccessibleK o -instance (GObject o, IsDescendantOf Accessible o) => AccessibleK o -data AccessibleWidgetPropertyInfo -data AccessibleConnectWidgetDestroyedMethodInfo -data AccessibleGetWidgetMethodInfo -data AccessibleSetWidgetMethodInfo diff --git a/GI/Gtk/Objects/Action.hs b/GI/Gtk/Objects/Action.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Action.hs +++ /dev/null @@ -1,2255 +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.Gtk.Objects.Action - ( - --- * Exported types - Action(..) , - ActionK , - toAction , - noAction , - - - -- * Methods --- ** actionActivate - ActionActivateMethodInfo , - actionActivate , - - --- ** actionBlockActivate - ActionBlockActivateMethodInfo , - actionBlockActivate , - - --- ** actionConnectAccelerator - ActionConnectAcceleratorMethodInfo , - actionConnectAccelerator , - - --- ** actionCreateIcon - ActionCreateIconMethodInfo , - actionCreateIcon , - - --- ** actionCreateMenu - ActionCreateMenuMethodInfo , - actionCreateMenu , - - --- ** actionCreateMenuItem - ActionCreateMenuItemMethodInfo , - actionCreateMenuItem , - - --- ** actionCreateToolItem - ActionCreateToolItemMethodInfo , - actionCreateToolItem , - - --- ** actionDisconnectAccelerator - ActionDisconnectAcceleratorMethodInfo , - actionDisconnectAccelerator , - - --- ** actionGetAccelClosure - ActionGetAccelClosureMethodInfo , - actionGetAccelClosure , - - --- ** actionGetAccelPath - ActionGetAccelPathMethodInfo , - actionGetAccelPath , - - --- ** actionGetAlwaysShowImage - ActionGetAlwaysShowImageMethodInfo , - actionGetAlwaysShowImage , - - --- ** actionGetGicon - ActionGetGiconMethodInfo , - actionGetGicon , - - --- ** actionGetIconName - ActionGetIconNameMethodInfo , - actionGetIconName , - - --- ** actionGetIsImportant - ActionGetIsImportantMethodInfo , - actionGetIsImportant , - - --- ** actionGetLabel - ActionGetLabelMethodInfo , - actionGetLabel , - - --- ** actionGetName - ActionGetNameMethodInfo , - actionGetName , - - --- ** actionGetProxies - ActionGetProxiesMethodInfo , - actionGetProxies , - - --- ** actionGetSensitive - ActionGetSensitiveMethodInfo , - actionGetSensitive , - - --- ** actionGetShortLabel - ActionGetShortLabelMethodInfo , - actionGetShortLabel , - - --- ** actionGetStockId - ActionGetStockIdMethodInfo , - actionGetStockId , - - --- ** actionGetTooltip - ActionGetTooltipMethodInfo , - actionGetTooltip , - - --- ** actionGetVisible - ActionGetVisibleMethodInfo , - actionGetVisible , - - --- ** actionGetVisibleHorizontal - ActionGetVisibleHorizontalMethodInfo , - actionGetVisibleHorizontal , - - --- ** actionGetVisibleVertical - ActionGetVisibleVerticalMethodInfo , - actionGetVisibleVertical , - - --- ** actionIsSensitive - ActionIsSensitiveMethodInfo , - actionIsSensitive , - - --- ** actionIsVisible - ActionIsVisibleMethodInfo , - actionIsVisible , - - --- ** actionNew - actionNew , - - --- ** actionSetAccelGroup - ActionSetAccelGroupMethodInfo , - actionSetAccelGroup , - - --- ** actionSetAccelPath - ActionSetAccelPathMethodInfo , - actionSetAccelPath , - - --- ** actionSetAlwaysShowImage - ActionSetAlwaysShowImageMethodInfo , - actionSetAlwaysShowImage , - - --- ** actionSetGicon - ActionSetGiconMethodInfo , - actionSetGicon , - - --- ** actionSetIconName - ActionSetIconNameMethodInfo , - actionSetIconName , - - --- ** actionSetIsImportant - ActionSetIsImportantMethodInfo , - actionSetIsImportant , - - --- ** actionSetLabel - ActionSetLabelMethodInfo , - actionSetLabel , - - --- ** actionSetSensitive - ActionSetSensitiveMethodInfo , - actionSetSensitive , - - --- ** actionSetShortLabel - ActionSetShortLabelMethodInfo , - actionSetShortLabel , - - --- ** actionSetStockId - ActionSetStockIdMethodInfo , - actionSetStockId , - - --- ** actionSetTooltip - ActionSetTooltipMethodInfo , - actionSetTooltip , - - --- ** actionSetVisible - ActionSetVisibleMethodInfo , - actionSetVisible , - - --- ** actionSetVisibleHorizontal - ActionSetVisibleHorizontalMethodInfo , - actionSetVisibleHorizontal , - - --- ** actionSetVisibleVertical - ActionSetVisibleVerticalMethodInfo , - actionSetVisibleVertical , - - --- ** actionUnblockActivate - ActionUnblockActivateMethodInfo , - actionUnblockActivate , - - - - - -- * Properties --- ** ActionGroup - ActionActionGroupPropertyInfo , - actionActionGroup , - clearActionActionGroup , - constructActionActionGroup , - getActionActionGroup , - setActionActionGroup , - - --- ** AlwaysShowImage - ActionAlwaysShowImagePropertyInfo , - actionAlwaysShowImage , - constructActionAlwaysShowImage , - getActionAlwaysShowImage , - setActionAlwaysShowImage , - - --- ** Gicon - ActionGiconPropertyInfo , - actionGicon , - constructActionGicon , - getActionGicon , - setActionGicon , - - --- ** HideIfEmpty - ActionHideIfEmptyPropertyInfo , - actionHideIfEmpty , - constructActionHideIfEmpty , - getActionHideIfEmpty , - setActionHideIfEmpty , - - --- ** IconName - ActionIconNamePropertyInfo , - actionIconName , - constructActionIconName , - getActionIconName , - setActionIconName , - - --- ** IsImportant - ActionIsImportantPropertyInfo , - actionIsImportant , - constructActionIsImportant , - getActionIsImportant , - setActionIsImportant , - - --- ** Label - ActionLabelPropertyInfo , - actionLabel , - constructActionLabel , - getActionLabel , - setActionLabel , - - --- ** Name - ActionNamePropertyInfo , - actionName , - constructActionName , - getActionName , - - --- ** Sensitive - ActionSensitivePropertyInfo , - actionSensitive , - constructActionSensitive , - getActionSensitive , - setActionSensitive , - - --- ** ShortLabel - ActionShortLabelPropertyInfo , - actionShortLabel , - constructActionShortLabel , - getActionShortLabel , - setActionShortLabel , - - --- ** StockId - ActionStockIdPropertyInfo , - actionStockId , - constructActionStockId , - getActionStockId , - setActionStockId , - - --- ** Tooltip - ActionTooltipPropertyInfo , - actionTooltip , - constructActionTooltip , - getActionTooltip , - setActionTooltip , - - --- ** Visible - ActionVisiblePropertyInfo , - actionVisible , - constructActionVisible , - getActionVisible , - setActionVisible , - - --- ** VisibleHorizontal - ActionVisibleHorizontalPropertyInfo , - actionVisibleHorizontal , - constructActionVisibleHorizontal , - getActionVisibleHorizontal , - setActionVisibleHorizontal , - - --- ** VisibleOverflown - ActionVisibleOverflownPropertyInfo , - actionVisibleOverflown , - constructActionVisibleOverflown , - getActionVisibleOverflown , - setActionVisibleOverflown , - - --- ** VisibleVertical - ActionVisibleVerticalPropertyInfo , - actionVisibleVertical , - constructActionVisibleVertical , - getActionVisibleVertical , - setActionVisibleVertical , - - - - - -- * Signals --- ** Activate - ActionActivateCallback , - ActionActivateCallbackC , - ActionActivateSignalInfo , - actionActivateCallbackWrapper , - actionActivateClosure , - afterActionActivate , - mkActionActivateCallback , - noActionActivateCallback , - onActionActivate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Action = Action (ForeignPtr Action) -foreign import ccall "gtk_action_get_type" - c_gtk_action_get_type :: IO GType - -type instance ParentTypes Action = ActionParentTypes -type ActionParentTypes = '[GObject.Object, Buildable] - -instance GObject Action where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_action_get_type - - -class GObject o => ActionK o -instance (GObject o, IsDescendantOf Action o) => ActionK o - -toAction :: ActionK o => o -> IO Action -toAction = unsafeCastTo Action - -noAction :: Maybe Action -noAction = Nothing - -type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where - ResolveActionMethod "activate" o = ActionActivateMethodInfo - ResolveActionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionMethod "blockActivate" o = ActionBlockActivateMethodInfo - ResolveActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo - ResolveActionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveActionMethod "createIcon" o = ActionCreateIconMethodInfo - ResolveActionMethod "createMenu" o = ActionCreateMenuMethodInfo - ResolveActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo - ResolveActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo - ResolveActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo - ResolveActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo - ResolveActionMethod "isVisible" o = ActionIsVisibleMethodInfo - ResolveActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo - ResolveActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo - ResolveActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo - ResolveActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo - ResolveActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionMethod "getGicon" o = ActionGetGiconMethodInfo - ResolveActionMethod "getIconName" o = ActionGetIconNameMethodInfo - ResolveActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo - ResolveActionMethod "getLabel" o = ActionGetLabelMethodInfo - ResolveActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionMethod "getProxies" o = ActionGetProxiesMethodInfo - ResolveActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo - ResolveActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo - ResolveActionMethod "getStockId" o = ActionGetStockIdMethodInfo - ResolveActionMethod "getTooltip" o = ActionGetTooltipMethodInfo - ResolveActionMethod "getVisible" o = ActionGetVisibleMethodInfo - ResolveActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo - ResolveActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo - ResolveActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo - ResolveActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo - ResolveActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo - ResolveActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionMethod "setGicon" o = ActionSetGiconMethodInfo - ResolveActionMethod "setIconName" o = ActionSetIconNameMethodInfo - ResolveActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo - ResolveActionMethod "setLabel" o = ActionSetLabelMethodInfo - ResolveActionMethod "setName" o = BuildableSetNameMethodInfo - ResolveActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo - ResolveActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo - ResolveActionMethod "setStockId" o = ActionSetStockIdMethodInfo - ResolveActionMethod "setTooltip" o = ActionSetTooltipMethodInfo - ResolveActionMethod "setVisible" o = ActionSetVisibleMethodInfo - ResolveActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo - ResolveActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo - 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 - --- signal Action::activate -type ActionActivateCallback = - IO () - -noActionActivateCallback :: Maybe ActionActivateCallback -noActionActivateCallback = Nothing - -type ActionActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionActivateCallback :: ActionActivateCallbackC -> IO (FunPtr ActionActivateCallbackC) - -actionActivateClosure :: ActionActivateCallback -> IO Closure -actionActivateClosure cb = newCClosure =<< mkActionActivateCallback wrapped - where wrapped = actionActivateCallbackWrapper cb - -actionActivateCallbackWrapper :: - ActionActivateCallback -> - Ptr () -> - Ptr () -> - IO () -actionActivateCallbackWrapper _cb _ _ = do - _cb - -onActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId -onActionActivate obj cb = liftIO $ connectActionActivate obj cb SignalConnectBefore -afterActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId -afterActionActivate obj cb = connectActionActivate obj cb SignalConnectAfter - -connectActionActivate :: (GObject a, MonadIO m) => - a -> ActionActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectActionActivate obj cb after = liftIO $ do - cb' <- mkActionActivateCallback (actionActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- VVV Prop "action-group" - -- Type: TInterface "Gtk" "ActionGroup" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getActionActionGroup :: (MonadIO m, ActionK o) => o -> m (Maybe ActionGroup) -getActionActionGroup obj = liftIO $ getObjectPropertyObject obj "action-group" ActionGroup - -setActionActionGroup :: (MonadIO m, ActionK o, ActionGroupK a) => o -> a -> m () -setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val) - -constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue) -constructActionActionGroup val = constructObjectPropertyObject "action-group" (Just val) - -clearActionActionGroup :: (MonadIO m, ActionK o) => o -> m () -clearActionActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe ActionGroup) - -data ActionActionGroupPropertyInfo -instance AttrInfo ActionActionGroupPropertyInfo where - type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK - type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK - type AttrGetType ActionActionGroupPropertyInfo = (Maybe ActionGroup) - type AttrLabel ActionActionGroupPropertyInfo = "action-group" - attrGet _ = getActionActionGroup - attrSet _ = setActionActionGroup - attrConstruct _ = constructActionActionGroup - attrClear _ = clearActionActionGroup - --- VVV Prop "always-show-image" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> m Bool -getActionAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" - -setActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionAlwaysShowImage obj val = liftIO $ setObjectPropertyBool obj "always-show-image" val - -constructActionAlwaysShowImage :: Bool -> IO ([Char], GValue) -constructActionAlwaysShowImage val = constructObjectPropertyBool "always-show-image" val - -data ActionAlwaysShowImagePropertyInfo -instance AttrInfo ActionAlwaysShowImagePropertyInfo where - type AttrAllowedOps ActionAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionAlwaysShowImagePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionAlwaysShowImagePropertyInfo = ActionK - type AttrGetType ActionAlwaysShowImagePropertyInfo = Bool - type AttrLabel ActionAlwaysShowImagePropertyInfo = "always-show-image" - attrGet _ = getActionAlwaysShowImage - attrSet _ = setActionAlwaysShowImage - attrConstruct _ = constructActionAlwaysShowImage - attrClear _ = undefined - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon -getActionGicon obj = liftIO $ checkUnexpectedNothing "getActionGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon - -setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m () -setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) - -constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructActionGicon val = constructObjectPropertyObject "gicon" (Just val) - -data ActionGiconPropertyInfo -instance AttrInfo ActionGiconPropertyInfo where - type AttrAllowedOps ActionGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint ActionGiconPropertyInfo = ActionK - type AttrGetType ActionGiconPropertyInfo = Gio.Icon - type AttrLabel ActionGiconPropertyInfo = "gicon" - attrGet _ = getActionGicon - attrSet _ = setActionGicon - attrConstruct _ = constructActionGicon - attrClear _ = undefined - --- VVV Prop "hide-if-empty" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> m Bool -getActionHideIfEmpty obj = liftIO $ getObjectPropertyBool obj "hide-if-empty" - -setActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionHideIfEmpty obj val = liftIO $ setObjectPropertyBool obj "hide-if-empty" val - -constructActionHideIfEmpty :: Bool -> IO ([Char], GValue) -constructActionHideIfEmpty val = constructObjectPropertyBool "hide-if-empty" val - -data ActionHideIfEmptyPropertyInfo -instance AttrInfo ActionHideIfEmptyPropertyInfo where - type AttrAllowedOps ActionHideIfEmptyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionHideIfEmptyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionHideIfEmptyPropertyInfo = ActionK - type AttrGetType ActionHideIfEmptyPropertyInfo = Bool - type AttrLabel ActionHideIfEmptyPropertyInfo = "hide-if-empty" - attrGet _ = getActionHideIfEmpty - attrSet _ = setActionHideIfEmpty - attrConstruct _ = constructActionHideIfEmpty - attrClear _ = undefined - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionIconName obj = liftIO $ checkUnexpectedNothing "getActionIconName" $ getObjectPropertyString obj "icon-name" - -setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructActionIconName :: T.Text -> IO ([Char], GValue) -constructActionIconName val = constructObjectPropertyString "icon-name" (Just val) - -data ActionIconNamePropertyInfo -instance AttrInfo ActionIconNamePropertyInfo where - type AttrAllowedOps ActionIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionIconNamePropertyInfo = ActionK - type AttrGetType ActionIconNamePropertyInfo = T.Text - type AttrLabel ActionIconNamePropertyInfo = "icon-name" - attrGet _ = getActionIconName - attrSet _ = setActionIconName - attrConstruct _ = constructActionIconName - attrClear _ = undefined - --- VVV Prop "is-important" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionIsImportant :: (MonadIO m, ActionK o) => o -> m Bool -getActionIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important" - -setActionIsImportant :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionIsImportant obj val = liftIO $ setObjectPropertyBool obj "is-important" val - -constructActionIsImportant :: Bool -> IO ([Char], GValue) -constructActionIsImportant val = constructObjectPropertyBool "is-important" val - -data ActionIsImportantPropertyInfo -instance AttrInfo ActionIsImportantPropertyInfo where - type AttrAllowedOps ActionIsImportantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionIsImportantPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionIsImportantPropertyInfo = ActionK - type AttrGetType ActionIsImportantPropertyInfo = Bool - type AttrLabel ActionIsImportantPropertyInfo = "is-important" - attrGet _ = getActionIsImportant - attrSet _ = setActionIsImportant - attrConstruct _ = constructActionIsImportant - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionLabel obj = liftIO $ checkUnexpectedNothing "getActionLabel" $ getObjectPropertyString obj "label" - -setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructActionLabel :: T.Text -> IO ([Char], GValue) -constructActionLabel val = constructObjectPropertyString "label" (Just val) - -data ActionLabelPropertyInfo -instance AttrInfo ActionLabelPropertyInfo where - type AttrAllowedOps ActionLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionLabelPropertyInfo = ActionK - type AttrGetType ActionLabelPropertyInfo = T.Text - type AttrLabel ActionLabelPropertyInfo = "label" - attrGet _ = getActionLabel - attrSet _ = setActionLabel - attrConstruct _ = constructActionLabel - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getActionName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name" - -constructActionName :: T.Text -> IO ([Char], GValue) -constructActionName val = constructObjectPropertyString "name" (Just val) - -data ActionNamePropertyInfo -instance AttrInfo ActionNamePropertyInfo where - type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK - type AttrGetType ActionNamePropertyInfo = T.Text - type AttrLabel ActionNamePropertyInfo = "name" - attrGet _ = getActionName - attrSet _ = undefined - attrConstruct _ = constructActionName - attrClear _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionSensitive :: (MonadIO m, ActionK o) => o -> m Bool -getActionSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setActionSensitive :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructActionSensitive :: Bool -> IO ([Char], GValue) -constructActionSensitive val = constructObjectPropertyBool "sensitive" val - -data ActionSensitivePropertyInfo -instance AttrInfo ActionSensitivePropertyInfo where - type AttrAllowedOps ActionSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionSensitivePropertyInfo = ActionK - type AttrGetType ActionSensitivePropertyInfo = Bool - type AttrLabel ActionSensitivePropertyInfo = "sensitive" - attrGet _ = getActionSensitive - attrSet _ = setActionSensitive - attrConstruct _ = constructActionSensitive - attrClear _ = undefined - --- VVV Prop "short-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionShortLabel obj = liftIO $ checkUnexpectedNothing "getActionShortLabel" $ getObjectPropertyString obj "short-label" - -setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" (Just val) - -constructActionShortLabel :: T.Text -> IO ([Char], GValue) -constructActionShortLabel val = constructObjectPropertyString "short-label" (Just val) - -data ActionShortLabelPropertyInfo -instance AttrInfo ActionShortLabelPropertyInfo where - type AttrAllowedOps ActionShortLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionShortLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionShortLabelPropertyInfo = ActionK - type AttrGetType ActionShortLabelPropertyInfo = T.Text - type AttrLabel ActionShortLabelPropertyInfo = "short-label" - attrGet _ = getActionShortLabel - attrSet _ = setActionShortLabel - attrConstruct _ = constructActionShortLabel - attrClear _ = undefined - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text -getActionStockId obj = liftIO $ checkUnexpectedNothing "getActionStockId" $ getObjectPropertyString obj "stock-id" - -setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) - -constructActionStockId :: T.Text -> IO ([Char], GValue) -constructActionStockId val = constructObjectPropertyString "stock-id" (Just val) - -data ActionStockIdPropertyInfo -instance AttrInfo ActionStockIdPropertyInfo where - type AttrAllowedOps ActionStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionStockIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionStockIdPropertyInfo = ActionK - type AttrGetType ActionStockIdPropertyInfo = T.Text - type AttrLabel ActionStockIdPropertyInfo = "stock-id" - attrGet _ = getActionStockId - attrSet _ = setActionStockId - attrConstruct _ = constructActionStockId - attrClear _ = undefined - --- VVV Prop "tooltip" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text -getActionTooltip obj = liftIO $ checkUnexpectedNothing "getActionTooltip" $ getObjectPropertyString obj "tooltip" - -setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" (Just val) - -constructActionTooltip :: T.Text -> IO ([Char], GValue) -constructActionTooltip val = constructObjectPropertyString "tooltip" (Just val) - -data ActionTooltipPropertyInfo -instance AttrInfo ActionTooltipPropertyInfo where - type AttrAllowedOps ActionTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionTooltipPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionTooltipPropertyInfo = ActionK - type AttrGetType ActionTooltipPropertyInfo = T.Text - type AttrLabel ActionTooltipPropertyInfo = "tooltip" - attrGet _ = getActionTooltip - attrSet _ = setActionTooltip - attrConstruct _ = constructActionTooltip - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionVisible :: (MonadIO m, ActionK o) => o -> m Bool -getActionVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setActionVisible :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructActionVisible :: Bool -> IO ([Char], GValue) -constructActionVisible val = constructObjectPropertyBool "visible" val - -data ActionVisiblePropertyInfo -instance AttrInfo ActionVisiblePropertyInfo where - type AttrAllowedOps ActionVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionVisiblePropertyInfo = ActionK - type AttrGetType ActionVisiblePropertyInfo = Bool - type AttrLabel ActionVisiblePropertyInfo = "visible" - attrGet _ = getActionVisible - attrSet _ = setActionVisible - attrConstruct _ = constructActionVisible - attrClear _ = undefined - --- VVV Prop "visible-horizontal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> m Bool -getActionVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal" - -setActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionVisibleHorizontal obj val = liftIO $ setObjectPropertyBool obj "visible-horizontal" val - -constructActionVisibleHorizontal :: Bool -> IO ([Char], GValue) -constructActionVisibleHorizontal val = constructObjectPropertyBool "visible-horizontal" val - -data ActionVisibleHorizontalPropertyInfo -instance AttrInfo ActionVisibleHorizontalPropertyInfo where - type AttrAllowedOps ActionVisibleHorizontalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionVisibleHorizontalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionVisibleHorizontalPropertyInfo = ActionK - type AttrGetType ActionVisibleHorizontalPropertyInfo = Bool - type AttrLabel ActionVisibleHorizontalPropertyInfo = "visible-horizontal" - attrGet _ = getActionVisibleHorizontal - attrSet _ = setActionVisibleHorizontal - attrConstruct _ = constructActionVisibleHorizontal - attrClear _ = undefined - --- VVV Prop "visible-overflown" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> m Bool -getActionVisibleOverflown obj = liftIO $ getObjectPropertyBool obj "visible-overflown" - -setActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionVisibleOverflown obj val = liftIO $ setObjectPropertyBool obj "visible-overflown" val - -constructActionVisibleOverflown :: Bool -> IO ([Char], GValue) -constructActionVisibleOverflown val = constructObjectPropertyBool "visible-overflown" val - -data ActionVisibleOverflownPropertyInfo -instance AttrInfo ActionVisibleOverflownPropertyInfo where - type AttrAllowedOps ActionVisibleOverflownPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionVisibleOverflownPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionVisibleOverflownPropertyInfo = ActionK - type AttrGetType ActionVisibleOverflownPropertyInfo = Bool - type AttrLabel ActionVisibleOverflownPropertyInfo = "visible-overflown" - attrGet _ = getActionVisibleOverflown - attrSet _ = setActionVisibleOverflown - attrConstruct _ = constructActionVisibleOverflown - attrClear _ = undefined - --- VVV Prop "visible-vertical" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionVisibleVertical :: (MonadIO m, ActionK o) => o -> m Bool -getActionVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical" - -setActionVisibleVertical :: (MonadIO m, ActionK o) => o -> Bool -> m () -setActionVisibleVertical obj val = liftIO $ setObjectPropertyBool obj "visible-vertical" val - -constructActionVisibleVertical :: Bool -> IO ([Char], GValue) -constructActionVisibleVertical val = constructObjectPropertyBool "visible-vertical" val - -data ActionVisibleVerticalPropertyInfo -instance AttrInfo ActionVisibleVerticalPropertyInfo where - type AttrAllowedOps ActionVisibleVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionVisibleVerticalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionVisibleVerticalPropertyInfo = ActionK - type AttrGetType ActionVisibleVerticalPropertyInfo = Bool - type AttrLabel ActionVisibleVerticalPropertyInfo = "visible-vertical" - attrGet _ = getActionVisibleVertical - attrSet _ = setActionVisibleVertical - attrConstruct _ = constructActionVisibleVertical - attrClear _ = undefined - -type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -actionActionGroup :: AttrLabelProxy "actionGroup" -actionActionGroup = AttrLabelProxy - -actionAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" -actionAlwaysShowImage = AttrLabelProxy - -actionGicon :: AttrLabelProxy "gicon" -actionGicon = AttrLabelProxy - -actionHideIfEmpty :: AttrLabelProxy "hideIfEmpty" -actionHideIfEmpty = AttrLabelProxy - -actionIconName :: AttrLabelProxy "iconName" -actionIconName = AttrLabelProxy - -actionIsImportant :: AttrLabelProxy "isImportant" -actionIsImportant = AttrLabelProxy - -actionLabel :: AttrLabelProxy "label" -actionLabel = AttrLabelProxy - -actionName :: AttrLabelProxy "name" -actionName = AttrLabelProxy - -actionSensitive :: AttrLabelProxy "sensitive" -actionSensitive = AttrLabelProxy - -actionShortLabel :: AttrLabelProxy "shortLabel" -actionShortLabel = AttrLabelProxy - -actionStockId :: AttrLabelProxy "stockId" -actionStockId = AttrLabelProxy - -actionTooltip :: AttrLabelProxy "tooltip" -actionTooltip = AttrLabelProxy - -actionVisible :: AttrLabelProxy "visible" -actionVisible = AttrLabelProxy - -actionVisibleHorizontal :: AttrLabelProxy "visibleHorizontal" -actionVisibleHorizontal = AttrLabelProxy - -actionVisibleOverflown :: AttrLabelProxy "visibleOverflown" -actionVisibleOverflown = AttrLabelProxy - -actionVisibleVertical :: AttrLabelProxy "visibleVertical" -actionVisibleVertical = AttrLabelProxy - -data ActionActivateSignalInfo -instance SignalInfo ActionActivateSignalInfo where - type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback - connectSignal _ = connectActionActivate - -type instance SignalList Action = ActionSignalList -type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Action::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Action") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_new" gtk_action_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - CString -> -- tooltip : TBasicType TUTF8 - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr Action) - -{-# DEPRECATED actionNew ["(Since version 3.10)","Use #GAction instead, associating it to a widget with","#GtkActionable or creating a #GtkMenu with gtk_menu_new_from_model()"]#-} -actionNew :: - (MonadIO m) => - T.Text -- name - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- tooltip - -> Maybe (T.Text) -- stockId - -> m Action -- result -actionNew name label tooltip stockId = liftIO $ do - name' <- textToCString name - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - result <- gtk_action_new name' maybeLabel maybeTooltip maybeStockId - checkUnexpectedReturnNULL "gtk_action_new" result - result' <- (wrapObject Action) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStockId - return result' - --- method Action::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_activate" gtk_action_activate :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionActivate ["(Since version 3.10)","Use g_action_group_activate_action() on a #GAction instead"]#-} -actionActivate :: - (MonadIO m, ActionK a) => - a -- _obj - -> m () -- result -actionActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_activate _obj' - touchManagedPtr _obj - return () - -data ActionActivateMethodInfo -instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionActivateMethodInfo a signature where - overloadedMethod _ = actionActivate - --- method Action::block_activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_block_activate" gtk_action_block_activate :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionBlockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to disable the","#GSimpleAction instead"]#-} -actionBlockActivate :: - (MonadIO m, ActionK a) => - a -- _obj - -> m () -- result -actionBlockActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_block_activate _obj' - touchManagedPtr _obj - return () - -data ActionBlockActivateMethodInfo -instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionBlockActivateMethodInfo a signature where - overloadedMethod _ = actionBlockActivate - --- method Action::connect_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_connect_accelerator" gtk_action_connect_accelerator :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionConnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} -actionConnectAccelerator :: - (MonadIO m, ActionK a) => - a -- _obj - -> m () -- result -actionConnectAccelerator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_connect_accelerator _obj' - touchManagedPtr _obj - return () - -data ActionConnectAcceleratorMethodInfo -instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionConnectAcceleratorMethodInfo a signature where - overloadedMethod _ = actionConnectAccelerator - --- method Action::create_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_create_icon" gtk_action_create_icon :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - Int32 -> -- icon_size : TBasicType TInt - IO (Ptr Widget) - -{-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-} -actionCreateIcon :: - (MonadIO m, ActionK a) => - a -- _obj - -> Int32 -- iconSize - -> m Widget -- result -actionCreateIcon _obj iconSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_icon _obj' iconSize - checkUnexpectedReturnNULL "gtk_action_create_icon" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ActionCreateIconMethodInfo -instance (signature ~ (Int32 -> m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateIconMethodInfo a signature where - overloadedMethod _ = actionCreateIcon - --- method Action::create_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_create_menu" gtk_action_create_menu :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr Widget) - -{-# DEPRECATED actionCreateMenu ["(Since version 3.10)","Use #GAction and #GMenuModel instead, and create a","#GtkMenu with gtk_menu_new_from_model()"]#-} -actionCreateMenu :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Widget -- result -actionCreateMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_menu _obj' - checkUnexpectedReturnNULL "gtk_action_create_menu" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ActionCreateMenuMethodInfo -instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuMethodInfo a signature where - overloadedMethod _ = actionCreateMenu - --- method Action::create_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_create_menu_item" gtk_action_create_menu_item :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr Widget) - -{-# DEPRECATED actionCreateMenuItem ["(Since version 3.10)","Use g_menu_item_new() and associate it with a #GAction","instead."]#-} -actionCreateMenuItem :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Widget -- result -actionCreateMenuItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_menu_item _obj' - checkUnexpectedReturnNULL "gtk_action_create_menu_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ActionCreateMenuItemMethodInfo -instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuItemMethodInfo a signature where - overloadedMethod _ = actionCreateMenuItem - --- method Action::create_tool_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_create_tool_item" gtk_action_create_tool_item :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr Widget) - -{-# DEPRECATED actionCreateToolItem ["(Since version 3.10)","Use a #GtkToolItem and associate it with a #GAction using","gtk_actionable_set_action_name() instead"]#-} -actionCreateToolItem :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Widget -- result -actionCreateToolItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_tool_item _obj' - checkUnexpectedReturnNULL "gtk_action_create_tool_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ActionCreateToolItemMethodInfo -instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateToolItemMethodInfo a signature where - overloadedMethod _ = actionCreateToolItem - --- method Action::disconnect_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_disconnect_accelerator" gtk_action_disconnect_accelerator :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionDisconnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} -actionDisconnectAccelerator :: - (MonadIO m, ActionK a) => - a -- _obj - -> m () -- result -actionDisconnectAccelerator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_disconnect_accelerator _obj' - touchManagedPtr _obj - return () - -data ActionDisconnectAcceleratorMethodInfo -instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionDisconnectAcceleratorMethodInfo a signature where - overloadedMethod _ = actionDisconnectAccelerator - --- method Action::get_accel_closure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Closure") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_get_accel_closure" gtk_action_get_accel_closure :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr Closure) - -{-# DEPRECATED actionGetAccelClosure ["(Since version 3.10)","Use #GAction and #GtkMenu instead, which have no","equivalent for getting the accel closure"]#-} -actionGetAccelClosure :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Closure -- result -actionGetAccelClosure _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_accel_closure _obj' - checkUnexpectedReturnNULL "gtk_action_get_accel_closure" result - result' <- (newBoxed Closure) result - touchManagedPtr _obj - return result' - -data ActionGetAccelClosureMethodInfo -instance (signature ~ (m Closure), MonadIO m, ActionK a) => MethodInfo ActionGetAccelClosureMethodInfo a signature where - overloadedMethod _ = actionGetAccelClosure - --- method Action::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_accel_path" gtk_action_get_accel_path :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-} -actionGetAccelPath :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetAccelPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_accel_path _obj' - checkUnexpectedReturnNULL "gtk_action_get_accel_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetAccelPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetAccelPathMethodInfo a signature where - overloadedMethod _ = actionGetAccelPath - --- method Action::get_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_always_show_image" gtk_action_get_always_show_image :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_get_attribute_value() on a #GMenuItem","instead"]#-} -actionGetAlwaysShowImage :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetAlwaysShowImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_always_show_image _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetAlwaysShowImageMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = actionGetAlwaysShowImage - --- method Action::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_get_gicon" gtk_action_get_gicon :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr Gio.Icon) - -{-# DEPRECATED actionGetGicon ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-} -actionGetGicon :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Gio.Icon -- result -actionGetGicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_gicon _obj' - checkUnexpectedReturnNULL "gtk_action_get_gicon" result - result' <- (newObject Gio.Icon) result - touchManagedPtr _obj - return result' - -data ActionGetGiconMethodInfo -instance (signature ~ (m Gio.Icon), MonadIO m, ActionK a) => MethodInfo ActionGetGiconMethodInfo a signature where - overloadedMethod _ = actionGetGicon - --- method Action::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_icon_name" gtk_action_get_icon_name :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetIconName ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-} -actionGetIconName :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_action_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetIconNameMethodInfo a signature where - overloadedMethod _ = actionGetIconName - --- method Action::get_is_important --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_is_important" gtk_action_get_is_important :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-} -actionGetIsImportant :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetIsImportant _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_is_important _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetIsImportantMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetIsImportantMethodInfo a signature where - overloadedMethod _ = actionGetIsImportant - --- method Action::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_label" gtk_action_get_label :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetLabel ["(Since version 3.10)","Use #GAction instead, and get a label from a menu item","with g_menu_item_get_attribute_value(). For #GtkActionable widgets, use the","widget-specific API to get a label"]#-} -actionGetLabel :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_label _obj' - checkUnexpectedReturnNULL "gtk_action_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetLabelMethodInfo a signature where - overloadedMethod _ = actionGetLabel - --- method Action::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_name" gtk_action_get_name :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetName ["(Since version 3.10)","Use g_action_get_name() on a #GAction instead"]#-} -actionGetName :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_name _obj' - checkUnexpectedReturnNULL "gtk_action_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where - overloadedMethod _ = actionGetName - --- method Action::get_proxies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_get_proxies" gtk_action_get_proxies :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO (Ptr (GSList (Ptr Widget))) - -{-# DEPRECATED actionGetProxies ["(Since version 3.10)"]#-} -actionGetProxies :: - (MonadIO m, ActionK a) => - a -- _obj - -> m [Widget] -- result -actionGetProxies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_proxies _obj' - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - touchManagedPtr _obj - return result'' - -data ActionGetProxiesMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, ActionK a) => MethodInfo ActionGetProxiesMethodInfo a signature where - overloadedMethod _ = actionGetProxies - --- method Action::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_sensitive" gtk_action_get_sensitive :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-} -actionGetSensitive :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetSensitiveMethodInfo a signature where - overloadedMethod _ = actionGetSensitive - --- method Action::get_short_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_short_label" gtk_action_get_short_label :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-} -actionGetShortLabel :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetShortLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_short_label _obj' - checkUnexpectedReturnNULL "gtk_action_get_short_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetShortLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetShortLabelMethodInfo a signature where - overloadedMethod _ = actionGetShortLabel - --- method Action::get_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_stock_id" gtk_action_get_stock_id :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-} -actionGetStockId :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetStockId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_stock_id _obj' - checkUnexpectedReturnNULL "gtk_action_get_stock_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetStockIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetStockIdMethodInfo a signature where - overloadedMethod _ = actionGetStockId - --- method Action::get_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_tooltip" gtk_action_get_tooltip :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CString - -{-# DEPRECATED actionGetTooltip ["(Since version 3.10)","Use #GAction instead, and get tooltips from associated","#GtkActionable widgets with gtk_widget_get_tooltip_text()"]#-} -actionGetTooltip :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_tooltip _obj' - checkUnexpectedReturnNULL "gtk_action_get_tooltip" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetTooltipMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetTooltipMethodInfo a signature where - overloadedMethod _ = actionGetTooltip - --- method Action::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_visible" gtk_action_get_visible :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} -actionGetVisible :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleMethodInfo a signature where - overloadedMethod _ = actionGetVisible - --- method Action::get_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_visible_horizontal" gtk_action_get_visible_horizontal :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} -actionGetVisibleHorizontal :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetVisibleHorizontal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible_horizontal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetVisibleHorizontalMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleHorizontalMethodInfo a signature where - overloadedMethod _ = actionGetVisibleHorizontal - --- method Action::get_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_get_visible_vertical" gtk_action_get_visible_vertical :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionGetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} -actionGetVisibleVertical :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetVisibleVertical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible_vertical _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetVisibleVerticalMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleVerticalMethodInfo a signature where - overloadedMethod _ = actionGetVisibleVertical - --- method Action::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_is_sensitive" gtk_action_is_sensitive :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionIsSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-} -actionIsSensitive :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionIsSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsSensitiveMethodInfo a signature where - overloadedMethod _ = actionIsSensitive - --- method Action::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_is_visible" gtk_action_is_visible :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO CInt - -{-# DEPRECATED actionIsVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} -actionIsVisible :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsVisibleMethodInfo a signature where - overloadedMethod _ = actionIsVisible - --- method Action::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_set_accel_group" gtk_action_set_accel_group :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - -{-# DEPRECATED actionSetAccelGroup ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} -actionSetAccelGroup :: - (MonadIO m, ActionK a, AccelGroupK b) => - a -- _obj - -> Maybe (b) -- accelGroup - -> m () -- result -actionSetAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - gtk_action_set_accel_group _obj' maybeAccelGroup - touchManagedPtr _obj - whenJust accelGroup touchManagedPtr - return () - -data ActionSetAccelGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionK a, AccelGroupK b) => MethodInfo ActionSetAccelGroupMethodInfo a signature where - overloadedMethod _ = actionSetAccelGroup - --- method Action::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", 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 "gtk_action_set_accel_path" gtk_action_set_accel_path :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- accel_path : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-} -actionSetAccelPath :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- accelPath - -> m () -- result -actionSetAccelPath _obj accelPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelPath' <- textToCString accelPath - gtk_action_set_accel_path _obj' accelPath' - touchManagedPtr _obj - freeMem accelPath' - return () - -data ActionSetAccelPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAccelPathMethodInfo a signature where - overloadedMethod _ = actionSetAccelPath - --- method Action::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", 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 "gtk_action_set_always_show_image" gtk_action_set_always_show_image :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- always_show : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_set_icon() on a #GMenuItem instead, if the","item should have an image"]#-} -actionSetAlwaysShowImage :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- alwaysShow - -> m () -- result -actionSetAlwaysShowImage _obj alwaysShow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let alwaysShow' = (fromIntegral . fromEnum) alwaysShow - gtk_action_set_always_show_image _obj' alwaysShow' - touchManagedPtr _obj - return () - -data ActionSetAlwaysShowImageMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = actionSetAlwaysShowImage - --- method Action::set_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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 "gtk_action_set_gicon" gtk_action_set_gicon :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - -{-# DEPRECATED actionSetGicon ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-} -actionSetGicon :: - (MonadIO m, ActionK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -actionSetGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_action_set_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data ActionSetGiconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionK a, Gio.IconK b) => MethodInfo ActionSetGiconMethodInfo a signature where - overloadedMethod _ = actionSetGicon - --- method Action::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_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 "gtk_action_set_icon_name" gtk_action_set_icon_name :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- icon_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetIconName ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-} -actionSetIconName :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- iconName - -> m () -- result -actionSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - gtk_action_set_icon_name _obj' iconName' - touchManagedPtr _obj - freeMem iconName' - return () - -data ActionSetIconNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIconNameMethodInfo a signature where - overloadedMethod _ = actionSetIconName - --- method Action::set_is_important --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", 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 "gtk_action_set_is_important" gtk_action_set_is_important :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- is_important : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-} -actionSetIsImportant :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- isImportant - -> m () -- result -actionSetIsImportant _obj isImportant = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isImportant' = (fromIntegral . fromEnum) isImportant - gtk_action_set_is_important _obj' isImportant' - touchManagedPtr _obj - return () - -data ActionSetIsImportantMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIsImportantMethodInfo a signature where - overloadedMethod _ = actionSetIsImportant - --- method Action::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", 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 "gtk_action_set_label" gtk_action_set_label :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- label : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetLabel ["(Since version 3.10)","Use #GAction instead, and set a label on a menu item with","g_menu_item_set_label(). For #GtkActionable widgets, use the widget-specific","API to set a label"]#-} -actionSetLabel :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- label - -> m () -- result -actionSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_action_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - -data ActionSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetLabelMethodInfo a signature where - overloadedMethod _ = actionSetLabel - --- method Action::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_action_set_sensitive" gtk_action_set_sensitive :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- sensitive : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetSensitive ["(Since version 3.10)","Use g_simple_action_set_enabled() on a #GSimpleAction","instead"]#-} -actionSetSensitive :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- sensitive - -> m () -- result -actionSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_action_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - -data ActionSetSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetSensitiveMethodInfo a signature where - overloadedMethod _ = actionSetSensitive - --- method Action::set_short_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", 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 "gtk_action_set_short_label" gtk_action_set_short_label :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- short_label : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-} -actionSetShortLabel :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- shortLabel - -> m () -- result -actionSetShortLabel _obj shortLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - shortLabel' <- textToCString shortLabel - gtk_action_set_short_label _obj' shortLabel' - touchManagedPtr _obj - freeMem shortLabel' - return () - -data ActionSetShortLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetShortLabelMethodInfo a signature where - overloadedMethod _ = actionSetShortLabel - --- method Action::set_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_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 "gtk_action_set_stock_id" gtk_action_set_stock_id :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-} -actionSetStockId :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- stockId - -> m () -- result -actionSetStockId _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - gtk_action_set_stock_id _obj' stockId' - touchManagedPtr _obj - freeMem stockId' - return () - -data ActionSetStockIdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetStockIdMethodInfo a signature where - overloadedMethod _ = actionSetStockId - --- method Action::set_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", 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 "gtk_action_set_tooltip" gtk_action_set_tooltip :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CString -> -- tooltip : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionSetTooltip ["(Since version 3.10)","Use #GAction instead, and set tooltips on associated","#GtkActionable widgets with gtk_widget_set_tooltip_text()"]#-} -actionSetTooltip :: - (MonadIO m, ActionK a) => - a -- _obj - -> T.Text -- tooltip - -> m () -- result -actionSetTooltip _obj tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tooltip' <- textToCString tooltip - gtk_action_set_tooltip _obj' tooltip' - touchManagedPtr _obj - freeMem tooltip' - return () - -data ActionSetTooltipMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetTooltipMethodInfo a signature where - overloadedMethod _ = actionSetTooltip - --- method Action::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_action_set_visible" gtk_action_set_visible :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- visible : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} -actionSetVisible :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -actionSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_action_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data ActionSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleMethodInfo a signature where - overloadedMethod _ = actionSetVisible - --- method Action::set_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", 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 "gtk_action_set_visible_horizontal" gtk_action_set_visible_horizontal :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- visible_horizontal : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} -actionSetVisibleHorizontal :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- visibleHorizontal - -> m () -- result -actionSetVisibleHorizontal _obj visibleHorizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal - gtk_action_set_visible_horizontal _obj' visibleHorizontal' - touchManagedPtr _obj - return () - -data ActionSetVisibleHorizontalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleHorizontalMethodInfo a signature where - overloadedMethod _ = actionSetVisibleHorizontal - --- method Action::set_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", 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 "gtk_action_set_visible_vertical" gtk_action_set_visible_vertical :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - CInt -> -- visible_vertical : TBasicType TBoolean - IO () - -{-# DEPRECATED actionSetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} -actionSetVisibleVertical :: - (MonadIO m, ActionK a) => - a -- _obj - -> Bool -- visibleVertical - -> m () -- result -actionSetVisibleVertical _obj visibleVertical = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visibleVertical' = (fromIntegral . fromEnum) visibleVertical - gtk_action_set_visible_vertical _obj' visibleVertical' - touchManagedPtr _obj - return () - -data ActionSetVisibleVerticalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleVerticalMethodInfo a signature where - overloadedMethod _ = actionSetVisibleVertical - --- method Action::unblock_activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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 "gtk_action_unblock_activate" gtk_action_unblock_activate :: - Ptr Action -> -- _obj : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionUnblockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to enable the","#GSimpleAction instead"]#-} -actionUnblockActivate :: - (MonadIO m, ActionK a) => - a -- _obj - -> m () -- result -actionUnblockActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_unblock_activate _obj' - touchManagedPtr _obj - return () - -data ActionUnblockActivateMethodInfo -instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionUnblockActivateMethodInfo a signature where - overloadedMethod _ = actionUnblockActivate - - diff --git a/GI/Gtk/Objects/Action.hs-boot b/GI/Gtk/Objects/Action.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Action.hs-boot +++ /dev/null @@ -1,71 +0,0 @@ -module GI.Gtk.Objects.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) -instance GObject Action where -class GObject o => ActionK o -instance (GObject o, IsDescendantOf Action o) => ActionK o -data ActionActionGroupPropertyInfo -data ActionAlwaysShowImagePropertyInfo -data ActionGiconPropertyInfo -data ActionHideIfEmptyPropertyInfo -data ActionIconNamePropertyInfo -data ActionIsImportantPropertyInfo -data ActionLabelPropertyInfo -data ActionNamePropertyInfo -data ActionSensitivePropertyInfo -data ActionShortLabelPropertyInfo -data ActionStockIdPropertyInfo -data ActionTooltipPropertyInfo -data ActionVisiblePropertyInfo -data ActionVisibleHorizontalPropertyInfo -data ActionVisibleOverflownPropertyInfo -data ActionVisibleVerticalPropertyInfo -data ActionActivateSignalInfo -data ActionActivateMethodInfo -data ActionBlockActivateMethodInfo -data ActionConnectAcceleratorMethodInfo -data ActionCreateIconMethodInfo -data ActionCreateMenuMethodInfo -data ActionCreateMenuItemMethodInfo -data ActionCreateToolItemMethodInfo -data ActionDisconnectAcceleratorMethodInfo -data ActionGetAccelClosureMethodInfo -data ActionGetAccelPathMethodInfo -data ActionGetAlwaysShowImageMethodInfo -data ActionGetGiconMethodInfo -data ActionGetIconNameMethodInfo -data ActionGetIsImportantMethodInfo -data ActionGetLabelMethodInfo -data ActionGetNameMethodInfo -data ActionGetProxiesMethodInfo -data ActionGetSensitiveMethodInfo -data ActionGetShortLabelMethodInfo -data ActionGetStockIdMethodInfo -data ActionGetTooltipMethodInfo -data ActionGetVisibleMethodInfo -data ActionGetVisibleHorizontalMethodInfo -data ActionGetVisibleVerticalMethodInfo -data ActionIsSensitiveMethodInfo -data ActionIsVisibleMethodInfo -data ActionSetAccelGroupMethodInfo -data ActionSetAccelPathMethodInfo -data ActionSetAlwaysShowImageMethodInfo -data ActionSetGiconMethodInfo -data ActionSetIconNameMethodInfo -data ActionSetIsImportantMethodInfo -data ActionSetLabelMethodInfo -data ActionSetSensitiveMethodInfo -data ActionSetShortLabelMethodInfo -data ActionSetStockIdMethodInfo -data ActionSetTooltipMethodInfo -data ActionSetVisibleMethodInfo -data ActionSetVisibleHorizontalMethodInfo -data ActionSetVisibleVerticalMethodInfo -data ActionUnblockActivateMethodInfo diff --git a/GI/Gtk/Objects/ActionBar.hs b/GI/Gtk/Objects/ActionBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ActionBar.hs +++ /dev/null @@ -1,561 +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.Gtk.Objects.ActionBar - ( - --- * Exported types - ActionBar(..) , - ActionBarK , - toActionBar , - noActionBar , - - - -- * Methods --- ** actionBarGetCenterWidget - ActionBarGetCenterWidgetMethodInfo , - actionBarGetCenterWidget , - - --- ** actionBarNew - actionBarNew , - - --- ** actionBarPackEnd - ActionBarPackEndMethodInfo , - actionBarPackEnd , - - --- ** actionBarPackStart - ActionBarPackStartMethodInfo , - actionBarPackStart , - - --- ** actionBarSetCenterWidget - ActionBarSetCenterWidgetMethodInfo , - actionBarSetCenterWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ActionBar = ActionBar (ForeignPtr ActionBar) -foreign import ccall "gtk_action_bar_get_type" - c_gtk_action_bar_get_type :: IO GType - -type instance ParentTypes ActionBar = ActionBarParentTypes -type ActionBarParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject ActionBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_action_bar_get_type - - -class GObject o => ActionBarK o -instance (GObject o, IsDescendantOf ActionBar o) => ActionBarK o - -toActionBar :: ActionBarK o => o -> IO ActionBar -toActionBar = unsafeCastTo ActionBar - -noActionBar :: Maybe ActionBar -noActionBar = Nothing - -type family ResolveActionBarMethod (t :: Symbol) (o :: *) :: * where - ResolveActionBarMethod "activate" o = WidgetActivateMethodInfo - ResolveActionBarMethod "add" o = ContainerAddMethodInfo - ResolveActionBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveActionBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveActionBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveActionBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveActionBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveActionBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveActionBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveActionBarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveActionBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveActionBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveActionBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveActionBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveActionBarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveActionBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveActionBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveActionBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveActionBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveActionBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveActionBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveActionBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveActionBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveActionBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveActionBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveActionBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveActionBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveActionBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveActionBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveActionBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveActionBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveActionBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveActionBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveActionBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveActionBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveActionBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveActionBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveActionBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveActionBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveActionBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveActionBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveActionBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveActionBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveActionBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveActionBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveActionBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveActionBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveActionBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveActionBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveActionBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveActionBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveActionBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveActionBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveActionBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveActionBarMethod "draw" o = WidgetDrawMethodInfo - ResolveActionBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveActionBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveActionBarMethod "event" o = WidgetEventMethodInfo - ResolveActionBarMethod "forall" o = ContainerForallMethodInfo - ResolveActionBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionBarMethod "foreach" o = ContainerForeachMethodInfo - ResolveActionBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveActionBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveActionBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveActionBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveActionBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveActionBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveActionBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveActionBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveActionBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveActionBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveActionBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveActionBarMethod "hide" o = WidgetHideMethodInfo - ResolveActionBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveActionBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveActionBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveActionBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveActionBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveActionBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveActionBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveActionBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveActionBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveActionBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveActionBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveActionBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveActionBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveActionBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveActionBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveActionBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveActionBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveActionBarMethod "map" o = WidgetMapMethodInfo - ResolveActionBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveActionBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveActionBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveActionBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveActionBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveActionBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveActionBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveActionBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveActionBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveActionBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveActionBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveActionBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveActionBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveActionBarMethod "packEnd" o = ActionBarPackEndMethodInfo - ResolveActionBarMethod "packStart" o = ActionBarPackStartMethodInfo - ResolveActionBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveActionBarMethod "path" o = WidgetPathMethodInfo - ResolveActionBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveActionBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveActionBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveActionBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveActionBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveActionBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveActionBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveActionBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveActionBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveActionBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveActionBarMethod "remove" o = ContainerRemoveMethodInfo - ResolveActionBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveActionBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveActionBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveActionBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveActionBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveActionBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveActionBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveActionBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveActionBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveActionBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveActionBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveActionBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveActionBarMethod "show" o = WidgetShowMethodInfo - ResolveActionBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveActionBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveActionBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveActionBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveActionBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveActionBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveActionBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveActionBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveActionBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveActionBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveActionBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveActionBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveActionBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveActionBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveActionBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveActionBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveActionBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveActionBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveActionBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveActionBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveActionBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveActionBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveActionBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveActionBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveActionBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveActionBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveActionBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveActionBarMethod "getCenterWidget" o = ActionBarGetCenterWidgetMethodInfo - ResolveActionBarMethod "getChild" o = BinGetChildMethodInfo - ResolveActionBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveActionBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveActionBarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveActionBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveActionBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveActionBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveActionBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveActionBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveActionBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveActionBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveActionBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveActionBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveActionBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveActionBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveActionBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveActionBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveActionBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveActionBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveActionBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveActionBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveActionBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveActionBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveActionBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveActionBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveActionBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveActionBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveActionBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveActionBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveActionBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveActionBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveActionBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveActionBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveActionBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveActionBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveActionBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveActionBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveActionBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveActionBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveActionBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveActionBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveActionBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveActionBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveActionBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveActionBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveActionBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveActionBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveActionBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveActionBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveActionBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveActionBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveActionBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveActionBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveActionBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveActionBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveActionBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveActionBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveActionBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveActionBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveActionBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveActionBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveActionBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveActionBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveActionBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveActionBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveActionBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveActionBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveActionBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveActionBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveActionBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveActionBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveActionBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveActionBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveActionBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveActionBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveActionBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveActionBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveActionBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveActionBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveActionBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveActionBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveActionBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveActionBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveActionBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveActionBarMethod "setCenterWidget" o = ActionBarSetCenterWidgetMethodInfo - ResolveActionBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveActionBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveActionBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveActionBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveActionBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveActionBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveActionBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveActionBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveActionBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveActionBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveActionBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveActionBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveActionBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveActionBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveActionBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveActionBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveActionBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveActionBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveActionBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveActionBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveActionBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveActionBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveActionBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveActionBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveActionBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveActionBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveActionBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveActionBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveActionBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveActionBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveActionBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveActionBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveActionBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveActionBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveActionBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveActionBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveActionBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveActionBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveActionBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveActionBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveActionBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveActionBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveActionBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveActionBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveActionBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveActionBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveActionBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveActionBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveActionBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveActionBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveActionBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionBarMethod t ActionBar, MethodInfo info ActionBar p) => IsLabelProxy t (ActionBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionBarMethod t ActionBar, MethodInfo info ActionBar p) => IsLabel t (ActionBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ActionBar = ActionBarAttributeList -type ActionBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ActionBar = ActionBarSignalList -type ActionBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ActionBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ActionBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_bar_new" gtk_action_bar_new :: - IO (Ptr ActionBar) - - -actionBarNew :: - (MonadIO m) => - m ActionBar -- result -actionBarNew = liftIO $ do - result <- gtk_action_bar_new - checkUnexpectedReturnNULL "gtk_action_bar_new" result - result' <- (newObject ActionBar) result - return result' - --- method ActionBar::get_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_bar_get_center_widget" gtk_action_bar_get_center_widget :: - Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar" - IO (Ptr Widget) - - -actionBarGetCenterWidget :: - (MonadIO m, ActionBarK a) => - a -- _obj - -> m Widget -- result -actionBarGetCenterWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_bar_get_center_widget _obj' - checkUnexpectedReturnNULL "gtk_action_bar_get_center_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ActionBarGetCenterWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, ActionBarK a) => MethodInfo ActionBarGetCenterWidgetMethodInfo a signature where - overloadedMethod _ = actionBarGetCenterWidget - --- method ActionBar::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_action_bar_pack_end" gtk_action_bar_pack_end :: - Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -actionBarPackEnd :: - (MonadIO m, ActionBarK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -actionBarPackEnd _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_action_bar_pack_end _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ActionBarPackEndMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarPackEndMethodInfo a signature where - overloadedMethod _ = actionBarPackEnd - --- method ActionBar::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_action_bar_pack_start" gtk_action_bar_pack_start :: - Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -actionBarPackStart :: - (MonadIO m, ActionBarK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -actionBarPackStart _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_action_bar_pack_start _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ActionBarPackStartMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarPackStartMethodInfo a signature where - overloadedMethod _ = actionBarPackStart - --- method ActionBar::set_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_bar_set_center_widget" gtk_action_bar_set_center_widget :: - Ptr ActionBar -> -- _obj : TInterface "Gtk" "ActionBar" - Ptr Widget -> -- center_widget : TInterface "Gtk" "Widget" - IO () - - -actionBarSetCenterWidget :: - (MonadIO m, ActionBarK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- centerWidget - -> m () -- result -actionBarSetCenterWidget _obj centerWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCenterWidget <- case centerWidget of - Nothing -> return nullPtr - Just jCenterWidget -> do - let jCenterWidget' = unsafeManagedPtrCastPtr jCenterWidget - return jCenterWidget' - gtk_action_bar_set_center_widget _obj' maybeCenterWidget - touchManagedPtr _obj - whenJust centerWidget touchManagedPtr - return () - -data ActionBarSetCenterWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarSetCenterWidgetMethodInfo a signature where - overloadedMethod _ = actionBarSetCenterWidget - - diff --git a/GI/Gtk/Objects/ActionBar.hs-boot b/GI/Gtk/Objects/ActionBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ActionBar.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.ActionBar 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 ActionBar = ActionBar (ForeignPtr ActionBar) -instance GObject ActionBar where -class GObject o => ActionBarK o -instance (GObject o, IsDescendantOf ActionBar o) => ActionBarK o -data ActionBarGetCenterWidgetMethodInfo -data ActionBarPackEndMethodInfo -data ActionBarPackStartMethodInfo -data ActionBarSetCenterWidgetMethodInfo diff --git a/GI/Gtk/Objects/ActionGroup.hs b/GI/Gtk/Objects/ActionGroup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ActionGroup.hs +++ /dev/null @@ -1,1096 +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.Gtk.Objects.ActionGroup - ( - --- * Exported types - ActionGroup(..) , - ActionGroupK , - toActionGroup , - noActionGroup , - - - -- * Methods --- ** actionGroupAddAction - ActionGroupAddActionMethodInfo , - actionGroupAddAction , - - --- ** actionGroupAddActionWithAccel - ActionGroupAddActionWithAccelMethodInfo , - actionGroupAddActionWithAccel , - - --- ** actionGroupGetAccelGroup - ActionGroupGetAccelGroupMethodInfo , - actionGroupGetAccelGroup , - - --- ** actionGroupGetAction - ActionGroupGetActionMethodInfo , - actionGroupGetAction , - - --- ** actionGroupGetName - ActionGroupGetNameMethodInfo , - actionGroupGetName , - - --- ** actionGroupGetSensitive - ActionGroupGetSensitiveMethodInfo , - actionGroupGetSensitive , - - --- ** actionGroupGetVisible - ActionGroupGetVisibleMethodInfo , - actionGroupGetVisible , - - --- ** actionGroupListActions - ActionGroupListActionsMethodInfo , - actionGroupListActions , - - --- ** actionGroupNew - actionGroupNew , - - --- ** actionGroupRemoveAction - ActionGroupRemoveActionMethodInfo , - actionGroupRemoveAction , - - --- ** actionGroupSetAccelGroup - ActionGroupSetAccelGroupMethodInfo , - actionGroupSetAccelGroup , - - --- ** actionGroupSetSensitive - ActionGroupSetSensitiveMethodInfo , - actionGroupSetSensitive , - - --- ** actionGroupSetTranslateFunc - ActionGroupSetTranslateFuncMethodInfo , - actionGroupSetTranslateFunc , - - --- ** actionGroupSetTranslationDomain - ActionGroupSetTranslationDomainMethodInfo, - actionGroupSetTranslationDomain , - - --- ** actionGroupSetVisible - ActionGroupSetVisibleMethodInfo , - actionGroupSetVisible , - - --- ** actionGroupTranslateString - ActionGroupTranslateStringMethodInfo , - actionGroupTranslateString , - - - - - -- * Properties --- ** AccelGroup - ActionGroupAccelGroupPropertyInfo , - actionGroupAccelGroup , - clearActionGroupAccelGroup , - constructActionGroupAccelGroup , - getActionGroupAccelGroup , - setActionGroupAccelGroup , - - --- ** Name - ActionGroupNamePropertyInfo , - actionGroupName , - constructActionGroupName , - getActionGroupName , - - --- ** Sensitive - ActionGroupSensitivePropertyInfo , - actionGroupSensitive , - constructActionGroupSensitive , - getActionGroupSensitive , - setActionGroupSensitive , - - --- ** Visible - ActionGroupVisiblePropertyInfo , - actionGroupVisible , - constructActionGroupVisible , - getActionGroupVisible , - setActionGroupVisible , - - - - - -- * Signals --- ** ConnectProxy - ActionGroupConnectProxyCallback , - ActionGroupConnectProxyCallbackC , - ActionGroupConnectProxySignalInfo , - actionGroupConnectProxyCallbackWrapper , - actionGroupConnectProxyClosure , - afterActionGroupConnectProxy , - mkActionGroupConnectProxyCallback , - noActionGroupConnectProxyCallback , - onActionGroupConnectProxy , - - --- ** DisconnectProxy - ActionGroupDisconnectProxyCallback , - ActionGroupDisconnectProxyCallbackC , - ActionGroupDisconnectProxySignalInfo , - actionGroupDisconnectProxyCallbackWrapper, - actionGroupDisconnectProxyClosure , - afterActionGroupDisconnectProxy , - mkActionGroupDisconnectProxyCallback , - noActionGroupDisconnectProxyCallback , - onActionGroupDisconnectProxy , - - --- ** PostActivate - ActionGroupPostActivateCallback , - ActionGroupPostActivateCallbackC , - ActionGroupPostActivateSignalInfo , - actionGroupPostActivateCallbackWrapper , - actionGroupPostActivateClosure , - afterActionGroupPostActivate , - mkActionGroupPostActivateCallback , - noActionGroupPostActivateCallback , - onActionGroupPostActivate , - - --- ** PreActivate - ActionGroupPreActivateCallback , - ActionGroupPreActivateCallbackC , - ActionGroupPreActivateSignalInfo , - actionGroupPreActivateCallbackWrapper , - actionGroupPreActivateClosure , - afterActionGroupPreActivate , - mkActionGroupPreActivateCallback , - noActionGroupPreActivateCallback , - onActionGroupPreActivate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup) -foreign import ccall "gtk_action_group_get_type" - c_gtk_action_group_get_type :: IO GType - -type instance ParentTypes ActionGroup = ActionGroupParentTypes -type ActionGroupParentTypes = '[GObject.Object, Buildable] - -instance GObject ActionGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_action_group_get_type - - -class GObject o => ActionGroupK o -instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o - -toActionGroup :: ActionGroupK o => o -> IO ActionGroup -toActionGroup = unsafeCastTo ActionGroup - -noActionGroup :: Maybe ActionGroup -noActionGroup = Nothing - -type family ResolveActionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveActionGroupMethod "addAction" o = ActionGroupAddActionMethodInfo - ResolveActionGroupMethod "addActionWithAccel" o = ActionGroupAddActionWithAccelMethodInfo - ResolveActionGroupMethod "addChild" o = BuildableAddChildMethodInfo - ResolveActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionGroupMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveActionGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveActionGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveActionGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionGroupMethod "removeAction" o = ActionGroupRemoveActionMethodInfo - ResolveActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionGroupMethod "translateString" o = ActionGroupTranslateStringMethodInfo - ResolveActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionGroupMethod "getAccelGroup" o = ActionGroupGetAccelGroupMethodInfo - ResolveActionGroupMethod "getAction" o = ActionGroupGetActionMethodInfo - ResolveActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionGroupMethod "getSensitive" o = ActionGroupGetSensitiveMethodInfo - ResolveActionGroupMethod "getVisible" o = ActionGroupGetVisibleMethodInfo - ResolveActionGroupMethod "setAccelGroup" o = ActionGroupSetAccelGroupMethodInfo - ResolveActionGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionGroupMethod "setName" o = BuildableSetNameMethodInfo - ResolveActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionGroupMethod "setSensitive" o = ActionGroupSetSensitiveMethodInfo - ResolveActionGroupMethod "setTranslateFunc" o = ActionGroupSetTranslateFuncMethodInfo - ResolveActionGroupMethod "setTranslationDomain" o = ActionGroupSetTranslationDomainMethodInfo - ResolveActionGroupMethod "setVisible" o = ActionGroupSetVisibleMethodInfo - ResolveActionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabelProxy t (ActionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabel t (ActionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ActionGroup::connect-proxy -type ActionGroupConnectProxyCallback = - Action -> - Widget -> - IO () - -noActionGroupConnectProxyCallback :: Maybe ActionGroupConnectProxyCallback -noActionGroupConnectProxyCallback = Nothing - -type ActionGroupConnectProxyCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupConnectProxyCallback :: ActionGroupConnectProxyCallbackC -> IO (FunPtr ActionGroupConnectProxyCallbackC) - -actionGroupConnectProxyClosure :: ActionGroupConnectProxyCallback -> IO Closure -actionGroupConnectProxyClosure cb = newCClosure =<< mkActionGroupConnectProxyCallback wrapped - where wrapped = actionGroupConnectProxyCallbackWrapper cb - -actionGroupConnectProxyCallbackWrapper :: - ActionGroupConnectProxyCallback -> - Ptr () -> - Ptr Action -> - Ptr Widget -> - Ptr () -> - IO () -actionGroupConnectProxyCallbackWrapper _cb _ action proxy _ = do - action' <- (newObject Action) action - proxy' <- (newObject Widget) proxy - _cb action' proxy' - -onActionGroupConnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId -onActionGroupConnectProxy obj cb = liftIO $ connectActionGroupConnectProxy obj cb SignalConnectBefore -afterActionGroupConnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId -afterActionGroupConnectProxy obj cb = connectActionGroupConnectProxy obj cb SignalConnectAfter - -connectActionGroupConnectProxy :: (GObject a, MonadIO m) => - a -> ActionGroupConnectProxyCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupConnectProxy obj cb after = liftIO $ do - cb' <- mkActionGroupConnectProxyCallback (actionGroupConnectProxyCallbackWrapper cb) - connectSignalFunPtr obj "connect-proxy" cb' after - --- signal ActionGroup::disconnect-proxy -type ActionGroupDisconnectProxyCallback = - Action -> - Widget -> - IO () - -noActionGroupDisconnectProxyCallback :: Maybe ActionGroupDisconnectProxyCallback -noActionGroupDisconnectProxyCallback = Nothing - -type ActionGroupDisconnectProxyCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupDisconnectProxyCallback :: ActionGroupDisconnectProxyCallbackC -> IO (FunPtr ActionGroupDisconnectProxyCallbackC) - -actionGroupDisconnectProxyClosure :: ActionGroupDisconnectProxyCallback -> IO Closure -actionGroupDisconnectProxyClosure cb = newCClosure =<< mkActionGroupDisconnectProxyCallback wrapped - where wrapped = actionGroupDisconnectProxyCallbackWrapper cb - -actionGroupDisconnectProxyCallbackWrapper :: - ActionGroupDisconnectProxyCallback -> - Ptr () -> - Ptr Action -> - Ptr Widget -> - Ptr () -> - IO () -actionGroupDisconnectProxyCallbackWrapper _cb _ action proxy _ = do - action' <- (newObject Action) action - proxy' <- (newObject Widget) proxy - _cb action' proxy' - -onActionGroupDisconnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId -onActionGroupDisconnectProxy obj cb = liftIO $ connectActionGroupDisconnectProxy obj cb SignalConnectBefore -afterActionGroupDisconnectProxy :: (GObject a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId -afterActionGroupDisconnectProxy obj cb = connectActionGroupDisconnectProxy obj cb SignalConnectAfter - -connectActionGroupDisconnectProxy :: (GObject a, MonadIO m) => - a -> ActionGroupDisconnectProxyCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupDisconnectProxy obj cb after = liftIO $ do - cb' <- mkActionGroupDisconnectProxyCallback (actionGroupDisconnectProxyCallbackWrapper cb) - connectSignalFunPtr obj "disconnect-proxy" cb' after - --- signal ActionGroup::post-activate -type ActionGroupPostActivateCallback = - Action -> - IO () - -noActionGroupPostActivateCallback :: Maybe ActionGroupPostActivateCallback -noActionGroupPostActivateCallback = Nothing - -type ActionGroupPostActivateCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupPostActivateCallback :: ActionGroupPostActivateCallbackC -> IO (FunPtr ActionGroupPostActivateCallbackC) - -actionGroupPostActivateClosure :: ActionGroupPostActivateCallback -> IO Closure -actionGroupPostActivateClosure cb = newCClosure =<< mkActionGroupPostActivateCallback wrapped - where wrapped = actionGroupPostActivateCallbackWrapper cb - -actionGroupPostActivateCallbackWrapper :: - ActionGroupPostActivateCallback -> - Ptr () -> - Ptr Action -> - Ptr () -> - IO () -actionGroupPostActivateCallbackWrapper _cb _ action _ = do - action' <- (newObject Action) action - _cb action' - -onActionGroupPostActivate :: (GObject a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId -onActionGroupPostActivate obj cb = liftIO $ connectActionGroupPostActivate obj cb SignalConnectBefore -afterActionGroupPostActivate :: (GObject a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId -afterActionGroupPostActivate obj cb = connectActionGroupPostActivate obj cb SignalConnectAfter - -connectActionGroupPostActivate :: (GObject a, MonadIO m) => - a -> ActionGroupPostActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupPostActivate obj cb after = liftIO $ do - cb' <- mkActionGroupPostActivateCallback (actionGroupPostActivateCallbackWrapper cb) - connectSignalFunPtr obj "post-activate" cb' after - --- signal ActionGroup::pre-activate -type ActionGroupPreActivateCallback = - Action -> - IO () - -noActionGroupPreActivateCallback :: Maybe ActionGroupPreActivateCallback -noActionGroupPreActivateCallback = Nothing - -type ActionGroupPreActivateCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupPreActivateCallback :: ActionGroupPreActivateCallbackC -> IO (FunPtr ActionGroupPreActivateCallbackC) - -actionGroupPreActivateClosure :: ActionGroupPreActivateCallback -> IO Closure -actionGroupPreActivateClosure cb = newCClosure =<< mkActionGroupPreActivateCallback wrapped - where wrapped = actionGroupPreActivateCallbackWrapper cb - -actionGroupPreActivateCallbackWrapper :: - ActionGroupPreActivateCallback -> - Ptr () -> - Ptr Action -> - Ptr () -> - IO () -actionGroupPreActivateCallbackWrapper _cb _ action _ = do - action' <- (newObject Action) action - _cb action' - -onActionGroupPreActivate :: (GObject a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId -onActionGroupPreActivate obj cb = liftIO $ connectActionGroupPreActivate obj cb SignalConnectBefore -afterActionGroupPreActivate :: (GObject a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId -afterActionGroupPreActivate obj cb = connectActionGroupPreActivate obj cb SignalConnectAfter - -connectActionGroupPreActivate :: (GObject a, MonadIO m) => - a -> ActionGroupPreActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupPreActivate obj cb after = liftIO $ do - cb' <- mkActionGroupPreActivateCallback (actionGroupPreActivateCallbackWrapper cb) - connectSignalFunPtr obj "pre-activate" cb' after - --- VVV Prop "accel-group" - -- Type: TInterface "Gtk" "AccelGroup" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m AccelGroup -getActionGroupAccelGroup obj = liftIO $ checkUnexpectedNothing "getActionGroupAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup - -setActionGroupAccelGroup :: (MonadIO m, ActionGroupK o, AccelGroupK a) => o -> a -> m () -setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) - -constructActionGroupAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) - -clearActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m () -clearActionGroupAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup) - -data ActionGroupAccelGroupPropertyInfo -instance AttrInfo ActionGroupAccelGroupPropertyInfo where - type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK - type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK - type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup - type AttrLabel ActionGroupAccelGroupPropertyInfo = "accel-group" - attrGet _ = getActionGroupAccelGroup - attrSet _ = setActionGroupAccelGroup - attrConstruct _ = constructActionGroupAccelGroup - attrClear _ = clearActionGroupAccelGroup - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getActionGroupName :: (MonadIO m, ActionGroupK o) => o -> m T.Text -getActionGroupName obj = liftIO $ checkUnexpectedNothing "getActionGroupName" $ getObjectPropertyString obj "name" - -constructActionGroupName :: T.Text -> IO ([Char], GValue) -constructActionGroupName val = constructObjectPropertyString "name" (Just val) - -data ActionGroupNamePropertyInfo -instance AttrInfo ActionGroupNamePropertyInfo where - type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK - type AttrGetType ActionGroupNamePropertyInfo = T.Text - type AttrLabel ActionGroupNamePropertyInfo = "name" - attrGet _ = getActionGroupName - attrSet _ = undefined - attrConstruct _ = constructActionGroupName - attrClear _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionGroupSensitive :: (MonadIO m, ActionGroupK o) => o -> m Bool -getActionGroupSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setActionGroupSensitive :: (MonadIO m, ActionGroupK o) => o -> Bool -> m () -setActionGroupSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructActionGroupSensitive :: Bool -> IO ([Char], GValue) -constructActionGroupSensitive val = constructObjectPropertyBool "sensitive" val - -data ActionGroupSensitivePropertyInfo -instance AttrInfo ActionGroupSensitivePropertyInfo where - type AttrAllowedOps ActionGroupSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionGroupSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionGroupSensitivePropertyInfo = ActionGroupK - type AttrGetType ActionGroupSensitivePropertyInfo = Bool - type AttrLabel ActionGroupSensitivePropertyInfo = "sensitive" - attrGet _ = getActionGroupSensitive - attrSet _ = setActionGroupSensitive - attrConstruct _ = constructActionGroupSensitive - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getActionGroupVisible :: (MonadIO m, ActionGroupK o) => o -> m Bool -getActionGroupVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setActionGroupVisible :: (MonadIO m, ActionGroupK o) => o -> Bool -> m () -setActionGroupVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructActionGroupVisible :: Bool -> IO ([Char], GValue) -constructActionGroupVisible val = constructObjectPropertyBool "visible" val - -data ActionGroupVisiblePropertyInfo -instance AttrInfo ActionGroupVisiblePropertyInfo where - type AttrAllowedOps ActionGroupVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionGroupVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ActionGroupVisiblePropertyInfo = ActionGroupK - type AttrGetType ActionGroupVisiblePropertyInfo = Bool - type AttrLabel ActionGroupVisiblePropertyInfo = "visible" - attrGet _ = getActionGroupVisible - attrSet _ = setActionGroupVisible - attrConstruct _ = constructActionGroupVisible - attrClear _ = undefined - -type instance AttributeList ActionGroup = ActionGroupAttributeList -type ActionGroupAttributeList = ('[ '("accelGroup", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) - -actionGroupAccelGroup :: AttrLabelProxy "accelGroup" -actionGroupAccelGroup = AttrLabelProxy - -actionGroupName :: AttrLabelProxy "name" -actionGroupName = AttrLabelProxy - -actionGroupSensitive :: AttrLabelProxy "sensitive" -actionGroupSensitive = AttrLabelProxy - -actionGroupVisible :: AttrLabelProxy "visible" -actionGroupVisible = AttrLabelProxy - -data ActionGroupConnectProxySignalInfo -instance SignalInfo ActionGroupConnectProxySignalInfo where - type HaskellCallbackType ActionGroupConnectProxySignalInfo = ActionGroupConnectProxyCallback - connectSignal _ = connectActionGroupConnectProxy - -data ActionGroupDisconnectProxySignalInfo -instance SignalInfo ActionGroupDisconnectProxySignalInfo where - type HaskellCallbackType ActionGroupDisconnectProxySignalInfo = ActionGroupDisconnectProxyCallback - connectSignal _ = connectActionGroupDisconnectProxy - -data ActionGroupPostActivateSignalInfo -instance SignalInfo ActionGroupPostActivateSignalInfo where - type HaskellCallbackType ActionGroupPostActivateSignalInfo = ActionGroupPostActivateCallback - connectSignal _ = connectActionGroupPostActivate - -data ActionGroupPreActivateSignalInfo -instance SignalInfo ActionGroupPreActivateSignalInfo where - type HaskellCallbackType ActionGroupPreActivateSignalInfo = ActionGroupPreActivateCallback - connectSignal _ = connectActionGroupPreActivate - -type instance SignalList ActionGroup = ActionGroupSignalList -type ActionGroupSignalList = ('[ '("connectProxy", ActionGroupConnectProxySignalInfo), '("disconnectProxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("postActivate", ActionGroupPostActivateSignalInfo), '("preActivate", ActionGroupPreActivateSignalInfo)] :: [(Symbol, *)]) - --- method ActionGroup::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ActionGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_new" gtk_action_group_new :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr ActionGroup) - -{-# DEPRECATED actionGroupNew ["(Since version 3.10)"]#-} -actionGroupNew :: - (MonadIO m) => - T.Text -- name - -> m ActionGroup -- result -actionGroupNew name = liftIO $ do - name' <- textToCString name - result <- gtk_action_group_new name' - checkUnexpectedReturnNULL "gtk_action_group_new" result - result' <- (wrapObject ActionGroup) result - freeMem name' - return result' - --- method ActionGroup::add_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", 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 "gtk_action_group_add_action" gtk_action_group_add_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - Ptr Action -> -- action : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionGroupAddAction ["(Since version 3.10)"]#-} -actionGroupAddAction :: - (MonadIO m, ActionGroupK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -actionGroupAddAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - gtk_action_group_add_action _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data ActionGroupAddActionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupAddActionMethodInfo a signature where - overloadedMethod _ = actionGroupAddAction - --- method ActionGroup::add_action_with_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_add_action_with_accel" gtk_action_group_add_action_with_accel :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - Ptr Action -> -- action : TInterface "Gtk" "Action" - CString -> -- accelerator : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionGroupAddActionWithAccel ["(Since version 3.10)"]#-} -actionGroupAddActionWithAccel :: - (MonadIO m, ActionGroupK a, ActionK b) => - a -- _obj - -> b -- action - -> Maybe (T.Text) -- accelerator - -> m () -- result -actionGroupAddActionWithAccel _obj action accelerator = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - maybeAccelerator <- case accelerator of - Nothing -> return nullPtr - Just jAccelerator -> do - jAccelerator' <- textToCString jAccelerator - return jAccelerator' - gtk_action_group_add_action_with_accel _obj' action' maybeAccelerator - touchManagedPtr _obj - touchManagedPtr action - freeMem maybeAccelerator - return () - -data ActionGroupAddActionWithAccelMethodInfo -instance (signature ~ (b -> Maybe (T.Text) -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupAddActionWithAccelMethodInfo a signature where - overloadedMethod _ = actionGroupAddActionWithAccel - --- method ActionGroup::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_get_accel_group" gtk_action_group_get_accel_group :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - IO (Ptr AccelGroup) - -{-# DEPRECATED actionGroupGetAccelGroup ["(Since version 3.10)"]#-} -actionGroupGetAccelGroup :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m AccelGroup -- result -actionGroupGetAccelGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_accel_group _obj' - checkUnexpectedReturnNULL "gtk_action_group_get_accel_group" result - result' <- (newObject AccelGroup) result - touchManagedPtr _obj - return result' - -data ActionGroupGetAccelGroupMethodInfo -instance (signature ~ (m AccelGroup), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetAccelGroupMethodInfo a signature where - overloadedMethod _ = actionGroupGetAccelGroup - --- method ActionGroup::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Action") --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_get_action" gtk_action_group_get_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr Action) - -{-# DEPRECATED actionGroupGetAction ["(Since version 3.10)"]#-} -actionGroupGetAction :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m Action -- result -actionGroupGetAction _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- gtk_action_group_get_action _obj' actionName' - checkUnexpectedReturnNULL "gtk_action_group_get_action" result - result' <- (newObject Action) result - touchManagedPtr _obj - freeMem actionName' - return result' - -data ActionGroupGetActionMethodInfo -instance (signature ~ (T.Text -> m Action), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionMethodInfo a signature where - overloadedMethod _ = actionGroupGetAction - --- method ActionGroup::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", 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 "gtk_action_group_get_name" gtk_action_group_get_name :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - IO CString - -{-# DEPRECATED actionGroupGetName ["(Since version 3.10)"]#-} -actionGroupGetName :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m T.Text -- result -actionGroupGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_name _obj' - checkUnexpectedReturnNULL "gtk_action_group_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGroupGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetNameMethodInfo a signature where - overloadedMethod _ = actionGroupGetName - --- method ActionGroup::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", 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 "gtk_action_group_get_sensitive" gtk_action_group_get_sensitive :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - IO CInt - -{-# DEPRECATED actionGroupGetSensitive ["(Since version 3.10)"]#-} -actionGroupGetSensitive :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m Bool -- result -actionGroupGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGroupGetSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetSensitiveMethodInfo a signature where - overloadedMethod _ = actionGroupGetSensitive - --- method ActionGroup::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", 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 "gtk_action_group_get_visible" gtk_action_group_get_visible :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - IO CInt - -{-# DEPRECATED actionGroupGetVisible ["(Since version 3.10)"]#-} -actionGroupGetVisible :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m Bool -- result -actionGroupGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGroupGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetVisibleMethodInfo a signature where - overloadedMethod _ = actionGroupGetVisible - --- method ActionGroup::list_actions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Action")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_list_actions" gtk_action_group_list_actions :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - IO (Ptr (GList (Ptr Action))) - -{-# DEPRECATED actionGroupListActions ["(Since version 3.10)"]#-} -actionGroupListActions :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m [Action] -- result -actionGroupListActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_list_actions _obj' - result' <- unpackGList result - result'' <- mapM (newObject Action) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ActionGroupListActionsMethodInfo -instance (signature ~ (m [Action]), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupListActionsMethodInfo a signature where - overloadedMethod _ = actionGroupListActions - --- method ActionGroup::remove_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", 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 "gtk_action_group_remove_action" gtk_action_group_remove_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - Ptr Action -> -- action : TInterface "Gtk" "Action" - IO () - -{-# DEPRECATED actionGroupRemoveAction ["(Since version 3.10)"]#-} -actionGroupRemoveAction :: - (MonadIO m, ActionGroupK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -actionGroupRemoveAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - gtk_action_group_remove_action _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data ActionGroupRemoveActionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupRemoveActionMethodInfo a signature where - overloadedMethod _ = actionGroupRemoveAction - --- method ActionGroup::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_set_accel_group" gtk_action_group_set_accel_group :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - -{-# DEPRECATED actionGroupSetAccelGroup ["(Since version 3.10)"]#-} -actionGroupSetAccelGroup :: - (MonadIO m, ActionGroupK a, AccelGroupK b) => - a -- _obj - -> Maybe (b) -- accelGroup - -> m () -- result -actionGroupSetAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - gtk_action_group_set_accel_group _obj' maybeAccelGroup - touchManagedPtr _obj - whenJust accelGroup touchManagedPtr - return () - -data ActionGroupSetAccelGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionGroupK a, AccelGroupK b) => MethodInfo ActionGroupSetAccelGroupMethodInfo a signature where - overloadedMethod _ = actionGroupSetAccelGroup - --- method ActionGroup::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_action_group_set_sensitive" gtk_action_group_set_sensitive :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - CInt -> -- sensitive : TBasicType TBoolean - IO () - -{-# DEPRECATED actionGroupSetSensitive ["(Since version 3.10)"]#-} -actionGroupSetSensitive :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> Bool -- sensitive - -> m () -- result -actionGroupSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_action_group_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - -data ActionGroupSetSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetSensitiveMethodInfo a signature where - overloadedMethod _ = actionGroupSetSensitive - --- method ActionGroup::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_set_translate_func" gtk_action_group_set_translate_func :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED actionGroupSetTranslateFunc ["(Since version 3.10)"]#-} -actionGroupSetTranslateFunc :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> TranslateFunc -- func - -> m () -- result -actionGroupSetTranslateFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTranslateFunc (translateFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - gtk_action_group_set_translate_func _obj' func' data_ notify - touchManagedPtr _obj - return () - -data ActionGroupSetTranslateFuncMethodInfo -instance (signature ~ (TranslateFunc -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetTranslateFuncMethodInfo a signature where - overloadedMethod _ = actionGroupSetTranslateFunc - --- method ActionGroup::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_set_translation_domain" gtk_action_group_set_translation_domain :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - CString -> -- domain : TBasicType TUTF8 - IO () - -{-# DEPRECATED actionGroupSetTranslationDomain ["(Since version 3.10)"]#-} -actionGroupSetTranslationDomain :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> Maybe (T.Text) -- domain - -> m () -- result -actionGroupSetTranslationDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - gtk_action_group_set_translation_domain _obj' maybeDomain - touchManagedPtr _obj - freeMem maybeDomain - return () - -data ActionGroupSetTranslationDomainMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetTranslationDomainMethodInfo a signature where - overloadedMethod _ = actionGroupSetTranslationDomain - --- method ActionGroup::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_action_group_set_visible" gtk_action_group_set_visible :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - CInt -> -- visible : TBasicType TBoolean - IO () - -{-# DEPRECATED actionGroupSetVisible ["(Since version 3.10)"]#-} -actionGroupSetVisible :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -actionGroupSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_action_group_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data ActionGroupSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetVisibleMethodInfo a signature where - overloadedMethod _ = actionGroupSetVisible - --- method ActionGroup::translate_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", 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 : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_action_group_translate_string" gtk_action_group_translate_string :: - Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" - CString -> -- string : TBasicType TUTF8 - IO CString - -{-# DEPRECATED actionGroupTranslateString ["(Since version 3.10)"]#-} -actionGroupTranslateString :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- string - -> m T.Text -- result -actionGroupTranslateString _obj string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - string' <- textToCString string - result <- gtk_action_group_translate_string _obj' string' - checkUnexpectedReturnNULL "gtk_action_group_translate_string" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem string' - return result' - -data ActionGroupTranslateStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupTranslateStringMethodInfo a signature where - overloadedMethod _ = actionGroupTranslateString - - diff --git a/GI/Gtk/Objects/ActionGroup.hs-boot b/GI/Gtk/Objects/ActionGroup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ActionGroup.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Objects.ActionGroup 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 ActionGroup = ActionGroup (ForeignPtr ActionGroup) -instance GObject ActionGroup where -class GObject o => ActionGroupK o -instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o -data ActionGroupAccelGroupPropertyInfo -data ActionGroupNamePropertyInfo -data ActionGroupSensitivePropertyInfo -data ActionGroupVisiblePropertyInfo -data ActionGroupConnectProxySignalInfo -data ActionGroupDisconnectProxySignalInfo -data ActionGroupPostActivateSignalInfo -data ActionGroupPreActivateSignalInfo -data ActionGroupAddActionMethodInfo -data ActionGroupAddActionWithAccelMethodInfo -data ActionGroupGetAccelGroupMethodInfo -data ActionGroupGetActionMethodInfo -data ActionGroupGetNameMethodInfo -data ActionGroupGetSensitiveMethodInfo -data ActionGroupGetVisibleMethodInfo -data ActionGroupListActionsMethodInfo -data ActionGroupRemoveActionMethodInfo -data ActionGroupSetAccelGroupMethodInfo -data ActionGroupSetSensitiveMethodInfo -data ActionGroupSetTranslateFuncMethodInfo -data ActionGroupSetTranslationDomainMethodInfo -data ActionGroupSetVisibleMethodInfo -data ActionGroupTranslateStringMethodInfo diff --git a/GI/Gtk/Objects/Adjustment.hs b/GI/Gtk/Objects/Adjustment.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Adjustment.hs +++ /dev/null @@ -1,1086 +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.Gtk.Objects.Adjustment - ( - --- * Exported types - Adjustment(..) , - AdjustmentK , - toAdjustment , - noAdjustment , - - - -- * Methods --- ** adjustmentChanged - AdjustmentChangedMethodInfo , - adjustmentChanged , - - --- ** adjustmentClampPage - AdjustmentClampPageMethodInfo , - adjustmentClampPage , - - --- ** adjustmentConfigure - AdjustmentConfigureMethodInfo , - adjustmentConfigure , - - --- ** adjustmentGetLower - AdjustmentGetLowerMethodInfo , - adjustmentGetLower , - - --- ** adjustmentGetMinimumIncrement - AdjustmentGetMinimumIncrementMethodInfo , - adjustmentGetMinimumIncrement , - - --- ** adjustmentGetPageIncrement - AdjustmentGetPageIncrementMethodInfo , - adjustmentGetPageIncrement , - - --- ** adjustmentGetPageSize - AdjustmentGetPageSizeMethodInfo , - adjustmentGetPageSize , - - --- ** adjustmentGetStepIncrement - AdjustmentGetStepIncrementMethodInfo , - adjustmentGetStepIncrement , - - --- ** adjustmentGetUpper - AdjustmentGetUpperMethodInfo , - adjustmentGetUpper , - - --- ** adjustmentGetValue - AdjustmentGetValueMethodInfo , - adjustmentGetValue , - - --- ** adjustmentNew - adjustmentNew , - - --- ** adjustmentSetLower - AdjustmentSetLowerMethodInfo , - adjustmentSetLower , - - --- ** adjustmentSetPageIncrement - AdjustmentSetPageIncrementMethodInfo , - adjustmentSetPageIncrement , - - --- ** adjustmentSetPageSize - AdjustmentSetPageSizeMethodInfo , - adjustmentSetPageSize , - - --- ** adjustmentSetStepIncrement - AdjustmentSetStepIncrementMethodInfo , - adjustmentSetStepIncrement , - - --- ** adjustmentSetUpper - AdjustmentSetUpperMethodInfo , - adjustmentSetUpper , - - --- ** adjustmentSetValue - AdjustmentSetValueMethodInfo , - adjustmentSetValue , - - --- ** adjustmentValueChanged - AdjustmentValueChangedMethodInfo , - adjustmentValueChanged , - - - - - -- * Properties --- ** Lower - AdjustmentLowerPropertyInfo , - adjustmentLower , - constructAdjustmentLower , - getAdjustmentLower , - setAdjustmentLower , - - --- ** PageIncrement - AdjustmentPageIncrementPropertyInfo , - adjustmentPageIncrement , - constructAdjustmentPageIncrement , - getAdjustmentPageIncrement , - setAdjustmentPageIncrement , - - --- ** PageSize - AdjustmentPageSizePropertyInfo , - adjustmentPageSize , - constructAdjustmentPageSize , - getAdjustmentPageSize , - setAdjustmentPageSize , - - --- ** StepIncrement - AdjustmentStepIncrementPropertyInfo , - adjustmentStepIncrement , - constructAdjustmentStepIncrement , - getAdjustmentStepIncrement , - setAdjustmentStepIncrement , - - --- ** Upper - AdjustmentUpperPropertyInfo , - adjustmentUpper , - constructAdjustmentUpper , - getAdjustmentUpper , - setAdjustmentUpper , - - --- ** Value - AdjustmentValuePropertyInfo , - adjustmentValue , - constructAdjustmentValue , - getAdjustmentValue , - setAdjustmentValue , - - - - - -- * Signals --- ** Changed - AdjustmentChangedCallback , - AdjustmentChangedCallbackC , - AdjustmentChangedSignalInfo , - adjustmentChangedCallbackWrapper , - adjustmentChangedClosure , - afterAdjustmentChanged , - mkAdjustmentChangedCallback , - noAdjustmentChangedCallback , - onAdjustmentChanged , - - --- ** ValueChanged - AdjustmentValueChangedCallback , - AdjustmentValueChangedCallbackC , - AdjustmentValueChangedSignalInfo , - adjustmentValueChangedCallbackWrapper , - adjustmentValueChangedClosure , - afterAdjustmentValueChanged , - mkAdjustmentValueChangedCallback , - noAdjustmentValueChangedCallback , - onAdjustmentValueChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype Adjustment = Adjustment (ForeignPtr Adjustment) -foreign import ccall "gtk_adjustment_get_type" - c_gtk_adjustment_get_type :: IO GType - -type instance ParentTypes Adjustment = AdjustmentParentTypes -type AdjustmentParentTypes = '[GObject.Object] - -instance GObject Adjustment where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_adjustment_get_type - - -class GObject o => AdjustmentK o -instance (GObject o, IsDescendantOf Adjustment o) => AdjustmentK o - -toAdjustment :: AdjustmentK o => o -> IO Adjustment -toAdjustment = unsafeCastTo Adjustment - -noAdjustment :: Maybe Adjustment -noAdjustment = Nothing - -type family ResolveAdjustmentMethod (t :: Symbol) (o :: *) :: * where - ResolveAdjustmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAdjustmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAdjustmentMethod "changed" o = AdjustmentChangedMethodInfo - ResolveAdjustmentMethod "clampPage" o = AdjustmentClampPageMethodInfo - ResolveAdjustmentMethod "configure" o = AdjustmentConfigureMethodInfo - ResolveAdjustmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAdjustmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAdjustmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAdjustmentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAdjustmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAdjustmentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAdjustmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAdjustmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAdjustmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAdjustmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAdjustmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAdjustmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAdjustmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAdjustmentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAdjustmentMethod "valueChanged" o = AdjustmentValueChangedMethodInfo - ResolveAdjustmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAdjustmentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAdjustmentMethod "getLower" o = AdjustmentGetLowerMethodInfo - ResolveAdjustmentMethod "getMinimumIncrement" o = AdjustmentGetMinimumIncrementMethodInfo - ResolveAdjustmentMethod "getPageIncrement" o = AdjustmentGetPageIncrementMethodInfo - ResolveAdjustmentMethod "getPageSize" o = AdjustmentGetPageSizeMethodInfo - ResolveAdjustmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAdjustmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAdjustmentMethod "getStepIncrement" o = AdjustmentGetStepIncrementMethodInfo - ResolveAdjustmentMethod "getUpper" o = AdjustmentGetUpperMethodInfo - ResolveAdjustmentMethod "getValue" o = AdjustmentGetValueMethodInfo - ResolveAdjustmentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAdjustmentMethod "setLower" o = AdjustmentSetLowerMethodInfo - ResolveAdjustmentMethod "setPageIncrement" o = AdjustmentSetPageIncrementMethodInfo - ResolveAdjustmentMethod "setPageSize" o = AdjustmentSetPageSizeMethodInfo - ResolveAdjustmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAdjustmentMethod "setStepIncrement" o = AdjustmentSetStepIncrementMethodInfo - ResolveAdjustmentMethod "setUpper" o = AdjustmentSetUpperMethodInfo - ResolveAdjustmentMethod "setValue" o = AdjustmentSetValueMethodInfo - ResolveAdjustmentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAdjustmentMethod t Adjustment, MethodInfo info Adjustment p) => IsLabelProxy t (Adjustment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAdjustmentMethod t Adjustment, MethodInfo info Adjustment p) => IsLabel t (Adjustment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Adjustment::changed -type AdjustmentChangedCallback = - IO () - -noAdjustmentChangedCallback :: Maybe AdjustmentChangedCallback -noAdjustmentChangedCallback = Nothing - -type AdjustmentChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAdjustmentChangedCallback :: AdjustmentChangedCallbackC -> IO (FunPtr AdjustmentChangedCallbackC) - -adjustmentChangedClosure :: AdjustmentChangedCallback -> IO Closure -adjustmentChangedClosure cb = newCClosure =<< mkAdjustmentChangedCallback wrapped - where wrapped = adjustmentChangedCallbackWrapper cb - -adjustmentChangedCallbackWrapper :: - AdjustmentChangedCallback -> - Ptr () -> - Ptr () -> - IO () -adjustmentChangedCallbackWrapper _cb _ _ = do - _cb - -onAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId -onAdjustmentChanged obj cb = liftIO $ connectAdjustmentChanged obj cb SignalConnectBefore -afterAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId -afterAdjustmentChanged obj cb = connectAdjustmentChanged obj cb SignalConnectAfter - -connectAdjustmentChanged :: (GObject a, MonadIO m) => - a -> AdjustmentChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectAdjustmentChanged obj cb after = liftIO $ do - cb' <- mkAdjustmentChangedCallback (adjustmentChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Adjustment::value-changed -type AdjustmentValueChangedCallback = - IO () - -noAdjustmentValueChangedCallback :: Maybe AdjustmentValueChangedCallback -noAdjustmentValueChangedCallback = Nothing - -type AdjustmentValueChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAdjustmentValueChangedCallback :: AdjustmentValueChangedCallbackC -> IO (FunPtr AdjustmentValueChangedCallbackC) - -adjustmentValueChangedClosure :: AdjustmentValueChangedCallback -> IO Closure -adjustmentValueChangedClosure cb = newCClosure =<< mkAdjustmentValueChangedCallback wrapped - where wrapped = adjustmentValueChangedCallbackWrapper cb - -adjustmentValueChangedCallbackWrapper :: - AdjustmentValueChangedCallback -> - Ptr () -> - Ptr () -> - IO () -adjustmentValueChangedCallbackWrapper _cb _ _ = do - _cb - -onAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId -onAdjustmentValueChanged obj cb = liftIO $ connectAdjustmentValueChanged obj cb SignalConnectBefore -afterAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId -afterAdjustmentValueChanged obj cb = connectAdjustmentValueChanged obj cb SignalConnectAfter - -connectAdjustmentValueChanged :: (GObject a, MonadIO m) => - a -> AdjustmentValueChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectAdjustmentValueChanged obj cb after = liftIO $ do - cb' <- mkAdjustmentValueChangedCallback (adjustmentValueChangedCallbackWrapper cb) - connectSignalFunPtr obj "value-changed" cb' after - --- VVV Prop "lower" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentLower :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentLower obj = liftIO $ getObjectPropertyDouble obj "lower" - -setAdjustmentLower :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentLower obj val = liftIO $ setObjectPropertyDouble obj "lower" val - -constructAdjustmentLower :: Double -> IO ([Char], GValue) -constructAdjustmentLower val = constructObjectPropertyDouble "lower" val - -data AdjustmentLowerPropertyInfo -instance AttrInfo AdjustmentLowerPropertyInfo where - type AttrAllowedOps AdjustmentLowerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentLowerPropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentLowerPropertyInfo = AdjustmentK - type AttrGetType AdjustmentLowerPropertyInfo = Double - type AttrLabel AdjustmentLowerPropertyInfo = "lower" - attrGet _ = getAdjustmentLower - attrSet _ = setAdjustmentLower - attrConstruct _ = constructAdjustmentLower - attrClear _ = undefined - --- VVV Prop "page-increment" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentPageIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentPageIncrement obj = liftIO $ getObjectPropertyDouble obj "page-increment" - -setAdjustmentPageIncrement :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentPageIncrement obj val = liftIO $ setObjectPropertyDouble obj "page-increment" val - -constructAdjustmentPageIncrement :: Double -> IO ([Char], GValue) -constructAdjustmentPageIncrement val = constructObjectPropertyDouble "page-increment" val - -data AdjustmentPageIncrementPropertyInfo -instance AttrInfo AdjustmentPageIncrementPropertyInfo where - type AttrAllowedOps AdjustmentPageIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentPageIncrementPropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentPageIncrementPropertyInfo = AdjustmentK - type AttrGetType AdjustmentPageIncrementPropertyInfo = Double - type AttrLabel AdjustmentPageIncrementPropertyInfo = "page-increment" - attrGet _ = getAdjustmentPageIncrement - attrSet _ = setAdjustmentPageIncrement - attrConstruct _ = constructAdjustmentPageIncrement - attrClear _ = undefined - --- VVV Prop "page-size" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentPageSize :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentPageSize obj = liftIO $ getObjectPropertyDouble obj "page-size" - -setAdjustmentPageSize :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentPageSize obj val = liftIO $ setObjectPropertyDouble obj "page-size" val - -constructAdjustmentPageSize :: Double -> IO ([Char], GValue) -constructAdjustmentPageSize val = constructObjectPropertyDouble "page-size" val - -data AdjustmentPageSizePropertyInfo -instance AttrInfo AdjustmentPageSizePropertyInfo where - type AttrAllowedOps AdjustmentPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentPageSizePropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentPageSizePropertyInfo = AdjustmentK - type AttrGetType AdjustmentPageSizePropertyInfo = Double - type AttrLabel AdjustmentPageSizePropertyInfo = "page-size" - attrGet _ = getAdjustmentPageSize - attrSet _ = setAdjustmentPageSize - attrConstruct _ = constructAdjustmentPageSize - attrClear _ = undefined - --- VVV Prop "step-increment" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentStepIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentStepIncrement obj = liftIO $ getObjectPropertyDouble obj "step-increment" - -setAdjustmentStepIncrement :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentStepIncrement obj val = liftIO $ setObjectPropertyDouble obj "step-increment" val - -constructAdjustmentStepIncrement :: Double -> IO ([Char], GValue) -constructAdjustmentStepIncrement val = constructObjectPropertyDouble "step-increment" val - -data AdjustmentStepIncrementPropertyInfo -instance AttrInfo AdjustmentStepIncrementPropertyInfo where - type AttrAllowedOps AdjustmentStepIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentStepIncrementPropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentStepIncrementPropertyInfo = AdjustmentK - type AttrGetType AdjustmentStepIncrementPropertyInfo = Double - type AttrLabel AdjustmentStepIncrementPropertyInfo = "step-increment" - attrGet _ = getAdjustmentStepIncrement - attrSet _ = setAdjustmentStepIncrement - attrConstruct _ = constructAdjustmentStepIncrement - attrClear _ = undefined - --- VVV Prop "upper" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentUpper :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentUpper obj = liftIO $ getObjectPropertyDouble obj "upper" - -setAdjustmentUpper :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentUpper obj val = liftIO $ setObjectPropertyDouble obj "upper" val - -constructAdjustmentUpper :: Double -> IO ([Char], GValue) -constructAdjustmentUpper val = constructObjectPropertyDouble "upper" val - -data AdjustmentUpperPropertyInfo -instance AttrInfo AdjustmentUpperPropertyInfo where - type AttrAllowedOps AdjustmentUpperPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentUpperPropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentUpperPropertyInfo = AdjustmentK - type AttrGetType AdjustmentUpperPropertyInfo = Double - type AttrLabel AdjustmentUpperPropertyInfo = "upper" - attrGet _ = getAdjustmentUpper - attrSet _ = setAdjustmentUpper - attrConstruct _ = constructAdjustmentUpper - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAdjustmentValue :: (MonadIO m, AdjustmentK o) => o -> m Double -getAdjustmentValue obj = liftIO $ getObjectPropertyDouble obj "value" - -setAdjustmentValue :: (MonadIO m, AdjustmentK o) => o -> Double -> m () -setAdjustmentValue obj val = liftIO $ setObjectPropertyDouble obj "value" val - -constructAdjustmentValue :: Double -> IO ([Char], GValue) -constructAdjustmentValue val = constructObjectPropertyDouble "value" val - -data AdjustmentValuePropertyInfo -instance AttrInfo AdjustmentValuePropertyInfo where - type AttrAllowedOps AdjustmentValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AdjustmentValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint AdjustmentValuePropertyInfo = AdjustmentK - type AttrGetType AdjustmentValuePropertyInfo = Double - type AttrLabel AdjustmentValuePropertyInfo = "value" - attrGet _ = getAdjustmentValue - attrSet _ = setAdjustmentValue - attrConstruct _ = constructAdjustmentValue - attrClear _ = undefined - -type instance AttributeList Adjustment = AdjustmentAttributeList -type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) - -adjustmentLower :: AttrLabelProxy "lower" -adjustmentLower = AttrLabelProxy - -adjustmentPageIncrement :: AttrLabelProxy "pageIncrement" -adjustmentPageIncrement = AttrLabelProxy - -adjustmentPageSize :: AttrLabelProxy "pageSize" -adjustmentPageSize = AttrLabelProxy - -adjustmentStepIncrement :: AttrLabelProxy "stepIncrement" -adjustmentStepIncrement = AttrLabelProxy - -adjustmentUpper :: AttrLabelProxy "upper" -adjustmentUpper = AttrLabelProxy - -adjustmentValue :: AttrLabelProxy "value" -adjustmentValue = AttrLabelProxy - -data AdjustmentChangedSignalInfo -instance SignalInfo AdjustmentChangedSignalInfo where - type HaskellCallbackType AdjustmentChangedSignalInfo = AdjustmentChangedCallback - connectSignal _ = connectAdjustmentChanged - -data AdjustmentValueChangedSignalInfo -instance SignalInfo AdjustmentValueChangedSignalInfo where - type HaskellCallbackType AdjustmentValueChangedSignalInfo = AdjustmentValueChangedCallback - connectSignal _ = connectAdjustmentValueChanged - -type instance SignalList Adjustment = AdjustmentSignalList -type AdjustmentSignalList = ('[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("valueChanged", AdjustmentValueChangedSignalInfo)] :: [(Symbol, *)]) - --- method Adjustment::new --- method type : Constructor --- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_adjustment_new" gtk_adjustment_new :: - CDouble -> -- value : TBasicType TDouble - CDouble -> -- lower : TBasicType TDouble - CDouble -> -- upper : TBasicType TDouble - CDouble -> -- step_increment : TBasicType TDouble - CDouble -> -- page_increment : TBasicType TDouble - CDouble -> -- page_size : TBasicType TDouble - IO (Ptr Adjustment) - - -adjustmentNew :: - (MonadIO m) => - Double -- value - -> Double -- lower - -> Double -- upper - -> Double -- stepIncrement - -> Double -- pageIncrement - -> Double -- pageSize - -> m Adjustment -- result -adjustmentNew value lower upper stepIncrement pageIncrement pageSize = liftIO $ do - let value' = realToFrac value - let lower' = realToFrac lower - let upper' = realToFrac upper - let stepIncrement' = realToFrac stepIncrement - let pageIncrement' = realToFrac pageIncrement - let pageSize' = realToFrac pageSize - result <- gtk_adjustment_new value' lower' upper' stepIncrement' pageIncrement' pageSize' - checkUnexpectedReturnNULL "gtk_adjustment_new" result - result' <- (newObject Adjustment) result - return result' - --- method Adjustment::changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_changed" gtk_adjustment_changed :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED adjustmentChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::changed itself whenever any"," of the properties (other than value) change"]#-} -adjustmentChanged :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m () -- result -adjustmentChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_adjustment_changed _obj' - touchManagedPtr _obj - return () - -data AdjustmentChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentChangedMethodInfo a signature where - overloadedMethod _ = adjustmentChanged - --- method Adjustment::clamp_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", 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 "gtk_adjustment_clamp_page" gtk_adjustment_clamp_page :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- lower : TBasicType TDouble - CDouble -> -- upper : TBasicType TDouble - IO () - - -adjustmentClampPage :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- lower - -> Double -- upper - -> m () -- result -adjustmentClampPage _obj lower upper = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lower' = realToFrac lower - let upper' = realToFrac upper - gtk_adjustment_clamp_page _obj' lower' upper' - touchManagedPtr _obj - return () - -data AdjustmentClampPageMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentClampPageMethodInfo a signature where - overloadedMethod _ = adjustmentClampPage - --- method Adjustment::configure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", 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 "gtk_adjustment_configure" gtk_adjustment_configure :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- value : TBasicType TDouble - CDouble -> -- lower : TBasicType TDouble - CDouble -> -- upper : TBasicType TDouble - CDouble -> -- step_increment : TBasicType TDouble - CDouble -> -- page_increment : TBasicType TDouble - CDouble -> -- page_size : TBasicType TDouble - IO () - - -adjustmentConfigure :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- value - -> Double -- lower - -> Double -- upper - -> Double -- stepIncrement - -> Double -- pageIncrement - -> Double -- pageSize - -> m () -- result -adjustmentConfigure _obj value lower upper stepIncrement pageIncrement pageSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - let lower' = realToFrac lower - let upper' = realToFrac upper - let stepIncrement' = realToFrac stepIncrement - let pageIncrement' = realToFrac pageIncrement - let pageSize' = realToFrac pageSize - gtk_adjustment_configure _obj' value' lower' upper' stepIncrement' pageIncrement' pageSize' - touchManagedPtr _obj - return () - -data AdjustmentConfigureMethodInfo -instance (signature ~ (Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentConfigureMethodInfo a signature where - overloadedMethod _ = adjustmentConfigure - --- method Adjustment::get_lower --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_lower" gtk_adjustment_get_lower :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetLower :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetLower _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_lower _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetLowerMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetLowerMethodInfo a signature where - overloadedMethod _ = adjustmentGetLower - --- method Adjustment::get_minimum_increment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_minimum_increment" gtk_adjustment_get_minimum_increment :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetMinimumIncrement :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetMinimumIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_minimum_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetMinimumIncrementMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetMinimumIncrementMethodInfo a signature where - overloadedMethod _ = adjustmentGetMinimumIncrement - --- method Adjustment::get_page_increment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_page_increment" gtk_adjustment_get_page_increment :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetPageIncrement :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetPageIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_page_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetPageIncrementMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetPageIncrementMethodInfo a signature where - overloadedMethod _ = adjustmentGetPageIncrement - --- method Adjustment::get_page_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_page_size" gtk_adjustment_get_page_size :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetPageSize :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetPageSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_page_size _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetPageSizeMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetPageSizeMethodInfo a signature where - overloadedMethod _ = adjustmentGetPageSize - --- method Adjustment::get_step_increment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_step_increment" gtk_adjustment_get_step_increment :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetStepIncrement :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetStepIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_step_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetStepIncrementMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetStepIncrementMethodInfo a signature where - overloadedMethod _ = adjustmentGetStepIncrement - --- method Adjustment::get_upper --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_upper" gtk_adjustment_get_upper :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetUpper :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetUpper _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_upper _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetUpperMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetUpperMethodInfo a signature where - overloadedMethod _ = adjustmentGetUpper - --- method Adjustment::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_get_value" gtk_adjustment_get_value :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO CDouble - - -adjustmentGetValue :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m Double -- result -adjustmentGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AdjustmentGetValueMethodInfo -instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetValueMethodInfo a signature where - overloadedMethod _ = adjustmentGetValue - --- method Adjustment::set_lower --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", 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 "gtk_adjustment_set_lower" gtk_adjustment_set_lower :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- lower : TBasicType TDouble - IO () - - -adjustmentSetLower :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- lower - -> m () -- result -adjustmentSetLower _obj lower = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lower' = realToFrac lower - gtk_adjustment_set_lower _obj' lower' - touchManagedPtr _obj - return () - -data AdjustmentSetLowerMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetLowerMethodInfo a signature where - overloadedMethod _ = adjustmentSetLower - --- method Adjustment::set_page_increment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", 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 "gtk_adjustment_set_page_increment" gtk_adjustment_set_page_increment :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- page_increment : TBasicType TDouble - IO () - - -adjustmentSetPageIncrement :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- pageIncrement - -> m () -- result -adjustmentSetPageIncrement _obj pageIncrement = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pageIncrement' = realToFrac pageIncrement - gtk_adjustment_set_page_increment _obj' pageIncrement' - touchManagedPtr _obj - return () - -data AdjustmentSetPageIncrementMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetPageIncrementMethodInfo a signature where - overloadedMethod _ = adjustmentSetPageIncrement - --- method Adjustment::set_page_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", 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 "gtk_adjustment_set_page_size" gtk_adjustment_set_page_size :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- page_size : TBasicType TDouble - IO () - - -adjustmentSetPageSize :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- pageSize - -> m () -- result -adjustmentSetPageSize _obj pageSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pageSize' = realToFrac pageSize - gtk_adjustment_set_page_size _obj' pageSize' - touchManagedPtr _obj - return () - -data AdjustmentSetPageSizeMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetPageSizeMethodInfo a signature where - overloadedMethod _ = adjustmentSetPageSize - --- method Adjustment::set_step_increment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", 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 "gtk_adjustment_set_step_increment" gtk_adjustment_set_step_increment :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- step_increment : TBasicType TDouble - IO () - - -adjustmentSetStepIncrement :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- stepIncrement - -> m () -- result -adjustmentSetStepIncrement _obj stepIncrement = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stepIncrement' = realToFrac stepIncrement - gtk_adjustment_set_step_increment _obj' stepIncrement' - touchManagedPtr _obj - return () - -data AdjustmentSetStepIncrementMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetStepIncrementMethodInfo a signature where - overloadedMethod _ = adjustmentSetStepIncrement - --- method Adjustment::set_upper --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", 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 "gtk_adjustment_set_upper" gtk_adjustment_set_upper :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- upper : TBasicType TDouble - IO () - - -adjustmentSetUpper :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- upper - -> m () -- result -adjustmentSetUpper _obj upper = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let upper' = realToFrac upper - gtk_adjustment_set_upper _obj' upper' - touchManagedPtr _obj - return () - -data AdjustmentSetUpperMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetUpperMethodInfo a signature where - overloadedMethod _ = adjustmentSetUpper - --- method Adjustment::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_adjustment_set_value" gtk_adjustment_set_value :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - CDouble -> -- value : TBasicType TDouble - IO () - - -adjustmentSetValue :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> Double -- value - -> m () -- result -adjustmentSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_adjustment_set_value _obj' value' - touchManagedPtr _obj - return () - -data AdjustmentSetValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetValueMethodInfo a signature where - overloadedMethod _ = adjustmentSetValue - --- method Adjustment::value_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", 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 "gtk_adjustment_value_changed" gtk_adjustment_value_changed :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED adjustmentValueChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::value-changed itself whenever"," the value changes"]#-} -adjustmentValueChanged :: - (MonadIO m, AdjustmentK a) => - a -- _obj - -> m () -- result -adjustmentValueChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_adjustment_value_changed _obj' - touchManagedPtr _obj - return () - -data AdjustmentValueChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentValueChangedMethodInfo a signature where - overloadedMethod _ = adjustmentValueChanged - - diff --git a/GI/Gtk/Objects/Adjustment.hs-boot b/GI/Gtk/Objects/Adjustment.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Adjustment.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gtk.Objects.Adjustment 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 Adjustment = Adjustment (ForeignPtr Adjustment) -instance GObject Adjustment where -class GObject o => AdjustmentK o -instance (GObject o, IsDescendantOf Adjustment o) => AdjustmentK o -data AdjustmentLowerPropertyInfo -data AdjustmentPageIncrementPropertyInfo -data AdjustmentPageSizePropertyInfo -data AdjustmentStepIncrementPropertyInfo -data AdjustmentUpperPropertyInfo -data AdjustmentValuePropertyInfo -data AdjustmentChangedSignalInfo -data AdjustmentValueChangedSignalInfo -data AdjustmentChangedMethodInfo -data AdjustmentClampPageMethodInfo -data AdjustmentConfigureMethodInfo -data AdjustmentGetLowerMethodInfo -data AdjustmentGetMinimumIncrementMethodInfo -data AdjustmentGetPageIncrementMethodInfo -data AdjustmentGetPageSizeMethodInfo -data AdjustmentGetStepIncrementMethodInfo -data AdjustmentGetUpperMethodInfo -data AdjustmentGetValueMethodInfo -data AdjustmentSetLowerMethodInfo -data AdjustmentSetPageIncrementMethodInfo -data AdjustmentSetPageSizeMethodInfo -data AdjustmentSetStepIncrementMethodInfo -data AdjustmentSetUpperMethodInfo -data AdjustmentSetValueMethodInfo -data AdjustmentValueChangedMethodInfo diff --git a/GI/Gtk/Objects/Alignment.hs b/GI/Gtk/Objects/Alignment.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Alignment.hs +++ /dev/null @@ -1,857 +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.Gtk.Objects.Alignment - ( - --- * Exported types - Alignment(..) , - AlignmentK , - toAlignment , - noAlignment , - - - -- * Methods --- ** alignmentGetPadding - AlignmentGetPaddingMethodInfo , - alignmentGetPadding , - - --- ** alignmentNew - alignmentNew , - - --- ** alignmentSet - AlignmentSetMethodInfo , - alignmentSet , - - --- ** alignmentSetPadding - AlignmentSetPaddingMethodInfo , - alignmentSetPadding , - - - - - -- * Properties --- ** BottomPadding - AlignmentBottomPaddingPropertyInfo , - alignmentBottomPadding , - constructAlignmentBottomPadding , - getAlignmentBottomPadding , - setAlignmentBottomPadding , - - --- ** LeftPadding - AlignmentLeftPaddingPropertyInfo , - alignmentLeftPadding , - constructAlignmentLeftPadding , - getAlignmentLeftPadding , - setAlignmentLeftPadding , - - --- ** RightPadding - AlignmentRightPaddingPropertyInfo , - alignmentRightPadding , - constructAlignmentRightPadding , - getAlignmentRightPadding , - setAlignmentRightPadding , - - --- ** TopPadding - AlignmentTopPaddingPropertyInfo , - alignmentTopPadding , - constructAlignmentTopPadding , - getAlignmentTopPadding , - setAlignmentTopPadding , - - --- ** Xalign - AlignmentXalignPropertyInfo , - alignmentXalign , - constructAlignmentXalign , - getAlignmentXalign , - setAlignmentXalign , - - --- ** Xscale - AlignmentXscalePropertyInfo , - alignmentXscale , - constructAlignmentXscale , - getAlignmentXscale , - setAlignmentXscale , - - --- ** Yalign - AlignmentYalignPropertyInfo , - alignmentYalign , - constructAlignmentYalign , - getAlignmentYalign , - setAlignmentYalign , - - --- ** Yscale - AlignmentYscalePropertyInfo , - alignmentYscale , - constructAlignmentYscale , - getAlignmentYscale , - setAlignmentYscale , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Alignment = Alignment (ForeignPtr Alignment) -foreign import ccall "gtk_alignment_get_type" - c_gtk_alignment_get_type :: IO GType - -type instance ParentTypes Alignment = AlignmentParentTypes -type AlignmentParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Alignment where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_alignment_get_type - - -class GObject o => AlignmentK o -instance (GObject o, IsDescendantOf Alignment o) => AlignmentK o - -toAlignment :: AlignmentK o => o -> IO Alignment -toAlignment = unsafeCastTo Alignment - -noAlignment :: Maybe Alignment -noAlignment = Nothing - -type family ResolveAlignmentMethod (t :: Symbol) (o :: *) :: * where - ResolveAlignmentMethod "activate" o = WidgetActivateMethodInfo - ResolveAlignmentMethod "add" o = ContainerAddMethodInfo - ResolveAlignmentMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAlignmentMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAlignmentMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAlignmentMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAlignmentMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAlignmentMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAlignmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAlignmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAlignmentMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAlignmentMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAlignmentMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAlignmentMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAlignmentMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAlignmentMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAlignmentMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAlignmentMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAlignmentMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAlignmentMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAlignmentMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAlignmentMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAlignmentMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAlignmentMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAlignmentMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAlignmentMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAlignmentMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAlignmentMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAlignmentMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAlignmentMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAlignmentMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAlignmentMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAlignmentMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAlignmentMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAlignmentMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAlignmentMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAlignmentMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAlignmentMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAlignmentMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAlignmentMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAlignmentMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAlignmentMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAlignmentMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAlignmentMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAlignmentMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAlignmentMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAlignmentMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAlignmentMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAlignmentMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAlignmentMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAlignmentMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAlignmentMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAlignmentMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAlignmentMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAlignmentMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAlignmentMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAlignmentMethod "draw" o = WidgetDrawMethodInfo - ResolveAlignmentMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAlignmentMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAlignmentMethod "event" o = WidgetEventMethodInfo - ResolveAlignmentMethod "forall" o = ContainerForallMethodInfo - ResolveAlignmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAlignmentMethod "foreach" o = ContainerForeachMethodInfo - ResolveAlignmentMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAlignmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAlignmentMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAlignmentMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAlignmentMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAlignmentMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAlignmentMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAlignmentMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAlignmentMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAlignmentMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAlignmentMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAlignmentMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAlignmentMethod "hide" o = WidgetHideMethodInfo - ResolveAlignmentMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAlignmentMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAlignmentMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAlignmentMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAlignmentMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAlignmentMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAlignmentMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAlignmentMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAlignmentMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAlignmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAlignmentMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAlignmentMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAlignmentMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAlignmentMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAlignmentMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAlignmentMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAlignmentMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAlignmentMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAlignmentMethod "map" o = WidgetMapMethodInfo - ResolveAlignmentMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAlignmentMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAlignmentMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAlignmentMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAlignmentMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAlignmentMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAlignmentMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAlignmentMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAlignmentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAlignmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAlignmentMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAlignmentMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAlignmentMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAlignmentMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAlignmentMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAlignmentMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAlignmentMethod "path" o = WidgetPathMethodInfo - ResolveAlignmentMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAlignmentMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAlignmentMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAlignmentMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAlignmentMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAlignmentMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAlignmentMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAlignmentMethod "realize" o = WidgetRealizeMethodInfo - ResolveAlignmentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAlignmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAlignmentMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAlignmentMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAlignmentMethod "remove" o = ContainerRemoveMethodInfo - ResolveAlignmentMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAlignmentMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAlignmentMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAlignmentMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAlignmentMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAlignmentMethod "reparent" o = WidgetReparentMethodInfo - ResolveAlignmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAlignmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAlignmentMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAlignmentMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAlignmentMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAlignmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAlignmentMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAlignmentMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAlignmentMethod "set" o = AlignmentSetMethodInfo - ResolveAlignmentMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAlignmentMethod "show" o = WidgetShowMethodInfo - ResolveAlignmentMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAlignmentMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAlignmentMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAlignmentMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAlignmentMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAlignmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAlignmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAlignmentMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAlignmentMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAlignmentMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAlignmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAlignmentMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAlignmentMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAlignmentMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAlignmentMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAlignmentMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAlignmentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAlignmentMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAlignmentMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAlignmentMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAlignmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAlignmentMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAlignmentMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAlignmentMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAlignmentMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAlignmentMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAlignmentMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAlignmentMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAlignmentMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAlignmentMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAlignmentMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAlignmentMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAlignmentMethod "getChild" o = BinGetChildMethodInfo - ResolveAlignmentMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAlignmentMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAlignmentMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAlignmentMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAlignmentMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAlignmentMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAlignmentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAlignmentMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAlignmentMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAlignmentMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAlignmentMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAlignmentMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAlignmentMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAlignmentMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAlignmentMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAlignmentMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAlignmentMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAlignmentMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAlignmentMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAlignmentMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAlignmentMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAlignmentMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAlignmentMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAlignmentMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAlignmentMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAlignmentMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAlignmentMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAlignmentMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAlignmentMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAlignmentMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAlignmentMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAlignmentMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAlignmentMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAlignmentMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAlignmentMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAlignmentMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAlignmentMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAlignmentMethod "getPadding" o = AlignmentGetPaddingMethodInfo - ResolveAlignmentMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAlignmentMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAlignmentMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAlignmentMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAlignmentMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAlignmentMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAlignmentMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAlignmentMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAlignmentMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAlignmentMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAlignmentMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAlignmentMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAlignmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAlignmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAlignmentMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAlignmentMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAlignmentMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAlignmentMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAlignmentMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAlignmentMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAlignmentMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAlignmentMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAlignmentMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAlignmentMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAlignmentMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAlignmentMethod "getState" o = WidgetGetStateMethodInfo - ResolveAlignmentMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAlignmentMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAlignmentMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAlignmentMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAlignmentMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAlignmentMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAlignmentMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAlignmentMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAlignmentMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAlignmentMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAlignmentMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAlignmentMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAlignmentMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAlignmentMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAlignmentMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAlignmentMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAlignmentMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAlignmentMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAlignmentMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAlignmentMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAlignmentMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAlignmentMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAlignmentMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAlignmentMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAlignmentMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAlignmentMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAlignmentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAlignmentMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAlignmentMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAlignmentMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAlignmentMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAlignmentMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAlignmentMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAlignmentMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAlignmentMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAlignmentMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAlignmentMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAlignmentMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAlignmentMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAlignmentMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAlignmentMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAlignmentMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAlignmentMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAlignmentMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAlignmentMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAlignmentMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAlignmentMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAlignmentMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAlignmentMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAlignmentMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAlignmentMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAlignmentMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAlignmentMethod "setPadding" o = AlignmentSetPaddingMethodInfo - ResolveAlignmentMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAlignmentMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAlignmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAlignmentMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAlignmentMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAlignmentMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAlignmentMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAlignmentMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAlignmentMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAlignmentMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAlignmentMethod "setState" o = WidgetSetStateMethodInfo - ResolveAlignmentMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAlignmentMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAlignmentMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAlignmentMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAlignmentMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAlignmentMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAlignmentMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAlignmentMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAlignmentMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAlignmentMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAlignmentMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAlignmentMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAlignmentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAlignmentMethod t Alignment, MethodInfo info Alignment p) => IsLabelProxy t (Alignment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAlignmentMethod t Alignment, MethodInfo info Alignment p) => IsLabel t (Alignment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "bottom-padding" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentBottomPadding obj = liftIO $ getObjectPropertyUInt32 obj "bottom-padding" - -setAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyUInt32 obj "bottom-padding" val - -constructAlignmentBottomPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentBottomPadding val = constructObjectPropertyUInt32 "bottom-padding" val - -data AlignmentBottomPaddingPropertyInfo -instance AttrInfo AlignmentBottomPaddingPropertyInfo where - type AttrAllowedOps AlignmentBottomPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentBottomPaddingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint AlignmentBottomPaddingPropertyInfo = AlignmentK - type AttrGetType AlignmentBottomPaddingPropertyInfo = Word32 - type AttrLabel AlignmentBottomPaddingPropertyInfo = "bottom-padding" - attrGet _ = getAlignmentBottomPadding - attrSet _ = setAlignmentBottomPadding - attrConstruct _ = constructAlignmentBottomPadding - attrClear _ = undefined - --- VVV Prop "left-padding" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentLeftPadding obj = liftIO $ getObjectPropertyUInt32 obj "left-padding" - -setAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyUInt32 obj "left-padding" val - -constructAlignmentLeftPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentLeftPadding val = constructObjectPropertyUInt32 "left-padding" val - -data AlignmentLeftPaddingPropertyInfo -instance AttrInfo AlignmentLeftPaddingPropertyInfo where - type AttrAllowedOps AlignmentLeftPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentLeftPaddingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint AlignmentLeftPaddingPropertyInfo = AlignmentK - type AttrGetType AlignmentLeftPaddingPropertyInfo = Word32 - type AttrLabel AlignmentLeftPaddingPropertyInfo = "left-padding" - attrGet _ = getAlignmentLeftPadding - attrSet _ = setAlignmentLeftPadding - attrConstruct _ = constructAlignmentLeftPadding - attrClear _ = undefined - --- VVV Prop "right-padding" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentRightPadding obj = liftIO $ getObjectPropertyUInt32 obj "right-padding" - -setAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentRightPadding obj val = liftIO $ setObjectPropertyUInt32 obj "right-padding" val - -constructAlignmentRightPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentRightPadding val = constructObjectPropertyUInt32 "right-padding" val - -data AlignmentRightPaddingPropertyInfo -instance AttrInfo AlignmentRightPaddingPropertyInfo where - type AttrAllowedOps AlignmentRightPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentRightPaddingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint AlignmentRightPaddingPropertyInfo = AlignmentK - type AttrGetType AlignmentRightPaddingPropertyInfo = Word32 - type AttrLabel AlignmentRightPaddingPropertyInfo = "right-padding" - attrGet _ = getAlignmentRightPadding - attrSet _ = setAlignmentRightPadding - attrConstruct _ = constructAlignmentRightPadding - attrClear _ = undefined - --- VVV Prop "top-padding" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentTopPadding obj = liftIO $ getObjectPropertyUInt32 obj "top-padding" - -setAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentTopPadding obj val = liftIO $ setObjectPropertyUInt32 obj "top-padding" val - -constructAlignmentTopPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentTopPadding val = constructObjectPropertyUInt32 "top-padding" val - -data AlignmentTopPaddingPropertyInfo -instance AttrInfo AlignmentTopPaddingPropertyInfo where - type AttrAllowedOps AlignmentTopPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentTopPaddingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint AlignmentTopPaddingPropertyInfo = AlignmentK - type AttrGetType AlignmentTopPaddingPropertyInfo = Word32 - type AttrLabel AlignmentTopPaddingPropertyInfo = "top-padding" - attrGet _ = getAlignmentTopPadding - attrSet _ = setAlignmentTopPadding - attrConstruct _ = constructAlignmentTopPadding - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentXalign :: (MonadIO m, AlignmentK o) => o -> m Float -getAlignmentXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setAlignmentXalign :: (MonadIO m, AlignmentK o) => o -> Float -> m () -setAlignmentXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructAlignmentXalign :: Float -> IO ([Char], GValue) -constructAlignmentXalign val = constructObjectPropertyFloat "xalign" val - -data AlignmentXalignPropertyInfo -instance AttrInfo AlignmentXalignPropertyInfo where - type AttrAllowedOps AlignmentXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint AlignmentXalignPropertyInfo = AlignmentK - type AttrGetType AlignmentXalignPropertyInfo = Float - type AttrLabel AlignmentXalignPropertyInfo = "xalign" - attrGet _ = getAlignmentXalign - attrSet _ = setAlignmentXalign - attrConstruct _ = constructAlignmentXalign - attrClear _ = undefined - --- VVV Prop "xscale" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentXscale :: (MonadIO m, AlignmentK o) => o -> m Float -getAlignmentXscale obj = liftIO $ getObjectPropertyFloat obj "xscale" - -setAlignmentXscale :: (MonadIO m, AlignmentK o) => o -> Float -> m () -setAlignmentXscale obj val = liftIO $ setObjectPropertyFloat obj "xscale" val - -constructAlignmentXscale :: Float -> IO ([Char], GValue) -constructAlignmentXscale val = constructObjectPropertyFloat "xscale" val - -data AlignmentXscalePropertyInfo -instance AttrInfo AlignmentXscalePropertyInfo where - type AttrAllowedOps AlignmentXscalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentXscalePropertyInfo = (~) Float - type AttrBaseTypeConstraint AlignmentXscalePropertyInfo = AlignmentK - type AttrGetType AlignmentXscalePropertyInfo = Float - type AttrLabel AlignmentXscalePropertyInfo = "xscale" - attrGet _ = getAlignmentXscale - attrSet _ = setAlignmentXscale - attrConstruct _ = constructAlignmentXscale - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentYalign :: (MonadIO m, AlignmentK o) => o -> m Float -getAlignmentYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setAlignmentYalign :: (MonadIO m, AlignmentK o) => o -> Float -> m () -setAlignmentYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructAlignmentYalign :: Float -> IO ([Char], GValue) -constructAlignmentYalign val = constructObjectPropertyFloat "yalign" val - -data AlignmentYalignPropertyInfo -instance AttrInfo AlignmentYalignPropertyInfo where - type AttrAllowedOps AlignmentYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint AlignmentYalignPropertyInfo = AlignmentK - type AttrGetType AlignmentYalignPropertyInfo = Float - type AttrLabel AlignmentYalignPropertyInfo = "yalign" - attrGet _ = getAlignmentYalign - attrSet _ = setAlignmentYalign - attrConstruct _ = constructAlignmentYalign - attrClear _ = undefined - --- VVV Prop "yscale" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAlignmentYscale :: (MonadIO m, AlignmentK o) => o -> m Float -getAlignmentYscale obj = liftIO $ getObjectPropertyFloat obj "yscale" - -setAlignmentYscale :: (MonadIO m, AlignmentK o) => o -> Float -> m () -setAlignmentYscale obj val = liftIO $ setObjectPropertyFloat obj "yscale" val - -constructAlignmentYscale :: Float -> IO ([Char], GValue) -constructAlignmentYscale val = constructObjectPropertyFloat "yscale" val - -data AlignmentYscalePropertyInfo -instance AttrInfo AlignmentYscalePropertyInfo where - type AttrAllowedOps AlignmentYscalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AlignmentYscalePropertyInfo = (~) Float - type AttrBaseTypeConstraint AlignmentYscalePropertyInfo = AlignmentK - type AttrGetType AlignmentYscalePropertyInfo = Float - type AttrLabel AlignmentYscalePropertyInfo = "yscale" - attrGet _ = getAlignmentYscale - attrSet _ = setAlignmentYscale - attrConstruct _ = constructAlignmentYscale - attrClear _ = undefined - -type instance AttributeList Alignment = AlignmentAttributeList -type AlignmentAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomPadding", AlignmentBottomPaddingPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("leftPadding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightPadding", AlignmentRightPaddingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topPadding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) - -alignmentBottomPadding :: AttrLabelProxy "bottomPadding" -alignmentBottomPadding = AttrLabelProxy - -alignmentLeftPadding :: AttrLabelProxy "leftPadding" -alignmentLeftPadding = AttrLabelProxy - -alignmentRightPadding :: AttrLabelProxy "rightPadding" -alignmentRightPadding = AttrLabelProxy - -alignmentTopPadding :: AttrLabelProxy "topPadding" -alignmentTopPadding = AttrLabelProxy - -alignmentXalign :: AttrLabelProxy "xalign" -alignmentXalign = AttrLabelProxy - -alignmentXscale :: AttrLabelProxy "xscale" -alignmentXscale = AttrLabelProxy - -alignmentYalign :: AttrLabelProxy "yalign" -alignmentYalign = AttrLabelProxy - -alignmentYscale :: AttrLabelProxy "yscale" -alignmentYscale = AttrLabelProxy - -type instance SignalList Alignment = AlignmentSignalList -type AlignmentSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Alignment::new --- method type : Constructor --- Args : [Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Alignment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_alignment_new" gtk_alignment_new :: - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - CFloat -> -- xscale : TBasicType TFloat - CFloat -> -- yscale : TBasicType TFloat - IO (Ptr Alignment) - -{-# DEPRECATED alignmentNew ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} -alignmentNew :: - (MonadIO m) => - Float -- xalign - -> Float -- yalign - -> Float -- xscale - -> Float -- yscale - -> m Alignment -- result -alignmentNew xalign yalign xscale yscale = liftIO $ do - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - let xscale' = realToFrac xscale - let yscale' = realToFrac yscale - result <- gtk_alignment_new xalign' yalign' xscale' yscale' - checkUnexpectedReturnNULL "gtk_alignment_new" result - result' <- (newObject Alignment) result - return result' - --- method Alignment::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt, 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 "gtk_alignment_get_padding" gtk_alignment_get_padding :: - Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment" - Ptr Word32 -> -- padding_top : TBasicType TUInt - Ptr Word32 -> -- padding_bottom : TBasicType TUInt - Ptr Word32 -> -- padding_left : TBasicType TUInt - Ptr Word32 -> -- padding_right : TBasicType TUInt - IO () - -{-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} -alignmentGetPadding :: - (MonadIO m, AlignmentK a) => - a -- _obj - -> m (Word32,Word32,Word32,Word32) -- result -alignmentGetPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - paddingTop <- allocMem :: IO (Ptr Word32) - paddingBottom <- allocMem :: IO (Ptr Word32) - paddingLeft <- allocMem :: IO (Ptr Word32) - paddingRight <- allocMem :: IO (Ptr Word32) - gtk_alignment_get_padding _obj' paddingTop paddingBottom paddingLeft paddingRight - paddingTop' <- peek paddingTop - paddingBottom' <- peek paddingBottom - paddingLeft' <- peek paddingLeft - paddingRight' <- peek paddingRight - touchManagedPtr _obj - freeMem paddingTop - freeMem paddingBottom - freeMem paddingLeft - freeMem paddingRight - return (paddingTop', paddingBottom', paddingLeft', paddingRight') - -data AlignmentGetPaddingMethodInfo -instance (signature ~ (m (Word32,Word32,Word32,Word32)), MonadIO m, AlignmentK a) => MethodInfo AlignmentGetPaddingMethodInfo a signature where - overloadedMethod _ = alignmentGetPadding - --- method Alignment::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, 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 "gtk_alignment_set" gtk_alignment_set :: - Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - CFloat -> -- xscale : TBasicType TFloat - CFloat -> -- yscale : TBasicType TFloat - IO () - -{-# DEPRECATED alignmentSet ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} -alignmentSet :: - (MonadIO m, AlignmentK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> Float -- xscale - -> Float -- yscale - -> m () -- result -alignmentSet _obj xalign yalign xscale yscale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - let xscale' = realToFrac xscale - let yscale' = realToFrac yscale - gtk_alignment_set _obj' xalign' yalign' xscale' yscale' - touchManagedPtr _obj - return () - -data AlignmentSetMethodInfo -instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m, AlignmentK a) => MethodInfo AlignmentSetMethodInfo a signature where - overloadedMethod _ = alignmentSet - --- method Alignment::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", 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 "gtk_alignment_set_padding" gtk_alignment_set_padding :: - Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment" - Word32 -> -- padding_top : TBasicType TUInt - Word32 -> -- padding_bottom : TBasicType TUInt - Word32 -> -- padding_left : TBasicType TUInt - Word32 -> -- padding_right : TBasicType TUInt - IO () - -{-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} -alignmentSetPadding :: - (MonadIO m, AlignmentK a) => - a -- _obj - -> Word32 -- paddingTop - -> Word32 -- paddingBottom - -> Word32 -- paddingLeft - -> Word32 -- paddingRight - -> m () -- result -alignmentSetPadding _obj paddingTop paddingBottom paddingLeft paddingRight = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_alignment_set_padding _obj' paddingTop paddingBottom paddingLeft paddingRight - touchManagedPtr _obj - return () - -data AlignmentSetPaddingMethodInfo -instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, AlignmentK a) => MethodInfo AlignmentSetPaddingMethodInfo a signature where - overloadedMethod _ = alignmentSetPadding - - diff --git a/GI/Gtk/Objects/Alignment.hs-boot b/GI/Gtk/Objects/Alignment.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Alignment.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.Alignment 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 Alignment = Alignment (ForeignPtr Alignment) -instance GObject Alignment where -class GObject o => AlignmentK o -instance (GObject o, IsDescendantOf Alignment o) => AlignmentK o -data AlignmentBottomPaddingPropertyInfo -data AlignmentLeftPaddingPropertyInfo -data AlignmentRightPaddingPropertyInfo -data AlignmentTopPaddingPropertyInfo -data AlignmentXalignPropertyInfo -data AlignmentXscalePropertyInfo -data AlignmentYalignPropertyInfo -data AlignmentYscalePropertyInfo -data AlignmentGetPaddingMethodInfo -data AlignmentSetMethodInfo -data AlignmentSetPaddingMethodInfo diff --git a/GI/Gtk/Objects/AppChooserButton.hs b/GI/Gtk/Objects/AppChooserButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserButton.hs +++ /dev/null @@ -1,968 +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.Gtk.Objects.AppChooserButton - ( - --- * Exported types - AppChooserButton(..) , - AppChooserButtonK , - toAppChooserButton , - noAppChooserButton , - - - -- * Methods --- ** appChooserButtonAppendCustomItem - AppChooserButtonAppendCustomItemMethodInfo, - appChooserButtonAppendCustomItem , - - --- ** appChooserButtonAppendSeparator - AppChooserButtonAppendSeparatorMethodInfo, - appChooserButtonAppendSeparator , - - --- ** appChooserButtonGetHeading - AppChooserButtonGetHeadingMethodInfo , - appChooserButtonGetHeading , - - --- ** appChooserButtonGetShowDefaultItem - AppChooserButtonGetShowDefaultItemMethodInfo, - appChooserButtonGetShowDefaultItem , - - --- ** appChooserButtonGetShowDialogItem - AppChooserButtonGetShowDialogItemMethodInfo, - appChooserButtonGetShowDialogItem , - - --- ** appChooserButtonNew - appChooserButtonNew , - - --- ** appChooserButtonSetActiveCustomItem - AppChooserButtonSetActiveCustomItemMethodInfo, - appChooserButtonSetActiveCustomItem , - - --- ** appChooserButtonSetHeading - AppChooserButtonSetHeadingMethodInfo , - appChooserButtonSetHeading , - - --- ** appChooserButtonSetShowDefaultItem - AppChooserButtonSetShowDefaultItemMethodInfo, - appChooserButtonSetShowDefaultItem , - - --- ** appChooserButtonSetShowDialogItem - AppChooserButtonSetShowDialogItemMethodInfo, - appChooserButtonSetShowDialogItem , - - - - - -- * Properties --- ** Heading - AppChooserButtonHeadingPropertyInfo , - appChooserButtonHeading , - constructAppChooserButtonHeading , - getAppChooserButtonHeading , - setAppChooserButtonHeading , - - --- ** ShowDefaultItem - AppChooserButtonShowDefaultItemPropertyInfo, - appChooserButtonShowDefaultItem , - constructAppChooserButtonShowDefaultItem, - getAppChooserButtonShowDefaultItem , - setAppChooserButtonShowDefaultItem , - - --- ** ShowDialogItem - AppChooserButtonShowDialogItemPropertyInfo, - appChooserButtonShowDialogItem , - constructAppChooserButtonShowDialogItem , - getAppChooserButtonShowDialogItem , - setAppChooserButtonShowDialogItem , - - - - - -- * Signals --- ** CustomItemActivated - AppChooserButtonCustomItemActivatedCallback, - AppChooserButtonCustomItemActivatedCallbackC, - AppChooserButtonCustomItemActivatedSignalInfo, - afterAppChooserButtonCustomItemActivated, - appChooserButtonCustomItemActivatedCallbackWrapper, - appChooserButtonCustomItemActivatedClosure, - mkAppChooserButtonCustomItemActivatedCallback, - noAppChooserButtonCustomItemActivatedCallback, - onAppChooserButtonCustomItemActivated , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype AppChooserButton = AppChooserButton (ForeignPtr AppChooserButton) -foreign import ccall "gtk_app_chooser_button_get_type" - c_gtk_app_chooser_button_get_type :: IO GType - -type instance ParentTypes AppChooserButton = AppChooserButtonParentTypes -type AppChooserButtonParentTypes = '[ComboBox, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable, CellEditable, CellLayout] - -instance GObject AppChooserButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_app_chooser_button_get_type - - -class GObject o => AppChooserButtonK o -instance (GObject o, IsDescendantOf AppChooserButton o) => AppChooserButtonK o - -toAppChooserButton :: AppChooserButtonK o => o -> IO AppChooserButton -toAppChooserButton = unsafeCastTo AppChooserButton - -noAppChooserButton :: Maybe AppChooserButton -noAppChooserButton = Nothing - -type family ResolveAppChooserButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveAppChooserButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveAppChooserButtonMethod "add" o = ContainerAddMethodInfo - ResolveAppChooserButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAppChooserButtonMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveAppChooserButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAppChooserButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAppChooserButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAppChooserButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAppChooserButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAppChooserButtonMethod "appendCustomItem" o = AppChooserButtonAppendCustomItemMethodInfo - ResolveAppChooserButtonMethod "appendSeparator" o = AppChooserButtonAppendSeparatorMethodInfo - ResolveAppChooserButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppChooserButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppChooserButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAppChooserButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAppChooserButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAppChooserButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAppChooserButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAppChooserButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAppChooserButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAppChooserButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAppChooserButtonMethod "clear" o = CellLayoutClearMethodInfo - ResolveAppChooserButtonMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveAppChooserButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAppChooserButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAppChooserButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAppChooserButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAppChooserButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAppChooserButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAppChooserButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAppChooserButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAppChooserButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAppChooserButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAppChooserButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAppChooserButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAppChooserButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAppChooserButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAppChooserButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAppChooserButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAppChooserButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAppChooserButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAppChooserButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAppChooserButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAppChooserButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAppChooserButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAppChooserButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAppChooserButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAppChooserButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAppChooserButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAppChooserButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAppChooserButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAppChooserButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAppChooserButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAppChooserButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAppChooserButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAppChooserButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAppChooserButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAppChooserButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAppChooserButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAppChooserButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAppChooserButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAppChooserButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveAppChooserButtonMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveAppChooserButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAppChooserButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAppChooserButtonMethod "event" o = WidgetEventMethodInfo - ResolveAppChooserButtonMethod "forall" o = ContainerForallMethodInfo - ResolveAppChooserButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppChooserButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveAppChooserButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAppChooserButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppChooserButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAppChooserButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAppChooserButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAppChooserButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAppChooserButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAppChooserButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAppChooserButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAppChooserButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAppChooserButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAppChooserButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAppChooserButtonMethod "hide" o = WidgetHideMethodInfo - ResolveAppChooserButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAppChooserButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAppChooserButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAppChooserButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAppChooserButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAppChooserButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAppChooserButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAppChooserButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAppChooserButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAppChooserButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppChooserButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAppChooserButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAppChooserButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAppChooserButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAppChooserButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAppChooserButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAppChooserButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAppChooserButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAppChooserButtonMethod "map" o = WidgetMapMethodInfo - ResolveAppChooserButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAppChooserButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAppChooserButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAppChooserButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAppChooserButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAppChooserButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAppChooserButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAppChooserButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAppChooserButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppChooserButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppChooserButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAppChooserButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAppChooserButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAppChooserButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAppChooserButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAppChooserButtonMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveAppChooserButtonMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveAppChooserButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAppChooserButtonMethod "path" o = WidgetPathMethodInfo - ResolveAppChooserButtonMethod "popdown" o = ComboBoxPopdownMethodInfo - ResolveAppChooserButtonMethod "popup" o = ComboBoxPopupMethodInfo - ResolveAppChooserButtonMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo - ResolveAppChooserButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAppChooserButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAppChooserButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAppChooserButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAppChooserButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAppChooserButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAppChooserButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAppChooserButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveAppChooserButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppChooserButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppChooserButtonMethod "refresh" o = AppChooserRefreshMethodInfo - ResolveAppChooserButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAppChooserButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAppChooserButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveAppChooserButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAppChooserButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAppChooserButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAppChooserButtonMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveAppChooserButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAppChooserButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAppChooserButtonMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveAppChooserButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveAppChooserButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppChooserButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppChooserButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAppChooserButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAppChooserButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAppChooserButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppChooserButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAppChooserButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAppChooserButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAppChooserButtonMethod "show" o = WidgetShowMethodInfo - ResolveAppChooserButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAppChooserButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAppChooserButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAppChooserButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAppChooserButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAppChooserButtonMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveAppChooserButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppChooserButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppChooserButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAppChooserButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAppChooserButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAppChooserButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppChooserButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAppChooserButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAppChooserButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAppChooserButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAppChooserButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAppChooserButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppChooserButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAppChooserButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAppChooserButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAppChooserButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppChooserButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAppChooserButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAppChooserButtonMethod "getActive" o = ComboBoxGetActiveMethodInfo - ResolveAppChooserButtonMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo - ResolveAppChooserButtonMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo - ResolveAppChooserButtonMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo - ResolveAppChooserButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAppChooserButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAppChooserButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAppChooserButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAppChooserButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAppChooserButtonMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo - ResolveAppChooserButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAppChooserButtonMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveAppChooserButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAppChooserButtonMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo - ResolveAppChooserButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAppChooserButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAppChooserButtonMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveAppChooserButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveAppChooserButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAppChooserButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAppChooserButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAppChooserButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAppChooserButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAppChooserButtonMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo - ResolveAppChooserButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAppChooserButtonMethod "getContentType" o = AppChooserGetContentTypeMethodInfo - ResolveAppChooserButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppChooserButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAppChooserButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAppChooserButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAppChooserButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAppChooserButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAppChooserButtonMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo - ResolveAppChooserButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAppChooserButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAppChooserButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAppChooserButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAppChooserButtonMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo - ResolveAppChooserButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAppChooserButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAppChooserButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAppChooserButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAppChooserButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAppChooserButtonMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo - ResolveAppChooserButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAppChooserButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAppChooserButtonMethod "getHeading" o = AppChooserButtonGetHeadingMethodInfo - ResolveAppChooserButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAppChooserButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAppChooserButtonMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo - ResolveAppChooserButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAppChooserButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAppChooserButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAppChooserButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAppChooserButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAppChooserButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAppChooserButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAppChooserButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAppChooserButtonMethod "getModel" o = ComboBoxGetModelMethodInfo - ResolveAppChooserButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAppChooserButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAppChooserButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAppChooserButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAppChooserButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAppChooserButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAppChooserButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAppChooserButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAppChooserButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAppChooserButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAppChooserButtonMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo - ResolveAppChooserButtonMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo - ResolveAppChooserButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAppChooserButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAppChooserButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAppChooserButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAppChooserButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAppChooserButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAppChooserButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppChooserButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppChooserButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAppChooserButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAppChooserButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAppChooserButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAppChooserButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAppChooserButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAppChooserButtonMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo - ResolveAppChooserButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAppChooserButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAppChooserButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAppChooserButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAppChooserButtonMethod "getShowDefaultItem" o = AppChooserButtonGetShowDefaultItemMethodInfo - ResolveAppChooserButtonMethod "getShowDialogItem" o = AppChooserButtonGetShowDialogItemMethodInfo - ResolveAppChooserButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAppChooserButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveAppChooserButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAppChooserButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAppChooserButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAppChooserButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAppChooserButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAppChooserButtonMethod "getTitle" o = ComboBoxGetTitleMethodInfo - ResolveAppChooserButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAppChooserButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAppChooserButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAppChooserButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAppChooserButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAppChooserButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAppChooserButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAppChooserButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAppChooserButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAppChooserButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAppChooserButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAppChooserButtonMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo - ResolveAppChooserButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAppChooserButtonMethod "setActive" o = ComboBoxSetActiveMethodInfo - ResolveAppChooserButtonMethod "setActiveCustomItem" o = AppChooserButtonSetActiveCustomItemMethodInfo - ResolveAppChooserButtonMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo - ResolveAppChooserButtonMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo - ResolveAppChooserButtonMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo - ResolveAppChooserButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAppChooserButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAppChooserButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAppChooserButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAppChooserButtonMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo - ResolveAppChooserButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAppChooserButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAppChooserButtonMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveAppChooserButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAppChooserButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAppChooserButtonMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo - ResolveAppChooserButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAppChooserButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppChooserButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAppChooserButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAppChooserButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAppChooserButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAppChooserButtonMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo - ResolveAppChooserButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAppChooserButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAppChooserButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAppChooserButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAppChooserButtonMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo - ResolveAppChooserButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAppChooserButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAppChooserButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAppChooserButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAppChooserButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAppChooserButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAppChooserButtonMethod "setHeading" o = AppChooserButtonSetHeadingMethodInfo - ResolveAppChooserButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAppChooserButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAppChooserButtonMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo - ResolveAppChooserButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAppChooserButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAppChooserButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAppChooserButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAppChooserButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAppChooserButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAppChooserButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAppChooserButtonMethod "setModel" o = ComboBoxSetModelMethodInfo - ResolveAppChooserButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAppChooserButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAppChooserButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAppChooserButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAppChooserButtonMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo - ResolveAppChooserButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppChooserButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAppChooserButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAppChooserButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAppChooserButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAppChooserButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAppChooserButtonMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo - ResolveAppChooserButtonMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo - ResolveAppChooserButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAppChooserButtonMethod "setShowDefaultItem" o = AppChooserButtonSetShowDefaultItemMethodInfo - ResolveAppChooserButtonMethod "setShowDialogItem" o = AppChooserButtonSetShowDialogItemMethodInfo - ResolveAppChooserButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAppChooserButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveAppChooserButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAppChooserButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAppChooserButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAppChooserButtonMethod "setTitle" o = ComboBoxSetTitleMethodInfo - ResolveAppChooserButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAppChooserButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAppChooserButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAppChooserButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAppChooserButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAppChooserButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAppChooserButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAppChooserButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAppChooserButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAppChooserButtonMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo - ResolveAppChooserButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppChooserButtonMethod t AppChooserButton, MethodInfo info AppChooserButton p) => IsLabelProxy t (AppChooserButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppChooserButtonMethod t AppChooserButton, MethodInfo info AppChooserButton p) => IsLabel t (AppChooserButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AppChooserButton::custom-item-activated -type AppChooserButtonCustomItemActivatedCallback = - T.Text -> - IO () - -noAppChooserButtonCustomItemActivatedCallback :: Maybe AppChooserButtonCustomItemActivatedCallback -noAppChooserButtonCustomItemActivatedCallback = Nothing - -type AppChooserButtonCustomItemActivatedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppChooserButtonCustomItemActivatedCallback :: AppChooserButtonCustomItemActivatedCallbackC -> IO (FunPtr AppChooserButtonCustomItemActivatedCallbackC) - -appChooserButtonCustomItemActivatedClosure :: AppChooserButtonCustomItemActivatedCallback -> IO Closure -appChooserButtonCustomItemActivatedClosure cb = newCClosure =<< mkAppChooserButtonCustomItemActivatedCallback wrapped - where wrapped = appChooserButtonCustomItemActivatedCallbackWrapper cb - -appChooserButtonCustomItemActivatedCallbackWrapper :: - AppChooserButtonCustomItemActivatedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -appChooserButtonCustomItemActivatedCallbackWrapper _cb _ itemName _ = do - itemName' <- cstringToText itemName - _cb itemName' - -onAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId -onAppChooserButtonCustomItemActivated obj cb = liftIO $ connectAppChooserButtonCustomItemActivated obj cb SignalConnectBefore -afterAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId -afterAppChooserButtonCustomItemActivated obj cb = connectAppChooserButtonCustomItemActivated obj cb SignalConnectAfter - -connectAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => - a -> AppChooserButtonCustomItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppChooserButtonCustomItemActivated obj cb after = liftIO $ do - cb' <- mkAppChooserButtonCustomItemActivatedCallback (appChooserButtonCustomItemActivatedCallbackWrapper cb) - connectSignalFunPtr obj "custom-item-activated" cb' after - --- VVV Prop "heading" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> m T.Text -getAppChooserButtonHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserButtonHeading" $ getObjectPropertyString obj "heading" - -setAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> T.Text -> m () -setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) - -constructAppChooserButtonHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserButtonHeading val = constructObjectPropertyString "heading" (Just val) - -data AppChooserButtonHeadingPropertyInfo -instance AttrInfo AppChooserButtonHeadingPropertyInfo where - type AttrAllowedOps AppChooserButtonHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserButtonHeadingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AppChooserButtonHeadingPropertyInfo = AppChooserButtonK - type AttrGetType AppChooserButtonHeadingPropertyInfo = T.Text - type AttrLabel AppChooserButtonHeadingPropertyInfo = "heading" - attrGet _ = getAppChooserButtonHeading - attrSet _ = setAppChooserButtonHeading - attrConstruct _ = constructAppChooserButtonHeading - attrClear _ = undefined - --- VVV Prop "show-default-item" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserButtonShowDefaultItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool -getAppChooserButtonShowDefaultItem obj = liftIO $ getObjectPropertyBool obj "show-default-item" - -setAppChooserButtonShowDefaultItem :: (MonadIO m, AppChooserButtonK o) => o -> Bool -> m () -setAppChooserButtonShowDefaultItem obj val = liftIO $ setObjectPropertyBool obj "show-default-item" val - -constructAppChooserButtonShowDefaultItem :: Bool -> IO ([Char], GValue) -constructAppChooserButtonShowDefaultItem val = constructObjectPropertyBool "show-default-item" val - -data AppChooserButtonShowDefaultItemPropertyInfo -instance AttrInfo AppChooserButtonShowDefaultItemPropertyInfo where - type AttrAllowedOps AppChooserButtonShowDefaultItemPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = AppChooserButtonK - type AttrGetType AppChooserButtonShowDefaultItemPropertyInfo = Bool - type AttrLabel AppChooserButtonShowDefaultItemPropertyInfo = "show-default-item" - attrGet _ = getAppChooserButtonShowDefaultItem - attrSet _ = setAppChooserButtonShowDefaultItem - attrConstruct _ = constructAppChooserButtonShowDefaultItem - attrClear _ = undefined - --- VVV Prop "show-dialog-item" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserButtonShowDialogItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool -getAppChooserButtonShowDialogItem obj = liftIO $ getObjectPropertyBool obj "show-dialog-item" - -setAppChooserButtonShowDialogItem :: (MonadIO m, AppChooserButtonK o) => o -> Bool -> m () -setAppChooserButtonShowDialogItem obj val = liftIO $ setObjectPropertyBool obj "show-dialog-item" val - -constructAppChooserButtonShowDialogItem :: Bool -> IO ([Char], GValue) -constructAppChooserButtonShowDialogItem val = constructObjectPropertyBool "show-dialog-item" val - -data AppChooserButtonShowDialogItemPropertyInfo -instance AttrInfo AppChooserButtonShowDialogItemPropertyInfo where - type AttrAllowedOps AppChooserButtonShowDialogItemPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = AppChooserButtonK - type AttrGetType AppChooserButtonShowDialogItemPropertyInfo = Bool - type AttrLabel AppChooserButtonShowDialogItemPropertyInfo = "show-dialog-item" - attrGet _ = getAppChooserButtonShowDialogItem - attrSet _ = setAppChooserButtonShowDialogItem - attrConstruct _ = constructAppChooserButtonShowDialogItem - attrClear _ = undefined - -type instance AttributeList AppChooserButton = AppChooserButtonAttributeList -type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDefaultItem", AppChooserButtonShowDefaultItemPropertyInfo), '("showDialogItem", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -appChooserButtonHeading :: AttrLabelProxy "heading" -appChooserButtonHeading = AttrLabelProxy - -appChooserButtonShowDefaultItem :: AttrLabelProxy "showDefaultItem" -appChooserButtonShowDefaultItem = AttrLabelProxy - -appChooserButtonShowDialogItem :: AttrLabelProxy "showDialogItem" -appChooserButtonShowDialogItem = AttrLabelProxy - -data AppChooserButtonCustomItemActivatedSignalInfo -instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where - type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback - connectSignal _ = connectAppChooserButtonCustomItemActivated - -type instance SignalList AppChooserButton = AppChooserButtonSignalList -type AppChooserButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("customItemActivated", AppChooserButtonCustomItemActivatedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AppChooserButton::new --- method type : Constructor --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AppChooserButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_button_new" gtk_app_chooser_button_new :: - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr AppChooserButton) - - -appChooserButtonNew :: - (MonadIO m) => - T.Text -- contentType - -> m AppChooserButton -- result -appChooserButtonNew contentType = liftIO $ do - contentType' <- textToCString contentType - result <- gtk_app_chooser_button_new contentType' - checkUnexpectedReturnNULL "gtk_app_chooser_button_new" result - result' <- (newObject AppChooserButton) result - freeMem contentType' - return result' - --- method AppChooserButton::append_custom_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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 "gtk_app_chooser_button_append_custom_item" gtk_app_chooser_button_append_custom_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -appChooserButtonAppendCustomItem :: - (MonadIO m, AppChooserButtonK a, Gio.IconK b) => - a -- _obj - -> T.Text -- name - -> T.Text -- label - -> b -- icon - -> m () -- result -appChooserButtonAppendCustomItem _obj name label icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - label' <- textToCString label - let icon' = unsafeManagedPtrCastPtr icon - gtk_app_chooser_button_append_custom_item _obj' name' label' icon' - touchManagedPtr _obj - touchManagedPtr icon - freeMem name' - freeMem label' - return () - -data AppChooserButtonAppendCustomItemMethodInfo -instance (signature ~ (T.Text -> T.Text -> b -> m ()), MonadIO m, AppChooserButtonK a, Gio.IconK b) => MethodInfo AppChooserButtonAppendCustomItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonAppendCustomItem - --- method AppChooserButton::append_separator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 "gtk_app_chooser_button_append_separator" gtk_app_chooser_button_append_separator :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - IO () - - -appChooserButtonAppendSeparator :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> m () -- result -appChooserButtonAppendSeparator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_app_chooser_button_append_separator _obj' - touchManagedPtr _obj - return () - -data AppChooserButtonAppendSeparatorMethodInfo -instance (signature ~ (m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonAppendSeparatorMethodInfo a signature where - overloadedMethod _ = appChooserButtonAppendSeparator - --- method AppChooserButton::get_heading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 "gtk_app_chooser_button_get_heading" gtk_app_chooser_button_get_heading :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - IO CString - - -appChooserButtonGetHeading :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> m T.Text -- result -appChooserButtonGetHeading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_button_get_heading _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_button_get_heading" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppChooserButtonGetHeadingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetHeadingMethodInfo a signature where - overloadedMethod _ = appChooserButtonGetHeading - --- method AppChooserButton::get_show_default_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 "gtk_app_chooser_button_get_show_default_item" gtk_app_chooser_button_get_show_default_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - IO CInt - - -appChooserButtonGetShowDefaultItem :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> m Bool -- result -appChooserButtonGetShowDefaultItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_button_get_show_default_item _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserButtonGetShowDefaultItemMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetShowDefaultItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonGetShowDefaultItem - --- method AppChooserButton::get_show_dialog_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 "gtk_app_chooser_button_get_show_dialog_item" gtk_app_chooser_button_get_show_dialog_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - IO CInt - - -appChooserButtonGetShowDialogItem :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> m Bool -- result -appChooserButtonGetShowDialogItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_button_get_show_dialog_item _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserButtonGetShowDialogItemMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetShowDialogItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonGetShowDialogItem - --- method AppChooserButton::set_active_custom_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 "gtk_app_chooser_button_set_active_custom_item" gtk_app_chooser_button_set_active_custom_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - CString -> -- name : TBasicType TUTF8 - IO () - - -appChooserButtonSetActiveCustomItem :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -appChooserButtonSetActiveCustomItem _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_app_chooser_button_set_active_custom_item _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data AppChooserButtonSetActiveCustomItemMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetActiveCustomItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonSetActiveCustomItem - --- method AppChooserButton::set_heading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", 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 "gtk_app_chooser_button_set_heading" gtk_app_chooser_button_set_heading :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - CString -> -- heading : TBasicType TUTF8 - IO () - - -appChooserButtonSetHeading :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> T.Text -- heading - -> m () -- result -appChooserButtonSetHeading _obj heading = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - heading' <- textToCString heading - gtk_app_chooser_button_set_heading _obj' heading' - touchManagedPtr _obj - freeMem heading' - return () - -data AppChooserButtonSetHeadingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetHeadingMethodInfo a signature where - overloadedMethod _ = appChooserButtonSetHeading - --- method AppChooserButton::set_show_default_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_button_set_show_default_item" gtk_app_chooser_button_set_show_default_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserButtonSetShowDefaultItem :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserButtonSetShowDefaultItem _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_button_set_show_default_item _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserButtonSetShowDefaultItemMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetShowDefaultItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonSetShowDefaultItem - --- method AppChooserButton::set_show_dialog_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_button_set_show_dialog_item" gtk_app_chooser_button_set_show_dialog_item :: - Ptr AppChooserButton -> -- _obj : TInterface "Gtk" "AppChooserButton" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserButtonSetShowDialogItem :: - (MonadIO m, AppChooserButtonK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserButtonSetShowDialogItem _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_button_set_show_dialog_item _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserButtonSetShowDialogItemMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetShowDialogItemMethodInfo a signature where - overloadedMethod _ = appChooserButtonSetShowDialogItem - - diff --git a/GI/Gtk/Objects/AppChooserButton.hs-boot b/GI/Gtk/Objects/AppChooserButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserButton.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gtk.Objects.AppChooserButton 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 AppChooserButton = AppChooserButton (ForeignPtr AppChooserButton) -instance GObject AppChooserButton where -class GObject o => AppChooserButtonK o -instance (GObject o, IsDescendantOf AppChooserButton o) => AppChooserButtonK o -data AppChooserButtonHeadingPropertyInfo -data AppChooserButtonShowDefaultItemPropertyInfo -data AppChooserButtonShowDialogItemPropertyInfo -data AppChooserButtonCustomItemActivatedSignalInfo -data AppChooserButtonAppendCustomItemMethodInfo -data AppChooserButtonAppendSeparatorMethodInfo -data AppChooserButtonGetHeadingMethodInfo -data AppChooserButtonGetShowDefaultItemMethodInfo -data AppChooserButtonGetShowDialogItemMethodInfo -data AppChooserButtonSetActiveCustomItemMethodInfo -data AppChooserButtonSetHeadingMethodInfo -data AppChooserButtonSetShowDefaultItemMethodInfo -data AppChooserButtonSetShowDialogItemMethodInfo diff --git a/GI/Gtk/Objects/AppChooserDialog.hs b/GI/Gtk/Objects/AppChooserDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserDialog.hs +++ /dev/null @@ -1,763 +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.Gtk.Objects.AppChooserDialog - ( - --- * Exported types - AppChooserDialog(..) , - AppChooserDialogK , - toAppChooserDialog , - noAppChooserDialog , - - - -- * Methods --- ** appChooserDialogGetHeading - AppChooserDialogGetHeadingMethodInfo , - appChooserDialogGetHeading , - - --- ** appChooserDialogGetWidget - AppChooserDialogGetWidgetMethodInfo , - appChooserDialogGetWidget , - - --- ** appChooserDialogNew - appChooserDialogNew , - - --- ** appChooserDialogNewForContentType - appChooserDialogNewForContentType , - - --- ** appChooserDialogSetHeading - AppChooserDialogSetHeadingMethodInfo , - appChooserDialogSetHeading , - - - - - -- * Properties --- ** Gfile - AppChooserDialogGfilePropertyInfo , - appChooserDialogGfile , - constructAppChooserDialogGfile , - getAppChooserDialogGfile , - - --- ** Heading - AppChooserDialogHeadingPropertyInfo , - appChooserDialogHeading , - constructAppChooserDialogHeading , - getAppChooserDialogHeading , - setAppChooserDialogHeading , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype AppChooserDialog = AppChooserDialog (ForeignPtr AppChooserDialog) -foreign import ccall "gtk_app_chooser_dialog_get_type" - c_gtk_app_chooser_dialog_get_type :: IO GType - -type instance ParentTypes AppChooserDialog = AppChooserDialogParentTypes -type AppChooserDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable] - -instance GObject AppChooserDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_app_chooser_dialog_get_type - - -class GObject o => AppChooserDialogK o -instance (GObject o, IsDescendantOf AppChooserDialog o) => AppChooserDialogK o - -toAppChooserDialog :: AppChooserDialogK o => o -> IO AppChooserDialog -toAppChooserDialog = unsafeCastTo AppChooserDialog - -noAppChooserDialog :: Maybe AppChooserDialog -noAppChooserDialog = Nothing - -type family ResolveAppChooserDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveAppChooserDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveAppChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveAppChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveAppChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveAppChooserDialogMethod "add" o = ContainerAddMethodInfo - ResolveAppChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveAppChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAppChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveAppChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveAppChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAppChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAppChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAppChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveAppChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAppChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAppChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveAppChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveAppChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAppChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAppChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAppChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAppChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAppChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAppChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAppChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAppChooserDialogMethod "close" o = WindowCloseMethodInfo - ResolveAppChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAppChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAppChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAppChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAppChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAppChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAppChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAppChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveAppChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAppChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAppChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAppChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAppChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAppChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAppChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAppChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAppChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAppChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAppChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAppChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAppChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAppChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAppChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAppChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAppChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAppChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAppChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAppChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAppChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAppChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAppChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAppChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAppChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAppChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAppChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAppChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAppChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAppChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAppChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAppChooserDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveAppChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAppChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAppChooserDialogMethod "event" o = WidgetEventMethodInfo - ResolveAppChooserDialogMethod "forall" o = ContainerForallMethodInfo - ResolveAppChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppChooserDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveAppChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAppChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveAppChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveAppChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAppChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAppChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAppChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAppChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAppChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAppChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAppChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveAppChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAppChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAppChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveAppChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAppChooserDialogMethod "hide" o = WidgetHideMethodInfo - ResolveAppChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAppChooserDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveAppChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAppChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAppChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAppChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAppChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAppChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveAppChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAppChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAppChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAppChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAppChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveAppChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAppChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAppChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAppChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAppChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAppChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAppChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAppChooserDialogMethod "map" o = WidgetMapMethodInfo - ResolveAppChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveAppChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAppChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAppChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAppChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAppChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAppChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAppChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAppChooserDialogMethod "move" o = WindowMoveMethodInfo - ResolveAppChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAppChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAppChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAppChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAppChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAppChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveAppChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAppChooserDialogMethod "path" o = WidgetPathMethodInfo - ResolveAppChooserDialogMethod "present" o = WindowPresentMethodInfo - ResolveAppChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveAppChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAppChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveAppChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAppChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAppChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAppChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAppChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAppChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAppChooserDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveAppChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppChooserDialogMethod "refresh" o = AppChooserRefreshMethodInfo - ResolveAppChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAppChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAppChooserDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveAppChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveAppChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAppChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveAppChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAppChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAppChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAppChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAppChooserDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveAppChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAppChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAppChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveAppChooserDialogMethod "resize" o = WindowResizeMethodInfo - ResolveAppChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAppChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveAppChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveAppChooserDialogMethod "response" o = DialogResponseMethodInfo - ResolveAppChooserDialogMethod "run" o = DialogRunMethodInfo - ResolveAppChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAppChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAppChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAppChooserDialogMethod "show" o = WidgetShowMethodInfo - ResolveAppChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAppChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAppChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAppChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAppChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAppChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppChooserDialogMethod "stick" o = WindowStickMethodInfo - ResolveAppChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAppChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAppChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAppChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAppChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAppChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveAppChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAppChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveAppChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAppChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAppChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAppChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAppChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAppChooserDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveAppChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveAppChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAppChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveAppChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAppChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAppChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAppChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAppChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAppChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAppChooserDialogMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo - ResolveAppChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAppChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveAppChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveAppChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAppChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAppChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAppChooserDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveAppChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAppChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAppChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAppChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAppChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAppChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAppChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveAppChooserDialogMethod "getContentType" o = AppChooserGetContentTypeMethodInfo - ResolveAppChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveAppChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveAppChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveAppChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveAppChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveAppChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAppChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAppChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAppChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAppChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAppChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAppChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveAppChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAppChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAppChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAppChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveAppChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAppChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveAppChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAppChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAppChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAppChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveAppChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveAppChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAppChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveAppChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAppChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAppChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveAppChooserDialogMethod "getHeading" o = AppChooserDialogGetHeadingMethodInfo - ResolveAppChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAppChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAppChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveAppChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveAppChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveAppChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveAppChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAppChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAppChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAppChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAppChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAppChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAppChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAppChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAppChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveAppChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveAppChooserDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveAppChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAppChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAppChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAppChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAppChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAppChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAppChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAppChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAppChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAppChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveAppChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAppChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAppChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAppChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAppChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAppChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAppChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAppChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAppChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAppChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAppChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveAppChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveAppChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAppChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveAppChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveAppChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAppChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAppChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAppChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAppChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveAppChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAppChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveAppChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveAppChooserDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveAppChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAppChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAppChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAppChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAppChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAppChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveAppChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveAppChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAppChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAppChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAppChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAppChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveAppChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveAppChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveAppChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAppChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAppChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAppChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAppChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAppChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAppChooserDialogMethod "getWidget" o = AppChooserDialogGetWidgetMethodInfo - ResolveAppChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveAppChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAppChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveAppChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAppChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveAppChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAppChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveAppChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAppChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveAppChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveAppChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAppChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAppChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAppChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAppChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAppChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAppChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAppChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveAppChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveAppChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveAppChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveAppChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveAppChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveAppChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveAppChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAppChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAppChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAppChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAppChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAppChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveAppChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAppChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAppChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAppChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveAppChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAppChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveAppChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAppChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAppChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveAppChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveAppChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAppChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveAppChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAppChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveAppChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAppChooserDialogMethod "setHeading" o = AppChooserDialogSetHeadingMethodInfo - ResolveAppChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAppChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAppChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveAppChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveAppChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveAppChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveAppChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveAppChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveAppChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveAppChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAppChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAppChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAppChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAppChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAppChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAppChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAppChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveAppChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveAppChooserDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveAppChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAppChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAppChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAppChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveAppChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAppChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAppChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAppChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAppChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveAppChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAppChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveAppChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveAppChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveAppChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAppChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAppChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveAppChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveAppChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveAppChooserDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveAppChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAppChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAppChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAppChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveAppChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveAppChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAppChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAppChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAppChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveAppChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveAppChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveAppChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAppChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAppChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAppChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAppChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAppChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAppChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveAppChooserDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppChooserDialogMethod t AppChooserDialog, MethodInfo info AppChooserDialog p) => IsLabelProxy t (AppChooserDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppChooserDialogMethod t AppChooserDialog, MethodInfo info AppChooserDialog p) => IsLabel t (AppChooserDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "gfile" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m (Maybe Gio.File) -getAppChooserDialogGfile obj = liftIO $ getObjectPropertyObject obj "gfile" Gio.File - -constructAppChooserDialogGfile :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" (Just val) - -data AppChooserDialogGfilePropertyInfo -instance AttrInfo AppChooserDialogGfilePropertyInfo where - type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK - type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK - type AttrGetType AppChooserDialogGfilePropertyInfo = (Maybe Gio.File) - type AttrLabel AppChooserDialogGfilePropertyInfo = "gfile" - attrGet _ = getAppChooserDialogGfile - attrSet _ = undefined - attrConstruct _ = constructAppChooserDialogGfile - attrClear _ = undefined - --- VVV Prop "heading" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> m T.Text -getAppChooserDialogHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserDialogHeading" $ getObjectPropertyString obj "heading" - -setAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> T.Text -> m () -setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) - -constructAppChooserDialogHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserDialogHeading val = constructObjectPropertyString "heading" (Just val) - -data AppChooserDialogHeadingPropertyInfo -instance AttrInfo AppChooserDialogHeadingPropertyInfo where - type AttrAllowedOps AppChooserDialogHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserDialogHeadingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AppChooserDialogHeadingPropertyInfo = AppChooserDialogK - type AttrGetType AppChooserDialogHeadingPropertyInfo = T.Text - type AttrLabel AppChooserDialogHeadingPropertyInfo = "heading" - attrGet _ = getAppChooserDialogHeading - attrSet _ = setAppChooserDialogHeading - attrConstruct _ = constructAppChooserDialogHeading - attrClear _ = undefined - -type instance AttributeList AppChooserDialog = AppChooserDialogAttributeList -type AppChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -appChooserDialogGfile :: AttrLabelProxy "gfile" -appChooserDialogGfile = AttrLabelProxy - -appChooserDialogHeading :: AttrLabelProxy "heading" -appChooserDialogHeading = AttrLabelProxy - -type instance SignalList AppChooserDialog = AppChooserDialogSignalList -type AppChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AppChooserDialog::new --- method type : Constructor --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AppChooserDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_dialog_new" gtk_app_chooser_dialog_new :: - Ptr Window -> -- parent : TInterface "Gtk" "Window" - CUInt -> -- flags : TInterface "Gtk" "DialogFlags" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - IO (Ptr AppChooserDialog) - - -appChooserDialogNew :: - (MonadIO m, WindowK a, Gio.FileK b) => - Maybe (a) -- parent - -> [DialogFlags] -- flags - -> b -- file - -> m AppChooserDialog -- result -appChooserDialogNew parent flags file = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - let flags' = gflagsToWord flags - let file' = unsafeManagedPtrCastPtr file - result <- gtk_app_chooser_dialog_new maybeParent flags' file' - checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new" result - result' <- (newObject AppChooserDialog) result - whenJust parent touchManagedPtr - touchManagedPtr file - return result' - --- method AppChooserDialog::new_for_content_type --- method type : Constructor --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AppChooserDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_dialog_new_for_content_type" gtk_app_chooser_dialog_new_for_content_type :: - Ptr Window -> -- parent : TInterface "Gtk" "Window" - CUInt -> -- flags : TInterface "Gtk" "DialogFlags" - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr AppChooserDialog) - - -appChooserDialogNewForContentType :: - (MonadIO m, WindowK a) => - Maybe (a) -- parent - -> [DialogFlags] -- flags - -> T.Text -- contentType - -> m AppChooserDialog -- result -appChooserDialogNewForContentType parent flags contentType = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - let flags' = gflagsToWord flags - contentType' <- textToCString contentType - result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' contentType' - checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new_for_content_type" result - result' <- (newObject AppChooserDialog) result - whenJust parent touchManagedPtr - freeMem contentType' - return result' - --- method AppChooserDialog::get_heading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", 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 "gtk_app_chooser_dialog_get_heading" gtk_app_chooser_dialog_get_heading :: - Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog" - IO CString - - -appChooserDialogGetHeading :: - (MonadIO m, AppChooserDialogK a) => - a -- _obj - -> m T.Text -- result -appChooserDialogGetHeading _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_dialog_get_heading _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_dialog_get_heading" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppChooserDialogGetHeadingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogGetHeadingMethodInfo a signature where - overloadedMethod _ = appChooserDialogGetHeading - --- method AppChooserDialog::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_dialog_get_widget" gtk_app_chooser_dialog_get_widget :: - Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog" - IO (Ptr Widget) - - -appChooserDialogGetWidget :: - (MonadIO m, AppChooserDialogK a) => - a -- _obj - -> m Widget -- result -appChooserDialogGetWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_dialog_get_widget _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_dialog_get_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data AppChooserDialogGetWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogGetWidgetMethodInfo a signature where - overloadedMethod _ = appChooserDialogGetWidget - --- method AppChooserDialog::set_heading --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", 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 "gtk_app_chooser_dialog_set_heading" gtk_app_chooser_dialog_set_heading :: - Ptr AppChooserDialog -> -- _obj : TInterface "Gtk" "AppChooserDialog" - CString -> -- heading : TBasicType TUTF8 - IO () - - -appChooserDialogSetHeading :: - (MonadIO m, AppChooserDialogK a) => - a -- _obj - -> T.Text -- heading - -> m () -- result -appChooserDialogSetHeading _obj heading = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - heading' <- textToCString heading - gtk_app_chooser_dialog_set_heading _obj' heading' - touchManagedPtr _obj - freeMem heading' - return () - -data AppChooserDialogSetHeadingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogSetHeadingMethodInfo a signature where - overloadedMethod _ = appChooserDialogSetHeading - - diff --git a/GI/Gtk/Objects/AppChooserDialog.hs-boot b/GI/Gtk/Objects/AppChooserDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserDialog.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.AppChooserDialog 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 AppChooserDialog = AppChooserDialog (ForeignPtr AppChooserDialog) -instance GObject AppChooserDialog where -class GObject o => AppChooserDialogK o -instance (GObject o, IsDescendantOf AppChooserDialog o) => AppChooserDialogK o -data AppChooserDialogGfilePropertyInfo -data AppChooserDialogHeadingPropertyInfo -data AppChooserDialogGetHeadingMethodInfo -data AppChooserDialogGetWidgetMethodInfo -data AppChooserDialogSetHeadingMethodInfo diff --git a/GI/Gtk/Objects/AppChooserWidget.hs b/GI/Gtk/Objects/AppChooserWidget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserWidget.hs +++ /dev/null @@ -1,1264 +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.Gtk.Objects.AppChooserWidget - ( - --- * Exported types - AppChooserWidget(..) , - AppChooserWidgetK , - toAppChooserWidget , - noAppChooserWidget , - - - -- * Methods --- ** appChooserWidgetGetDefaultText - AppChooserWidgetGetDefaultTextMethodInfo, - appChooserWidgetGetDefaultText , - - --- ** appChooserWidgetGetShowAll - AppChooserWidgetGetShowAllMethodInfo , - appChooserWidgetGetShowAll , - - --- ** appChooserWidgetGetShowDefault - AppChooserWidgetGetShowDefaultMethodInfo, - appChooserWidgetGetShowDefault , - - --- ** appChooserWidgetGetShowFallback - AppChooserWidgetGetShowFallbackMethodInfo, - appChooserWidgetGetShowFallback , - - --- ** appChooserWidgetGetShowOther - AppChooserWidgetGetShowOtherMethodInfo , - appChooserWidgetGetShowOther , - - --- ** appChooserWidgetGetShowRecommended - AppChooserWidgetGetShowRecommendedMethodInfo, - appChooserWidgetGetShowRecommended , - - --- ** appChooserWidgetNew - appChooserWidgetNew , - - --- ** appChooserWidgetSetDefaultText - AppChooserWidgetSetDefaultTextMethodInfo, - appChooserWidgetSetDefaultText , - - --- ** appChooserWidgetSetShowAll - AppChooserWidgetSetShowAllMethodInfo , - appChooserWidgetSetShowAll , - - --- ** appChooserWidgetSetShowDefault - AppChooserWidgetSetShowDefaultMethodInfo, - appChooserWidgetSetShowDefault , - - --- ** appChooserWidgetSetShowFallback - AppChooserWidgetSetShowFallbackMethodInfo, - appChooserWidgetSetShowFallback , - - --- ** appChooserWidgetSetShowOther - AppChooserWidgetSetShowOtherMethodInfo , - appChooserWidgetSetShowOther , - - --- ** appChooserWidgetSetShowRecommended - AppChooserWidgetSetShowRecommendedMethodInfo, - appChooserWidgetSetShowRecommended , - - - - - -- * Properties --- ** DefaultText - AppChooserWidgetDefaultTextPropertyInfo , - appChooserWidgetDefaultText , - constructAppChooserWidgetDefaultText , - getAppChooserWidgetDefaultText , - setAppChooserWidgetDefaultText , - - --- ** ShowAll - AppChooserWidgetShowAllPropertyInfo , - appChooserWidgetShowAll , - constructAppChooserWidgetShowAll , - getAppChooserWidgetShowAll , - setAppChooserWidgetShowAll , - - --- ** ShowDefault - AppChooserWidgetShowDefaultPropertyInfo , - appChooserWidgetShowDefault , - constructAppChooserWidgetShowDefault , - getAppChooserWidgetShowDefault , - setAppChooserWidgetShowDefault , - - --- ** ShowFallback - AppChooserWidgetShowFallbackPropertyInfo, - appChooserWidgetShowFallback , - constructAppChooserWidgetShowFallback , - getAppChooserWidgetShowFallback , - setAppChooserWidgetShowFallback , - - --- ** ShowOther - AppChooserWidgetShowOtherPropertyInfo , - appChooserWidgetShowOther , - constructAppChooserWidgetShowOther , - getAppChooserWidgetShowOther , - setAppChooserWidgetShowOther , - - --- ** ShowRecommended - AppChooserWidgetShowRecommendedPropertyInfo, - appChooserWidgetShowRecommended , - constructAppChooserWidgetShowRecommended, - getAppChooserWidgetShowRecommended , - setAppChooserWidgetShowRecommended , - - - - - -- * Signals --- ** ApplicationActivated - AppChooserWidgetApplicationActivatedCallback, - AppChooserWidgetApplicationActivatedCallbackC, - AppChooserWidgetApplicationActivatedSignalInfo, - afterAppChooserWidgetApplicationActivated, - appChooserWidgetApplicationActivatedCallbackWrapper, - appChooserWidgetApplicationActivatedClosure, - mkAppChooserWidgetApplicationActivatedCallback, - noAppChooserWidgetApplicationActivatedCallback, - onAppChooserWidgetApplicationActivated , - - --- ** ApplicationSelected - AppChooserWidgetApplicationSelectedCallback, - AppChooserWidgetApplicationSelectedCallbackC, - AppChooserWidgetApplicationSelectedSignalInfo, - afterAppChooserWidgetApplicationSelected, - appChooserWidgetApplicationSelectedCallbackWrapper, - appChooserWidgetApplicationSelectedClosure, - mkAppChooserWidgetApplicationSelectedCallback, - noAppChooserWidgetApplicationSelectedCallback, - onAppChooserWidgetApplicationSelected , - - --- ** PopulatePopup - AppChooserWidgetPopulatePopupCallback , - AppChooserWidgetPopulatePopupCallbackC , - AppChooserWidgetPopulatePopupSignalInfo , - afterAppChooserWidgetPopulatePopup , - appChooserWidgetPopulatePopupCallbackWrapper, - appChooserWidgetPopulatePopupClosure , - mkAppChooserWidgetPopulatePopupCallback , - noAppChooserWidgetPopulatePopupCallback , - onAppChooserWidgetPopulatePopup , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype AppChooserWidget = AppChooserWidget (ForeignPtr AppChooserWidget) -foreign import ccall "gtk_app_chooser_widget_get_type" - c_gtk_app_chooser_widget_get_type :: IO GType - -type instance ParentTypes AppChooserWidget = AppChooserWidgetParentTypes -type AppChooserWidgetParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, AppChooser, Buildable, Orientable] - -instance GObject AppChooserWidget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_app_chooser_widget_get_type - - -class GObject o => AppChooserWidgetK o -instance (GObject o, IsDescendantOf AppChooserWidget o) => AppChooserWidgetK o - -toAppChooserWidget :: AppChooserWidgetK o => o -> IO AppChooserWidget -toAppChooserWidget = unsafeCastTo AppChooserWidget - -noAppChooserWidget :: Maybe AppChooserWidget -noAppChooserWidget = Nothing - -type family ResolveAppChooserWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveAppChooserWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveAppChooserWidgetMethod "add" o = ContainerAddMethodInfo - ResolveAppChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAppChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAppChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAppChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAppChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAppChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAppChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAppChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAppChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAppChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAppChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAppChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAppChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAppChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAppChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAppChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAppChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAppChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAppChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAppChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAppChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAppChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAppChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAppChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAppChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAppChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAppChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAppChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAppChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAppChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAppChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAppChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAppChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAppChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAppChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAppChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAppChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAppChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAppChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAppChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAppChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAppChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAppChooserWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveAppChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAppChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAppChooserWidgetMethod "event" o = WidgetEventMethodInfo - ResolveAppChooserWidgetMethod "forall" o = ContainerForallMethodInfo - ResolveAppChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo - ResolveAppChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAppChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAppChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAppChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAppChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAppChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAppChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAppChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAppChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAppChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAppChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAppChooserWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveAppChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAppChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAppChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAppChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAppChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAppChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAppChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAppChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAppChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAppChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAppChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAppChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAppChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAppChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAppChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAppChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAppChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAppChooserWidgetMethod "map" o = WidgetMapMethodInfo - ResolveAppChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAppChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAppChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAppChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAppChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAppChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAppChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAppChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAppChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAppChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAppChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAppChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAppChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAppChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo - ResolveAppChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo - ResolveAppChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAppChooserWidgetMethod "path" o = WidgetPathMethodInfo - ResolveAppChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAppChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveAppChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAppChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAppChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAppChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAppChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAppChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAppChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveAppChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppChooserWidgetMethod "refresh" o = AppChooserRefreshMethodInfo - ResolveAppChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAppChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAppChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo - ResolveAppChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAppChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAppChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAppChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAppChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAppChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveAppChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveAppChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAppChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAppChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAppChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAppChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAppChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAppChooserWidgetMethod "show" o = WidgetShowMethodInfo - ResolveAppChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAppChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAppChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAppChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAppChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAppChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAppChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAppChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAppChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAppChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAppChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAppChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAppChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAppChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAppChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAppChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAppChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAppChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAppChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAppChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAppChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAppChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAppChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAppChooserWidgetMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo - ResolveAppChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAppChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveAppChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAppChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAppChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAppChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveAppChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAppChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAppChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAppChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAppChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAppChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAppChooserWidgetMethod "getContentType" o = AppChooserGetContentTypeMethodInfo - ResolveAppChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppChooserWidgetMethod "getDefaultText" o = AppChooserWidgetGetDefaultTextMethodInfo - ResolveAppChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAppChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAppChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAppChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAppChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAppChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAppChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAppChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAppChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAppChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAppChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAppChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAppChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAppChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAppChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAppChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAppChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAppChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAppChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveAppChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAppChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAppChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAppChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAppChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAppChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAppChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAppChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAppChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAppChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAppChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAppChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAppChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveAppChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAppChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAppChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAppChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAppChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAppChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAppChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAppChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAppChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAppChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAppChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAppChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAppChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAppChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAppChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAppChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAppChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAppChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAppChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAppChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAppChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAppChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAppChooserWidgetMethod "getShowAll" o = AppChooserWidgetGetShowAllMethodInfo - ResolveAppChooserWidgetMethod "getShowDefault" o = AppChooserWidgetGetShowDefaultMethodInfo - ResolveAppChooserWidgetMethod "getShowFallback" o = AppChooserWidgetGetShowFallbackMethodInfo - ResolveAppChooserWidgetMethod "getShowOther" o = AppChooserWidgetGetShowOtherMethodInfo - ResolveAppChooserWidgetMethod "getShowRecommended" o = AppChooserWidgetGetShowRecommendedMethodInfo - ResolveAppChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAppChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveAppChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveAppChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAppChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAppChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAppChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAppChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAppChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAppChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAppChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAppChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAppChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAppChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAppChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAppChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAppChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAppChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAppChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAppChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAppChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAppChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAppChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveAppChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAppChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAppChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAppChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAppChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveAppChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveAppChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAppChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAppChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAppChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppChooserWidgetMethod "setDefaultText" o = AppChooserWidgetSetDefaultTextMethodInfo - ResolveAppChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAppChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAppChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAppChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAppChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAppChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAppChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAppChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAppChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAppChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAppChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAppChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAppChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAppChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAppChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAppChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAppChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveAppChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAppChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAppChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAppChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAppChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAppChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAppChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAppChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAppChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAppChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveAppChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAppChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAppChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAppChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAppChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAppChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAppChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAppChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAppChooserWidgetMethod "setShowAll" o = AppChooserWidgetSetShowAllMethodInfo - ResolveAppChooserWidgetMethod "setShowDefault" o = AppChooserWidgetSetShowDefaultMethodInfo - ResolveAppChooserWidgetMethod "setShowFallback" o = AppChooserWidgetSetShowFallbackMethodInfo - ResolveAppChooserWidgetMethod "setShowOther" o = AppChooserWidgetSetShowOtherMethodInfo - ResolveAppChooserWidgetMethod "setShowRecommended" o = AppChooserWidgetSetShowRecommendedMethodInfo - ResolveAppChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAppChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveAppChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveAppChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAppChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAppChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAppChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAppChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAppChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAppChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAppChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAppChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAppChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAppChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAppChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAppChooserWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, MethodInfo info AppChooserWidget p) => IsLabelProxy t (AppChooserWidget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, MethodInfo info AppChooserWidget p) => IsLabel t (AppChooserWidget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AppChooserWidget::application-activated -type AppChooserWidgetApplicationActivatedCallback = - Gio.AppInfo -> - IO () - -noAppChooserWidgetApplicationActivatedCallback :: Maybe AppChooserWidgetApplicationActivatedCallback -noAppChooserWidgetApplicationActivatedCallback = Nothing - -type AppChooserWidgetApplicationActivatedCallbackC = - Ptr () -> -- object - Ptr Gio.AppInfo -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppChooserWidgetApplicationActivatedCallback :: AppChooserWidgetApplicationActivatedCallbackC -> IO (FunPtr AppChooserWidgetApplicationActivatedCallbackC) - -appChooserWidgetApplicationActivatedClosure :: AppChooserWidgetApplicationActivatedCallback -> IO Closure -appChooserWidgetApplicationActivatedClosure cb = newCClosure =<< mkAppChooserWidgetApplicationActivatedCallback wrapped - where wrapped = appChooserWidgetApplicationActivatedCallbackWrapper cb - -appChooserWidgetApplicationActivatedCallbackWrapper :: - AppChooserWidgetApplicationActivatedCallback -> - Ptr () -> - Ptr Gio.AppInfo -> - Ptr () -> - IO () -appChooserWidgetApplicationActivatedCallbackWrapper _cb _ application _ = do - application' <- (newObject Gio.AppInfo) application - _cb application' - -onAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId -onAppChooserWidgetApplicationActivated obj cb = liftIO $ connectAppChooserWidgetApplicationActivated obj cb SignalConnectBefore -afterAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId -afterAppChooserWidgetApplicationActivated obj cb = connectAppChooserWidgetApplicationActivated obj cb SignalConnectAfter - -connectAppChooserWidgetApplicationActivated :: (GObject a, MonadIO m) => - a -> AppChooserWidgetApplicationActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppChooserWidgetApplicationActivated obj cb after = liftIO $ do - cb' <- mkAppChooserWidgetApplicationActivatedCallback (appChooserWidgetApplicationActivatedCallbackWrapper cb) - connectSignalFunPtr obj "application-activated" cb' after - --- signal AppChooserWidget::application-selected -type AppChooserWidgetApplicationSelectedCallback = - Gio.AppInfo -> - IO () - -noAppChooserWidgetApplicationSelectedCallback :: Maybe AppChooserWidgetApplicationSelectedCallback -noAppChooserWidgetApplicationSelectedCallback = Nothing - -type AppChooserWidgetApplicationSelectedCallbackC = - Ptr () -> -- object - Ptr Gio.AppInfo -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppChooserWidgetApplicationSelectedCallback :: AppChooserWidgetApplicationSelectedCallbackC -> IO (FunPtr AppChooserWidgetApplicationSelectedCallbackC) - -appChooserWidgetApplicationSelectedClosure :: AppChooserWidgetApplicationSelectedCallback -> IO Closure -appChooserWidgetApplicationSelectedClosure cb = newCClosure =<< mkAppChooserWidgetApplicationSelectedCallback wrapped - where wrapped = appChooserWidgetApplicationSelectedCallbackWrapper cb - -appChooserWidgetApplicationSelectedCallbackWrapper :: - AppChooserWidgetApplicationSelectedCallback -> - Ptr () -> - Ptr Gio.AppInfo -> - Ptr () -> - IO () -appChooserWidgetApplicationSelectedCallbackWrapper _cb _ application _ = do - application' <- (newObject Gio.AppInfo) application - _cb application' - -onAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId -onAppChooserWidgetApplicationSelected obj cb = liftIO $ connectAppChooserWidgetApplicationSelected obj cb SignalConnectBefore -afterAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId -afterAppChooserWidgetApplicationSelected obj cb = connectAppChooserWidgetApplicationSelected obj cb SignalConnectAfter - -connectAppChooserWidgetApplicationSelected :: (GObject a, MonadIO m) => - a -> AppChooserWidgetApplicationSelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppChooserWidgetApplicationSelected obj cb after = liftIO $ do - cb' <- mkAppChooserWidgetApplicationSelectedCallback (appChooserWidgetApplicationSelectedCallbackWrapper cb) - connectSignalFunPtr obj "application-selected" cb' after - --- signal AppChooserWidget::populate-popup -type AppChooserWidgetPopulatePopupCallback = - Menu -> - Gio.AppInfo -> - IO () - -noAppChooserWidgetPopulatePopupCallback :: Maybe AppChooserWidgetPopulatePopupCallback -noAppChooserWidgetPopulatePopupCallback = Nothing - -type AppChooserWidgetPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Menu -> - Ptr Gio.AppInfo -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppChooserWidgetPopulatePopupCallback :: AppChooserWidgetPopulatePopupCallbackC -> IO (FunPtr AppChooserWidgetPopulatePopupCallbackC) - -appChooserWidgetPopulatePopupClosure :: AppChooserWidgetPopulatePopupCallback -> IO Closure -appChooserWidgetPopulatePopupClosure cb = newCClosure =<< mkAppChooserWidgetPopulatePopupCallback wrapped - where wrapped = appChooserWidgetPopulatePopupCallbackWrapper cb - -appChooserWidgetPopulatePopupCallbackWrapper :: - AppChooserWidgetPopulatePopupCallback -> - Ptr () -> - Ptr Menu -> - Ptr Gio.AppInfo -> - Ptr () -> - IO () -appChooserWidgetPopulatePopupCallbackWrapper _cb _ menu application _ = do - menu' <- (newObject Menu) menu - application' <- (newObject Gio.AppInfo) application - _cb menu' application' - -onAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId -onAppChooserWidgetPopulatePopup obj cb = liftIO $ connectAppChooserWidgetPopulatePopup obj cb SignalConnectBefore -afterAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId -afterAppChooserWidgetPopulatePopup obj cb = connectAppChooserWidgetPopulatePopup obj cb SignalConnectAfter - -connectAppChooserWidgetPopulatePopup :: (GObject a, MonadIO m) => - a -> AppChooserWidgetPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectAppChooserWidgetPopulatePopup obj cb after = liftIO $ do - cb' <- mkAppChooserWidgetPopulatePopupCallback (appChooserWidgetPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- VVV Prop "default-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> m T.Text -getAppChooserWidgetDefaultText obj = liftIO $ checkUnexpectedNothing "getAppChooserWidgetDefaultText" $ getObjectPropertyString obj "default-text" - -setAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> T.Text -> m () -setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" (Just val) - -constructAppChooserWidgetDefaultText :: T.Text -> IO ([Char], GValue) -constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" (Just val) - -data AppChooserWidgetDefaultTextPropertyInfo -instance AttrInfo AppChooserWidgetDefaultTextPropertyInfo where - type AttrAllowedOps AppChooserWidgetDefaultTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetDefaultTextPropertyInfo = T.Text - type AttrLabel AppChooserWidgetDefaultTextPropertyInfo = "default-text" - attrGet _ = getAppChooserWidgetDefaultText - attrSet _ = setAppChooserWidgetDefaultText - attrConstruct _ = constructAppChooserWidgetDefaultText - attrClear _ = undefined - --- VVV Prop "show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetShowAll :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool -getAppChooserWidgetShowAll obj = liftIO $ getObjectPropertyBool obj "show-all" - -setAppChooserWidgetShowAll :: (MonadIO m, AppChooserWidgetK o) => o -> Bool -> m () -setAppChooserWidgetShowAll obj val = liftIO $ setObjectPropertyBool obj "show-all" val - -constructAppChooserWidgetShowAll :: Bool -> IO ([Char], GValue) -constructAppChooserWidgetShowAll val = constructObjectPropertyBool "show-all" val - -data AppChooserWidgetShowAllPropertyInfo -instance AttrInfo AppChooserWidgetShowAllPropertyInfo where - type AttrAllowedOps AppChooserWidgetShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetShowAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserWidgetShowAllPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetShowAllPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowAllPropertyInfo = "show-all" - attrGet _ = getAppChooserWidgetShowAll - attrSet _ = setAppChooserWidgetShowAll - attrConstruct _ = constructAppChooserWidgetShowAll - attrClear _ = undefined - --- VVV Prop "show-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetShowDefault :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool -getAppChooserWidgetShowDefault obj = liftIO $ getObjectPropertyBool obj "show-default" - -setAppChooserWidgetShowDefault :: (MonadIO m, AppChooserWidgetK o) => o -> Bool -> m () -setAppChooserWidgetShowDefault obj val = liftIO $ setObjectPropertyBool obj "show-default" val - -constructAppChooserWidgetShowDefault :: Bool -> IO ([Char], GValue) -constructAppChooserWidgetShowDefault val = constructObjectPropertyBool "show-default" val - -data AppChooserWidgetShowDefaultPropertyInfo -instance AttrInfo AppChooserWidgetShowDefaultPropertyInfo where - type AttrAllowedOps AppChooserWidgetShowDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetShowDefaultPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowDefaultPropertyInfo = "show-default" - attrGet _ = getAppChooserWidgetShowDefault - attrSet _ = setAppChooserWidgetShowDefault - attrConstruct _ = constructAppChooserWidgetShowDefault - attrClear _ = undefined - --- VVV Prop "show-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetShowFallback :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool -getAppChooserWidgetShowFallback obj = liftIO $ getObjectPropertyBool obj "show-fallback" - -setAppChooserWidgetShowFallback :: (MonadIO m, AppChooserWidgetK o) => o -> Bool -> m () -setAppChooserWidgetShowFallback obj val = liftIO $ setObjectPropertyBool obj "show-fallback" val - -constructAppChooserWidgetShowFallback :: Bool -> IO ([Char], GValue) -constructAppChooserWidgetShowFallback val = constructObjectPropertyBool "show-fallback" val - -data AppChooserWidgetShowFallbackPropertyInfo -instance AttrInfo AppChooserWidgetShowFallbackPropertyInfo where - type AttrAllowedOps AppChooserWidgetShowFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetShowFallbackPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowFallbackPropertyInfo = "show-fallback" - attrGet _ = getAppChooserWidgetShowFallback - attrSet _ = setAppChooserWidgetShowFallback - attrConstruct _ = constructAppChooserWidgetShowFallback - attrClear _ = undefined - --- VVV Prop "show-other" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetShowOther :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool -getAppChooserWidgetShowOther obj = liftIO $ getObjectPropertyBool obj "show-other" - -setAppChooserWidgetShowOther :: (MonadIO m, AppChooserWidgetK o) => o -> Bool -> m () -setAppChooserWidgetShowOther obj val = liftIO $ setObjectPropertyBool obj "show-other" val - -constructAppChooserWidgetShowOther :: Bool -> IO ([Char], GValue) -constructAppChooserWidgetShowOther val = constructObjectPropertyBool "show-other" val - -data AppChooserWidgetShowOtherPropertyInfo -instance AttrInfo AppChooserWidgetShowOtherPropertyInfo where - type AttrAllowedOps AppChooserWidgetShowOtherPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetShowOtherPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserWidgetShowOtherPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetShowOtherPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowOtherPropertyInfo = "show-other" - attrGet _ = getAppChooserWidgetShowOther - attrSet _ = setAppChooserWidgetShowOther - attrConstruct _ = constructAppChooserWidgetShowOther - attrClear _ = undefined - --- VVV Prop "show-recommended" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getAppChooserWidgetShowRecommended :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool -getAppChooserWidgetShowRecommended obj = liftIO $ getObjectPropertyBool obj "show-recommended" - -setAppChooserWidgetShowRecommended :: (MonadIO m, AppChooserWidgetK o) => o -> Bool -> m () -setAppChooserWidgetShowRecommended obj val = liftIO $ setObjectPropertyBool obj "show-recommended" val - -constructAppChooserWidgetShowRecommended :: Bool -> IO ([Char], GValue) -constructAppChooserWidgetShowRecommended val = constructObjectPropertyBool "show-recommended" val - -data AppChooserWidgetShowRecommendedPropertyInfo -instance AttrInfo AppChooserWidgetShowRecommendedPropertyInfo where - type AttrAllowedOps AppChooserWidgetShowRecommendedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = AppChooserWidgetK - type AttrGetType AppChooserWidgetShowRecommendedPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowRecommendedPropertyInfo = "show-recommended" - attrGet _ = getAppChooserWidgetShowRecommended - attrSet _ = setAppChooserWidgetShowRecommended - attrConstruct _ = constructAppChooserWidgetShowRecommended - attrClear _ = undefined - -type instance AttributeList AppChooserWidget = AppChooserWidgetAttributeList -type AppChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -appChooserWidgetDefaultText :: AttrLabelProxy "defaultText" -appChooserWidgetDefaultText = AttrLabelProxy - -appChooserWidgetShowAll :: AttrLabelProxy "showAll" -appChooserWidgetShowAll = AttrLabelProxy - -appChooserWidgetShowDefault :: AttrLabelProxy "showDefault" -appChooserWidgetShowDefault = AttrLabelProxy - -appChooserWidgetShowFallback :: AttrLabelProxy "showFallback" -appChooserWidgetShowFallback = AttrLabelProxy - -appChooserWidgetShowOther :: AttrLabelProxy "showOther" -appChooserWidgetShowOther = AttrLabelProxy - -appChooserWidgetShowRecommended :: AttrLabelProxy "showRecommended" -appChooserWidgetShowRecommended = AttrLabelProxy - -data AppChooserWidgetApplicationActivatedSignalInfo -instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where - type HaskellCallbackType AppChooserWidgetApplicationActivatedSignalInfo = AppChooserWidgetApplicationActivatedCallback - connectSignal _ = connectAppChooserWidgetApplicationActivated - -data AppChooserWidgetApplicationSelectedSignalInfo -instance SignalInfo AppChooserWidgetApplicationSelectedSignalInfo where - type HaskellCallbackType AppChooserWidgetApplicationSelectedSignalInfo = AppChooserWidgetApplicationSelectedCallback - connectSignal _ = connectAppChooserWidgetApplicationSelected - -data AppChooserWidgetPopulatePopupSignalInfo -instance SignalInfo AppChooserWidgetPopulatePopupSignalInfo where - type HaskellCallbackType AppChooserWidgetPopulatePopupSignalInfo = AppChooserWidgetPopulatePopupCallback - connectSignal _ = connectAppChooserWidgetPopulatePopup - -type instance SignalList AppChooserWidget = AppChooserWidgetSignalList -type AppChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("applicationActivated", AppChooserWidgetApplicationActivatedSignalInfo), '("applicationSelected", AppChooserWidgetApplicationSelectedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", AppChooserWidgetPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AppChooserWidget::new --- method type : Constructor --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AppChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_app_chooser_widget_new" gtk_app_chooser_widget_new :: - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr AppChooserWidget) - - -appChooserWidgetNew :: - (MonadIO m) => - T.Text -- contentType - -> m AppChooserWidget -- result -appChooserWidgetNew contentType = liftIO $ do - contentType' <- textToCString contentType - result <- gtk_app_chooser_widget_new contentType' - checkUnexpectedReturnNULL "gtk_app_chooser_widget_new" result - result' <- (newObject AppChooserWidget) result - freeMem contentType' - return result' - --- method AppChooserWidget::get_default_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_default_text" gtk_app_chooser_widget_get_default_text :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CString - - -appChooserWidgetGetDefaultText :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m T.Text -- result -appChooserWidgetGetDefaultText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_default_text _obj' - checkUnexpectedReturnNULL "gtk_app_chooser_widget_get_default_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetDefaultTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetDefaultTextMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetDefaultText - --- method AppChooserWidget::get_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_show_all" gtk_app_chooser_widget_get_show_all :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CInt - - -appChooserWidgetGetShowAll :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m Bool -- result -appChooserWidgetGetShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_show_all _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetShowAllMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowAllMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetShowAll - --- method AppChooserWidget::get_show_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_show_default" gtk_app_chooser_widget_get_show_default :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CInt - - -appChooserWidgetGetShowDefault :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m Bool -- result -appChooserWidgetGetShowDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_show_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetShowDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowDefaultMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetShowDefault - --- method AppChooserWidget::get_show_fallback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_show_fallback" gtk_app_chooser_widget_get_show_fallback :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CInt - - -appChooserWidgetGetShowFallback :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m Bool -- result -appChooserWidgetGetShowFallback _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_show_fallback _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetShowFallbackMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowFallbackMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetShowFallback - --- method AppChooserWidget::get_show_other --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_show_other" gtk_app_chooser_widget_get_show_other :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CInt - - -appChooserWidgetGetShowOther :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m Bool -- result -appChooserWidgetGetShowOther _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_show_other _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetShowOtherMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowOtherMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetShowOther - --- method AppChooserWidget::get_show_recommended --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 "gtk_app_chooser_widget_get_show_recommended" gtk_app_chooser_widget_get_show_recommended :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - IO CInt - - -appChooserWidgetGetShowRecommended :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> m Bool -- result -appChooserWidgetGetShowRecommended _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_app_chooser_widget_get_show_recommended _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppChooserWidgetGetShowRecommendedMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowRecommendedMethodInfo a signature where - overloadedMethod _ = appChooserWidgetGetShowRecommended - --- method AppChooserWidget::set_default_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_app_chooser_widget_set_default_text" gtk_app_chooser_widget_set_default_text :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CString -> -- text : TBasicType TUTF8 - IO () - - -appChooserWidgetSetDefaultText :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -appChooserWidgetSetDefaultText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_app_chooser_widget_set_default_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data AppChooserWidgetSetDefaultTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetDefaultTextMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetDefaultText - --- method AppChooserWidget::set_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_widget_set_show_all" gtk_app_chooser_widget_set_show_all :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserWidgetSetShowAll :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserWidgetSetShowAll _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_widget_set_show_all _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserWidgetSetShowAllMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowAllMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetShowAll - --- method AppChooserWidget::set_show_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_widget_set_show_default" gtk_app_chooser_widget_set_show_default :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserWidgetSetShowDefault :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserWidgetSetShowDefault _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_widget_set_show_default _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserWidgetSetShowDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowDefaultMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetShowDefault - --- method AppChooserWidget::set_show_fallback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_widget_set_show_fallback" gtk_app_chooser_widget_set_show_fallback :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserWidgetSetShowFallback :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserWidgetSetShowFallback _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_widget_set_show_fallback _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserWidgetSetShowFallbackMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowFallbackMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetShowFallback - --- method AppChooserWidget::set_show_other --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_widget_set_show_other" gtk_app_chooser_widget_set_show_other :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserWidgetSetShowOther :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserWidgetSetShowOther _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_widget_set_show_other _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserWidgetSetShowOtherMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowOtherMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetShowOther - --- method AppChooserWidget::set_show_recommended --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_app_chooser_widget_set_show_recommended" gtk_app_chooser_widget_set_show_recommended :: - Ptr AppChooserWidget -> -- _obj : TInterface "Gtk" "AppChooserWidget" - CInt -> -- setting : TBasicType TBoolean - IO () - - -appChooserWidgetSetShowRecommended :: - (MonadIO m, AppChooserWidgetK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -appChooserWidgetSetShowRecommended _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_app_chooser_widget_set_show_recommended _obj' setting' - touchManagedPtr _obj - return () - -data AppChooserWidgetSetShowRecommendedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowRecommendedMethodInfo a signature where - overloadedMethod _ = appChooserWidgetSetShowRecommended - - diff --git a/GI/Gtk/Objects/AppChooserWidget.hs-boot b/GI/Gtk/Objects/AppChooserWidget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AppChooserWidget.hs-boot +++ /dev/null @@ -1,34 +0,0 @@ -module GI.Gtk.Objects.AppChooserWidget 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 AppChooserWidget = AppChooserWidget (ForeignPtr AppChooserWidget) -instance GObject AppChooserWidget where -class GObject o => AppChooserWidgetK o -instance (GObject o, IsDescendantOf AppChooserWidget o) => AppChooserWidgetK o -data AppChooserWidgetDefaultTextPropertyInfo -data AppChooserWidgetShowAllPropertyInfo -data AppChooserWidgetShowDefaultPropertyInfo -data AppChooserWidgetShowFallbackPropertyInfo -data AppChooserWidgetShowOtherPropertyInfo -data AppChooserWidgetShowRecommendedPropertyInfo -data AppChooserWidgetApplicationActivatedSignalInfo -data AppChooserWidgetApplicationSelectedSignalInfo -data AppChooserWidgetPopulatePopupSignalInfo -data AppChooserWidgetGetDefaultTextMethodInfo -data AppChooserWidgetGetShowAllMethodInfo -data AppChooserWidgetGetShowDefaultMethodInfo -data AppChooserWidgetGetShowFallbackMethodInfo -data AppChooserWidgetGetShowOtherMethodInfo -data AppChooserWidgetGetShowRecommendedMethodInfo -data AppChooserWidgetSetDefaultTextMethodInfo -data AppChooserWidgetSetShowAllMethodInfo -data AppChooserWidgetSetShowDefaultMethodInfo -data AppChooserWidgetSetShowFallbackMethodInfo -data AppChooserWidgetSetShowOtherMethodInfo -data AppChooserWidgetSetShowRecommendedMethodInfo diff --git a/GI/Gtk/Objects/Application.hs b/GI/Gtk/Objects/Application.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Application.hs +++ /dev/null @@ -1,1236 +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.Gtk.Objects.Application - ( - --- * Exported types - Application(..) , - ApplicationK , - toApplication , - noApplication , - - - -- * Methods --- ** applicationAddAccelerator - ApplicationAddAcceleratorMethodInfo , - applicationAddAccelerator , - - --- ** applicationAddWindow - ApplicationAddWindowMethodInfo , - applicationAddWindow , - - --- ** applicationGetAccelsForAction - ApplicationGetAccelsForActionMethodInfo , - applicationGetAccelsForAction , - - --- ** applicationGetActionsForAccel - ApplicationGetActionsForAccelMethodInfo , - applicationGetActionsForAccel , - - --- ** applicationGetActiveWindow - ApplicationGetActiveWindowMethodInfo , - applicationGetActiveWindow , - - --- ** applicationGetAppMenu - ApplicationGetAppMenuMethodInfo , - applicationGetAppMenu , - - --- ** applicationGetMenuById - ApplicationGetMenuByIdMethodInfo , - applicationGetMenuById , - - --- ** applicationGetMenubar - ApplicationGetMenubarMethodInfo , - applicationGetMenubar , - - --- ** applicationGetWindowById - ApplicationGetWindowByIdMethodInfo , - applicationGetWindowById , - - --- ** applicationGetWindows - ApplicationGetWindowsMethodInfo , - applicationGetWindows , - - --- ** applicationInhibit - ApplicationInhibitMethodInfo , - applicationInhibit , - - --- ** applicationIsInhibited - ApplicationIsInhibitedMethodInfo , - applicationIsInhibited , - - --- ** applicationListActionDescriptions - ApplicationListActionDescriptionsMethodInfo, - applicationListActionDescriptions , - - --- ** applicationNew - applicationNew , - - --- ** applicationPrefersAppMenu - ApplicationPrefersAppMenuMethodInfo , - applicationPrefersAppMenu , - - --- ** applicationRemoveAccelerator - ApplicationRemoveAcceleratorMethodInfo , - applicationRemoveAccelerator , - - --- ** applicationRemoveWindow - ApplicationRemoveWindowMethodInfo , - applicationRemoveWindow , - - --- ** applicationSetAccelsForAction - ApplicationSetAccelsForActionMethodInfo , - applicationSetAccelsForAction , - - --- ** applicationSetAppMenu - ApplicationSetAppMenuMethodInfo , - applicationSetAppMenu , - - --- ** applicationSetMenubar - ApplicationSetMenubarMethodInfo , - applicationSetMenubar , - - --- ** applicationUninhibit - ApplicationUninhibitMethodInfo , - applicationUninhibit , - - - - - -- * Properties --- ** ActiveWindow - ApplicationActiveWindowPropertyInfo , - applicationActiveWindow , - getApplicationActiveWindow , - - --- ** AppMenu - ApplicationAppMenuPropertyInfo , - applicationAppMenu , - clearApplicationAppMenu , - constructApplicationAppMenu , - getApplicationAppMenu , - setApplicationAppMenu , - - --- ** Menubar - ApplicationMenubarPropertyInfo , - applicationMenubar , - clearApplicationMenubar , - constructApplicationMenubar , - getApplicationMenubar , - setApplicationMenubar , - - --- ** RegisterSession - ApplicationRegisterSessionPropertyInfo , - applicationRegisterSession , - constructApplicationRegisterSession , - getApplicationRegisterSession , - setApplicationRegisterSession , - - - - - -- * Signals --- ** WindowAdded - ApplicationWindowAddedCallback , - ApplicationWindowAddedCallbackC , - ApplicationWindowAddedSignalInfo , - afterApplicationWindowAdded , - applicationWindowAddedCallbackWrapper , - applicationWindowAddedClosure , - mkApplicationWindowAddedCallback , - noApplicationWindowAddedCallback , - onApplicationWindowAdded , - - --- ** WindowRemoved - ApplicationWindowRemovedCallback , - ApplicationWindowRemovedCallbackC , - ApplicationWindowRemovedSignalInfo , - afterApplicationWindowRemoved , - applicationWindowRemovedCallbackWrapper , - applicationWindowRemovedClosure , - mkApplicationWindowRemovedCallback , - noApplicationWindowRemovedCallback , - onApplicationWindowRemoved , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Application = Application (ForeignPtr Application) -foreign import ccall "gtk_application_get_type" - c_gtk_application_get_type :: IO GType - -type instance ParentTypes Application = ApplicationParentTypes -type ApplicationParentTypes = '[Gio.Application, GObject.Object, Gio.ActionGroup, Gio.ActionMap] - -instance GObject Application where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_application_get_type - - -class GObject o => ApplicationK o -instance (GObject o, IsDescendantOf Application o) => ApplicationK o - -toApplication :: ApplicationK o => o -> IO Application -toApplication = unsafeCastTo Application - -noApplication :: Maybe Application -noApplication = Nothing - -type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where - ResolveApplicationMethod "actionAdded" o = Gio.ActionGroupActionAddedMethodInfo - ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroupActionEnabledChangedMethodInfo - ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroupActionRemovedMethodInfo - ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroupActionStateChangedMethodInfo - ResolveApplicationMethod "activate" o = Gio.ApplicationActivateMethodInfo - ResolveApplicationMethod "activateAction" o = Gio.ActionGroupActivateActionMethodInfo - ResolveApplicationMethod "addAccelerator" o = ApplicationAddAcceleratorMethodInfo - ResolveApplicationMethod "addAction" o = Gio.ActionMapAddActionMethodInfo - ResolveApplicationMethod "addActionEntries" o = Gio.ActionMapAddActionEntriesMethodInfo - ResolveApplicationMethod "addMainOption" o = Gio.ApplicationAddMainOptionMethodInfo - ResolveApplicationMethod "addMainOptionEntries" o = Gio.ApplicationAddMainOptionEntriesMethodInfo - ResolveApplicationMethod "addOptionGroup" o = Gio.ApplicationAddOptionGroupMethodInfo - ResolveApplicationMethod "addWindow" o = ApplicationAddWindowMethodInfo - ResolveApplicationMethod "bindBusyProperty" o = Gio.ApplicationBindBusyPropertyMethodInfo - ResolveApplicationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveApplicationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveApplicationMethod "changeActionState" o = Gio.ActionGroupChangeActionStateMethodInfo - ResolveApplicationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveApplicationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveApplicationMethod "hasAction" o = Gio.ActionGroupHasActionMethodInfo - ResolveApplicationMethod "hold" o = Gio.ApplicationHoldMethodInfo - ResolveApplicationMethod "inhibit" o = ApplicationInhibitMethodInfo - ResolveApplicationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveApplicationMethod "isInhibited" o = ApplicationIsInhibitedMethodInfo - ResolveApplicationMethod "listActionDescriptions" o = ApplicationListActionDescriptionsMethodInfo - ResolveApplicationMethod "listActions" o = Gio.ActionGroupListActionsMethodInfo - ResolveApplicationMethod "lookupAction" o = Gio.ActionMapLookupActionMethodInfo - ResolveApplicationMethod "markBusy" o = Gio.ApplicationMarkBusyMethodInfo - ResolveApplicationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveApplicationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveApplicationMethod "open" o = Gio.ApplicationOpenMethodInfo - ResolveApplicationMethod "prefersAppMenu" o = ApplicationPrefersAppMenuMethodInfo - ResolveApplicationMethod "queryAction" o = Gio.ActionGroupQueryActionMethodInfo - ResolveApplicationMethod "quit" o = Gio.ApplicationQuitMethodInfo - ResolveApplicationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveApplicationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveApplicationMethod "register" o = Gio.ApplicationRegisterMethodInfo - ResolveApplicationMethod "release" o = Gio.ApplicationReleaseMethodInfo - ResolveApplicationMethod "removeAccelerator" o = ApplicationRemoveAcceleratorMethodInfo - ResolveApplicationMethod "removeAction" o = Gio.ActionMapRemoveActionMethodInfo - ResolveApplicationMethod "removeWindow" o = ApplicationRemoveWindowMethodInfo - ResolveApplicationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveApplicationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveApplicationMethod "run" o = Gio.ApplicationRunMethodInfo - ResolveApplicationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveApplicationMethod "sendNotification" o = Gio.ApplicationSendNotificationMethodInfo - ResolveApplicationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveApplicationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveApplicationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveApplicationMethod "unbindBusyProperty" o = Gio.ApplicationUnbindBusyPropertyMethodInfo - ResolveApplicationMethod "uninhibit" o = ApplicationUninhibitMethodInfo - ResolveApplicationMethod "unmarkBusy" o = Gio.ApplicationUnmarkBusyMethodInfo - ResolveApplicationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveApplicationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveApplicationMethod "withdrawNotification" o = Gio.ApplicationWithdrawNotificationMethodInfo - ResolveApplicationMethod "getAccelsForAction" o = ApplicationGetAccelsForActionMethodInfo - ResolveApplicationMethod "getActionEnabled" o = Gio.ActionGroupGetActionEnabledMethodInfo - ResolveApplicationMethod "getActionParameterType" o = Gio.ActionGroupGetActionParameterTypeMethodInfo - ResolveApplicationMethod "getActionState" o = Gio.ActionGroupGetActionStateMethodInfo - ResolveApplicationMethod "getActionStateHint" o = Gio.ActionGroupGetActionStateHintMethodInfo - ResolveApplicationMethod "getActionStateType" o = Gio.ActionGroupGetActionStateTypeMethodInfo - ResolveApplicationMethod "getActionsForAccel" o = ApplicationGetActionsForAccelMethodInfo - ResolveApplicationMethod "getActiveWindow" o = ApplicationGetActiveWindowMethodInfo - ResolveApplicationMethod "getAppMenu" o = ApplicationGetAppMenuMethodInfo - ResolveApplicationMethod "getApplicationId" o = Gio.ApplicationGetApplicationIdMethodInfo - ResolveApplicationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveApplicationMethod "getDbusConnection" o = Gio.ApplicationGetDbusConnectionMethodInfo - ResolveApplicationMethod "getDbusObjectPath" o = Gio.ApplicationGetDbusObjectPathMethodInfo - ResolveApplicationMethod "getFlags" o = Gio.ApplicationGetFlagsMethodInfo - ResolveApplicationMethod "getInactivityTimeout" o = Gio.ApplicationGetInactivityTimeoutMethodInfo - ResolveApplicationMethod "getIsBusy" o = Gio.ApplicationGetIsBusyMethodInfo - ResolveApplicationMethod "getIsRegistered" o = Gio.ApplicationGetIsRegisteredMethodInfo - ResolveApplicationMethod "getIsRemote" o = Gio.ApplicationGetIsRemoteMethodInfo - ResolveApplicationMethod "getMenuById" o = ApplicationGetMenuByIdMethodInfo - ResolveApplicationMethod "getMenubar" o = ApplicationGetMenubarMethodInfo - ResolveApplicationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveApplicationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveApplicationMethod "getResourceBasePath" o = Gio.ApplicationGetResourceBasePathMethodInfo - ResolveApplicationMethod "getWindowById" o = ApplicationGetWindowByIdMethodInfo - ResolveApplicationMethod "getWindows" o = ApplicationGetWindowsMethodInfo - ResolveApplicationMethod "setAccelsForAction" o = ApplicationSetAccelsForActionMethodInfo - ResolveApplicationMethod "setActionGroup" o = Gio.ApplicationSetActionGroupMethodInfo - ResolveApplicationMethod "setAppMenu" o = ApplicationSetAppMenuMethodInfo - ResolveApplicationMethod "setApplicationId" o = Gio.ApplicationSetApplicationIdMethodInfo - ResolveApplicationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveApplicationMethod "setDefault" o = Gio.ApplicationSetDefaultMethodInfo - ResolveApplicationMethod "setFlags" o = Gio.ApplicationSetFlagsMethodInfo - ResolveApplicationMethod "setInactivityTimeout" o = Gio.ApplicationSetInactivityTimeoutMethodInfo - ResolveApplicationMethod "setMenubar" o = ApplicationSetMenubarMethodInfo - ResolveApplicationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveApplicationMethod "setResourceBasePath" o = Gio.ApplicationSetResourceBasePathMethodInfo - ResolveApplicationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabelProxy t (Application -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabel t (Application -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Application::window-added -type ApplicationWindowAddedCallback = - Window -> - IO () - -noApplicationWindowAddedCallback :: Maybe ApplicationWindowAddedCallback -noApplicationWindowAddedCallback = Nothing - -type ApplicationWindowAddedCallbackC = - Ptr () -> -- object - Ptr Window -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationWindowAddedCallback :: ApplicationWindowAddedCallbackC -> IO (FunPtr ApplicationWindowAddedCallbackC) - -applicationWindowAddedClosure :: ApplicationWindowAddedCallback -> IO Closure -applicationWindowAddedClosure cb = newCClosure =<< mkApplicationWindowAddedCallback wrapped - where wrapped = applicationWindowAddedCallbackWrapper cb - -applicationWindowAddedCallbackWrapper :: - ApplicationWindowAddedCallback -> - Ptr () -> - Ptr Window -> - Ptr () -> - IO () -applicationWindowAddedCallbackWrapper _cb _ window _ = do - window' <- (newObject Window) window - _cb window' - -onApplicationWindowAdded :: (GObject a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId -onApplicationWindowAdded obj cb = liftIO $ connectApplicationWindowAdded obj cb SignalConnectBefore -afterApplicationWindowAdded :: (GObject a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId -afterApplicationWindowAdded obj cb = connectApplicationWindowAdded obj cb SignalConnectAfter - -connectApplicationWindowAdded :: (GObject a, MonadIO m) => - a -> ApplicationWindowAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationWindowAdded obj cb after = liftIO $ do - cb' <- mkApplicationWindowAddedCallback (applicationWindowAddedCallbackWrapper cb) - connectSignalFunPtr obj "window-added" cb' after - --- signal Application::window-removed -type ApplicationWindowRemovedCallback = - Window -> - IO () - -noApplicationWindowRemovedCallback :: Maybe ApplicationWindowRemovedCallback -noApplicationWindowRemovedCallback = Nothing - -type ApplicationWindowRemovedCallbackC = - Ptr () -> -- object - Ptr Window -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationWindowRemovedCallback :: ApplicationWindowRemovedCallbackC -> IO (FunPtr ApplicationWindowRemovedCallbackC) - -applicationWindowRemovedClosure :: ApplicationWindowRemovedCallback -> IO Closure -applicationWindowRemovedClosure cb = newCClosure =<< mkApplicationWindowRemovedCallback wrapped - where wrapped = applicationWindowRemovedCallbackWrapper cb - -applicationWindowRemovedCallbackWrapper :: - ApplicationWindowRemovedCallback -> - Ptr () -> - Ptr Window -> - Ptr () -> - IO () -applicationWindowRemovedCallbackWrapper _cb _ window _ = do - window' <- (newObject Window) window - _cb window' - -onApplicationWindowRemoved :: (GObject a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId -onApplicationWindowRemoved obj cb = liftIO $ connectApplicationWindowRemoved obj cb SignalConnectBefore -afterApplicationWindowRemoved :: (GObject a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId -afterApplicationWindowRemoved obj cb = connectApplicationWindowRemoved obj cb SignalConnectAfter - -connectApplicationWindowRemoved :: (GObject a, MonadIO m) => - a -> ApplicationWindowRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationWindowRemoved obj cb after = liftIO $ do - cb' <- mkApplicationWindowRemovedCallback (applicationWindowRemovedCallbackWrapper cb) - connectSignalFunPtr obj "window-removed" cb' after - --- VVV Prop "active-window" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getApplicationActiveWindow :: (MonadIO m, ApplicationK o) => o -> m Window -getApplicationActiveWindow obj = liftIO $ checkUnexpectedNothing "getApplicationActiveWindow" $ getObjectPropertyObject obj "active-window" Window - -data ApplicationActiveWindowPropertyInfo -instance AttrInfo ApplicationActiveWindowPropertyInfo where - type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK - type AttrGetType ApplicationActiveWindowPropertyInfo = Window - type AttrLabel ApplicationActiveWindowPropertyInfo = "active-window" - attrGet _ = getApplicationActiveWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "app-menu" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationAppMenu obj = liftIO $ checkUnexpectedNothing "getApplicationAppMenu" $ getObjectPropertyObject obj "app-menu" Gio.MenuModel - -setApplicationAppMenu :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () -setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" (Just val) - -constructApplicationAppMenu :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" (Just val) - -clearApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m () -clearApplicationAppMenu obj = liftIO $ setObjectPropertyObject obj "app-menu" (Nothing :: Maybe Gio.MenuModel) - -data ApplicationAppMenuPropertyInfo -instance AttrInfo ApplicationAppMenuPropertyInfo where - type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK - type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationAppMenuPropertyInfo = "app-menu" - attrGet _ = getApplicationAppMenu - attrSet _ = setApplicationAppMenu - attrConstruct _ = constructApplicationAppMenu - attrClear _ = clearApplicationAppMenu - --- VVV Prop "menubar" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationMenubar obj = liftIO $ checkUnexpectedNothing "getApplicationMenubar" $ getObjectPropertyObject obj "menubar" Gio.MenuModel - -setApplicationMenubar :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () -setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" (Just val) - -constructApplicationMenubar :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationMenubar val = constructObjectPropertyObject "menubar" (Just val) - -clearApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m () -clearApplicationMenubar obj = liftIO $ setObjectPropertyObject obj "menubar" (Nothing :: Maybe Gio.MenuModel) - -data ApplicationMenubarPropertyInfo -instance AttrInfo ApplicationMenubarPropertyInfo where - type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK - type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationMenubarPropertyInfo = "menubar" - attrGet _ = getApplicationMenubar - attrSet _ = setApplicationMenubar - attrConstruct _ = constructApplicationMenubar - attrClear _ = clearApplicationMenubar - --- VVV Prop "register-session" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getApplicationRegisterSession :: (MonadIO m, ApplicationK o) => o -> m Bool -getApplicationRegisterSession obj = liftIO $ getObjectPropertyBool obj "register-session" - -setApplicationRegisterSession :: (MonadIO m, ApplicationK o) => o -> Bool -> m () -setApplicationRegisterSession obj val = liftIO $ setObjectPropertyBool obj "register-session" val - -constructApplicationRegisterSession :: Bool -> IO ([Char], GValue) -constructApplicationRegisterSession val = constructObjectPropertyBool "register-session" val - -data ApplicationRegisterSessionPropertyInfo -instance AttrInfo ApplicationRegisterSessionPropertyInfo where - type AttrAllowedOps ApplicationRegisterSessionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ApplicationRegisterSessionPropertyInfo = ApplicationK - type AttrGetType ApplicationRegisterSessionPropertyInfo = Bool - type AttrLabel ApplicationRegisterSessionPropertyInfo = "register-session" - attrGet _ = getApplicationRegisterSession - attrSet _ = setApplicationRegisterSession - attrConstruct _ = constructApplicationRegisterSession - attrClear _ = undefined - -type instance AttributeList Application = ApplicationAttributeList -type ApplicationAttributeList = ('[ '("actionGroup", Gio.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) - -applicationActiveWindow :: AttrLabelProxy "activeWindow" -applicationActiveWindow = AttrLabelProxy - -applicationAppMenu :: AttrLabelProxy "appMenu" -applicationAppMenu = AttrLabelProxy - -applicationMenubar :: AttrLabelProxy "menubar" -applicationMenubar = AttrLabelProxy - -applicationRegisterSession :: AttrLabelProxy "registerSession" -applicationRegisterSession = AttrLabelProxy - -data ApplicationWindowAddedSignalInfo -instance SignalInfo ApplicationWindowAddedSignalInfo where - type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback - connectSignal _ = connectApplicationWindowAdded - -data ApplicationWindowRemovedSignalInfo -instance SignalInfo ApplicationWindowRemovedSignalInfo where - type HaskellCallbackType ApplicationWindowRemovedSignalInfo = ApplicationWindowRemovedCallback - connectSignal _ = connectApplicationWindowRemoved - -type instance SignalList Application = ApplicationSignalList -type ApplicationSignalList = ('[ '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.ApplicationActivateSignalInfo), '("commandLine", Gio.ApplicationCommandLineSignalInfo), '("handleLocalOptions", Gio.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", Gio.ApplicationOpenSignalInfo), '("shutdown", Gio.ApplicationShutdownSignalInfo), '("startup", Gio.ApplicationStartupSignalInfo), '("windowAdded", ApplicationWindowAddedSignalInfo), '("windowRemoved", ApplicationWindowRemovedSignalInfo)] :: [(Symbol, *)]) - --- method Application::new --- method type : Constructor --- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Application") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_new" gtk_application_new :: - CString -> -- application_id : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "ApplicationFlags" - IO (Ptr Application) - - -applicationNew :: - (MonadIO m) => - Maybe (T.Text) -- applicationId - -> [Gio.ApplicationFlags] -- flags - -> m Application -- result -applicationNew applicationId flags = liftIO $ do - maybeApplicationId <- case applicationId of - Nothing -> return nullPtr - Just jApplicationId -> do - jApplicationId' <- textToCString jApplicationId - return jApplicationId' - let flags' = gflagsToWord flags - result <- gtk_application_new maybeApplicationId flags' - checkUnexpectedReturnNULL "gtk_application_new" result - result' <- (wrapObject Application) result - freeMem maybeApplicationId - return result' - --- method Application::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_add_accelerator" gtk_application_add_accelerator :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- accelerator : TBasicType TUTF8 - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- parameter : TVariant - IO () - -{-# DEPRECATED applicationAddAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-} -applicationAddAccelerator :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- accelerator - -> T.Text -- actionName - -> Maybe (GVariant) -- parameter - -> m () -- result -applicationAddAccelerator _obj accelerator actionName parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelerator' <- textToCString accelerator - actionName' <- textToCString actionName - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - gtk_application_add_accelerator _obj' accelerator' actionName' maybeParameter - touchManagedPtr _obj - freeMem accelerator' - freeMem actionName' - return () - -data ApplicationAddAcceleratorMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddAcceleratorMethodInfo a signature where - overloadedMethod _ = applicationAddAccelerator - --- method Application::add_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", 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 "gtk_application_add_window" gtk_application_add_window :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Ptr Window -> -- window : TInterface "Gtk" "Window" - IO () - - -applicationAddWindow :: - (MonadIO m, ApplicationK a, WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -applicationAddWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_application_add_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data ApplicationAddWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationAddWindowMethodInfo a signature where - overloadedMethod _ = applicationAddWindow - --- method Application::get_accels_for_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_accels_for_action" gtk_application_get_accels_for_action :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- detailed_action_name : TBasicType TUTF8 - IO (Ptr CString) - - -applicationGetAccelsForAction :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- detailedActionName - -> m [T.Text] -- result -applicationGetAccelsForAction _obj detailedActionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailedActionName' <- textToCString detailedActionName - result <- gtk_application_get_accels_for_action _obj' detailedActionName' - checkUnexpectedReturnNULL "gtk_application_get_accels_for_action" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem detailedActionName' - return result' - -data ApplicationGetAccelsForActionMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetAccelsForActionMethodInfo a signature where - overloadedMethod _ = applicationGetAccelsForAction - --- method Application::get_actions_for_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_actions_for_accel" gtk_application_get_actions_for_accel :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- accel : TBasicType TUTF8 - IO (Ptr CString) - - -applicationGetActionsForAccel :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- accel - -> m [T.Text] -- result -applicationGetActionsForAccel _obj accel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accel' <- textToCString accel - result <- gtk_application_get_actions_for_accel _obj' accel' - checkUnexpectedReturnNULL "gtk_application_get_actions_for_accel" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem accel' - return result' - -data ApplicationGetActionsForAccelMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetActionsForAccelMethodInfo a signature where - overloadedMethod _ = applicationGetActionsForAccel - --- method Application::get_active_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_active_window" gtk_application_get_active_window :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO (Ptr Window) - - -applicationGetActiveWindow :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Window -- result -applicationGetActiveWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_active_window _obj' - checkUnexpectedReturnNULL "gtk_application_get_active_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data ApplicationGetActiveWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetActiveWindowMethodInfo a signature where - overloadedMethod _ = applicationGetActiveWindow - --- method Application::get_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_app_menu" gtk_application_get_app_menu :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO (Ptr Gio.MenuModel) - - -applicationGetAppMenu :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Gio.MenuModel -- result -applicationGetAppMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_app_menu _obj' - checkUnexpectedReturnNULL "gtk_application_get_app_menu" result - result' <- (newObject Gio.MenuModel) result - touchManagedPtr _obj - return result' - -data ApplicationGetAppMenuMethodInfo -instance (signature ~ (m Gio.MenuModel), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetAppMenuMethodInfo a signature where - overloadedMethod _ = applicationGetAppMenu - --- method Application::get_menu_by_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Menu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_menu_by_id" gtk_application_get_menu_by_id :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- id : TBasicType TUTF8 - IO (Ptr Gio.Menu) - - -applicationGetMenuById :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- id - -> m Gio.Menu -- result -applicationGetMenuById _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - id' <- textToCString id - result <- gtk_application_get_menu_by_id _obj' id' - checkUnexpectedReturnNULL "gtk_application_get_menu_by_id" result - result' <- (newObject Gio.Menu) result - touchManagedPtr _obj - freeMem id' - return result' - -data ApplicationGetMenuByIdMethodInfo -instance (signature ~ (T.Text -> m Gio.Menu), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetMenuByIdMethodInfo a signature where - overloadedMethod _ = applicationGetMenuById - --- method Application::get_menubar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_menubar" gtk_application_get_menubar :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO (Ptr Gio.MenuModel) - - -applicationGetMenubar :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Gio.MenuModel -- result -applicationGetMenubar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_menubar _obj' - checkUnexpectedReturnNULL "gtk_application_get_menubar" result - result' <- (newObject Gio.MenuModel) result - touchManagedPtr _obj - return result' - -data ApplicationGetMenubarMethodInfo -instance (signature ~ (m Gio.MenuModel), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetMenubarMethodInfo a signature where - overloadedMethod _ = applicationGetMenubar - --- method Application::get_window_by_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Word32 -> -- id : TBasicType TUInt - IO (Ptr Window) - - -applicationGetWindowById :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Word32 -- id - -> m Window -- result -applicationGetWindowById _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_window_by_id _obj' id - checkUnexpectedReturnNULL "gtk_application_get_window_by_id" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data ApplicationGetWindowByIdMethodInfo -instance (signature ~ (Word32 -> m Window), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetWindowByIdMethodInfo a signature where - overloadedMethod _ = applicationGetWindowById - --- method Application::get_windows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_get_windows" gtk_application_get_windows :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO (Ptr (GList (Ptr Window))) - - -applicationGetWindows :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m [Window] -- result -applicationGetWindows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_windows _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - touchManagedPtr _obj - return result'' - -data ApplicationGetWindowsMethodInfo -instance (signature ~ (m [Window]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetWindowsMethodInfo a signature where - overloadedMethod _ = applicationGetWindows - --- method Application::inhibit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_inhibit" gtk_application_inhibit :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Ptr Window -> -- window : TInterface "Gtk" "Window" - CUInt -> -- flags : TInterface "Gtk" "ApplicationInhibitFlags" - CString -> -- reason : TBasicType TUTF8 - IO Word32 - - -applicationInhibit :: - (MonadIO m, ApplicationK a, WindowK b) => - a -- _obj - -> Maybe (b) -- window - -> [ApplicationInhibitFlags] -- flags - -> Maybe (T.Text) -- reason - -> m Word32 -- result -applicationInhibit _obj window flags reason = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWindow <- case window of - Nothing -> return nullPtr - Just jWindow -> do - let jWindow' = unsafeManagedPtrCastPtr jWindow - return jWindow' - let flags' = gflagsToWord flags - maybeReason <- case reason of - Nothing -> return nullPtr - Just jReason -> do - jReason' <- textToCString jReason - return jReason' - result <- gtk_application_inhibit _obj' maybeWindow flags' maybeReason - touchManagedPtr _obj - whenJust window touchManagedPtr - freeMem maybeReason - return result - -data ApplicationInhibitMethodInfo -instance (signature ~ (Maybe (b) -> [ApplicationInhibitFlags] -> Maybe (T.Text) -> m Word32), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationInhibitMethodInfo a signature where - overloadedMethod _ = applicationInhibit - --- method Application::is_inhibited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", 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 "gtk_application_is_inhibited" gtk_application_is_inhibited :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CUInt -> -- flags : TInterface "Gtk" "ApplicationInhibitFlags" - IO CInt - - -applicationIsInhibited :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> [ApplicationInhibitFlags] -- flags - -> m Bool -- result -applicationIsInhibited _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - result <- gtk_application_is_inhibited _obj' flags' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationIsInhibitedMethodInfo -instance (signature ~ ([ApplicationInhibitFlags] -> m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationIsInhibitedMethodInfo a signature where - overloadedMethod _ = applicationIsInhibited - --- method Application::list_action_descriptions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_list_action_descriptions" gtk_application_list_action_descriptions :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO (Ptr CString) - - -applicationListActionDescriptions :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m [T.Text] -- result -applicationListActionDescriptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_list_action_descriptions _obj' - checkUnexpectedReturnNULL "gtk_application_list_action_descriptions" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data ApplicationListActionDescriptionsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationListActionDescriptionsMethodInfo a signature where - overloadedMethod _ = applicationListActionDescriptions - --- method Application::prefers_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", 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 "gtk_application_prefers_app_menu" gtk_application_prefers_app_menu :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - IO CInt - - -applicationPrefersAppMenu :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Bool -- result -applicationPrefersAppMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_prefers_app_menu _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationPrefersAppMenuMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationPrefersAppMenuMethodInfo a signature where - overloadedMethod _ = applicationPrefersAppMenu - --- method Application::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_remove_accelerator" gtk_application_remove_accelerator :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- parameter : TVariant - IO () - -{-# DEPRECATED applicationRemoveAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-} -applicationRemoveAccelerator :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- actionName - -> Maybe (GVariant) -- parameter - -> m () -- result -applicationRemoveAccelerator _obj actionName parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - gtk_application_remove_accelerator _obj' actionName' maybeParameter - touchManagedPtr _obj - freeMem actionName' - return () - -data ApplicationRemoveAcceleratorMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationRemoveAcceleratorMethodInfo a signature where - overloadedMethod _ = applicationRemoveAccelerator - --- method Application::remove_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", 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 "gtk_application_remove_window" gtk_application_remove_window :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Ptr Window -> -- window : TInterface "Gtk" "Window" - IO () - - -applicationRemoveWindow :: - (MonadIO m, ApplicationK a, WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -applicationRemoveWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_application_remove_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data ApplicationRemoveWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationRemoveWindowMethodInfo a signature where - overloadedMethod _ = applicationRemoveWindow - --- method Application::set_accels_for_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accels", argType = TCArray True (-1) (-1) (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 "gtk_application_set_accels_for_action" gtk_application_set_accels_for_action :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - CString -> -- detailed_action_name : TBasicType TUTF8 - Ptr CString -> -- accels : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -applicationSetAccelsForAction :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- detailedActionName - -> [T.Text] -- accels - -> m () -- result -applicationSetAccelsForAction _obj detailedActionName accels = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailedActionName' <- textToCString detailedActionName - accels' <- packZeroTerminatedUTF8CArray accels - gtk_application_set_accels_for_action _obj' detailedActionName' accels' - touchManagedPtr _obj - freeMem detailedActionName' - mapZeroTerminatedCArray freeMem accels' - freeMem accels' - return () - -data ApplicationSetAccelsForActionMethodInfo -instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetAccelsForActionMethodInfo a signature where - overloadedMethod _ = applicationSetAccelsForAction - --- method Application::set_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_set_app_menu" gtk_application_set_app_menu :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Ptr Gio.MenuModel -> -- app_menu : TInterface "Gio" "MenuModel" - IO () - - -applicationSetAppMenu :: - (MonadIO m, ApplicationK a, Gio.MenuModelK b) => - a -- _obj - -> Maybe (b) -- appMenu - -> m () -- result -applicationSetAppMenu _obj appMenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAppMenu <- case appMenu of - Nothing -> return nullPtr - Just jAppMenu -> do - let jAppMenu' = unsafeManagedPtrCastPtr jAppMenu - return jAppMenu' - gtk_application_set_app_menu _obj' maybeAppMenu - touchManagedPtr _obj - whenJust appMenu touchManagedPtr - return () - -data ApplicationSetAppMenuMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, Gio.MenuModelK b) => MethodInfo ApplicationSetAppMenuMethodInfo a signature where - overloadedMethod _ = applicationSetAppMenu - --- method Application::set_menubar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_set_menubar" gtk_application_set_menubar :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Ptr Gio.MenuModel -> -- menubar : TInterface "Gio" "MenuModel" - IO () - - -applicationSetMenubar :: - (MonadIO m, ApplicationK a, Gio.MenuModelK b) => - a -- _obj - -> Maybe (b) -- menubar - -> m () -- result -applicationSetMenubar _obj menubar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMenubar <- case menubar of - Nothing -> return nullPtr - Just jMenubar -> do - let jMenubar' = unsafeManagedPtrCastPtr jMenubar - return jMenubar' - gtk_application_set_menubar _obj' maybeMenubar - touchManagedPtr _obj - whenJust menubar touchManagedPtr - return () - -data ApplicationSetMenubarMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, Gio.MenuModelK b) => MethodInfo ApplicationSetMenubarMethodInfo a signature where - overloadedMethod _ = applicationSetMenubar - --- method Application::uninhibit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", 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 "gtk_application_uninhibit" gtk_application_uninhibit :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Word32 -> -- cookie : TBasicType TUInt - IO () - - -applicationUninhibit :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Word32 -- cookie - -> m () -- result -applicationUninhibit _obj cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_application_uninhibit _obj' cookie - touchManagedPtr _obj - return () - -data ApplicationUninhibitMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationUninhibitMethodInfo a signature where - overloadedMethod _ = applicationUninhibit - - diff --git a/GI/Gtk/Objects/Application.hs-boot b/GI/Gtk/Objects/Application.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Application.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.Gtk.Objects.Application 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 Application = Application (ForeignPtr Application) -instance GObject Application where -class GObject o => ApplicationK o -instance (GObject o, IsDescendantOf Application o) => ApplicationK o -data ApplicationActiveWindowPropertyInfo -data ApplicationAppMenuPropertyInfo -data ApplicationMenubarPropertyInfo -data ApplicationRegisterSessionPropertyInfo -data ApplicationWindowAddedSignalInfo -data ApplicationWindowRemovedSignalInfo -data ApplicationAddAcceleratorMethodInfo -data ApplicationAddWindowMethodInfo -data ApplicationGetAccelsForActionMethodInfo -data ApplicationGetActionsForAccelMethodInfo -data ApplicationGetActiveWindowMethodInfo -data ApplicationGetAppMenuMethodInfo -data ApplicationGetMenuByIdMethodInfo -data ApplicationGetMenubarMethodInfo -data ApplicationGetWindowByIdMethodInfo -data ApplicationGetWindowsMethodInfo -data ApplicationInhibitMethodInfo -data ApplicationIsInhibitedMethodInfo -data ApplicationListActionDescriptionsMethodInfo -data ApplicationPrefersAppMenuMethodInfo -data ApplicationRemoveAcceleratorMethodInfo -data ApplicationRemoveWindowMethodInfo -data ApplicationSetAccelsForActionMethodInfo -data ApplicationSetAppMenuMethodInfo -data ApplicationSetMenubarMethodInfo -data ApplicationUninhibitMethodInfo diff --git a/GI/Gtk/Objects/ApplicationWindow.hs b/GI/Gtk/Objects/ApplicationWindow.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ApplicationWindow.hs +++ /dev/null @@ -1,678 +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.Gtk.Objects.ApplicationWindow - ( - --- * Exported types - ApplicationWindow(..) , - ApplicationWindowK , - toApplicationWindow , - noApplicationWindow , - - - -- * Methods --- ** applicationWindowGetId - ApplicationWindowGetIdMethodInfo , - applicationWindowGetId , - - --- ** applicationWindowGetShowMenubar - ApplicationWindowGetShowMenubarMethodInfo, - applicationWindowGetShowMenubar , - - --- ** applicationWindowNew - applicationWindowNew , - - --- ** applicationWindowSetShowMenubar - ApplicationWindowSetShowMenubarMethodInfo, - applicationWindowSetShowMenubar , - - - - - -- * Properties --- ** ShowMenubar - ApplicationWindowShowMenubarPropertyInfo, - applicationWindowShowMenubar , - constructApplicationWindowShowMenubar , - getApplicationWindowShowMenubar , - setApplicationWindowShowMenubar , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype ApplicationWindow = ApplicationWindow (ForeignPtr ApplicationWindow) -foreign import ccall "gtk_application_window_get_type" - c_gtk_application_window_get_type :: IO GType - -type instance ParentTypes ApplicationWindow = ApplicationWindowParentTypes -type ApplicationWindowParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Gio.ActionGroup, Gio.ActionMap, Buildable] - -instance GObject ApplicationWindow where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_application_window_get_type - - -class GObject o => ApplicationWindowK o -instance (GObject o, IsDescendantOf ApplicationWindow o) => ApplicationWindowK o - -toApplicationWindow :: ApplicationWindowK o => o -> IO ApplicationWindow -toApplicationWindow = unsafeCastTo ApplicationWindow - -noApplicationWindow :: Maybe ApplicationWindow -noApplicationWindow = Nothing - -type family ResolveApplicationWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveApplicationWindowMethod "actionAdded" o = Gio.ActionGroupActionAddedMethodInfo - ResolveApplicationWindowMethod "actionEnabledChanged" o = Gio.ActionGroupActionEnabledChangedMethodInfo - ResolveApplicationWindowMethod "actionRemoved" o = Gio.ActionGroupActionRemovedMethodInfo - ResolveApplicationWindowMethod "actionStateChanged" o = Gio.ActionGroupActionStateChangedMethodInfo - ResolveApplicationWindowMethod "activate" o = WidgetActivateMethodInfo - ResolveApplicationWindowMethod "activateAction" o = Gio.ActionGroupActivateActionMethodInfo - ResolveApplicationWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveApplicationWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveApplicationWindowMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveApplicationWindowMethod "add" o = ContainerAddMethodInfo - ResolveApplicationWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveApplicationWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveApplicationWindowMethod "addAction" o = Gio.ActionMapAddActionMethodInfo - ResolveApplicationWindowMethod "addActionEntries" o = Gio.ActionMapAddActionEntriesMethodInfo - ResolveApplicationWindowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveApplicationWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveApplicationWindowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveApplicationWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveApplicationWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveApplicationWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveApplicationWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveApplicationWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveApplicationWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveApplicationWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveApplicationWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveApplicationWindowMethod "changeActionState" o = Gio.ActionGroupChangeActionStateMethodInfo - ResolveApplicationWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveApplicationWindowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveApplicationWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveApplicationWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveApplicationWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveApplicationWindowMethod "childType" o = ContainerChildTypeMethodInfo - ResolveApplicationWindowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveApplicationWindowMethod "close" o = WindowCloseMethodInfo - ResolveApplicationWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveApplicationWindowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveApplicationWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveApplicationWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveApplicationWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveApplicationWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveApplicationWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveApplicationWindowMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveApplicationWindowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveApplicationWindowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveApplicationWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveApplicationWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveApplicationWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveApplicationWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveApplicationWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveApplicationWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveApplicationWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveApplicationWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveApplicationWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveApplicationWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveApplicationWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveApplicationWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveApplicationWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveApplicationWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveApplicationWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveApplicationWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveApplicationWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveApplicationWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveApplicationWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveApplicationWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveApplicationWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveApplicationWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveApplicationWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveApplicationWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveApplicationWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveApplicationWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveApplicationWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveApplicationWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveApplicationWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveApplicationWindowMethod "draw" o = WidgetDrawMethodInfo - ResolveApplicationWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveApplicationWindowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveApplicationWindowMethod "event" o = WidgetEventMethodInfo - ResolveApplicationWindowMethod "forall" o = ContainerForallMethodInfo - ResolveApplicationWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveApplicationWindowMethod "foreach" o = ContainerForeachMethodInfo - ResolveApplicationWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveApplicationWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveApplicationWindowMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveApplicationWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveApplicationWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveApplicationWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveApplicationWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveApplicationWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveApplicationWindowMethod "hasAction" o = Gio.ActionGroupHasActionMethodInfo - ResolveApplicationWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveApplicationWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveApplicationWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveApplicationWindowMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveApplicationWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveApplicationWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveApplicationWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveApplicationWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveApplicationWindowMethod "hide" o = WidgetHideMethodInfo - ResolveApplicationWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveApplicationWindowMethod "iconify" o = WindowIconifyMethodInfo - ResolveApplicationWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveApplicationWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveApplicationWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveApplicationWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveApplicationWindowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveApplicationWindowMethod "isActive" o = WindowIsActiveMethodInfo - ResolveApplicationWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveApplicationWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveApplicationWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveApplicationWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveApplicationWindowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveApplicationWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveApplicationWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveApplicationWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveApplicationWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveApplicationWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveApplicationWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveApplicationWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveApplicationWindowMethod "listActions" o = Gio.ActionGroupListActionsMethodInfo - ResolveApplicationWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveApplicationWindowMethod "lookupAction" o = Gio.ActionMapLookupActionMethodInfo - ResolveApplicationWindowMethod "map" o = WidgetMapMethodInfo - ResolveApplicationWindowMethod "maximize" o = WindowMaximizeMethodInfo - ResolveApplicationWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveApplicationWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveApplicationWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveApplicationWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveApplicationWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveApplicationWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveApplicationWindowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveApplicationWindowMethod "move" o = WindowMoveMethodInfo - ResolveApplicationWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveApplicationWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveApplicationWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveApplicationWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveApplicationWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveApplicationWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveApplicationWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveApplicationWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveApplicationWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveApplicationWindowMethod "path" o = WidgetPathMethodInfo - ResolveApplicationWindowMethod "present" o = WindowPresentMethodInfo - ResolveApplicationWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveApplicationWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveApplicationWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveApplicationWindowMethod "queryAction" o = Gio.ActionGroupQueryActionMethodInfo - ResolveApplicationWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveApplicationWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveApplicationWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveApplicationWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveApplicationWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveApplicationWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveApplicationWindowMethod "realize" o = WidgetRealizeMethodInfo - ResolveApplicationWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveApplicationWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveApplicationWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveApplicationWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveApplicationWindowMethod "remove" o = ContainerRemoveMethodInfo - ResolveApplicationWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveApplicationWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveApplicationWindowMethod "removeAction" o = Gio.ActionMapRemoveActionMethodInfo - ResolveApplicationWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveApplicationWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveApplicationWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveApplicationWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveApplicationWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveApplicationWindowMethod "reparent" o = WidgetReparentMethodInfo - ResolveApplicationWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveApplicationWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveApplicationWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveApplicationWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveApplicationWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveApplicationWindowMethod "resize" o = WindowResizeMethodInfo - ResolveApplicationWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveApplicationWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveApplicationWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveApplicationWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveApplicationWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveApplicationWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveApplicationWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveApplicationWindowMethod "show" o = WidgetShowMethodInfo - ResolveApplicationWindowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveApplicationWindowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveApplicationWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveApplicationWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveApplicationWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveApplicationWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveApplicationWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveApplicationWindowMethod "stick" o = WindowStickMethodInfo - ResolveApplicationWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveApplicationWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveApplicationWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveApplicationWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveApplicationWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveApplicationWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveApplicationWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveApplicationWindowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveApplicationWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveApplicationWindowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveApplicationWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveApplicationWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveApplicationWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveApplicationWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveApplicationWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveApplicationWindowMethod "unstick" o = WindowUnstickMethodInfo - ResolveApplicationWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveApplicationWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveApplicationWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveApplicationWindowMethod "getActionEnabled" o = Gio.ActionGroupGetActionEnabledMethodInfo - ResolveApplicationWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveApplicationWindowMethod "getActionParameterType" o = Gio.ActionGroupGetActionParameterTypeMethodInfo - ResolveApplicationWindowMethod "getActionState" o = Gio.ActionGroupGetActionStateMethodInfo - ResolveApplicationWindowMethod "getActionStateHint" o = Gio.ActionGroupGetActionStateHintMethodInfo - ResolveApplicationWindowMethod "getActionStateType" o = Gio.ActionGroupGetActionStateTypeMethodInfo - ResolveApplicationWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveApplicationWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveApplicationWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveApplicationWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveApplicationWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveApplicationWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveApplicationWindowMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveApplicationWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveApplicationWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveApplicationWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveApplicationWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveApplicationWindowMethod "getChild" o = BinGetChildMethodInfo - ResolveApplicationWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveApplicationWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveApplicationWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveApplicationWindowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveApplicationWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveApplicationWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveApplicationWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveApplicationWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveApplicationWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveApplicationWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveApplicationWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveApplicationWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveApplicationWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveApplicationWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveApplicationWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveApplicationWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveApplicationWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveApplicationWindowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveApplicationWindowMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveApplicationWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveApplicationWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveApplicationWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveApplicationWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveApplicationWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveApplicationWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveApplicationWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveApplicationWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveApplicationWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveApplicationWindowMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveApplicationWindowMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveApplicationWindowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveApplicationWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveApplicationWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveApplicationWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveApplicationWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveApplicationWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveApplicationWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveApplicationWindowMethod "getIcon" o = WindowGetIconMethodInfo - ResolveApplicationWindowMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveApplicationWindowMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveApplicationWindowMethod "getId" o = ApplicationWindowGetIdMethodInfo - ResolveApplicationWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveApplicationWindowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveApplicationWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveApplicationWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveApplicationWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveApplicationWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveApplicationWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveApplicationWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveApplicationWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveApplicationWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveApplicationWindowMethod "getModal" o = WindowGetModalMethodInfo - ResolveApplicationWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveApplicationWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveApplicationWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveApplicationWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveApplicationWindowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveApplicationWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveApplicationWindowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveApplicationWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveApplicationWindowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveApplicationWindowMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveApplicationWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveApplicationWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveApplicationWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveApplicationWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveApplicationWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveApplicationWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveApplicationWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveApplicationWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveApplicationWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveApplicationWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveApplicationWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveApplicationWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveApplicationWindowMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveApplicationWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveApplicationWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveApplicationWindowMethod "getRole" o = WindowGetRoleMethodInfo - ResolveApplicationWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveApplicationWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveApplicationWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveApplicationWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveApplicationWindowMethod "getShowMenubar" o = ApplicationWindowGetShowMenubarMethodInfo - ResolveApplicationWindowMethod "getSize" o = WindowGetSizeMethodInfo - ResolveApplicationWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveApplicationWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveApplicationWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveApplicationWindowMethod "getState" o = WidgetGetStateMethodInfo - ResolveApplicationWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveApplicationWindowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveApplicationWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveApplicationWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveApplicationWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveApplicationWindowMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveApplicationWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveApplicationWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveApplicationWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveApplicationWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveApplicationWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveApplicationWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveApplicationWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveApplicationWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveApplicationWindowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveApplicationWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveApplicationWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveApplicationWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveApplicationWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveApplicationWindowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveApplicationWindowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveApplicationWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveApplicationWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveApplicationWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveApplicationWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveApplicationWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveApplicationWindowMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveApplicationWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveApplicationWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveApplicationWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveApplicationWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveApplicationWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveApplicationWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveApplicationWindowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveApplicationWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveApplicationWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveApplicationWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveApplicationWindowMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveApplicationWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveApplicationWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveApplicationWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveApplicationWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveApplicationWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveApplicationWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveApplicationWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveApplicationWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveApplicationWindowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveApplicationWindowMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveApplicationWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveApplicationWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveApplicationWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveApplicationWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveApplicationWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveApplicationWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveApplicationWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveApplicationWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveApplicationWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveApplicationWindowMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveApplicationWindowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveApplicationWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveApplicationWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveApplicationWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveApplicationWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveApplicationWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveApplicationWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveApplicationWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveApplicationWindowMethod "setIcon" o = WindowSetIconMethodInfo - ResolveApplicationWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveApplicationWindowMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveApplicationWindowMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveApplicationWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveApplicationWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveApplicationWindowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveApplicationWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveApplicationWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveApplicationWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveApplicationWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveApplicationWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveApplicationWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveApplicationWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveApplicationWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveApplicationWindowMethod "setModal" o = WindowSetModalMethodInfo - ResolveApplicationWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveApplicationWindowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveApplicationWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveApplicationWindowMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveApplicationWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveApplicationWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveApplicationWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveApplicationWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveApplicationWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveApplicationWindowMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveApplicationWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveApplicationWindowMethod "setRole" o = WindowSetRoleMethodInfo - ResolveApplicationWindowMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveApplicationWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveApplicationWindowMethod "setShowMenubar" o = ApplicationWindowSetShowMenubarMethodInfo - ResolveApplicationWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveApplicationWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveApplicationWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveApplicationWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveApplicationWindowMethod "setState" o = WidgetSetStateMethodInfo - ResolveApplicationWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveApplicationWindowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveApplicationWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveApplicationWindowMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveApplicationWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveApplicationWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveApplicationWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveApplicationWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveApplicationWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveApplicationWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveApplicationWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveApplicationWindowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveApplicationWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveApplicationWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveApplicationWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveApplicationWindowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveApplicationWindowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveApplicationWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveApplicationWindowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveApplicationWindowMethod t ApplicationWindow, MethodInfo info ApplicationWindow p) => IsLabelProxy t (ApplicationWindow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveApplicationWindowMethod t ApplicationWindow, MethodInfo info ApplicationWindow p) => IsLabel t (ApplicationWindow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "show-menubar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getApplicationWindowShowMenubar :: (MonadIO m, ApplicationWindowK o) => o -> m Bool -getApplicationWindowShowMenubar obj = liftIO $ getObjectPropertyBool obj "show-menubar" - -setApplicationWindowShowMenubar :: (MonadIO m, ApplicationWindowK o) => o -> Bool -> m () -setApplicationWindowShowMenubar obj val = liftIO $ setObjectPropertyBool obj "show-menubar" val - -constructApplicationWindowShowMenubar :: Bool -> IO ([Char], GValue) -constructApplicationWindowShowMenubar val = constructObjectPropertyBool "show-menubar" val - -data ApplicationWindowShowMenubarPropertyInfo -instance AttrInfo ApplicationWindowShowMenubarPropertyInfo where - type AttrAllowedOps ApplicationWindowShowMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationWindowShowMenubarPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ApplicationWindowShowMenubarPropertyInfo = ApplicationWindowK - type AttrGetType ApplicationWindowShowMenubarPropertyInfo = Bool - type AttrLabel ApplicationWindowShowMenubarPropertyInfo = "show-menubar" - attrGet _ = getApplicationWindowShowMenubar - attrSet _ = setApplicationWindowShowMenubar - attrConstruct _ = constructApplicationWindowShowMenubar - attrClear _ = undefined - -type instance AttributeList ApplicationWindow = ApplicationWindowAttributeList -type ApplicationWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showMenubar", ApplicationWindowShowMenubarPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -applicationWindowShowMenubar :: AttrLabelProxy "showMenubar" -applicationWindowShowMenubar = AttrLabelProxy - -type instance SignalList ApplicationWindow = ApplicationWindowSignalList -type ApplicationWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ApplicationWindow::new --- method type : Constructor --- Args : [Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ApplicationWindow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_window_new" gtk_application_window_new :: - Ptr Application -> -- application : TInterface "Gtk" "Application" - IO (Ptr ApplicationWindow) - - -applicationWindowNew :: - (MonadIO m, ApplicationK a) => - a -- application - -> m ApplicationWindow -- result -applicationWindowNew application = liftIO $ do - let application' = unsafeManagedPtrCastPtr application - result <- gtk_application_window_new application' - checkUnexpectedReturnNULL "gtk_application_window_new" result - result' <- (newObject ApplicationWindow) result - touchManagedPtr application - return result' - --- method ApplicationWindow::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_window_get_id" gtk_application_window_get_id :: - Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow" - IO Word32 - - -applicationWindowGetId :: - (MonadIO m, ApplicationWindowK a) => - a -- _obj - -> m Word32 -- result -applicationWindowGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_window_get_id _obj' - touchManagedPtr _obj - return result - -data ApplicationWindowGetIdMethodInfo -instance (signature ~ (m Word32), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowGetIdMethodInfo a signature where - overloadedMethod _ = applicationWindowGetId - --- method ApplicationWindow::get_show_menubar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", 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 "gtk_application_window_get_show_menubar" gtk_application_window_get_show_menubar :: - Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow" - IO CInt - - -applicationWindowGetShowMenubar :: - (MonadIO m, ApplicationWindowK a) => - a -- _obj - -> m Bool -- result -applicationWindowGetShowMenubar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_window_get_show_menubar _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationWindowGetShowMenubarMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowGetShowMenubarMethodInfo a signature where - overloadedMethod _ = applicationWindowGetShowMenubar - --- method ApplicationWindow::set_show_menubar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_menubar", 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 "gtk_application_window_set_show_menubar" gtk_application_window_set_show_menubar :: - Ptr ApplicationWindow -> -- _obj : TInterface "Gtk" "ApplicationWindow" - CInt -> -- show_menubar : TBasicType TBoolean - IO () - - -applicationWindowSetShowMenubar :: - (MonadIO m, ApplicationWindowK a) => - a -- _obj - -> Bool -- showMenubar - -> m () -- result -applicationWindowSetShowMenubar _obj showMenubar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showMenubar' = (fromIntegral . fromEnum) showMenubar - gtk_application_window_set_show_menubar _obj' showMenubar' - touchManagedPtr _obj - return () - -data ApplicationWindowSetShowMenubarMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowSetShowMenubarMethodInfo a signature where - overloadedMethod _ = applicationWindowSetShowMenubar - - diff --git a/GI/Gtk/Objects/ApplicationWindow.hs-boot b/GI/Gtk/Objects/ApplicationWindow.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ApplicationWindow.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.ApplicationWindow 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 ApplicationWindow = ApplicationWindow (ForeignPtr ApplicationWindow) -instance GObject ApplicationWindow where -class GObject o => ApplicationWindowK o -instance (GObject o, IsDescendantOf ApplicationWindow o) => ApplicationWindowK o -data ApplicationWindowShowMenubarPropertyInfo -data ApplicationWindowGetIdMethodInfo -data ApplicationWindowGetShowMenubarMethodInfo -data ApplicationWindowSetShowMenubarMethodInfo diff --git a/GI/Gtk/Objects/Arrow.hs b/GI/Gtk/Objects/Arrow.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Arrow.hs +++ /dev/null @@ -1,510 +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.Gtk.Objects.Arrow - ( - --- * Exported types - Arrow(..) , - ArrowK , - toArrow , - noArrow , - - - -- * Methods --- ** arrowNew - arrowNew , - - --- ** arrowSet - ArrowSetMethodInfo , - arrowSet , - - - - - -- * Properties --- ** ArrowType - ArrowArrowTypePropertyInfo , - arrowArrowType , - constructArrowArrowType , - getArrowArrowType , - setArrowArrowType , - - --- ** ShadowType - ArrowShadowTypePropertyInfo , - arrowShadowType , - constructArrowShadowType , - getArrowShadowType , - setArrowShadowType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Arrow = Arrow (ForeignPtr Arrow) -foreign import ccall "gtk_arrow_get_type" - c_gtk_arrow_get_type :: IO GType - -type instance ParentTypes Arrow = ArrowParentTypes -type ArrowParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Arrow where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_arrow_get_type - - -class GObject o => ArrowK o -instance (GObject o, IsDescendantOf Arrow o) => ArrowK o - -toArrow :: ArrowK o => o -> IO Arrow -toArrow = unsafeCastTo Arrow - -noArrow :: Maybe Arrow -noArrow = Nothing - -type family ResolveArrowMethod (t :: Symbol) (o :: *) :: * where - ResolveArrowMethod "activate" o = WidgetActivateMethodInfo - ResolveArrowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveArrowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveArrowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveArrowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveArrowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveArrowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveArrowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveArrowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveArrowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveArrowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveArrowMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveArrowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveArrowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveArrowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveArrowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveArrowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveArrowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveArrowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveArrowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveArrowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveArrowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveArrowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveArrowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveArrowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveArrowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveArrowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveArrowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveArrowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveArrowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveArrowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveArrowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveArrowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveArrowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveArrowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveArrowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveArrowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveArrowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveArrowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveArrowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveArrowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveArrowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveArrowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveArrowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveArrowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveArrowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveArrowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveArrowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveArrowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveArrowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveArrowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveArrowMethod "draw" o = WidgetDrawMethodInfo - ResolveArrowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveArrowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveArrowMethod "event" o = WidgetEventMethodInfo - ResolveArrowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveArrowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveArrowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveArrowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveArrowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveArrowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveArrowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveArrowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveArrowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveArrowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveArrowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveArrowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveArrowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveArrowMethod "hide" o = WidgetHideMethodInfo - ResolveArrowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveArrowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveArrowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveArrowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveArrowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveArrowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveArrowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveArrowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveArrowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveArrowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveArrowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveArrowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveArrowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveArrowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveArrowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveArrowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveArrowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveArrowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveArrowMethod "map" o = WidgetMapMethodInfo - ResolveArrowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveArrowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveArrowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveArrowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveArrowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveArrowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveArrowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveArrowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveArrowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveArrowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveArrowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveArrowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveArrowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveArrowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveArrowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveArrowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveArrowMethod "path" o = WidgetPathMethodInfo - ResolveArrowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveArrowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveArrowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveArrowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveArrowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveArrowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveArrowMethod "realize" o = WidgetRealizeMethodInfo - ResolveArrowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveArrowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveArrowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveArrowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveArrowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveArrowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveArrowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveArrowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveArrowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveArrowMethod "reparent" o = WidgetReparentMethodInfo - ResolveArrowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveArrowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveArrowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveArrowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveArrowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveArrowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveArrowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveArrowMethod "set" o = ArrowSetMethodInfo - ResolveArrowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveArrowMethod "show" o = WidgetShowMethodInfo - ResolveArrowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveArrowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveArrowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveArrowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveArrowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveArrowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveArrowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveArrowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveArrowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveArrowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveArrowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveArrowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveArrowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveArrowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveArrowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveArrowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveArrowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveArrowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveArrowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveArrowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveArrowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveArrowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveArrowMethod "getAlignment" o = MiscGetAlignmentMethodInfo - ResolveArrowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveArrowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveArrowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveArrowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveArrowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveArrowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveArrowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveArrowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveArrowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveArrowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveArrowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveArrowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveArrowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveArrowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveArrowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveArrowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveArrowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveArrowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveArrowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveArrowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveArrowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveArrowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveArrowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveArrowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveArrowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveArrowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveArrowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveArrowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveArrowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveArrowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveArrowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveArrowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveArrowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveArrowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveArrowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveArrowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveArrowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveArrowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveArrowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveArrowMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveArrowMethod "getPadding" o = MiscGetPaddingMethodInfo - ResolveArrowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveArrowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveArrowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveArrowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveArrowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveArrowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveArrowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveArrowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveArrowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveArrowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveArrowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveArrowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveArrowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveArrowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveArrowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveArrowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveArrowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveArrowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveArrowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveArrowMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveArrowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveArrowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveArrowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveArrowMethod "getState" o = WidgetGetStateMethodInfo - ResolveArrowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveArrowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveArrowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveArrowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveArrowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveArrowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveArrowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveArrowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveArrowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveArrowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveArrowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveArrowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveArrowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveArrowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveArrowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveArrowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveArrowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveArrowMethod "setAlignment" o = MiscSetAlignmentMethodInfo - ResolveArrowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveArrowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveArrowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveArrowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveArrowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveArrowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveArrowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveArrowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveArrowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveArrowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveArrowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveArrowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveArrowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveArrowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveArrowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveArrowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveArrowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveArrowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveArrowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveArrowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveArrowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveArrowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveArrowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveArrowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveArrowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveArrowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveArrowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveArrowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveArrowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveArrowMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveArrowMethod "setPadding" o = MiscSetPaddingMethodInfo - ResolveArrowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveArrowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveArrowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveArrowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveArrowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveArrowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveArrowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveArrowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveArrowMethod "setState" o = WidgetSetStateMethodInfo - ResolveArrowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveArrowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveArrowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveArrowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveArrowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveArrowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveArrowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveArrowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveArrowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveArrowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveArrowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveArrowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveArrowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveArrowMethod t Arrow, MethodInfo info Arrow p) => IsLabelProxy t (Arrow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveArrowMethod t Arrow, MethodInfo info Arrow p) => IsLabel t (Arrow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "arrow-type" - -- Type: TInterface "Gtk" "ArrowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getArrowArrowType :: (MonadIO m, ArrowK o) => o -> m ArrowType -getArrowArrowType obj = liftIO $ getObjectPropertyEnum obj "arrow-type" - -setArrowArrowType :: (MonadIO m, ArrowK o) => o -> ArrowType -> m () -setArrowArrowType obj val = liftIO $ setObjectPropertyEnum obj "arrow-type" val - -constructArrowArrowType :: ArrowType -> IO ([Char], GValue) -constructArrowArrowType val = constructObjectPropertyEnum "arrow-type" val - -data ArrowArrowTypePropertyInfo -instance AttrInfo ArrowArrowTypePropertyInfo where - type AttrAllowedOps ArrowArrowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ArrowArrowTypePropertyInfo = (~) ArrowType - type AttrBaseTypeConstraint ArrowArrowTypePropertyInfo = ArrowK - type AttrGetType ArrowArrowTypePropertyInfo = ArrowType - type AttrLabel ArrowArrowTypePropertyInfo = "arrow-type" - attrGet _ = getArrowArrowType - attrSet _ = setArrowArrowType - attrConstruct _ = constructArrowArrowType - attrClear _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getArrowShadowType :: (MonadIO m, ArrowK o) => o -> m ShadowType -getArrowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setArrowShadowType :: (MonadIO m, ArrowK o) => o -> ShadowType -> m () -setArrowShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructArrowShadowType :: ShadowType -> IO ([Char], GValue) -constructArrowShadowType val = constructObjectPropertyEnum "shadow-type" val - -data ArrowShadowTypePropertyInfo -instance AttrInfo ArrowShadowTypePropertyInfo where - type AttrAllowedOps ArrowShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ArrowShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint ArrowShadowTypePropertyInfo = ArrowK - type AttrGetType ArrowShadowTypePropertyInfo = ShadowType - type AttrLabel ArrowShadowTypePropertyInfo = "shadow-type" - attrGet _ = getArrowShadowType - attrSet _ = setArrowShadowType - attrConstruct _ = constructArrowShadowType - attrClear _ = undefined - -type instance AttributeList Arrow = ArrowAttributeList -type ArrowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("arrowType", ArrowArrowTypePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -arrowArrowType :: AttrLabelProxy "arrowType" -arrowArrowType = AttrLabelProxy - -arrowShadowType :: AttrLabelProxy "shadowType" -arrowShadowType = AttrLabelProxy - -type instance SignalList Arrow = ArrowSignalList -type ArrowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Arrow::new --- method type : Constructor --- Args : [Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Arrow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_arrow_new" gtk_arrow_new :: - CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - IO (Ptr Arrow) - -{-# DEPRECATED arrowNew ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-} -arrowNew :: - (MonadIO m) => - ArrowType -- arrowType - -> ShadowType -- shadowType - -> m Arrow -- result -arrowNew arrowType shadowType = liftIO $ do - let arrowType' = (fromIntegral . fromEnum) arrowType - let shadowType' = (fromIntegral . fromEnum) shadowType - result <- gtk_arrow_new arrowType' shadowType' - checkUnexpectedReturnNULL "gtk_arrow_new" result - result' <- (newObject Arrow) result - return result' - --- method Arrow::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", 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 "gtk_arrow_set" gtk_arrow_set :: - Ptr Arrow -> -- _obj : TInterface "Gtk" "Arrow" - CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType" - CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" - IO () - -{-# DEPRECATED arrowSet ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-} -arrowSet :: - (MonadIO m, ArrowK a) => - a -- _obj - -> ArrowType -- arrowType - -> ShadowType -- shadowType - -> m () -- result -arrowSet _obj arrowType shadowType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let arrowType' = (fromIntegral . fromEnum) arrowType - let shadowType' = (fromIntegral . fromEnum) shadowType - gtk_arrow_set _obj' arrowType' shadowType' - touchManagedPtr _obj - return () - -data ArrowSetMethodInfo -instance (signature ~ (ArrowType -> ShadowType -> m ()), MonadIO m, ArrowK a) => MethodInfo ArrowSetMethodInfo a signature where - overloadedMethod _ = arrowSet - - diff --git a/GI/Gtk/Objects/Arrow.hs-boot b/GI/Gtk/Objects/Arrow.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Arrow.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.Arrow 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 Arrow = Arrow (ForeignPtr Arrow) -instance GObject Arrow where -class GObject o => ArrowK o -instance (GObject o, IsDescendantOf Arrow o) => ArrowK o -data ArrowArrowTypePropertyInfo -data ArrowShadowTypePropertyInfo -data ArrowSetMethodInfo diff --git a/GI/Gtk/Objects/ArrowAccessible.hs b/GI/Gtk/Objects/ArrowAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ArrowAccessible.hs +++ /dev/null @@ -1,133 +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.Gtk.Objects.ArrowAccessible - ( - --- * Exported types - ArrowAccessible(..) , - ArrowAccessibleK , - toArrowAccessible , - noArrowAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ArrowAccessible = ArrowAccessible (ForeignPtr ArrowAccessible) -foreign import ccall "gtk_arrow_accessible_get_type" - c_gtk_arrow_accessible_get_type :: IO GType - -type instance ParentTypes ArrowAccessible = ArrowAccessibleParentTypes -type ArrowAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image] - -instance GObject ArrowAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_arrow_accessible_get_type - - -class GObject o => ArrowAccessibleK o -instance (GObject o, IsDescendantOf ArrowAccessible o) => ArrowAccessibleK o - -toArrowAccessible :: ArrowAccessibleK o => o -> IO ArrowAccessible -toArrowAccessible = unsafeCastTo ArrowAccessible - -noArrowAccessible :: Maybe ArrowAccessible -noArrowAccessible = Nothing - -type family ResolveArrowAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveArrowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveArrowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveArrowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveArrowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveArrowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveArrowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveArrowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveArrowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveArrowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveArrowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveArrowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveArrowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveArrowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveArrowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveArrowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveArrowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveArrowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveArrowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveArrowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveArrowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveArrowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveArrowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveArrowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveArrowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveArrowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveArrowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveArrowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveArrowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveArrowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveArrowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveArrowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveArrowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveArrowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveArrowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveArrowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveArrowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveArrowAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveArrowAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveArrowAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveArrowAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveArrowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveArrowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveArrowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveArrowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveArrowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveArrowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveArrowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveArrowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveArrowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveArrowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveArrowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveArrowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveArrowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveArrowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveArrowAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveArrowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveArrowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveArrowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveArrowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveArrowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveArrowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveArrowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveArrowAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveArrowAccessibleMethod t ArrowAccessible, MethodInfo info ArrowAccessible p) => IsLabelProxy t (ArrowAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveArrowAccessibleMethod t ArrowAccessible, MethodInfo info ArrowAccessible p) => IsLabel t (ArrowAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ArrowAccessible = ArrowAccessibleAttributeList -type ArrowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ArrowAccessible = ArrowAccessibleSignalList -type ArrowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ArrowAccessible.hs-boot b/GI/Gtk/Objects/ArrowAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ArrowAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ArrowAccessible 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 ArrowAccessible = ArrowAccessible (ForeignPtr ArrowAccessible) -instance GObject ArrowAccessible where -class GObject o => ArrowAccessibleK o -instance (GObject o, IsDescendantOf ArrowAccessible o) => ArrowAccessibleK o diff --git a/GI/Gtk/Objects/AspectFrame.hs b/GI/Gtk/Objects/AspectFrame.hs deleted file mode 100644 --- a/GI/Gtk/Objects/AspectFrame.hs +++ /dev/null @@ -1,635 +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.Gtk.Objects.AspectFrame - ( - --- * Exported types - AspectFrame(..) , - AspectFrameK , - toAspectFrame , - noAspectFrame , - - - -- * Methods --- ** aspectFrameNew - aspectFrameNew , - - --- ** aspectFrameSet - AspectFrameSetMethodInfo , - aspectFrameSet , - - - - - -- * Properties --- ** ObeyChild - AspectFrameObeyChildPropertyInfo , - aspectFrameObeyChild , - constructAspectFrameObeyChild , - getAspectFrameObeyChild , - setAspectFrameObeyChild , - - --- ** Ratio - AspectFrameRatioPropertyInfo , - aspectFrameRatio , - constructAspectFrameRatio , - getAspectFrameRatio , - setAspectFrameRatio , - - --- ** Xalign - AspectFrameXalignPropertyInfo , - aspectFrameXalign , - constructAspectFrameXalign , - getAspectFrameXalign , - setAspectFrameXalign , - - --- ** Yalign - AspectFrameYalignPropertyInfo , - aspectFrameYalign , - constructAspectFrameYalign , - getAspectFrameYalign , - setAspectFrameYalign , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype AspectFrame = AspectFrame (ForeignPtr AspectFrame) -foreign import ccall "gtk_aspect_frame_get_type" - c_gtk_aspect_frame_get_type :: IO GType - -type instance ParentTypes AspectFrame = AspectFrameParentTypes -type AspectFrameParentTypes = '[Frame, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject AspectFrame where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_aspect_frame_get_type - - -class GObject o => AspectFrameK o -instance (GObject o, IsDescendantOf AspectFrame o) => AspectFrameK o - -toAspectFrame :: AspectFrameK o => o -> IO AspectFrame -toAspectFrame = unsafeCastTo AspectFrame - -noAspectFrame :: Maybe AspectFrame -noAspectFrame = Nothing - -type family ResolveAspectFrameMethod (t :: Symbol) (o :: *) :: * where - ResolveAspectFrameMethod "activate" o = WidgetActivateMethodInfo - ResolveAspectFrameMethod "add" o = ContainerAddMethodInfo - ResolveAspectFrameMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAspectFrameMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAspectFrameMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAspectFrameMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAspectFrameMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAspectFrameMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAspectFrameMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAspectFrameMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAspectFrameMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAspectFrameMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAspectFrameMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAspectFrameMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAspectFrameMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAspectFrameMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAspectFrameMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAspectFrameMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAspectFrameMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAspectFrameMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAspectFrameMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAspectFrameMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAspectFrameMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAspectFrameMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAspectFrameMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAspectFrameMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAspectFrameMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAspectFrameMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAspectFrameMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAspectFrameMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAspectFrameMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAspectFrameMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAspectFrameMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAspectFrameMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAspectFrameMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAspectFrameMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAspectFrameMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAspectFrameMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAspectFrameMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAspectFrameMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAspectFrameMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAspectFrameMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAspectFrameMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAspectFrameMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAspectFrameMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAspectFrameMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAspectFrameMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAspectFrameMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAspectFrameMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAspectFrameMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAspectFrameMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAspectFrameMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAspectFrameMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAspectFrameMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAspectFrameMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAspectFrameMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAspectFrameMethod "draw" o = WidgetDrawMethodInfo - ResolveAspectFrameMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAspectFrameMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAspectFrameMethod "event" o = WidgetEventMethodInfo - ResolveAspectFrameMethod "forall" o = ContainerForallMethodInfo - ResolveAspectFrameMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAspectFrameMethod "foreach" o = ContainerForeachMethodInfo - ResolveAspectFrameMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAspectFrameMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAspectFrameMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAspectFrameMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAspectFrameMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAspectFrameMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAspectFrameMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAspectFrameMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAspectFrameMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAspectFrameMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAspectFrameMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAspectFrameMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAspectFrameMethod "hide" o = WidgetHideMethodInfo - ResolveAspectFrameMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAspectFrameMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAspectFrameMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAspectFrameMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAspectFrameMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAspectFrameMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAspectFrameMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAspectFrameMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAspectFrameMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAspectFrameMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAspectFrameMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAspectFrameMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAspectFrameMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAspectFrameMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAspectFrameMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAspectFrameMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAspectFrameMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAspectFrameMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAspectFrameMethod "map" o = WidgetMapMethodInfo - ResolveAspectFrameMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveAspectFrameMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAspectFrameMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAspectFrameMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAspectFrameMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAspectFrameMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAspectFrameMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAspectFrameMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAspectFrameMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAspectFrameMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAspectFrameMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAspectFrameMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAspectFrameMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAspectFrameMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAspectFrameMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAspectFrameMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAspectFrameMethod "path" o = WidgetPathMethodInfo - ResolveAspectFrameMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAspectFrameMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAspectFrameMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAspectFrameMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAspectFrameMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAspectFrameMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAspectFrameMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAspectFrameMethod "realize" o = WidgetRealizeMethodInfo - ResolveAspectFrameMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAspectFrameMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAspectFrameMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAspectFrameMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAspectFrameMethod "remove" o = ContainerRemoveMethodInfo - ResolveAspectFrameMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAspectFrameMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAspectFrameMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAspectFrameMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAspectFrameMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAspectFrameMethod "reparent" o = WidgetReparentMethodInfo - ResolveAspectFrameMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAspectFrameMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAspectFrameMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAspectFrameMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAspectFrameMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAspectFrameMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAspectFrameMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAspectFrameMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAspectFrameMethod "set" o = AspectFrameSetMethodInfo - ResolveAspectFrameMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAspectFrameMethod "show" o = WidgetShowMethodInfo - ResolveAspectFrameMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAspectFrameMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAspectFrameMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAspectFrameMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAspectFrameMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAspectFrameMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAspectFrameMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAspectFrameMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAspectFrameMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAspectFrameMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAspectFrameMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAspectFrameMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAspectFrameMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAspectFrameMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAspectFrameMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAspectFrameMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAspectFrameMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAspectFrameMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAspectFrameMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAspectFrameMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAspectFrameMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAspectFrameMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAspectFrameMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAspectFrameMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAspectFrameMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAspectFrameMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAspectFrameMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAspectFrameMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAspectFrameMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAspectFrameMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAspectFrameMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAspectFrameMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAspectFrameMethod "getChild" o = BinGetChildMethodInfo - ResolveAspectFrameMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAspectFrameMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAspectFrameMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAspectFrameMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAspectFrameMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAspectFrameMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAspectFrameMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAspectFrameMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAspectFrameMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAspectFrameMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAspectFrameMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAspectFrameMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAspectFrameMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAspectFrameMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAspectFrameMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAspectFrameMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAspectFrameMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAspectFrameMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAspectFrameMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAspectFrameMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAspectFrameMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAspectFrameMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAspectFrameMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAspectFrameMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAspectFrameMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAspectFrameMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAspectFrameMethod "getLabel" o = FrameGetLabelMethodInfo - ResolveAspectFrameMethod "getLabelAlign" o = FrameGetLabelAlignMethodInfo - ResolveAspectFrameMethod "getLabelWidget" o = FrameGetLabelWidgetMethodInfo - ResolveAspectFrameMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAspectFrameMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAspectFrameMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAspectFrameMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAspectFrameMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAspectFrameMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAspectFrameMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAspectFrameMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAspectFrameMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAspectFrameMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAspectFrameMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveAspectFrameMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAspectFrameMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAspectFrameMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAspectFrameMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAspectFrameMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAspectFrameMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAspectFrameMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAspectFrameMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAspectFrameMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAspectFrameMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAspectFrameMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAspectFrameMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAspectFrameMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAspectFrameMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAspectFrameMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAspectFrameMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAspectFrameMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAspectFrameMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAspectFrameMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAspectFrameMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAspectFrameMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAspectFrameMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveAspectFrameMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAspectFrameMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAspectFrameMethod "getShadowType" o = FrameGetShadowTypeMethodInfo - ResolveAspectFrameMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAspectFrameMethod "getState" o = WidgetGetStateMethodInfo - ResolveAspectFrameMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAspectFrameMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAspectFrameMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAspectFrameMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAspectFrameMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAspectFrameMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAspectFrameMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAspectFrameMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAspectFrameMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAspectFrameMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAspectFrameMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAspectFrameMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAspectFrameMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAspectFrameMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAspectFrameMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAspectFrameMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAspectFrameMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAspectFrameMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAspectFrameMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAspectFrameMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAspectFrameMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAspectFrameMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAspectFrameMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAspectFrameMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAspectFrameMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAspectFrameMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAspectFrameMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAspectFrameMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAspectFrameMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAspectFrameMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAspectFrameMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAspectFrameMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAspectFrameMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAspectFrameMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAspectFrameMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAspectFrameMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAspectFrameMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAspectFrameMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAspectFrameMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAspectFrameMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAspectFrameMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAspectFrameMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAspectFrameMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAspectFrameMethod "setLabel" o = FrameSetLabelMethodInfo - ResolveAspectFrameMethod "setLabelAlign" o = FrameSetLabelAlignMethodInfo - ResolveAspectFrameMethod "setLabelWidget" o = FrameSetLabelWidgetMethodInfo - ResolveAspectFrameMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAspectFrameMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAspectFrameMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAspectFrameMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAspectFrameMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAspectFrameMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAspectFrameMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAspectFrameMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAspectFrameMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveAspectFrameMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAspectFrameMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAspectFrameMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAspectFrameMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAspectFrameMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAspectFrameMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAspectFrameMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAspectFrameMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAspectFrameMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAspectFrameMethod "setShadowType" o = FrameSetShadowTypeMethodInfo - ResolveAspectFrameMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAspectFrameMethod "setState" o = WidgetSetStateMethodInfo - ResolveAspectFrameMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAspectFrameMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAspectFrameMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAspectFrameMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAspectFrameMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAspectFrameMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAspectFrameMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAspectFrameMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAspectFrameMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAspectFrameMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAspectFrameMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAspectFrameMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAspectFrameMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAspectFrameMethod t AspectFrame, MethodInfo info AspectFrame p) => IsLabelProxy t (AspectFrame -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAspectFrameMethod t AspectFrame, MethodInfo info AspectFrame p) => IsLabel t (AspectFrame -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "obey-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAspectFrameObeyChild :: (MonadIO m, AspectFrameK o) => o -> m Bool -getAspectFrameObeyChild obj = liftIO $ getObjectPropertyBool obj "obey-child" - -setAspectFrameObeyChild :: (MonadIO m, AspectFrameK o) => o -> Bool -> m () -setAspectFrameObeyChild obj val = liftIO $ setObjectPropertyBool obj "obey-child" val - -constructAspectFrameObeyChild :: Bool -> IO ([Char], GValue) -constructAspectFrameObeyChild val = constructObjectPropertyBool "obey-child" val - -data AspectFrameObeyChildPropertyInfo -instance AttrInfo AspectFrameObeyChildPropertyInfo where - type AttrAllowedOps AspectFrameObeyChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AspectFrameObeyChildPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AspectFrameObeyChildPropertyInfo = AspectFrameK - type AttrGetType AspectFrameObeyChildPropertyInfo = Bool - type AttrLabel AspectFrameObeyChildPropertyInfo = "obey-child" - attrGet _ = getAspectFrameObeyChild - attrSet _ = setAspectFrameObeyChild - attrConstruct _ = constructAspectFrameObeyChild - attrClear _ = undefined - --- VVV Prop "ratio" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAspectFrameRatio :: (MonadIO m, AspectFrameK o) => o -> m Float -getAspectFrameRatio obj = liftIO $ getObjectPropertyFloat obj "ratio" - -setAspectFrameRatio :: (MonadIO m, AspectFrameK o) => o -> Float -> m () -setAspectFrameRatio obj val = liftIO $ setObjectPropertyFloat obj "ratio" val - -constructAspectFrameRatio :: Float -> IO ([Char], GValue) -constructAspectFrameRatio val = constructObjectPropertyFloat "ratio" val - -data AspectFrameRatioPropertyInfo -instance AttrInfo AspectFrameRatioPropertyInfo where - type AttrAllowedOps AspectFrameRatioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AspectFrameRatioPropertyInfo = (~) Float - type AttrBaseTypeConstraint AspectFrameRatioPropertyInfo = AspectFrameK - type AttrGetType AspectFrameRatioPropertyInfo = Float - type AttrLabel AspectFrameRatioPropertyInfo = "ratio" - attrGet _ = getAspectFrameRatio - attrSet _ = setAspectFrameRatio - attrConstruct _ = constructAspectFrameRatio - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAspectFrameXalign :: (MonadIO m, AspectFrameK o) => o -> m Float -getAspectFrameXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setAspectFrameXalign :: (MonadIO m, AspectFrameK o) => o -> Float -> m () -setAspectFrameXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructAspectFrameXalign :: Float -> IO ([Char], GValue) -constructAspectFrameXalign val = constructObjectPropertyFloat "xalign" val - -data AspectFrameXalignPropertyInfo -instance AttrInfo AspectFrameXalignPropertyInfo where - type AttrAllowedOps AspectFrameXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AspectFrameXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint AspectFrameXalignPropertyInfo = AspectFrameK - type AttrGetType AspectFrameXalignPropertyInfo = Float - type AttrLabel AspectFrameXalignPropertyInfo = "xalign" - attrGet _ = getAspectFrameXalign - attrSet _ = setAspectFrameXalign - attrConstruct _ = constructAspectFrameXalign - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getAspectFrameYalign :: (MonadIO m, AspectFrameK o) => o -> m Float -getAspectFrameYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setAspectFrameYalign :: (MonadIO m, AspectFrameK o) => o -> Float -> m () -setAspectFrameYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructAspectFrameYalign :: Float -> IO ([Char], GValue) -constructAspectFrameYalign val = constructObjectPropertyFloat "yalign" val - -data AspectFrameYalignPropertyInfo -instance AttrInfo AspectFrameYalignPropertyInfo where - type AttrAllowedOps AspectFrameYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AspectFrameYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint AspectFrameYalignPropertyInfo = AspectFrameK - type AttrGetType AspectFrameYalignPropertyInfo = Float - type AttrLabel AspectFrameYalignPropertyInfo = "yalign" - attrGet _ = getAspectFrameYalign - attrSet _ = setAspectFrameYalign - attrConstruct _ = constructAspectFrameYalign - attrClear _ = undefined - -type instance AttributeList AspectFrame = AspectFrameAttributeList -type AspectFrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) - -aspectFrameObeyChild :: AttrLabelProxy "obeyChild" -aspectFrameObeyChild = AttrLabelProxy - -aspectFrameRatio :: AttrLabelProxy "ratio" -aspectFrameRatio = AttrLabelProxy - -aspectFrameXalign :: AttrLabelProxy "xalign" -aspectFrameXalign = AttrLabelProxy - -aspectFrameYalign :: AttrLabelProxy "yalign" -aspectFrameYalign = AttrLabelProxy - -type instance SignalList AspectFrame = AspectFrameSignalList -type AspectFrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method AspectFrame::new --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AspectFrame") --- throws : False --- Skip return : False - -foreign import ccall "gtk_aspect_frame_new" gtk_aspect_frame_new :: - CString -> -- label : TBasicType TUTF8 - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - CFloat -> -- ratio : TBasicType TFloat - CInt -> -- obey_child : TBasicType TBoolean - IO (Ptr AspectFrame) - - -aspectFrameNew :: - (MonadIO m) => - Maybe (T.Text) -- label - -> Float -- xalign - -> Float -- yalign - -> Float -- ratio - -> Bool -- obeyChild - -> m AspectFrame -- result -aspectFrameNew label xalign yalign ratio obeyChild = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - let ratio' = realToFrac ratio - let obeyChild' = (fromIntegral . fromEnum) obeyChild - result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obeyChild' - checkUnexpectedReturnNULL "gtk_aspect_frame_new" result - result' <- (newObject AspectFrame) result - freeMem maybeLabel - return result' - --- method AspectFrame::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", 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 "gtk_aspect_frame_set" gtk_aspect_frame_set :: - Ptr AspectFrame -> -- _obj : TInterface "Gtk" "AspectFrame" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - CFloat -> -- ratio : TBasicType TFloat - CInt -> -- obey_child : TBasicType TBoolean - IO () - - -aspectFrameSet :: - (MonadIO m, AspectFrameK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> Float -- ratio - -> Bool -- obeyChild - -> m () -- result -aspectFrameSet _obj xalign yalign ratio obeyChild = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - let ratio' = realToFrac ratio - let obeyChild' = (fromIntegral . fromEnum) obeyChild - gtk_aspect_frame_set _obj' xalign' yalign' ratio' obeyChild' - touchManagedPtr _obj - return () - -data AspectFrameSetMethodInfo -instance (signature ~ (Float -> Float -> Float -> Bool -> m ()), MonadIO m, AspectFrameK a) => MethodInfo AspectFrameSetMethodInfo a signature where - overloadedMethod _ = aspectFrameSet - - diff --git a/GI/Gtk/Objects/AspectFrame.hs-boot b/GI/Gtk/Objects/AspectFrame.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/AspectFrame.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.AspectFrame 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 AspectFrame = AspectFrame (ForeignPtr AspectFrame) -instance GObject AspectFrame where -class GObject o => AspectFrameK o -instance (GObject o, IsDescendantOf AspectFrame o) => AspectFrameK o -data AspectFrameObeyChildPropertyInfo -data AspectFrameRatioPropertyInfo -data AspectFrameXalignPropertyInfo -data AspectFrameYalignPropertyInfo -data AspectFrameSetMethodInfo diff --git a/GI/Gtk/Objects/Assistant.hs b/GI/Gtk/Objects/Assistant.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Assistant.hs +++ /dev/null @@ -1,1850 +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.Gtk.Objects.Assistant - ( - --- * Exported types - Assistant(..) , - AssistantK , - toAssistant , - noAssistant , - - - -- * Methods --- ** assistantAddActionWidget - AssistantAddActionWidgetMethodInfo , - assistantAddActionWidget , - - --- ** assistantAppendPage - AssistantAppendPageMethodInfo , - assistantAppendPage , - - --- ** assistantCommit - AssistantCommitMethodInfo , - assistantCommit , - - --- ** assistantGetCurrentPage - AssistantGetCurrentPageMethodInfo , - assistantGetCurrentPage , - - --- ** assistantGetNPages - AssistantGetNPagesMethodInfo , - assistantGetNPages , - - --- ** assistantGetNthPage - AssistantGetNthPageMethodInfo , - assistantGetNthPage , - - --- ** assistantGetPageComplete - AssistantGetPageCompleteMethodInfo , - assistantGetPageComplete , - - --- ** assistantGetPageHasPadding - AssistantGetPageHasPaddingMethodInfo , - assistantGetPageHasPadding , - - --- ** assistantGetPageHeaderImage - AssistantGetPageHeaderImageMethodInfo , - assistantGetPageHeaderImage , - - --- ** assistantGetPageSideImage - AssistantGetPageSideImageMethodInfo , - assistantGetPageSideImage , - - --- ** assistantGetPageTitle - AssistantGetPageTitleMethodInfo , - assistantGetPageTitle , - - --- ** assistantGetPageType - AssistantGetPageTypeMethodInfo , - assistantGetPageType , - - --- ** assistantInsertPage - AssistantInsertPageMethodInfo , - assistantInsertPage , - - --- ** assistantNew - assistantNew , - - --- ** assistantNextPage - AssistantNextPageMethodInfo , - assistantNextPage , - - --- ** assistantPrependPage - AssistantPrependPageMethodInfo , - assistantPrependPage , - - --- ** assistantPreviousPage - AssistantPreviousPageMethodInfo , - assistantPreviousPage , - - --- ** assistantRemoveActionWidget - AssistantRemoveActionWidgetMethodInfo , - assistantRemoveActionWidget , - - --- ** assistantRemovePage - AssistantRemovePageMethodInfo , - assistantRemovePage , - - --- ** assistantSetCurrentPage - AssistantSetCurrentPageMethodInfo , - assistantSetCurrentPage , - - --- ** assistantSetForwardPageFunc - AssistantSetForwardPageFuncMethodInfo , - assistantSetForwardPageFunc , - - --- ** assistantSetPageComplete - AssistantSetPageCompleteMethodInfo , - assistantSetPageComplete , - - --- ** assistantSetPageHasPadding - AssistantSetPageHasPaddingMethodInfo , - assistantSetPageHasPadding , - - --- ** assistantSetPageHeaderImage - AssistantSetPageHeaderImageMethodInfo , - assistantSetPageHeaderImage , - - --- ** assistantSetPageSideImage - AssistantSetPageSideImageMethodInfo , - assistantSetPageSideImage , - - --- ** assistantSetPageTitle - AssistantSetPageTitleMethodInfo , - assistantSetPageTitle , - - --- ** assistantSetPageType - AssistantSetPageTypeMethodInfo , - assistantSetPageType , - - --- ** assistantUpdateButtonsState - AssistantUpdateButtonsStateMethodInfo , - assistantUpdateButtonsState , - - - - - -- * Properties --- ** UseHeaderBar - AssistantUseHeaderBarPropertyInfo , - assistantUseHeaderBar , - constructAssistantUseHeaderBar , - getAssistantUseHeaderBar , - - - - - -- * Signals --- ** Apply - AssistantApplyCallback , - AssistantApplyCallbackC , - AssistantApplySignalInfo , - afterAssistantApply , - assistantApplyCallbackWrapper , - assistantApplyClosure , - mkAssistantApplyCallback , - noAssistantApplyCallback , - onAssistantApply , - - --- ** Cancel - AssistantCancelCallback , - AssistantCancelCallbackC , - AssistantCancelSignalInfo , - afterAssistantCancel , - assistantCancelCallbackWrapper , - assistantCancelClosure , - mkAssistantCancelCallback , - noAssistantCancelCallback , - onAssistantCancel , - - --- ** Close - AssistantCloseCallback , - AssistantCloseCallbackC , - AssistantCloseSignalInfo , - afterAssistantClose , - assistantCloseCallbackWrapper , - assistantCloseClosure , - mkAssistantCloseCallback , - noAssistantCloseCallback , - onAssistantClose , - - --- ** Escape - AssistantEscapeCallback , - AssistantEscapeCallbackC , - AssistantEscapeSignalInfo , - afterAssistantEscape , - assistantEscapeCallbackWrapper , - assistantEscapeClosure , - mkAssistantEscapeCallback , - noAssistantEscapeCallback , - onAssistantEscape , - - --- ** Prepare - AssistantPrepareCallback , - AssistantPrepareCallbackC , - AssistantPrepareSignalInfo , - afterAssistantPrepare , - assistantPrepareCallbackWrapper , - assistantPrepareClosure , - mkAssistantPrepareCallback , - noAssistantPrepareCallback , - onAssistantPrepare , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype Assistant = Assistant (ForeignPtr Assistant) -foreign import ccall "gtk_assistant_get_type" - c_gtk_assistant_get_type :: IO GType - -type instance ParentTypes Assistant = AssistantParentTypes -type AssistantParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Assistant where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_assistant_get_type - - -class GObject o => AssistantK o -instance (GObject o, IsDescendantOf Assistant o) => AssistantK o - -toAssistant :: AssistantK o => o -> IO Assistant -toAssistant = unsafeCastTo Assistant - -noAssistant :: Maybe Assistant -noAssistant = Nothing - -type family ResolveAssistantMethod (t :: Symbol) (o :: *) :: * where - ResolveAssistantMethod "activate" o = WidgetActivateMethodInfo - ResolveAssistantMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveAssistantMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveAssistantMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveAssistantMethod "add" o = ContainerAddMethodInfo - ResolveAssistantMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveAssistantMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveAssistantMethod "addActionWidget" o = AssistantAddActionWidgetMethodInfo - ResolveAssistantMethod "addChild" o = BuildableAddChildMethodInfo - ResolveAssistantMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveAssistantMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveAssistantMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveAssistantMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveAssistantMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveAssistantMethod "appendPage" o = AssistantAppendPageMethodInfo - ResolveAssistantMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveAssistantMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveAssistantMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAssistantMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAssistantMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveAssistantMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveAssistantMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveAssistantMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveAssistantMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveAssistantMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveAssistantMethod "childType" o = ContainerChildTypeMethodInfo - ResolveAssistantMethod "classPath" o = WidgetClassPathMethodInfo - ResolveAssistantMethod "close" o = WindowCloseMethodInfo - ResolveAssistantMethod "commit" o = AssistantCommitMethodInfo - ResolveAssistantMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveAssistantMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveAssistantMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveAssistantMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveAssistantMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveAssistantMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveAssistantMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveAssistantMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveAssistantMethod "destroy" o = WidgetDestroyMethodInfo - ResolveAssistantMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveAssistantMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveAssistantMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveAssistantMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveAssistantMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveAssistantMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveAssistantMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveAssistantMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveAssistantMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveAssistantMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveAssistantMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveAssistantMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveAssistantMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveAssistantMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveAssistantMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveAssistantMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveAssistantMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveAssistantMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveAssistantMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveAssistantMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveAssistantMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveAssistantMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveAssistantMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveAssistantMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveAssistantMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveAssistantMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveAssistantMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveAssistantMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveAssistantMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveAssistantMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveAssistantMethod "draw" o = WidgetDrawMethodInfo - ResolveAssistantMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveAssistantMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveAssistantMethod "event" o = WidgetEventMethodInfo - ResolveAssistantMethod "forall" o = ContainerForallMethodInfo - ResolveAssistantMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAssistantMethod "foreach" o = ContainerForeachMethodInfo - ResolveAssistantMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveAssistantMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAssistantMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveAssistantMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveAssistantMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveAssistantMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveAssistantMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveAssistantMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveAssistantMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveAssistantMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveAssistantMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveAssistantMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveAssistantMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveAssistantMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveAssistantMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveAssistantMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveAssistantMethod "hide" o = WidgetHideMethodInfo - ResolveAssistantMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveAssistantMethod "iconify" o = WindowIconifyMethodInfo - ResolveAssistantMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveAssistantMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveAssistantMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveAssistantMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveAssistantMethod "insertPage" o = AssistantInsertPageMethodInfo - ResolveAssistantMethod "intersect" o = WidgetIntersectMethodInfo - ResolveAssistantMethod "isActive" o = WindowIsActiveMethodInfo - ResolveAssistantMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveAssistantMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveAssistantMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveAssistantMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAssistantMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveAssistantMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveAssistantMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveAssistantMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveAssistantMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveAssistantMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveAssistantMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveAssistantMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveAssistantMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveAssistantMethod "map" o = WidgetMapMethodInfo - ResolveAssistantMethod "maximize" o = WindowMaximizeMethodInfo - ResolveAssistantMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveAssistantMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveAssistantMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveAssistantMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveAssistantMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveAssistantMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveAssistantMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveAssistantMethod "move" o = WindowMoveMethodInfo - ResolveAssistantMethod "nextPage" o = AssistantNextPageMethodInfo - ResolveAssistantMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAssistantMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAssistantMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveAssistantMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveAssistantMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveAssistantMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveAssistantMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveAssistantMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveAssistantMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveAssistantMethod "path" o = WidgetPathMethodInfo - ResolveAssistantMethod "prependPage" o = AssistantPrependPageMethodInfo - ResolveAssistantMethod "present" o = WindowPresentMethodInfo - ResolveAssistantMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveAssistantMethod "previousPage" o = AssistantPreviousPageMethodInfo - ResolveAssistantMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveAssistantMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveAssistantMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveAssistantMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveAssistantMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveAssistantMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveAssistantMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveAssistantMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveAssistantMethod "realize" o = WidgetRealizeMethodInfo - ResolveAssistantMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAssistantMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAssistantMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveAssistantMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveAssistantMethod "remove" o = ContainerRemoveMethodInfo - ResolveAssistantMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveAssistantMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveAssistantMethod "removeActionWidget" o = AssistantRemoveActionWidgetMethodInfo - ResolveAssistantMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveAssistantMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveAssistantMethod "removePage" o = AssistantRemovePageMethodInfo - ResolveAssistantMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveAssistantMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveAssistantMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveAssistantMethod "reparent" o = WidgetReparentMethodInfo - ResolveAssistantMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAssistantMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAssistantMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveAssistantMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveAssistantMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveAssistantMethod "resize" o = WindowResizeMethodInfo - ResolveAssistantMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveAssistantMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveAssistantMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveAssistantMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAssistantMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveAssistantMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveAssistantMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveAssistantMethod "show" o = WidgetShowMethodInfo - ResolveAssistantMethod "showAll" o = WidgetShowAllMethodInfo - ResolveAssistantMethod "showNow" o = WidgetShowNowMethodInfo - ResolveAssistantMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveAssistantMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveAssistantMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveAssistantMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAssistantMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAssistantMethod "stick" o = WindowStickMethodInfo - ResolveAssistantMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveAssistantMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveAssistantMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveAssistantMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAssistantMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveAssistantMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveAssistantMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveAssistantMethod "unmap" o = WidgetUnmapMethodInfo - ResolveAssistantMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveAssistantMethod "unparent" o = WidgetUnparentMethodInfo - ResolveAssistantMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveAssistantMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAssistantMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveAssistantMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveAssistantMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveAssistantMethod "unstick" o = WindowUnstickMethodInfo - ResolveAssistantMethod "updateButtonsState" o = AssistantUpdateButtonsStateMethodInfo - ResolveAssistantMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAssistantMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveAssistantMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveAssistantMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveAssistantMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveAssistantMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveAssistantMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveAssistantMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveAssistantMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveAssistantMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveAssistantMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveAssistantMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveAssistantMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveAssistantMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveAssistantMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveAssistantMethod "getChild" o = BinGetChildMethodInfo - ResolveAssistantMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveAssistantMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveAssistantMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveAssistantMethod "getClip" o = WidgetGetClipMethodInfo - ResolveAssistantMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveAssistantMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveAssistantMethod "getCurrentPage" o = AssistantGetCurrentPageMethodInfo - ResolveAssistantMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAssistantMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveAssistantMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveAssistantMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveAssistantMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveAssistantMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveAssistantMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveAssistantMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveAssistantMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveAssistantMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveAssistantMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveAssistantMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveAssistantMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveAssistantMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveAssistantMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveAssistantMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveAssistantMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveAssistantMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveAssistantMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveAssistantMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveAssistantMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveAssistantMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveAssistantMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveAssistantMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveAssistantMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveAssistantMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveAssistantMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveAssistantMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveAssistantMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveAssistantMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveAssistantMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveAssistantMethod "getIcon" o = WindowGetIconMethodInfo - ResolveAssistantMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveAssistantMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveAssistantMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveAssistantMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveAssistantMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveAssistantMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveAssistantMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveAssistantMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveAssistantMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveAssistantMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveAssistantMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveAssistantMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveAssistantMethod "getModal" o = WindowGetModalMethodInfo - ResolveAssistantMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveAssistantMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveAssistantMethod "getNPages" o = AssistantGetNPagesMethodInfo - ResolveAssistantMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveAssistantMethod "getNthPage" o = AssistantGetNthPageMethodInfo - ResolveAssistantMethod "getPageComplete" o = AssistantGetPageCompleteMethodInfo - ResolveAssistantMethod "getPageHasPadding" o = AssistantGetPageHasPaddingMethodInfo - ResolveAssistantMethod "getPageHeaderImage" o = AssistantGetPageHeaderImageMethodInfo - ResolveAssistantMethod "getPageSideImage" o = AssistantGetPageSideImageMethodInfo - ResolveAssistantMethod "getPageTitle" o = AssistantGetPageTitleMethodInfo - ResolveAssistantMethod "getPageType" o = AssistantGetPageTypeMethodInfo - ResolveAssistantMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveAssistantMethod "getParent" o = WidgetGetParentMethodInfo - ResolveAssistantMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveAssistantMethod "getPath" o = WidgetGetPathMethodInfo - ResolveAssistantMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveAssistantMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveAssistantMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveAssistantMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveAssistantMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveAssistantMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveAssistantMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveAssistantMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveAssistantMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveAssistantMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAssistantMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAssistantMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveAssistantMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveAssistantMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveAssistantMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveAssistantMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveAssistantMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveAssistantMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveAssistantMethod "getRole" o = WindowGetRoleMethodInfo - ResolveAssistantMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveAssistantMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveAssistantMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveAssistantMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveAssistantMethod "getSize" o = WindowGetSizeMethodInfo - ResolveAssistantMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveAssistantMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveAssistantMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveAssistantMethod "getState" o = WidgetGetStateMethodInfo - ResolveAssistantMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveAssistantMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveAssistantMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveAssistantMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveAssistantMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveAssistantMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveAssistantMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveAssistantMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveAssistantMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveAssistantMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveAssistantMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveAssistantMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveAssistantMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveAssistantMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveAssistantMethod "getValign" o = WidgetGetValignMethodInfo - ResolveAssistantMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveAssistantMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveAssistantMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveAssistantMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveAssistantMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveAssistantMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveAssistantMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveAssistantMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveAssistantMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveAssistantMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveAssistantMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveAssistantMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveAssistantMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveAssistantMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveAssistantMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveAssistantMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveAssistantMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveAssistantMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveAssistantMethod "setClip" o = WidgetSetClipMethodInfo - ResolveAssistantMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveAssistantMethod "setCurrentPage" o = AssistantSetCurrentPageMethodInfo - ResolveAssistantMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAssistantMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveAssistantMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveAssistantMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveAssistantMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveAssistantMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveAssistantMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveAssistantMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveAssistantMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveAssistantMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveAssistantMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveAssistantMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveAssistantMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveAssistantMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveAssistantMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveAssistantMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveAssistantMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveAssistantMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveAssistantMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveAssistantMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveAssistantMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveAssistantMethod "setForwardPageFunc" o = AssistantSetForwardPageFuncMethodInfo - ResolveAssistantMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveAssistantMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveAssistantMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveAssistantMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveAssistantMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveAssistantMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveAssistantMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveAssistantMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveAssistantMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveAssistantMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveAssistantMethod "setIcon" o = WindowSetIconMethodInfo - ResolveAssistantMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveAssistantMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveAssistantMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveAssistantMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveAssistantMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveAssistantMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveAssistantMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveAssistantMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveAssistantMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveAssistantMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveAssistantMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveAssistantMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveAssistantMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveAssistantMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveAssistantMethod "setModal" o = WindowSetModalMethodInfo - ResolveAssistantMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveAssistantMethod "setPageComplete" o = AssistantSetPageCompleteMethodInfo - ResolveAssistantMethod "setPageHasPadding" o = AssistantSetPageHasPaddingMethodInfo - ResolveAssistantMethod "setPageHeaderImage" o = AssistantSetPageHeaderImageMethodInfo - ResolveAssistantMethod "setPageSideImage" o = AssistantSetPageSideImageMethodInfo - ResolveAssistantMethod "setPageTitle" o = AssistantSetPageTitleMethodInfo - ResolveAssistantMethod "setPageType" o = AssistantSetPageTypeMethodInfo - ResolveAssistantMethod "setParent" o = WidgetSetParentMethodInfo - ResolveAssistantMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveAssistantMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveAssistantMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAssistantMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveAssistantMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveAssistantMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveAssistantMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveAssistantMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveAssistantMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveAssistantMethod "setRole" o = WindowSetRoleMethodInfo - ResolveAssistantMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveAssistantMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveAssistantMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveAssistantMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveAssistantMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveAssistantMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveAssistantMethod "setState" o = WidgetSetStateMethodInfo - ResolveAssistantMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveAssistantMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveAssistantMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveAssistantMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveAssistantMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveAssistantMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveAssistantMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveAssistantMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveAssistantMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveAssistantMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveAssistantMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveAssistantMethod "setValign" o = WidgetSetValignMethodInfo - ResolveAssistantMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveAssistantMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveAssistantMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveAssistantMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveAssistantMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveAssistantMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveAssistantMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAssistantMethod t Assistant, MethodInfo info Assistant p) => IsLabelProxy t (Assistant -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAssistantMethod t Assistant, MethodInfo info Assistant p) => IsLabel t (Assistant -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Assistant::apply -type AssistantApplyCallback = - IO () - -noAssistantApplyCallback :: Maybe AssistantApplyCallback -noAssistantApplyCallback = Nothing - -type AssistantApplyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAssistantApplyCallback :: AssistantApplyCallbackC -> IO (FunPtr AssistantApplyCallbackC) - -assistantApplyClosure :: AssistantApplyCallback -> IO Closure -assistantApplyClosure cb = newCClosure =<< mkAssistantApplyCallback wrapped - where wrapped = assistantApplyCallbackWrapper cb - -assistantApplyCallbackWrapper :: - AssistantApplyCallback -> - Ptr () -> - Ptr () -> - IO () -assistantApplyCallbackWrapper _cb _ _ = do - _cb - -onAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId -onAssistantApply obj cb = liftIO $ connectAssistantApply obj cb SignalConnectBefore -afterAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId -afterAssistantApply obj cb = connectAssistantApply obj cb SignalConnectAfter - -connectAssistantApply :: (GObject a, MonadIO m) => - a -> AssistantApplyCallback -> SignalConnectMode -> m SignalHandlerId -connectAssistantApply obj cb after = liftIO $ do - cb' <- mkAssistantApplyCallback (assistantApplyCallbackWrapper cb) - connectSignalFunPtr obj "apply" cb' after - --- signal Assistant::cancel -type AssistantCancelCallback = - IO () - -noAssistantCancelCallback :: Maybe AssistantCancelCallback -noAssistantCancelCallback = Nothing - -type AssistantCancelCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAssistantCancelCallback :: AssistantCancelCallbackC -> IO (FunPtr AssistantCancelCallbackC) - -assistantCancelClosure :: AssistantCancelCallback -> IO Closure -assistantCancelClosure cb = newCClosure =<< mkAssistantCancelCallback wrapped - where wrapped = assistantCancelCallbackWrapper cb - -assistantCancelCallbackWrapper :: - AssistantCancelCallback -> - Ptr () -> - Ptr () -> - IO () -assistantCancelCallbackWrapper _cb _ _ = do - _cb - -onAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId -onAssistantCancel obj cb = liftIO $ connectAssistantCancel obj cb SignalConnectBefore -afterAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId -afterAssistantCancel obj cb = connectAssistantCancel obj cb SignalConnectAfter - -connectAssistantCancel :: (GObject a, MonadIO m) => - a -> AssistantCancelCallback -> SignalConnectMode -> m SignalHandlerId -connectAssistantCancel obj cb after = liftIO $ do - cb' <- mkAssistantCancelCallback (assistantCancelCallbackWrapper cb) - connectSignalFunPtr obj "cancel" cb' after - --- signal Assistant::close -type AssistantCloseCallback = - IO () - -noAssistantCloseCallback :: Maybe AssistantCloseCallback -noAssistantCloseCallback = Nothing - -type AssistantCloseCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAssistantCloseCallback :: AssistantCloseCallbackC -> IO (FunPtr AssistantCloseCallbackC) - -assistantCloseClosure :: AssistantCloseCallback -> IO Closure -assistantCloseClosure cb = newCClosure =<< mkAssistantCloseCallback wrapped - where wrapped = assistantCloseCallbackWrapper cb - -assistantCloseCallbackWrapper :: - AssistantCloseCallback -> - Ptr () -> - Ptr () -> - IO () -assistantCloseCallbackWrapper _cb _ _ = do - _cb - -onAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId -onAssistantClose obj cb = liftIO $ connectAssistantClose obj cb SignalConnectBefore -afterAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId -afterAssistantClose obj cb = connectAssistantClose obj cb SignalConnectAfter - -connectAssistantClose :: (GObject a, MonadIO m) => - a -> AssistantCloseCallback -> SignalConnectMode -> m SignalHandlerId -connectAssistantClose obj cb after = liftIO $ do - cb' <- mkAssistantCloseCallback (assistantCloseCallbackWrapper cb) - connectSignalFunPtr obj "close" cb' after - --- signal Assistant::escape -type AssistantEscapeCallback = - IO () - -noAssistantEscapeCallback :: Maybe AssistantEscapeCallback -noAssistantEscapeCallback = Nothing - -type AssistantEscapeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAssistantEscapeCallback :: AssistantEscapeCallbackC -> IO (FunPtr AssistantEscapeCallbackC) - -assistantEscapeClosure :: AssistantEscapeCallback -> IO Closure -assistantEscapeClosure cb = newCClosure =<< mkAssistantEscapeCallback wrapped - where wrapped = assistantEscapeCallbackWrapper cb - -assistantEscapeCallbackWrapper :: - AssistantEscapeCallback -> - Ptr () -> - Ptr () -> - IO () -assistantEscapeCallbackWrapper _cb _ _ = do - _cb - -onAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId -onAssistantEscape obj cb = liftIO $ connectAssistantEscape obj cb SignalConnectBefore -afterAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId -afterAssistantEscape obj cb = connectAssistantEscape obj cb SignalConnectAfter - -connectAssistantEscape :: (GObject a, MonadIO m) => - a -> AssistantEscapeCallback -> SignalConnectMode -> m SignalHandlerId -connectAssistantEscape obj cb after = liftIO $ do - cb' <- mkAssistantEscapeCallback (assistantEscapeCallbackWrapper cb) - connectSignalFunPtr obj "escape" cb' after - --- signal Assistant::prepare -type AssistantPrepareCallback = - Widget -> - IO () - -noAssistantPrepareCallback :: Maybe AssistantPrepareCallback -noAssistantPrepareCallback = Nothing - -type AssistantPrepareCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAssistantPrepareCallback :: AssistantPrepareCallbackC -> IO (FunPtr AssistantPrepareCallbackC) - -assistantPrepareClosure :: AssistantPrepareCallback -> IO Closure -assistantPrepareClosure cb = newCClosure =<< mkAssistantPrepareCallback wrapped - where wrapped = assistantPrepareCallbackWrapper cb - -assistantPrepareCallbackWrapper :: - AssistantPrepareCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -assistantPrepareCallbackWrapper _cb _ page _ = do - page' <- (newObject Widget) page - _cb page' - -onAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId -onAssistantPrepare obj cb = liftIO $ connectAssistantPrepare obj cb SignalConnectBefore -afterAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId -afterAssistantPrepare obj cb = connectAssistantPrepare obj cb SignalConnectAfter - -connectAssistantPrepare :: (GObject a, MonadIO m) => - a -> AssistantPrepareCallback -> SignalConnectMode -> m SignalHandlerId -connectAssistantPrepare obj cb after = liftIO $ do - cb' <- mkAssistantPrepareCallback (assistantPrepareCallbackWrapper cb) - connectSignalFunPtr obj "prepare" cb' after - --- VVV Prop "use-header-bar" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32 -getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" - -constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructAssistantUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val - -data AssistantUseHeaderBarPropertyInfo -instance AttrInfo AssistantUseHeaderBarPropertyInfo where - type AttrAllowedOps AssistantUseHeaderBarPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint AssistantUseHeaderBarPropertyInfo = AssistantK - type AttrGetType AssistantUseHeaderBarPropertyInfo = Int32 - type AttrLabel AssistantUseHeaderBarPropertyInfo = "use-header-bar" - attrGet _ = getAssistantUseHeaderBar - attrSet _ = undefined - attrConstruct _ = constructAssistantUseHeaderBar - attrClear _ = undefined - -type instance AttributeList Assistant = AssistantAttributeList -type AssistantAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -assistantUseHeaderBar :: AttrLabelProxy "useHeaderBar" -assistantUseHeaderBar = AttrLabelProxy - -data AssistantApplySignalInfo -instance SignalInfo AssistantApplySignalInfo where - type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback - connectSignal _ = connectAssistantApply - -data AssistantCancelSignalInfo -instance SignalInfo AssistantCancelSignalInfo where - type HaskellCallbackType AssistantCancelSignalInfo = AssistantCancelCallback - connectSignal _ = connectAssistantCancel - -data AssistantCloseSignalInfo -instance SignalInfo AssistantCloseSignalInfo where - type HaskellCallbackType AssistantCloseSignalInfo = AssistantCloseCallback - connectSignal _ = connectAssistantClose - -data AssistantEscapeSignalInfo -instance SignalInfo AssistantEscapeSignalInfo where - type HaskellCallbackType AssistantEscapeSignalInfo = AssistantEscapeCallback - connectSignal _ = connectAssistantEscape - -data AssistantPrepareSignalInfo -instance SignalInfo AssistantPrepareSignalInfo where - type HaskellCallbackType AssistantPrepareSignalInfo = AssistantPrepareCallback - connectSignal _ = connectAssistantPrepare - -type instance SignalList Assistant = AssistantSignalList -type AssistantSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Assistant::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Assistant") --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_new" gtk_assistant_new :: - IO (Ptr Assistant) - - -assistantNew :: - (MonadIO m) => - m Assistant -- result -assistantNew = liftIO $ do - result <- gtk_assistant_new - checkUnexpectedReturnNULL "gtk_assistant_new" result - result' <- (newObject Assistant) result - return result' - --- method Assistant::add_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_add_action_widget" gtk_assistant_add_action_widget :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -assistantAddActionWidget :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -assistantAddActionWidget _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_assistant_add_action_widget _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data AssistantAddActionWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantAddActionWidgetMethodInfo a signature where - overloadedMethod _ = assistantAddActionWidget - --- method Assistant::append_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_append_page" gtk_assistant_append_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO Int32 - - -assistantAppendPage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m Int32 -- result -assistantAppendPage _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_append_page _obj' page' - touchManagedPtr _obj - touchManagedPtr page - return result - -data AssistantAppendPageMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantAppendPageMethodInfo a signature where - overloadedMethod _ = assistantAppendPage - --- method Assistant::commit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_commit" gtk_assistant_commit :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO () - - -assistantCommit :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m () -- result -assistantCommit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_commit _obj' - touchManagedPtr _obj - return () - -data AssistantCommitMethodInfo -instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantCommitMethodInfo a signature where - overloadedMethod _ = assistantCommit - --- method Assistant::get_current_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_get_current_page" gtk_assistant_get_current_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO Int32 - - -assistantGetCurrentPage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m Int32 -- result -assistantGetCurrentPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_current_page _obj' - touchManagedPtr _obj - return result - -data AssistantGetCurrentPageMethodInfo -instance (signature ~ (m Int32), MonadIO m, AssistantK a) => MethodInfo AssistantGetCurrentPageMethodInfo a signature where - overloadedMethod _ = assistantGetCurrentPage - --- method Assistant::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_get_n_pages" gtk_assistant_get_n_pages :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO Int32 - - -assistantGetNPages :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m Int32 -- result -assistantGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_n_pages _obj' - touchManagedPtr _obj - return result - -data AssistantGetNPagesMethodInfo -instance (signature ~ (m Int32), MonadIO m, AssistantK a) => MethodInfo AssistantGetNPagesMethodInfo a signature where - overloadedMethod _ = assistantGetNPages - --- method Assistant::get_nth_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt - IO (Ptr Widget) - - -assistantGetNthPage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> Int32 -- pageNum - -> m Widget -- result -assistantGetNthPage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_nth_page _obj' pageNum - checkUnexpectedReturnNULL "gtk_assistant_get_nth_page" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data AssistantGetNthPageMethodInfo -instance (signature ~ (Int32 -> m Widget), MonadIO m, AssistantK a) => MethodInfo AssistantGetNthPageMethodInfo a signature where - overloadedMethod _ = assistantGetNthPage - --- method Assistant::get_page_complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_get_page_complete" gtk_assistant_get_page_complete :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO CInt - - -assistantGetPageComplete :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m Bool -- result -assistantGetPageComplete _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_complete _obj' page' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageCompleteMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageCompleteMethodInfo a signature where - overloadedMethod _ = assistantGetPageComplete - --- method Assistant::get_page_has_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_get_page_has_padding" gtk_assistant_get_page_has_padding :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO CInt - - -assistantGetPageHasPadding :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m Bool -- result -assistantGetPageHasPadding _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_has_padding _obj' page' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageHasPaddingMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageHasPaddingMethodInfo a signature where - overloadedMethod _ = assistantGetPageHasPadding - --- method Assistant::get_page_header_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_get_page_header_image" gtk_assistant_get_page_header_image :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED assistantGetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-} -assistantGetPageHeaderImage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m GdkPixbuf.Pixbuf -- result -assistantGetPageHeaderImage _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_header_image _obj' page' - checkUnexpectedReturnNULL "gtk_assistant_get_page_header_image" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageHeaderImageMethodInfo -instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageHeaderImageMethodInfo a signature where - overloadedMethod _ = assistantGetPageHeaderImage - --- method Assistant::get_page_side_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_get_page_side_image" gtk_assistant_get_page_side_image :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED assistantGetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-} -assistantGetPageSideImage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m GdkPixbuf.Pixbuf -- result -assistantGetPageSideImage _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_side_image _obj' page' - checkUnexpectedReturnNULL "gtk_assistant_get_page_side_image" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageSideImageMethodInfo -instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageSideImageMethodInfo a signature where - overloadedMethod _ = assistantGetPageSideImage - --- method Assistant::get_page_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_get_page_title" gtk_assistant_get_page_title :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO CString - - -assistantGetPageTitle :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m T.Text -- result -assistantGetPageTitle _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_title _obj' page' - checkUnexpectedReturnNULL "gtk_assistant_get_page_title" result - result' <- cstringToText result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageTitleMethodInfo -instance (signature ~ (b -> m T.Text), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageTitleMethodInfo a signature where - overloadedMethod _ = assistantGetPageTitle - --- method Assistant::get_page_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AssistantPageType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_get_page_type" gtk_assistant_get_page_type :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO CUInt - - -assistantGetPageType :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m AssistantPageType -- result -assistantGetPageType _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_get_page_type _obj' page' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr page - return result' - -data AssistantGetPageTypeMethodInfo -instance (signature ~ (b -> m AssistantPageType), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageTypeMethodInfo a signature where - overloadedMethod _ = assistantGetPageType - --- method Assistant::insert_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO Int32 - - -assistantInsertPage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> Int32 -- position - -> m Int32 -- result -assistantInsertPage _obj page position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_insert_page _obj' page' position - touchManagedPtr _obj - touchManagedPtr page - return result - -data AssistantInsertPageMethodInfo -instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantInsertPageMethodInfo a signature where - overloadedMethod _ = assistantInsertPage - --- method Assistant::next_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_next_page" gtk_assistant_next_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO () - - -assistantNextPage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m () -- result -assistantNextPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_next_page _obj' - touchManagedPtr _obj - return () - -data AssistantNextPageMethodInfo -instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantNextPageMethodInfo a signature where - overloadedMethod _ = assistantNextPage - --- method Assistant::prepend_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_prepend_page" gtk_assistant_prepend_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - IO Int32 - - -assistantPrependPage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> m Int32 -- result -assistantPrependPage _obj page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - result <- gtk_assistant_prepend_page _obj' page' - touchManagedPtr _obj - touchManagedPtr page - return result - -data AssistantPrependPageMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantPrependPageMethodInfo a signature where - overloadedMethod _ = assistantPrependPage - --- method Assistant::previous_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_previous_page" gtk_assistant_previous_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO () - - -assistantPreviousPage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m () -- result -assistantPreviousPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_previous_page _obj' - touchManagedPtr _obj - return () - -data AssistantPreviousPageMethodInfo -instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantPreviousPageMethodInfo a signature where - overloadedMethod _ = assistantPreviousPage - --- method Assistant::remove_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_assistant_remove_action_widget" gtk_assistant_remove_action_widget :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -assistantRemoveActionWidget :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -assistantRemoveActionWidget _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_assistant_remove_action_widget _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data AssistantRemoveActionWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantRemoveActionWidgetMethodInfo a signature where - overloadedMethod _ = assistantRemoveActionWidget - --- method Assistant::remove_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", 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 "gtk_assistant_remove_page" gtk_assistant_remove_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt - IO () - - -assistantRemovePage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> Int32 -- pageNum - -> m () -- result -assistantRemovePage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_remove_page _obj' pageNum - touchManagedPtr _obj - return () - -data AssistantRemovePageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantRemovePageMethodInfo a signature where - overloadedMethod _ = assistantRemovePage - --- method Assistant::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", 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 "gtk_assistant_set_current_page" gtk_assistant_set_current_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt - IO () - - -assistantSetCurrentPage :: - (MonadIO m, AssistantK a) => - a -- _obj - -> Int32 -- pageNum - -> m () -- result -assistantSetCurrentPage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_set_current_page _obj' pageNum - touchManagedPtr _obj - return () - -data AssistantSetCurrentPageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantSetCurrentPageMethodInfo a signature where - overloadedMethod _ = assistantSetCurrentPage - --- method Assistant::set_forward_page_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - FunPtr AssistantPageFuncC -> -- page_func : TInterface "Gtk" "AssistantPageFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -assistantSetForwardPageFunc :: - (MonadIO m, AssistantK a) => - a -- _obj - -> Maybe (AssistantPageFunc) -- pageFunc - -> m () -- result -assistantSetForwardPageFunc _obj pageFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePageFunc <- case pageFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jPageFunc -> do - jPageFunc' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPageFunc) - return jPageFunc' - let data_ = castFunPtrToPtr maybePageFunc - let destroy = safeFreeFunPtrPtr - gtk_assistant_set_forward_page_func _obj' maybePageFunc data_ destroy - touchManagedPtr _obj - return () - -data AssistantSetForwardPageFuncMethodInfo -instance (signature ~ (Maybe (AssistantPageFunc) -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantSetForwardPageFuncMethodInfo a signature where - overloadedMethod _ = assistantSetForwardPageFunc - --- method Assistant::set_page_complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "complete", 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 "gtk_assistant_set_page_complete" gtk_assistant_set_page_complete :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - CInt -> -- complete : TBasicType TBoolean - IO () - - -assistantSetPageComplete :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> Bool -- complete - -> m () -- result -assistantSetPageComplete _obj page complete = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - let complete' = (fromIntegral . fromEnum) complete - gtk_assistant_set_page_complete _obj' page' complete' - touchManagedPtr _obj - touchManagedPtr page - return () - -data AssistantSetPageCompleteMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageCompleteMethodInfo a signature where - overloadedMethod _ = assistantSetPageComplete - --- method Assistant::set_page_has_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_padding", 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 "gtk_assistant_set_page_has_padding" gtk_assistant_set_page_has_padding :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - CInt -> -- has_padding : TBasicType TBoolean - IO () - - -assistantSetPageHasPadding :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> Bool -- hasPadding - -> m () -- result -assistantSetPageHasPadding _obj page hasPadding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - let hasPadding' = (fromIntegral . fromEnum) hasPadding - gtk_assistant_set_page_has_padding _obj' page' hasPadding' - touchManagedPtr _obj - touchManagedPtr page - return () - -data AssistantSetPageHasPaddingMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageHasPaddingMethodInfo a signature where - overloadedMethod _ = assistantSetPageHasPadding - --- method Assistant::set_page_header_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_set_page_header_image" gtk_assistant_set_page_header_image :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - -{-# DEPRECATED assistantSetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-} -assistantSetPageHeaderImage :: - (MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => - a -- _obj - -> b -- page - -> Maybe (c) -- pixbuf - -> m () -- result -assistantSetPageHeaderImage _obj page pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_assistant_set_page_header_image _obj' page' maybePixbuf - touchManagedPtr _obj - touchManagedPtr page - whenJust pixbuf touchManagedPtr - return () - -data AssistantSetPageHeaderImageMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => MethodInfo AssistantSetPageHeaderImageMethodInfo a signature where - overloadedMethod _ = assistantSetPageHeaderImage - --- method Assistant::set_page_side_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_set_page_side_image" gtk_assistant_set_page_side_image :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - -{-# DEPRECATED assistantSetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-} -assistantSetPageSideImage :: - (MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => - a -- _obj - -> b -- page - -> Maybe (c) -- pixbuf - -> m () -- result -assistantSetPageSideImage _obj page pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_assistant_set_page_side_image _obj' page' maybePixbuf - touchManagedPtr _obj - touchManagedPtr page - whenJust pixbuf touchManagedPtr - return () - -data AssistantSetPageSideImageMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => MethodInfo AssistantSetPageSideImageMethodInfo a signature where - overloadedMethod _ = assistantSetPageSideImage - --- method Assistant::set_page_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_assistant_set_page_title" gtk_assistant_set_page_title :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - CString -> -- title : TBasicType TUTF8 - IO () - - -assistantSetPageTitle :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> T.Text -- title - -> m () -- result -assistantSetPageTitle _obj page title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - title' <- textToCString title - gtk_assistant_set_page_title _obj' page' title' - touchManagedPtr _obj - touchManagedPtr page - freeMem title' - return () - -data AssistantSetPageTitleMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageTitleMethodInfo a signature where - overloadedMethod _ = assistantSetPageTitle - --- method Assistant::set_page_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "AssistantPageType", 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 "gtk_assistant_set_page_type" gtk_assistant_set_page_type :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Ptr Widget -> -- page : TInterface "Gtk" "Widget" - CUInt -> -- type : TInterface "Gtk" "AssistantPageType" - IO () - - -assistantSetPageType :: - (MonadIO m, AssistantK a, WidgetK b) => - a -- _obj - -> b -- page - -> AssistantPageType -- type_ - -> m () -- result -assistantSetPageType _obj page type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page' = unsafeManagedPtrCastPtr page - let type_' = (fromIntegral . fromEnum) type_ - gtk_assistant_set_page_type _obj' page' type_' - touchManagedPtr _obj - touchManagedPtr page - return () - -data AssistantSetPageTypeMethodInfo -instance (signature ~ (b -> AssistantPageType -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageTypeMethodInfo a signature where - overloadedMethod _ = assistantSetPageType - --- method Assistant::update_buttons_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", 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 "gtk_assistant_update_buttons_state" gtk_assistant_update_buttons_state :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - IO () - - -assistantUpdateButtonsState :: - (MonadIO m, AssistantK a) => - a -- _obj - -> m () -- result -assistantUpdateButtonsState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_update_buttons_state _obj' - touchManagedPtr _obj - return () - -data AssistantUpdateButtonsStateMethodInfo -instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantUpdateButtonsStateMethodInfo a signature where - overloadedMethod _ = assistantUpdateButtonsState - - diff --git a/GI/Gtk/Objects/Assistant.hs-boot b/GI/Gtk/Objects/Assistant.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Assistant.hs-boot +++ /dev/null @@ -1,46 +0,0 @@ -module GI.Gtk.Objects.Assistant 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 Assistant = Assistant (ForeignPtr Assistant) -instance GObject Assistant where -class GObject o => AssistantK o -instance (GObject o, IsDescendantOf Assistant o) => AssistantK o -data AssistantUseHeaderBarPropertyInfo -data AssistantApplySignalInfo -data AssistantCancelSignalInfo -data AssistantCloseSignalInfo -data AssistantEscapeSignalInfo -data AssistantPrepareSignalInfo -data AssistantAddActionWidgetMethodInfo -data AssistantAppendPageMethodInfo -data AssistantCommitMethodInfo -data AssistantGetCurrentPageMethodInfo -data AssistantGetNPagesMethodInfo -data AssistantGetNthPageMethodInfo -data AssistantGetPageCompleteMethodInfo -data AssistantGetPageHasPaddingMethodInfo -data AssistantGetPageHeaderImageMethodInfo -data AssistantGetPageSideImageMethodInfo -data AssistantGetPageTitleMethodInfo -data AssistantGetPageTypeMethodInfo -data AssistantInsertPageMethodInfo -data AssistantNextPageMethodInfo -data AssistantPrependPageMethodInfo -data AssistantPreviousPageMethodInfo -data AssistantRemoveActionWidgetMethodInfo -data AssistantRemovePageMethodInfo -data AssistantSetCurrentPageMethodInfo -data AssistantSetForwardPageFuncMethodInfo -data AssistantSetPageCompleteMethodInfo -data AssistantSetPageHasPaddingMethodInfo -data AssistantSetPageHeaderImageMethodInfo -data AssistantSetPageSideImageMethodInfo -data AssistantSetPageTitleMethodInfo -data AssistantSetPageTypeMethodInfo -data AssistantUpdateButtonsStateMethodInfo diff --git a/GI/Gtk/Objects/Bin.hs b/GI/Gtk/Objects/Bin.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Bin.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.Gtk.Objects.Bin - ( - --- * Exported types - Bin(..) , - BinK , - toBin , - noBin , - - - -- * Methods --- ** binGetChild - BinGetChildMethodInfo , - binGetChild , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Bin = Bin (ForeignPtr Bin) -foreign import ccall "gtk_bin_get_type" - c_gtk_bin_get_type :: IO GType - -type instance ParentTypes Bin = BinParentTypes -type BinParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Bin where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_bin_get_type - - -class GObject o => BinK o -instance (GObject o, IsDescendantOf Bin o) => BinK o - -toBin :: BinK o => o -> IO Bin -toBin = unsafeCastTo Bin - -noBin :: Maybe Bin -noBin = Nothing - -type family ResolveBinMethod (t :: Symbol) (o :: *) :: * where - ResolveBinMethod "activate" o = WidgetActivateMethodInfo - ResolveBinMethod "add" o = ContainerAddMethodInfo - ResolveBinMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveBinMethod "addChild" o = BuildableAddChildMethodInfo - ResolveBinMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveBinMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveBinMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveBinMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveBinMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBinMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBinMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveBinMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveBinMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveBinMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveBinMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveBinMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveBinMethod "childType" o = ContainerChildTypeMethodInfo - ResolveBinMethod "classPath" o = WidgetClassPathMethodInfo - ResolveBinMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveBinMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveBinMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveBinMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveBinMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveBinMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveBinMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveBinMethod "destroy" o = WidgetDestroyMethodInfo - ResolveBinMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveBinMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveBinMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveBinMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveBinMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveBinMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveBinMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveBinMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveBinMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveBinMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveBinMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveBinMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveBinMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveBinMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveBinMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveBinMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveBinMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveBinMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveBinMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveBinMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveBinMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveBinMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveBinMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveBinMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveBinMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveBinMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveBinMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveBinMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveBinMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveBinMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveBinMethod "draw" o = WidgetDrawMethodInfo - ResolveBinMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveBinMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveBinMethod "event" o = WidgetEventMethodInfo - ResolveBinMethod "forall" o = ContainerForallMethodInfo - ResolveBinMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBinMethod "foreach" o = ContainerForeachMethodInfo - ResolveBinMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveBinMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBinMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveBinMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveBinMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveBinMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveBinMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveBinMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveBinMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveBinMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveBinMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveBinMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveBinMethod "hide" o = WidgetHideMethodInfo - ResolveBinMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveBinMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveBinMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveBinMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveBinMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveBinMethod "intersect" o = WidgetIntersectMethodInfo - ResolveBinMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveBinMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveBinMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveBinMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBinMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveBinMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveBinMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveBinMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveBinMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveBinMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveBinMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveBinMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveBinMethod "map" o = WidgetMapMethodInfo - ResolveBinMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveBinMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveBinMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveBinMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveBinMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveBinMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveBinMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveBinMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveBinMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBinMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBinMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveBinMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveBinMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveBinMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveBinMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveBinMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveBinMethod "path" o = WidgetPathMethodInfo - ResolveBinMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveBinMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveBinMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveBinMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveBinMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveBinMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveBinMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveBinMethod "realize" o = WidgetRealizeMethodInfo - ResolveBinMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBinMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBinMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveBinMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveBinMethod "remove" o = ContainerRemoveMethodInfo - ResolveBinMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveBinMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveBinMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveBinMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveBinMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveBinMethod "reparent" o = WidgetReparentMethodInfo - ResolveBinMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBinMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBinMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveBinMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveBinMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveBinMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBinMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveBinMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveBinMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveBinMethod "show" o = WidgetShowMethodInfo - ResolveBinMethod "showAll" o = WidgetShowAllMethodInfo - ResolveBinMethod "showNow" o = WidgetShowNowMethodInfo - ResolveBinMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveBinMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveBinMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveBinMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBinMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBinMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveBinMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveBinMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveBinMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBinMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveBinMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveBinMethod "unmap" o = WidgetUnmapMethodInfo - ResolveBinMethod "unparent" o = WidgetUnparentMethodInfo - ResolveBinMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveBinMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBinMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveBinMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveBinMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveBinMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBinMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveBinMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveBinMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveBinMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveBinMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveBinMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveBinMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveBinMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveBinMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveBinMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveBinMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveBinMethod "getChild" o = BinGetChildMethodInfo - ResolveBinMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveBinMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveBinMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveBinMethod "getClip" o = WidgetGetClipMethodInfo - ResolveBinMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveBinMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveBinMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBinMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveBinMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveBinMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveBinMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveBinMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveBinMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveBinMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveBinMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveBinMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveBinMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveBinMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveBinMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveBinMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveBinMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveBinMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveBinMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveBinMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveBinMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveBinMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveBinMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveBinMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveBinMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveBinMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveBinMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveBinMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveBinMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveBinMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveBinMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveBinMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveBinMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveBinMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveBinMethod "getParent" o = WidgetGetParentMethodInfo - ResolveBinMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveBinMethod "getPath" o = WidgetGetPathMethodInfo - ResolveBinMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveBinMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveBinMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveBinMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveBinMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveBinMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveBinMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveBinMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveBinMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBinMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBinMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveBinMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveBinMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveBinMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveBinMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveBinMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveBinMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveBinMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveBinMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveBinMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveBinMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveBinMethod "getState" o = WidgetGetStateMethodInfo - ResolveBinMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveBinMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveBinMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveBinMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveBinMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveBinMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveBinMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveBinMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveBinMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveBinMethod "getValign" o = WidgetGetValignMethodInfo - ResolveBinMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveBinMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveBinMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveBinMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveBinMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveBinMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveBinMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveBinMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveBinMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveBinMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveBinMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveBinMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveBinMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveBinMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveBinMethod "setClip" o = WidgetSetClipMethodInfo - ResolveBinMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveBinMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBinMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveBinMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveBinMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveBinMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveBinMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveBinMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveBinMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveBinMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveBinMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveBinMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveBinMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveBinMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveBinMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveBinMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveBinMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveBinMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveBinMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveBinMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveBinMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveBinMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveBinMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveBinMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveBinMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveBinMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveBinMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveBinMethod "setParent" o = WidgetSetParentMethodInfo - ResolveBinMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveBinMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBinMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveBinMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveBinMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveBinMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveBinMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveBinMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveBinMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveBinMethod "setState" o = WidgetSetStateMethodInfo - ResolveBinMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveBinMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveBinMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveBinMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveBinMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveBinMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveBinMethod "setValign" o = WidgetSetValignMethodInfo - ResolveBinMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveBinMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveBinMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveBinMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveBinMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveBinMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBinMethod t Bin, MethodInfo info Bin p) => IsLabelProxy t (Bin -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBinMethod t Bin, MethodInfo info Bin p) => IsLabel t (Bin -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Bin = BinAttributeList -type BinAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Bin = BinSignalList -type BinSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Bin::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_bin_get_child" gtk_bin_get_child :: - Ptr Bin -> -- _obj : TInterface "Gtk" "Bin" - IO (Ptr Widget) - - -binGetChild :: - (MonadIO m, BinK a) => - a -- _obj - -> m Widget -- result -binGetChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_bin_get_child _obj' - checkUnexpectedReturnNULL "gtk_bin_get_child" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data BinGetChildMethodInfo -instance (signature ~ (m Widget), MonadIO m, BinK a) => MethodInfo BinGetChildMethodInfo a signature where - overloadedMethod _ = binGetChild - - diff --git a/GI/Gtk/Objects/Bin.hs-boot b/GI/Gtk/Objects/Bin.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Bin.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.Bin 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 Bin = Bin (ForeignPtr Bin) -instance GObject Bin where -class GObject o => BinK o -instance (GObject o, IsDescendantOf Bin o) => BinK o -data BinGetChildMethodInfo diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs b/GI/Gtk/Objects/BooleanCellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/BooleanCellAccessible.hs +++ /dev/null @@ -1,129 +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.Gtk.Objects.BooleanCellAccessible - ( - --- * Exported types - BooleanCellAccessible(..) , - BooleanCellAccessibleK , - toBooleanCellAccessible , - noBooleanCellAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype BooleanCellAccessible = BooleanCellAccessible (ForeignPtr BooleanCellAccessible) -foreign import ccall "gtk_boolean_cell_accessible_get_type" - c_gtk_boolean_cell_accessible_get_type :: IO GType - -type instance ParentTypes BooleanCellAccessible = BooleanCellAccessibleParentTypes -type BooleanCellAccessibleParentTypes = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject BooleanCellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_boolean_cell_accessible_get_type - - -class GObject o => BooleanCellAccessibleK o -instance (GObject o, IsDescendantOf BooleanCellAccessible o) => BooleanCellAccessibleK o - -toBooleanCellAccessible :: BooleanCellAccessibleK o => o -> IO BooleanCellAccessible -toBooleanCellAccessible = unsafeCastTo BooleanCellAccessible - -noBooleanCellAccessible :: Maybe BooleanCellAccessible -noBooleanCellAccessible = Nothing - -type family ResolveBooleanCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveBooleanCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveBooleanCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBooleanCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBooleanCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveBooleanCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveBooleanCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveBooleanCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBooleanCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBooleanCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveBooleanCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveBooleanCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBooleanCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBooleanCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBooleanCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveBooleanCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveBooleanCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBooleanCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveBooleanCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveBooleanCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveBooleanCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBooleanCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveBooleanCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveBooleanCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveBooleanCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveBooleanCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBooleanCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBooleanCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBooleanCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBooleanCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBooleanCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBooleanCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBooleanCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBooleanCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveBooleanCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveBooleanCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBooleanCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveBooleanCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveBooleanCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveBooleanCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveBooleanCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveBooleanCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveBooleanCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveBooleanCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveBooleanCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveBooleanCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBooleanCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBooleanCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveBooleanCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveBooleanCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveBooleanCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBooleanCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveBooleanCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveBooleanCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveBooleanCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveBooleanCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBooleanCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveBooleanCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveBooleanCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveBooleanCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBooleanCellAccessibleMethod t BooleanCellAccessible, MethodInfo info BooleanCellAccessible p) => IsLabelProxy t (BooleanCellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBooleanCellAccessibleMethod t BooleanCellAccessible, MethodInfo info BooleanCellAccessible p) => IsLabel t (BooleanCellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList BooleanCellAccessible = BooleanCellAccessibleAttributeList -type BooleanCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList BooleanCellAccessible = BooleanCellAccessibleSignalList -type BooleanCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs-boot b/GI/Gtk/Objects/BooleanCellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/BooleanCellAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.BooleanCellAccessible 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 BooleanCellAccessible = BooleanCellAccessible (ForeignPtr BooleanCellAccessible) -instance GObject BooleanCellAccessible where -class GObject o => BooleanCellAccessibleK o -instance (GObject o, IsDescendantOf BooleanCellAccessible o) => BooleanCellAccessibleK o diff --git a/GI/Gtk/Objects/Box.hs b/GI/Gtk/Objects/Box.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Box.hs +++ /dev/null @@ -1,1048 +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.Gtk.Objects.Box - ( - --- * Exported types - Box(..) , - BoxK , - toBox , - noBox , - - - -- * Methods --- ** boxGetBaselinePosition - BoxGetBaselinePositionMethodInfo , - boxGetBaselinePosition , - - --- ** boxGetCenterWidget - BoxGetCenterWidgetMethodInfo , - boxGetCenterWidget , - - --- ** boxGetHomogeneous - BoxGetHomogeneousMethodInfo , - boxGetHomogeneous , - - --- ** boxGetSpacing - BoxGetSpacingMethodInfo , - boxGetSpacing , - - --- ** boxNew - boxNew , - - --- ** boxPackEnd - BoxPackEndMethodInfo , - boxPackEnd , - - --- ** boxPackStart - BoxPackStartMethodInfo , - boxPackStart , - - --- ** boxQueryChildPacking - BoxQueryChildPackingMethodInfo , - boxQueryChildPacking , - - --- ** boxReorderChild - BoxReorderChildMethodInfo , - boxReorderChild , - - --- ** boxSetBaselinePosition - BoxSetBaselinePositionMethodInfo , - boxSetBaselinePosition , - - --- ** boxSetCenterWidget - BoxSetCenterWidgetMethodInfo , - boxSetCenterWidget , - - --- ** boxSetChildPacking - BoxSetChildPackingMethodInfo , - boxSetChildPacking , - - --- ** boxSetHomogeneous - BoxSetHomogeneousMethodInfo , - boxSetHomogeneous , - - --- ** boxSetSpacing - BoxSetSpacingMethodInfo , - boxSetSpacing , - - - - - -- * Properties --- ** BaselinePosition - BoxBaselinePositionPropertyInfo , - boxBaselinePosition , - constructBoxBaselinePosition , - getBoxBaselinePosition , - setBoxBaselinePosition , - - --- ** Homogeneous - BoxHomogeneousPropertyInfo , - boxHomogeneous , - constructBoxHomogeneous , - getBoxHomogeneous , - setBoxHomogeneous , - - --- ** Spacing - BoxSpacingPropertyInfo , - boxSpacing , - constructBoxSpacing , - getBoxSpacing , - setBoxSpacing , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Box = Box (ForeignPtr Box) -foreign import ccall "gtk_box_get_type" - c_gtk_box_get_type :: IO GType - -type instance ParentTypes Box = BoxParentTypes -type BoxParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Box where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_box_get_type - - -class GObject o => BoxK o -instance (GObject o, IsDescendantOf Box o) => BoxK o - -toBox :: BoxK o => o -> IO Box -toBox = unsafeCastTo Box - -noBox :: Maybe Box -noBox = Nothing - -type family ResolveBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveBoxMethod "add" o = ContainerAddMethodInfo - ResolveBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveBoxMethod "event" o = WidgetEventMethodInfo - ResolveBoxMethod "forall" o = ContainerForallMethodInfo - ResolveBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveBoxMethod "hide" o = WidgetHideMethodInfo - ResolveBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveBoxMethod "map" o = WidgetMapMethodInfo - ResolveBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveBoxMethod "path" o = WidgetPathMethodInfo - ResolveBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveBoxMethod "show" o = WidgetShowMethodInfo - ResolveBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBoxMethod t Box, MethodInfo info Box p) => IsLabelProxy t (Box -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBoxMethod t Box, MethodInfo info Box p) => IsLabel t (Box -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "baseline-position" - -- Type: TInterface "Gtk" "BaselinePosition" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> m BaselinePosition -getBoxBaselinePosition obj = liftIO $ getObjectPropertyEnum obj "baseline-position" - -setBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> BaselinePosition -> m () -setBoxBaselinePosition obj val = liftIO $ setObjectPropertyEnum obj "baseline-position" val - -constructBoxBaselinePosition :: BaselinePosition -> IO ([Char], GValue) -constructBoxBaselinePosition val = constructObjectPropertyEnum "baseline-position" val - -data BoxBaselinePositionPropertyInfo -instance AttrInfo BoxBaselinePositionPropertyInfo where - type AttrAllowedOps BoxBaselinePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BoxBaselinePositionPropertyInfo = (~) BaselinePosition - type AttrBaseTypeConstraint BoxBaselinePositionPropertyInfo = BoxK - type AttrGetType BoxBaselinePositionPropertyInfo = BaselinePosition - type AttrLabel BoxBaselinePositionPropertyInfo = "baseline-position" - attrGet _ = getBoxBaselinePosition - attrSet _ = setBoxBaselinePosition - attrConstruct _ = constructBoxBaselinePosition - attrClear _ = undefined - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getBoxHomogeneous :: (MonadIO m, BoxK o) => o -> m Bool -getBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" - -setBoxHomogeneous :: (MonadIO m, BoxK o) => o -> Bool -> m () -setBoxHomogeneous obj val = liftIO $ setObjectPropertyBool obj "homogeneous" val - -constructBoxHomogeneous :: Bool -> IO ([Char], GValue) -constructBoxHomogeneous val = constructObjectPropertyBool "homogeneous" val - -data BoxHomogeneousPropertyInfo -instance AttrInfo BoxHomogeneousPropertyInfo where - type AttrAllowedOps BoxHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BoxHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint BoxHomogeneousPropertyInfo = BoxK - type AttrGetType BoxHomogeneousPropertyInfo = Bool - type AttrLabel BoxHomogeneousPropertyInfo = "homogeneous" - attrGet _ = getBoxHomogeneous - attrSet _ = setBoxHomogeneous - attrConstruct _ = constructBoxHomogeneous - attrClear _ = undefined - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32 -getBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m () -setBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructBoxSpacing :: Int32 -> IO ([Char], GValue) -constructBoxSpacing val = constructObjectPropertyInt32 "spacing" val - -data BoxSpacingPropertyInfo -instance AttrInfo BoxSpacingPropertyInfo where - type AttrAllowedOps BoxSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BoxSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint BoxSpacingPropertyInfo = BoxK - type AttrGetType BoxSpacingPropertyInfo = Int32 - type AttrLabel BoxSpacingPropertyInfo = "spacing" - attrGet _ = getBoxSpacing - attrSet _ = setBoxSpacing - attrConstruct _ = constructBoxSpacing - attrClear _ = undefined - -type instance AttributeList Box = BoxAttributeList -type BoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -boxBaselinePosition :: AttrLabelProxy "baselinePosition" -boxBaselinePosition = AttrLabelProxy - -boxHomogeneous :: AttrLabelProxy "homogeneous" -boxHomogeneous = AttrLabelProxy - -boxSpacing :: AttrLabelProxy "spacing" -boxSpacing = AttrLabelProxy - -type instance SignalList Box = BoxSignalList -type BoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Box::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Box") --- throws : False --- Skip return : False - -foreign import ccall "gtk_box_new" gtk_box_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Int32 -> -- spacing : TBasicType TInt - IO (Ptr Box) - - -boxNew :: - (MonadIO m) => - Orientation -- orientation - -> Int32 -- spacing - -> m Box -- result -boxNew orientation spacing = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_box_new orientation' spacing - checkUnexpectedReturnNULL "gtk_box_new" result - result' <- (newObject Box) result - return result' - --- method Box::get_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "BaselinePosition") --- throws : False --- Skip return : False - -foreign import ccall "gtk_box_get_baseline_position" gtk_box_get_baseline_position :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - IO CUInt - - -boxGetBaselinePosition :: - (MonadIO m, BoxK a) => - a -- _obj - -> m BaselinePosition -- result -boxGetBaselinePosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_baseline_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data BoxGetBaselinePositionMethodInfo -instance (signature ~ (m BaselinePosition), MonadIO m, BoxK a) => MethodInfo BoxGetBaselinePositionMethodInfo a signature where - overloadedMethod _ = boxGetBaselinePosition - --- method Box::get_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_box_get_center_widget" gtk_box_get_center_widget :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - IO (Ptr Widget) - - -boxGetCenterWidget :: - (MonadIO m, BoxK a) => - a -- _obj - -> m Widget -- result -boxGetCenterWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_center_widget _obj' - checkUnexpectedReturnNULL "gtk_box_get_center_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data BoxGetCenterWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, BoxK a) => MethodInfo BoxGetCenterWidgetMethodInfo a signature where - overloadedMethod _ = boxGetCenterWidget - --- method Box::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", 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 "gtk_box_get_homogeneous" gtk_box_get_homogeneous :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - IO CInt - - -boxGetHomogeneous :: - (MonadIO m, BoxK a) => - a -- _obj - -> m Bool -- result -boxGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data BoxGetHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, BoxK a) => MethodInfo BoxGetHomogeneousMethodInfo a signature where - overloadedMethod _ = boxGetHomogeneous - --- method Box::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", 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 "gtk_box_get_spacing" gtk_box_get_spacing :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - IO Int32 - - -boxGetSpacing :: - (MonadIO m, BoxK a) => - a -- _obj - -> m Int32 -- result -boxGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_spacing _obj' - touchManagedPtr _obj - return result - -data BoxGetSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, BoxK a) => MethodInfo BoxGetSpacingMethodInfo a signature where - overloadedMethod _ = boxGetSpacing - --- method Box::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", 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 "gtk_box_pack_end" gtk_box_pack_end :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt - IO () - - -boxPackEnd :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- expand - -> Bool -- fill - -> Word32 -- padding - -> m () -- result -boxPackEnd _obj child expand fill padding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let expand' = (fromIntegral . fromEnum) expand - let fill' = (fromIntegral . fromEnum) fill - gtk_box_pack_end _obj' child' expand' fill' padding - touchManagedPtr _obj - touchManagedPtr child - return () - -data BoxPackEndMethodInfo -instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxPackEndMethodInfo a signature where - overloadedMethod _ = boxPackEnd - --- method Box::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", 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 "gtk_box_pack_start" gtk_box_pack_start :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt - IO () - - -boxPackStart :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- expand - -> Bool -- fill - -> Word32 -- padding - -> m () -- result -boxPackStart _obj child expand fill padding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let expand' = (fromIntegral . fromEnum) expand - let fill' = (fromIntegral . fromEnum) fill - gtk_box_pack_start _obj' child' expand' fill' padding - touchManagedPtr _obj - touchManagedPtr child - return () - -data BoxPackStartMethodInfo -instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxPackStartMethodInfo a signature where - overloadedMethod _ = boxPackStart - --- method Box::query_child_packing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", 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 "gtk_box_query_child_packing" gtk_box_query_child_packing :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr CInt -> -- expand : TBasicType TBoolean - Ptr CInt -> -- fill : TBasicType TBoolean - Ptr Word32 -> -- padding : TBasicType TUInt - Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO () - - -boxQueryChildPacking :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> m (Bool,Bool,Word32,PackType) -- result -boxQueryChildPacking _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - expand <- allocMem :: IO (Ptr CInt) - fill <- allocMem :: IO (Ptr CInt) - padding <- allocMem :: IO (Ptr Word32) - packType <- allocMem :: IO (Ptr CUInt) - gtk_box_query_child_packing _obj' child' expand fill padding packType - expand' <- peek expand - let expand'' = (/= 0) expand' - fill' <- peek fill - let fill'' = (/= 0) fill' - padding' <- peek padding - packType' <- peek packType - let packType'' = (toEnum . fromIntegral) packType' - touchManagedPtr _obj - touchManagedPtr child - freeMem expand - freeMem fill - freeMem padding - freeMem packType - return (expand'', fill'', padding', packType'') - -data BoxQueryChildPackingMethodInfo -instance (signature ~ (b -> m (Bool,Bool,Word32,PackType)), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxQueryChildPackingMethodInfo a signature where - overloadedMethod _ = boxQueryChildPacking - --- method Box::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_box_reorder_child" gtk_box_reorder_child :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -boxReorderChild :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -boxReorderChild _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_box_reorder_child _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data BoxReorderChildMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxReorderChildMethodInfo a signature where - overloadedMethod _ = boxReorderChild - --- method Box::set_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "BaselinePosition", 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 "gtk_box_set_baseline_position" gtk_box_set_baseline_position :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - CUInt -> -- position : TInterface "Gtk" "BaselinePosition" - IO () - - -boxSetBaselinePosition :: - (MonadIO m, BoxK a) => - a -- _obj - -> BaselinePosition -- position - -> m () -- result -boxSetBaselinePosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_box_set_baseline_position _obj' position' - touchManagedPtr _obj - return () - -data BoxSetBaselinePositionMethodInfo -instance (signature ~ (BaselinePosition -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetBaselinePositionMethodInfo a signature where - overloadedMethod _ = boxSetBaselinePosition - --- method Box::set_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_box_set_center_widget" gtk_box_set_center_widget :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -boxSetCenterWidget :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- widget - -> m () -- result -boxSetCenterWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_box_set_center_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - -data BoxSetCenterWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxSetCenterWidgetMethodInfo a signature where - overloadedMethod _ = boxSetCenterWidget - --- method Box::set_child_packing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", 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 "gtk_box_set_child_packing" gtk_box_set_child_packing :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt - CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO () - - -boxSetChildPacking :: - (MonadIO m, BoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- expand - -> Bool -- fill - -> Word32 -- padding - -> PackType -- packType - -> m () -- result -boxSetChildPacking _obj child expand fill padding packType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let expand' = (fromIntegral . fromEnum) expand - let fill' = (fromIntegral . fromEnum) fill - let packType' = (fromIntegral . fromEnum) packType - gtk_box_set_child_packing _obj' child' expand' fill' padding packType' - touchManagedPtr _obj - touchManagedPtr child - return () - -data BoxSetChildPackingMethodInfo -instance (signature ~ (b -> Bool -> Bool -> Word32 -> PackType -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxSetChildPackingMethodInfo a signature where - overloadedMethod _ = boxSetChildPacking - --- method Box::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_box_set_homogeneous" gtk_box_set_homogeneous :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -boxSetHomogeneous :: - (MonadIO m, BoxK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -boxSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_box_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data BoxSetHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetHomogeneousMethodInfo a signature where - overloadedMethod _ = boxSetHomogeneous - --- method Box::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_box_set_spacing" gtk_box_set_spacing :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Int32 -> -- spacing : TBasicType TInt - IO () - - -boxSetSpacing :: - (MonadIO m, BoxK a) => - a -- _obj - -> Int32 -- spacing - -> m () -- result -boxSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_box_set_spacing _obj' spacing - touchManagedPtr _obj - return () - -data BoxSetSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetSpacingMethodInfo a signature where - overloadedMethod _ = boxSetSpacing - - diff --git a/GI/Gtk/Objects/Box.hs-boot b/GI/Gtk/Objects/Box.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Box.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gtk.Objects.Box 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 Box = Box (ForeignPtr Box) -instance GObject Box where -class GObject o => BoxK o -instance (GObject o, IsDescendantOf Box o) => BoxK o -data BoxBaselinePositionPropertyInfo -data BoxHomogeneousPropertyInfo -data BoxSpacingPropertyInfo -data BoxGetBaselinePositionMethodInfo -data BoxGetCenterWidgetMethodInfo -data BoxGetHomogeneousMethodInfo -data BoxGetSpacingMethodInfo -data BoxPackEndMethodInfo -data BoxPackStartMethodInfo -data BoxQueryChildPackingMethodInfo -data BoxReorderChildMethodInfo -data BoxSetBaselinePositionMethodInfo -data BoxSetCenterWidgetMethodInfo -data BoxSetChildPackingMethodInfo -data BoxSetHomogeneousMethodInfo -data BoxSetSpacingMethodInfo diff --git a/GI/Gtk/Objects/Builder.hs b/GI/Gtk/Objects/Builder.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Builder.hs +++ /dev/null @@ -1,1046 +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.Gtk.Objects.Builder - ( - --- * Exported types - Builder(..) , - BuilderK , - toBuilder , - noBuilder , - - - -- * Methods --- ** builderAddCallbackSymbol - BuilderAddCallbackSymbolMethodInfo , - builderAddCallbackSymbol , - - --- ** builderAddFromFile - BuilderAddFromFileMethodInfo , - builderAddFromFile , - - --- ** builderAddFromResource - BuilderAddFromResourceMethodInfo , - builderAddFromResource , - - --- ** builderAddFromString - BuilderAddFromStringMethodInfo , - builderAddFromString , - - --- ** builderAddObjectsFromFile - BuilderAddObjectsFromFileMethodInfo , - builderAddObjectsFromFile , - - --- ** builderAddObjectsFromResource - BuilderAddObjectsFromResourceMethodInfo , - builderAddObjectsFromResource , - - --- ** builderAddObjectsFromString - BuilderAddObjectsFromStringMethodInfo , - builderAddObjectsFromString , - - --- ** builderConnectSignals - BuilderConnectSignalsMethodInfo , - builderConnectSignals , - - --- ** builderConnectSignalsFull - BuilderConnectSignalsFullMethodInfo , - builderConnectSignalsFull , - - --- ** builderExposeObject - BuilderExposeObjectMethodInfo , - builderExposeObject , - - --- ** builderGetApplication - BuilderGetApplicationMethodInfo , - builderGetApplication , - - --- ** builderGetObject - BuilderGetObjectMethodInfo , - builderGetObject , - - --- ** builderGetObjects - BuilderGetObjectsMethodInfo , - builderGetObjects , - - --- ** builderGetTranslationDomain - BuilderGetTranslationDomainMethodInfo , - builderGetTranslationDomain , - - --- ** builderGetTypeFromName - BuilderGetTypeFromNameMethodInfo , - builderGetTypeFromName , - - --- ** builderNew - builderNew , - - --- ** builderNewFromFile - builderNewFromFile , - - --- ** builderNewFromResource - builderNewFromResource , - - --- ** builderNewFromString - builderNewFromString , - - --- ** builderSetApplication - BuilderSetApplicationMethodInfo , - builderSetApplication , - - --- ** builderSetTranslationDomain - BuilderSetTranslationDomainMethodInfo , - builderSetTranslationDomain , - - --- ** builderValueFromString - BuilderValueFromStringMethodInfo , - builderValueFromString , - - --- ** builderValueFromStringType - BuilderValueFromStringTypeMethodInfo , - builderValueFromStringType , - - - - - -- * Properties --- ** TranslationDomain - BuilderTranslationDomainPropertyInfo , - builderTranslationDomain , - clearBuilderTranslationDomain , - constructBuilderTranslationDomain , - getBuilderTranslationDomain , - setBuilderTranslationDomain , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype Builder = Builder (ForeignPtr Builder) -foreign import ccall "gtk_builder_get_type" - c_gtk_builder_get_type :: IO GType - -type instance ParentTypes Builder = BuilderParentTypes -type BuilderParentTypes = '[GObject.Object] - -instance GObject Builder where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_builder_get_type - - -class GObject o => BuilderK o -instance (GObject o, IsDescendantOf Builder o) => BuilderK o - -toBuilder :: BuilderK o => o -> IO Builder -toBuilder = unsafeCastTo Builder - -noBuilder :: Maybe Builder -noBuilder = Nothing - -type family ResolveBuilderMethod (t :: Symbol) (o :: *) :: * where - ResolveBuilderMethod "addCallbackSymbol" o = BuilderAddCallbackSymbolMethodInfo - ResolveBuilderMethod "addFromFile" o = BuilderAddFromFileMethodInfo - ResolveBuilderMethod "addFromResource" o = BuilderAddFromResourceMethodInfo - ResolveBuilderMethod "addFromString" o = BuilderAddFromStringMethodInfo - ResolveBuilderMethod "addObjectsFromFile" o = BuilderAddObjectsFromFileMethodInfo - ResolveBuilderMethod "addObjectsFromResource" o = BuilderAddObjectsFromResourceMethodInfo - ResolveBuilderMethod "addObjectsFromString" o = BuilderAddObjectsFromStringMethodInfo - ResolveBuilderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBuilderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBuilderMethod "connectSignals" o = BuilderConnectSignalsMethodInfo - ResolveBuilderMethod "connectSignalsFull" o = BuilderConnectSignalsFullMethodInfo - ResolveBuilderMethod "exposeObject" o = BuilderExposeObjectMethodInfo - ResolveBuilderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBuilderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBuilderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBuilderMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBuilderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBuilderMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBuilderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBuilderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBuilderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBuilderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBuilderMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBuilderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBuilderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBuilderMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBuilderMethod "valueFromString" o = BuilderValueFromStringMethodInfo - ResolveBuilderMethod "valueFromStringType" o = BuilderValueFromStringTypeMethodInfo - ResolveBuilderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBuilderMethod "getApplication" o = BuilderGetApplicationMethodInfo - ResolveBuilderMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBuilderMethod "getObject" o = BuilderGetObjectMethodInfo - ResolveBuilderMethod "getObjects" o = BuilderGetObjectsMethodInfo - ResolveBuilderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBuilderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBuilderMethod "getTranslationDomain" o = BuilderGetTranslationDomainMethodInfo - ResolveBuilderMethod "getTypeFromName" o = BuilderGetTypeFromNameMethodInfo - ResolveBuilderMethod "setApplication" o = BuilderSetApplicationMethodInfo - ResolveBuilderMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBuilderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBuilderMethod "setTranslationDomain" o = BuilderSetTranslationDomainMethodInfo - ResolveBuilderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBuilderMethod t Builder, MethodInfo info Builder p) => IsLabelProxy t (Builder -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBuilderMethod t Builder, MethodInfo info Builder p) => IsLabel t (Builder -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "translation-domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m T.Text -getBuilderTranslationDomain obj = liftIO $ checkUnexpectedNothing "getBuilderTranslationDomain" $ getObjectPropertyString obj "translation-domain" - -setBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> T.Text -> m () -setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" (Just val) - -constructBuilderTranslationDomain :: T.Text -> IO ([Char], GValue) -constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" (Just val) - -clearBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m () -clearBuilderTranslationDomain obj = liftIO $ setObjectPropertyString obj "translation-domain" (Nothing :: Maybe T.Text) - -data BuilderTranslationDomainPropertyInfo -instance AttrInfo BuilderTranslationDomainPropertyInfo where - type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK - type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text - type AttrLabel BuilderTranslationDomainPropertyInfo = "translation-domain" - attrGet _ = getBuilderTranslationDomain - attrSet _ = setBuilderTranslationDomain - attrConstruct _ = constructBuilderTranslationDomain - attrClear _ = clearBuilderTranslationDomain - -type instance AttributeList Builder = BuilderAttributeList -type BuilderAttributeList = ('[ '("translationDomain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) - -builderTranslationDomain :: AttrLabelProxy "translationDomain" -builderTranslationDomain = AttrLabelProxy - -type instance SignalList Builder = BuilderSignalList -type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Builder::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Builder") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_new" gtk_builder_new :: - IO (Ptr Builder) - - -builderNew :: - (MonadIO m) => - m Builder -- result -builderNew = liftIO $ do - result <- gtk_builder_new - checkUnexpectedReturnNULL "gtk_builder_new" result - result' <- (wrapObject Builder) result - return result' - --- method Builder::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Builder") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_new_from_file" gtk_builder_new_from_file :: - CString -> -- filename : TBasicType TUTF8 - IO (Ptr Builder) - - -builderNewFromFile :: - (MonadIO m) => - T.Text -- filename - -> m Builder -- result -builderNewFromFile filename = liftIO $ do - filename' <- textToCString filename - result <- gtk_builder_new_from_file filename' - checkUnexpectedReturnNULL "gtk_builder_new_from_file" result - result' <- (wrapObject Builder) result - freeMem filename' - return result' - --- method Builder::new_from_resource --- method type : Constructor --- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Builder") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_new_from_resource" gtk_builder_new_from_resource :: - CString -> -- resource_path : TBasicType TUTF8 - IO (Ptr Builder) - - -builderNewFromResource :: - (MonadIO m) => - T.Text -- resourcePath - -> m Builder -- result -builderNewFromResource resourcePath = liftIO $ do - resourcePath' <- textToCString resourcePath - result <- gtk_builder_new_from_resource resourcePath' - checkUnexpectedReturnNULL "gtk_builder_new_from_resource" result - result' <- (wrapObject Builder) result - freeMem resourcePath' - return result' - --- method Builder::new_from_string --- method type : Constructor --- Args : [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 TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Builder") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_new_from_string" gtk_builder_new_from_string :: - CString -> -- string : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - IO (Ptr Builder) - - -builderNewFromString :: - (MonadIO m) => - T.Text -- string - -> Int64 -- length_ - -> m Builder -- result -builderNewFromString string length_ = liftIO $ do - string' <- textToCString string - result <- gtk_builder_new_from_string string' length_ - checkUnexpectedReturnNULL "gtk_builder_new_from_string" result - result' <- (wrapObject Builder) result - freeMem string' - return result' - --- method Builder::add_callback_symbol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_add_callback_symbol" gtk_builder_add_callback_symbol :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- callback_name : TBasicType TUTF8 - FunPtr GObject.CallbackC -> -- callback_symbol : TInterface "GObject" "Callback" - IO () - - -builderAddCallbackSymbol :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- callbackName - -> GObject.Callback -- callbackSymbol - -> m () -- result -builderAddCallbackSymbol _obj callbackName callbackSymbol = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callbackName' <- textToCString callbackName - ptrcallbackSymbol <- callocMem :: IO (Ptr (FunPtr GObject.CallbackC)) - callbackSymbol' <- GObject.mkCallback (GObject.callbackWrapper (Just ptrcallbackSymbol) callbackSymbol) - poke ptrcallbackSymbol callbackSymbol' - gtk_builder_add_callback_symbol _obj' callbackName' callbackSymbol' - touchManagedPtr _obj - freeMem callbackName' - return () - -data BuilderAddCallbackSymbolMethodInfo -instance (signature ~ (T.Text -> GObject.Callback -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderAddCallbackSymbolMethodInfo a signature where - overloadedMethod _ = builderAddCallbackSymbol - --- method Builder::add_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_from_file" gtk_builder_add_from_file :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddFromFile :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- filename - -> m Word32 -- result -builderAddFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - onException (do - result <- propagateGError $ gtk_builder_add_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return result - ) (do - freeMem filename' - ) - -data BuilderAddFromFileMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromFileMethodInfo a signature where - overloadedMethod _ = builderAddFromFile - --- method Builder::add_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_from_resource" gtk_builder_add_from_resource :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- resource_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddFromResource :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- resourcePath - -> m Word32 -- result -builderAddFromResource _obj resourcePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resourcePath' <- textToCString resourcePath - onException (do - result <- propagateGError $ gtk_builder_add_from_resource _obj' resourcePath' - touchManagedPtr _obj - freeMem resourcePath' - return result - ) (do - freeMem resourcePath' - ) - -data BuilderAddFromResourceMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromResourceMethodInfo a signature where - overloadedMethod _ = builderAddFromResource - --- method Builder::add_from_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_from_string" gtk_builder_add_from_string :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- buffer : TBasicType TUTF8 - Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddFromString :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- buffer - -> Word64 -- length_ - -> m Word32 -- result -builderAddFromString _obj buffer length_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- textToCString buffer - onException (do - result <- propagateGError $ gtk_builder_add_from_string _obj' buffer' length_ - touchManagedPtr _obj - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data BuilderAddFromStringMethodInfo -instance (signature ~ (T.Text -> Word64 -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromStringMethodInfo a signature where - overloadedMethod _ = builderAddFromString - --- method Builder::add_objects_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_objects_from_file" gtk_builder_add_objects_from_file :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- filename : TBasicType TUTF8 - Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddObjectsFromFile :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- filename - -> [T.Text] -- objectIds - -> m Word32 -- result -builderAddObjectsFromFile _obj filename objectIds = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - objectIds' <- packZeroTerminatedUTF8CArray objectIds - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_file _obj' filename' objectIds' - touchManagedPtr _obj - freeMem filename' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - return result - ) (do - freeMem filename' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - ) - -data BuilderAddObjectsFromFileMethodInfo -instance (signature ~ (T.Text -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromFileMethodInfo a signature where - overloadedMethod _ = builderAddObjectsFromFile - --- method Builder::add_objects_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_objects_from_resource" gtk_builder_add_objects_from_resource :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- resource_path : TBasicType TUTF8 - Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddObjectsFromResource :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- resourcePath - -> [T.Text] -- objectIds - -> m Word32 -- result -builderAddObjectsFromResource _obj resourcePath objectIds = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resourcePath' <- textToCString resourcePath - objectIds' <- packZeroTerminatedUTF8CArray objectIds - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_resource _obj' resourcePath' objectIds' - touchManagedPtr _obj - freeMem resourcePath' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - return result - ) (do - freeMem resourcePath' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - ) - -data BuilderAddObjectsFromResourceMethodInfo -instance (signature ~ (T.Text -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromResourceMethodInfo a signature where - overloadedMethod _ = builderAddObjectsFromResource - --- method Builder::add_objects_from_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_add_objects_from_string" gtk_builder_add_objects_from_string :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- buffer : TBasicType TUTF8 - Word64 -> -- length : TBasicType TUInt64 - Ptr CString -> -- object_ids : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO Word32 - - -builderAddObjectsFromString :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- buffer - -> Word64 -- length_ - -> [T.Text] -- objectIds - -> m Word32 -- result -builderAddObjectsFromString _obj buffer length_ objectIds = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- textToCString buffer - objectIds' <- packZeroTerminatedUTF8CArray objectIds - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_string _obj' buffer' length_ objectIds' - touchManagedPtr _obj - freeMem buffer' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - return result - ) (do - freeMem buffer' - mapZeroTerminatedCArray freeMem objectIds' - freeMem objectIds' - ) - -data BuilderAddObjectsFromStringMethodInfo -instance (signature ~ (T.Text -> Word64 -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromStringMethodInfo a signature where - overloadedMethod _ = builderAddObjectsFromString - --- method Builder::connect_signals --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_builder_connect_signals" gtk_builder_connect_signals :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -builderConnectSignals :: - (MonadIO m, BuilderK a) => - a -- _obj - -> Ptr () -- userData - -> m () -- result -builderConnectSignals _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_builder_connect_signals _obj' userData - touchManagedPtr _obj - return () - -data BuilderConnectSignalsMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderConnectSignalsMethodInfo a signature where - overloadedMethod _ = builderConnectSignals - --- method Builder::connect_signals_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_builder_connect_signals_full" gtk_builder_connect_signals_full :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - FunPtr BuilderConnectFuncC -> -- func : TInterface "Gtk" "BuilderConnectFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -builderConnectSignalsFull :: - (MonadIO m, BuilderK a) => - a -- _obj - -> BuilderConnectFunc -- func - -> m () -- result -builderConnectSignalsFull _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkBuilderConnectFunc (builderConnectFuncWrapper Nothing func) - let userData = nullPtr - gtk_builder_connect_signals_full _obj' func' userData - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data BuilderConnectSignalsFullMethodInfo -instance (signature ~ (BuilderConnectFunc -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderConnectSignalsFullMethodInfo a signature where - overloadedMethod _ = builderConnectSignalsFull - --- method Builder::expose_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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},Arg {argCName = "object", argType = TInterface "GObject" "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 "gtk_builder_expose_object" gtk_builder_expose_object :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- name : TBasicType TUTF8 - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - IO () - - -builderExposeObject :: - (MonadIO m, BuilderK a, GObject.ObjectK b) => - a -- _obj - -> T.Text -- name - -> b -- object - -> m () -- result -builderExposeObject _obj name object = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let object' = unsafeManagedPtrCastPtr object - gtk_builder_expose_object _obj' name' object' - touchManagedPtr _obj - touchManagedPtr object - freeMem name' - return () - -data BuilderExposeObjectMethodInfo -instance (signature ~ (T.Text -> b -> m ()), MonadIO m, BuilderK a, GObject.ObjectK b) => MethodInfo BuilderExposeObjectMethodInfo a signature where - overloadedMethod _ = builderExposeObject - --- method Builder::get_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Application") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_get_application" gtk_builder_get_application :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - IO (Ptr Application) - - -builderGetApplication :: - (MonadIO m, BuilderK a) => - a -- _obj - -> m Application -- result -builderGetApplication _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_builder_get_application _obj' - checkUnexpectedReturnNULL "gtk_builder_get_application" result - result' <- (newObject Application) result - touchManagedPtr _obj - return result' - -data BuilderGetApplicationMethodInfo -instance (signature ~ (m Application), MonadIO m, BuilderK a) => MethodInfo BuilderGetApplicationMethodInfo a signature where - overloadedMethod _ = builderGetApplication - --- method Builder::get_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_get_object" gtk_builder_get_object :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- name : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -builderGetObject :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- name - -> m GObject.Object -- result -builderGetObject _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_builder_get_object _obj' name' - checkUnexpectedReturnNULL "gtk_builder_get_object" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem name' - return result' - -data BuilderGetObjectMethodInfo -instance (signature ~ (T.Text -> m GObject.Object), MonadIO m, BuilderK a) => MethodInfo BuilderGetObjectMethodInfo a signature where - overloadedMethod _ = builderGetObject - --- method Builder::get_objects --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "GObject" "Object")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_get_objects" gtk_builder_get_objects :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - IO (Ptr (GSList (Ptr GObject.Object))) - - -builderGetObjects :: - (MonadIO m, BuilderK a) => - a -- _obj - -> m [GObject.Object] -- result -builderGetObjects _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_builder_get_objects _obj' - result' <- unpackGSList result - result'' <- mapM (newObject GObject.Object) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data BuilderGetObjectsMethodInfo -instance (signature ~ (m [GObject.Object]), MonadIO m, BuilderK a) => MethodInfo BuilderGetObjectsMethodInfo a signature where - overloadedMethod _ = builderGetObjects - --- method Builder::get_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 "gtk_builder_get_translation_domain" gtk_builder_get_translation_domain :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - IO CString - - -builderGetTranslationDomain :: - (MonadIO m, BuilderK a) => - a -- _obj - -> m T.Text -- result -builderGetTranslationDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_builder_get_translation_domain _obj' - checkUnexpectedReturnNULL "gtk_builder_get_translation_domain" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data BuilderGetTranslationDomainMethodInfo -instance (signature ~ (m T.Text), MonadIO m, BuilderK a) => MethodInfo BuilderGetTranslationDomainMethodInfo a signature where - overloadedMethod _ = builderGetTranslationDomain - --- method Builder::get_type_from_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type_name", argType = TBasicType TUTF8, 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 "gtk_builder_get_type_from_name" gtk_builder_get_type_from_name :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- type_name : TBasicType TUTF8 - IO CGType - - -builderGetTypeFromName :: - (MonadIO m, BuilderK a) => - a -- _obj - -> T.Text -- typeName - -> m GType -- result -builderGetTypeFromName _obj typeName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - typeName' <- textToCString typeName - result <- gtk_builder_get_type_from_name _obj' typeName' - let result' = GType result - touchManagedPtr _obj - freeMem typeName' - return result' - -data BuilderGetTypeFromNameMethodInfo -instance (signature ~ (T.Text -> m GType), MonadIO m, BuilderK a) => MethodInfo BuilderGetTypeFromNameMethodInfo a signature where - overloadedMethod _ = builderGetTypeFromName - --- method Builder::set_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", 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 "gtk_builder_set_application" gtk_builder_set_application :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - Ptr Application -> -- application : TInterface "Gtk" "Application" - IO () - - -builderSetApplication :: - (MonadIO m, BuilderK a, ApplicationK b) => - a -- _obj - -> b -- application - -> m () -- result -builderSetApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let application' = unsafeManagedPtrCastPtr application - gtk_builder_set_application _obj' application' - touchManagedPtr _obj - touchManagedPtr application - return () - -data BuilderSetApplicationMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, BuilderK a, ApplicationK b) => MethodInfo BuilderSetApplicationMethodInfo a signature where - overloadedMethod _ = builderSetApplication - --- method Builder::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_set_translation_domain" gtk_builder_set_translation_domain :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CString -> -- domain : TBasicType TUTF8 - IO () - - -builderSetTranslationDomain :: - (MonadIO m, BuilderK a) => - a -- _obj - -> Maybe (T.Text) -- domain - -> m () -- result -builderSetTranslationDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - gtk_builder_set_translation_domain _obj' maybeDomain - touchManagedPtr _obj - freeMem maybeDomain - return () - -data BuilderSetTranslationDomainMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderSetTranslationDomainMethodInfo a signature where - overloadedMethod _ = builderSetTranslationDomain - --- method Builder::value_from_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, 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 = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_value_from_string" gtk_builder_value_from_string :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - Ptr GParamSpec -> -- pspec : TParamSpec - CString -> -- string : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - Ptr (Ptr GError) -> -- error - IO CInt - - -builderValueFromString :: - (MonadIO m, BuilderK a) => - a -- _obj - -> GParamSpec -- pspec - -> T.Text -- string - -> m (GValue) -- result -builderValueFromString _obj pspec string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pspec' = unsafeManagedPtrGetPtr pspec - string' <- textToCString string - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - onException (do - _ <- propagateGError $ gtk_builder_value_from_string _obj' pspec' string' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem string' - return value' - ) (do - freeMem string' - freeMem value - ) - -data BuilderValueFromStringMethodInfo -instance (signature ~ (GParamSpec -> T.Text -> m (GValue)), MonadIO m, BuilderK a) => MethodInfo BuilderValueFromStringMethodInfo a signature where - overloadedMethod _ = builderValueFromString - --- method Builder::value_from_string_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_builder_value_from_string_type" gtk_builder_value_from_string_type :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - CGType -> -- type : TBasicType TGType - CString -> -- string : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - Ptr (Ptr GError) -> -- error - IO CInt - - -builderValueFromStringType :: - (MonadIO m, BuilderK a) => - a -- _obj - -> GType -- type_ - -> T.Text -- string - -> m (GValue) -- result -builderValueFromStringType _obj type_ string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - string' <- textToCString string - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - onException (do - _ <- propagateGError $ gtk_builder_value_from_string_type _obj' type_' string' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem string' - return value' - ) (do - freeMem string' - freeMem value - ) - -data BuilderValueFromStringTypeMethodInfo -instance (signature ~ (GType -> T.Text -> m (GValue)), MonadIO m, BuilderK a) => MethodInfo BuilderValueFromStringTypeMethodInfo a signature where - overloadedMethod _ = builderValueFromStringType - - diff --git a/GI/Gtk/Objects/Builder.hs-boot b/GI/Gtk/Objects/Builder.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Builder.hs-boot +++ /dev/null @@ -1,33 +0,0 @@ -module GI.Gtk.Objects.Builder 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 Builder = Builder (ForeignPtr Builder) -instance GObject Builder where -class GObject o => BuilderK o -instance (GObject o, IsDescendantOf Builder o) => BuilderK o -data BuilderTranslationDomainPropertyInfo -data BuilderAddCallbackSymbolMethodInfo -data BuilderAddFromFileMethodInfo -data BuilderAddFromResourceMethodInfo -data BuilderAddFromStringMethodInfo -data BuilderAddObjectsFromFileMethodInfo -data BuilderAddObjectsFromResourceMethodInfo -data BuilderAddObjectsFromStringMethodInfo -data BuilderConnectSignalsMethodInfo -data BuilderConnectSignalsFullMethodInfo -data BuilderExposeObjectMethodInfo -data BuilderGetApplicationMethodInfo -data BuilderGetObjectMethodInfo -data BuilderGetObjectsMethodInfo -data BuilderGetTranslationDomainMethodInfo -data BuilderGetTypeFromNameMethodInfo -data BuilderSetApplicationMethodInfo -data BuilderSetTranslationDomainMethodInfo -data BuilderValueFromStringMethodInfo -data BuilderValueFromStringTypeMethodInfo diff --git a/GI/Gtk/Objects/Button.hs b/GI/Gtk/Objects/Button.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Button.hs +++ /dev/null @@ -1,2093 +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.Gtk.Objects.Button - ( - --- * Exported types - Button(..) , - ButtonK , - toButton , - noButton , - - - -- * Methods --- ** buttonClicked - ButtonClickedMethodInfo , - buttonClicked , - - --- ** buttonEnter - ButtonEnterMethodInfo , - buttonEnter , - - --- ** buttonGetAlignment - ButtonGetAlignmentMethodInfo , - buttonGetAlignment , - - --- ** buttonGetAlwaysShowImage - ButtonGetAlwaysShowImageMethodInfo , - buttonGetAlwaysShowImage , - - --- ** buttonGetEventWindow - ButtonGetEventWindowMethodInfo , - buttonGetEventWindow , - - --- ** buttonGetFocusOnClick - ButtonGetFocusOnClickMethodInfo , - buttonGetFocusOnClick , - - --- ** buttonGetImage - ButtonGetImageMethodInfo , - buttonGetImage , - - --- ** buttonGetImagePosition - ButtonGetImagePositionMethodInfo , - buttonGetImagePosition , - - --- ** buttonGetLabel - ButtonGetLabelMethodInfo , - buttonGetLabel , - - --- ** buttonGetRelief - ButtonGetReliefMethodInfo , - buttonGetRelief , - - --- ** buttonGetUseStock - ButtonGetUseStockMethodInfo , - buttonGetUseStock , - - --- ** buttonGetUseUnderline - ButtonGetUseUnderlineMethodInfo , - buttonGetUseUnderline , - - --- ** buttonLeave - ButtonLeaveMethodInfo , - buttonLeave , - - --- ** buttonNew - buttonNew , - - --- ** buttonNewFromIconName - buttonNewFromIconName , - - --- ** buttonNewFromStock - buttonNewFromStock , - - --- ** buttonNewWithLabel - buttonNewWithLabel , - - --- ** buttonNewWithMnemonic - buttonNewWithMnemonic , - - --- ** buttonPressed - ButtonPressedMethodInfo , - buttonPressed , - - --- ** buttonReleased - ButtonReleasedMethodInfo , - buttonReleased , - - --- ** buttonSetAlignment - ButtonSetAlignmentMethodInfo , - buttonSetAlignment , - - --- ** buttonSetAlwaysShowImage - ButtonSetAlwaysShowImageMethodInfo , - buttonSetAlwaysShowImage , - - --- ** buttonSetFocusOnClick - ButtonSetFocusOnClickMethodInfo , - buttonSetFocusOnClick , - - --- ** buttonSetImage - ButtonSetImageMethodInfo , - buttonSetImage , - - --- ** buttonSetImagePosition - ButtonSetImagePositionMethodInfo , - buttonSetImagePosition , - - --- ** buttonSetLabel - ButtonSetLabelMethodInfo , - buttonSetLabel , - - --- ** buttonSetRelief - ButtonSetReliefMethodInfo , - buttonSetRelief , - - --- ** buttonSetUseStock - ButtonSetUseStockMethodInfo , - buttonSetUseStock , - - --- ** buttonSetUseUnderline - ButtonSetUseUnderlineMethodInfo , - buttonSetUseUnderline , - - - - - -- * Properties --- ** AlwaysShowImage - ButtonAlwaysShowImagePropertyInfo , - buttonAlwaysShowImage , - constructButtonAlwaysShowImage , - getButtonAlwaysShowImage , - setButtonAlwaysShowImage , - - --- ** FocusOnClick - ButtonFocusOnClickPropertyInfo , - buttonFocusOnClick , - constructButtonFocusOnClick , - getButtonFocusOnClick , - setButtonFocusOnClick , - - --- ** Image - ButtonImagePropertyInfo , - buttonImage , - constructButtonImage , - getButtonImage , - setButtonImage , - - --- ** ImagePosition - ButtonImagePositionPropertyInfo , - buttonImagePosition , - constructButtonImagePosition , - getButtonImagePosition , - setButtonImagePosition , - - --- ** Label - ButtonLabelPropertyInfo , - buttonLabel , - constructButtonLabel , - getButtonLabel , - setButtonLabel , - - --- ** Relief - ButtonReliefPropertyInfo , - buttonRelief , - constructButtonRelief , - getButtonRelief , - setButtonRelief , - - --- ** UseStock - ButtonUseStockPropertyInfo , - buttonUseStock , - constructButtonUseStock , - getButtonUseStock , - setButtonUseStock , - - --- ** UseUnderline - ButtonUseUnderlinePropertyInfo , - buttonUseUnderline , - constructButtonUseUnderline , - getButtonUseUnderline , - setButtonUseUnderline , - - --- ** Xalign - ButtonXalignPropertyInfo , - buttonXalign , - constructButtonXalign , - getButtonXalign , - setButtonXalign , - - --- ** Yalign - ButtonYalignPropertyInfo , - buttonYalign , - constructButtonYalign , - getButtonYalign , - setButtonYalign , - - - - - -- * Signals --- ** Activate - ButtonActivateCallback , - ButtonActivateCallbackC , - ButtonActivateSignalInfo , - afterButtonActivate , - buttonActivateCallbackWrapper , - buttonActivateClosure , - mkButtonActivateCallback , - noButtonActivateCallback , - onButtonActivate , - - --- ** Clicked - ButtonClickedCallback , - ButtonClickedCallbackC , - ButtonClickedSignalInfo , - afterButtonClicked , - buttonClickedCallbackWrapper , - buttonClickedClosure , - mkButtonClickedCallback , - noButtonClickedCallback , - onButtonClicked , - - --- ** Enter - ButtonEnterCallback , - ButtonEnterCallbackC , - ButtonEnterSignalInfo , - afterButtonEnter , - buttonEnterCallbackWrapper , - buttonEnterClosure , - mkButtonEnterCallback , - noButtonEnterCallback , - onButtonEnter , - - --- ** Leave - ButtonLeaveCallback , - ButtonLeaveCallbackC , - ButtonLeaveSignalInfo , - afterButtonLeave , - buttonLeaveCallbackWrapper , - buttonLeaveClosure , - mkButtonLeaveCallback , - noButtonLeaveCallback , - onButtonLeave , - - --- ** Pressed - ButtonPressedCallback , - ButtonPressedCallbackC , - ButtonPressedSignalInfo , - afterButtonPressed , - buttonPressedCallbackWrapper , - buttonPressedClosure , - mkButtonPressedCallback , - noButtonPressedCallback , - onButtonPressed , - - --- ** Released - ButtonReleasedCallback , - ButtonReleasedCallbackC , - ButtonReleasedSignalInfo , - afterButtonReleased , - buttonReleasedCallbackWrapper , - buttonReleasedClosure , - mkButtonReleasedCallback , - noButtonReleasedCallback , - onButtonReleased , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Button = Button (ForeignPtr Button) -foreign import ccall "gtk_button_get_type" - c_gtk_button_get_type :: IO GType - -type instance ParentTypes Button = ButtonParentTypes -type ButtonParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject Button where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_button_get_type - - -class GObject o => ButtonK o -instance (GObject o, IsDescendantOf Button o) => ButtonK o - -toButton :: ButtonK o => o -> IO Button -toButton = unsafeCastTo Button - -noButton :: Maybe Button -noButton = Nothing - -type family ResolveButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveButtonMethod "add" o = ContainerAddMethodInfo - ResolveButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveButtonMethod "event" o = WidgetEventMethodInfo - ResolveButtonMethod "forall" o = ContainerForallMethodInfo - ResolveButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveButtonMethod "hide" o = WidgetHideMethodInfo - ResolveButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveButtonMethod "map" o = WidgetMapMethodInfo - ResolveButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveButtonMethod "path" o = WidgetPathMethodInfo - ResolveButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveButtonMethod "show" o = WidgetShowMethodInfo - ResolveButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveButtonMethod t Button, MethodInfo info Button p) => IsLabelProxy t (Button -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveButtonMethod t Button, MethodInfo info Button p) => IsLabel t (Button -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Button::activate -type ButtonActivateCallback = - IO () - -noButtonActivateCallback :: Maybe ButtonActivateCallback -noButtonActivateCallback = Nothing - -type ButtonActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonActivateCallback :: ButtonActivateCallbackC -> IO (FunPtr ButtonActivateCallbackC) - -buttonActivateClosure :: ButtonActivateCallback -> IO Closure -buttonActivateClosure cb = newCClosure =<< mkButtonActivateCallback wrapped - where wrapped = buttonActivateCallbackWrapper cb - -buttonActivateCallbackWrapper :: - ButtonActivateCallback -> - Ptr () -> - Ptr () -> - IO () -buttonActivateCallbackWrapper _cb _ _ = do - _cb - -onButtonActivate :: (GObject a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId -onButtonActivate obj cb = liftIO $ connectButtonActivate obj cb SignalConnectBefore -afterButtonActivate :: (GObject a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId -afterButtonActivate obj cb = connectButtonActivate obj cb SignalConnectAfter - -connectButtonActivate :: (GObject a, MonadIO m) => - a -> ButtonActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonActivate obj cb after = liftIO $ do - cb' <- mkButtonActivateCallback (buttonActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Button::clicked -type ButtonClickedCallback = - IO () - -noButtonClickedCallback :: Maybe ButtonClickedCallback -noButtonClickedCallback = Nothing - -type ButtonClickedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonClickedCallback :: ButtonClickedCallbackC -> IO (FunPtr ButtonClickedCallbackC) - -buttonClickedClosure :: ButtonClickedCallback -> IO Closure -buttonClickedClosure cb = newCClosure =<< mkButtonClickedCallback wrapped - where wrapped = buttonClickedCallbackWrapper cb - -buttonClickedCallbackWrapper :: - ButtonClickedCallback -> - Ptr () -> - Ptr () -> - IO () -buttonClickedCallbackWrapper _cb _ _ = do - _cb - -onButtonClicked :: (GObject a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId -onButtonClicked obj cb = liftIO $ connectButtonClicked obj cb SignalConnectBefore -afterButtonClicked :: (GObject a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId -afterButtonClicked obj cb = connectButtonClicked obj cb SignalConnectAfter - -connectButtonClicked :: (GObject a, MonadIO m) => - a -> ButtonClickedCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonClicked obj cb after = liftIO $ do - cb' <- mkButtonClickedCallback (buttonClickedCallbackWrapper cb) - connectSignalFunPtr obj "clicked" cb' after - --- signal Button::enter -type ButtonEnterCallback = - IO () - -noButtonEnterCallback :: Maybe ButtonEnterCallback -noButtonEnterCallback = Nothing - -type ButtonEnterCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonEnterCallback :: ButtonEnterCallbackC -> IO (FunPtr ButtonEnterCallbackC) - -buttonEnterClosure :: ButtonEnterCallback -> IO Closure -buttonEnterClosure cb = newCClosure =<< mkButtonEnterCallback wrapped - where wrapped = buttonEnterCallbackWrapper cb - -buttonEnterCallbackWrapper :: - ButtonEnterCallback -> - Ptr () -> - Ptr () -> - IO () -buttonEnterCallbackWrapper _cb _ _ = do - _cb - -onButtonEnter :: (GObject a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId -onButtonEnter obj cb = liftIO $ connectButtonEnter obj cb SignalConnectBefore -afterButtonEnter :: (GObject a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId -afterButtonEnter obj cb = connectButtonEnter obj cb SignalConnectAfter - -connectButtonEnter :: (GObject a, MonadIO m) => - a -> ButtonEnterCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonEnter obj cb after = liftIO $ do - cb' <- mkButtonEnterCallback (buttonEnterCallbackWrapper cb) - connectSignalFunPtr obj "enter" cb' after - --- signal Button::leave -type ButtonLeaveCallback = - IO () - -noButtonLeaveCallback :: Maybe ButtonLeaveCallback -noButtonLeaveCallback = Nothing - -type ButtonLeaveCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonLeaveCallback :: ButtonLeaveCallbackC -> IO (FunPtr ButtonLeaveCallbackC) - -buttonLeaveClosure :: ButtonLeaveCallback -> IO Closure -buttonLeaveClosure cb = newCClosure =<< mkButtonLeaveCallback wrapped - where wrapped = buttonLeaveCallbackWrapper cb - -buttonLeaveCallbackWrapper :: - ButtonLeaveCallback -> - Ptr () -> - Ptr () -> - IO () -buttonLeaveCallbackWrapper _cb _ _ = do - _cb - -onButtonLeave :: (GObject a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId -onButtonLeave obj cb = liftIO $ connectButtonLeave obj cb SignalConnectBefore -afterButtonLeave :: (GObject a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId -afterButtonLeave obj cb = connectButtonLeave obj cb SignalConnectAfter - -connectButtonLeave :: (GObject a, MonadIO m) => - a -> ButtonLeaveCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonLeave obj cb after = liftIO $ do - cb' <- mkButtonLeaveCallback (buttonLeaveCallbackWrapper cb) - connectSignalFunPtr obj "leave" cb' after - --- signal Button::pressed -type ButtonPressedCallback = - IO () - -noButtonPressedCallback :: Maybe ButtonPressedCallback -noButtonPressedCallback = Nothing - -type ButtonPressedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonPressedCallback :: ButtonPressedCallbackC -> IO (FunPtr ButtonPressedCallbackC) - -buttonPressedClosure :: ButtonPressedCallback -> IO Closure -buttonPressedClosure cb = newCClosure =<< mkButtonPressedCallback wrapped - where wrapped = buttonPressedCallbackWrapper cb - -buttonPressedCallbackWrapper :: - ButtonPressedCallback -> - Ptr () -> - Ptr () -> - IO () -buttonPressedCallbackWrapper _cb _ _ = do - _cb - -onButtonPressed :: (GObject a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId -onButtonPressed obj cb = liftIO $ connectButtonPressed obj cb SignalConnectBefore -afterButtonPressed :: (GObject a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId -afterButtonPressed obj cb = connectButtonPressed obj cb SignalConnectAfter - -connectButtonPressed :: (GObject a, MonadIO m) => - a -> ButtonPressedCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonPressed obj cb after = liftIO $ do - cb' <- mkButtonPressedCallback (buttonPressedCallbackWrapper cb) - connectSignalFunPtr obj "pressed" cb' after - --- signal Button::released -type ButtonReleasedCallback = - IO () - -noButtonReleasedCallback :: Maybe ButtonReleasedCallback -noButtonReleasedCallback = Nothing - -type ButtonReleasedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkButtonReleasedCallback :: ButtonReleasedCallbackC -> IO (FunPtr ButtonReleasedCallbackC) - -buttonReleasedClosure :: ButtonReleasedCallback -> IO Closure -buttonReleasedClosure cb = newCClosure =<< mkButtonReleasedCallback wrapped - where wrapped = buttonReleasedCallbackWrapper cb - -buttonReleasedCallbackWrapper :: - ButtonReleasedCallback -> - Ptr () -> - Ptr () -> - IO () -buttonReleasedCallbackWrapper _cb _ _ = do - _cb - -onButtonReleased :: (GObject a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId -onButtonReleased obj cb = liftIO $ connectButtonReleased obj cb SignalConnectBefore -afterButtonReleased :: (GObject a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId -afterButtonReleased obj cb = connectButtonReleased obj cb SignalConnectAfter - -connectButtonReleased :: (GObject a, MonadIO m) => - a -> ButtonReleasedCallback -> SignalConnectMode -> m SignalHandlerId -connectButtonReleased obj cb after = liftIO $ do - cb' <- mkButtonReleasedCallback (buttonReleasedCallbackWrapper cb) - connectSignalFunPtr obj "released" cb' after - --- VVV Prop "always-show-image" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getButtonAlwaysShowImage :: (MonadIO m, ButtonK o) => o -> m Bool -getButtonAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" - -setButtonAlwaysShowImage :: (MonadIO m, ButtonK o) => o -> Bool -> m () -setButtonAlwaysShowImage obj val = liftIO $ setObjectPropertyBool obj "always-show-image" val - -constructButtonAlwaysShowImage :: Bool -> IO ([Char], GValue) -constructButtonAlwaysShowImage val = constructObjectPropertyBool "always-show-image" val - -data ButtonAlwaysShowImagePropertyInfo -instance AttrInfo ButtonAlwaysShowImagePropertyInfo where - type AttrAllowedOps ButtonAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonAlwaysShowImagePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ButtonAlwaysShowImagePropertyInfo = ButtonK - type AttrGetType ButtonAlwaysShowImagePropertyInfo = Bool - type AttrLabel ButtonAlwaysShowImagePropertyInfo = "always-show-image" - attrGet _ = getButtonAlwaysShowImage - attrSet _ = setButtonAlwaysShowImage - attrConstruct _ = constructButtonAlwaysShowImage - attrClear _ = undefined - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getButtonFocusOnClick :: (MonadIO m, ButtonK o) => o -> m Bool -getButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" - -setButtonFocusOnClick :: (MonadIO m, ButtonK o) => o -> Bool -> m () -setButtonFocusOnClick obj val = liftIO $ setObjectPropertyBool obj "focus-on-click" val - -constructButtonFocusOnClick :: Bool -> IO ([Char], GValue) -constructButtonFocusOnClick val = constructObjectPropertyBool "focus-on-click" val - -data ButtonFocusOnClickPropertyInfo -instance AttrInfo ButtonFocusOnClickPropertyInfo where - type AttrAllowedOps ButtonFocusOnClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonFocusOnClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ButtonFocusOnClickPropertyInfo = ButtonK - type AttrGetType ButtonFocusOnClickPropertyInfo = Bool - type AttrLabel ButtonFocusOnClickPropertyInfo = "focus-on-click" - attrGet _ = getButtonFocusOnClick - attrSet _ = setButtonFocusOnClick - attrConstruct _ = constructButtonFocusOnClick - attrClear _ = undefined - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getButtonImage :: (MonadIO m, ButtonK o) => o -> m Widget -getButtonImage obj = liftIO $ checkUnexpectedNothing "getButtonImage" $ getObjectPropertyObject obj "image" Widget - -setButtonImage :: (MonadIO m, ButtonK o, WidgetK a) => o -> a -> m () -setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) - -constructButtonImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructButtonImage val = constructObjectPropertyObject "image" (Just val) - -data ButtonImagePropertyInfo -instance AttrInfo ButtonImagePropertyInfo where - type AttrAllowedOps ButtonImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonImagePropertyInfo = WidgetK - type AttrBaseTypeConstraint ButtonImagePropertyInfo = ButtonK - type AttrGetType ButtonImagePropertyInfo = Widget - type AttrLabel ButtonImagePropertyInfo = "image" - attrGet _ = getButtonImage - attrSet _ = setButtonImage - attrConstruct _ = constructButtonImage - attrClear _ = undefined - --- VVV Prop "image-position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getButtonImagePosition :: (MonadIO m, ButtonK o) => o -> m PositionType -getButtonImagePosition obj = liftIO $ getObjectPropertyEnum obj "image-position" - -setButtonImagePosition :: (MonadIO m, ButtonK o) => o -> PositionType -> m () -setButtonImagePosition obj val = liftIO $ setObjectPropertyEnum obj "image-position" val - -constructButtonImagePosition :: PositionType -> IO ([Char], GValue) -constructButtonImagePosition val = constructObjectPropertyEnum "image-position" val - -data ButtonImagePositionPropertyInfo -instance AttrInfo ButtonImagePositionPropertyInfo where - type AttrAllowedOps ButtonImagePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonImagePositionPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint ButtonImagePositionPropertyInfo = ButtonK - type AttrGetType ButtonImagePositionPropertyInfo = PositionType - type AttrLabel ButtonImagePositionPropertyInfo = "image-position" - attrGet _ = getButtonImagePosition - attrSet _ = setButtonImagePosition - attrConstruct _ = constructButtonImagePosition - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getButtonLabel :: (MonadIO m, ButtonK o) => o -> m T.Text -getButtonLabel obj = liftIO $ checkUnexpectedNothing "getButtonLabel" $ getObjectPropertyString obj "label" - -setButtonLabel :: (MonadIO m, ButtonK o) => o -> T.Text -> m () -setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructButtonLabel :: T.Text -> IO ([Char], GValue) -constructButtonLabel val = constructObjectPropertyString "label" (Just val) - -data ButtonLabelPropertyInfo -instance AttrInfo ButtonLabelPropertyInfo where - type AttrAllowedOps ButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ButtonLabelPropertyInfo = ButtonK - type AttrGetType ButtonLabelPropertyInfo = T.Text - type AttrLabel ButtonLabelPropertyInfo = "label" - attrGet _ = getButtonLabel - attrSet _ = setButtonLabel - attrConstruct _ = constructButtonLabel - attrClear _ = undefined - --- VVV Prop "relief" - -- Type: TInterface "Gtk" "ReliefStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getButtonRelief :: (MonadIO m, ButtonK o) => o -> m ReliefStyle -getButtonRelief obj = liftIO $ getObjectPropertyEnum obj "relief" - -setButtonRelief :: (MonadIO m, ButtonK o) => o -> ReliefStyle -> m () -setButtonRelief obj val = liftIO $ setObjectPropertyEnum obj "relief" val - -constructButtonRelief :: ReliefStyle -> IO ([Char], GValue) -constructButtonRelief val = constructObjectPropertyEnum "relief" val - -data ButtonReliefPropertyInfo -instance AttrInfo ButtonReliefPropertyInfo where - type AttrAllowedOps ButtonReliefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonReliefPropertyInfo = (~) ReliefStyle - type AttrBaseTypeConstraint ButtonReliefPropertyInfo = ButtonK - type AttrGetType ButtonReliefPropertyInfo = ReliefStyle - type AttrLabel ButtonReliefPropertyInfo = "relief" - attrGet _ = getButtonRelief - attrSet _ = setButtonRelief - attrConstruct _ = constructButtonRelief - attrClear _ = undefined - --- VVV Prop "use-stock" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getButtonUseStock :: (MonadIO m, ButtonK o) => o -> m Bool -getButtonUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock" - -setButtonUseStock :: (MonadIO m, ButtonK o) => o -> Bool -> m () -setButtonUseStock obj val = liftIO $ setObjectPropertyBool obj "use-stock" val - -constructButtonUseStock :: Bool -> IO ([Char], GValue) -constructButtonUseStock val = constructObjectPropertyBool "use-stock" val - -data ButtonUseStockPropertyInfo -instance AttrInfo ButtonUseStockPropertyInfo where - type AttrAllowedOps ButtonUseStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonUseStockPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ButtonUseStockPropertyInfo = ButtonK - type AttrGetType ButtonUseStockPropertyInfo = Bool - type AttrLabel ButtonUseStockPropertyInfo = "use-stock" - attrGet _ = getButtonUseStock - attrSet _ = setButtonUseStock - attrConstruct _ = constructButtonUseStock - attrClear _ = undefined - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getButtonUseUnderline :: (MonadIO m, ButtonK o) => o -> m Bool -getButtonUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setButtonUseUnderline :: (MonadIO m, ButtonK o) => o -> Bool -> m () -setButtonUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructButtonUseUnderline :: Bool -> IO ([Char], GValue) -constructButtonUseUnderline val = constructObjectPropertyBool "use-underline" val - -data ButtonUseUnderlinePropertyInfo -instance AttrInfo ButtonUseUnderlinePropertyInfo where - type AttrAllowedOps ButtonUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ButtonUseUnderlinePropertyInfo = ButtonK - type AttrGetType ButtonUseUnderlinePropertyInfo = Bool - type AttrLabel ButtonUseUnderlinePropertyInfo = "use-underline" - attrGet _ = getButtonUseUnderline - attrSet _ = setButtonUseUnderline - attrConstruct _ = constructButtonUseUnderline - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getButtonXalign :: (MonadIO m, ButtonK o) => o -> m Float -getButtonXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setButtonXalign :: (MonadIO m, ButtonK o) => o -> Float -> m () -setButtonXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructButtonXalign :: Float -> IO ([Char], GValue) -constructButtonXalign val = constructObjectPropertyFloat "xalign" val - -data ButtonXalignPropertyInfo -instance AttrInfo ButtonXalignPropertyInfo where - type AttrAllowedOps ButtonXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint ButtonXalignPropertyInfo = ButtonK - type AttrGetType ButtonXalignPropertyInfo = Float - type AttrLabel ButtonXalignPropertyInfo = "xalign" - attrGet _ = getButtonXalign - attrSet _ = setButtonXalign - attrConstruct _ = constructButtonXalign - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getButtonYalign :: (MonadIO m, ButtonK o) => o -> m Float -getButtonYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setButtonYalign :: (MonadIO m, ButtonK o) => o -> Float -> m () -setButtonYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructButtonYalign :: Float -> IO ([Char], GValue) -constructButtonYalign val = constructObjectPropertyFloat "yalign" val - -data ButtonYalignPropertyInfo -instance AttrInfo ButtonYalignPropertyInfo where - type AttrAllowedOps ButtonYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint ButtonYalignPropertyInfo = ButtonK - type AttrGetType ButtonYalignPropertyInfo = Float - type AttrLabel ButtonYalignPropertyInfo = "yalign" - attrGet _ = getButtonYalign - attrSet _ = setButtonYalign - attrConstruct _ = constructButtonYalign - attrClear _ = undefined - -type instance AttributeList Button = ButtonAttributeList -type ButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -buttonAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" -buttonAlwaysShowImage = AttrLabelProxy - -buttonFocusOnClick :: AttrLabelProxy "focusOnClick" -buttonFocusOnClick = AttrLabelProxy - -buttonImage :: AttrLabelProxy "image" -buttonImage = AttrLabelProxy - -buttonImagePosition :: AttrLabelProxy "imagePosition" -buttonImagePosition = AttrLabelProxy - -buttonLabel :: AttrLabelProxy "label" -buttonLabel = AttrLabelProxy - -buttonRelief :: AttrLabelProxy "relief" -buttonRelief = AttrLabelProxy - -buttonUseStock :: AttrLabelProxy "useStock" -buttonUseStock = AttrLabelProxy - -buttonUseUnderline :: AttrLabelProxy "useUnderline" -buttonUseUnderline = AttrLabelProxy - -buttonXalign :: AttrLabelProxy "xalign" -buttonXalign = AttrLabelProxy - -buttonYalign :: AttrLabelProxy "yalign" -buttonYalign = AttrLabelProxy - -data ButtonActivateSignalInfo -instance SignalInfo ButtonActivateSignalInfo where - type HaskellCallbackType ButtonActivateSignalInfo = ButtonActivateCallback - connectSignal _ = connectButtonActivate - -data ButtonClickedSignalInfo -instance SignalInfo ButtonClickedSignalInfo where - type HaskellCallbackType ButtonClickedSignalInfo = ButtonClickedCallback - connectSignal _ = connectButtonClicked - -data ButtonEnterSignalInfo -instance SignalInfo ButtonEnterSignalInfo where - type HaskellCallbackType ButtonEnterSignalInfo = ButtonEnterCallback - connectSignal _ = connectButtonEnter - -data ButtonLeaveSignalInfo -instance SignalInfo ButtonLeaveSignalInfo where - type HaskellCallbackType ButtonLeaveSignalInfo = ButtonLeaveCallback - connectSignal _ = connectButtonLeave - -data ButtonPressedSignalInfo -instance SignalInfo ButtonPressedSignalInfo where - type HaskellCallbackType ButtonPressedSignalInfo = ButtonPressedCallback - connectSignal _ = connectButtonPressed - -data ButtonReleasedSignalInfo -instance SignalInfo ButtonReleasedSignalInfo where - type HaskellCallbackType ButtonReleasedSignalInfo = ButtonReleasedCallback - connectSignal _ = connectButtonReleased - -type instance SignalList Button = ButtonSignalList -type ButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Button::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_new" gtk_button_new :: - IO (Ptr Button) - - -buttonNew :: - (MonadIO m) => - m Button -- result -buttonNew = liftIO $ do - result <- gtk_button_new - checkUnexpectedReturnNULL "gtk_button_new" result - result' <- (newObject Button) result - return result' - --- method Button::new_from_icon_name --- method type : Constructor --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_new_from_icon_name" gtk_button_new_from_icon_name :: - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO (Ptr Button) - - -buttonNewFromIconName :: - (MonadIO m) => - T.Text -- iconName - -> Int32 -- size - -> m Button -- result -buttonNewFromIconName iconName size = liftIO $ do - iconName' <- textToCString iconName - result <- gtk_button_new_from_icon_name iconName' size - checkUnexpectedReturnNULL "gtk_button_new_from_icon_name" result - result' <- (newObject Button) result - freeMem iconName' - return result' - --- method Button::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_new_from_stock" gtk_button_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr Button) - -{-# DEPRECATED buttonNewFromStock ["(Since version 3.10)","Use gtk_button_new_with_label() instead."]#-} -buttonNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> m Button -- result -buttonNewFromStock stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_button_new_from_stock stockId' - checkUnexpectedReturnNULL "gtk_button_new_from_stock" result - result' <- (newObject Button) result - freeMem stockId' - return result' - --- method Button::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_new_with_label" gtk_button_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr Button) - - -buttonNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m Button -- result -buttonNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_button_new_with_label label' - checkUnexpectedReturnNULL "gtk_button_new_with_label" result - result' <- (newObject Button) result - freeMem label' - return result' - --- method Button::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_new_with_mnemonic" gtk_button_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr Button) - - -buttonNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m Button -- result -buttonNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_button_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_button_new_with_mnemonic" result - result' <- (newObject Button) result - freeMem label' - return result' - --- method Button::clicked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_clicked" gtk_button_clicked :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO () - - -buttonClicked :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m () -- result -buttonClicked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_clicked _obj' - touchManagedPtr _obj - return () - -data ButtonClickedMethodInfo -instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonClickedMethodInfo a signature where - overloadedMethod _ = buttonClicked - --- method Button::enter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_enter" gtk_button_enter :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO () - -{-# DEPRECATED buttonEnter ["(Since version 2.20)","Use the #GtkWidget::enter-notify-event signal."]#-} -buttonEnter :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m () -- result -buttonEnter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_enter _obj' - touchManagedPtr _obj - return () - -data ButtonEnterMethodInfo -instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonEnterMethodInfo a signature where - overloadedMethod _ = buttonEnter - --- method Button::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_button_get_alignment" gtk_button_get_alignment :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - Ptr CFloat -> -- xalign : TBasicType TFloat - Ptr CFloat -> -- yalign : TBasicType TFloat - IO () - -{-# DEPRECATED buttonGetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-} -buttonGetAlignment :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m (Float,Float) -- result -buttonGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xalign <- allocMem :: IO (Ptr CFloat) - yalign <- allocMem :: IO (Ptr CFloat) - gtk_button_get_alignment _obj' xalign yalign - xalign' <- peek xalign - let xalign'' = realToFrac xalign' - yalign' <- peek yalign - let yalign'' = realToFrac yalign' - touchManagedPtr _obj - freeMem xalign - freeMem yalign - return (xalign'', yalign'') - -data ButtonGetAlignmentMethodInfo -instance (signature ~ (m (Float,Float)), MonadIO m, ButtonK a) => MethodInfo ButtonGetAlignmentMethodInfo a signature where - overloadedMethod _ = buttonGetAlignment - --- method Button::get_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_get_always_show_image" gtk_button_get_always_show_image :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CInt - - -buttonGetAlwaysShowImage :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Bool -- result -buttonGetAlwaysShowImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_always_show_image _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ButtonGetAlwaysShowImageMethodInfo -instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = buttonGetAlwaysShowImage - --- method Button::get_event_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_get_event_window" gtk_button_get_event_window :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO (Ptr Gdk.Window) - - -buttonGetEventWindow :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Gdk.Window -- result -buttonGetEventWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_event_window _obj' - checkUnexpectedReturnNULL "gtk_button_get_event_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data ButtonGetEventWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, ButtonK a) => MethodInfo ButtonGetEventWindowMethodInfo a signature where - overloadedMethod _ = buttonGetEventWindow - --- method Button::get_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_get_focus_on_click" gtk_button_get_focus_on_click :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CInt - - -buttonGetFocusOnClick :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Bool -- result -buttonGetFocusOnClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_focus_on_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ButtonGetFocusOnClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetFocusOnClickMethodInfo a signature where - overloadedMethod _ = buttonGetFocusOnClick - --- method Button::get_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_get_image" gtk_button_get_image :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO (Ptr Widget) - - -buttonGetImage :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Widget -- result -buttonGetImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_image _obj' - checkUnexpectedReturnNULL "gtk_button_get_image" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ButtonGetImageMethodInfo -instance (signature ~ (m Widget), MonadIO m, ButtonK a) => MethodInfo ButtonGetImageMethodInfo a signature where - overloadedMethod _ = buttonGetImage - --- method Button::get_image_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_get_image_position" gtk_button_get_image_position :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CUInt - - -buttonGetImagePosition :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m PositionType -- result -buttonGetImagePosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_image_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ButtonGetImagePositionMethodInfo -instance (signature ~ (m PositionType), MonadIO m, ButtonK a) => MethodInfo ButtonGetImagePositionMethodInfo a signature where - overloadedMethod _ = buttonGetImagePosition - --- method Button::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_get_label" gtk_button_get_label :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CString - - -buttonGetLabel :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m T.Text -- result -buttonGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_label _obj' - checkUnexpectedReturnNULL "gtk_button_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ButtonGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ButtonK a) => MethodInfo ButtonGetLabelMethodInfo a signature where - overloadedMethod _ = buttonGetLabel - --- method Button::get_relief --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ReliefStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_get_relief" gtk_button_get_relief :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CUInt - - -buttonGetRelief :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m ReliefStyle -- result -buttonGetRelief _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_relief _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ButtonGetReliefMethodInfo -instance (signature ~ (m ReliefStyle), MonadIO m, ButtonK a) => MethodInfo ButtonGetReliefMethodInfo a signature where - overloadedMethod _ = buttonGetRelief - --- method Button::get_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_get_use_stock" gtk_button_get_use_stock :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CInt - -{-# DEPRECATED buttonGetUseStock ["(Since version 3.10)"]#-} -buttonGetUseStock :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Bool -- result -buttonGetUseStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_use_stock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ButtonGetUseStockMethodInfo -instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetUseStockMethodInfo a signature where - overloadedMethod _ = buttonGetUseStock - --- method Button::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_get_use_underline" gtk_button_get_use_underline :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO CInt - - -buttonGetUseUnderline :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m Bool -- result -buttonGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ButtonGetUseUnderlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetUseUnderlineMethodInfo a signature where - overloadedMethod _ = buttonGetUseUnderline - --- method Button::leave --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_leave" gtk_button_leave :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO () - -{-# DEPRECATED buttonLeave ["(Since version 2.20)","Use the #GtkWidget::leave-notify-event signal."]#-} -buttonLeave :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m () -- result -buttonLeave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_leave _obj' - touchManagedPtr _obj - return () - -data ButtonLeaveMethodInfo -instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonLeaveMethodInfo a signature where - overloadedMethod _ = buttonLeave - --- method Button::pressed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_pressed" gtk_button_pressed :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO () - -{-# DEPRECATED buttonPressed ["(Since version 2.20)","Use the #GtkWidget::button-press-event signal."]#-} -buttonPressed :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m () -- result -buttonPressed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_pressed _obj' - touchManagedPtr _obj - return () - -data ButtonPressedMethodInfo -instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonPressedMethodInfo a signature where - overloadedMethod _ = buttonPressed - --- method Button::released --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", 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 "gtk_button_released" gtk_button_released :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - IO () - -{-# DEPRECATED buttonReleased ["(Since version 2.20)","Use the #GtkWidget::button-release-event signal."]#-} -buttonReleased :: - (MonadIO m, ButtonK a) => - a -- _obj - -> m () -- result -buttonReleased _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_released _obj' - touchManagedPtr _obj - return () - -data ButtonReleasedMethodInfo -instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonReleasedMethodInfo a signature where - overloadedMethod _ = buttonReleased - --- method Button::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_button_set_alignment" gtk_button_set_alignment :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - IO () - -{-# DEPRECATED buttonSetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-} -buttonSetAlignment :: - (MonadIO m, ButtonK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> m () -- result -buttonSetAlignment _obj xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_button_set_alignment _obj' xalign' yalign' - touchManagedPtr _obj - return () - -data ButtonSetAlignmentMethodInfo -instance (signature ~ (Float -> Float -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetAlignmentMethodInfo a signature where - overloadedMethod _ = buttonSetAlignment - --- method Button::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", 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 "gtk_button_set_always_show_image" gtk_button_set_always_show_image :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CInt -> -- always_show : TBasicType TBoolean - IO () - - -buttonSetAlwaysShowImage :: - (MonadIO m, ButtonK a) => - a -- _obj - -> Bool -- alwaysShow - -> m () -- result -buttonSetAlwaysShowImage _obj alwaysShow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let alwaysShow' = (fromIntegral . fromEnum) alwaysShow - gtk_button_set_always_show_image _obj' alwaysShow' - touchManagedPtr _obj - return () - -data ButtonSetAlwaysShowImageMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = buttonSetAlwaysShowImage - --- method Button::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", 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 "gtk_button_set_focus_on_click" gtk_button_set_focus_on_click :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CInt -> -- focus_on_click : TBasicType TBoolean - IO () - - -buttonSetFocusOnClick :: - (MonadIO m, ButtonK a) => - a -- _obj - -> Bool -- focusOnClick - -> m () -- result -buttonSetFocusOnClick _obj focusOnClick = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusOnClick' = (fromIntegral . fromEnum) focusOnClick - gtk_button_set_focus_on_click _obj' focusOnClick' - touchManagedPtr _obj - return () - -data ButtonSetFocusOnClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetFocusOnClickMethodInfo a signature where - overloadedMethod _ = buttonSetFocusOnClick - --- method Button::set_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", 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 "gtk_button_set_image" gtk_button_set_image :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - Ptr Widget -> -- image : TInterface "Gtk" "Widget" - IO () - - -buttonSetImage :: - (MonadIO m, ButtonK a, WidgetK b) => - a -- _obj - -> b -- image - -> m () -- result -buttonSetImage _obj image = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let image' = unsafeManagedPtrCastPtr image - gtk_button_set_image _obj' image' - touchManagedPtr _obj - touchManagedPtr image - return () - -data ButtonSetImageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ButtonK a, WidgetK b) => MethodInfo ButtonSetImageMethodInfo a signature where - overloadedMethod _ = buttonSetImage - --- method Button::set_image_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", 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 "gtk_button_set_image_position" gtk_button_set_image_position :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CUInt -> -- position : TInterface "Gtk" "PositionType" - IO () - - -buttonSetImagePosition :: - (MonadIO m, ButtonK a) => - a -- _obj - -> PositionType -- position - -> m () -- result -buttonSetImagePosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_button_set_image_position _obj' position' - touchManagedPtr _obj - return () - -data ButtonSetImagePositionMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetImagePositionMethodInfo a signature where - overloadedMethod _ = buttonSetImagePosition - --- method Button::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", 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 "gtk_button_set_label" gtk_button_set_label :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CString -> -- label : TBasicType TUTF8 - IO () - - -buttonSetLabel :: - (MonadIO m, ButtonK a) => - a -- _obj - -> T.Text -- label - -> m () -- result -buttonSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_button_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - -data ButtonSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetLabelMethodInfo a signature where - overloadedMethod _ = buttonSetLabel - --- method Button::set_relief --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relief", argType = TInterface "Gtk" "ReliefStyle", 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 "gtk_button_set_relief" gtk_button_set_relief :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CUInt -> -- relief : TInterface "Gtk" "ReliefStyle" - IO () - - -buttonSetRelief :: - (MonadIO m, ButtonK a) => - a -- _obj - -> ReliefStyle -- relief - -> m () -- result -buttonSetRelief _obj relief = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relief' = (fromIntegral . fromEnum) relief - gtk_button_set_relief _obj' relief' - touchManagedPtr _obj - return () - -data ButtonSetReliefMethodInfo -instance (signature ~ (ReliefStyle -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetReliefMethodInfo a signature where - overloadedMethod _ = buttonSetRelief - --- method Button::set_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", 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 "gtk_button_set_use_stock" gtk_button_set_use_stock :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CInt -> -- use_stock : TBasicType TBoolean - IO () - -{-# DEPRECATED buttonSetUseStock ["(Since version 3.10)"]#-} -buttonSetUseStock :: - (MonadIO m, ButtonK a) => - a -- _obj - -> Bool -- useStock - -> m () -- result -buttonSetUseStock _obj useStock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useStock' = (fromIntegral . fromEnum) useStock - gtk_button_set_use_stock _obj' useStock' - touchManagedPtr _obj - return () - -data ButtonSetUseStockMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetUseStockMethodInfo a signature where - overloadedMethod _ = buttonSetUseStock - --- method Button::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", 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 "gtk_button_set_use_underline" gtk_button_set_use_underline :: - Ptr Button -> -- _obj : TInterface "Gtk" "Button" - CInt -> -- use_underline : TBasicType TBoolean - IO () - - -buttonSetUseUnderline :: - (MonadIO m, ButtonK a) => - a -- _obj - -> Bool -- useUnderline - -> m () -- result -buttonSetUseUnderline _obj useUnderline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useUnderline' = (fromIntegral . fromEnum) useUnderline - gtk_button_set_use_underline _obj' useUnderline' - touchManagedPtr _obj - return () - -data ButtonSetUseUnderlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetUseUnderlineMethodInfo a signature where - overloadedMethod _ = buttonSetUseUnderline - - diff --git a/GI/Gtk/Objects/Button.hs-boot b/GI/Gtk/Objects/Button.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Button.hs-boot +++ /dev/null @@ -1,53 +0,0 @@ -module GI.Gtk.Objects.Button 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 Button = Button (ForeignPtr Button) -instance GObject Button where -class GObject o => ButtonK o -instance (GObject o, IsDescendantOf Button o) => ButtonK o -data ButtonAlwaysShowImagePropertyInfo -data ButtonFocusOnClickPropertyInfo -data ButtonImagePropertyInfo -data ButtonImagePositionPropertyInfo -data ButtonLabelPropertyInfo -data ButtonReliefPropertyInfo -data ButtonUseStockPropertyInfo -data ButtonUseUnderlinePropertyInfo -data ButtonXalignPropertyInfo -data ButtonYalignPropertyInfo -data ButtonActivateSignalInfo -data ButtonClickedSignalInfo -data ButtonEnterSignalInfo -data ButtonLeaveSignalInfo -data ButtonPressedSignalInfo -data ButtonReleasedSignalInfo -data ButtonClickedMethodInfo -data ButtonEnterMethodInfo -data ButtonGetAlignmentMethodInfo -data ButtonGetAlwaysShowImageMethodInfo -data ButtonGetEventWindowMethodInfo -data ButtonGetFocusOnClickMethodInfo -data ButtonGetImageMethodInfo -data ButtonGetImagePositionMethodInfo -data ButtonGetLabelMethodInfo -data ButtonGetReliefMethodInfo -data ButtonGetUseStockMethodInfo -data ButtonGetUseUnderlineMethodInfo -data ButtonLeaveMethodInfo -data ButtonPressedMethodInfo -data ButtonReleasedMethodInfo -data ButtonSetAlignmentMethodInfo -data ButtonSetAlwaysShowImageMethodInfo -data ButtonSetFocusOnClickMethodInfo -data ButtonSetImageMethodInfo -data ButtonSetImagePositionMethodInfo -data ButtonSetLabelMethodInfo -data ButtonSetReliefMethodInfo -data ButtonSetUseStockMethodInfo -data ButtonSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ButtonAccessible.hs b/GI/Gtk/Objects/ButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ButtonAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.ButtonAccessible - ( - --- * Exported types - ButtonAccessible(..) , - ButtonAccessibleK , - toButtonAccessible , - noButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ButtonAccessible = ButtonAccessible (ForeignPtr ButtonAccessible) -foreign import ccall "gtk_button_accessible_get_type" - c_gtk_button_accessible_get_type :: IO GType - -type instance ParentTypes ButtonAccessible = ButtonAccessibleParentTypes -type ButtonAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject ButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_button_accessible_get_type - - -class GObject o => ButtonAccessibleK o -instance (GObject o, IsDescendantOf ButtonAccessible o) => ButtonAccessibleK o - -toButtonAccessible :: ButtonAccessibleK o => o -> IO ButtonAccessible -toButtonAccessible = unsafeCastTo ButtonAccessible - -noButtonAccessible :: Maybe ButtonAccessible -noButtonAccessible = Nothing - -type family ResolveButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveButtonAccessibleMethod t ButtonAccessible, MethodInfo info ButtonAccessible p) => IsLabelProxy t (ButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveButtonAccessibleMethod t ButtonAccessible, MethodInfo info ButtonAccessible p) => IsLabel t (ButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ButtonAccessible = ButtonAccessibleAttributeList -type ButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ButtonAccessible = ButtonAccessibleSignalList -type ButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ButtonAccessible.hs-boot b/GI/Gtk/Objects/ButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ButtonAccessible 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 ButtonAccessible = ButtonAccessible (ForeignPtr ButtonAccessible) -instance GObject ButtonAccessible where -class GObject o => ButtonAccessibleK o -instance (GObject o, IsDescendantOf ButtonAccessible o) => ButtonAccessibleK o diff --git a/GI/Gtk/Objects/ButtonBox.hs b/GI/Gtk/Objects/ButtonBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ButtonBox.hs +++ /dev/null @@ -1,694 +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.Gtk.Objects.ButtonBox - ( - --- * Exported types - ButtonBox(..) , - ButtonBoxK , - toButtonBox , - noButtonBox , - - - -- * Methods --- ** buttonBoxGetChildNonHomogeneous - ButtonBoxGetChildNonHomogeneousMethodInfo, - buttonBoxGetChildNonHomogeneous , - - --- ** buttonBoxGetChildSecondary - ButtonBoxGetChildSecondaryMethodInfo , - buttonBoxGetChildSecondary , - - --- ** buttonBoxGetLayout - ButtonBoxGetLayoutMethodInfo , - buttonBoxGetLayout , - - --- ** buttonBoxNew - buttonBoxNew , - - --- ** buttonBoxSetChildNonHomogeneous - ButtonBoxSetChildNonHomogeneousMethodInfo, - buttonBoxSetChildNonHomogeneous , - - --- ** buttonBoxSetChildSecondary - ButtonBoxSetChildSecondaryMethodInfo , - buttonBoxSetChildSecondary , - - --- ** buttonBoxSetLayout - ButtonBoxSetLayoutMethodInfo , - buttonBoxSetLayout , - - - - - -- * Properties --- ** LayoutStyle - ButtonBoxLayoutStylePropertyInfo , - buttonBoxLayoutStyle , - constructButtonBoxLayoutStyle , - getButtonBoxLayoutStyle , - setButtonBoxLayoutStyle , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ButtonBox = ButtonBox (ForeignPtr ButtonBox) -foreign import ccall "gtk_button_box_get_type" - c_gtk_button_box_get_type :: IO GType - -type instance ParentTypes ButtonBox = ButtonBoxParentTypes -type ButtonBoxParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject ButtonBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_button_box_get_type - - -class GObject o => ButtonBoxK o -instance (GObject o, IsDescendantOf ButtonBox o) => ButtonBoxK o - -toButtonBox :: ButtonBoxK o => o -> IO ButtonBox -toButtonBox = unsafeCastTo ButtonBox - -noButtonBox :: Maybe ButtonBox -noButtonBox = Nothing - -type family ResolveButtonBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveButtonBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveButtonBoxMethod "add" o = ContainerAddMethodInfo - ResolveButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveButtonBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveButtonBoxMethod "event" o = WidgetEventMethodInfo - ResolveButtonBoxMethod "forall" o = ContainerForallMethodInfo - ResolveButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveButtonBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveButtonBoxMethod "hide" o = WidgetHideMethodInfo - ResolveButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveButtonBoxMethod "map" o = WidgetMapMethodInfo - ResolveButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveButtonBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveButtonBoxMethod "path" o = WidgetPathMethodInfo - ResolveButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveButtonBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveButtonBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveButtonBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveButtonBoxMethod "show" o = WidgetShowMethodInfo - ResolveButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo - ResolveButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo - ResolveButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo - ResolveButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveButtonBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo - ResolveButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo - ResolveButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo - ResolveButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveButtonBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveButtonBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveButtonBoxMethod t ButtonBox, MethodInfo info ButtonBox p) => IsLabelProxy t (ButtonBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveButtonBoxMethod t ButtonBox, MethodInfo info ButtonBox p) => IsLabel t (ButtonBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "layout-style" - -- Type: TInterface "Gtk" "ButtonBoxStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getButtonBoxLayoutStyle :: (MonadIO m, ButtonBoxK o) => o -> m ButtonBoxStyle -getButtonBoxLayoutStyle obj = liftIO $ getObjectPropertyEnum obj "layout-style" - -setButtonBoxLayoutStyle :: (MonadIO m, ButtonBoxK o) => o -> ButtonBoxStyle -> m () -setButtonBoxLayoutStyle obj val = liftIO $ setObjectPropertyEnum obj "layout-style" val - -constructButtonBoxLayoutStyle :: ButtonBoxStyle -> IO ([Char], GValue) -constructButtonBoxLayoutStyle val = constructObjectPropertyEnum "layout-style" val - -data ButtonBoxLayoutStylePropertyInfo -instance AttrInfo ButtonBoxLayoutStylePropertyInfo where - type AttrAllowedOps ButtonBoxLayoutStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ButtonBoxLayoutStylePropertyInfo = (~) ButtonBoxStyle - type AttrBaseTypeConstraint ButtonBoxLayoutStylePropertyInfo = ButtonBoxK - type AttrGetType ButtonBoxLayoutStylePropertyInfo = ButtonBoxStyle - type AttrLabel ButtonBoxLayoutStylePropertyInfo = "layout-style" - attrGet _ = getButtonBoxLayoutStyle - attrSet _ = setButtonBoxLayoutStyle - attrConstruct _ = constructButtonBoxLayoutStyle - attrClear _ = undefined - -type instance AttributeList ButtonBox = ButtonBoxAttributeList -type ButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -buttonBoxLayoutStyle :: AttrLabelProxy "layoutStyle" -buttonBoxLayoutStyle = AttrLabelProxy - -type instance SignalList ButtonBox = ButtonBoxSignalList -type ButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ButtonBox::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ButtonBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_box_new" gtk_button_box_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO (Ptr ButtonBox) - - -buttonBoxNew :: - (MonadIO m) => - Orientation -- orientation - -> m ButtonBox -- result -buttonBoxNew orientation = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_button_box_new orientation' - checkUnexpectedReturnNULL "gtk_button_box_new" result - result' <- (newObject ButtonBox) result - return result' - --- method ButtonBox::get_child_non_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_button_box_get_child_non_homogeneous" gtk_button_box_get_child_non_homogeneous :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -buttonBoxGetChildNonHomogeneous :: - (MonadIO m, ButtonBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Bool -- result -buttonBoxGetChildNonHomogeneous _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_button_box_get_child_non_homogeneous _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data ButtonBoxGetChildNonHomogeneousMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxGetChildNonHomogeneousMethodInfo a signature where - overloadedMethod _ = buttonBoxGetChildNonHomogeneous - --- method ButtonBox::get_child_secondary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_button_box_get_child_secondary" gtk_button_box_get_child_secondary :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -buttonBoxGetChildSecondary :: - (MonadIO m, ButtonBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Bool -- result -buttonBoxGetChildSecondary _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_button_box_get_child_secondary _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data ButtonBoxGetChildSecondaryMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxGetChildSecondaryMethodInfo a signature where - overloadedMethod _ = buttonBoxGetChildSecondary - --- method ButtonBox::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ButtonBoxStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_button_box_get_layout" gtk_button_box_get_layout :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - IO CUInt - - -buttonBoxGetLayout :: - (MonadIO m, ButtonBoxK a) => - a -- _obj - -> m ButtonBoxStyle -- result -buttonBoxGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_box_get_layout _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ButtonBoxGetLayoutMethodInfo -instance (signature ~ (m ButtonBoxStyle), MonadIO m, ButtonBoxK a) => MethodInfo ButtonBoxGetLayoutMethodInfo a signature where - overloadedMethod _ = buttonBoxGetLayout - --- method ButtonBox::set_child_non_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_homogeneous", 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 "gtk_button_box_set_child_non_homogeneous" gtk_button_box_set_child_non_homogeneous :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- non_homogeneous : TBasicType TBoolean - IO () - - -buttonBoxSetChildNonHomogeneous :: - (MonadIO m, ButtonBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- nonHomogeneous - -> m () -- result -buttonBoxSetChildNonHomogeneous _obj child nonHomogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let nonHomogeneous' = (fromIntegral . fromEnum) nonHomogeneous - gtk_button_box_set_child_non_homogeneous _obj' child' nonHomogeneous' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ButtonBoxSetChildNonHomogeneousMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxSetChildNonHomogeneousMethodInfo a signature where - overloadedMethod _ = buttonBoxSetChildNonHomogeneous - --- method ButtonBox::set_child_secondary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_secondary", 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 "gtk_button_box_set_child_secondary" gtk_button_box_set_child_secondary :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- is_secondary : TBasicType TBoolean - IO () - - -buttonBoxSetChildSecondary :: - (MonadIO m, ButtonBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- isSecondary - -> m () -- result -buttonBoxSetChildSecondary _obj child isSecondary = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let isSecondary' = (fromIntegral . fromEnum) isSecondary - gtk_button_box_set_child_secondary _obj' child' isSecondary' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ButtonBoxSetChildSecondaryMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxSetChildSecondaryMethodInfo a signature where - overloadedMethod _ = buttonBoxSetChildSecondary - --- method ButtonBox::set_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", 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 "gtk_button_box_set_layout" gtk_button_box_set_layout :: - Ptr ButtonBox -> -- _obj : TInterface "Gtk" "ButtonBox" - CUInt -> -- layout_style : TInterface "Gtk" "ButtonBoxStyle" - IO () - - -buttonBoxSetLayout :: - (MonadIO m, ButtonBoxK a) => - a -- _obj - -> ButtonBoxStyle -- layoutStyle - -> m () -- result -buttonBoxSetLayout _obj layoutStyle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let layoutStyle' = (fromIntegral . fromEnum) layoutStyle - gtk_button_box_set_layout _obj' layoutStyle' - touchManagedPtr _obj - return () - -data ButtonBoxSetLayoutMethodInfo -instance (signature ~ (ButtonBoxStyle -> m ()), MonadIO m, ButtonBoxK a) => MethodInfo ButtonBoxSetLayoutMethodInfo a signature where - overloadedMethod _ = buttonBoxSetLayout - - diff --git a/GI/Gtk/Objects/ButtonBox.hs-boot b/GI/Gtk/Objects/ButtonBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ButtonBox.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.ButtonBox 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 ButtonBox = ButtonBox (ForeignPtr ButtonBox) -instance GObject ButtonBox where -class GObject o => ButtonBoxK o -instance (GObject o, IsDescendantOf ButtonBox o) => ButtonBoxK o -data ButtonBoxLayoutStylePropertyInfo -data ButtonBoxGetChildNonHomogeneousMethodInfo -data ButtonBoxGetChildSecondaryMethodInfo -data ButtonBoxGetLayoutMethodInfo -data ButtonBoxSetChildNonHomogeneousMethodInfo -data ButtonBoxSetChildSecondaryMethodInfo -data ButtonBoxSetLayoutMethodInfo diff --git a/GI/Gtk/Objects/Calendar.hs b/GI/Gtk/Objects/Calendar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Calendar.hs +++ /dev/null @@ -1,1648 +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.Gtk.Objects.Calendar - ( - --- * Exported types - Calendar(..) , - CalendarK , - toCalendar , - noCalendar , - - - -- * Methods --- ** calendarClearMarks - CalendarClearMarksMethodInfo , - calendarClearMarks , - - --- ** calendarGetDate - CalendarGetDateMethodInfo , - calendarGetDate , - - --- ** calendarGetDayIsMarked - CalendarGetDayIsMarkedMethodInfo , - calendarGetDayIsMarked , - - --- ** calendarGetDetailHeightRows - CalendarGetDetailHeightRowsMethodInfo , - calendarGetDetailHeightRows , - - --- ** calendarGetDetailWidthChars - CalendarGetDetailWidthCharsMethodInfo , - calendarGetDetailWidthChars , - - --- ** calendarGetDisplayOptions - CalendarGetDisplayOptionsMethodInfo , - calendarGetDisplayOptions , - - --- ** calendarMarkDay - CalendarMarkDayMethodInfo , - calendarMarkDay , - - --- ** calendarNew - calendarNew , - - --- ** calendarSelectDay - CalendarSelectDayMethodInfo , - calendarSelectDay , - - --- ** calendarSelectMonth - CalendarSelectMonthMethodInfo , - calendarSelectMonth , - - --- ** calendarSetDetailFunc - CalendarSetDetailFuncMethodInfo , - calendarSetDetailFunc , - - --- ** calendarSetDetailHeightRows - CalendarSetDetailHeightRowsMethodInfo , - calendarSetDetailHeightRows , - - --- ** calendarSetDetailWidthChars - CalendarSetDetailWidthCharsMethodInfo , - calendarSetDetailWidthChars , - - --- ** calendarSetDisplayOptions - CalendarSetDisplayOptionsMethodInfo , - calendarSetDisplayOptions , - - --- ** calendarUnmarkDay - CalendarUnmarkDayMethodInfo , - calendarUnmarkDay , - - - - - -- * Properties --- ** Day - CalendarDayPropertyInfo , - calendarDay , - constructCalendarDay , - getCalendarDay , - setCalendarDay , - - --- ** DetailHeightRows - CalendarDetailHeightRowsPropertyInfo , - calendarDetailHeightRows , - constructCalendarDetailHeightRows , - getCalendarDetailHeightRows , - setCalendarDetailHeightRows , - - --- ** DetailWidthChars - CalendarDetailWidthCharsPropertyInfo , - calendarDetailWidthChars , - constructCalendarDetailWidthChars , - getCalendarDetailWidthChars , - setCalendarDetailWidthChars , - - --- ** Month - CalendarMonthPropertyInfo , - calendarMonth , - constructCalendarMonth , - getCalendarMonth , - setCalendarMonth , - - --- ** NoMonthChange - CalendarNoMonthChangePropertyInfo , - calendarNoMonthChange , - constructCalendarNoMonthChange , - getCalendarNoMonthChange , - setCalendarNoMonthChange , - - --- ** ShowDayNames - CalendarShowDayNamesPropertyInfo , - calendarShowDayNames , - constructCalendarShowDayNames , - getCalendarShowDayNames , - setCalendarShowDayNames , - - --- ** ShowDetails - CalendarShowDetailsPropertyInfo , - calendarShowDetails , - constructCalendarShowDetails , - getCalendarShowDetails , - setCalendarShowDetails , - - --- ** ShowHeading - CalendarShowHeadingPropertyInfo , - calendarShowHeading , - constructCalendarShowHeading , - getCalendarShowHeading , - setCalendarShowHeading , - - --- ** ShowWeekNumbers - CalendarShowWeekNumbersPropertyInfo , - calendarShowWeekNumbers , - constructCalendarShowWeekNumbers , - getCalendarShowWeekNumbers , - setCalendarShowWeekNumbers , - - --- ** Year - CalendarYearPropertyInfo , - calendarYear , - constructCalendarYear , - getCalendarYear , - setCalendarYear , - - - - - -- * Signals --- ** DaySelected - CalendarDaySelectedCallback , - CalendarDaySelectedCallbackC , - CalendarDaySelectedSignalInfo , - afterCalendarDaySelected , - calendarDaySelectedCallbackWrapper , - calendarDaySelectedClosure , - mkCalendarDaySelectedCallback , - noCalendarDaySelectedCallback , - onCalendarDaySelected , - - --- ** DaySelectedDoubleClick - CalendarDaySelectedDoubleClickCallback , - CalendarDaySelectedDoubleClickCallbackC , - CalendarDaySelectedDoubleClickSignalInfo, - afterCalendarDaySelectedDoubleClick , - calendarDaySelectedDoubleClickCallbackWrapper, - calendarDaySelectedDoubleClickClosure , - mkCalendarDaySelectedDoubleClickCallback, - noCalendarDaySelectedDoubleClickCallback, - onCalendarDaySelectedDoubleClick , - - --- ** MonthChanged - CalendarMonthChangedCallback , - CalendarMonthChangedCallbackC , - CalendarMonthChangedSignalInfo , - afterCalendarMonthChanged , - calendarMonthChangedCallbackWrapper , - calendarMonthChangedClosure , - mkCalendarMonthChangedCallback , - noCalendarMonthChangedCallback , - onCalendarMonthChanged , - - --- ** NextMonth - CalendarNextMonthCallback , - CalendarNextMonthCallbackC , - CalendarNextMonthSignalInfo , - afterCalendarNextMonth , - calendarNextMonthCallbackWrapper , - calendarNextMonthClosure , - mkCalendarNextMonthCallback , - noCalendarNextMonthCallback , - onCalendarNextMonth , - - --- ** NextYear - CalendarNextYearCallback , - CalendarNextYearCallbackC , - CalendarNextYearSignalInfo , - afterCalendarNextYear , - calendarNextYearCallbackWrapper , - calendarNextYearClosure , - mkCalendarNextYearCallback , - noCalendarNextYearCallback , - onCalendarNextYear , - - --- ** PrevMonth - CalendarPrevMonthCallback , - CalendarPrevMonthCallbackC , - CalendarPrevMonthSignalInfo , - afterCalendarPrevMonth , - calendarPrevMonthCallbackWrapper , - calendarPrevMonthClosure , - mkCalendarPrevMonthCallback , - noCalendarPrevMonthCallback , - onCalendarPrevMonth , - - --- ** PrevYear - CalendarPrevYearCallback , - CalendarPrevYearCallbackC , - CalendarPrevYearSignalInfo , - afterCalendarPrevYear , - calendarPrevYearCallbackWrapper , - calendarPrevYearClosure , - mkCalendarPrevYearCallback , - noCalendarPrevYearCallback , - onCalendarPrevYear , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype Calendar = Calendar (ForeignPtr Calendar) -foreign import ccall "gtk_calendar_get_type" - c_gtk_calendar_get_type :: IO GType - -type instance ParentTypes Calendar = CalendarParentTypes -type CalendarParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Calendar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_calendar_get_type - - -class GObject o => CalendarK o -instance (GObject o, IsDescendantOf Calendar o) => CalendarK o - -toCalendar :: CalendarK o => o -> IO Calendar -toCalendar = unsafeCastTo Calendar - -noCalendar :: Maybe Calendar -noCalendar = Nothing - -type family ResolveCalendarMethod (t :: Symbol) (o :: *) :: * where - ResolveCalendarMethod "activate" o = WidgetActivateMethodInfo - ResolveCalendarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveCalendarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCalendarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveCalendarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveCalendarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveCalendarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveCalendarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCalendarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCalendarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveCalendarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveCalendarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveCalendarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveCalendarMethod "clearMarks" o = CalendarClearMarksMethodInfo - ResolveCalendarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveCalendarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCalendarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveCalendarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveCalendarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCalendarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCalendarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCalendarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveCalendarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveCalendarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveCalendarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveCalendarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveCalendarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveCalendarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveCalendarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveCalendarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveCalendarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveCalendarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveCalendarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveCalendarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveCalendarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveCalendarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveCalendarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveCalendarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveCalendarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveCalendarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveCalendarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveCalendarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveCalendarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveCalendarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveCalendarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveCalendarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveCalendarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveCalendarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveCalendarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveCalendarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveCalendarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveCalendarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveCalendarMethod "draw" o = WidgetDrawMethodInfo - ResolveCalendarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveCalendarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveCalendarMethod "event" o = WidgetEventMethodInfo - ResolveCalendarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCalendarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveCalendarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCalendarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveCalendarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveCalendarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveCalendarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveCalendarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveCalendarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveCalendarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveCalendarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveCalendarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveCalendarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveCalendarMethod "hide" o = WidgetHideMethodInfo - ResolveCalendarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveCalendarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveCalendarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveCalendarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveCalendarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveCalendarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveCalendarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveCalendarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveCalendarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveCalendarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCalendarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveCalendarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveCalendarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveCalendarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveCalendarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveCalendarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveCalendarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveCalendarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveCalendarMethod "map" o = WidgetMapMethodInfo - ResolveCalendarMethod "markDay" o = CalendarMarkDayMethodInfo - ResolveCalendarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveCalendarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveCalendarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveCalendarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveCalendarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveCalendarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveCalendarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveCalendarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveCalendarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCalendarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCalendarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveCalendarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveCalendarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveCalendarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveCalendarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveCalendarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCalendarMethod "path" o = WidgetPathMethodInfo - ResolveCalendarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveCalendarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveCalendarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveCalendarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveCalendarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveCalendarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveCalendarMethod "realize" o = WidgetRealizeMethodInfo - ResolveCalendarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCalendarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCalendarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveCalendarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveCalendarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveCalendarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveCalendarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveCalendarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveCalendarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveCalendarMethod "reparent" o = WidgetReparentMethodInfo - ResolveCalendarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCalendarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCalendarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveCalendarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveCalendarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCalendarMethod "selectDay" o = CalendarSelectDayMethodInfo - ResolveCalendarMethod "selectMonth" o = CalendarSelectMonthMethodInfo - ResolveCalendarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveCalendarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveCalendarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveCalendarMethod "show" o = WidgetShowMethodInfo - ResolveCalendarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveCalendarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveCalendarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveCalendarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveCalendarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveCalendarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCalendarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCalendarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveCalendarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveCalendarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveCalendarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCalendarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveCalendarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveCalendarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveCalendarMethod "unmarkDay" o = CalendarUnmarkDayMethodInfo - ResolveCalendarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveCalendarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveCalendarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCalendarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveCalendarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveCalendarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCalendarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveCalendarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveCalendarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveCalendarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveCalendarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveCalendarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveCalendarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveCalendarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveCalendarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveCalendarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveCalendarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveCalendarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveCalendarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveCalendarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveCalendarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveCalendarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCalendarMethod "getDate" o = CalendarGetDateMethodInfo - ResolveCalendarMethod "getDayIsMarked" o = CalendarGetDayIsMarkedMethodInfo - ResolveCalendarMethod "getDetailHeightRows" o = CalendarGetDetailHeightRowsMethodInfo - ResolveCalendarMethod "getDetailWidthChars" o = CalendarGetDetailWidthCharsMethodInfo - ResolveCalendarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveCalendarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveCalendarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveCalendarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveCalendarMethod "getDisplayOptions" o = CalendarGetDisplayOptionsMethodInfo - ResolveCalendarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveCalendarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveCalendarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveCalendarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveCalendarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveCalendarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveCalendarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveCalendarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveCalendarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveCalendarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveCalendarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCalendarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveCalendarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveCalendarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveCalendarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveCalendarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveCalendarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveCalendarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveCalendarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveCalendarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveCalendarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveCalendarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveCalendarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveCalendarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveCalendarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveCalendarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveCalendarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveCalendarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveCalendarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveCalendarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveCalendarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveCalendarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveCalendarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveCalendarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCalendarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCalendarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveCalendarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveCalendarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveCalendarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveCalendarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveCalendarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveCalendarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveCalendarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveCalendarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveCalendarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveCalendarMethod "getState" o = WidgetGetStateMethodInfo - ResolveCalendarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveCalendarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveCalendarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveCalendarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveCalendarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveCalendarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveCalendarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveCalendarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveCalendarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveCalendarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveCalendarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveCalendarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveCalendarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveCalendarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveCalendarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveCalendarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveCalendarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveCalendarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveCalendarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveCalendarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCalendarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveCalendarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveCalendarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveCalendarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveCalendarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveCalendarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCalendarMethod "setDetailFunc" o = CalendarSetDetailFuncMethodInfo - ResolveCalendarMethod "setDetailHeightRows" o = CalendarSetDetailHeightRowsMethodInfo - ResolveCalendarMethod "setDetailWidthChars" o = CalendarSetDetailWidthCharsMethodInfo - ResolveCalendarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveCalendarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveCalendarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveCalendarMethod "setDisplayOptions" o = CalendarSetDisplayOptionsMethodInfo - ResolveCalendarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveCalendarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveCalendarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveCalendarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveCalendarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveCalendarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveCalendarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveCalendarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveCalendarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveCalendarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveCalendarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveCalendarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveCalendarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveCalendarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveCalendarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveCalendarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveCalendarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveCalendarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveCalendarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveCalendarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveCalendarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCalendarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveCalendarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveCalendarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveCalendarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveCalendarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveCalendarMethod "setState" o = WidgetSetStateMethodInfo - ResolveCalendarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveCalendarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveCalendarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveCalendarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveCalendarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveCalendarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveCalendarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveCalendarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveCalendarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveCalendarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveCalendarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveCalendarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveCalendarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCalendarMethod t Calendar, MethodInfo info Calendar p) => IsLabelProxy t (Calendar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCalendarMethod t Calendar, MethodInfo info Calendar p) => IsLabel t (Calendar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Calendar::day-selected -type CalendarDaySelectedCallback = - IO () - -noCalendarDaySelectedCallback :: Maybe CalendarDaySelectedCallback -noCalendarDaySelectedCallback = Nothing - -type CalendarDaySelectedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarDaySelectedCallback :: CalendarDaySelectedCallbackC -> IO (FunPtr CalendarDaySelectedCallbackC) - -calendarDaySelectedClosure :: CalendarDaySelectedCallback -> IO Closure -calendarDaySelectedClosure cb = newCClosure =<< mkCalendarDaySelectedCallback wrapped - where wrapped = calendarDaySelectedCallbackWrapper cb - -calendarDaySelectedCallbackWrapper :: - CalendarDaySelectedCallback -> - Ptr () -> - Ptr () -> - IO () -calendarDaySelectedCallbackWrapper _cb _ _ = do - _cb - -onCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId -onCalendarDaySelected obj cb = liftIO $ connectCalendarDaySelected obj cb SignalConnectBefore -afterCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId -afterCalendarDaySelected obj cb = connectCalendarDaySelected obj cb SignalConnectAfter - -connectCalendarDaySelected :: (GObject a, MonadIO m) => - a -> CalendarDaySelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarDaySelected obj cb after = liftIO $ do - cb' <- mkCalendarDaySelectedCallback (calendarDaySelectedCallbackWrapper cb) - connectSignalFunPtr obj "day-selected" cb' after - --- signal Calendar::day-selected-double-click -type CalendarDaySelectedDoubleClickCallback = - IO () - -noCalendarDaySelectedDoubleClickCallback :: Maybe CalendarDaySelectedDoubleClickCallback -noCalendarDaySelectedDoubleClickCallback = Nothing - -type CalendarDaySelectedDoubleClickCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarDaySelectedDoubleClickCallback :: CalendarDaySelectedDoubleClickCallbackC -> IO (FunPtr CalendarDaySelectedDoubleClickCallbackC) - -calendarDaySelectedDoubleClickClosure :: CalendarDaySelectedDoubleClickCallback -> IO Closure -calendarDaySelectedDoubleClickClosure cb = newCClosure =<< mkCalendarDaySelectedDoubleClickCallback wrapped - where wrapped = calendarDaySelectedDoubleClickCallbackWrapper cb - -calendarDaySelectedDoubleClickCallbackWrapper :: - CalendarDaySelectedDoubleClickCallback -> - Ptr () -> - Ptr () -> - IO () -calendarDaySelectedDoubleClickCallbackWrapper _cb _ _ = do - _cb - -onCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId -onCalendarDaySelectedDoubleClick obj cb = liftIO $ connectCalendarDaySelectedDoubleClick obj cb SignalConnectBefore -afterCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId -afterCalendarDaySelectedDoubleClick obj cb = connectCalendarDaySelectedDoubleClick obj cb SignalConnectAfter - -connectCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => - a -> CalendarDaySelectedDoubleClickCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarDaySelectedDoubleClick obj cb after = liftIO $ do - cb' <- mkCalendarDaySelectedDoubleClickCallback (calendarDaySelectedDoubleClickCallbackWrapper cb) - connectSignalFunPtr obj "day-selected-double-click" cb' after - --- signal Calendar::month-changed -type CalendarMonthChangedCallback = - IO () - -noCalendarMonthChangedCallback :: Maybe CalendarMonthChangedCallback -noCalendarMonthChangedCallback = Nothing - -type CalendarMonthChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarMonthChangedCallback :: CalendarMonthChangedCallbackC -> IO (FunPtr CalendarMonthChangedCallbackC) - -calendarMonthChangedClosure :: CalendarMonthChangedCallback -> IO Closure -calendarMonthChangedClosure cb = newCClosure =<< mkCalendarMonthChangedCallback wrapped - where wrapped = calendarMonthChangedCallbackWrapper cb - -calendarMonthChangedCallbackWrapper :: - CalendarMonthChangedCallback -> - Ptr () -> - Ptr () -> - IO () -calendarMonthChangedCallbackWrapper _cb _ _ = do - _cb - -onCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId -onCalendarMonthChanged obj cb = liftIO $ connectCalendarMonthChanged obj cb SignalConnectBefore -afterCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId -afterCalendarMonthChanged obj cb = connectCalendarMonthChanged obj cb SignalConnectAfter - -connectCalendarMonthChanged :: (GObject a, MonadIO m) => - a -> CalendarMonthChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarMonthChanged obj cb after = liftIO $ do - cb' <- mkCalendarMonthChangedCallback (calendarMonthChangedCallbackWrapper cb) - connectSignalFunPtr obj "month-changed" cb' after - --- signal Calendar::next-month -type CalendarNextMonthCallback = - IO () - -noCalendarNextMonthCallback :: Maybe CalendarNextMonthCallback -noCalendarNextMonthCallback = Nothing - -type CalendarNextMonthCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarNextMonthCallback :: CalendarNextMonthCallbackC -> IO (FunPtr CalendarNextMonthCallbackC) - -calendarNextMonthClosure :: CalendarNextMonthCallback -> IO Closure -calendarNextMonthClosure cb = newCClosure =<< mkCalendarNextMonthCallback wrapped - where wrapped = calendarNextMonthCallbackWrapper cb - -calendarNextMonthCallbackWrapper :: - CalendarNextMonthCallback -> - Ptr () -> - Ptr () -> - IO () -calendarNextMonthCallbackWrapper _cb _ _ = do - _cb - -onCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId -onCalendarNextMonth obj cb = liftIO $ connectCalendarNextMonth obj cb SignalConnectBefore -afterCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId -afterCalendarNextMonth obj cb = connectCalendarNextMonth obj cb SignalConnectAfter - -connectCalendarNextMonth :: (GObject a, MonadIO m) => - a -> CalendarNextMonthCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarNextMonth obj cb after = liftIO $ do - cb' <- mkCalendarNextMonthCallback (calendarNextMonthCallbackWrapper cb) - connectSignalFunPtr obj "next-month" cb' after - --- signal Calendar::next-year -type CalendarNextYearCallback = - IO () - -noCalendarNextYearCallback :: Maybe CalendarNextYearCallback -noCalendarNextYearCallback = Nothing - -type CalendarNextYearCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarNextYearCallback :: CalendarNextYearCallbackC -> IO (FunPtr CalendarNextYearCallbackC) - -calendarNextYearClosure :: CalendarNextYearCallback -> IO Closure -calendarNextYearClosure cb = newCClosure =<< mkCalendarNextYearCallback wrapped - where wrapped = calendarNextYearCallbackWrapper cb - -calendarNextYearCallbackWrapper :: - CalendarNextYearCallback -> - Ptr () -> - Ptr () -> - IO () -calendarNextYearCallbackWrapper _cb _ _ = do - _cb - -onCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId -onCalendarNextYear obj cb = liftIO $ connectCalendarNextYear obj cb SignalConnectBefore -afterCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId -afterCalendarNextYear obj cb = connectCalendarNextYear obj cb SignalConnectAfter - -connectCalendarNextYear :: (GObject a, MonadIO m) => - a -> CalendarNextYearCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarNextYear obj cb after = liftIO $ do - cb' <- mkCalendarNextYearCallback (calendarNextYearCallbackWrapper cb) - connectSignalFunPtr obj "next-year" cb' after - --- signal Calendar::prev-month -type CalendarPrevMonthCallback = - IO () - -noCalendarPrevMonthCallback :: Maybe CalendarPrevMonthCallback -noCalendarPrevMonthCallback = Nothing - -type CalendarPrevMonthCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarPrevMonthCallback :: CalendarPrevMonthCallbackC -> IO (FunPtr CalendarPrevMonthCallbackC) - -calendarPrevMonthClosure :: CalendarPrevMonthCallback -> IO Closure -calendarPrevMonthClosure cb = newCClosure =<< mkCalendarPrevMonthCallback wrapped - where wrapped = calendarPrevMonthCallbackWrapper cb - -calendarPrevMonthCallbackWrapper :: - CalendarPrevMonthCallback -> - Ptr () -> - Ptr () -> - IO () -calendarPrevMonthCallbackWrapper _cb _ _ = do - _cb - -onCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId -onCalendarPrevMonth obj cb = liftIO $ connectCalendarPrevMonth obj cb SignalConnectBefore -afterCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId -afterCalendarPrevMonth obj cb = connectCalendarPrevMonth obj cb SignalConnectAfter - -connectCalendarPrevMonth :: (GObject a, MonadIO m) => - a -> CalendarPrevMonthCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarPrevMonth obj cb after = liftIO $ do - cb' <- mkCalendarPrevMonthCallback (calendarPrevMonthCallbackWrapper cb) - connectSignalFunPtr obj "prev-month" cb' after - --- signal Calendar::prev-year -type CalendarPrevYearCallback = - IO () - -noCalendarPrevYearCallback :: Maybe CalendarPrevYearCallback -noCalendarPrevYearCallback = Nothing - -type CalendarPrevYearCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCalendarPrevYearCallback :: CalendarPrevYearCallbackC -> IO (FunPtr CalendarPrevYearCallbackC) - -calendarPrevYearClosure :: CalendarPrevYearCallback -> IO Closure -calendarPrevYearClosure cb = newCClosure =<< mkCalendarPrevYearCallback wrapped - where wrapped = calendarPrevYearCallbackWrapper cb - -calendarPrevYearCallbackWrapper :: - CalendarPrevYearCallback -> - Ptr () -> - Ptr () -> - IO () -calendarPrevYearCallbackWrapper _cb _ _ = do - _cb - -onCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId -onCalendarPrevYear obj cb = liftIO $ connectCalendarPrevYear obj cb SignalConnectBefore -afterCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId -afterCalendarPrevYear obj cb = connectCalendarPrevYear obj cb SignalConnectAfter - -connectCalendarPrevYear :: (GObject a, MonadIO m) => - a -> CalendarPrevYearCallback -> SignalConnectMode -> m SignalHandlerId -connectCalendarPrevYear obj cb after = liftIO $ do - cb' <- mkCalendarPrevYearCallback (calendarPrevYearCallbackWrapper cb) - connectSignalFunPtr obj "prev-year" cb' after - --- VVV Prop "day" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDay obj = liftIO $ getObjectPropertyInt32 obj "day" - -setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDay obj val = liftIO $ setObjectPropertyInt32 obj "day" val - -constructCalendarDay :: Int32 -> IO ([Char], GValue) -constructCalendarDay val = constructObjectPropertyInt32 "day" val - -data CalendarDayPropertyInfo -instance AttrInfo CalendarDayPropertyInfo where - type AttrAllowedOps CalendarDayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarDayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CalendarDayPropertyInfo = CalendarK - type AttrGetType CalendarDayPropertyInfo = Int32 - type AttrLabel CalendarDayPropertyInfo = "day" - attrGet _ = getCalendarDay - attrSet _ = setCalendarDay - attrConstruct _ = constructCalendarDay - attrClear _ = undefined - --- VVV Prop "detail-height-rows" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyInt32 obj "detail-height-rows" - -setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyInt32 obj "detail-height-rows" val - -constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue) -constructCalendarDetailHeightRows val = constructObjectPropertyInt32 "detail-height-rows" val - -data CalendarDetailHeightRowsPropertyInfo -instance AttrInfo CalendarDetailHeightRowsPropertyInfo where - type AttrAllowedOps CalendarDetailHeightRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarDetailHeightRowsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CalendarDetailHeightRowsPropertyInfo = CalendarK - type AttrGetType CalendarDetailHeightRowsPropertyInfo = Int32 - type AttrLabel CalendarDetailHeightRowsPropertyInfo = "detail-height-rows" - attrGet _ = getCalendarDetailHeightRows - attrSet _ = setCalendarDetailHeightRows - attrConstruct _ = constructCalendarDetailHeightRows - attrClear _ = undefined - --- VVV Prop "detail-width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyInt32 obj "detail-width-chars" - -setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "detail-width-chars" val - -constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue) -constructCalendarDetailWidthChars val = constructObjectPropertyInt32 "detail-width-chars" val - -data CalendarDetailWidthCharsPropertyInfo -instance AttrInfo CalendarDetailWidthCharsPropertyInfo where - type AttrAllowedOps CalendarDetailWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarDetailWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CalendarDetailWidthCharsPropertyInfo = CalendarK - type AttrGetType CalendarDetailWidthCharsPropertyInfo = Int32 - type AttrLabel CalendarDetailWidthCharsPropertyInfo = "detail-width-chars" - attrGet _ = getCalendarDetailWidthChars - attrSet _ = setCalendarDetailWidthChars - attrConstruct _ = constructCalendarDetailWidthChars - attrClear _ = undefined - --- VVV Prop "month" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarMonth obj = liftIO $ getObjectPropertyInt32 obj "month" - -setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarMonth obj val = liftIO $ setObjectPropertyInt32 obj "month" val - -constructCalendarMonth :: Int32 -> IO ([Char], GValue) -constructCalendarMonth val = constructObjectPropertyInt32 "month" val - -data CalendarMonthPropertyInfo -instance AttrInfo CalendarMonthPropertyInfo where - type AttrAllowedOps CalendarMonthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarMonthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CalendarMonthPropertyInfo = CalendarK - type AttrGetType CalendarMonthPropertyInfo = Int32 - type AttrLabel CalendarMonthPropertyInfo = "month" - attrGet _ = getCalendarMonth - attrSet _ = setCalendarMonth - attrConstruct _ = constructCalendarMonth - attrClear _ = undefined - --- VVV Prop "no-month-change" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> m Bool -getCalendarNoMonthChange obj = liftIO $ getObjectPropertyBool obj "no-month-change" - -setCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> Bool -> m () -setCalendarNoMonthChange obj val = liftIO $ setObjectPropertyBool obj "no-month-change" val - -constructCalendarNoMonthChange :: Bool -> IO ([Char], GValue) -constructCalendarNoMonthChange val = constructObjectPropertyBool "no-month-change" val - -data CalendarNoMonthChangePropertyInfo -instance AttrInfo CalendarNoMonthChangePropertyInfo where - type AttrAllowedOps CalendarNoMonthChangePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarNoMonthChangePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CalendarNoMonthChangePropertyInfo = CalendarK - type AttrGetType CalendarNoMonthChangePropertyInfo = Bool - type AttrLabel CalendarNoMonthChangePropertyInfo = "no-month-change" - attrGet _ = getCalendarNoMonthChange - attrSet _ = setCalendarNoMonthChange - attrConstruct _ = constructCalendarNoMonthChange - attrClear _ = undefined - --- VVV Prop "show-day-names" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> m Bool -getCalendarShowDayNames obj = liftIO $ getObjectPropertyBool obj "show-day-names" - -setCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> Bool -> m () -setCalendarShowDayNames obj val = liftIO $ setObjectPropertyBool obj "show-day-names" val - -constructCalendarShowDayNames :: Bool -> IO ([Char], GValue) -constructCalendarShowDayNames val = constructObjectPropertyBool "show-day-names" val - -data CalendarShowDayNamesPropertyInfo -instance AttrInfo CalendarShowDayNamesPropertyInfo where - type AttrAllowedOps CalendarShowDayNamesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarShowDayNamesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CalendarShowDayNamesPropertyInfo = CalendarK - type AttrGetType CalendarShowDayNamesPropertyInfo = Bool - type AttrLabel CalendarShowDayNamesPropertyInfo = "show-day-names" - attrGet _ = getCalendarShowDayNames - attrSet _ = setCalendarShowDayNames - attrConstruct _ = constructCalendarShowDayNames - attrClear _ = undefined - --- VVV Prop "show-details" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> m Bool -getCalendarShowDetails obj = liftIO $ getObjectPropertyBool obj "show-details" - -setCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> Bool -> m () -setCalendarShowDetails obj val = liftIO $ setObjectPropertyBool obj "show-details" val - -constructCalendarShowDetails :: Bool -> IO ([Char], GValue) -constructCalendarShowDetails val = constructObjectPropertyBool "show-details" val - -data CalendarShowDetailsPropertyInfo -instance AttrInfo CalendarShowDetailsPropertyInfo where - type AttrAllowedOps CalendarShowDetailsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarShowDetailsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CalendarShowDetailsPropertyInfo = CalendarK - type AttrGetType CalendarShowDetailsPropertyInfo = Bool - type AttrLabel CalendarShowDetailsPropertyInfo = "show-details" - attrGet _ = getCalendarShowDetails - attrSet _ = setCalendarShowDetails - attrConstruct _ = constructCalendarShowDetails - attrClear _ = undefined - --- VVV Prop "show-heading" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> m Bool -getCalendarShowHeading obj = liftIO $ getObjectPropertyBool obj "show-heading" - -setCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> Bool -> m () -setCalendarShowHeading obj val = liftIO $ setObjectPropertyBool obj "show-heading" val - -constructCalendarShowHeading :: Bool -> IO ([Char], GValue) -constructCalendarShowHeading val = constructObjectPropertyBool "show-heading" val - -data CalendarShowHeadingPropertyInfo -instance AttrInfo CalendarShowHeadingPropertyInfo where - type AttrAllowedOps CalendarShowHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarShowHeadingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CalendarShowHeadingPropertyInfo = CalendarK - type AttrGetType CalendarShowHeadingPropertyInfo = Bool - type AttrLabel CalendarShowHeadingPropertyInfo = "show-heading" - attrGet _ = getCalendarShowHeading - attrSet _ = setCalendarShowHeading - attrConstruct _ = constructCalendarShowHeading - attrClear _ = undefined - --- VVV Prop "show-week-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> m Bool -getCalendarShowWeekNumbers obj = liftIO $ getObjectPropertyBool obj "show-week-numbers" - -setCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> Bool -> m () -setCalendarShowWeekNumbers obj val = liftIO $ setObjectPropertyBool obj "show-week-numbers" val - -constructCalendarShowWeekNumbers :: Bool -> IO ([Char], GValue) -constructCalendarShowWeekNumbers val = constructObjectPropertyBool "show-week-numbers" val - -data CalendarShowWeekNumbersPropertyInfo -instance AttrInfo CalendarShowWeekNumbersPropertyInfo where - type AttrAllowedOps CalendarShowWeekNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarShowWeekNumbersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CalendarShowWeekNumbersPropertyInfo = CalendarK - type AttrGetType CalendarShowWeekNumbersPropertyInfo = Bool - type AttrLabel CalendarShowWeekNumbersPropertyInfo = "show-week-numbers" - attrGet _ = getCalendarShowWeekNumbers - attrSet _ = setCalendarShowWeekNumbers - attrConstruct _ = constructCalendarShowWeekNumbers - attrClear _ = undefined - --- VVV Prop "year" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarYear obj = liftIO $ getObjectPropertyInt32 obj "year" - -setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarYear obj val = liftIO $ setObjectPropertyInt32 obj "year" val - -constructCalendarYear :: Int32 -> IO ([Char], GValue) -constructCalendarYear val = constructObjectPropertyInt32 "year" val - -data CalendarYearPropertyInfo -instance AttrInfo CalendarYearPropertyInfo where - type AttrAllowedOps CalendarYearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CalendarYearPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CalendarYearPropertyInfo = CalendarK - type AttrGetType CalendarYearPropertyInfo = Int32 - type AttrLabel CalendarYearPropertyInfo = "year" - attrGet _ = getCalendarYear - attrSet _ = setCalendarYear - attrConstruct _ = constructCalendarYear - attrClear _ = undefined - -type instance AttributeList Calendar = CalendarAttributeList -type CalendarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detailHeightRows", CalendarDetailHeightRowsPropertyInfo), '("detailWidthChars", CalendarDetailWidthCharsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noMonthChange", CalendarNoMonthChangePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showDetails", CalendarShowDetailsPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) - -calendarDay :: AttrLabelProxy "day" -calendarDay = AttrLabelProxy - -calendarDetailHeightRows :: AttrLabelProxy "detailHeightRows" -calendarDetailHeightRows = AttrLabelProxy - -calendarDetailWidthChars :: AttrLabelProxy "detailWidthChars" -calendarDetailWidthChars = AttrLabelProxy - -calendarMonth :: AttrLabelProxy "month" -calendarMonth = AttrLabelProxy - -calendarNoMonthChange :: AttrLabelProxy "noMonthChange" -calendarNoMonthChange = AttrLabelProxy - -calendarShowDayNames :: AttrLabelProxy "showDayNames" -calendarShowDayNames = AttrLabelProxy - -calendarShowDetails :: AttrLabelProxy "showDetails" -calendarShowDetails = AttrLabelProxy - -calendarShowHeading :: AttrLabelProxy "showHeading" -calendarShowHeading = AttrLabelProxy - -calendarShowWeekNumbers :: AttrLabelProxy "showWeekNumbers" -calendarShowWeekNumbers = AttrLabelProxy - -calendarYear :: AttrLabelProxy "year" -calendarYear = AttrLabelProxy - -data CalendarDaySelectedSignalInfo -instance SignalInfo CalendarDaySelectedSignalInfo where - type HaskellCallbackType CalendarDaySelectedSignalInfo = CalendarDaySelectedCallback - connectSignal _ = connectCalendarDaySelected - -data CalendarDaySelectedDoubleClickSignalInfo -instance SignalInfo CalendarDaySelectedDoubleClickSignalInfo where - type HaskellCallbackType CalendarDaySelectedDoubleClickSignalInfo = CalendarDaySelectedDoubleClickCallback - connectSignal _ = connectCalendarDaySelectedDoubleClick - -data CalendarMonthChangedSignalInfo -instance SignalInfo CalendarMonthChangedSignalInfo where - type HaskellCallbackType CalendarMonthChangedSignalInfo = CalendarMonthChangedCallback - connectSignal _ = connectCalendarMonthChanged - -data CalendarNextMonthSignalInfo -instance SignalInfo CalendarNextMonthSignalInfo where - type HaskellCallbackType CalendarNextMonthSignalInfo = CalendarNextMonthCallback - connectSignal _ = connectCalendarNextMonth - -data CalendarNextYearSignalInfo -instance SignalInfo CalendarNextYearSignalInfo where - type HaskellCallbackType CalendarNextYearSignalInfo = CalendarNextYearCallback - connectSignal _ = connectCalendarNextYear - -data CalendarPrevMonthSignalInfo -instance SignalInfo CalendarPrevMonthSignalInfo where - type HaskellCallbackType CalendarPrevMonthSignalInfo = CalendarPrevMonthCallback - connectSignal _ = connectCalendarPrevMonth - -data CalendarPrevYearSignalInfo -instance SignalInfo CalendarPrevYearSignalInfo where - type HaskellCallbackType CalendarPrevYearSignalInfo = CalendarPrevYearCallback - connectSignal _ = connectCalendarPrevYear - -type instance SignalList Calendar = CalendarSignalList -type CalendarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("daySelected", CalendarDaySelectedSignalInfo), '("daySelectedDoubleClick", CalendarDaySelectedDoubleClickSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("monthChanged", CalendarMonthChangedSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("nextMonth", CalendarNextMonthSignalInfo), '("nextYear", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("prevMonth", CalendarPrevMonthSignalInfo), '("prevYear", CalendarPrevYearSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Calendar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Calendar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_new" gtk_calendar_new :: - IO (Ptr Calendar) - - -calendarNew :: - (MonadIO m) => - m Calendar -- result -calendarNew = liftIO $ do - result <- gtk_calendar_new - checkUnexpectedReturnNULL "gtk_calendar_new" result - result' <- (newObject Calendar) result - return result' - --- method Calendar::clear_marks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", 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 "gtk_calendar_clear_marks" gtk_calendar_clear_marks :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - IO () - - -calendarClearMarks :: - (MonadIO m, CalendarK a) => - a -- _obj - -> m () -- result -calendarClearMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_clear_marks _obj' - touchManagedPtr _obj - return () - -data CalendarClearMarksMethodInfo -instance (signature ~ (m ()), MonadIO m, CalendarK a) => MethodInfo CalendarClearMarksMethodInfo a signature where - overloadedMethod _ = calendarClearMarks - --- method Calendar::get_date --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt, 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 "gtk_calendar_get_date" gtk_calendar_get_date :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Ptr Word32 -> -- year : TBasicType TUInt - Ptr Word32 -> -- month : TBasicType TUInt - Ptr Word32 -> -- day : TBasicType TUInt - IO () - - -calendarGetDate :: - (MonadIO m, CalendarK a) => - a -- _obj - -> m (Word32,Word32,Word32) -- result -calendarGetDate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - year <- allocMem :: IO (Ptr Word32) - month <- allocMem :: IO (Ptr Word32) - day <- allocMem :: IO (Ptr Word32) - gtk_calendar_get_date _obj' year month day - year' <- peek year - month' <- peek month - day' <- peek day - touchManagedPtr _obj - freeMem year - freeMem month - freeMem day - return (year', month', day') - -data CalendarGetDateMethodInfo -instance (signature ~ (m (Word32,Word32,Word32)), MonadIO m, CalendarK a) => MethodInfo CalendarGetDateMethodInfo a signature where - overloadedMethod _ = calendarGetDate - --- method Calendar::get_day_is_marked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, 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 "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt - IO CInt - - -calendarGetDayIsMarked :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Word32 -- day - -> m Bool -- result -calendarGetDayIsMarked _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_day_is_marked _obj' day - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CalendarGetDayIsMarkedMethodInfo -instance (signature ~ (Word32 -> m Bool), MonadIO m, CalendarK a) => MethodInfo CalendarGetDayIsMarkedMethodInfo a signature where - overloadedMethod _ = calendarGetDayIsMarked - --- method Calendar::get_detail_height_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", 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 "gtk_calendar_get_detail_height_rows" gtk_calendar_get_detail_height_rows :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - IO Int32 - - -calendarGetDetailHeightRows :: - (MonadIO m, CalendarK a) => - a -- _obj - -> m Int32 -- result -calendarGetDetailHeightRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_detail_height_rows _obj' - touchManagedPtr _obj - return result - -data CalendarGetDetailHeightRowsMethodInfo -instance (signature ~ (m Int32), MonadIO m, CalendarK a) => MethodInfo CalendarGetDetailHeightRowsMethodInfo a signature where - overloadedMethod _ = calendarGetDetailHeightRows - --- method Calendar::get_detail_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", 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 "gtk_calendar_get_detail_width_chars" gtk_calendar_get_detail_width_chars :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - IO Int32 - - -calendarGetDetailWidthChars :: - (MonadIO m, CalendarK a) => - a -- _obj - -> m Int32 -- result -calendarGetDetailWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_detail_width_chars _obj' - touchManagedPtr _obj - return result - -data CalendarGetDetailWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, CalendarK a) => MethodInfo CalendarGetDetailWidthCharsMethodInfo a signature where - overloadedMethod _ = calendarGetDetailWidthChars - --- method Calendar::get_display_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CalendarDisplayOptions") --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_get_display_options" gtk_calendar_get_display_options :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - IO CUInt - - -calendarGetDisplayOptions :: - (MonadIO m, CalendarK a) => - a -- _obj - -> m [CalendarDisplayOptions] -- result -calendarGetDisplayOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_display_options _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data CalendarGetDisplayOptionsMethodInfo -instance (signature ~ (m [CalendarDisplayOptions]), MonadIO m, CalendarK a) => MethodInfo CalendarGetDisplayOptionsMethodInfo a signature where - overloadedMethod _ = calendarGetDisplayOptions - --- method Calendar::mark_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", 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 "gtk_calendar_mark_day" gtk_calendar_mark_day :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt - IO () - - -calendarMarkDay :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Word32 -- day - -> m () -- result -calendarMarkDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_mark_day _obj' day - touchManagedPtr _obj - return () - -data CalendarMarkDayMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarMarkDayMethodInfo a signature where - overloadedMethod _ = calendarMarkDay - --- method Calendar::select_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", 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 "gtk_calendar_select_day" gtk_calendar_select_day :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt - IO () - - -calendarSelectDay :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Word32 -- day - -> m () -- result -calendarSelectDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_select_day _obj' day - touchManagedPtr _obj - return () - -data CalendarSelectDayMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSelectDayMethodInfo a signature where - overloadedMethod _ = calendarSelectDay - --- method Calendar::select_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", 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 "gtk_calendar_select_month" gtk_calendar_select_month :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- month : TBasicType TUInt - Word32 -> -- year : TBasicType TUInt - IO () - - -calendarSelectMonth :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Word32 -- month - -> Word32 -- year - -> m () -- result -calendarSelectMonth _obj month year = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_select_month _obj' month year - touchManagedPtr _obj - return () - -data CalendarSelectMonthMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSelectMonthMethodInfo a signature where - overloadedMethod _ = calendarSelectMonth - --- method Calendar::set_detail_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - FunPtr CalendarDetailFuncC -> -- func : TInterface "Gtk" "CalendarDetailFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -calendarSetDetailFunc :: - (MonadIO m, CalendarK a) => - a -- _obj - -> CalendarDetailFunc -- func - -> m () -- result -calendarSetDetailFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkCalendarDetailFunc (calendarDetailFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let destroy = safeFreeFunPtrPtr - gtk_calendar_set_detail_func _obj' func' data_ destroy - touchManagedPtr _obj - return () - -data CalendarSetDetailFuncMethodInfo -instance (signature ~ (CalendarDetailFunc -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailFuncMethodInfo a signature where - overloadedMethod _ = calendarSetDetailFunc - --- method Calendar::set_detail_height_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", 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 "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- rows : TBasicType TInt - IO () - - -calendarSetDetailHeightRows :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Int32 -- rows - -> m () -- result -calendarSetDetailHeightRows _obj rows = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_set_detail_height_rows _obj' rows - touchManagedPtr _obj - return () - -data CalendarSetDetailHeightRowsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailHeightRowsMethodInfo a signature where - overloadedMethod _ = calendarSetDetailHeightRows - --- method Calendar::set_detail_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", 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 "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- chars : TBasicType TInt - IO () - - -calendarSetDetailWidthChars :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Int32 -- chars - -> m () -- result -calendarSetDetailWidthChars _obj chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_set_detail_width_chars _obj' chars - touchManagedPtr _obj - return () - -data CalendarSetDetailWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailWidthCharsMethodInfo a signature where - overloadedMethod _ = calendarSetDetailWidthChars - --- method Calendar::set_display_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", 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 "gtk_calendar_set_display_options" gtk_calendar_set_display_options :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - CUInt -> -- flags : TInterface "Gtk" "CalendarDisplayOptions" - IO () - - -calendarSetDisplayOptions :: - (MonadIO m, CalendarK a) => - a -- _obj - -> [CalendarDisplayOptions] -- flags - -> m () -- result -calendarSetDisplayOptions _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_calendar_set_display_options _obj' flags' - touchManagedPtr _obj - return () - -data CalendarSetDisplayOptionsMethodInfo -instance (signature ~ ([CalendarDisplayOptions] -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDisplayOptionsMethodInfo a signature where - overloadedMethod _ = calendarSetDisplayOptions - --- method Calendar::unmark_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", 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 "gtk_calendar_unmark_day" gtk_calendar_unmark_day :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt - IO () - - -calendarUnmarkDay :: - (MonadIO m, CalendarK a) => - a -- _obj - -> Word32 -- day - -> m () -- result -calendarUnmarkDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_unmark_day _obj' day - touchManagedPtr _obj - return () - -data CalendarUnmarkDayMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarUnmarkDayMethodInfo a signature where - overloadedMethod _ = calendarUnmarkDay - - diff --git a/GI/Gtk/Objects/Calendar.hs-boot b/GI/Gtk/Objects/Calendar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Calendar.hs-boot +++ /dev/null @@ -1,44 +0,0 @@ -module GI.Gtk.Objects.Calendar 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 Calendar = Calendar (ForeignPtr Calendar) -instance GObject Calendar where -class GObject o => CalendarK o -instance (GObject o, IsDescendantOf Calendar o) => CalendarK o -data CalendarDayPropertyInfo -data CalendarDetailHeightRowsPropertyInfo -data CalendarDetailWidthCharsPropertyInfo -data CalendarMonthPropertyInfo -data CalendarNoMonthChangePropertyInfo -data CalendarShowDayNamesPropertyInfo -data CalendarShowDetailsPropertyInfo -data CalendarShowHeadingPropertyInfo -data CalendarShowWeekNumbersPropertyInfo -data CalendarYearPropertyInfo -data CalendarDaySelectedSignalInfo -data CalendarDaySelectedDoubleClickSignalInfo -data CalendarMonthChangedSignalInfo -data CalendarNextMonthSignalInfo -data CalendarNextYearSignalInfo -data CalendarPrevMonthSignalInfo -data CalendarPrevYearSignalInfo -data CalendarClearMarksMethodInfo -data CalendarGetDateMethodInfo -data CalendarGetDayIsMarkedMethodInfo -data CalendarGetDetailHeightRowsMethodInfo -data CalendarGetDetailWidthCharsMethodInfo -data CalendarGetDisplayOptionsMethodInfo -data CalendarMarkDayMethodInfo -data CalendarSelectDayMethodInfo -data CalendarSelectMonthMethodInfo -data CalendarSetDetailFuncMethodInfo -data CalendarSetDetailHeightRowsMethodInfo -data CalendarSetDetailWidthCharsMethodInfo -data CalendarSetDisplayOptionsMethodInfo -data CalendarUnmarkDayMethodInfo diff --git a/GI/Gtk/Objects/CellAccessible.hs b/GI/Gtk/Objects/CellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellAccessible.hs +++ /dev/null @@ -1,129 +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.Gtk.Objects.CellAccessible - ( - --- * Exported types - CellAccessible(..) , - CellAccessibleK , - toCellAccessible , - noCellAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype CellAccessible = CellAccessible (ForeignPtr CellAccessible) -foreign import ccall "gtk_cell_accessible_get_type" - c_gtk_cell_accessible_get_type :: IO GType - -type instance ParentTypes CellAccessible = CellAccessibleParentTypes -type CellAccessibleParentTypes = '[Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject CellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_cell_accessible_get_type - - -class GObject o => CellAccessibleK o -instance (GObject o, IsDescendantOf CellAccessible o) => CellAccessibleK o - -toCellAccessible :: CellAccessibleK o => o -> IO CellAccessible -toCellAccessible = unsafeCastTo CellAccessible - -noCellAccessible :: Maybe CellAccessible -noCellAccessible = Nothing - -type family ResolveCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellAccessibleMethod t CellAccessible, MethodInfo info CellAccessible p) => IsLabelProxy t (CellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellAccessibleMethod t CellAccessible, MethodInfo info CellAccessible p) => IsLabel t (CellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList CellAccessible = CellAccessibleAttributeList -type CellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellAccessible = CellAccessibleSignalList -type CellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/CellAccessible.hs-boot b/GI/Gtk/Objects/CellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.CellAccessible 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 CellAccessible = CellAccessible (ForeignPtr CellAccessible) -instance GObject CellAccessible where -class GObject o => CellAccessibleK o -instance (GObject o, IsDescendantOf CellAccessible o) => CellAccessibleK o diff --git a/GI/Gtk/Objects/CellArea.hs b/GI/Gtk/Objects/CellArea.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellArea.hs +++ /dev/null @@ -1,2167 +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.Gtk.Objects.CellArea - ( - --- * Exported types - CellArea(..) , - CellAreaK , - toCellArea , - noCellArea , - - - -- * Methods --- ** cellAreaActivate - CellAreaActivateMethodInfo , - cellAreaActivate , - - --- ** cellAreaActivateCell - CellAreaActivateCellMethodInfo , - cellAreaActivateCell , - - --- ** cellAreaAdd - CellAreaAddMethodInfo , - cellAreaAdd , - - --- ** cellAreaAddFocusSibling - CellAreaAddFocusSiblingMethodInfo , - cellAreaAddFocusSibling , - - --- ** cellAreaApplyAttributes - CellAreaApplyAttributesMethodInfo , - cellAreaApplyAttributes , - - --- ** cellAreaAttributeConnect - CellAreaAttributeConnectMethodInfo , - cellAreaAttributeConnect , - - --- ** cellAreaAttributeDisconnect - CellAreaAttributeDisconnectMethodInfo , - cellAreaAttributeDisconnect , - - --- ** cellAreaAttributeGetColumn - CellAreaAttributeGetColumnMethodInfo , - cellAreaAttributeGetColumn , - - --- ** cellAreaCellGetProperty - CellAreaCellGetPropertyMethodInfo , - cellAreaCellGetProperty , - - --- ** cellAreaCellSetProperty - CellAreaCellSetPropertyMethodInfo , - cellAreaCellSetProperty , - - --- ** cellAreaCopyContext - CellAreaCopyContextMethodInfo , - cellAreaCopyContext , - - --- ** cellAreaCreateContext - CellAreaCreateContextMethodInfo , - cellAreaCreateContext , - - --- ** cellAreaEvent - CellAreaEventMethodInfo , - cellAreaEvent , - - --- ** cellAreaFocus - CellAreaFocusMethodInfo , - cellAreaFocus , - - --- ** cellAreaForeach - CellAreaForeachMethodInfo , - cellAreaForeach , - - --- ** cellAreaForeachAlloc - CellAreaForeachAllocMethodInfo , - cellAreaForeachAlloc , - - --- ** cellAreaGetCellAllocation - CellAreaGetCellAllocationMethodInfo , - cellAreaGetCellAllocation , - - --- ** cellAreaGetCellAtPosition - CellAreaGetCellAtPositionMethodInfo , - cellAreaGetCellAtPosition , - - --- ** cellAreaGetCurrentPathString - CellAreaGetCurrentPathStringMethodInfo , - cellAreaGetCurrentPathString , - - --- ** cellAreaGetEditWidget - CellAreaGetEditWidgetMethodInfo , - cellAreaGetEditWidget , - - --- ** cellAreaGetEditedCell - CellAreaGetEditedCellMethodInfo , - cellAreaGetEditedCell , - - --- ** cellAreaGetFocusCell - CellAreaGetFocusCellMethodInfo , - cellAreaGetFocusCell , - - --- ** cellAreaGetFocusFromSibling - CellAreaGetFocusFromSiblingMethodInfo , - cellAreaGetFocusFromSibling , - - --- ** cellAreaGetFocusSiblings - CellAreaGetFocusSiblingsMethodInfo , - cellAreaGetFocusSiblings , - - --- ** cellAreaGetPreferredHeight - CellAreaGetPreferredHeightMethodInfo , - cellAreaGetPreferredHeight , - - --- ** cellAreaGetPreferredHeightForWidth - CellAreaGetPreferredHeightForWidthMethodInfo, - cellAreaGetPreferredHeightForWidth , - - --- ** cellAreaGetPreferredWidth - CellAreaGetPreferredWidthMethodInfo , - cellAreaGetPreferredWidth , - - --- ** cellAreaGetPreferredWidthForHeight - CellAreaGetPreferredWidthForHeightMethodInfo, - cellAreaGetPreferredWidthForHeight , - - --- ** cellAreaGetRequestMode - CellAreaGetRequestModeMethodInfo , - cellAreaGetRequestMode , - - --- ** cellAreaHasRenderer - CellAreaHasRendererMethodInfo , - cellAreaHasRenderer , - - --- ** cellAreaInnerCellArea - CellAreaInnerCellAreaMethodInfo , - cellAreaInnerCellArea , - - --- ** cellAreaIsActivatable - CellAreaIsActivatableMethodInfo , - cellAreaIsActivatable , - - --- ** cellAreaIsFocusSibling - CellAreaIsFocusSiblingMethodInfo , - cellAreaIsFocusSibling , - - --- ** cellAreaRemove - CellAreaRemoveMethodInfo , - cellAreaRemove , - - --- ** cellAreaRemoveFocusSibling - CellAreaRemoveFocusSiblingMethodInfo , - cellAreaRemoveFocusSibling , - - --- ** cellAreaRender - CellAreaRenderMethodInfo , - cellAreaRender , - - --- ** cellAreaRequestRenderer - CellAreaRequestRendererMethodInfo , - cellAreaRequestRenderer , - - --- ** cellAreaSetFocusCell - CellAreaSetFocusCellMethodInfo , - cellAreaSetFocusCell , - - --- ** cellAreaStopEditing - CellAreaStopEditingMethodInfo , - cellAreaStopEditing , - - - - - -- * Properties --- ** EditWidget - CellAreaEditWidgetPropertyInfo , - cellAreaEditWidget , - getCellAreaEditWidget , - - --- ** EditedCell - CellAreaEditedCellPropertyInfo , - cellAreaEditedCell , - getCellAreaEditedCell , - - --- ** FocusCell - CellAreaFocusCellPropertyInfo , - cellAreaFocusCell , - constructCellAreaFocusCell , - getCellAreaFocusCell , - setCellAreaFocusCell , - - - - - -- * Signals --- ** AddEditable - CellAreaAddEditableCallback , - CellAreaAddEditableCallbackC , - CellAreaAddEditableSignalInfo , - afterCellAreaAddEditable , - cellAreaAddEditableCallbackWrapper , - cellAreaAddEditableClosure , - mkCellAreaAddEditableCallback , - noCellAreaAddEditableCallback , - onCellAreaAddEditable , - - --- ** ApplyAttributes - CellAreaApplyAttributesCallback , - CellAreaApplyAttributesCallbackC , - CellAreaApplyAttributesSignalInfo , - afterCellAreaApplyAttributes , - cellAreaApplyAttributesCallbackWrapper , - cellAreaApplyAttributesClosure , - mkCellAreaApplyAttributesCallback , - noCellAreaApplyAttributesCallback , - onCellAreaApplyAttributes , - - --- ** FocusChanged - CellAreaFocusChangedCallback , - CellAreaFocusChangedCallbackC , - CellAreaFocusChangedSignalInfo , - afterCellAreaFocusChanged , - cellAreaFocusChangedCallbackWrapper , - cellAreaFocusChangedClosure , - mkCellAreaFocusChangedCallback , - noCellAreaFocusChangedCallback , - onCellAreaFocusChanged , - - --- ** RemoveEditable - CellAreaRemoveEditableCallback , - CellAreaRemoveEditableCallbackC , - CellAreaRemoveEditableSignalInfo , - afterCellAreaRemoveEditable , - cellAreaRemoveEditableCallbackWrapper , - cellAreaRemoveEditableClosure , - mkCellAreaRemoveEditableCallback , - noCellAreaRemoveEditableCallback , - onCellAreaRemoveEditable , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype CellArea = CellArea (ForeignPtr CellArea) -foreign import ccall "gtk_cell_area_get_type" - c_gtk_cell_area_get_type :: IO GType - -type instance ParentTypes CellArea = CellAreaParentTypes -type CellAreaParentTypes = '[GObject.Object, Buildable, CellLayout] - -instance GObject CellArea where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_area_get_type - - -class GObject o => CellAreaK o -instance (GObject o, IsDescendantOf CellArea o) => CellAreaK o - -toCellArea :: CellAreaK o => o -> IO CellArea -toCellArea = unsafeCastTo CellArea - -noCellArea :: Maybe CellArea -noCellArea = Nothing - -type family ResolveCellAreaMethod (t :: Symbol) (o :: *) :: * where - ResolveCellAreaMethod "activate" o = CellAreaActivateMethodInfo - ResolveCellAreaMethod "activateCell" o = CellAreaActivateCellMethodInfo - ResolveCellAreaMethod "add" o = CellAreaAddMethodInfo - ResolveCellAreaMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveCellAreaMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCellAreaMethod "addFocusSibling" o = CellAreaAddFocusSiblingMethodInfo - ResolveCellAreaMethod "applyAttributes" o = CellAreaApplyAttributesMethodInfo - ResolveCellAreaMethod "attributeConnect" o = CellAreaAttributeConnectMethodInfo - ResolveCellAreaMethod "attributeDisconnect" o = CellAreaAttributeDisconnectMethodInfo - ResolveCellAreaMethod "attributeGetColumn" o = CellAreaAttributeGetColumnMethodInfo - ResolveCellAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellAreaMethod "cellGetProperty" o = CellAreaCellGetPropertyMethodInfo - ResolveCellAreaMethod "cellSetProperty" o = CellAreaCellSetPropertyMethodInfo - ResolveCellAreaMethod "clear" o = CellLayoutClearMethodInfo - ResolveCellAreaMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveCellAreaMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCellAreaMethod "copyContext" o = CellAreaCopyContextMethodInfo - ResolveCellAreaMethod "createContext" o = CellAreaCreateContextMethodInfo - ResolveCellAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCellAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCellAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCellAreaMethod "event" o = CellAreaEventMethodInfo - ResolveCellAreaMethod "focus" o = CellAreaFocusMethodInfo - ResolveCellAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellAreaMethod "foreach" o = CellAreaForeachMethodInfo - ResolveCellAreaMethod "foreachAlloc" o = CellAreaForeachAllocMethodInfo - ResolveCellAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellAreaMethod "hasRenderer" o = CellAreaHasRendererMethodInfo - ResolveCellAreaMethod "innerCellArea" o = CellAreaInnerCellAreaMethodInfo - ResolveCellAreaMethod "isActivatable" o = CellAreaIsActivatableMethodInfo - ResolveCellAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellAreaMethod "isFocusSibling" o = CellAreaIsFocusSiblingMethodInfo - ResolveCellAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellAreaMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveCellAreaMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveCellAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCellAreaMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellAreaMethod "remove" o = CellAreaRemoveMethodInfo - ResolveCellAreaMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo - ResolveCellAreaMethod "render" o = CellAreaRenderMethodInfo - ResolveCellAreaMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveCellAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellAreaMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo - ResolveCellAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellAreaMethod "stopEditing" o = CellAreaStopEditingMethodInfo - ResolveCellAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellAreaMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveCellAreaMethod "getCellAllocation" o = CellAreaGetCellAllocationMethodInfo - ResolveCellAreaMethod "getCellAtPosition" o = CellAreaGetCellAtPositionMethodInfo - ResolveCellAreaMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveCellAreaMethod "getCurrentPathString" o = CellAreaGetCurrentPathStringMethodInfo - ResolveCellAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellAreaMethod "getEditWidget" o = CellAreaGetEditWidgetMethodInfo - ResolveCellAreaMethod "getEditedCell" o = CellAreaGetEditedCellMethodInfo - ResolveCellAreaMethod "getFocusCell" o = CellAreaGetFocusCellMethodInfo - ResolveCellAreaMethod "getFocusFromSibling" o = CellAreaGetFocusFromSiblingMethodInfo - ResolveCellAreaMethod "getFocusSiblings" o = CellAreaGetFocusSiblingsMethodInfo - ResolveCellAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCellAreaMethod "getName" o = BuildableGetNameMethodInfo - ResolveCellAreaMethod "getPreferredHeight" o = CellAreaGetPreferredHeightMethodInfo - ResolveCellAreaMethod "getPreferredHeightForWidth" o = CellAreaGetPreferredHeightForWidthMethodInfo - ResolveCellAreaMethod "getPreferredWidth" o = CellAreaGetPreferredWidthMethodInfo - ResolveCellAreaMethod "getPreferredWidthForHeight" o = CellAreaGetPreferredWidthForHeightMethodInfo - ResolveCellAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellAreaMethod "getRequestMode" o = CellAreaGetRequestModeMethodInfo - ResolveCellAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCellAreaMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveCellAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellAreaMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo - ResolveCellAreaMethod "setName" o = BuildableSetNameMethodInfo - ResolveCellAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellAreaMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellAreaMethod t CellArea, MethodInfo info CellArea p) => IsLabelProxy t (CellArea -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellAreaMethod t CellArea, MethodInfo info CellArea p) => IsLabel t (CellArea -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellArea::add-editable -type CellAreaAddEditableCallback = - CellRenderer -> - CellEditable -> - Gdk.Rectangle -> - T.Text -> - IO () - -noCellAreaAddEditableCallback :: Maybe CellAreaAddEditableCallback -noCellAreaAddEditableCallback = Nothing - -type CellAreaAddEditableCallbackC = - Ptr () -> -- object - Ptr CellRenderer -> - Ptr CellEditable -> - Ptr Gdk.Rectangle -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellAreaAddEditableCallback :: CellAreaAddEditableCallbackC -> IO (FunPtr CellAreaAddEditableCallbackC) - -cellAreaAddEditableClosure :: CellAreaAddEditableCallback -> IO Closure -cellAreaAddEditableClosure cb = newCClosure =<< mkCellAreaAddEditableCallback wrapped - where wrapped = cellAreaAddEditableCallbackWrapper cb - -cellAreaAddEditableCallbackWrapper :: - CellAreaAddEditableCallback -> - Ptr () -> - Ptr CellRenderer -> - Ptr CellEditable -> - Ptr Gdk.Rectangle -> - CString -> - Ptr () -> - IO () -cellAreaAddEditableCallbackWrapper _cb _ renderer editable cellArea path _ = do - renderer' <- (newObject CellRenderer) renderer - editable' <- (newObject CellEditable) editable - cellArea' <- (newBoxed Gdk.Rectangle) cellArea - path' <- cstringToText path - _cb renderer' editable' cellArea' path' - -onCellAreaAddEditable :: (GObject a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId -onCellAreaAddEditable obj cb = liftIO $ connectCellAreaAddEditable obj cb SignalConnectBefore -afterCellAreaAddEditable :: (GObject a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId -afterCellAreaAddEditable obj cb = connectCellAreaAddEditable obj cb SignalConnectAfter - -connectCellAreaAddEditable :: (GObject a, MonadIO m) => - a -> CellAreaAddEditableCallback -> SignalConnectMode -> m SignalHandlerId -connectCellAreaAddEditable obj cb after = liftIO $ do - cb' <- mkCellAreaAddEditableCallback (cellAreaAddEditableCallbackWrapper cb) - connectSignalFunPtr obj "add-editable" cb' after - --- signal CellArea::apply-attributes -type CellAreaApplyAttributesCallback = - TreeModel -> - TreeIter -> - Bool -> - Bool -> - IO () - -noCellAreaApplyAttributesCallback :: Maybe CellAreaApplyAttributesCallback -noCellAreaApplyAttributesCallback = Nothing - -type CellAreaApplyAttributesCallbackC = - Ptr () -> -- object - Ptr TreeModel -> - Ptr TreeIter -> - CInt -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellAreaApplyAttributesCallback :: CellAreaApplyAttributesCallbackC -> IO (FunPtr CellAreaApplyAttributesCallbackC) - -cellAreaApplyAttributesClosure :: CellAreaApplyAttributesCallback -> IO Closure -cellAreaApplyAttributesClosure cb = newCClosure =<< mkCellAreaApplyAttributesCallback wrapped - where wrapped = cellAreaApplyAttributesCallbackWrapper cb - -cellAreaApplyAttributesCallbackWrapper :: - CellAreaApplyAttributesCallback -> - Ptr () -> - Ptr TreeModel -> - Ptr TreeIter -> - CInt -> - CInt -> - Ptr () -> - IO () -cellAreaApplyAttributesCallbackWrapper _cb _ model iter isExpander isExpanded _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - let isExpander' = (/= 0) isExpander - let isExpanded' = (/= 0) isExpanded - _cb model' iter' isExpander' isExpanded' - -onCellAreaApplyAttributes :: (GObject a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId -onCellAreaApplyAttributes obj cb = liftIO $ connectCellAreaApplyAttributes obj cb SignalConnectBefore -afterCellAreaApplyAttributes :: (GObject a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId -afterCellAreaApplyAttributes obj cb = connectCellAreaApplyAttributes obj cb SignalConnectAfter - -connectCellAreaApplyAttributes :: (GObject a, MonadIO m) => - a -> CellAreaApplyAttributesCallback -> SignalConnectMode -> m SignalHandlerId -connectCellAreaApplyAttributes obj cb after = liftIO $ do - cb' <- mkCellAreaApplyAttributesCallback (cellAreaApplyAttributesCallbackWrapper cb) - connectSignalFunPtr obj "apply-attributes" cb' after - --- signal CellArea::focus-changed -type CellAreaFocusChangedCallback = - CellRenderer -> - T.Text -> - IO () - -noCellAreaFocusChangedCallback :: Maybe CellAreaFocusChangedCallback -noCellAreaFocusChangedCallback = Nothing - -type CellAreaFocusChangedCallbackC = - Ptr () -> -- object - Ptr CellRenderer -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellAreaFocusChangedCallback :: CellAreaFocusChangedCallbackC -> IO (FunPtr CellAreaFocusChangedCallbackC) - -cellAreaFocusChangedClosure :: CellAreaFocusChangedCallback -> IO Closure -cellAreaFocusChangedClosure cb = newCClosure =<< mkCellAreaFocusChangedCallback wrapped - where wrapped = cellAreaFocusChangedCallbackWrapper cb - -cellAreaFocusChangedCallbackWrapper :: - CellAreaFocusChangedCallback -> - Ptr () -> - Ptr CellRenderer -> - CString -> - Ptr () -> - IO () -cellAreaFocusChangedCallbackWrapper _cb _ renderer path _ = do - renderer' <- (newObject CellRenderer) renderer - path' <- cstringToText path - _cb renderer' path' - -onCellAreaFocusChanged :: (GObject a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId -onCellAreaFocusChanged obj cb = liftIO $ connectCellAreaFocusChanged obj cb SignalConnectBefore -afterCellAreaFocusChanged :: (GObject a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId -afterCellAreaFocusChanged obj cb = connectCellAreaFocusChanged obj cb SignalConnectAfter - -connectCellAreaFocusChanged :: (GObject a, MonadIO m) => - a -> CellAreaFocusChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellAreaFocusChanged obj cb after = liftIO $ do - cb' <- mkCellAreaFocusChangedCallback (cellAreaFocusChangedCallbackWrapper cb) - connectSignalFunPtr obj "focus-changed" cb' after - --- signal CellArea::remove-editable -type CellAreaRemoveEditableCallback = - CellRenderer -> - CellEditable -> - IO () - -noCellAreaRemoveEditableCallback :: Maybe CellAreaRemoveEditableCallback -noCellAreaRemoveEditableCallback = Nothing - -type CellAreaRemoveEditableCallbackC = - Ptr () -> -- object - Ptr CellRenderer -> - Ptr CellEditable -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellAreaRemoveEditableCallback :: CellAreaRemoveEditableCallbackC -> IO (FunPtr CellAreaRemoveEditableCallbackC) - -cellAreaRemoveEditableClosure :: CellAreaRemoveEditableCallback -> IO Closure -cellAreaRemoveEditableClosure cb = newCClosure =<< mkCellAreaRemoveEditableCallback wrapped - where wrapped = cellAreaRemoveEditableCallbackWrapper cb - -cellAreaRemoveEditableCallbackWrapper :: - CellAreaRemoveEditableCallback -> - Ptr () -> - Ptr CellRenderer -> - Ptr CellEditable -> - Ptr () -> - IO () -cellAreaRemoveEditableCallbackWrapper _cb _ renderer editable _ = do - renderer' <- (newObject CellRenderer) renderer - editable' <- (newObject CellEditable) editable - _cb renderer' editable' - -onCellAreaRemoveEditable :: (GObject a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId -onCellAreaRemoveEditable obj cb = liftIO $ connectCellAreaRemoveEditable obj cb SignalConnectBefore -afterCellAreaRemoveEditable :: (GObject a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId -afterCellAreaRemoveEditable obj cb = connectCellAreaRemoveEditable obj cb SignalConnectAfter - -connectCellAreaRemoveEditable :: (GObject a, MonadIO m) => - a -> CellAreaRemoveEditableCallback -> SignalConnectMode -> m SignalHandlerId -connectCellAreaRemoveEditable obj cb after = liftIO $ do - cb' <- mkCellAreaRemoveEditableCallback (cellAreaRemoveEditableCallbackWrapper cb) - connectSignalFunPtr obj "remove-editable" cb' after - --- VVV Prop "edit-widget" - -- Type: TInterface "Gtk" "CellEditable" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getCellAreaEditWidget :: (MonadIO m, CellAreaK o) => o -> m CellEditable -getCellAreaEditWidget obj = liftIO $ checkUnexpectedNothing "getCellAreaEditWidget" $ getObjectPropertyObject obj "edit-widget" CellEditable - -data CellAreaEditWidgetPropertyInfo -instance AttrInfo CellAreaEditWidgetPropertyInfo where - type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK - type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable - type AttrLabel CellAreaEditWidgetPropertyInfo = "edit-widget" - attrGet _ = getCellAreaEditWidget - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "edited-cell" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getCellAreaEditedCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaEditedCell obj = liftIO $ checkUnexpectedNothing "getCellAreaEditedCell" $ getObjectPropertyObject obj "edited-cell" CellRenderer - -data CellAreaEditedCellPropertyInfo -instance AttrInfo CellAreaEditedCellPropertyInfo where - type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK - type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer - type AttrLabel CellAreaEditedCellPropertyInfo = "edited-cell" - attrGet _ = getCellAreaEditedCell - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "focus-cell" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellAreaFocusCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaFocusCell obj = liftIO $ checkUnexpectedNothing "getCellAreaFocusCell" $ getObjectPropertyObject obj "focus-cell" CellRenderer - -setCellAreaFocusCell :: (MonadIO m, CellAreaK o, CellRendererK a) => o -> a -> m () -setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" (Just val) - -constructCellAreaFocusCell :: (CellRendererK a) => a -> IO ([Char], GValue) -constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" (Just val) - -data CellAreaFocusCellPropertyInfo -instance AttrInfo CellAreaFocusCellPropertyInfo where - type AttrAllowedOps CellAreaFocusCellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellAreaFocusCellPropertyInfo = CellRendererK - type AttrBaseTypeConstraint CellAreaFocusCellPropertyInfo = CellAreaK - type AttrGetType CellAreaFocusCellPropertyInfo = CellRenderer - type AttrLabel CellAreaFocusCellPropertyInfo = "focus-cell" - attrGet _ = getCellAreaFocusCell - attrSet _ = setCellAreaFocusCell - attrConstruct _ = constructCellAreaFocusCell - attrClear _ = undefined - -type instance AttributeList CellArea = CellAreaAttributeList -type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) - -cellAreaEditWidget :: AttrLabelProxy "editWidget" -cellAreaEditWidget = AttrLabelProxy - -cellAreaEditedCell :: AttrLabelProxy "editedCell" -cellAreaEditedCell = AttrLabelProxy - -cellAreaFocusCell :: AttrLabelProxy "focusCell" -cellAreaFocusCell = AttrLabelProxy - -data CellAreaAddEditableSignalInfo -instance SignalInfo CellAreaAddEditableSignalInfo where - type HaskellCallbackType CellAreaAddEditableSignalInfo = CellAreaAddEditableCallback - connectSignal _ = connectCellAreaAddEditable - -data CellAreaApplyAttributesSignalInfo -instance SignalInfo CellAreaApplyAttributesSignalInfo where - type HaskellCallbackType CellAreaApplyAttributesSignalInfo = CellAreaApplyAttributesCallback - connectSignal _ = connectCellAreaApplyAttributes - -data CellAreaFocusChangedSignalInfo -instance SignalInfo CellAreaFocusChangedSignalInfo where - type HaskellCallbackType CellAreaFocusChangedSignalInfo = CellAreaFocusChangedCallback - connectSignal _ = connectCellAreaFocusChanged - -data CellAreaRemoveEditableSignalInfo -instance SignalInfo CellAreaRemoveEditableSignalInfo where - type HaskellCallbackType CellAreaRemoveEditableSignalInfo = CellAreaRemoveEditableCallback - connectSignal _ = connectCellAreaRemoveEditable - -type instance SignalList CellArea = CellAreaSignalList -type CellAreaSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) - --- method CellArea::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_only", argType = TBasicType TBoolean, 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 "gtk_cell_area_activate" gtk_cell_area_activate :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - CInt -> -- edit_only : TBasicType TBoolean - IO CInt - - -cellAreaActivate :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> Bool -- editOnly - -> m Bool -- result -cellAreaActivate _obj context widget cellArea flags editOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - let editOnly' = (fromIntegral . fromEnum) editOnly - result <- gtk_cell_area_activate _obj' context' widget' cellArea' flags' editOnly' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cellArea - return result' - -data CellAreaActivateMethodInfo -instance (signature ~ (b -> c -> Gdk.Rectangle -> [CellRendererState] -> Bool -> m Bool), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaActivateMethodInfo a signature where - overloadedMethod _ = cellAreaActivate - --- method CellArea::activate_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", 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 "gtk_cell_area_activate_cell" gtk_cell_area_activate_cell :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO CInt - - -cellAreaActivateCell :: - (MonadIO m, CellAreaK a, WidgetK b, CellRendererK c) => - a -- _obj - -> b -- widget - -> c -- renderer - -> Gdk.Event -- event - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> m Bool -- result -cellAreaActivateCell _obj widget renderer event cellArea flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let renderer' = unsafeManagedPtrCastPtr renderer - let event' = unsafeManagedPtrGetPtr event - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - result <- gtk_cell_area_activate_cell _obj' widget' renderer' event' cellArea' flags' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr renderer - touchManagedPtr event - touchManagedPtr cellArea - return result' - -data CellAreaActivateCellMethodInfo -instance (signature ~ (b -> c -> Gdk.Event -> Gdk.Rectangle -> [CellRendererState] -> m Bool), MonadIO m, CellAreaK a, WidgetK b, CellRendererK c) => MethodInfo CellAreaActivateCellMethodInfo a signature where - overloadedMethod _ = cellAreaActivateCell - --- method CellArea::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_add" gtk_cell_area_add :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO () - - -cellAreaAdd :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m () -- result -cellAreaAdd _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - gtk_cell_area_add _obj' renderer' - touchManagedPtr _obj - touchManagedPtr renderer - return () - -data CellAreaAddMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAddMethodInfo a signature where - overloadedMethod _ = cellAreaAdd - --- method CellArea::add_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_add_focus_sibling" gtk_cell_area_add_focus_sibling :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer" - IO () - - -cellAreaAddFocusSibling :: - (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -- _obj - -> b -- renderer - -> c -- sibling - -> m () -- result -cellAreaAddFocusSibling _obj renderer sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let sibling' = unsafeManagedPtrCastPtr sibling - gtk_cell_area_add_focus_sibling _obj' renderer' sibling' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr sibling - return () - -data CellAreaAddFocusSiblingMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaAddFocusSiblingMethodInfo a signature where - overloadedMethod _ = cellAreaAddFocusSibling - --- method CellArea::apply_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", 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 "gtk_cell_area_apply_attributes" gtk_cell_area_apply_attributes :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - CInt -> -- is_expander : TBasicType TBoolean - CInt -> -- is_expanded : TBasicType TBoolean - IO () - - -cellAreaApplyAttributes :: - (MonadIO m, CellAreaK a, TreeModelK b) => - a -- _obj - -> b -- treeModel - -> TreeIter -- iter - -> Bool -- isExpander - -> Bool -- isExpanded - -> m () -- result -cellAreaApplyAttributes _obj treeModel iter isExpander isExpanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let treeModel' = unsafeManagedPtrCastPtr treeModel - let iter' = unsafeManagedPtrGetPtr iter - let isExpander' = (fromIntegral . fromEnum) isExpander - let isExpanded' = (fromIntegral . fromEnum) isExpanded - gtk_cell_area_apply_attributes _obj' treeModel' iter' isExpander' isExpanded' - touchManagedPtr _obj - touchManagedPtr treeModel - touchManagedPtr iter - return () - -data CellAreaApplyAttributesMethodInfo -instance (signature ~ (b -> TreeIter -> Bool -> Bool -> m ()), MonadIO m, CellAreaK a, TreeModelK b) => MethodInfo CellAreaApplyAttributesMethodInfo a signature where - overloadedMethod _ = cellAreaApplyAttributes - --- method CellArea::attribute_connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_attribute_connect" gtk_cell_area_attribute_connect :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt - IO () - - -cellAreaAttributeConnect :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> T.Text -- attribute - -> Int32 -- column - -> m () -- result -cellAreaAttributeConnect _obj renderer attribute column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - attribute' <- textToCString attribute - gtk_cell_area_attribute_connect _obj' renderer' attribute' column - touchManagedPtr _obj - touchManagedPtr renderer - freeMem attribute' - return () - -data CellAreaAttributeConnectMethodInfo -instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeConnectMethodInfo a signature where - overloadedMethod _ = cellAreaAttributeConnect - --- method CellArea::attribute_disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", 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 "gtk_cell_area_attribute_disconnect" gtk_cell_area_attribute_disconnect :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CString -> -- attribute : TBasicType TUTF8 - IO () - - -cellAreaAttributeDisconnect :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> T.Text -- attribute - -> m () -- result -cellAreaAttributeDisconnect _obj renderer attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - attribute' <- textToCString attribute - gtk_cell_area_attribute_disconnect _obj' renderer' attribute' - touchManagedPtr _obj - touchManagedPtr renderer - freeMem attribute' - return () - -data CellAreaAttributeDisconnectMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeDisconnectMethodInfo a signature where - overloadedMethod _ = cellAreaAttributeDisconnect - --- method CellArea::attribute_get_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, 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 "gtk_cell_area_attribute_get_column" gtk_cell_area_attribute_get_column :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CString -> -- attribute : TBasicType TUTF8 - IO Int32 - - -cellAreaAttributeGetColumn :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> T.Text -- attribute - -> m Int32 -- result -cellAreaAttributeGetColumn _obj renderer attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - attribute' <- textToCString attribute - result <- gtk_cell_area_attribute_get_column _obj' renderer' attribute' - touchManagedPtr _obj - touchManagedPtr renderer - freeMem attribute' - return result - -data CellAreaAttributeGetColumnMethodInfo -instance (signature ~ (b -> T.Text -> m Int32), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeGetColumnMethodInfo a signature where - overloadedMethod _ = cellAreaAttributeGetColumn - --- method CellArea::cell_get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_cell_area_cell_get_property" gtk_cell_area_cell_get_property :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -cellAreaCellGetProperty :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -cellAreaCellGetProperty _obj renderer propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_get_property _obj' renderer' propertyName' value' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr value - freeMem propertyName' - return () - -data CellAreaCellGetPropertyMethodInfo -instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaCellGetPropertyMethodInfo a signature where - overloadedMethod _ = cellAreaCellGetProperty - --- method CellArea::cell_set_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_cell_area_cell_set_property" gtk_cell_area_cell_set_property :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -cellAreaCellSetProperty :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -cellAreaCellSetProperty _obj renderer propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_set_property _obj' renderer' propertyName' value' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr value - freeMem propertyName' - return () - -data CellAreaCellSetPropertyMethodInfo -instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaCellSetPropertyMethodInfo a signature where - overloadedMethod _ = cellAreaCellSetProperty - --- method CellArea::copy_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellAreaContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_copy_context" gtk_cell_area_copy_context :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - IO (Ptr CellAreaContext) - - -cellAreaCopyContext :: - (MonadIO m, CellAreaK a, CellAreaContextK b) => - a -- _obj - -> b -- context - -> m CellAreaContext -- result -cellAreaCopyContext _obj context = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - result <- gtk_cell_area_copy_context _obj' context' - checkUnexpectedReturnNULL "gtk_cell_area_copy_context" result - result' <- (wrapObject CellAreaContext) result - touchManagedPtr _obj - touchManagedPtr context - return result' - -data CellAreaCopyContextMethodInfo -instance (signature ~ (b -> m CellAreaContext), MonadIO m, CellAreaK a, CellAreaContextK b) => MethodInfo CellAreaCopyContextMethodInfo a signature where - overloadedMethod _ = cellAreaCopyContext - --- method CellArea::create_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellAreaContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_create_context" gtk_cell_area_create_context :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO (Ptr CellAreaContext) - - -cellAreaCreateContext :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m CellAreaContext -- result -cellAreaCreateContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_create_context _obj' - checkUnexpectedReturnNULL "gtk_cell_area_create_context" result - result' <- (wrapObject CellAreaContext) result - touchManagedPtr _obj - return result' - -data CellAreaCreateContextMethodInfo -instance (signature ~ (m CellAreaContext), MonadIO m, CellAreaK a) => MethodInfo CellAreaCreateContextMethodInfo a signature where - overloadedMethod _ = cellAreaCreateContext - --- method CellArea::event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", 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 "gtk_cell_area_event" gtk_cell_area_event :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO Int32 - - -cellAreaEvent :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Gdk.Event -- event - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> m Int32 -- result -cellAreaEvent _obj context widget event cellArea flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let event' = unsafeManagedPtrGetPtr event - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - result <- gtk_cell_area_event _obj' context' widget' event' cellArea' flags' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr event - touchManagedPtr cellArea - return result - -data CellAreaEventMethodInfo -instance (signature ~ (b -> c -> Gdk.Event -> Gdk.Rectangle -> [CellRendererState] -> m Int32), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaEventMethodInfo a signature where - overloadedMethod _ = cellAreaEvent - --- method CellArea::focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", 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 "gtk_cell_area_focus" gtk_cell_area_focus :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -cellAreaFocus :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> DirectionType -- direction - -> m Bool -- result -cellAreaFocus _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_cell_area_focus _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellAreaFocusMethodInfo -instance (signature ~ (DirectionType -> m Bool), MonadIO m, CellAreaK a) => MethodInfo CellAreaFocusMethodInfo a signature where - overloadedMethod _ = cellAreaFocus - --- method CellArea::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_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 "gtk_cell_area_foreach" gtk_cell_area_foreach :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - FunPtr CellCallbackC -> -- callback : TInterface "Gtk" "CellCallback" - Ptr () -> -- callback_data : TBasicType TPtr - IO () - - -cellAreaForeach :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> CellCallback -- callback - -> m () -- result -cellAreaForeach _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCellCallback (cellCallbackWrapper Nothing callback) - let callbackData = nullPtr - gtk_cell_area_foreach _obj' callback' callbackData - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - -data CellAreaForeachMethodInfo -instance (signature ~ (CellCallback -> m ()), MonadIO m, CellAreaK a) => MethodInfo CellAreaForeachMethodInfo a signature where - overloadedMethod _ = cellAreaForeach - --- method CellArea::foreach_alloc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_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 "gtk_cell_area_foreach_alloc" gtk_cell_area_foreach_alloc :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" - FunPtr CellAllocCallbackC -> -- callback : TInterface "Gtk" "CellAllocCallback" - Ptr () -> -- callback_data : TBasicType TPtr - IO () - - -cellAreaForeachAlloc :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Gdk.Rectangle -- cellArea - -> Gdk.Rectangle -- backgroundArea - -> CellAllocCallback -- callback - -> m () -- result -cellAreaForeachAlloc _obj context widget cellArea backgroundArea callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cellArea' = unsafeManagedPtrGetPtr cellArea - let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea - callback' <- mkCellAllocCallback (cellAllocCallbackWrapper Nothing callback) - let callbackData = nullPtr - gtk_cell_area_foreach_alloc _obj' context' widget' cellArea' backgroundArea' callback' callbackData - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cellArea - touchManagedPtr backgroundArea - return () - -data CellAreaForeachAllocMethodInfo -instance (signature ~ (b -> c -> Gdk.Rectangle -> Gdk.Rectangle -> CellAllocCallback -> m ()), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaForeachAllocMethodInfo a signature where - overloadedMethod _ = cellAreaForeachAlloc - --- method CellArea::get_cell_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_cell_allocation" gtk_cell_area_get_cell_allocation :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -cellAreaGetCellAllocation :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) => - a -- _obj - -> b -- context - -> c -- widget - -> d -- renderer - -> Gdk.Rectangle -- cellArea - -> m (Gdk.Rectangle) -- result -cellAreaGetCellAllocation _obj context widget renderer cellArea = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let renderer' = unsafeManagedPtrCastPtr renderer - let cellArea' = unsafeManagedPtrGetPtr cellArea - allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_area_get_cell_allocation _obj' context' widget' renderer' cellArea' allocation - allocation' <- (wrapBoxed Gdk.Rectangle) allocation - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr renderer - touchManagedPtr cellArea - return allocation' - -data CellAreaGetCellAllocationMethodInfo -instance (signature ~ (b -> c -> d -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) => MethodInfo CellAreaGetCellAllocationMethodInfo a signature where - overloadedMethod _ = cellAreaGetCellAllocation - --- method CellArea::get_cell_at_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", 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 = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRenderer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_cell_at_position" gtk_cell_area_get_cell_at_position :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr Gdk.Rectangle -> -- alloc_area : TInterface "Gdk" "Rectangle" - IO (Ptr CellRenderer) - - -cellAreaGetCellAtPosition :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Gdk.Rectangle -- cellArea - -> Int32 -- x - -> Int32 -- y - -> m (CellRenderer,Gdk.Rectangle) -- result -cellAreaGetCellAtPosition _obj context widget cellArea x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cellArea' = unsafeManagedPtrGetPtr cellArea - allocArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_cell_area_get_cell_at_position _obj' context' widget' cellArea' x y allocArea - checkUnexpectedReturnNULL "gtk_cell_area_get_cell_at_position" result - result' <- (newObject CellRenderer) result - allocArea' <- (wrapBoxed Gdk.Rectangle) allocArea - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cellArea - return (result', allocArea') - -data CellAreaGetCellAtPositionMethodInfo -instance (signature ~ (b -> c -> Gdk.Rectangle -> Int32 -> Int32 -> m (CellRenderer,Gdk.Rectangle)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetCellAtPositionMethodInfo a signature where - overloadedMethod _ = cellAreaGetCellAtPosition - --- method CellArea::get_current_path_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", 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 "gtk_cell_area_get_current_path_string" gtk_cell_area_get_current_path_string :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO CString - - -cellAreaGetCurrentPathString :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m T.Text -- result -cellAreaGetCurrentPathString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_get_current_path_string _obj' - checkUnexpectedReturnNULL "gtk_cell_area_get_current_path_string" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data CellAreaGetCurrentPathStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetCurrentPathStringMethodInfo a signature where - overloadedMethod _ = cellAreaGetCurrentPathString - --- method CellArea::get_edit_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellEditable") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_edit_widget" gtk_cell_area_get_edit_widget :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO (Ptr CellEditable) - - -cellAreaGetEditWidget :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m CellEditable -- result -cellAreaGetEditWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_get_edit_widget _obj' - checkUnexpectedReturnNULL "gtk_cell_area_get_edit_widget" result - result' <- (newObject CellEditable) result - touchManagedPtr _obj - return result' - -data CellAreaGetEditWidgetMethodInfo -instance (signature ~ (m CellEditable), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetEditWidgetMethodInfo a signature where - overloadedMethod _ = cellAreaGetEditWidget - --- method CellArea::get_edited_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRenderer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_edited_cell" gtk_cell_area_get_edited_cell :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO (Ptr CellRenderer) - - -cellAreaGetEditedCell :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m CellRenderer -- result -cellAreaGetEditedCell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_get_edited_cell _obj' - checkUnexpectedReturnNULL "gtk_cell_area_get_edited_cell" result - result' <- (newObject CellRenderer) result - touchManagedPtr _obj - return result' - -data CellAreaGetEditedCellMethodInfo -instance (signature ~ (m CellRenderer), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetEditedCellMethodInfo a signature where - overloadedMethod _ = cellAreaGetEditedCell - --- method CellArea::get_focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRenderer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_focus_cell" gtk_cell_area_get_focus_cell :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO (Ptr CellRenderer) - - -cellAreaGetFocusCell :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m CellRenderer -- result -cellAreaGetFocusCell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_get_focus_cell _obj' - checkUnexpectedReturnNULL "gtk_cell_area_get_focus_cell" result - result' <- (newObject CellRenderer) result - touchManagedPtr _obj - return result' - -data CellAreaGetFocusCellMethodInfo -instance (signature ~ (m CellRenderer), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetFocusCellMethodInfo a signature where - overloadedMethod _ = cellAreaGetFocusCell - --- method CellArea::get_focus_from_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRenderer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_focus_from_sibling" gtk_cell_area_get_focus_from_sibling :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO (Ptr CellRenderer) - - -cellAreaGetFocusFromSibling :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m CellRenderer -- result -cellAreaGetFocusFromSibling _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - result <- gtk_cell_area_get_focus_from_sibling _obj' renderer' - checkUnexpectedReturnNULL "gtk_cell_area_get_focus_from_sibling" result - result' <- (newObject CellRenderer) result - touchManagedPtr _obj - touchManagedPtr renderer - return result' - -data CellAreaGetFocusFromSiblingMethodInfo -instance (signature ~ (b -> m CellRenderer), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaGetFocusFromSiblingMethodInfo a signature where - overloadedMethod _ = cellAreaGetFocusFromSibling - --- method CellArea::get_focus_siblings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_focus_siblings" gtk_cell_area_get_focus_siblings :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO (Ptr (GList (Ptr CellRenderer))) - - -cellAreaGetFocusSiblings :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m [CellRenderer] -- result -cellAreaGetFocusSiblings _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - result <- gtk_cell_area_get_focus_siblings _obj' renderer' - result' <- unpackGList result - result'' <- mapM (newObject CellRenderer) result' - touchManagedPtr _obj - touchManagedPtr renderer - return result'' - -data CellAreaGetFocusSiblingsMethodInfo -instance (signature ~ (b -> m [CellRenderer]), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaGetFocusSiblingsMethodInfo a signature where - overloadedMethod _ = cellAreaGetFocusSiblings - --- method CellArea::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_cell_area_get_preferred_height" gtk_cell_area_get_preferred_height :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellAreaGetPreferredHeight :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> m (Int32,Int32) -- result -cellAreaGetPreferredHeight _obj context widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height _obj' context' widget' minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data CellAreaGetPreferredHeightMethodInfo -instance (signature ~ (b -> c -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredHeightMethodInfo a signature where - overloadedMethod _ = cellAreaGetPreferredHeight - --- method CellArea::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_cell_area_get_preferred_height_for_width" gtk_cell_area_get_preferred_height_for_width :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellAreaGetPreferredHeightForWidth :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Int32 -- width - -> m (Int32,Int32) -- result -cellAreaGetPreferredHeightForWidth _obj context widget width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height_for_width _obj' context' widget' width minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data CellAreaGetPreferredHeightForWidthMethodInfo -instance (signature ~ (b -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredHeightForWidthMethodInfo a signature where - overloadedMethod _ = cellAreaGetPreferredHeightForWidth - --- method CellArea::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_cell_area_get_preferred_width" gtk_cell_area_get_preferred_width :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellAreaGetPreferredWidth :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> m (Int32,Int32) -- result -cellAreaGetPreferredWidth _obj context widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width _obj' context' widget' minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data CellAreaGetPreferredWidthMethodInfo -instance (signature ~ (b -> c -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredWidthMethodInfo a signature where - overloadedMethod _ = cellAreaGetPreferredWidth - --- method CellArea::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_cell_area_get_preferred_width_for_height" gtk_cell_area_get_preferred_width_for_height :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellAreaGetPreferredWidthForHeight :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Int32 -- height - -> m (Int32,Int32) -- result -cellAreaGetPreferredWidthForHeight _obj context widget height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width_for_height _obj' context' widget' height minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data CellAreaGetPreferredWidthForHeightMethodInfo -instance (signature ~ (b -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredWidthForHeightMethodInfo a signature where - overloadedMethod _ = cellAreaGetPreferredWidthForHeight - --- method CellArea::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeRequestMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_get_request_mode" gtk_cell_area_get_request_mode :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO CUInt - - -cellAreaGetRequestMode :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m SizeRequestMode -- result -cellAreaGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data CellAreaGetRequestModeMethodInfo -instance (signature ~ (m SizeRequestMode), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetRequestModeMethodInfo a signature where - overloadedMethod _ = cellAreaGetRequestMode - --- method CellArea::has_renderer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_has_renderer" gtk_cell_area_has_renderer :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO CInt - - -cellAreaHasRenderer :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m Bool -- result -cellAreaHasRenderer _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - result <- gtk_cell_area_has_renderer _obj' renderer' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr renderer - return result' - -data CellAreaHasRendererMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaHasRendererMethodInfo a signature where - overloadedMethod _ = cellAreaHasRenderer - --- method CellArea::inner_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_inner_cell_area" gtk_cell_area_inner_cell_area :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- inner_area : TInterface "Gdk" "Rectangle" - IO () - - -cellAreaInnerCellArea :: - (MonadIO m, CellAreaK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Gdk.Rectangle -- cellArea - -> m (Gdk.Rectangle) -- result -cellAreaInnerCellArea _obj widget cellArea = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let cellArea' = unsafeManagedPtrGetPtr cellArea - innerArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_area_inner_cell_area _obj' widget' cellArea' innerArea - innerArea' <- (wrapBoxed Gdk.Rectangle) innerArea - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr cellArea - return innerArea' - -data CellAreaInnerCellAreaMethodInfo -instance (signature ~ (b -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellAreaK a, WidgetK b) => MethodInfo CellAreaInnerCellAreaMethodInfo a signature where - overloadedMethod _ = cellAreaInnerCellArea - --- method CellArea::is_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", 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 "gtk_cell_area_is_activatable" gtk_cell_area_is_activatable :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - IO CInt - - -cellAreaIsActivatable :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> m Bool -- result -cellAreaIsActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_is_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellAreaIsActivatableMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellAreaK a) => MethodInfo CellAreaIsActivatableMethodInfo a signature where - overloadedMethod _ = cellAreaIsActivatable - --- method CellArea::is_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_is_focus_sibling" gtk_cell_area_is_focus_sibling :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer" - IO CInt - - -cellAreaIsFocusSibling :: - (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -- _obj - -> b -- renderer - -> c -- sibling - -> m Bool -- result -cellAreaIsFocusSibling _obj renderer sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let sibling' = unsafeManagedPtrCastPtr sibling - result <- gtk_cell_area_is_focus_sibling _obj' renderer' sibling' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr sibling - return result' - -data CellAreaIsFocusSiblingMethodInfo -instance (signature ~ (b -> c -> m Bool), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaIsFocusSiblingMethodInfo a signature where - overloadedMethod _ = cellAreaIsFocusSibling - --- method CellArea::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_remove" gtk_cell_area_remove :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO () - - -cellAreaRemove :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m () -- result -cellAreaRemove _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - gtk_cell_area_remove _obj' renderer' - touchManagedPtr _obj - touchManagedPtr renderer - return () - -data CellAreaRemoveMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaRemoveMethodInfo a signature where - overloadedMethod _ = cellAreaRemove - --- method CellArea::remove_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_remove_focus_sibling" gtk_cell_area_remove_focus_sibling :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - Ptr CellRenderer -> -- sibling : TInterface "Gtk" "CellRenderer" - IO () - - -cellAreaRemoveFocusSibling :: - (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -- _obj - -> b -- renderer - -> c -- sibling - -> m () -- result -cellAreaRemoveFocusSibling _obj renderer sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let sibling' = unsafeManagedPtrCastPtr sibling - gtk_cell_area_remove_focus_sibling _obj' renderer' sibling' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr sibling - return () - -data CellAreaRemoveFocusSiblingMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaRemoveFocusSiblingMethodInfo a signature where - overloadedMethod _ = cellAreaRemoveFocusSibling - --- method CellArea::render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paint_focus", 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 "gtk_cell_area_render" gtk_cell_area_render :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - CInt -> -- paint_focus : TBasicType TBoolean - IO () - - -cellAreaRender :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -- _obj - -> b -- context - -> c -- widget - -> Cairo.Context -- cr - -> Gdk.Rectangle -- backgroundArea - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> Bool -- paintFocus - -> m () -- result -cellAreaRender _obj context widget cr backgroundArea cellArea flags paintFocus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cr' = unsafeManagedPtrGetPtr cr - let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - let paintFocus' = (fromIntegral . fromEnum) paintFocus - gtk_cell_area_render _obj' context' widget' cr' backgroundArea' cellArea' flags' paintFocus' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cr - touchManagedPtr backgroundArea - touchManagedPtr cellArea - return () - -data CellAreaRenderMethodInfo -instance (signature ~ (b -> c -> Cairo.Context -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> Bool -> m ()), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaRenderMethodInfo a signature where - overloadedMethod _ = cellAreaRender - --- method CellArea::request_renderer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, 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 "gtk_cell_area_request_renderer" gtk_cell_area_request_renderer :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- for_size : TBasicType TInt - Ptr Int32 -> -- minimum_size : TBasicType TInt - Ptr Int32 -> -- natural_size : TBasicType TInt - IO () - - -cellAreaRequestRenderer :: - (MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) => - a -- _obj - -> b -- renderer - -> Orientation -- orientation - -> c -- widget - -> Int32 -- forSize - -> m (Int32,Int32) -- result -cellAreaRequestRenderer _obj renderer orientation widget forSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let orientation' = (fromIntegral . fromEnum) orientation - let widget' = unsafeManagedPtrCastPtr widget - minimumSize <- allocMem :: IO (Ptr Int32) - naturalSize <- allocMem :: IO (Ptr Int32) - gtk_cell_area_request_renderer _obj' renderer' orientation' widget' forSize minimumSize naturalSize - minimumSize' <- peek minimumSize - naturalSize' <- peek naturalSize - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr widget - freeMem minimumSize - freeMem naturalSize - return (minimumSize', naturalSize') - -data CellAreaRequestRendererMethodInfo -instance (signature ~ (b -> Orientation -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) => MethodInfo CellAreaRequestRendererMethodInfo a signature where - overloadedMethod _ = cellAreaRequestRenderer - --- method CellArea::set_focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_area_set_focus_cell" gtk_cell_area_set_focus_cell :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO () - - -cellAreaSetFocusCell :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> m () -- result -cellAreaSetFocusCell _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - gtk_cell_area_set_focus_cell _obj' renderer' - touchManagedPtr _obj - touchManagedPtr renderer - return () - -data CellAreaSetFocusCellMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaSetFocusCellMethodInfo a signature where - overloadedMethod _ = cellAreaSetFocusCell - --- method CellArea::stop_editing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", 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 "gtk_cell_area_stop_editing" gtk_cell_area_stop_editing :: - Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" - CInt -> -- canceled : TBasicType TBoolean - IO () - - -cellAreaStopEditing :: - (MonadIO m, CellAreaK a) => - a -- _obj - -> Bool -- canceled - -> m () -- result -cellAreaStopEditing _obj canceled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canceled' = (fromIntegral . fromEnum) canceled - gtk_cell_area_stop_editing _obj' canceled' - touchManagedPtr _obj - return () - -data CellAreaStopEditingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellAreaK a) => MethodInfo CellAreaStopEditingMethodInfo a signature where - overloadedMethod _ = cellAreaStopEditing - - diff --git a/GI/Gtk/Objects/CellArea.hs-boot b/GI/Gtk/Objects/CellArea.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellArea.hs-boot +++ /dev/null @@ -1,59 +0,0 @@ -module GI.Gtk.Objects.CellArea 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 CellArea = CellArea (ForeignPtr CellArea) -instance GObject CellArea where -class GObject o => CellAreaK o -instance (GObject o, IsDescendantOf CellArea o) => CellAreaK o -data CellAreaEditWidgetPropertyInfo -data CellAreaEditedCellPropertyInfo -data CellAreaFocusCellPropertyInfo -data CellAreaAddEditableSignalInfo -data CellAreaApplyAttributesSignalInfo -data CellAreaFocusChangedSignalInfo -data CellAreaRemoveEditableSignalInfo -data CellAreaActivateMethodInfo -data CellAreaActivateCellMethodInfo -data CellAreaAddMethodInfo -data CellAreaAddFocusSiblingMethodInfo -data CellAreaApplyAttributesMethodInfo -data CellAreaAttributeConnectMethodInfo -data CellAreaAttributeDisconnectMethodInfo -data CellAreaAttributeGetColumnMethodInfo -data CellAreaCellGetPropertyMethodInfo -data CellAreaCellSetPropertyMethodInfo -data CellAreaCopyContextMethodInfo -data CellAreaCreateContextMethodInfo -data CellAreaEventMethodInfo -data CellAreaFocusMethodInfo -data CellAreaForeachMethodInfo -data CellAreaForeachAllocMethodInfo -data CellAreaGetCellAllocationMethodInfo -data CellAreaGetCellAtPositionMethodInfo -data CellAreaGetCurrentPathStringMethodInfo -data CellAreaGetEditWidgetMethodInfo -data CellAreaGetEditedCellMethodInfo -data CellAreaGetFocusCellMethodInfo -data CellAreaGetFocusFromSiblingMethodInfo -data CellAreaGetFocusSiblingsMethodInfo -data CellAreaGetPreferredHeightMethodInfo -data CellAreaGetPreferredHeightForWidthMethodInfo -data CellAreaGetPreferredWidthMethodInfo -data CellAreaGetPreferredWidthForHeightMethodInfo -data CellAreaGetRequestModeMethodInfo -data CellAreaHasRendererMethodInfo -data CellAreaInnerCellAreaMethodInfo -data CellAreaIsActivatableMethodInfo -data CellAreaIsFocusSiblingMethodInfo -data CellAreaRemoveMethodInfo -data CellAreaRemoveFocusSiblingMethodInfo -data CellAreaRenderMethodInfo -data CellAreaRequestRendererMethodInfo -data CellAreaSetFocusCellMethodInfo -data CellAreaStopEditingMethodInfo diff --git a/GI/Gtk/Objects/CellAreaBox.hs b/GI/Gtk/Objects/CellAreaBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellAreaBox.hs +++ /dev/null @@ -1,376 +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.Gtk.Objects.CellAreaBox - ( - --- * Exported types - CellAreaBox(..) , - CellAreaBoxK , - toCellAreaBox , - noCellAreaBox , - - - -- * Methods --- ** cellAreaBoxGetSpacing - CellAreaBoxGetSpacingMethodInfo , - cellAreaBoxGetSpacing , - - --- ** cellAreaBoxNew - cellAreaBoxNew , - - --- ** cellAreaBoxPackEnd - CellAreaBoxPackEndMethodInfo , - cellAreaBoxPackEnd , - - --- ** cellAreaBoxPackStart - CellAreaBoxPackStartMethodInfo , - cellAreaBoxPackStart , - - --- ** cellAreaBoxSetSpacing - CellAreaBoxSetSpacingMethodInfo , - cellAreaBoxSetSpacing , - - - - - -- * Properties --- ** Spacing - CellAreaBoxSpacingPropertyInfo , - cellAreaBoxSpacing , - constructCellAreaBoxSpacing , - getCellAreaBoxSpacing , - setCellAreaBoxSpacing , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellAreaBox = CellAreaBox (ForeignPtr CellAreaBox) -foreign import ccall "gtk_cell_area_box_get_type" - c_gtk_cell_area_box_get_type :: IO GType - -type instance ParentTypes CellAreaBox = CellAreaBoxParentTypes -type CellAreaBoxParentTypes = '[CellArea, GObject.Object, Buildable, CellLayout, Orientable] - -instance GObject CellAreaBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_area_box_get_type - - -class GObject o => CellAreaBoxK o -instance (GObject o, IsDescendantOf CellAreaBox o) => CellAreaBoxK o - -toCellAreaBox :: CellAreaBoxK o => o -> IO CellAreaBox -toCellAreaBox = unsafeCastTo CellAreaBox - -noCellAreaBox :: Maybe CellAreaBox -noCellAreaBox = Nothing - -type family ResolveCellAreaBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveCellAreaBoxMethod "activate" o = CellAreaActivateMethodInfo - ResolveCellAreaBoxMethod "activateCell" o = CellAreaActivateCellMethodInfo - ResolveCellAreaBoxMethod "add" o = CellAreaAddMethodInfo - ResolveCellAreaBoxMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveCellAreaBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCellAreaBoxMethod "addFocusSibling" o = CellAreaAddFocusSiblingMethodInfo - ResolveCellAreaBoxMethod "applyAttributes" o = CellAreaApplyAttributesMethodInfo - ResolveCellAreaBoxMethod "attributeConnect" o = CellAreaAttributeConnectMethodInfo - ResolveCellAreaBoxMethod "attributeDisconnect" o = CellAreaAttributeDisconnectMethodInfo - ResolveCellAreaBoxMethod "attributeGetColumn" o = CellAreaAttributeGetColumnMethodInfo - ResolveCellAreaBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellAreaBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellAreaBoxMethod "cellGetProperty" o = CellAreaCellGetPropertyMethodInfo - ResolveCellAreaBoxMethod "cellSetProperty" o = CellAreaCellSetPropertyMethodInfo - ResolveCellAreaBoxMethod "clear" o = CellLayoutClearMethodInfo - ResolveCellAreaBoxMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveCellAreaBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCellAreaBoxMethod "copyContext" o = CellAreaCopyContextMethodInfo - ResolveCellAreaBoxMethod "createContext" o = CellAreaCreateContextMethodInfo - ResolveCellAreaBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCellAreaBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCellAreaBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCellAreaBoxMethod "event" o = CellAreaEventMethodInfo - ResolveCellAreaBoxMethod "focus" o = CellAreaFocusMethodInfo - ResolveCellAreaBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellAreaBoxMethod "foreach" o = CellAreaForeachMethodInfo - ResolveCellAreaBoxMethod "foreachAlloc" o = CellAreaForeachAllocMethodInfo - ResolveCellAreaBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellAreaBoxMethod "hasRenderer" o = CellAreaHasRendererMethodInfo - ResolveCellAreaBoxMethod "innerCellArea" o = CellAreaInnerCellAreaMethodInfo - ResolveCellAreaBoxMethod "isActivatable" o = CellAreaIsActivatableMethodInfo - ResolveCellAreaBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellAreaBoxMethod "isFocusSibling" o = CellAreaIsFocusSiblingMethodInfo - ResolveCellAreaBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellAreaBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellAreaBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCellAreaBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellAreaBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellAreaBoxMethod "remove" o = CellAreaRemoveMethodInfo - ResolveCellAreaBoxMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo - ResolveCellAreaBoxMethod "render" o = CellAreaRenderMethodInfo - ResolveCellAreaBoxMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveCellAreaBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellAreaBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellAreaBoxMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo - ResolveCellAreaBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellAreaBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellAreaBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellAreaBoxMethod "stopEditing" o = CellAreaStopEditingMethodInfo - ResolveCellAreaBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellAreaBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellAreaBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellAreaBoxMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveCellAreaBoxMethod "getCellAllocation" o = CellAreaGetCellAllocationMethodInfo - ResolveCellAreaBoxMethod "getCellAtPosition" o = CellAreaGetCellAtPositionMethodInfo - ResolveCellAreaBoxMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveCellAreaBoxMethod "getCurrentPathString" o = CellAreaGetCurrentPathStringMethodInfo - ResolveCellAreaBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellAreaBoxMethod "getEditWidget" o = CellAreaGetEditWidgetMethodInfo - ResolveCellAreaBoxMethod "getEditedCell" o = CellAreaGetEditedCellMethodInfo - ResolveCellAreaBoxMethod "getFocusCell" o = CellAreaGetFocusCellMethodInfo - ResolveCellAreaBoxMethod "getFocusFromSibling" o = CellAreaGetFocusFromSiblingMethodInfo - ResolveCellAreaBoxMethod "getFocusSiblings" o = CellAreaGetFocusSiblingsMethodInfo - ResolveCellAreaBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCellAreaBoxMethod "getName" o = BuildableGetNameMethodInfo - ResolveCellAreaBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveCellAreaBoxMethod "getPreferredHeight" o = CellAreaGetPreferredHeightMethodInfo - ResolveCellAreaBoxMethod "getPreferredHeightForWidth" o = CellAreaGetPreferredHeightForWidthMethodInfo - ResolveCellAreaBoxMethod "getPreferredWidth" o = CellAreaGetPreferredWidthMethodInfo - ResolveCellAreaBoxMethod "getPreferredWidthForHeight" o = CellAreaGetPreferredWidthForHeightMethodInfo - ResolveCellAreaBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellAreaBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellAreaBoxMethod "getRequestMode" o = CellAreaGetRequestModeMethodInfo - ResolveCellAreaBoxMethod "getSpacing" o = CellAreaBoxGetSpacingMethodInfo - ResolveCellAreaBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCellAreaBoxMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveCellAreaBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellAreaBoxMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo - ResolveCellAreaBoxMethod "setName" o = BuildableSetNameMethodInfo - ResolveCellAreaBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveCellAreaBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellAreaBoxMethod "setSpacing" o = CellAreaBoxSetSpacingMethodInfo - ResolveCellAreaBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, MethodInfo info CellAreaBox p) => IsLabelProxy t (CellAreaBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, MethodInfo info CellAreaBox p) => IsLabel t (CellAreaBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> m Int32 -getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> Int32 -> m () -setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructCellAreaBoxSpacing :: Int32 -> IO ([Char], GValue) -constructCellAreaBoxSpacing val = constructObjectPropertyInt32 "spacing" val - -data CellAreaBoxSpacingPropertyInfo -instance AttrInfo CellAreaBoxSpacingPropertyInfo where - type AttrAllowedOps CellAreaBoxSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellAreaBoxSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellAreaBoxSpacingPropertyInfo = CellAreaBoxK - type AttrGetType CellAreaBoxSpacingPropertyInfo = Int32 - type AttrLabel CellAreaBoxSpacingPropertyInfo = "spacing" - attrGet _ = getCellAreaBoxSpacing - attrSet _ = setCellAreaBoxSpacing - attrConstruct _ = constructCellAreaBoxSpacing - attrClear _ = undefined - -type instance AttributeList CellAreaBox = CellAreaBoxAttributeList -type CellAreaBoxAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) - -cellAreaBoxSpacing :: AttrLabelProxy "spacing" -cellAreaBoxSpacing = AttrLabelProxy - -type instance SignalList CellAreaBox = CellAreaBoxSignalList -type CellAreaBoxSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) - --- method CellAreaBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellAreaBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_box_new" gtk_cell_area_box_new :: - IO (Ptr CellAreaBox) - - -cellAreaBoxNew :: - (MonadIO m) => - m CellAreaBox -- result -cellAreaBoxNew = liftIO $ do - result <- gtk_cell_area_box_new - checkUnexpectedReturnNULL "gtk_cell_area_box_new" result - result' <- (newObject CellAreaBox) result - return result' - --- method CellAreaBox::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", 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 "gtk_cell_area_box_get_spacing" gtk_cell_area_box_get_spacing :: - Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - IO Int32 - - -cellAreaBoxGetSpacing :: - (MonadIO m, CellAreaBoxK a) => - a -- _obj - -> m Int32 -- result -cellAreaBoxGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_box_get_spacing _obj' - touchManagedPtr _obj - return result - -data CellAreaBoxGetSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, CellAreaBoxK a) => MethodInfo CellAreaBoxGetSpacingMethodInfo a signature where - overloadedMethod _ = cellAreaBoxGetSpacing - --- method CellAreaBox::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", 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 "gtk_cell_area_box_pack_end" gtk_cell_area_box_pack_end :: - Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - CInt -> -- align : TBasicType TBoolean - CInt -> -- fixed : TBasicType TBoolean - IO () - - -cellAreaBoxPackEnd :: - (MonadIO m, CellAreaBoxK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> Bool -- expand - -> Bool -- align - -> Bool -- fixed - -> m () -- result -cellAreaBoxPackEnd _obj renderer expand align fixed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let expand' = (fromIntegral . fromEnum) expand - let align' = (fromIntegral . fromEnum) align - let fixed' = (fromIntegral . fromEnum) fixed - gtk_cell_area_box_pack_end _obj' renderer' expand' align' fixed' - touchManagedPtr _obj - touchManagedPtr renderer - return () - -data CellAreaBoxPackEndMethodInfo -instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, CellAreaBoxK a, CellRendererK b) => MethodInfo CellAreaBoxPackEndMethodInfo a signature where - overloadedMethod _ = cellAreaBoxPackEnd - --- method CellAreaBox::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", 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 "gtk_cell_area_box_pack_start" gtk_cell_area_box_pack_start :: - Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - CInt -> -- align : TBasicType TBoolean - CInt -> -- fixed : TBasicType TBoolean - IO () - - -cellAreaBoxPackStart :: - (MonadIO m, CellAreaBoxK a, CellRendererK b) => - a -- _obj - -> b -- renderer - -> Bool -- expand - -> Bool -- align - -> Bool -- fixed - -> m () -- result -cellAreaBoxPackStart _obj renderer expand align fixed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let expand' = (fromIntegral . fromEnum) expand - let align' = (fromIntegral . fromEnum) align - let fixed' = (fromIntegral . fromEnum) fixed - gtk_cell_area_box_pack_start _obj' renderer' expand' align' fixed' - touchManagedPtr _obj - touchManagedPtr renderer - return () - -data CellAreaBoxPackStartMethodInfo -instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, CellAreaBoxK a, CellRendererK b) => MethodInfo CellAreaBoxPackStartMethodInfo a signature where - overloadedMethod _ = cellAreaBoxPackStart - --- method CellAreaBox::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing :: - Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - Int32 -> -- spacing : TBasicType TInt - IO () - - -cellAreaBoxSetSpacing :: - (MonadIO m, CellAreaBoxK a) => - a -- _obj - -> Int32 -- spacing - -> m () -- result -cellAreaBoxSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_box_set_spacing _obj' spacing - touchManagedPtr _obj - return () - -data CellAreaBoxSetSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, CellAreaBoxK a) => MethodInfo CellAreaBoxSetSpacingMethodInfo a signature where - overloadedMethod _ = cellAreaBoxSetSpacing - - diff --git a/GI/Gtk/Objects/CellAreaBox.hs-boot b/GI/Gtk/Objects/CellAreaBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellAreaBox.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.CellAreaBox 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 CellAreaBox = CellAreaBox (ForeignPtr CellAreaBox) -instance GObject CellAreaBox where -class GObject o => CellAreaBoxK o -instance (GObject o, IsDescendantOf CellAreaBox o) => CellAreaBoxK o -data CellAreaBoxSpacingPropertyInfo -data CellAreaBoxGetSpacingMethodInfo -data CellAreaBoxPackEndMethodInfo -data CellAreaBoxPackStartMethodInfo -data CellAreaBoxSetSpacingMethodInfo diff --git a/GI/Gtk/Objects/CellAreaContext.hs b/GI/Gtk/Objects/CellAreaContext.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellAreaContext.hs +++ /dev/null @@ -1,635 +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.Gtk.Objects.CellAreaContext - ( - --- * Exported types - CellAreaContext(..) , - CellAreaContextK , - toCellAreaContext , - noCellAreaContext , - - - -- * Methods --- ** cellAreaContextAllocate - CellAreaContextAllocateMethodInfo , - cellAreaContextAllocate , - - --- ** cellAreaContextGetAllocation - CellAreaContextGetAllocationMethodInfo , - cellAreaContextGetAllocation , - - --- ** cellAreaContextGetArea - CellAreaContextGetAreaMethodInfo , - cellAreaContextGetArea , - - --- ** cellAreaContextGetPreferredHeight - CellAreaContextGetPreferredHeightMethodInfo, - cellAreaContextGetPreferredHeight , - - --- ** cellAreaContextGetPreferredHeightForWidth - CellAreaContextGetPreferredHeightForWidthMethodInfo, - cellAreaContextGetPreferredHeightForWidth, - - --- ** cellAreaContextGetPreferredWidth - CellAreaContextGetPreferredWidthMethodInfo, - cellAreaContextGetPreferredWidth , - - --- ** cellAreaContextGetPreferredWidthForHeight - CellAreaContextGetPreferredWidthForHeightMethodInfo, - cellAreaContextGetPreferredWidthForHeight, - - --- ** cellAreaContextPushPreferredHeight - CellAreaContextPushPreferredHeightMethodInfo, - cellAreaContextPushPreferredHeight , - - --- ** cellAreaContextPushPreferredWidth - CellAreaContextPushPreferredWidthMethodInfo, - cellAreaContextPushPreferredWidth , - - --- ** cellAreaContextReset - CellAreaContextResetMethodInfo , - cellAreaContextReset , - - - - - -- * Properties --- ** Area - CellAreaContextAreaPropertyInfo , - cellAreaContextArea , - constructCellAreaContextArea , - getCellAreaContextArea , - - --- ** MinimumHeight - CellAreaContextMinimumHeightPropertyInfo, - cellAreaContextMinimumHeight , - getCellAreaContextMinimumHeight , - - --- ** MinimumWidth - CellAreaContextMinimumWidthPropertyInfo , - cellAreaContextMinimumWidth , - getCellAreaContextMinimumWidth , - - --- ** NaturalHeight - CellAreaContextNaturalHeightPropertyInfo, - cellAreaContextNaturalHeight , - getCellAreaContextNaturalHeight , - - --- ** NaturalWidth - CellAreaContextNaturalWidthPropertyInfo , - cellAreaContextNaturalWidth , - getCellAreaContextNaturalWidth , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellAreaContext = CellAreaContext (ForeignPtr CellAreaContext) -foreign import ccall "gtk_cell_area_context_get_type" - c_gtk_cell_area_context_get_type :: IO GType - -type instance ParentTypes CellAreaContext = CellAreaContextParentTypes -type CellAreaContextParentTypes = '[GObject.Object] - -instance GObject CellAreaContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_cell_area_context_get_type - - -class GObject o => CellAreaContextK o -instance (GObject o, IsDescendantOf CellAreaContext o) => CellAreaContextK o - -toCellAreaContext :: CellAreaContextK o => o -> IO CellAreaContext -toCellAreaContext = unsafeCastTo CellAreaContext - -noCellAreaContext :: Maybe CellAreaContext -noCellAreaContext = Nothing - -type family ResolveCellAreaContextMethod (t :: Symbol) (o :: *) :: * where - ResolveCellAreaContextMethod "allocate" o = CellAreaContextAllocateMethodInfo - ResolveCellAreaContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellAreaContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellAreaContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellAreaContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellAreaContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellAreaContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellAreaContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellAreaContextMethod "pushPreferredHeight" o = CellAreaContextPushPreferredHeightMethodInfo - ResolveCellAreaContextMethod "pushPreferredWidth" o = CellAreaContextPushPreferredWidthMethodInfo - ResolveCellAreaContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellAreaContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellAreaContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellAreaContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellAreaContextMethod "reset" o = CellAreaContextResetMethodInfo - ResolveCellAreaContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellAreaContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellAreaContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellAreaContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellAreaContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellAreaContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellAreaContextMethod "getAllocation" o = CellAreaContextGetAllocationMethodInfo - ResolveCellAreaContextMethod "getArea" o = CellAreaContextGetAreaMethodInfo - ResolveCellAreaContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellAreaContextMethod "getPreferredHeight" o = CellAreaContextGetPreferredHeightMethodInfo - ResolveCellAreaContextMethod "getPreferredHeightForWidth" o = CellAreaContextGetPreferredHeightForWidthMethodInfo - ResolveCellAreaContextMethod "getPreferredWidth" o = CellAreaContextGetPreferredWidthMethodInfo - ResolveCellAreaContextMethod "getPreferredWidthForHeight" o = CellAreaContextGetPreferredWidthForHeightMethodInfo - ResolveCellAreaContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellAreaContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellAreaContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellAreaContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellAreaContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, MethodInfo info CellAreaContext p) => IsLabelProxy t (CellAreaContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, MethodInfo info CellAreaContext p) => IsLabel t (CellAreaContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getCellAreaContextArea :: (MonadIO m, CellAreaContextK o) => o -> m CellArea -getCellAreaContextArea obj = liftIO $ checkUnexpectedNothing "getCellAreaContextArea" $ getObjectPropertyObject obj "area" CellArea - -constructCellAreaContextArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellAreaContextArea val = constructObjectPropertyObject "area" (Just val) - -data CellAreaContextAreaPropertyInfo -instance AttrInfo CellAreaContextAreaPropertyInfo where - type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextAreaPropertyInfo = CellArea - type AttrLabel CellAreaContextAreaPropertyInfo = "area" - attrGet _ = getCellAreaContextArea - attrSet _ = undefined - attrConstruct _ = constructCellAreaContextArea - attrClear _ = undefined - --- VVV Prop "minimum-height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getCellAreaContextMinimumHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyInt32 obj "minimum-height" - -data CellAreaContextMinimumHeightPropertyInfo -instance AttrInfo CellAreaContextMinimumHeightPropertyInfo where - type AttrAllowedOps CellAreaContextMinimumHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaContextMinimumHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaContextMinimumHeightPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextMinimumHeightPropertyInfo = Int32 - type AttrLabel CellAreaContextMinimumHeightPropertyInfo = "minimum-height" - attrGet _ = getCellAreaContextMinimumHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "minimum-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getCellAreaContextMinimumWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyInt32 obj "minimum-width" - -data CellAreaContextMinimumWidthPropertyInfo -instance AttrInfo CellAreaContextMinimumWidthPropertyInfo where - type AttrAllowedOps CellAreaContextMinimumWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaContextMinimumWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaContextMinimumWidthPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextMinimumWidthPropertyInfo = Int32 - type AttrLabel CellAreaContextMinimumWidthPropertyInfo = "minimum-width" - attrGet _ = getCellAreaContextMinimumWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "natural-height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getCellAreaContextNaturalHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyInt32 obj "natural-height" - -data CellAreaContextNaturalHeightPropertyInfo -instance AttrInfo CellAreaContextNaturalHeightPropertyInfo where - type AttrAllowedOps CellAreaContextNaturalHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaContextNaturalHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaContextNaturalHeightPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextNaturalHeightPropertyInfo = Int32 - type AttrLabel CellAreaContextNaturalHeightPropertyInfo = "natural-height" - attrGet _ = getCellAreaContextNaturalHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "natural-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getCellAreaContextNaturalWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyInt32 obj "natural-width" - -data CellAreaContextNaturalWidthPropertyInfo -instance AttrInfo CellAreaContextNaturalWidthPropertyInfo where - type AttrAllowedOps CellAreaContextNaturalWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaContextNaturalWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaContextNaturalWidthPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextNaturalWidthPropertyInfo = Int32 - type AttrLabel CellAreaContextNaturalWidthPropertyInfo = "natural-width" - attrGet _ = getCellAreaContextNaturalWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList CellAreaContext = CellAreaContextAttributeList -type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimumHeight", CellAreaContextMinimumHeightPropertyInfo), '("minimumWidth", CellAreaContextMinimumWidthPropertyInfo), '("naturalHeight", CellAreaContextNaturalHeightPropertyInfo), '("naturalWidth", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) - -cellAreaContextArea :: AttrLabelProxy "area" -cellAreaContextArea = AttrLabelProxy - -cellAreaContextMinimumHeight :: AttrLabelProxy "minimumHeight" -cellAreaContextMinimumHeight = AttrLabelProxy - -cellAreaContextMinimumWidth :: AttrLabelProxy "minimumWidth" -cellAreaContextMinimumWidth = AttrLabelProxy - -cellAreaContextNaturalHeight :: AttrLabelProxy "naturalHeight" -cellAreaContextNaturalHeight = AttrLabelProxy - -cellAreaContextNaturalWidth :: AttrLabelProxy "naturalWidth" -cellAreaContextNaturalWidth = AttrLabelProxy - -type instance SignalList CellAreaContext = CellAreaContextSignalList -type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellAreaContext::allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -cellAreaContextAllocate :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -cellAreaContextAllocate _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_allocate _obj' width height - touchManagedPtr _obj - return () - -data CellAreaContextAllocateMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextAllocateMethodInfo a signature where - overloadedMethod _ = cellAreaContextAllocate - --- method CellAreaContext::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_cell_area_context_get_allocation" gtk_cell_area_context_get_allocation :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -cellAreaContextGetAllocation :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> m (Int32,Int32) -- result -cellAreaContextGetAllocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_allocation _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data CellAreaContextGetAllocationMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetAllocationMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetAllocation - --- method CellAreaContext::get_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellArea") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_context_get_area" gtk_cell_area_context_get_area :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - IO (Ptr CellArea) - - -cellAreaContextGetArea :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> m CellArea -- result -cellAreaContextGetArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_context_get_area _obj' - checkUnexpectedReturnNULL "gtk_cell_area_context_get_area" result - result' <- (newObject CellArea) result - touchManagedPtr _obj - return result' - -data CellAreaContextGetAreaMethodInfo -instance (signature ~ (m CellArea), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetAreaMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetArea - --- method CellAreaContext::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_cell_area_context_get_preferred_height" gtk_cell_area_context_get_preferred_height :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellAreaContextGetPreferredHeight :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> m (Int32,Int32) -- result -cellAreaContextGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height _obj' minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data CellAreaContextGetPreferredHeightMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredHeightMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetPreferredHeight - --- method CellAreaContext::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_cell_area_context_get_preferred_height_for_width" gtk_cell_area_context_get_preferred_height_for_width :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellAreaContextGetPreferredHeightForWidth :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> Int32 -- width - -> m (Int32,Int32) -- result -cellAreaContextGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height_for_width _obj' width minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data CellAreaContextGetPreferredHeightForWidthMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredHeightForWidthMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetPreferredHeightForWidth - --- method CellAreaContext::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_cell_area_context_get_preferred_width" gtk_cell_area_context_get_preferred_width :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellAreaContextGetPreferredWidth :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> m (Int32,Int32) -- result -cellAreaContextGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width _obj' minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data CellAreaContextGetPreferredWidthMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredWidthMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetPreferredWidth - --- method CellAreaContext::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_cell_area_context_get_preferred_width_for_height" gtk_cell_area_context_get_preferred_width_for_height :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- height : TBasicType TInt - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellAreaContextGetPreferredWidthForHeight :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> Int32 -- height - -> m (Int32,Int32) -- result -cellAreaContextGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width_for_height _obj' height minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data CellAreaContextGetPreferredWidthForHeightMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredWidthForHeightMethodInfo a signature where - overloadedMethod _ = cellAreaContextGetPreferredWidthForHeight - --- method CellAreaContext::push_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_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 "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_height : TBasicType TInt - Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellAreaContextPushPreferredHeight :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> Int32 -- minimumHeight - -> Int32 -- naturalHeight - -> m () -- result -cellAreaContextPushPreferredHeight _obj minimumHeight naturalHeight = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_height _obj' minimumHeight naturalHeight - touchManagedPtr _obj - return () - -data CellAreaContextPushPreferredHeightMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextPushPreferredHeightMethodInfo a signature where - overloadedMethod _ = cellAreaContextPushPreferredHeight - --- method CellAreaContext::push_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", 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 "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_width : TBasicType TInt - Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellAreaContextPushPreferredWidth :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> Int32 -- minimumWidth - -> Int32 -- naturalWidth - -> m () -- result -cellAreaContextPushPreferredWidth _obj minimumWidth naturalWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_width _obj' minimumWidth naturalWidth - touchManagedPtr _obj - return () - -data CellAreaContextPushPreferredWidthMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextPushPreferredWidthMethodInfo a signature where - overloadedMethod _ = cellAreaContextPushPreferredWidth - --- method CellAreaContext::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 "gtk_cell_area_context_reset" gtk_cell_area_context_reset :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - IO () - - -cellAreaContextReset :: - (MonadIO m, CellAreaContextK a) => - a -- _obj - -> m () -- result -cellAreaContextReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_reset _obj' - touchManagedPtr _obj - return () - -data CellAreaContextResetMethodInfo -instance (signature ~ (m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextResetMethodInfo a signature where - overloadedMethod _ = cellAreaContextReset - - diff --git a/GI/Gtk/Objects/CellAreaContext.hs-boot b/GI/Gtk/Objects/CellAreaContext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellAreaContext.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.CellAreaContext 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 CellAreaContext = CellAreaContext (ForeignPtr CellAreaContext) -instance GObject CellAreaContext where -class GObject o => CellAreaContextK o -instance (GObject o, IsDescendantOf CellAreaContext o) => CellAreaContextK o -data CellAreaContextAreaPropertyInfo -data CellAreaContextMinimumHeightPropertyInfo -data CellAreaContextMinimumWidthPropertyInfo -data CellAreaContextNaturalHeightPropertyInfo -data CellAreaContextNaturalWidthPropertyInfo -data CellAreaContextAllocateMethodInfo -data CellAreaContextGetAllocationMethodInfo -data CellAreaContextGetAreaMethodInfo -data CellAreaContextGetPreferredHeightMethodInfo -data CellAreaContextGetPreferredHeightForWidthMethodInfo -data CellAreaContextGetPreferredWidthMethodInfo -data CellAreaContextGetPreferredWidthForHeightMethodInfo -data CellAreaContextPushPreferredHeightMethodInfo -data CellAreaContextPushPreferredWidthMethodInfo -data CellAreaContextResetMethodInfo diff --git a/GI/Gtk/Objects/CellRenderer.hs b/GI/Gtk/Objects/CellRenderer.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRenderer.hs +++ /dev/null @@ -1,1838 +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.Gtk.Objects.CellRenderer - ( - --- * Exported types - CellRenderer(..) , - CellRendererK , - toCellRenderer , - noCellRenderer , - - - -- * Methods --- ** cellRendererActivate - CellRendererActivateMethodInfo , - cellRendererActivate , - - --- ** cellRendererGetAlignedArea - CellRendererGetAlignedAreaMethodInfo , - cellRendererGetAlignedArea , - - --- ** cellRendererGetAlignment - CellRendererGetAlignmentMethodInfo , - cellRendererGetAlignment , - - --- ** cellRendererGetFixedSize - CellRendererGetFixedSizeMethodInfo , - cellRendererGetFixedSize , - - --- ** cellRendererGetPadding - CellRendererGetPaddingMethodInfo , - cellRendererGetPadding , - - --- ** cellRendererGetPreferredHeight - CellRendererGetPreferredHeightMethodInfo, - cellRendererGetPreferredHeight , - - --- ** cellRendererGetPreferredHeightForWidth - CellRendererGetPreferredHeightForWidthMethodInfo, - cellRendererGetPreferredHeightForWidth , - - --- ** cellRendererGetPreferredSize - CellRendererGetPreferredSizeMethodInfo , - cellRendererGetPreferredSize , - - --- ** cellRendererGetPreferredWidth - CellRendererGetPreferredWidthMethodInfo , - cellRendererGetPreferredWidth , - - --- ** cellRendererGetPreferredWidthForHeight - CellRendererGetPreferredWidthForHeightMethodInfo, - cellRendererGetPreferredWidthForHeight , - - --- ** cellRendererGetRequestMode - CellRendererGetRequestModeMethodInfo , - cellRendererGetRequestMode , - - --- ** cellRendererGetSensitive - CellRendererGetSensitiveMethodInfo , - cellRendererGetSensitive , - - --- ** cellRendererGetSize - CellRendererGetSizeMethodInfo , - cellRendererGetSize , - - --- ** cellRendererGetState - CellRendererGetStateMethodInfo , - cellRendererGetState , - - --- ** cellRendererGetVisible - CellRendererGetVisibleMethodInfo , - cellRendererGetVisible , - - --- ** cellRendererIsActivatable - CellRendererIsActivatableMethodInfo , - cellRendererIsActivatable , - - --- ** cellRendererRender - CellRendererRenderMethodInfo , - cellRendererRender , - - --- ** cellRendererSetAlignment - CellRendererSetAlignmentMethodInfo , - cellRendererSetAlignment , - - --- ** cellRendererSetFixedSize - CellRendererSetFixedSizeMethodInfo , - cellRendererSetFixedSize , - - --- ** cellRendererSetPadding - CellRendererSetPaddingMethodInfo , - cellRendererSetPadding , - - --- ** cellRendererSetSensitive - CellRendererSetSensitiveMethodInfo , - cellRendererSetSensitive , - - --- ** cellRendererSetVisible - CellRendererSetVisibleMethodInfo , - cellRendererSetVisible , - - --- ** cellRendererStartEditing - CellRendererStartEditingMethodInfo , - cellRendererStartEditing , - - --- ** cellRendererStopEditing - CellRendererStopEditingMethodInfo , - cellRendererStopEditing , - - - - - -- * Properties --- ** CellBackground - CellRendererCellBackgroundPropertyInfo , - cellRendererCellBackground , - clearCellRendererCellBackground , - constructCellRendererCellBackground , - setCellRendererCellBackground , - - --- ** CellBackgroundGdk - CellRendererCellBackgroundGdkPropertyInfo, - cellRendererCellBackgroundGdk , - clearCellRendererCellBackgroundGdk , - constructCellRendererCellBackgroundGdk , - getCellRendererCellBackgroundGdk , - setCellRendererCellBackgroundGdk , - - --- ** CellBackgroundRgba - CellRendererCellBackgroundRgbaPropertyInfo, - cellRendererCellBackgroundRgba , - clearCellRendererCellBackgroundRgba , - constructCellRendererCellBackgroundRgba , - getCellRendererCellBackgroundRgba , - setCellRendererCellBackgroundRgba , - - --- ** CellBackgroundSet - CellRendererCellBackgroundSetPropertyInfo, - cellRendererCellBackgroundSet , - constructCellRendererCellBackgroundSet , - getCellRendererCellBackgroundSet , - setCellRendererCellBackgroundSet , - - --- ** Editing - CellRendererEditingPropertyInfo , - cellRendererEditing , - getCellRendererEditing , - - --- ** Height - CellRendererHeightPropertyInfo , - cellRendererHeight , - constructCellRendererHeight , - getCellRendererHeight , - setCellRendererHeight , - - --- ** IsExpanded - CellRendererIsExpandedPropertyInfo , - cellRendererIsExpanded , - constructCellRendererIsExpanded , - getCellRendererIsExpanded , - setCellRendererIsExpanded , - - --- ** IsExpander - CellRendererIsExpanderPropertyInfo , - cellRendererIsExpander , - constructCellRendererIsExpander , - getCellRendererIsExpander , - setCellRendererIsExpander , - - --- ** Mode - CellRendererModePropertyInfo , - cellRendererMode , - constructCellRendererMode , - getCellRendererMode , - setCellRendererMode , - - --- ** Sensitive - CellRendererSensitivePropertyInfo , - cellRendererSensitive , - constructCellRendererSensitive , - getCellRendererSensitive , - setCellRendererSensitive , - - --- ** Visible - CellRendererVisiblePropertyInfo , - cellRendererVisible , - constructCellRendererVisible , - getCellRendererVisible , - setCellRendererVisible , - - --- ** Width - CellRendererWidthPropertyInfo , - cellRendererWidth , - constructCellRendererWidth , - getCellRendererWidth , - setCellRendererWidth , - - --- ** Xalign - CellRendererXalignPropertyInfo , - cellRendererXalign , - constructCellRendererXalign , - getCellRendererXalign , - setCellRendererXalign , - - --- ** Xpad - CellRendererXpadPropertyInfo , - cellRendererXpad , - constructCellRendererXpad , - getCellRendererXpad , - setCellRendererXpad , - - --- ** Yalign - CellRendererYalignPropertyInfo , - cellRendererYalign , - constructCellRendererYalign , - getCellRendererYalign , - setCellRendererYalign , - - --- ** Ypad - CellRendererYpadPropertyInfo , - cellRendererYpad , - constructCellRendererYpad , - getCellRendererYpad , - setCellRendererYpad , - - - - - -- * Signals --- ** EditingCanceled - CellRendererEditingCanceledCallback , - CellRendererEditingCanceledCallbackC , - CellRendererEditingCanceledSignalInfo , - afterCellRendererEditingCanceled , - cellRendererEditingCanceledCallbackWrapper, - cellRendererEditingCanceledClosure , - mkCellRendererEditingCanceledCallback , - noCellRendererEditingCanceledCallback , - onCellRendererEditingCanceled , - - --- ** EditingStarted - CellRendererEditingStartedCallback , - CellRendererEditingStartedCallbackC , - CellRendererEditingStartedSignalInfo , - afterCellRendererEditingStarted , - cellRendererEditingStartedCallbackWrapper, - cellRendererEditingStartedClosure , - mkCellRendererEditingStartedCallback , - noCellRendererEditingStartedCallback , - onCellRendererEditingStarted , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype CellRenderer = CellRenderer (ForeignPtr CellRenderer) -foreign import ccall "gtk_cell_renderer_get_type" - c_gtk_cell_renderer_get_type :: IO GType - -type instance ParentTypes CellRenderer = CellRendererParentTypes -type CellRendererParentTypes = '[GObject.Object] - -instance GObject CellRenderer where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_get_type - - -class GObject o => CellRendererK o -instance (GObject o, IsDescendantOf CellRenderer o) => CellRendererK o - -toCellRenderer :: CellRendererK o => o -> IO CellRenderer -toCellRenderer = unsafeCastTo CellRenderer - -noCellRenderer :: Maybe CellRenderer -noCellRenderer = Nothing - -type family ResolveCellRendererMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabelProxy t (CellRenderer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabel t (CellRenderer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellRenderer::editing-canceled -type CellRendererEditingCanceledCallback = - IO () - -noCellRendererEditingCanceledCallback :: Maybe CellRendererEditingCanceledCallback -noCellRendererEditingCanceledCallback = Nothing - -type CellRendererEditingCanceledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererEditingCanceledCallback :: CellRendererEditingCanceledCallbackC -> IO (FunPtr CellRendererEditingCanceledCallbackC) - -cellRendererEditingCanceledClosure :: CellRendererEditingCanceledCallback -> IO Closure -cellRendererEditingCanceledClosure cb = newCClosure =<< mkCellRendererEditingCanceledCallback wrapped - where wrapped = cellRendererEditingCanceledCallbackWrapper cb - -cellRendererEditingCanceledCallbackWrapper :: - CellRendererEditingCanceledCallback -> - Ptr () -> - Ptr () -> - IO () -cellRendererEditingCanceledCallbackWrapper _cb _ _ = do - _cb - -onCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId -onCellRendererEditingCanceled obj cb = liftIO $ connectCellRendererEditingCanceled obj cb SignalConnectBefore -afterCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId -afterCellRendererEditingCanceled obj cb = connectCellRendererEditingCanceled obj cb SignalConnectAfter - -connectCellRendererEditingCanceled :: (GObject a, MonadIO m) => - a -> CellRendererEditingCanceledCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererEditingCanceled obj cb after = liftIO $ do - cb' <- mkCellRendererEditingCanceledCallback (cellRendererEditingCanceledCallbackWrapper cb) - connectSignalFunPtr obj "editing-canceled" cb' after - --- signal CellRenderer::editing-started -type CellRendererEditingStartedCallback = - CellEditable -> - T.Text -> - IO () - -noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback -noCellRendererEditingStartedCallback = Nothing - -type CellRendererEditingStartedCallbackC = - Ptr () -> -- object - Ptr CellEditable -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererEditingStartedCallback :: CellRendererEditingStartedCallbackC -> IO (FunPtr CellRendererEditingStartedCallbackC) - -cellRendererEditingStartedClosure :: CellRendererEditingStartedCallback -> IO Closure -cellRendererEditingStartedClosure cb = newCClosure =<< mkCellRendererEditingStartedCallback wrapped - where wrapped = cellRendererEditingStartedCallbackWrapper cb - -cellRendererEditingStartedCallbackWrapper :: - CellRendererEditingStartedCallback -> - Ptr () -> - Ptr CellEditable -> - CString -> - Ptr () -> - IO () -cellRendererEditingStartedCallbackWrapper _cb _ editable path _ = do - editable' <- (newObject CellEditable) editable - path' <- cstringToText path - _cb editable' path' - -onCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId -onCellRendererEditingStarted obj cb = liftIO $ connectCellRendererEditingStarted obj cb SignalConnectBefore -afterCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId -afterCellRendererEditingStarted obj cb = connectCellRendererEditingStarted obj cb SignalConnectAfter - -connectCellRendererEditingStarted :: (GObject a, MonadIO m) => - a -> CellRendererEditingStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererEditingStarted obj cb after = liftIO $ do - cb' <- mkCellRendererEditingStartedCallback (cellRendererEditingStartedCallbackWrapper cb) - connectSignalFunPtr obj "editing-started" cb' after - --- VVV Prop "cell-background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m () -setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" (Just val) - -constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" (Just val) - -clearCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> m () -clearCellRendererCellBackground obj = liftIO $ setObjectPropertyString obj "cell-background" (Nothing :: Maybe T.Text) - -data CellRendererCellBackgroundPropertyInfo -instance AttrInfo CellRendererCellBackgroundPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundPropertyInfo = () - type AttrLabel CellRendererCellBackgroundPropertyInfo = "cell-background" - attrGet _ = undefined - attrSet _ = setCellRendererCellBackground - attrConstruct _ = constructCellRendererCellBackground - attrClear _ = clearCellRendererCellBackground - --- VVV Prop "cell-background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.Color) -getCellRendererCellBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "cell-background-gdk" Gdk.Color - -setCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> Gdk.Color -> m () -setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Just val) - -constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" (Just val) - -clearCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m () -clearCellRendererCellBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Nothing :: Maybe Gdk.Color) - -data CellRendererCellBackgroundGdkPropertyInfo -instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "cell-background-gdk" - attrGet _ = getCellRendererCellBackgroundGdk - attrSet _ = setCellRendererCellBackgroundGdk - attrConstruct _ = constructCellRendererCellBackgroundGdk - attrClear _ = clearCellRendererCellBackgroundGdk - --- VVV Prop "cell-background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.RGBA) -getCellRendererCellBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "cell-background-rgba" Gdk.RGBA - -setCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> Gdk.RGBA -> m () -setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Just val) - -constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" (Just val) - -clearCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m () -clearCellRendererCellBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Nothing :: Maybe Gdk.RGBA) - -data CellRendererCellBackgroundRgbaPropertyInfo -instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "cell-background-rgba" - attrGet _ = getCellRendererCellBackgroundRgba - attrSet _ = setCellRendererCellBackgroundRgba - attrConstruct _ = constructCellRendererCellBackgroundRgba - attrClear _ = clearCellRendererCellBackgroundRgba - --- VVV Prop "cell-background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererCellBackgroundSet obj = liftIO $ getObjectPropertyBool obj "cell-background-set" - -setCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> Bool -> m () -setCellRendererCellBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "cell-background-set" val - -constructCellRendererCellBackgroundSet :: Bool -> IO ([Char], GValue) -constructCellRendererCellBackgroundSet val = constructObjectPropertyBool "cell-background-set" val - -data CellRendererCellBackgroundSetPropertyInfo -instance AttrInfo CellRendererCellBackgroundSetPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererCellBackgroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererCellBackgroundSetPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundSetPropertyInfo = Bool - type AttrLabel CellRendererCellBackgroundSetPropertyInfo = "cell-background-set" - attrGet _ = getCellRendererCellBackgroundSet - attrSet _ = setCellRendererCellBackgroundSet - attrConstruct _ = constructCellRendererCellBackgroundSet - attrClear _ = undefined - --- VVV Prop "editing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getCellRendererEditing :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererEditing obj = liftIO $ getObjectPropertyBool obj "editing" - -data CellRendererEditingPropertyInfo -instance AttrInfo CellRendererEditingPropertyInfo where - type AttrAllowedOps CellRendererEditingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellRendererEditingPropertyInfo = (~) () - type AttrBaseTypeConstraint CellRendererEditingPropertyInfo = CellRendererK - type AttrGetType CellRendererEditingPropertyInfo = Bool - type AttrLabel CellRendererEditingPropertyInfo = "editing" - attrGet _ = getCellRendererEditing - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererHeight obj = liftIO $ getObjectPropertyInt32 obj "height" - -setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererHeight obj val = liftIO $ setObjectPropertyInt32 obj "height" val - -constructCellRendererHeight :: Int32 -> IO ([Char], GValue) -constructCellRendererHeight val = constructObjectPropertyInt32 "height" val - -data CellRendererHeightPropertyInfo -instance AttrInfo CellRendererHeightPropertyInfo where - type AttrAllowedOps CellRendererHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererHeightPropertyInfo = CellRendererK - type AttrGetType CellRendererHeightPropertyInfo = Int32 - type AttrLabel CellRendererHeightPropertyInfo = "height" - attrGet _ = getCellRendererHeight - attrSet _ = setCellRendererHeight - attrConstruct _ = constructCellRendererHeight - attrClear _ = undefined - --- VVV Prop "is-expanded" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererIsExpanded obj = liftIO $ getObjectPropertyBool obj "is-expanded" - -setCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> Bool -> m () -setCellRendererIsExpanded obj val = liftIO $ setObjectPropertyBool obj "is-expanded" val - -constructCellRendererIsExpanded :: Bool -> IO ([Char], GValue) -constructCellRendererIsExpanded val = constructObjectPropertyBool "is-expanded" val - -data CellRendererIsExpandedPropertyInfo -instance AttrInfo CellRendererIsExpandedPropertyInfo where - type AttrAllowedOps CellRendererIsExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererIsExpandedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererIsExpandedPropertyInfo = CellRendererK - type AttrGetType CellRendererIsExpandedPropertyInfo = Bool - type AttrLabel CellRendererIsExpandedPropertyInfo = "is-expanded" - attrGet _ = getCellRendererIsExpanded - attrSet _ = setCellRendererIsExpanded - attrConstruct _ = constructCellRendererIsExpanded - attrClear _ = undefined - --- VVV Prop "is-expander" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererIsExpander obj = liftIO $ getObjectPropertyBool obj "is-expander" - -setCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> Bool -> m () -setCellRendererIsExpander obj val = liftIO $ setObjectPropertyBool obj "is-expander" val - -constructCellRendererIsExpander :: Bool -> IO ([Char], GValue) -constructCellRendererIsExpander val = constructObjectPropertyBool "is-expander" val - -data CellRendererIsExpanderPropertyInfo -instance AttrInfo CellRendererIsExpanderPropertyInfo where - type AttrAllowedOps CellRendererIsExpanderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererIsExpanderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererIsExpanderPropertyInfo = CellRendererK - type AttrGetType CellRendererIsExpanderPropertyInfo = Bool - type AttrLabel CellRendererIsExpanderPropertyInfo = "is-expander" - attrGet _ = getCellRendererIsExpander - attrSet _ = setCellRendererIsExpander - attrConstruct _ = constructCellRendererIsExpander - attrClear _ = undefined - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "CellRendererMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererMode :: (MonadIO m, CellRendererK o) => o -> m CellRendererMode -getCellRendererMode obj = liftIO $ getObjectPropertyEnum obj "mode" - -setCellRendererMode :: (MonadIO m, CellRendererK o) => o -> CellRendererMode -> m () -setCellRendererMode obj val = liftIO $ setObjectPropertyEnum obj "mode" val - -constructCellRendererMode :: CellRendererMode -> IO ([Char], GValue) -constructCellRendererMode val = constructObjectPropertyEnum "mode" val - -data CellRendererModePropertyInfo -instance AttrInfo CellRendererModePropertyInfo where - type AttrAllowedOps CellRendererModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererModePropertyInfo = (~) CellRendererMode - type AttrBaseTypeConstraint CellRendererModePropertyInfo = CellRendererK - type AttrGetType CellRendererModePropertyInfo = CellRendererMode - type AttrLabel CellRendererModePropertyInfo = "mode" - attrGet _ = getCellRendererMode - attrSet _ = setCellRendererMode - attrConstruct _ = constructCellRendererMode - attrClear _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> Bool -> m () -setCellRendererSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructCellRendererSensitive :: Bool -> IO ([Char], GValue) -constructCellRendererSensitive val = constructObjectPropertyBool "sensitive" val - -data CellRendererSensitivePropertyInfo -instance AttrInfo CellRendererSensitivePropertyInfo where - type AttrAllowedOps CellRendererSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererSensitivePropertyInfo = CellRendererK - type AttrGetType CellRendererSensitivePropertyInfo = Bool - type AttrLabel CellRendererSensitivePropertyInfo = "sensitive" - attrGet _ = getCellRendererSensitive - attrSet _ = setCellRendererSensitive - attrConstruct _ = constructCellRendererSensitive - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> m Bool -getCellRendererVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> Bool -> m () -setCellRendererVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructCellRendererVisible :: Bool -> IO ([Char], GValue) -constructCellRendererVisible val = constructObjectPropertyBool "visible" val - -data CellRendererVisiblePropertyInfo -instance AttrInfo CellRendererVisiblePropertyInfo where - type AttrAllowedOps CellRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererVisiblePropertyInfo = CellRendererK - type AttrGetType CellRendererVisiblePropertyInfo = Bool - type AttrLabel CellRendererVisiblePropertyInfo = "visible" - attrGet _ = getCellRendererVisible - attrSet _ = setCellRendererVisible - attrConstruct _ = constructCellRendererVisible - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererWidth obj = liftIO $ getObjectPropertyInt32 obj "width" - -setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererWidth obj val = liftIO $ setObjectPropertyInt32 obj "width" val - -constructCellRendererWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererWidth val = constructObjectPropertyInt32 "width" val - -data CellRendererWidthPropertyInfo -instance AttrInfo CellRendererWidthPropertyInfo where - type AttrAllowedOps CellRendererWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererWidthPropertyInfo = CellRendererK - type AttrGetType CellRendererWidthPropertyInfo = Int32 - type AttrLabel CellRendererWidthPropertyInfo = "width" - attrGet _ = getCellRendererWidth - attrSet _ = setCellRendererWidth - attrConstruct _ = constructCellRendererWidth - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> m Float -getCellRendererXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> Float -> m () -setCellRendererXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructCellRendererXalign :: Float -> IO ([Char], GValue) -constructCellRendererXalign val = constructObjectPropertyFloat "xalign" val - -data CellRendererXalignPropertyInfo -instance AttrInfo CellRendererXalignPropertyInfo where - type AttrAllowedOps CellRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint CellRendererXalignPropertyInfo = CellRendererK - type AttrGetType CellRendererXalignPropertyInfo = Float - type AttrLabel CellRendererXalignPropertyInfo = "xalign" - attrGet _ = getCellRendererXalign - attrSet _ = setCellRendererXalign - attrConstruct _ = constructCellRendererXalign - attrClear _ = undefined - --- VVV Prop "xpad" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererXpad obj = liftIO $ getObjectPropertyUInt32 obj "xpad" - -setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererXpad obj val = liftIO $ setObjectPropertyUInt32 obj "xpad" val - -constructCellRendererXpad :: Word32 -> IO ([Char], GValue) -constructCellRendererXpad val = constructObjectPropertyUInt32 "xpad" val - -data CellRendererXpadPropertyInfo -instance AttrInfo CellRendererXpadPropertyInfo where - type AttrAllowedOps CellRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererXpadPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererXpadPropertyInfo = CellRendererK - type AttrGetType CellRendererXpadPropertyInfo = Word32 - type AttrLabel CellRendererXpadPropertyInfo = "xpad" - attrGet _ = getCellRendererXpad - attrSet _ = setCellRendererXpad - attrConstruct _ = constructCellRendererXpad - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> m Float -getCellRendererYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> Float -> m () -setCellRendererYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructCellRendererYalign :: Float -> IO ([Char], GValue) -constructCellRendererYalign val = constructObjectPropertyFloat "yalign" val - -data CellRendererYalignPropertyInfo -instance AttrInfo CellRendererYalignPropertyInfo where - type AttrAllowedOps CellRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint CellRendererYalignPropertyInfo = CellRendererK - type AttrGetType CellRendererYalignPropertyInfo = Float - type AttrLabel CellRendererYalignPropertyInfo = "yalign" - attrGet _ = getCellRendererYalign - attrSet _ = setCellRendererYalign - attrConstruct _ = constructCellRendererYalign - attrClear _ = undefined - --- VVV Prop "ypad" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererYpad obj = liftIO $ getObjectPropertyUInt32 obj "ypad" - -setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererYpad obj val = liftIO $ setObjectPropertyUInt32 obj "ypad" val - -constructCellRendererYpad :: Word32 -> IO ([Char], GValue) -constructCellRendererYpad val = constructObjectPropertyUInt32 "ypad" val - -data CellRendererYpadPropertyInfo -instance AttrInfo CellRendererYpadPropertyInfo where - type AttrAllowedOps CellRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererYpadPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererYpadPropertyInfo = CellRendererK - type AttrGetType CellRendererYpadPropertyInfo = Word32 - type AttrLabel CellRendererYpadPropertyInfo = "ypad" - attrGet _ = getCellRendererYpad - attrSet _ = setCellRendererYpad - attrConstruct _ = constructCellRendererYpad - attrClear _ = undefined - -type instance AttributeList CellRenderer = CellRendererAttributeList -type CellRendererAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererCellBackground :: AttrLabelProxy "cellBackground" -cellRendererCellBackground = AttrLabelProxy - -cellRendererCellBackgroundGdk :: AttrLabelProxy "cellBackgroundGdk" -cellRendererCellBackgroundGdk = AttrLabelProxy - -cellRendererCellBackgroundRgba :: AttrLabelProxy "cellBackgroundRgba" -cellRendererCellBackgroundRgba = AttrLabelProxy - -cellRendererCellBackgroundSet :: AttrLabelProxy "cellBackgroundSet" -cellRendererCellBackgroundSet = AttrLabelProxy - -cellRendererEditing :: AttrLabelProxy "editing" -cellRendererEditing = AttrLabelProxy - -cellRendererHeight :: AttrLabelProxy "height" -cellRendererHeight = AttrLabelProxy - -cellRendererIsExpanded :: AttrLabelProxy "isExpanded" -cellRendererIsExpanded = AttrLabelProxy - -cellRendererIsExpander :: AttrLabelProxy "isExpander" -cellRendererIsExpander = AttrLabelProxy - -cellRendererMode :: AttrLabelProxy "mode" -cellRendererMode = AttrLabelProxy - -cellRendererSensitive :: AttrLabelProxy "sensitive" -cellRendererSensitive = AttrLabelProxy - -cellRendererVisible :: AttrLabelProxy "visible" -cellRendererVisible = AttrLabelProxy - -cellRendererWidth :: AttrLabelProxy "width" -cellRendererWidth = AttrLabelProxy - -cellRendererXalign :: AttrLabelProxy "xalign" -cellRendererXalign = AttrLabelProxy - -cellRendererXpad :: AttrLabelProxy "xpad" -cellRendererXpad = AttrLabelProxy - -cellRendererYalign :: AttrLabelProxy "yalign" -cellRendererYalign = AttrLabelProxy - -cellRendererYpad :: AttrLabelProxy "ypad" -cellRendererYpad = AttrLabelProxy - -data CellRendererEditingCanceledSignalInfo -instance SignalInfo CellRendererEditingCanceledSignalInfo where - type HaskellCallbackType CellRendererEditingCanceledSignalInfo = CellRendererEditingCanceledCallback - connectSignal _ = connectCellRendererEditingCanceled - -data CellRendererEditingStartedSignalInfo -instance SignalInfo CellRendererEditingStartedSignalInfo where - type HaskellCallbackType CellRendererEditingStartedSignalInfo = CellRendererEditingStartedCallback - connectSignal _ = connectCellRendererEditingStarted - -type instance SignalList CellRenderer = CellRendererSignalList -type CellRendererSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRenderer::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", 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 "gtk_cell_renderer_activate" gtk_cell_renderer_activate :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- path : TBasicType TUTF8 - Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO CInt - - -cellRendererActivate :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> Gdk.Event -- event - -> b -- widget - -> T.Text -- path - -> Gdk.Rectangle -- backgroundArea - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> m Bool -- result -cellRendererActivate _obj event widget path backgroundArea cellArea flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - let widget' = unsafeManagedPtrCastPtr widget - path' <- textToCString path - let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - result <- gtk_cell_renderer_activate _obj' event' widget' path' backgroundArea' cellArea' flags' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - touchManagedPtr widget - touchManagedPtr backgroundArea - touchManagedPtr cellArea - freeMem path' - return result' - -data CellRendererActivateMethodInfo -instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m Bool), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererActivateMethodInfo a signature where - overloadedMethod _ = cellRendererActivate - --- method CellRenderer::get_aligned_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_get_aligned_area" gtk_cell_renderer_get_aligned_area :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- aligned_area : TInterface "Gdk" "Rectangle" - IO () - - -cellRendererGetAlignedArea :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> [CellRendererState] -- flags - -> Gdk.Rectangle -- cellArea - -> m (Gdk.Rectangle) -- result -cellRendererGetAlignedArea _obj widget flags cellArea = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let flags' = gflagsToWord flags - let cellArea' = unsafeManagedPtrGetPtr cellArea - alignedArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_renderer_get_aligned_area _obj' widget' flags' cellArea' alignedArea - alignedArea' <- (wrapBoxed Gdk.Rectangle) alignedArea - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr cellArea - return alignedArea' - -data CellRendererGetAlignedAreaMethodInfo -instance (signature ~ (b -> [CellRendererState] -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetAlignedAreaMethodInfo a signature where - overloadedMethod _ = cellRendererGetAlignedArea - --- method CellRenderer::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_cell_renderer_get_alignment" gtk_cell_renderer_get_alignment :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr CFloat -> -- xalign : TBasicType TFloat - Ptr CFloat -> -- yalign : TBasicType TFloat - IO () - - -cellRendererGetAlignment :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m (Float,Float) -- result -cellRendererGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xalign <- allocMem :: IO (Ptr CFloat) - yalign <- allocMem :: IO (Ptr CFloat) - gtk_cell_renderer_get_alignment _obj' xalign yalign - xalign' <- peek xalign - let xalign'' = realToFrac xalign' - yalign' <- peek yalign - let yalign'' = realToFrac yalign' - touchManagedPtr _obj - freeMem xalign - freeMem yalign - return (xalign'', yalign'') - -data CellRendererGetAlignmentMethodInfo -instance (signature ~ (m (Float,Float)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetAlignmentMethodInfo a signature where - overloadedMethod _ = cellRendererGetAlignment - --- method CellRenderer::get_fixed_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -cellRendererGetFixedSize :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m (Int32,Int32) -- result -cellRendererGetFixedSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_fixed_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data CellRendererGetFixedSizeMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetFixedSizeMethodInfo a signature where - overloadedMethod _ = cellRendererGetFixedSize - --- method CellRenderer::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- xpad : TBasicType TInt - Ptr Int32 -> -- ypad : TBasicType TInt - IO () - - -cellRendererGetPadding :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m (Int32,Int32) -- result -cellRendererGetPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xpad <- allocMem :: IO (Ptr Int32) - ypad <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_padding _obj' xpad ypad - xpad' <- peek xpad - ypad' <- peek ypad - touchManagedPtr _obj - freeMem xpad - freeMem ypad - return (xpad', ypad') - -data CellRendererGetPaddingMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetPaddingMethodInfo a signature where - overloadedMethod _ = cellRendererGetPadding - --- method CellRenderer::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_size : TBasicType TInt - Ptr Int32 -> -- natural_size : TBasicType TInt - IO () - - -cellRendererGetPreferredHeight :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m (Int32,Int32) -- result -cellRendererGetPreferredHeight _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimumSize <- allocMem :: IO (Ptr Int32) - naturalSize <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height _obj' widget' minimumSize naturalSize - minimumSize' <- peek minimumSize - naturalSize' <- peek naturalSize - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimumSize - freeMem naturalSize - return (minimumSize', naturalSize') - -data CellRendererGetPreferredHeightMethodInfo -instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightMethodInfo a signature where - overloadedMethod _ = cellRendererGetPreferredHeight - --- method CellRenderer::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -cellRendererGetPreferredHeightForWidth :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Int32 -- width - -> m (Int32,Int32) -- result -cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data CellRendererGetPreferredHeightForWidthMethodInfo -instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightForWidthMethodInfo a signature where - overloadedMethod _ = cellRendererGetPreferredHeightForWidth - --- method CellRenderer::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_get_preferred_size" gtk_cell_renderer_get_preferred_size :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" - Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" - IO () - - -cellRendererGetPreferredSize :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m (Requisition,Requisition) -- result -cellRendererGetPreferredSize _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_cell_renderer_get_preferred_size _obj' widget' minimumSize naturalSize - minimumSize' <- (wrapBoxed Requisition) minimumSize - naturalSize' <- (wrapBoxed Requisition) naturalSize - touchManagedPtr _obj - touchManagedPtr widget - return (minimumSize', naturalSize') - -data CellRendererGetPreferredSizeMethodInfo -instance (signature ~ (b -> m (Requisition,Requisition)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredSizeMethodInfo a signature where - overloadedMethod _ = cellRendererGetPreferredSize - --- method CellRenderer::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_size : TBasicType TInt - Ptr Int32 -> -- natural_size : TBasicType TInt - IO () - - -cellRendererGetPreferredWidth :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m (Int32,Int32) -- result -cellRendererGetPreferredWidth _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimumSize <- allocMem :: IO (Ptr Int32) - naturalSize <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width _obj' widget' minimumSize naturalSize - minimumSize' <- peek minimumSize - naturalSize' <- peek naturalSize - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimumSize - freeMem naturalSize - return (minimumSize', naturalSize') - -data CellRendererGetPreferredWidthMethodInfo -instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthMethodInfo a signature where - overloadedMethod _ = cellRendererGetPreferredWidth - --- method CellRenderer::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -cellRendererGetPreferredWidthForHeight :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Int32 -- height - -> m (Int32,Int32) -- result -cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data CellRendererGetPreferredWidthForHeightMethodInfo -instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthForHeightMethodInfo a signature where - overloadedMethod _ = cellRendererGetPreferredWidthForHeight - --- method CellRenderer::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeRequestMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_get_request_mode" gtk_cell_renderer_get_request_mode :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - IO CUInt - - -cellRendererGetRequestMode :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m SizeRequestMode -- result -cellRendererGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data CellRendererGetRequestModeMethodInfo -instance (signature ~ (m SizeRequestMode), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetRequestModeMethodInfo a signature where - overloadedMethod _ = cellRendererGetRequestMode - --- method CellRenderer::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_renderer_get_sensitive" gtk_cell_renderer_get_sensitive :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - IO CInt - - -cellRendererGetSensitive :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m Bool -- result -cellRendererGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererGetSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetSensitiveMethodInfo a signature where - overloadedMethod _ = cellRendererGetSensitive - --- method CellRenderer::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_cell_renderer_get_size" gtk_cell_renderer_get_size :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Int32 -> -- x_offset : TBasicType TInt - Ptr Int32 -> -- y_offset : TBasicType TInt - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-} -cellRendererGetSize :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Maybe (Gdk.Rectangle) -- cellArea - -> m (Int32,Int32,Int32,Int32) -- result -cellRendererGetSize _obj widget cellArea = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - maybeCellArea <- case cellArea of - Nothing -> return nullPtr - Just jCellArea -> do - let jCellArea' = unsafeManagedPtrGetPtr jCellArea - return jCellArea' - xOffset <- allocMem :: IO (Ptr Int32) - yOffset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_size _obj' widget' maybeCellArea xOffset yOffset width height - xOffset' <- peek xOffset - yOffset' <- peek yOffset - width' <- peek width - height' <- peek height - touchManagedPtr _obj - touchManagedPtr widget - whenJust cellArea touchManagedPtr - freeMem xOffset - freeMem yOffset - freeMem width - freeMem height - return (xOffset', yOffset', width', height') - -data CellRendererGetSizeMethodInfo -instance (signature ~ (b -> Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetSizeMethodInfo a signature where - overloadedMethod _ = cellRendererGetSize - --- method CellRenderer::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_get_state" gtk_cell_renderer_get_state :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- cell_state : TInterface "Gtk" "CellRendererState" - IO CUInt - - -cellRendererGetState :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> b -- widget - -> [CellRendererState] -- cellState - -> m [StateFlags] -- result -cellRendererGetState _obj widget cellState = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let cellState' = gflagsToWord cellState - result <- gtk_cell_renderer_get_state _obj' widget' cellState' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr widget - return result' - -data CellRendererGetStateMethodInfo -instance (signature ~ (b -> [CellRendererState] -> m [StateFlags]), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetStateMethodInfo a signature where - overloadedMethod _ = cellRendererGetState - --- method CellRenderer::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_renderer_get_visible" gtk_cell_renderer_get_visible :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - IO CInt - - -cellRendererGetVisible :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m Bool -- result -cellRendererGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetVisibleMethodInfo a signature where - overloadedMethod _ = cellRendererGetVisible - --- method CellRenderer::is_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_renderer_is_activatable" gtk_cell_renderer_is_activatable :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - IO CInt - - -cellRendererIsActivatable :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> m Bool -- result -cellRendererIsActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_is_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererIsActivatableMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererIsActivatableMethodInfo a signature where - overloadedMethod _ = cellRendererIsActivatable - --- method CellRenderer::render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", 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 "gtk_cell_renderer_render" gtk_cell_renderer_render :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO () - - -cellRendererRender :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> Cairo.Context -- cr - -> b -- widget - -> Gdk.Rectangle -- backgroundArea - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> m () -- result -cellRendererRender _obj cr widget backgroundArea cellArea flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let widget' = unsafeManagedPtrCastPtr widget - let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - gtk_cell_renderer_render _obj' cr' widget' backgroundArea' cellArea' flags' - touchManagedPtr _obj - touchManagedPtr cr - touchManagedPtr widget - touchManagedPtr backgroundArea - touchManagedPtr cellArea - return () - -data CellRendererRenderMethodInfo -instance (signature ~ (Cairo.Context -> b -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m ()), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererRenderMethodInfo a signature where - overloadedMethod _ = cellRendererRender - --- method CellRenderer::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_cell_renderer_set_alignment" gtk_cell_renderer_set_alignment :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - IO () - - -cellRendererSetAlignment :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> m () -- result -cellRendererSetAlignment _obj xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_cell_renderer_set_alignment _obj' xalign' yalign' - touchManagedPtr _obj - return () - -data CellRendererSetAlignmentMethodInfo -instance (signature ~ (Float -> Float -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetAlignmentMethodInfo a signature where - overloadedMethod _ = cellRendererSetAlignment - --- method CellRenderer::set_fixed_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -cellRendererSetFixedSize :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -cellRendererSetFixedSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_set_fixed_size _obj' width height - touchManagedPtr _obj - return () - -data CellRendererSetFixedSizeMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetFixedSizeMethodInfo a signature where - overloadedMethod _ = cellRendererSetFixedSize - --- method CellRenderer::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", 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 "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- xpad : TBasicType TInt - Int32 -> -- ypad : TBasicType TInt - IO () - - -cellRendererSetPadding :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Int32 -- xpad - -> Int32 -- ypad - -> m () -- result -cellRendererSetPadding _obj xpad ypad = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_set_padding _obj' xpad ypad - touchManagedPtr _obj - return () - -data CellRendererSetPaddingMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetPaddingMethodInfo a signature where - overloadedMethod _ = cellRendererSetPadding - --- method CellRenderer::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_cell_renderer_set_sensitive" gtk_cell_renderer_set_sensitive :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -cellRendererSetSensitive :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Bool -- sensitive - -> m () -- result -cellRendererSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_cell_renderer_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - -data CellRendererSetSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetSensitiveMethodInfo a signature where - overloadedMethod _ = cellRendererSetSensitive - --- method CellRenderer::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_cell_renderer_set_visible" gtk_cell_renderer_set_visible :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - CInt -> -- visible : TBasicType TBoolean - IO () - - -cellRendererSetVisible :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -cellRendererSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_cell_renderer_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data CellRendererSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetVisibleMethodInfo a signature where - overloadedMethod _ = cellRendererSetVisible - --- method CellRenderer::start_editing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellEditable") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_start_editing" gtk_cell_renderer_start_editing :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- path : TBasicType TUTF8 - Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO (Ptr CellEditable) - - -cellRendererStartEditing :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -- _obj - -> Gdk.Event -- event - -> b -- widget - -> T.Text -- path - -> Gdk.Rectangle -- backgroundArea - -> Gdk.Rectangle -- cellArea - -> [CellRendererState] -- flags - -> m CellEditable -- result -cellRendererStartEditing _obj event widget path backgroundArea cellArea flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - let widget' = unsafeManagedPtrCastPtr widget - path' <- textToCString path - let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea - let cellArea' = unsafeManagedPtrGetPtr cellArea - let flags' = gflagsToWord flags - result <- gtk_cell_renderer_start_editing _obj' event' widget' path' backgroundArea' cellArea' flags' - checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result - result' <- (newObject CellEditable) result - touchManagedPtr _obj - touchManagedPtr event - touchManagedPtr widget - touchManagedPtr backgroundArea - touchManagedPtr cellArea - freeMem path' - return result' - -data CellRendererStartEditingMethodInfo -instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m CellEditable), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererStartEditingMethodInfo a signature where - overloadedMethod _ = cellRendererStartEditing - --- method CellRenderer::stop_editing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", 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 "gtk_cell_renderer_stop_editing" gtk_cell_renderer_stop_editing :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - CInt -> -- canceled : TBasicType TBoolean - IO () - - -cellRendererStopEditing :: - (MonadIO m, CellRendererK a) => - a -- _obj - -> Bool -- canceled - -> m () -- result -cellRendererStopEditing _obj canceled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canceled' = (fromIntegral . fromEnum) canceled - gtk_cell_renderer_stop_editing _obj' canceled' - touchManagedPtr _obj - return () - -data CellRendererStopEditingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererStopEditingMethodInfo a signature where - overloadedMethod _ = cellRendererStopEditing - - diff --git a/GI/Gtk/Objects/CellRenderer.hs-boot b/GI/Gtk/Objects/CellRenderer.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRenderer.hs-boot +++ /dev/null @@ -1,55 +0,0 @@ -module GI.Gtk.Objects.CellRenderer 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 CellRenderer = CellRenderer (ForeignPtr CellRenderer) -instance GObject CellRenderer where -class GObject o => CellRendererK o -instance (GObject o, IsDescendantOf CellRenderer o) => CellRendererK o -data CellRendererCellBackgroundPropertyInfo -data CellRendererCellBackgroundGdkPropertyInfo -data CellRendererCellBackgroundRgbaPropertyInfo -data CellRendererCellBackgroundSetPropertyInfo -data CellRendererEditingPropertyInfo -data CellRendererHeightPropertyInfo -data CellRendererIsExpandedPropertyInfo -data CellRendererIsExpanderPropertyInfo -data CellRendererModePropertyInfo -data CellRendererSensitivePropertyInfo -data CellRendererVisiblePropertyInfo -data CellRendererWidthPropertyInfo -data CellRendererXalignPropertyInfo -data CellRendererXpadPropertyInfo -data CellRendererYalignPropertyInfo -data CellRendererYpadPropertyInfo -data CellRendererEditingCanceledSignalInfo -data CellRendererEditingStartedSignalInfo -data CellRendererActivateMethodInfo -data CellRendererGetAlignedAreaMethodInfo -data CellRendererGetAlignmentMethodInfo -data CellRendererGetFixedSizeMethodInfo -data CellRendererGetPaddingMethodInfo -data CellRendererGetPreferredHeightMethodInfo -data CellRendererGetPreferredHeightForWidthMethodInfo -data CellRendererGetPreferredSizeMethodInfo -data CellRendererGetPreferredWidthMethodInfo -data CellRendererGetPreferredWidthForHeightMethodInfo -data CellRendererGetRequestModeMethodInfo -data CellRendererGetSensitiveMethodInfo -data CellRendererGetSizeMethodInfo -data CellRendererGetStateMethodInfo -data CellRendererGetVisibleMethodInfo -data CellRendererIsActivatableMethodInfo -data CellRendererRenderMethodInfo -data CellRendererSetAlignmentMethodInfo -data CellRendererSetFixedSizeMethodInfo -data CellRendererSetPaddingMethodInfo -data CellRendererSetSensitiveMethodInfo -data CellRendererSetVisibleMethodInfo -data CellRendererStartEditingMethodInfo -data CellRendererStopEditingMethodInfo diff --git a/GI/Gtk/Objects/CellRendererAccel.hs b/GI/Gtk/Objects/CellRendererAccel.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererAccel.hs +++ /dev/null @@ -1,428 +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.Gtk.Objects.CellRendererAccel - ( - --- * Exported types - CellRendererAccel(..) , - CellRendererAccelK , - toCellRendererAccel , - noCellRendererAccel , - - - -- * Methods --- ** cellRendererAccelNew - cellRendererAccelNew , - - - - - -- * Properties --- ** AccelKey - CellRendererAccelAccelKeyPropertyInfo , - cellRendererAccelAccelKey , - constructCellRendererAccelAccelKey , - getCellRendererAccelAccelKey , - setCellRendererAccelAccelKey , - - --- ** AccelMode - CellRendererAccelAccelModePropertyInfo , - cellRendererAccelAccelMode , - constructCellRendererAccelAccelMode , - getCellRendererAccelAccelMode , - setCellRendererAccelAccelMode , - - --- ** AccelMods - CellRendererAccelAccelModsPropertyInfo , - cellRendererAccelAccelMods , - constructCellRendererAccelAccelMods , - getCellRendererAccelAccelMods , - setCellRendererAccelAccelMods , - - --- ** Keycode - CellRendererAccelKeycodePropertyInfo , - cellRendererAccelKeycode , - constructCellRendererAccelKeycode , - getCellRendererAccelKeycode , - setCellRendererAccelKeycode , - - - - - -- * Signals --- ** AccelCleared - CellRendererAccelAccelClearedCallback , - CellRendererAccelAccelClearedCallbackC , - CellRendererAccelAccelClearedSignalInfo , - afterCellRendererAccelAccelCleared , - cellRendererAccelAccelClearedCallbackWrapper, - cellRendererAccelAccelClearedClosure , - mkCellRendererAccelAccelClearedCallback , - noCellRendererAccelAccelClearedCallback , - onCellRendererAccelAccelCleared , - - --- ** AccelEdited - CellRendererAccelAccelEditedCallback , - CellRendererAccelAccelEditedCallbackC , - CellRendererAccelAccelEditedSignalInfo , - afterCellRendererAccelAccelEdited , - cellRendererAccelAccelEditedCallbackWrapper, - cellRendererAccelAccelEditedClosure , - mkCellRendererAccelAccelEditedCallback , - noCellRendererAccelAccelEditedCallback , - onCellRendererAccelAccelEdited , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype CellRendererAccel = CellRendererAccel (ForeignPtr CellRendererAccel) -foreign import ccall "gtk_cell_renderer_accel_get_type" - c_gtk_cell_renderer_accel_get_type :: IO GType - -type instance ParentTypes CellRendererAccel = CellRendererAccelParentTypes -type CellRendererAccelParentTypes = '[CellRendererText, CellRenderer, GObject.Object] - -instance GObject CellRendererAccel where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_accel_get_type - - -class GObject o => CellRendererAccelK o -instance (GObject o, IsDescendantOf CellRendererAccel o) => CellRendererAccelK o - -toCellRendererAccel :: CellRendererAccelK o => o -> IO CellRendererAccel -toCellRendererAccel = unsafeCastTo CellRendererAccel - -noCellRendererAccel :: Maybe CellRendererAccel -noCellRendererAccel = Nothing - -type family ResolveCellRendererAccelMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererAccelMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererAccelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererAccelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererAccelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererAccelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererAccelMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererAccelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererAccelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererAccelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererAccelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererAccelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererAccelMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererAccelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererAccelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererAccelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererAccelMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererAccelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererAccelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererAccelMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererAccelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererAccelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererAccelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererAccelMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererAccelMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererAccelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererAccelMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererAccelMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererAccelMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererAccelMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererAccelMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererAccelMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererAccelMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererAccelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererAccelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererAccelMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererAccelMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererAccelMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererAccelMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererAccelMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererAccelMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererAccelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererAccelMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo - ResolveCellRendererAccelMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererAccelMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererAccelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererAccelMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererAccelMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererAccelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererAccelMethod t CellRendererAccel, MethodInfo info CellRendererAccel p) => IsLabelProxy t (CellRendererAccel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererAccelMethod t CellRendererAccel, MethodInfo info CellRendererAccel p) => IsLabel t (CellRendererAccel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellRendererAccel::accel-cleared -type CellRendererAccelAccelClearedCallback = - T.Text -> - IO () - -noCellRendererAccelAccelClearedCallback :: Maybe CellRendererAccelAccelClearedCallback -noCellRendererAccelAccelClearedCallback = Nothing - -type CellRendererAccelAccelClearedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererAccelAccelClearedCallback :: CellRendererAccelAccelClearedCallbackC -> IO (FunPtr CellRendererAccelAccelClearedCallbackC) - -cellRendererAccelAccelClearedClosure :: CellRendererAccelAccelClearedCallback -> IO Closure -cellRendererAccelAccelClearedClosure cb = newCClosure =<< mkCellRendererAccelAccelClearedCallback wrapped - where wrapped = cellRendererAccelAccelClearedCallbackWrapper cb - -cellRendererAccelAccelClearedCallbackWrapper :: - CellRendererAccelAccelClearedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -cellRendererAccelAccelClearedCallbackWrapper _cb _ pathString _ = do - pathString' <- cstringToText pathString - _cb pathString' - -onCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId -onCellRendererAccelAccelCleared obj cb = liftIO $ connectCellRendererAccelAccelCleared obj cb SignalConnectBefore -afterCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId -afterCellRendererAccelAccelCleared obj cb = connectCellRendererAccelAccelCleared obj cb SignalConnectAfter - -connectCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => - a -> CellRendererAccelAccelClearedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererAccelAccelCleared obj cb after = liftIO $ do - cb' <- mkCellRendererAccelAccelClearedCallback (cellRendererAccelAccelClearedCallbackWrapper cb) - connectSignalFunPtr obj "accel-cleared" cb' after - --- signal CellRendererAccel::accel-edited -type CellRendererAccelAccelEditedCallback = - T.Text -> - Word32 -> - [Gdk.ModifierType] -> - Word32 -> - IO () - -noCellRendererAccelAccelEditedCallback :: Maybe CellRendererAccelAccelEditedCallback -noCellRendererAccelAccelEditedCallback = Nothing - -type CellRendererAccelAccelEditedCallbackC = - Ptr () -> -- object - CString -> - Word32 -> - CUInt -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererAccelAccelEditedCallback :: CellRendererAccelAccelEditedCallbackC -> IO (FunPtr CellRendererAccelAccelEditedCallbackC) - -cellRendererAccelAccelEditedClosure :: CellRendererAccelAccelEditedCallback -> IO Closure -cellRendererAccelAccelEditedClosure cb = newCClosure =<< mkCellRendererAccelAccelEditedCallback wrapped - where wrapped = cellRendererAccelAccelEditedCallbackWrapper cb - -cellRendererAccelAccelEditedCallbackWrapper :: - CellRendererAccelAccelEditedCallback -> - Ptr () -> - CString -> - Word32 -> - CUInt -> - Word32 -> - Ptr () -> - IO () -cellRendererAccelAccelEditedCallbackWrapper _cb _ pathString accelKey accelMods hardwareKeycode _ = do - pathString' <- cstringToText pathString - let accelMods' = wordToGFlags accelMods - _cb pathString' accelKey accelMods' hardwareKeycode - -onCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId -onCellRendererAccelAccelEdited obj cb = liftIO $ connectCellRendererAccelAccelEdited obj cb SignalConnectBefore -afterCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId -afterCellRendererAccelAccelEdited obj cb = connectCellRendererAccelAccelEdited obj cb SignalConnectAfter - -connectCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => - a -> CellRendererAccelAccelEditedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererAccelAccelEdited obj cb after = liftIO $ do - cb' <- mkCellRendererAccelAccelEditedCallback (cellRendererAccelAccelEditedCallbackWrapper cb) - connectSignalFunPtr obj "accel-edited" cb' after - --- VVV Prop "accel-key" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyUInt32 obj "accel-key" - -setCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyUInt32 obj "accel-key" val - -constructCellRendererAccelAccelKey :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelAccelKey val = constructObjectPropertyUInt32 "accel-key" val - -data CellRendererAccelAccelKeyPropertyInfo -instance AttrInfo CellRendererAccelAccelKeyPropertyInfo where - type AttrAllowedOps CellRendererAccelAccelKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererAccelAccelKeyPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererAccelAccelKeyPropertyInfo = CellRendererAccelK - type AttrGetType CellRendererAccelAccelKeyPropertyInfo = Word32 - type AttrLabel CellRendererAccelAccelKeyPropertyInfo = "accel-key" - attrGet _ = getCellRendererAccelAccelKey - attrSet _ = setCellRendererAccelAccelKey - attrConstruct _ = constructCellRendererAccelAccelKey - attrClear _ = undefined - --- VVV Prop "accel-mode" - -- Type: TInterface "Gtk" "CellRendererAccelMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererAccelAccelMode :: (MonadIO m, CellRendererAccelK o) => o -> m CellRendererAccelMode -getCellRendererAccelAccelMode obj = liftIO $ getObjectPropertyEnum obj "accel-mode" - -setCellRendererAccelAccelMode :: (MonadIO m, CellRendererAccelK o) => o -> CellRendererAccelMode -> m () -setCellRendererAccelAccelMode obj val = liftIO $ setObjectPropertyEnum obj "accel-mode" val - -constructCellRendererAccelAccelMode :: CellRendererAccelMode -> IO ([Char], GValue) -constructCellRendererAccelAccelMode val = constructObjectPropertyEnum "accel-mode" val - -data CellRendererAccelAccelModePropertyInfo -instance AttrInfo CellRendererAccelAccelModePropertyInfo where - type AttrAllowedOps CellRendererAccelAccelModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererAccelAccelModePropertyInfo = (~) CellRendererAccelMode - type AttrBaseTypeConstraint CellRendererAccelAccelModePropertyInfo = CellRendererAccelK - type AttrGetType CellRendererAccelAccelModePropertyInfo = CellRendererAccelMode - type AttrLabel CellRendererAccelAccelModePropertyInfo = "accel-mode" - attrGet _ = getCellRendererAccelAccelMode - attrSet _ = setCellRendererAccelAccelMode - attrConstruct _ = constructCellRendererAccelAccelMode - attrClear _ = undefined - --- VVV Prop "accel-mods" - -- Type: TInterface "Gdk" "ModifierType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererAccelAccelMods :: (MonadIO m, CellRendererAccelK o) => o -> m [Gdk.ModifierType] -getCellRendererAccelAccelMods obj = liftIO $ getObjectPropertyFlags obj "accel-mods" - -setCellRendererAccelAccelMods :: (MonadIO m, CellRendererAccelK o) => o -> [Gdk.ModifierType] -> m () -setCellRendererAccelAccelMods obj val = liftIO $ setObjectPropertyFlags obj "accel-mods" val - -constructCellRendererAccelAccelMods :: [Gdk.ModifierType] -> IO ([Char], GValue) -constructCellRendererAccelAccelMods val = constructObjectPropertyFlags "accel-mods" val - -data CellRendererAccelAccelModsPropertyInfo -instance AttrInfo CellRendererAccelAccelModsPropertyInfo where - type AttrAllowedOps CellRendererAccelAccelModsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererAccelAccelModsPropertyInfo = (~) [Gdk.ModifierType] - type AttrBaseTypeConstraint CellRendererAccelAccelModsPropertyInfo = CellRendererAccelK - type AttrGetType CellRendererAccelAccelModsPropertyInfo = [Gdk.ModifierType] - type AttrLabel CellRendererAccelAccelModsPropertyInfo = "accel-mods" - attrGet _ = getCellRendererAccelAccelMods - attrSet _ = setCellRendererAccelAccelMods - attrConstruct _ = constructCellRendererAccelAccelMods - attrClear _ = undefined - --- VVV Prop "keycode" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyUInt32 obj "keycode" - -setCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyUInt32 obj "keycode" val - -constructCellRendererAccelKeycode :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelKeycode val = constructObjectPropertyUInt32 "keycode" val - -data CellRendererAccelKeycodePropertyInfo -instance AttrInfo CellRendererAccelKeycodePropertyInfo where - type AttrAllowedOps CellRendererAccelKeycodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererAccelKeycodePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererAccelKeycodePropertyInfo = CellRendererAccelK - type AttrGetType CellRendererAccelKeycodePropertyInfo = Word32 - type AttrLabel CellRendererAccelKeycodePropertyInfo = "keycode" - attrGet _ = getCellRendererAccelKeycode - attrSet _ = setCellRendererAccelKeycode - attrConstruct _ = constructCellRendererAccelKeycode - attrClear _ = undefined - -type instance AttributeList CellRendererAccel = CellRendererAccelAttributeList -type CellRendererAccelAttributeList = ('[ '("accelKey", CellRendererAccelAccelKeyPropertyInfo), '("accelMode", CellRendererAccelAccelModePropertyInfo), '("accelMods", CellRendererAccelAccelModsPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererAccelAccelKey :: AttrLabelProxy "accelKey" -cellRendererAccelAccelKey = AttrLabelProxy - -cellRendererAccelAccelMode :: AttrLabelProxy "accelMode" -cellRendererAccelAccelMode = AttrLabelProxy - -cellRendererAccelAccelMods :: AttrLabelProxy "accelMods" -cellRendererAccelAccelMods = AttrLabelProxy - -cellRendererAccelKeycode :: AttrLabelProxy "keycode" -cellRendererAccelKeycode = AttrLabelProxy - -data CellRendererAccelAccelClearedSignalInfo -instance SignalInfo CellRendererAccelAccelClearedSignalInfo where - type HaskellCallbackType CellRendererAccelAccelClearedSignalInfo = CellRendererAccelAccelClearedCallback - connectSignal _ = connectCellRendererAccelAccelCleared - -data CellRendererAccelAccelEditedSignalInfo -instance SignalInfo CellRendererAccelAccelEditedSignalInfo where - type HaskellCallbackType CellRendererAccelAccelEditedSignalInfo = CellRendererAccelAccelEditedCallback - connectSignal _ = connectCellRendererAccelAccelEdited - -type instance SignalList CellRendererAccel = CellRendererAccelSignalList -type CellRendererAccelSignalList = ('[ '("accelCleared", CellRendererAccelAccelClearedSignalInfo), '("accelEdited", CellRendererAccelAccelEditedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererAccel::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererAccel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_accel_new" gtk_cell_renderer_accel_new :: - IO (Ptr CellRendererAccel) - - -cellRendererAccelNew :: - (MonadIO m) => - m CellRendererAccel -- result -cellRendererAccelNew = liftIO $ do - result <- gtk_cell_renderer_accel_new - checkUnexpectedReturnNULL "gtk_cell_renderer_accel_new" result - result' <- (newObject CellRendererAccel) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererAccel.hs-boot b/GI/Gtk/Objects/CellRendererAccel.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererAccel.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.CellRendererAccel 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 CellRendererAccel = CellRendererAccel (ForeignPtr CellRendererAccel) -instance GObject CellRendererAccel where -class GObject o => CellRendererAccelK o -instance (GObject o, IsDescendantOf CellRendererAccel o) => CellRendererAccelK o -data CellRendererAccelAccelKeyPropertyInfo -data CellRendererAccelAccelModePropertyInfo -data CellRendererAccelAccelModsPropertyInfo -data CellRendererAccelKeycodePropertyInfo -data CellRendererAccelAccelClearedSignalInfo -data CellRendererAccelAccelEditedSignalInfo diff --git a/GI/Gtk/Objects/CellRendererCombo.hs b/GI/Gtk/Objects/CellRendererCombo.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererCombo.hs +++ /dev/null @@ -1,329 +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.Gtk.Objects.CellRendererCombo - ( - --- * Exported types - CellRendererCombo(..) , - CellRendererComboK , - toCellRendererCombo , - noCellRendererCombo , - - - -- * Methods --- ** cellRendererComboNew - cellRendererComboNew , - - - - - -- * Properties --- ** HasEntry - CellRendererComboHasEntryPropertyInfo , - cellRendererComboHasEntry , - constructCellRendererComboHasEntry , - getCellRendererComboHasEntry , - setCellRendererComboHasEntry , - - --- ** Model - CellRendererComboModelPropertyInfo , - cellRendererComboModel , - clearCellRendererComboModel , - constructCellRendererComboModel , - getCellRendererComboModel , - setCellRendererComboModel , - - --- ** TextColumn - CellRendererComboTextColumnPropertyInfo , - cellRendererComboTextColumn , - constructCellRendererComboTextColumn , - getCellRendererComboTextColumn , - setCellRendererComboTextColumn , - - - - - -- * Signals --- ** Changed - CellRendererComboChangedCallback , - CellRendererComboChangedCallbackC , - CellRendererComboChangedSignalInfo , - afterCellRendererComboChanged , - cellRendererComboChangedCallbackWrapper , - cellRendererComboChangedClosure , - mkCellRendererComboChangedCallback , - noCellRendererComboChangedCallback , - onCellRendererComboChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellRendererCombo = CellRendererCombo (ForeignPtr CellRendererCombo) -foreign import ccall "gtk_cell_renderer_combo_get_type" - c_gtk_cell_renderer_combo_get_type :: IO GType - -type instance ParentTypes CellRendererCombo = CellRendererComboParentTypes -type CellRendererComboParentTypes = '[CellRendererText, CellRenderer, GObject.Object] - -instance GObject CellRendererCombo where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_combo_get_type - - -class GObject o => CellRendererComboK o -instance (GObject o, IsDescendantOf CellRendererCombo o) => CellRendererComboK o - -toCellRendererCombo :: CellRendererComboK o => o -> IO CellRendererCombo -toCellRendererCombo = unsafeCastTo CellRendererCombo - -noCellRendererCombo :: Maybe CellRendererCombo -noCellRendererCombo = Nothing - -type family ResolveCellRendererComboMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererComboMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererComboMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererComboMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererComboMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererComboMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererComboMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererComboMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererComboMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererComboMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererComboMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererComboMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererComboMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererComboMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererComboMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererComboMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererComboMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererComboMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererComboMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererComboMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererComboMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererComboMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererComboMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererComboMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererComboMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererComboMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererComboMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererComboMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererComboMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererComboMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererComboMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererComboMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererComboMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererComboMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererComboMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererComboMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererComboMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererComboMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererComboMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererComboMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererComboMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererComboMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererComboMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo - ResolveCellRendererComboMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererComboMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererComboMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererComboMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererComboMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererComboMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererComboMethod t CellRendererCombo, MethodInfo info CellRendererCombo p) => IsLabelProxy t (CellRendererCombo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererComboMethod t CellRendererCombo, MethodInfo info CellRendererCombo p) => IsLabel t (CellRendererCombo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellRendererCombo::changed -type CellRendererComboChangedCallback = - T.Text -> - TreeIter -> - IO () - -noCellRendererComboChangedCallback :: Maybe CellRendererComboChangedCallback -noCellRendererComboChangedCallback = Nothing - -type CellRendererComboChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererComboChangedCallback :: CellRendererComboChangedCallbackC -> IO (FunPtr CellRendererComboChangedCallbackC) - -cellRendererComboChangedClosure :: CellRendererComboChangedCallback -> IO Closure -cellRendererComboChangedClosure cb = newCClosure =<< mkCellRendererComboChangedCallback wrapped - where wrapped = cellRendererComboChangedCallbackWrapper cb - -cellRendererComboChangedCallbackWrapper :: - CellRendererComboChangedCallback -> - Ptr () -> - CString -> - Ptr TreeIter -> - Ptr () -> - IO () -cellRendererComboChangedCallbackWrapper _cb _ pathString newIter _ = do - pathString' <- cstringToText pathString - newIter' <- (newBoxed TreeIter) newIter - _cb pathString' newIter' - -onCellRendererComboChanged :: (GObject a, MonadIO m) => a -> CellRendererComboChangedCallback -> m SignalHandlerId -onCellRendererComboChanged obj cb = liftIO $ connectCellRendererComboChanged obj cb SignalConnectBefore -afterCellRendererComboChanged :: (GObject a, MonadIO m) => a -> CellRendererComboChangedCallback -> m SignalHandlerId -afterCellRendererComboChanged obj cb = connectCellRendererComboChanged obj cb SignalConnectAfter - -connectCellRendererComboChanged :: (GObject a, MonadIO m) => - a -> CellRendererComboChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererComboChanged obj cb after = liftIO $ do - cb' <- mkCellRendererComboChangedCallback (cellRendererComboChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "has-entry" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererComboHasEntry :: (MonadIO m, CellRendererComboK o) => o -> m Bool -getCellRendererComboHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry" - -setCellRendererComboHasEntry :: (MonadIO m, CellRendererComboK o) => o -> Bool -> m () -setCellRendererComboHasEntry obj val = liftIO $ setObjectPropertyBool obj "has-entry" val - -constructCellRendererComboHasEntry :: Bool -> IO ([Char], GValue) -constructCellRendererComboHasEntry val = constructObjectPropertyBool "has-entry" val - -data CellRendererComboHasEntryPropertyInfo -instance AttrInfo CellRendererComboHasEntryPropertyInfo where - type AttrAllowedOps CellRendererComboHasEntryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererComboHasEntryPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererComboHasEntryPropertyInfo = CellRendererComboK - type AttrGetType CellRendererComboHasEntryPropertyInfo = Bool - type AttrLabel CellRendererComboHasEntryPropertyInfo = "has-entry" - attrGet _ = getCellRendererComboHasEntry - attrSet _ = setCellRendererComboHasEntry - attrConstruct _ = constructCellRendererComboHasEntry - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m (Maybe TreeModel) -getCellRendererComboModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setCellRendererComboModel :: (MonadIO m, CellRendererComboK o, TreeModelK a) => o -> a -> m () -setCellRendererComboModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructCellRendererComboModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellRendererComboModel val = constructObjectPropertyObject "model" (Just val) - -clearCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m () -clearCellRendererComboModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data CellRendererComboModelPropertyInfo -instance AttrInfo CellRendererComboModelPropertyInfo where - type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK - type AttrGetType CellRendererComboModelPropertyInfo = (Maybe TreeModel) - type AttrLabel CellRendererComboModelPropertyInfo = "model" - attrGet _ = getCellRendererComboModel - attrSet _ = setCellRendererComboModel - attrConstruct _ = constructCellRendererComboModel - attrClear _ = clearCellRendererComboModel - --- VVV Prop "text-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> m Int32 -getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" - -setCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> Int32 -> m () -setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val - -constructCellRendererComboTextColumn :: Int32 -> IO ([Char], GValue) -constructCellRendererComboTextColumn val = constructObjectPropertyInt32 "text-column" val - -data CellRendererComboTextColumnPropertyInfo -instance AttrInfo CellRendererComboTextColumnPropertyInfo where - type AttrAllowedOps CellRendererComboTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererComboTextColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererComboTextColumnPropertyInfo = CellRendererComboK - type AttrGetType CellRendererComboTextColumnPropertyInfo = Int32 - type AttrLabel CellRendererComboTextColumnPropertyInfo = "text-column" - attrGet _ = getCellRendererComboTextColumn - attrSet _ = setCellRendererComboTextColumn - attrConstruct _ = constructCellRendererComboTextColumn - attrClear _ = undefined - -type instance AttributeList CellRendererCombo = CellRendererComboAttributeList -type CellRendererComboAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("hasEntry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("textColumn", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererComboHasEntry :: AttrLabelProxy "hasEntry" -cellRendererComboHasEntry = AttrLabelProxy - -cellRendererComboModel :: AttrLabelProxy "model" -cellRendererComboModel = AttrLabelProxy - -cellRendererComboTextColumn :: AttrLabelProxy "textColumn" -cellRendererComboTextColumn = AttrLabelProxy - -data CellRendererComboChangedSignalInfo -instance SignalInfo CellRendererComboChangedSignalInfo where - type HaskellCallbackType CellRendererComboChangedSignalInfo = CellRendererComboChangedCallback - connectSignal _ = connectCellRendererComboChanged - -type instance SignalList CellRendererCombo = CellRendererComboSignalList -type CellRendererComboSignalList = ('[ '("changed", CellRendererComboChangedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererCombo::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererCombo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_combo_new" gtk_cell_renderer_combo_new :: - IO (Ptr CellRendererCombo) - - -cellRendererComboNew :: - (MonadIO m) => - m CellRendererCombo -- result -cellRendererComboNew = liftIO $ do - result <- gtk_cell_renderer_combo_new - checkUnexpectedReturnNULL "gtk_cell_renderer_combo_new" result - result' <- (newObject CellRendererCombo) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererCombo.hs-boot b/GI/Gtk/Objects/CellRendererCombo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererCombo.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.CellRendererCombo 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 CellRendererCombo = CellRendererCombo (ForeignPtr CellRendererCombo) -instance GObject CellRendererCombo where -class GObject o => CellRendererComboK o -instance (GObject o, IsDescendantOf CellRendererCombo o) => CellRendererComboK o -data CellRendererComboHasEntryPropertyInfo -data CellRendererComboModelPropertyInfo -data CellRendererComboTextColumnPropertyInfo -data CellRendererComboChangedSignalInfo diff --git a/GI/Gtk/Objects/CellRendererPixbuf.hs b/GI/Gtk/Objects/CellRendererPixbuf.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererPixbuf.hs +++ /dev/null @@ -1,552 +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.Gtk.Objects.CellRendererPixbuf - ( - --- * Exported types - CellRendererPixbuf(..) , - CellRendererPixbufK , - toCellRendererPixbuf , - noCellRendererPixbuf , - - - -- * Methods --- ** cellRendererPixbufNew - cellRendererPixbufNew , - - - - - -- * Properties --- ** FollowState - CellRendererPixbufFollowStatePropertyInfo, - cellRendererPixbufFollowState , - constructCellRendererPixbufFollowState , - getCellRendererPixbufFollowState , - setCellRendererPixbufFollowState , - - --- ** Gicon - CellRendererPixbufGiconPropertyInfo , - cellRendererPixbufGicon , - clearCellRendererPixbufGicon , - constructCellRendererPixbufGicon , - getCellRendererPixbufGicon , - setCellRendererPixbufGicon , - - --- ** IconName - CellRendererPixbufIconNamePropertyInfo , - cellRendererPixbufIconName , - clearCellRendererPixbufIconName , - constructCellRendererPixbufIconName , - getCellRendererPixbufIconName , - setCellRendererPixbufIconName , - - --- ** Pixbuf - CellRendererPixbufPixbufPropertyInfo , - cellRendererPixbufPixbuf , - clearCellRendererPixbufPixbuf , - constructCellRendererPixbufPixbuf , - getCellRendererPixbufPixbuf , - setCellRendererPixbufPixbuf , - - --- ** PixbufExpanderClosed - CellRendererPixbufPixbufExpanderClosedPropertyInfo, - cellRendererPixbufPixbufExpanderClosed , - clearCellRendererPixbufPixbufExpanderClosed, - constructCellRendererPixbufPixbufExpanderClosed, - getCellRendererPixbufPixbufExpanderClosed, - setCellRendererPixbufPixbufExpanderClosed, - - --- ** PixbufExpanderOpen - CellRendererPixbufPixbufExpanderOpenPropertyInfo, - cellRendererPixbufPixbufExpanderOpen , - clearCellRendererPixbufPixbufExpanderOpen, - constructCellRendererPixbufPixbufExpanderOpen, - getCellRendererPixbufPixbufExpanderOpen , - setCellRendererPixbufPixbufExpanderOpen , - - --- ** StockDetail - CellRendererPixbufStockDetailPropertyInfo, - cellRendererPixbufStockDetail , - clearCellRendererPixbufStockDetail , - constructCellRendererPixbufStockDetail , - getCellRendererPixbufStockDetail , - setCellRendererPixbufStockDetail , - - --- ** StockId - CellRendererPixbufStockIdPropertyInfo , - cellRendererPixbufStockId , - clearCellRendererPixbufStockId , - constructCellRendererPixbufStockId , - getCellRendererPixbufStockId , - setCellRendererPixbufStockId , - - --- ** StockSize - CellRendererPixbufStockSizePropertyInfo , - cellRendererPixbufStockSize , - constructCellRendererPixbufStockSize , - getCellRendererPixbufStockSize , - setCellRendererPixbufStockSize , - - --- ** Surface - CellRendererPixbufSurfacePropertyInfo , - cellRendererPixbufSurface , - clearCellRendererPixbufSurface , - constructCellRendererPixbufSurface , - getCellRendererPixbufSurface , - setCellRendererPixbufSurface , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -newtype CellRendererPixbuf = CellRendererPixbuf (ForeignPtr CellRendererPixbuf) -foreign import ccall "gtk_cell_renderer_pixbuf_get_type" - c_gtk_cell_renderer_pixbuf_get_type :: IO GType - -type instance ParentTypes CellRendererPixbuf = CellRendererPixbufParentTypes -type CellRendererPixbufParentTypes = '[CellRenderer, GObject.Object] - -instance GObject CellRendererPixbuf where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_pixbuf_get_type - - -class GObject o => CellRendererPixbufK o -instance (GObject o, IsDescendantOf CellRendererPixbuf o) => CellRendererPixbufK o - -toCellRendererPixbuf :: CellRendererPixbufK o => o -> IO CellRendererPixbuf -toCellRendererPixbuf = unsafeCastTo CellRendererPixbuf - -noCellRendererPixbuf :: Maybe CellRendererPixbuf -noCellRendererPixbuf = Nothing - -type family ResolveCellRendererPixbufMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererPixbufMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererPixbufMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererPixbufMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererPixbufMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererPixbufMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererPixbufMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererPixbufMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererPixbufMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererPixbufMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererPixbufMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererPixbufMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererPixbufMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererPixbufMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererPixbufMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererPixbufMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererPixbufMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererPixbufMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererPixbufMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererPixbufMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererPixbufMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererPixbufMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererPixbufMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererPixbufMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererPixbufMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererPixbufMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererPixbufMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererPixbufMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererPixbufMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererPixbufMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererPixbufMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererPixbufMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererPixbufMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererPixbufMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererPixbufMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererPixbufMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererPixbufMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererPixbufMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererPixbufMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererPixbufMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererPixbufMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererPixbufMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererPixbufMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererPixbufMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererPixbufMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererPixbufMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererPixbufMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererPixbufMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererPixbufMethod t CellRendererPixbuf, MethodInfo info CellRendererPixbuf p) => IsLabelProxy t (CellRendererPixbuf -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererPixbufMethod t CellRendererPixbuf, MethodInfo info CellRendererPixbuf p) => IsLabel t (CellRendererPixbuf -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "follow-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufFollowState :: (MonadIO m, CellRendererPixbufK o) => o -> m Bool -getCellRendererPixbufFollowState obj = liftIO $ getObjectPropertyBool obj "follow-state" - -setCellRendererPixbufFollowState :: (MonadIO m, CellRendererPixbufK o) => o -> Bool -> m () -setCellRendererPixbufFollowState obj val = liftIO $ setObjectPropertyBool obj "follow-state" val - -constructCellRendererPixbufFollowState :: Bool -> IO ([Char], GValue) -constructCellRendererPixbufFollowState val = constructObjectPropertyBool "follow-state" val - -data CellRendererPixbufFollowStatePropertyInfo -instance AttrInfo CellRendererPixbufFollowStatePropertyInfo where - type AttrAllowedOps CellRendererPixbufFollowStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufFollowStatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererPixbufFollowStatePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufFollowStatePropertyInfo = Bool - type AttrLabel CellRendererPixbufFollowStatePropertyInfo = "follow-state" - attrGet _ = getCellRendererPixbufFollowState - attrSet _ = setCellRendererPixbufFollowState - attrConstruct _ = constructCellRendererPixbufFollowState - attrClear _ = undefined - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Gio.Icon) -getCellRendererPixbufGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon - -setCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o, Gio.IconK a) => o -> a -> m () -setCellRendererPixbufGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) - -constructCellRendererPixbufGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" (Just val) - -clearCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) - -data CellRendererPixbufGiconPropertyInfo -instance AttrInfo CellRendererPixbufGiconPropertyInfo where - type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufGiconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel CellRendererPixbufGiconPropertyInfo = "gicon" - attrGet _ = getCellRendererPixbufGicon - attrSet _ = setCellRendererPixbufGicon - attrConstruct _ = constructCellRendererPixbufGicon - attrClear _ = clearCellRendererPixbufGicon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) -getCellRendererPixbufIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructCellRendererPixbufIconName :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" (Just val) - -clearCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) - -data CellRendererPixbufIconNamePropertyInfo -instance AttrInfo CellRendererPixbufIconNamePropertyInfo where - type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufIconNamePropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererPixbufIconNamePropertyInfo = "icon-name" - attrGet _ = getCellRendererPixbufIconName - attrSet _ = setCellRendererPixbufIconName - attrConstruct _ = constructCellRendererPixbufIconName - attrClear _ = clearCellRendererPixbufIconName - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) -getCellRendererPixbufPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf - -setCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) - -constructCellRendererPixbufPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) - -clearCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data CellRendererPixbufPixbufPropertyInfo -instance AttrInfo CellRendererPixbufPixbufPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) - type AttrLabel CellRendererPixbufPixbufPropertyInfo = "pixbuf" - attrGet _ = getCellRendererPixbufPixbuf - attrSet _ = setCellRendererPixbufPixbuf - attrConstruct _ = constructCellRendererPixbufPixbuf - attrClear _ = clearCellRendererPixbufPixbuf - --- VVV Prop "pixbuf-expander-closed" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) -getCellRendererPixbufPixbufExpanderClosed obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-closed" GdkPixbuf.Pixbuf - -setCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbufExpanderClosed obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Just val) - -constructCellRendererPixbufPixbufExpanderClosed :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" (Just val) - -clearCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufPixbufExpanderClosed obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data CellRendererPixbufPixbufExpanderClosedPropertyInfo -instance AttrInfo CellRendererPixbufPixbufExpanderClosedPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = (Maybe GdkPixbuf.Pixbuf) - type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "pixbuf-expander-closed" - attrGet _ = getCellRendererPixbufPixbufExpanderClosed - attrSet _ = setCellRendererPixbufPixbufExpanderClosed - attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed - attrClear _ = clearCellRendererPixbufPixbufExpanderClosed - --- VVV Prop "pixbuf-expander-open" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) -getCellRendererPixbufPixbufExpanderOpen obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-open" GdkPixbuf.Pixbuf - -setCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbufExpanderOpen obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Just val) - -constructCellRendererPixbufPixbufExpanderOpen :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" (Just val) - -clearCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufPixbufExpanderOpen obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data CellRendererPixbufPixbufExpanderOpenPropertyInfo -instance AttrInfo CellRendererPixbufPixbufExpanderOpenPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = (Maybe GdkPixbuf.Pixbuf) - type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "pixbuf-expander-open" - attrGet _ = getCellRendererPixbufPixbufExpanderOpen - attrSet _ = setCellRendererPixbufPixbufExpanderOpen - attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen - attrClear _ = clearCellRendererPixbufPixbufExpanderOpen - --- VVV Prop "stock-detail" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) -getCellRendererPixbufStockDetail obj = liftIO $ getObjectPropertyString obj "stock-detail" - -setCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufStockDetail obj val = liftIO $ setObjectPropertyString obj "stock-detail" (Just val) - -constructCellRendererPixbufStockDetail :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" (Just val) - -clearCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufStockDetail obj = liftIO $ setObjectPropertyString obj "stock-detail" (Nothing :: Maybe T.Text) - -data CellRendererPixbufStockDetailPropertyInfo -instance AttrInfo CellRendererPixbufStockDetailPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockDetailPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "stock-detail" - attrGet _ = getCellRendererPixbufStockDetail - attrSet _ = setCellRendererPixbufStockDetail - attrConstruct _ = constructCellRendererPixbufStockDetail - attrClear _ = clearCellRendererPixbufStockDetail - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) -getCellRendererPixbufStockId obj = liftIO $ getObjectPropertyString obj "stock-id" - -setCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) - -constructCellRendererPixbufStockId :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" (Just val) - -clearCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufStockId obj = liftIO $ setObjectPropertyString obj "stock-id" (Nothing :: Maybe T.Text) - -data CellRendererPixbufStockIdPropertyInfo -instance AttrInfo CellRendererPixbufStockIdPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockIdPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererPixbufStockIdPropertyInfo = "stock-id" - attrGet _ = getCellRendererPixbufStockId - attrSet _ = setCellRendererPixbufStockId - attrConstruct _ = constructCellRendererPixbufStockId - attrClear _ = clearCellRendererPixbufStockId - --- VVV Prop "stock-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> m Word32 -getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyUInt32 obj "stock-size" - -setCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> Word32 -> m () -setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyUInt32 obj "stock-size" val - -constructCellRendererPixbufStockSize :: Word32 -> IO ([Char], GValue) -constructCellRendererPixbufStockSize val = constructObjectPropertyUInt32 "stock-size" val - -data CellRendererPixbufStockSizePropertyInfo -instance AttrInfo CellRendererPixbufStockSizePropertyInfo where - type AttrAllowedOps CellRendererPixbufStockSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufStockSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererPixbufStockSizePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockSizePropertyInfo = Word32 - type AttrLabel CellRendererPixbufStockSizePropertyInfo = "stock-size" - attrGet _ = getCellRendererPixbufStockSize - attrSet _ = setCellRendererPixbufStockSize - attrConstruct _ = constructCellRendererPixbufStockSize - attrClear _ = undefined - --- VVV Prop "surface" - -- Type: TInterface "cairo" "Surface" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Cairo.Surface) -getCellRendererPixbufSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface - -setCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> Cairo.Surface -> m () -setCellRendererPixbufSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) - -constructCellRendererPixbufSurface :: Cairo.Surface -> IO ([Char], GValue) -constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" (Just val) - -clearCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m () -clearCellRendererPixbufSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface) - -data CellRendererPixbufSurfacePropertyInfo -instance AttrInfo CellRendererPixbufSurfacePropertyInfo where - type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface - type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufSurfacePropertyInfo = (Maybe Cairo.Surface) - type AttrLabel CellRendererPixbufSurfacePropertyInfo = "surface" - attrGet _ = getCellRendererPixbufSurface - attrSet _ = setCellRendererPixbufSurface - attrConstruct _ = constructCellRendererPixbufSurface - attrClear _ = clearCellRendererPixbufSurface - -type instance AttributeList CellRendererPixbuf = CellRendererPixbufAttributeList -type CellRendererPixbufAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("followState", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("iconName", CellRendererPixbufIconNamePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbufExpanderClosed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbufExpanderOpen", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stockDetail", CellRendererPixbufStockDetailPropertyInfo), '("stockId", CellRendererPixbufStockIdPropertyInfo), '("stockSize", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererPixbufFollowState :: AttrLabelProxy "followState" -cellRendererPixbufFollowState = AttrLabelProxy - -cellRendererPixbufGicon :: AttrLabelProxy "gicon" -cellRendererPixbufGicon = AttrLabelProxy - -cellRendererPixbufIconName :: AttrLabelProxy "iconName" -cellRendererPixbufIconName = AttrLabelProxy - -cellRendererPixbufPixbuf :: AttrLabelProxy "pixbuf" -cellRendererPixbufPixbuf = AttrLabelProxy - -cellRendererPixbufPixbufExpanderClosed :: AttrLabelProxy "pixbufExpanderClosed" -cellRendererPixbufPixbufExpanderClosed = AttrLabelProxy - -cellRendererPixbufPixbufExpanderOpen :: AttrLabelProxy "pixbufExpanderOpen" -cellRendererPixbufPixbufExpanderOpen = AttrLabelProxy - -cellRendererPixbufStockDetail :: AttrLabelProxy "stockDetail" -cellRendererPixbufStockDetail = AttrLabelProxy - -cellRendererPixbufStockId :: AttrLabelProxy "stockId" -cellRendererPixbufStockId = AttrLabelProxy - -cellRendererPixbufStockSize :: AttrLabelProxy "stockSize" -cellRendererPixbufStockSize = AttrLabelProxy - -cellRendererPixbufSurface :: AttrLabelProxy "surface" -cellRendererPixbufSurface = AttrLabelProxy - -type instance SignalList CellRendererPixbuf = CellRendererPixbufSignalList -type CellRendererPixbufSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererPixbuf::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererPixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_pixbuf_new" gtk_cell_renderer_pixbuf_new :: - IO (Ptr CellRendererPixbuf) - - -cellRendererPixbufNew :: - (MonadIO m) => - m CellRendererPixbuf -- result -cellRendererPixbufNew = liftIO $ do - result <- gtk_cell_renderer_pixbuf_new - checkUnexpectedReturnNULL "gtk_cell_renderer_pixbuf_new" result - result' <- (newObject CellRendererPixbuf) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererPixbuf.hs-boot b/GI/Gtk/Objects/CellRendererPixbuf.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererPixbuf.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gtk.Objects.CellRendererPixbuf 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 CellRendererPixbuf = CellRendererPixbuf (ForeignPtr CellRendererPixbuf) -instance GObject CellRendererPixbuf where -class GObject o => CellRendererPixbufK o -instance (GObject o, IsDescendantOf CellRendererPixbuf o) => CellRendererPixbufK o -data CellRendererPixbufFollowStatePropertyInfo -data CellRendererPixbufGiconPropertyInfo -data CellRendererPixbufIconNamePropertyInfo -data CellRendererPixbufPixbufPropertyInfo -data CellRendererPixbufPixbufExpanderClosedPropertyInfo -data CellRendererPixbufPixbufExpanderOpenPropertyInfo -data CellRendererPixbufStockDetailPropertyInfo -data CellRendererPixbufStockIdPropertyInfo -data CellRendererPixbufStockSizePropertyInfo -data CellRendererPixbufSurfacePropertyInfo diff --git a/GI/Gtk/Objects/CellRendererProgress.hs b/GI/Gtk/Objects/CellRendererProgress.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererProgress.hs +++ /dev/null @@ -1,375 +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.Gtk.Objects.CellRendererProgress - ( - --- * Exported types - CellRendererProgress(..) , - CellRendererProgressK , - toCellRendererProgress , - noCellRendererProgress , - - - -- * Methods --- ** cellRendererProgressNew - cellRendererProgressNew , - - - - - -- * Properties --- ** Inverted - CellRendererProgressInvertedPropertyInfo, - cellRendererProgressInverted , - constructCellRendererProgressInverted , - getCellRendererProgressInverted , - setCellRendererProgressInverted , - - --- ** Pulse - CellRendererProgressPulsePropertyInfo , - cellRendererProgressPulse , - constructCellRendererProgressPulse , - getCellRendererProgressPulse , - setCellRendererProgressPulse , - - --- ** Text - CellRendererProgressTextPropertyInfo , - cellRendererProgressText , - clearCellRendererProgressText , - constructCellRendererProgressText , - getCellRendererProgressText , - setCellRendererProgressText , - - --- ** TextXalign - CellRendererProgressTextXalignPropertyInfo, - cellRendererProgressTextXalign , - constructCellRendererProgressTextXalign , - getCellRendererProgressTextXalign , - setCellRendererProgressTextXalign , - - --- ** TextYalign - CellRendererProgressTextYalignPropertyInfo, - cellRendererProgressTextYalign , - constructCellRendererProgressTextYalign , - getCellRendererProgressTextYalign , - setCellRendererProgressTextYalign , - - --- ** Value - CellRendererProgressValuePropertyInfo , - cellRendererProgressValue , - constructCellRendererProgressValue , - getCellRendererProgressValue , - setCellRendererProgressValue , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellRendererProgress = CellRendererProgress (ForeignPtr CellRendererProgress) -foreign import ccall "gtk_cell_renderer_progress_get_type" - c_gtk_cell_renderer_progress_get_type :: IO GType - -type instance ParentTypes CellRendererProgress = CellRendererProgressParentTypes -type CellRendererProgressParentTypes = '[CellRenderer, GObject.Object, Orientable] - -instance GObject CellRendererProgress where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_progress_get_type - - -class GObject o => CellRendererProgressK o -instance (GObject o, IsDescendantOf CellRendererProgress o) => CellRendererProgressK o - -toCellRendererProgress :: CellRendererProgressK o => o -> IO CellRendererProgress -toCellRendererProgress = unsafeCastTo CellRendererProgress - -noCellRendererProgress :: Maybe CellRendererProgress -noCellRendererProgress = Nothing - -type family ResolveCellRendererProgressMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererProgressMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererProgressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererProgressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererProgressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererProgressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererProgressMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererProgressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererProgressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererProgressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererProgressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererProgressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererProgressMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererProgressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererProgressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererProgressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererProgressMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererProgressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererProgressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererProgressMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererProgressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererProgressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererProgressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererProgressMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererProgressMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererProgressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererProgressMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererProgressMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveCellRendererProgressMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererProgressMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererProgressMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererProgressMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererProgressMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererProgressMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererProgressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererProgressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererProgressMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererProgressMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererProgressMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererProgressMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererProgressMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererProgressMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererProgressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererProgressMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererProgressMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveCellRendererProgressMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererProgressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererProgressMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererProgressMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererProgressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererProgressMethod t CellRendererProgress, MethodInfo info CellRendererProgress p) => IsLabelProxy t (CellRendererProgress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererProgressMethod t CellRendererProgress, MethodInfo info CellRendererProgress p) => IsLabel t (CellRendererProgress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressInverted :: (MonadIO m, CellRendererProgressK o) => o -> m Bool -getCellRendererProgressInverted obj = liftIO $ getObjectPropertyBool obj "inverted" - -setCellRendererProgressInverted :: (MonadIO m, CellRendererProgressK o) => o -> Bool -> m () -setCellRendererProgressInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val - -constructCellRendererProgressInverted :: Bool -> IO ([Char], GValue) -constructCellRendererProgressInverted val = constructObjectPropertyBool "inverted" val - -data CellRendererProgressInvertedPropertyInfo -instance AttrInfo CellRendererProgressInvertedPropertyInfo where - type AttrAllowedOps CellRendererProgressInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressInvertedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererProgressInvertedPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressInvertedPropertyInfo = Bool - type AttrLabel CellRendererProgressInvertedPropertyInfo = "inverted" - attrGet _ = getCellRendererProgressInverted - attrSet _ = setCellRendererProgressInverted - attrConstruct _ = constructCellRendererProgressInverted - attrClear _ = undefined - --- VVV Prop "pulse" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressPulse obj = liftIO $ getObjectPropertyInt32 obj "pulse" - -setCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyInt32 obj "pulse" val - -constructCellRendererProgressPulse :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressPulse val = constructObjectPropertyInt32 "pulse" val - -data CellRendererProgressPulsePropertyInfo -instance AttrInfo CellRendererProgressPulsePropertyInfo where - type AttrAllowedOps CellRendererProgressPulsePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressPulsePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererProgressPulsePropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressPulsePropertyInfo = Int32 - type AttrLabel CellRendererProgressPulsePropertyInfo = "pulse" - attrGet _ = getCellRendererProgressPulse - attrSet _ = setCellRendererProgressPulse - attrConstruct _ = constructCellRendererProgressPulse - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m (Maybe T.Text) -getCellRendererProgressText obj = liftIO $ getObjectPropertyString obj "text" - -setCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> T.Text -> m () -setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructCellRendererProgressText :: T.Text -> IO ([Char], GValue) -constructCellRendererProgressText val = constructObjectPropertyString "text" (Just val) - -clearCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m () -clearCellRendererProgressText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data CellRendererProgressTextPropertyInfo -instance AttrInfo CellRendererProgressTextPropertyInfo where - type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressTextPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererProgressTextPropertyInfo = "text" - attrGet _ = getCellRendererProgressText - attrSet _ = setCellRendererProgressText - attrConstruct _ = constructCellRendererProgressText - attrClear _ = clearCellRendererProgressText - --- VVV Prop "text-xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressTextXalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float -getCellRendererProgressTextXalign obj = liftIO $ getObjectPropertyFloat obj "text-xalign" - -setCellRendererProgressTextXalign :: (MonadIO m, CellRendererProgressK o) => o -> Float -> m () -setCellRendererProgressTextXalign obj val = liftIO $ setObjectPropertyFloat obj "text-xalign" val - -constructCellRendererProgressTextXalign :: Float -> IO ([Char], GValue) -constructCellRendererProgressTextXalign val = constructObjectPropertyFloat "text-xalign" val - -data CellRendererProgressTextXalignPropertyInfo -instance AttrInfo CellRendererProgressTextXalignPropertyInfo where - type AttrAllowedOps CellRendererProgressTextXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressTextXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint CellRendererProgressTextXalignPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressTextXalignPropertyInfo = Float - type AttrLabel CellRendererProgressTextXalignPropertyInfo = "text-xalign" - attrGet _ = getCellRendererProgressTextXalign - attrSet _ = setCellRendererProgressTextXalign - attrConstruct _ = constructCellRendererProgressTextXalign - attrClear _ = undefined - --- VVV Prop "text-yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressTextYalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float -getCellRendererProgressTextYalign obj = liftIO $ getObjectPropertyFloat obj "text-yalign" - -setCellRendererProgressTextYalign :: (MonadIO m, CellRendererProgressK o) => o -> Float -> m () -setCellRendererProgressTextYalign obj val = liftIO $ setObjectPropertyFloat obj "text-yalign" val - -constructCellRendererProgressTextYalign :: Float -> IO ([Char], GValue) -constructCellRendererProgressTextYalign val = constructObjectPropertyFloat "text-yalign" val - -data CellRendererProgressTextYalignPropertyInfo -instance AttrInfo CellRendererProgressTextYalignPropertyInfo where - type AttrAllowedOps CellRendererProgressTextYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressTextYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint CellRendererProgressTextYalignPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressTextYalignPropertyInfo = Float - type AttrLabel CellRendererProgressTextYalignPropertyInfo = "text-yalign" - attrGet _ = getCellRendererProgressTextYalign - attrSet _ = setCellRendererProgressTextYalign - attrConstruct _ = constructCellRendererProgressTextYalign - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressValue obj = liftIO $ getObjectPropertyInt32 obj "value" - -setCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val - -constructCellRendererProgressValue :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressValue val = constructObjectPropertyInt32 "value" val - -data CellRendererProgressValuePropertyInfo -instance AttrInfo CellRendererProgressValuePropertyInfo where - type AttrAllowedOps CellRendererProgressValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressValuePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererProgressValuePropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressValuePropertyInfo = Int32 - type AttrLabel CellRendererProgressValuePropertyInfo = "value" - attrGet _ = getCellRendererProgressValue - attrSet _ = setCellRendererProgressValue - attrConstruct _ = constructCellRendererProgressValue - attrClear _ = undefined - -type instance AttributeList CellRendererProgress = CellRendererProgressAttributeList -type CellRendererProgressAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("textXalign", CellRendererProgressTextXalignPropertyInfo), '("textYalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererProgressInverted :: AttrLabelProxy "inverted" -cellRendererProgressInverted = AttrLabelProxy - -cellRendererProgressPulse :: AttrLabelProxy "pulse" -cellRendererProgressPulse = AttrLabelProxy - -cellRendererProgressText :: AttrLabelProxy "text" -cellRendererProgressText = AttrLabelProxy - -cellRendererProgressTextXalign :: AttrLabelProxy "textXalign" -cellRendererProgressTextXalign = AttrLabelProxy - -cellRendererProgressTextYalign :: AttrLabelProxy "textYalign" -cellRendererProgressTextYalign = AttrLabelProxy - -cellRendererProgressValue :: AttrLabelProxy "value" -cellRendererProgressValue = AttrLabelProxy - -type instance SignalList CellRendererProgress = CellRendererProgressSignalList -type CellRendererProgressSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererProgress::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererProgress") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_progress_new" gtk_cell_renderer_progress_new :: - IO (Ptr CellRendererProgress) - - -cellRendererProgressNew :: - (MonadIO m) => - m CellRendererProgress -- result -cellRendererProgressNew = liftIO $ do - result <- gtk_cell_renderer_progress_new - checkUnexpectedReturnNULL "gtk_cell_renderer_progress_new" result - result' <- (newObject CellRendererProgress) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererProgress.hs-boot b/GI/Gtk/Objects/CellRendererProgress.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererProgress.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.CellRendererProgress 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 CellRendererProgress = CellRendererProgress (ForeignPtr CellRendererProgress) -instance GObject CellRendererProgress where -class GObject o => CellRendererProgressK o -instance (GObject o, IsDescendantOf CellRendererProgress o) => CellRendererProgressK o -data CellRendererProgressInvertedPropertyInfo -data CellRendererProgressPulsePropertyInfo -data CellRendererProgressTextPropertyInfo -data CellRendererProgressTextXalignPropertyInfo -data CellRendererProgressTextYalignPropertyInfo -data CellRendererProgressValuePropertyInfo diff --git a/GI/Gtk/Objects/CellRendererSpin.hs b/GI/Gtk/Objects/CellRendererSpin.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererSpin.hs +++ /dev/null @@ -1,263 +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.Gtk.Objects.CellRendererSpin - ( - --- * Exported types - CellRendererSpin(..) , - CellRendererSpinK , - toCellRendererSpin , - noCellRendererSpin , - - - -- * Methods --- ** cellRendererSpinNew - cellRendererSpinNew , - - - - - -- * Properties --- ** Adjustment - CellRendererSpinAdjustmentPropertyInfo , - cellRendererSpinAdjustment , - clearCellRendererSpinAdjustment , - constructCellRendererSpinAdjustment , - getCellRendererSpinAdjustment , - setCellRendererSpinAdjustment , - - --- ** ClimbRate - CellRendererSpinClimbRatePropertyInfo , - cellRendererSpinClimbRate , - constructCellRendererSpinClimbRate , - getCellRendererSpinClimbRate , - setCellRendererSpinClimbRate , - - --- ** Digits - CellRendererSpinDigitsPropertyInfo , - cellRendererSpinDigits , - constructCellRendererSpinDigits , - getCellRendererSpinDigits , - setCellRendererSpinDigits , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellRendererSpin = CellRendererSpin (ForeignPtr CellRendererSpin) -foreign import ccall "gtk_cell_renderer_spin_get_type" - c_gtk_cell_renderer_spin_get_type :: IO GType - -type instance ParentTypes CellRendererSpin = CellRendererSpinParentTypes -type CellRendererSpinParentTypes = '[CellRendererText, CellRenderer, GObject.Object] - -instance GObject CellRendererSpin where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_spin_get_type - - -class GObject o => CellRendererSpinK o -instance (GObject o, IsDescendantOf CellRendererSpin o) => CellRendererSpinK o - -toCellRendererSpin :: CellRendererSpinK o => o -> IO CellRendererSpin -toCellRendererSpin = unsafeCastTo CellRendererSpin - -noCellRendererSpin :: Maybe CellRendererSpin -noCellRendererSpin = Nothing - -type family ResolveCellRendererSpinMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererSpinMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererSpinMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererSpinMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererSpinMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererSpinMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererSpinMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererSpinMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererSpinMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererSpinMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererSpinMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererSpinMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererSpinMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererSpinMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererSpinMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererSpinMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererSpinMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererSpinMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererSpinMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererSpinMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererSpinMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererSpinMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererSpinMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererSpinMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererSpinMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererSpinMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererSpinMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererSpinMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererSpinMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererSpinMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererSpinMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererSpinMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererSpinMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererSpinMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererSpinMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererSpinMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererSpinMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererSpinMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererSpinMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererSpinMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererSpinMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererSpinMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererSpinMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo - ResolveCellRendererSpinMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererSpinMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererSpinMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererSpinMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererSpinMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererSpinMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererSpinMethod t CellRendererSpin, MethodInfo info CellRendererSpin p) => IsLabelProxy t (CellRendererSpin -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererSpinMethod t CellRendererSpin, MethodInfo info CellRendererSpin p) => IsLabel t (CellRendererSpin -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "adjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m (Maybe Adjustment) -getCellRendererSpinAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment - -setCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o, AdjustmentK a) => o -> a -> m () -setCellRendererSpinAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) - -constructCellRendererSpinAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" (Just val) - -clearCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m () -clearCellRendererSpinAdjustment obj = liftIO $ setObjectPropertyObject obj "adjustment" (Nothing :: Maybe Adjustment) - -data CellRendererSpinAdjustmentPropertyInfo -instance AttrInfo CellRendererSpinAdjustmentPropertyInfo where - type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK - type AttrGetType CellRendererSpinAdjustmentPropertyInfo = (Maybe Adjustment) - type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "adjustment" - attrGet _ = getCellRendererSpinAdjustment - attrSet _ = setCellRendererSpinAdjustment - attrConstruct _ = constructCellRendererSpinAdjustment - attrClear _ = clearCellRendererSpinAdjustment - --- VVV Prop "climb-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinClimbRate :: (MonadIO m, CellRendererSpinK o) => o -> m Double -getCellRendererSpinClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate" - -setCellRendererSpinClimbRate :: (MonadIO m, CellRendererSpinK o) => o -> Double -> m () -setCellRendererSpinClimbRate obj val = liftIO $ setObjectPropertyDouble obj "climb-rate" val - -constructCellRendererSpinClimbRate :: Double -> IO ([Char], GValue) -constructCellRendererSpinClimbRate val = constructObjectPropertyDouble "climb-rate" val - -data CellRendererSpinClimbRatePropertyInfo -instance AttrInfo CellRendererSpinClimbRatePropertyInfo where - type AttrAllowedOps CellRendererSpinClimbRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinClimbRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint CellRendererSpinClimbRatePropertyInfo = CellRendererSpinK - type AttrGetType CellRendererSpinClimbRatePropertyInfo = Double - type AttrLabel CellRendererSpinClimbRatePropertyInfo = "climb-rate" - attrGet _ = getCellRendererSpinClimbRate - attrSet _ = setCellRendererSpinClimbRate - attrConstruct _ = constructCellRendererSpinClimbRate - attrClear _ = undefined - --- VVV Prop "digits" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> m Word32 -getCellRendererSpinDigits obj = liftIO $ getObjectPropertyUInt32 obj "digits" - -setCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> Word32 -> m () -setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyUInt32 obj "digits" val - -constructCellRendererSpinDigits :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinDigits val = constructObjectPropertyUInt32 "digits" val - -data CellRendererSpinDigitsPropertyInfo -instance AttrInfo CellRendererSpinDigitsPropertyInfo where - type AttrAllowedOps CellRendererSpinDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinDigitsPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererSpinDigitsPropertyInfo = CellRendererSpinK - type AttrGetType CellRendererSpinDigitsPropertyInfo = Word32 - type AttrLabel CellRendererSpinDigitsPropertyInfo = "digits" - attrGet _ = getCellRendererSpinDigits - attrSet _ = setCellRendererSpinDigits - attrConstruct _ = constructCellRendererSpinDigits - attrClear _ = undefined - -type instance AttributeList CellRendererSpin = CellRendererSpinAttributeList -type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("climbRate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererSpinAdjustment :: AttrLabelProxy "adjustment" -cellRendererSpinAdjustment = AttrLabelProxy - -cellRendererSpinClimbRate :: AttrLabelProxy "climbRate" -cellRendererSpinClimbRate = AttrLabelProxy - -cellRendererSpinDigits :: AttrLabelProxy "digits" -cellRendererSpinDigits = AttrLabelProxy - -type instance SignalList CellRendererSpin = CellRendererSpinSignalList -type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererSpin::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererSpin") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_spin_new" gtk_cell_renderer_spin_new :: - IO (Ptr CellRendererSpin) - - -cellRendererSpinNew :: - (MonadIO m) => - m CellRendererSpin -- result -cellRendererSpinNew = liftIO $ do - result <- gtk_cell_renderer_spin_new - checkUnexpectedReturnNULL "gtk_cell_renderer_spin_new" result - result' <- (newObject CellRendererSpin) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererSpin.hs-boot b/GI/Gtk/Objects/CellRendererSpin.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererSpin.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.CellRendererSpin 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 CellRendererSpin = CellRendererSpin (ForeignPtr CellRendererSpin) -instance GObject CellRendererSpin where -class GObject o => CellRendererSpinK o -instance (GObject o, IsDescendantOf CellRendererSpin o) => CellRendererSpinK o -data CellRendererSpinAdjustmentPropertyInfo -data CellRendererSpinClimbRatePropertyInfo -data CellRendererSpinDigitsPropertyInfo diff --git a/GI/Gtk/Objects/CellRendererSpinner.hs b/GI/Gtk/Objects/CellRendererSpinner.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererSpinner.hs +++ /dev/null @@ -1,258 +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.Gtk.Objects.CellRendererSpinner - ( - --- * Exported types - CellRendererSpinner(..) , - CellRendererSpinnerK , - toCellRendererSpinner , - noCellRendererSpinner , - - - -- * Methods --- ** cellRendererSpinnerNew - cellRendererSpinnerNew , - - - - - -- * Properties --- ** Active - CellRendererSpinnerActivePropertyInfo , - cellRendererSpinnerActive , - constructCellRendererSpinnerActive , - getCellRendererSpinnerActive , - setCellRendererSpinnerActive , - - --- ** Pulse - CellRendererSpinnerPulsePropertyInfo , - cellRendererSpinnerPulse , - constructCellRendererSpinnerPulse , - getCellRendererSpinnerPulse , - setCellRendererSpinnerPulse , - - --- ** Size - CellRendererSpinnerSizePropertyInfo , - cellRendererSpinnerSize , - constructCellRendererSpinnerSize , - getCellRendererSpinnerSize , - setCellRendererSpinnerSize , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellRendererSpinner = CellRendererSpinner (ForeignPtr CellRendererSpinner) -foreign import ccall "gtk_cell_renderer_spinner_get_type" - c_gtk_cell_renderer_spinner_get_type :: IO GType - -type instance ParentTypes CellRendererSpinner = CellRendererSpinnerParentTypes -type CellRendererSpinnerParentTypes = '[CellRenderer, GObject.Object] - -instance GObject CellRendererSpinner where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_spinner_get_type - - -class GObject o => CellRendererSpinnerK o -instance (GObject o, IsDescendantOf CellRendererSpinner o) => CellRendererSpinnerK o - -toCellRendererSpinner :: CellRendererSpinnerK o => o -> IO CellRendererSpinner -toCellRendererSpinner = unsafeCastTo CellRendererSpinner - -noCellRendererSpinner :: Maybe CellRendererSpinner -noCellRendererSpinner = Nothing - -type family ResolveCellRendererSpinnerMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererSpinnerMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererSpinnerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererSpinnerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererSpinnerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererSpinnerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererSpinnerMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererSpinnerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererSpinnerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererSpinnerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererSpinnerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererSpinnerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererSpinnerMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererSpinnerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererSpinnerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererSpinnerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererSpinnerMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererSpinnerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererSpinnerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererSpinnerMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererSpinnerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererSpinnerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererSpinnerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererSpinnerMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererSpinnerMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererSpinnerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererSpinnerMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererSpinnerMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererSpinnerMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererSpinnerMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererSpinnerMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererSpinnerMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererSpinnerMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererSpinnerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererSpinnerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererSpinnerMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererSpinnerMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererSpinnerMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererSpinnerMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererSpinnerMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererSpinnerMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererSpinnerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererSpinnerMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererSpinnerMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererSpinnerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererSpinnerMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererSpinnerMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererSpinnerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererSpinnerMethod t CellRendererSpinner, MethodInfo info CellRendererSpinner p) => IsLabelProxy t (CellRendererSpinner -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererSpinnerMethod t CellRendererSpinner, MethodInfo info CellRendererSpinner p) => IsLabel t (CellRendererSpinner -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinnerActive :: (MonadIO m, CellRendererSpinnerK o) => o -> m Bool -getCellRendererSpinnerActive obj = liftIO $ getObjectPropertyBool obj "active" - -setCellRendererSpinnerActive :: (MonadIO m, CellRendererSpinnerK o) => o -> Bool -> m () -setCellRendererSpinnerActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructCellRendererSpinnerActive :: Bool -> IO ([Char], GValue) -constructCellRendererSpinnerActive val = constructObjectPropertyBool "active" val - -data CellRendererSpinnerActivePropertyInfo -instance AttrInfo CellRendererSpinnerActivePropertyInfo where - type AttrAllowedOps CellRendererSpinnerActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinnerActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererSpinnerActivePropertyInfo = CellRendererSpinnerK - type AttrGetType CellRendererSpinnerActivePropertyInfo = Bool - type AttrLabel CellRendererSpinnerActivePropertyInfo = "active" - attrGet _ = getCellRendererSpinnerActive - attrSet _ = setCellRendererSpinnerActive - attrConstruct _ = constructCellRendererSpinnerActive - attrClear _ = undefined - --- VVV Prop "pulse" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> m Word32 -getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyUInt32 obj "pulse" - -setCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> Word32 -> m () -setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyUInt32 obj "pulse" val - -constructCellRendererSpinnerPulse :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinnerPulse val = constructObjectPropertyUInt32 "pulse" val - -data CellRendererSpinnerPulsePropertyInfo -instance AttrInfo CellRendererSpinnerPulsePropertyInfo where - type AttrAllowedOps CellRendererSpinnerPulsePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinnerPulsePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint CellRendererSpinnerPulsePropertyInfo = CellRendererSpinnerK - type AttrGetType CellRendererSpinnerPulsePropertyInfo = Word32 - type AttrLabel CellRendererSpinnerPulsePropertyInfo = "pulse" - attrGet _ = getCellRendererSpinnerPulse - attrSet _ = setCellRendererSpinnerPulse - attrConstruct _ = constructCellRendererSpinnerPulse - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererSpinnerSize :: (MonadIO m, CellRendererSpinnerK o) => o -> m IconSize -getCellRendererSpinnerSize obj = liftIO $ getObjectPropertyEnum obj "size" - -setCellRendererSpinnerSize :: (MonadIO m, CellRendererSpinnerK o) => o -> IconSize -> m () -setCellRendererSpinnerSize obj val = liftIO $ setObjectPropertyEnum obj "size" val - -constructCellRendererSpinnerSize :: IconSize -> IO ([Char], GValue) -constructCellRendererSpinnerSize val = constructObjectPropertyEnum "size" val - -data CellRendererSpinnerSizePropertyInfo -instance AttrInfo CellRendererSpinnerSizePropertyInfo where - type AttrAllowedOps CellRendererSpinnerSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinnerSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint CellRendererSpinnerSizePropertyInfo = CellRendererSpinnerK - type AttrGetType CellRendererSpinnerSizePropertyInfo = IconSize - type AttrLabel CellRendererSpinnerSizePropertyInfo = "size" - attrGet _ = getCellRendererSpinnerSize - attrSet _ = setCellRendererSpinnerSize - attrConstruct _ = constructCellRendererSpinnerSize - attrClear _ = undefined - -type instance AttributeList CellRendererSpinner = CellRendererSpinnerAttributeList -type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererSpinnerActive :: AttrLabelProxy "active" -cellRendererSpinnerActive = AttrLabelProxy - -cellRendererSpinnerPulse :: AttrLabelProxy "pulse" -cellRendererSpinnerPulse = AttrLabelProxy - -cellRendererSpinnerSize :: AttrLabelProxy "size" -cellRendererSpinnerSize = AttrLabelProxy - -type instance SignalList CellRendererSpinner = CellRendererSpinnerSignalList -type CellRendererSpinnerSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererSpinner::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererSpinner") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_spinner_new" gtk_cell_renderer_spinner_new :: - IO (Ptr CellRendererSpinner) - - -cellRendererSpinnerNew :: - (MonadIO m) => - m CellRendererSpinner -- result -cellRendererSpinnerNew = liftIO $ do - result <- gtk_cell_renderer_spinner_new - checkUnexpectedReturnNULL "gtk_cell_renderer_spinner_new" result - result' <- (newObject CellRendererSpinner) result - return result' - - diff --git a/GI/Gtk/Objects/CellRendererSpinner.hs-boot b/GI/Gtk/Objects/CellRendererSpinner.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererSpinner.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.CellRendererSpinner 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 CellRendererSpinner = CellRendererSpinner (ForeignPtr CellRendererSpinner) -instance GObject CellRendererSpinner where -class GObject o => CellRendererSpinnerK o -instance (GObject o, IsDescendantOf CellRendererSpinner o) => CellRendererSpinnerK o -data CellRendererSpinnerActivePropertyInfo -data CellRendererSpinnerPulsePropertyInfo -data CellRendererSpinnerSizePropertyInfo diff --git a/GI/Gtk/Objects/CellRendererText.hs b/GI/Gtk/Objects/CellRendererText.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererText.hs +++ /dev/null @@ -1,2070 +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.Gtk.Objects.CellRendererText - ( - --- * Exported types - CellRendererText(..) , - CellRendererTextK , - toCellRendererText , - noCellRendererText , - - - -- * Methods --- ** cellRendererTextNew - cellRendererTextNew , - - --- ** cellRendererTextSetFixedHeightFromFont - CellRendererTextSetFixedHeightFromFontMethodInfo, - cellRendererTextSetFixedHeightFromFont , - - - - - -- * Properties --- ** AlignSet - CellRendererTextAlignSetPropertyInfo , - cellRendererTextAlignSet , - constructCellRendererTextAlignSet , - getCellRendererTextAlignSet , - setCellRendererTextAlignSet , - - --- ** Alignment - CellRendererTextAlignmentPropertyInfo , - cellRendererTextAlignment , - constructCellRendererTextAlignment , - getCellRendererTextAlignment , - setCellRendererTextAlignment , - - --- ** Attributes - CellRendererTextAttributesPropertyInfo , - cellRendererTextAttributes , - clearCellRendererTextAttributes , - constructCellRendererTextAttributes , - getCellRendererTextAttributes , - setCellRendererTextAttributes , - - --- ** Background - CellRendererTextBackgroundPropertyInfo , - cellRendererTextBackground , - clearCellRendererTextBackground , - constructCellRendererTextBackground , - setCellRendererTextBackground , - - --- ** BackgroundGdk - CellRendererTextBackgroundGdkPropertyInfo, - cellRendererTextBackgroundGdk , - clearCellRendererTextBackgroundGdk , - constructCellRendererTextBackgroundGdk , - getCellRendererTextBackgroundGdk , - setCellRendererTextBackgroundGdk , - - --- ** BackgroundRgba - CellRendererTextBackgroundRgbaPropertyInfo, - cellRendererTextBackgroundRgba , - clearCellRendererTextBackgroundRgba , - constructCellRendererTextBackgroundRgba , - getCellRendererTextBackgroundRgba , - setCellRendererTextBackgroundRgba , - - --- ** BackgroundSet - CellRendererTextBackgroundSetPropertyInfo, - cellRendererTextBackgroundSet , - constructCellRendererTextBackgroundSet , - getCellRendererTextBackgroundSet , - setCellRendererTextBackgroundSet , - - --- ** Editable - CellRendererTextEditablePropertyInfo , - cellRendererTextEditable , - constructCellRendererTextEditable , - getCellRendererTextEditable , - setCellRendererTextEditable , - - --- ** EditableSet - CellRendererTextEditableSetPropertyInfo , - cellRendererTextEditableSet , - constructCellRendererTextEditableSet , - getCellRendererTextEditableSet , - setCellRendererTextEditableSet , - - --- ** Ellipsize - CellRendererTextEllipsizePropertyInfo , - cellRendererTextEllipsize , - constructCellRendererTextEllipsize , - getCellRendererTextEllipsize , - setCellRendererTextEllipsize , - - --- ** EllipsizeSet - CellRendererTextEllipsizeSetPropertyInfo, - cellRendererTextEllipsizeSet , - constructCellRendererTextEllipsizeSet , - getCellRendererTextEllipsizeSet , - setCellRendererTextEllipsizeSet , - - --- ** Family - CellRendererTextFamilyPropertyInfo , - cellRendererTextFamily , - clearCellRendererTextFamily , - constructCellRendererTextFamily , - getCellRendererTextFamily , - setCellRendererTextFamily , - - --- ** FamilySet - CellRendererTextFamilySetPropertyInfo , - cellRendererTextFamilySet , - constructCellRendererTextFamilySet , - getCellRendererTextFamilySet , - setCellRendererTextFamilySet , - - --- ** Font - CellRendererTextFontPropertyInfo , - cellRendererTextFont , - clearCellRendererTextFont , - constructCellRendererTextFont , - getCellRendererTextFont , - setCellRendererTextFont , - - --- ** FontDesc - CellRendererTextFontDescPropertyInfo , - cellRendererTextFontDesc , - clearCellRendererTextFontDesc , - constructCellRendererTextFontDesc , - getCellRendererTextFontDesc , - setCellRendererTextFontDesc , - - --- ** Foreground - CellRendererTextForegroundPropertyInfo , - cellRendererTextForeground , - clearCellRendererTextForeground , - constructCellRendererTextForeground , - setCellRendererTextForeground , - - --- ** ForegroundGdk - CellRendererTextForegroundGdkPropertyInfo, - cellRendererTextForegroundGdk , - clearCellRendererTextForegroundGdk , - constructCellRendererTextForegroundGdk , - getCellRendererTextForegroundGdk , - setCellRendererTextForegroundGdk , - - --- ** ForegroundRgba - CellRendererTextForegroundRgbaPropertyInfo, - cellRendererTextForegroundRgba , - clearCellRendererTextForegroundRgba , - constructCellRendererTextForegroundRgba , - getCellRendererTextForegroundRgba , - setCellRendererTextForegroundRgba , - - --- ** ForegroundSet - CellRendererTextForegroundSetPropertyInfo, - cellRendererTextForegroundSet , - constructCellRendererTextForegroundSet , - getCellRendererTextForegroundSet , - setCellRendererTextForegroundSet , - - --- ** Language - CellRendererTextLanguagePropertyInfo , - cellRendererTextLanguage , - clearCellRendererTextLanguage , - constructCellRendererTextLanguage , - getCellRendererTextLanguage , - setCellRendererTextLanguage , - - --- ** LanguageSet - CellRendererTextLanguageSetPropertyInfo , - cellRendererTextLanguageSet , - constructCellRendererTextLanguageSet , - getCellRendererTextLanguageSet , - setCellRendererTextLanguageSet , - - --- ** Markup - CellRendererTextMarkupPropertyInfo , - cellRendererTextMarkup , - clearCellRendererTextMarkup , - constructCellRendererTextMarkup , - setCellRendererTextMarkup , - - --- ** MaxWidthChars - CellRendererTextMaxWidthCharsPropertyInfo, - cellRendererTextMaxWidthChars , - constructCellRendererTextMaxWidthChars , - getCellRendererTextMaxWidthChars , - setCellRendererTextMaxWidthChars , - - --- ** PlaceholderText - CellRendererTextPlaceholderTextPropertyInfo, - cellRendererTextPlaceholderText , - clearCellRendererTextPlaceholderText , - constructCellRendererTextPlaceholderText, - getCellRendererTextPlaceholderText , - setCellRendererTextPlaceholderText , - - --- ** Rise - CellRendererTextRisePropertyInfo , - cellRendererTextRise , - constructCellRendererTextRise , - getCellRendererTextRise , - setCellRendererTextRise , - - --- ** RiseSet - CellRendererTextRiseSetPropertyInfo , - cellRendererTextRiseSet , - constructCellRendererTextRiseSet , - getCellRendererTextRiseSet , - setCellRendererTextRiseSet , - - --- ** Scale - CellRendererTextScalePropertyInfo , - cellRendererTextScale , - constructCellRendererTextScale , - getCellRendererTextScale , - setCellRendererTextScale , - - --- ** ScaleSet - CellRendererTextScaleSetPropertyInfo , - cellRendererTextScaleSet , - constructCellRendererTextScaleSet , - getCellRendererTextScaleSet , - setCellRendererTextScaleSet , - - --- ** SingleParagraphMode - CellRendererTextSingleParagraphModePropertyInfo, - cellRendererTextSingleParagraphMode , - constructCellRendererTextSingleParagraphMode, - getCellRendererTextSingleParagraphMode , - setCellRendererTextSingleParagraphMode , - - --- ** Size - CellRendererTextSizePropertyInfo , - cellRendererTextSize , - constructCellRendererTextSize , - getCellRendererTextSize , - setCellRendererTextSize , - - --- ** SizePoints - CellRendererTextSizePointsPropertyInfo , - cellRendererTextSizePoints , - constructCellRendererTextSizePoints , - getCellRendererTextSizePoints , - setCellRendererTextSizePoints , - - --- ** SizeSet - CellRendererTextSizeSetPropertyInfo , - cellRendererTextSizeSet , - constructCellRendererTextSizeSet , - getCellRendererTextSizeSet , - setCellRendererTextSizeSet , - - --- ** Stretch - CellRendererTextStretchPropertyInfo , - cellRendererTextStretch , - constructCellRendererTextStretch , - getCellRendererTextStretch , - setCellRendererTextStretch , - - --- ** StretchSet - CellRendererTextStretchSetPropertyInfo , - cellRendererTextStretchSet , - constructCellRendererTextStretchSet , - getCellRendererTextStretchSet , - setCellRendererTextStretchSet , - - --- ** Strikethrough - CellRendererTextStrikethroughPropertyInfo, - cellRendererTextStrikethrough , - constructCellRendererTextStrikethrough , - getCellRendererTextStrikethrough , - setCellRendererTextStrikethrough , - - --- ** StrikethroughSet - CellRendererTextStrikethroughSetPropertyInfo, - cellRendererTextStrikethroughSet , - constructCellRendererTextStrikethroughSet, - getCellRendererTextStrikethroughSet , - setCellRendererTextStrikethroughSet , - - --- ** Style - CellRendererTextStylePropertyInfo , - cellRendererTextStyle , - constructCellRendererTextStyle , - getCellRendererTextStyle , - setCellRendererTextStyle , - - --- ** StyleSet - CellRendererTextStyleSetPropertyInfo , - cellRendererTextStyleSet , - constructCellRendererTextStyleSet , - getCellRendererTextStyleSet , - setCellRendererTextStyleSet , - - --- ** Text - CellRendererTextTextPropertyInfo , - cellRendererTextText , - clearCellRendererTextText , - constructCellRendererTextText , - getCellRendererTextText , - setCellRendererTextText , - - --- ** Underline - CellRendererTextUnderlinePropertyInfo , - cellRendererTextUnderline , - constructCellRendererTextUnderline , - getCellRendererTextUnderline , - setCellRendererTextUnderline , - - --- ** UnderlineSet - CellRendererTextUnderlineSetPropertyInfo, - cellRendererTextUnderlineSet , - constructCellRendererTextUnderlineSet , - getCellRendererTextUnderlineSet , - setCellRendererTextUnderlineSet , - - --- ** Variant - CellRendererTextVariantPropertyInfo , - cellRendererTextVariant , - constructCellRendererTextVariant , - getCellRendererTextVariant , - setCellRendererTextVariant , - - --- ** VariantSet - CellRendererTextVariantSetPropertyInfo , - cellRendererTextVariantSet , - constructCellRendererTextVariantSet , - getCellRendererTextVariantSet , - setCellRendererTextVariantSet , - - --- ** Weight - CellRendererTextWeightPropertyInfo , - cellRendererTextWeight , - constructCellRendererTextWeight , - getCellRendererTextWeight , - setCellRendererTextWeight , - - --- ** WeightSet - CellRendererTextWeightSetPropertyInfo , - cellRendererTextWeightSet , - constructCellRendererTextWeightSet , - getCellRendererTextWeightSet , - setCellRendererTextWeightSet , - - --- ** WidthChars - CellRendererTextWidthCharsPropertyInfo , - cellRendererTextWidthChars , - constructCellRendererTextWidthChars , - getCellRendererTextWidthChars , - setCellRendererTextWidthChars , - - --- ** WrapMode - CellRendererTextWrapModePropertyInfo , - cellRendererTextWrapMode , - constructCellRendererTextWrapMode , - getCellRendererTextWrapMode , - setCellRendererTextWrapMode , - - --- ** WrapWidth - CellRendererTextWrapWidthPropertyInfo , - cellRendererTextWrapWidth , - constructCellRendererTextWrapWidth , - getCellRendererTextWrapWidth , - setCellRendererTextWrapWidth , - - - - - -- * Signals --- ** Edited - CellRendererTextEditedCallback , - CellRendererTextEditedCallbackC , - CellRendererTextEditedSignalInfo , - afterCellRendererTextEdited , - cellRendererTextEditedCallbackWrapper , - cellRendererTextEditedClosure , - mkCellRendererTextEditedCallback , - noCellRendererTextEditedCallback , - onCellRendererTextEdited , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype CellRendererText = CellRendererText (ForeignPtr CellRendererText) -foreign import ccall "gtk_cell_renderer_text_get_type" - c_gtk_cell_renderer_text_get_type :: IO GType - -type instance ParentTypes CellRendererText = CellRendererTextParentTypes -type CellRendererTextParentTypes = '[CellRenderer, GObject.Object] - -instance GObject CellRendererText where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_text_get_type - - -class GObject o => CellRendererTextK o -instance (GObject o, IsDescendantOf CellRendererText o) => CellRendererTextK o - -toCellRendererText :: CellRendererTextK o => o -> IO CellRendererText -toCellRendererText = unsafeCastTo CellRendererText - -noCellRendererText :: Maybe CellRendererText -noCellRendererText = Nothing - -type family ResolveCellRendererTextMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererTextMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererTextMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererTextMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererTextMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererTextMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererTextMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererTextMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererTextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererTextMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererTextMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererTextMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererTextMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererTextMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererTextMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererTextMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererTextMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererTextMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererTextMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererTextMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererTextMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererTextMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererTextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererTextMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo - ResolveCellRendererTextMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererTextMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererTextMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererTextMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererTextMethod t CellRendererText, MethodInfo info CellRendererText p) => IsLabelProxy t (CellRendererText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererTextMethod t CellRendererText, MethodInfo info CellRendererText p) => IsLabel t (CellRendererText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellRendererText::edited -type CellRendererTextEditedCallback = - T.Text -> - T.Text -> - IO () - -noCellRendererTextEditedCallback :: Maybe CellRendererTextEditedCallback -noCellRendererTextEditedCallback = Nothing - -type CellRendererTextEditedCallbackC = - Ptr () -> -- object - CString -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererTextEditedCallback :: CellRendererTextEditedCallbackC -> IO (FunPtr CellRendererTextEditedCallbackC) - -cellRendererTextEditedClosure :: CellRendererTextEditedCallback -> IO Closure -cellRendererTextEditedClosure cb = newCClosure =<< mkCellRendererTextEditedCallback wrapped - where wrapped = cellRendererTextEditedCallbackWrapper cb - -cellRendererTextEditedCallbackWrapper :: - CellRendererTextEditedCallback -> - Ptr () -> - CString -> - CString -> - Ptr () -> - IO () -cellRendererTextEditedCallbackWrapper _cb _ path newText _ = do - path' <- cstringToText path - newText' <- cstringToText newText - _cb path' newText' - -onCellRendererTextEdited :: (GObject a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId -onCellRendererTextEdited obj cb = liftIO $ connectCellRendererTextEdited obj cb SignalConnectBefore -afterCellRendererTextEdited :: (GObject a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId -afterCellRendererTextEdited obj cb = connectCellRendererTextEdited obj cb SignalConnectAfter - -connectCellRendererTextEdited :: (GObject a, MonadIO m) => - a -> CellRendererTextEditedCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererTextEdited obj cb after = liftIO $ do - cb' <- mkCellRendererTextEditedCallback (cellRendererTextEditedCallbackWrapper cb) - connectSignalFunPtr obj "edited" cb' after - --- VVV Prop "align-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextAlignSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextAlignSet obj = liftIO $ getObjectPropertyBool obj "align-set" - -setCellRendererTextAlignSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextAlignSet obj val = liftIO $ setObjectPropertyBool obj "align-set" val - -constructCellRendererTextAlignSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextAlignSet val = constructObjectPropertyBool "align-set" val - -data CellRendererTextAlignSetPropertyInfo -instance AttrInfo CellRendererTextAlignSetPropertyInfo where - type AttrAllowedOps CellRendererTextAlignSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextAlignSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextAlignSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextAlignSetPropertyInfo = Bool - type AttrLabel CellRendererTextAlignSetPropertyInfo = "align-set" - attrGet _ = getCellRendererTextAlignSet - attrSet _ = setCellRendererTextAlignSet - attrConstruct _ = constructCellRendererTextAlignSet - attrClear _ = undefined - --- VVV Prop "alignment" - -- Type: TInterface "Pango" "Alignment" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextAlignment :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Alignment -getCellRendererTextAlignment obj = liftIO $ getObjectPropertyEnum obj "alignment" - -setCellRendererTextAlignment :: (MonadIO m, CellRendererTextK o) => o -> Pango.Alignment -> m () -setCellRendererTextAlignment obj val = liftIO $ setObjectPropertyEnum obj "alignment" val - -constructCellRendererTextAlignment :: Pango.Alignment -> IO ([Char], GValue) -constructCellRendererTextAlignment val = constructObjectPropertyEnum "alignment" val - -data CellRendererTextAlignmentPropertyInfo -instance AttrInfo CellRendererTextAlignmentPropertyInfo where - type AttrAllowedOps CellRendererTextAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextAlignmentPropertyInfo = (~) Pango.Alignment - type AttrBaseTypeConstraint CellRendererTextAlignmentPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextAlignmentPropertyInfo = Pango.Alignment - type AttrLabel CellRendererTextAlignmentPropertyInfo = "alignment" - attrGet _ = getCellRendererTextAlignment - attrSet _ = setCellRendererTextAlignment - attrConstruct _ = constructCellRendererTextAlignment - attrClear _ = undefined - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.AttrList) -getCellRendererTextAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> Pango.AttrList -> m () -setCellRendererTextAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) - -constructCellRendererTextAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" (Just val) - -clearCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList) - -data CellRendererTextAttributesPropertyInfo -instance AttrInfo CellRendererTextAttributesPropertyInfo where - type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextAttributesPropertyInfo = (Maybe Pango.AttrList) - type AttrLabel CellRendererTextAttributesPropertyInfo = "attributes" - attrGet _ = getCellRendererTextAttributes - attrSet _ = setCellRendererTextAttributes - attrConstruct _ = constructCellRendererTextAttributes - attrClear _ = clearCellRendererTextAttributes - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) - -constructCellRendererTextBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextBackground val = constructObjectPropertyString "background" (Just val) - -clearCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) - -data CellRendererTextBackgroundPropertyInfo -instance AttrInfo CellRendererTextBackgroundPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundPropertyInfo = () - type AttrLabel CellRendererTextBackgroundPropertyInfo = "background" - attrGet _ = undefined - attrSet _ = setCellRendererTextBackground - attrConstruct _ = constructCellRendererTextBackground - attrClear _ = clearCellRendererTextBackground - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) -getCellRendererTextBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color - -setCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m () -setCellRendererTextBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) - -constructCellRendererTextBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) - -clearCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) - -data CellRendererTextBackgroundGdkPropertyInfo -instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "background-gdk" - attrGet _ = getCellRendererTextBackgroundGdk - attrSet _ = setCellRendererTextBackgroundGdk - attrConstruct _ = constructCellRendererTextBackgroundGdk - attrClear _ = clearCellRendererTextBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) -getCellRendererTextBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA - -setCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m () -setCellRendererTextBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) - -constructCellRendererTextBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) - -clearCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA) - -data CellRendererTextBackgroundRgbaPropertyInfo -instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "background-rgba" - attrGet _ = getCellRendererTextBackgroundRgba - attrSet _ = setCellRendererTextBackgroundRgba - attrConstruct _ = constructCellRendererTextBackgroundRgba - attrClear _ = clearCellRendererTextBackgroundRgba - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextBackgroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" - -setCellRendererTextBackgroundSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "background-set" val - -constructCellRendererTextBackgroundSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextBackgroundSet val = constructObjectPropertyBool "background-set" val - -data CellRendererTextBackgroundSetPropertyInfo -instance AttrInfo CellRendererTextBackgroundSetPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextBackgroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextBackgroundSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundSetPropertyInfo = Bool - type AttrLabel CellRendererTextBackgroundSetPropertyInfo = "background-set" - attrGet _ = getCellRendererTextBackgroundSet - attrSet _ = setCellRendererTextBackgroundSet - attrConstruct _ = constructCellRendererTextBackgroundSet - attrClear _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextEditable :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setCellRendererTextEditable :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructCellRendererTextEditable :: Bool -> IO ([Char], GValue) -constructCellRendererTextEditable val = constructObjectPropertyBool "editable" val - -data CellRendererTextEditablePropertyInfo -instance AttrInfo CellRendererTextEditablePropertyInfo where - type AttrAllowedOps CellRendererTextEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextEditablePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextEditablePropertyInfo = Bool - type AttrLabel CellRendererTextEditablePropertyInfo = "editable" - attrGet _ = getCellRendererTextEditable - attrSet _ = setCellRendererTextEditable - attrConstruct _ = constructCellRendererTextEditable - attrClear _ = undefined - --- VVV Prop "editable-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextEditableSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set" - -setCellRendererTextEditableSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextEditableSet obj val = liftIO $ setObjectPropertyBool obj "editable-set" val - -constructCellRendererTextEditableSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextEditableSet val = constructObjectPropertyBool "editable-set" val - -data CellRendererTextEditableSetPropertyInfo -instance AttrInfo CellRendererTextEditableSetPropertyInfo where - type AttrAllowedOps CellRendererTextEditableSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextEditableSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextEditableSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextEditableSetPropertyInfo = Bool - type AttrLabel CellRendererTextEditableSetPropertyInfo = "editable-set" - attrGet _ = getCellRendererTextEditableSet - attrSet _ = setCellRendererTextEditableSet - attrConstruct _ = constructCellRendererTextEditableSet - attrClear _ = undefined - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextEllipsize :: (MonadIO m, CellRendererTextK o) => o -> m Pango.EllipsizeMode -getCellRendererTextEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" - -setCellRendererTextEllipsize :: (MonadIO m, CellRendererTextK o) => o -> Pango.EllipsizeMode -> m () -setCellRendererTextEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val - -constructCellRendererTextEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) -constructCellRendererTextEllipsize val = constructObjectPropertyEnum "ellipsize" val - -data CellRendererTextEllipsizePropertyInfo -instance AttrInfo CellRendererTextEllipsizePropertyInfo where - type AttrAllowedOps CellRendererTextEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextEllipsizePropertyInfo = (~) Pango.EllipsizeMode - type AttrBaseTypeConstraint CellRendererTextEllipsizePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel CellRendererTextEllipsizePropertyInfo = "ellipsize" - attrGet _ = getCellRendererTextEllipsize - attrSet _ = setCellRendererTextEllipsize - attrConstruct _ = constructCellRendererTextEllipsize - attrClear _ = undefined - --- VVV Prop "ellipsize-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextEllipsizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextEllipsizeSet obj = liftIO $ getObjectPropertyBool obj "ellipsize-set" - -setCellRendererTextEllipsizeSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextEllipsizeSet obj val = liftIO $ setObjectPropertyBool obj "ellipsize-set" val - -constructCellRendererTextEllipsizeSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextEllipsizeSet val = constructObjectPropertyBool "ellipsize-set" val - -data CellRendererTextEllipsizeSetPropertyInfo -instance AttrInfo CellRendererTextEllipsizeSetPropertyInfo where - type AttrAllowedOps CellRendererTextEllipsizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextEllipsizeSetPropertyInfo = Bool - type AttrLabel CellRendererTextEllipsizeSetPropertyInfo = "ellipsize-set" - attrGet _ = getCellRendererTextEllipsizeSet - attrSet _ = setCellRendererTextEllipsizeSet - attrConstruct _ = constructCellRendererTextEllipsizeSet - attrClear _ = undefined - --- VVV Prop "family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) -getCellRendererTextFamily obj = liftIO $ getObjectPropertyString obj "family" - -setCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" (Just val) - -constructCellRendererTextFamily :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFamily val = constructObjectPropertyString "family" (Just val) - -clearCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextFamily obj = liftIO $ setObjectPropertyString obj "family" (Nothing :: Maybe T.Text) - -data CellRendererTextFamilyPropertyInfo -instance AttrInfo CellRendererTextFamilyPropertyInfo where - type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFamilyPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererTextFamilyPropertyInfo = "family" - attrGet _ = getCellRendererTextFamily - attrSet _ = setCellRendererTextFamily - attrConstruct _ = constructCellRendererTextFamily - attrClear _ = clearCellRendererTextFamily - --- VVV Prop "family-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextFamilySet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set" - -setCellRendererTextFamilySet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextFamilySet obj val = liftIO $ setObjectPropertyBool obj "family-set" val - -constructCellRendererTextFamilySet :: Bool -> IO ([Char], GValue) -constructCellRendererTextFamilySet val = constructObjectPropertyBool "family-set" val - -data CellRendererTextFamilySetPropertyInfo -instance AttrInfo CellRendererTextFamilySetPropertyInfo where - type AttrAllowedOps CellRendererTextFamilySetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextFamilySetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextFamilySetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFamilySetPropertyInfo = Bool - type AttrLabel CellRendererTextFamilySetPropertyInfo = "family-set" - attrGet _ = getCellRendererTextFamilySet - attrSet _ = setCellRendererTextFamilySet - attrConstruct _ = constructCellRendererTextFamilySet - attrClear _ = undefined - --- VVV Prop "font" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) -getCellRendererTextFont obj = liftIO $ getObjectPropertyString obj "font" - -setCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) - -constructCellRendererTextFont :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFont val = constructObjectPropertyString "font" (Just val) - -clearCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextFont obj = liftIO $ setObjectPropertyString obj "font" (Nothing :: Maybe T.Text) - -data CellRendererTextFontPropertyInfo -instance AttrInfo CellRendererTextFontPropertyInfo where - type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererTextFontPropertyInfo = "font" - attrGet _ = getCellRendererTextFont - attrSet _ = setCellRendererTextFont - attrConstruct _ = constructCellRendererTextFont - attrClear _ = clearCellRendererTextFont - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.FontDescription) -getCellRendererTextFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription - -setCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> Pango.FontDescription -> m () -setCellRendererTextFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) - -constructCellRendererTextFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) - -clearCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextFontDesc obj = liftIO $ setObjectPropertyBoxed obj "font-desc" (Nothing :: Maybe Pango.FontDescription) - -data CellRendererTextFontDescPropertyInfo -instance AttrInfo CellRendererTextFontDescPropertyInfo where - type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription - type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontDescPropertyInfo = (Maybe Pango.FontDescription) - type AttrLabel CellRendererTextFontDescPropertyInfo = "font-desc" - attrGet _ = getCellRendererTextFontDesc - attrSet _ = setCellRendererTextFontDesc - attrConstruct _ = constructCellRendererTextFontDesc - attrClear _ = clearCellRendererTextFontDesc - --- VVV Prop "foreground" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" (Just val) - -constructCellRendererTextForeground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextForeground val = constructObjectPropertyString "foreground" (Just val) - -clearCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextForeground obj = liftIO $ setObjectPropertyString obj "foreground" (Nothing :: Maybe T.Text) - -data CellRendererTextForegroundPropertyInfo -instance AttrInfo CellRendererTextForegroundPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundPropertyInfo = () - type AttrLabel CellRendererTextForegroundPropertyInfo = "foreground" - attrGet _ = undefined - attrSet _ = setCellRendererTextForeground - attrConstruct _ = constructCellRendererTextForeground - attrClear _ = clearCellRendererTextForeground - --- VVV Prop "foreground-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) -getCellRendererTextForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color - -setCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m () -setCellRendererTextForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Just val) - -constructCellRendererTextForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" (Just val) - -clearCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextForegroundGdk obj = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Nothing :: Maybe Gdk.Color) - -data CellRendererTextForegroundGdkPropertyInfo -instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "foreground-gdk" - attrGet _ = getCellRendererTextForegroundGdk - attrSet _ = setCellRendererTextForegroundGdk - attrConstruct _ = constructCellRendererTextForegroundGdk - attrClear _ = clearCellRendererTextForegroundGdk - --- VVV Prop "foreground-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) -getCellRendererTextForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA - -setCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m () -setCellRendererTextForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Just val) - -constructCellRendererTextForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" (Just val) - -clearCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextForegroundRgba obj = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Nothing :: Maybe Gdk.RGBA) - -data CellRendererTextForegroundRgbaPropertyInfo -instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "foreground-rgba" - attrGet _ = getCellRendererTextForegroundRgba - attrSet _ = setCellRendererTextForegroundRgba - attrConstruct _ = constructCellRendererTextForegroundRgba - attrClear _ = clearCellRendererTextForegroundRgba - --- VVV Prop "foreground-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextForegroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set" - -setCellRendererTextForegroundSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextForegroundSet obj val = liftIO $ setObjectPropertyBool obj "foreground-set" val - -constructCellRendererTextForegroundSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextForegroundSet val = constructObjectPropertyBool "foreground-set" val - -data CellRendererTextForegroundSetPropertyInfo -instance AttrInfo CellRendererTextForegroundSetPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextForegroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextForegroundSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundSetPropertyInfo = Bool - type AttrLabel CellRendererTextForegroundSetPropertyInfo = "foreground-set" - attrGet _ = getCellRendererTextForegroundSet - attrSet _ = setCellRendererTextForegroundSet - attrConstruct _ = constructCellRendererTextForegroundSet - attrClear _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) -getCellRendererTextLanguage obj = liftIO $ getObjectPropertyString obj "language" - -setCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" (Just val) - -constructCellRendererTextLanguage :: T.Text -> IO ([Char], GValue) -constructCellRendererTextLanguage val = constructObjectPropertyString "language" (Just val) - -clearCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextLanguage obj = liftIO $ setObjectPropertyString obj "language" (Nothing :: Maybe T.Text) - -data CellRendererTextLanguagePropertyInfo -instance AttrInfo CellRendererTextLanguagePropertyInfo where - type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextLanguagePropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererTextLanguagePropertyInfo = "language" - attrGet _ = getCellRendererTextLanguage - attrSet _ = setCellRendererTextLanguage - attrConstruct _ = constructCellRendererTextLanguage - attrClear _ = clearCellRendererTextLanguage - --- VVV Prop "language-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextLanguageSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set" - -setCellRendererTextLanguageSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextLanguageSet obj val = liftIO $ setObjectPropertyBool obj "language-set" val - -constructCellRendererTextLanguageSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextLanguageSet val = constructObjectPropertyBool "language-set" val - -data CellRendererTextLanguageSetPropertyInfo -instance AttrInfo CellRendererTextLanguageSetPropertyInfo where - type AttrAllowedOps CellRendererTextLanguageSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextLanguageSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextLanguageSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextLanguageSetPropertyInfo = Bool - type AttrLabel CellRendererTextLanguageSetPropertyInfo = "language-set" - attrGet _ = getCellRendererTextLanguageSet - attrSet _ = setCellRendererTextLanguageSet - attrConstruct _ = constructCellRendererTextLanguageSet - attrClear _ = undefined - --- VVV Prop "markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" (Just val) - -constructCellRendererTextMarkup :: T.Text -> IO ([Char], GValue) -constructCellRendererTextMarkup val = constructObjectPropertyString "markup" (Just val) - -clearCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextMarkup obj = liftIO $ setObjectPropertyString obj "markup" (Nothing :: Maybe T.Text) - -data CellRendererTextMarkupPropertyInfo -instance AttrInfo CellRendererTextMarkupPropertyInfo where - type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextMarkupPropertyInfo = () - type AttrLabel CellRendererTextMarkupPropertyInfo = "markup" - attrGet _ = undefined - attrSet _ = setCellRendererTextMarkup - attrConstruct _ = constructCellRendererTextMarkup - attrClear _ = clearCellRendererTextMarkup - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" - -setCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val - -constructCellRendererTextMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val - -data CellRendererTextMaxWidthCharsPropertyInfo -instance AttrInfo CellRendererTextMaxWidthCharsPropertyInfo where - type AttrAllowedOps CellRendererTextMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextMaxWidthCharsPropertyInfo = Int32 - type AttrLabel CellRendererTextMaxWidthCharsPropertyInfo = "max-width-chars" - attrGet _ = getCellRendererTextMaxWidthChars - attrSet _ = setCellRendererTextMaxWidthChars - attrConstruct _ = constructCellRendererTextMaxWidthChars - attrClear _ = undefined - --- VVV Prop "placeholder-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) -getCellRendererTextPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" - -setCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) - -constructCellRendererTextPlaceholderText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) - -clearCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text) - -data CellRendererTextPlaceholderTextPropertyInfo -instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where - type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "placeholder-text" - attrGet _ = getCellRendererTextPlaceholderText - attrSet _ = setCellRendererTextPlaceholderText - attrConstruct _ = constructCellRendererTextPlaceholderText - attrClear _ = clearCellRendererTextPlaceholderText - --- VVV Prop "rise" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextRise obj = liftIO $ getObjectPropertyInt32 obj "rise" - -setCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextRise obj val = liftIO $ setObjectPropertyInt32 obj "rise" val - -constructCellRendererTextRise :: Int32 -> IO ([Char], GValue) -constructCellRendererTextRise val = constructObjectPropertyInt32 "rise" val - -data CellRendererTextRisePropertyInfo -instance AttrInfo CellRendererTextRisePropertyInfo where - type AttrAllowedOps CellRendererTextRisePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextRisePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextRisePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextRisePropertyInfo = Int32 - type AttrLabel CellRendererTextRisePropertyInfo = "rise" - attrGet _ = getCellRendererTextRise - attrSet _ = setCellRendererTextRise - attrConstruct _ = constructCellRendererTextRise - attrClear _ = undefined - --- VVV Prop "rise-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextRiseSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set" - -setCellRendererTextRiseSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextRiseSet obj val = liftIO $ setObjectPropertyBool obj "rise-set" val - -constructCellRendererTextRiseSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextRiseSet val = constructObjectPropertyBool "rise-set" val - -data CellRendererTextRiseSetPropertyInfo -instance AttrInfo CellRendererTextRiseSetPropertyInfo where - type AttrAllowedOps CellRendererTextRiseSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextRiseSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextRiseSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextRiseSetPropertyInfo = Bool - type AttrLabel CellRendererTextRiseSetPropertyInfo = "rise-set" - attrGet _ = getCellRendererTextRiseSet - attrSet _ = setCellRendererTextRiseSet - attrConstruct _ = constructCellRendererTextRiseSet - attrClear _ = undefined - --- VVV Prop "scale" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextScale :: (MonadIO m, CellRendererTextK o) => o -> m Double -getCellRendererTextScale obj = liftIO $ getObjectPropertyDouble obj "scale" - -setCellRendererTextScale :: (MonadIO m, CellRendererTextK o) => o -> Double -> m () -setCellRendererTextScale obj val = liftIO $ setObjectPropertyDouble obj "scale" val - -constructCellRendererTextScale :: Double -> IO ([Char], GValue) -constructCellRendererTextScale val = constructObjectPropertyDouble "scale" val - -data CellRendererTextScalePropertyInfo -instance AttrInfo CellRendererTextScalePropertyInfo where - type AttrAllowedOps CellRendererTextScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextScalePropertyInfo = (~) Double - type AttrBaseTypeConstraint CellRendererTextScalePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextScalePropertyInfo = Double - type AttrLabel CellRendererTextScalePropertyInfo = "scale" - attrGet _ = getCellRendererTextScale - attrSet _ = setCellRendererTextScale - attrConstruct _ = constructCellRendererTextScale - attrClear _ = undefined - --- VVV Prop "scale-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextScaleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set" - -setCellRendererTextScaleSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextScaleSet obj val = liftIO $ setObjectPropertyBool obj "scale-set" val - -constructCellRendererTextScaleSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextScaleSet val = constructObjectPropertyBool "scale-set" val - -data CellRendererTextScaleSetPropertyInfo -instance AttrInfo CellRendererTextScaleSetPropertyInfo where - type AttrAllowedOps CellRendererTextScaleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextScaleSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextScaleSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextScaleSetPropertyInfo = Bool - type AttrLabel CellRendererTextScaleSetPropertyInfo = "scale-set" - attrGet _ = getCellRendererTextScaleSet - attrSet _ = setCellRendererTextScaleSet - attrConstruct _ = constructCellRendererTextScaleSet - attrClear _ = undefined - --- VVV Prop "single-paragraph-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextSingleParagraphMode :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextSingleParagraphMode obj = liftIO $ getObjectPropertyBool obj "single-paragraph-mode" - -setCellRendererTextSingleParagraphMode :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextSingleParagraphMode obj val = liftIO $ setObjectPropertyBool obj "single-paragraph-mode" val - -constructCellRendererTextSingleParagraphMode :: Bool -> IO ([Char], GValue) -constructCellRendererTextSingleParagraphMode val = constructObjectPropertyBool "single-paragraph-mode" val - -data CellRendererTextSingleParagraphModePropertyInfo -instance AttrInfo CellRendererTextSingleParagraphModePropertyInfo where - type AttrAllowedOps CellRendererTextSingleParagraphModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextSingleParagraphModePropertyInfo = Bool - type AttrLabel CellRendererTextSingleParagraphModePropertyInfo = "single-paragraph-mode" - attrGet _ = getCellRendererTextSingleParagraphMode - attrSet _ = setCellRendererTextSingleParagraphMode - attrConstruct _ = constructCellRendererTextSingleParagraphMode - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextSize obj = liftIO $ getObjectPropertyInt32 obj "size" - -setCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val - -constructCellRendererTextSize :: Int32 -> IO ([Char], GValue) -constructCellRendererTextSize val = constructObjectPropertyInt32 "size" val - -data CellRendererTextSizePropertyInfo -instance AttrInfo CellRendererTextSizePropertyInfo where - type AttrAllowedOps CellRendererTextSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextSizePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextSizePropertyInfo = Int32 - type AttrLabel CellRendererTextSizePropertyInfo = "size" - attrGet _ = getCellRendererTextSize - attrSet _ = setCellRendererTextSize - attrConstruct _ = constructCellRendererTextSize - attrClear _ = undefined - --- VVV Prop "size-points" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextSizePoints :: (MonadIO m, CellRendererTextK o) => o -> m Double -getCellRendererTextSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points" - -setCellRendererTextSizePoints :: (MonadIO m, CellRendererTextK o) => o -> Double -> m () -setCellRendererTextSizePoints obj val = liftIO $ setObjectPropertyDouble obj "size-points" val - -constructCellRendererTextSizePoints :: Double -> IO ([Char], GValue) -constructCellRendererTextSizePoints val = constructObjectPropertyDouble "size-points" val - -data CellRendererTextSizePointsPropertyInfo -instance AttrInfo CellRendererTextSizePointsPropertyInfo where - type AttrAllowedOps CellRendererTextSizePointsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextSizePointsPropertyInfo = (~) Double - type AttrBaseTypeConstraint CellRendererTextSizePointsPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextSizePointsPropertyInfo = Double - type AttrLabel CellRendererTextSizePointsPropertyInfo = "size-points" - attrGet _ = getCellRendererTextSizePoints - attrSet _ = setCellRendererTextSizePoints - attrConstruct _ = constructCellRendererTextSizePoints - attrClear _ = undefined - --- VVV Prop "size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextSizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set" - -setCellRendererTextSizeSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextSizeSet obj val = liftIO $ setObjectPropertyBool obj "size-set" val - -constructCellRendererTextSizeSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextSizeSet val = constructObjectPropertyBool "size-set" val - -data CellRendererTextSizeSetPropertyInfo -instance AttrInfo CellRendererTextSizeSetPropertyInfo where - type AttrAllowedOps CellRendererTextSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextSizeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextSizeSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextSizeSetPropertyInfo = Bool - type AttrLabel CellRendererTextSizeSetPropertyInfo = "size-set" - attrGet _ = getCellRendererTextSizeSet - attrSet _ = setCellRendererTextSizeSet - attrConstruct _ = constructCellRendererTextSizeSet - attrClear _ = undefined - --- VVV Prop "stretch" - -- Type: TInterface "Pango" "Stretch" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStretch :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Stretch -getCellRendererTextStretch obj = liftIO $ getObjectPropertyEnum obj "stretch" - -setCellRendererTextStretch :: (MonadIO m, CellRendererTextK o) => o -> Pango.Stretch -> m () -setCellRendererTextStretch obj val = liftIO $ setObjectPropertyEnum obj "stretch" val - -constructCellRendererTextStretch :: Pango.Stretch -> IO ([Char], GValue) -constructCellRendererTextStretch val = constructObjectPropertyEnum "stretch" val - -data CellRendererTextStretchPropertyInfo -instance AttrInfo CellRendererTextStretchPropertyInfo where - type AttrAllowedOps CellRendererTextStretchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStretchPropertyInfo = (~) Pango.Stretch - type AttrBaseTypeConstraint CellRendererTextStretchPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStretchPropertyInfo = Pango.Stretch - type AttrLabel CellRendererTextStretchPropertyInfo = "stretch" - attrGet _ = getCellRendererTextStretch - attrSet _ = setCellRendererTextStretch - attrConstruct _ = constructCellRendererTextStretch - attrClear _ = undefined - --- VVV Prop "stretch-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStretchSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set" - -setCellRendererTextStretchSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextStretchSet obj val = liftIO $ setObjectPropertyBool obj "stretch-set" val - -constructCellRendererTextStretchSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextStretchSet val = constructObjectPropertyBool "stretch-set" val - -data CellRendererTextStretchSetPropertyInfo -instance AttrInfo CellRendererTextStretchSetPropertyInfo where - type AttrAllowedOps CellRendererTextStretchSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStretchSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextStretchSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStretchSetPropertyInfo = Bool - type AttrLabel CellRendererTextStretchSetPropertyInfo = "stretch-set" - attrGet _ = getCellRendererTextStretchSet - attrSet _ = setCellRendererTextStretchSet - attrConstruct _ = constructCellRendererTextStretchSet - attrClear _ = undefined - --- VVV Prop "strikethrough" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStrikethrough :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough" - -setCellRendererTextStrikethrough :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextStrikethrough obj val = liftIO $ setObjectPropertyBool obj "strikethrough" val - -constructCellRendererTextStrikethrough :: Bool -> IO ([Char], GValue) -constructCellRendererTextStrikethrough val = constructObjectPropertyBool "strikethrough" val - -data CellRendererTextStrikethroughPropertyInfo -instance AttrInfo CellRendererTextStrikethroughPropertyInfo where - type AttrAllowedOps CellRendererTextStrikethroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStrikethroughPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextStrikethroughPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStrikethroughPropertyInfo = Bool - type AttrLabel CellRendererTextStrikethroughPropertyInfo = "strikethrough" - attrGet _ = getCellRendererTextStrikethrough - attrSet _ = setCellRendererTextStrikethrough - attrConstruct _ = constructCellRendererTextStrikethrough - attrClear _ = undefined - --- VVV Prop "strikethrough-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStrikethroughSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set" - -setCellRendererTextStrikethroughSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextStrikethroughSet obj val = liftIO $ setObjectPropertyBool obj "strikethrough-set" val - -constructCellRendererTextStrikethroughSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextStrikethroughSet val = constructObjectPropertyBool "strikethrough-set" val - -data CellRendererTextStrikethroughSetPropertyInfo -instance AttrInfo CellRendererTextStrikethroughSetPropertyInfo where - type AttrAllowedOps CellRendererTextStrikethroughSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStrikethroughSetPropertyInfo = Bool - type AttrLabel CellRendererTextStrikethroughSetPropertyInfo = "strikethrough-set" - attrGet _ = getCellRendererTextStrikethroughSet - attrSet _ = setCellRendererTextStrikethroughSet - attrConstruct _ = constructCellRendererTextStrikethroughSet - attrClear _ = undefined - --- VVV Prop "style" - -- Type: TInterface "Pango" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStyle :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Style -getCellRendererTextStyle obj = liftIO $ getObjectPropertyEnum obj "style" - -setCellRendererTextStyle :: (MonadIO m, CellRendererTextK o) => o -> Pango.Style -> m () -setCellRendererTextStyle obj val = liftIO $ setObjectPropertyEnum obj "style" val - -constructCellRendererTextStyle :: Pango.Style -> IO ([Char], GValue) -constructCellRendererTextStyle val = constructObjectPropertyEnum "style" val - -data CellRendererTextStylePropertyInfo -instance AttrInfo CellRendererTextStylePropertyInfo where - type AttrAllowedOps CellRendererTextStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStylePropertyInfo = (~) Pango.Style - type AttrBaseTypeConstraint CellRendererTextStylePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStylePropertyInfo = Pango.Style - type AttrLabel CellRendererTextStylePropertyInfo = "style" - attrGet _ = getCellRendererTextStyle - attrSet _ = setCellRendererTextStyle - attrConstruct _ = constructCellRendererTextStyle - attrClear _ = undefined - --- VVV Prop "style-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextStyleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set" - -setCellRendererTextStyleSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextStyleSet obj val = liftIO $ setObjectPropertyBool obj "style-set" val - -constructCellRendererTextStyleSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextStyleSet val = constructObjectPropertyBool "style-set" val - -data CellRendererTextStyleSetPropertyInfo -instance AttrInfo CellRendererTextStyleSetPropertyInfo where - type AttrAllowedOps CellRendererTextStyleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextStyleSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextStyleSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextStyleSetPropertyInfo = Bool - type AttrLabel CellRendererTextStyleSetPropertyInfo = "style-set" - attrGet _ = getCellRendererTextStyleSet - attrSet _ = setCellRendererTextStyleSet - attrConstruct _ = constructCellRendererTextStyleSet - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) -getCellRendererTextText obj = liftIO $ getObjectPropertyString obj "text" - -setCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructCellRendererTextText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextText val = constructObjectPropertyString "text" (Just val) - -clearCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m () -clearCellRendererTextText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data CellRendererTextTextPropertyInfo -instance AttrInfo CellRendererTextTextPropertyInfo where - type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextTextPropertyInfo = (Maybe T.Text) - type AttrLabel CellRendererTextTextPropertyInfo = "text" - attrGet _ = getCellRendererTextText - attrSet _ = setCellRendererTextText - attrConstruct _ = constructCellRendererTextText - attrClear _ = clearCellRendererTextText - --- VVV Prop "underline" - -- Type: TInterface "Pango" "Underline" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextUnderline :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Underline -getCellRendererTextUnderline obj = liftIO $ getObjectPropertyEnum obj "underline" - -setCellRendererTextUnderline :: (MonadIO m, CellRendererTextK o) => o -> Pango.Underline -> m () -setCellRendererTextUnderline obj val = liftIO $ setObjectPropertyEnum obj "underline" val - -constructCellRendererTextUnderline :: Pango.Underline -> IO ([Char], GValue) -constructCellRendererTextUnderline val = constructObjectPropertyEnum "underline" val - -data CellRendererTextUnderlinePropertyInfo -instance AttrInfo CellRendererTextUnderlinePropertyInfo where - type AttrAllowedOps CellRendererTextUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextUnderlinePropertyInfo = (~) Pango.Underline - type AttrBaseTypeConstraint CellRendererTextUnderlinePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextUnderlinePropertyInfo = Pango.Underline - type AttrLabel CellRendererTextUnderlinePropertyInfo = "underline" - attrGet _ = getCellRendererTextUnderline - attrSet _ = setCellRendererTextUnderline - attrConstruct _ = constructCellRendererTextUnderline - attrClear _ = undefined - --- VVV Prop "underline-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextUnderlineSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set" - -setCellRendererTextUnderlineSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextUnderlineSet obj val = liftIO $ setObjectPropertyBool obj "underline-set" val - -constructCellRendererTextUnderlineSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextUnderlineSet val = constructObjectPropertyBool "underline-set" val - -data CellRendererTextUnderlineSetPropertyInfo -instance AttrInfo CellRendererTextUnderlineSetPropertyInfo where - type AttrAllowedOps CellRendererTextUnderlineSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextUnderlineSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextUnderlineSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextUnderlineSetPropertyInfo = Bool - type AttrLabel CellRendererTextUnderlineSetPropertyInfo = "underline-set" - attrGet _ = getCellRendererTextUnderlineSet - attrSet _ = setCellRendererTextUnderlineSet - attrConstruct _ = constructCellRendererTextUnderlineSet - attrClear _ = undefined - --- VVV Prop "variant" - -- Type: TInterface "Pango" "Variant" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextVariant :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Variant -getCellRendererTextVariant obj = liftIO $ getObjectPropertyEnum obj "variant" - -setCellRendererTextVariant :: (MonadIO m, CellRendererTextK o) => o -> Pango.Variant -> m () -setCellRendererTextVariant obj val = liftIO $ setObjectPropertyEnum obj "variant" val - -constructCellRendererTextVariant :: Pango.Variant -> IO ([Char], GValue) -constructCellRendererTextVariant val = constructObjectPropertyEnum "variant" val - -data CellRendererTextVariantPropertyInfo -instance AttrInfo CellRendererTextVariantPropertyInfo where - type AttrAllowedOps CellRendererTextVariantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextVariantPropertyInfo = (~) Pango.Variant - type AttrBaseTypeConstraint CellRendererTextVariantPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextVariantPropertyInfo = Pango.Variant - type AttrLabel CellRendererTextVariantPropertyInfo = "variant" - attrGet _ = getCellRendererTextVariant - attrSet _ = setCellRendererTextVariant - attrConstruct _ = constructCellRendererTextVariant - attrClear _ = undefined - --- VVV Prop "variant-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextVariantSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set" - -setCellRendererTextVariantSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextVariantSet obj val = liftIO $ setObjectPropertyBool obj "variant-set" val - -constructCellRendererTextVariantSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextVariantSet val = constructObjectPropertyBool "variant-set" val - -data CellRendererTextVariantSetPropertyInfo -instance AttrInfo CellRendererTextVariantSetPropertyInfo where - type AttrAllowedOps CellRendererTextVariantSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextVariantSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextVariantSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextVariantSetPropertyInfo = Bool - type AttrLabel CellRendererTextVariantSetPropertyInfo = "variant-set" - attrGet _ = getCellRendererTextVariantSet - attrSet _ = setCellRendererTextVariantSet - attrConstruct _ = constructCellRendererTextVariantSet - attrClear _ = undefined - --- VVV Prop "weight" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWeight obj = liftIO $ getObjectPropertyInt32 obj "weight" - -setCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWeight obj val = liftIO $ setObjectPropertyInt32 obj "weight" val - -constructCellRendererTextWeight :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWeight val = constructObjectPropertyInt32 "weight" val - -data CellRendererTextWeightPropertyInfo -instance AttrInfo CellRendererTextWeightPropertyInfo where - type AttrAllowedOps CellRendererTextWeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextWeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextWeightPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextWeightPropertyInfo = Int32 - type AttrLabel CellRendererTextWeightPropertyInfo = "weight" - attrGet _ = getCellRendererTextWeight - attrSet _ = setCellRendererTextWeight - attrConstruct _ = constructCellRendererTextWeight - attrClear _ = undefined - --- VVV Prop "weight-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextWeightSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool -getCellRendererTextWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set" - -setCellRendererTextWeightSet :: (MonadIO m, CellRendererTextK o) => o -> Bool -> m () -setCellRendererTextWeightSet obj val = liftIO $ setObjectPropertyBool obj "weight-set" val - -constructCellRendererTextWeightSet :: Bool -> IO ([Char], GValue) -constructCellRendererTextWeightSet val = constructObjectPropertyBool "weight-set" val - -data CellRendererTextWeightSetPropertyInfo -instance AttrInfo CellRendererTextWeightSetPropertyInfo where - type AttrAllowedOps CellRendererTextWeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextWeightSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererTextWeightSetPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextWeightSetPropertyInfo = Bool - type AttrLabel CellRendererTextWeightSetPropertyInfo = "weight-set" - attrGet _ = getCellRendererTextWeightSet - attrSet _ = setCellRendererTextWeightSet - attrConstruct _ = constructCellRendererTextWeightSet - attrClear _ = undefined - --- VVV Prop "width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" - -setCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val - -constructCellRendererTextWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWidthChars val = constructObjectPropertyInt32 "width-chars" val - -data CellRendererTextWidthCharsPropertyInfo -instance AttrInfo CellRendererTextWidthCharsPropertyInfo where - type AttrAllowedOps CellRendererTextWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextWidthCharsPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextWidthCharsPropertyInfo = Int32 - type AttrLabel CellRendererTextWidthCharsPropertyInfo = "width-chars" - attrGet _ = getCellRendererTextWidthChars - attrSet _ = setCellRendererTextWidthChars - attrConstruct _ = constructCellRendererTextWidthChars - attrClear _ = undefined - --- VVV Prop "wrap-mode" - -- Type: TInterface "Pango" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextWrapMode :: (MonadIO m, CellRendererTextK o) => o -> m Pango.WrapMode -getCellRendererTextWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setCellRendererTextWrapMode :: (MonadIO m, CellRendererTextK o) => o -> Pango.WrapMode -> m () -setCellRendererTextWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructCellRendererTextWrapMode :: Pango.WrapMode -> IO ([Char], GValue) -constructCellRendererTextWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data CellRendererTextWrapModePropertyInfo -instance AttrInfo CellRendererTextWrapModePropertyInfo where - type AttrAllowedOps CellRendererTextWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextWrapModePropertyInfo = (~) Pango.WrapMode - type AttrBaseTypeConstraint CellRendererTextWrapModePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextWrapModePropertyInfo = Pango.WrapMode - type AttrLabel CellRendererTextWrapModePropertyInfo = "wrap-mode" - attrGet _ = getCellRendererTextWrapMode - attrSet _ = setCellRendererTextWrapMode - attrConstruct _ = constructCellRendererTextWrapMode - attrClear _ = undefined - --- VVV Prop "wrap-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" - -setCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val - -constructCellRendererTextWrapWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWrapWidth val = constructObjectPropertyInt32 "wrap-width" val - -data CellRendererTextWrapWidthPropertyInfo -instance AttrInfo CellRendererTextWrapWidthPropertyInfo where - type AttrAllowedOps CellRendererTextWrapWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextWrapWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererTextWrapWidthPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextWrapWidthPropertyInfo = Int32 - type AttrLabel CellRendererTextWrapWidthPropertyInfo = "wrap-width" - attrGet _ = getCellRendererTextWrapWidth - attrSet _ = setCellRendererTextWrapWidth - attrConstruct _ = constructCellRendererTextWrapWidth - attrClear _ = undefined - -type instance AttributeList CellRendererText = CellRendererTextAttributeList -type CellRendererTextAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererTextAlignSet :: AttrLabelProxy "alignSet" -cellRendererTextAlignSet = AttrLabelProxy - -cellRendererTextAlignment :: AttrLabelProxy "alignment" -cellRendererTextAlignment = AttrLabelProxy - -cellRendererTextAttributes :: AttrLabelProxy "attributes" -cellRendererTextAttributes = AttrLabelProxy - -cellRendererTextBackground :: AttrLabelProxy "background" -cellRendererTextBackground = AttrLabelProxy - -cellRendererTextBackgroundGdk :: AttrLabelProxy "backgroundGdk" -cellRendererTextBackgroundGdk = AttrLabelProxy - -cellRendererTextBackgroundRgba :: AttrLabelProxy "backgroundRgba" -cellRendererTextBackgroundRgba = AttrLabelProxy - -cellRendererTextBackgroundSet :: AttrLabelProxy "backgroundSet" -cellRendererTextBackgroundSet = AttrLabelProxy - -cellRendererTextEditable :: AttrLabelProxy "editable" -cellRendererTextEditable = AttrLabelProxy - -cellRendererTextEditableSet :: AttrLabelProxy "editableSet" -cellRendererTextEditableSet = AttrLabelProxy - -cellRendererTextEllipsize :: AttrLabelProxy "ellipsize" -cellRendererTextEllipsize = AttrLabelProxy - -cellRendererTextEllipsizeSet :: AttrLabelProxy "ellipsizeSet" -cellRendererTextEllipsizeSet = AttrLabelProxy - -cellRendererTextFamily :: AttrLabelProxy "family" -cellRendererTextFamily = AttrLabelProxy - -cellRendererTextFamilySet :: AttrLabelProxy "familySet" -cellRendererTextFamilySet = AttrLabelProxy - -cellRendererTextFont :: AttrLabelProxy "font" -cellRendererTextFont = AttrLabelProxy - -cellRendererTextFontDesc :: AttrLabelProxy "fontDesc" -cellRendererTextFontDesc = AttrLabelProxy - -cellRendererTextForeground :: AttrLabelProxy "foreground" -cellRendererTextForeground = AttrLabelProxy - -cellRendererTextForegroundGdk :: AttrLabelProxy "foregroundGdk" -cellRendererTextForegroundGdk = AttrLabelProxy - -cellRendererTextForegroundRgba :: AttrLabelProxy "foregroundRgba" -cellRendererTextForegroundRgba = AttrLabelProxy - -cellRendererTextForegroundSet :: AttrLabelProxy "foregroundSet" -cellRendererTextForegroundSet = AttrLabelProxy - -cellRendererTextLanguage :: AttrLabelProxy "language" -cellRendererTextLanguage = AttrLabelProxy - -cellRendererTextLanguageSet :: AttrLabelProxy "languageSet" -cellRendererTextLanguageSet = AttrLabelProxy - -cellRendererTextMarkup :: AttrLabelProxy "markup" -cellRendererTextMarkup = AttrLabelProxy - -cellRendererTextMaxWidthChars :: AttrLabelProxy "maxWidthChars" -cellRendererTextMaxWidthChars = AttrLabelProxy - -cellRendererTextPlaceholderText :: AttrLabelProxy "placeholderText" -cellRendererTextPlaceholderText = AttrLabelProxy - -cellRendererTextRise :: AttrLabelProxy "rise" -cellRendererTextRise = AttrLabelProxy - -cellRendererTextRiseSet :: AttrLabelProxy "riseSet" -cellRendererTextRiseSet = AttrLabelProxy - -cellRendererTextScale :: AttrLabelProxy "scale" -cellRendererTextScale = AttrLabelProxy - -cellRendererTextScaleSet :: AttrLabelProxy "scaleSet" -cellRendererTextScaleSet = AttrLabelProxy - -cellRendererTextSingleParagraphMode :: AttrLabelProxy "singleParagraphMode" -cellRendererTextSingleParagraphMode = AttrLabelProxy - -cellRendererTextSize :: AttrLabelProxy "size" -cellRendererTextSize = AttrLabelProxy - -cellRendererTextSizePoints :: AttrLabelProxy "sizePoints" -cellRendererTextSizePoints = AttrLabelProxy - -cellRendererTextSizeSet :: AttrLabelProxy "sizeSet" -cellRendererTextSizeSet = AttrLabelProxy - -cellRendererTextStretch :: AttrLabelProxy "stretch" -cellRendererTextStretch = AttrLabelProxy - -cellRendererTextStretchSet :: AttrLabelProxy "stretchSet" -cellRendererTextStretchSet = AttrLabelProxy - -cellRendererTextStrikethrough :: AttrLabelProxy "strikethrough" -cellRendererTextStrikethrough = AttrLabelProxy - -cellRendererTextStrikethroughSet :: AttrLabelProxy "strikethroughSet" -cellRendererTextStrikethroughSet = AttrLabelProxy - -cellRendererTextStyle :: AttrLabelProxy "style" -cellRendererTextStyle = AttrLabelProxy - -cellRendererTextStyleSet :: AttrLabelProxy "styleSet" -cellRendererTextStyleSet = AttrLabelProxy - -cellRendererTextText :: AttrLabelProxy "text" -cellRendererTextText = AttrLabelProxy - -cellRendererTextUnderline :: AttrLabelProxy "underline" -cellRendererTextUnderline = AttrLabelProxy - -cellRendererTextUnderlineSet :: AttrLabelProxy "underlineSet" -cellRendererTextUnderlineSet = AttrLabelProxy - -cellRendererTextVariant :: AttrLabelProxy "variant" -cellRendererTextVariant = AttrLabelProxy - -cellRendererTextVariantSet :: AttrLabelProxy "variantSet" -cellRendererTextVariantSet = AttrLabelProxy - -cellRendererTextWeight :: AttrLabelProxy "weight" -cellRendererTextWeight = AttrLabelProxy - -cellRendererTextWeightSet :: AttrLabelProxy "weightSet" -cellRendererTextWeightSet = AttrLabelProxy - -cellRendererTextWidthChars :: AttrLabelProxy "widthChars" -cellRendererTextWidthChars = AttrLabelProxy - -cellRendererTextWrapMode :: AttrLabelProxy "wrapMode" -cellRendererTextWrapMode = AttrLabelProxy - -cellRendererTextWrapWidth :: AttrLabelProxy "wrapWidth" -cellRendererTextWrapWidth = AttrLabelProxy - -data CellRendererTextEditedSignalInfo -instance SignalInfo CellRendererTextEditedSignalInfo where - type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback - connectSignal _ = connectCellRendererTextEdited - -type instance SignalList CellRendererText = CellRendererTextSignalList -type CellRendererTextSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererText::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererText") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_text_new" gtk_cell_renderer_text_new :: - IO (Ptr CellRendererText) - - -cellRendererTextNew :: - (MonadIO m) => - m CellRendererText -- result -cellRendererTextNew = liftIO $ do - result <- gtk_cell_renderer_text_new - checkUnexpectedReturnNULL "gtk_cell_renderer_text_new" result - result' <- (newObject CellRendererText) result - return result' - --- method CellRendererText::set_fixed_height_from_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", 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 "gtk_cell_renderer_text_set_fixed_height_from_font" gtk_cell_renderer_text_set_fixed_height_from_font :: - Ptr CellRendererText -> -- _obj : TInterface "Gtk" "CellRendererText" - Int32 -> -- number_of_rows : TBasicType TInt - IO () - - -cellRendererTextSetFixedHeightFromFont :: - (MonadIO m, CellRendererTextK a) => - a -- _obj - -> Int32 -- numberOfRows - -> m () -- result -cellRendererTextSetFixedHeightFromFont _obj numberOfRows = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_text_set_fixed_height_from_font _obj' numberOfRows - touchManagedPtr _obj - return () - -data CellRendererTextSetFixedHeightFromFontMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, CellRendererTextK a) => MethodInfo CellRendererTextSetFixedHeightFromFontMethodInfo a signature where - overloadedMethod _ = cellRendererTextSetFixedHeightFromFont - - diff --git a/GI/Gtk/Objects/CellRendererText.hs-boot b/GI/Gtk/Objects/CellRendererText.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererText.hs-boot +++ /dev/null @@ -1,63 +0,0 @@ -module GI.Gtk.Objects.CellRendererText 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 CellRendererText = CellRendererText (ForeignPtr CellRendererText) -instance GObject CellRendererText where -class GObject o => CellRendererTextK o -instance (GObject o, IsDescendantOf CellRendererText o) => CellRendererTextK o -data CellRendererTextAlignSetPropertyInfo -data CellRendererTextAlignmentPropertyInfo -data CellRendererTextAttributesPropertyInfo -data CellRendererTextBackgroundPropertyInfo -data CellRendererTextBackgroundGdkPropertyInfo -data CellRendererTextBackgroundRgbaPropertyInfo -data CellRendererTextBackgroundSetPropertyInfo -data CellRendererTextEditablePropertyInfo -data CellRendererTextEditableSetPropertyInfo -data CellRendererTextEllipsizePropertyInfo -data CellRendererTextEllipsizeSetPropertyInfo -data CellRendererTextFamilyPropertyInfo -data CellRendererTextFamilySetPropertyInfo -data CellRendererTextFontPropertyInfo -data CellRendererTextFontDescPropertyInfo -data CellRendererTextForegroundPropertyInfo -data CellRendererTextForegroundGdkPropertyInfo -data CellRendererTextForegroundRgbaPropertyInfo -data CellRendererTextForegroundSetPropertyInfo -data CellRendererTextLanguagePropertyInfo -data CellRendererTextLanguageSetPropertyInfo -data CellRendererTextMarkupPropertyInfo -data CellRendererTextMaxWidthCharsPropertyInfo -data CellRendererTextPlaceholderTextPropertyInfo -data CellRendererTextRisePropertyInfo -data CellRendererTextRiseSetPropertyInfo -data CellRendererTextScalePropertyInfo -data CellRendererTextScaleSetPropertyInfo -data CellRendererTextSingleParagraphModePropertyInfo -data CellRendererTextSizePropertyInfo -data CellRendererTextSizePointsPropertyInfo -data CellRendererTextSizeSetPropertyInfo -data CellRendererTextStretchPropertyInfo -data CellRendererTextStretchSetPropertyInfo -data CellRendererTextStrikethroughPropertyInfo -data CellRendererTextStrikethroughSetPropertyInfo -data CellRendererTextStylePropertyInfo -data CellRendererTextStyleSetPropertyInfo -data CellRendererTextTextPropertyInfo -data CellRendererTextUnderlinePropertyInfo -data CellRendererTextUnderlineSetPropertyInfo -data CellRendererTextVariantPropertyInfo -data CellRendererTextVariantSetPropertyInfo -data CellRendererTextWeightPropertyInfo -data CellRendererTextWeightSetPropertyInfo -data CellRendererTextWidthCharsPropertyInfo -data CellRendererTextWrapModePropertyInfo -data CellRendererTextWrapWidthPropertyInfo -data CellRendererTextEditedSignalInfo -data CellRendererTextSetFixedHeightFromFontMethodInfo diff --git a/GI/Gtk/Objects/CellRendererToggle.hs b/GI/Gtk/Objects/CellRendererToggle.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererToggle.hs +++ /dev/null @@ -1,604 +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.Gtk.Objects.CellRendererToggle - ( - --- * Exported types - CellRendererToggle(..) , - CellRendererToggleK , - toCellRendererToggle , - noCellRendererToggle , - - - -- * Methods --- ** cellRendererToggleGetActivatable - CellRendererToggleGetActivatableMethodInfo, - cellRendererToggleGetActivatable , - - --- ** cellRendererToggleGetActive - CellRendererToggleGetActiveMethodInfo , - cellRendererToggleGetActive , - - --- ** cellRendererToggleGetRadio - CellRendererToggleGetRadioMethodInfo , - cellRendererToggleGetRadio , - - --- ** cellRendererToggleNew - cellRendererToggleNew , - - --- ** cellRendererToggleSetActivatable - CellRendererToggleSetActivatableMethodInfo, - cellRendererToggleSetActivatable , - - --- ** cellRendererToggleSetActive - CellRendererToggleSetActiveMethodInfo , - cellRendererToggleSetActive , - - --- ** cellRendererToggleSetRadio - CellRendererToggleSetRadioMethodInfo , - cellRendererToggleSetRadio , - - - - - -- * Properties --- ** Activatable - CellRendererToggleActivatablePropertyInfo, - cellRendererToggleActivatable , - constructCellRendererToggleActivatable , - getCellRendererToggleActivatable , - setCellRendererToggleActivatable , - - --- ** Active - CellRendererToggleActivePropertyInfo , - cellRendererToggleActive , - constructCellRendererToggleActive , - getCellRendererToggleActive , - setCellRendererToggleActive , - - --- ** Inconsistent - CellRendererToggleInconsistentPropertyInfo, - cellRendererToggleInconsistent , - constructCellRendererToggleInconsistent , - getCellRendererToggleInconsistent , - setCellRendererToggleInconsistent , - - --- ** IndicatorSize - CellRendererToggleIndicatorSizePropertyInfo, - cellRendererToggleIndicatorSize , - constructCellRendererToggleIndicatorSize, - getCellRendererToggleIndicatorSize , - setCellRendererToggleIndicatorSize , - - --- ** Radio - CellRendererToggleRadioPropertyInfo , - cellRendererToggleRadio , - constructCellRendererToggleRadio , - getCellRendererToggleRadio , - setCellRendererToggleRadio , - - - - - -- * Signals --- ** Toggled - CellRendererToggleToggledCallback , - CellRendererToggleToggledCallbackC , - CellRendererToggleToggledSignalInfo , - afterCellRendererToggleToggled , - cellRendererToggleToggledCallbackWrapper, - cellRendererToggleToggledClosure , - mkCellRendererToggleToggledCallback , - noCellRendererToggleToggledCallback , - onCellRendererToggleToggled , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype CellRendererToggle = CellRendererToggle (ForeignPtr CellRendererToggle) -foreign import ccall "gtk_cell_renderer_toggle_get_type" - c_gtk_cell_renderer_toggle_get_type :: IO GType - -type instance ParentTypes CellRendererToggle = CellRendererToggleParentTypes -type CellRendererToggleParentTypes = '[CellRenderer, GObject.Object] - -instance GObject CellRendererToggle where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_renderer_toggle_get_type - - -class GObject o => CellRendererToggleK o -instance (GObject o, IsDescendantOf CellRendererToggle o) => CellRendererToggleK o - -toCellRendererToggle :: CellRendererToggleK o => o -> IO CellRendererToggle -toCellRendererToggle = unsafeCastTo CellRendererToggle - -noCellRendererToggle :: Maybe CellRendererToggle -noCellRendererToggle = Nothing - -type family ResolveCellRendererToggleMethod (t :: Symbol) (o :: *) :: * where - ResolveCellRendererToggleMethod "activate" o = CellRendererActivateMethodInfo - ResolveCellRendererToggleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellRendererToggleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellRendererToggleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellRendererToggleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellRendererToggleMethod "isActivatable" o = CellRendererIsActivatableMethodInfo - ResolveCellRendererToggleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellRendererToggleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellRendererToggleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellRendererToggleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellRendererToggleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellRendererToggleMethod "render" o = CellRendererRenderMethodInfo - ResolveCellRendererToggleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellRendererToggleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellRendererToggleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellRendererToggleMethod "startEditing" o = CellRendererStartEditingMethodInfo - ResolveCellRendererToggleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellRendererToggleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellRendererToggleMethod "stopEditing" o = CellRendererStopEditingMethodInfo - ResolveCellRendererToggleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellRendererToggleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellRendererToggleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellRendererToggleMethod "getActivatable" o = CellRendererToggleGetActivatableMethodInfo - ResolveCellRendererToggleMethod "getActive" o = CellRendererToggleGetActiveMethodInfo - ResolveCellRendererToggleMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo - ResolveCellRendererToggleMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo - ResolveCellRendererToggleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellRendererToggleMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo - ResolveCellRendererToggleMethod "getPadding" o = CellRendererGetPaddingMethodInfo - ResolveCellRendererToggleMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo - ResolveCellRendererToggleMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo - ResolveCellRendererToggleMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo - ResolveCellRendererToggleMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo - ResolveCellRendererToggleMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo - ResolveCellRendererToggleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellRendererToggleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellRendererToggleMethod "getRadio" o = CellRendererToggleGetRadioMethodInfo - ResolveCellRendererToggleMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo - ResolveCellRendererToggleMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo - ResolveCellRendererToggleMethod "getSize" o = CellRendererGetSizeMethodInfo - ResolveCellRendererToggleMethod "getState" o = CellRendererGetStateMethodInfo - ResolveCellRendererToggleMethod "getVisible" o = CellRendererGetVisibleMethodInfo - ResolveCellRendererToggleMethod "setActivatable" o = CellRendererToggleSetActivatableMethodInfo - ResolveCellRendererToggleMethod "setActive" o = CellRendererToggleSetActiveMethodInfo - ResolveCellRendererToggleMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo - ResolveCellRendererToggleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellRendererToggleMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo - ResolveCellRendererToggleMethod "setPadding" o = CellRendererSetPaddingMethodInfo - ResolveCellRendererToggleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellRendererToggleMethod "setRadio" o = CellRendererToggleSetRadioMethodInfo - ResolveCellRendererToggleMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo - ResolveCellRendererToggleMethod "setVisible" o = CellRendererSetVisibleMethodInfo - ResolveCellRendererToggleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, MethodInfo info CellRendererToggle p) => IsLabelProxy t (CellRendererToggle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, MethodInfo info CellRendererToggle p) => IsLabel t (CellRendererToggle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CellRendererToggle::toggled -type CellRendererToggleToggledCallback = - T.Text -> - IO () - -noCellRendererToggleToggledCallback :: Maybe CellRendererToggleToggledCallback -noCellRendererToggleToggledCallback = Nothing - -type CellRendererToggleToggledCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCellRendererToggleToggledCallback :: CellRendererToggleToggledCallbackC -> IO (FunPtr CellRendererToggleToggledCallbackC) - -cellRendererToggleToggledClosure :: CellRendererToggleToggledCallback -> IO Closure -cellRendererToggleToggledClosure cb = newCClosure =<< mkCellRendererToggleToggledCallback wrapped - where wrapped = cellRendererToggleToggledCallbackWrapper cb - -cellRendererToggleToggledCallbackWrapper :: - CellRendererToggleToggledCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -cellRendererToggleToggledCallbackWrapper _cb _ path _ = do - path' <- cstringToText path - _cb path' - -onCellRendererToggleToggled :: (GObject a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId -onCellRendererToggleToggled obj cb = liftIO $ connectCellRendererToggleToggled obj cb SignalConnectBefore -afterCellRendererToggleToggled :: (GObject a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId -afterCellRendererToggleToggled obj cb = connectCellRendererToggleToggled obj cb SignalConnectAfter - -connectCellRendererToggleToggled :: (GObject a, MonadIO m) => - a -> CellRendererToggleToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectCellRendererToggleToggled obj cb after = liftIO $ do - cb' <- mkCellRendererToggleToggledCallback (cellRendererToggleToggledCallbackWrapper cb) - connectSignalFunPtr obj "toggled" cb' after - --- VVV Prop "activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellRendererToggleActivatable :: (MonadIO m, CellRendererToggleK o) => o -> m Bool -getCellRendererToggleActivatable obj = liftIO $ getObjectPropertyBool obj "activatable" - -setCellRendererToggleActivatable :: (MonadIO m, CellRendererToggleK o) => o -> Bool -> m () -setCellRendererToggleActivatable obj val = liftIO $ setObjectPropertyBool obj "activatable" val - -constructCellRendererToggleActivatable :: Bool -> IO ([Char], GValue) -constructCellRendererToggleActivatable val = constructObjectPropertyBool "activatable" val - -data CellRendererToggleActivatablePropertyInfo -instance AttrInfo CellRendererToggleActivatablePropertyInfo where - type AttrAllowedOps CellRendererToggleActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererToggleActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererToggleActivatablePropertyInfo = CellRendererToggleK - type AttrGetType CellRendererToggleActivatablePropertyInfo = Bool - type AttrLabel CellRendererToggleActivatablePropertyInfo = "activatable" - attrGet _ = getCellRendererToggleActivatable - attrSet _ = setCellRendererToggleActivatable - attrConstruct _ = constructCellRendererToggleActivatable - attrClear _ = undefined - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellRendererToggleActive :: (MonadIO m, CellRendererToggleK o) => o -> m Bool -getCellRendererToggleActive obj = liftIO $ getObjectPropertyBool obj "active" - -setCellRendererToggleActive :: (MonadIO m, CellRendererToggleK o) => o -> Bool -> m () -setCellRendererToggleActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructCellRendererToggleActive :: Bool -> IO ([Char], GValue) -constructCellRendererToggleActive val = constructObjectPropertyBool "active" val - -data CellRendererToggleActivePropertyInfo -instance AttrInfo CellRendererToggleActivePropertyInfo where - type AttrAllowedOps CellRendererToggleActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererToggleActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererToggleActivePropertyInfo = CellRendererToggleK - type AttrGetType CellRendererToggleActivePropertyInfo = Bool - type AttrLabel CellRendererToggleActivePropertyInfo = "active" - attrGet _ = getCellRendererToggleActive - attrSet _ = setCellRendererToggleActive - attrConstruct _ = constructCellRendererToggleActive - attrClear _ = undefined - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererToggleInconsistent :: (MonadIO m, CellRendererToggleK o) => o -> m Bool -getCellRendererToggleInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" - -setCellRendererToggleInconsistent :: (MonadIO m, CellRendererToggleK o) => o -> Bool -> m () -setCellRendererToggleInconsistent obj val = liftIO $ setObjectPropertyBool obj "inconsistent" val - -constructCellRendererToggleInconsistent :: Bool -> IO ([Char], GValue) -constructCellRendererToggleInconsistent val = constructObjectPropertyBool "inconsistent" val - -data CellRendererToggleInconsistentPropertyInfo -instance AttrInfo CellRendererToggleInconsistentPropertyInfo where - type AttrAllowedOps CellRendererToggleInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererToggleInconsistentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererToggleInconsistentPropertyInfo = CellRendererToggleK - type AttrGetType CellRendererToggleInconsistentPropertyInfo = Bool - type AttrLabel CellRendererToggleInconsistentPropertyInfo = "inconsistent" - attrGet _ = getCellRendererToggleInconsistent - attrSet _ = setCellRendererToggleInconsistent - attrConstruct _ = constructCellRendererToggleInconsistent - attrClear _ = undefined - --- VVV Prop "indicator-size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> m Int32 -getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyInt32 obj "indicator-size" - -setCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> Int32 -> m () -setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyInt32 obj "indicator-size" val - -constructCellRendererToggleIndicatorSize :: Int32 -> IO ([Char], GValue) -constructCellRendererToggleIndicatorSize val = constructObjectPropertyInt32 "indicator-size" val - -data CellRendererToggleIndicatorSizePropertyInfo -instance AttrInfo CellRendererToggleIndicatorSizePropertyInfo where - type AttrAllowedOps CellRendererToggleIndicatorSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = CellRendererToggleK - type AttrGetType CellRendererToggleIndicatorSizePropertyInfo = Int32 - type AttrLabel CellRendererToggleIndicatorSizePropertyInfo = "indicator-size" - attrGet _ = getCellRendererToggleIndicatorSize - attrSet _ = setCellRendererToggleIndicatorSize - attrConstruct _ = constructCellRendererToggleIndicatorSize - attrClear _ = undefined - --- VVV Prop "radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellRendererToggleRadio :: (MonadIO m, CellRendererToggleK o) => o -> m Bool -getCellRendererToggleRadio obj = liftIO $ getObjectPropertyBool obj "radio" - -setCellRendererToggleRadio :: (MonadIO m, CellRendererToggleK o) => o -> Bool -> m () -setCellRendererToggleRadio obj val = liftIO $ setObjectPropertyBool obj "radio" val - -constructCellRendererToggleRadio :: Bool -> IO ([Char], GValue) -constructCellRendererToggleRadio val = constructObjectPropertyBool "radio" val - -data CellRendererToggleRadioPropertyInfo -instance AttrInfo CellRendererToggleRadioPropertyInfo where - type AttrAllowedOps CellRendererToggleRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererToggleRadioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellRendererToggleRadioPropertyInfo = CellRendererToggleK - type AttrGetType CellRendererToggleRadioPropertyInfo = Bool - type AttrLabel CellRendererToggleRadioPropertyInfo = "radio" - attrGet _ = getCellRendererToggleRadio - attrSet _ = setCellRendererToggleRadio - attrConstruct _ = constructCellRendererToggleRadio - attrClear _ = undefined - -type instance AttributeList CellRendererToggle = CellRendererToggleAttributeList -type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicatorSize", CellRendererToggleIndicatorSizePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -cellRendererToggleActivatable :: AttrLabelProxy "activatable" -cellRendererToggleActivatable = AttrLabelProxy - -cellRendererToggleActive :: AttrLabelProxy "active" -cellRendererToggleActive = AttrLabelProxy - -cellRendererToggleInconsistent :: AttrLabelProxy "inconsistent" -cellRendererToggleInconsistent = AttrLabelProxy - -cellRendererToggleIndicatorSize :: AttrLabelProxy "indicatorSize" -cellRendererToggleIndicatorSize = AttrLabelProxy - -cellRendererToggleRadio :: AttrLabelProxy "radio" -cellRendererToggleRadio = AttrLabelProxy - -data CellRendererToggleToggledSignalInfo -instance SignalInfo CellRendererToggleToggledSignalInfo where - type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback - connectSignal _ = connectCellRendererToggleToggled - -type instance SignalList CellRendererToggle = CellRendererToggleSignalList -type CellRendererToggleSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo)] :: [(Symbol, *)]) - --- method CellRendererToggle::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellRendererToggle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_toggle_new" gtk_cell_renderer_toggle_new :: - IO (Ptr CellRendererToggle) - - -cellRendererToggleNew :: - (MonadIO m) => - m CellRendererToggle -- result -cellRendererToggleNew = liftIO $ do - result <- gtk_cell_renderer_toggle_new - checkUnexpectedReturnNULL "gtk_cell_renderer_toggle_new" result - result' <- (newObject CellRendererToggle) result - return result' - --- method CellRendererToggle::get_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", 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 "gtk_cell_renderer_toggle_get_activatable" gtk_cell_renderer_toggle_get_activatable :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - IO CInt - - -cellRendererToggleGetActivatable :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> m Bool -- result -cellRendererToggleGetActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererToggleGetActivatableMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetActivatableMethodInfo a signature where - overloadedMethod _ = cellRendererToggleGetActivatable - --- method CellRendererToggle::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", 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 "gtk_cell_renderer_toggle_get_active" gtk_cell_renderer_toggle_get_active :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - IO CInt - - -cellRendererToggleGetActive :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> m Bool -- result -cellRendererToggleGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererToggleGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetActiveMethodInfo a signature where - overloadedMethod _ = cellRendererToggleGetActive - --- method CellRendererToggle::get_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", 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 "gtk_cell_renderer_toggle_get_radio" gtk_cell_renderer_toggle_get_radio :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - IO CInt - - -cellRendererToggleGetRadio :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> m Bool -- result -cellRendererToggleGetRadio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_radio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellRendererToggleGetRadioMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetRadioMethodInfo a signature where - overloadedMethod _ = cellRendererToggleGetRadio - --- method CellRendererToggle::set_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_cell_renderer_toggle_set_activatable" gtk_cell_renderer_toggle_set_activatable :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - CInt -> -- setting : TBasicType TBoolean - IO () - - -cellRendererToggleSetActivatable :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -cellRendererToggleSetActivatable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_cell_renderer_toggle_set_activatable _obj' setting' - touchManagedPtr _obj - return () - -data CellRendererToggleSetActivatableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetActivatableMethodInfo a signature where - overloadedMethod _ = cellRendererToggleSetActivatable - --- method CellRendererToggle::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_cell_renderer_toggle_set_active" gtk_cell_renderer_toggle_set_active :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - CInt -> -- setting : TBasicType TBoolean - IO () - - -cellRendererToggleSetActive :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -cellRendererToggleSetActive _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_cell_renderer_toggle_set_active _obj' setting' - touchManagedPtr _obj - return () - -data CellRendererToggleSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetActiveMethodInfo a signature where - overloadedMethod _ = cellRendererToggleSetActive - --- method CellRendererToggle::set_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radio", 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 "gtk_cell_renderer_toggle_set_radio" gtk_cell_renderer_toggle_set_radio :: - Ptr CellRendererToggle -> -- _obj : TInterface "Gtk" "CellRendererToggle" - CInt -> -- radio : TBasicType TBoolean - IO () - - -cellRendererToggleSetRadio :: - (MonadIO m, CellRendererToggleK a) => - a -- _obj - -> Bool -- radio - -> m () -- result -cellRendererToggleSetRadio _obj radio = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let radio' = (fromIntegral . fromEnum) radio - gtk_cell_renderer_toggle_set_radio _obj' radio' - touchManagedPtr _obj - return () - -data CellRendererToggleSetRadioMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetRadioMethodInfo a signature where - overloadedMethod _ = cellRendererToggleSetRadio - - diff --git a/GI/Gtk/Objects/CellRendererToggle.hs-boot b/GI/Gtk/Objects/CellRendererToggle.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellRendererToggle.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gtk.Objects.CellRendererToggle 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 CellRendererToggle = CellRendererToggle (ForeignPtr CellRendererToggle) -instance GObject CellRendererToggle where -class GObject o => CellRendererToggleK o -instance (GObject o, IsDescendantOf CellRendererToggle o) => CellRendererToggleK o -data CellRendererToggleActivatablePropertyInfo -data CellRendererToggleActivePropertyInfo -data CellRendererToggleInconsistentPropertyInfo -data CellRendererToggleIndicatorSizePropertyInfo -data CellRendererToggleRadioPropertyInfo -data CellRendererToggleToggledSignalInfo -data CellRendererToggleGetActivatableMethodInfo -data CellRendererToggleGetActiveMethodInfo -data CellRendererToggleGetRadioMethodInfo -data CellRendererToggleSetActivatableMethodInfo -data CellRendererToggleSetActiveMethodInfo -data CellRendererToggleSetRadioMethodInfo diff --git a/GI/Gtk/Objects/CellView.hs b/GI/Gtk/Objects/CellView.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CellView.hs +++ /dev/null @@ -1,1260 +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.Gtk.Objects.CellView - ( - --- * Exported types - CellView(..) , - CellViewK , - toCellView , - noCellView , - - - -- * Methods --- ** cellViewGetDisplayedRow - CellViewGetDisplayedRowMethodInfo , - cellViewGetDisplayedRow , - - --- ** cellViewGetDrawSensitive - CellViewGetDrawSensitiveMethodInfo , - cellViewGetDrawSensitive , - - --- ** cellViewGetFitModel - CellViewGetFitModelMethodInfo , - cellViewGetFitModel , - - --- ** cellViewGetModel - CellViewGetModelMethodInfo , - cellViewGetModel , - - --- ** cellViewGetSizeOfRow - CellViewGetSizeOfRowMethodInfo , - cellViewGetSizeOfRow , - - --- ** cellViewNew - cellViewNew , - - --- ** cellViewNewWithContext - cellViewNewWithContext , - - --- ** cellViewNewWithMarkup - cellViewNewWithMarkup , - - --- ** cellViewNewWithPixbuf - cellViewNewWithPixbuf , - - --- ** cellViewNewWithText - cellViewNewWithText , - - --- ** cellViewSetBackgroundColor - CellViewSetBackgroundColorMethodInfo , - cellViewSetBackgroundColor , - - --- ** cellViewSetBackgroundRgba - CellViewSetBackgroundRgbaMethodInfo , - cellViewSetBackgroundRgba , - - --- ** cellViewSetDisplayedRow - CellViewSetDisplayedRowMethodInfo , - cellViewSetDisplayedRow , - - --- ** cellViewSetDrawSensitive - CellViewSetDrawSensitiveMethodInfo , - cellViewSetDrawSensitive , - - --- ** cellViewSetFitModel - CellViewSetFitModelMethodInfo , - cellViewSetFitModel , - - --- ** cellViewSetModel - CellViewSetModelMethodInfo , - cellViewSetModel , - - - - - -- * Properties --- ** Background - CellViewBackgroundPropertyInfo , - cellViewBackground , - clearCellViewBackground , - constructCellViewBackground , - setCellViewBackground , - - --- ** BackgroundGdk - CellViewBackgroundGdkPropertyInfo , - cellViewBackgroundGdk , - clearCellViewBackgroundGdk , - constructCellViewBackgroundGdk , - getCellViewBackgroundGdk , - setCellViewBackgroundGdk , - - --- ** BackgroundRgba - CellViewBackgroundRgbaPropertyInfo , - cellViewBackgroundRgba , - constructCellViewBackgroundRgba , - getCellViewBackgroundRgba , - setCellViewBackgroundRgba , - - --- ** BackgroundSet - CellViewBackgroundSetPropertyInfo , - cellViewBackgroundSet , - constructCellViewBackgroundSet , - getCellViewBackgroundSet , - setCellViewBackgroundSet , - - --- ** CellArea - CellViewCellAreaPropertyInfo , - cellViewCellArea , - constructCellViewCellArea , - getCellViewCellArea , - - --- ** CellAreaContext - CellViewCellAreaContextPropertyInfo , - cellViewCellAreaContext , - constructCellViewCellAreaContext , - getCellViewCellAreaContext , - - --- ** DrawSensitive - CellViewDrawSensitivePropertyInfo , - cellViewDrawSensitive , - constructCellViewDrawSensitive , - getCellViewDrawSensitive , - setCellViewDrawSensitive , - - --- ** FitModel - CellViewFitModelPropertyInfo , - cellViewFitModel , - constructCellViewFitModel , - getCellViewFitModel , - setCellViewFitModel , - - --- ** Model - CellViewModelPropertyInfo , - cellViewModel , - clearCellViewModel , - constructCellViewModel , - getCellViewModel , - setCellViewModel , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype CellView = CellView (ForeignPtr CellView) -foreign import ccall "gtk_cell_view_get_type" - c_gtk_cell_view_get_type :: IO GType - -type instance ParentTypes CellView = CellViewParentTypes -type CellViewParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Orientable] - -instance GObject CellView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_cell_view_get_type - - -class GObject o => CellViewK o -instance (GObject o, IsDescendantOf CellView o) => CellViewK o - -toCellView :: CellViewK o => o -> IO CellView -toCellView = unsafeCastTo CellView - -noCellView :: Maybe CellView -noCellView = Nothing - -type family ResolveCellViewMethod (t :: Symbol) (o :: *) :: * where - ResolveCellViewMethod "activate" o = WidgetActivateMethodInfo - ResolveCellViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveCellViewMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveCellViewMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCellViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveCellViewMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveCellViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveCellViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveCellViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCellViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCellViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveCellViewMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveCellViewMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveCellViewMethod "classPath" o = WidgetClassPathMethodInfo - ResolveCellViewMethod "clear" o = CellLayoutClearMethodInfo - ResolveCellViewMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveCellViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveCellViewMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCellViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveCellViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveCellViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCellViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCellViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCellViewMethod "destroy" o = WidgetDestroyMethodInfo - ResolveCellViewMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveCellViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveCellViewMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveCellViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveCellViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveCellViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveCellViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveCellViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveCellViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveCellViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveCellViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveCellViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveCellViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveCellViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveCellViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveCellViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveCellViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveCellViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveCellViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveCellViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveCellViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveCellViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveCellViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveCellViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveCellViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveCellViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveCellViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveCellViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveCellViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveCellViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveCellViewMethod "draw" o = WidgetDrawMethodInfo - ResolveCellViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveCellViewMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveCellViewMethod "event" o = WidgetEventMethodInfo - ResolveCellViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCellViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveCellViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCellViewMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveCellViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveCellViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveCellViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveCellViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveCellViewMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveCellViewMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveCellViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveCellViewMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveCellViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveCellViewMethod "hide" o = WidgetHideMethodInfo - ResolveCellViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveCellViewMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveCellViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveCellViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveCellViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveCellViewMethod "intersect" o = WidgetIntersectMethodInfo - ResolveCellViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveCellViewMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveCellViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveCellViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCellViewMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveCellViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveCellViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveCellViewMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveCellViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveCellViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveCellViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveCellViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveCellViewMethod "map" o = WidgetMapMethodInfo - ResolveCellViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveCellViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveCellViewMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveCellViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveCellViewMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveCellViewMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveCellViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveCellViewMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveCellViewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCellViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCellViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveCellViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveCellViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveCellViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveCellViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveCellViewMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveCellViewMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveCellViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCellViewMethod "path" o = WidgetPathMethodInfo - ResolveCellViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveCellViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveCellViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveCellViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveCellViewMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveCellViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveCellViewMethod "realize" o = WidgetRealizeMethodInfo - ResolveCellViewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCellViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCellViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveCellViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveCellViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveCellViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveCellViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveCellViewMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveCellViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveCellViewMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveCellViewMethod "reparent" o = WidgetReparentMethodInfo - ResolveCellViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCellViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCellViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveCellViewMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveCellViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCellViewMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveCellViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveCellViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveCellViewMethod "show" o = WidgetShowMethodInfo - ResolveCellViewMethod "showAll" o = WidgetShowAllMethodInfo - ResolveCellViewMethod "showNow" o = WidgetShowNowMethodInfo - ResolveCellViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveCellViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveCellViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveCellViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCellViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCellViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveCellViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveCellViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveCellViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCellViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveCellViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveCellViewMethod "unmap" o = WidgetUnmapMethodInfo - ResolveCellViewMethod "unparent" o = WidgetUnparentMethodInfo - ResolveCellViewMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveCellViewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCellViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveCellViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveCellViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCellViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveCellViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveCellViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveCellViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveCellViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveCellViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveCellViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveCellViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveCellViewMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveCellViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveCellViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveCellViewMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveCellViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveCellViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveCellViewMethod "getClip" o = WidgetGetClipMethodInfo - ResolveCellViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveCellViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveCellViewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCellViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveCellViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveCellViewMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveCellViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveCellViewMethod "getDisplayedRow" o = CellViewGetDisplayedRowMethodInfo - ResolveCellViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveCellViewMethod "getDrawSensitive" o = CellViewGetDrawSensitiveMethodInfo - ResolveCellViewMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveCellViewMethod "getFitModel" o = CellViewGetFitModelMethodInfo - ResolveCellViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveCellViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveCellViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveCellViewMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveCellViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveCellViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveCellViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveCellViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveCellViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCellViewMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveCellViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveCellViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveCellViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveCellViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveCellViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveCellViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveCellViewMethod "getModel" o = CellViewGetModelMethodInfo - ResolveCellViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveCellViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveCellViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveCellViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveCellViewMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveCellViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveCellViewMethod "getParent" o = WidgetGetParentMethodInfo - ResolveCellViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveCellViewMethod "getPath" o = WidgetGetPathMethodInfo - ResolveCellViewMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveCellViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveCellViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveCellViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveCellViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveCellViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveCellViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveCellViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCellViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCellViewMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveCellViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveCellViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveCellViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveCellViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveCellViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveCellViewMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveCellViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveCellViewMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveCellViewMethod "getSizeOfRow" o = CellViewGetSizeOfRowMethodInfo - ResolveCellViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveCellViewMethod "getState" o = WidgetGetStateMethodInfo - ResolveCellViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveCellViewMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveCellViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveCellViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveCellViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveCellViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveCellViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveCellViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveCellViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveCellViewMethod "getValign" o = WidgetGetValignMethodInfo - ResolveCellViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveCellViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveCellViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveCellViewMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveCellViewMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveCellViewMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveCellViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveCellViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveCellViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveCellViewMethod "setBackgroundColor" o = CellViewSetBackgroundColorMethodInfo - ResolveCellViewMethod "setBackgroundRgba" o = CellViewSetBackgroundRgbaMethodInfo - ResolveCellViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCellViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveCellViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveCellViewMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveCellViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveCellViewMethod "setClip" o = WidgetSetClipMethodInfo - ResolveCellViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveCellViewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCellViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveCellViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveCellViewMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveCellViewMethod "setDisplayedRow" o = CellViewSetDisplayedRowMethodInfo - ResolveCellViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveCellViewMethod "setDrawSensitive" o = CellViewSetDrawSensitiveMethodInfo - ResolveCellViewMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveCellViewMethod "setFitModel" o = CellViewSetFitModelMethodInfo - ResolveCellViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveCellViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveCellViewMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveCellViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveCellViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveCellViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveCellViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveCellViewMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveCellViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveCellViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveCellViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveCellViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveCellViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveCellViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveCellViewMethod "setModel" o = CellViewSetModelMethodInfo - ResolveCellViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveCellViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveCellViewMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveCellViewMethod "setParent" o = WidgetSetParentMethodInfo - ResolveCellViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveCellViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCellViewMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveCellViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveCellViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveCellViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveCellViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveCellViewMethod "setState" o = WidgetSetStateMethodInfo - ResolveCellViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveCellViewMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveCellViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveCellViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveCellViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveCellViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveCellViewMethod "setValign" o = WidgetSetValignMethodInfo - ResolveCellViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveCellViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveCellViewMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveCellViewMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveCellViewMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveCellViewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCellViewMethod t CellView, MethodInfo info CellView p) => IsLabelProxy t (CellView -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCellViewMethod t CellView, MethodInfo info CellView p) => IsLabel t (CellView -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setCellViewBackground :: (MonadIO m, CellViewK o) => o -> T.Text -> m () -setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) - -constructCellViewBackground :: T.Text -> IO ([Char], GValue) -constructCellViewBackground val = constructObjectPropertyString "background" (Just val) - -clearCellViewBackground :: (MonadIO m, CellViewK o) => o -> m () -clearCellViewBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) - -data CellViewBackgroundPropertyInfo -instance AttrInfo CellViewBackgroundPropertyInfo where - type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundPropertyInfo = () - type AttrLabel CellViewBackgroundPropertyInfo = "background" - attrGet _ = undefined - attrSet _ = setCellViewBackground - attrConstruct _ = constructCellViewBackground - attrClear _ = clearCellViewBackground - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.Color) -getCellViewBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color - -setCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> Gdk.Color -> m () -setCellViewBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) - -constructCellViewBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) - -clearCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m () -clearCellViewBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) - -data CellViewBackgroundGdkPropertyInfo -instance AttrInfo CellViewBackgroundGdkPropertyInfo where - type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel CellViewBackgroundGdkPropertyInfo = "background-gdk" - attrGet _ = getCellViewBackgroundGdk - attrSet _ = setCellViewBackgroundGdk - attrConstruct _ = constructCellViewBackgroundGdk - attrClear _ = clearCellViewBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.RGBA) -getCellViewBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA - -setCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> Gdk.RGBA -> m () -setCellViewBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) - -constructCellViewBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) - -data CellViewBackgroundRgbaPropertyInfo -instance AttrInfo CellViewBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellViewBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellViewBackgroundRgbaPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel CellViewBackgroundRgbaPropertyInfo = "background-rgba" - attrGet _ = getCellViewBackgroundRgba - attrSet _ = setCellViewBackgroundRgba - attrConstruct _ = constructCellViewBackgroundRgba - attrClear _ = undefined - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getCellViewBackgroundSet :: (MonadIO m, CellViewK o) => o -> m Bool -getCellViewBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" - -setCellViewBackgroundSet :: (MonadIO m, CellViewK o) => o -> Bool -> m () -setCellViewBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "background-set" val - -constructCellViewBackgroundSet :: Bool -> IO ([Char], GValue) -constructCellViewBackgroundSet val = constructObjectPropertyBool "background-set" val - -data CellViewBackgroundSetPropertyInfo -instance AttrInfo CellViewBackgroundSetPropertyInfo where - type AttrAllowedOps CellViewBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewBackgroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellViewBackgroundSetPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundSetPropertyInfo = Bool - type AttrLabel CellViewBackgroundSetPropertyInfo = "background-set" - attrGet _ = getCellViewBackgroundSet - attrSet _ = setCellViewBackgroundSet - attrConstruct _ = constructCellViewBackgroundSet - attrClear _ = undefined - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m (Maybe CellArea) -getCellViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructCellViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) - -data CellViewCellAreaPropertyInfo -instance AttrInfo CellViewCellAreaPropertyInfo where - type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaPropertyInfo = (Maybe CellArea) - type AttrLabel CellViewCellAreaPropertyInfo = "cell-area" - attrGet _ = getCellViewCellArea - attrSet _ = undefined - attrConstruct _ = constructCellViewCellArea - attrClear _ = undefined - --- VVV Prop "cell-area-context" - -- Type: TInterface "Gtk" "CellAreaContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m (Maybe CellAreaContext) -getCellViewCellAreaContext obj = liftIO $ getObjectPropertyObject obj "cell-area-context" CellAreaContext - -constructCellViewCellAreaContext :: (CellAreaContextK a) => a -> IO ([Char], GValue) -constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" (Just val) - -data CellViewCellAreaContextPropertyInfo -instance AttrInfo CellViewCellAreaContextPropertyInfo where - type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK - type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaContextPropertyInfo = (Maybe CellAreaContext) - type AttrLabel CellViewCellAreaContextPropertyInfo = "cell-area-context" - attrGet _ = getCellViewCellAreaContext - attrSet _ = undefined - attrConstruct _ = constructCellViewCellAreaContext - attrClear _ = undefined - --- VVV Prop "draw-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellViewDrawSensitive :: (MonadIO m, CellViewK o) => o -> m Bool -getCellViewDrawSensitive obj = liftIO $ getObjectPropertyBool obj "draw-sensitive" - -setCellViewDrawSensitive :: (MonadIO m, CellViewK o) => o -> Bool -> m () -setCellViewDrawSensitive obj val = liftIO $ setObjectPropertyBool obj "draw-sensitive" val - -constructCellViewDrawSensitive :: Bool -> IO ([Char], GValue) -constructCellViewDrawSensitive val = constructObjectPropertyBool "draw-sensitive" val - -data CellViewDrawSensitivePropertyInfo -instance AttrInfo CellViewDrawSensitivePropertyInfo where - type AttrAllowedOps CellViewDrawSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewDrawSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellViewDrawSensitivePropertyInfo = CellViewK - type AttrGetType CellViewDrawSensitivePropertyInfo = Bool - type AttrLabel CellViewDrawSensitivePropertyInfo = "draw-sensitive" - attrGet _ = getCellViewDrawSensitive - attrSet _ = setCellViewDrawSensitive - attrConstruct _ = constructCellViewDrawSensitive - attrClear _ = undefined - --- VVV Prop "fit-model" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCellViewFitModel :: (MonadIO m, CellViewK o) => o -> m Bool -getCellViewFitModel obj = liftIO $ getObjectPropertyBool obj "fit-model" - -setCellViewFitModel :: (MonadIO m, CellViewK o) => o -> Bool -> m () -setCellViewFitModel obj val = liftIO $ setObjectPropertyBool obj "fit-model" val - -constructCellViewFitModel :: Bool -> IO ([Char], GValue) -constructCellViewFitModel val = constructObjectPropertyBool "fit-model" val - -data CellViewFitModelPropertyInfo -instance AttrInfo CellViewFitModelPropertyInfo where - type AttrAllowedOps CellViewFitModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewFitModelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CellViewFitModelPropertyInfo = CellViewK - type AttrGetType CellViewFitModelPropertyInfo = Bool - type AttrLabel CellViewFitModelPropertyInfo = "fit-model" - attrGet _ = getCellViewFitModel - attrSet _ = setCellViewFitModel - attrConstruct _ = constructCellViewFitModel - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getCellViewModel :: (MonadIO m, CellViewK o) => o -> m TreeModel -getCellViewModel obj = liftIO $ checkUnexpectedNothing "getCellViewModel" $ getObjectPropertyObject obj "model" TreeModel - -setCellViewModel :: (MonadIO m, CellViewK o, TreeModelK a) => o -> a -> m () -setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructCellViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellViewModel val = constructObjectPropertyObject "model" (Just val) - -clearCellViewModel :: (MonadIO m, CellViewK o) => o -> m () -clearCellViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data CellViewModelPropertyInfo -instance AttrInfo CellViewModelPropertyInfo where - type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK - type AttrGetType CellViewModelPropertyInfo = TreeModel - type AttrLabel CellViewModelPropertyInfo = "model" - attrGet _ = getCellViewModel - attrSet _ = setCellViewModel - attrConstruct _ = constructCellViewModel - attrClear _ = clearCellViewModel - -type instance AttributeList CellView = CellViewAttributeList -type CellViewAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("backgroundGdk", CellViewBackgroundGdkPropertyInfo), '("backgroundRgba", CellViewBackgroundRgbaPropertyInfo), '("backgroundSet", CellViewBackgroundSetPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", CellViewCellAreaPropertyInfo), '("cellAreaContext", CellViewCellAreaContextPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawSensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fitModel", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -cellViewBackground :: AttrLabelProxy "background" -cellViewBackground = AttrLabelProxy - -cellViewBackgroundGdk :: AttrLabelProxy "backgroundGdk" -cellViewBackgroundGdk = AttrLabelProxy - -cellViewBackgroundRgba :: AttrLabelProxy "backgroundRgba" -cellViewBackgroundRgba = AttrLabelProxy - -cellViewBackgroundSet :: AttrLabelProxy "backgroundSet" -cellViewBackgroundSet = AttrLabelProxy - -cellViewCellArea :: AttrLabelProxy "cellArea" -cellViewCellArea = AttrLabelProxy - -cellViewCellAreaContext :: AttrLabelProxy "cellAreaContext" -cellViewCellAreaContext = AttrLabelProxy - -cellViewDrawSensitive :: AttrLabelProxy "drawSensitive" -cellViewDrawSensitive = AttrLabelProxy - -cellViewFitModel :: AttrLabelProxy "fitModel" -cellViewFitModel = AttrLabelProxy - -cellViewModel :: AttrLabelProxy "model" -cellViewModel = AttrLabelProxy - -type instance SignalList CellView = CellViewSignalList -type CellViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method CellView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_new" gtk_cell_view_new :: - IO (Ptr CellView) - - -cellViewNew :: - (MonadIO m) => - m CellView -- result -cellViewNew = liftIO $ do - result <- gtk_cell_view_new - checkUnexpectedReturnNULL "gtk_cell_view_new" result - result' <- (newObject CellView) result - return result' - --- method CellView::new_with_context --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_new_with_context" gtk_cell_view_new_with_context :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" - IO (Ptr CellView) - - -cellViewNewWithContext :: - (MonadIO m, CellAreaK a, CellAreaContextK b) => - a -- area - -> b -- context - -> m CellView -- result -cellViewNewWithContext area context = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - let context' = unsafeManagedPtrCastPtr context - result <- gtk_cell_view_new_with_context area' context' - checkUnexpectedReturnNULL "gtk_cell_view_new_with_context" result - result' <- (newObject CellView) result - touchManagedPtr area - touchManagedPtr context - return result' - --- method CellView::new_with_markup --- method type : Constructor --- Args : [Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_new_with_markup" gtk_cell_view_new_with_markup :: - CString -> -- markup : TBasicType TUTF8 - IO (Ptr CellView) - - -cellViewNewWithMarkup :: - (MonadIO m) => - T.Text -- markup - -> m CellView -- result -cellViewNewWithMarkup markup = liftIO $ do - markup' <- textToCString markup - result <- gtk_cell_view_new_with_markup markup' - checkUnexpectedReturnNULL "gtk_cell_view_new_with_markup" result - result' <- (newObject CellView) result - freeMem markup' - return result' - --- method CellView::new_with_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_new_with_pixbuf" gtk_cell_view_new_with_pixbuf :: - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr CellView) - - -cellViewNewWithPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - a -- pixbuf - -> m CellView -- result -cellViewNewWithPixbuf pixbuf = liftIO $ do - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_cell_view_new_with_pixbuf pixbuf' - checkUnexpectedReturnNULL "gtk_cell_view_new_with_pixbuf" result - result' <- (newObject CellView) result - touchManagedPtr pixbuf - return result' - --- method CellView::new_with_text --- method type : Constructor --- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CellView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_new_with_text" gtk_cell_view_new_with_text :: - CString -> -- text : TBasicType TUTF8 - IO (Ptr CellView) - - -cellViewNewWithText :: - (MonadIO m) => - T.Text -- text - -> m CellView -- result -cellViewNewWithText text = liftIO $ do - text' <- textToCString text - result <- gtk_cell_view_new_with_text text' - checkUnexpectedReturnNULL "gtk_cell_view_new_with_text" result - result' <- (newObject CellView) result - freeMem text' - return result' - --- method CellView::get_displayed_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_get_displayed_row" gtk_cell_view_get_displayed_row :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - IO (Ptr TreePath) - - -cellViewGetDisplayedRow :: - (MonadIO m, CellViewK a) => - a -- _obj - -> m TreePath -- result -cellViewGetDisplayedRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_displayed_row _obj' - checkUnexpectedReturnNULL "gtk_cell_view_get_displayed_row" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - return result' - -data CellViewGetDisplayedRowMethodInfo -instance (signature ~ (m TreePath), MonadIO m, CellViewK a) => MethodInfo CellViewGetDisplayedRowMethodInfo a signature where - overloadedMethod _ = cellViewGetDisplayedRow - --- method CellView::get_draw_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", 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 "gtk_cell_view_get_draw_sensitive" gtk_cell_view_get_draw_sensitive :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - IO CInt - - -cellViewGetDrawSensitive :: - (MonadIO m, CellViewK a) => - a -- _obj - -> m Bool -- result -cellViewGetDrawSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_draw_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellViewGetDrawSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellViewK a) => MethodInfo CellViewGetDrawSensitiveMethodInfo a signature where - overloadedMethod _ = cellViewGetDrawSensitive - --- method CellView::get_fit_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", 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 "gtk_cell_view_get_fit_model" gtk_cell_view_get_fit_model :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - IO CInt - - -cellViewGetFitModel :: - (MonadIO m, CellViewK a) => - a -- _obj - -> m Bool -- result -cellViewGetFitModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_fit_model _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CellViewGetFitModelMethodInfo -instance (signature ~ (m Bool), MonadIO m, CellViewK a) => MethodInfo CellViewGetFitModelMethodInfo a signature where - overloadedMethod _ = cellViewGetFitModel - --- method CellView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_get_model" gtk_cell_view_get_model :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - IO (Ptr TreeModel) - - -cellViewGetModel :: - (MonadIO m, CellViewK a) => - a -- _obj - -> m TreeModel -- result -cellViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_cell_view_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data CellViewGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, CellViewK a) => MethodInfo CellViewGetModelMethodInfo a signature where - overloadedMethod _ = cellViewGetModel - --- method CellView::get_size_of_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_get_size_of_row" gtk_cell_view_get_size_of_row :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO CInt - -{-# DEPRECATED cellViewGetSizeOfRow ["(Since version 3.0)","Combo box formerly used this to calculate the","sizes for cellviews, now you can achieve this by either using","the #GtkCellView:fit-model property or by setting the currently","displayed row of the #GtkCellView and using gtk_widget_get_preferred_size()."]#-} -cellViewGetSizeOfRow :: - (MonadIO m, CellViewK a) => - a -- _obj - -> TreePath -- path - -> m (Bool,Requisition) -- result -cellViewGetSizeOfRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - result <- gtk_cell_view_get_size_of_row _obj' path' requisition - let result' = (/= 0) result - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - touchManagedPtr path - return (result', requisition') - -data CellViewGetSizeOfRowMethodInfo -instance (signature ~ (TreePath -> m (Bool,Requisition)), MonadIO m, CellViewK a) => MethodInfo CellViewGetSizeOfRowMethodInfo a signature where - overloadedMethod _ = cellViewGetSizeOfRow - --- method CellView::set_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_cell_view_set_background_color" gtk_cell_view_set_background_color :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED cellViewSetBackgroundColor ["(Since version 3.4)","Use gtk_cell_view_set_background_rgba() instead."]#-} -cellViewSetBackgroundColor :: - (MonadIO m, CellViewK a) => - a -- _obj - -> Gdk.Color -- color - -> m () -- result -cellViewSetBackgroundColor _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gtk_cell_view_set_background_color _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data CellViewSetBackgroundColorMethodInfo -instance (signature ~ (Gdk.Color -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetBackgroundColorMethodInfo a signature where - overloadedMethod _ = cellViewSetBackgroundColor - --- method CellView::set_background_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", 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 "gtk_cell_view_set_background_rgba" gtk_cell_view_set_background_rgba :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -cellViewSetBackgroundRgba :: - (MonadIO m, CellViewK a) => - a -- _obj - -> Gdk.RGBA -- rgba - -> m () -- result -cellViewSetBackgroundRgba _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - gtk_cell_view_set_background_rgba _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - -data CellViewSetBackgroundRgbaMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetBackgroundRgbaMethodInfo a signature where - overloadedMethod _ = cellViewSetBackgroundRgba - --- method CellView::set_displayed_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_set_displayed_row" gtk_cell_view_set_displayed_row :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -cellViewSetDisplayedRow :: - (MonadIO m, CellViewK a) => - a -- _obj - -> Maybe (TreePath) -- path - -> m () -- result -cellViewSetDisplayedRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - gtk_cell_view_set_displayed_row _obj' maybePath - touchManagedPtr _obj - whenJust path touchManagedPtr - return () - -data CellViewSetDisplayedRowMethodInfo -instance (signature ~ (Maybe (TreePath) -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetDisplayedRowMethodInfo a signature where - overloadedMethod _ = cellViewSetDisplayedRow - --- method CellView::set_draw_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_sensitive", 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 "gtk_cell_view_set_draw_sensitive" gtk_cell_view_set_draw_sensitive :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - CInt -> -- draw_sensitive : TBasicType TBoolean - IO () - - -cellViewSetDrawSensitive :: - (MonadIO m, CellViewK a) => - a -- _obj - -> Bool -- drawSensitive - -> m () -- result -cellViewSetDrawSensitive _obj drawSensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let drawSensitive' = (fromIntegral . fromEnum) drawSensitive - gtk_cell_view_set_draw_sensitive _obj' drawSensitive' - touchManagedPtr _obj - return () - -data CellViewSetDrawSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetDrawSensitiveMethodInfo a signature where - overloadedMethod _ = cellViewSetDrawSensitive - --- method CellView::set_fit_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fit_model", 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 "gtk_cell_view_set_fit_model" gtk_cell_view_set_fit_model :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - CInt -> -- fit_model : TBasicType TBoolean - IO () - - -cellViewSetFitModel :: - (MonadIO m, CellViewK a) => - a -- _obj - -> Bool -- fitModel - -> m () -- result -cellViewSetFitModel _obj fitModel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fitModel' = (fromIntegral . fromEnum) fitModel - gtk_cell_view_set_fit_model _obj' fitModel' - touchManagedPtr _obj - return () - -data CellViewSetFitModelMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetFitModelMethodInfo a signature where - overloadedMethod _ = cellViewSetFitModel - --- method CellView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_view_set_model" gtk_cell_view_set_model :: - Ptr CellView -> -- _obj : TInterface "Gtk" "CellView" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -cellViewSetModel :: - (MonadIO m, CellViewK a, TreeModelK b) => - a -- _obj - -> Maybe (b) -- model - -> m () -- result -cellViewSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_cell_view_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data CellViewSetModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, CellViewK a, TreeModelK b) => MethodInfo CellViewSetModelMethodInfo a signature where - overloadedMethod _ = cellViewSetModel - - diff --git a/GI/Gtk/Objects/CellView.hs-boot b/GI/Gtk/Objects/CellView.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CellView.hs-boot +++ /dev/null @@ -1,33 +0,0 @@ -module GI.Gtk.Objects.CellView 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 CellView = CellView (ForeignPtr CellView) -instance GObject CellView where -class GObject o => CellViewK o -instance (GObject o, IsDescendantOf CellView o) => CellViewK o -data CellViewBackgroundPropertyInfo -data CellViewBackgroundGdkPropertyInfo -data CellViewBackgroundRgbaPropertyInfo -data CellViewBackgroundSetPropertyInfo -data CellViewCellAreaPropertyInfo -data CellViewCellAreaContextPropertyInfo -data CellViewDrawSensitivePropertyInfo -data CellViewFitModelPropertyInfo -data CellViewModelPropertyInfo -data CellViewGetDisplayedRowMethodInfo -data CellViewGetDrawSensitiveMethodInfo -data CellViewGetFitModelMethodInfo -data CellViewGetModelMethodInfo -data CellViewGetSizeOfRowMethodInfo -data CellViewSetBackgroundColorMethodInfo -data CellViewSetBackgroundRgbaMethodInfo -data CellViewSetDisplayedRowMethodInfo -data CellViewSetDrawSensitiveMethodInfo -data CellViewSetFitModelMethodInfo -data CellViewSetModelMethodInfo diff --git a/GI/Gtk/Objects/CheckButton.hs b/GI/Gtk/Objects/CheckButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CheckButton.hs +++ /dev/null @@ -1,511 +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.Gtk.Objects.CheckButton - ( - --- * Exported types - CheckButton(..) , - CheckButtonK , - toCheckButton , - noCheckButton , - - - -- * Methods --- ** checkButtonNew - checkButtonNew , - - --- ** checkButtonNewWithLabel - checkButtonNewWithLabel , - - --- ** checkButtonNewWithMnemonic - checkButtonNewWithMnemonic , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype CheckButton = CheckButton (ForeignPtr CheckButton) -foreign import ccall "gtk_check_button_get_type" - c_gtk_check_button_get_type :: IO GType - -type instance ParentTypes CheckButton = CheckButtonParentTypes -type CheckButtonParentTypes = '[ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject CheckButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_check_button_get_type - - -class GObject o => CheckButtonK o -instance (GObject o, IsDescendantOf CheckButton o) => CheckButtonK o - -toCheckButton :: CheckButtonK o => o -> IO CheckButton -toCheckButton = unsafeCastTo CheckButton - -noCheckButton :: Maybe CheckButton -noCheckButton = Nothing - -type family ResolveCheckButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveCheckButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveCheckButtonMethod "add" o = ContainerAddMethodInfo - ResolveCheckButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveCheckButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCheckButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveCheckButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveCheckButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveCheckButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveCheckButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCheckButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCheckButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveCheckButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveCheckButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveCheckButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveCheckButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveCheckButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveCheckButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveCheckButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveCheckButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveCheckButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveCheckButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCheckButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveCheckButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveCheckButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCheckButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCheckButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCheckButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveCheckButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveCheckButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveCheckButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveCheckButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveCheckButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveCheckButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveCheckButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveCheckButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveCheckButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveCheckButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveCheckButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveCheckButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveCheckButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveCheckButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveCheckButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveCheckButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveCheckButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveCheckButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveCheckButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveCheckButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveCheckButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveCheckButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveCheckButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveCheckButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveCheckButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveCheckButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveCheckButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveCheckButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveCheckButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveCheckButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveCheckButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveCheckButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveCheckButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveCheckButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveCheckButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveCheckButtonMethod "event" o = WidgetEventMethodInfo - ResolveCheckButtonMethod "forall" o = ContainerForallMethodInfo - ResolveCheckButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCheckButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveCheckButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveCheckButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCheckButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveCheckButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveCheckButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveCheckButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveCheckButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveCheckButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveCheckButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveCheckButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveCheckButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveCheckButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveCheckButtonMethod "hide" o = WidgetHideMethodInfo - ResolveCheckButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveCheckButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveCheckButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveCheckButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveCheckButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveCheckButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveCheckButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveCheckButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveCheckButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveCheckButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCheckButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveCheckButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveCheckButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveCheckButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveCheckButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveCheckButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveCheckButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveCheckButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveCheckButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveCheckButtonMethod "map" o = WidgetMapMethodInfo - ResolveCheckButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveCheckButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveCheckButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveCheckButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveCheckButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveCheckButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveCheckButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveCheckButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveCheckButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCheckButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCheckButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveCheckButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveCheckButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveCheckButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveCheckButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveCheckButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCheckButtonMethod "path" o = WidgetPathMethodInfo - ResolveCheckButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveCheckButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveCheckButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveCheckButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveCheckButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveCheckButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveCheckButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveCheckButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveCheckButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveCheckButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCheckButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCheckButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveCheckButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveCheckButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveCheckButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveCheckButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveCheckButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveCheckButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveCheckButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveCheckButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveCheckButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveCheckButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCheckButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCheckButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveCheckButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveCheckButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveCheckButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCheckButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveCheckButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveCheckButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveCheckButtonMethod "show" o = WidgetShowMethodInfo - ResolveCheckButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveCheckButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveCheckButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveCheckButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveCheckButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveCheckButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCheckButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCheckButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveCheckButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveCheckButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveCheckButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveCheckButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCheckButtonMethod "toggled" o = ToggleButtonToggledMethodInfo - ResolveCheckButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveCheckButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveCheckButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveCheckButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveCheckButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveCheckButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCheckButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveCheckButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveCheckButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveCheckButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCheckButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveCheckButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveCheckButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveCheckButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveCheckButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo - ResolveCheckButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveCheckButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveCheckButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveCheckButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveCheckButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveCheckButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveCheckButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveCheckButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveCheckButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveCheckButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveCheckButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveCheckButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveCheckButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveCheckButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveCheckButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveCheckButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveCheckButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveCheckButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveCheckButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCheckButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveCheckButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveCheckButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveCheckButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveCheckButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveCheckButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveCheckButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveCheckButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveCheckButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveCheckButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveCheckButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveCheckButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveCheckButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveCheckButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveCheckButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveCheckButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveCheckButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveCheckButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveCheckButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveCheckButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveCheckButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveCheckButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveCheckButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo - ResolveCheckButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCheckButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveCheckButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveCheckButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveCheckButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveCheckButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveCheckButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveCheckButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveCheckButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveCheckButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo - ResolveCheckButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveCheckButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveCheckButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveCheckButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveCheckButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveCheckButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveCheckButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveCheckButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveCheckButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveCheckButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveCheckButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveCheckButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveCheckButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveCheckButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveCheckButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveCheckButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveCheckButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCheckButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCheckButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveCheckButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveCheckButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveCheckButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveCheckButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveCheckButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveCheckButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveCheckButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveCheckButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveCheckButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveCheckButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveCheckButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveCheckButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveCheckButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveCheckButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveCheckButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveCheckButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveCheckButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveCheckButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveCheckButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveCheckButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveCheckButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveCheckButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveCheckButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveCheckButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveCheckButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveCheckButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveCheckButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveCheckButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveCheckButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveCheckButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveCheckButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveCheckButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveCheckButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveCheckButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveCheckButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveCheckButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo - ResolveCheckButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveCheckButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveCheckButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveCheckButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveCheckButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveCheckButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCheckButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveCheckButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveCheckButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveCheckButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveCheckButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveCheckButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCheckButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveCheckButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveCheckButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveCheckButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveCheckButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveCheckButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveCheckButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveCheckButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveCheckButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveCheckButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveCheckButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveCheckButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveCheckButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveCheckButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveCheckButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveCheckButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveCheckButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveCheckButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveCheckButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveCheckButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveCheckButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo - ResolveCheckButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveCheckButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveCheckButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveCheckButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveCheckButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveCheckButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveCheckButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveCheckButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveCheckButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo - ResolveCheckButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveCheckButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveCheckButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveCheckButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveCheckButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCheckButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveCheckButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveCheckButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveCheckButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveCheckButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveCheckButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveCheckButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveCheckButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveCheckButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveCheckButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveCheckButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveCheckButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveCheckButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveCheckButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveCheckButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveCheckButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveCheckButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveCheckButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveCheckButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveCheckButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveCheckButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveCheckButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveCheckButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveCheckButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveCheckButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveCheckButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCheckButtonMethod t CheckButton, MethodInfo info CheckButton p) => IsLabelProxy t (CheckButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCheckButtonMethod t CheckButton, MethodInfo info CheckButton p) => IsLabel t (CheckButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList CheckButton = CheckButtonAttributeList -type CheckButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CheckButton = CheckButtonSignalList -type CheckButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method CheckButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_button_new" gtk_check_button_new :: - IO (Ptr CheckButton) - - -checkButtonNew :: - (MonadIO m) => - m CheckButton -- result -checkButtonNew = liftIO $ do - result <- gtk_check_button_new - checkUnexpectedReturnNULL "gtk_check_button_new" result - result' <- (newObject CheckButton) result - return result' - --- method CheckButton::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_button_new_with_label" gtk_check_button_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr CheckButton) - - -checkButtonNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m CheckButton -- result -checkButtonNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_check_button_new_with_label label' - checkUnexpectedReturnNULL "gtk_check_button_new_with_label" result - result' <- (newObject CheckButton) result - freeMem label' - return result' - --- method CheckButton::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_button_new_with_mnemonic" gtk_check_button_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr CheckButton) - - -checkButtonNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m CheckButton -- result -checkButtonNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_check_button_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_check_button_new_with_mnemonic" result - result' <- (newObject CheckButton) result - freeMem label' - return result' - - diff --git a/GI/Gtk/Objects/CheckButton.hs-boot b/GI/Gtk/Objects/CheckButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CheckButton.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.CheckButton 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 CheckButton = CheckButton (ForeignPtr CheckButton) -instance GObject CheckButton where -class GObject o => CheckButtonK o -instance (GObject o, IsDescendantOf CheckButton o) => CheckButtonK o diff --git a/GI/Gtk/Objects/CheckMenuItem.hs b/GI/Gtk/Objects/CheckMenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CheckMenuItem.hs +++ /dev/null @@ -1,908 +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.Gtk.Objects.CheckMenuItem - ( - --- * Exported types - CheckMenuItem(..) , - CheckMenuItemK , - toCheckMenuItem , - noCheckMenuItem , - - - -- * Methods --- ** checkMenuItemGetActive - CheckMenuItemGetActiveMethodInfo , - checkMenuItemGetActive , - - --- ** checkMenuItemGetDrawAsRadio - CheckMenuItemGetDrawAsRadioMethodInfo , - checkMenuItemGetDrawAsRadio , - - --- ** checkMenuItemGetInconsistent - CheckMenuItemGetInconsistentMethodInfo , - checkMenuItemGetInconsistent , - - --- ** checkMenuItemNew - checkMenuItemNew , - - --- ** checkMenuItemNewWithLabel - checkMenuItemNewWithLabel , - - --- ** checkMenuItemNewWithMnemonic - checkMenuItemNewWithMnemonic , - - --- ** checkMenuItemSetActive - CheckMenuItemSetActiveMethodInfo , - checkMenuItemSetActive , - - --- ** checkMenuItemSetDrawAsRadio - CheckMenuItemSetDrawAsRadioMethodInfo , - checkMenuItemSetDrawAsRadio , - - --- ** checkMenuItemSetInconsistent - CheckMenuItemSetInconsistentMethodInfo , - checkMenuItemSetInconsistent , - - --- ** checkMenuItemToggled - CheckMenuItemToggledMethodInfo , - checkMenuItemToggled , - - - - - -- * Properties --- ** Active - CheckMenuItemActivePropertyInfo , - checkMenuItemActive , - constructCheckMenuItemActive , - getCheckMenuItemActive , - setCheckMenuItemActive , - - --- ** DrawAsRadio - CheckMenuItemDrawAsRadioPropertyInfo , - checkMenuItemDrawAsRadio , - constructCheckMenuItemDrawAsRadio , - getCheckMenuItemDrawAsRadio , - setCheckMenuItemDrawAsRadio , - - --- ** Inconsistent - CheckMenuItemInconsistentPropertyInfo , - checkMenuItemInconsistent , - constructCheckMenuItemInconsistent , - getCheckMenuItemInconsistent , - setCheckMenuItemInconsistent , - - - - - -- * Signals --- ** Toggled - CheckMenuItemToggledCallback , - CheckMenuItemToggledCallbackC , - CheckMenuItemToggledSignalInfo , - afterCheckMenuItemToggled , - checkMenuItemToggledCallbackWrapper , - checkMenuItemToggledClosure , - mkCheckMenuItemToggledCallback , - noCheckMenuItemToggledCallback , - onCheckMenuItemToggled , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype CheckMenuItem = CheckMenuItem (ForeignPtr CheckMenuItem) -foreign import ccall "gtk_check_menu_item_get_type" - c_gtk_check_menu_item_get_type :: IO GType - -type instance ParentTypes CheckMenuItem = CheckMenuItemParentTypes -type CheckMenuItemParentTypes = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject CheckMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_check_menu_item_get_type - - -class GObject o => CheckMenuItemK o -instance (GObject o, IsDescendantOf CheckMenuItem o) => CheckMenuItemK o - -toCheckMenuItem :: CheckMenuItemK o => o -> IO CheckMenuItem -toCheckMenuItem = unsafeCastTo CheckMenuItem - -noCheckMenuItem :: Maybe CheckMenuItem -noCheckMenuItem = Nothing - -type family ResolveCheckMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveCheckMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveCheckMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveCheckMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveCheckMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveCheckMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveCheckMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveCheckMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveCheckMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCheckMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCheckMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveCheckMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveCheckMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveCheckMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveCheckMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveCheckMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveCheckMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveCheckMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveCheckMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveCheckMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveCheckMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveCheckMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveCheckMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveCheckMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveCheckMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveCheckMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveCheckMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveCheckMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveCheckMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveCheckMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveCheckMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveCheckMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveCheckMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveCheckMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveCheckMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveCheckMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveCheckMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveCheckMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveCheckMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveCheckMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveCheckMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveCheckMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveCheckMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveCheckMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveCheckMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveCheckMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveCheckMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveCheckMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveCheckMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveCheckMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveCheckMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveCheckMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveCheckMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveCheckMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveCheckMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveCheckMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveCheckMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveCheckMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveCheckMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveCheckMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveCheckMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveCheckMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveCheckMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveCheckMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCheckMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveCheckMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveCheckMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCheckMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveCheckMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveCheckMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveCheckMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveCheckMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveCheckMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveCheckMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveCheckMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveCheckMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveCheckMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveCheckMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveCheckMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveCheckMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveCheckMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveCheckMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveCheckMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveCheckMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveCheckMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveCheckMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveCheckMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveCheckMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCheckMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveCheckMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveCheckMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveCheckMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveCheckMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveCheckMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveCheckMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveCheckMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveCheckMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveCheckMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveCheckMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveCheckMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveCheckMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveCheckMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveCheckMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveCheckMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveCheckMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveCheckMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCheckMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCheckMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveCheckMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveCheckMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveCheckMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveCheckMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveCheckMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveCheckMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveCheckMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveCheckMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveCheckMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveCheckMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveCheckMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveCheckMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveCheckMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveCheckMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveCheckMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCheckMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCheckMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveCheckMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveCheckMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveCheckMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveCheckMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveCheckMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveCheckMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveCheckMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveCheckMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveCheckMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCheckMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCheckMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveCheckMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveCheckMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveCheckMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCheckMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveCheckMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveCheckMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveCheckMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveCheckMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveCheckMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveCheckMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveCheckMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveCheckMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveCheckMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveCheckMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCheckMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCheckMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveCheckMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveCheckMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveCheckMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveCheckMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCheckMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveCheckMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveCheckMenuItemMethod "toggled" o = CheckMenuItemToggledMethodInfo - ResolveCheckMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveCheckMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveCheckMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveCheckMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveCheckMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveCheckMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCheckMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveCheckMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveCheckMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveCheckMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCheckMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveCheckMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveCheckMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveCheckMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveCheckMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveCheckMenuItemMethod "getActive" o = CheckMenuItemGetActiveMethodInfo - ResolveCheckMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveCheckMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveCheckMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveCheckMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveCheckMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveCheckMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveCheckMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveCheckMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveCheckMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveCheckMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveCheckMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveCheckMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveCheckMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveCheckMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveCheckMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveCheckMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveCheckMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCheckMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveCheckMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveCheckMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveCheckMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveCheckMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveCheckMenuItemMethod "getDrawAsRadio" o = CheckMenuItemGetDrawAsRadioMethodInfo - ResolveCheckMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveCheckMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveCheckMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveCheckMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveCheckMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveCheckMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveCheckMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveCheckMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveCheckMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveCheckMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveCheckMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveCheckMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveCheckMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveCheckMenuItemMethod "getInconsistent" o = CheckMenuItemGetInconsistentMethodInfo - ResolveCheckMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveCheckMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveCheckMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveCheckMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveCheckMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveCheckMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveCheckMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveCheckMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveCheckMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveCheckMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveCheckMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveCheckMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveCheckMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveCheckMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveCheckMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveCheckMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveCheckMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveCheckMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveCheckMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveCheckMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveCheckMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveCheckMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveCheckMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveCheckMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveCheckMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveCheckMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCheckMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCheckMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveCheckMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveCheckMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveCheckMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveCheckMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveCheckMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveCheckMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveCheckMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveCheckMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveCheckMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveCheckMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveCheckMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveCheckMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveCheckMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveCheckMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveCheckMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveCheckMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveCheckMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveCheckMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveCheckMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveCheckMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveCheckMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveCheckMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveCheckMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveCheckMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveCheckMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveCheckMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveCheckMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveCheckMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveCheckMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveCheckMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveCheckMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveCheckMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveCheckMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveCheckMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveCheckMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveCheckMenuItemMethod "setActive" o = CheckMenuItemSetActiveMethodInfo - ResolveCheckMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveCheckMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveCheckMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveCheckMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveCheckMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveCheckMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveCheckMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveCheckMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveCheckMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveCheckMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCheckMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveCheckMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveCheckMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveCheckMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveCheckMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveCheckMenuItemMethod "setDrawAsRadio" o = CheckMenuItemSetDrawAsRadioMethodInfo - ResolveCheckMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveCheckMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveCheckMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveCheckMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveCheckMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveCheckMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveCheckMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveCheckMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveCheckMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveCheckMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveCheckMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveCheckMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveCheckMenuItemMethod "setInconsistent" o = CheckMenuItemSetInconsistentMethodInfo - ResolveCheckMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveCheckMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveCheckMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveCheckMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveCheckMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveCheckMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveCheckMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveCheckMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveCheckMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveCheckMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveCheckMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveCheckMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveCheckMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCheckMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveCheckMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveCheckMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveCheckMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveCheckMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveCheckMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveCheckMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveCheckMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveCheckMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveCheckMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveCheckMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveCheckMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveCheckMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveCheckMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveCheckMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveCheckMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveCheckMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveCheckMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveCheckMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveCheckMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveCheckMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveCheckMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveCheckMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveCheckMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveCheckMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveCheckMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveCheckMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCheckMenuItemMethod t CheckMenuItem, MethodInfo info CheckMenuItem p) => IsLabelProxy t (CheckMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCheckMenuItemMethod t CheckMenuItem, MethodInfo info CheckMenuItem p) => IsLabel t (CheckMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CheckMenuItem::toggled -type CheckMenuItemToggledCallback = - IO () - -noCheckMenuItemToggledCallback :: Maybe CheckMenuItemToggledCallback -noCheckMenuItemToggledCallback = Nothing - -type CheckMenuItemToggledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCheckMenuItemToggledCallback :: CheckMenuItemToggledCallbackC -> IO (FunPtr CheckMenuItemToggledCallbackC) - -checkMenuItemToggledClosure :: CheckMenuItemToggledCallback -> IO Closure -checkMenuItemToggledClosure cb = newCClosure =<< mkCheckMenuItemToggledCallback wrapped - where wrapped = checkMenuItemToggledCallbackWrapper cb - -checkMenuItemToggledCallbackWrapper :: - CheckMenuItemToggledCallback -> - Ptr () -> - Ptr () -> - IO () -checkMenuItemToggledCallbackWrapper _cb _ _ = do - _cb - -onCheckMenuItemToggled :: (GObject a, MonadIO m) => a -> CheckMenuItemToggledCallback -> m SignalHandlerId -onCheckMenuItemToggled obj cb = liftIO $ connectCheckMenuItemToggled obj cb SignalConnectBefore -afterCheckMenuItemToggled :: (GObject a, MonadIO m) => a -> CheckMenuItemToggledCallback -> m SignalHandlerId -afterCheckMenuItemToggled obj cb = connectCheckMenuItemToggled obj cb SignalConnectAfter - -connectCheckMenuItemToggled :: (GObject a, MonadIO m) => - a -> CheckMenuItemToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectCheckMenuItemToggled obj cb after = liftIO $ do - cb' <- mkCheckMenuItemToggledCallback (checkMenuItemToggledCallbackWrapper cb) - connectSignalFunPtr obj "toggled" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCheckMenuItemActive :: (MonadIO m, CheckMenuItemK o) => o -> m Bool -getCheckMenuItemActive obj = liftIO $ getObjectPropertyBool obj "active" - -setCheckMenuItemActive :: (MonadIO m, CheckMenuItemK o) => o -> Bool -> m () -setCheckMenuItemActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructCheckMenuItemActive :: Bool -> IO ([Char], GValue) -constructCheckMenuItemActive val = constructObjectPropertyBool "active" val - -data CheckMenuItemActivePropertyInfo -instance AttrInfo CheckMenuItemActivePropertyInfo where - type AttrAllowedOps CheckMenuItemActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CheckMenuItemActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint CheckMenuItemActivePropertyInfo = CheckMenuItemK - type AttrGetType CheckMenuItemActivePropertyInfo = Bool - type AttrLabel CheckMenuItemActivePropertyInfo = "active" - attrGet _ = getCheckMenuItemActive - attrSet _ = setCheckMenuItemActive - attrConstruct _ = constructCheckMenuItemActive - attrClear _ = undefined - --- VVV Prop "draw-as-radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCheckMenuItemDrawAsRadio :: (MonadIO m, CheckMenuItemK o) => o -> m Bool -getCheckMenuItemDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio" - -setCheckMenuItemDrawAsRadio :: (MonadIO m, CheckMenuItemK o) => o -> Bool -> m () -setCheckMenuItemDrawAsRadio obj val = liftIO $ setObjectPropertyBool obj "draw-as-radio" val - -constructCheckMenuItemDrawAsRadio :: Bool -> IO ([Char], GValue) -constructCheckMenuItemDrawAsRadio val = constructObjectPropertyBool "draw-as-radio" val - -data CheckMenuItemDrawAsRadioPropertyInfo -instance AttrInfo CheckMenuItemDrawAsRadioPropertyInfo where - type AttrAllowedOps CheckMenuItemDrawAsRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CheckMenuItemDrawAsRadioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CheckMenuItemDrawAsRadioPropertyInfo = CheckMenuItemK - type AttrGetType CheckMenuItemDrawAsRadioPropertyInfo = Bool - type AttrLabel CheckMenuItemDrawAsRadioPropertyInfo = "draw-as-radio" - attrGet _ = getCheckMenuItemDrawAsRadio - attrSet _ = setCheckMenuItemDrawAsRadio - attrConstruct _ = constructCheckMenuItemDrawAsRadio - attrClear _ = undefined - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getCheckMenuItemInconsistent :: (MonadIO m, CheckMenuItemK o) => o -> m Bool -getCheckMenuItemInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" - -setCheckMenuItemInconsistent :: (MonadIO m, CheckMenuItemK o) => o -> Bool -> m () -setCheckMenuItemInconsistent obj val = liftIO $ setObjectPropertyBool obj "inconsistent" val - -constructCheckMenuItemInconsistent :: Bool -> IO ([Char], GValue) -constructCheckMenuItemInconsistent val = constructObjectPropertyBool "inconsistent" val - -data CheckMenuItemInconsistentPropertyInfo -instance AttrInfo CheckMenuItemInconsistentPropertyInfo where - type AttrAllowedOps CheckMenuItemInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CheckMenuItemInconsistentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CheckMenuItemInconsistentPropertyInfo = CheckMenuItemK - type AttrGetType CheckMenuItemInconsistentPropertyInfo = Bool - type AttrLabel CheckMenuItemInconsistentPropertyInfo = "inconsistent" - attrGet _ = getCheckMenuItemInconsistent - attrSet _ = setCheckMenuItemInconsistent - attrConstruct _ = constructCheckMenuItemInconsistent - attrClear _ = undefined - -type instance AttributeList CheckMenuItem = CheckMenuItemAttributeList -type CheckMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -checkMenuItemActive :: AttrLabelProxy "active" -checkMenuItemActive = AttrLabelProxy - -checkMenuItemDrawAsRadio :: AttrLabelProxy "drawAsRadio" -checkMenuItemDrawAsRadio = AttrLabelProxy - -checkMenuItemInconsistent :: AttrLabelProxy "inconsistent" -checkMenuItemInconsistent = AttrLabelProxy - -data CheckMenuItemToggledSignalInfo -instance SignalInfo CheckMenuItemToggledSignalInfo where - type HaskellCallbackType CheckMenuItemToggledSignalInfo = CheckMenuItemToggledCallback - connectSignal _ = connectCheckMenuItemToggled - -type instance SignalList CheckMenuItem = CheckMenuItemSignalList -type CheckMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method CheckMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_menu_item_new" gtk_check_menu_item_new :: - IO (Ptr CheckMenuItem) - - -checkMenuItemNew :: - (MonadIO m) => - m CheckMenuItem -- result -checkMenuItemNew = liftIO $ do - result <- gtk_check_menu_item_new - checkUnexpectedReturnNULL "gtk_check_menu_item_new" result - result' <- (newObject CheckMenuItem) result - return result' - --- method CheckMenuItem::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_menu_item_new_with_label" gtk_check_menu_item_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr CheckMenuItem) - - -checkMenuItemNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m CheckMenuItem -- result -checkMenuItemNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_check_menu_item_new_with_label label' - checkUnexpectedReturnNULL "gtk_check_menu_item_new_with_label" result - result' <- (newObject CheckMenuItem) result - freeMem label' - return result' - --- method CheckMenuItem::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CheckMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_menu_item_new_with_mnemonic" gtk_check_menu_item_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr CheckMenuItem) - - -checkMenuItemNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m CheckMenuItem -- result -checkMenuItemNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_check_menu_item_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_check_menu_item_new_with_mnemonic" result - result' <- (newObject CheckMenuItem) result - freeMem label' - return result' - --- method CheckMenuItem::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", 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 "gtk_check_menu_item_get_active" gtk_check_menu_item_get_active :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - IO CInt - - -checkMenuItemGetActive :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> m Bool -- result -checkMenuItemGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_check_menu_item_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CheckMenuItemGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetActiveMethodInfo a signature where - overloadedMethod _ = checkMenuItemGetActive - --- method CheckMenuItem::get_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", 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 "gtk_check_menu_item_get_draw_as_radio" gtk_check_menu_item_get_draw_as_radio :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - IO CInt - - -checkMenuItemGetDrawAsRadio :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> m Bool -- result -checkMenuItemGetDrawAsRadio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_check_menu_item_get_draw_as_radio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CheckMenuItemGetDrawAsRadioMethodInfo -instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetDrawAsRadioMethodInfo a signature where - overloadedMethod _ = checkMenuItemGetDrawAsRadio - --- method CheckMenuItem::get_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", 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 "gtk_check_menu_item_get_inconsistent" gtk_check_menu_item_get_inconsistent :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - IO CInt - - -checkMenuItemGetInconsistent :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> m Bool -- result -checkMenuItemGetInconsistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_check_menu_item_get_inconsistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CheckMenuItemGetInconsistentMethodInfo -instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetInconsistentMethodInfo a signature where - overloadedMethod _ = checkMenuItemGetInconsistent - --- method CheckMenuItem::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", 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 "gtk_check_menu_item_set_active" gtk_check_menu_item_set_active :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - CInt -> -- is_active : TBasicType TBoolean - IO () - - -checkMenuItemSetActive :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> Bool -- isActive - -> m () -- result -checkMenuItemSetActive _obj isActive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isActive' = (fromIntegral . fromEnum) isActive - gtk_check_menu_item_set_active _obj' isActive' - touchManagedPtr _obj - return () - -data CheckMenuItemSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetActiveMethodInfo a signature where - overloadedMethod _ = checkMenuItemSetActive - --- method CheckMenuItem::set_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", 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 "gtk_check_menu_item_set_draw_as_radio" gtk_check_menu_item_set_draw_as_radio :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - CInt -> -- draw_as_radio : TBasicType TBoolean - IO () - - -checkMenuItemSetDrawAsRadio :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> Bool -- drawAsRadio - -> m () -- result -checkMenuItemSetDrawAsRadio _obj drawAsRadio = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let drawAsRadio' = (fromIntegral . fromEnum) drawAsRadio - gtk_check_menu_item_set_draw_as_radio _obj' drawAsRadio' - touchManagedPtr _obj - return () - -data CheckMenuItemSetDrawAsRadioMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetDrawAsRadioMethodInfo a signature where - overloadedMethod _ = checkMenuItemSetDrawAsRadio - --- method CheckMenuItem::set_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_check_menu_item_set_inconsistent" gtk_check_menu_item_set_inconsistent :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - CInt -> -- setting : TBasicType TBoolean - IO () - - -checkMenuItemSetInconsistent :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -checkMenuItemSetInconsistent _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_check_menu_item_set_inconsistent _obj' setting' - touchManagedPtr _obj - return () - -data CheckMenuItemSetInconsistentMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetInconsistentMethodInfo a signature where - overloadedMethod _ = checkMenuItemSetInconsistent - --- method CheckMenuItem::toggled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", 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 "gtk_check_menu_item_toggled" gtk_check_menu_item_toggled :: - Ptr CheckMenuItem -> -- _obj : TInterface "Gtk" "CheckMenuItem" - IO () - - -checkMenuItemToggled :: - (MonadIO m, CheckMenuItemK a) => - a -- _obj - -> m () -- result -checkMenuItemToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_check_menu_item_toggled _obj' - touchManagedPtr _obj - return () - -data CheckMenuItemToggledMethodInfo -instance (signature ~ (m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemToggledMethodInfo a signature where - overloadedMethod _ = checkMenuItemToggled - - diff --git a/GI/Gtk/Objects/CheckMenuItem.hs-boot b/GI/Gtk/Objects/CheckMenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CheckMenuItem.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.CheckMenuItem 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 CheckMenuItem = CheckMenuItem (ForeignPtr CheckMenuItem) -instance GObject CheckMenuItem where -class GObject o => CheckMenuItemK o -instance (GObject o, IsDescendantOf CheckMenuItem o) => CheckMenuItemK o -data CheckMenuItemActivePropertyInfo -data CheckMenuItemDrawAsRadioPropertyInfo -data CheckMenuItemInconsistentPropertyInfo -data CheckMenuItemToggledSignalInfo -data CheckMenuItemGetActiveMethodInfo -data CheckMenuItemGetDrawAsRadioMethodInfo -data CheckMenuItemGetInconsistentMethodInfo -data CheckMenuItemSetActiveMethodInfo -data CheckMenuItemSetDrawAsRadioMethodInfo -data CheckMenuItemSetInconsistentMethodInfo -data CheckMenuItemToggledMethodInfo diff --git a/GI/Gtk/Objects/CheckMenuItemAccessible.hs b/GI/Gtk/Objects/CheckMenuItemAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CheckMenuItemAccessible.hs +++ /dev/null @@ -1,136 +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.Gtk.Objects.CheckMenuItemAccessible - ( - --- * Exported types - CheckMenuItemAccessible(..) , - CheckMenuItemAccessibleK , - toCheckMenuItemAccessible , - noCheckMenuItemAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype CheckMenuItemAccessible = CheckMenuItemAccessible (ForeignPtr CheckMenuItemAccessible) -foreign import ccall "gtk_check_menu_item_accessible_get_type" - c_gtk_check_menu_item_accessible_get_type :: IO GType - -type instance ParentTypes CheckMenuItemAccessible = CheckMenuItemAccessibleParentTypes -type CheckMenuItemAccessibleParentTypes = '[MenuItemAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection] - -instance GObject CheckMenuItemAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_check_menu_item_accessible_get_type - - -class GObject o => CheckMenuItemAccessibleK o -instance (GObject o, IsDescendantOf CheckMenuItemAccessible o) => CheckMenuItemAccessibleK o - -toCheckMenuItemAccessible :: CheckMenuItemAccessibleK o => o -> IO CheckMenuItemAccessible -toCheckMenuItemAccessible = unsafeCastTo CheckMenuItemAccessible - -noCheckMenuItemAccessible :: Maybe CheckMenuItemAccessible -noCheckMenuItemAccessible = Nothing - -type family ResolveCheckMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveCheckMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveCheckMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveCheckMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCheckMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCheckMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveCheckMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveCheckMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveCheckMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveCheckMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCheckMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCheckMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveCheckMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveCheckMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveCheckMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCheckMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCheckMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCheckMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveCheckMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveCheckMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCheckMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveCheckMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveCheckMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveCheckMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveCheckMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCheckMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveCheckMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveCheckMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveCheckMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveCheckMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveCheckMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCheckMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCheckMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCheckMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveCheckMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCheckMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCheckMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCheckMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCheckMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCheckMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveCheckMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveCheckMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCheckMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveCheckMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveCheckMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveCheckMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveCheckMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveCheckMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveCheckMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveCheckMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveCheckMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveCheckMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCheckMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCheckMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveCheckMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveCheckMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveCheckMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveCheckMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCheckMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveCheckMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveCheckMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveCheckMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveCheckMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCheckMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveCheckMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveCheckMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveCheckMenuItemAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCheckMenuItemAccessibleMethod t CheckMenuItemAccessible, MethodInfo info CheckMenuItemAccessible p) => IsLabelProxy t (CheckMenuItemAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCheckMenuItemAccessibleMethod t CheckMenuItemAccessible, MethodInfo info CheckMenuItemAccessible p) => IsLabel t (CheckMenuItemAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList CheckMenuItemAccessible = CheckMenuItemAccessibleAttributeList -type CheckMenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CheckMenuItemAccessible = CheckMenuItemAccessibleSignalList -type CheckMenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot b/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.CheckMenuItemAccessible 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 CheckMenuItemAccessible = CheckMenuItemAccessible (ForeignPtr CheckMenuItemAccessible) -instance GObject CheckMenuItemAccessible where -class GObject o => CheckMenuItemAccessibleK o -instance (GObject o, IsDescendantOf CheckMenuItemAccessible o) => CheckMenuItemAccessibleK o diff --git a/GI/Gtk/Objects/Clipboard.hs b/GI/Gtk/Objects/Clipboard.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Clipboard.hs +++ /dev/null @@ -1,1181 +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.Gtk.Objects.Clipboard - ( - --- * Exported types - Clipboard(..) , - ClipboardK , - toClipboard , - noClipboard , - - - -- * Methods --- ** clipboardClear - ClipboardClearMethodInfo , - clipboardClear , - - --- ** clipboardGet - clipboardGet , - - --- ** clipboardGetDefault - clipboardGetDefault , - - --- ** clipboardGetDisplay - ClipboardGetDisplayMethodInfo , - clipboardGetDisplay , - - --- ** clipboardGetForDisplay - clipboardGetForDisplay , - - --- ** clipboardGetOwner - ClipboardGetOwnerMethodInfo , - clipboardGetOwner , - - --- ** clipboardRequestContents - ClipboardRequestContentsMethodInfo , - clipboardRequestContents , - - --- ** clipboardRequestImage - ClipboardRequestImageMethodInfo , - clipboardRequestImage , - - --- ** clipboardRequestRichText - ClipboardRequestRichTextMethodInfo , - clipboardRequestRichText , - - --- ** clipboardRequestTargets - ClipboardRequestTargetsMethodInfo , - clipboardRequestTargets , - - --- ** clipboardRequestText - ClipboardRequestTextMethodInfo , - clipboardRequestText , - - --- ** clipboardRequestUris - ClipboardRequestUrisMethodInfo , - clipboardRequestUris , - - --- ** clipboardSetCanStore - ClipboardSetCanStoreMethodInfo , - clipboardSetCanStore , - - --- ** clipboardSetImage - ClipboardSetImageMethodInfo , - clipboardSetImage , - - --- ** clipboardSetText - ClipboardSetTextMethodInfo , - clipboardSetText , - - --- ** clipboardStore - ClipboardStoreMethodInfo , - clipboardStore , - - --- ** clipboardWaitForContents - ClipboardWaitForContentsMethodInfo , - clipboardWaitForContents , - - --- ** clipboardWaitForImage - ClipboardWaitForImageMethodInfo , - clipboardWaitForImage , - - --- ** clipboardWaitForRichText - ClipboardWaitForRichTextMethodInfo , - clipboardWaitForRichText , - - --- ** clipboardWaitForTargets - ClipboardWaitForTargetsMethodInfo , - clipboardWaitForTargets , - - --- ** clipboardWaitForText - ClipboardWaitForTextMethodInfo , - clipboardWaitForText , - - --- ** clipboardWaitForUris - ClipboardWaitForUrisMethodInfo , - clipboardWaitForUris , - - --- ** clipboardWaitIsImageAvailable - ClipboardWaitIsImageAvailableMethodInfo , - clipboardWaitIsImageAvailable , - - --- ** clipboardWaitIsRichTextAvailable - ClipboardWaitIsRichTextAvailableMethodInfo, - clipboardWaitIsRichTextAvailable , - - --- ** clipboardWaitIsTargetAvailable - ClipboardWaitIsTargetAvailableMethodInfo, - clipboardWaitIsTargetAvailable , - - --- ** clipboardWaitIsTextAvailable - ClipboardWaitIsTextAvailableMethodInfo , - clipboardWaitIsTextAvailable , - - --- ** clipboardWaitIsUrisAvailable - ClipboardWaitIsUrisAvailableMethodInfo , - clipboardWaitIsUrisAvailable , - - - - - -- * Signals --- ** OwnerChange - ClipboardOwnerChangeCallback , - ClipboardOwnerChangeCallbackC , - ClipboardOwnerChangeSignalInfo , - afterClipboardOwnerChange , - clipboardOwnerChangeCallbackWrapper , - clipboardOwnerChangeClosure , - mkClipboardOwnerChangeCallback , - noClipboardOwnerChangeCallback , - onClipboardOwnerChange , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype Clipboard = Clipboard (ForeignPtr Clipboard) -foreign import ccall "gtk_clipboard_get_type" - c_gtk_clipboard_get_type :: IO GType - -type instance ParentTypes Clipboard = ClipboardParentTypes -type ClipboardParentTypes = '[GObject.Object] - -instance GObject Clipboard where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_clipboard_get_type - - -class GObject o => ClipboardK o -instance (GObject o, IsDescendantOf Clipboard o) => ClipboardK o - -toClipboard :: ClipboardK o => o -> IO Clipboard -toClipboard = unsafeCastTo Clipboard - -noClipboard :: Maybe Clipboard -noClipboard = Nothing - -type family ResolveClipboardMethod (t :: Symbol) (o :: *) :: * where - ResolveClipboardMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveClipboardMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveClipboardMethod "clear" o = ClipboardClearMethodInfo - ResolveClipboardMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveClipboardMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveClipboardMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveClipboardMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveClipboardMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveClipboardMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveClipboardMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveClipboardMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveClipboardMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveClipboardMethod "requestContents" o = ClipboardRequestContentsMethodInfo - ResolveClipboardMethod "requestImage" o = ClipboardRequestImageMethodInfo - ResolveClipboardMethod "requestRichText" o = ClipboardRequestRichTextMethodInfo - ResolveClipboardMethod "requestTargets" o = ClipboardRequestTargetsMethodInfo - ResolveClipboardMethod "requestText" o = ClipboardRequestTextMethodInfo - ResolveClipboardMethod "requestUris" o = ClipboardRequestUrisMethodInfo - ResolveClipboardMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveClipboardMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveClipboardMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveClipboardMethod "store" o = ClipboardStoreMethodInfo - ResolveClipboardMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveClipboardMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveClipboardMethod "waitForContents" o = ClipboardWaitForContentsMethodInfo - ResolveClipboardMethod "waitForImage" o = ClipboardWaitForImageMethodInfo - ResolveClipboardMethod "waitForRichText" o = ClipboardWaitForRichTextMethodInfo - ResolveClipboardMethod "waitForTargets" o = ClipboardWaitForTargetsMethodInfo - ResolveClipboardMethod "waitForText" o = ClipboardWaitForTextMethodInfo - ResolveClipboardMethod "waitForUris" o = ClipboardWaitForUrisMethodInfo - ResolveClipboardMethod "waitIsImageAvailable" o = ClipboardWaitIsImageAvailableMethodInfo - ResolveClipboardMethod "waitIsRichTextAvailable" o = ClipboardWaitIsRichTextAvailableMethodInfo - ResolveClipboardMethod "waitIsTargetAvailable" o = ClipboardWaitIsTargetAvailableMethodInfo - ResolveClipboardMethod "waitIsTextAvailable" o = ClipboardWaitIsTextAvailableMethodInfo - ResolveClipboardMethod "waitIsUrisAvailable" o = ClipboardWaitIsUrisAvailableMethodInfo - ResolveClipboardMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveClipboardMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveClipboardMethod "getDisplay" o = ClipboardGetDisplayMethodInfo - ResolveClipboardMethod "getOwner" o = ClipboardGetOwnerMethodInfo - ResolveClipboardMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveClipboardMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveClipboardMethod "setCanStore" o = ClipboardSetCanStoreMethodInfo - ResolveClipboardMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveClipboardMethod "setImage" o = ClipboardSetImageMethodInfo - ResolveClipboardMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveClipboardMethod "setText" o = ClipboardSetTextMethodInfo - ResolveClipboardMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveClipboardMethod t Clipboard, MethodInfo info Clipboard p) => IsLabelProxy t (Clipboard -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveClipboardMethod t Clipboard, MethodInfo info Clipboard p) => IsLabel t (Clipboard -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Clipboard::owner-change -type ClipboardOwnerChangeCallback = - Gdk.EventOwnerChange -> - IO () - -noClipboardOwnerChangeCallback :: Maybe ClipboardOwnerChangeCallback -noClipboardOwnerChangeCallback = Nothing - -type ClipboardOwnerChangeCallbackC = - Ptr () -> -- object - Ptr Gdk.EventOwnerChange -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkClipboardOwnerChangeCallback :: ClipboardOwnerChangeCallbackC -> IO (FunPtr ClipboardOwnerChangeCallbackC) - -clipboardOwnerChangeClosure :: ClipboardOwnerChangeCallback -> IO Closure -clipboardOwnerChangeClosure cb = newCClosure =<< mkClipboardOwnerChangeCallback wrapped - where wrapped = clipboardOwnerChangeCallbackWrapper cb - -clipboardOwnerChangeCallbackWrapper :: - ClipboardOwnerChangeCallback -> - Ptr () -> - Ptr Gdk.EventOwnerChange -> - Ptr () -> - IO () -clipboardOwnerChangeCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventOwnerChange) event - _cb event' - -onClipboardOwnerChange :: (GObject a, MonadIO m) => a -> ClipboardOwnerChangeCallback -> m SignalHandlerId -onClipboardOwnerChange obj cb = liftIO $ connectClipboardOwnerChange obj cb SignalConnectBefore -afterClipboardOwnerChange :: (GObject a, MonadIO m) => a -> ClipboardOwnerChangeCallback -> m SignalHandlerId -afterClipboardOwnerChange obj cb = connectClipboardOwnerChange obj cb SignalConnectAfter - -connectClipboardOwnerChange :: (GObject a, MonadIO m) => - a -> ClipboardOwnerChangeCallback -> SignalConnectMode -> m SignalHandlerId -connectClipboardOwnerChange obj cb after = liftIO $ do - cb' <- mkClipboardOwnerChangeCallback (clipboardOwnerChangeCallbackWrapper cb) - connectSignalFunPtr obj "owner-change" cb' after - -type instance AttributeList Clipboard = ClipboardAttributeList -type ClipboardAttributeList = ('[ ] :: [(Symbol, *)]) - -data ClipboardOwnerChangeSignalInfo -instance SignalInfo ClipboardOwnerChangeSignalInfo where - type HaskellCallbackType ClipboardOwnerChangeSignalInfo = ClipboardOwnerChangeCallback - connectSignal _ = connectClipboardOwnerChange - -type instance SignalList Clipboard = ClipboardSignalList -type ClipboardSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("ownerChange", ClipboardOwnerChangeSignalInfo)] :: [(Symbol, *)]) - --- method Clipboard::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_clear" gtk_clipboard_clear :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO () - - -clipboardClear :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m () -- result -clipboardClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_clipboard_clear _obj' - touchManagedPtr _obj - return () - -data ClipboardClearMethodInfo -instance (signature ~ (m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardClearMethodInfo a signature where - overloadedMethod _ = clipboardClear - --- method Clipboard::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_get_display" gtk_clipboard_get_display :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO (Ptr Gdk.Display) - - -clipboardGetDisplay :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m Gdk.Display -- result -clipboardGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_get_display _obj' - checkUnexpectedReturnNULL "gtk_clipboard_get_display" result - result' <- (newObject Gdk.Display) result - touchManagedPtr _obj - return result' - -data ClipboardGetDisplayMethodInfo -instance (signature ~ (m Gdk.Display), MonadIO m, ClipboardK a) => MethodInfo ClipboardGetDisplayMethodInfo a signature where - overloadedMethod _ = clipboardGetDisplay - --- method Clipboard::get_owner --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_get_owner" gtk_clipboard_get_owner :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO (Ptr GObject.Object) - - -clipboardGetOwner :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m GObject.Object -- result -clipboardGetOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_get_owner _obj' - checkUnexpectedReturnNULL "gtk_clipboard_get_owner" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - return result' - -data ClipboardGetOwnerMethodInfo -instance (signature ~ (m GObject.Object), MonadIO m, ClipboardK a) => MethodInfo ClipboardGetOwnerMethodInfo a signature where - overloadedMethod _ = clipboardGetOwner - --- method Clipboard::request_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_contents" gtk_clipboard_request_contents :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - FunPtr ClipboardReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestContents :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> Gdk.Atom -- target - -> ClipboardReceivedFunc -- callback - -> m () -- result -clipboardRequestContents _obj target callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrGetPtr target - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardReceivedFuncC)) - callback' <- mkClipboardReceivedFunc (clipboardReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_contents _obj' target' callback' userData - touchManagedPtr _obj - touchManagedPtr target - return () - -data ClipboardRequestContentsMethodInfo -instance (signature ~ (Gdk.Atom -> ClipboardReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestContentsMethodInfo a signature where - overloadedMethod _ = clipboardRequestContents - --- method Clipboard::request_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_image" gtk_clipboard_request_image :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - FunPtr ClipboardImageReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardImageReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestImage :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> ClipboardImageReceivedFunc -- callback - -> m () -- result -clipboardRequestImage _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardImageReceivedFuncC)) - callback' <- mkClipboardImageReceivedFunc (clipboardImageReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_image _obj' callback' userData - touchManagedPtr _obj - return () - -data ClipboardRequestImageMethodInfo -instance (signature ~ (ClipboardImageReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestImageMethodInfo a signature where - overloadedMethod _ = clipboardRequestImage - --- method Clipboard::request_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_rich_text" gtk_clipboard_request_rich_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - FunPtr ClipboardRichTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardRichTextReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestRichText :: - (MonadIO m, ClipboardK a, TextBufferK b) => - a -- _obj - -> b -- buffer - -> ClipboardRichTextReceivedFunc -- callback - -> m () -- result -clipboardRequestRichText _obj buffer callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardRichTextReceivedFuncC)) - callback' <- mkClipboardRichTextReceivedFunc (clipboardRichTextReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_rich_text _obj' buffer' callback' userData - touchManagedPtr _obj - touchManagedPtr buffer - return () - -data ClipboardRequestRichTextMethodInfo -instance (signature ~ (b -> ClipboardRichTextReceivedFunc -> m ()), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardRequestRichTextMethodInfo a signature where - overloadedMethod _ = clipboardRequestRichText - --- method Clipboard::request_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_targets" gtk_clipboard_request_targets :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - FunPtr ClipboardTargetsReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTargetsReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestTargets :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> ClipboardTargetsReceivedFunc -- callback - -> m () -- result -clipboardRequestTargets _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTargetsReceivedFuncC)) - callback' <- mkClipboardTargetsReceivedFunc (clipboardTargetsReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_targets _obj' callback' userData - touchManagedPtr _obj - return () - -data ClipboardRequestTargetsMethodInfo -instance (signature ~ (ClipboardTargetsReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestTargetsMethodInfo a signature where - overloadedMethod _ = clipboardRequestTargets - --- method Clipboard::request_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_text" gtk_clipboard_request_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - FunPtr ClipboardTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTextReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestText :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> ClipboardTextReceivedFunc -- callback - -> m () -- result -clipboardRequestText _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTextReceivedFuncC)) - callback' <- mkClipboardTextReceivedFunc (clipboardTextReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_text _obj' callback' userData - touchManagedPtr _obj - return () - -data ClipboardRequestTextMethodInfo -instance (signature ~ (ClipboardTextReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestTextMethodInfo a signature where - overloadedMethod _ = clipboardRequestText - --- method Clipboard::request_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_clipboard_request_uris" gtk_clipboard_request_uris :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - FunPtr ClipboardURIReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardURIReceivedFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -clipboardRequestUris :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> ClipboardURIReceivedFunc -- callback - -> m () -- result -clipboardRequestUris _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardURIReceivedFuncC)) - callback' <- mkClipboardURIReceivedFunc (clipboardURIReceivedFuncWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let userData = nullPtr - gtk_clipboard_request_uris _obj' callback' userData - touchManagedPtr _obj - return () - -data ClipboardRequestUrisMethodInfo -instance (signature ~ (ClipboardURIReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestUrisMethodInfo a signature where - overloadedMethod _ = clipboardRequestUris - --- method Clipboard::set_can_store --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [Arg {argCName = "n_targets", 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 "gtk_clipboard_set_can_store" gtk_clipboard_set_can_store :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - IO () - - -clipboardSetCanStore :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> Maybe ([TargetEntry]) -- targets - -> m () -- result -clipboardSetCanStore _obj targets = liftIO $ do - let nTargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - gtk_clipboard_set_can_store _obj' maybeTargets nTargets - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - -data ClipboardSetCanStoreMethodInfo -instance (signature ~ (Maybe ([TargetEntry]) -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardSetCanStoreMethodInfo a signature where - overloadedMethod _ = clipboardSetCanStore - --- method Clipboard::set_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_clipboard_set_image" gtk_clipboard_set_image :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -clipboardSetImage :: - (MonadIO m, ClipboardK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> b -- pixbuf - -> m () -- result -clipboardSetImage _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_clipboard_set_image _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - -data ClipboardSetImageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ClipboardK a, GdkPixbuf.PixbufK b) => MethodInfo ClipboardSetImageMethodInfo a signature where - overloadedMethod _ = clipboardSetImage - --- method Clipboard::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_clipboard_set_text" gtk_clipboard_set_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO () - - -clipboardSetText :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> T.Text -- text - -> Int32 -- len - -> m () -- result -clipboardSetText _obj text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_clipboard_set_text _obj' text' len - touchManagedPtr _obj - freeMem text' - return () - -data ClipboardSetTextMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardSetTextMethodInfo a signature where - overloadedMethod _ = clipboardSetText - --- method Clipboard::store --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_store" gtk_clipboard_store :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO () - - -clipboardStore :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m () -- result -clipboardStore _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_clipboard_store _obj' - touchManagedPtr _obj - return () - -data ClipboardStoreMethodInfo -instance (signature ~ (m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardStoreMethodInfo a signature where - overloadedMethod _ = clipboardStore - --- method Clipboard::wait_for_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionData") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_wait_for_contents" gtk_clipboard_wait_for_contents :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - IO (Ptr SelectionData) - - -clipboardWaitForContents :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> Gdk.Atom -- target - -> m (Maybe SelectionData) -- result -clipboardWaitForContents _obj target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrGetPtr target - result <- gtk_clipboard_wait_for_contents _obj' target' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed SelectionData) result' - return result'' - touchManagedPtr _obj - touchManagedPtr target - return maybeResult - -data ClipboardWaitForContentsMethodInfo -instance (signature ~ (Gdk.Atom -> m (Maybe SelectionData)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where - overloadedMethod _ = clipboardWaitForContents - --- method Clipboard::wait_for_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_wait_for_image" gtk_clipboard_wait_for_image :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO (Ptr GdkPixbuf.Pixbuf) - - -clipboardWaitForImage :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m (Maybe GdkPixbuf.Pixbuf) -- result -clipboardWaitForImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_image _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClipboardWaitForImageMethodInfo -instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where - overloadedMethod _ = clipboardWaitForImage - --- method Clipboard::wait_for_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 3 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_wait_for_rich_text" gtk_clipboard_wait_for_rich_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - Ptr (Ptr Gdk.Atom) -> -- format : TInterface "Gdk" "Atom" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Word8) - - -clipboardWaitForRichText :: - (MonadIO m, ClipboardK a, TextBufferK b) => - a -- _obj - -> b -- buffer - -> m ((Maybe ByteString),Gdk.Atom) -- result -clipboardWaitForRichText _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - format <- allocMem :: IO (Ptr (Ptr Gdk.Atom)) - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_clipboard_wait_for_rich_text _obj' buffer' format length_ - length_' <- peek length_ - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (unpackByteStringWithLength length_') result' - freeMem result' - return result'' - format' <- peek format - format'' <- (newPtr Gdk.Atom) format' - touchManagedPtr _obj - touchManagedPtr buffer - freeMem format - freeMem length_ - return (maybeResult, format'') - -data ClipboardWaitForRichTextMethodInfo -instance (signature ~ (b -> m ((Maybe ByteString),Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where - overloadedMethod _ = clipboardWaitForRichText - --- method Clipboard::wait_for_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_wait_for_targets" gtk_clipboard_wait_for_targets :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom") - Ptr Int32 -> -- n_targets : TBasicType TInt - IO CInt - - -clipboardWaitForTargets :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m (Bool,[Gdk.Atom]) -- result -clipboardWaitForTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - nTargets <- allocMem :: IO (Ptr Int32) - result <- gtk_clipboard_wait_for_targets _obj' targets nTargets - nTargets' <- peek nTargets - let result' = (/= 0) result - targets' <- peek targets - targets'' <- (unpackPtrArrayWithLength nTargets') targets' - targets''' <- mapM (newPtr Gdk.Atom) targets'' - freeMem targets' - touchManagedPtr _obj - freeMem targets - freeMem nTargets - return (result', targets''') - -data ClipboardWaitForTargetsMethodInfo -instance (signature ~ (m (Bool,[Gdk.Atom])), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTargetsMethodInfo a signature where - overloadedMethod _ = clipboardWaitForTargets - --- method Clipboard::wait_for_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_wait_for_text" gtk_clipboard_wait_for_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO CString - - -clipboardWaitForText :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m (Maybe T.Text) -- result -clipboardWaitForText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_text _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClipboardWaitForTextMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where - overloadedMethod _ = clipboardWaitForText - --- method Clipboard::wait_for_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_wait_for_uris" gtk_clipboard_wait_for_uris :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO (Ptr CString) - - -clipboardWaitForUris :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m (Maybe [T.Text]) -- result -clipboardWaitForUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_uris _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- unpackZeroTerminatedUTF8CArray result' - mapZeroTerminatedCArray freeMem result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClipboardWaitForUrisMethodInfo -instance (signature ~ (m (Maybe [T.Text])), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where - overloadedMethod _ = clipboardWaitForUris - --- method Clipboard::wait_is_image_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_wait_is_image_available" gtk_clipboard_wait_is_image_available :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO CInt - - -clipboardWaitIsImageAvailable :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m Bool -- result -clipboardWaitIsImageAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_image_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ClipboardWaitIsImageAvailableMethodInfo -instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsImageAvailableMethodInfo a signature where - overloadedMethod _ = clipboardWaitIsImageAvailable - --- method Clipboard::wait_is_rich_text_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_clipboard_wait_is_rich_text_available" gtk_clipboard_wait_is_rich_text_available :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO CInt - - -clipboardWaitIsRichTextAvailable :: - (MonadIO m, ClipboardK a, TextBufferK b) => - a -- _obj - -> b -- buffer - -> m Bool -- result -clipboardWaitIsRichTextAvailable _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_clipboard_wait_is_rich_text_available _obj' buffer' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr buffer - return result' - -data ClipboardWaitIsRichTextAvailableMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitIsRichTextAvailableMethodInfo a signature where - overloadedMethod _ = clipboardWaitIsRichTextAvailable - --- method Clipboard::wait_is_target_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", 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 "gtk_clipboard_wait_is_target_available" gtk_clipboard_wait_is_target_available :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - IO CInt - - -clipboardWaitIsTargetAvailable :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> Gdk.Atom -- target - -> m Bool -- result -clipboardWaitIsTargetAvailable _obj target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrGetPtr target - result <- gtk_clipboard_wait_is_target_available _obj' target' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr target - return result' - -data ClipboardWaitIsTargetAvailableMethodInfo -instance (signature ~ (Gdk.Atom -> m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsTargetAvailableMethodInfo a signature where - overloadedMethod _ = clipboardWaitIsTargetAvailable - --- method Clipboard::wait_is_text_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_wait_is_text_available" gtk_clipboard_wait_is_text_available :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO CInt - - -clipboardWaitIsTextAvailable :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m Bool -- result -clipboardWaitIsTextAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_text_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ClipboardWaitIsTextAvailableMethodInfo -instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsTextAvailableMethodInfo a signature where - overloadedMethod _ = clipboardWaitIsTextAvailable - --- method Clipboard::wait_is_uris_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 "gtk_clipboard_wait_is_uris_available" gtk_clipboard_wait_is_uris_available :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - IO CInt - - -clipboardWaitIsUrisAvailable :: - (MonadIO m, ClipboardK a) => - a -- _obj - -> m Bool -- result -clipboardWaitIsUrisAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_uris_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ClipboardWaitIsUrisAvailableMethodInfo -instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsUrisAvailableMethodInfo a signature where - overloadedMethod _ = clipboardWaitIsUrisAvailable - --- method Clipboard::get --- method type : MemberFunction --- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Clipboard") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_get" gtk_clipboard_get :: - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Clipboard) - - -clipboardGet :: - (MonadIO m) => - Gdk.Atom -- selection - -> m Clipboard -- result -clipboardGet selection = liftIO $ do - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_clipboard_get selection' - checkUnexpectedReturnNULL "gtk_clipboard_get" result - result' <- (newObject Clipboard) result - touchManagedPtr selection - return result' - --- method Clipboard::get_default --- method type : MemberFunction --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Clipboard") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_get_default" gtk_clipboard_get_default :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - IO (Ptr Clipboard) - - -clipboardGetDefault :: - (MonadIO m, Gdk.DisplayK a) => - a -- display - -> m Clipboard -- result -clipboardGetDefault display = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - result <- gtk_clipboard_get_default display' - checkUnexpectedReturnNULL "gtk_clipboard_get_default" result - result' <- (newObject Clipboard) result - touchManagedPtr display - return result' - --- method Clipboard::get_for_display --- method type : MemberFunction --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Clipboard") --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_get_for_display" gtk_clipboard_get_for_display :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Clipboard) - - -clipboardGetForDisplay :: - (MonadIO m, Gdk.DisplayK a) => - a -- display - -> Gdk.Atom -- selection - -> m Clipboard -- result -clipboardGetForDisplay display selection = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_clipboard_get_for_display display' selection' - checkUnexpectedReturnNULL "gtk_clipboard_get_for_display" result - result' <- (newObject Clipboard) result - touchManagedPtr display - touchManagedPtr selection - return result' - - diff --git a/GI/Gtk/Objects/Clipboard.hs-boot b/GI/Gtk/Objects/Clipboard.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Clipboard.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gtk.Objects.Clipboard 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 Clipboard = Clipboard (ForeignPtr Clipboard) -instance GObject Clipboard where -class GObject o => ClipboardK o -instance (GObject o, IsDescendantOf Clipboard o) => ClipboardK o -data ClipboardOwnerChangeSignalInfo -data ClipboardClearMethodInfo -data ClipboardGetDisplayMethodInfo -data ClipboardGetOwnerMethodInfo -data ClipboardRequestContentsMethodInfo -data ClipboardRequestImageMethodInfo -data ClipboardRequestRichTextMethodInfo -data ClipboardRequestTargetsMethodInfo -data ClipboardRequestTextMethodInfo -data ClipboardRequestUrisMethodInfo -data ClipboardSetCanStoreMethodInfo -data ClipboardSetImageMethodInfo -data ClipboardSetTextMethodInfo -data ClipboardStoreMethodInfo -data ClipboardWaitForContentsMethodInfo -data ClipboardWaitForImageMethodInfo -data ClipboardWaitForRichTextMethodInfo -data ClipboardWaitForTargetsMethodInfo -data ClipboardWaitForTextMethodInfo -data ClipboardWaitForUrisMethodInfo -data ClipboardWaitIsImageAvailableMethodInfo -data ClipboardWaitIsRichTextAvailableMethodInfo -data ClipboardWaitIsTargetAvailableMethodInfo -data ClipboardWaitIsTextAvailableMethodInfo -data ClipboardWaitIsUrisAvailableMethodInfo diff --git a/GI/Gtk/Objects/ColorButton.hs b/GI/Gtk/Objects/ColorButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ColorButton.hs +++ /dev/null @@ -1,1039 +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.Gtk.Objects.ColorButton - ( - --- * Exported types - ColorButton(..) , - ColorButtonK , - toColorButton , - noColorButton , - - - -- * Methods --- ** colorButtonGetAlpha - ColorButtonGetAlphaMethodInfo , - colorButtonGetAlpha , - - --- ** colorButtonGetColor - ColorButtonGetColorMethodInfo , - colorButtonGetColor , - - --- ** colorButtonGetTitle - ColorButtonGetTitleMethodInfo , - colorButtonGetTitle , - - --- ** colorButtonGetUseAlpha - ColorButtonGetUseAlphaMethodInfo , - colorButtonGetUseAlpha , - - --- ** colorButtonNew - colorButtonNew , - - --- ** colorButtonNewWithColor - colorButtonNewWithColor , - - --- ** colorButtonNewWithRgba - colorButtonNewWithRgba , - - --- ** colorButtonSetAlpha - ColorButtonSetAlphaMethodInfo , - colorButtonSetAlpha , - - --- ** colorButtonSetColor - ColorButtonSetColorMethodInfo , - colorButtonSetColor , - - --- ** colorButtonSetTitle - ColorButtonSetTitleMethodInfo , - colorButtonSetTitle , - - --- ** colorButtonSetUseAlpha - ColorButtonSetUseAlphaMethodInfo , - colorButtonSetUseAlpha , - - - - - -- * Properties --- ** Alpha - ColorButtonAlphaPropertyInfo , - colorButtonAlpha , - constructColorButtonAlpha , - getColorButtonAlpha , - setColorButtonAlpha , - - --- ** Color - ColorButtonColorPropertyInfo , - colorButtonColor , - constructColorButtonColor , - getColorButtonColor , - setColorButtonColor , - - --- ** Rgba - ColorButtonRgbaPropertyInfo , - clearColorButtonRgba , - colorButtonRgba , - constructColorButtonRgba , - getColorButtonRgba , - setColorButtonRgba , - - --- ** Title - ColorButtonTitlePropertyInfo , - colorButtonTitle , - constructColorButtonTitle , - getColorButtonTitle , - setColorButtonTitle , - - --- ** UseAlpha - ColorButtonUseAlphaPropertyInfo , - colorButtonUseAlpha , - constructColorButtonUseAlpha , - getColorButtonUseAlpha , - setColorButtonUseAlpha , - - - - - -- * Signals --- ** ColorSet - ColorButtonColorSetCallback , - ColorButtonColorSetCallbackC , - ColorButtonColorSetSignalInfo , - afterColorButtonColorSet , - colorButtonColorSetCallbackWrapper , - colorButtonColorSetClosure , - mkColorButtonColorSetCallback , - noColorButtonColorSetCallback , - onColorButtonColorSet , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype ColorButton = ColorButton (ForeignPtr ColorButton) -foreign import ccall "gtk_color_button_get_type" - c_gtk_color_button_get_type :: IO GType - -type instance ParentTypes ColorButton = ColorButtonParentTypes -type ColorButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, ColorChooser] - -instance GObject ColorButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_color_button_get_type - - -class GObject o => ColorButtonK o -instance (GObject o, IsDescendantOf ColorButton o) => ColorButtonK o - -toColorButton :: ColorButtonK o => o -> IO ColorButton -toColorButton = unsafeCastTo ColorButton - -noColorButton :: Maybe ColorButton -noColorButton = Nothing - -type family ResolveColorButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveColorButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveColorButtonMethod "add" o = ContainerAddMethodInfo - ResolveColorButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveColorButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveColorButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveColorButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveColorButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveColorButtonMethod "addPalette" o = ColorChooserAddPaletteMethodInfo - ResolveColorButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveColorButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveColorButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveColorButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveColorButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveColorButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveColorButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveColorButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveColorButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveColorButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveColorButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveColorButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveColorButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveColorButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveColorButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveColorButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveColorButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveColorButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveColorButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveColorButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveColorButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveColorButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveColorButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveColorButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveColorButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveColorButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveColorButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveColorButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveColorButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveColorButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveColorButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveColorButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveColorButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveColorButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveColorButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveColorButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveColorButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveColorButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveColorButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveColorButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveColorButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveColorButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveColorButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveColorButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveColorButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveColorButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveColorButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveColorButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveColorButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveColorButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveColorButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveColorButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveColorButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveColorButtonMethod "event" o = WidgetEventMethodInfo - ResolveColorButtonMethod "forall" o = ContainerForallMethodInfo - ResolveColorButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveColorButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveColorButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveColorButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveColorButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveColorButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveColorButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveColorButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveColorButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveColorButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveColorButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveColorButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveColorButtonMethod "hide" o = WidgetHideMethodInfo - ResolveColorButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveColorButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveColorButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveColorButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveColorButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveColorButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveColorButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveColorButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveColorButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveColorButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveColorButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveColorButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveColorButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveColorButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveColorButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveColorButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveColorButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveColorButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveColorButtonMethod "map" o = WidgetMapMethodInfo - ResolveColorButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveColorButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveColorButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveColorButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveColorButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveColorButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveColorButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveColorButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveColorButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveColorButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveColorButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveColorButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveColorButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveColorButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveColorButtonMethod "path" o = WidgetPathMethodInfo - ResolveColorButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveColorButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveColorButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveColorButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveColorButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveColorButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveColorButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveColorButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveColorButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveColorButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveColorButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveColorButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveColorButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveColorButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveColorButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveColorButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveColorButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveColorButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveColorButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveColorButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveColorButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveColorButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveColorButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveColorButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveColorButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveColorButtonMethod "show" o = WidgetShowMethodInfo - ResolveColorButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveColorButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveColorButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveColorButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveColorButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveColorButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveColorButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveColorButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveColorButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveColorButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveColorButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveColorButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveColorButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveColorButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveColorButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveColorButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveColorButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveColorButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveColorButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveColorButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveColorButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveColorButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveColorButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveColorButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveColorButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveColorButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveColorButtonMethod "getAlpha" o = ColorButtonGetAlphaMethodInfo - ResolveColorButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveColorButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveColorButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveColorButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveColorButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveColorButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveColorButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveColorButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveColorButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveColorButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveColorButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveColorButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveColorButtonMethod "getColor" o = ColorButtonGetColorMethodInfo - ResolveColorButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveColorButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveColorButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveColorButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveColorButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveColorButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveColorButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveColorButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveColorButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveColorButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveColorButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveColorButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveColorButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveColorButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveColorButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveColorButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveColorButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveColorButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveColorButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveColorButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveColorButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveColorButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveColorButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveColorButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveColorButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveColorButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveColorButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveColorButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveColorButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveColorButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveColorButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveColorButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveColorButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveColorButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveColorButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveColorButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveColorButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveColorButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveColorButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveColorButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveColorButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveColorButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveColorButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveColorButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveColorButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveColorButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveColorButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveColorButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveColorButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveColorButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveColorButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveColorButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveColorButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveColorButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveColorButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveColorButtonMethod "getRgba" o = ColorChooserGetRgbaMethodInfo - ResolveColorButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveColorButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveColorButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveColorButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveColorButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveColorButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveColorButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveColorButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveColorButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveColorButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveColorButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveColorButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveColorButtonMethod "getTitle" o = ColorButtonGetTitleMethodInfo - ResolveColorButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveColorButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveColorButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveColorButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveColorButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveColorButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveColorButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveColorButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveColorButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveColorButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveColorButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveColorButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveColorButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveColorButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveColorButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveColorButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveColorButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveColorButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveColorButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveColorButtonMethod "setAlpha" o = ColorButtonSetAlphaMethodInfo - ResolveColorButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveColorButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveColorButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveColorButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveColorButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveColorButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveColorButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveColorButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveColorButtonMethod "setColor" o = ColorButtonSetColorMethodInfo - ResolveColorButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveColorButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveColorButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveColorButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveColorButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveColorButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveColorButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveColorButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveColorButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveColorButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveColorButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveColorButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveColorButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveColorButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveColorButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveColorButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveColorButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveColorButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveColorButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveColorButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveColorButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveColorButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveColorButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveColorButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveColorButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveColorButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveColorButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveColorButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveColorButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveColorButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveColorButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveColorButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveColorButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveColorButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveColorButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveColorButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveColorButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveColorButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveColorButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveColorButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveColorButtonMethod "setRgba" o = ColorChooserSetRgbaMethodInfo - ResolveColorButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveColorButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveColorButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveColorButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveColorButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveColorButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveColorButtonMethod "setTitle" o = ColorButtonSetTitleMethodInfo - ResolveColorButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveColorButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveColorButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveColorButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveColorButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveColorButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveColorButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveColorButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveColorButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveColorButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveColorButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveColorButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveColorButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorButtonMethod t ColorButton, MethodInfo info ColorButton p) => IsLabelProxy t (ColorButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorButtonMethod t ColorButton, MethodInfo info ColorButton p) => IsLabel t (ColorButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ColorButton::color-set -type ColorButtonColorSetCallback = - IO () - -noColorButtonColorSetCallback :: Maybe ColorButtonColorSetCallback -noColorButtonColorSetCallback = Nothing - -type ColorButtonColorSetCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkColorButtonColorSetCallback :: ColorButtonColorSetCallbackC -> IO (FunPtr ColorButtonColorSetCallbackC) - -colorButtonColorSetClosure :: ColorButtonColorSetCallback -> IO Closure -colorButtonColorSetClosure cb = newCClosure =<< mkColorButtonColorSetCallback wrapped - where wrapped = colorButtonColorSetCallbackWrapper cb - -colorButtonColorSetCallbackWrapper :: - ColorButtonColorSetCallback -> - Ptr () -> - Ptr () -> - IO () -colorButtonColorSetCallbackWrapper _cb _ _ = do - _cb - -onColorButtonColorSet :: (GObject a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId -onColorButtonColorSet obj cb = liftIO $ connectColorButtonColorSet obj cb SignalConnectBefore -afterColorButtonColorSet :: (GObject a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId -afterColorButtonColorSet obj cb = connectColorButtonColorSet obj cb SignalConnectAfter - -connectColorButtonColorSet :: (GObject a, MonadIO m) => - a -> ColorButtonColorSetCallback -> SignalConnectMode -> m SignalHandlerId -connectColorButtonColorSet obj cb after = liftIO $ do - cb' <- mkColorButtonColorSetCallback (colorButtonColorSetCallbackWrapper cb) - connectSignalFunPtr obj "color-set" cb' after - --- VVV Prop "alpha" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> m Word32 -getColorButtonAlpha obj = liftIO $ getObjectPropertyUInt32 obj "alpha" - -setColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> Word32 -> m () -setColorButtonAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "alpha" val - -constructColorButtonAlpha :: Word32 -> IO ([Char], GValue) -constructColorButtonAlpha val = constructObjectPropertyUInt32 "alpha" val - -data ColorButtonAlphaPropertyInfo -instance AttrInfo ColorButtonAlphaPropertyInfo where - type AttrAllowedOps ColorButtonAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorButtonAlphaPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ColorButtonAlphaPropertyInfo = ColorButtonK - type AttrGetType ColorButtonAlphaPropertyInfo = Word32 - type AttrLabel ColorButtonAlphaPropertyInfo = "alpha" - attrGet _ = getColorButtonAlpha - attrSet _ = setColorButtonAlpha - attrConstruct _ = constructColorButtonAlpha - attrClear _ = undefined - --- VVV Prop "color" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.Color) -getColorButtonColor obj = liftIO $ getObjectPropertyBoxed obj "color" Gdk.Color - -setColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> Gdk.Color -> m () -setColorButtonColor obj val = liftIO $ setObjectPropertyBoxed obj "color" (Just val) - -constructColorButtonColor :: Gdk.Color -> IO ([Char], GValue) -constructColorButtonColor val = constructObjectPropertyBoxed "color" (Just val) - -data ColorButtonColorPropertyInfo -instance AttrInfo ColorButtonColorPropertyInfo where - type AttrAllowedOps ColorButtonColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorButtonColorPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint ColorButtonColorPropertyInfo = ColorButtonK - type AttrGetType ColorButtonColorPropertyInfo = (Maybe Gdk.Color) - type AttrLabel ColorButtonColorPropertyInfo = "color" - attrGet _ = getColorButtonColor - attrSet _ = setColorButtonColor - attrConstruct _ = constructColorButtonColor - attrClear _ = undefined - --- VVV Prop "rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.RGBA) -getColorButtonRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA - -setColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> Gdk.RGBA -> m () -setColorButtonRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) - -constructColorButtonRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" (Just val) - -clearColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m () -clearColorButtonRgba obj = liftIO $ setObjectPropertyBoxed obj "rgba" (Nothing :: Maybe Gdk.RGBA) - -data ColorButtonRgbaPropertyInfo -instance AttrInfo ColorButtonRgbaPropertyInfo where - type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK - type AttrGetType ColorButtonRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel ColorButtonRgbaPropertyInfo = "rgba" - attrGet _ = getColorButtonRgba - attrSet _ = setColorButtonRgba - attrConstruct _ = constructColorButtonRgba - attrClear _ = clearColorButtonRgba - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> m T.Text -getColorButtonTitle obj = liftIO $ checkUnexpectedNothing "getColorButtonTitle" $ getObjectPropertyString obj "title" - -setColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> T.Text -> m () -setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructColorButtonTitle :: T.Text -> IO ([Char], GValue) -constructColorButtonTitle val = constructObjectPropertyString "title" (Just val) - -data ColorButtonTitlePropertyInfo -instance AttrInfo ColorButtonTitlePropertyInfo where - type AttrAllowedOps ColorButtonTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorButtonTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ColorButtonTitlePropertyInfo = ColorButtonK - type AttrGetType ColorButtonTitlePropertyInfo = T.Text - type AttrLabel ColorButtonTitlePropertyInfo = "title" - attrGet _ = getColorButtonTitle - attrSet _ = setColorButtonTitle - attrConstruct _ = constructColorButtonTitle - attrClear _ = undefined - --- VVV Prop "use-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getColorButtonUseAlpha :: (MonadIO m, ColorButtonK o) => o -> m Bool -getColorButtonUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha" - -setColorButtonUseAlpha :: (MonadIO m, ColorButtonK o) => o -> Bool -> m () -setColorButtonUseAlpha obj val = liftIO $ setObjectPropertyBool obj "use-alpha" val - -constructColorButtonUseAlpha :: Bool -> IO ([Char], GValue) -constructColorButtonUseAlpha val = constructObjectPropertyBool "use-alpha" val - -data ColorButtonUseAlphaPropertyInfo -instance AttrInfo ColorButtonUseAlphaPropertyInfo where - type AttrAllowedOps ColorButtonUseAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorButtonUseAlphaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorButtonUseAlphaPropertyInfo = ColorButtonK - type AttrGetType ColorButtonUseAlphaPropertyInfo = Bool - type AttrLabel ColorButtonUseAlphaPropertyInfo = "use-alpha" - attrGet _ = getColorButtonUseAlpha - attrSet _ = setColorButtonUseAlpha - attrConstruct _ = constructColorButtonUseAlpha - attrClear _ = undefined - -type instance AttributeList ColorButton = ColorButtonAttributeList -type ColorButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useAlpha", ColorButtonUseAlphaPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -colorButtonAlpha :: AttrLabelProxy "alpha" -colorButtonAlpha = AttrLabelProxy - -colorButtonColor :: AttrLabelProxy "color" -colorButtonColor = AttrLabelProxy - -colorButtonRgba :: AttrLabelProxy "rgba" -colorButtonRgba = AttrLabelProxy - -colorButtonTitle :: AttrLabelProxy "title" -colorButtonTitle = AttrLabelProxy - -colorButtonUseAlpha :: AttrLabelProxy "useAlpha" -colorButtonUseAlpha = AttrLabelProxy - -data ColorButtonColorSetSignalInfo -instance SignalInfo ColorButtonColorSetSignalInfo where - type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback - connectSignal _ = connectColorButtonColorSet - -type instance SignalList ColorButton = ColorButtonSignalList -type ColorButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("colorSet", ColorButtonColorSetSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ColorButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_button_new" gtk_color_button_new :: - IO (Ptr ColorButton) - - -colorButtonNew :: - (MonadIO m) => - m ColorButton -- result -colorButtonNew = liftIO $ do - result <- gtk_color_button_new - checkUnexpectedReturnNULL "gtk_color_button_new" result - result' <- (newObject ColorButton) result - return result' - --- method ColorButton::new_with_color --- method type : Constructor --- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_button_new_with_color" gtk_color_button_new_with_color :: - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO (Ptr ColorButton) - -{-# DEPRECATED colorButtonNewWithColor ["(Since version 3.4)","Use gtk_color_button_new_with_rgba() instead."]#-} -colorButtonNewWithColor :: - (MonadIO m) => - Gdk.Color -- color - -> m ColorButton -- result -colorButtonNewWithColor color = liftIO $ do - let color' = unsafeManagedPtrGetPtr color - result <- gtk_color_button_new_with_color color' - checkUnexpectedReturnNULL "gtk_color_button_new_with_color" result - result' <- (newObject ColorButton) result - touchManagedPtr color - return result' - --- method ColorButton::new_with_rgba --- method type : Constructor --- Args : [Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_button_new_with_rgba" gtk_color_button_new_with_rgba :: - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO (Ptr ColorButton) - - -colorButtonNewWithRgba :: - (MonadIO m) => - Gdk.RGBA -- rgba - -> m ColorButton -- result -colorButtonNewWithRgba rgba = liftIO $ do - let rgba' = unsafeManagedPtrGetPtr rgba - result <- gtk_color_button_new_with_rgba rgba' - checkUnexpectedReturnNULL "gtk_color_button_new_with_rgba" result - result' <- (newObject ColorButton) result - touchManagedPtr rgba - return result' - --- method ColorButton::get_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_button_get_alpha" gtk_color_button_get_alpha :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - IO Word16 - -{-# DEPRECATED colorButtonGetAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-} -colorButtonGetAlpha :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> m Word16 -- result -colorButtonGetAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_button_get_alpha _obj' - touchManagedPtr _obj - return result - -data ColorButtonGetAlphaMethodInfo -instance (signature ~ (m Word16), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetAlphaMethodInfo a signature where - overloadedMethod _ = colorButtonGetAlpha - --- method ColorButton::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_button_get_color" gtk_color_button_get_color :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorButtonGetColor ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-} -colorButtonGetColor :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> m (Gdk.Color) -- result -colorButtonGetColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - gtk_color_button_get_color _obj' color - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr _obj - return color' - -data ColorButtonGetColorMethodInfo -instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetColorMethodInfo a signature where - overloadedMethod _ = colorButtonGetColor - --- method ColorButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", 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 "gtk_color_button_get_title" gtk_color_button_get_title :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - IO CString - - -colorButtonGetTitle :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> m T.Text -- result -colorButtonGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_button_get_title _obj' - checkUnexpectedReturnNULL "gtk_color_button_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ColorButtonGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetTitleMethodInfo a signature where - overloadedMethod _ = colorButtonGetTitle - --- method ColorButton::get_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", 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 "gtk_color_button_get_use_alpha" gtk_color_button_get_use_alpha :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - IO CInt - -{-# DEPRECATED colorButtonGetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_use_alpha() instead."]#-} -colorButtonGetUseAlpha :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> m Bool -- result -colorButtonGetUseAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_button_get_use_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ColorButtonGetUseAlphaMethodInfo -instance (signature ~ (m Bool), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetUseAlphaMethodInfo a signature where - overloadedMethod _ = colorButtonGetUseAlpha - --- method ColorButton::set_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, 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 "gtk_color_button_set_alpha" gtk_color_button_set_alpha :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - Word16 -> -- alpha : TBasicType TUInt16 - IO () - -{-# DEPRECATED colorButtonSetAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_rgba() instead."]#-} -colorButtonSetAlpha :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> Word16 -- alpha - -> m () -- result -colorButtonSetAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_button_set_alpha _obj' alpha - touchManagedPtr _obj - return () - -data ColorButtonSetAlphaMethodInfo -instance (signature ~ (Word16 -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetAlphaMethodInfo a signature where - overloadedMethod _ = colorButtonSetAlpha - --- method ColorButton::set_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_color_button_set_color" gtk_color_button_set_color :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorButtonSetColor ["Use gtk_color_chooser_set_rgba() instead."]#-} -colorButtonSetColor :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> Gdk.Color -- color - -> m () -- result -colorButtonSetColor _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gtk_color_button_set_color _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data ColorButtonSetColorMethodInfo -instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetColorMethodInfo a signature where - overloadedMethod _ = colorButtonSetColor - --- method ColorButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_color_button_set_title" gtk_color_button_set_title :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - CString -> -- title : TBasicType TUTF8 - IO () - - -colorButtonSetTitle :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -colorButtonSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_color_button_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data ColorButtonSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetTitleMethodInfo a signature where - overloadedMethod _ = colorButtonSetTitle - --- method ColorButton::set_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", 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 "gtk_color_button_set_use_alpha" gtk_color_button_set_use_alpha :: - Ptr ColorButton -> -- _obj : TInterface "Gtk" "ColorButton" - CInt -> -- use_alpha : TBasicType TBoolean - IO () - -{-# DEPRECATED colorButtonSetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_use_alpha() instead."]#-} -colorButtonSetUseAlpha :: - (MonadIO m, ColorButtonK a) => - a -- _obj - -> Bool -- useAlpha - -> m () -- result -colorButtonSetUseAlpha _obj useAlpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useAlpha' = (fromIntegral . fromEnum) useAlpha - gtk_color_button_set_use_alpha _obj' useAlpha' - touchManagedPtr _obj - return () - -data ColorButtonSetUseAlphaMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetUseAlphaMethodInfo a signature where - overloadedMethod _ = colorButtonSetUseAlpha - - diff --git a/GI/Gtk/Objects/ColorButton.hs-boot b/GI/Gtk/Objects/ColorButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ColorButton.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gtk.Objects.ColorButton 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 ColorButton = ColorButton (ForeignPtr ColorButton) -instance GObject ColorButton where -class GObject o => ColorButtonK o -instance (GObject o, IsDescendantOf ColorButton o) => ColorButtonK o -data ColorButtonAlphaPropertyInfo -data ColorButtonColorPropertyInfo -data ColorButtonRgbaPropertyInfo -data ColorButtonTitlePropertyInfo -data ColorButtonUseAlphaPropertyInfo -data ColorButtonColorSetSignalInfo -data ColorButtonGetAlphaMethodInfo -data ColorButtonGetColorMethodInfo -data ColorButtonGetTitleMethodInfo -data ColorButtonGetUseAlphaMethodInfo -data ColorButtonSetAlphaMethodInfo -data ColorButtonSetColorMethodInfo -data ColorButtonSetTitleMethodInfo -data ColorButtonSetUseAlphaMethodInfo diff --git a/GI/Gtk/Objects/ColorChooserDialog.hs b/GI/Gtk/Objects/ColorChooserDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ColorChooserDialog.hs +++ /dev/null @@ -1,585 +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.Gtk.Objects.ColorChooserDialog - ( - --- * Exported types - ColorChooserDialog(..) , - ColorChooserDialogK , - toColorChooserDialog , - noColorChooserDialog , - - - -- * Methods --- ** colorChooserDialogNew - colorChooserDialogNew , - - - - - -- * Properties --- ** ShowEditor - ColorChooserDialogShowEditorPropertyInfo, - colorChooserDialogShowEditor , - constructColorChooserDialogShowEditor , - getColorChooserDialogShowEditor , - setColorChooserDialogShowEditor , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ColorChooserDialog = ColorChooserDialog (ForeignPtr ColorChooserDialog) -foreign import ccall "gtk_color_chooser_dialog_get_type" - c_gtk_color_chooser_dialog_get_type :: IO GType - -type instance ParentTypes ColorChooserDialog = ColorChooserDialogParentTypes -type ColorChooserDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ColorChooser] - -instance GObject ColorChooserDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_color_chooser_dialog_get_type - - -class GObject o => ColorChooserDialogK o -instance (GObject o, IsDescendantOf ColorChooserDialog o) => ColorChooserDialogK o - -toColorChooserDialog :: ColorChooserDialogK o => o -> IO ColorChooserDialog -toColorChooserDialog = unsafeCastTo ColorChooserDialog - -noColorChooserDialog :: Maybe ColorChooserDialog -noColorChooserDialog = Nothing - -type family ResolveColorChooserDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveColorChooserDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveColorChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveColorChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveColorChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveColorChooserDialogMethod "add" o = ContainerAddMethodInfo - ResolveColorChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveColorChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveColorChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveColorChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveColorChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveColorChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveColorChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveColorChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveColorChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveColorChooserDialogMethod "addPalette" o = ColorChooserAddPaletteMethodInfo - ResolveColorChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveColorChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveColorChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveColorChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveColorChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveColorChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveColorChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveColorChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveColorChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveColorChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveColorChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveColorChooserDialogMethod "close" o = WindowCloseMethodInfo - ResolveColorChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveColorChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveColorChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveColorChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveColorChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveColorChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveColorChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveColorChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveColorChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveColorChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveColorChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveColorChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveColorChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveColorChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveColorChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveColorChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveColorChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveColorChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveColorChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveColorChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveColorChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveColorChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveColorChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveColorChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveColorChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveColorChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveColorChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveColorChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveColorChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveColorChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveColorChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveColorChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveColorChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveColorChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveColorChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveColorChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveColorChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveColorChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveColorChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveColorChooserDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveColorChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveColorChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveColorChooserDialogMethod "event" o = WidgetEventMethodInfo - ResolveColorChooserDialogMethod "forall" o = ContainerForallMethodInfo - ResolveColorChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorChooserDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveColorChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveColorChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveColorChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveColorChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveColorChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveColorChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveColorChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveColorChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveColorChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveColorChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveColorChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveColorChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveColorChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveColorChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveColorChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveColorChooserDialogMethod "hide" o = WidgetHideMethodInfo - ResolveColorChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveColorChooserDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveColorChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveColorChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveColorChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveColorChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveColorChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveColorChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveColorChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveColorChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveColorChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveColorChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveColorChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveColorChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveColorChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveColorChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveColorChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveColorChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveColorChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveColorChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveColorChooserDialogMethod "map" o = WidgetMapMethodInfo - ResolveColorChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveColorChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveColorChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveColorChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveColorChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveColorChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveColorChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveColorChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveColorChooserDialogMethod "move" o = WindowMoveMethodInfo - ResolveColorChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveColorChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveColorChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveColorChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveColorChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveColorChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveColorChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveColorChooserDialogMethod "path" o = WidgetPathMethodInfo - ResolveColorChooserDialogMethod "present" o = WindowPresentMethodInfo - ResolveColorChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveColorChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveColorChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveColorChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveColorChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveColorChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveColorChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveColorChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveColorChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveColorChooserDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveColorChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveColorChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveColorChooserDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveColorChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveColorChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveColorChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveColorChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveColorChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveColorChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveColorChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveColorChooserDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveColorChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveColorChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveColorChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveColorChooserDialogMethod "resize" o = WindowResizeMethodInfo - ResolveColorChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveColorChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveColorChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveColorChooserDialogMethod "response" o = DialogResponseMethodInfo - ResolveColorChooserDialogMethod "run" o = DialogRunMethodInfo - ResolveColorChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveColorChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveColorChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveColorChooserDialogMethod "show" o = WidgetShowMethodInfo - ResolveColorChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveColorChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveColorChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveColorChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveColorChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveColorChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorChooserDialogMethod "stick" o = WindowStickMethodInfo - ResolveColorChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveColorChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveColorChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveColorChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveColorChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveColorChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveColorChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveColorChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveColorChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveColorChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveColorChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveColorChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveColorChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveColorChooserDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveColorChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveColorChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveColorChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveColorChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveColorChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveColorChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveColorChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveColorChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveColorChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveColorChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveColorChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveColorChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveColorChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveColorChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveColorChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveColorChooserDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveColorChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveColorChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveColorChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveColorChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveColorChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveColorChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveColorChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveColorChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveColorChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveColorChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveColorChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveColorChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveColorChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveColorChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveColorChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveColorChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveColorChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveColorChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveColorChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveColorChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveColorChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveColorChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveColorChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveColorChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveColorChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveColorChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveColorChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveColorChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveColorChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveColorChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveColorChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveColorChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveColorChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveColorChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveColorChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveColorChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveColorChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveColorChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveColorChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveColorChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveColorChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveColorChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveColorChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveColorChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveColorChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveColorChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveColorChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveColorChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveColorChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveColorChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveColorChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveColorChooserDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveColorChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveColorChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveColorChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveColorChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveColorChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveColorChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveColorChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveColorChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveColorChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveColorChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveColorChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveColorChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveColorChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveColorChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveColorChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveColorChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveColorChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveColorChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveColorChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveColorChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveColorChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveColorChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveColorChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveColorChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveColorChooserDialogMethod "getRgba" o = ColorChooserGetRgbaMethodInfo - ResolveColorChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveColorChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveColorChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveColorChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveColorChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveColorChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveColorChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveColorChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveColorChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveColorChooserDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveColorChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveColorChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveColorChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveColorChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveColorChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveColorChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveColorChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveColorChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveColorChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveColorChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveColorChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveColorChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveColorChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveColorChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveColorChooserDialogMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo - ResolveColorChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveColorChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveColorChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveColorChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveColorChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveColorChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveColorChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveColorChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveColorChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveColorChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveColorChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveColorChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveColorChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveColorChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveColorChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveColorChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveColorChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveColorChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveColorChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveColorChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveColorChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveColorChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveColorChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveColorChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveColorChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveColorChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveColorChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveColorChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveColorChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveColorChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveColorChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveColorChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveColorChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveColorChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveColorChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveColorChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveColorChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveColorChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveColorChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveColorChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveColorChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveColorChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveColorChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveColorChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveColorChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveColorChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveColorChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveColorChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveColorChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveColorChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveColorChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveColorChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveColorChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveColorChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveColorChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveColorChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveColorChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveColorChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveColorChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveColorChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveColorChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveColorChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveColorChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveColorChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveColorChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveColorChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveColorChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveColorChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveColorChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveColorChooserDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveColorChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveColorChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveColorChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveColorChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveColorChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveColorChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveColorChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveColorChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveColorChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveColorChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveColorChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveColorChooserDialogMethod "setRgba" o = ColorChooserSetRgbaMethodInfo - ResolveColorChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveColorChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveColorChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveColorChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveColorChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveColorChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveColorChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveColorChooserDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveColorChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveColorChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveColorChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveColorChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveColorChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveColorChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveColorChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveColorChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveColorChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveColorChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveColorChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveColorChooserDialogMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo - ResolveColorChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveColorChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveColorChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveColorChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveColorChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveColorChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveColorChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveColorChooserDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorChooserDialogMethod t ColorChooserDialog, MethodInfo info ColorChooserDialog p) => IsLabelProxy t (ColorChooserDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorChooserDialogMethod t ColorChooserDialog, MethodInfo info ColorChooserDialog p) => IsLabel t (ColorChooserDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "show-editor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getColorChooserDialogShowEditor :: (MonadIO m, ColorChooserDialogK o) => o -> m Bool -getColorChooserDialogShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor" - -setColorChooserDialogShowEditor :: (MonadIO m, ColorChooserDialogK o) => o -> Bool -> m () -setColorChooserDialogShowEditor obj val = liftIO $ setObjectPropertyBool obj "show-editor" val - -constructColorChooserDialogShowEditor :: Bool -> IO ([Char], GValue) -constructColorChooserDialogShowEditor val = constructObjectPropertyBool "show-editor" val - -data ColorChooserDialogShowEditorPropertyInfo -instance AttrInfo ColorChooserDialogShowEditorPropertyInfo where - type AttrAllowedOps ColorChooserDialogShowEditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorChooserDialogShowEditorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorChooserDialogShowEditorPropertyInfo = ColorChooserDialogK - type AttrGetType ColorChooserDialogShowEditorPropertyInfo = Bool - type AttrLabel ColorChooserDialogShowEditorPropertyInfo = "show-editor" - attrGet _ = getColorChooserDialogShowEditor - attrSet _ = setColorChooserDialogShowEditor - attrConstruct _ = constructColorChooserDialogShowEditor - attrClear _ = undefined - -type instance AttributeList ColorChooserDialog = ColorChooserDialogAttributeList -type ColorChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserDialogShowEditorPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -colorChooserDialogShowEditor :: AttrLabelProxy "showEditor" -colorChooserDialogShowEditor = AttrLabelProxy - -type instance SignalList ColorChooserDialog = ColorChooserDialogSignalList -type ColorChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ColorChooserDialog::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorChooserDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_chooser_dialog_new" gtk_color_chooser_dialog_new :: - CString -> -- title : TBasicType TUTF8 - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO (Ptr ColorChooserDialog) - - -colorChooserDialogNew :: - (MonadIO m, WindowK a) => - Maybe (T.Text) -- title - -> Maybe (a) -- parent - -> m ColorChooserDialog -- result -colorChooserDialogNew title parent = liftIO $ do - maybeTitle <- case title of - Nothing -> return nullPtr - Just jTitle -> do - jTitle' <- textToCString jTitle - return jTitle' - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - result <- gtk_color_chooser_dialog_new maybeTitle maybeParent - checkUnexpectedReturnNULL "gtk_color_chooser_dialog_new" result - result' <- (newObject ColorChooserDialog) result - whenJust parent touchManagedPtr - freeMem maybeTitle - return result' - - diff --git a/GI/Gtk/Objects/ColorChooserDialog.hs-boot b/GI/Gtk/Objects/ColorChooserDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ColorChooserDialog.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.ColorChooserDialog 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 ColorChooserDialog = ColorChooserDialog (ForeignPtr ColorChooserDialog) -instance GObject ColorChooserDialog where -class GObject o => ColorChooserDialogK o -instance (GObject o, IsDescendantOf ColorChooserDialog o) => ColorChooserDialogK o -data ColorChooserDialogShowEditorPropertyInfo diff --git a/GI/Gtk/Objects/ColorChooserWidget.hs b/GI/Gtk/Objects/ColorChooserWidget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ColorChooserWidget.hs +++ /dev/null @@ -1,470 +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.Gtk.Objects.ColorChooserWidget - ( - --- * Exported types - ColorChooserWidget(..) , - ColorChooserWidgetK , - toColorChooserWidget , - noColorChooserWidget , - - - -- * Methods --- ** colorChooserWidgetNew - colorChooserWidgetNew , - - - - - -- * Properties --- ** ShowEditor - ColorChooserWidgetShowEditorPropertyInfo, - colorChooserWidgetShowEditor , - constructColorChooserWidgetShowEditor , - getColorChooserWidgetShowEditor , - setColorChooserWidgetShowEditor , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ColorChooserWidget = ColorChooserWidget (ForeignPtr ColorChooserWidget) -foreign import ccall "gtk_color_chooser_widget_get_type" - c_gtk_color_chooser_widget_get_type :: IO GType - -type instance ParentTypes ColorChooserWidget = ColorChooserWidgetParentTypes -type ColorChooserWidgetParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ColorChooser, Orientable] - -instance GObject ColorChooserWidget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_color_chooser_widget_get_type - - -class GObject o => ColorChooserWidgetK o -instance (GObject o, IsDescendantOf ColorChooserWidget o) => ColorChooserWidgetK o - -toColorChooserWidget :: ColorChooserWidgetK o => o -> IO ColorChooserWidget -toColorChooserWidget = unsafeCastTo ColorChooserWidget - -noColorChooserWidget :: Maybe ColorChooserWidget -noColorChooserWidget = Nothing - -type family ResolveColorChooserWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveColorChooserWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveColorChooserWidgetMethod "add" o = ContainerAddMethodInfo - ResolveColorChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveColorChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveColorChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveColorChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveColorChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveColorChooserWidgetMethod "addPalette" o = ColorChooserAddPaletteMethodInfo - ResolveColorChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveColorChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveColorChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveColorChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveColorChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveColorChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveColorChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveColorChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo - ResolveColorChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveColorChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveColorChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveColorChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveColorChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveColorChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveColorChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveColorChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveColorChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveColorChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveColorChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveColorChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveColorChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveColorChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveColorChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveColorChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveColorChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveColorChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveColorChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveColorChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveColorChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveColorChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveColorChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveColorChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveColorChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveColorChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveColorChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveColorChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveColorChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveColorChooserWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveColorChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveColorChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveColorChooserWidgetMethod "event" o = WidgetEventMethodInfo - ResolveColorChooserWidgetMethod "forall" o = ContainerForallMethodInfo - ResolveColorChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo - ResolveColorChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveColorChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveColorChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveColorChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveColorChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveColorChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveColorChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveColorChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveColorChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveColorChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveColorChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveColorChooserWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveColorChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveColorChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveColorChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveColorChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveColorChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveColorChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveColorChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveColorChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveColorChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveColorChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveColorChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveColorChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveColorChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveColorChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveColorChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveColorChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveColorChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveColorChooserWidgetMethod "map" o = WidgetMapMethodInfo - ResolveColorChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveColorChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveColorChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveColorChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveColorChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveColorChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveColorChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveColorChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveColorChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveColorChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveColorChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveColorChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveColorChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveColorChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo - ResolveColorChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo - ResolveColorChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveColorChooserWidgetMethod "path" o = WidgetPathMethodInfo - ResolveColorChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveColorChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveColorChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveColorChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveColorChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveColorChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveColorChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveColorChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveColorChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveColorChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveColorChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveColorChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo - ResolveColorChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveColorChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveColorChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveColorChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveColorChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveColorChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveColorChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveColorChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveColorChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveColorChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveColorChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveColorChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveColorChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveColorChooserWidgetMethod "show" o = WidgetShowMethodInfo - ResolveColorChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveColorChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveColorChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveColorChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveColorChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveColorChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveColorChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveColorChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveColorChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveColorChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveColorChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveColorChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveColorChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveColorChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveColorChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveColorChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveColorChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveColorChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveColorChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveColorChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveColorChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveColorChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveColorChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveColorChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveColorChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveColorChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveColorChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveColorChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveColorChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveColorChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveColorChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveColorChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveColorChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveColorChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveColorChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveColorChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveColorChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveColorChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveColorChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveColorChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveColorChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveColorChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveColorChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveColorChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveColorChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveColorChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveColorChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveColorChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveColorChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveColorChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveColorChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveColorChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveColorChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveColorChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveColorChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveColorChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveColorChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveColorChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveColorChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveColorChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveColorChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveColorChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveColorChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveColorChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveColorChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveColorChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveColorChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveColorChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveColorChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveColorChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveColorChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveColorChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveColorChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveColorChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveColorChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveColorChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveColorChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveColorChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveColorChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveColorChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveColorChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveColorChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveColorChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveColorChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveColorChooserWidgetMethod "getRgba" o = ColorChooserGetRgbaMethodInfo - ResolveColorChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveColorChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveColorChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveColorChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveColorChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveColorChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveColorChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveColorChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveColorChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveColorChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveColorChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveColorChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveColorChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveColorChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveColorChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveColorChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveColorChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveColorChooserWidgetMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo - ResolveColorChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveColorChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveColorChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveColorChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveColorChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveColorChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveColorChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveColorChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveColorChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveColorChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveColorChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveColorChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveColorChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveColorChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveColorChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveColorChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveColorChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveColorChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveColorChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveColorChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveColorChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveColorChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveColorChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveColorChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveColorChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveColorChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveColorChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveColorChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveColorChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveColorChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveColorChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveColorChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveColorChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveColorChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveColorChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveColorChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveColorChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveColorChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveColorChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveColorChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveColorChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveColorChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveColorChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveColorChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveColorChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveColorChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveColorChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveColorChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveColorChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveColorChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveColorChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveColorChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveColorChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveColorChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveColorChooserWidgetMethod "setRgba" o = ColorChooserSetRgbaMethodInfo - ResolveColorChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveColorChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveColorChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveColorChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveColorChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveColorChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveColorChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveColorChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveColorChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveColorChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveColorChooserWidgetMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo - ResolveColorChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveColorChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveColorChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveColorChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveColorChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveColorChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveColorChooserWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorChooserWidgetMethod t ColorChooserWidget, MethodInfo info ColorChooserWidget p) => IsLabelProxy t (ColorChooserWidget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorChooserWidgetMethod t ColorChooserWidget, MethodInfo info ColorChooserWidget p) => IsLabel t (ColorChooserWidget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "show-editor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getColorChooserWidgetShowEditor :: (MonadIO m, ColorChooserWidgetK o) => o -> m Bool -getColorChooserWidgetShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor" - -setColorChooserWidgetShowEditor :: (MonadIO m, ColorChooserWidgetK o) => o -> Bool -> m () -setColorChooserWidgetShowEditor obj val = liftIO $ setObjectPropertyBool obj "show-editor" val - -constructColorChooserWidgetShowEditor :: Bool -> IO ([Char], GValue) -constructColorChooserWidgetShowEditor val = constructObjectPropertyBool "show-editor" val - -data ColorChooserWidgetShowEditorPropertyInfo -instance AttrInfo ColorChooserWidgetShowEditorPropertyInfo where - type AttrAllowedOps ColorChooserWidgetShowEditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorChooserWidgetShowEditorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorChooserWidgetShowEditorPropertyInfo = ColorChooserWidgetK - type AttrGetType ColorChooserWidgetShowEditorPropertyInfo = Bool - type AttrLabel ColorChooserWidgetShowEditorPropertyInfo = "show-editor" - attrGet _ = getColorChooserWidgetShowEditor - attrSet _ = setColorChooserWidgetShowEditor - attrConstruct _ = constructColorChooserWidgetShowEditor - attrClear _ = undefined - -type instance AttributeList ColorChooserWidget = ColorChooserWidgetAttributeList -type ColorChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -colorChooserWidgetShowEditor :: AttrLabelProxy "showEditor" -colorChooserWidgetShowEditor = AttrLabelProxy - -type instance SignalList ColorChooserWidget = ColorChooserWidgetSignalList -type ColorChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ColorChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_chooser_widget_new" gtk_color_chooser_widget_new :: - IO (Ptr ColorChooserWidget) - - -colorChooserWidgetNew :: - (MonadIO m) => - m ColorChooserWidget -- result -colorChooserWidgetNew = liftIO $ do - result <- gtk_color_chooser_widget_new - checkUnexpectedReturnNULL "gtk_color_chooser_widget_new" result - result' <- (newObject ColorChooserWidget) result - return result' - - diff --git a/GI/Gtk/Objects/ColorChooserWidget.hs-boot b/GI/Gtk/Objects/ColorChooserWidget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ColorChooserWidget.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.ColorChooserWidget 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 ColorChooserWidget = ColorChooserWidget (ForeignPtr ColorChooserWidget) -instance GObject ColorChooserWidget where -class GObject o => ColorChooserWidgetK o -instance (GObject o, IsDescendantOf ColorChooserWidget o) => ColorChooserWidgetK o -data ColorChooserWidgetShowEditorPropertyInfo diff --git a/GI/Gtk/Objects/ColorSelection.hs b/GI/Gtk/Objects/ColorSelection.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ColorSelection.hs +++ /dev/null @@ -1,1347 +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.Gtk.Objects.ColorSelection - ( - --- * Exported types - ColorSelection(..) , - ColorSelectionK , - toColorSelection , - noColorSelection , - - - -- * Methods --- ** colorSelectionGetCurrentAlpha - ColorSelectionGetCurrentAlphaMethodInfo , - colorSelectionGetCurrentAlpha , - - --- ** colorSelectionGetCurrentColor - ColorSelectionGetCurrentColorMethodInfo , - colorSelectionGetCurrentColor , - - --- ** colorSelectionGetCurrentRgba - ColorSelectionGetCurrentRgbaMethodInfo , - colorSelectionGetCurrentRgba , - - --- ** colorSelectionGetHasOpacityControl - ColorSelectionGetHasOpacityControlMethodInfo, - colorSelectionGetHasOpacityControl , - - --- ** colorSelectionGetHasPalette - ColorSelectionGetHasPaletteMethodInfo , - colorSelectionGetHasPalette , - - --- ** colorSelectionGetPreviousAlpha - ColorSelectionGetPreviousAlphaMethodInfo, - colorSelectionGetPreviousAlpha , - - --- ** colorSelectionGetPreviousColor - ColorSelectionGetPreviousColorMethodInfo, - colorSelectionGetPreviousColor , - - --- ** colorSelectionGetPreviousRgba - ColorSelectionGetPreviousRgbaMethodInfo , - colorSelectionGetPreviousRgba , - - --- ** colorSelectionIsAdjusting - ColorSelectionIsAdjustingMethodInfo , - colorSelectionIsAdjusting , - - --- ** colorSelectionNew - colorSelectionNew , - - --- ** colorSelectionPaletteFromString - colorSelectionPaletteFromString , - - --- ** colorSelectionPaletteToString - colorSelectionPaletteToString , - - --- ** colorSelectionSetCurrentAlpha - ColorSelectionSetCurrentAlphaMethodInfo , - colorSelectionSetCurrentAlpha , - - --- ** colorSelectionSetCurrentColor - ColorSelectionSetCurrentColorMethodInfo , - colorSelectionSetCurrentColor , - - --- ** colorSelectionSetCurrentRgba - ColorSelectionSetCurrentRgbaMethodInfo , - colorSelectionSetCurrentRgba , - - --- ** colorSelectionSetHasOpacityControl - ColorSelectionSetHasOpacityControlMethodInfo, - colorSelectionSetHasOpacityControl , - - --- ** colorSelectionSetHasPalette - ColorSelectionSetHasPaletteMethodInfo , - colorSelectionSetHasPalette , - - --- ** colorSelectionSetPreviousAlpha - ColorSelectionSetPreviousAlphaMethodInfo, - colorSelectionSetPreviousAlpha , - - --- ** colorSelectionSetPreviousColor - ColorSelectionSetPreviousColorMethodInfo, - colorSelectionSetPreviousColor , - - --- ** colorSelectionSetPreviousRgba - ColorSelectionSetPreviousRgbaMethodInfo , - colorSelectionSetPreviousRgba , - - - - - -- * Properties --- ** CurrentAlpha - ColorSelectionCurrentAlphaPropertyInfo , - colorSelectionCurrentAlpha , - constructColorSelectionCurrentAlpha , - getColorSelectionCurrentAlpha , - setColorSelectionCurrentAlpha , - - --- ** CurrentColor - ColorSelectionCurrentColorPropertyInfo , - colorSelectionCurrentColor , - constructColorSelectionCurrentColor , - getColorSelectionCurrentColor , - setColorSelectionCurrentColor , - - --- ** CurrentRgba - ColorSelectionCurrentRgbaPropertyInfo , - colorSelectionCurrentRgba , - constructColorSelectionCurrentRgba , - getColorSelectionCurrentRgba , - setColorSelectionCurrentRgba , - - --- ** HasOpacityControl - ColorSelectionHasOpacityControlPropertyInfo, - colorSelectionHasOpacityControl , - constructColorSelectionHasOpacityControl, - getColorSelectionHasOpacityControl , - setColorSelectionHasOpacityControl , - - --- ** HasPalette - ColorSelectionHasPalettePropertyInfo , - colorSelectionHasPalette , - constructColorSelectionHasPalette , - getColorSelectionHasPalette , - setColorSelectionHasPalette , - - - - - -- * Signals --- ** ColorChanged - ColorSelectionColorChangedCallback , - ColorSelectionColorChangedCallbackC , - ColorSelectionColorChangedSignalInfo , - afterColorSelectionColorChanged , - colorSelectionColorChangedCallbackWrapper, - colorSelectionColorChangedClosure , - mkColorSelectionColorChangedCallback , - noColorSelectionColorChangedCallback , - onColorSelectionColorChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype ColorSelection = ColorSelection (ForeignPtr ColorSelection) -foreign import ccall "gtk_color_selection_get_type" - c_gtk_color_selection_get_type :: IO GType - -type instance ParentTypes ColorSelection = ColorSelectionParentTypes -type ColorSelectionParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject ColorSelection where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_color_selection_get_type - - -class GObject o => ColorSelectionK o -instance (GObject o, IsDescendantOf ColorSelection o) => ColorSelectionK o - -toColorSelection :: ColorSelectionK o => o -> IO ColorSelection -toColorSelection = unsafeCastTo ColorSelection - -noColorSelection :: Maybe ColorSelection -noColorSelection = Nothing - -type family ResolveColorSelectionMethod (t :: Symbol) (o :: *) :: * where - ResolveColorSelectionMethod "activate" o = WidgetActivateMethodInfo - ResolveColorSelectionMethod "add" o = ContainerAddMethodInfo - ResolveColorSelectionMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveColorSelectionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveColorSelectionMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveColorSelectionMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveColorSelectionMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveColorSelectionMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveColorSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorSelectionMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveColorSelectionMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveColorSelectionMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveColorSelectionMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveColorSelectionMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveColorSelectionMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveColorSelectionMethod "childType" o = ContainerChildTypeMethodInfo - ResolveColorSelectionMethod "classPath" o = WidgetClassPathMethodInfo - ResolveColorSelectionMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveColorSelectionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveColorSelectionMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveColorSelectionMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveColorSelectionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveColorSelectionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveColorSelectionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveColorSelectionMethod "destroy" o = WidgetDestroyMethodInfo - ResolveColorSelectionMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveColorSelectionMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveColorSelectionMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveColorSelectionMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveColorSelectionMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveColorSelectionMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveColorSelectionMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveColorSelectionMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveColorSelectionMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveColorSelectionMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveColorSelectionMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveColorSelectionMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveColorSelectionMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveColorSelectionMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveColorSelectionMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveColorSelectionMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveColorSelectionMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveColorSelectionMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveColorSelectionMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveColorSelectionMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveColorSelectionMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveColorSelectionMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveColorSelectionMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveColorSelectionMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveColorSelectionMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveColorSelectionMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveColorSelectionMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveColorSelectionMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveColorSelectionMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveColorSelectionMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveColorSelectionMethod "draw" o = WidgetDrawMethodInfo - ResolveColorSelectionMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveColorSelectionMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveColorSelectionMethod "event" o = WidgetEventMethodInfo - ResolveColorSelectionMethod "forall" o = ContainerForallMethodInfo - ResolveColorSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorSelectionMethod "foreach" o = ContainerForeachMethodInfo - ResolveColorSelectionMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveColorSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorSelectionMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveColorSelectionMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveColorSelectionMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveColorSelectionMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveColorSelectionMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveColorSelectionMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveColorSelectionMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveColorSelectionMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveColorSelectionMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveColorSelectionMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveColorSelectionMethod "hide" o = WidgetHideMethodInfo - ResolveColorSelectionMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveColorSelectionMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveColorSelectionMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveColorSelectionMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveColorSelectionMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveColorSelectionMethod "intersect" o = WidgetIntersectMethodInfo - ResolveColorSelectionMethod "isAdjusting" o = ColorSelectionIsAdjustingMethodInfo - ResolveColorSelectionMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveColorSelectionMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveColorSelectionMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveColorSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorSelectionMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveColorSelectionMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveColorSelectionMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveColorSelectionMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveColorSelectionMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveColorSelectionMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveColorSelectionMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveColorSelectionMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveColorSelectionMethod "map" o = WidgetMapMethodInfo - ResolveColorSelectionMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveColorSelectionMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveColorSelectionMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveColorSelectionMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveColorSelectionMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveColorSelectionMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveColorSelectionMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveColorSelectionMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveColorSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorSelectionMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveColorSelectionMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveColorSelectionMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveColorSelectionMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveColorSelectionMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveColorSelectionMethod "packEnd" o = BoxPackEndMethodInfo - ResolveColorSelectionMethod "packStart" o = BoxPackStartMethodInfo - ResolveColorSelectionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveColorSelectionMethod "path" o = WidgetPathMethodInfo - ResolveColorSelectionMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveColorSelectionMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveColorSelectionMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveColorSelectionMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveColorSelectionMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveColorSelectionMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveColorSelectionMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveColorSelectionMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveColorSelectionMethod "realize" o = WidgetRealizeMethodInfo - ResolveColorSelectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorSelectionMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveColorSelectionMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveColorSelectionMethod "remove" o = ContainerRemoveMethodInfo - ResolveColorSelectionMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveColorSelectionMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveColorSelectionMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveColorSelectionMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveColorSelectionMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveColorSelectionMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveColorSelectionMethod "reparent" o = WidgetReparentMethodInfo - ResolveColorSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorSelectionMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveColorSelectionMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveColorSelectionMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveColorSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorSelectionMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveColorSelectionMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveColorSelectionMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveColorSelectionMethod "show" o = WidgetShowMethodInfo - ResolveColorSelectionMethod "showAll" o = WidgetShowAllMethodInfo - ResolveColorSelectionMethod "showNow" o = WidgetShowNowMethodInfo - ResolveColorSelectionMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveColorSelectionMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveColorSelectionMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveColorSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorSelectionMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveColorSelectionMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveColorSelectionMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveColorSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorSelectionMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveColorSelectionMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveColorSelectionMethod "unmap" o = WidgetUnmapMethodInfo - ResolveColorSelectionMethod "unparent" o = WidgetUnparentMethodInfo - ResolveColorSelectionMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveColorSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorSelectionMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveColorSelectionMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveColorSelectionMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveColorSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorSelectionMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveColorSelectionMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveColorSelectionMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveColorSelectionMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveColorSelectionMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveColorSelectionMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveColorSelectionMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveColorSelectionMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveColorSelectionMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveColorSelectionMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveColorSelectionMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveColorSelectionMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveColorSelectionMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveColorSelectionMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveColorSelectionMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveColorSelectionMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveColorSelectionMethod "getClip" o = WidgetGetClipMethodInfo - ResolveColorSelectionMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveColorSelectionMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveColorSelectionMethod "getCurrentAlpha" o = ColorSelectionGetCurrentAlphaMethodInfo - ResolveColorSelectionMethod "getCurrentColor" o = ColorSelectionGetCurrentColorMethodInfo - ResolveColorSelectionMethod "getCurrentRgba" o = ColorSelectionGetCurrentRgbaMethodInfo - ResolveColorSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorSelectionMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveColorSelectionMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveColorSelectionMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveColorSelectionMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveColorSelectionMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveColorSelectionMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveColorSelectionMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveColorSelectionMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveColorSelectionMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveColorSelectionMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveColorSelectionMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveColorSelectionMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveColorSelectionMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveColorSelectionMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveColorSelectionMethod "getHasOpacityControl" o = ColorSelectionGetHasOpacityControlMethodInfo - ResolveColorSelectionMethod "getHasPalette" o = ColorSelectionGetHasPaletteMethodInfo - ResolveColorSelectionMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveColorSelectionMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveColorSelectionMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveColorSelectionMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveColorSelectionMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveColorSelectionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveColorSelectionMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveColorSelectionMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveColorSelectionMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveColorSelectionMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveColorSelectionMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveColorSelectionMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveColorSelectionMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveColorSelectionMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveColorSelectionMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveColorSelectionMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveColorSelectionMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveColorSelectionMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveColorSelectionMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveColorSelectionMethod "getParent" o = WidgetGetParentMethodInfo - ResolveColorSelectionMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveColorSelectionMethod "getPath" o = WidgetGetPathMethodInfo - ResolveColorSelectionMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveColorSelectionMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveColorSelectionMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveColorSelectionMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveColorSelectionMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveColorSelectionMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveColorSelectionMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveColorSelectionMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveColorSelectionMethod "getPreviousAlpha" o = ColorSelectionGetPreviousAlphaMethodInfo - ResolveColorSelectionMethod "getPreviousColor" o = ColorSelectionGetPreviousColorMethodInfo - ResolveColorSelectionMethod "getPreviousRgba" o = ColorSelectionGetPreviousRgbaMethodInfo - ResolveColorSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorSelectionMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveColorSelectionMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveColorSelectionMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveColorSelectionMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveColorSelectionMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveColorSelectionMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveColorSelectionMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveColorSelectionMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveColorSelectionMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveColorSelectionMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveColorSelectionMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveColorSelectionMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveColorSelectionMethod "getState" o = WidgetGetStateMethodInfo - ResolveColorSelectionMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveColorSelectionMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveColorSelectionMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveColorSelectionMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveColorSelectionMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveColorSelectionMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveColorSelectionMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveColorSelectionMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveColorSelectionMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveColorSelectionMethod "getValign" o = WidgetGetValignMethodInfo - ResolveColorSelectionMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveColorSelectionMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveColorSelectionMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveColorSelectionMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveColorSelectionMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveColorSelectionMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveColorSelectionMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveColorSelectionMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveColorSelectionMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveColorSelectionMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveColorSelectionMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveColorSelectionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveColorSelectionMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveColorSelectionMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveColorSelectionMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveColorSelectionMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveColorSelectionMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveColorSelectionMethod "setClip" o = WidgetSetClipMethodInfo - ResolveColorSelectionMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveColorSelectionMethod "setCurrentAlpha" o = ColorSelectionSetCurrentAlphaMethodInfo - ResolveColorSelectionMethod "setCurrentColor" o = ColorSelectionSetCurrentColorMethodInfo - ResolveColorSelectionMethod "setCurrentRgba" o = ColorSelectionSetCurrentRgbaMethodInfo - ResolveColorSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorSelectionMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveColorSelectionMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveColorSelectionMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveColorSelectionMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveColorSelectionMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveColorSelectionMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveColorSelectionMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveColorSelectionMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveColorSelectionMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveColorSelectionMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveColorSelectionMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveColorSelectionMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveColorSelectionMethod "setHasOpacityControl" o = ColorSelectionSetHasOpacityControlMethodInfo - ResolveColorSelectionMethod "setHasPalette" o = ColorSelectionSetHasPaletteMethodInfo - ResolveColorSelectionMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveColorSelectionMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveColorSelectionMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveColorSelectionMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveColorSelectionMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveColorSelectionMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveColorSelectionMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveColorSelectionMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveColorSelectionMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveColorSelectionMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveColorSelectionMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveColorSelectionMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveColorSelectionMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveColorSelectionMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveColorSelectionMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveColorSelectionMethod "setParent" o = WidgetSetParentMethodInfo - ResolveColorSelectionMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveColorSelectionMethod "setPreviousAlpha" o = ColorSelectionSetPreviousAlphaMethodInfo - ResolveColorSelectionMethod "setPreviousColor" o = ColorSelectionSetPreviousColorMethodInfo - ResolveColorSelectionMethod "setPreviousRgba" o = ColorSelectionSetPreviousRgbaMethodInfo - ResolveColorSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorSelectionMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveColorSelectionMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveColorSelectionMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveColorSelectionMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveColorSelectionMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveColorSelectionMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveColorSelectionMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveColorSelectionMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveColorSelectionMethod "setState" o = WidgetSetStateMethodInfo - ResolveColorSelectionMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveColorSelectionMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveColorSelectionMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveColorSelectionMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveColorSelectionMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveColorSelectionMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveColorSelectionMethod "setValign" o = WidgetSetValignMethodInfo - ResolveColorSelectionMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveColorSelectionMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveColorSelectionMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveColorSelectionMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveColorSelectionMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveColorSelectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorSelectionMethod t ColorSelection, MethodInfo info ColorSelection p) => IsLabelProxy t (ColorSelection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorSelectionMethod t ColorSelection, MethodInfo info ColorSelection p) => IsLabel t (ColorSelection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ColorSelection::color-changed -type ColorSelectionColorChangedCallback = - IO () - -noColorSelectionColorChangedCallback :: Maybe ColorSelectionColorChangedCallback -noColorSelectionColorChangedCallback = Nothing - -type ColorSelectionColorChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkColorSelectionColorChangedCallback :: ColorSelectionColorChangedCallbackC -> IO (FunPtr ColorSelectionColorChangedCallbackC) - -colorSelectionColorChangedClosure :: ColorSelectionColorChangedCallback -> IO Closure -colorSelectionColorChangedClosure cb = newCClosure =<< mkColorSelectionColorChangedCallback wrapped - where wrapped = colorSelectionColorChangedCallbackWrapper cb - -colorSelectionColorChangedCallbackWrapper :: - ColorSelectionColorChangedCallback -> - Ptr () -> - Ptr () -> - IO () -colorSelectionColorChangedCallbackWrapper _cb _ _ = do - _cb - -onColorSelectionColorChanged :: (GObject a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId -onColorSelectionColorChanged obj cb = liftIO $ connectColorSelectionColorChanged obj cb SignalConnectBefore -afterColorSelectionColorChanged :: (GObject a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId -afterColorSelectionColorChanged obj cb = connectColorSelectionColorChanged obj cb SignalConnectAfter - -connectColorSelectionColorChanged :: (GObject a, MonadIO m) => - a -> ColorSelectionColorChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectColorSelectionColorChanged obj cb after = liftIO $ do - cb' <- mkColorSelectionColorChangedCallback (colorSelectionColorChangedCallbackWrapper cb) - connectSignalFunPtr obj "color-changed" cb' after - --- VVV Prop "current-alpha" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> m Word32 -getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyUInt32 obj "current-alpha" - -setColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> Word32 -> m () -setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "current-alpha" val - -constructColorSelectionCurrentAlpha :: Word32 -> IO ([Char], GValue) -constructColorSelectionCurrentAlpha val = constructObjectPropertyUInt32 "current-alpha" val - -data ColorSelectionCurrentAlphaPropertyInfo -instance AttrInfo ColorSelectionCurrentAlphaPropertyInfo where - type AttrAllowedOps ColorSelectionCurrentAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionCurrentAlphaPropertyInfo = Word32 - type AttrLabel ColorSelectionCurrentAlphaPropertyInfo = "current-alpha" - attrGet _ = getColorSelectionCurrentAlpha - attrSet _ = setColorSelectionCurrentAlpha - attrConstruct _ = constructColorSelectionCurrentAlpha - attrClear _ = undefined - --- VVV Prop "current-color" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.Color) -getColorSelectionCurrentColor obj = liftIO $ getObjectPropertyBoxed obj "current-color" Gdk.Color - -setColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> Gdk.Color -> m () -setColorSelectionCurrentColor obj val = liftIO $ setObjectPropertyBoxed obj "current-color" (Just val) - -constructColorSelectionCurrentColor :: Gdk.Color -> IO ([Char], GValue) -constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" (Just val) - -data ColorSelectionCurrentColorPropertyInfo -instance AttrInfo ColorSelectionCurrentColorPropertyInfo where - type AttrAllowedOps ColorSelectionCurrentColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint ColorSelectionCurrentColorPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionCurrentColorPropertyInfo = (Maybe Gdk.Color) - type AttrLabel ColorSelectionCurrentColorPropertyInfo = "current-color" - attrGet _ = getColorSelectionCurrentColor - attrSet _ = setColorSelectionCurrentColor - attrConstruct _ = constructColorSelectionCurrentColor - attrClear _ = undefined - --- VVV Prop "current-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.RGBA) -getColorSelectionCurrentRgba obj = liftIO $ getObjectPropertyBoxed obj "current-rgba" Gdk.RGBA - -setColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> Gdk.RGBA -> m () -setColorSelectionCurrentRgba obj val = liftIO $ setObjectPropertyBoxed obj "current-rgba" (Just val) - -constructColorSelectionCurrentRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" (Just val) - -data ColorSelectionCurrentRgbaPropertyInfo -instance AttrInfo ColorSelectionCurrentRgbaPropertyInfo where - type AttrAllowedOps ColorSelectionCurrentRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "current-rgba" - attrGet _ = getColorSelectionCurrentRgba - attrSet _ = setColorSelectionCurrentRgba - attrConstruct _ = constructColorSelectionCurrentRgba - attrClear _ = undefined - --- VVV Prop "has-opacity-control" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getColorSelectionHasOpacityControl :: (MonadIO m, ColorSelectionK o) => o -> m Bool -getColorSelectionHasOpacityControl obj = liftIO $ getObjectPropertyBool obj "has-opacity-control" - -setColorSelectionHasOpacityControl :: (MonadIO m, ColorSelectionK o) => o -> Bool -> m () -setColorSelectionHasOpacityControl obj val = liftIO $ setObjectPropertyBool obj "has-opacity-control" val - -constructColorSelectionHasOpacityControl :: Bool -> IO ([Char], GValue) -constructColorSelectionHasOpacityControl val = constructObjectPropertyBool "has-opacity-control" val - -data ColorSelectionHasOpacityControlPropertyInfo -instance AttrInfo ColorSelectionHasOpacityControlPropertyInfo where - type AttrAllowedOps ColorSelectionHasOpacityControlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionHasOpacityControlPropertyInfo = Bool - type AttrLabel ColorSelectionHasOpacityControlPropertyInfo = "has-opacity-control" - attrGet _ = getColorSelectionHasOpacityControl - attrSet _ = setColorSelectionHasOpacityControl - attrConstruct _ = constructColorSelectionHasOpacityControl - attrClear _ = undefined - --- VVV Prop "has-palette" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getColorSelectionHasPalette :: (MonadIO m, ColorSelectionK o) => o -> m Bool -getColorSelectionHasPalette obj = liftIO $ getObjectPropertyBool obj "has-palette" - -setColorSelectionHasPalette :: (MonadIO m, ColorSelectionK o) => o -> Bool -> m () -setColorSelectionHasPalette obj val = liftIO $ setObjectPropertyBool obj "has-palette" val - -constructColorSelectionHasPalette :: Bool -> IO ([Char], GValue) -constructColorSelectionHasPalette val = constructObjectPropertyBool "has-palette" val - -data ColorSelectionHasPalettePropertyInfo -instance AttrInfo ColorSelectionHasPalettePropertyInfo where - type AttrAllowedOps ColorSelectionHasPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorSelectionHasPalettePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ColorSelectionHasPalettePropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionHasPalettePropertyInfo = Bool - type AttrLabel ColorSelectionHasPalettePropertyInfo = "has-palette" - attrGet _ = getColorSelectionHasPalette - attrSet _ = setColorSelectionHasPalette - attrConstruct _ = constructColorSelectionHasPalette - attrClear _ = undefined - -type instance AttributeList ColorSelection = ColorSelectionAttributeList -type ColorSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("currentAlpha", ColorSelectionCurrentAlphaPropertyInfo), '("currentColor", ColorSelectionCurrentColorPropertyInfo), '("currentRgba", ColorSelectionCurrentRgbaPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOpacityControl", ColorSelectionHasOpacityControlPropertyInfo), '("hasPalette", ColorSelectionHasPalettePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -colorSelectionCurrentAlpha :: AttrLabelProxy "currentAlpha" -colorSelectionCurrentAlpha = AttrLabelProxy - -colorSelectionCurrentColor :: AttrLabelProxy "currentColor" -colorSelectionCurrentColor = AttrLabelProxy - -colorSelectionCurrentRgba :: AttrLabelProxy "currentRgba" -colorSelectionCurrentRgba = AttrLabelProxy - -colorSelectionHasOpacityControl :: AttrLabelProxy "hasOpacityControl" -colorSelectionHasOpacityControl = AttrLabelProxy - -colorSelectionHasPalette :: AttrLabelProxy "hasPalette" -colorSelectionHasPalette = AttrLabelProxy - -data ColorSelectionColorChangedSignalInfo -instance SignalInfo ColorSelectionColorChangedSignalInfo where - type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback - connectSignal _ = connectColorSelectionColorChanged - -type instance SignalList ColorSelection = ColorSelectionSignalList -type ColorSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorChanged", ColorSelectionColorChangedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ColorSelection::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorSelection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_new" gtk_color_selection_new :: - IO (Ptr ColorSelection) - - -colorSelectionNew :: - (MonadIO m) => - m ColorSelection -- result -colorSelectionNew = liftIO $ do - result <- gtk_color_selection_new - checkUnexpectedReturnNULL "gtk_color_selection_new" result - result' <- (newObject ColorSelection) result - return result' - --- method ColorSelection::get_current_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_current_alpha" gtk_color_selection_get_current_alpha :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - IO Word16 - - -colorSelectionGetCurrentAlpha :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m Word16 -- result -colorSelectionGetCurrentAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_current_alpha _obj' - touchManagedPtr _obj - return result - -data ColorSelectionGetCurrentAlphaMethodInfo -instance (signature ~ (m Word16), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentAlphaMethodInfo a signature where - overloadedMethod _ = colorSelectionGetCurrentAlpha - --- method ColorSelection::get_current_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_current_color" gtk_color_selection_get_current_color :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorSelectionGetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_get_current_rgba() instead."]#-} -colorSelectionGetCurrentColor :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m (Gdk.Color) -- result -colorSelectionGetCurrentColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - gtk_color_selection_get_current_color _obj' color - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr _obj - return color' - -data ColorSelectionGetCurrentColorMethodInfo -instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentColorMethodInfo a signature where - overloadedMethod _ = colorSelectionGetCurrentColor - --- method ColorSelection::get_current_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_current_rgba" gtk_color_selection_get_current_rgba :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -colorSelectionGetCurrentRgba :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m (Gdk.RGBA) -- result -colorSelectionGetCurrentRgba _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_color_selection_get_current_rgba _obj' rgba - rgba' <- (wrapBoxed Gdk.RGBA) rgba - touchManagedPtr _obj - return rgba' - -data ColorSelectionGetCurrentRgbaMethodInfo -instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentRgbaMethodInfo a signature where - overloadedMethod _ = colorSelectionGetCurrentRgba - --- method ColorSelection::get_has_opacity_control --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 "gtk_color_selection_get_has_opacity_control" gtk_color_selection_get_has_opacity_control :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - IO CInt - - -colorSelectionGetHasOpacityControl :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m Bool -- result -colorSelectionGetHasOpacityControl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_has_opacity_control _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ColorSelectionGetHasOpacityControlMethodInfo -instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetHasOpacityControlMethodInfo a signature where - overloadedMethod _ = colorSelectionGetHasOpacityControl - --- method ColorSelection::get_has_palette --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 "gtk_color_selection_get_has_palette" gtk_color_selection_get_has_palette :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - IO CInt - - -colorSelectionGetHasPalette :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m Bool -- result -colorSelectionGetHasPalette _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_has_palette _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ColorSelectionGetHasPaletteMethodInfo -instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetHasPaletteMethodInfo a signature where - overloadedMethod _ = colorSelectionGetHasPalette - --- method ColorSelection::get_previous_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_previous_alpha" gtk_color_selection_get_previous_alpha :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - IO Word16 - - -colorSelectionGetPreviousAlpha :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m Word16 -- result -colorSelectionGetPreviousAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_previous_alpha _obj' - touchManagedPtr _obj - return result - -data ColorSelectionGetPreviousAlphaMethodInfo -instance (signature ~ (m Word16), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousAlphaMethodInfo a signature where - overloadedMethod _ = colorSelectionGetPreviousAlpha - --- method ColorSelection::get_previous_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_previous_color" gtk_color_selection_get_previous_color :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorSelectionGetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_get_previous_rgba() instead."]#-} -colorSelectionGetPreviousColor :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m (Gdk.Color) -- result -colorSelectionGetPreviousColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - gtk_color_selection_get_previous_color _obj' color - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr _obj - return color' - -data ColorSelectionGetPreviousColorMethodInfo -instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousColorMethodInfo a signature where - overloadedMethod _ = colorSelectionGetPreviousColor - --- method ColorSelection::get_previous_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_get_previous_rgba" gtk_color_selection_get_previous_rgba :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -colorSelectionGetPreviousRgba :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m (Gdk.RGBA) -- result -colorSelectionGetPreviousRgba _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_color_selection_get_previous_rgba _obj' rgba - rgba' <- (wrapBoxed Gdk.RGBA) rgba - touchManagedPtr _obj - return rgba' - -data ColorSelectionGetPreviousRgbaMethodInfo -instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousRgbaMethodInfo a signature where - overloadedMethod _ = colorSelectionGetPreviousRgba - --- method ColorSelection::is_adjusting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 "gtk_color_selection_is_adjusting" gtk_color_selection_is_adjusting :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - IO CInt - - -colorSelectionIsAdjusting :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> m Bool -- result -colorSelectionIsAdjusting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_is_adjusting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ColorSelectionIsAdjustingMethodInfo -instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionIsAdjustingMethodInfo a signature where - overloadedMethod _ = colorSelectionIsAdjusting - --- method ColorSelection::set_current_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, 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 "gtk_color_selection_set_current_alpha" gtk_color_selection_set_current_alpha :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Word16 -> -- alpha : TBasicType TUInt16 - IO () - - -colorSelectionSetCurrentAlpha :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Word16 -- alpha - -> m () -- result -colorSelectionSetCurrentAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_selection_set_current_alpha _obj' alpha - touchManagedPtr _obj - return () - -data ColorSelectionSetCurrentAlphaMethodInfo -instance (signature ~ (Word16 -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentAlphaMethodInfo a signature where - overloadedMethod _ = colorSelectionSetCurrentAlpha - --- method ColorSelection::set_current_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_color_selection_set_current_color" gtk_color_selection_set_current_color :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorSelectionSetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_set_current_rgba() instead."]#-} -colorSelectionSetCurrentColor :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Gdk.Color -- color - -> m () -- result -colorSelectionSetCurrentColor _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gtk_color_selection_set_current_color _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data ColorSelectionSetCurrentColorMethodInfo -instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentColorMethodInfo a signature where - overloadedMethod _ = colorSelectionSetCurrentColor - --- method ColorSelection::set_current_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", 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 "gtk_color_selection_set_current_rgba" gtk_color_selection_set_current_rgba :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -colorSelectionSetCurrentRgba :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Gdk.RGBA -- rgba - -> m () -- result -colorSelectionSetCurrentRgba _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - gtk_color_selection_set_current_rgba _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - -data ColorSelectionSetCurrentRgbaMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentRgbaMethodInfo a signature where - overloadedMethod _ = colorSelectionSetCurrentRgba - --- method ColorSelection::set_has_opacity_control --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_opacity", 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 "gtk_color_selection_set_has_opacity_control" gtk_color_selection_set_has_opacity_control :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - CInt -> -- has_opacity : TBasicType TBoolean - IO () - - -colorSelectionSetHasOpacityControl :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Bool -- hasOpacity - -> m () -- result -colorSelectionSetHasOpacityControl _obj hasOpacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasOpacity' = (fromIntegral . fromEnum) hasOpacity - gtk_color_selection_set_has_opacity_control _obj' hasOpacity' - touchManagedPtr _obj - return () - -data ColorSelectionSetHasOpacityControlMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetHasOpacityControlMethodInfo a signature where - overloadedMethod _ = colorSelectionSetHasOpacityControl - --- method ColorSelection::set_has_palette --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_palette", 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 "gtk_color_selection_set_has_palette" gtk_color_selection_set_has_palette :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - CInt -> -- has_palette : TBasicType TBoolean - IO () - - -colorSelectionSetHasPalette :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Bool -- hasPalette - -> m () -- result -colorSelectionSetHasPalette _obj hasPalette = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasPalette' = (fromIntegral . fromEnum) hasPalette - gtk_color_selection_set_has_palette _obj' hasPalette' - touchManagedPtr _obj - return () - -data ColorSelectionSetHasPaletteMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetHasPaletteMethodInfo a signature where - overloadedMethod _ = colorSelectionSetHasPalette - --- method ColorSelection::set_previous_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, 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 "gtk_color_selection_set_previous_alpha" gtk_color_selection_set_previous_alpha :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Word16 -> -- alpha : TBasicType TUInt16 - IO () - - -colorSelectionSetPreviousAlpha :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Word16 -- alpha - -> m () -- result -colorSelectionSetPreviousAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_selection_set_previous_alpha _obj' alpha - touchManagedPtr _obj - return () - -data ColorSelectionSetPreviousAlphaMethodInfo -instance (signature ~ (Word16 -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousAlphaMethodInfo a signature where - overloadedMethod _ = colorSelectionSetPreviousAlpha - --- method ColorSelection::set_previous_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_color_selection_set_previous_color" gtk_color_selection_set_previous_color :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorSelectionSetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_set_previous_rgba() instead."]#-} -colorSelectionSetPreviousColor :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Gdk.Color -- color - -> m () -- result -colorSelectionSetPreviousColor _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gtk_color_selection_set_previous_color _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data ColorSelectionSetPreviousColorMethodInfo -instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousColorMethodInfo a signature where - overloadedMethod _ = colorSelectionSetPreviousColor - --- method ColorSelection::set_previous_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", 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 "gtk_color_selection_set_previous_rgba" gtk_color_selection_set_previous_rgba :: - Ptr ColorSelection -> -- _obj : TInterface "Gtk" "ColorSelection" - Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -colorSelectionSetPreviousRgba :: - (MonadIO m, ColorSelectionK a) => - a -- _obj - -> Gdk.RGBA -- rgba - -> m () -- result -colorSelectionSetPreviousRgba _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - gtk_color_selection_set_previous_rgba _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - -data ColorSelectionSetPreviousRgbaMethodInfo -instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousRgbaMethodInfo a signature where - overloadedMethod _ = colorSelectionSetPreviousRgba - --- method ColorSelection::palette_from_string --- method type : MemberFunction --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_palette_from_string" gtk_color_selection_palette_from_string :: - CString -> -- str : TBasicType TUTF8 - Ptr (Ptr Gdk.Color) -> -- colors : TCArray False (-1) 2 (TInterface "Gdk" "Color") - Ptr Int32 -> -- n_colors : TBasicType TInt - IO CInt - - -colorSelectionPaletteFromString :: - (MonadIO m) => - T.Text -- str - -> m (Bool,[Gdk.Color]) -- result -colorSelectionPaletteFromString str = liftIO $ do - str' <- textToCString str - colors <- allocMem :: IO (Ptr (Ptr Gdk.Color)) - nColors <- allocMem :: IO (Ptr Int32) - result <- gtk_color_selection_palette_from_string str' colors nColors - nColors' <- peek nColors - let result' = (/= 0) result - colors' <- peek colors - colors'' <- (unpackBoxedArrayWithLength 12 nColors') colors' - colors''' <- mapM (wrapBoxed Gdk.Color) colors'' - freeMem colors' - freeMem str' - freeMem colors - freeMem nColors - return (result', colors''') - --- method ColorSelection::palette_to_string --- method type : MemberFunction --- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_palette_to_string" gtk_color_selection_palette_to_string :: - Ptr Gdk.Color -> -- colors : TCArray False (-1) 1 (TInterface "Gdk" "Color") - Int32 -> -- n_colors : TBasicType TInt - IO CString - - -colorSelectionPaletteToString :: - (MonadIO m) => - [Gdk.Color] -- colors - -> m T.Text -- result -colorSelectionPaletteToString colors = liftIO $ do - let nColors = fromIntegral $ length colors - let colors' = map unsafeManagedPtrGetPtr colors - colors'' <- packBlockArray 12 colors' - result <- gtk_color_selection_palette_to_string colors'' nColors - checkUnexpectedReturnNULL "gtk_color_selection_palette_to_string" result - result' <- cstringToText result - freeMem result - mapM_ touchManagedPtr colors - freeMem colors'' - return result' - - diff --git a/GI/Gtk/Objects/ColorSelection.hs-boot b/GI/Gtk/Objects/ColorSelection.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ColorSelection.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Objects.ColorSelection 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 ColorSelection = ColorSelection (ForeignPtr ColorSelection) -instance GObject ColorSelection where -class GObject o => ColorSelectionK o -instance (GObject o, IsDescendantOf ColorSelection o) => ColorSelectionK o -data ColorSelectionCurrentAlphaPropertyInfo -data ColorSelectionCurrentColorPropertyInfo -data ColorSelectionCurrentRgbaPropertyInfo -data ColorSelectionHasOpacityControlPropertyInfo -data ColorSelectionHasPalettePropertyInfo -data ColorSelectionColorChangedSignalInfo -data ColorSelectionGetCurrentAlphaMethodInfo -data ColorSelectionGetCurrentColorMethodInfo -data ColorSelectionGetCurrentRgbaMethodInfo -data ColorSelectionGetHasOpacityControlMethodInfo -data ColorSelectionGetHasPaletteMethodInfo -data ColorSelectionGetPreviousAlphaMethodInfo -data ColorSelectionGetPreviousColorMethodInfo -data ColorSelectionGetPreviousRgbaMethodInfo -data ColorSelectionIsAdjustingMethodInfo -data ColorSelectionSetCurrentAlphaMethodInfo -data ColorSelectionSetCurrentColorMethodInfo -data ColorSelectionSetCurrentRgbaMethodInfo -data ColorSelectionSetHasOpacityControlMethodInfo -data ColorSelectionSetHasPaletteMethodInfo -data ColorSelectionSetPreviousAlphaMethodInfo -data ColorSelectionSetPreviousColorMethodInfo -data ColorSelectionSetPreviousRgbaMethodInfo diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs b/GI/Gtk/Objects/ColorSelectionDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ColorSelectionDialog.hs +++ /dev/null @@ -1,682 +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.Gtk.Objects.ColorSelectionDialog - ( - --- * Exported types - ColorSelectionDialog(..) , - ColorSelectionDialogK , - toColorSelectionDialog , - noColorSelectionDialog , - - - -- * Methods --- ** colorSelectionDialogGetColorSelection - ColorSelectionDialogGetColorSelectionMethodInfo, - colorSelectionDialogGetColorSelection , - - --- ** colorSelectionDialogNew - colorSelectionDialogNew , - - - - - -- * Properties --- ** CancelButton - ColorSelectionDialogCancelButtonPropertyInfo, - colorSelectionDialogCancelButton , - getColorSelectionDialogCancelButton , - - --- ** ColorSelection - ColorSelectionDialogColorSelectionPropertyInfo, - colorSelectionDialogColorSelection , - getColorSelectionDialogColorSelection , - - --- ** HelpButton - ColorSelectionDialogHelpButtonPropertyInfo, - colorSelectionDialogHelpButton , - getColorSelectionDialogHelpButton , - - --- ** OkButton - ColorSelectionDialogOkButtonPropertyInfo, - colorSelectionDialogOkButton , - getColorSelectionDialogOkButton , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ColorSelectionDialog = ColorSelectionDialog (ForeignPtr ColorSelectionDialog) -foreign import ccall "gtk_color_selection_dialog_get_type" - c_gtk_color_selection_dialog_get_type :: IO GType - -type instance ParentTypes ColorSelectionDialog = ColorSelectionDialogParentTypes -type ColorSelectionDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject ColorSelectionDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_color_selection_dialog_get_type - - -class GObject o => ColorSelectionDialogK o -instance (GObject o, IsDescendantOf ColorSelectionDialog o) => ColorSelectionDialogK o - -toColorSelectionDialog :: ColorSelectionDialogK o => o -> IO ColorSelectionDialog -toColorSelectionDialog = unsafeCastTo ColorSelectionDialog - -noColorSelectionDialog :: Maybe ColorSelectionDialog -noColorSelectionDialog = Nothing - -type family ResolveColorSelectionDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveColorSelectionDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveColorSelectionDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveColorSelectionDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveColorSelectionDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveColorSelectionDialogMethod "add" o = ContainerAddMethodInfo - ResolveColorSelectionDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveColorSelectionDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveColorSelectionDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveColorSelectionDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveColorSelectionDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveColorSelectionDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveColorSelectionDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveColorSelectionDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveColorSelectionDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveColorSelectionDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveColorSelectionDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveColorSelectionDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveColorSelectionDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveColorSelectionDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveColorSelectionDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveColorSelectionDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveColorSelectionDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveColorSelectionDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveColorSelectionDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveColorSelectionDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveColorSelectionDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveColorSelectionDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveColorSelectionDialogMethod "close" o = WindowCloseMethodInfo - ResolveColorSelectionDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveColorSelectionDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveColorSelectionDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveColorSelectionDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveColorSelectionDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveColorSelectionDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveColorSelectionDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveColorSelectionDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveColorSelectionDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveColorSelectionDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveColorSelectionDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveColorSelectionDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveColorSelectionDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveColorSelectionDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveColorSelectionDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveColorSelectionDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveColorSelectionDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveColorSelectionDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveColorSelectionDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveColorSelectionDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveColorSelectionDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveColorSelectionDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveColorSelectionDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveColorSelectionDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveColorSelectionDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveColorSelectionDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveColorSelectionDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveColorSelectionDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveColorSelectionDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveColorSelectionDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveColorSelectionDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveColorSelectionDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveColorSelectionDialogMethod "event" o = WidgetEventMethodInfo - ResolveColorSelectionDialogMethod "forall" o = ContainerForallMethodInfo - ResolveColorSelectionDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveColorSelectionDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveColorSelectionDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveColorSelectionDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveColorSelectionDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveColorSelectionDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveColorSelectionDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveColorSelectionDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveColorSelectionDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveColorSelectionDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveColorSelectionDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveColorSelectionDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveColorSelectionDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveColorSelectionDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveColorSelectionDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveColorSelectionDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveColorSelectionDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveColorSelectionDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveColorSelectionDialogMethod "hide" o = WidgetHideMethodInfo - ResolveColorSelectionDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveColorSelectionDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveColorSelectionDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveColorSelectionDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveColorSelectionDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveColorSelectionDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveColorSelectionDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveColorSelectionDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveColorSelectionDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveColorSelectionDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveColorSelectionDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveColorSelectionDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveColorSelectionDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveColorSelectionDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveColorSelectionDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveColorSelectionDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveColorSelectionDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveColorSelectionDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveColorSelectionDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveColorSelectionDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveColorSelectionDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveColorSelectionDialogMethod "map" o = WidgetMapMethodInfo - ResolveColorSelectionDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveColorSelectionDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveColorSelectionDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveColorSelectionDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveColorSelectionDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveColorSelectionDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveColorSelectionDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveColorSelectionDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveColorSelectionDialogMethod "move" o = WindowMoveMethodInfo - ResolveColorSelectionDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveColorSelectionDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveColorSelectionDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveColorSelectionDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveColorSelectionDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveColorSelectionDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveColorSelectionDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveColorSelectionDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveColorSelectionDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveColorSelectionDialogMethod "path" o = WidgetPathMethodInfo - ResolveColorSelectionDialogMethod "present" o = WindowPresentMethodInfo - ResolveColorSelectionDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveColorSelectionDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveColorSelectionDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveColorSelectionDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveColorSelectionDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveColorSelectionDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveColorSelectionDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveColorSelectionDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveColorSelectionDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveColorSelectionDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveColorSelectionDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveColorSelectionDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveColorSelectionDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveColorSelectionDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveColorSelectionDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveColorSelectionDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveColorSelectionDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveColorSelectionDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveColorSelectionDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveColorSelectionDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveColorSelectionDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveColorSelectionDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveColorSelectionDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveColorSelectionDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveColorSelectionDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveColorSelectionDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveColorSelectionDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveColorSelectionDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveColorSelectionDialogMethod "resize" o = WindowResizeMethodInfo - ResolveColorSelectionDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveColorSelectionDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveColorSelectionDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveColorSelectionDialogMethod "response" o = DialogResponseMethodInfo - ResolveColorSelectionDialogMethod "run" o = DialogRunMethodInfo - ResolveColorSelectionDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveColorSelectionDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveColorSelectionDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveColorSelectionDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveColorSelectionDialogMethod "show" o = WidgetShowMethodInfo - ResolveColorSelectionDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveColorSelectionDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveColorSelectionDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveColorSelectionDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveColorSelectionDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveColorSelectionDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveColorSelectionDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveColorSelectionDialogMethod "stick" o = WindowStickMethodInfo - ResolveColorSelectionDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveColorSelectionDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveColorSelectionDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveColorSelectionDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveColorSelectionDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveColorSelectionDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveColorSelectionDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveColorSelectionDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveColorSelectionDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveColorSelectionDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveColorSelectionDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveColorSelectionDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveColorSelectionDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveColorSelectionDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveColorSelectionDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveColorSelectionDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveColorSelectionDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveColorSelectionDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveColorSelectionDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveColorSelectionDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveColorSelectionDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveColorSelectionDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveColorSelectionDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveColorSelectionDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveColorSelectionDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveColorSelectionDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveColorSelectionDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveColorSelectionDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveColorSelectionDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveColorSelectionDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveColorSelectionDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveColorSelectionDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveColorSelectionDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveColorSelectionDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveColorSelectionDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveColorSelectionDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveColorSelectionDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveColorSelectionDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveColorSelectionDialogMethod "getColorSelection" o = ColorSelectionDialogGetColorSelectionMethodInfo - ResolveColorSelectionDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveColorSelectionDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveColorSelectionDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveColorSelectionDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveColorSelectionDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveColorSelectionDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveColorSelectionDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveColorSelectionDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveColorSelectionDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveColorSelectionDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveColorSelectionDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveColorSelectionDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveColorSelectionDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveColorSelectionDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveColorSelectionDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveColorSelectionDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveColorSelectionDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveColorSelectionDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveColorSelectionDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveColorSelectionDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveColorSelectionDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveColorSelectionDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveColorSelectionDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveColorSelectionDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveColorSelectionDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveColorSelectionDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveColorSelectionDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveColorSelectionDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveColorSelectionDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveColorSelectionDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveColorSelectionDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveColorSelectionDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveColorSelectionDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveColorSelectionDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveColorSelectionDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveColorSelectionDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveColorSelectionDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveColorSelectionDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveColorSelectionDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveColorSelectionDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveColorSelectionDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveColorSelectionDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveColorSelectionDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveColorSelectionDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveColorSelectionDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveColorSelectionDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveColorSelectionDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveColorSelectionDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveColorSelectionDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveColorSelectionDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveColorSelectionDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveColorSelectionDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveColorSelectionDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveColorSelectionDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveColorSelectionDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveColorSelectionDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveColorSelectionDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveColorSelectionDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveColorSelectionDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveColorSelectionDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveColorSelectionDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveColorSelectionDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveColorSelectionDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveColorSelectionDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveColorSelectionDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveColorSelectionDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveColorSelectionDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveColorSelectionDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveColorSelectionDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveColorSelectionDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveColorSelectionDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveColorSelectionDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveColorSelectionDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveColorSelectionDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveColorSelectionDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveColorSelectionDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveColorSelectionDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveColorSelectionDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveColorSelectionDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveColorSelectionDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveColorSelectionDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveColorSelectionDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveColorSelectionDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveColorSelectionDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveColorSelectionDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveColorSelectionDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveColorSelectionDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveColorSelectionDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveColorSelectionDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveColorSelectionDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveColorSelectionDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveColorSelectionDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveColorSelectionDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveColorSelectionDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveColorSelectionDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveColorSelectionDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveColorSelectionDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveColorSelectionDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveColorSelectionDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveColorSelectionDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveColorSelectionDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveColorSelectionDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveColorSelectionDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveColorSelectionDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveColorSelectionDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveColorSelectionDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveColorSelectionDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveColorSelectionDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveColorSelectionDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveColorSelectionDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveColorSelectionDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveColorSelectionDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveColorSelectionDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveColorSelectionDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveColorSelectionDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveColorSelectionDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveColorSelectionDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveColorSelectionDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveColorSelectionDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveColorSelectionDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveColorSelectionDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveColorSelectionDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveColorSelectionDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveColorSelectionDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveColorSelectionDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveColorSelectionDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveColorSelectionDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveColorSelectionDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveColorSelectionDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveColorSelectionDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveColorSelectionDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveColorSelectionDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveColorSelectionDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveColorSelectionDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveColorSelectionDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveColorSelectionDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveColorSelectionDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveColorSelectionDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveColorSelectionDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveColorSelectionDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveColorSelectionDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveColorSelectionDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveColorSelectionDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveColorSelectionDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveColorSelectionDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveColorSelectionDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveColorSelectionDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveColorSelectionDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveColorSelectionDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveColorSelectionDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveColorSelectionDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveColorSelectionDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveColorSelectionDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveColorSelectionDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveColorSelectionDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveColorSelectionDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveColorSelectionDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveColorSelectionDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveColorSelectionDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveColorSelectionDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveColorSelectionDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveColorSelectionDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveColorSelectionDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveColorSelectionDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveColorSelectionDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveColorSelectionDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveColorSelectionDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveColorSelectionDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveColorSelectionDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveColorSelectionDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveColorSelectionDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveColorSelectionDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveColorSelectionDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveColorSelectionDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveColorSelectionDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveColorSelectionDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveColorSelectionDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveColorSelectionDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveColorSelectionDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveColorSelectionDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveColorSelectionDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveColorSelectionDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveColorSelectionDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveColorSelectionDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveColorSelectionDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveColorSelectionDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveColorSelectionDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveColorSelectionDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveColorSelectionDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveColorSelectionDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveColorSelectionDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveColorSelectionDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveColorSelectionDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveColorSelectionDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveColorSelectionDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveColorSelectionDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveColorSelectionDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveColorSelectionDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveColorSelectionDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveColorSelectionDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveColorSelectionDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveColorSelectionDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveColorSelectionDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveColorSelectionDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveColorSelectionDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveColorSelectionDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveColorSelectionDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveColorSelectionDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorSelectionDialogMethod t ColorSelectionDialog, MethodInfo info ColorSelectionDialog p) => IsLabelProxy t (ColorSelectionDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorSelectionDialogMethod t ColorSelectionDialog, MethodInfo info ColorSelectionDialog p) => IsLabel t (ColorSelectionDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cancel-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) -getColorSelectionDialogCancelButton obj = liftIO $ getObjectPropertyObject obj "cancel-button" Widget - -data ColorSelectionDialogCancelButtonPropertyInfo -instance AttrInfo ColorSelectionDialogCancelButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = (Maybe Widget) - type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "cancel-button" - attrGet _ = getColorSelectionDialogCancelButton - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "color-selection" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getColorSelectionDialogColorSelection :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogColorSelection obj = liftIO $ checkUnexpectedNothing "getColorSelectionDialogColorSelection" $ getObjectPropertyObject obj "color-selection" Widget - -data ColorSelectionDialogColorSelectionPropertyInfo -instance AttrInfo ColorSelectionDialogColorSelectionPropertyInfo where - type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget - type AttrLabel ColorSelectionDialogColorSelectionPropertyInfo = "color-selection" - attrGet _ = getColorSelectionDialogColorSelection - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "help-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) -getColorSelectionDialogHelpButton obj = liftIO $ getObjectPropertyObject obj "help-button" Widget - -data ColorSelectionDialogHelpButtonPropertyInfo -instance AttrInfo ColorSelectionDialogHelpButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = (Maybe Widget) - type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "help-button" - attrGet _ = getColorSelectionDialogHelpButton - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ok-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) -getColorSelectionDialogOkButton obj = liftIO $ getObjectPropertyObject obj "ok-button" Widget - -data ColorSelectionDialogOkButtonPropertyInfo -instance AttrInfo ColorSelectionDialogOkButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = (Maybe Widget) - type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ok-button" - attrGet _ = getColorSelectionDialogOkButton - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList ColorSelectionDialog = ColorSelectionDialogAttributeList -type ColorSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cancelButton", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("colorSelection", ColorSelectionDialogColorSelectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("helpButton", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("okButton", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -colorSelectionDialogCancelButton :: AttrLabelProxy "cancelButton" -colorSelectionDialogCancelButton = AttrLabelProxy - -colorSelectionDialogColorSelection :: AttrLabelProxy "colorSelection" -colorSelectionDialogColorSelection = AttrLabelProxy - -colorSelectionDialogHelpButton :: AttrLabelProxy "helpButton" -colorSelectionDialogHelpButton = AttrLabelProxy - -colorSelectionDialogOkButton :: AttrLabelProxy "okButton" -colorSelectionDialogOkButton = AttrLabelProxy - -type instance SignalList ColorSelectionDialog = ColorSelectionDialogSignalList -type ColorSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ColorSelectionDialog::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ColorSelectionDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_dialog_new" gtk_color_selection_dialog_new :: - CString -> -- title : TBasicType TUTF8 - IO (Ptr ColorSelectionDialog) - - -colorSelectionDialogNew :: - (MonadIO m) => - T.Text -- title - -> m ColorSelectionDialog -- result -colorSelectionDialogNew title = liftIO $ do - title' <- textToCString title - result <- gtk_color_selection_dialog_new title' - checkUnexpectedReturnNULL "gtk_color_selection_dialog_new" result - result' <- (newObject ColorSelectionDialog) result - freeMem title' - return result' - --- method ColorSelectionDialog::get_color_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_color_selection_dialog_get_color_selection" gtk_color_selection_dialog_get_color_selection :: - Ptr ColorSelectionDialog -> -- _obj : TInterface "Gtk" "ColorSelectionDialog" - IO (Ptr Widget) - - -colorSelectionDialogGetColorSelection :: - (MonadIO m, ColorSelectionDialogK a) => - a -- _obj - -> m Widget -- result -colorSelectionDialogGetColorSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_dialog_get_color_selection _obj' - checkUnexpectedReturnNULL "gtk_color_selection_dialog_get_color_selection" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ColorSelectionDialogGetColorSelectionMethodInfo -instance (signature ~ (m Widget), MonadIO m, ColorSelectionDialogK a) => MethodInfo ColorSelectionDialogGetColorSelectionMethodInfo a signature where - overloadedMethod _ = colorSelectionDialogGetColorSelection - - diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot b/GI/Gtk/Objects/ColorSelectionDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.ColorSelectionDialog 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 ColorSelectionDialog = ColorSelectionDialog (ForeignPtr ColorSelectionDialog) -instance GObject ColorSelectionDialog where -class GObject o => ColorSelectionDialogK o -instance (GObject o, IsDescendantOf ColorSelectionDialog o) => ColorSelectionDialogK o -data ColorSelectionDialogCancelButtonPropertyInfo -data ColorSelectionDialogColorSelectionPropertyInfo -data ColorSelectionDialogHelpButtonPropertyInfo -data ColorSelectionDialogOkButtonPropertyInfo -data ColorSelectionDialogGetColorSelectionMethodInfo diff --git a/GI/Gtk/Objects/ComboBox.hs b/GI/Gtk/Objects/ComboBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBox.hs +++ /dev/null @@ -1,2688 +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.Gtk.Objects.ComboBox - ( - --- * Exported types - ComboBox(..) , - ComboBoxK , - toComboBox , - noComboBox , - - - -- * Methods --- ** comboBoxGetActive - ComboBoxGetActiveMethodInfo , - comboBoxGetActive , - - --- ** comboBoxGetActiveId - ComboBoxGetActiveIdMethodInfo , - comboBoxGetActiveId , - - --- ** comboBoxGetActiveIter - ComboBoxGetActiveIterMethodInfo , - comboBoxGetActiveIter , - - --- ** comboBoxGetAddTearoffs - ComboBoxGetAddTearoffsMethodInfo , - comboBoxGetAddTearoffs , - - --- ** comboBoxGetButtonSensitivity - ComboBoxGetButtonSensitivityMethodInfo , - comboBoxGetButtonSensitivity , - - --- ** comboBoxGetColumnSpanColumn - ComboBoxGetColumnSpanColumnMethodInfo , - comboBoxGetColumnSpanColumn , - - --- ** comboBoxGetEntryTextColumn - ComboBoxGetEntryTextColumnMethodInfo , - comboBoxGetEntryTextColumn , - - --- ** comboBoxGetFocusOnClick - ComboBoxGetFocusOnClickMethodInfo , - comboBoxGetFocusOnClick , - - --- ** comboBoxGetHasEntry - ComboBoxGetHasEntryMethodInfo , - comboBoxGetHasEntry , - - --- ** comboBoxGetIdColumn - ComboBoxGetIdColumnMethodInfo , - comboBoxGetIdColumn , - - --- ** comboBoxGetModel - ComboBoxGetModelMethodInfo , - comboBoxGetModel , - - --- ** comboBoxGetPopupAccessible - ComboBoxGetPopupAccessibleMethodInfo , - comboBoxGetPopupAccessible , - - --- ** comboBoxGetPopupFixedWidth - ComboBoxGetPopupFixedWidthMethodInfo , - comboBoxGetPopupFixedWidth , - - --- ** comboBoxGetRowSpanColumn - ComboBoxGetRowSpanColumnMethodInfo , - comboBoxGetRowSpanColumn , - - --- ** comboBoxGetTitle - ComboBoxGetTitleMethodInfo , - comboBoxGetTitle , - - --- ** comboBoxGetWrapWidth - ComboBoxGetWrapWidthMethodInfo , - comboBoxGetWrapWidth , - - --- ** comboBoxNew - comboBoxNew , - - --- ** comboBoxNewWithArea - comboBoxNewWithArea , - - --- ** comboBoxNewWithAreaAndEntry - comboBoxNewWithAreaAndEntry , - - --- ** comboBoxNewWithEntry - comboBoxNewWithEntry , - - --- ** comboBoxNewWithModel - comboBoxNewWithModel , - - --- ** comboBoxNewWithModelAndEntry - comboBoxNewWithModelAndEntry , - - --- ** comboBoxPopdown - ComboBoxPopdownMethodInfo , - comboBoxPopdown , - - --- ** comboBoxPopup - ComboBoxPopupMethodInfo , - comboBoxPopup , - - --- ** comboBoxPopupForDevice - ComboBoxPopupForDeviceMethodInfo , - comboBoxPopupForDevice , - - --- ** comboBoxSetActive - ComboBoxSetActiveMethodInfo , - comboBoxSetActive , - - --- ** comboBoxSetActiveId - ComboBoxSetActiveIdMethodInfo , - comboBoxSetActiveId , - - --- ** comboBoxSetActiveIter - ComboBoxSetActiveIterMethodInfo , - comboBoxSetActiveIter , - - --- ** comboBoxSetAddTearoffs - ComboBoxSetAddTearoffsMethodInfo , - comboBoxSetAddTearoffs , - - --- ** comboBoxSetButtonSensitivity - ComboBoxSetButtonSensitivityMethodInfo , - comboBoxSetButtonSensitivity , - - --- ** comboBoxSetColumnSpanColumn - ComboBoxSetColumnSpanColumnMethodInfo , - comboBoxSetColumnSpanColumn , - - --- ** comboBoxSetEntryTextColumn - ComboBoxSetEntryTextColumnMethodInfo , - comboBoxSetEntryTextColumn , - - --- ** comboBoxSetFocusOnClick - ComboBoxSetFocusOnClickMethodInfo , - comboBoxSetFocusOnClick , - - --- ** comboBoxSetIdColumn - ComboBoxSetIdColumnMethodInfo , - comboBoxSetIdColumn , - - --- ** comboBoxSetModel - ComboBoxSetModelMethodInfo , - comboBoxSetModel , - - --- ** comboBoxSetPopupFixedWidth - ComboBoxSetPopupFixedWidthMethodInfo , - comboBoxSetPopupFixedWidth , - - --- ** comboBoxSetRowSeparatorFunc - ComboBoxSetRowSeparatorFuncMethodInfo , - comboBoxSetRowSeparatorFunc , - - --- ** comboBoxSetRowSpanColumn - ComboBoxSetRowSpanColumnMethodInfo , - comboBoxSetRowSpanColumn , - - --- ** comboBoxSetTitle - ComboBoxSetTitleMethodInfo , - comboBoxSetTitle , - - --- ** comboBoxSetWrapWidth - ComboBoxSetWrapWidthMethodInfo , - comboBoxSetWrapWidth , - - - - - -- * Properties --- ** Active - ComboBoxActivePropertyInfo , - comboBoxActive , - constructComboBoxActive , - getComboBoxActive , - setComboBoxActive , - - --- ** ActiveId - ComboBoxActiveIdPropertyInfo , - clearComboBoxActiveId , - comboBoxActiveId , - constructComboBoxActiveId , - getComboBoxActiveId , - setComboBoxActiveId , - - --- ** AddTearoffs - ComboBoxAddTearoffsPropertyInfo , - comboBoxAddTearoffs , - constructComboBoxAddTearoffs , - getComboBoxAddTearoffs , - setComboBoxAddTearoffs , - - --- ** ButtonSensitivity - ComboBoxButtonSensitivityPropertyInfo , - comboBoxButtonSensitivity , - constructComboBoxButtonSensitivity , - getComboBoxButtonSensitivity , - setComboBoxButtonSensitivity , - - --- ** CellArea - ComboBoxCellAreaPropertyInfo , - comboBoxCellArea , - constructComboBoxCellArea , - getComboBoxCellArea , - - --- ** ColumnSpanColumn - ComboBoxColumnSpanColumnPropertyInfo , - comboBoxColumnSpanColumn , - constructComboBoxColumnSpanColumn , - getComboBoxColumnSpanColumn , - setComboBoxColumnSpanColumn , - - --- ** EntryTextColumn - ComboBoxEntryTextColumnPropertyInfo , - comboBoxEntryTextColumn , - constructComboBoxEntryTextColumn , - getComboBoxEntryTextColumn , - setComboBoxEntryTextColumn , - - --- ** FocusOnClick - ComboBoxFocusOnClickPropertyInfo , - comboBoxFocusOnClick , - constructComboBoxFocusOnClick , - getComboBoxFocusOnClick , - setComboBoxFocusOnClick , - - --- ** HasEntry - ComboBoxHasEntryPropertyInfo , - comboBoxHasEntry , - constructComboBoxHasEntry , - getComboBoxHasEntry , - - --- ** HasFrame - ComboBoxHasFramePropertyInfo , - comboBoxHasFrame , - constructComboBoxHasFrame , - getComboBoxHasFrame , - setComboBoxHasFrame , - - --- ** IdColumn - ComboBoxIdColumnPropertyInfo , - comboBoxIdColumn , - constructComboBoxIdColumn , - getComboBoxIdColumn , - setComboBoxIdColumn , - - --- ** Model - ComboBoxModelPropertyInfo , - clearComboBoxModel , - comboBoxModel , - constructComboBoxModel , - getComboBoxModel , - setComboBoxModel , - - --- ** PopupFixedWidth - ComboBoxPopupFixedWidthPropertyInfo , - comboBoxPopupFixedWidth , - constructComboBoxPopupFixedWidth , - getComboBoxPopupFixedWidth , - setComboBoxPopupFixedWidth , - - --- ** PopupShown - ComboBoxPopupShownPropertyInfo , - comboBoxPopupShown , - getComboBoxPopupShown , - - --- ** RowSpanColumn - ComboBoxRowSpanColumnPropertyInfo , - comboBoxRowSpanColumn , - constructComboBoxRowSpanColumn , - getComboBoxRowSpanColumn , - setComboBoxRowSpanColumn , - - --- ** TearoffTitle - ComboBoxTearoffTitlePropertyInfo , - clearComboBoxTearoffTitle , - comboBoxTearoffTitle , - constructComboBoxTearoffTitle , - getComboBoxTearoffTitle , - setComboBoxTearoffTitle , - - --- ** WrapWidth - ComboBoxWrapWidthPropertyInfo , - comboBoxWrapWidth , - constructComboBoxWrapWidth , - getComboBoxWrapWidth , - setComboBoxWrapWidth , - - - - - -- * Signals --- ** Changed - ComboBoxChangedCallback , - ComboBoxChangedCallbackC , - ComboBoxChangedSignalInfo , - afterComboBoxChanged , - comboBoxChangedCallbackWrapper , - comboBoxChangedClosure , - mkComboBoxChangedCallback , - noComboBoxChangedCallback , - onComboBoxChanged , - - --- ** FormatEntryText - ComboBoxFormatEntryTextCallback , - ComboBoxFormatEntryTextCallbackC , - ComboBoxFormatEntryTextSignalInfo , - afterComboBoxFormatEntryText , - comboBoxFormatEntryTextCallbackWrapper , - comboBoxFormatEntryTextClosure , - mkComboBoxFormatEntryTextCallback , - noComboBoxFormatEntryTextCallback , - onComboBoxFormatEntryText , - - --- ** MoveActive - ComboBoxMoveActiveCallback , - ComboBoxMoveActiveCallbackC , - ComboBoxMoveActiveSignalInfo , - afterComboBoxMoveActive , - comboBoxMoveActiveCallbackWrapper , - comboBoxMoveActiveClosure , - mkComboBoxMoveActiveCallback , - noComboBoxMoveActiveCallback , - onComboBoxMoveActive , - - --- ** Popdown - ComboBoxPopdownCallback , - ComboBoxPopdownCallbackC , - ComboBoxPopdownSignalInfo , - afterComboBoxPopdown , - comboBoxPopdownCallbackWrapper , - comboBoxPopdownClosure , - mkComboBoxPopdownCallback , - noComboBoxPopdownCallback , - onComboBoxPopdown , - - --- ** Popup - ComboBoxPopupCallback , - ComboBoxPopupCallbackC , - ComboBoxPopupSignalInfo , - afterComboBoxPopup , - comboBoxPopupCallbackWrapper , - comboBoxPopupClosure , - mkComboBoxPopupCallback , - noComboBoxPopupCallback , - onComboBoxPopup , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype ComboBox = ComboBox (ForeignPtr ComboBox) -foreign import ccall "gtk_combo_box_get_type" - c_gtk_combo_box_get_type :: IO GType - -type instance ParentTypes ComboBox = ComboBoxParentTypes -type ComboBoxParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, CellLayout] - -instance GObject ComboBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_combo_box_get_type - - -class GObject o => ComboBoxK o -instance (GObject o, IsDescendantOf ComboBox o) => ComboBoxK o - -toComboBox :: ComboBoxK o => o -> IO ComboBox -toComboBox = unsafeCastTo ComboBox - -noComboBox :: Maybe ComboBox -noComboBox = Nothing - -type family ResolveComboBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveComboBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveComboBoxMethod "add" o = ContainerAddMethodInfo - ResolveComboBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveComboBoxMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveComboBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveComboBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveComboBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveComboBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveComboBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveComboBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveComboBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveComboBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveComboBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveComboBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveComboBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveComboBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveComboBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveComboBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveComboBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveComboBoxMethod "clear" o = CellLayoutClearMethodInfo - ResolveComboBoxMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveComboBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveComboBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveComboBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveComboBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveComboBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveComboBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveComboBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveComboBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveComboBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveComboBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveComboBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveComboBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveComboBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveComboBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveComboBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveComboBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveComboBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveComboBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveComboBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveComboBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveComboBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveComboBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveComboBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveComboBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveComboBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveComboBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveComboBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveComboBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveComboBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveComboBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveComboBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveComboBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveComboBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveComboBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveComboBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveComboBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveComboBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveComboBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveComboBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveComboBoxMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveComboBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveComboBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveComboBoxMethod "event" o = WidgetEventMethodInfo - ResolveComboBoxMethod "forall" o = ContainerForallMethodInfo - ResolveComboBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveComboBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveComboBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveComboBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveComboBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveComboBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveComboBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveComboBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveComboBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveComboBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveComboBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveComboBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveComboBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveComboBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveComboBoxMethod "hide" o = WidgetHideMethodInfo - ResolveComboBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveComboBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveComboBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveComboBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveComboBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveComboBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveComboBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveComboBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveComboBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveComboBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveComboBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveComboBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveComboBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveComboBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveComboBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveComboBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveComboBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveComboBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveComboBoxMethod "map" o = WidgetMapMethodInfo - ResolveComboBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveComboBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveComboBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveComboBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveComboBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveComboBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveComboBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveComboBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveComboBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveComboBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveComboBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveComboBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveComboBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveComboBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveComboBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveComboBoxMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveComboBoxMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveComboBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveComboBoxMethod "path" o = WidgetPathMethodInfo - ResolveComboBoxMethod "popdown" o = ComboBoxPopdownMethodInfo - ResolveComboBoxMethod "popup" o = ComboBoxPopupMethodInfo - ResolveComboBoxMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo - ResolveComboBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveComboBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveComboBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveComboBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveComboBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveComboBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveComboBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveComboBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveComboBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveComboBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveComboBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveComboBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveComboBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveComboBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveComboBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveComboBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveComboBoxMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveComboBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveComboBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveComboBoxMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveComboBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveComboBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveComboBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveComboBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveComboBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveComboBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveComboBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveComboBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveComboBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveComboBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveComboBoxMethod "show" o = WidgetShowMethodInfo - ResolveComboBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveComboBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveComboBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveComboBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveComboBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveComboBoxMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveComboBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveComboBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveComboBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveComboBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveComboBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveComboBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveComboBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveComboBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveComboBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveComboBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveComboBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveComboBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveComboBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveComboBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveComboBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveComboBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveComboBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveComboBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveComboBoxMethod "getActive" o = ComboBoxGetActiveMethodInfo - ResolveComboBoxMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo - ResolveComboBoxMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo - ResolveComboBoxMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo - ResolveComboBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveComboBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveComboBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveComboBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveComboBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveComboBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveComboBoxMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveComboBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveComboBoxMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo - ResolveComboBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveComboBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveComboBoxMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveComboBoxMethod "getChild" o = BinGetChildMethodInfo - ResolveComboBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveComboBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveComboBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveComboBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveComboBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveComboBoxMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo - ResolveComboBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveComboBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveComboBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveComboBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveComboBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveComboBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveComboBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveComboBoxMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo - ResolveComboBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveComboBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveComboBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveComboBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveComboBoxMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo - ResolveComboBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveComboBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveComboBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveComboBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveComboBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveComboBoxMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo - ResolveComboBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveComboBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveComboBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveComboBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveComboBoxMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo - ResolveComboBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveComboBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveComboBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveComboBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveComboBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveComboBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveComboBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveComboBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveComboBoxMethod "getModel" o = ComboBoxGetModelMethodInfo - ResolveComboBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveComboBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveComboBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveComboBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveComboBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveComboBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveComboBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveComboBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveComboBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveComboBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveComboBoxMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo - ResolveComboBoxMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo - ResolveComboBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveComboBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveComboBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveComboBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveComboBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveComboBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveComboBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveComboBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveComboBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveComboBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveComboBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveComboBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveComboBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveComboBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveComboBoxMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo - ResolveComboBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveComboBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveComboBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveComboBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveComboBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveComboBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveComboBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveComboBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveComboBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveComboBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveComboBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveComboBoxMethod "getTitle" o = ComboBoxGetTitleMethodInfo - ResolveComboBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveComboBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveComboBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveComboBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveComboBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveComboBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveComboBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveComboBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveComboBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveComboBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveComboBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveComboBoxMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo - ResolveComboBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveComboBoxMethod "setActive" o = ComboBoxSetActiveMethodInfo - ResolveComboBoxMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo - ResolveComboBoxMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo - ResolveComboBoxMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo - ResolveComboBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveComboBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveComboBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveComboBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveComboBoxMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo - ResolveComboBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveComboBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveComboBoxMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveComboBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveComboBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveComboBoxMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo - ResolveComboBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveComboBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveComboBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveComboBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveComboBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveComboBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveComboBoxMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo - ResolveComboBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveComboBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveComboBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveComboBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveComboBoxMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo - ResolveComboBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveComboBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveComboBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveComboBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveComboBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveComboBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveComboBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveComboBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveComboBoxMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo - ResolveComboBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveComboBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveComboBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveComboBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveComboBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveComboBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveComboBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveComboBoxMethod "setModel" o = ComboBoxSetModelMethodInfo - ResolveComboBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveComboBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveComboBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveComboBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveComboBoxMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo - ResolveComboBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveComboBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveComboBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveComboBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveComboBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveComboBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveComboBoxMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo - ResolveComboBoxMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo - ResolveComboBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveComboBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveComboBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveComboBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveComboBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveComboBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveComboBoxMethod "setTitle" o = ComboBoxSetTitleMethodInfo - ResolveComboBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveComboBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveComboBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveComboBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveComboBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveComboBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveComboBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveComboBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveComboBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveComboBoxMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo - ResolveComboBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveComboBoxMethod t ComboBox, MethodInfo info ComboBox p) => IsLabelProxy t (ComboBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveComboBoxMethod t ComboBox, MethodInfo info ComboBox p) => IsLabel t (ComboBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ComboBox::changed -type ComboBoxChangedCallback = - IO () - -noComboBoxChangedCallback :: Maybe ComboBoxChangedCallback -noComboBoxChangedCallback = Nothing - -type ComboBoxChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkComboBoxChangedCallback :: ComboBoxChangedCallbackC -> IO (FunPtr ComboBoxChangedCallbackC) - -comboBoxChangedClosure :: ComboBoxChangedCallback -> IO Closure -comboBoxChangedClosure cb = newCClosure =<< mkComboBoxChangedCallback wrapped - where wrapped = comboBoxChangedCallbackWrapper cb - -comboBoxChangedCallbackWrapper :: - ComboBoxChangedCallback -> - Ptr () -> - Ptr () -> - IO () -comboBoxChangedCallbackWrapper _cb _ _ = do - _cb - -onComboBoxChanged :: (GObject a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId -onComboBoxChanged obj cb = liftIO $ connectComboBoxChanged obj cb SignalConnectBefore -afterComboBoxChanged :: (GObject a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId -afterComboBoxChanged obj cb = connectComboBoxChanged obj cb SignalConnectAfter - -connectComboBoxChanged :: (GObject a, MonadIO m) => - a -> ComboBoxChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectComboBoxChanged obj cb after = liftIO $ do - cb' <- mkComboBoxChangedCallback (comboBoxChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal ComboBox::format-entry-text -type ComboBoxFormatEntryTextCallback = - T.Text -> - IO T.Text - -noComboBoxFormatEntryTextCallback :: Maybe ComboBoxFormatEntryTextCallback -noComboBoxFormatEntryTextCallback = Nothing - -type ComboBoxFormatEntryTextCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CString - -foreign import ccall "wrapper" - mkComboBoxFormatEntryTextCallback :: ComboBoxFormatEntryTextCallbackC -> IO (FunPtr ComboBoxFormatEntryTextCallbackC) - -comboBoxFormatEntryTextClosure :: ComboBoxFormatEntryTextCallback -> IO Closure -comboBoxFormatEntryTextClosure cb = newCClosure =<< mkComboBoxFormatEntryTextCallback wrapped - where wrapped = comboBoxFormatEntryTextCallbackWrapper cb - -comboBoxFormatEntryTextCallbackWrapper :: - ComboBoxFormatEntryTextCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CString -comboBoxFormatEntryTextCallbackWrapper _cb _ path _ = do - path' <- cstringToText path - result <- _cb path' - result' <- textToCString result - return result' - -onComboBoxFormatEntryText :: (GObject a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId -onComboBoxFormatEntryText obj cb = liftIO $ connectComboBoxFormatEntryText obj cb SignalConnectBefore -afterComboBoxFormatEntryText :: (GObject a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId -afterComboBoxFormatEntryText obj cb = connectComboBoxFormatEntryText obj cb SignalConnectAfter - -connectComboBoxFormatEntryText :: (GObject a, MonadIO m) => - a -> ComboBoxFormatEntryTextCallback -> SignalConnectMode -> m SignalHandlerId -connectComboBoxFormatEntryText obj cb after = liftIO $ do - cb' <- mkComboBoxFormatEntryTextCallback (comboBoxFormatEntryTextCallbackWrapper cb) - connectSignalFunPtr obj "format-entry-text" cb' after - --- signal ComboBox::move-active -type ComboBoxMoveActiveCallback = - ScrollType -> - IO () - -noComboBoxMoveActiveCallback :: Maybe ComboBoxMoveActiveCallback -noComboBoxMoveActiveCallback = Nothing - -type ComboBoxMoveActiveCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkComboBoxMoveActiveCallback :: ComboBoxMoveActiveCallbackC -> IO (FunPtr ComboBoxMoveActiveCallbackC) - -comboBoxMoveActiveClosure :: ComboBoxMoveActiveCallback -> IO Closure -comboBoxMoveActiveClosure cb = newCClosure =<< mkComboBoxMoveActiveCallback wrapped - where wrapped = comboBoxMoveActiveCallbackWrapper cb - -comboBoxMoveActiveCallbackWrapper :: - ComboBoxMoveActiveCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -comboBoxMoveActiveCallbackWrapper _cb _ scrollType _ = do - let scrollType' = (toEnum . fromIntegral) scrollType - _cb scrollType' - -onComboBoxMoveActive :: (GObject a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId -onComboBoxMoveActive obj cb = liftIO $ connectComboBoxMoveActive obj cb SignalConnectBefore -afterComboBoxMoveActive :: (GObject a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId -afterComboBoxMoveActive obj cb = connectComboBoxMoveActive obj cb SignalConnectAfter - -connectComboBoxMoveActive :: (GObject a, MonadIO m) => - a -> ComboBoxMoveActiveCallback -> SignalConnectMode -> m SignalHandlerId -connectComboBoxMoveActive obj cb after = liftIO $ do - cb' <- mkComboBoxMoveActiveCallback (comboBoxMoveActiveCallbackWrapper cb) - connectSignalFunPtr obj "move-active" cb' after - --- signal ComboBox::popdown -type ComboBoxPopdownCallback = - IO Bool - -noComboBoxPopdownCallback :: Maybe ComboBoxPopdownCallback -noComboBoxPopdownCallback = Nothing - -type ComboBoxPopdownCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkComboBoxPopdownCallback :: ComboBoxPopdownCallbackC -> IO (FunPtr ComboBoxPopdownCallbackC) - -comboBoxPopdownClosure :: ComboBoxPopdownCallback -> IO Closure -comboBoxPopdownClosure cb = newCClosure =<< mkComboBoxPopdownCallback wrapped - where wrapped = comboBoxPopdownCallbackWrapper cb - -comboBoxPopdownCallbackWrapper :: - ComboBoxPopdownCallback -> - Ptr () -> - Ptr () -> - IO CInt -comboBoxPopdownCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onComboBoxPopdown :: (GObject a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId -onComboBoxPopdown obj cb = liftIO $ connectComboBoxPopdown obj cb SignalConnectBefore -afterComboBoxPopdown :: (GObject a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId -afterComboBoxPopdown obj cb = connectComboBoxPopdown obj cb SignalConnectAfter - -connectComboBoxPopdown :: (GObject a, MonadIO m) => - a -> ComboBoxPopdownCallback -> SignalConnectMode -> m SignalHandlerId -connectComboBoxPopdown obj cb after = liftIO $ do - cb' <- mkComboBoxPopdownCallback (comboBoxPopdownCallbackWrapper cb) - connectSignalFunPtr obj "popdown" cb' after - --- signal ComboBox::popup -type ComboBoxPopupCallback = - IO () - -noComboBoxPopupCallback :: Maybe ComboBoxPopupCallback -noComboBoxPopupCallback = Nothing - -type ComboBoxPopupCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkComboBoxPopupCallback :: ComboBoxPopupCallbackC -> IO (FunPtr ComboBoxPopupCallbackC) - -comboBoxPopupClosure :: ComboBoxPopupCallback -> IO Closure -comboBoxPopupClosure cb = newCClosure =<< mkComboBoxPopupCallback wrapped - where wrapped = comboBoxPopupCallbackWrapper cb - -comboBoxPopupCallbackWrapper :: - ComboBoxPopupCallback -> - Ptr () -> - Ptr () -> - IO () -comboBoxPopupCallbackWrapper _cb _ _ = do - _cb - -onComboBoxPopup :: (GObject a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId -onComboBoxPopup obj cb = liftIO $ connectComboBoxPopup obj cb SignalConnectBefore -afterComboBoxPopup :: (GObject a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId -afterComboBoxPopup obj cb = connectComboBoxPopup obj cb SignalConnectAfter - -connectComboBoxPopup :: (GObject a, MonadIO m) => - a -> ComboBoxPopupCallback -> SignalConnectMode -> m SignalHandlerId -connectComboBoxPopup obj cb after = liftIO $ do - cb' <- mkComboBoxPopupCallback (comboBoxPopupCallbackWrapper cb) - connectSignalFunPtr obj "popup" cb' after - --- VVV Prop "active" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxActive obj = liftIO $ getObjectPropertyInt32 obj "active" - -setComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val - -constructComboBoxActive :: Int32 -> IO ([Char], GValue) -constructComboBoxActive val = constructObjectPropertyInt32 "active" val - -data ComboBoxActivePropertyInfo -instance AttrInfo ComboBoxActivePropertyInfo where - type AttrAllowedOps ComboBoxActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxActivePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxActivePropertyInfo = ComboBoxK - type AttrGetType ComboBoxActivePropertyInfo = Int32 - type AttrLabel ComboBoxActivePropertyInfo = "active" - attrGet _ = getComboBoxActive - attrSet _ = setComboBoxActive - attrConstruct _ = constructComboBoxActive - attrClear _ = undefined - --- VVV Prop "active-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Nothing) - -getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) -getComboBoxActiveId obj = liftIO $ getObjectPropertyString obj "active-id" - -setComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m () -setComboBoxActiveId obj val = liftIO $ setObjectPropertyString obj "active-id" (Just val) - -constructComboBoxActiveId :: T.Text -> IO ([Char], GValue) -constructComboBoxActiveId val = constructObjectPropertyString "active-id" (Just val) - -clearComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m () -clearComboBoxActiveId obj = liftIO $ setObjectPropertyString obj "active-id" (Nothing :: Maybe T.Text) - -data ComboBoxActiveIdPropertyInfo -instance AttrInfo ComboBoxActiveIdPropertyInfo where - type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK - type AttrGetType ComboBoxActiveIdPropertyInfo = (Maybe T.Text) - type AttrLabel ComboBoxActiveIdPropertyInfo = "active-id" - attrGet _ = getComboBoxActiveId - attrSet _ = setComboBoxActiveId - attrConstruct _ = constructComboBoxActiveId - attrClear _ = clearComboBoxActiveId - --- VVV Prop "add-tearoffs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxAddTearoffs :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs" - -setComboBoxAddTearoffs :: (MonadIO m, ComboBoxK o) => o -> Bool -> m () -setComboBoxAddTearoffs obj val = liftIO $ setObjectPropertyBool obj "add-tearoffs" val - -constructComboBoxAddTearoffs :: Bool -> IO ([Char], GValue) -constructComboBoxAddTearoffs val = constructObjectPropertyBool "add-tearoffs" val - -data ComboBoxAddTearoffsPropertyInfo -instance AttrInfo ComboBoxAddTearoffsPropertyInfo where - type AttrAllowedOps ComboBoxAddTearoffsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxAddTearoffsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ComboBoxAddTearoffsPropertyInfo = ComboBoxK - type AttrGetType ComboBoxAddTearoffsPropertyInfo = Bool - type AttrLabel ComboBoxAddTearoffsPropertyInfo = "add-tearoffs" - attrGet _ = getComboBoxAddTearoffs - attrSet _ = setComboBoxAddTearoffs - attrConstruct _ = constructComboBoxAddTearoffs - attrClear _ = undefined - --- VVV Prop "button-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxButtonSensitivity :: (MonadIO m, ComboBoxK o) => o -> m SensitivityType -getComboBoxButtonSensitivity obj = liftIO $ getObjectPropertyEnum obj "button-sensitivity" - -setComboBoxButtonSensitivity :: (MonadIO m, ComboBoxK o) => o -> SensitivityType -> m () -setComboBoxButtonSensitivity obj val = liftIO $ setObjectPropertyEnum obj "button-sensitivity" val - -constructComboBoxButtonSensitivity :: SensitivityType -> IO ([Char], GValue) -constructComboBoxButtonSensitivity val = constructObjectPropertyEnum "button-sensitivity" val - -data ComboBoxButtonSensitivityPropertyInfo -instance AttrInfo ComboBoxButtonSensitivityPropertyInfo where - type AttrAllowedOps ComboBoxButtonSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxButtonSensitivityPropertyInfo = (~) SensitivityType - type AttrBaseTypeConstraint ComboBoxButtonSensitivityPropertyInfo = ComboBoxK - type AttrGetType ComboBoxButtonSensitivityPropertyInfo = SensitivityType - type AttrLabel ComboBoxButtonSensitivityPropertyInfo = "button-sensitivity" - attrGet _ = getComboBoxButtonSensitivity - attrSet _ = setComboBoxButtonSensitivity - attrConstruct _ = constructComboBoxButtonSensitivity - attrClear _ = undefined - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m (Maybe CellArea) -getComboBoxCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructComboBoxCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" (Just val) - -data ComboBoxCellAreaPropertyInfo -instance AttrInfo ComboBoxCellAreaPropertyInfo where - type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK - type AttrGetType ComboBoxCellAreaPropertyInfo = (Maybe CellArea) - type AttrLabel ComboBoxCellAreaPropertyInfo = "cell-area" - attrGet _ = getComboBoxCellArea - attrSet _ = undefined - attrConstruct _ = constructComboBoxCellArea - attrClear _ = undefined - --- VVV Prop "column-span-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "column-span-column" - -setComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "column-span-column" val - -constructComboBoxColumnSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxColumnSpanColumn val = constructObjectPropertyInt32 "column-span-column" val - -data ComboBoxColumnSpanColumnPropertyInfo -instance AttrInfo ComboBoxColumnSpanColumnPropertyInfo where - type AttrAllowedOps ComboBoxColumnSpanColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxColumnSpanColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxColumnSpanColumnPropertyInfo = ComboBoxK - type AttrGetType ComboBoxColumnSpanColumnPropertyInfo = Int32 - type AttrLabel ComboBoxColumnSpanColumnPropertyInfo = "column-span-column" - attrGet _ = getComboBoxColumnSpanColumn - attrSet _ = setComboBoxColumnSpanColumn - attrConstruct _ = constructComboBoxColumnSpanColumn - attrClear _ = undefined - --- VVV Prop "entry-text-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyInt32 obj "entry-text-column" - -setComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "entry-text-column" val - -constructComboBoxEntryTextColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxEntryTextColumn val = constructObjectPropertyInt32 "entry-text-column" val - -data ComboBoxEntryTextColumnPropertyInfo -instance AttrInfo ComboBoxEntryTextColumnPropertyInfo where - type AttrAllowedOps ComboBoxEntryTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxEntryTextColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxEntryTextColumnPropertyInfo = ComboBoxK - type AttrGetType ComboBoxEntryTextColumnPropertyInfo = Int32 - type AttrLabel ComboBoxEntryTextColumnPropertyInfo = "entry-text-column" - attrGet _ = getComboBoxEntryTextColumn - attrSet _ = setComboBoxEntryTextColumn - attrConstruct _ = constructComboBoxEntryTextColumn - attrClear _ = undefined - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxFocusOnClick :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" - -setComboBoxFocusOnClick :: (MonadIO m, ComboBoxK o) => o -> Bool -> m () -setComboBoxFocusOnClick obj val = liftIO $ setObjectPropertyBool obj "focus-on-click" val - -constructComboBoxFocusOnClick :: Bool -> IO ([Char], GValue) -constructComboBoxFocusOnClick val = constructObjectPropertyBool "focus-on-click" val - -data ComboBoxFocusOnClickPropertyInfo -instance AttrInfo ComboBoxFocusOnClickPropertyInfo where - type AttrAllowedOps ComboBoxFocusOnClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxFocusOnClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ComboBoxFocusOnClickPropertyInfo = ComboBoxK - type AttrGetType ComboBoxFocusOnClickPropertyInfo = Bool - type AttrLabel ComboBoxFocusOnClickPropertyInfo = "focus-on-click" - attrGet _ = getComboBoxFocusOnClick - attrSet _ = setComboBoxFocusOnClick - attrConstruct _ = constructComboBoxFocusOnClick - attrClear _ = undefined - --- VVV Prop "has-entry" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getComboBoxHasEntry :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry" - -constructComboBoxHasEntry :: Bool -> IO ([Char], GValue) -constructComboBoxHasEntry val = constructObjectPropertyBool "has-entry" val - -data ComboBoxHasEntryPropertyInfo -instance AttrInfo ComboBoxHasEntryPropertyInfo where - type AttrAllowedOps ComboBoxHasEntryPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxHasEntryPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ComboBoxHasEntryPropertyInfo = ComboBoxK - type AttrGetType ComboBoxHasEntryPropertyInfo = Bool - type AttrLabel ComboBoxHasEntryPropertyInfo = "has-entry" - attrGet _ = getComboBoxHasEntry - attrSet _ = undefined - attrConstruct _ = constructComboBoxHasEntry - attrClear _ = undefined - --- VVV Prop "has-frame" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getComboBoxHasFrame :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" - -setComboBoxHasFrame :: (MonadIO m, ComboBoxK o) => o -> Bool -> m () -setComboBoxHasFrame obj val = liftIO $ setObjectPropertyBool obj "has-frame" val - -constructComboBoxHasFrame :: Bool -> IO ([Char], GValue) -constructComboBoxHasFrame val = constructObjectPropertyBool "has-frame" val - -data ComboBoxHasFramePropertyInfo -instance AttrInfo ComboBoxHasFramePropertyInfo where - type AttrAllowedOps ComboBoxHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxHasFramePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ComboBoxHasFramePropertyInfo = ComboBoxK - type AttrGetType ComboBoxHasFramePropertyInfo = Bool - type AttrLabel ComboBoxHasFramePropertyInfo = "has-frame" - attrGet _ = getComboBoxHasFrame - attrSet _ = setComboBoxHasFrame - attrConstruct _ = constructComboBoxHasFrame - attrClear _ = undefined - --- VVV Prop "id-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxIdColumn obj = liftIO $ getObjectPropertyInt32 obj "id-column" - -setComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxIdColumn obj val = liftIO $ setObjectPropertyInt32 obj "id-column" val - -constructComboBoxIdColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxIdColumn val = constructObjectPropertyInt32 "id-column" val - -data ComboBoxIdColumnPropertyInfo -instance AttrInfo ComboBoxIdColumnPropertyInfo where - type AttrAllowedOps ComboBoxIdColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxIdColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxIdColumnPropertyInfo = ComboBoxK - type AttrGetType ComboBoxIdColumnPropertyInfo = Int32 - type AttrLabel ComboBoxIdColumnPropertyInfo = "id-column" - attrGet _ = getComboBoxIdColumn - attrSet _ = setComboBoxIdColumn - attrConstruct _ = constructComboBoxIdColumn - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m TreeModel -getComboBoxModel obj = liftIO $ checkUnexpectedNothing "getComboBoxModel" $ getObjectPropertyObject obj "model" TreeModel - -setComboBoxModel :: (MonadIO m, ComboBoxK o, TreeModelK a) => o -> a -> m () -setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructComboBoxModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructComboBoxModel val = constructObjectPropertyObject "model" (Just val) - -clearComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m () -clearComboBoxModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data ComboBoxModelPropertyInfo -instance AttrInfo ComboBoxModelPropertyInfo where - type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK - type AttrGetType ComboBoxModelPropertyInfo = TreeModel - type AttrLabel ComboBoxModelPropertyInfo = "model" - attrGet _ = getComboBoxModel - attrSet _ = setComboBoxModel - attrConstruct _ = constructComboBoxModel - attrClear _ = clearComboBoxModel - --- VVV Prop "popup-fixed-width" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxPopupFixedWidth :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxPopupFixedWidth obj = liftIO $ getObjectPropertyBool obj "popup-fixed-width" - -setComboBoxPopupFixedWidth :: (MonadIO m, ComboBoxK o) => o -> Bool -> m () -setComboBoxPopupFixedWidth obj val = liftIO $ setObjectPropertyBool obj "popup-fixed-width" val - -constructComboBoxPopupFixedWidth :: Bool -> IO ([Char], GValue) -constructComboBoxPopupFixedWidth val = constructObjectPropertyBool "popup-fixed-width" val - -data ComboBoxPopupFixedWidthPropertyInfo -instance AttrInfo ComboBoxPopupFixedWidthPropertyInfo where - type AttrAllowedOps ComboBoxPopupFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = ComboBoxK - type AttrGetType ComboBoxPopupFixedWidthPropertyInfo = Bool - type AttrLabel ComboBoxPopupFixedWidthPropertyInfo = "popup-fixed-width" - attrGet _ = getComboBoxPopupFixedWidth - attrSet _ = setComboBoxPopupFixedWidth - attrConstruct _ = constructComboBoxPopupFixedWidth - attrClear _ = undefined - --- VVV Prop "popup-shown" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getComboBoxPopupShown :: (MonadIO m, ComboBoxK o) => o -> m Bool -getComboBoxPopupShown obj = liftIO $ getObjectPropertyBool obj "popup-shown" - -data ComboBoxPopupShownPropertyInfo -instance AttrInfo ComboBoxPopupShownPropertyInfo where - type AttrAllowedOps ComboBoxPopupShownPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ComboBoxPopupShownPropertyInfo = (~) () - type AttrBaseTypeConstraint ComboBoxPopupShownPropertyInfo = ComboBoxK - type AttrGetType ComboBoxPopupShownPropertyInfo = Bool - type AttrLabel ComboBoxPopupShownPropertyInfo = "popup-shown" - attrGet _ = getComboBoxPopupShown - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "row-span-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "row-span-column" - -setComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "row-span-column" val - -constructComboBoxRowSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxRowSpanColumn val = constructObjectPropertyInt32 "row-span-column" val - -data ComboBoxRowSpanColumnPropertyInfo -instance AttrInfo ComboBoxRowSpanColumnPropertyInfo where - type AttrAllowedOps ComboBoxRowSpanColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxRowSpanColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxRowSpanColumnPropertyInfo = ComboBoxK - type AttrGetType ComboBoxRowSpanColumnPropertyInfo = Int32 - type AttrLabel ComboBoxRowSpanColumnPropertyInfo = "row-span-column" - attrGet _ = getComboBoxRowSpanColumn - attrSet _ = setComboBoxRowSpanColumn - attrConstruct _ = constructComboBoxRowSpanColumn - attrClear _ = undefined - --- VVV Prop "tearoff-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) -getComboBoxTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" - -setComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m () -setComboBoxTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) - -constructComboBoxTearoffTitle :: T.Text -> IO ([Char], GValue) -constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) - -clearComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m () -clearComboBoxTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text) - -data ComboBoxTearoffTitlePropertyInfo -instance AttrInfo ComboBoxTearoffTitlePropertyInfo where - type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK - type AttrGetType ComboBoxTearoffTitlePropertyInfo = (Maybe T.Text) - type AttrLabel ComboBoxTearoffTitlePropertyInfo = "tearoff-title" - attrGet _ = getComboBoxTearoffTitle - attrSet _ = setComboBoxTearoffTitle - attrConstruct _ = constructComboBoxTearoffTitle - attrClear _ = clearComboBoxTearoffTitle - --- VVV Prop "wrap-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" - -setComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val - -constructComboBoxWrapWidth :: Int32 -> IO ([Char], GValue) -constructComboBoxWrapWidth val = constructObjectPropertyInt32 "wrap-width" val - -data ComboBoxWrapWidthPropertyInfo -instance AttrInfo ComboBoxWrapWidthPropertyInfo where - type AttrAllowedOps ComboBoxWrapWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxWrapWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ComboBoxWrapWidthPropertyInfo = ComboBoxK - type AttrGetType ComboBoxWrapWidthPropertyInfo = Int32 - type AttrLabel ComboBoxWrapWidthPropertyInfo = "wrap-width" - attrGet _ = getComboBoxWrapWidth - attrSet _ = setComboBoxWrapWidth - attrConstruct _ = constructComboBoxWrapWidth - attrClear _ = undefined - -type instance AttributeList ComboBox = ComboBoxAttributeList -type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -comboBoxActive :: AttrLabelProxy "active" -comboBoxActive = AttrLabelProxy - -comboBoxActiveId :: AttrLabelProxy "activeId" -comboBoxActiveId = AttrLabelProxy - -comboBoxAddTearoffs :: AttrLabelProxy "addTearoffs" -comboBoxAddTearoffs = AttrLabelProxy - -comboBoxButtonSensitivity :: AttrLabelProxy "buttonSensitivity" -comboBoxButtonSensitivity = AttrLabelProxy - -comboBoxCellArea :: AttrLabelProxy "cellArea" -comboBoxCellArea = AttrLabelProxy - -comboBoxColumnSpanColumn :: AttrLabelProxy "columnSpanColumn" -comboBoxColumnSpanColumn = AttrLabelProxy - -comboBoxEntryTextColumn :: AttrLabelProxy "entryTextColumn" -comboBoxEntryTextColumn = AttrLabelProxy - -comboBoxFocusOnClick :: AttrLabelProxy "focusOnClick" -comboBoxFocusOnClick = AttrLabelProxy - -comboBoxHasEntry :: AttrLabelProxy "hasEntry" -comboBoxHasEntry = AttrLabelProxy - -comboBoxHasFrame :: AttrLabelProxy "hasFrame" -comboBoxHasFrame = AttrLabelProxy - -comboBoxIdColumn :: AttrLabelProxy "idColumn" -comboBoxIdColumn = AttrLabelProxy - -comboBoxModel :: AttrLabelProxy "model" -comboBoxModel = AttrLabelProxy - -comboBoxPopupFixedWidth :: AttrLabelProxy "popupFixedWidth" -comboBoxPopupFixedWidth = AttrLabelProxy - -comboBoxPopupShown :: AttrLabelProxy "popupShown" -comboBoxPopupShown = AttrLabelProxy - -comboBoxRowSpanColumn :: AttrLabelProxy "rowSpanColumn" -comboBoxRowSpanColumn = AttrLabelProxy - -comboBoxTearoffTitle :: AttrLabelProxy "tearoffTitle" -comboBoxTearoffTitle = AttrLabelProxy - -comboBoxWrapWidth :: AttrLabelProxy "wrapWidth" -comboBoxWrapWidth = AttrLabelProxy - -data ComboBoxChangedSignalInfo -instance SignalInfo ComboBoxChangedSignalInfo where - type HaskellCallbackType ComboBoxChangedSignalInfo = ComboBoxChangedCallback - connectSignal _ = connectComboBoxChanged - -data ComboBoxFormatEntryTextSignalInfo -instance SignalInfo ComboBoxFormatEntryTextSignalInfo where - type HaskellCallbackType ComboBoxFormatEntryTextSignalInfo = ComboBoxFormatEntryTextCallback - connectSignal _ = connectComboBoxFormatEntryText - -data ComboBoxMoveActiveSignalInfo -instance SignalInfo ComboBoxMoveActiveSignalInfo where - type HaskellCallbackType ComboBoxMoveActiveSignalInfo = ComboBoxMoveActiveCallback - connectSignal _ = connectComboBoxMoveActive - -data ComboBoxPopdownSignalInfo -instance SignalInfo ComboBoxPopdownSignalInfo where - type HaskellCallbackType ComboBoxPopdownSignalInfo = ComboBoxPopdownCallback - connectSignal _ = connectComboBoxPopdown - -data ComboBoxPopupSignalInfo -instance SignalInfo ComboBoxPopupSignalInfo where - type HaskellCallbackType ComboBoxPopupSignalInfo = ComboBoxPopupCallback - connectSignal _ = connectComboBoxPopup - -type instance SignalList ComboBox = ComboBoxSignalList -type ComboBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ComboBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new" gtk_combo_box_new :: - IO (Ptr ComboBox) - - -comboBoxNew :: - (MonadIO m) => - m ComboBox -- result -comboBoxNew = liftIO $ do - result <- gtk_combo_box_new - checkUnexpectedReturnNULL "gtk_combo_box_new" result - result' <- (newObject ComboBox) result - return result' - --- method ComboBox::new_with_area --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new_with_area" gtk_combo_box_new_with_area :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr ComboBox) - - -comboBoxNewWithArea :: - (MonadIO m, CellAreaK a) => - a -- area - -> m ComboBox -- result -comboBoxNewWithArea area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_combo_box_new_with_area area' - checkUnexpectedReturnNULL "gtk_combo_box_new_with_area" result - result' <- (newObject ComboBox) result - touchManagedPtr area - return result' - --- method ComboBox::new_with_area_and_entry --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new_with_area_and_entry" gtk_combo_box_new_with_area_and_entry :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr ComboBox) - - -comboBoxNewWithAreaAndEntry :: - (MonadIO m, CellAreaK a) => - a -- area - -> m ComboBox -- result -comboBoxNewWithAreaAndEntry area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_combo_box_new_with_area_and_entry area' - checkUnexpectedReturnNULL "gtk_combo_box_new_with_area_and_entry" result - result' <- (newObject ComboBox) result - touchManagedPtr area - return result' - --- method ComboBox::new_with_entry --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new_with_entry" gtk_combo_box_new_with_entry :: - IO (Ptr ComboBox) - - -comboBoxNewWithEntry :: - (MonadIO m) => - m ComboBox -- result -comboBoxNewWithEntry = liftIO $ do - result <- gtk_combo_box_new_with_entry - checkUnexpectedReturnNULL "gtk_combo_box_new_with_entry" result - result' <- (newObject ComboBox) result - return result' - --- method ComboBox::new_with_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new_with_model" gtk_combo_box_new_with_model :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr ComboBox) - - -comboBoxNewWithModel :: - (MonadIO m, TreeModelK a) => - a -- model - -> m ComboBox -- result -comboBoxNewWithModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_combo_box_new_with_model model' - checkUnexpectedReturnNULL "gtk_combo_box_new_with_model" result - result' <- (newObject ComboBox) result - touchManagedPtr model - return result' - --- method ComboBox::new_with_model_and_entry --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_new_with_model_and_entry" gtk_combo_box_new_with_model_and_entry :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr ComboBox) - - -comboBoxNewWithModelAndEntry :: - (MonadIO m, TreeModelK a) => - a -- model - -> m ComboBox -- result -comboBoxNewWithModelAndEntry model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_combo_box_new_with_model_and_entry model' - checkUnexpectedReturnNULL "gtk_combo_box_new_with_model_and_entry" result - result' <- (newObject ComboBox) result - touchManagedPtr model - return result' - --- method ComboBox::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_active" gtk_combo_box_get_active :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetActive :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_active _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetActiveMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveMethodInfo a signature where - overloadedMethod _ = comboBoxGetActive - --- method ComboBox::get_active_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_active_id" gtk_combo_box_get_active_id :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CString - - -comboBoxGetActiveId :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m (Maybe T.Text) -- result -comboBoxGetActiveId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_active_id _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ComboBoxGetActiveIdMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where - overloadedMethod _ = comboBoxGetActiveId - --- method ComboBox::get_active_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_get_active_iter" gtk_combo_box_get_active_iter :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -comboBoxGetActiveIter :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m (Bool,TreeIter) -- result -comboBoxGetActiveIter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_combo_box_get_active_iter _obj' iter - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - return (result', iter') - -data ComboBoxGetActiveIterMethodInfo -instance (signature ~ (m (Bool,TreeIter)), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIterMethodInfo a signature where - overloadedMethod _ = comboBoxGetActiveIter - --- method ComboBox::get_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_add_tearoffs" gtk_combo_box_get_add_tearoffs :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CInt - -{-# DEPRECATED comboBoxGetAddTearoffs ["(Since version 3.10)"]#-} -comboBoxGetAddTearoffs :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Bool -- result -comboBoxGetAddTearoffs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_add_tearoffs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ComboBoxGetAddTearoffsMethodInfo -instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetAddTearoffsMethodInfo a signature where - overloadedMethod _ = comboBoxGetAddTearoffs - --- method ComboBox::get_button_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SensitivityType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_get_button_sensitivity" gtk_combo_box_get_button_sensitivity :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CUInt - - -comboBoxGetButtonSensitivity :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m SensitivityType -- result -comboBoxGetButtonSensitivity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_button_sensitivity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ComboBoxGetButtonSensitivityMethodInfo -instance (signature ~ (m SensitivityType), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetButtonSensitivityMethodInfo a signature where - overloadedMethod _ = comboBoxGetButtonSensitivity - --- method ComboBox::get_column_span_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_column_span_column" gtk_combo_box_get_column_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetColumnSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetColumnSpanColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_column_span_column _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetColumnSpanColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetColumnSpanColumnMethodInfo a signature where - overloadedMethod _ = comboBoxGetColumnSpanColumn - --- method ComboBox::get_entry_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_entry_text_column" gtk_combo_box_get_entry_text_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetEntryTextColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetEntryTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_entry_text_column _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetEntryTextColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetEntryTextColumnMethodInfo a signature where - overloadedMethod _ = comboBoxGetEntryTextColumn - --- method ComboBox::get_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_focus_on_click" gtk_combo_box_get_focus_on_click :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CInt - - -comboBoxGetFocusOnClick :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Bool -- result -comboBoxGetFocusOnClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_focus_on_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ComboBoxGetFocusOnClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetFocusOnClickMethodInfo a signature where - overloadedMethod _ = comboBoxGetFocusOnClick - --- method ComboBox::get_has_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_has_entry" gtk_combo_box_get_has_entry :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CInt - - -comboBoxGetHasEntry :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Bool -- result -comboBoxGetHasEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_has_entry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ComboBoxGetHasEntryMethodInfo -instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetHasEntryMethodInfo a signature where - overloadedMethod _ = comboBoxGetHasEntry - --- method ComboBox::get_id_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_id_column" gtk_combo_box_get_id_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetIdColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetIdColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_id_column _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetIdColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetIdColumnMethodInfo a signature where - overloadedMethod _ = comboBoxGetIdColumn - --- method ComboBox::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_get_model" gtk_combo_box_get_model :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO (Ptr TreeModel) - - -comboBoxGetModel :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m TreeModel -- result -comboBoxGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_model _obj' - checkUnexpectedReturnNULL "gtk_combo_box_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data ComboBoxGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetModelMethodInfo a signature where - overloadedMethod _ = comboBoxGetModel - --- method ComboBox::get_popup_accessible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_popup_accessible" gtk_combo_box_get_popup_accessible :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO (Ptr Atk.Object) - - -comboBoxGetPopupAccessible :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Atk.Object -- result -comboBoxGetPopupAccessible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_popup_accessible _obj' - checkUnexpectedReturnNULL "gtk_combo_box_get_popup_accessible" result - result' <- (newObject Atk.Object) result - touchManagedPtr _obj - return result' - -data ComboBoxGetPopupAccessibleMethodInfo -instance (signature ~ (m Atk.Object), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetPopupAccessibleMethodInfo a signature where - overloadedMethod _ = comboBoxGetPopupAccessible - --- method ComboBox::get_popup_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_popup_fixed_width" gtk_combo_box_get_popup_fixed_width :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CInt - - -comboBoxGetPopupFixedWidth :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Bool -- result -comboBoxGetPopupFixedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_popup_fixed_width _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ComboBoxGetPopupFixedWidthMethodInfo -instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetPopupFixedWidthMethodInfo a signature where - overloadedMethod _ = comboBoxGetPopupFixedWidth - --- method ComboBox::get_row_span_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_row_span_column" gtk_combo_box_get_row_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetRowSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetRowSpanColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_row_span_column _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetRowSpanColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetRowSpanColumnMethodInfo a signature where - overloadedMethod _ = comboBoxGetRowSpanColumn - --- method ComboBox::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_title" gtk_combo_box_get_title :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO CString - -{-# DEPRECATED comboBoxGetTitle ["(Since version 3.10)"]#-} -comboBoxGetTitle :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m T.Text -- result -comboBoxGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_title _obj' - checkUnexpectedReturnNULL "gtk_combo_box_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ComboBoxGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetTitleMethodInfo a signature where - overloadedMethod _ = comboBoxGetTitle - --- method ComboBox::get_wrap_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_get_wrap_width" gtk_combo_box_get_wrap_width :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO Int32 - - -comboBoxGetWrapWidth :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m Int32 -- result -comboBoxGetWrapWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_wrap_width _obj' - touchManagedPtr _obj - return result - -data ComboBoxGetWrapWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetWrapWidthMethodInfo a signature where - overloadedMethod _ = comboBoxGetWrapWidth - --- method ComboBox::popdown --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_popdown" gtk_combo_box_popdown :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO () - - -comboBoxPopdown :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m () -- result -comboBoxPopdown _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_popdown _obj' - touchManagedPtr _obj - return () - -data ComboBoxPopdownMethodInfo -instance (signature ~ (m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxPopdownMethodInfo a signature where - overloadedMethod _ = comboBoxPopdown - --- method ComboBox::popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 "gtk_combo_box_popup" gtk_combo_box_popup :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - IO () - - -comboBoxPopup :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> m () -- result -comboBoxPopup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_popup _obj' - touchManagedPtr _obj - return () - -data ComboBoxPopupMethodInfo -instance (signature ~ (m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxPopupMethodInfo a signature where - overloadedMethod _ = comboBoxPopup - --- method ComboBox::popup_for_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", 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 "gtk_combo_box_popup_for_device" gtk_combo_box_popup_for_device :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO () - - -comboBoxPopupForDevice :: - (MonadIO m, ComboBoxK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m () -- result -comboBoxPopupForDevice _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - gtk_combo_box_popup_for_device _obj' device' - touchManagedPtr _obj - touchManagedPtr device - return () - -data ComboBoxPopupForDeviceMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ComboBoxK a, Gdk.DeviceK b) => MethodInfo ComboBoxPopupForDeviceMethodInfo a signature where - overloadedMethod _ = comboBoxPopupForDevice - --- method ComboBox::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_active" gtk_combo_box_set_active :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- index_ : TBasicType TInt - IO () - - -comboBoxSetActive :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- index_ - -> m () -- result -comboBoxSetActive _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_active _obj' index_ - touchManagedPtr _obj - return () - -data ComboBoxSetActiveMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveMethodInfo a signature where - overloadedMethod _ = comboBoxSetActive - --- method ComboBox::set_active_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_active_id" gtk_combo_box_set_active_id :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CString -> -- active_id : TBasicType TUTF8 - IO CInt - - -comboBoxSetActiveId :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Maybe (T.Text) -- activeId - -> m Bool -- result -comboBoxSetActiveId _obj activeId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeActiveId <- case activeId of - Nothing -> return nullPtr - Just jActiveId -> do - jActiveId' <- textToCString jActiveId - return jActiveId' - result <- gtk_combo_box_set_active_id _obj' maybeActiveId - let result' = (/= 0) result - touchManagedPtr _obj - freeMem maybeActiveId - return result' - -data ComboBoxSetActiveIdMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveIdMethodInfo a signature where - overloadedMethod _ = comboBoxSetActiveId - --- method ComboBox::set_active_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_active_iter" gtk_combo_box_set_active_iter :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -comboBoxSetActiveIter :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Maybe (TreeIter) -- iter - -> m () -- result -comboBoxSetActiveIter _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - gtk_combo_box_set_active_iter _obj' maybeIter - touchManagedPtr _obj - whenJust iter touchManagedPtr - return () - -data ComboBoxSetActiveIterMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveIterMethodInfo a signature where - overloadedMethod _ = comboBoxSetActiveIter - --- method ComboBox::set_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", 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 "gtk_combo_box_set_add_tearoffs" gtk_combo_box_set_add_tearoffs :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CInt -> -- add_tearoffs : TBasicType TBoolean - IO () - -{-# DEPRECATED comboBoxSetAddTearoffs ["(Since version 3.10)"]#-} -comboBoxSetAddTearoffs :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Bool -- addTearoffs - -> m () -- result -comboBoxSetAddTearoffs _obj addTearoffs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let addTearoffs' = (fromIntegral . fromEnum) addTearoffs - gtk_combo_box_set_add_tearoffs _obj' addTearoffs' - touchManagedPtr _obj - return () - -data ComboBoxSetAddTearoffsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetAddTearoffsMethodInfo a signature where - overloadedMethod _ = comboBoxSetAddTearoffs - --- method ComboBox::set_button_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", 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 "gtk_combo_box_set_button_sensitivity" gtk_combo_box_set_button_sensitivity :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType" - IO () - - -comboBoxSetButtonSensitivity :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> SensitivityType -- sensitivity - -> m () -- result -comboBoxSetButtonSensitivity _obj sensitivity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitivity' = (fromIntegral . fromEnum) sensitivity - gtk_combo_box_set_button_sensitivity _obj' sensitivity' - touchManagedPtr _obj - return () - -data ComboBoxSetButtonSensitivityMethodInfo -instance (signature ~ (SensitivityType -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetButtonSensitivityMethodInfo a signature where - overloadedMethod _ = comboBoxSetButtonSensitivity - --- method ComboBox::set_column_span_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", 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 "gtk_combo_box_set_column_span_column" gtk_combo_box_set_column_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- column_span : TBasicType TInt - IO () - - -comboBoxSetColumnSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- columnSpan - -> m () -- result -comboBoxSetColumnSpanColumn _obj columnSpan = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_column_span_column _obj' columnSpan - touchManagedPtr _obj - return () - -data ComboBoxSetColumnSpanColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetColumnSpanColumnMethodInfo a signature where - overloadedMethod _ = comboBoxSetColumnSpanColumn - --- method ComboBox::set_entry_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", 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 "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- text_column : TBasicType TInt - IO () - - -comboBoxSetEntryTextColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- textColumn - -> m () -- result -comboBoxSetEntryTextColumn _obj textColumn = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_entry_text_column _obj' textColumn - touchManagedPtr _obj - return () - -data ComboBoxSetEntryTextColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetEntryTextColumnMethodInfo a signature where - overloadedMethod _ = comboBoxSetEntryTextColumn - --- method ComboBox::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", 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 "gtk_combo_box_set_focus_on_click" gtk_combo_box_set_focus_on_click :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CInt -> -- focus_on_click : TBasicType TBoolean - IO () - - -comboBoxSetFocusOnClick :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Bool -- focusOnClick - -> m () -- result -comboBoxSetFocusOnClick _obj focusOnClick = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusOnClick' = (fromIntegral . fromEnum) focusOnClick - gtk_combo_box_set_focus_on_click _obj' focusOnClick' - touchManagedPtr _obj - return () - -data ComboBoxSetFocusOnClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetFocusOnClickMethodInfo a signature where - overloadedMethod _ = comboBoxSetFocusOnClick - --- method ComboBox::set_id_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", 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 "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- id_column : TBasicType TInt - IO () - - -comboBoxSetIdColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- idColumn - -> m () -- result -comboBoxSetIdColumn _obj idColumn = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_id_column _obj' idColumn - touchManagedPtr _obj - return () - -data ComboBoxSetIdColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetIdColumnMethodInfo a signature where - overloadedMethod _ = comboBoxSetIdColumn - --- method ComboBox::set_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_model" gtk_combo_box_set_model :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -comboBoxSetModel :: - (MonadIO m, ComboBoxK a, TreeModelK b) => - a -- _obj - -> Maybe (b) -- model - -> m () -- result -comboBoxSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_combo_box_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data ComboBoxSetModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ComboBoxK a, TreeModelK b) => MethodInfo ComboBoxSetModelMethodInfo a signature where - overloadedMethod _ = comboBoxSetModel - --- method ComboBox::set_popup_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", 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 "gtk_combo_box_set_popup_fixed_width" gtk_combo_box_set_popup_fixed_width :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CInt -> -- fixed : TBasicType TBoolean - IO () - - -comboBoxSetPopupFixedWidth :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Bool -- fixed - -> m () -- result -comboBoxSetPopupFixedWidth _obj fixed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fixed' = (fromIntegral . fromEnum) fixed - gtk_combo_box_set_popup_fixed_width _obj' fixed' - touchManagedPtr _obj - return () - -data ComboBoxSetPopupFixedWidthMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetPopupFixedWidthMethodInfo a signature where - overloadedMethod _ = comboBoxSetPopupFixedWidth - --- method ComboBox::set_row_separator_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_row_separator_func" gtk_combo_box_set_row_separator_func :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -comboBoxSetRowSeparatorFunc :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> TreeViewRowSeparatorFunc -- func - -> m () -- result -comboBoxSetRowSeparatorFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let destroy = safeFreeFunPtrPtr - gtk_combo_box_set_row_separator_func _obj' func' data_ destroy - touchManagedPtr _obj - return () - -data ComboBoxSetRowSeparatorFuncMethodInfo -instance (signature ~ (TreeViewRowSeparatorFunc -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetRowSeparatorFuncMethodInfo a signature where - overloadedMethod _ = comboBoxSetRowSeparatorFunc - --- method ComboBox::set_row_span_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", 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 "gtk_combo_box_set_row_span_column" gtk_combo_box_set_row_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- row_span : TBasicType TInt - IO () - - -comboBoxSetRowSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- rowSpan - -> m () -- result -comboBoxSetRowSpanColumn _obj rowSpan = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_row_span_column _obj' rowSpan - touchManagedPtr _obj - return () - -data ComboBoxSetRowSpanColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetRowSpanColumnMethodInfo a signature where - overloadedMethod _ = comboBoxSetRowSpanColumn - --- method ComboBox::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_combo_box_set_title" gtk_combo_box_set_title :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - CString -> -- title : TBasicType TUTF8 - IO () - -{-# DEPRECATED comboBoxSetTitle ["(Since version 3.10)"]#-} -comboBoxSetTitle :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -comboBoxSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_combo_box_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data ComboBoxSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetTitleMethodInfo a signature where - overloadedMethod _ = comboBoxSetTitle - --- method ComboBox::set_wrap_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_wrap_width" gtk_combo_box_set_wrap_width :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- width : TBasicType TInt - IO () - - -comboBoxSetWrapWidth :: - (MonadIO m, ComboBoxK a) => - a -- _obj - -> Int32 -- width - -> m () -- result -comboBoxSetWrapWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_wrap_width _obj' width - touchManagedPtr _obj - return () - -data ComboBoxSetWrapWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetWrapWidthMethodInfo a signature where - overloadedMethod _ = comboBoxSetWrapWidth - - diff --git a/GI/Gtk/Objects/ComboBox.hs-boot b/GI/Gtk/Objects/ComboBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBox.hs-boot +++ /dev/null @@ -1,69 +0,0 @@ -module GI.Gtk.Objects.ComboBox 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 ComboBox = ComboBox (ForeignPtr ComboBox) -instance GObject ComboBox where -class GObject o => ComboBoxK o -instance (GObject o, IsDescendantOf ComboBox o) => ComboBoxK o -data ComboBoxActivePropertyInfo -data ComboBoxActiveIdPropertyInfo -data ComboBoxAddTearoffsPropertyInfo -data ComboBoxButtonSensitivityPropertyInfo -data ComboBoxCellAreaPropertyInfo -data ComboBoxColumnSpanColumnPropertyInfo -data ComboBoxEntryTextColumnPropertyInfo -data ComboBoxFocusOnClickPropertyInfo -data ComboBoxHasEntryPropertyInfo -data ComboBoxHasFramePropertyInfo -data ComboBoxIdColumnPropertyInfo -data ComboBoxModelPropertyInfo -data ComboBoxPopupFixedWidthPropertyInfo -data ComboBoxPopupShownPropertyInfo -data ComboBoxRowSpanColumnPropertyInfo -data ComboBoxTearoffTitlePropertyInfo -data ComboBoxWrapWidthPropertyInfo -data ComboBoxChangedSignalInfo -data ComboBoxFormatEntryTextSignalInfo -data ComboBoxMoveActiveSignalInfo -data ComboBoxPopdownSignalInfo -data ComboBoxPopupSignalInfo -data ComboBoxGetActiveMethodInfo -data ComboBoxGetActiveIdMethodInfo -data ComboBoxGetActiveIterMethodInfo -data ComboBoxGetAddTearoffsMethodInfo -data ComboBoxGetButtonSensitivityMethodInfo -data ComboBoxGetColumnSpanColumnMethodInfo -data ComboBoxGetEntryTextColumnMethodInfo -data ComboBoxGetFocusOnClickMethodInfo -data ComboBoxGetHasEntryMethodInfo -data ComboBoxGetIdColumnMethodInfo -data ComboBoxGetModelMethodInfo -data ComboBoxGetPopupAccessibleMethodInfo -data ComboBoxGetPopupFixedWidthMethodInfo -data ComboBoxGetRowSpanColumnMethodInfo -data ComboBoxGetTitleMethodInfo -data ComboBoxGetWrapWidthMethodInfo -data ComboBoxPopdownMethodInfo -data ComboBoxPopupMethodInfo -data ComboBoxPopupForDeviceMethodInfo -data ComboBoxSetActiveMethodInfo -data ComboBoxSetActiveIdMethodInfo -data ComboBoxSetActiveIterMethodInfo -data ComboBoxSetAddTearoffsMethodInfo -data ComboBoxSetButtonSensitivityMethodInfo -data ComboBoxSetColumnSpanColumnMethodInfo -data ComboBoxSetEntryTextColumnMethodInfo -data ComboBoxSetFocusOnClickMethodInfo -data ComboBoxSetIdColumnMethodInfo -data ComboBoxSetModelMethodInfo -data ComboBoxSetPopupFixedWidthMethodInfo -data ComboBoxSetRowSeparatorFuncMethodInfo -data ComboBoxSetRowSpanColumnMethodInfo -data ComboBoxSetTitleMethodInfo -data ComboBoxSetWrapWidthMethodInfo diff --git a/GI/Gtk/Objects/ComboBoxAccessible.hs b/GI/Gtk/Objects/ComboBoxAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBoxAccessible.hs +++ /dev/null @@ -1,136 +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.Gtk.Objects.ComboBoxAccessible - ( - --- * Exported types - ComboBoxAccessible(..) , - ComboBoxAccessibleK , - toComboBoxAccessible , - noComboBoxAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ComboBoxAccessible = ComboBoxAccessible (ForeignPtr ComboBoxAccessible) -foreign import ccall "gtk_combo_box_accessible_get_type" - c_gtk_combo_box_accessible_get_type :: IO GType - -type instance ParentTypes ComboBoxAccessible = ComboBoxAccessibleParentTypes -type ComboBoxAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection] - -instance GObject ComboBoxAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_combo_box_accessible_get_type - - -class GObject o => ComboBoxAccessibleK o -instance (GObject o, IsDescendantOf ComboBoxAccessible o) => ComboBoxAccessibleK o - -toComboBoxAccessible :: ComboBoxAccessibleK o => o -> IO ComboBoxAccessible -toComboBoxAccessible = unsafeCastTo ComboBoxAccessible - -noComboBoxAccessible :: Maybe ComboBoxAccessible -noComboBoxAccessible = Nothing - -type family ResolveComboBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveComboBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveComboBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveComboBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveComboBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveComboBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveComboBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveComboBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveComboBoxAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveComboBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveComboBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveComboBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveComboBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveComboBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveComboBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveComboBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveComboBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveComboBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveComboBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveComboBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveComboBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveComboBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveComboBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveComboBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveComboBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveComboBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveComboBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveComboBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveComboBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveComboBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveComboBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveComboBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveComboBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveComboBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveComboBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveComboBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveComboBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveComboBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveComboBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveComboBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveComboBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveComboBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveComboBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveComboBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveComboBoxAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveComboBoxAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveComboBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveComboBoxAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveComboBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveComboBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveComboBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveComboBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveComboBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveComboBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveComboBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveComboBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveComboBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveComboBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveComboBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveComboBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveComboBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveComboBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveComboBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveComboBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveComboBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveComboBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveComboBoxAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveComboBoxAccessibleMethod t ComboBoxAccessible, MethodInfo info ComboBoxAccessible p) => IsLabelProxy t (ComboBoxAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveComboBoxAccessibleMethod t ComboBoxAccessible, MethodInfo info ComboBoxAccessible p) => IsLabel t (ComboBoxAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ComboBoxAccessible = ComboBoxAccessibleAttributeList -type ComboBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ComboBoxAccessible = ComboBoxAccessibleSignalList -type ComboBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ComboBoxAccessible.hs-boot b/GI/Gtk/Objects/ComboBoxAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBoxAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ComboBoxAccessible 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 ComboBoxAccessible = ComboBoxAccessible (ForeignPtr ComboBoxAccessible) -instance GObject ComboBoxAccessible where -class GObject o => ComboBoxAccessibleK o -instance (GObject o, IsDescendantOf ComboBoxAccessible o) => ComboBoxAccessibleK o diff --git a/GI/Gtk/Objects/ComboBoxText.hs b/GI/Gtk/Objects/ComboBoxText.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBoxText.hs +++ /dev/null @@ -1,834 +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.Gtk.Objects.ComboBoxText - ( - --- * Exported types - ComboBoxText(..) , - ComboBoxTextK , - toComboBoxText , - noComboBoxText , - - - -- * Methods --- ** comboBoxTextAppend - ComboBoxTextAppendMethodInfo , - comboBoxTextAppend , - - --- ** comboBoxTextAppendText - ComboBoxTextAppendTextMethodInfo , - comboBoxTextAppendText , - - --- ** comboBoxTextGetActiveText - ComboBoxTextGetActiveTextMethodInfo , - comboBoxTextGetActiveText , - - --- ** comboBoxTextInsert - ComboBoxTextInsertMethodInfo , - comboBoxTextInsert , - - --- ** comboBoxTextInsertText - ComboBoxTextInsertTextMethodInfo , - comboBoxTextInsertText , - - --- ** comboBoxTextNew - comboBoxTextNew , - - --- ** comboBoxTextNewWithEntry - comboBoxTextNewWithEntry , - - --- ** comboBoxTextPrepend - ComboBoxTextPrependMethodInfo , - comboBoxTextPrepend , - - --- ** comboBoxTextPrependText - ComboBoxTextPrependTextMethodInfo , - comboBoxTextPrependText , - - --- ** comboBoxTextRemove - ComboBoxTextRemoveMethodInfo , - comboBoxTextRemove , - - --- ** comboBoxTextRemoveAll - ComboBoxTextRemoveAllMethodInfo , - comboBoxTextRemoveAll , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ComboBoxText = ComboBoxText (ForeignPtr ComboBoxText) -foreign import ccall "gtk_combo_box_text_get_type" - c_gtk_combo_box_text_get_type :: IO GType - -type instance ParentTypes ComboBoxText = ComboBoxTextParentTypes -type ComboBoxTextParentTypes = '[ComboBox, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, CellLayout] - -instance GObject ComboBoxText where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_combo_box_text_get_type - - -class GObject o => ComboBoxTextK o -instance (GObject o, IsDescendantOf ComboBoxText o) => ComboBoxTextK o - -toComboBoxText :: ComboBoxTextK o => o -> IO ComboBoxText -toComboBoxText = unsafeCastTo ComboBoxText - -noComboBoxText :: Maybe ComboBoxText -noComboBoxText = Nothing - -type family ResolveComboBoxTextMethod (t :: Symbol) (o :: *) :: * where - ResolveComboBoxTextMethod "activate" o = WidgetActivateMethodInfo - ResolveComboBoxTextMethod "add" o = ContainerAddMethodInfo - ResolveComboBoxTextMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveComboBoxTextMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveComboBoxTextMethod "addChild" o = BuildableAddChildMethodInfo - ResolveComboBoxTextMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveComboBoxTextMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveComboBoxTextMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveComboBoxTextMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveComboBoxTextMethod "append" o = ComboBoxTextAppendMethodInfo - ResolveComboBoxTextMethod "appendText" o = ComboBoxTextAppendTextMethodInfo - ResolveComboBoxTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveComboBoxTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveComboBoxTextMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveComboBoxTextMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveComboBoxTextMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveComboBoxTextMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveComboBoxTextMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveComboBoxTextMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveComboBoxTextMethod "childType" o = ContainerChildTypeMethodInfo - ResolveComboBoxTextMethod "classPath" o = WidgetClassPathMethodInfo - ResolveComboBoxTextMethod "clear" o = CellLayoutClearMethodInfo - ResolveComboBoxTextMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveComboBoxTextMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveComboBoxTextMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveComboBoxTextMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveComboBoxTextMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveComboBoxTextMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveComboBoxTextMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveComboBoxTextMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveComboBoxTextMethod "destroy" o = WidgetDestroyMethodInfo - ResolveComboBoxTextMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveComboBoxTextMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveComboBoxTextMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveComboBoxTextMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveComboBoxTextMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveComboBoxTextMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveComboBoxTextMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveComboBoxTextMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveComboBoxTextMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveComboBoxTextMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveComboBoxTextMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveComboBoxTextMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveComboBoxTextMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveComboBoxTextMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveComboBoxTextMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveComboBoxTextMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveComboBoxTextMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveComboBoxTextMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveComboBoxTextMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveComboBoxTextMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveComboBoxTextMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveComboBoxTextMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveComboBoxTextMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveComboBoxTextMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveComboBoxTextMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveComboBoxTextMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveComboBoxTextMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveComboBoxTextMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveComboBoxTextMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveComboBoxTextMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveComboBoxTextMethod "draw" o = WidgetDrawMethodInfo - ResolveComboBoxTextMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveComboBoxTextMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveComboBoxTextMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveComboBoxTextMethod "event" o = WidgetEventMethodInfo - ResolveComboBoxTextMethod "forall" o = ContainerForallMethodInfo - ResolveComboBoxTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveComboBoxTextMethod "foreach" o = ContainerForeachMethodInfo - ResolveComboBoxTextMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveComboBoxTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveComboBoxTextMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveComboBoxTextMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveComboBoxTextMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveComboBoxTextMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveComboBoxTextMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveComboBoxTextMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveComboBoxTextMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveComboBoxTextMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveComboBoxTextMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveComboBoxTextMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveComboBoxTextMethod "hide" o = WidgetHideMethodInfo - ResolveComboBoxTextMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveComboBoxTextMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveComboBoxTextMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveComboBoxTextMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveComboBoxTextMethod "insert" o = ComboBoxTextInsertMethodInfo - ResolveComboBoxTextMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveComboBoxTextMethod "insertText" o = ComboBoxTextInsertTextMethodInfo - ResolveComboBoxTextMethod "intersect" o = WidgetIntersectMethodInfo - ResolveComboBoxTextMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveComboBoxTextMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveComboBoxTextMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveComboBoxTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveComboBoxTextMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveComboBoxTextMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveComboBoxTextMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveComboBoxTextMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveComboBoxTextMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveComboBoxTextMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveComboBoxTextMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveComboBoxTextMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveComboBoxTextMethod "map" o = WidgetMapMethodInfo - ResolveComboBoxTextMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveComboBoxTextMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveComboBoxTextMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveComboBoxTextMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveComboBoxTextMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveComboBoxTextMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveComboBoxTextMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveComboBoxTextMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveComboBoxTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveComboBoxTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveComboBoxTextMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveComboBoxTextMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveComboBoxTextMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveComboBoxTextMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveComboBoxTextMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveComboBoxTextMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveComboBoxTextMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveComboBoxTextMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveComboBoxTextMethod "path" o = WidgetPathMethodInfo - ResolveComboBoxTextMethod "popdown" o = ComboBoxPopdownMethodInfo - ResolveComboBoxTextMethod "popup" o = ComboBoxPopupMethodInfo - ResolveComboBoxTextMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo - ResolveComboBoxTextMethod "prepend" o = ComboBoxTextPrependMethodInfo - ResolveComboBoxTextMethod "prependText" o = ComboBoxTextPrependTextMethodInfo - ResolveComboBoxTextMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveComboBoxTextMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveComboBoxTextMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveComboBoxTextMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveComboBoxTextMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveComboBoxTextMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveComboBoxTextMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveComboBoxTextMethod "realize" o = WidgetRealizeMethodInfo - ResolveComboBoxTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveComboBoxTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveComboBoxTextMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveComboBoxTextMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveComboBoxTextMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveComboBoxTextMethod "removeAll" o = ComboBoxTextRemoveAllMethodInfo - ResolveComboBoxTextMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveComboBoxTextMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveComboBoxTextMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveComboBoxTextMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveComboBoxTextMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveComboBoxTextMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveComboBoxTextMethod "reparent" o = WidgetReparentMethodInfo - ResolveComboBoxTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveComboBoxTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveComboBoxTextMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveComboBoxTextMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveComboBoxTextMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveComboBoxTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveComboBoxTextMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveComboBoxTextMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveComboBoxTextMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveComboBoxTextMethod "show" o = WidgetShowMethodInfo - ResolveComboBoxTextMethod "showAll" o = WidgetShowAllMethodInfo - ResolveComboBoxTextMethod "showNow" o = WidgetShowNowMethodInfo - ResolveComboBoxTextMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveComboBoxTextMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveComboBoxTextMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveComboBoxTextMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveComboBoxTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveComboBoxTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveComboBoxTextMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveComboBoxTextMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveComboBoxTextMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveComboBoxTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveComboBoxTextMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveComboBoxTextMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveComboBoxTextMethod "unmap" o = WidgetUnmapMethodInfo - ResolveComboBoxTextMethod "unparent" o = WidgetUnparentMethodInfo - ResolveComboBoxTextMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveComboBoxTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveComboBoxTextMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveComboBoxTextMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveComboBoxTextMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveComboBoxTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveComboBoxTextMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveComboBoxTextMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveComboBoxTextMethod "getActive" o = ComboBoxGetActiveMethodInfo - ResolveComboBoxTextMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo - ResolveComboBoxTextMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo - ResolveComboBoxTextMethod "getActiveText" o = ComboBoxTextGetActiveTextMethodInfo - ResolveComboBoxTextMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo - ResolveComboBoxTextMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveComboBoxTextMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveComboBoxTextMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveComboBoxTextMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveComboBoxTextMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveComboBoxTextMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveComboBoxTextMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveComboBoxTextMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveComboBoxTextMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo - ResolveComboBoxTextMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveComboBoxTextMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveComboBoxTextMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveComboBoxTextMethod "getChild" o = BinGetChildMethodInfo - ResolveComboBoxTextMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveComboBoxTextMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveComboBoxTextMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveComboBoxTextMethod "getClip" o = WidgetGetClipMethodInfo - ResolveComboBoxTextMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveComboBoxTextMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo - ResolveComboBoxTextMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveComboBoxTextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveComboBoxTextMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveComboBoxTextMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveComboBoxTextMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveComboBoxTextMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveComboBoxTextMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveComboBoxTextMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo - ResolveComboBoxTextMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveComboBoxTextMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveComboBoxTextMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveComboBoxTextMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveComboBoxTextMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo - ResolveComboBoxTextMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveComboBoxTextMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveComboBoxTextMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveComboBoxTextMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveComboBoxTextMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveComboBoxTextMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo - ResolveComboBoxTextMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveComboBoxTextMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveComboBoxTextMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveComboBoxTextMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveComboBoxTextMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo - ResolveComboBoxTextMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveComboBoxTextMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveComboBoxTextMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveComboBoxTextMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveComboBoxTextMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveComboBoxTextMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveComboBoxTextMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveComboBoxTextMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveComboBoxTextMethod "getModel" o = ComboBoxGetModelMethodInfo - ResolveComboBoxTextMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveComboBoxTextMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveComboBoxTextMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveComboBoxTextMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveComboBoxTextMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveComboBoxTextMethod "getParent" o = WidgetGetParentMethodInfo - ResolveComboBoxTextMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveComboBoxTextMethod "getPath" o = WidgetGetPathMethodInfo - ResolveComboBoxTextMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveComboBoxTextMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveComboBoxTextMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo - ResolveComboBoxTextMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo - ResolveComboBoxTextMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveComboBoxTextMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveComboBoxTextMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveComboBoxTextMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveComboBoxTextMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveComboBoxTextMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveComboBoxTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveComboBoxTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveComboBoxTextMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveComboBoxTextMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveComboBoxTextMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveComboBoxTextMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveComboBoxTextMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveComboBoxTextMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveComboBoxTextMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo - ResolveComboBoxTextMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveComboBoxTextMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveComboBoxTextMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveComboBoxTextMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveComboBoxTextMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveComboBoxTextMethod "getState" o = WidgetGetStateMethodInfo - ResolveComboBoxTextMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveComboBoxTextMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveComboBoxTextMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveComboBoxTextMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveComboBoxTextMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveComboBoxTextMethod "getTitle" o = ComboBoxGetTitleMethodInfo - ResolveComboBoxTextMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveComboBoxTextMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveComboBoxTextMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveComboBoxTextMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveComboBoxTextMethod "getValign" o = WidgetGetValignMethodInfo - ResolveComboBoxTextMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveComboBoxTextMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveComboBoxTextMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveComboBoxTextMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveComboBoxTextMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveComboBoxTextMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveComboBoxTextMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo - ResolveComboBoxTextMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveComboBoxTextMethod "setActive" o = ComboBoxSetActiveMethodInfo - ResolveComboBoxTextMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo - ResolveComboBoxTextMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo - ResolveComboBoxTextMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo - ResolveComboBoxTextMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveComboBoxTextMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveComboBoxTextMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveComboBoxTextMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveComboBoxTextMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo - ResolveComboBoxTextMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveComboBoxTextMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveComboBoxTextMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveComboBoxTextMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveComboBoxTextMethod "setClip" o = WidgetSetClipMethodInfo - ResolveComboBoxTextMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo - ResolveComboBoxTextMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveComboBoxTextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveComboBoxTextMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveComboBoxTextMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveComboBoxTextMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveComboBoxTextMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveComboBoxTextMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo - ResolveComboBoxTextMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveComboBoxTextMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveComboBoxTextMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveComboBoxTextMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveComboBoxTextMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo - ResolveComboBoxTextMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveComboBoxTextMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveComboBoxTextMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveComboBoxTextMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveComboBoxTextMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveComboBoxTextMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveComboBoxTextMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveComboBoxTextMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveComboBoxTextMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo - ResolveComboBoxTextMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveComboBoxTextMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveComboBoxTextMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveComboBoxTextMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveComboBoxTextMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveComboBoxTextMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveComboBoxTextMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveComboBoxTextMethod "setModel" o = ComboBoxSetModelMethodInfo - ResolveComboBoxTextMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveComboBoxTextMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveComboBoxTextMethod "setParent" o = WidgetSetParentMethodInfo - ResolveComboBoxTextMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveComboBoxTextMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo - ResolveComboBoxTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveComboBoxTextMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveComboBoxTextMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveComboBoxTextMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveComboBoxTextMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveComboBoxTextMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveComboBoxTextMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo - ResolveComboBoxTextMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo - ResolveComboBoxTextMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveComboBoxTextMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveComboBoxTextMethod "setState" o = WidgetSetStateMethodInfo - ResolveComboBoxTextMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveComboBoxTextMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveComboBoxTextMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveComboBoxTextMethod "setTitle" o = ComboBoxSetTitleMethodInfo - ResolveComboBoxTextMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveComboBoxTextMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveComboBoxTextMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveComboBoxTextMethod "setValign" o = WidgetSetValignMethodInfo - ResolveComboBoxTextMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveComboBoxTextMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveComboBoxTextMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveComboBoxTextMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveComboBoxTextMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveComboBoxTextMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo - ResolveComboBoxTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveComboBoxTextMethod t ComboBoxText, MethodInfo info ComboBoxText p) => IsLabelProxy t (ComboBoxText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveComboBoxTextMethod t ComboBoxText, MethodInfo info ComboBoxText p) => IsLabel t (ComboBoxText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ComboBoxText = ComboBoxTextAttributeList -type ComboBoxTextAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ComboBoxText = ComboBoxTextSignalList -type ComboBoxTextSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ComboBoxText::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBoxText") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_text_new" gtk_combo_box_text_new :: - IO (Ptr ComboBoxText) - - -comboBoxTextNew :: - (MonadIO m) => - m ComboBoxText -- result -comboBoxTextNew = liftIO $ do - result <- gtk_combo_box_text_new - checkUnexpectedReturnNULL "gtk_combo_box_text_new" result - result' <- (newObject ComboBoxText) result - return result' - --- method ComboBoxText::new_with_entry --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ComboBoxText") --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_text_new_with_entry" gtk_combo_box_text_new_with_entry :: - IO (Ptr ComboBoxText) - - -comboBoxTextNewWithEntry :: - (MonadIO m) => - m ComboBoxText -- result -comboBoxTextNewWithEntry = liftIO $ do - result <- gtk_combo_box_text_new_with_entry - checkUnexpectedReturnNULL "gtk_combo_box_text_new_with_entry" result - result' <- (newObject ComboBoxText) result - return result' - --- method ComboBoxText::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_combo_box_text_append" gtk_combo_box_text_append :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - CString -> -- id : TBasicType TUTF8 - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextAppend :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> Maybe (T.Text) -- id - -> T.Text -- text - -> m () -- result -comboBoxTextAppend _obj id text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeId <- case id of - Nothing -> return nullPtr - Just jId -> do - jId' <- textToCString jId - return jId' - text' <- textToCString text - gtk_combo_box_text_append _obj' maybeId text' - touchManagedPtr _obj - freeMem maybeId - freeMem text' - return () - -data ComboBoxTextAppendMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextAppendMethodInfo a signature where - overloadedMethod _ = comboBoxTextAppend - --- method ComboBoxText::append_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_combo_box_text_append_text" gtk_combo_box_text_append_text :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextAppendText :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -comboBoxTextAppendText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_combo_box_text_append_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data ComboBoxTextAppendTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextAppendTextMethodInfo a signature where - overloadedMethod _ = comboBoxTextAppendText - --- method ComboBoxText::get_active_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", 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 "gtk_combo_box_text_get_active_text" gtk_combo_box_text_get_active_text :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - IO CString - - -comboBoxTextGetActiveText :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> m T.Text -- result -comboBoxTextGetActiveText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_text_get_active_text _obj' - checkUnexpectedReturnNULL "gtk_combo_box_text_get_active_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data ComboBoxTextGetActiveTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextGetActiveTextMethodInfo a signature where - overloadedMethod _ = comboBoxTextGetActiveText - --- method ComboBoxText::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", 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},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_combo_box_text_insert" gtk_combo_box_text_insert :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt - CString -> -- id : TBasicType TUTF8 - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextInsert :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> Int32 -- position - -> Maybe (T.Text) -- id - -> T.Text -- text - -> m () -- result -comboBoxTextInsert _obj position id text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeId <- case id of - Nothing -> return nullPtr - Just jId -> do - jId' <- textToCString jId - return jId' - text' <- textToCString text - gtk_combo_box_text_insert _obj' position maybeId text' - touchManagedPtr _obj - freeMem maybeId - freeMem text' - return () - -data ComboBoxTextInsertMethodInfo -instance (signature ~ (Int32 -> Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextInsertMethodInfo a signature where - overloadedMethod _ = comboBoxTextInsert - --- method ComboBoxText::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", 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},Arg {argCName = "text", 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 "gtk_combo_box_text_insert_text" gtk_combo_box_text_insert_text :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextInsertText :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> Int32 -- position - -> T.Text -- text - -> m () -- result -comboBoxTextInsertText _obj position text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_combo_box_text_insert_text _obj' position text' - touchManagedPtr _obj - freeMem text' - return () - -data ComboBoxTextInsertTextMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextInsertTextMethodInfo a signature where - overloadedMethod _ = comboBoxTextInsertText - --- method ComboBoxText::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_combo_box_text_prepend" gtk_combo_box_text_prepend :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - CString -> -- id : TBasicType TUTF8 - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextPrepend :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> Maybe (T.Text) -- id - -> T.Text -- text - -> m () -- result -comboBoxTextPrepend _obj id text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeId <- case id of - Nothing -> return nullPtr - Just jId -> do - jId' <- textToCString jId - return jId' - text' <- textToCString text - gtk_combo_box_text_prepend _obj' maybeId text' - touchManagedPtr _obj - freeMem maybeId - freeMem text' - return () - -data ComboBoxTextPrependMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextPrependMethodInfo a signature where - overloadedMethod _ = comboBoxTextPrepend - --- method ComboBoxText::prepend_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_combo_box_text_prepend_text" gtk_combo_box_text_prepend_text :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextPrependText :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -comboBoxTextPrependText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_combo_box_text_prepend_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data ComboBoxTextPrependTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextPrependTextMethodInfo a signature where - overloadedMethod _ = comboBoxTextPrependText - --- method ComboBoxText::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", 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 "gtk_combo_box_text_remove" gtk_combo_box_text_remove :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt - IO () - - -comboBoxTextRemove :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -comboBoxTextRemove _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_text_remove _obj' position - touchManagedPtr _obj - return () - -data ComboBoxTextRemoveMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextRemoveMethodInfo a signature where - overloadedMethod _ = comboBoxTextRemove - --- method ComboBoxText::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", 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 "gtk_combo_box_text_remove_all" gtk_combo_box_text_remove_all :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - IO () - - -comboBoxTextRemoveAll :: - (MonadIO m, ComboBoxTextK a) => - a -- _obj - -> m () -- result -comboBoxTextRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_text_remove_all _obj' - touchManagedPtr _obj - return () - -data ComboBoxTextRemoveAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextRemoveAllMethodInfo a signature where - overloadedMethod _ = comboBoxTextRemoveAll - - diff --git a/GI/Gtk/Objects/ComboBoxText.hs-boot b/GI/Gtk/Objects/ComboBoxText.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ComboBoxText.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.ComboBoxText 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 ComboBoxText = ComboBoxText (ForeignPtr ComboBoxText) -instance GObject ComboBoxText where -class GObject o => ComboBoxTextK o -instance (GObject o, IsDescendantOf ComboBoxText o) => ComboBoxTextK o -data ComboBoxTextAppendMethodInfo -data ComboBoxTextAppendTextMethodInfo -data ComboBoxTextGetActiveTextMethodInfo -data ComboBoxTextInsertMethodInfo -data ComboBoxTextInsertTextMethodInfo -data ComboBoxTextPrependMethodInfo -data ComboBoxTextPrependTextMethodInfo -data ComboBoxTextRemoveMethodInfo -data ComboBoxTextRemoveAllMethodInfo diff --git a/GI/Gtk/Objects/Container.hs b/GI/Gtk/Objects/Container.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Container.hs +++ /dev/null @@ -1,1753 +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.Gtk.Objects.Container - ( - --- * Exported types - Container(..) , - ContainerK , - toContainer , - noContainer , - - - -- * Methods --- ** containerAdd - ContainerAddMethodInfo , - containerAdd , - - --- ** containerCheckResize - ContainerCheckResizeMethodInfo , - containerCheckResize , - - --- ** containerChildGetProperty - ContainerChildGetPropertyMethodInfo , - containerChildGetProperty , - - --- ** containerChildNotify - ContainerChildNotifyMethodInfo , - containerChildNotify , - - --- ** containerChildNotifyByPspec - ContainerChildNotifyByPspecMethodInfo , - containerChildNotifyByPspec , - - --- ** containerChildSetProperty - ContainerChildSetPropertyMethodInfo , - containerChildSetProperty , - - --- ** containerChildType - ContainerChildTypeMethodInfo , - containerChildType , - - --- ** containerForall - ContainerForallMethodInfo , - containerForall , - - --- ** containerForeach - ContainerForeachMethodInfo , - containerForeach , - - --- ** containerGetBorderWidth - ContainerGetBorderWidthMethodInfo , - containerGetBorderWidth , - - --- ** containerGetChildren - ContainerGetChildrenMethodInfo , - containerGetChildren , - - --- ** containerGetFocusChain - ContainerGetFocusChainMethodInfo , - containerGetFocusChain , - - --- ** containerGetFocusChild - ContainerGetFocusChildMethodInfo , - containerGetFocusChild , - - --- ** containerGetFocusHadjustment - ContainerGetFocusHadjustmentMethodInfo , - containerGetFocusHadjustment , - - --- ** containerGetFocusVadjustment - ContainerGetFocusVadjustmentMethodInfo , - containerGetFocusVadjustment , - - --- ** containerGetPathForChild - ContainerGetPathForChildMethodInfo , - containerGetPathForChild , - - --- ** containerGetResizeMode - ContainerGetResizeModeMethodInfo , - containerGetResizeMode , - - --- ** containerPropagateDraw - ContainerPropagateDrawMethodInfo , - containerPropagateDraw , - - --- ** containerRemove - ContainerRemoveMethodInfo , - containerRemove , - - --- ** containerResizeChildren - ContainerResizeChildrenMethodInfo , - containerResizeChildren , - - --- ** containerSetBorderWidth - ContainerSetBorderWidthMethodInfo , - containerSetBorderWidth , - - --- ** containerSetFocusChain - ContainerSetFocusChainMethodInfo , - containerSetFocusChain , - - --- ** containerSetFocusChild - ContainerSetFocusChildMethodInfo , - containerSetFocusChild , - - --- ** containerSetFocusHadjustment - ContainerSetFocusHadjustmentMethodInfo , - containerSetFocusHadjustment , - - --- ** containerSetFocusVadjustment - ContainerSetFocusVadjustmentMethodInfo , - containerSetFocusVadjustment , - - --- ** containerSetReallocateRedraws - ContainerSetReallocateRedrawsMethodInfo , - containerSetReallocateRedraws , - - --- ** containerSetResizeMode - ContainerSetResizeModeMethodInfo , - containerSetResizeMode , - - --- ** containerUnsetFocusChain - ContainerUnsetFocusChainMethodInfo , - containerUnsetFocusChain , - - - - - -- * Properties --- ** BorderWidth - ContainerBorderWidthPropertyInfo , - constructContainerBorderWidth , - containerBorderWidth , - getContainerBorderWidth , - setContainerBorderWidth , - - --- ** Child - ContainerChildPropertyInfo , - clearContainerChild , - constructContainerChild , - containerChild , - setContainerChild , - - --- ** ResizeMode - ContainerResizeModePropertyInfo , - constructContainerResizeMode , - containerResizeMode , - getContainerResizeMode , - setContainerResizeMode , - - - - - -- * Signals --- ** Add - ContainerAddCallback , - ContainerAddCallbackC , - ContainerAddSignalInfo , - afterContainerAdd , - containerAddCallbackWrapper , - containerAddClosure , - mkContainerAddCallback , - noContainerAddCallback , - onContainerAdd , - - --- ** CheckResize - ContainerCheckResizeCallback , - ContainerCheckResizeCallbackC , - ContainerCheckResizeSignalInfo , - afterContainerCheckResize , - containerCheckResizeCallbackWrapper , - containerCheckResizeClosure , - mkContainerCheckResizeCallback , - noContainerCheckResizeCallback , - onContainerCheckResize , - - --- ** Remove - ContainerRemoveCallback , - ContainerRemoveCallbackC , - ContainerRemoveSignalInfo , - afterContainerRemove , - containerRemoveCallbackWrapper , - containerRemoveClosure , - mkContainerRemoveCallback , - noContainerRemoveCallback , - onContainerRemove , - - --- ** SetFocusChild - ContainerSetFocusChildCallback , - ContainerSetFocusChildCallbackC , - ContainerSetFocusChildSignalInfo , - afterContainerSetFocusChild , - containerSetFocusChildCallbackWrapper , - containerSetFocusChildClosure , - mkContainerSetFocusChildCallback , - noContainerSetFocusChildCallback , - onContainerSetFocusChild , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Cairo as Cairo - -newtype Container = Container (ForeignPtr Container) -foreign import ccall "gtk_container_get_type" - c_gtk_container_get_type :: IO GType - -type instance ParentTypes Container = ContainerParentTypes -type ContainerParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Container where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_container_get_type - - -class GObject o => ContainerK o -instance (GObject o, IsDescendantOf Container o) => ContainerK o - -toContainer :: ContainerK o => o -> IO Container -toContainer = unsafeCastTo Container - -noContainer :: Maybe Container -noContainer = Nothing - -type family ResolveContainerMethod (t :: Symbol) (o :: *) :: * where - ResolveContainerMethod "activate" o = WidgetActivateMethodInfo - ResolveContainerMethod "add" o = ContainerAddMethodInfo - ResolveContainerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveContainerMethod "addChild" o = BuildableAddChildMethodInfo - ResolveContainerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveContainerMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveContainerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveContainerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveContainerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContainerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContainerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveContainerMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveContainerMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveContainerMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveContainerMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveContainerMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveContainerMethod "childType" o = ContainerChildTypeMethodInfo - ResolveContainerMethod "classPath" o = WidgetClassPathMethodInfo - ResolveContainerMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveContainerMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveContainerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveContainerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveContainerMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveContainerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveContainerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveContainerMethod "destroy" o = WidgetDestroyMethodInfo - ResolveContainerMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveContainerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveContainerMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveContainerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveContainerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveContainerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveContainerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveContainerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveContainerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveContainerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveContainerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveContainerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveContainerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveContainerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveContainerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveContainerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveContainerMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveContainerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveContainerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveContainerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveContainerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveContainerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveContainerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveContainerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveContainerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveContainerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveContainerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveContainerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveContainerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveContainerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveContainerMethod "draw" o = WidgetDrawMethodInfo - ResolveContainerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveContainerMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveContainerMethod "event" o = WidgetEventMethodInfo - ResolveContainerMethod "forall" o = ContainerForallMethodInfo - ResolveContainerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContainerMethod "foreach" o = ContainerForeachMethodInfo - ResolveContainerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveContainerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContainerMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveContainerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveContainerMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveContainerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveContainerMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveContainerMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveContainerMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveContainerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveContainerMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveContainerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveContainerMethod "hide" o = WidgetHideMethodInfo - ResolveContainerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveContainerMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveContainerMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveContainerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveContainerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveContainerMethod "intersect" o = WidgetIntersectMethodInfo - ResolveContainerMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveContainerMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveContainerMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveContainerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContainerMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveContainerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveContainerMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveContainerMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveContainerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveContainerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveContainerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveContainerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveContainerMethod "map" o = WidgetMapMethodInfo - ResolveContainerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveContainerMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveContainerMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveContainerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveContainerMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveContainerMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveContainerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveContainerMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveContainerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContainerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContainerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveContainerMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveContainerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveContainerMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveContainerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveContainerMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveContainerMethod "path" o = WidgetPathMethodInfo - ResolveContainerMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveContainerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveContainerMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveContainerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveContainerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveContainerMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveContainerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveContainerMethod "realize" o = WidgetRealizeMethodInfo - ResolveContainerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContainerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContainerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveContainerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveContainerMethod "remove" o = ContainerRemoveMethodInfo - ResolveContainerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveContainerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveContainerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveContainerMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveContainerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveContainerMethod "reparent" o = WidgetReparentMethodInfo - ResolveContainerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContainerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContainerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveContainerMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveContainerMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveContainerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContainerMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveContainerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveContainerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveContainerMethod "show" o = WidgetShowMethodInfo - ResolveContainerMethod "showAll" o = WidgetShowAllMethodInfo - ResolveContainerMethod "showNow" o = WidgetShowNowMethodInfo - ResolveContainerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveContainerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveContainerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveContainerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContainerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContainerMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveContainerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveContainerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveContainerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContainerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveContainerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveContainerMethod "unmap" o = WidgetUnmapMethodInfo - ResolveContainerMethod "unparent" o = WidgetUnparentMethodInfo - ResolveContainerMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveContainerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContainerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveContainerMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveContainerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveContainerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContainerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveContainerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveContainerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveContainerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveContainerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveContainerMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveContainerMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveContainerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveContainerMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveContainerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveContainerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveContainerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveContainerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveContainerMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveContainerMethod "getClip" o = WidgetGetClipMethodInfo - ResolveContainerMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveContainerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveContainerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContainerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveContainerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveContainerMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveContainerMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveContainerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveContainerMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveContainerMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveContainerMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveContainerMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveContainerMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveContainerMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveContainerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveContainerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveContainerMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveContainerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveContainerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveContainerMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveContainerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveContainerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveContainerMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveContainerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveContainerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveContainerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveContainerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveContainerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveContainerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveContainerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveContainerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveContainerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveContainerMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveContainerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveContainerMethod "getParent" o = WidgetGetParentMethodInfo - ResolveContainerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveContainerMethod "getPath" o = WidgetGetPathMethodInfo - ResolveContainerMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveContainerMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveContainerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveContainerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveContainerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveContainerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveContainerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveContainerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveContainerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContainerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContainerMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveContainerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveContainerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveContainerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveContainerMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveContainerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveContainerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveContainerMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveContainerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveContainerMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveContainerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveContainerMethod "getState" o = WidgetGetStateMethodInfo - ResolveContainerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveContainerMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveContainerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveContainerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveContainerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveContainerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveContainerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveContainerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveContainerMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveContainerMethod "getValign" o = WidgetGetValignMethodInfo - ResolveContainerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveContainerMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveContainerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveContainerMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveContainerMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveContainerMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveContainerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveContainerMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveContainerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveContainerMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveContainerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveContainerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveContainerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveContainerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveContainerMethod "setClip" o = WidgetSetClipMethodInfo - ResolveContainerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveContainerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContainerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveContainerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveContainerMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveContainerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveContainerMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveContainerMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveContainerMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveContainerMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveContainerMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveContainerMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveContainerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveContainerMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveContainerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveContainerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveContainerMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveContainerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveContainerMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveContainerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveContainerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveContainerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveContainerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveContainerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveContainerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveContainerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveContainerMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveContainerMethod "setParent" o = WidgetSetParentMethodInfo - ResolveContainerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveContainerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContainerMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveContainerMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveContainerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveContainerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveContainerMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveContainerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveContainerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveContainerMethod "setState" o = WidgetSetStateMethodInfo - ResolveContainerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveContainerMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveContainerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveContainerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveContainerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveContainerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveContainerMethod "setValign" o = WidgetSetValignMethodInfo - ResolveContainerMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveContainerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveContainerMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveContainerMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveContainerMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveContainerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContainerMethod t Container, MethodInfo info Container p) => IsLabelProxy t (Container -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContainerMethod t Container, MethodInfo info Container p) => IsLabel t (Container -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Container::add -type ContainerAddCallback = - Widget -> - IO () - -noContainerAddCallback :: Maybe ContainerAddCallback -noContainerAddCallback = Nothing - -type ContainerAddCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkContainerAddCallback :: ContainerAddCallbackC -> IO (FunPtr ContainerAddCallbackC) - -containerAddClosure :: ContainerAddCallback -> IO Closure -containerAddClosure cb = newCClosure =<< mkContainerAddCallback wrapped - where wrapped = containerAddCallbackWrapper cb - -containerAddCallbackWrapper :: - ContainerAddCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -containerAddCallbackWrapper _cb _ object _ = do - object' <- (newObject Widget) object - _cb object' - -onContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId -onContainerAdd obj cb = liftIO $ connectContainerAdd obj cb SignalConnectBefore -afterContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId -afterContainerAdd obj cb = connectContainerAdd obj cb SignalConnectAfter - -connectContainerAdd :: (GObject a, MonadIO m) => - a -> ContainerAddCallback -> SignalConnectMode -> m SignalHandlerId -connectContainerAdd obj cb after = liftIO $ do - cb' <- mkContainerAddCallback (containerAddCallbackWrapper cb) - connectSignalFunPtr obj "add" cb' after - --- signal Container::check-resize -type ContainerCheckResizeCallback = - IO () - -noContainerCheckResizeCallback :: Maybe ContainerCheckResizeCallback -noContainerCheckResizeCallback = Nothing - -type ContainerCheckResizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkContainerCheckResizeCallback :: ContainerCheckResizeCallbackC -> IO (FunPtr ContainerCheckResizeCallbackC) - -containerCheckResizeClosure :: ContainerCheckResizeCallback -> IO Closure -containerCheckResizeClosure cb = newCClosure =<< mkContainerCheckResizeCallback wrapped - where wrapped = containerCheckResizeCallbackWrapper cb - -containerCheckResizeCallbackWrapper :: - ContainerCheckResizeCallback -> - Ptr () -> - Ptr () -> - IO () -containerCheckResizeCallbackWrapper _cb _ _ = do - _cb - -onContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId -onContainerCheckResize obj cb = liftIO $ connectContainerCheckResize obj cb SignalConnectBefore -afterContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId -afterContainerCheckResize obj cb = connectContainerCheckResize obj cb SignalConnectAfter - -connectContainerCheckResize :: (GObject a, MonadIO m) => - a -> ContainerCheckResizeCallback -> SignalConnectMode -> m SignalHandlerId -connectContainerCheckResize obj cb after = liftIO $ do - cb' <- mkContainerCheckResizeCallback (containerCheckResizeCallbackWrapper cb) - connectSignalFunPtr obj "check-resize" cb' after - --- signal Container::remove -type ContainerRemoveCallback = - Widget -> - IO () - -noContainerRemoveCallback :: Maybe ContainerRemoveCallback -noContainerRemoveCallback = Nothing - -type ContainerRemoveCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkContainerRemoveCallback :: ContainerRemoveCallbackC -> IO (FunPtr ContainerRemoveCallbackC) - -containerRemoveClosure :: ContainerRemoveCallback -> IO Closure -containerRemoveClosure cb = newCClosure =<< mkContainerRemoveCallback wrapped - where wrapped = containerRemoveCallbackWrapper cb - -containerRemoveCallbackWrapper :: - ContainerRemoveCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -containerRemoveCallbackWrapper _cb _ object _ = do - object' <- (newObject Widget) object - _cb object' - -onContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId -onContainerRemove obj cb = liftIO $ connectContainerRemove obj cb SignalConnectBefore -afterContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId -afterContainerRemove obj cb = connectContainerRemove obj cb SignalConnectAfter - -connectContainerRemove :: (GObject a, MonadIO m) => - a -> ContainerRemoveCallback -> SignalConnectMode -> m SignalHandlerId -connectContainerRemove obj cb after = liftIO $ do - cb' <- mkContainerRemoveCallback (containerRemoveCallbackWrapper cb) - connectSignalFunPtr obj "remove" cb' after - --- signal Container::set-focus-child -type ContainerSetFocusChildCallback = - Widget -> - IO () - -noContainerSetFocusChildCallback :: Maybe ContainerSetFocusChildCallback -noContainerSetFocusChildCallback = Nothing - -type ContainerSetFocusChildCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkContainerSetFocusChildCallback :: ContainerSetFocusChildCallbackC -> IO (FunPtr ContainerSetFocusChildCallbackC) - -containerSetFocusChildClosure :: ContainerSetFocusChildCallback -> IO Closure -containerSetFocusChildClosure cb = newCClosure =<< mkContainerSetFocusChildCallback wrapped - where wrapped = containerSetFocusChildCallbackWrapper cb - -containerSetFocusChildCallbackWrapper :: - ContainerSetFocusChildCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -containerSetFocusChildCallbackWrapper _cb _ object _ = do - object' <- (newObject Widget) object - _cb object' - -onContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId -onContainerSetFocusChild obj cb = liftIO $ connectContainerSetFocusChild obj cb SignalConnectBefore -afterContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId -afterContainerSetFocusChild obj cb = connectContainerSetFocusChild obj cb SignalConnectAfter - -connectContainerSetFocusChild :: (GObject a, MonadIO m) => - a -> ContainerSetFocusChildCallback -> SignalConnectMode -> m SignalHandlerId -connectContainerSetFocusChild obj cb after = liftIO $ do - cb' <- mkContainerSetFocusChildCallback (containerSetFocusChildCallbackWrapper cb) - connectSignalFunPtr obj "set-focus-child" cb' after - --- VVV Prop "border-width" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32 -getContainerBorderWidth obj = liftIO $ getObjectPropertyUInt32 obj "border-width" - -setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m () -setContainerBorderWidth obj val = liftIO $ setObjectPropertyUInt32 obj "border-width" val - -constructContainerBorderWidth :: Word32 -> IO ([Char], GValue) -constructContainerBorderWidth val = constructObjectPropertyUInt32 "border-width" val - -data ContainerBorderWidthPropertyInfo -instance AttrInfo ContainerBorderWidthPropertyInfo where - type AttrAllowedOps ContainerBorderWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ContainerBorderWidthPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ContainerBorderWidthPropertyInfo = ContainerK - type AttrGetType ContainerBorderWidthPropertyInfo = Word32 - type AttrLabel ContainerBorderWidthPropertyInfo = "border-width" - attrGet _ = getContainerBorderWidth - attrSet _ = setContainerBorderWidth - attrConstruct _ = constructContainerBorderWidth - attrClear _ = undefined - --- VVV Prop "child" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m () -setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" (Just val) - -constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructContainerChild val = constructObjectPropertyObject "child" (Just val) - -clearContainerChild :: (MonadIO m, ContainerK o) => o -> m () -clearContainerChild obj = liftIO $ setObjectPropertyObject obj "child" (Nothing :: Maybe Widget) - -data ContainerChildPropertyInfo -instance AttrInfo ContainerChildPropertyInfo where - type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK - type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK - type AttrGetType ContainerChildPropertyInfo = () - type AttrLabel ContainerChildPropertyInfo = "child" - attrGet _ = undefined - attrSet _ = setContainerChild - attrConstruct _ = constructContainerChild - attrClear _ = clearContainerChild - --- VVV Prop "resize-mode" - -- Type: TInterface "Gtk" "ResizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getContainerResizeMode :: (MonadIO m, ContainerK o) => o -> m ResizeMode -getContainerResizeMode obj = liftIO $ getObjectPropertyEnum obj "resize-mode" - -setContainerResizeMode :: (MonadIO m, ContainerK o) => o -> ResizeMode -> m () -setContainerResizeMode obj val = liftIO $ setObjectPropertyEnum obj "resize-mode" val - -constructContainerResizeMode :: ResizeMode -> IO ([Char], GValue) -constructContainerResizeMode val = constructObjectPropertyEnum "resize-mode" val - -data ContainerResizeModePropertyInfo -instance AttrInfo ContainerResizeModePropertyInfo where - type AttrAllowedOps ContainerResizeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ContainerResizeModePropertyInfo = (~) ResizeMode - type AttrBaseTypeConstraint ContainerResizeModePropertyInfo = ContainerK - type AttrGetType ContainerResizeModePropertyInfo = ResizeMode - type AttrLabel ContainerResizeModePropertyInfo = "resize-mode" - attrGet _ = getContainerResizeMode - attrSet _ = setContainerResizeMode - attrConstruct _ = constructContainerResizeMode - attrClear _ = undefined - -type instance AttributeList Container = ContainerAttributeList -type ContainerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -containerBorderWidth :: AttrLabelProxy "borderWidth" -containerBorderWidth = AttrLabelProxy - -containerChild :: AttrLabelProxy "child" -containerChild = AttrLabelProxy - -containerResizeMode :: AttrLabelProxy "resizeMode" -containerResizeMode = AttrLabelProxy - -data ContainerAddSignalInfo -instance SignalInfo ContainerAddSignalInfo where - type HaskellCallbackType ContainerAddSignalInfo = ContainerAddCallback - connectSignal _ = connectContainerAdd - -data ContainerCheckResizeSignalInfo -instance SignalInfo ContainerCheckResizeSignalInfo where - type HaskellCallbackType ContainerCheckResizeSignalInfo = ContainerCheckResizeCallback - connectSignal _ = connectContainerCheckResize - -data ContainerRemoveSignalInfo -instance SignalInfo ContainerRemoveSignalInfo where - type HaskellCallbackType ContainerRemoveSignalInfo = ContainerRemoveCallback - connectSignal _ = connectContainerRemove - -data ContainerSetFocusChildSignalInfo -instance SignalInfo ContainerSetFocusChildSignalInfo where - type HaskellCallbackType ContainerSetFocusChildSignalInfo = ContainerSetFocusChildCallback - connectSignal _ = connectContainerSetFocusChild - -type instance SignalList Container = ContainerSignalList -type ContainerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Container::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_container_add" gtk_container_add :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -containerAdd :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m () -- result -containerAdd _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_container_add _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data ContainerAddMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerAddMethodInfo a signature where - overloadedMethod _ = containerAdd - --- method Container::check_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", 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 "gtk_container_check_resize" gtk_container_check_resize :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO () - - -containerCheckResize :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m () -- result -containerCheckResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_check_resize _obj' - touchManagedPtr _obj - return () - -data ContainerCheckResizeMethodInfo -instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerCheckResizeMethodInfo a signature where - overloadedMethod _ = containerCheckResize - --- method Container::child_get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_container_child_get_property" gtk_container_child_get_property :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -containerChildGetProperty :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -containerChildGetProperty _obj child propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_container_child_get_property _obj' child' propertyName' value' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr value - freeMem propertyName' - return () - -data ContainerChildGetPropertyMethodInfo -instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildGetPropertyMethodInfo a signature where - overloadedMethod _ = containerChildGetProperty - --- method Container::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", 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 "gtk_container_child_notify" gtk_container_child_notify :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- child_property : TBasicType TUTF8 - IO () - - -containerChildNotify :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- childProperty - -> m () -- result -containerChildNotify _obj child childProperty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - childProperty' <- textToCString childProperty - gtk_container_child_notify _obj' child' childProperty' - touchManagedPtr _obj - touchManagedPtr child - freeMem childProperty' - return () - -data ContainerChildNotifyMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildNotifyMethodInfo a signature where - overloadedMethod _ = containerChildNotify - --- method Container::child_notify_by_pspec --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, 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 "gtk_container_child_notify_by_pspec" gtk_container_child_notify_by_pspec :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - - -containerChildNotifyByPspec :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> GParamSpec -- pspec - -> m () -- result -containerChildNotifyByPspec _obj child pspec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let pspec' = unsafeManagedPtrGetPtr pspec - gtk_container_child_notify_by_pspec _obj' child' pspec' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ContainerChildNotifyByPspecMethodInfo -instance (signature ~ (b -> GParamSpec -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildNotifyByPspecMethodInfo a signature where - overloadedMethod _ = containerChildNotifyByPspec - --- method Container::child_set_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_container_child_set_property" gtk_container_child_set_property :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -containerChildSetProperty :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -containerChildSetProperty _obj child propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_container_child_set_property _obj' child' propertyName' value' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr value - freeMem propertyName' - return () - -data ContainerChildSetPropertyMethodInfo -instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildSetPropertyMethodInfo a signature where - overloadedMethod _ = containerChildSetProperty - --- method Container::child_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", 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 "gtk_container_child_type" gtk_container_child_type :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO CGType - - -containerChildType :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m GType -- result -containerChildType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_child_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data ContainerChildTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, ContainerK a) => MethodInfo ContainerChildTypeMethodInfo a signature where - overloadedMethod _ = containerChildType - --- method Container::forall --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_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 "gtk_container_forall" gtk_container_forall :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback" - Ptr () -> -- callback_data : TBasicType TPtr - IO () - - -containerForall :: - (MonadIO m, ContainerK a) => - a -- _obj - -> Callback -- callback - -> m () -- result -containerForall _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCallback (callbackWrapper Nothing callback) - let callbackData = nullPtr - gtk_container_forall _obj' callback' callbackData - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - -data ContainerForallMethodInfo -instance (signature ~ (Callback -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerForallMethodInfo a signature where - overloadedMethod _ = containerForall - --- method Container::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_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 "gtk_container_foreach" gtk_container_foreach :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback" - Ptr () -> -- callback_data : TBasicType TPtr - IO () - - -containerForeach :: - (MonadIO m, ContainerK a) => - a -- _obj - -> Callback -- callback - -> m () -- result -containerForeach _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCallback (callbackWrapper Nothing callback) - let callbackData = nullPtr - gtk_container_foreach _obj' callback' callbackData - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - -data ContainerForeachMethodInfo -instance (signature ~ (Callback -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerForeachMethodInfo a signature where - overloadedMethod _ = containerForeach - --- method Container::get_border_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_border_width" gtk_container_get_border_width :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO Word32 - - -containerGetBorderWidth :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m Word32 -- result -containerGetBorderWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_border_width _obj' - touchManagedPtr _obj - return result - -data ContainerGetBorderWidthMethodInfo -instance (signature ~ (m Word32), MonadIO m, ContainerK a) => MethodInfo ContainerGetBorderWidthMethodInfo a signature where - overloadedMethod _ = containerGetBorderWidth - --- method Container::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_children" gtk_container_get_children :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO (Ptr (GList (Ptr Widget))) - - -containerGetChildren :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m [Widget] -- result -containerGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ContainerGetChildrenMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, ContainerK a) => MethodInfo ContainerGetChildrenMethodInfo a signature where - overloadedMethod _ = containerGetChildren - --- method Container::get_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_focus_chain" gtk_container_get_focus_chain :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr (Ptr (GList (Ptr Widget))) -> -- focusable_widgets : TGList (TInterface "Gtk" "Widget") - IO CInt - - -containerGetFocusChain :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m (Bool,[Widget]) -- result -containerGetFocusChain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - focusableWidgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget)))) - result <- gtk_container_get_focus_chain _obj' focusableWidgets - let result' = (/= 0) result - focusableWidgets' <- peek focusableWidgets - focusableWidgets'' <- unpackGList focusableWidgets' - focusableWidgets''' <- mapM (newObject Widget) focusableWidgets'' - g_list_free focusableWidgets' - touchManagedPtr _obj - freeMem focusableWidgets - return (result', focusableWidgets''') - -data ContainerGetFocusChainMethodInfo -instance (signature ~ (m (Bool,[Widget])), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusChainMethodInfo a signature where - overloadedMethod _ = containerGetFocusChain - --- method Container::get_focus_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_focus_child" gtk_container_get_focus_child :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO (Ptr Widget) - - -containerGetFocusChild :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m Widget -- result -containerGetFocusChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_focus_child _obj' - checkUnexpectedReturnNULL "gtk_container_get_focus_child" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ContainerGetFocusChildMethodInfo -instance (signature ~ (m Widget), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusChildMethodInfo a signature where - overloadedMethod _ = containerGetFocusChild - --- method Container::get_focus_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_focus_hadjustment" gtk_container_get_focus_hadjustment :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO (Ptr Adjustment) - - -containerGetFocusHadjustment :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m Adjustment -- result -containerGetFocusHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_focus_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_container_get_focus_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ContainerGetFocusHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusHadjustmentMethodInfo a signature where - overloadedMethod _ = containerGetFocusHadjustment - --- method Container::get_focus_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_focus_vadjustment" gtk_container_get_focus_vadjustment :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO (Ptr Adjustment) - - -containerGetFocusVadjustment :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m Adjustment -- result -containerGetFocusVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_focus_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_container_get_focus_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ContainerGetFocusVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusVadjustmentMethodInfo a signature where - overloadedMethod _ = containerGetFocusVadjustment - --- method Container::get_path_for_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_path_for_child" gtk_container_get_path_for_child :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr WidgetPath) - - -containerGetPathForChild :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> m WidgetPath -- result -containerGetPathForChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_container_get_path_for_child _obj' child' - checkUnexpectedReturnNULL "gtk_container_get_path_for_child" result - result' <- (wrapBoxed WidgetPath) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data ContainerGetPathForChildMethodInfo -instance (signature ~ (b -> m WidgetPath), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerGetPathForChildMethodInfo a signature where - overloadedMethod _ = containerGetPathForChild - --- method Container::get_resize_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ResizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_get_resize_mode" gtk_container_get_resize_mode :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO CUInt - -{-# DEPRECATED containerGetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-} -containerGetResizeMode :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m ResizeMode -- result -containerGetResizeMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_resize_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ContainerGetResizeModeMethodInfo -instance (signature ~ (m ResizeMode), MonadIO m, ContainerK a) => MethodInfo ContainerGetResizeModeMethodInfo a signature where - overloadedMethod _ = containerGetResizeMode - --- method Container::propagate_draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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 "gtk_container_propagate_draw" gtk_container_propagate_draw :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - IO () - - -containerPropagateDraw :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- child - -> Cairo.Context -- cr - -> m () -- result -containerPropagateDraw _obj child cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let cr' = unsafeManagedPtrGetPtr cr - gtk_container_propagate_draw _obj' child' cr' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr cr - return () - -data ContainerPropagateDrawMethodInfo -instance (signature ~ (b -> Cairo.Context -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerPropagateDrawMethodInfo a signature where - overloadedMethod _ = containerPropagateDraw - --- method Container::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_container_remove" gtk_container_remove :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -containerRemove :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m () -- result -containerRemove _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_container_remove _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data ContainerRemoveMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerRemoveMethodInfo a signature where - overloadedMethod _ = containerRemove - --- method Container::resize_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", 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 "gtk_container_resize_children" gtk_container_resize_children :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO () - -{-# DEPRECATED containerResizeChildren ["(Since version 3.10)"]#-} -containerResizeChildren :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m () -- result -containerResizeChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_resize_children _obj' - touchManagedPtr _obj - return () - -data ContainerResizeChildrenMethodInfo -instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerResizeChildrenMethodInfo a signature where - overloadedMethod _ = containerResizeChildren - --- method Container::set_border_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", 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 "gtk_container_set_border_width" gtk_container_set_border_width :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Word32 -> -- border_width : TBasicType TUInt - IO () - - -containerSetBorderWidth :: - (MonadIO m, ContainerK a) => - a -- _obj - -> Word32 -- borderWidth - -> m () -- result -containerSetBorderWidth _obj borderWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_set_border_width _obj' borderWidth - touchManagedPtr _obj - return () - -data ContainerSetBorderWidthMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetBorderWidthMethodInfo a signature where - overloadedMethod _ = containerSetBorderWidth - --- method Container::set_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), 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 "gtk_container_set_focus_chain" gtk_container_set_focus_chain :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr (GList (Ptr Widget)) -> -- focusable_widgets : TGList (TInterface "Gtk" "Widget") - IO () - - -containerSetFocusChain :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> [b] -- focusableWidgets - -> m () -- result -containerSetFocusChain _obj focusableWidgets = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusableWidgets' = map unsafeManagedPtrCastPtr focusableWidgets - focusableWidgets'' <- packGList focusableWidgets' - gtk_container_set_focus_chain _obj' focusableWidgets'' - touchManagedPtr _obj - mapM_ touchManagedPtr focusableWidgets - g_list_free focusableWidgets'' - return () - -data ContainerSetFocusChainMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerSetFocusChainMethodInfo a signature where - overloadedMethod _ = containerSetFocusChain - --- method Container::set_focus_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_set_focus_child" gtk_container_set_focus_child :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -containerSetFocusChild :: - (MonadIO m, ContainerK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- child - -> m () -- result -containerSetFocusChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeChild <- case child of - Nothing -> return nullPtr - Just jChild -> do - let jChild' = unsafeManagedPtrCastPtr jChild - return jChild' - gtk_container_set_focus_child _obj' maybeChild - touchManagedPtr _obj - whenJust child touchManagedPtr - return () - -data ContainerSetFocusChildMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerSetFocusChildMethodInfo a signature where - overloadedMethod _ = containerSetFocusChild - --- method Container::set_focus_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_container_set_focus_hadjustment" gtk_container_set_focus_hadjustment :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -containerSetFocusHadjustment :: - (MonadIO m, ContainerK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -containerSetFocusHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_container_set_focus_hadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data ContainerSetFocusHadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, AdjustmentK b) => MethodInfo ContainerSetFocusHadjustmentMethodInfo a signature where - overloadedMethod _ = containerSetFocusHadjustment - --- method Container::set_focus_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_container_set_focus_vadjustment" gtk_container_set_focus_vadjustment :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -containerSetFocusVadjustment :: - (MonadIO m, ContainerK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -containerSetFocusVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_container_set_focus_vadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data ContainerSetFocusVadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, AdjustmentK b) => MethodInfo ContainerSetFocusVadjustmentMethodInfo a signature where - overloadedMethod _ = containerSetFocusVadjustment - --- method Container::set_reallocate_redraws --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needs_redraws", 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 "gtk_container_set_reallocate_redraws" gtk_container_set_reallocate_redraws :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - CInt -> -- needs_redraws : TBasicType TBoolean - IO () - -{-# DEPRECATED containerSetReallocateRedraws ["(Since version 3.14)","Call gtk_widget_queue_draw() in your size_allocate handler."]#-} -containerSetReallocateRedraws :: - (MonadIO m, ContainerK a) => - a -- _obj - -> Bool -- needsRedraws - -> m () -- result -containerSetReallocateRedraws _obj needsRedraws = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let needsRedraws' = (fromIntegral . fromEnum) needsRedraws - gtk_container_set_reallocate_redraws _obj' needsRedraws' - touchManagedPtr _obj - return () - -data ContainerSetReallocateRedrawsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetReallocateRedrawsMethodInfo a signature where - overloadedMethod _ = containerSetReallocateRedraws - --- method Container::set_resize_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", 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 "gtk_container_set_resize_mode" gtk_container_set_resize_mode :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - CUInt -> -- resize_mode : TInterface "Gtk" "ResizeMode" - IO () - -{-# DEPRECATED containerSetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-} -containerSetResizeMode :: - (MonadIO m, ContainerK a) => - a -- _obj - -> ResizeMode -- resizeMode - -> m () -- result -containerSetResizeMode _obj resizeMode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizeMode' = (fromIntegral . fromEnum) resizeMode - gtk_container_set_resize_mode _obj' resizeMode' - touchManagedPtr _obj - return () - -data ContainerSetResizeModeMethodInfo -instance (signature ~ (ResizeMode -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetResizeModeMethodInfo a signature where - overloadedMethod _ = containerSetResizeMode - --- method Container::unset_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", 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 "gtk_container_unset_focus_chain" gtk_container_unset_focus_chain :: - Ptr Container -> -- _obj : TInterface "Gtk" "Container" - IO () - - -containerUnsetFocusChain :: - (MonadIO m, ContainerK a) => - a -- _obj - -> m () -- result -containerUnsetFocusChain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_unset_focus_chain _obj' - touchManagedPtr _obj - return () - -data ContainerUnsetFocusChainMethodInfo -instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerUnsetFocusChainMethodInfo a signature where - overloadedMethod _ = containerUnsetFocusChain - - diff --git a/GI/Gtk/Objects/Container.hs-boot b/GI/Gtk/Objects/Container.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Container.hs-boot +++ /dev/null @@ -1,48 +0,0 @@ -module GI.Gtk.Objects.Container 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 Container = Container (ForeignPtr Container) -instance GObject Container where -class GObject o => ContainerK o -instance (GObject o, IsDescendantOf Container o) => ContainerK o -data ContainerBorderWidthPropertyInfo -data ContainerChildPropertyInfo -data ContainerResizeModePropertyInfo -data ContainerAddSignalInfo -data ContainerCheckResizeSignalInfo -data ContainerRemoveSignalInfo -data ContainerSetFocusChildSignalInfo -data ContainerAddMethodInfo -data ContainerCheckResizeMethodInfo -data ContainerChildGetPropertyMethodInfo -data ContainerChildNotifyMethodInfo -data ContainerChildNotifyByPspecMethodInfo -data ContainerChildSetPropertyMethodInfo -data ContainerChildTypeMethodInfo -data ContainerForallMethodInfo -data ContainerForeachMethodInfo -data ContainerGetBorderWidthMethodInfo -data ContainerGetChildrenMethodInfo -data ContainerGetFocusChainMethodInfo -data ContainerGetFocusChildMethodInfo -data ContainerGetFocusHadjustmentMethodInfo -data ContainerGetFocusVadjustmentMethodInfo -data ContainerGetPathForChildMethodInfo -data ContainerGetResizeModeMethodInfo -data ContainerPropagateDrawMethodInfo -data ContainerRemoveMethodInfo -data ContainerResizeChildrenMethodInfo -data ContainerSetBorderWidthMethodInfo -data ContainerSetFocusChainMethodInfo -data ContainerSetFocusChildMethodInfo -data ContainerSetFocusHadjustmentMethodInfo -data ContainerSetFocusVadjustmentMethodInfo -data ContainerSetReallocateRedrawsMethodInfo -data ContainerSetResizeModeMethodInfo -data ContainerUnsetFocusChainMethodInfo diff --git a/GI/Gtk/Objects/ContainerAccessible.hs b/GI/Gtk/Objects/ContainerAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ContainerAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.ContainerAccessible - ( - --- * Exported types - ContainerAccessible(..) , - ContainerAccessibleK , - toContainerAccessible , - noContainerAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ContainerAccessible = ContainerAccessible (ForeignPtr ContainerAccessible) -foreign import ccall "gtk_container_accessible_get_type" - c_gtk_container_accessible_get_type :: IO GType - -type instance ParentTypes ContainerAccessible = ContainerAccessibleParentTypes -type ContainerAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject ContainerAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_container_accessible_get_type - - -class GObject o => ContainerAccessibleK o -instance (GObject o, IsDescendantOf ContainerAccessible o) => ContainerAccessibleK o - -toContainerAccessible :: ContainerAccessibleK o => o -> IO ContainerAccessible -toContainerAccessible = unsafeCastTo ContainerAccessible - -noContainerAccessible :: Maybe ContainerAccessible -noContainerAccessible = Nothing - -type family ResolveContainerAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveContainerAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveContainerAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContainerAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContainerAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveContainerAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveContainerAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContainerAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContainerAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveContainerAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveContainerAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContainerAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContainerAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContainerAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveContainerAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveContainerAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContainerAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveContainerAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveContainerAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveContainerAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContainerAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveContainerAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveContainerAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveContainerAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveContainerAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContainerAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContainerAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContainerAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContainerAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContainerAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContainerAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContainerAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContainerAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveContainerAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveContainerAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContainerAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveContainerAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveContainerAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveContainerAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveContainerAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveContainerAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveContainerAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveContainerAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveContainerAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContainerAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContainerAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveContainerAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveContainerAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveContainerAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContainerAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveContainerAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveContainerAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveContainerAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveContainerAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveContainerAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContainerAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveContainerAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveContainerAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveContainerAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContainerAccessibleMethod t ContainerAccessible, MethodInfo info ContainerAccessible p) => IsLabelProxy t (ContainerAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContainerAccessibleMethod t ContainerAccessible, MethodInfo info ContainerAccessible p) => IsLabel t (ContainerAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContainerAccessible = ContainerAccessibleAttributeList -type ContainerAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ContainerAccessible = ContainerAccessibleSignalList -type ContainerAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ContainerAccessible.hs-boot b/GI/Gtk/Objects/ContainerAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ContainerAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ContainerAccessible 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 ContainerAccessible = ContainerAccessible (ForeignPtr ContainerAccessible) -instance GObject ContainerAccessible where -class GObject o => ContainerAccessibleK o -instance (GObject o, IsDescendantOf ContainerAccessible o) => ContainerAccessibleK o diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs b/GI/Gtk/Objects/ContainerCellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ContainerCellAccessible.hs +++ /dev/null @@ -1,266 +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.Gtk.Objects.ContainerCellAccessible - ( - --- * Exported types - ContainerCellAccessible(..) , - ContainerCellAccessibleK , - toContainerCellAccessible , - noContainerCellAccessible , - - - -- * Methods --- ** containerCellAccessibleAddChild - ContainerCellAccessibleAddChildMethodInfo, - containerCellAccessibleAddChild , - - --- ** containerCellAccessibleGetChildren - ContainerCellAccessibleGetChildrenMethodInfo, - containerCellAccessibleGetChildren , - - --- ** containerCellAccessibleNew - containerCellAccessibleNew , - - --- ** containerCellAccessibleRemoveChild - ContainerCellAccessibleRemoveChildMethodInfo, - containerCellAccessibleRemoveChild , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ContainerCellAccessible = ContainerCellAccessible (ForeignPtr ContainerCellAccessible) -foreign import ccall "gtk_container_cell_accessible_get_type" - c_gtk_container_cell_accessible_get_type :: IO GType - -type instance ParentTypes ContainerCellAccessible = ContainerCellAccessibleParentTypes -type ContainerCellAccessibleParentTypes = '[CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject ContainerCellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_container_cell_accessible_get_type - - -class GObject o => ContainerCellAccessibleK o -instance (GObject o, IsDescendantOf ContainerCellAccessible o) => ContainerCellAccessibleK o - -toContainerCellAccessible :: ContainerCellAccessibleK o => o -> IO ContainerCellAccessible -toContainerCellAccessible = unsafeCastTo ContainerCellAccessible - -noContainerCellAccessible :: Maybe ContainerCellAccessible -noContainerCellAccessible = Nothing - -type family ResolveContainerCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveContainerCellAccessibleMethod "addChild" o = ContainerCellAccessibleAddChildMethodInfo - ResolveContainerCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveContainerCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContainerCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContainerCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveContainerCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveContainerCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveContainerCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContainerCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContainerCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveContainerCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveContainerCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContainerCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContainerCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContainerCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveContainerCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveContainerCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContainerCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveContainerCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveContainerCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveContainerCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContainerCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveContainerCellAccessibleMethod "removeChild" o = ContainerCellAccessibleRemoveChildMethodInfo - ResolveContainerCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveContainerCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveContainerCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveContainerCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContainerCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContainerCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContainerCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContainerCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContainerCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContainerCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContainerCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContainerCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveContainerCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveContainerCellAccessibleMethod "getChildren" o = ContainerCellAccessibleGetChildrenMethodInfo - ResolveContainerCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContainerCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveContainerCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveContainerCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveContainerCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveContainerCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveContainerCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveContainerCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveContainerCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveContainerCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveContainerCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContainerCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContainerCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveContainerCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveContainerCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveContainerCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContainerCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveContainerCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveContainerCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveContainerCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveContainerCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContainerCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveContainerCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveContainerCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveContainerCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, MethodInfo info ContainerCellAccessible p) => IsLabelProxy t (ContainerCellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, MethodInfo info ContainerCellAccessible p) => IsLabel t (ContainerCellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContainerCellAccessible = ContainerCellAccessibleAttributeList -type ContainerCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ContainerCellAccessible = ContainerCellAccessibleSignalList -type ContainerCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - --- method ContainerCellAccessible::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ContainerCellAccessible") --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_cell_accessible_new" gtk_container_cell_accessible_new :: - IO (Ptr ContainerCellAccessible) - - -containerCellAccessibleNew :: - (MonadIO m) => - m ContainerCellAccessible -- result -containerCellAccessibleNew = liftIO $ do - result <- gtk_container_cell_accessible_new - checkUnexpectedReturnNULL "gtk_container_cell_accessible_new" result - result' <- (wrapObject ContainerCellAccessible) result - return result' - --- method ContainerCellAccessible::add_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_container_cell_accessible_add_child" gtk_container_cell_accessible_add_child :: - Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible" - Ptr CellAccessible -> -- child : TInterface "Gtk" "CellAccessible" - IO () - - -containerCellAccessibleAddChild :: - (MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => - a -- _obj - -> b -- child - -> m () -- result -containerCellAccessibleAddChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_container_cell_accessible_add_child _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ContainerCellAccessibleAddChildMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => MethodInfo ContainerCellAccessibleAddChildMethodInfo a signature where - overloadedMethod _ = containerCellAccessibleAddChild - --- method ContainerCellAccessible::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "CellAccessible")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_container_cell_accessible_get_children" gtk_container_cell_accessible_get_children :: - Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible" - IO (Ptr (GList (Ptr CellAccessible))) - - -containerCellAccessibleGetChildren :: - (MonadIO m, ContainerCellAccessibleK a) => - a -- _obj - -> m [CellAccessible] -- result -containerCellAccessibleGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_cell_accessible_get_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject CellAccessible) result' - touchManagedPtr _obj - return result'' - -data ContainerCellAccessibleGetChildrenMethodInfo -instance (signature ~ (m [CellAccessible]), MonadIO m, ContainerCellAccessibleK a) => MethodInfo ContainerCellAccessibleGetChildrenMethodInfo a signature where - overloadedMethod _ = containerCellAccessibleGetChildren - --- method ContainerCellAccessible::remove_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", 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 "gtk_container_cell_accessible_remove_child" gtk_container_cell_accessible_remove_child :: - Ptr ContainerCellAccessible -> -- _obj : TInterface "Gtk" "ContainerCellAccessible" - Ptr CellAccessible -> -- child : TInterface "Gtk" "CellAccessible" - IO () - - -containerCellAccessibleRemoveChild :: - (MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => - a -- _obj - -> b -- child - -> m () -- result -containerCellAccessibleRemoveChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_container_cell_accessible_remove_child _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ContainerCellAccessibleRemoveChildMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => MethodInfo ContainerCellAccessibleRemoveChildMethodInfo a signature where - overloadedMethod _ = containerCellAccessibleRemoveChild - - diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot b/GI/Gtk/Objects/ContainerCellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.ContainerCellAccessible 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 ContainerCellAccessible = ContainerCellAccessible (ForeignPtr ContainerCellAccessible) -instance GObject ContainerCellAccessible where -class GObject o => ContainerCellAccessibleK o -instance (GObject o, IsDescendantOf ContainerCellAccessible o) => ContainerCellAccessibleK o -data ContainerCellAccessibleAddChildMethodInfo -data ContainerCellAccessibleGetChildrenMethodInfo -data ContainerCellAccessibleRemoveChildMethodInfo diff --git a/GI/Gtk/Objects/CssProvider.hs b/GI/Gtk/Objects/CssProvider.hs deleted file mode 100644 --- a/GI/Gtk/Objects/CssProvider.hs +++ /dev/null @@ -1,453 +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.Gtk.Objects.CssProvider - ( - --- * Exported types - CssProvider(..) , - CssProviderK , - toCssProvider , - noCssProvider , - - - -- * Methods --- ** cssProviderGetDefault - cssProviderGetDefault , - - --- ** cssProviderGetNamed - cssProviderGetNamed , - - --- ** cssProviderLoadFromData - CssProviderLoadFromDataMethodInfo , - cssProviderLoadFromData , - - --- ** cssProviderLoadFromFile - CssProviderLoadFromFileMethodInfo , - cssProviderLoadFromFile , - - --- ** cssProviderLoadFromPath - CssProviderLoadFromPathMethodInfo , - cssProviderLoadFromPath , - - --- ** cssProviderLoadFromResource - CssProviderLoadFromResourceMethodInfo , - cssProviderLoadFromResource , - - --- ** cssProviderNew - cssProviderNew , - - --- ** cssProviderToString - CssProviderToStringMethodInfo , - cssProviderToString , - - - - - -- * Signals --- ** ParsingError - CssProviderParsingErrorCallback , - CssProviderParsingErrorCallbackC , - CssProviderParsingErrorSignalInfo , - afterCssProviderParsingError , - cssProviderParsingErrorCallbackWrapper , - cssProviderParsingErrorClosure , - mkCssProviderParsingErrorCallback , - noCssProviderParsingErrorCallback , - onCssProviderParsingError , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype CssProvider = CssProvider (ForeignPtr CssProvider) -foreign import ccall "gtk_css_provider_get_type" - c_gtk_css_provider_get_type :: IO GType - -type instance ParentTypes CssProvider = CssProviderParentTypes -type CssProviderParentTypes = '[GObject.Object, StyleProvider] - -instance GObject CssProvider where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_css_provider_get_type - - -class GObject o => CssProviderK o -instance (GObject o, IsDescendantOf CssProvider o) => CssProviderK o - -toCssProvider :: CssProviderK o => o -> IO CssProvider -toCssProvider = unsafeCastTo CssProvider - -noCssProvider :: Maybe CssProvider -noCssProvider = Nothing - -type family ResolveCssProviderMethod (t :: Symbol) (o :: *) :: * where - ResolveCssProviderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCssProviderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCssProviderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCssProviderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCssProviderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCssProviderMethod "loadFromData" o = CssProviderLoadFromDataMethodInfo - ResolveCssProviderMethod "loadFromFile" o = CssProviderLoadFromFileMethodInfo - ResolveCssProviderMethod "loadFromPath" o = CssProviderLoadFromPathMethodInfo - ResolveCssProviderMethod "loadFromResource" o = CssProviderLoadFromResourceMethodInfo - ResolveCssProviderMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCssProviderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCssProviderMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCssProviderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCssProviderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCssProviderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCssProviderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCssProviderMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCssProviderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCssProviderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCssProviderMethod "toString" o = CssProviderToStringMethodInfo - ResolveCssProviderMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCssProviderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCssProviderMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCssProviderMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo - ResolveCssProviderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCssProviderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCssProviderMethod "getStyle" o = StyleProviderGetStyleMethodInfo - ResolveCssProviderMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo - ResolveCssProviderMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCssProviderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCssProviderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCssProviderMethod t CssProvider, MethodInfo info CssProvider p) => IsLabelProxy t (CssProvider -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCssProviderMethod t CssProvider, MethodInfo info CssProvider p) => IsLabel t (CssProvider -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal CssProvider::parsing-error -type CssProviderParsingErrorCallback = - CssSection -> - GError -> - IO () - -noCssProviderParsingErrorCallback :: Maybe CssProviderParsingErrorCallback -noCssProviderParsingErrorCallback = Nothing - -type CssProviderParsingErrorCallbackC = - Ptr () -> -- object - Ptr CssSection -> - Ptr GError -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCssProviderParsingErrorCallback :: CssProviderParsingErrorCallbackC -> IO (FunPtr CssProviderParsingErrorCallbackC) - -cssProviderParsingErrorClosure :: CssProviderParsingErrorCallback -> IO Closure -cssProviderParsingErrorClosure cb = newCClosure =<< mkCssProviderParsingErrorCallback wrapped - where wrapped = cssProviderParsingErrorCallbackWrapper cb - -cssProviderParsingErrorCallbackWrapper :: - CssProviderParsingErrorCallback -> - Ptr () -> - Ptr CssSection -> - Ptr GError -> - Ptr () -> - IO () -cssProviderParsingErrorCallbackWrapper _cb _ section error_ _ = do - section' <- (newBoxed CssSection) section - error_' <- (newBoxed GError) error_ - _cb section' error_' - -onCssProviderParsingError :: (GObject a, MonadIO m) => a -> CssProviderParsingErrorCallback -> m SignalHandlerId -onCssProviderParsingError obj cb = liftIO $ connectCssProviderParsingError obj cb SignalConnectBefore -afterCssProviderParsingError :: (GObject a, MonadIO m) => a -> CssProviderParsingErrorCallback -> m SignalHandlerId -afterCssProviderParsingError obj cb = connectCssProviderParsingError obj cb SignalConnectAfter - -connectCssProviderParsingError :: (GObject a, MonadIO m) => - a -> CssProviderParsingErrorCallback -> SignalConnectMode -> m SignalHandlerId -connectCssProviderParsingError obj cb after = liftIO $ do - cb' <- mkCssProviderParsingErrorCallback (cssProviderParsingErrorCallbackWrapper cb) - connectSignalFunPtr obj "parsing-error" cb' after - -type instance AttributeList CssProvider = CssProviderAttributeList -type CssProviderAttributeList = ('[ ] :: [(Symbol, *)]) - -data CssProviderParsingErrorSignalInfo -instance SignalInfo CssProviderParsingErrorSignalInfo where - type HaskellCallbackType CssProviderParsingErrorSignalInfo = CssProviderParsingErrorCallback - connectSignal _ = connectCssProviderParsingError - -type instance SignalList CssProvider = CssProviderSignalList -type CssProviderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("parsingError", CssProviderParsingErrorSignalInfo)] :: [(Symbol, *)]) - --- method CssProvider::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssProvider") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_provider_new" gtk_css_provider_new :: - IO (Ptr CssProvider) - - -cssProviderNew :: - (MonadIO m) => - m CssProvider -- result -cssProviderNew = liftIO $ do - result <- gtk_css_provider_new - checkUnexpectedReturnNULL "gtk_css_provider_new" result - result' <- (wrapObject CssProvider) result - return result' - --- method CssProvider::load_from_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_css_provider_load_from_data" gtk_css_provider_load_from_data :: - Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Int64 -> -- length : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -cssProviderLoadFromData :: - (MonadIO m, CssProviderK a) => - a -- _obj - -> ByteString -- data_ - -> m () -- result -cssProviderLoadFromData _obj data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - data_' <- packByteString data_ - onException (do - _ <- propagateGError $ gtk_css_provider_load_from_data _obj' data_' length_ - touchManagedPtr _obj - freeMem data_' - return () - ) (do - freeMem data_' - ) - -data CssProviderLoadFromDataMethodInfo -instance (signature ~ (ByteString -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromDataMethodInfo a signature where - overloadedMethod _ = cssProviderLoadFromData - --- method CssProvider::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_css_provider_load_from_file" gtk_css_provider_load_from_file :: - Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -cssProviderLoadFromFile :: - (MonadIO m, CssProviderK a, Gio.FileK b) => - a -- _obj - -> b -- file - -> m () -- result -cssProviderLoadFromFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_css_provider_load_from_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - -data CssProviderLoadFromFileMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CssProviderK a, Gio.FileK b) => MethodInfo CssProviderLoadFromFileMethodInfo a signature where - overloadedMethod _ = cssProviderLoadFromFile - --- method CssProvider::load_from_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_css_provider_load_from_path" gtk_css_provider_load_from_path :: - Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider" - CString -> -- path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -cssProviderLoadFromPath :: - (MonadIO m, CssProviderK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -cssProviderLoadFromPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - onException (do - _ <- propagateGError $ gtk_css_provider_load_from_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - ) (do - freeMem path' - ) - -data CssProviderLoadFromPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromPathMethodInfo a signature where - overloadedMethod _ = cssProviderLoadFromPath - --- method CssProvider::load_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", 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 "gtk_css_provider_load_from_resource" gtk_css_provider_load_from_resource :: - Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider" - CString -> -- resource_path : TBasicType TUTF8 - IO () - - -cssProviderLoadFromResource :: - (MonadIO m, CssProviderK a) => - a -- _obj - -> T.Text -- resourcePath - -> m () -- result -cssProviderLoadFromResource _obj resourcePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resourcePath' <- textToCString resourcePath - gtk_css_provider_load_from_resource _obj' resourcePath' - touchManagedPtr _obj - freeMem resourcePath' - return () - -data CssProviderLoadFromResourceMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromResourceMethodInfo a signature where - overloadedMethod _ = cssProviderLoadFromResource - --- method CssProvider::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", 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 "gtk_css_provider_to_string" gtk_css_provider_to_string :: - Ptr CssProvider -> -- _obj : TInterface "Gtk" "CssProvider" - IO CString - - -cssProviderToString :: - (MonadIO m, CssProviderK a) => - a -- _obj - -> m T.Text -- result -cssProviderToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_css_provider_to_string _obj' - checkUnexpectedReturnNULL "gtk_css_provider_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data CssProviderToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, CssProviderK a) => MethodInfo CssProviderToStringMethodInfo a signature where - overloadedMethod _ = cssProviderToString - --- method CssProvider::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssProvider") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_provider_get_default" gtk_css_provider_get_default :: - IO (Ptr CssProvider) - - -cssProviderGetDefault :: - (MonadIO m) => - m CssProvider -- result -cssProviderGetDefault = liftIO $ do - result <- gtk_css_provider_get_default - checkUnexpectedReturnNULL "gtk_css_provider_get_default" result - result' <- (newObject CssProvider) result - return result' - --- method CssProvider::get_named --- method type : MemberFunction --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssProvider") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_provider_get_named" gtk_css_provider_get_named :: - CString -> -- name : TBasicType TUTF8 - CString -> -- variant : TBasicType TUTF8 - IO (Ptr CssProvider) - - -cssProviderGetNamed :: - (MonadIO m) => - T.Text -- name - -> Maybe (T.Text) -- variant - -> m CssProvider -- result -cssProviderGetNamed name variant = liftIO $ do - name' <- textToCString name - maybeVariant <- case variant of - Nothing -> return nullPtr - Just jVariant -> do - jVariant' <- textToCString jVariant - return jVariant' - result <- gtk_css_provider_get_named name' maybeVariant - checkUnexpectedReturnNULL "gtk_css_provider_get_named" result - result' <- (newObject CssProvider) result - freeMem name' - freeMem maybeVariant - return result' - - diff --git a/GI/Gtk/Objects/CssProvider.hs-boot b/GI/Gtk/Objects/CssProvider.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/CssProvider.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.CssProvider 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 CssProvider = CssProvider (ForeignPtr CssProvider) -instance GObject CssProvider where -class GObject o => CssProviderK o -instance (GObject o, IsDescendantOf CssProvider o) => CssProviderK o -data CssProviderParsingErrorSignalInfo -data CssProviderLoadFromDataMethodInfo -data CssProviderLoadFromFileMethodInfo -data CssProviderLoadFromPathMethodInfo -data CssProviderLoadFromResourceMethodInfo -data CssProviderToStringMethodInfo diff --git a/GI/Gtk/Objects/Dialog.hs b/GI/Gtk/Objects/Dialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Dialog.hs +++ /dev/null @@ -1,1103 +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.Gtk.Objects.Dialog - ( - --- * Exported types - Dialog(..) , - DialogK , - toDialog , - noDialog , - - - -- * Methods --- ** dialogAddActionWidget - DialogAddActionWidgetMethodInfo , - dialogAddActionWidget , - - --- ** dialogAddButton - DialogAddButtonMethodInfo , - dialogAddButton , - - --- ** dialogGetActionArea - DialogGetActionAreaMethodInfo , - dialogGetActionArea , - - --- ** dialogGetContentArea - DialogGetContentAreaMethodInfo , - dialogGetContentArea , - - --- ** dialogGetHeaderBar - DialogGetHeaderBarMethodInfo , - dialogGetHeaderBar , - - --- ** dialogGetResponseForWidget - DialogGetResponseForWidgetMethodInfo , - dialogGetResponseForWidget , - - --- ** dialogGetWidgetForResponse - DialogGetWidgetForResponseMethodInfo , - dialogGetWidgetForResponse , - - --- ** dialogNew - dialogNew , - - --- ** dialogResponse - DialogResponseMethodInfo , - dialogResponse , - - --- ** dialogRun - DialogRunMethodInfo , - dialogRun , - - --- ** dialogSetAlternativeButtonOrderFromArray - DialogSetAlternativeButtonOrderFromArrayMethodInfo, - dialogSetAlternativeButtonOrderFromArray, - - --- ** dialogSetDefaultResponse - DialogSetDefaultResponseMethodInfo , - dialogSetDefaultResponse , - - --- ** dialogSetResponseSensitive - DialogSetResponseSensitiveMethodInfo , - dialogSetResponseSensitive , - - - - - -- * Properties --- ** UseHeaderBar - DialogUseHeaderBarPropertyInfo , - constructDialogUseHeaderBar , - dialogUseHeaderBar , - getDialogUseHeaderBar , - - - - - -- * Signals --- ** Close - DialogCloseCallback , - DialogCloseCallbackC , - DialogCloseSignalInfo , - afterDialogClose , - dialogCloseCallbackWrapper , - dialogCloseClosure , - mkDialogCloseCallback , - noDialogCloseCallback , - onDialogClose , - - --- ** Response - DialogResponseCallback , - DialogResponseCallbackC , - DialogResponseSignalInfo , - afterDialogResponse , - dialogResponseCallbackWrapper , - dialogResponseClosure , - mkDialogResponseCallback , - noDialogResponseCallback , - onDialogResponse , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Dialog = Dialog (ForeignPtr Dialog) -foreign import ccall "gtk_dialog_get_type" - c_gtk_dialog_get_type :: IO GType - -type instance ParentTypes Dialog = DialogParentTypes -type DialogParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Dialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_dialog_get_type - - -class GObject o => DialogK o -instance (GObject o, IsDescendantOf Dialog o) => DialogK o - -toDialog :: DialogK o => o -> IO Dialog -toDialog = unsafeCastTo Dialog - -noDialog :: Maybe Dialog -noDialog = Nothing - -type family ResolveDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveDialogMethod "add" o = ContainerAddMethodInfo - ResolveDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveDialogMethod "close" o = WindowCloseMethodInfo - ResolveDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveDialogMethod "event" o = WidgetEventMethodInfo - ResolveDialogMethod "forall" o = ContainerForallMethodInfo - ResolveDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveDialogMethod "hide" o = WidgetHideMethodInfo - ResolveDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveDialogMethod "map" o = WidgetMapMethodInfo - ResolveDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveDialogMethod "move" o = WindowMoveMethodInfo - ResolveDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveDialogMethod "path" o = WidgetPathMethodInfo - ResolveDialogMethod "present" o = WindowPresentMethodInfo - ResolveDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveDialogMethod "resize" o = WindowResizeMethodInfo - ResolveDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveDialogMethod "response" o = DialogResponseMethodInfo - ResolveDialogMethod "run" o = DialogRunMethodInfo - ResolveDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveDialogMethod "show" o = WidgetShowMethodInfo - ResolveDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDialogMethod "stick" o = WindowStickMethodInfo - ResolveDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDialogMethod t Dialog, MethodInfo info Dialog p) => IsLabelProxy t (Dialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDialogMethod t Dialog, MethodInfo info Dialog p) => IsLabel t (Dialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Dialog::close -type DialogCloseCallback = - IO () - -noDialogCloseCallback :: Maybe DialogCloseCallback -noDialogCloseCallback = Nothing - -type DialogCloseCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDialogCloseCallback :: DialogCloseCallbackC -> IO (FunPtr DialogCloseCallbackC) - -dialogCloseClosure :: DialogCloseCallback -> IO Closure -dialogCloseClosure cb = newCClosure =<< mkDialogCloseCallback wrapped - where wrapped = dialogCloseCallbackWrapper cb - -dialogCloseCallbackWrapper :: - DialogCloseCallback -> - Ptr () -> - Ptr () -> - IO () -dialogCloseCallbackWrapper _cb _ _ = do - _cb - -onDialogClose :: (GObject a, MonadIO m) => a -> DialogCloseCallback -> m SignalHandlerId -onDialogClose obj cb = liftIO $ connectDialogClose obj cb SignalConnectBefore -afterDialogClose :: (GObject a, MonadIO m) => a -> DialogCloseCallback -> m SignalHandlerId -afterDialogClose obj cb = connectDialogClose obj cb SignalConnectAfter - -connectDialogClose :: (GObject a, MonadIO m) => - a -> DialogCloseCallback -> SignalConnectMode -> m SignalHandlerId -connectDialogClose obj cb after = liftIO $ do - cb' <- mkDialogCloseCallback (dialogCloseCallbackWrapper cb) - connectSignalFunPtr obj "close" cb' after - --- signal Dialog::response -type DialogResponseCallback = - Int32 -> - IO () - -noDialogResponseCallback :: Maybe DialogResponseCallback -noDialogResponseCallback = Nothing - -type DialogResponseCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDialogResponseCallback :: DialogResponseCallbackC -> IO (FunPtr DialogResponseCallbackC) - -dialogResponseClosure :: DialogResponseCallback -> IO Closure -dialogResponseClosure cb = newCClosure =<< mkDialogResponseCallback wrapped - where wrapped = dialogResponseCallbackWrapper cb - -dialogResponseCallbackWrapper :: - DialogResponseCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -dialogResponseCallbackWrapper _cb _ responseId _ = do - _cb responseId - -onDialogResponse :: (GObject a, MonadIO m) => a -> DialogResponseCallback -> m SignalHandlerId -onDialogResponse obj cb = liftIO $ connectDialogResponse obj cb SignalConnectBefore -afterDialogResponse :: (GObject a, MonadIO m) => a -> DialogResponseCallback -> m SignalHandlerId -afterDialogResponse obj cb = connectDialogResponse obj cb SignalConnectAfter - -connectDialogResponse :: (GObject a, MonadIO m) => - a -> DialogResponseCallback -> SignalConnectMode -> m SignalHandlerId -connectDialogResponse obj cb after = liftIO $ do - cb' <- mkDialogResponseCallback (dialogResponseCallbackWrapper cb) - connectSignalFunPtr obj "response" cb' after - --- VVV Prop "use-header-bar" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDialogUseHeaderBar :: (MonadIO m, DialogK o) => o -> m Int32 -getDialogUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" - -constructDialogUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructDialogUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val - -data DialogUseHeaderBarPropertyInfo -instance AttrInfo DialogUseHeaderBarPropertyInfo where - type AttrAllowedOps DialogUseHeaderBarPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DialogUseHeaderBarPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint DialogUseHeaderBarPropertyInfo = DialogK - type AttrGetType DialogUseHeaderBarPropertyInfo = Int32 - type AttrLabel DialogUseHeaderBarPropertyInfo = "use-header-bar" - attrGet _ = getDialogUseHeaderBar - attrSet _ = undefined - attrConstruct _ = constructDialogUseHeaderBar - attrClear _ = undefined - -type instance AttributeList Dialog = DialogAttributeList -type DialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -dialogUseHeaderBar :: AttrLabelProxy "useHeaderBar" -dialogUseHeaderBar = AttrLabelProxy - -data DialogCloseSignalInfo -instance SignalInfo DialogCloseSignalInfo where - type HaskellCallbackType DialogCloseSignalInfo = DialogCloseCallback - connectSignal _ = connectDialogClose - -data DialogResponseSignalInfo -instance SignalInfo DialogResponseSignalInfo where - type HaskellCallbackType DialogResponseSignalInfo = DialogResponseCallback - connectSignal _ = connectDialogResponse - -type instance SignalList Dialog = DialogSignalList -type DialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Dialog::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Dialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_new" gtk_dialog_new :: - IO (Ptr Dialog) - - -dialogNew :: - (MonadIO m) => - m Dialog -- result -dialogNew = liftIO $ do - result <- gtk_dialog_new - checkUnexpectedReturnNULL "gtk_dialog_new" result - result' <- (newObject Dialog) result - return result' - --- method Dialog::add_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_dialog_add_action_widget" gtk_dialog_add_action_widget :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- response_id : TBasicType TInt - IO () - - -dialogAddActionWidget :: - (MonadIO m, DialogK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- responseId - -> m () -- result -dialogAddActionWidget _obj child responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_dialog_add_action_widget _obj' child' responseId - touchManagedPtr _obj - touchManagedPtr child - return () - -data DialogAddActionWidgetMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, DialogK a, WidgetK b) => MethodInfo DialogAddActionWidgetMethodInfo a signature where - overloadedMethod _ = dialogAddActionWidget - --- method Dialog::add_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_add_button" gtk_dialog_add_button :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - CString -> -- button_text : TBasicType TUTF8 - Int32 -> -- response_id : TBasicType TInt - IO (Ptr Widget) - - -dialogAddButton :: - (MonadIO m, DialogK a) => - a -- _obj - -> T.Text -- buttonText - -> Int32 -- responseId - -> m Widget -- result -dialogAddButton _obj buttonText responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buttonText' <- textToCString buttonText - result <- gtk_dialog_add_button _obj' buttonText' responseId - checkUnexpectedReturnNULL "gtk_dialog_add_button" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem buttonText' - return result' - -data DialogAddButtonMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Widget), MonadIO m, DialogK a) => MethodInfo DialogAddButtonMethodInfo a signature where - overloadedMethod _ = dialogAddButton - --- method Dialog::get_action_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_get_action_area" gtk_dialog_get_action_area :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - IO (Ptr Widget) - -{-# DEPRECATED dialogGetActionArea ["(Since version 3.12)","Direct access to the action area"," is discouraged; use gtk_dialog_add_button(), etc."]#-} -dialogGetActionArea :: - (MonadIO m, DialogK a) => - a -- _obj - -> m Widget -- result -dialogGetActionArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_action_area _obj' - checkUnexpectedReturnNULL "gtk_dialog_get_action_area" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data DialogGetActionAreaMethodInfo -instance (signature ~ (m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetActionAreaMethodInfo a signature where - overloadedMethod _ = dialogGetActionArea - --- method Dialog::get_content_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Box") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_get_content_area" gtk_dialog_get_content_area :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - IO (Ptr Box) - - -dialogGetContentArea :: - (MonadIO m, DialogK a) => - a -- _obj - -> m Box -- result -dialogGetContentArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_content_area _obj' - checkUnexpectedReturnNULL "gtk_dialog_get_content_area" result - result' <- (newObject Box) result - touchManagedPtr _obj - return result' - -data DialogGetContentAreaMethodInfo -instance (signature ~ (m Box), MonadIO m, DialogK a) => MethodInfo DialogGetContentAreaMethodInfo a signature where - overloadedMethod _ = dialogGetContentArea - --- method Dialog::get_header_bar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_get_header_bar" gtk_dialog_get_header_bar :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - IO (Ptr Widget) - - -dialogGetHeaderBar :: - (MonadIO m, DialogK a) => - a -- _obj - -> m Widget -- result -dialogGetHeaderBar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_header_bar _obj' - checkUnexpectedReturnNULL "gtk_dialog_get_header_bar" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data DialogGetHeaderBarMethodInfo -instance (signature ~ (m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetHeaderBarMethodInfo a signature where - overloadedMethod _ = dialogGetHeaderBar - --- method Dialog::get_response_for_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_dialog_get_response_for_widget" gtk_dialog_get_response_for_widget :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO Int32 - - -dialogGetResponseForWidget :: - (MonadIO m, DialogK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m Int32 -- result -dialogGetResponseForWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_dialog_get_response_for_widget _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return result - -data DialogGetResponseForWidgetMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, DialogK a, WidgetK b) => MethodInfo DialogGetResponseForWidgetMethodInfo a signature where - overloadedMethod _ = dialogGetResponseForWidget - --- method Dialog::get_widget_for_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_get_widget_for_response" gtk_dialog_get_widget_for_response :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt - IO (Ptr Widget) - - -dialogGetWidgetForResponse :: - (MonadIO m, DialogK a) => - a -- _obj - -> Int32 -- responseId - -> m Widget -- result -dialogGetWidgetForResponse _obj responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_widget_for_response _obj' responseId - checkUnexpectedReturnNULL "gtk_dialog_get_widget_for_response" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data DialogGetWidgetForResponseMethodInfo -instance (signature ~ (Int32 -> m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetWidgetForResponseMethodInfo a signature where - overloadedMethod _ = dialogGetWidgetForResponse - --- method Dialog::response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_dialog_response" gtk_dialog_response :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt - IO () - - -dialogResponse :: - (MonadIO m, DialogK a) => - a -- _obj - -> Int32 -- responseId - -> m () -- result -dialogResponse _obj responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_response _obj' responseId - touchManagedPtr _obj - return () - -data DialogResponseMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, DialogK a) => MethodInfo DialogResponseMethodInfo a signature where - overloadedMethod _ = dialogResponse - --- method Dialog::run --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", 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 "gtk_dialog_run" gtk_dialog_run :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - IO Int32 - - -dialogRun :: - (MonadIO m, DialogK a) => - a -- _obj - -> m Int32 -- result -dialogRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_run _obj' - touchManagedPtr _obj - return result - -data DialogRunMethodInfo -instance (signature ~ (m Int32), MonadIO m, DialogK a) => MethodInfo DialogRunMethodInfo a signature where - overloadedMethod _ = dialogRun - --- method Dialog::set_alternative_button_order_from_array --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_params", 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 "gtk_dialog_set_alternative_button_order_from_array" gtk_dialog_set_alternative_button_order_from_array :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- n_params : TBasicType TInt - Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt) - IO () - -{-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-} -dialogSetAlternativeButtonOrderFromArray :: - (MonadIO m, DialogK a) => - a -- _obj - -> [Int32] -- newOrder - -> m () -- result -dialogSetAlternativeButtonOrderFromArray _obj newOrder = liftIO $ do - let nParams = fromIntegral $ length newOrder - let _obj' = unsafeManagedPtrCastPtr _obj - newOrder' <- packStorableArray newOrder - gtk_dialog_set_alternative_button_order_from_array _obj' nParams newOrder' - touchManagedPtr _obj - freeMem newOrder' - return () - -data DialogSetAlternativeButtonOrderFromArrayMethodInfo -instance (signature ~ ([Int32] -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetAlternativeButtonOrderFromArrayMethodInfo a signature where - overloadedMethod _ = dialogSetAlternativeButtonOrderFromArray - --- method Dialog::set_default_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_dialog_set_default_response" gtk_dialog_set_default_response :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt - IO () - - -dialogSetDefaultResponse :: - (MonadIO m, DialogK a) => - a -- _obj - -> Int32 -- responseId - -> m () -- result -dialogSetDefaultResponse _obj responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_set_default_response _obj' responseId - touchManagedPtr _obj - return () - -data DialogSetDefaultResponseMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetDefaultResponseMethodInfo a signature where - overloadedMethod _ = dialogSetDefaultResponse - --- method Dialog::set_response_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_dialog_set_response_sensitive" gtk_dialog_set_response_sensitive :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt - CInt -> -- setting : TBasicType TBoolean - IO () - - -dialogSetResponseSensitive :: - (MonadIO m, DialogK a) => - a -- _obj - -> Int32 -- responseId - -> Bool -- setting - -> m () -- result -dialogSetResponseSensitive _obj responseId setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_dialog_set_response_sensitive _obj' responseId setting' - touchManagedPtr _obj - return () - -data DialogSetResponseSensitiveMethodInfo -instance (signature ~ (Int32 -> Bool -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetResponseSensitiveMethodInfo a signature where - overloadedMethod _ = dialogSetResponseSensitive - - diff --git a/GI/Gtk/Objects/Dialog.hs-boot b/GI/Gtk/Objects/Dialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Dialog.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.Dialog 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 Dialog = Dialog (ForeignPtr Dialog) -instance GObject Dialog where -class GObject o => DialogK o -instance (GObject o, IsDescendantOf Dialog o) => DialogK o -data DialogUseHeaderBarPropertyInfo -data DialogCloseSignalInfo -data DialogResponseSignalInfo -data DialogAddActionWidgetMethodInfo -data DialogAddButtonMethodInfo -data DialogGetActionAreaMethodInfo -data DialogGetContentAreaMethodInfo -data DialogGetHeaderBarMethodInfo -data DialogGetResponseForWidgetMethodInfo -data DialogGetWidgetForResponseMethodInfo -data DialogResponseMethodInfo -data DialogRunMethodInfo -data DialogSetAlternativeButtonOrderFromArrayMethodInfo -data DialogSetDefaultResponseMethodInfo -data DialogSetResponseSensitiveMethodInfo diff --git a/GI/Gtk/Objects/DrawingArea.hs b/GI/Gtk/Objects/DrawingArea.hs deleted file mode 100644 --- a/GI/Gtk/Objects/DrawingArea.hs +++ /dev/null @@ -1,384 +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.Gtk.Objects.DrawingArea - ( - --- * Exported types - DrawingArea(..) , - DrawingAreaK , - toDrawingArea , - noDrawingArea , - - - -- * Methods --- ** drawingAreaNew - drawingAreaNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype DrawingArea = DrawingArea (ForeignPtr DrawingArea) -foreign import ccall "gtk_drawing_area_get_type" - c_gtk_drawing_area_get_type :: IO GType - -type instance ParentTypes DrawingArea = DrawingAreaParentTypes -type DrawingAreaParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject DrawingArea where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_drawing_area_get_type - - -class GObject o => DrawingAreaK o -instance (GObject o, IsDescendantOf DrawingArea o) => DrawingAreaK o - -toDrawingArea :: DrawingAreaK o => o -> IO DrawingArea -toDrawingArea = unsafeCastTo DrawingArea - -noDrawingArea :: Maybe DrawingArea -noDrawingArea = Nothing - -type family ResolveDrawingAreaMethod (t :: Symbol) (o :: *) :: * where - ResolveDrawingAreaMethod "activate" o = WidgetActivateMethodInfo - ResolveDrawingAreaMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveDrawingAreaMethod "addChild" o = BuildableAddChildMethodInfo - ResolveDrawingAreaMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveDrawingAreaMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveDrawingAreaMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveDrawingAreaMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveDrawingAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDrawingAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDrawingAreaMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveDrawingAreaMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveDrawingAreaMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveDrawingAreaMethod "classPath" o = WidgetClassPathMethodInfo - ResolveDrawingAreaMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveDrawingAreaMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveDrawingAreaMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveDrawingAreaMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveDrawingAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveDrawingAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveDrawingAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveDrawingAreaMethod "destroy" o = WidgetDestroyMethodInfo - ResolveDrawingAreaMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveDrawingAreaMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveDrawingAreaMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveDrawingAreaMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveDrawingAreaMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveDrawingAreaMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveDrawingAreaMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveDrawingAreaMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveDrawingAreaMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveDrawingAreaMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveDrawingAreaMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveDrawingAreaMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveDrawingAreaMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveDrawingAreaMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveDrawingAreaMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveDrawingAreaMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveDrawingAreaMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveDrawingAreaMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveDrawingAreaMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveDrawingAreaMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveDrawingAreaMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveDrawingAreaMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveDrawingAreaMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveDrawingAreaMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveDrawingAreaMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveDrawingAreaMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveDrawingAreaMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveDrawingAreaMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveDrawingAreaMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveDrawingAreaMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveDrawingAreaMethod "draw" o = WidgetDrawMethodInfo - ResolveDrawingAreaMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveDrawingAreaMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveDrawingAreaMethod "event" o = WidgetEventMethodInfo - ResolveDrawingAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDrawingAreaMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveDrawingAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDrawingAreaMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveDrawingAreaMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveDrawingAreaMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveDrawingAreaMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveDrawingAreaMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveDrawingAreaMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveDrawingAreaMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveDrawingAreaMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveDrawingAreaMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveDrawingAreaMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveDrawingAreaMethod "hide" o = WidgetHideMethodInfo - ResolveDrawingAreaMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveDrawingAreaMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveDrawingAreaMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveDrawingAreaMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveDrawingAreaMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveDrawingAreaMethod "intersect" o = WidgetIntersectMethodInfo - ResolveDrawingAreaMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveDrawingAreaMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveDrawingAreaMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveDrawingAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDrawingAreaMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveDrawingAreaMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveDrawingAreaMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveDrawingAreaMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveDrawingAreaMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveDrawingAreaMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveDrawingAreaMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveDrawingAreaMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveDrawingAreaMethod "map" o = WidgetMapMethodInfo - ResolveDrawingAreaMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveDrawingAreaMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveDrawingAreaMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveDrawingAreaMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveDrawingAreaMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveDrawingAreaMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveDrawingAreaMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveDrawingAreaMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveDrawingAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDrawingAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDrawingAreaMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveDrawingAreaMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveDrawingAreaMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveDrawingAreaMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveDrawingAreaMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveDrawingAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveDrawingAreaMethod "path" o = WidgetPathMethodInfo - ResolveDrawingAreaMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveDrawingAreaMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveDrawingAreaMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveDrawingAreaMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveDrawingAreaMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveDrawingAreaMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveDrawingAreaMethod "realize" o = WidgetRealizeMethodInfo - ResolveDrawingAreaMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDrawingAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDrawingAreaMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveDrawingAreaMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveDrawingAreaMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveDrawingAreaMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveDrawingAreaMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveDrawingAreaMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveDrawingAreaMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveDrawingAreaMethod "reparent" o = WidgetReparentMethodInfo - ResolveDrawingAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDrawingAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDrawingAreaMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveDrawingAreaMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveDrawingAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDrawingAreaMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveDrawingAreaMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveDrawingAreaMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveDrawingAreaMethod "show" o = WidgetShowMethodInfo - ResolveDrawingAreaMethod "showAll" o = WidgetShowAllMethodInfo - ResolveDrawingAreaMethod "showNow" o = WidgetShowNowMethodInfo - ResolveDrawingAreaMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveDrawingAreaMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveDrawingAreaMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveDrawingAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDrawingAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDrawingAreaMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveDrawingAreaMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveDrawingAreaMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveDrawingAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDrawingAreaMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveDrawingAreaMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveDrawingAreaMethod "unmap" o = WidgetUnmapMethodInfo - ResolveDrawingAreaMethod "unparent" o = WidgetUnparentMethodInfo - ResolveDrawingAreaMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveDrawingAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDrawingAreaMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveDrawingAreaMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveDrawingAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDrawingAreaMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveDrawingAreaMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveDrawingAreaMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveDrawingAreaMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveDrawingAreaMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveDrawingAreaMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveDrawingAreaMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveDrawingAreaMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveDrawingAreaMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveDrawingAreaMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveDrawingAreaMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveDrawingAreaMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveDrawingAreaMethod "getClip" o = WidgetGetClipMethodInfo - ResolveDrawingAreaMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveDrawingAreaMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveDrawingAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDrawingAreaMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveDrawingAreaMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveDrawingAreaMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveDrawingAreaMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveDrawingAreaMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveDrawingAreaMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveDrawingAreaMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveDrawingAreaMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveDrawingAreaMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveDrawingAreaMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveDrawingAreaMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveDrawingAreaMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveDrawingAreaMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveDrawingAreaMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveDrawingAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveDrawingAreaMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveDrawingAreaMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveDrawingAreaMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveDrawingAreaMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveDrawingAreaMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveDrawingAreaMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveDrawingAreaMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveDrawingAreaMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveDrawingAreaMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveDrawingAreaMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveDrawingAreaMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveDrawingAreaMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveDrawingAreaMethod "getParent" o = WidgetGetParentMethodInfo - ResolveDrawingAreaMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveDrawingAreaMethod "getPath" o = WidgetGetPathMethodInfo - ResolveDrawingAreaMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveDrawingAreaMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveDrawingAreaMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveDrawingAreaMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveDrawingAreaMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveDrawingAreaMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveDrawingAreaMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveDrawingAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDrawingAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDrawingAreaMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveDrawingAreaMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveDrawingAreaMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveDrawingAreaMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveDrawingAreaMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveDrawingAreaMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveDrawingAreaMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveDrawingAreaMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveDrawingAreaMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveDrawingAreaMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveDrawingAreaMethod "getState" o = WidgetGetStateMethodInfo - ResolveDrawingAreaMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveDrawingAreaMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveDrawingAreaMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveDrawingAreaMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveDrawingAreaMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveDrawingAreaMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveDrawingAreaMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveDrawingAreaMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveDrawingAreaMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveDrawingAreaMethod "getValign" o = WidgetGetValignMethodInfo - ResolveDrawingAreaMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveDrawingAreaMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveDrawingAreaMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveDrawingAreaMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveDrawingAreaMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveDrawingAreaMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveDrawingAreaMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveDrawingAreaMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveDrawingAreaMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveDrawingAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveDrawingAreaMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveDrawingAreaMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveDrawingAreaMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveDrawingAreaMethod "setClip" o = WidgetSetClipMethodInfo - ResolveDrawingAreaMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveDrawingAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDrawingAreaMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveDrawingAreaMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveDrawingAreaMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveDrawingAreaMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveDrawingAreaMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveDrawingAreaMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveDrawingAreaMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveDrawingAreaMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveDrawingAreaMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveDrawingAreaMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveDrawingAreaMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveDrawingAreaMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveDrawingAreaMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveDrawingAreaMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveDrawingAreaMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveDrawingAreaMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveDrawingAreaMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveDrawingAreaMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveDrawingAreaMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveDrawingAreaMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveDrawingAreaMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveDrawingAreaMethod "setParent" o = WidgetSetParentMethodInfo - ResolveDrawingAreaMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveDrawingAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDrawingAreaMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveDrawingAreaMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveDrawingAreaMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveDrawingAreaMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveDrawingAreaMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveDrawingAreaMethod "setState" o = WidgetSetStateMethodInfo - ResolveDrawingAreaMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveDrawingAreaMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveDrawingAreaMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveDrawingAreaMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveDrawingAreaMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveDrawingAreaMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveDrawingAreaMethod "setValign" o = WidgetSetValignMethodInfo - ResolveDrawingAreaMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveDrawingAreaMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveDrawingAreaMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveDrawingAreaMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveDrawingAreaMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveDrawingAreaMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDrawingAreaMethod t DrawingArea, MethodInfo info DrawingArea p) => IsLabelProxy t (DrawingArea -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDrawingAreaMethod t DrawingArea, MethodInfo info DrawingArea p) => IsLabel t (DrawingArea -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DrawingArea = DrawingAreaAttributeList -type DrawingAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DrawingArea = DrawingAreaSignalList -type DrawingAreaSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method DrawingArea::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "DrawingArea") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drawing_area_new" gtk_drawing_area_new :: - IO (Ptr DrawingArea) - - -drawingAreaNew :: - (MonadIO m) => - m DrawingArea -- result -drawingAreaNew = liftIO $ do - result <- gtk_drawing_area_new - checkUnexpectedReturnNULL "gtk_drawing_area_new" result - result' <- (newObject DrawingArea) result - return result' - - diff --git a/GI/Gtk/Objects/DrawingArea.hs-boot b/GI/Gtk/Objects/DrawingArea.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/DrawingArea.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.DrawingArea 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 DrawingArea = DrawingArea (ForeignPtr DrawingArea) -instance GObject DrawingArea where -class GObject o => DrawingAreaK o -instance (GObject o, IsDescendantOf DrawingArea o) => DrawingAreaK o diff --git a/GI/Gtk/Objects/Entry.hs b/GI/Gtk/Objects/Entry.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Entry.hs +++ /dev/null @@ -1,5754 +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.Gtk.Objects.Entry - ( - --- * Exported types - Entry(..) , - EntryK , - toEntry , - noEntry , - - - -- * Methods --- ** entryGetActivatesDefault - EntryGetActivatesDefaultMethodInfo , - entryGetActivatesDefault , - - --- ** entryGetAlignment - EntryGetAlignmentMethodInfo , - entryGetAlignment , - - --- ** entryGetAttributes - EntryGetAttributesMethodInfo , - entryGetAttributes , - - --- ** entryGetBuffer - EntryGetBufferMethodInfo , - entryGetBuffer , - - --- ** entryGetCompletion - EntryGetCompletionMethodInfo , - entryGetCompletion , - - --- ** entryGetCurrentIconDragSource - EntryGetCurrentIconDragSourceMethodInfo , - entryGetCurrentIconDragSource , - - --- ** entryGetCursorHadjustment - EntryGetCursorHadjustmentMethodInfo , - entryGetCursorHadjustment , - - --- ** entryGetHasFrame - EntryGetHasFrameMethodInfo , - entryGetHasFrame , - - --- ** entryGetIconActivatable - EntryGetIconActivatableMethodInfo , - entryGetIconActivatable , - - --- ** entryGetIconArea - EntryGetIconAreaMethodInfo , - entryGetIconArea , - - --- ** entryGetIconAtPos - EntryGetIconAtPosMethodInfo , - entryGetIconAtPos , - - --- ** entryGetIconGicon - EntryGetIconGiconMethodInfo , - entryGetIconGicon , - - --- ** entryGetIconName - EntryGetIconNameMethodInfo , - entryGetIconName , - - --- ** entryGetIconPixbuf - EntryGetIconPixbufMethodInfo , - entryGetIconPixbuf , - - --- ** entryGetIconSensitive - EntryGetIconSensitiveMethodInfo , - entryGetIconSensitive , - - --- ** entryGetIconStock - EntryGetIconStockMethodInfo , - entryGetIconStock , - - --- ** entryGetIconStorageType - EntryGetIconStorageTypeMethodInfo , - entryGetIconStorageType , - - --- ** entryGetIconTooltipMarkup - EntryGetIconTooltipMarkupMethodInfo , - entryGetIconTooltipMarkup , - - --- ** entryGetIconTooltipText - EntryGetIconTooltipTextMethodInfo , - entryGetIconTooltipText , - - --- ** entryGetInnerBorder - EntryGetInnerBorderMethodInfo , - entryGetInnerBorder , - - --- ** entryGetInputHints - EntryGetInputHintsMethodInfo , - entryGetInputHints , - - --- ** entryGetInputPurpose - EntryGetInputPurposeMethodInfo , - entryGetInputPurpose , - - --- ** entryGetInvisibleChar - EntryGetInvisibleCharMethodInfo , - entryGetInvisibleChar , - - --- ** entryGetLayout - EntryGetLayoutMethodInfo , - entryGetLayout , - - --- ** entryGetLayoutOffsets - EntryGetLayoutOffsetsMethodInfo , - entryGetLayoutOffsets , - - --- ** entryGetMaxLength - EntryGetMaxLengthMethodInfo , - entryGetMaxLength , - - --- ** entryGetMaxWidthChars - EntryGetMaxWidthCharsMethodInfo , - entryGetMaxWidthChars , - - --- ** entryGetOverwriteMode - EntryGetOverwriteModeMethodInfo , - entryGetOverwriteMode , - - --- ** entryGetPlaceholderText - EntryGetPlaceholderTextMethodInfo , - entryGetPlaceholderText , - - --- ** entryGetProgressFraction - EntryGetProgressFractionMethodInfo , - entryGetProgressFraction , - - --- ** entryGetProgressPulseStep - EntryGetProgressPulseStepMethodInfo , - entryGetProgressPulseStep , - - --- ** entryGetTabs - EntryGetTabsMethodInfo , - entryGetTabs , - - --- ** entryGetText - EntryGetTextMethodInfo , - entryGetText , - - --- ** entryGetTextArea - EntryGetTextAreaMethodInfo , - entryGetTextArea , - - --- ** entryGetTextLength - EntryGetTextLengthMethodInfo , - entryGetTextLength , - - --- ** entryGetVisibility - EntryGetVisibilityMethodInfo , - entryGetVisibility , - - --- ** entryGetWidthChars - EntryGetWidthCharsMethodInfo , - entryGetWidthChars , - - --- ** entryGrabFocusWithoutSelecting - EntryGrabFocusWithoutSelectingMethodInfo, - entryGrabFocusWithoutSelecting , - - --- ** entryImContextFilterKeypress - EntryImContextFilterKeypressMethodInfo , - entryImContextFilterKeypress , - - --- ** entryLayoutIndexToTextIndex - EntryLayoutIndexToTextIndexMethodInfo , - entryLayoutIndexToTextIndex , - - --- ** entryNew - entryNew , - - --- ** entryNewWithBuffer - entryNewWithBuffer , - - --- ** entryProgressPulse - EntryProgressPulseMethodInfo , - entryProgressPulse , - - --- ** entryResetImContext - EntryResetImContextMethodInfo , - entryResetImContext , - - --- ** entrySetActivatesDefault - EntrySetActivatesDefaultMethodInfo , - entrySetActivatesDefault , - - --- ** entrySetAlignment - EntrySetAlignmentMethodInfo , - entrySetAlignment , - - --- ** entrySetAttributes - EntrySetAttributesMethodInfo , - entrySetAttributes , - - --- ** entrySetBuffer - EntrySetBufferMethodInfo , - entrySetBuffer , - - --- ** entrySetCompletion - EntrySetCompletionMethodInfo , - entrySetCompletion , - - --- ** entrySetCursorHadjustment - EntrySetCursorHadjustmentMethodInfo , - entrySetCursorHadjustment , - - --- ** entrySetHasFrame - EntrySetHasFrameMethodInfo , - entrySetHasFrame , - - --- ** entrySetIconActivatable - EntrySetIconActivatableMethodInfo , - entrySetIconActivatable , - - --- ** entrySetIconDragSource - EntrySetIconDragSourceMethodInfo , - entrySetIconDragSource , - - --- ** entrySetIconFromGicon - EntrySetIconFromGiconMethodInfo , - entrySetIconFromGicon , - - --- ** entrySetIconFromIconName - EntrySetIconFromIconNameMethodInfo , - entrySetIconFromIconName , - - --- ** entrySetIconFromPixbuf - EntrySetIconFromPixbufMethodInfo , - entrySetIconFromPixbuf , - - --- ** entrySetIconFromStock - EntrySetIconFromStockMethodInfo , - entrySetIconFromStock , - - --- ** entrySetIconSensitive - EntrySetIconSensitiveMethodInfo , - entrySetIconSensitive , - - --- ** entrySetIconTooltipMarkup - EntrySetIconTooltipMarkupMethodInfo , - entrySetIconTooltipMarkup , - - --- ** entrySetIconTooltipText - EntrySetIconTooltipTextMethodInfo , - entrySetIconTooltipText , - - --- ** entrySetInnerBorder - EntrySetInnerBorderMethodInfo , - entrySetInnerBorder , - - --- ** entrySetInputHints - EntrySetInputHintsMethodInfo , - entrySetInputHints , - - --- ** entrySetInputPurpose - EntrySetInputPurposeMethodInfo , - entrySetInputPurpose , - - --- ** entrySetInvisibleChar - EntrySetInvisibleCharMethodInfo , - entrySetInvisibleChar , - - --- ** entrySetMaxLength - EntrySetMaxLengthMethodInfo , - entrySetMaxLength , - - --- ** entrySetMaxWidthChars - EntrySetMaxWidthCharsMethodInfo , - entrySetMaxWidthChars , - - --- ** entrySetOverwriteMode - EntrySetOverwriteModeMethodInfo , - entrySetOverwriteMode , - - --- ** entrySetPlaceholderText - EntrySetPlaceholderTextMethodInfo , - entrySetPlaceholderText , - - --- ** entrySetProgressFraction - EntrySetProgressFractionMethodInfo , - entrySetProgressFraction , - - --- ** entrySetProgressPulseStep - EntrySetProgressPulseStepMethodInfo , - entrySetProgressPulseStep , - - --- ** entrySetTabs - EntrySetTabsMethodInfo , - entrySetTabs , - - --- ** entrySetText - EntrySetTextMethodInfo , - entrySetText , - - --- ** entrySetVisibility - EntrySetVisibilityMethodInfo , - entrySetVisibility , - - --- ** entrySetWidthChars - EntrySetWidthCharsMethodInfo , - entrySetWidthChars , - - --- ** entryTextIndexToLayoutIndex - EntryTextIndexToLayoutIndexMethodInfo , - entryTextIndexToLayoutIndex , - - --- ** entryUnsetInvisibleChar - EntryUnsetInvisibleCharMethodInfo , - entryUnsetInvisibleChar , - - - - - -- * Properties --- ** ActivatesDefault - EntryActivatesDefaultPropertyInfo , - constructEntryActivatesDefault , - entryActivatesDefault , - getEntryActivatesDefault , - setEntryActivatesDefault , - - --- ** Attributes - EntryAttributesPropertyInfo , - constructEntryAttributes , - entryAttributes , - getEntryAttributes , - setEntryAttributes , - - --- ** Buffer - EntryBufferPropertyInfo , - constructEntryBuffer , - entryBuffer , - getEntryBuffer , - setEntryBuffer , - - --- ** CapsLockWarning - EntryCapsLockWarningPropertyInfo , - constructEntryCapsLockWarning , - entryCapsLockWarning , - getEntryCapsLockWarning , - setEntryCapsLockWarning , - - --- ** Completion - EntryCompletionPropertyInfo , - clearEntryCompletion , - constructEntryCompletion , - entryCompletion , - getEntryCompletion , - setEntryCompletion , - - --- ** CursorPosition - EntryCursorPositionPropertyInfo , - entryCursorPosition , - getEntryCursorPosition , - - --- ** Editable - EntryEditablePropertyInfo , - constructEntryEditable , - entryEditable , - getEntryEditable , - setEntryEditable , - - --- ** HasFrame - EntryHasFramePropertyInfo , - constructEntryHasFrame , - entryHasFrame , - getEntryHasFrame , - setEntryHasFrame , - - --- ** ImModule - EntryImModulePropertyInfo , - clearEntryImModule , - constructEntryImModule , - entryImModule , - getEntryImModule , - setEntryImModule , - - --- ** InnerBorder - EntryInnerBorderPropertyInfo , - clearEntryInnerBorder , - constructEntryInnerBorder , - entryInnerBorder , - getEntryInnerBorder , - setEntryInnerBorder , - - --- ** InputHints - EntryInputHintsPropertyInfo , - constructEntryInputHints , - entryInputHints , - getEntryInputHints , - setEntryInputHints , - - --- ** InputPurpose - EntryInputPurposePropertyInfo , - constructEntryInputPurpose , - entryInputPurpose , - getEntryInputPurpose , - setEntryInputPurpose , - - --- ** InvisibleChar - EntryInvisibleCharPropertyInfo , - constructEntryInvisibleChar , - entryInvisibleChar , - getEntryInvisibleChar , - setEntryInvisibleChar , - - --- ** InvisibleCharSet - EntryInvisibleCharSetPropertyInfo , - constructEntryInvisibleCharSet , - entryInvisibleCharSet , - getEntryInvisibleCharSet , - setEntryInvisibleCharSet , - - --- ** MaxLength - EntryMaxLengthPropertyInfo , - constructEntryMaxLength , - entryMaxLength , - getEntryMaxLength , - setEntryMaxLength , - - --- ** MaxWidthChars - EntryMaxWidthCharsPropertyInfo , - constructEntryMaxWidthChars , - entryMaxWidthChars , - getEntryMaxWidthChars , - setEntryMaxWidthChars , - - --- ** OverwriteMode - EntryOverwriteModePropertyInfo , - constructEntryOverwriteMode , - entryOverwriteMode , - getEntryOverwriteMode , - setEntryOverwriteMode , - - --- ** PlaceholderText - EntryPlaceholderTextPropertyInfo , - clearEntryPlaceholderText , - constructEntryPlaceholderText , - entryPlaceholderText , - getEntryPlaceholderText , - setEntryPlaceholderText , - - --- ** PopulateAll - EntryPopulateAllPropertyInfo , - constructEntryPopulateAll , - entryPopulateAll , - getEntryPopulateAll , - setEntryPopulateAll , - - --- ** PrimaryIconActivatable - EntryPrimaryIconActivatablePropertyInfo , - constructEntryPrimaryIconActivatable , - entryPrimaryIconActivatable , - getEntryPrimaryIconActivatable , - setEntryPrimaryIconActivatable , - - --- ** PrimaryIconGicon - EntryPrimaryIconGiconPropertyInfo , - clearEntryPrimaryIconGicon , - constructEntryPrimaryIconGicon , - entryPrimaryIconGicon , - getEntryPrimaryIconGicon , - setEntryPrimaryIconGicon , - - --- ** PrimaryIconName - EntryPrimaryIconNamePropertyInfo , - clearEntryPrimaryIconName , - constructEntryPrimaryIconName , - entryPrimaryIconName , - getEntryPrimaryIconName , - setEntryPrimaryIconName , - - --- ** PrimaryIconPixbuf - EntryPrimaryIconPixbufPropertyInfo , - clearEntryPrimaryIconPixbuf , - constructEntryPrimaryIconPixbuf , - entryPrimaryIconPixbuf , - getEntryPrimaryIconPixbuf , - setEntryPrimaryIconPixbuf , - - --- ** PrimaryIconSensitive - EntryPrimaryIconSensitivePropertyInfo , - constructEntryPrimaryIconSensitive , - entryPrimaryIconSensitive , - getEntryPrimaryIconSensitive , - setEntryPrimaryIconSensitive , - - --- ** PrimaryIconStock - EntryPrimaryIconStockPropertyInfo , - clearEntryPrimaryIconStock , - constructEntryPrimaryIconStock , - entryPrimaryIconStock , - getEntryPrimaryIconStock , - setEntryPrimaryIconStock , - - --- ** PrimaryIconStorageType - EntryPrimaryIconStorageTypePropertyInfo , - entryPrimaryIconStorageType , - getEntryPrimaryIconStorageType , - - --- ** PrimaryIconTooltipMarkup - EntryPrimaryIconTooltipMarkupPropertyInfo, - clearEntryPrimaryIconTooltipMarkup , - constructEntryPrimaryIconTooltipMarkup , - entryPrimaryIconTooltipMarkup , - getEntryPrimaryIconTooltipMarkup , - setEntryPrimaryIconTooltipMarkup , - - --- ** PrimaryIconTooltipText - EntryPrimaryIconTooltipTextPropertyInfo , - clearEntryPrimaryIconTooltipText , - constructEntryPrimaryIconTooltipText , - entryPrimaryIconTooltipText , - getEntryPrimaryIconTooltipText , - setEntryPrimaryIconTooltipText , - - --- ** ProgressFraction - EntryProgressFractionPropertyInfo , - constructEntryProgressFraction , - entryProgressFraction , - getEntryProgressFraction , - setEntryProgressFraction , - - --- ** ProgressPulseStep - EntryProgressPulseStepPropertyInfo , - constructEntryProgressPulseStep , - entryProgressPulseStep , - getEntryProgressPulseStep , - setEntryProgressPulseStep , - - --- ** ScrollOffset - EntryScrollOffsetPropertyInfo , - entryScrollOffset , - getEntryScrollOffset , - - --- ** SecondaryIconActivatable - EntrySecondaryIconActivatablePropertyInfo, - constructEntrySecondaryIconActivatable , - entrySecondaryIconActivatable , - getEntrySecondaryIconActivatable , - setEntrySecondaryIconActivatable , - - --- ** SecondaryIconGicon - EntrySecondaryIconGiconPropertyInfo , - clearEntrySecondaryIconGicon , - constructEntrySecondaryIconGicon , - entrySecondaryIconGicon , - getEntrySecondaryIconGicon , - setEntrySecondaryIconGicon , - - --- ** SecondaryIconName - EntrySecondaryIconNamePropertyInfo , - clearEntrySecondaryIconName , - constructEntrySecondaryIconName , - entrySecondaryIconName , - getEntrySecondaryIconName , - setEntrySecondaryIconName , - - --- ** SecondaryIconPixbuf - EntrySecondaryIconPixbufPropertyInfo , - clearEntrySecondaryIconPixbuf , - constructEntrySecondaryIconPixbuf , - entrySecondaryIconPixbuf , - getEntrySecondaryIconPixbuf , - setEntrySecondaryIconPixbuf , - - --- ** SecondaryIconSensitive - EntrySecondaryIconSensitivePropertyInfo , - constructEntrySecondaryIconSensitive , - entrySecondaryIconSensitive , - getEntrySecondaryIconSensitive , - setEntrySecondaryIconSensitive , - - --- ** SecondaryIconStock - EntrySecondaryIconStockPropertyInfo , - clearEntrySecondaryIconStock , - constructEntrySecondaryIconStock , - entrySecondaryIconStock , - getEntrySecondaryIconStock , - setEntrySecondaryIconStock , - - --- ** SecondaryIconStorageType - EntrySecondaryIconStorageTypePropertyInfo, - entrySecondaryIconStorageType , - getEntrySecondaryIconStorageType , - - --- ** SecondaryIconTooltipMarkup - EntrySecondaryIconTooltipMarkupPropertyInfo, - clearEntrySecondaryIconTooltipMarkup , - constructEntrySecondaryIconTooltipMarkup, - entrySecondaryIconTooltipMarkup , - getEntrySecondaryIconTooltipMarkup , - setEntrySecondaryIconTooltipMarkup , - - --- ** SecondaryIconTooltipText - EntrySecondaryIconTooltipTextPropertyInfo, - clearEntrySecondaryIconTooltipText , - constructEntrySecondaryIconTooltipText , - entrySecondaryIconTooltipText , - getEntrySecondaryIconTooltipText , - setEntrySecondaryIconTooltipText , - - --- ** SelectionBound - EntrySelectionBoundPropertyInfo , - entrySelectionBound , - getEntrySelectionBound , - - --- ** ShadowType - EntryShadowTypePropertyInfo , - constructEntryShadowType , - entryShadowType , - getEntryShadowType , - setEntryShadowType , - - --- ** Tabs - EntryTabsPropertyInfo , - constructEntryTabs , - entryTabs , - getEntryTabs , - setEntryTabs , - - --- ** Text - EntryTextPropertyInfo , - constructEntryText , - entryText , - getEntryText , - setEntryText , - - --- ** TextLength - EntryTextLengthPropertyInfo , - entryTextLength , - getEntryTextLength , - - --- ** TruncateMultiline - EntryTruncateMultilinePropertyInfo , - constructEntryTruncateMultiline , - entryTruncateMultiline , - getEntryTruncateMultiline , - setEntryTruncateMultiline , - - --- ** Visibility - EntryVisibilityPropertyInfo , - constructEntryVisibility , - entryVisibility , - getEntryVisibility , - setEntryVisibility , - - --- ** WidthChars - EntryWidthCharsPropertyInfo , - constructEntryWidthChars , - entryWidthChars , - getEntryWidthChars , - setEntryWidthChars , - - --- ** Xalign - EntryXalignPropertyInfo , - constructEntryXalign , - entryXalign , - getEntryXalign , - setEntryXalign , - - - - - -- * Signals --- ** Activate - EntryActivateCallback , - EntryActivateCallbackC , - EntryActivateSignalInfo , - afterEntryActivate , - entryActivateCallbackWrapper , - entryActivateClosure , - mkEntryActivateCallback , - noEntryActivateCallback , - onEntryActivate , - - --- ** Backspace - EntryBackspaceCallback , - EntryBackspaceCallbackC , - EntryBackspaceSignalInfo , - afterEntryBackspace , - entryBackspaceCallbackWrapper , - entryBackspaceClosure , - mkEntryBackspaceCallback , - noEntryBackspaceCallback , - onEntryBackspace , - - --- ** CopyClipboard - EntryCopyClipboardCallback , - EntryCopyClipboardCallbackC , - EntryCopyClipboardSignalInfo , - afterEntryCopyClipboard , - entryCopyClipboardCallbackWrapper , - entryCopyClipboardClosure , - mkEntryCopyClipboardCallback , - noEntryCopyClipboardCallback , - onEntryCopyClipboard , - - --- ** CutClipboard - EntryCutClipboardCallback , - EntryCutClipboardCallbackC , - EntryCutClipboardSignalInfo , - afterEntryCutClipboard , - entryCutClipboardCallbackWrapper , - entryCutClipboardClosure , - mkEntryCutClipboardCallback , - noEntryCutClipboardCallback , - onEntryCutClipboard , - - --- ** DeleteFromCursor - EntryDeleteFromCursorCallback , - EntryDeleteFromCursorCallbackC , - EntryDeleteFromCursorSignalInfo , - afterEntryDeleteFromCursor , - entryDeleteFromCursorCallbackWrapper , - entryDeleteFromCursorClosure , - mkEntryDeleteFromCursorCallback , - noEntryDeleteFromCursorCallback , - onEntryDeleteFromCursor , - - --- ** IconPress - EntryIconPressCallback , - EntryIconPressCallbackC , - EntryIconPressSignalInfo , - afterEntryIconPress , - entryIconPressCallbackWrapper , - entryIconPressClosure , - mkEntryIconPressCallback , - noEntryIconPressCallback , - onEntryIconPress , - - --- ** IconRelease - EntryIconReleaseCallback , - EntryIconReleaseCallbackC , - EntryIconReleaseSignalInfo , - afterEntryIconRelease , - entryIconReleaseCallbackWrapper , - entryIconReleaseClosure , - mkEntryIconReleaseCallback , - noEntryIconReleaseCallback , - onEntryIconRelease , - - --- ** InsertAtCursor - EntryInsertAtCursorCallback , - EntryInsertAtCursorCallbackC , - EntryInsertAtCursorSignalInfo , - afterEntryInsertAtCursor , - entryInsertAtCursorCallbackWrapper , - entryInsertAtCursorClosure , - mkEntryInsertAtCursorCallback , - noEntryInsertAtCursorCallback , - onEntryInsertAtCursor , - - --- ** MoveCursor - EntryMoveCursorCallback , - EntryMoveCursorCallbackC , - EntryMoveCursorSignalInfo , - afterEntryMoveCursor , - entryMoveCursorCallbackWrapper , - entryMoveCursorClosure , - mkEntryMoveCursorCallback , - noEntryMoveCursorCallback , - onEntryMoveCursor , - - --- ** PasteClipboard - EntryPasteClipboardCallback , - EntryPasteClipboardCallbackC , - EntryPasteClipboardSignalInfo , - afterEntryPasteClipboard , - entryPasteClipboardCallbackWrapper , - entryPasteClipboardClosure , - mkEntryPasteClipboardCallback , - noEntryPasteClipboardCallback , - onEntryPasteClipboard , - - --- ** PopulatePopup - EntryPopulatePopupCallback , - EntryPopulatePopupCallbackC , - EntryPopulatePopupSignalInfo , - afterEntryPopulatePopup , - entryPopulatePopupCallbackWrapper , - entryPopulatePopupClosure , - mkEntryPopulatePopupCallback , - noEntryPopulatePopupCallback , - onEntryPopulatePopup , - - --- ** PreeditChanged - EntryPreeditChangedCallback , - EntryPreeditChangedCallbackC , - EntryPreeditChangedSignalInfo , - afterEntryPreeditChanged , - entryPreeditChangedCallbackWrapper , - entryPreeditChangedClosure , - mkEntryPreeditChangedCallback , - noEntryPreeditChangedCallback , - onEntryPreeditChanged , - - --- ** ToggleOverwrite - EntryToggleOverwriteCallback , - EntryToggleOverwriteCallbackC , - EntryToggleOverwriteSignalInfo , - afterEntryToggleOverwrite , - entryToggleOverwriteCallbackWrapper , - entryToggleOverwriteClosure , - mkEntryToggleOverwriteCallback , - noEntryToggleOverwriteCallback , - onEntryToggleOverwrite , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Pango as Pango - -newtype Entry = Entry (ForeignPtr Entry) -foreign import ccall "gtk_entry_get_type" - c_gtk_entry_get_type :: IO GType - -type instance ParentTypes Entry = EntryParentTypes -type EntryParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable] - -instance GObject Entry where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_entry_get_type - - -class GObject o => EntryK o -instance (GObject o, IsDescendantOf Entry o) => EntryK o - -toEntry :: EntryK o => o -> IO Entry -toEntry = unsafeCastTo Entry - -noEntry :: Maybe Entry -noEntry = Nothing - -type family ResolveEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveEntryMethod "activate" o = WidgetActivateMethodInfo - ResolveEntryMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveEntryMethod "addChild" o = BuildableAddChildMethodInfo - ResolveEntryMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveEntryMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveEntryMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveEntryMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveEntryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEntryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEntryMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveEntryMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveEntryMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveEntryMethod "classPath" o = WidgetClassPathMethodInfo - ResolveEntryMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveEntryMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveEntryMethod "copyClipboard" o = EditableCopyClipboardMethodInfo - ResolveEntryMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveEntryMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveEntryMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveEntryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveEntryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveEntryMethod "cutClipboard" o = EditableCutClipboardMethodInfo - ResolveEntryMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo - ResolveEntryMethod "deleteText" o = EditableDeleteTextMethodInfo - ResolveEntryMethod "destroy" o = WidgetDestroyMethodInfo - ResolveEntryMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveEntryMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveEntryMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveEntryMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveEntryMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveEntryMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveEntryMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveEntryMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveEntryMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveEntryMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveEntryMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveEntryMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveEntryMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveEntryMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveEntryMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveEntryMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveEntryMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveEntryMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveEntryMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveEntryMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveEntryMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveEntryMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveEntryMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveEntryMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveEntryMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveEntryMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveEntryMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveEntryMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveEntryMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveEntryMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveEntryMethod "draw" o = WidgetDrawMethodInfo - ResolveEntryMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveEntryMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveEntryMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveEntryMethod "event" o = WidgetEventMethodInfo - ResolveEntryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEntryMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveEntryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEntryMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveEntryMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveEntryMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveEntryMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo - ResolveEntryMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveEntryMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveEntryMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveEntryMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveEntryMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveEntryMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveEntryMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveEntryMethod "hide" o = WidgetHideMethodInfo - ResolveEntryMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveEntryMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo - ResolveEntryMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveEntryMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveEntryMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveEntryMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveEntryMethod "insertText" o = EditableInsertTextMethodInfo - ResolveEntryMethod "intersect" o = WidgetIntersectMethodInfo - ResolveEntryMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveEntryMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveEntryMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveEntryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEntryMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveEntryMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveEntryMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveEntryMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveEntryMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveEntryMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo - ResolveEntryMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveEntryMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveEntryMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveEntryMethod "map" o = WidgetMapMethodInfo - ResolveEntryMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveEntryMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveEntryMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveEntryMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveEntryMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveEntryMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveEntryMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveEntryMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveEntryMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEntryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEntryMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveEntryMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveEntryMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveEntryMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveEntryMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveEntryMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveEntryMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo - ResolveEntryMethod "path" o = WidgetPathMethodInfo - ResolveEntryMethod "progressPulse" o = EntryProgressPulseMethodInfo - ResolveEntryMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveEntryMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveEntryMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveEntryMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveEntryMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveEntryMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveEntryMethod "realize" o = WidgetRealizeMethodInfo - ResolveEntryMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEntryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEntryMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveEntryMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveEntryMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveEntryMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveEntryMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveEntryMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveEntryMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveEntryMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveEntryMethod "reparent" o = WidgetReparentMethodInfo - ResolveEntryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEntryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEntryMethod "resetImContext" o = EntryResetImContextMethodInfo - ResolveEntryMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveEntryMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveEntryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEntryMethod "selectRegion" o = EditableSelectRegionMethodInfo - ResolveEntryMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveEntryMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveEntryMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveEntryMethod "show" o = WidgetShowMethodInfo - ResolveEntryMethod "showAll" o = WidgetShowAllMethodInfo - ResolveEntryMethod "showNow" o = WidgetShowNowMethodInfo - ResolveEntryMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveEntryMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveEntryMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveEntryMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveEntryMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEntryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEntryMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveEntryMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveEntryMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo - ResolveEntryMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveEntryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEntryMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveEntryMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveEntryMethod "unmap" o = WidgetUnmapMethodInfo - ResolveEntryMethod "unparent" o = WidgetUnparentMethodInfo - ResolveEntryMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveEntryMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEntryMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveEntryMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo - ResolveEntryMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveEntryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEntryMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveEntryMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveEntryMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo - ResolveEntryMethod "getAlignment" o = EntryGetAlignmentMethodInfo - ResolveEntryMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveEntryMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveEntryMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveEntryMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveEntryMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveEntryMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveEntryMethod "getAttributes" o = EntryGetAttributesMethodInfo - ResolveEntryMethod "getBuffer" o = EntryGetBufferMethodInfo - ResolveEntryMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveEntryMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveEntryMethod "getChars" o = EditableGetCharsMethodInfo - ResolveEntryMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveEntryMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveEntryMethod "getClip" o = WidgetGetClipMethodInfo - ResolveEntryMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveEntryMethod "getCompletion" o = EntryGetCompletionMethodInfo - ResolveEntryMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveEntryMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo - ResolveEntryMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo - ResolveEntryMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEntryMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveEntryMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveEntryMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveEntryMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveEntryMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveEntryMethod "getEditable" o = EditableGetEditableMethodInfo - ResolveEntryMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveEntryMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveEntryMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveEntryMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveEntryMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveEntryMethod "getHasFrame" o = EntryGetHasFrameMethodInfo - ResolveEntryMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveEntryMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveEntryMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveEntryMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveEntryMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo - ResolveEntryMethod "getIconArea" o = EntryGetIconAreaMethodInfo - ResolveEntryMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo - ResolveEntryMethod "getIconGicon" o = EntryGetIconGiconMethodInfo - ResolveEntryMethod "getIconName" o = EntryGetIconNameMethodInfo - ResolveEntryMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo - ResolveEntryMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo - ResolveEntryMethod "getIconStock" o = EntryGetIconStockMethodInfo - ResolveEntryMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo - ResolveEntryMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo - ResolveEntryMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo - ResolveEntryMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo - ResolveEntryMethod "getInputHints" o = EntryGetInputHintsMethodInfo - ResolveEntryMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo - ResolveEntryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveEntryMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo - ResolveEntryMethod "getLayout" o = EntryGetLayoutMethodInfo - ResolveEntryMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo - ResolveEntryMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveEntryMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveEntryMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveEntryMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveEntryMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveEntryMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveEntryMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveEntryMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo - ResolveEntryMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo - ResolveEntryMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveEntryMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveEntryMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveEntryMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveEntryMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo - ResolveEntryMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveEntryMethod "getParent" o = WidgetGetParentMethodInfo - ResolveEntryMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveEntryMethod "getPath" o = WidgetGetPathMethodInfo - ResolveEntryMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo - ResolveEntryMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveEntryMethod "getPosition" o = EditableGetPositionMethodInfo - ResolveEntryMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveEntryMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveEntryMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveEntryMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveEntryMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveEntryMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveEntryMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo - ResolveEntryMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo - ResolveEntryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEntryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEntryMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveEntryMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveEntryMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveEntryMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveEntryMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveEntryMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveEntryMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveEntryMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo - ResolveEntryMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveEntryMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveEntryMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveEntryMethod "getState" o = WidgetGetStateMethodInfo - ResolveEntryMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveEntryMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveEntryMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveEntryMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveEntryMethod "getTabs" o = EntryGetTabsMethodInfo - ResolveEntryMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveEntryMethod "getText" o = EntryGetTextMethodInfo - ResolveEntryMethod "getTextArea" o = EntryGetTextAreaMethodInfo - ResolveEntryMethod "getTextLength" o = EntryGetTextLengthMethodInfo - ResolveEntryMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveEntryMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveEntryMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveEntryMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveEntryMethod "getValign" o = WidgetGetValignMethodInfo - ResolveEntryMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveEntryMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveEntryMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveEntryMethod "getVisibility" o = EntryGetVisibilityMethodInfo - ResolveEntryMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveEntryMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveEntryMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo - ResolveEntryMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveEntryMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveEntryMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo - ResolveEntryMethod "setAlignment" o = EntrySetAlignmentMethodInfo - ResolveEntryMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveEntryMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveEntryMethod "setAttributes" o = EntrySetAttributesMethodInfo - ResolveEntryMethod "setBuffer" o = EntrySetBufferMethodInfo - ResolveEntryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveEntryMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveEntryMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveEntryMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveEntryMethod "setClip" o = WidgetSetClipMethodInfo - ResolveEntryMethod "setCompletion" o = EntrySetCompletionMethodInfo - ResolveEntryMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveEntryMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo - ResolveEntryMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEntryMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveEntryMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveEntryMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveEntryMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveEntryMethod "setEditable" o = EditableSetEditableMethodInfo - ResolveEntryMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveEntryMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveEntryMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveEntryMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveEntryMethod "setHasFrame" o = EntrySetHasFrameMethodInfo - ResolveEntryMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveEntryMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveEntryMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveEntryMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveEntryMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo - ResolveEntryMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo - ResolveEntryMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo - ResolveEntryMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo - ResolveEntryMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo - ResolveEntryMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo - ResolveEntryMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo - ResolveEntryMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo - ResolveEntryMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo - ResolveEntryMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo - ResolveEntryMethod "setInputHints" o = EntrySetInputHintsMethodInfo - ResolveEntryMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo - ResolveEntryMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo - ResolveEntryMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveEntryMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveEntryMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveEntryMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveEntryMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveEntryMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveEntryMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveEntryMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo - ResolveEntryMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo - ResolveEntryMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveEntryMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveEntryMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo - ResolveEntryMethod "setParent" o = WidgetSetParentMethodInfo - ResolveEntryMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveEntryMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo - ResolveEntryMethod "setPosition" o = EditableSetPositionMethodInfo - ResolveEntryMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo - ResolveEntryMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo - ResolveEntryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEntryMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveEntryMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveEntryMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveEntryMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveEntryMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveEntryMethod "setState" o = WidgetSetStateMethodInfo - ResolveEntryMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveEntryMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveEntryMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveEntryMethod "setTabs" o = EntrySetTabsMethodInfo - ResolveEntryMethod "setText" o = EntrySetTextMethodInfo - ResolveEntryMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveEntryMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveEntryMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveEntryMethod "setValign" o = WidgetSetValignMethodInfo - ResolveEntryMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveEntryMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveEntryMethod "setVisibility" o = EntrySetVisibilityMethodInfo - ResolveEntryMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveEntryMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveEntryMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo - ResolveEntryMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEntryMethod t Entry, MethodInfo info Entry p) => IsLabelProxy t (Entry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEntryMethod t Entry, MethodInfo info Entry p) => IsLabel t (Entry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Entry::activate -type EntryActivateCallback = - IO () - -noEntryActivateCallback :: Maybe EntryActivateCallback -noEntryActivateCallback = Nothing - -type EntryActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryActivateCallback :: EntryActivateCallbackC -> IO (FunPtr EntryActivateCallbackC) - -entryActivateClosure :: EntryActivateCallback -> IO Closure -entryActivateClosure cb = newCClosure =<< mkEntryActivateCallback wrapped - where wrapped = entryActivateCallbackWrapper cb - -entryActivateCallbackWrapper :: - EntryActivateCallback -> - Ptr () -> - Ptr () -> - IO () -entryActivateCallbackWrapper _cb _ _ = do - _cb - -onEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId -onEntryActivate obj cb = liftIO $ connectEntryActivate obj cb SignalConnectBefore -afterEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId -afterEntryActivate obj cb = connectEntryActivate obj cb SignalConnectAfter - -connectEntryActivate :: (GObject a, MonadIO m) => - a -> EntryActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryActivate obj cb after = liftIO $ do - cb' <- mkEntryActivateCallback (entryActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Entry::backspace -type EntryBackspaceCallback = - IO () - -noEntryBackspaceCallback :: Maybe EntryBackspaceCallback -noEntryBackspaceCallback = Nothing - -type EntryBackspaceCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryBackspaceCallback :: EntryBackspaceCallbackC -> IO (FunPtr EntryBackspaceCallbackC) - -entryBackspaceClosure :: EntryBackspaceCallback -> IO Closure -entryBackspaceClosure cb = newCClosure =<< mkEntryBackspaceCallback wrapped - where wrapped = entryBackspaceCallbackWrapper cb - -entryBackspaceCallbackWrapper :: - EntryBackspaceCallback -> - Ptr () -> - Ptr () -> - IO () -entryBackspaceCallbackWrapper _cb _ _ = do - _cb - -onEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId -onEntryBackspace obj cb = liftIO $ connectEntryBackspace obj cb SignalConnectBefore -afterEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId -afterEntryBackspace obj cb = connectEntryBackspace obj cb SignalConnectAfter - -connectEntryBackspace :: (GObject a, MonadIO m) => - a -> EntryBackspaceCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryBackspace obj cb after = liftIO $ do - cb' <- mkEntryBackspaceCallback (entryBackspaceCallbackWrapper cb) - connectSignalFunPtr obj "backspace" cb' after - --- signal Entry::copy-clipboard -type EntryCopyClipboardCallback = - IO () - -noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback -noEntryCopyClipboardCallback = Nothing - -type EntryCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCopyClipboardCallback :: EntryCopyClipboardCallbackC -> IO (FunPtr EntryCopyClipboardCallbackC) - -entryCopyClipboardClosure :: EntryCopyClipboardCallback -> IO Closure -entryCopyClipboardClosure cb = newCClosure =<< mkEntryCopyClipboardCallback wrapped - where wrapped = entryCopyClipboardCallbackWrapper cb - -entryCopyClipboardCallbackWrapper :: - EntryCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId -onEntryCopyClipboard obj cb = liftIO $ connectEntryCopyClipboard obj cb SignalConnectBefore -afterEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId -afterEntryCopyClipboard obj cb = connectEntryCopyClipboard obj cb SignalConnectAfter - -connectEntryCopyClipboard :: (GObject a, MonadIO m) => - a -> EntryCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCopyClipboard obj cb after = liftIO $ do - cb' <- mkEntryCopyClipboardCallback (entryCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal Entry::cut-clipboard -type EntryCutClipboardCallback = - IO () - -noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback -noEntryCutClipboardCallback = Nothing - -type EntryCutClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCutClipboardCallback :: EntryCutClipboardCallbackC -> IO (FunPtr EntryCutClipboardCallbackC) - -entryCutClipboardClosure :: EntryCutClipboardCallback -> IO Closure -entryCutClipboardClosure cb = newCClosure =<< mkEntryCutClipboardCallback wrapped - where wrapped = entryCutClipboardCallbackWrapper cb - -entryCutClipboardCallbackWrapper :: - EntryCutClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryCutClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId -onEntryCutClipboard obj cb = liftIO $ connectEntryCutClipboard obj cb SignalConnectBefore -afterEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId -afterEntryCutClipboard obj cb = connectEntryCutClipboard obj cb SignalConnectAfter - -connectEntryCutClipboard :: (GObject a, MonadIO m) => - a -> EntryCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCutClipboard obj cb after = liftIO $ do - cb' <- mkEntryCutClipboardCallback (entryCutClipboardCallbackWrapper cb) - connectSignalFunPtr obj "cut-clipboard" cb' after - --- signal Entry::delete-from-cursor -type EntryDeleteFromCursorCallback = - DeleteType -> - Int32 -> - IO () - -noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback -noEntryDeleteFromCursorCallback = Nothing - -type EntryDeleteFromCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallbackC -> IO (FunPtr EntryDeleteFromCursorCallbackC) - -entryDeleteFromCursorClosure :: EntryDeleteFromCursorCallback -> IO Closure -entryDeleteFromCursorClosure cb = newCClosure =<< mkEntryDeleteFromCursorCallback wrapped - where wrapped = entryDeleteFromCursorCallbackWrapper cb - -entryDeleteFromCursorCallbackWrapper :: - EntryDeleteFromCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -entryDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do - let type_' = (toEnum . fromIntegral) type_ - _cb type_' count - -onEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId -onEntryDeleteFromCursor obj cb = liftIO $ connectEntryDeleteFromCursor obj cb SignalConnectBefore -afterEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId -afterEntryDeleteFromCursor obj cb = connectEntryDeleteFromCursor obj cb SignalConnectAfter - -connectEntryDeleteFromCursor :: (GObject a, MonadIO m) => - a -> EntryDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryDeleteFromCursor obj cb after = liftIO $ do - cb' <- mkEntryDeleteFromCursorCallback (entryDeleteFromCursorCallbackWrapper cb) - connectSignalFunPtr obj "delete-from-cursor" cb' after - --- signal Entry::icon-press -type EntryIconPressCallback = - EntryIconPosition -> - Gdk.EventButton -> - IO () - -noEntryIconPressCallback :: Maybe EntryIconPressCallback -noEntryIconPressCallback = Nothing - -type EntryIconPressCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryIconPressCallback :: EntryIconPressCallbackC -> IO (FunPtr EntryIconPressCallbackC) - -entryIconPressClosure :: EntryIconPressCallback -> IO Closure -entryIconPressClosure cb = newCClosure =<< mkEntryIconPressCallback wrapped - where wrapped = entryIconPressCallbackWrapper cb - -entryIconPressCallbackWrapper :: - EntryIconPressCallback -> - Ptr () -> - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> - IO () -entryIconPressCallbackWrapper _cb _ iconPos event _ = do - let iconPos' = (toEnum . fromIntegral) iconPos - event' <- (newPtr Gdk.EventButton) event - _cb iconPos' event' - -onEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId -onEntryIconPress obj cb = liftIO $ connectEntryIconPress obj cb SignalConnectBefore -afterEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId -afterEntryIconPress obj cb = connectEntryIconPress obj cb SignalConnectAfter - -connectEntryIconPress :: (GObject a, MonadIO m) => - a -> EntryIconPressCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryIconPress obj cb after = liftIO $ do - cb' <- mkEntryIconPressCallback (entryIconPressCallbackWrapper cb) - connectSignalFunPtr obj "icon-press" cb' after - --- signal Entry::icon-release -type EntryIconReleaseCallback = - EntryIconPosition -> - Gdk.EventButton -> - IO () - -noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback -noEntryIconReleaseCallback = Nothing - -type EntryIconReleaseCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryIconReleaseCallback :: EntryIconReleaseCallbackC -> IO (FunPtr EntryIconReleaseCallbackC) - -entryIconReleaseClosure :: EntryIconReleaseCallback -> IO Closure -entryIconReleaseClosure cb = newCClosure =<< mkEntryIconReleaseCallback wrapped - where wrapped = entryIconReleaseCallbackWrapper cb - -entryIconReleaseCallbackWrapper :: - EntryIconReleaseCallback -> - Ptr () -> - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> - IO () -entryIconReleaseCallbackWrapper _cb _ iconPos event _ = do - let iconPos' = (toEnum . fromIntegral) iconPos - event' <- (newPtr Gdk.EventButton) event - _cb iconPos' event' - -onEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId -onEntryIconRelease obj cb = liftIO $ connectEntryIconRelease obj cb SignalConnectBefore -afterEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId -afterEntryIconRelease obj cb = connectEntryIconRelease obj cb SignalConnectAfter - -connectEntryIconRelease :: (GObject a, MonadIO m) => - a -> EntryIconReleaseCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryIconRelease obj cb after = liftIO $ do - cb' <- mkEntryIconReleaseCallback (entryIconReleaseCallbackWrapper cb) - connectSignalFunPtr obj "icon-release" cb' after - --- signal Entry::insert-at-cursor -type EntryInsertAtCursorCallback = - T.Text -> - IO () - -noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback -noEntryInsertAtCursorCallback = Nothing - -type EntryInsertAtCursorCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryInsertAtCursorCallback :: EntryInsertAtCursorCallbackC -> IO (FunPtr EntryInsertAtCursorCallbackC) - -entryInsertAtCursorClosure :: EntryInsertAtCursorCallback -> IO Closure -entryInsertAtCursorClosure cb = newCClosure =<< mkEntryInsertAtCursorCallback wrapped - where wrapped = entryInsertAtCursorCallbackWrapper cb - -entryInsertAtCursorCallbackWrapper :: - EntryInsertAtCursorCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -entryInsertAtCursorCallbackWrapper _cb _ string _ = do - string' <- cstringToText string - _cb string' - -onEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId -onEntryInsertAtCursor obj cb = liftIO $ connectEntryInsertAtCursor obj cb SignalConnectBefore -afterEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId -afterEntryInsertAtCursor obj cb = connectEntryInsertAtCursor obj cb SignalConnectAfter - -connectEntryInsertAtCursor :: (GObject a, MonadIO m) => - a -> EntryInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryInsertAtCursor obj cb after = liftIO $ do - cb' <- mkEntryInsertAtCursorCallback (entryInsertAtCursorCallbackWrapper cb) - connectSignalFunPtr obj "insert-at-cursor" cb' after - --- signal Entry::move-cursor -type EntryMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback -noEntryMoveCursorCallback = Nothing - -type EntryMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryMoveCursorCallback :: EntryMoveCursorCallbackC -> IO (FunPtr EntryMoveCursorCallbackC) - -entryMoveCursorClosure :: EntryMoveCursorCallback -> IO Closure -entryMoveCursorClosure cb = newCClosure =<< mkEntryMoveCursorCallback wrapped - where wrapped = entryMoveCursorCallbackWrapper cb - -entryMoveCursorCallbackWrapper :: - EntryMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -entryMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do - let step' = (toEnum . fromIntegral) step - let extendSelection' = (/= 0) extendSelection - _cb step' count extendSelection' - -onEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId -onEntryMoveCursor obj cb = liftIO $ connectEntryMoveCursor obj cb SignalConnectBefore -afterEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId -afterEntryMoveCursor obj cb = connectEntryMoveCursor obj cb SignalConnectAfter - -connectEntryMoveCursor :: (GObject a, MonadIO m) => - a -> EntryMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryMoveCursor obj cb after = liftIO $ do - cb' <- mkEntryMoveCursorCallback (entryMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal Entry::paste-clipboard -type EntryPasteClipboardCallback = - IO () - -noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback -noEntryPasteClipboardCallback = Nothing - -type EntryPasteClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPasteClipboardCallback :: EntryPasteClipboardCallbackC -> IO (FunPtr EntryPasteClipboardCallbackC) - -entryPasteClipboardClosure :: EntryPasteClipboardCallback -> IO Closure -entryPasteClipboardClosure cb = newCClosure =<< mkEntryPasteClipboardCallback wrapped - where wrapped = entryPasteClipboardCallbackWrapper cb - -entryPasteClipboardCallbackWrapper :: - EntryPasteClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryPasteClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId -onEntryPasteClipboard obj cb = liftIO $ connectEntryPasteClipboard obj cb SignalConnectBefore -afterEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId -afterEntryPasteClipboard obj cb = connectEntryPasteClipboard obj cb SignalConnectAfter - -connectEntryPasteClipboard :: (GObject a, MonadIO m) => - a -> EntryPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPasteClipboard obj cb after = liftIO $ do - cb' <- mkEntryPasteClipboardCallback (entryPasteClipboardCallbackWrapper cb) - connectSignalFunPtr obj "paste-clipboard" cb' after - --- signal Entry::populate-popup -type EntryPopulatePopupCallback = - Widget -> - IO () - -noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback -noEntryPopulatePopupCallback = Nothing - -type EntryPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPopulatePopupCallback :: EntryPopulatePopupCallbackC -> IO (FunPtr EntryPopulatePopupCallbackC) - -entryPopulatePopupClosure :: EntryPopulatePopupCallback -> IO Closure -entryPopulatePopupClosure cb = newCClosure =<< mkEntryPopulatePopupCallback wrapped - where wrapped = entryPopulatePopupCallbackWrapper cb - -entryPopulatePopupCallbackWrapper :: - EntryPopulatePopupCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -entryPopulatePopupCallbackWrapper _cb _ popup _ = do - popup' <- (newObject Widget) popup - _cb popup' - -onEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId -onEntryPopulatePopup obj cb = liftIO $ connectEntryPopulatePopup obj cb SignalConnectBefore -afterEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId -afterEntryPopulatePopup obj cb = connectEntryPopulatePopup obj cb SignalConnectAfter - -connectEntryPopulatePopup :: (GObject a, MonadIO m) => - a -> EntryPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPopulatePopup obj cb after = liftIO $ do - cb' <- mkEntryPopulatePopupCallback (entryPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- signal Entry::preedit-changed -type EntryPreeditChangedCallback = - T.Text -> - IO () - -noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback -noEntryPreeditChangedCallback = Nothing - -type EntryPreeditChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPreeditChangedCallback :: EntryPreeditChangedCallbackC -> IO (FunPtr EntryPreeditChangedCallbackC) - -entryPreeditChangedClosure :: EntryPreeditChangedCallback -> IO Closure -entryPreeditChangedClosure cb = newCClosure =<< mkEntryPreeditChangedCallback wrapped - where wrapped = entryPreeditChangedCallbackWrapper cb - -entryPreeditChangedCallbackWrapper :: - EntryPreeditChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -entryPreeditChangedCallbackWrapper _cb _ preedit _ = do - preedit' <- cstringToText preedit - _cb preedit' - -onEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId -onEntryPreeditChanged obj cb = liftIO $ connectEntryPreeditChanged obj cb SignalConnectBefore -afterEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId -afterEntryPreeditChanged obj cb = connectEntryPreeditChanged obj cb SignalConnectAfter - -connectEntryPreeditChanged :: (GObject a, MonadIO m) => - a -> EntryPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPreeditChanged obj cb after = liftIO $ do - cb' <- mkEntryPreeditChangedCallback (entryPreeditChangedCallbackWrapper cb) - connectSignalFunPtr obj "preedit-changed" cb' after - --- signal Entry::toggle-overwrite -type EntryToggleOverwriteCallback = - IO () - -noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback -noEntryToggleOverwriteCallback = Nothing - -type EntryToggleOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryToggleOverwriteCallback :: EntryToggleOverwriteCallbackC -> IO (FunPtr EntryToggleOverwriteCallbackC) - -entryToggleOverwriteClosure :: EntryToggleOverwriteCallback -> IO Closure -entryToggleOverwriteClosure cb = newCClosure =<< mkEntryToggleOverwriteCallback wrapped - where wrapped = entryToggleOverwriteCallbackWrapper cb - -entryToggleOverwriteCallbackWrapper :: - EntryToggleOverwriteCallback -> - Ptr () -> - Ptr () -> - IO () -entryToggleOverwriteCallbackWrapper _cb _ _ = do - _cb - -onEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId -onEntryToggleOverwrite obj cb = liftIO $ connectEntryToggleOverwrite obj cb SignalConnectBefore -afterEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId -afterEntryToggleOverwrite obj cb = connectEntryToggleOverwrite obj cb SignalConnectAfter - -connectEntryToggleOverwrite :: (GObject a, MonadIO m) => - a -> EntryToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryToggleOverwrite obj cb after = liftIO $ do - cb' <- mkEntryToggleOverwriteCallback (entryToggleOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "toggle-overwrite" cb' after - --- VVV Prop "activates-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool -getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default" - -setEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryActivatesDefault obj val = liftIO $ setObjectPropertyBool obj "activates-default" val - -constructEntryActivatesDefault :: Bool -> IO ([Char], GValue) -constructEntryActivatesDefault val = constructObjectPropertyBool "activates-default" val - -data EntryActivatesDefaultPropertyInfo -instance AttrInfo EntryActivatesDefaultPropertyInfo where - type AttrAllowedOps EntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryActivatesDefaultPropertyInfo = EntryK - type AttrGetType EntryActivatesDefaultPropertyInfo = Bool - type AttrLabel EntryActivatesDefaultPropertyInfo = "activates-default" - attrGet _ = getEntryActivatesDefault - attrSet _ = setEntryActivatesDefault - attrConstruct _ = constructEntryActivatesDefault - attrClear _ = undefined - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just False) - -getEntryAttributes :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.AttrList) -getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m () -setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) - -constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructEntryAttributes val = constructObjectPropertyBoxed "attributes" (Just val) - -data EntryAttributesPropertyInfo -instance AttrInfo EntryAttributesPropertyInfo where - type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK - type AttrGetType EntryAttributesPropertyInfo = (Maybe Pango.AttrList) - type AttrLabel EntryAttributesPropertyInfo = "attributes" - attrGet _ = getEntryAttributes - attrSet _ = setEntryAttributes - attrConstruct _ = constructEntryAttributes - attrClear _ = undefined - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "EntryBuffer" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer -getEntryBuffer obj = liftIO $ checkUnexpectedNothing "getEntryBuffer" $ getObjectPropertyObject obj "buffer" EntryBuffer - -setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () -setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" (Just val) - -constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) -constructEntryBuffer val = constructObjectPropertyObject "buffer" (Just val) - -data EntryBufferPropertyInfo -instance AttrInfo EntryBufferPropertyInfo where - type AttrAllowedOps EntryBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryBufferPropertyInfo = EntryBufferK - type AttrBaseTypeConstraint EntryBufferPropertyInfo = EntryK - type AttrGetType EntryBufferPropertyInfo = EntryBuffer - type AttrLabel EntryBufferPropertyInfo = "buffer" - attrGet _ = getEntryBuffer - attrSet _ = setEntryBuffer - attrConstruct _ = constructEntryBuffer - attrClear _ = undefined - --- VVV Prop "caps-lock-warning" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool -getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning" - -setEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryCapsLockWarning obj val = liftIO $ setObjectPropertyBool obj "caps-lock-warning" val - -constructEntryCapsLockWarning :: Bool -> IO ([Char], GValue) -constructEntryCapsLockWarning val = constructObjectPropertyBool "caps-lock-warning" val - -data EntryCapsLockWarningPropertyInfo -instance AttrInfo EntryCapsLockWarningPropertyInfo where - type AttrAllowedOps EntryCapsLockWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCapsLockWarningPropertyInfo = EntryK - type AttrGetType EntryCapsLockWarningPropertyInfo = Bool - type AttrLabel EntryCapsLockWarningPropertyInfo = "caps-lock-warning" - attrGet _ = getEntryCapsLockWarning - attrSet _ = setEntryCapsLockWarning - attrConstruct _ = constructEntryCapsLockWarning - attrClear _ = undefined - --- VVV Prop "completion" - -- Type: TInterface "Gtk" "EntryCompletion" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion -getEntryCompletion obj = liftIO $ checkUnexpectedNothing "getEntryCompletion" $ getObjectPropertyObject obj "completion" EntryCompletion - -setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () -setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" (Just val) - -constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) -constructEntryCompletion val = constructObjectPropertyObject "completion" (Just val) - -clearEntryCompletion :: (MonadIO m, EntryK o) => o -> m () -clearEntryCompletion obj = liftIO $ setObjectPropertyObject obj "completion" (Nothing :: Maybe EntryCompletion) - -data EntryCompletionPropertyInfo -instance AttrInfo EntryCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK - type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK - type AttrGetType EntryCompletionPropertyInfo = EntryCompletion - type AttrLabel EntryCompletionPropertyInfo = "completion" - attrGet _ = getEntryCompletion - attrSet _ = setEntryCompletion - attrConstruct _ = constructEntryCompletion - attrClear _ = clearEntryCompletion - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" - -data EntryCursorPositionPropertyInfo -instance AttrInfo EntryCursorPositionPropertyInfo where - type AttrAllowedOps EntryCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryCursorPositionPropertyInfo = EntryK - type AttrGetType EntryCursorPositionPropertyInfo = Int32 - type AttrLabel EntryCursorPositionPropertyInfo = "cursor-position" - attrGet _ = getEntryCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool -getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setEntryEditable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructEntryEditable :: Bool -> IO ([Char], GValue) -constructEntryEditable val = constructObjectPropertyBool "editable" val - -data EntryEditablePropertyInfo -instance AttrInfo EntryEditablePropertyInfo where - type AttrAllowedOps EntryEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryEditablePropertyInfo = EntryK - type AttrGetType EntryEditablePropertyInfo = Bool - type AttrLabel EntryEditablePropertyInfo = "editable" - attrGet _ = getEntryEditable - attrSet _ = setEntryEditable - attrConstruct _ = constructEntryEditable - attrClear _ = undefined - --- VVV Prop "has-frame" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool -getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" - -setEntryHasFrame :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryHasFrame obj val = liftIO $ setObjectPropertyBool obj "has-frame" val - -constructEntryHasFrame :: Bool -> IO ([Char], GValue) -constructEntryHasFrame val = constructObjectPropertyBool "has-frame" val - -data EntryHasFramePropertyInfo -instance AttrInfo EntryHasFramePropertyInfo where - type AttrAllowedOps EntryHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryHasFramePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryHasFramePropertyInfo = EntryK - type AttrGetType EntryHasFramePropertyInfo = Bool - type AttrLabel EntryHasFramePropertyInfo = "has-frame" - attrGet _ = getEntryHasFrame - attrSet _ = setEntryHasFrame - attrConstruct _ = constructEntryHasFrame - attrClear _ = undefined - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryImModule :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module" - -setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" (Just val) - -constructEntryImModule :: T.Text -> IO ([Char], GValue) -constructEntryImModule val = constructObjectPropertyString "im-module" (Just val) - -clearEntryImModule :: (MonadIO m, EntryK o) => o -> m () -clearEntryImModule obj = liftIO $ setObjectPropertyString obj "im-module" (Nothing :: Maybe T.Text) - -data EntryImModulePropertyInfo -instance AttrInfo EntryImModulePropertyInfo where - type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK - type AttrGetType EntryImModulePropertyInfo = (Maybe T.Text) - type AttrLabel EntryImModulePropertyInfo = "im-module" - attrGet _ = getEntryImModule - attrSet _ = setEntryImModule - attrConstruct _ = constructEntryImModule - attrClear _ = clearEntryImModule - --- VVV Prop "inner-border" - -- Type: TInterface "Gtk" "Border" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just True) - -getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m (Maybe Border) -getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border - -setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m () -setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" (Just val) - -constructEntryInnerBorder :: Border -> IO ([Char], GValue) -constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" (Just val) - -clearEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m () -clearEntryInnerBorder obj = liftIO $ setObjectPropertyBoxed obj "inner-border" (Nothing :: Maybe Border) - -data EntryInnerBorderPropertyInfo -instance AttrInfo EntryInnerBorderPropertyInfo where - type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border - type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK - type AttrGetType EntryInnerBorderPropertyInfo = (Maybe Border) - type AttrLabel EntryInnerBorderPropertyInfo = "inner-border" - attrGet _ = getEntryInnerBorder - attrSet _ = setEntryInnerBorder - attrConstruct _ = constructEntryInnerBorder - attrClear _ = clearEntryInnerBorder - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints] -getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" - -setEntryInputHints :: (MonadIO m, EntryK o) => o -> [InputHints] -> m () -setEntryInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val - -constructEntryInputHints :: [InputHints] -> IO ([Char], GValue) -constructEntryInputHints val = constructObjectPropertyFlags "input-hints" val - -data EntryInputHintsPropertyInfo -instance AttrInfo EntryInputHintsPropertyInfo where - type AttrAllowedOps EntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInputHintsPropertyInfo = (~) [InputHints] - type AttrBaseTypeConstraint EntryInputHintsPropertyInfo = EntryK - type AttrGetType EntryInputHintsPropertyInfo = [InputHints] - type AttrLabel EntryInputHintsPropertyInfo = "input-hints" - attrGet _ = getEntryInputHints - attrSet _ = setEntryInputHints - attrConstruct _ = constructEntryInputHints - attrClear _ = undefined - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose -getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" - -setEntryInputPurpose :: (MonadIO m, EntryK o) => o -> InputPurpose -> m () -setEntryInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val - -constructEntryInputPurpose :: InputPurpose -> IO ([Char], GValue) -constructEntryInputPurpose val = constructObjectPropertyEnum "input-purpose" val - -data EntryInputPurposePropertyInfo -instance AttrInfo EntryInputPurposePropertyInfo where - type AttrAllowedOps EntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInputPurposePropertyInfo = (~) InputPurpose - type AttrBaseTypeConstraint EntryInputPurposePropertyInfo = EntryK - type AttrGetType EntryInputPurposePropertyInfo = InputPurpose - type AttrLabel EntryInputPurposePropertyInfo = "input-purpose" - attrGet _ = getEntryInputPurpose - attrSet _ = setEntryInputPurpose - attrConstruct _ = constructEntryInputPurpose - attrClear _ = undefined - --- VVV Prop "invisible-char" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryInvisibleChar obj = liftIO $ getObjectPropertyUInt32 obj "invisible-char" - -setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () -setEntryInvisibleChar obj val = liftIO $ setObjectPropertyUInt32 obj "invisible-char" val - -constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) -constructEntryInvisibleChar val = constructObjectPropertyUInt32 "invisible-char" val - -data EntryInvisibleCharPropertyInfo -instance AttrInfo EntryInvisibleCharPropertyInfo where - type AttrAllowedOps EntryInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint EntryInvisibleCharPropertyInfo = EntryK - type AttrGetType EntryInvisibleCharPropertyInfo = Word32 - type AttrLabel EntryInvisibleCharPropertyInfo = "invisible-char" - attrGet _ = getEntryInvisibleChar - attrSet _ = setEntryInvisibleChar - attrConstruct _ = constructEntryInvisibleChar - attrClear _ = undefined - --- VVV Prop "invisible-char-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool -getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set" - -setEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryInvisibleCharSet obj val = liftIO $ setObjectPropertyBool obj "invisible-char-set" val - -constructEntryInvisibleCharSet :: Bool -> IO ([Char], GValue) -constructEntryInvisibleCharSet val = constructObjectPropertyBool "invisible-char-set" val - -data EntryInvisibleCharSetPropertyInfo -instance AttrInfo EntryInvisibleCharSetPropertyInfo where - type AttrAllowedOps EntryInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryInvisibleCharSetPropertyInfo = EntryK - type AttrGetType EntryInvisibleCharSetPropertyInfo = Bool - type AttrLabel EntryInvisibleCharSetPropertyInfo = "invisible-char-set" - attrGet _ = getEntryInvisibleCharSet - attrSet _ = setEntryInvisibleCharSet - attrConstruct _ = constructEntryInvisibleCharSet - attrClear _ = undefined - --- VVV Prop "max-length" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" - -setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val - -constructEntryMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryMaxLength val = constructObjectPropertyInt32 "max-length" val - -data EntryMaxLengthPropertyInfo -instance AttrInfo EntryMaxLengthPropertyInfo where - type AttrAllowedOps EntryMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryMaxLengthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryMaxLengthPropertyInfo = EntryK - type AttrGetType EntryMaxLengthPropertyInfo = Int32 - type AttrLabel EntryMaxLengthPropertyInfo = "max-length" - attrGet _ = getEntryMaxLength - attrSet _ = setEntryMaxLength - attrConstruct _ = constructEntryMaxLength - attrClear _ = undefined - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" - -setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val - -constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val - -data EntryMaxWidthCharsPropertyInfo -instance AttrInfo EntryMaxWidthCharsPropertyInfo where - type AttrAllowedOps EntryMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryMaxWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryMaxWidthCharsPropertyInfo = EntryK - type AttrGetType EntryMaxWidthCharsPropertyInfo = Int32 - type AttrLabel EntryMaxWidthCharsPropertyInfo = "max-width-chars" - attrGet _ = getEntryMaxWidthChars - attrSet _ = setEntryMaxWidthChars - attrConstruct _ = constructEntryMaxWidthChars - attrClear _ = undefined - --- VVV Prop "overwrite-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool -getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode" - -setEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryOverwriteMode obj val = liftIO $ setObjectPropertyBool obj "overwrite-mode" val - -constructEntryOverwriteMode :: Bool -> IO ([Char], GValue) -constructEntryOverwriteMode val = constructObjectPropertyBool "overwrite-mode" val - -data EntryOverwriteModePropertyInfo -instance AttrInfo EntryOverwriteModePropertyInfo where - type AttrAllowedOps EntryOverwriteModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryOverwriteModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryOverwriteModePropertyInfo = EntryK - type AttrGetType EntryOverwriteModePropertyInfo = Bool - type AttrLabel EntryOverwriteModePropertyInfo = "overwrite-mode" - attrGet _ = getEntryOverwriteMode - attrSet _ = setEntryOverwriteMode - attrConstruct _ = constructEntryOverwriteMode - attrClear _ = undefined - --- VVV Prop "placeholder-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPlaceholderText obj = liftIO $ checkUnexpectedNothing "getEntryPlaceholderText" $ getObjectPropertyString obj "placeholder-text" - -setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) - -constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) -constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) - -clearEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m () -clearEntryPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text) - -data EntryPlaceholderTextPropertyInfo -instance AttrInfo EntryPlaceholderTextPropertyInfo where - type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK - type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text - type AttrLabel EntryPlaceholderTextPropertyInfo = "placeholder-text" - attrGet _ = getEntryPlaceholderText - attrSet _ = setEntryPlaceholderText - attrConstruct _ = constructEntryPlaceholderText - attrClear _ = clearEntryPlaceholderText - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" - -setEntryPopulateAll :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val - -constructEntryPopulateAll :: Bool -> IO ([Char], GValue) -constructEntryPopulateAll val = constructObjectPropertyBool "populate-all" val - -data EntryPopulateAllPropertyInfo -instance AttrInfo EntryPopulateAllPropertyInfo where - type AttrAllowedOps EntryPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPopulateAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPopulateAllPropertyInfo = EntryK - type AttrGetType EntryPopulateAllPropertyInfo = Bool - type AttrLabel EntryPopulateAllPropertyInfo = "populate-all" - attrGet _ = getEntryPopulateAll - attrSet _ = setEntryPopulateAll - attrConstruct _ = constructEntryPopulateAll - attrClear _ = undefined - --- VVV Prop "primary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable" - -setEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPrimaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "primary-icon-activatable" val - -constructEntryPrimaryIconActivatable :: Bool -> IO ([Char], GValue) -constructEntryPrimaryIconActivatable val = constructObjectPropertyBool "primary-icon-activatable" val - -data EntryPrimaryIconActivatablePropertyInfo -instance AttrInfo EntryPrimaryIconActivatablePropertyInfo where - type AttrAllowedOps EntryPrimaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPrimaryIconActivatablePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconActivatablePropertyInfo = Bool - type AttrLabel EntryPrimaryIconActivatablePropertyInfo = "primary-icon-activatable" - attrGet _ = getEntryPrimaryIconActivatable - attrSet _ = setEntryPrimaryIconActivatable - attrConstruct _ = constructEntryPrimaryIconActivatable - attrClear _ = undefined - --- VVV Prop "primary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) -getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon - -setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Just val) - -constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" (Just val) - -clearEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconGicon obj = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Nothing :: Maybe Gio.Icon) - -data EntryPrimaryIconGiconPropertyInfo -instance AttrInfo EntryPrimaryIconGiconPropertyInfo where - type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconGiconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel EntryPrimaryIconGiconPropertyInfo = "primary-icon-gicon" - attrGet _ = getEntryPrimaryIconGicon - attrSet _ = setEntryPrimaryIconGicon - attrConstruct _ = constructEntryPrimaryIconGicon - attrClear _ = clearEntryPrimaryIconGicon - --- VVV Prop "primary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name" - -setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" (Just val) - -constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" (Just val) - -clearEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconName obj = liftIO $ setObjectPropertyString obj "primary-icon-name" (Nothing :: Maybe T.Text) - -data EntryPrimaryIconNamePropertyInfo -instance AttrInfo EntryPrimaryIconNamePropertyInfo where - type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconNamePropertyInfo = (Maybe T.Text) - type AttrLabel EntryPrimaryIconNamePropertyInfo = "primary-icon-name" - attrGet _ = getEntryPrimaryIconName - attrSet _ = setEntryPrimaryIconName - attrConstruct _ = constructEntryPrimaryIconName - attrClear _ = clearEntryPrimaryIconName - --- VVV Prop "primary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) -getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf - -setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Just val) - -constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" (Just val) - -clearEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data EntryPrimaryIconPixbufPropertyInfo -instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where - type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) - type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "primary-icon-pixbuf" - attrGet _ = getEntryPrimaryIconPixbuf - attrSet _ = setEntryPrimaryIconPixbuf - attrConstruct _ = constructEntryPrimaryIconPixbuf - attrClear _ = clearEntryPrimaryIconPixbuf - --- VVV Prop "primary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive" - -setEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPrimaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "primary-icon-sensitive" val - -constructEntryPrimaryIconSensitive :: Bool -> IO ([Char], GValue) -constructEntryPrimaryIconSensitive val = constructObjectPropertyBool "primary-icon-sensitive" val - -data EntryPrimaryIconSensitivePropertyInfo -instance AttrInfo EntryPrimaryIconSensitivePropertyInfo where - type AttrAllowedOps EntryPrimaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPrimaryIconSensitivePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconSensitivePropertyInfo = Bool - type AttrLabel EntryPrimaryIconSensitivePropertyInfo = "primary-icon-sensitive" - attrGet _ = getEntryPrimaryIconSensitive - attrSet _ = setEntryPrimaryIconSensitive - attrConstruct _ = constructEntryPrimaryIconSensitive - attrClear _ = undefined - --- VVV Prop "primary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock" - -setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Just val) - -constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" (Just val) - -clearEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconStock obj = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Nothing :: Maybe T.Text) - -data EntryPrimaryIconStockPropertyInfo -instance AttrInfo EntryPrimaryIconStockPropertyInfo where - type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStockPropertyInfo = (Maybe T.Text) - type AttrLabel EntryPrimaryIconStockPropertyInfo = "primary-icon-stock" - attrGet _ = getEntryPrimaryIconStock - attrSet _ = setEntryPrimaryIconStock - attrConstruct _ = constructEntryPrimaryIconStock - attrClear _ = clearEntryPrimaryIconStock - --- VVV Prop "primary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType -getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type" - -data EntryPrimaryIconStorageTypePropertyInfo -instance AttrInfo EntryPrimaryIconStorageTypePropertyInfo where - type AttrAllowedOps EntryPrimaryIconStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStorageTypePropertyInfo = ImageType - type AttrLabel EntryPrimaryIconStorageTypePropertyInfo = "primary-icon-storage-type" - attrGet _ = getEntryPrimaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "primary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup" - -setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Just val) - -constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" (Just val) - -clearEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Nothing :: Maybe T.Text) - -data EntryPrimaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) - type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "primary-icon-tooltip-markup" - attrGet _ = getEntryPrimaryIconTooltipMarkup - attrSet _ = setEntryPrimaryIconTooltipMarkup - attrConstruct _ = constructEntryPrimaryIconTooltipMarkup - attrClear _ = clearEntryPrimaryIconTooltipMarkup - --- VVV Prop "primary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text" - -setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Just val) - -constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" (Just val) - -clearEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m () -clearEntryPrimaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Nothing :: Maybe T.Text) - -data EntryPrimaryIconTooltipTextPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = (Maybe T.Text) - type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "primary-icon-tooltip-text" - attrGet _ = getEntryPrimaryIconTooltipText - attrSet _ = setEntryPrimaryIconTooltipText - attrConstruct _ = constructEntryPrimaryIconTooltipText - attrClear _ = clearEntryPrimaryIconTooltipText - --- VVV Prop "progress-fraction" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double -getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction" - -setEntryProgressFraction :: (MonadIO m, EntryK o) => o -> Double -> m () -setEntryProgressFraction obj val = liftIO $ setObjectPropertyDouble obj "progress-fraction" val - -constructEntryProgressFraction :: Double -> IO ([Char], GValue) -constructEntryProgressFraction val = constructObjectPropertyDouble "progress-fraction" val - -data EntryProgressFractionPropertyInfo -instance AttrInfo EntryProgressFractionPropertyInfo where - type AttrAllowedOps EntryProgressFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryProgressFractionPropertyInfo = (~) Double - type AttrBaseTypeConstraint EntryProgressFractionPropertyInfo = EntryK - type AttrGetType EntryProgressFractionPropertyInfo = Double - type AttrLabel EntryProgressFractionPropertyInfo = "progress-fraction" - attrGet _ = getEntryProgressFraction - attrSet _ = setEntryProgressFraction - attrConstruct _ = constructEntryProgressFraction - attrClear _ = undefined - --- VVV Prop "progress-pulse-step" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double -getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step" - -setEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> Double -> m () -setEntryProgressPulseStep obj val = liftIO $ setObjectPropertyDouble obj "progress-pulse-step" val - -constructEntryProgressPulseStep :: Double -> IO ([Char], GValue) -constructEntryProgressPulseStep val = constructObjectPropertyDouble "progress-pulse-step" val - -data EntryProgressPulseStepPropertyInfo -instance AttrInfo EntryProgressPulseStepPropertyInfo where - type AttrAllowedOps EntryProgressPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryProgressPulseStepPropertyInfo = (~) Double - type AttrBaseTypeConstraint EntryProgressPulseStepPropertyInfo = EntryK - type AttrGetType EntryProgressPulseStepPropertyInfo = Double - type AttrLabel EntryProgressPulseStepPropertyInfo = "progress-pulse-step" - attrGet _ = getEntryProgressPulseStep - attrSet _ = setEntryProgressPulseStep - attrConstruct _ = constructEntryProgressPulseStep - attrClear _ = undefined - --- VVV Prop "scroll-offset" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryScrollOffset obj = liftIO $ getObjectPropertyInt32 obj "scroll-offset" - -data EntryScrollOffsetPropertyInfo -instance AttrInfo EntryScrollOffsetPropertyInfo where - type AttrAllowedOps EntryScrollOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryScrollOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryScrollOffsetPropertyInfo = EntryK - type AttrGetType EntryScrollOffsetPropertyInfo = Int32 - type AttrLabel EntryScrollOffsetPropertyInfo = "scroll-offset" - attrGet _ = getEntryScrollOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "secondary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool -getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable" - -setEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntrySecondaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-activatable" val - -constructEntrySecondaryIconActivatable :: Bool -> IO ([Char], GValue) -constructEntrySecondaryIconActivatable val = constructObjectPropertyBool "secondary-icon-activatable" val - -data EntrySecondaryIconActivatablePropertyInfo -instance AttrInfo EntrySecondaryIconActivatablePropertyInfo where - type AttrAllowedOps EntrySecondaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntrySecondaryIconActivatablePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconActivatablePropertyInfo = Bool - type AttrLabel EntrySecondaryIconActivatablePropertyInfo = "secondary-icon-activatable" - attrGet _ = getEntrySecondaryIconActivatable - attrSet _ = setEntrySecondaryIconActivatable - attrConstruct _ = constructEntrySecondaryIconActivatable - attrClear _ = undefined - --- VVV Prop "secondary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) -getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon - -setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Just val) - -constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" (Just val) - -clearEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconGicon obj = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Nothing :: Maybe Gio.Icon) - -data EntrySecondaryIconGiconPropertyInfo -instance AttrInfo EntrySecondaryIconGiconPropertyInfo where - type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconGiconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel EntrySecondaryIconGiconPropertyInfo = "secondary-icon-gicon" - attrGet _ = getEntrySecondaryIconGicon - attrSet _ = setEntrySecondaryIconGicon - attrConstruct _ = constructEntrySecondaryIconGicon - attrClear _ = clearEntrySecondaryIconGicon - --- VVV Prop "secondary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name" - -setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Just val) - -constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" (Just val) - -clearEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconName obj = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Nothing :: Maybe T.Text) - -data EntrySecondaryIconNamePropertyInfo -instance AttrInfo EntrySecondaryIconNamePropertyInfo where - type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconNamePropertyInfo = (Maybe T.Text) - type AttrLabel EntrySecondaryIconNamePropertyInfo = "secondary-icon-name" - attrGet _ = getEntrySecondaryIconName - attrSet _ = setEntrySecondaryIconName - attrConstruct _ = constructEntrySecondaryIconName - attrClear _ = clearEntrySecondaryIconName - --- VVV Prop "secondary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) -getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf - -setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Just val) - -constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" (Just val) - -clearEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data EntrySecondaryIconPixbufPropertyInfo -instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where - type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) - type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "secondary-icon-pixbuf" - attrGet _ = getEntrySecondaryIconPixbuf - attrSet _ = setEntrySecondaryIconPixbuf - attrConstruct _ = constructEntrySecondaryIconPixbuf - attrClear _ = clearEntrySecondaryIconPixbuf - --- VVV Prop "secondary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool -getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive" - -setEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntrySecondaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-sensitive" val - -constructEntrySecondaryIconSensitive :: Bool -> IO ([Char], GValue) -constructEntrySecondaryIconSensitive val = constructObjectPropertyBool "secondary-icon-sensitive" val - -data EntrySecondaryIconSensitivePropertyInfo -instance AttrInfo EntrySecondaryIconSensitivePropertyInfo where - type AttrAllowedOps EntrySecondaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntrySecondaryIconSensitivePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconSensitivePropertyInfo = Bool - type AttrLabel EntrySecondaryIconSensitivePropertyInfo = "secondary-icon-sensitive" - attrGet _ = getEntrySecondaryIconSensitive - attrSet _ = setEntrySecondaryIconSensitive - attrConstruct _ = constructEntrySecondaryIconSensitive - attrClear _ = undefined - --- VVV Prop "secondary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock" - -setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Just val) - -constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" (Just val) - -clearEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconStock obj = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Nothing :: Maybe T.Text) - -data EntrySecondaryIconStockPropertyInfo -instance AttrInfo EntrySecondaryIconStockPropertyInfo where - type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStockPropertyInfo = (Maybe T.Text) - type AttrLabel EntrySecondaryIconStockPropertyInfo = "secondary-icon-stock" - attrGet _ = getEntrySecondaryIconStock - attrSet _ = setEntrySecondaryIconStock - attrConstruct _ = constructEntrySecondaryIconStock - attrClear _ = clearEntrySecondaryIconStock - --- VVV Prop "secondary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType -getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type" - -data EntrySecondaryIconStorageTypePropertyInfo -instance AttrInfo EntrySecondaryIconStorageTypePropertyInfo where - type AttrAllowedOps EntrySecondaryIconStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStorageTypePropertyInfo = ImageType - type AttrLabel EntrySecondaryIconStorageTypePropertyInfo = "secondary-icon-storage-type" - attrGet _ = getEntrySecondaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "secondary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup" - -setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Just val) - -constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" (Just val) - -clearEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Nothing :: Maybe T.Text) - -data EntrySecondaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) - type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "secondary-icon-tooltip-markup" - attrGet _ = getEntrySecondaryIconTooltipMarkup - attrSet _ = setEntrySecondaryIconTooltipMarkup - attrConstruct _ = constructEntrySecondaryIconTooltipMarkup - attrClear _ = clearEntrySecondaryIconTooltipMarkup - --- VVV Prop "secondary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) -getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text" - -setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Just val) - -constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" (Just val) - -clearEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m () -clearEntrySecondaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Nothing :: Maybe T.Text) - -data EntrySecondaryIconTooltipTextPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = (Maybe T.Text) - type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "secondary-icon-tooltip-text" - attrGet _ = getEntrySecondaryIconTooltipText - attrSet _ = setEntrySecondaryIconTooltipText - attrConstruct _ = constructEntrySecondaryIconTooltipText - attrClear _ = clearEntrySecondaryIconTooltipText - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 -getEntrySelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" - -data EntrySelectionBoundPropertyInfo -instance AttrInfo EntrySelectionBoundPropertyInfo where - type AttrAllowedOps EntrySelectionBoundPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntrySelectionBoundPropertyInfo = (~) () - type AttrBaseTypeConstraint EntrySelectionBoundPropertyInfo = EntryK - type AttrGetType EntrySelectionBoundPropertyInfo = Int32 - type AttrLabel EntrySelectionBoundPropertyInfo = "selection-bound" - attrGet _ = getEntrySelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType -getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setEntryShadowType :: (MonadIO m, EntryK o) => o -> ShadowType -> m () -setEntryShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructEntryShadowType :: ShadowType -> IO ([Char], GValue) -constructEntryShadowType val = constructObjectPropertyEnum "shadow-type" val - -data EntryShadowTypePropertyInfo -instance AttrInfo EntryShadowTypePropertyInfo where - type AttrAllowedOps EntryShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint EntryShadowTypePropertyInfo = EntryK - type AttrGetType EntryShadowTypePropertyInfo = ShadowType - type AttrLabel EntryShadowTypePropertyInfo = "shadow-type" - attrGet _ = getEntryShadowType - attrSet _ = setEntryShadowType - attrConstruct _ = constructEntryShadowType - attrClear _ = undefined - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just False) - -getEntryTabs :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.TabArray) -getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray - -setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m () -setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) - -constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) -constructEntryTabs val = constructObjectPropertyBoxed "tabs" (Just val) - -data EntryTabsPropertyInfo -instance AttrInfo EntryTabsPropertyInfo where - type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK - type AttrGetType EntryTabsPropertyInfo = (Maybe Pango.TabArray) - type AttrLabel EntryTabsPropertyInfo = "tabs" - attrGet _ = getEntryTabs - attrSet _ = setEntryTabs - attrConstruct _ = constructEntryTabs - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryText obj = liftIO $ checkUnexpectedNothing "getEntryText" $ getObjectPropertyString obj "text" - -setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructEntryText :: T.Text -> IO ([Char], GValue) -constructEntryText val = constructObjectPropertyString "text" (Just val) - -data EntryTextPropertyInfo -instance AttrInfo EntryTextPropertyInfo where - type AttrAllowedOps EntryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryTextPropertyInfo = EntryK - type AttrGetType EntryTextPropertyInfo = T.Text - type AttrLabel EntryTextPropertyInfo = "text" - attrGet _ = getEntryText - attrSet _ = setEntryText - attrConstruct _ = constructEntryText - attrClear _ = undefined - --- VVV Prop "text-length" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryTextLength obj = liftIO $ getObjectPropertyUInt32 obj "text-length" - -data EntryTextLengthPropertyInfo -instance AttrInfo EntryTextLengthPropertyInfo where - type AttrAllowedOps EntryTextLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryTextLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryTextLengthPropertyInfo = EntryK - type AttrGetType EntryTextLengthPropertyInfo = Word32 - type AttrLabel EntryTextLengthPropertyInfo = "text-length" - attrGet _ = getEntryTextLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "truncate-multiline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool -getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline" - -setEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryTruncateMultiline obj val = liftIO $ setObjectPropertyBool obj "truncate-multiline" val - -constructEntryTruncateMultiline :: Bool -> IO ([Char], GValue) -constructEntryTruncateMultiline val = constructObjectPropertyBool "truncate-multiline" val - -data EntryTruncateMultilinePropertyInfo -instance AttrInfo EntryTruncateMultilinePropertyInfo where - type AttrAllowedOps EntryTruncateMultilinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTruncateMultilinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryTruncateMultilinePropertyInfo = EntryK - type AttrGetType EntryTruncateMultilinePropertyInfo = Bool - type AttrLabel EntryTruncateMultilinePropertyInfo = "truncate-multiline" - attrGet _ = getEntryTruncateMultiline - attrSet _ = setEntryTruncateMultiline - attrConstruct _ = constructEntryTruncateMultiline - attrClear _ = undefined - --- VVV Prop "visibility" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool -getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility" - -setEntryVisibility :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryVisibility obj val = liftIO $ setObjectPropertyBool obj "visibility" val - -constructEntryVisibility :: Bool -> IO ([Char], GValue) -constructEntryVisibility val = constructObjectPropertyBool "visibility" val - -data EntryVisibilityPropertyInfo -instance AttrInfo EntryVisibilityPropertyInfo where - type AttrAllowedOps EntryVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryVisibilityPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryVisibilityPropertyInfo = EntryK - type AttrGetType EntryVisibilityPropertyInfo = Bool - type AttrLabel EntryVisibilityPropertyInfo = "visibility" - attrGet _ = getEntryVisibility - attrSet _ = setEntryVisibility - attrConstruct _ = constructEntryVisibility - attrClear _ = undefined - --- VVV Prop "width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" - -setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val - -constructEntryWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryWidthChars val = constructObjectPropertyInt32 "width-chars" val - -data EntryWidthCharsPropertyInfo -instance AttrInfo EntryWidthCharsPropertyInfo where - type AttrAllowedOps EntryWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryWidthCharsPropertyInfo = EntryK - type AttrGetType EntryWidthCharsPropertyInfo = Int32 - type AttrLabel EntryWidthCharsPropertyInfo = "width-chars" - attrGet _ = getEntryWidthChars - attrSet _ = setEntryWidthChars - attrConstruct _ = constructEntryWidthChars - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float -getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setEntryXalign :: (MonadIO m, EntryK o) => o -> Float -> m () -setEntryXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructEntryXalign :: Float -> IO ([Char], GValue) -constructEntryXalign val = constructObjectPropertyFloat "xalign" val - -data EntryXalignPropertyInfo -instance AttrInfo EntryXalignPropertyInfo where - type AttrAllowedOps EntryXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint EntryXalignPropertyInfo = EntryK - type AttrGetType EntryXalignPropertyInfo = Float - type AttrLabel EntryXalignPropertyInfo = "xalign" - attrGet _ = getEntryXalign - attrSet _ = setEntryXalign - attrConstruct _ = constructEntryXalign - attrClear _ = undefined - -type instance AttributeList Entry = EntryAttributeList -type EntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -entryActivatesDefault :: AttrLabelProxy "activatesDefault" -entryActivatesDefault = AttrLabelProxy - -entryAttributes :: AttrLabelProxy "attributes" -entryAttributes = AttrLabelProxy - -entryBuffer :: AttrLabelProxy "buffer" -entryBuffer = AttrLabelProxy - -entryCapsLockWarning :: AttrLabelProxy "capsLockWarning" -entryCapsLockWarning = AttrLabelProxy - -entryCompletion :: AttrLabelProxy "completion" -entryCompletion = AttrLabelProxy - -entryCursorPosition :: AttrLabelProxy "cursorPosition" -entryCursorPosition = AttrLabelProxy - -entryEditable :: AttrLabelProxy "editable" -entryEditable = AttrLabelProxy - -entryHasFrame :: AttrLabelProxy "hasFrame" -entryHasFrame = AttrLabelProxy - -entryImModule :: AttrLabelProxy "imModule" -entryImModule = AttrLabelProxy - -entryInnerBorder :: AttrLabelProxy "innerBorder" -entryInnerBorder = AttrLabelProxy - -entryInputHints :: AttrLabelProxy "inputHints" -entryInputHints = AttrLabelProxy - -entryInputPurpose :: AttrLabelProxy "inputPurpose" -entryInputPurpose = AttrLabelProxy - -entryInvisibleChar :: AttrLabelProxy "invisibleChar" -entryInvisibleChar = AttrLabelProxy - -entryInvisibleCharSet :: AttrLabelProxy "invisibleCharSet" -entryInvisibleCharSet = AttrLabelProxy - -entryMaxLength :: AttrLabelProxy "maxLength" -entryMaxLength = AttrLabelProxy - -entryMaxWidthChars :: AttrLabelProxy "maxWidthChars" -entryMaxWidthChars = AttrLabelProxy - -entryOverwriteMode :: AttrLabelProxy "overwriteMode" -entryOverwriteMode = AttrLabelProxy - -entryPlaceholderText :: AttrLabelProxy "placeholderText" -entryPlaceholderText = AttrLabelProxy - -entryPopulateAll :: AttrLabelProxy "populateAll" -entryPopulateAll = AttrLabelProxy - -entryPrimaryIconActivatable :: AttrLabelProxy "primaryIconActivatable" -entryPrimaryIconActivatable = AttrLabelProxy - -entryPrimaryIconGicon :: AttrLabelProxy "primaryIconGicon" -entryPrimaryIconGicon = AttrLabelProxy - -entryPrimaryIconName :: AttrLabelProxy "primaryIconName" -entryPrimaryIconName = AttrLabelProxy - -entryPrimaryIconPixbuf :: AttrLabelProxy "primaryIconPixbuf" -entryPrimaryIconPixbuf = AttrLabelProxy - -entryPrimaryIconSensitive :: AttrLabelProxy "primaryIconSensitive" -entryPrimaryIconSensitive = AttrLabelProxy - -entryPrimaryIconStock :: AttrLabelProxy "primaryIconStock" -entryPrimaryIconStock = AttrLabelProxy - -entryPrimaryIconStorageType :: AttrLabelProxy "primaryIconStorageType" -entryPrimaryIconStorageType = AttrLabelProxy - -entryPrimaryIconTooltipMarkup :: AttrLabelProxy "primaryIconTooltipMarkup" -entryPrimaryIconTooltipMarkup = AttrLabelProxy - -entryPrimaryIconTooltipText :: AttrLabelProxy "primaryIconTooltipText" -entryPrimaryIconTooltipText = AttrLabelProxy - -entryProgressFraction :: AttrLabelProxy "progressFraction" -entryProgressFraction = AttrLabelProxy - -entryProgressPulseStep :: AttrLabelProxy "progressPulseStep" -entryProgressPulseStep = AttrLabelProxy - -entryScrollOffset :: AttrLabelProxy "scrollOffset" -entryScrollOffset = AttrLabelProxy - -entrySecondaryIconActivatable :: AttrLabelProxy "secondaryIconActivatable" -entrySecondaryIconActivatable = AttrLabelProxy - -entrySecondaryIconGicon :: AttrLabelProxy "secondaryIconGicon" -entrySecondaryIconGicon = AttrLabelProxy - -entrySecondaryIconName :: AttrLabelProxy "secondaryIconName" -entrySecondaryIconName = AttrLabelProxy - -entrySecondaryIconPixbuf :: AttrLabelProxy "secondaryIconPixbuf" -entrySecondaryIconPixbuf = AttrLabelProxy - -entrySecondaryIconSensitive :: AttrLabelProxy "secondaryIconSensitive" -entrySecondaryIconSensitive = AttrLabelProxy - -entrySecondaryIconStock :: AttrLabelProxy "secondaryIconStock" -entrySecondaryIconStock = AttrLabelProxy - -entrySecondaryIconStorageType :: AttrLabelProxy "secondaryIconStorageType" -entrySecondaryIconStorageType = AttrLabelProxy - -entrySecondaryIconTooltipMarkup :: AttrLabelProxy "secondaryIconTooltipMarkup" -entrySecondaryIconTooltipMarkup = AttrLabelProxy - -entrySecondaryIconTooltipText :: AttrLabelProxy "secondaryIconTooltipText" -entrySecondaryIconTooltipText = AttrLabelProxy - -entrySelectionBound :: AttrLabelProxy "selectionBound" -entrySelectionBound = AttrLabelProxy - -entryShadowType :: AttrLabelProxy "shadowType" -entryShadowType = AttrLabelProxy - -entryTabs :: AttrLabelProxy "tabs" -entryTabs = AttrLabelProxy - -entryText :: AttrLabelProxy "text" -entryText = AttrLabelProxy - -entryTextLength :: AttrLabelProxy "textLength" -entryTextLength = AttrLabelProxy - -entryTruncateMultiline :: AttrLabelProxy "truncateMultiline" -entryTruncateMultiline = AttrLabelProxy - -entryVisibility :: AttrLabelProxy "visibility" -entryVisibility = AttrLabelProxy - -entryWidthChars :: AttrLabelProxy "widthChars" -entryWidthChars = AttrLabelProxy - -entryXalign :: AttrLabelProxy "xalign" -entryXalign = AttrLabelProxy - -data EntryActivateSignalInfo -instance SignalInfo EntryActivateSignalInfo where - type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback - connectSignal _ = connectEntryActivate - -data EntryBackspaceSignalInfo -instance SignalInfo EntryBackspaceSignalInfo where - type HaskellCallbackType EntryBackspaceSignalInfo = EntryBackspaceCallback - connectSignal _ = connectEntryBackspace - -data EntryCopyClipboardSignalInfo -instance SignalInfo EntryCopyClipboardSignalInfo where - type HaskellCallbackType EntryCopyClipboardSignalInfo = EntryCopyClipboardCallback - connectSignal _ = connectEntryCopyClipboard - -data EntryCutClipboardSignalInfo -instance SignalInfo EntryCutClipboardSignalInfo where - type HaskellCallbackType EntryCutClipboardSignalInfo = EntryCutClipboardCallback - connectSignal _ = connectEntryCutClipboard - -data EntryDeleteFromCursorSignalInfo -instance SignalInfo EntryDeleteFromCursorSignalInfo where - type HaskellCallbackType EntryDeleteFromCursorSignalInfo = EntryDeleteFromCursorCallback - connectSignal _ = connectEntryDeleteFromCursor - -data EntryIconPressSignalInfo -instance SignalInfo EntryIconPressSignalInfo where - type HaskellCallbackType EntryIconPressSignalInfo = EntryIconPressCallback - connectSignal _ = connectEntryIconPress - -data EntryIconReleaseSignalInfo -instance SignalInfo EntryIconReleaseSignalInfo where - type HaskellCallbackType EntryIconReleaseSignalInfo = EntryIconReleaseCallback - connectSignal _ = connectEntryIconRelease - -data EntryInsertAtCursorSignalInfo -instance SignalInfo EntryInsertAtCursorSignalInfo where - type HaskellCallbackType EntryInsertAtCursorSignalInfo = EntryInsertAtCursorCallback - connectSignal _ = connectEntryInsertAtCursor - -data EntryMoveCursorSignalInfo -instance SignalInfo EntryMoveCursorSignalInfo where - type HaskellCallbackType EntryMoveCursorSignalInfo = EntryMoveCursorCallback - connectSignal _ = connectEntryMoveCursor - -data EntryPasteClipboardSignalInfo -instance SignalInfo EntryPasteClipboardSignalInfo where - type HaskellCallbackType EntryPasteClipboardSignalInfo = EntryPasteClipboardCallback - connectSignal _ = connectEntryPasteClipboard - -data EntryPopulatePopupSignalInfo -instance SignalInfo EntryPopulatePopupSignalInfo where - type HaskellCallbackType EntryPopulatePopupSignalInfo = EntryPopulatePopupCallback - connectSignal _ = connectEntryPopulatePopup - -data EntryPreeditChangedSignalInfo -instance SignalInfo EntryPreeditChangedSignalInfo where - type HaskellCallbackType EntryPreeditChangedSignalInfo = EntryPreeditChangedCallback - connectSignal _ = connectEntryPreeditChanged - -data EntryToggleOverwriteSignalInfo -instance SignalInfo EntryToggleOverwriteSignalInfo where - type HaskellCallbackType EntryToggleOverwriteSignalInfo = EntryToggleOverwriteCallback - connectSignal _ = connectEntryToggleOverwrite - -type instance SignalList Entry = EntrySignalList -type EntrySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Entry::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Entry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_new" gtk_entry_new :: - IO (Ptr Entry) - - -entryNew :: - (MonadIO m) => - m Entry -- result -entryNew = liftIO $ do - result <- gtk_entry_new - checkUnexpectedReturnNULL "gtk_entry_new" result - result' <- (newObject Entry) result - return result' - --- method Entry::new_with_buffer --- method type : Constructor --- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Entry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_new_with_buffer" gtk_entry_new_with_buffer :: - Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" - IO (Ptr Entry) - - -entryNewWithBuffer :: - (MonadIO m, EntryBufferK a) => - a -- buffer - -> m Entry -- result -entryNewWithBuffer buffer = liftIO $ do - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_entry_new_with_buffer buffer' - checkUnexpectedReturnNULL "gtk_entry_new_with_buffer" result - result' <- (newObject Entry) result - touchManagedPtr buffer - return result' - --- method Entry::get_activates_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_activates_default" gtk_entry_get_activates_default :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetActivatesDefault :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Bool -- result -entryGetActivatesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_activates_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetActivatesDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetActivatesDefaultMethodInfo a signature where - overloadedMethod _ = entryGetActivatesDefault - --- method Entry::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_alignment" gtk_entry_get_alignment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CFloat - - -entryGetAlignment :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Float -- result -entryGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data EntryGetAlignmentMethodInfo -instance (signature ~ (m Float), MonadIO m, EntryK a) => MethodInfo EntryGetAlignmentMethodInfo a signature where - overloadedMethod _ = entryGetAlignment - --- method Entry::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "AttrList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_attributes" gtk_entry_get_attributes :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.AttrList) - - -entryGetAttributes :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Maybe Pango.AttrList) -- result -entryGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_attributes _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Pango.AttrList) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetAttributesMethodInfo -instance (signature ~ (m (Maybe Pango.AttrList)), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where - overloadedMethod _ = entryGetAttributes - --- method Entry::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EntryBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_buffer" gtk_entry_get_buffer :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr EntryBuffer) - - -entryGetBuffer :: - (MonadIO m, EntryK a) => - a -- _obj - -> m EntryBuffer -- result -entryGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_entry_get_buffer" result - result' <- (newObject EntryBuffer) result - touchManagedPtr _obj - return result' - -data EntryGetBufferMethodInfo -instance (signature ~ (m EntryBuffer), MonadIO m, EntryK a) => MethodInfo EntryGetBufferMethodInfo a signature where - overloadedMethod _ = entryGetBuffer - --- method Entry::get_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EntryCompletion") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_completion" gtk_entry_get_completion :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr EntryCompletion) - - -entryGetCompletion :: - (MonadIO m, EntryK a) => - a -- _obj - -> m EntryCompletion -- result -entryGetCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_completion _obj' - checkUnexpectedReturnNULL "gtk_entry_get_completion" result - result' <- (newObject EntryCompletion) result - touchManagedPtr _obj - return result' - -data EntryGetCompletionMethodInfo -instance (signature ~ (m EntryCompletion), MonadIO m, EntryK a) => MethodInfo EntryGetCompletionMethodInfo a signature where - overloadedMethod _ = entryGetCompletion - --- method Entry::get_current_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_current_icon_drag_source" gtk_entry_get_current_icon_drag_source :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetCurrentIconDragSource :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Int32 -- result -entryGetCurrentIconDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_current_icon_drag_source _obj' - touchManagedPtr _obj - return result - -data EntryGetCurrentIconDragSourceMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetCurrentIconDragSourceMethodInfo a signature where - overloadedMethod _ = entryGetCurrentIconDragSource - --- method Entry::get_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_cursor_hadjustment" gtk_entry_get_cursor_hadjustment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Adjustment) - - -entryGetCursorHadjustment :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Maybe Adjustment) -- result -entryGetCursorHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_cursor_hadjustment _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Adjustment) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetCursorHadjustmentMethodInfo -instance (signature ~ (m (Maybe Adjustment)), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where - overloadedMethod _ = entryGetCursorHadjustment - --- method Entry::get_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_has_frame" gtk_entry_get_has_frame :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetHasFrame :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Bool -- result -entryGetHasFrame _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_has_frame _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetHasFrameMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetHasFrameMethodInfo a signature where - overloadedMethod _ = entryGetHasFrame - --- method Entry::get_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_activatable" gtk_entry_get_icon_activatable :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CInt - - -entryGetIconActivatable :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m Bool -- result -entryGetIconActivatable _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_activatable _obj' iconPos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetIconActivatableMethodInfo -instance (signature ~ (EntryIconPosition -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetIconActivatableMethodInfo a signature where - overloadedMethod _ = entryGetIconActivatable - --- method Entry::get_icon_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_area" gtk_entry_get_icon_area :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr Gdk.Rectangle -> -- icon_area : TInterface "Gdk" "Rectangle" - IO () - - -entryGetIconArea :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Gdk.Rectangle) -- result -entryGetIconArea _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - iconArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_entry_get_icon_area _obj' iconPos' iconArea - iconArea' <- (wrapBoxed Gdk.Rectangle) iconArea - touchManagedPtr _obj - return iconArea' - -data EntryGetIconAreaMethodInfo -instance (signature ~ (EntryIconPosition -> m (Gdk.Rectangle)), MonadIO m, EntryK a) => MethodInfo EntryGetIconAreaMethodInfo a signature where - overloadedMethod _ = entryGetIconArea - --- method Entry::get_icon_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO Int32 - - -entryGetIconAtPos :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m Int32 -- result -entryGetIconAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_icon_at_pos _obj' x y - touchManagedPtr _obj - return result - -data EntryGetIconAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetIconAtPosMethodInfo a signature where - overloadedMethod _ = entryGetIconAtPos - --- method Entry::get_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_gicon" gtk_entry_get_icon_gicon :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO (Ptr Gio.Icon) - - -entryGetIconGicon :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Maybe Gio.Icon) -- result -entryGetIconGicon _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_gicon _obj' iconPos' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gio.Icon) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetIconGiconMethodInfo -instance (signature ~ (EntryIconPosition -> m (Maybe Gio.Icon)), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where - overloadedMethod _ = entryGetIconGicon - --- method Entry::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_name" gtk_entry_get_icon_name :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconName :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Maybe T.Text) -- result -entryGetIconName _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_name _obj' iconPos' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetIconNameMethodInfo -instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where - overloadedMethod _ = entryGetIconName - --- method Entry::get_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_pixbuf" gtk_entry_get_icon_pixbuf :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO (Ptr GdkPixbuf.Pixbuf) - - -entryGetIconPixbuf :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Maybe GdkPixbuf.Pixbuf) -- result -entryGetIconPixbuf _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_pixbuf _obj' iconPos' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetIconPixbufMethodInfo -instance (signature ~ (EntryIconPosition -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where - overloadedMethod _ = entryGetIconPixbuf - --- method Entry::get_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_sensitive" gtk_entry_get_icon_sensitive :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CInt - - -entryGetIconSensitive :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m Bool -- result -entryGetIconSensitive _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_sensitive _obj' iconPos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetIconSensitiveMethodInfo -instance (signature ~ (EntryIconPosition -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetIconSensitiveMethodInfo a signature where - overloadedMethod _ = entryGetIconSensitive - --- method Entry::get_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_stock" gtk_entry_get_icon_stock :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - -{-# DEPRECATED entryGetIconStock ["(Since version 3.10)","Use gtk_entry_get_icon_name() instead."]#-} -entryGetIconStock :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m T.Text -- result -entryGetIconStock _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_stock _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data EntryGetIconStockMethodInfo -instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconStockMethodInfo a signature where - overloadedMethod _ = entryGetIconStock - --- method Entry::get_icon_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_storage_type" gtk_entry_get_icon_storage_type :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CUInt - - -entryGetIconStorageType :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m ImageType -- result -entryGetIconStorageType _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_storage_type _obj' iconPos' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data EntryGetIconStorageTypeMethodInfo -instance (signature ~ (EntryIconPosition -> m ImageType), MonadIO m, EntryK a) => MethodInfo EntryGetIconStorageTypeMethodInfo a signature where - overloadedMethod _ = entryGetIconStorageType - --- method Entry::get_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_tooltip_markup" gtk_entry_get_icon_tooltip_markup :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconTooltipMarkup :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Maybe T.Text) -- result -entryGetIconTooltipMarkup _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_tooltip_markup _obj' iconPos' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetIconTooltipMarkupMethodInfo -instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where - overloadedMethod _ = entryGetIconTooltipMarkup - --- method Entry::get_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 "gtk_entry_get_icon_tooltip_text" gtk_entry_get_icon_tooltip_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconTooltipText :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> m (Maybe T.Text) -- result -entryGetIconTooltipText _obj iconPos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - result <- gtk_entry_get_icon_tooltip_text _obj' iconPos' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetIconTooltipTextMethodInfo -instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where - overloadedMethod _ = entryGetIconTooltipText - --- method Entry::get_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Border") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_inner_border" gtk_entry_get_inner_border :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Border) - -{-# DEPRECATED entryGetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value returned by"," this function is ignored by #GtkEntry."]#-} -entryGetInnerBorder :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Maybe Border) -- result -entryGetInnerBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_inner_border _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Border) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetInnerBorderMethodInfo -instance (signature ~ (m (Maybe Border)), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where - overloadedMethod _ = entryGetInnerBorder - --- method Entry::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "InputHints") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_input_hints" gtk_entry_get_input_hints :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CUInt - - -entryGetInputHints :: - (MonadIO m, EntryK a) => - a -- _obj - -> m [InputHints] -- result -entryGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data EntryGetInputHintsMethodInfo -instance (signature ~ (m [InputHints]), MonadIO m, EntryK a) => MethodInfo EntryGetInputHintsMethodInfo a signature where - overloadedMethod _ = entryGetInputHints - --- method Entry::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "InputPurpose") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_input_purpose" gtk_entry_get_input_purpose :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CUInt - - -entryGetInputPurpose :: - (MonadIO m, EntryK a) => - a -- _obj - -> m InputPurpose -- result -entryGetInputPurpose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_purpose _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data EntryGetInputPurposeMethodInfo -instance (signature ~ (m InputPurpose), MonadIO m, EntryK a) => MethodInfo EntryGetInputPurposeMethodInfo a signature where - overloadedMethod _ = entryGetInputPurpose - --- method Entry::get_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_invisible_char" gtk_entry_get_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetInvisibleChar :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Char -- result -entryGetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_invisible_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - -data EntryGetInvisibleCharMethodInfo -instance (signature ~ (m Char), MonadIO m, EntryK a) => MethodInfo EntryGetInvisibleCharMethodInfo a signature where - overloadedMethod _ = entryGetInvisibleChar - --- method Entry::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_layout" gtk_entry_get_layout :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.Layout) - - -entryGetLayout :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Pango.Layout -- result -entryGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_layout _obj' - checkUnexpectedReturnNULL "gtk_entry_get_layout" result - result' <- (newObject Pango.Layout) result - touchManagedPtr _obj - return result' - -data EntryGetLayoutMethodInfo -instance (signature ~ (m Pango.Layout), MonadIO m, EntryK a) => MethodInfo EntryGetLayoutMethodInfo a signature where - overloadedMethod _ = entryGetLayout - --- method Entry::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, 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 "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -entryGetLayoutOffsets :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Int32,Int32) -- result -entryGetLayoutOffsets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_entry_get_layout_offsets _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data EntryGetLayoutOffsetsMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, EntryK a) => MethodInfo EntryGetLayoutOffsetsMethodInfo a signature where - overloadedMethod _ = entryGetLayoutOffsets - --- method Entry::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_max_length" gtk_entry_get_max_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetMaxLength :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Int32 -- result -entryGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_length _obj' - touchManagedPtr _obj - return result - -data EntryGetMaxLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetMaxLengthMethodInfo a signature where - overloadedMethod _ = entryGetMaxLength - --- method Entry::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_max_width_chars" gtk_entry_get_max_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetMaxWidthChars :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Int32 -- result -entryGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_width_chars _obj' - touchManagedPtr _obj - return result - -data EntryGetMaxWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetMaxWidthCharsMethodInfo a signature where - overloadedMethod _ = entryGetMaxWidthChars - --- method Entry::get_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_overwrite_mode" gtk_entry_get_overwrite_mode :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetOverwriteMode :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Bool -- result -entryGetOverwriteMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_overwrite_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetOverwriteModeMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetOverwriteModeMethodInfo a signature where - overloadedMethod _ = entryGetOverwriteMode - --- method Entry::get_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_placeholder_text" gtk_entry_get_placeholder_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CString - - -entryGetPlaceholderText :: - (MonadIO m, EntryK a) => - a -- _obj - -> m T.Text -- result -entryGetPlaceholderText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_placeholder_text _obj' - checkUnexpectedReturnNULL "gtk_entry_get_placeholder_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data EntryGetPlaceholderTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetPlaceholderTextMethodInfo a signature where - overloadedMethod _ = entryGetPlaceholderText - --- method Entry::get_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_progress_fraction" gtk_entry_get_progress_fraction :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CDouble - - -entryGetProgressFraction :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Double -- result -entryGetProgressFraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_fraction _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data EntryGetProgressFractionMethodInfo -instance (signature ~ (m Double), MonadIO m, EntryK a) => MethodInfo EntryGetProgressFractionMethodInfo a signature where - overloadedMethod _ = entryGetProgressFraction - --- method Entry::get_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_progress_pulse_step" gtk_entry_get_progress_pulse_step :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CDouble - - -entryGetProgressPulseStep :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Double -- result -entryGetProgressPulseStep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_pulse_step _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data EntryGetProgressPulseStepMethodInfo -instance (signature ~ (m Double), MonadIO m, EntryK a) => MethodInfo EntryGetProgressPulseStepMethodInfo a signature where - overloadedMethod _ = entryGetProgressPulseStep - --- method Entry::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "TabArray") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_tabs" gtk_entry_get_tabs :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.TabArray) - - -entryGetTabs :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Maybe Pango.TabArray) -- result -entryGetTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_tabs _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Pango.TabArray) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EntryGetTabsMethodInfo -instance (signature ~ (m (Maybe Pango.TabArray)), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where - overloadedMethod _ = entryGetTabs - --- method Entry::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_text" gtk_entry_get_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CString - - -entryGetText :: - (MonadIO m, EntryK a) => - a -- _obj - -> m T.Text -- result -entryGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_text _obj' - checkUnexpectedReturnNULL "gtk_entry_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data EntryGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetTextMethodInfo a signature where - overloadedMethod _ = entryGetText - --- method Entry::get_text_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_text_area" gtk_entry_get_text_area :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Gdk.Rectangle -> -- text_area : TInterface "Gdk" "Rectangle" - IO () - - -entryGetTextArea :: - (MonadIO m, EntryK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -entryGetTextArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - textArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_entry_get_text_area _obj' textArea - textArea' <- (wrapBoxed Gdk.Rectangle) textArea - touchManagedPtr _obj - return textArea' - -data EntryGetTextAreaMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, EntryK a) => MethodInfo EntryGetTextAreaMethodInfo a signature where - overloadedMethod _ = entryGetTextArea - --- method Entry::get_text_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_text_length" gtk_entry_get_text_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Word16 - - -entryGetTextLength :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Word16 -- result -entryGetTextLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_text_length _obj' - touchManagedPtr _obj - return result - -data EntryGetTextLengthMethodInfo -instance (signature ~ (m Word16), MonadIO m, EntryK a) => MethodInfo EntryGetTextLengthMethodInfo a signature where - overloadedMethod _ = entryGetTextLength - --- method Entry::get_visibility --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_visibility" gtk_entry_get_visibility :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetVisibility :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Bool -- result -entryGetVisibility _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_visibility _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryGetVisibilityMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetVisibilityMethodInfo a signature where - overloadedMethod _ = entryGetVisibility - --- method Entry::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_get_width_chars" gtk_entry_get_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetWidthChars :: - (MonadIO m, EntryK a) => - a -- _obj - -> m Int32 -- result -entryGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_width_chars _obj' - touchManagedPtr _obj - return result - -data EntryGetWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetWidthCharsMethodInfo a signature where - overloadedMethod _ = entryGetWidthChars - --- method Entry::grab_focus_without_selecting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_grab_focus_without_selecting" gtk_entry_grab_focus_without_selecting :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryGrabFocusWithoutSelecting :: - (MonadIO m, EntryK a) => - a -- _obj - -> m () -- result -entryGrabFocusWithoutSelecting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_grab_focus_without_selecting _obj' - touchManagedPtr _obj - return () - -data EntryGrabFocusWithoutSelectingMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryGrabFocusWithoutSelectingMethodInfo a signature where - overloadedMethod _ = entryGrabFocusWithoutSelecting - --- method Entry::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_entry_im_context_filter_keypress" gtk_entry_im_context_filter_keypress :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -entryImContextFilterKeypress :: - (MonadIO m, EntryK a) => - a -- _obj - -> Gdk.EventKey -- event - -> m Bool -- result -entryImContextFilterKeypress _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_entry_im_context_filter_keypress _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data EntryImContextFilterKeypressMethodInfo -instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryImContextFilterKeypressMethodInfo a signature where - overloadedMethod _ = entryImContextFilterKeypress - --- method Entry::layout_index_to_text_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_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 "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- layout_index : TBasicType TInt - IO Int32 - - -entryLayoutIndexToTextIndex :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- layoutIndex - -> m Int32 -- result -entryLayoutIndexToTextIndex _obj layoutIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_layout_index_to_text_index _obj' layoutIndex - touchManagedPtr _obj - return result - -data EntryLayoutIndexToTextIndexMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryLayoutIndexToTextIndexMethodInfo a signature where - overloadedMethod _ = entryLayoutIndexToTextIndex - --- method Entry::progress_pulse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_progress_pulse" gtk_entry_progress_pulse :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryProgressPulse :: - (MonadIO m, EntryK a) => - a -- _obj - -> m () -- result -entryProgressPulse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_progress_pulse _obj' - touchManagedPtr _obj - return () - -data EntryProgressPulseMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryProgressPulseMethodInfo a signature where - overloadedMethod _ = entryProgressPulse - --- method Entry::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_reset_im_context" gtk_entry_reset_im_context :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryResetImContext :: - (MonadIO m, EntryK a) => - a -- _obj - -> m () -- result -entryResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_reset_im_context _obj' - touchManagedPtr _obj - return () - -data EntryResetImContextMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryResetImContextMethodInfo a signature where - overloadedMethod _ = entryResetImContext - --- method Entry::set_activates_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_entry_set_activates_default" gtk_entry_set_activates_default :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- setting : TBasicType TBoolean - IO () - - -entrySetActivatesDefault :: - (MonadIO m, EntryK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -entrySetActivatesDefault _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_activates_default _obj' setting' - touchManagedPtr _obj - return () - -data EntrySetActivatesDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetActivatesDefaultMethodInfo a signature where - overloadedMethod _ = entrySetActivatesDefault - --- method Entry::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, 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 "gtk_entry_set_alignment" gtk_entry_set_alignment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CFloat -> -- xalign : TBasicType TFloat - IO () - - -entrySetAlignment :: - (MonadIO m, EntryK a) => - a -- _obj - -> Float -- xalign - -> m () -- result -entrySetAlignment _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_entry_set_alignment _obj' xalign' - touchManagedPtr _obj - return () - -data EntrySetAlignmentMethodInfo -instance (signature ~ (Float -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetAlignmentMethodInfo a signature where - overloadedMethod _ = entrySetAlignment - --- method Entry::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", 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 "gtk_entry_set_attributes" gtk_entry_set_attributes :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" - IO () - - -entrySetAttributes :: - (MonadIO m, EntryK a) => - a -- _obj - -> Pango.AttrList -- attrs - -> m () -- result -entrySetAttributes _obj attrs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let attrs' = unsafeManagedPtrGetPtr attrs - gtk_entry_set_attributes _obj' attrs' - touchManagedPtr _obj - touchManagedPtr attrs - return () - -data EntrySetAttributesMethodInfo -instance (signature ~ (Pango.AttrList -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetAttributesMethodInfo a signature where - overloadedMethod _ = entrySetAttributes - --- method Entry::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", 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 "gtk_entry_set_buffer" gtk_entry_set_buffer :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" - IO () - - -entrySetBuffer :: - (MonadIO m, EntryK a, EntryBufferK b) => - a -- _obj - -> b -- buffer - -> m () -- result -entrySetBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - gtk_entry_set_buffer _obj' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - -data EntrySetBufferMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, EntryK a, EntryBufferK b) => MethodInfo EntrySetBufferMethodInfo a signature where - overloadedMethod _ = entrySetBuffer - --- method Entry::set_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_completion" gtk_entry_set_completion :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr EntryCompletion -> -- completion : TInterface "Gtk" "EntryCompletion" - IO () - - -entrySetCompletion :: - (MonadIO m, EntryK a, EntryCompletionK b) => - a -- _obj - -> Maybe (b) -- completion - -> m () -- result -entrySetCompletion _obj completion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCompletion <- case completion of - Nothing -> return nullPtr - Just jCompletion -> do - let jCompletion' = unsafeManagedPtrCastPtr jCompletion - return jCompletion' - gtk_entry_set_completion _obj' maybeCompletion - touchManagedPtr _obj - whenJust completion touchManagedPtr - return () - -data EntrySetCompletionMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryK a, EntryCompletionK b) => MethodInfo EntrySetCompletionMethodInfo a signature where - overloadedMethod _ = entrySetCompletion - --- method Entry::set_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_cursor_hadjustment" gtk_entry_set_cursor_hadjustment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -entrySetCursorHadjustment :: - (MonadIO m, EntryK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -entrySetCursorHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_entry_set_cursor_hadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data EntrySetCursorHadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryK a, AdjustmentK b) => MethodInfo EntrySetCursorHadjustmentMethodInfo a signature where - overloadedMethod _ = entrySetCursorHadjustment - --- method Entry::set_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_entry_set_has_frame" gtk_entry_set_has_frame :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- setting : TBasicType TBoolean - IO () - - -entrySetHasFrame :: - (MonadIO m, EntryK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -entrySetHasFrame _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_has_frame _obj' setting' - touchManagedPtr _obj - return () - -data EntrySetHasFrameMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetHasFrameMethodInfo a signature where - overloadedMethod _ = entrySetHasFrame - --- method Entry::set_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", 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 "gtk_entry_set_icon_activatable" gtk_entry_set_icon_activatable :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CInt -> -- activatable : TBasicType TBoolean - IO () - - -entrySetIconActivatable :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Bool -- activatable - -> m () -- result -entrySetIconActivatable _obj iconPos activatable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - let activatable' = (fromIntegral . fromEnum) activatable - gtk_entry_set_icon_activatable _obj' iconPos' activatable' - touchManagedPtr _obj - return () - -data EntrySetIconActivatableMethodInfo -instance (signature ~ (EntryIconPosition -> Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconActivatableMethodInfo a signature where - overloadedMethod _ = entrySetIconActivatable - --- method Entry::set_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_entry_set_icon_drag_source" gtk_entry_set_icon_drag_source :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -entrySetIconDragSource :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> TargetList -- targetList - -> [Gdk.DragAction] -- actions - -> m () -- result -entrySetIconDragSource _obj iconPos targetList actions = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - let targetList' = unsafeManagedPtrGetPtr targetList - let actions' = gflagsToWord actions - gtk_entry_set_icon_drag_source _obj' iconPos' targetList' actions' - touchManagedPtr _obj - touchManagedPtr targetList - return () - -data EntrySetIconDragSourceMethodInfo -instance (signature ~ (EntryIconPosition -> TargetList -> [Gdk.DragAction] -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconDragSourceMethodInfo a signature where - overloadedMethod _ = entrySetIconDragSource - --- method Entry::set_icon_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_gicon" gtk_entry_set_icon_from_gicon :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -entrySetIconFromGicon :: - (MonadIO m, EntryK a, Gio.IconK b) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (b) -- icon - -> m () -- result -entrySetIconFromGicon _obj iconPos icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_entry_set_icon_from_gicon _obj' iconPos' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - -data EntrySetIconFromGiconMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (b) -> m ()), MonadIO m, EntryK a, Gio.IconK b) => MethodInfo EntrySetIconFromGiconMethodInfo a signature where - overloadedMethod _ = entrySetIconFromGicon - --- method Entry::set_icon_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_icon_name" gtk_entry_set_icon_from_icon_name :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -entrySetIconFromIconName :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (T.Text) -- iconName - -> m () -- result -entrySetIconFromIconName _obj iconPos iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_entry_set_icon_from_icon_name _obj' iconPos' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data EntrySetIconFromIconNameMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconFromIconNameMethodInfo a signature where - overloadedMethod _ = entrySetIconFromIconName - --- method Entry::set_icon_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_pixbuf" gtk_entry_set_icon_from_pixbuf :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -entrySetIconFromPixbuf :: - (MonadIO m, EntryK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (b) -- pixbuf - -> m () -- result -entrySetIconFromPixbuf _obj iconPos pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_entry_set_icon_from_pixbuf _obj' iconPos' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - -data EntrySetIconFromPixbufMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (b) -> m ()), MonadIO m, EntryK a, GdkPixbuf.PixbufK b) => MethodInfo EntrySetIconFromPixbufMethodInfo a signature where - overloadedMethod _ = entrySetIconFromPixbuf - --- method Entry::set_icon_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_stock" gtk_entry_set_icon_from_stock :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED entrySetIconFromStock ["(Since version 3.10)","Use gtk_entry_set_icon_from_icon_name() instead."]#-} -entrySetIconFromStock :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (T.Text) -- stockId - -> m () -- result -entrySetIconFromStock _obj iconPos stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - gtk_entry_set_icon_from_stock _obj' iconPos' maybeStockId - touchManagedPtr _obj - freeMem maybeStockId - return () - -data EntrySetIconFromStockMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconFromStockMethodInfo a signature where - overloadedMethod _ = entrySetIconFromStock - --- method Entry::set_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_entry_set_icon_sensitive" gtk_entry_set_icon_sensitive :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -entrySetIconSensitive :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Bool -- sensitive - -> m () -- result -entrySetIconSensitive _obj iconPos sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_entry_set_icon_sensitive _obj' iconPos' sensitive' - touchManagedPtr _obj - return () - -data EntrySetIconSensitiveMethodInfo -instance (signature ~ (EntryIconPosition -> Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconSensitiveMethodInfo a signature where - overloadedMethod _ = entrySetIconSensitive - --- method Entry::set_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_tooltip_markup" gtk_entry_set_icon_tooltip_markup :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- tooltip : TBasicType TUTF8 - IO () - - -entrySetIconTooltipMarkup :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (T.Text) -- tooltip - -> m () -- result -entrySetIconTooltipMarkup _obj iconPos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_markup _obj' iconPos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - -data EntrySetIconTooltipMarkupMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconTooltipMarkupMethodInfo a signature where - overloadedMethod _ = entrySetIconTooltipMarkup - --- method Entry::set_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_tooltip_text" gtk_entry_set_icon_tooltip_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- tooltip : TBasicType TUTF8 - IO () - - -entrySetIconTooltipText :: - (MonadIO m, EntryK a) => - a -- _obj - -> EntryIconPosition -- iconPos - -> Maybe (T.Text) -- tooltip - -> m () -- result -entrySetIconTooltipText _obj iconPos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconPos' = (fromIntegral . fromEnum) iconPos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_text _obj' iconPos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - -data EntrySetIconTooltipTextMethodInfo -instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconTooltipTextMethodInfo a signature where - overloadedMethod _ = entrySetIconTooltipText - --- method Entry::set_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_inner_border" gtk_entry_set_inner_border :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Border -> -- border : TInterface "Gtk" "Border" - IO () - -{-# DEPRECATED entrySetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value set with"," this function is ignored by #GtkEntry."]#-} -entrySetInnerBorder :: - (MonadIO m, EntryK a) => - a -- _obj - -> Maybe (Border) -- border - -> m () -- result -entrySetInnerBorder _obj border = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBorder <- case border of - Nothing -> return nullPtr - Just jBorder -> do - let jBorder' = unsafeManagedPtrGetPtr jBorder - return jBorder' - gtk_entry_set_inner_border _obj' maybeBorder - touchManagedPtr _obj - whenJust border touchManagedPtr - return () - -data EntrySetInnerBorderMethodInfo -instance (signature ~ (Maybe (Border) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInnerBorderMethodInfo a signature where - overloadedMethod _ = entrySetInnerBorder - --- method Entry::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", 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 "gtk_entry_set_input_hints" gtk_entry_set_input_hints :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- hints : TInterface "Gtk" "InputHints" - IO () - - -entrySetInputHints :: - (MonadIO m, EntryK a) => - a -- _obj - -> [InputHints] -- hints - -> m () -- result -entrySetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_entry_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - -data EntrySetInputHintsMethodInfo -instance (signature ~ ([InputHints] -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInputHintsMethodInfo a signature where - overloadedMethod _ = entrySetInputHints - --- method Entry::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", 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 "gtk_entry_set_input_purpose" gtk_entry_set_input_purpose :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" - IO () - - -entrySetInputPurpose :: - (MonadIO m, EntryK a) => - a -- _obj - -> InputPurpose -- purpose - -> m () -- result -entrySetInputPurpose _obj purpose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let purpose' = (fromIntegral . fromEnum) purpose - gtk_entry_set_input_purpose _obj' purpose' - touchManagedPtr _obj - return () - -data EntrySetInputPurposeMethodInfo -instance (signature ~ (InputPurpose -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInputPurposeMethodInfo a signature where - overloadedMethod _ = entrySetInputPurpose - --- method Entry::set_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ch", argType = TBasicType TUniChar, 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 "gtk_entry_set_invisible_char" gtk_entry_set_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- ch : TBasicType TUniChar - IO () - - -entrySetInvisibleChar :: - (MonadIO m, EntryK a) => - a -- _obj - -> Char -- ch - -> m () -- result -entrySetInvisibleChar _obj ch = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ch' = (fromIntegral . ord) ch - gtk_entry_set_invisible_char _obj' ch' - touchManagedPtr _obj - return () - -data EntrySetInvisibleCharMethodInfo -instance (signature ~ (Char -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInvisibleCharMethodInfo a signature where - overloadedMethod _ = entrySetInvisibleChar - --- method Entry::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", 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 "gtk_entry_set_max_length" gtk_entry_set_max_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- max : TBasicType TInt - IO () - - -entrySetMaxLength :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- max - -> m () -- result -entrySetMaxLength _obj max = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_length _obj' max - touchManagedPtr _obj - return () - -data EntrySetMaxLengthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetMaxLengthMethodInfo a signature where - overloadedMethod _ = entrySetMaxLength - --- method Entry::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt - IO () - - -entrySetMaxWidthChars :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- nChars - -> m () -- result -entrySetMaxWidthChars _obj nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_width_chars _obj' nChars - touchManagedPtr _obj - return () - -data EntrySetMaxWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetMaxWidthCharsMethodInfo a signature where - overloadedMethod _ = entrySetMaxWidthChars - --- method Entry::set_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", 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 "gtk_entry_set_overwrite_mode" gtk_entry_set_overwrite_mode :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- overwrite : TBasicType TBoolean - IO () - - -entrySetOverwriteMode :: - (MonadIO m, EntryK a) => - a -- _obj - -> Bool -- overwrite - -> m () -- result -entrySetOverwriteMode _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_entry_set_overwrite_mode _obj' overwrite' - touchManagedPtr _obj - return () - -data EntrySetOverwriteModeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetOverwriteModeMethodInfo a signature where - overloadedMethod _ = entrySetOverwriteMode - --- method Entry::set_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_placeholder_text" gtk_entry_set_placeholder_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CString -> -- text : TBasicType TUTF8 - IO () - - -entrySetPlaceholderText :: - (MonadIO m, EntryK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m () -- result -entrySetPlaceholderText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_entry_set_placeholder_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - -data EntrySetPlaceholderTextMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetPlaceholderTextMethodInfo a signature where - overloadedMethod _ = entrySetPlaceholderText - --- method Entry::set_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", 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 "gtk_entry_set_progress_fraction" gtk_entry_set_progress_fraction :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -entrySetProgressFraction :: - (MonadIO m, EntryK a) => - a -- _obj - -> Double -- fraction - -> m () -- result -entrySetProgressFraction _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_fraction _obj' fraction' - touchManagedPtr _obj - return () - -data EntrySetProgressFractionMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetProgressFractionMethodInfo a signature where - overloadedMethod _ = entrySetProgressFraction - --- method Entry::set_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", 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 "gtk_entry_set_progress_pulse_step" gtk_entry_set_progress_pulse_step :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -entrySetProgressPulseStep :: - (MonadIO m, EntryK a) => - a -- _obj - -> Double -- fraction - -> m () -- result -entrySetProgressPulseStep _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_pulse_step _obj' fraction' - touchManagedPtr _obj - return () - -data EntrySetProgressPulseStepMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetProgressPulseStepMethodInfo a signature where - overloadedMethod _ = entrySetProgressPulseStep - --- method Entry::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", 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 "gtk_entry_set_tabs" gtk_entry_set_tabs :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" - IO () - - -entrySetTabs :: - (MonadIO m, EntryK a) => - a -- _obj - -> Pango.TabArray -- tabs - -> m () -- result -entrySetTabs _obj tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tabs' = unsafeManagedPtrGetPtr tabs - gtk_entry_set_tabs _obj' tabs' - touchManagedPtr _obj - touchManagedPtr tabs - return () - -data EntrySetTabsMethodInfo -instance (signature ~ (Pango.TabArray -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetTabsMethodInfo a signature where - overloadedMethod _ = entrySetTabs - --- method Entry::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_entry_set_text" gtk_entry_set_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CString -> -- text : TBasicType TUTF8 - IO () - - -entrySetText :: - (MonadIO m, EntryK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -entrySetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_set_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data EntrySetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetTextMethodInfo a signature where - overloadedMethod _ = entrySetText - --- method Entry::set_visibility --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_entry_set_visibility" gtk_entry_set_visibility :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- visible : TBasicType TBoolean - IO () - - -entrySetVisibility :: - (MonadIO m, EntryK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -entrySetVisibility _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_entry_set_visibility _obj' visible' - touchManagedPtr _obj - return () - -data EntrySetVisibilityMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetVisibilityMethodInfo a signature where - overloadedMethod _ = entrySetVisibility - --- method Entry::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt - IO () - - -entrySetWidthChars :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- nChars - -> m () -- result -entrySetWidthChars _obj nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_width_chars _obj' nChars - touchManagedPtr _obj - return () - -data EntrySetWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetWidthCharsMethodInfo a signature where - overloadedMethod _ = entrySetWidthChars - --- method Entry::text_index_to_layout_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_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 "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- text_index : TBasicType TInt - IO Int32 - - -entryTextIndexToLayoutIndex :: - (MonadIO m, EntryK a) => - a -- _obj - -> Int32 -- textIndex - -> m Int32 -- result -entryTextIndexToLayoutIndex _obj textIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_text_index_to_layout_index _obj' textIndex - touchManagedPtr _obj - return result - -data EntryTextIndexToLayoutIndexMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryTextIndexToLayoutIndexMethodInfo a signature where - overloadedMethod _ = entryTextIndexToLayoutIndex - --- method Entry::unset_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 "gtk_entry_unset_invisible_char" gtk_entry_unset_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryUnsetInvisibleChar :: - (MonadIO m, EntryK a) => - a -- _obj - -> m () -- result -entryUnsetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_unset_invisible_char _obj' - touchManagedPtr _obj - return () - -data EntryUnsetInvisibleCharMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryUnsetInvisibleCharMethodInfo a signature where - overloadedMethod _ = entryUnsetInvisibleChar - - diff --git a/GI/Gtk/Objects/Entry.hs-boot b/GI/Gtk/Objects/Entry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Entry.hs-boot +++ /dev/null @@ -1,149 +0,0 @@ -module GI.Gtk.Objects.Entry 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 Entry = Entry (ForeignPtr Entry) -instance GObject Entry where -class GObject o => EntryK o -instance (GObject o, IsDescendantOf Entry o) => EntryK o -data EntryActivatesDefaultPropertyInfo -data EntryAttributesPropertyInfo -data EntryBufferPropertyInfo -data EntryCapsLockWarningPropertyInfo -data EntryCompletionPropertyInfo -data EntryCursorPositionPropertyInfo -data EntryEditablePropertyInfo -data EntryHasFramePropertyInfo -data EntryImModulePropertyInfo -data EntryInnerBorderPropertyInfo -data EntryInputHintsPropertyInfo -data EntryInputPurposePropertyInfo -data EntryInvisibleCharPropertyInfo -data EntryInvisibleCharSetPropertyInfo -data EntryMaxLengthPropertyInfo -data EntryMaxWidthCharsPropertyInfo -data EntryOverwriteModePropertyInfo -data EntryPlaceholderTextPropertyInfo -data EntryPopulateAllPropertyInfo -data EntryPrimaryIconActivatablePropertyInfo -data EntryPrimaryIconGiconPropertyInfo -data EntryPrimaryIconNamePropertyInfo -data EntryPrimaryIconPixbufPropertyInfo -data EntryPrimaryIconSensitivePropertyInfo -data EntryPrimaryIconStockPropertyInfo -data EntryPrimaryIconStorageTypePropertyInfo -data EntryPrimaryIconTooltipMarkupPropertyInfo -data EntryPrimaryIconTooltipTextPropertyInfo -data EntryProgressFractionPropertyInfo -data EntryProgressPulseStepPropertyInfo -data EntryScrollOffsetPropertyInfo -data EntrySecondaryIconActivatablePropertyInfo -data EntrySecondaryIconGiconPropertyInfo -data EntrySecondaryIconNamePropertyInfo -data EntrySecondaryIconPixbufPropertyInfo -data EntrySecondaryIconSensitivePropertyInfo -data EntrySecondaryIconStockPropertyInfo -data EntrySecondaryIconStorageTypePropertyInfo -data EntrySecondaryIconTooltipMarkupPropertyInfo -data EntrySecondaryIconTooltipTextPropertyInfo -data EntrySelectionBoundPropertyInfo -data EntryShadowTypePropertyInfo -data EntryTabsPropertyInfo -data EntryTextPropertyInfo -data EntryTextLengthPropertyInfo -data EntryTruncateMultilinePropertyInfo -data EntryVisibilityPropertyInfo -data EntryWidthCharsPropertyInfo -data EntryXalignPropertyInfo -data EntryActivateSignalInfo -data EntryBackspaceSignalInfo -data EntryCopyClipboardSignalInfo -data EntryCutClipboardSignalInfo -data EntryDeleteFromCursorSignalInfo -data EntryIconPressSignalInfo -data EntryIconReleaseSignalInfo -data EntryInsertAtCursorSignalInfo -data EntryMoveCursorSignalInfo -data EntryPasteClipboardSignalInfo -data EntryPopulatePopupSignalInfo -data EntryPreeditChangedSignalInfo -data EntryToggleOverwriteSignalInfo -data EntryGetActivatesDefaultMethodInfo -data EntryGetAlignmentMethodInfo -data EntryGetAttributesMethodInfo -data EntryGetBufferMethodInfo -data EntryGetCompletionMethodInfo -data EntryGetCurrentIconDragSourceMethodInfo -data EntryGetCursorHadjustmentMethodInfo -data EntryGetHasFrameMethodInfo -data EntryGetIconActivatableMethodInfo -data EntryGetIconAreaMethodInfo -data EntryGetIconAtPosMethodInfo -data EntryGetIconGiconMethodInfo -data EntryGetIconNameMethodInfo -data EntryGetIconPixbufMethodInfo -data EntryGetIconSensitiveMethodInfo -data EntryGetIconStockMethodInfo -data EntryGetIconStorageTypeMethodInfo -data EntryGetIconTooltipMarkupMethodInfo -data EntryGetIconTooltipTextMethodInfo -data EntryGetInnerBorderMethodInfo -data EntryGetInputHintsMethodInfo -data EntryGetInputPurposeMethodInfo -data EntryGetInvisibleCharMethodInfo -data EntryGetLayoutMethodInfo -data EntryGetLayoutOffsetsMethodInfo -data EntryGetMaxLengthMethodInfo -data EntryGetMaxWidthCharsMethodInfo -data EntryGetOverwriteModeMethodInfo -data EntryGetPlaceholderTextMethodInfo -data EntryGetProgressFractionMethodInfo -data EntryGetProgressPulseStepMethodInfo -data EntryGetTabsMethodInfo -data EntryGetTextMethodInfo -data EntryGetTextAreaMethodInfo -data EntryGetTextLengthMethodInfo -data EntryGetVisibilityMethodInfo -data EntryGetWidthCharsMethodInfo -data EntryGrabFocusWithoutSelectingMethodInfo -data EntryImContextFilterKeypressMethodInfo -data EntryLayoutIndexToTextIndexMethodInfo -data EntryProgressPulseMethodInfo -data EntryResetImContextMethodInfo -data EntrySetActivatesDefaultMethodInfo -data EntrySetAlignmentMethodInfo -data EntrySetAttributesMethodInfo -data EntrySetBufferMethodInfo -data EntrySetCompletionMethodInfo -data EntrySetCursorHadjustmentMethodInfo -data EntrySetHasFrameMethodInfo -data EntrySetIconActivatableMethodInfo -data EntrySetIconDragSourceMethodInfo -data EntrySetIconFromGiconMethodInfo -data EntrySetIconFromIconNameMethodInfo -data EntrySetIconFromPixbufMethodInfo -data EntrySetIconFromStockMethodInfo -data EntrySetIconSensitiveMethodInfo -data EntrySetIconTooltipMarkupMethodInfo -data EntrySetIconTooltipTextMethodInfo -data EntrySetInnerBorderMethodInfo -data EntrySetInputHintsMethodInfo -data EntrySetInputPurposeMethodInfo -data EntrySetInvisibleCharMethodInfo -data EntrySetMaxLengthMethodInfo -data EntrySetMaxWidthCharsMethodInfo -data EntrySetOverwriteModeMethodInfo -data EntrySetPlaceholderTextMethodInfo -data EntrySetProgressFractionMethodInfo -data EntrySetProgressPulseStepMethodInfo -data EntrySetTabsMethodInfo -data EntrySetTextMethodInfo -data EntrySetVisibilityMethodInfo -data EntrySetWidthCharsMethodInfo -data EntryTextIndexToLayoutIndexMethodInfo -data EntryUnsetInvisibleCharMethodInfo diff --git a/GI/Gtk/Objects/EntryAccessible.hs b/GI/Gtk/Objects/EntryAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EntryAccessible.hs +++ /dev/null @@ -1,156 +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.Gtk.Objects.EntryAccessible - ( - --- * Exported types - EntryAccessible(..) , - EntryAccessibleK , - toEntryAccessible , - noEntryAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype EntryAccessible = EntryAccessible (ForeignPtr EntryAccessible) -foreign import ccall "gtk_entry_accessible_get_type" - c_gtk_entry_accessible_get_type :: IO GType - -type instance ParentTypes EntryAccessible = EntryAccessibleParentTypes -type EntryAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.EditableText, Atk.Text] - -instance GObject EntryAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_entry_accessible_get_type - - -class GObject o => EntryAccessibleK o -instance (GObject o, IsDescendantOf EntryAccessible o) => EntryAccessibleK o - -toEntryAccessible :: EntryAccessibleK o => o -> IO EntryAccessible -toEntryAccessible = unsafeCastTo EntryAccessible - -noEntryAccessible :: Maybe EntryAccessible -noEntryAccessible = Nothing - -type family ResolveEntryAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveEntryAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveEntryAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo - ResolveEntryAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEntryAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEntryAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveEntryAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveEntryAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo - ResolveEntryAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo - ResolveEntryAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo - ResolveEntryAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveEntryAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEntryAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEntryAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveEntryAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveEntryAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo - ResolveEntryAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEntryAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEntryAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEntryAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveEntryAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo - ResolveEntryAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveEntryAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEntryAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveEntryAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveEntryAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveEntryAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEntryAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveEntryAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveEntryAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveEntryAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveEntryAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo - ResolveEntryAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEntryAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEntryAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEntryAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEntryAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEntryAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEntryAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEntryAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEntryAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveEntryAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveEntryAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo - ResolveEntryAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo - ResolveEntryAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo - ResolveEntryAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo - ResolveEntryAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo - ResolveEntryAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEntryAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo - ResolveEntryAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveEntryAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveEntryAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveEntryAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveEntryAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveEntryAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveEntryAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo - ResolveEntryAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveEntryAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo - ResolveEntryAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveEntryAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveEntryAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEntryAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEntryAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo - ResolveEntryAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveEntryAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo - ResolveEntryAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo - ResolveEntryAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveEntryAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo - ResolveEntryAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo - ResolveEntryAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo - ResolveEntryAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo - ResolveEntryAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo - ResolveEntryAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveEntryAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo - ResolveEntryAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEntryAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveEntryAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveEntryAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveEntryAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveEntryAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEntryAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveEntryAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo - ResolveEntryAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo - ResolveEntryAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveEntryAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo - ResolveEntryAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveEntryAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEntryAccessibleMethod t EntryAccessible, MethodInfo info EntryAccessible p) => IsLabelProxy t (EntryAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEntryAccessibleMethod t EntryAccessible, MethodInfo info EntryAccessible p) => IsLabel t (EntryAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList EntryAccessible = EntryAccessibleAttributeList -type EntryAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EntryAccessible = EntryAccessibleSignalList -type EntryAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/EntryAccessible.hs-boot b/GI/Gtk/Objects/EntryAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EntryAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.EntryAccessible 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 EntryAccessible = EntryAccessible (ForeignPtr EntryAccessible) -instance GObject EntryAccessible where -class GObject o => EntryAccessibleK o -instance (GObject o, IsDescendantOf EntryAccessible o) => EntryAccessibleK o diff --git a/GI/Gtk/Objects/EntryBuffer.hs b/GI/Gtk/Objects/EntryBuffer.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EntryBuffer.hs +++ /dev/null @@ -1,733 +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.Gtk.Objects.EntryBuffer - ( - --- * Exported types - EntryBuffer(..) , - EntryBufferK , - toEntryBuffer , - noEntryBuffer , - - - -- * Methods --- ** entryBufferDeleteText - EntryBufferDeleteTextMethodInfo , - entryBufferDeleteText , - - --- ** entryBufferEmitDeletedText - EntryBufferEmitDeletedTextMethodInfo , - entryBufferEmitDeletedText , - - --- ** entryBufferEmitInsertedText - EntryBufferEmitInsertedTextMethodInfo , - entryBufferEmitInsertedText , - - --- ** entryBufferGetBytes - EntryBufferGetBytesMethodInfo , - entryBufferGetBytes , - - --- ** entryBufferGetLength - EntryBufferGetLengthMethodInfo , - entryBufferGetLength , - - --- ** entryBufferGetMaxLength - EntryBufferGetMaxLengthMethodInfo , - entryBufferGetMaxLength , - - --- ** entryBufferGetText - EntryBufferGetTextMethodInfo , - entryBufferGetText , - - --- ** entryBufferInsertText - EntryBufferInsertTextMethodInfo , - entryBufferInsertText , - - --- ** entryBufferNew - entryBufferNew , - - --- ** entryBufferSetMaxLength - EntryBufferSetMaxLengthMethodInfo , - entryBufferSetMaxLength , - - --- ** entryBufferSetText - EntryBufferSetTextMethodInfo , - entryBufferSetText , - - - - - -- * Properties --- ** Length - EntryBufferLengthPropertyInfo , - entryBufferLength , - getEntryBufferLength , - - --- ** MaxLength - EntryBufferMaxLengthPropertyInfo , - constructEntryBufferMaxLength , - entryBufferMaxLength , - getEntryBufferMaxLength , - setEntryBufferMaxLength , - - --- ** Text - EntryBufferTextPropertyInfo , - clearEntryBufferText , - constructEntryBufferText , - entryBufferText , - getEntryBufferText , - setEntryBufferText , - - - - - -- * Signals --- ** DeletedText - EntryBufferDeletedTextCallback , - EntryBufferDeletedTextCallbackC , - EntryBufferDeletedTextSignalInfo , - afterEntryBufferDeletedText , - entryBufferDeletedTextCallbackWrapper , - entryBufferDeletedTextClosure , - mkEntryBufferDeletedTextCallback , - noEntryBufferDeletedTextCallback , - onEntryBufferDeletedText , - - --- ** InsertedText - EntryBufferInsertedTextCallback , - EntryBufferInsertedTextCallbackC , - EntryBufferInsertedTextSignalInfo , - afterEntryBufferInsertedText , - entryBufferInsertedTextCallbackWrapper , - entryBufferInsertedTextClosure , - mkEntryBufferInsertedTextCallback , - noEntryBufferInsertedTextCallback , - onEntryBufferInsertedText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype EntryBuffer = EntryBuffer (ForeignPtr EntryBuffer) -foreign import ccall "gtk_entry_buffer_get_type" - c_gtk_entry_buffer_get_type :: IO GType - -type instance ParentTypes EntryBuffer = EntryBufferParentTypes -type EntryBufferParentTypes = '[GObject.Object] - -instance GObject EntryBuffer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_entry_buffer_get_type - - -class GObject o => EntryBufferK o -instance (GObject o, IsDescendantOf EntryBuffer o) => EntryBufferK o - -toEntryBuffer :: EntryBufferK o => o -> IO EntryBuffer -toEntryBuffer = unsafeCastTo EntryBuffer - -noEntryBuffer :: Maybe EntryBuffer -noEntryBuffer = Nothing - -type family ResolveEntryBufferMethod (t :: Symbol) (o :: *) :: * where - ResolveEntryBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEntryBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEntryBufferMethod "deleteText" o = EntryBufferDeleteTextMethodInfo - ResolveEntryBufferMethod "emitDeletedText" o = EntryBufferEmitDeletedTextMethodInfo - ResolveEntryBufferMethod "emitInsertedText" o = EntryBufferEmitInsertedTextMethodInfo - ResolveEntryBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEntryBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEntryBufferMethod "insertText" o = EntryBufferInsertTextMethodInfo - ResolveEntryBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEntryBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEntryBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEntryBufferMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEntryBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEntryBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEntryBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEntryBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEntryBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEntryBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEntryBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEntryBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEntryBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEntryBufferMethod "getBytes" o = EntryBufferGetBytesMethodInfo - ResolveEntryBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEntryBufferMethod "getLength" o = EntryBufferGetLengthMethodInfo - ResolveEntryBufferMethod "getMaxLength" o = EntryBufferGetMaxLengthMethodInfo - ResolveEntryBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEntryBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEntryBufferMethod "getText" o = EntryBufferGetTextMethodInfo - ResolveEntryBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEntryBufferMethod "setMaxLength" o = EntryBufferSetMaxLengthMethodInfo - ResolveEntryBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEntryBufferMethod "setText" o = EntryBufferSetTextMethodInfo - ResolveEntryBufferMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEntryBufferMethod t EntryBuffer, MethodInfo info EntryBuffer p) => IsLabelProxy t (EntryBuffer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEntryBufferMethod t EntryBuffer, MethodInfo info EntryBuffer p) => IsLabel t (EntryBuffer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal EntryBuffer::deleted-text -type EntryBufferDeletedTextCallback = - Word32 -> - Word32 -> - IO () - -noEntryBufferDeletedTextCallback :: Maybe EntryBufferDeletedTextCallback -noEntryBufferDeletedTextCallback = Nothing - -type EntryBufferDeletedTextCallbackC = - Ptr () -> -- object - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryBufferDeletedTextCallback :: EntryBufferDeletedTextCallbackC -> IO (FunPtr EntryBufferDeletedTextCallbackC) - -entryBufferDeletedTextClosure :: EntryBufferDeletedTextCallback -> IO Closure -entryBufferDeletedTextClosure cb = newCClosure =<< mkEntryBufferDeletedTextCallback wrapped - where wrapped = entryBufferDeletedTextCallbackWrapper cb - -entryBufferDeletedTextCallbackWrapper :: - EntryBufferDeletedTextCallback -> - Ptr () -> - Word32 -> - Word32 -> - Ptr () -> - IO () -entryBufferDeletedTextCallbackWrapper _cb _ position nChars _ = do - _cb position nChars - -onEntryBufferDeletedText :: (GObject a, MonadIO m) => a -> EntryBufferDeletedTextCallback -> m SignalHandlerId -onEntryBufferDeletedText obj cb = liftIO $ connectEntryBufferDeletedText obj cb SignalConnectBefore -afterEntryBufferDeletedText :: (GObject a, MonadIO m) => a -> EntryBufferDeletedTextCallback -> m SignalHandlerId -afterEntryBufferDeletedText obj cb = connectEntryBufferDeletedText obj cb SignalConnectAfter - -connectEntryBufferDeletedText :: (GObject a, MonadIO m) => - a -> EntryBufferDeletedTextCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryBufferDeletedText obj cb after = liftIO $ do - cb' <- mkEntryBufferDeletedTextCallback (entryBufferDeletedTextCallbackWrapper cb) - connectSignalFunPtr obj "deleted-text" cb' after - --- signal EntryBuffer::inserted-text -type EntryBufferInsertedTextCallback = - Word32 -> - T.Text -> - Word32 -> - IO () - -noEntryBufferInsertedTextCallback :: Maybe EntryBufferInsertedTextCallback -noEntryBufferInsertedTextCallback = Nothing - -type EntryBufferInsertedTextCallbackC = - Ptr () -> -- object - Word32 -> - CString -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryBufferInsertedTextCallback :: EntryBufferInsertedTextCallbackC -> IO (FunPtr EntryBufferInsertedTextCallbackC) - -entryBufferInsertedTextClosure :: EntryBufferInsertedTextCallback -> IO Closure -entryBufferInsertedTextClosure cb = newCClosure =<< mkEntryBufferInsertedTextCallback wrapped - where wrapped = entryBufferInsertedTextCallbackWrapper cb - -entryBufferInsertedTextCallbackWrapper :: - EntryBufferInsertedTextCallback -> - Ptr () -> - Word32 -> - CString -> - Word32 -> - Ptr () -> - IO () -entryBufferInsertedTextCallbackWrapper _cb _ position chars nChars _ = do - chars' <- cstringToText chars - _cb position chars' nChars - -onEntryBufferInsertedText :: (GObject a, MonadIO m) => a -> EntryBufferInsertedTextCallback -> m SignalHandlerId -onEntryBufferInsertedText obj cb = liftIO $ connectEntryBufferInsertedText obj cb SignalConnectBefore -afterEntryBufferInsertedText :: (GObject a, MonadIO m) => a -> EntryBufferInsertedTextCallback -> m SignalHandlerId -afterEntryBufferInsertedText obj cb = connectEntryBufferInsertedText obj cb SignalConnectAfter - -connectEntryBufferInsertedText :: (GObject a, MonadIO m) => - a -> EntryBufferInsertedTextCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryBufferInsertedText obj cb after = liftIO $ do - cb' <- mkEntryBufferInsertedTextCallback (entryBufferInsertedTextCallbackWrapper cb) - connectSignalFunPtr obj "inserted-text" cb' after - --- VVV Prop "length" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getEntryBufferLength :: (MonadIO m, EntryBufferK o) => o -> m Word32 -getEntryBufferLength obj = liftIO $ getObjectPropertyUInt32 obj "length" - -data EntryBufferLengthPropertyInfo -instance AttrInfo EntryBufferLengthPropertyInfo where - type AttrAllowedOps EntryBufferLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryBufferLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryBufferLengthPropertyInfo = EntryBufferK - type AttrGetType EntryBufferLengthPropertyInfo = Word32 - type AttrLabel EntryBufferLengthPropertyInfo = "length" - attrGet _ = getEntryBufferLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "max-length" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> m Int32 -getEntryBufferMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" - -setEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> Int32 -> m () -setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val - -constructEntryBufferMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryBufferMaxLength val = constructObjectPropertyInt32 "max-length" val - -data EntryBufferMaxLengthPropertyInfo -instance AttrInfo EntryBufferMaxLengthPropertyInfo where - type AttrAllowedOps EntryBufferMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryBufferMaxLengthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryBufferMaxLengthPropertyInfo = EntryBufferK - type AttrGetType EntryBufferMaxLengthPropertyInfo = Int32 - type AttrLabel EntryBufferMaxLengthPropertyInfo = "max-length" - attrGet _ = getEntryBufferMaxLength - attrSet _ = setEntryBufferMaxLength - attrConstruct _ = constructEntryBufferMaxLength - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m T.Text -getEntryBufferText obj = liftIO $ checkUnexpectedNothing "getEntryBufferText" $ getObjectPropertyString obj "text" - -setEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> T.Text -> m () -setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructEntryBufferText :: T.Text -> IO ([Char], GValue) -constructEntryBufferText val = constructObjectPropertyString "text" (Just val) - -clearEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m () -clearEntryBufferText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data EntryBufferTextPropertyInfo -instance AttrInfo EntryBufferTextPropertyInfo where - type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK - type AttrGetType EntryBufferTextPropertyInfo = T.Text - type AttrLabel EntryBufferTextPropertyInfo = "text" - attrGet _ = getEntryBufferText - attrSet _ = setEntryBufferText - attrConstruct _ = constructEntryBufferText - attrClear _ = clearEntryBufferText - -type instance AttributeList EntryBuffer = EntryBufferAttributeList -type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("maxLength", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) - -entryBufferLength :: AttrLabelProxy "length" -entryBufferLength = AttrLabelProxy - -entryBufferMaxLength :: AttrLabelProxy "maxLength" -entryBufferMaxLength = AttrLabelProxy - -entryBufferText :: AttrLabelProxy "text" -entryBufferText = AttrLabelProxy - -data EntryBufferDeletedTextSignalInfo -instance SignalInfo EntryBufferDeletedTextSignalInfo where - type HaskellCallbackType EntryBufferDeletedTextSignalInfo = EntryBufferDeletedTextCallback - connectSignal _ = connectEntryBufferDeletedText - -data EntryBufferInsertedTextSignalInfo -instance SignalInfo EntryBufferInsertedTextSignalInfo where - type HaskellCallbackType EntryBufferInsertedTextSignalInfo = EntryBufferInsertedTextCallback - connectSignal _ = connectEntryBufferInsertedText - -type instance SignalList EntryBuffer = EntryBufferSignalList -type EntryBufferSignalList = ('[ '("deletedText", EntryBufferDeletedTextSignalInfo), '("insertedText", EntryBufferInsertedTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EntryBuffer::new --- method type : Constructor --- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EntryBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_new" gtk_entry_buffer_new :: - CString -> -- initial_chars : TBasicType TUTF8 - Int32 -> -- n_initial_chars : TBasicType TInt - IO (Ptr EntryBuffer) - - -entryBufferNew :: - (MonadIO m) => - Maybe (T.Text) -- initialChars - -> Int32 -- nInitialChars - -> m EntryBuffer -- result -entryBufferNew initialChars nInitialChars = liftIO $ do - maybeInitialChars <- case initialChars of - Nothing -> return nullPtr - Just jInitialChars -> do - jInitialChars' <- textToCString jInitialChars - return jInitialChars' - result <- gtk_entry_buffer_new maybeInitialChars nInitialChars - checkUnexpectedReturnNULL "gtk_entry_buffer_new" result - result' <- (wrapObject EntryBuffer) result - freeMem maybeInitialChars - return result' - --- method EntryBuffer::delete_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_delete_text" gtk_entry_buffer_delete_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt - Int32 -> -- n_chars : TBasicType TInt - IO Word32 - - -entryBufferDeleteText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> Word32 -- position - -> Int32 -- nChars - -> m Word32 -- result -entryBufferDeleteText _obj position nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_delete_text _obj' position nChars - touchManagedPtr _obj - return result - -data EntryBufferDeleteTextMethodInfo -instance (signature ~ (Word32 -> Int32 -> m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferDeleteTextMethodInfo a signature where - overloadedMethod _ = entryBufferDeleteText - --- method EntryBuffer::emit_deleted_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_entry_buffer_emit_deleted_text" gtk_entry_buffer_emit_deleted_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt - Word32 -> -- n_chars : TBasicType TUInt - IO () - - -entryBufferEmitDeletedText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> Word32 -- position - -> Word32 -- nChars - -> m () -- result -entryBufferEmitDeletedText _obj position nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_emit_deleted_text _obj' position nChars - touchManagedPtr _obj - return () - -data EntryBufferEmitDeletedTextMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferEmitDeletedTextMethodInfo a signature where - overloadedMethod _ = entryBufferEmitDeletedText - --- method EntryBuffer::emit_inserted_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_entry_buffer_emit_inserted_text" gtk_entry_buffer_emit_inserted_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt - CString -> -- chars : TBasicType TUTF8 - Word32 -> -- n_chars : TBasicType TUInt - IO () - - -entryBufferEmitInsertedText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> Word32 -- position - -> T.Text -- chars - -> Word32 -- nChars - -> m () -- result -entryBufferEmitInsertedText _obj position chars nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - gtk_entry_buffer_emit_inserted_text _obj' position chars' nChars - touchManagedPtr _obj - freeMem chars' - return () - -data EntryBufferEmitInsertedTextMethodInfo -instance (signature ~ (Word32 -> T.Text -> Word32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferEmitInsertedTextMethodInfo a signature where - overloadedMethod _ = entryBufferEmitInsertedText - --- method EntryBuffer::get_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_get_bytes" gtk_entry_buffer_get_bytes :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - IO Word64 - - -entryBufferGetBytes :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> m Word64 -- result -entryBufferGetBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_bytes _obj' - touchManagedPtr _obj - return result - -data EntryBufferGetBytesMethodInfo -instance (signature ~ (m Word64), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetBytesMethodInfo a signature where - overloadedMethod _ = entryBufferGetBytes - --- method EntryBuffer::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_get_length" gtk_entry_buffer_get_length :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - IO Word32 - - -entryBufferGetLength :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> m Word32 -- result -entryBufferGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_length _obj' - touchManagedPtr _obj - return result - -data EntryBufferGetLengthMethodInfo -instance (signature ~ (m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetLengthMethodInfo a signature where - overloadedMethod _ = entryBufferGetLength - --- method EntryBuffer::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", 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 "gtk_entry_buffer_get_max_length" gtk_entry_buffer_get_max_length :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - IO Int32 - - -entryBufferGetMaxLength :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> m Int32 -- result -entryBufferGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_max_length _obj' - touchManagedPtr _obj - return result - -data EntryBufferGetMaxLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetMaxLengthMethodInfo a signature where - overloadedMethod _ = entryBufferGetMaxLength - --- method EntryBuffer::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", 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 "gtk_entry_buffer_get_text" gtk_entry_buffer_get_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - IO CString - - -entryBufferGetText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> m T.Text -- result -entryBufferGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_text _obj' - checkUnexpectedReturnNULL "gtk_entry_buffer_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data EntryBufferGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetTextMethodInfo a signature where - overloadedMethod _ = entryBufferGetText - --- method EntryBuffer::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_insert_text" gtk_entry_buffer_insert_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt - CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt - IO Word32 - - -entryBufferInsertText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> Word32 -- position - -> T.Text -- chars - -> Int32 -- nChars - -> m Word32 -- result -entryBufferInsertText _obj position chars nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - result <- gtk_entry_buffer_insert_text _obj' position chars' nChars - touchManagedPtr _obj - freeMem chars' - return result - -data EntryBufferInsertTextMethodInfo -instance (signature ~ (Word32 -> T.Text -> Int32 -> m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferInsertTextMethodInfo a signature where - overloadedMethod _ = entryBufferInsertText - --- method EntryBuffer::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", 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 "gtk_entry_buffer_set_max_length" gtk_entry_buffer_set_max_length :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Int32 -> -- max_length : TBasicType TInt - IO () - - -entryBufferSetMaxLength :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> Int32 -- maxLength - -> m () -- result -entryBufferSetMaxLength _obj maxLength = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_set_max_length _obj' maxLength - touchManagedPtr _obj - return () - -data EntryBufferSetMaxLengthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferSetMaxLengthMethodInfo a signature where - overloadedMethod _ = entryBufferSetMaxLength - --- method EntryBuffer::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_entry_buffer_set_text" gtk_entry_buffer_set_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt - IO () - - -entryBufferSetText :: - (MonadIO m, EntryBufferK a) => - a -- _obj - -> T.Text -- chars - -> Int32 -- nChars - -> m () -- result -entryBufferSetText _obj chars nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - gtk_entry_buffer_set_text _obj' chars' nChars - touchManagedPtr _obj - freeMem chars' - return () - -data EntryBufferSetTextMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferSetTextMethodInfo a signature where - overloadedMethod _ = entryBufferSetText - - diff --git a/GI/Gtk/Objects/EntryBuffer.hs-boot b/GI/Gtk/Objects/EntryBuffer.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EntryBuffer.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.EntryBuffer 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 EntryBuffer = EntryBuffer (ForeignPtr EntryBuffer) -instance GObject EntryBuffer where -class GObject o => EntryBufferK o -instance (GObject o, IsDescendantOf EntryBuffer o) => EntryBufferK o -data EntryBufferLengthPropertyInfo -data EntryBufferMaxLengthPropertyInfo -data EntryBufferTextPropertyInfo -data EntryBufferDeletedTextSignalInfo -data EntryBufferInsertedTextSignalInfo -data EntryBufferDeleteTextMethodInfo -data EntryBufferEmitDeletedTextMethodInfo -data EntryBufferEmitInsertedTextMethodInfo -data EntryBufferGetBytesMethodInfo -data EntryBufferGetLengthMethodInfo -data EntryBufferGetMaxLengthMethodInfo -data EntryBufferGetTextMethodInfo -data EntryBufferInsertTextMethodInfo -data EntryBufferSetMaxLengthMethodInfo -data EntryBufferSetTextMethodInfo diff --git a/GI/Gtk/Objects/EntryCompletion.hs b/GI/Gtk/Objects/EntryCompletion.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EntryCompletion.hs +++ /dev/null @@ -1,1703 +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.Gtk.Objects.EntryCompletion - ( - --- * Exported types - EntryCompletion(..) , - EntryCompletionK , - toEntryCompletion , - noEntryCompletion , - - - -- * Methods --- ** entryCompletionComplete - EntryCompletionCompleteMethodInfo , - entryCompletionComplete , - - --- ** entryCompletionComputePrefix - EntryCompletionComputePrefixMethodInfo , - entryCompletionComputePrefix , - - --- ** entryCompletionDeleteAction - EntryCompletionDeleteActionMethodInfo , - entryCompletionDeleteAction , - - --- ** entryCompletionGetCompletionPrefix - EntryCompletionGetCompletionPrefixMethodInfo, - entryCompletionGetCompletionPrefix , - - --- ** entryCompletionGetEntry - EntryCompletionGetEntryMethodInfo , - entryCompletionGetEntry , - - --- ** entryCompletionGetInlineCompletion - EntryCompletionGetInlineCompletionMethodInfo, - entryCompletionGetInlineCompletion , - - --- ** entryCompletionGetInlineSelection - EntryCompletionGetInlineSelectionMethodInfo, - entryCompletionGetInlineSelection , - - --- ** entryCompletionGetMinimumKeyLength - EntryCompletionGetMinimumKeyLengthMethodInfo, - entryCompletionGetMinimumKeyLength , - - --- ** entryCompletionGetModel - EntryCompletionGetModelMethodInfo , - entryCompletionGetModel , - - --- ** entryCompletionGetPopupCompletion - EntryCompletionGetPopupCompletionMethodInfo, - entryCompletionGetPopupCompletion , - - --- ** entryCompletionGetPopupSetWidth - EntryCompletionGetPopupSetWidthMethodInfo, - entryCompletionGetPopupSetWidth , - - --- ** entryCompletionGetPopupSingleMatch - EntryCompletionGetPopupSingleMatchMethodInfo, - entryCompletionGetPopupSingleMatch , - - --- ** entryCompletionGetTextColumn - EntryCompletionGetTextColumnMethodInfo , - entryCompletionGetTextColumn , - - --- ** entryCompletionInsertActionMarkup - EntryCompletionInsertActionMarkupMethodInfo, - entryCompletionInsertActionMarkup , - - --- ** entryCompletionInsertActionText - EntryCompletionInsertActionTextMethodInfo, - entryCompletionInsertActionText , - - --- ** entryCompletionInsertPrefix - EntryCompletionInsertPrefixMethodInfo , - entryCompletionInsertPrefix , - - --- ** entryCompletionNew - entryCompletionNew , - - --- ** entryCompletionNewWithArea - entryCompletionNewWithArea , - - --- ** entryCompletionSetInlineCompletion - EntryCompletionSetInlineCompletionMethodInfo, - entryCompletionSetInlineCompletion , - - --- ** entryCompletionSetInlineSelection - EntryCompletionSetInlineSelectionMethodInfo, - entryCompletionSetInlineSelection , - - --- ** entryCompletionSetMatchFunc - EntryCompletionSetMatchFuncMethodInfo , - entryCompletionSetMatchFunc , - - --- ** entryCompletionSetMinimumKeyLength - EntryCompletionSetMinimumKeyLengthMethodInfo, - entryCompletionSetMinimumKeyLength , - - --- ** entryCompletionSetModel - EntryCompletionSetModelMethodInfo , - entryCompletionSetModel , - - --- ** entryCompletionSetPopupCompletion - EntryCompletionSetPopupCompletionMethodInfo, - entryCompletionSetPopupCompletion , - - --- ** entryCompletionSetPopupSetWidth - EntryCompletionSetPopupSetWidthMethodInfo, - entryCompletionSetPopupSetWidth , - - --- ** entryCompletionSetPopupSingleMatch - EntryCompletionSetPopupSingleMatchMethodInfo, - entryCompletionSetPopupSingleMatch , - - --- ** entryCompletionSetTextColumn - EntryCompletionSetTextColumnMethodInfo , - entryCompletionSetTextColumn , - - - - - -- * Properties --- ** CellArea - EntryCompletionCellAreaPropertyInfo , - constructEntryCompletionCellArea , - entryCompletionCellArea , - getEntryCompletionCellArea , - - --- ** InlineCompletion - EntryCompletionInlineCompletionPropertyInfo, - constructEntryCompletionInlineCompletion, - entryCompletionInlineCompletion , - getEntryCompletionInlineCompletion , - setEntryCompletionInlineCompletion , - - --- ** InlineSelection - EntryCompletionInlineSelectionPropertyInfo, - constructEntryCompletionInlineSelection , - entryCompletionInlineSelection , - getEntryCompletionInlineSelection , - setEntryCompletionInlineSelection , - - --- ** MinimumKeyLength - EntryCompletionMinimumKeyLengthPropertyInfo, - constructEntryCompletionMinimumKeyLength, - entryCompletionMinimumKeyLength , - getEntryCompletionMinimumKeyLength , - setEntryCompletionMinimumKeyLength , - - --- ** Model - EntryCompletionModelPropertyInfo , - clearEntryCompletionModel , - constructEntryCompletionModel , - entryCompletionModel , - getEntryCompletionModel , - setEntryCompletionModel , - - --- ** PopupCompletion - EntryCompletionPopupCompletionPropertyInfo, - constructEntryCompletionPopupCompletion , - entryCompletionPopupCompletion , - getEntryCompletionPopupCompletion , - setEntryCompletionPopupCompletion , - - --- ** PopupSetWidth - EntryCompletionPopupSetWidthPropertyInfo, - constructEntryCompletionPopupSetWidth , - entryCompletionPopupSetWidth , - getEntryCompletionPopupSetWidth , - setEntryCompletionPopupSetWidth , - - --- ** PopupSingleMatch - EntryCompletionPopupSingleMatchPropertyInfo, - constructEntryCompletionPopupSingleMatch, - entryCompletionPopupSingleMatch , - getEntryCompletionPopupSingleMatch , - setEntryCompletionPopupSingleMatch , - - --- ** TextColumn - EntryCompletionTextColumnPropertyInfo , - constructEntryCompletionTextColumn , - entryCompletionTextColumn , - getEntryCompletionTextColumn , - setEntryCompletionTextColumn , - - - - - -- * Signals --- ** ActionActivated - EntryCompletionActionActivatedCallback , - EntryCompletionActionActivatedCallbackC , - EntryCompletionActionActivatedSignalInfo, - afterEntryCompletionActionActivated , - entryCompletionActionActivatedCallbackWrapper, - entryCompletionActionActivatedClosure , - mkEntryCompletionActionActivatedCallback, - noEntryCompletionActionActivatedCallback, - onEntryCompletionActionActivated , - - --- ** CursorOnMatch - EntryCompletionCursorOnMatchCallback , - EntryCompletionCursorOnMatchCallbackC , - EntryCompletionCursorOnMatchSignalInfo , - afterEntryCompletionCursorOnMatch , - entryCompletionCursorOnMatchCallbackWrapper, - entryCompletionCursorOnMatchClosure , - mkEntryCompletionCursorOnMatchCallback , - noEntryCompletionCursorOnMatchCallback , - onEntryCompletionCursorOnMatch , - - --- ** InsertPrefix - EntryCompletionInsertPrefixCallback , - EntryCompletionInsertPrefixCallbackC , - EntryCompletionInsertPrefixSignalInfo , - afterEntryCompletionInsertPrefix , - entryCompletionInsertPrefixCallbackWrapper, - entryCompletionInsertPrefixClosure , - mkEntryCompletionInsertPrefixCallback , - noEntryCompletionInsertPrefixCallback , - onEntryCompletionInsertPrefix , - - --- ** MatchSelected - EntryCompletionMatchSelectedCallback , - EntryCompletionMatchSelectedCallbackC , - EntryCompletionMatchSelectedSignalInfo , - afterEntryCompletionMatchSelected , - entryCompletionMatchSelectedCallbackWrapper, - entryCompletionMatchSelectedClosure , - mkEntryCompletionMatchSelectedCallback , - noEntryCompletionMatchSelectedCallback , - onEntryCompletionMatchSelected , - - --- ** NoMatches - EntryCompletionNoMatchesCallback , - EntryCompletionNoMatchesCallbackC , - EntryCompletionNoMatchesSignalInfo , - afterEntryCompletionNoMatches , - entryCompletionNoMatchesCallbackWrapper , - entryCompletionNoMatchesClosure , - mkEntryCompletionNoMatchesCallback , - noEntryCompletionNoMatchesCallback , - onEntryCompletionNoMatches , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype EntryCompletion = EntryCompletion (ForeignPtr EntryCompletion) -foreign import ccall "gtk_entry_completion_get_type" - c_gtk_entry_completion_get_type :: IO GType - -type instance ParentTypes EntryCompletion = EntryCompletionParentTypes -type EntryCompletionParentTypes = '[GObject.Object, Buildable, CellLayout] - -instance GObject EntryCompletion where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_entry_completion_get_type - - -class GObject o => EntryCompletionK o -instance (GObject o, IsDescendantOf EntryCompletion o) => EntryCompletionK o - -toEntryCompletion :: EntryCompletionK o => o -> IO EntryCompletion -toEntryCompletion = unsafeCastTo EntryCompletion - -noEntryCompletion :: Maybe EntryCompletion -noEntryCompletion = Nothing - -type family ResolveEntryCompletionMethod (t :: Symbol) (o :: *) :: * where - ResolveEntryCompletionMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveEntryCompletionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveEntryCompletionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEntryCompletionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEntryCompletionMethod "clear" o = CellLayoutClearMethodInfo - ResolveEntryCompletionMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveEntryCompletionMethod "complete" o = EntryCompletionCompleteMethodInfo - ResolveEntryCompletionMethod "computePrefix" o = EntryCompletionComputePrefixMethodInfo - ResolveEntryCompletionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveEntryCompletionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveEntryCompletionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveEntryCompletionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveEntryCompletionMethod "deleteAction" o = EntryCompletionDeleteActionMethodInfo - ResolveEntryCompletionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEntryCompletionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEntryCompletionMethod "insertActionMarkup" o = EntryCompletionInsertActionMarkupMethodInfo - ResolveEntryCompletionMethod "insertActionText" o = EntryCompletionInsertActionTextMethodInfo - ResolveEntryCompletionMethod "insertPrefix" o = EntryCompletionInsertPrefixMethodInfo - ResolveEntryCompletionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEntryCompletionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEntryCompletionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEntryCompletionMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveEntryCompletionMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveEntryCompletionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveEntryCompletionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEntryCompletionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEntryCompletionMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveEntryCompletionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEntryCompletionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEntryCompletionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEntryCompletionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEntryCompletionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEntryCompletionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEntryCompletionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEntryCompletionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEntryCompletionMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveEntryCompletionMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveEntryCompletionMethod "getCompletionPrefix" o = EntryCompletionGetCompletionPrefixMethodInfo - ResolveEntryCompletionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEntryCompletionMethod "getEntry" o = EntryCompletionGetEntryMethodInfo - ResolveEntryCompletionMethod "getInlineCompletion" o = EntryCompletionGetInlineCompletionMethodInfo - ResolveEntryCompletionMethod "getInlineSelection" o = EntryCompletionGetInlineSelectionMethodInfo - ResolveEntryCompletionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveEntryCompletionMethod "getMinimumKeyLength" o = EntryCompletionGetMinimumKeyLengthMethodInfo - ResolveEntryCompletionMethod "getModel" o = EntryCompletionGetModelMethodInfo - ResolveEntryCompletionMethod "getName" o = BuildableGetNameMethodInfo - ResolveEntryCompletionMethod "getPopupCompletion" o = EntryCompletionGetPopupCompletionMethodInfo - ResolveEntryCompletionMethod "getPopupSetWidth" o = EntryCompletionGetPopupSetWidthMethodInfo - ResolveEntryCompletionMethod "getPopupSingleMatch" o = EntryCompletionGetPopupSingleMatchMethodInfo - ResolveEntryCompletionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEntryCompletionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEntryCompletionMethod "getTextColumn" o = EntryCompletionGetTextColumnMethodInfo - ResolveEntryCompletionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveEntryCompletionMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveEntryCompletionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEntryCompletionMethod "setInlineCompletion" o = EntryCompletionSetInlineCompletionMethodInfo - ResolveEntryCompletionMethod "setInlineSelection" o = EntryCompletionSetInlineSelectionMethodInfo - ResolveEntryCompletionMethod "setMatchFunc" o = EntryCompletionSetMatchFuncMethodInfo - ResolveEntryCompletionMethod "setMinimumKeyLength" o = EntryCompletionSetMinimumKeyLengthMethodInfo - ResolveEntryCompletionMethod "setModel" o = EntryCompletionSetModelMethodInfo - ResolveEntryCompletionMethod "setName" o = BuildableSetNameMethodInfo - ResolveEntryCompletionMethod "setPopupCompletion" o = EntryCompletionSetPopupCompletionMethodInfo - ResolveEntryCompletionMethod "setPopupSetWidth" o = EntryCompletionSetPopupSetWidthMethodInfo - ResolveEntryCompletionMethod "setPopupSingleMatch" o = EntryCompletionSetPopupSingleMatchMethodInfo - ResolveEntryCompletionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEntryCompletionMethod "setTextColumn" o = EntryCompletionSetTextColumnMethodInfo - ResolveEntryCompletionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, MethodInfo info EntryCompletion p) => IsLabelProxy t (EntryCompletion -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, MethodInfo info EntryCompletion p) => IsLabel t (EntryCompletion -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal EntryCompletion::action-activated -type EntryCompletionActionActivatedCallback = - Int32 -> - IO () - -noEntryCompletionActionActivatedCallback :: Maybe EntryCompletionActionActivatedCallback -noEntryCompletionActionActivatedCallback = Nothing - -type EntryCompletionActionActivatedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCompletionActionActivatedCallback :: EntryCompletionActionActivatedCallbackC -> IO (FunPtr EntryCompletionActionActivatedCallbackC) - -entryCompletionActionActivatedClosure :: EntryCompletionActionActivatedCallback -> IO Closure -entryCompletionActionActivatedClosure cb = newCClosure =<< mkEntryCompletionActionActivatedCallback wrapped - where wrapped = entryCompletionActionActivatedCallbackWrapper cb - -entryCompletionActionActivatedCallbackWrapper :: - EntryCompletionActionActivatedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -entryCompletionActionActivatedCallbackWrapper _cb _ index _ = do - _cb index - -onEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId -onEntryCompletionActionActivated obj cb = liftIO $ connectEntryCompletionActionActivated obj cb SignalConnectBefore -afterEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId -afterEntryCompletionActionActivated obj cb = connectEntryCompletionActionActivated obj cb SignalConnectAfter - -connectEntryCompletionActionActivated :: (GObject a, MonadIO m) => - a -> EntryCompletionActionActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCompletionActionActivated obj cb after = liftIO $ do - cb' <- mkEntryCompletionActionActivatedCallback (entryCompletionActionActivatedCallbackWrapper cb) - connectSignalFunPtr obj "action-activated" cb' after - --- signal EntryCompletion::cursor-on-match -type EntryCompletionCursorOnMatchCallback = - TreeModel -> - TreeIter -> - IO Bool - -noEntryCompletionCursorOnMatchCallback :: Maybe EntryCompletionCursorOnMatchCallback -noEntryCompletionCursorOnMatchCallback = Nothing - -type EntryCompletionCursorOnMatchCallbackC = - Ptr () -> -- object - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkEntryCompletionCursorOnMatchCallback :: EntryCompletionCursorOnMatchCallbackC -> IO (FunPtr EntryCompletionCursorOnMatchCallbackC) - -entryCompletionCursorOnMatchClosure :: EntryCompletionCursorOnMatchCallback -> IO Closure -entryCompletionCursorOnMatchClosure cb = newCClosure =<< mkEntryCompletionCursorOnMatchCallback wrapped - where wrapped = entryCompletionCursorOnMatchCallbackWrapper cb - -entryCompletionCursorOnMatchCallbackWrapper :: - EntryCompletionCursorOnMatchCallback -> - Ptr () -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt -entryCompletionCursorOnMatchCallbackWrapper _cb _ model iter _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - result <- _cb model' iter' - let result' = (fromIntegral . fromEnum) result - return result' - -onEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId -onEntryCompletionCursorOnMatch obj cb = liftIO $ connectEntryCompletionCursorOnMatch obj cb SignalConnectBefore -afterEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId -afterEntryCompletionCursorOnMatch obj cb = connectEntryCompletionCursorOnMatch obj cb SignalConnectAfter - -connectEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => - a -> EntryCompletionCursorOnMatchCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCompletionCursorOnMatch obj cb after = liftIO $ do - cb' <- mkEntryCompletionCursorOnMatchCallback (entryCompletionCursorOnMatchCallbackWrapper cb) - connectSignalFunPtr obj "cursor-on-match" cb' after - --- signal EntryCompletion::insert-prefix -type EntryCompletionInsertPrefixCallback = - T.Text -> - IO Bool - -noEntryCompletionInsertPrefixCallback :: Maybe EntryCompletionInsertPrefixCallback -noEntryCompletionInsertPrefixCallback = Nothing - -type EntryCompletionInsertPrefixCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkEntryCompletionInsertPrefixCallback :: EntryCompletionInsertPrefixCallbackC -> IO (FunPtr EntryCompletionInsertPrefixCallbackC) - -entryCompletionInsertPrefixClosure :: EntryCompletionInsertPrefixCallback -> IO Closure -entryCompletionInsertPrefixClosure cb = newCClosure =<< mkEntryCompletionInsertPrefixCallback wrapped - where wrapped = entryCompletionInsertPrefixCallbackWrapper cb - -entryCompletionInsertPrefixCallbackWrapper :: - EntryCompletionInsertPrefixCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CInt -entryCompletionInsertPrefixCallbackWrapper _cb _ prefix _ = do - prefix' <- cstringToText prefix - result <- _cb prefix' - let result' = (fromIntegral . fromEnum) result - return result' - -onEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId -onEntryCompletionInsertPrefix obj cb = liftIO $ connectEntryCompletionInsertPrefix obj cb SignalConnectBefore -afterEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId -afterEntryCompletionInsertPrefix obj cb = connectEntryCompletionInsertPrefix obj cb SignalConnectAfter - -connectEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => - a -> EntryCompletionInsertPrefixCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCompletionInsertPrefix obj cb after = liftIO $ do - cb' <- mkEntryCompletionInsertPrefixCallback (entryCompletionInsertPrefixCallbackWrapper cb) - connectSignalFunPtr obj "insert-prefix" cb' after - --- signal EntryCompletion::match-selected -type EntryCompletionMatchSelectedCallback = - TreeModel -> - TreeIter -> - IO Bool - -noEntryCompletionMatchSelectedCallback :: Maybe EntryCompletionMatchSelectedCallback -noEntryCompletionMatchSelectedCallback = Nothing - -type EntryCompletionMatchSelectedCallbackC = - Ptr () -> -- object - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkEntryCompletionMatchSelectedCallback :: EntryCompletionMatchSelectedCallbackC -> IO (FunPtr EntryCompletionMatchSelectedCallbackC) - -entryCompletionMatchSelectedClosure :: EntryCompletionMatchSelectedCallback -> IO Closure -entryCompletionMatchSelectedClosure cb = newCClosure =<< mkEntryCompletionMatchSelectedCallback wrapped - where wrapped = entryCompletionMatchSelectedCallbackWrapper cb - -entryCompletionMatchSelectedCallbackWrapper :: - EntryCompletionMatchSelectedCallback -> - Ptr () -> - Ptr TreeModel -> - Ptr TreeIter -> - Ptr () -> - IO CInt -entryCompletionMatchSelectedCallbackWrapper _cb _ model iter _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - result <- _cb model' iter' - let result' = (fromIntegral . fromEnum) result - return result' - -onEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId -onEntryCompletionMatchSelected obj cb = liftIO $ connectEntryCompletionMatchSelected obj cb SignalConnectBefore -afterEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId -afterEntryCompletionMatchSelected obj cb = connectEntryCompletionMatchSelected obj cb SignalConnectAfter - -connectEntryCompletionMatchSelected :: (GObject a, MonadIO m) => - a -> EntryCompletionMatchSelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCompletionMatchSelected obj cb after = liftIO $ do - cb' <- mkEntryCompletionMatchSelectedCallback (entryCompletionMatchSelectedCallbackWrapper cb) - connectSignalFunPtr obj "match-selected" cb' after - --- signal EntryCompletion::no-matches -type EntryCompletionNoMatchesCallback = - IO () - -noEntryCompletionNoMatchesCallback :: Maybe EntryCompletionNoMatchesCallback -noEntryCompletionNoMatchesCallback = Nothing - -type EntryCompletionNoMatchesCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCompletionNoMatchesCallback :: EntryCompletionNoMatchesCallbackC -> IO (FunPtr EntryCompletionNoMatchesCallbackC) - -entryCompletionNoMatchesClosure :: EntryCompletionNoMatchesCallback -> IO Closure -entryCompletionNoMatchesClosure cb = newCClosure =<< mkEntryCompletionNoMatchesCallback wrapped - where wrapped = entryCompletionNoMatchesCallbackWrapper cb - -entryCompletionNoMatchesCallbackWrapper :: - EntryCompletionNoMatchesCallback -> - Ptr () -> - Ptr () -> - IO () -entryCompletionNoMatchesCallbackWrapper _cb _ _ = do - _cb - -onEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId -onEntryCompletionNoMatches obj cb = liftIO $ connectEntryCompletionNoMatches obj cb SignalConnectBefore -afterEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId -afterEntryCompletionNoMatches obj cb = connectEntryCompletionNoMatches obj cb SignalConnectAfter - -connectEntryCompletionNoMatches :: (GObject a, MonadIO m) => - a -> EntryCompletionNoMatchesCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCompletionNoMatches obj cb after = liftIO $ do - cb' <- mkEntryCompletionNoMatchesCallback (entryCompletionNoMatchesCallbackWrapper cb) - connectSignalFunPtr obj "no-matches" cb' after - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m (Maybe CellArea) -getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructEntryCompletionCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" (Just val) - -data EntryCompletionCellAreaPropertyInfo -instance AttrInfo EntryCompletionCellAreaPropertyInfo where - type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe CellArea) - type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area" - attrGet _ = getEntryCompletionCellArea - attrSet _ = undefined - attrConstruct _ = constructEntryCompletionCellArea - attrClear _ = undefined - --- VVV Prop "inline-completion" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionInlineCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool -getEntryCompletionInlineCompletion obj = liftIO $ getObjectPropertyBool obj "inline-completion" - -setEntryCompletionInlineCompletion :: (MonadIO m, EntryCompletionK o) => o -> Bool -> m () -setEntryCompletionInlineCompletion obj val = liftIO $ setObjectPropertyBool obj "inline-completion" val - -constructEntryCompletionInlineCompletion :: Bool -> IO ([Char], GValue) -constructEntryCompletionInlineCompletion val = constructObjectPropertyBool "inline-completion" val - -data EntryCompletionInlineCompletionPropertyInfo -instance AttrInfo EntryCompletionInlineCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionInlineCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCompletionInlineCompletionPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionInlineCompletionPropertyInfo = Bool - type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "inline-completion" - attrGet _ = getEntryCompletionInlineCompletion - attrSet _ = setEntryCompletionInlineCompletion - attrConstruct _ = constructEntryCompletionInlineCompletion - attrClear _ = undefined - --- VVV Prop "inline-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionInlineSelection :: (MonadIO m, EntryCompletionK o) => o -> m Bool -getEntryCompletionInlineSelection obj = liftIO $ getObjectPropertyBool obj "inline-selection" - -setEntryCompletionInlineSelection :: (MonadIO m, EntryCompletionK o) => o -> Bool -> m () -setEntryCompletionInlineSelection obj val = liftIO $ setObjectPropertyBool obj "inline-selection" val - -constructEntryCompletionInlineSelection :: Bool -> IO ([Char], GValue) -constructEntryCompletionInlineSelection val = constructObjectPropertyBool "inline-selection" val - -data EntryCompletionInlineSelectionPropertyInfo -instance AttrInfo EntryCompletionInlineSelectionPropertyInfo where - type AttrAllowedOps EntryCompletionInlineSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCompletionInlineSelectionPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionInlineSelectionPropertyInfo = Bool - type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "inline-selection" - attrGet _ = getEntryCompletionInlineSelection - attrSet _ = setEntryCompletionInlineSelection - attrConstruct _ = constructEntryCompletionInlineSelection - attrClear _ = undefined - --- VVV Prop "minimum-key-length" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyInt32 obj "minimum-key-length" - -setEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyInt32 obj "minimum-key-length" val - -constructEntryCompletionMinimumKeyLength :: Int32 -> IO ([Char], GValue) -constructEntryCompletionMinimumKeyLength val = constructObjectPropertyInt32 "minimum-key-length" val - -data EntryCompletionMinimumKeyLengthPropertyInfo -instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where - type AttrAllowedOps EntryCompletionMinimumKeyLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionMinimumKeyLengthPropertyInfo = Int32 - type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "minimum-key-length" - attrGet _ = getEntryCompletionMinimumKeyLength - attrSet _ = setEntryCompletionMinimumKeyLength - attrConstruct _ = constructEntryCompletionMinimumKeyLength - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m TreeModel -getEntryCompletionModel obj = liftIO $ checkUnexpectedNothing "getEntryCompletionModel" $ getObjectPropertyObject obj "model" TreeModel - -setEntryCompletionModel :: (MonadIO m, EntryCompletionK o, TreeModelK a) => o -> a -> m () -setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructEntryCompletionModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructEntryCompletionModel val = constructObjectPropertyObject "model" (Just val) - -clearEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m () -clearEntryCompletionModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data EntryCompletionModelPropertyInfo -instance AttrInfo EntryCompletionModelPropertyInfo where - type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionModelPropertyInfo = TreeModel - type AttrLabel EntryCompletionModelPropertyInfo = "model" - attrGet _ = getEntryCompletionModel - attrSet _ = setEntryCompletionModel - attrConstruct _ = constructEntryCompletionModel - attrClear _ = clearEntryCompletionModel - --- VVV Prop "popup-completion" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionPopupCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool -getEntryCompletionPopupCompletion obj = liftIO $ getObjectPropertyBool obj "popup-completion" - -setEntryCompletionPopupCompletion :: (MonadIO m, EntryCompletionK o) => o -> Bool -> m () -setEntryCompletionPopupCompletion obj val = liftIO $ setObjectPropertyBool obj "popup-completion" val - -constructEntryCompletionPopupCompletion :: Bool -> IO ([Char], GValue) -constructEntryCompletionPopupCompletion val = constructObjectPropertyBool "popup-completion" val - -data EntryCompletionPopupCompletionPropertyInfo -instance AttrInfo EntryCompletionPopupCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionPopupCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCompletionPopupCompletionPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionPopupCompletionPropertyInfo = Bool - type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "popup-completion" - attrGet _ = getEntryCompletionPopupCompletion - attrSet _ = setEntryCompletionPopupCompletion - attrConstruct _ = constructEntryCompletionPopupCompletion - attrClear _ = undefined - --- VVV Prop "popup-set-width" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionPopupSetWidth :: (MonadIO m, EntryCompletionK o) => o -> m Bool -getEntryCompletionPopupSetWidth obj = liftIO $ getObjectPropertyBool obj "popup-set-width" - -setEntryCompletionPopupSetWidth :: (MonadIO m, EntryCompletionK o) => o -> Bool -> m () -setEntryCompletionPopupSetWidth obj val = liftIO $ setObjectPropertyBool obj "popup-set-width" val - -constructEntryCompletionPopupSetWidth :: Bool -> IO ([Char], GValue) -constructEntryCompletionPopupSetWidth val = constructObjectPropertyBool "popup-set-width" val - -data EntryCompletionPopupSetWidthPropertyInfo -instance AttrInfo EntryCompletionPopupSetWidthPropertyInfo where - type AttrAllowedOps EntryCompletionPopupSetWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionPopupSetWidthPropertyInfo = Bool - type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "popup-set-width" - attrGet _ = getEntryCompletionPopupSetWidth - attrSet _ = setEntryCompletionPopupSetWidth - attrConstruct _ = constructEntryCompletionPopupSetWidth - attrClear _ = undefined - --- VVV Prop "popup-single-match" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionPopupSingleMatch :: (MonadIO m, EntryCompletionK o) => o -> m Bool -getEntryCompletionPopupSingleMatch obj = liftIO $ getObjectPropertyBool obj "popup-single-match" - -setEntryCompletionPopupSingleMatch :: (MonadIO m, EntryCompletionK o) => o -> Bool -> m () -setEntryCompletionPopupSingleMatch obj val = liftIO $ setObjectPropertyBool obj "popup-single-match" val - -constructEntryCompletionPopupSingleMatch :: Bool -> IO ([Char], GValue) -constructEntryCompletionPopupSingleMatch val = constructObjectPropertyBool "popup-single-match" val - -data EntryCompletionPopupSingleMatchPropertyInfo -instance AttrInfo EntryCompletionPopupSingleMatchPropertyInfo where - type AttrAllowedOps EntryCompletionPopupSingleMatchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionPopupSingleMatchPropertyInfo = Bool - type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "popup-single-match" - attrGet _ = getEntryCompletionPopupSingleMatch - attrSet _ = setEntryCompletionPopupSingleMatch - attrConstruct _ = constructEntryCompletionPopupSingleMatch - attrClear _ = undefined - --- VVV Prop "text-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" - -setEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val - -constructEntryCompletionTextColumn :: Int32 -> IO ([Char], GValue) -constructEntryCompletionTextColumn val = constructObjectPropertyInt32 "text-column" val - -data EntryCompletionTextColumnPropertyInfo -instance AttrInfo EntryCompletionTextColumnPropertyInfo where - type AttrAllowedOps EntryCompletionTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryCompletionTextColumnPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionTextColumnPropertyInfo = Int32 - type AttrLabel EntryCompletionTextColumnPropertyInfo = "text-column" - attrGet _ = getEntryCompletionTextColumn - attrSet _ = setEntryCompletionTextColumn - attrConstruct _ = constructEntryCompletionTextColumn - attrClear _ = undefined - -type instance AttributeList EntryCompletion = EntryCompletionAttributeList -type EntryCompletionAttributeList = ('[ '("cellArea", EntryCompletionCellAreaPropertyInfo), '("inlineCompletion", EntryCompletionInlineCompletionPropertyInfo), '("inlineSelection", EntryCompletionInlineSelectionPropertyInfo), '("minimumKeyLength", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popupCompletion", EntryCompletionPopupCompletionPropertyInfo), '("popupSetWidth", EntryCompletionPopupSetWidthPropertyInfo), '("popupSingleMatch", EntryCompletionPopupSingleMatchPropertyInfo), '("textColumn", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) - -entryCompletionCellArea :: AttrLabelProxy "cellArea" -entryCompletionCellArea = AttrLabelProxy - -entryCompletionInlineCompletion :: AttrLabelProxy "inlineCompletion" -entryCompletionInlineCompletion = AttrLabelProxy - -entryCompletionInlineSelection :: AttrLabelProxy "inlineSelection" -entryCompletionInlineSelection = AttrLabelProxy - -entryCompletionMinimumKeyLength :: AttrLabelProxy "minimumKeyLength" -entryCompletionMinimumKeyLength = AttrLabelProxy - -entryCompletionModel :: AttrLabelProxy "model" -entryCompletionModel = AttrLabelProxy - -entryCompletionPopupCompletion :: AttrLabelProxy "popupCompletion" -entryCompletionPopupCompletion = AttrLabelProxy - -entryCompletionPopupSetWidth :: AttrLabelProxy "popupSetWidth" -entryCompletionPopupSetWidth = AttrLabelProxy - -entryCompletionPopupSingleMatch :: AttrLabelProxy "popupSingleMatch" -entryCompletionPopupSingleMatch = AttrLabelProxy - -entryCompletionTextColumn :: AttrLabelProxy "textColumn" -entryCompletionTextColumn = AttrLabelProxy - -data EntryCompletionActionActivatedSignalInfo -instance SignalInfo EntryCompletionActionActivatedSignalInfo where - type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback - connectSignal _ = connectEntryCompletionActionActivated - -data EntryCompletionCursorOnMatchSignalInfo -instance SignalInfo EntryCompletionCursorOnMatchSignalInfo where - type HaskellCallbackType EntryCompletionCursorOnMatchSignalInfo = EntryCompletionCursorOnMatchCallback - connectSignal _ = connectEntryCompletionCursorOnMatch - -data EntryCompletionInsertPrefixSignalInfo -instance SignalInfo EntryCompletionInsertPrefixSignalInfo where - type HaskellCallbackType EntryCompletionInsertPrefixSignalInfo = EntryCompletionInsertPrefixCallback - connectSignal _ = connectEntryCompletionInsertPrefix - -data EntryCompletionMatchSelectedSignalInfo -instance SignalInfo EntryCompletionMatchSelectedSignalInfo where - type HaskellCallbackType EntryCompletionMatchSelectedSignalInfo = EntryCompletionMatchSelectedCallback - connectSignal _ = connectEntryCompletionMatchSelected - -data EntryCompletionNoMatchesSignalInfo -instance SignalInfo EntryCompletionNoMatchesSignalInfo where - type HaskellCallbackType EntryCompletionNoMatchesSignalInfo = EntryCompletionNoMatchesCallback - connectSignal _ = connectEntryCompletionNoMatches - -type instance SignalList EntryCompletion = EntryCompletionSignalList -type EntryCompletionSignalList = ('[ '("actionActivated", EntryCompletionActionActivatedSignalInfo), '("cursorOnMatch", EntryCompletionCursorOnMatchSignalInfo), '("insertPrefix", EntryCompletionInsertPrefixSignalInfo), '("matchSelected", EntryCompletionMatchSelectedSignalInfo), '("noMatches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EntryCompletion::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EntryCompletion") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_new" gtk_entry_completion_new :: - IO (Ptr EntryCompletion) - - -entryCompletionNew :: - (MonadIO m) => - m EntryCompletion -- result -entryCompletionNew = liftIO $ do - result <- gtk_entry_completion_new - checkUnexpectedReturnNULL "gtk_entry_completion_new" result - result' <- (wrapObject EntryCompletion) result - return result' - --- method EntryCompletion::new_with_area --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EntryCompletion") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_new_with_area" gtk_entry_completion_new_with_area :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr EntryCompletion) - - -entryCompletionNewWithArea :: - (MonadIO m, CellAreaK a) => - a -- area - -> m EntryCompletion -- result -entryCompletionNewWithArea area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_entry_completion_new_with_area area' - checkUnexpectedReturnNULL "gtk_entry_completion_new_with_area" result - result' <- (wrapObject EntryCompletion) result - touchManagedPtr area - return result' - --- method EntryCompletion::complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_complete" gtk_entry_completion_complete :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO () - - -entryCompletionComplete :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m () -- result -entryCompletionComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_complete _obj' - touchManagedPtr _obj - return () - -data EntryCompletionCompleteMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionCompleteMethodInfo a signature where - overloadedMethod _ = entryCompletionComplete - --- method EntryCompletion::compute_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", 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 "gtk_entry_completion_compute_prefix" gtk_entry_completion_compute_prefix :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CString -> -- key : TBasicType TUTF8 - IO CString - - -entryCompletionComputePrefix :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> T.Text -- key - -> m T.Text -- result -entryCompletionComputePrefix _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_entry_completion_compute_prefix _obj' key' - checkUnexpectedReturnNULL "gtk_entry_completion_compute_prefix" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem key' - return result' - -data EntryCompletionComputePrefixMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionComputePrefixMethodInfo a signature where - overloadedMethod _ = entryCompletionComputePrefix - --- method EntryCompletion::delete_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_delete_action" gtk_entry_completion_delete_action :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt - IO () - - -entryCompletionDeleteAction :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Int32 -- index_ - -> m () -- result -entryCompletionDeleteAction _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_delete_action _obj' index_ - touchManagedPtr _obj - return () - -data EntryCompletionDeleteActionMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionDeleteActionMethodInfo a signature where - overloadedMethod _ = entryCompletionDeleteAction - --- method EntryCompletion::get_completion_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_completion_prefix" gtk_entry_completion_get_completion_prefix :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CString - - -entryCompletionGetCompletionPrefix :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m T.Text -- result -entryCompletionGetCompletionPrefix _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_completion_prefix _obj' - checkUnexpectedReturnNULL "gtk_entry_completion_get_completion_prefix" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data EntryCompletionGetCompletionPrefixMethodInfo -instance (signature ~ (m T.Text), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetCompletionPrefixMethodInfo a signature where - overloadedMethod _ = entryCompletionGetCompletionPrefix - --- method EntryCompletion::get_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_get_entry" gtk_entry_completion_get_entry :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO (Ptr Widget) - - -entryCompletionGetEntry :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Widget -- result -entryCompletionGetEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_entry _obj' - checkUnexpectedReturnNULL "gtk_entry_completion_get_entry" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetEntryMethodInfo -instance (signature ~ (m Widget), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetEntryMethodInfo a signature where - overloadedMethod _ = entryCompletionGetEntry - --- method EntryCompletion::get_inline_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_inline_completion" gtk_entry_completion_get_inline_completion :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CInt - - -entryCompletionGetInlineCompletion :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Bool -- result -entryCompletionGetInlineCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_inline_completion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetInlineCompletionMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetInlineCompletionMethodInfo a signature where - overloadedMethod _ = entryCompletionGetInlineCompletion - --- method EntryCompletion::get_inline_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_inline_selection" gtk_entry_completion_get_inline_selection :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CInt - - -entryCompletionGetInlineSelection :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Bool -- result -entryCompletionGetInlineSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_inline_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetInlineSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetInlineSelectionMethodInfo a signature where - overloadedMethod _ = entryCompletionGetInlineSelection - --- method EntryCompletion::get_minimum_key_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_minimum_key_length" gtk_entry_completion_get_minimum_key_length :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO Int32 - - -entryCompletionGetMinimumKeyLength :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Int32 -- result -entryCompletionGetMinimumKeyLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_minimum_key_length _obj' - touchManagedPtr _obj - return result - -data EntryCompletionGetMinimumKeyLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetMinimumKeyLengthMethodInfo a signature where - overloadedMethod _ = entryCompletionGetMinimumKeyLength - --- method EntryCompletion::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_get_model" gtk_entry_completion_get_model :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO (Ptr TreeModel) - - -entryCompletionGetModel :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m TreeModel -- result -entryCompletionGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_model _obj' - checkUnexpectedReturnNULL "gtk_entry_completion_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetModelMethodInfo a signature where - overloadedMethod _ = entryCompletionGetModel - --- method EntryCompletion::get_popup_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_popup_completion" gtk_entry_completion_get_popup_completion :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CInt - - -entryCompletionGetPopupCompletion :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Bool -- result -entryCompletionGetPopupCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_popup_completion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetPopupCompletionMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupCompletionMethodInfo a signature where - overloadedMethod _ = entryCompletionGetPopupCompletion - --- method EntryCompletion::get_popup_set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_popup_set_width" gtk_entry_completion_get_popup_set_width :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CInt - - -entryCompletionGetPopupSetWidth :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Bool -- result -entryCompletionGetPopupSetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_popup_set_width _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetPopupSetWidthMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupSetWidthMethodInfo a signature where - overloadedMethod _ = entryCompletionGetPopupSetWidth - --- method EntryCompletion::get_popup_single_match --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_popup_single_match" gtk_entry_completion_get_popup_single_match :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO CInt - - -entryCompletionGetPopupSingleMatch :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Bool -- result -entryCompletionGetPopupSingleMatch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_popup_single_match _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EntryCompletionGetPopupSingleMatchMethodInfo -instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupSingleMatchMethodInfo a signature where - overloadedMethod _ = entryCompletionGetPopupSingleMatch - --- method EntryCompletion::get_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_get_text_column" gtk_entry_completion_get_text_column :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO Int32 - - -entryCompletionGetTextColumn :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m Int32 -- result -entryCompletionGetTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_text_column _obj' - touchManagedPtr _obj - return result - -data EntryCompletionGetTextColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetTextColumnMethodInfo a signature where - overloadedMethod _ = entryCompletionGetTextColumn - --- method EntryCompletion::insert_action_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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},Arg {argCName = "markup", 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 "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt - CString -> -- markup : TBasicType TUTF8 - IO () - - -entryCompletionInsertActionMarkup :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Int32 -- index_ - -> T.Text -- markup - -> m () -- result -entryCompletionInsertActionMarkup _obj index_ markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - markup' <- textToCString markup - gtk_entry_completion_insert_action_markup _obj' index_ markup' - touchManagedPtr _obj - freeMem markup' - return () - -data EntryCompletionInsertActionMarkupMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertActionMarkupMethodInfo a signature where - overloadedMethod _ = entryCompletionInsertActionMarkup - --- method EntryCompletion::insert_action_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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},Arg {argCName = "text", 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 "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt - CString -> -- text : TBasicType TUTF8 - IO () - - -entryCompletionInsertActionText :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Int32 -- index_ - -> T.Text -- text - -> m () -- result -entryCompletionInsertActionText _obj index_ text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_completion_insert_action_text _obj' index_ text' - touchManagedPtr _obj - freeMem text' - return () - -data EntryCompletionInsertActionTextMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertActionTextMethodInfo a signature where - overloadedMethod _ = entryCompletionInsertActionText - --- method EntryCompletion::insert_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 "gtk_entry_completion_insert_prefix" gtk_entry_completion_insert_prefix :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - IO () - - -entryCompletionInsertPrefix :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> m () -- result -entryCompletionInsertPrefix _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_insert_prefix _obj' - touchManagedPtr _obj - return () - -data EntryCompletionInsertPrefixMethodInfo -instance (signature ~ (m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertPrefixMethodInfo a signature where - overloadedMethod _ = entryCompletionInsertPrefix - --- method EntryCompletion::set_inline_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_completion", 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 "gtk_entry_completion_set_inline_completion" gtk_entry_completion_set_inline_completion :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CInt -> -- inline_completion : TBasicType TBoolean - IO () - - -entryCompletionSetInlineCompletion :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Bool -- inlineCompletion - -> m () -- result -entryCompletionSetInlineCompletion _obj inlineCompletion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inlineCompletion' = (fromIntegral . fromEnum) inlineCompletion - gtk_entry_completion_set_inline_completion _obj' inlineCompletion' - touchManagedPtr _obj - return () - -data EntryCompletionSetInlineCompletionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetInlineCompletionMethodInfo a signature where - overloadedMethod _ = entryCompletionSetInlineCompletion - --- method EntryCompletion::set_inline_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_selection", 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 "gtk_entry_completion_set_inline_selection" gtk_entry_completion_set_inline_selection :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CInt -> -- inline_selection : TBasicType TBoolean - IO () - - -entryCompletionSetInlineSelection :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Bool -- inlineSelection - -> m () -- result -entryCompletionSetInlineSelection _obj inlineSelection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inlineSelection' = (fromIntegral . fromEnum) inlineSelection - gtk_entry_completion_set_inline_selection _obj' inlineSelection' - touchManagedPtr _obj - return () - -data EntryCompletionSetInlineSelectionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetInlineSelectionMethodInfo a signature where - overloadedMethod _ = entryCompletionSetInlineSelection - --- method EntryCompletion::set_match_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_set_match_func" gtk_entry_completion_set_match_func :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - FunPtr EntryCompletionMatchFuncC -> -- func : TInterface "Gtk" "EntryCompletionMatchFunc" - Ptr () -> -- func_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- func_notify : TInterface "GLib" "DestroyNotify" - IO () - - -entryCompletionSetMatchFunc :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> EntryCompletionMatchFunc -- func - -> m () -- result -entryCompletionSetMatchFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkEntryCompletionMatchFunc (entryCompletionMatchFuncWrapper Nothing func) - let funcData = castFunPtrToPtr func' - let funcNotify = safeFreeFunPtrPtr - gtk_entry_completion_set_match_func _obj' func' funcData funcNotify - touchManagedPtr _obj - return () - -data EntryCompletionSetMatchFuncMethodInfo -instance (signature ~ (EntryCompletionMatchFunc -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetMatchFuncMethodInfo a signature where - overloadedMethod _ = entryCompletionSetMatchFunc - --- method EntryCompletion::set_minimum_key_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_set_minimum_key_length" gtk_entry_completion_set_minimum_key_length :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- length : TBasicType TInt - IO () - - -entryCompletionSetMinimumKeyLength :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Int32 -- length_ - -> m () -- result -entryCompletionSetMinimumKeyLength _obj length_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_set_minimum_key_length _obj' length_ - touchManagedPtr _obj - return () - -data EntryCompletionSetMinimumKeyLengthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetMinimumKeyLengthMethodInfo a signature where - overloadedMethod _ = entryCompletionSetMinimumKeyLength - --- method EntryCompletion::set_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_set_model" gtk_entry_completion_set_model :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -entryCompletionSetModel :: - (MonadIO m, EntryCompletionK a, TreeModelK b) => - a -- _obj - -> Maybe (b) -- model - -> m () -- result -entryCompletionSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_entry_completion_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data EntryCompletionSetModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryCompletionK a, TreeModelK b) => MethodInfo EntryCompletionSetModelMethodInfo a signature where - overloadedMethod _ = entryCompletionSetModel - --- method EntryCompletion::set_popup_completion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_completion", 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 "gtk_entry_completion_set_popup_completion" gtk_entry_completion_set_popup_completion :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CInt -> -- popup_completion : TBasicType TBoolean - IO () - - -entryCompletionSetPopupCompletion :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Bool -- popupCompletion - -> m () -- result -entryCompletionSetPopupCompletion _obj popupCompletion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popupCompletion' = (fromIntegral . fromEnum) popupCompletion - gtk_entry_completion_set_popup_completion _obj' popupCompletion' - touchManagedPtr _obj - return () - -data EntryCompletionSetPopupCompletionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupCompletionMethodInfo a signature where - overloadedMethod _ = entryCompletionSetPopupCompletion - --- method EntryCompletion::set_popup_set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_set_width", 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 "gtk_entry_completion_set_popup_set_width" gtk_entry_completion_set_popup_set_width :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CInt -> -- popup_set_width : TBasicType TBoolean - IO () - - -entryCompletionSetPopupSetWidth :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Bool -- popupSetWidth - -> m () -- result -entryCompletionSetPopupSetWidth _obj popupSetWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popupSetWidth' = (fromIntegral . fromEnum) popupSetWidth - gtk_entry_completion_set_popup_set_width _obj' popupSetWidth' - touchManagedPtr _obj - return () - -data EntryCompletionSetPopupSetWidthMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupSetWidthMethodInfo a signature where - overloadedMethod _ = entryCompletionSetPopupSetWidth - --- method EntryCompletion::set_popup_single_match --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_single_match", 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 "gtk_entry_completion_set_popup_single_match" gtk_entry_completion_set_popup_single_match :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - CInt -> -- popup_single_match : TBasicType TBoolean - IO () - - -entryCompletionSetPopupSingleMatch :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Bool -- popupSingleMatch - -> m () -- result -entryCompletionSetPopupSingleMatch _obj popupSingleMatch = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popupSingleMatch' = (fromIntegral . fromEnum) popupSingleMatch - gtk_entry_completion_set_popup_single_match _obj' popupSingleMatch' - touchManagedPtr _obj - return () - -data EntryCompletionSetPopupSingleMatchMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupSingleMatchMethodInfo a signature where - overloadedMethod _ = entryCompletionSetPopupSingleMatch - --- method EntryCompletion::set_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_set_text_column" gtk_entry_completion_set_text_column :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- column : TBasicType TInt - IO () - - -entryCompletionSetTextColumn :: - (MonadIO m, EntryCompletionK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -entryCompletionSetTextColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_set_text_column _obj' column - touchManagedPtr _obj - return () - -data EntryCompletionSetTextColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetTextColumnMethodInfo a signature where - overloadedMethod _ = entryCompletionSetTextColumn - - diff --git a/GI/Gtk/Objects/EntryCompletion.hs-boot b/GI/Gtk/Objects/EntryCompletion.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EntryCompletion.hs-boot +++ /dev/null @@ -1,52 +0,0 @@ -module GI.Gtk.Objects.EntryCompletion 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 EntryCompletion = EntryCompletion (ForeignPtr EntryCompletion) -instance GObject EntryCompletion where -class GObject o => EntryCompletionK o -instance (GObject o, IsDescendantOf EntryCompletion o) => EntryCompletionK o -data EntryCompletionCellAreaPropertyInfo -data EntryCompletionInlineCompletionPropertyInfo -data EntryCompletionInlineSelectionPropertyInfo -data EntryCompletionMinimumKeyLengthPropertyInfo -data EntryCompletionModelPropertyInfo -data EntryCompletionPopupCompletionPropertyInfo -data EntryCompletionPopupSetWidthPropertyInfo -data EntryCompletionPopupSingleMatchPropertyInfo -data EntryCompletionTextColumnPropertyInfo -data EntryCompletionActionActivatedSignalInfo -data EntryCompletionCursorOnMatchSignalInfo -data EntryCompletionInsertPrefixSignalInfo -data EntryCompletionMatchSelectedSignalInfo -data EntryCompletionNoMatchesSignalInfo -data EntryCompletionCompleteMethodInfo -data EntryCompletionComputePrefixMethodInfo -data EntryCompletionDeleteActionMethodInfo -data EntryCompletionGetCompletionPrefixMethodInfo -data EntryCompletionGetEntryMethodInfo -data EntryCompletionGetInlineCompletionMethodInfo -data EntryCompletionGetInlineSelectionMethodInfo -data EntryCompletionGetMinimumKeyLengthMethodInfo -data EntryCompletionGetModelMethodInfo -data EntryCompletionGetPopupCompletionMethodInfo -data EntryCompletionGetPopupSetWidthMethodInfo -data EntryCompletionGetPopupSingleMatchMethodInfo -data EntryCompletionGetTextColumnMethodInfo -data EntryCompletionInsertActionMarkupMethodInfo -data EntryCompletionInsertActionTextMethodInfo -data EntryCompletionInsertPrefixMethodInfo -data EntryCompletionSetInlineCompletionMethodInfo -data EntryCompletionSetInlineSelectionMethodInfo -data EntryCompletionSetMatchFuncMethodInfo -data EntryCompletionSetMinimumKeyLengthMethodInfo -data EntryCompletionSetModelMethodInfo -data EntryCompletionSetPopupCompletionMethodInfo -data EntryCompletionSetPopupSetWidthMethodInfo -data EntryCompletionSetPopupSingleMatchMethodInfo -data EntryCompletionSetTextColumnMethodInfo diff --git a/GI/Gtk/Objects/EntryIconAccessible.hs b/GI/Gtk/Objects/EntryIconAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EntryIconAccessible.hs +++ /dev/null @@ -1,126 +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.Gtk.Objects.EntryIconAccessible - ( - --- * Exported types - EntryIconAccessible(..) , - EntryIconAccessibleK , - toEntryIconAccessible , - noEntryIconAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype EntryIconAccessible = EntryIconAccessible (ForeignPtr EntryIconAccessible) -foreign import ccall "gtk_entry_icon_accessible_get_type" - c_gtk_entry_icon_accessible_get_type :: IO GType - -type instance ParentTypes EntryIconAccessible = EntryIconAccessibleParentTypes -type EntryIconAccessibleParentTypes = '[Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject EntryIconAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_entry_icon_accessible_get_type - - -class GObject o => EntryIconAccessibleK o -instance (GObject o, IsDescendantOf EntryIconAccessible o) => EntryIconAccessibleK o - -toEntryIconAccessible :: EntryIconAccessibleK o => o -> IO EntryIconAccessible -toEntryIconAccessible = unsafeCastTo EntryIconAccessible - -noEntryIconAccessible :: Maybe EntryIconAccessible -noEntryIconAccessible = Nothing - -type family ResolveEntryIconAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveEntryIconAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveEntryIconAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEntryIconAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEntryIconAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveEntryIconAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveEntryIconAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEntryIconAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEntryIconAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveEntryIconAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveEntryIconAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEntryIconAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEntryIconAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEntryIconAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveEntryIconAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveEntryIconAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEntryIconAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveEntryIconAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveEntryIconAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveEntryIconAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEntryIconAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveEntryIconAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveEntryIconAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveEntryIconAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveEntryIconAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEntryIconAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEntryIconAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEntryIconAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEntryIconAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEntryIconAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEntryIconAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEntryIconAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEntryIconAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveEntryIconAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveEntryIconAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEntryIconAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveEntryIconAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveEntryIconAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveEntryIconAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveEntryIconAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveEntryIconAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveEntryIconAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveEntryIconAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveEntryIconAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveEntryIconAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEntryIconAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEntryIconAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveEntryIconAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveEntryIconAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEntryIconAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveEntryIconAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveEntryIconAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveEntryIconAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveEntryIconAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEntryIconAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveEntryIconAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveEntryIconAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEntryIconAccessibleMethod t EntryIconAccessible, MethodInfo info EntryIconAccessible p) => IsLabelProxy t (EntryIconAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEntryIconAccessibleMethod t EntryIconAccessible, MethodInfo info EntryIconAccessible p) => IsLabel t (EntryIconAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList EntryIconAccessible = EntryIconAccessibleAttributeList -type EntryIconAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EntryIconAccessible = EntryIconAccessibleSignalList -type EntryIconAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/EntryIconAccessible.hs-boot b/GI/Gtk/Objects/EntryIconAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EntryIconAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.EntryIconAccessible 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 EntryIconAccessible = EntryIconAccessible (ForeignPtr EntryIconAccessible) -instance GObject EntryIconAccessible where -class GObject o => EntryIconAccessibleK o -instance (GObject o, IsDescendantOf EntryIconAccessible o) => EntryIconAccessibleK o diff --git a/GI/Gtk/Objects/EventBox.hs b/GI/Gtk/Objects/EventBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EventBox.hs +++ /dev/null @@ -1,628 +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.Gtk.Objects.EventBox - ( - --- * Exported types - EventBox(..) , - EventBoxK , - toEventBox , - noEventBox , - - - -- * Methods --- ** eventBoxGetAboveChild - EventBoxGetAboveChildMethodInfo , - eventBoxGetAboveChild , - - --- ** eventBoxGetVisibleWindow - EventBoxGetVisibleWindowMethodInfo , - eventBoxGetVisibleWindow , - - --- ** eventBoxNew - eventBoxNew , - - --- ** eventBoxSetAboveChild - EventBoxSetAboveChildMethodInfo , - eventBoxSetAboveChild , - - --- ** eventBoxSetVisibleWindow - EventBoxSetVisibleWindowMethodInfo , - eventBoxSetVisibleWindow , - - - - - -- * Properties --- ** AboveChild - EventBoxAboveChildPropertyInfo , - constructEventBoxAboveChild , - eventBoxAboveChild , - getEventBoxAboveChild , - setEventBoxAboveChild , - - --- ** VisibleWindow - EventBoxVisibleWindowPropertyInfo , - constructEventBoxVisibleWindow , - eventBoxVisibleWindow , - getEventBoxVisibleWindow , - setEventBoxVisibleWindow , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype EventBox = EventBox (ForeignPtr EventBox) -foreign import ccall "gtk_event_box_get_type" - c_gtk_event_box_get_type :: IO GType - -type instance ParentTypes EventBox = EventBoxParentTypes -type EventBoxParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject EventBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_event_box_get_type - - -class GObject o => EventBoxK o -instance (GObject o, IsDescendantOf EventBox o) => EventBoxK o - -toEventBox :: EventBoxK o => o -> IO EventBox -toEventBox = unsafeCastTo EventBox - -noEventBox :: Maybe EventBox -noEventBox = Nothing - -type family ResolveEventBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveEventBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveEventBoxMethod "add" o = ContainerAddMethodInfo - ResolveEventBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveEventBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveEventBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveEventBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveEventBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveEventBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveEventBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEventBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEventBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveEventBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveEventBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveEventBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveEventBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveEventBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveEventBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveEventBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveEventBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveEventBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveEventBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveEventBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveEventBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveEventBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveEventBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveEventBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveEventBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveEventBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveEventBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveEventBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveEventBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveEventBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveEventBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveEventBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveEventBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveEventBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveEventBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveEventBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveEventBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveEventBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveEventBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveEventBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveEventBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveEventBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveEventBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveEventBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveEventBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveEventBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveEventBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveEventBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveEventBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveEventBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveEventBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveEventBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveEventBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveEventBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveEventBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveEventBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveEventBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveEventBoxMethod "event" o = WidgetEventMethodInfo - ResolveEventBoxMethod "forall" o = ContainerForallMethodInfo - ResolveEventBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEventBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveEventBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveEventBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEventBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveEventBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveEventBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveEventBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveEventBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveEventBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveEventBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveEventBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveEventBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveEventBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveEventBoxMethod "hide" o = WidgetHideMethodInfo - ResolveEventBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveEventBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveEventBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveEventBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveEventBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveEventBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveEventBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveEventBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveEventBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveEventBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEventBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveEventBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveEventBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveEventBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveEventBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveEventBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveEventBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveEventBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveEventBoxMethod "map" o = WidgetMapMethodInfo - ResolveEventBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveEventBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveEventBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveEventBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveEventBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveEventBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveEventBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveEventBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveEventBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEventBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEventBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveEventBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveEventBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveEventBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveEventBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveEventBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveEventBoxMethod "path" o = WidgetPathMethodInfo - ResolveEventBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveEventBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveEventBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveEventBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveEventBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveEventBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveEventBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveEventBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveEventBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEventBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEventBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveEventBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveEventBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveEventBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveEventBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveEventBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveEventBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveEventBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveEventBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveEventBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEventBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEventBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveEventBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveEventBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveEventBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEventBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveEventBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveEventBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveEventBoxMethod "show" o = WidgetShowMethodInfo - ResolveEventBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveEventBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveEventBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveEventBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveEventBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveEventBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEventBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEventBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveEventBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveEventBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveEventBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEventBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveEventBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveEventBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveEventBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveEventBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveEventBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEventBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveEventBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveEventBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveEventBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEventBoxMethod "getAboveChild" o = EventBoxGetAboveChildMethodInfo - ResolveEventBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveEventBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveEventBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveEventBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveEventBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveEventBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveEventBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveEventBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveEventBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveEventBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveEventBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveEventBoxMethod "getChild" o = BinGetChildMethodInfo - ResolveEventBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveEventBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveEventBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveEventBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveEventBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveEventBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveEventBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEventBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveEventBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveEventBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveEventBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveEventBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveEventBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveEventBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveEventBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveEventBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveEventBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveEventBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveEventBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveEventBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveEventBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveEventBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveEventBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveEventBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveEventBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveEventBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveEventBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveEventBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveEventBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveEventBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveEventBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveEventBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveEventBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveEventBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveEventBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveEventBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveEventBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveEventBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveEventBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveEventBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveEventBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveEventBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveEventBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveEventBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveEventBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveEventBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveEventBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveEventBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveEventBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveEventBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEventBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEventBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveEventBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveEventBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveEventBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveEventBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveEventBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveEventBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveEventBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveEventBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveEventBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveEventBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveEventBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveEventBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveEventBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveEventBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveEventBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveEventBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveEventBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveEventBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveEventBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveEventBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveEventBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveEventBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveEventBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveEventBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveEventBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveEventBoxMethod "getVisibleWindow" o = EventBoxGetVisibleWindowMethodInfo - ResolveEventBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveEventBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveEventBoxMethod "setAboveChild" o = EventBoxSetAboveChildMethodInfo - ResolveEventBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveEventBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveEventBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveEventBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveEventBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveEventBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveEventBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveEventBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveEventBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveEventBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveEventBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEventBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveEventBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveEventBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveEventBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveEventBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveEventBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveEventBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveEventBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveEventBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveEventBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveEventBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveEventBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveEventBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveEventBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveEventBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveEventBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveEventBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveEventBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveEventBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveEventBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveEventBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveEventBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveEventBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveEventBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveEventBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveEventBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveEventBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveEventBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEventBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveEventBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveEventBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveEventBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveEventBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveEventBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveEventBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveEventBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveEventBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveEventBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveEventBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveEventBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveEventBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveEventBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveEventBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveEventBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveEventBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveEventBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveEventBoxMethod "setVisibleWindow" o = EventBoxSetVisibleWindowMethodInfo - ResolveEventBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveEventBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveEventBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventBoxMethod t EventBox, MethodInfo info EventBox p) => IsLabelProxy t (EventBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventBoxMethod t EventBox, MethodInfo info EventBox p) => IsLabel t (EventBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "above-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEventBoxAboveChild :: (MonadIO m, EventBoxK o) => o -> m Bool -getEventBoxAboveChild obj = liftIO $ getObjectPropertyBool obj "above-child" - -setEventBoxAboveChild :: (MonadIO m, EventBoxK o) => o -> Bool -> m () -setEventBoxAboveChild obj val = liftIO $ setObjectPropertyBool obj "above-child" val - -constructEventBoxAboveChild :: Bool -> IO ([Char], GValue) -constructEventBoxAboveChild val = constructObjectPropertyBool "above-child" val - -data EventBoxAboveChildPropertyInfo -instance AttrInfo EventBoxAboveChildPropertyInfo where - type AttrAllowedOps EventBoxAboveChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EventBoxAboveChildPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EventBoxAboveChildPropertyInfo = EventBoxK - type AttrGetType EventBoxAboveChildPropertyInfo = Bool - type AttrLabel EventBoxAboveChildPropertyInfo = "above-child" - attrGet _ = getEventBoxAboveChild - attrSet _ = setEventBoxAboveChild - attrConstruct _ = constructEventBoxAboveChild - attrClear _ = undefined - --- VVV Prop "visible-window" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEventBoxVisibleWindow :: (MonadIO m, EventBoxK o) => o -> m Bool -getEventBoxVisibleWindow obj = liftIO $ getObjectPropertyBool obj "visible-window" - -setEventBoxVisibleWindow :: (MonadIO m, EventBoxK o) => o -> Bool -> m () -setEventBoxVisibleWindow obj val = liftIO $ setObjectPropertyBool obj "visible-window" val - -constructEventBoxVisibleWindow :: Bool -> IO ([Char], GValue) -constructEventBoxVisibleWindow val = constructObjectPropertyBool "visible-window" val - -data EventBoxVisibleWindowPropertyInfo -instance AttrInfo EventBoxVisibleWindowPropertyInfo where - type AttrAllowedOps EventBoxVisibleWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EventBoxVisibleWindowPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EventBoxVisibleWindowPropertyInfo = EventBoxK - type AttrGetType EventBoxVisibleWindowPropertyInfo = Bool - type AttrLabel EventBoxVisibleWindowPropertyInfo = "visible-window" - attrGet _ = getEventBoxVisibleWindow - attrSet _ = setEventBoxVisibleWindow - attrConstruct _ = constructEventBoxVisibleWindow - attrClear _ = undefined - -type instance AttributeList EventBox = EventBoxAttributeList -type EventBoxAttributeList = ('[ '("aboveChild", EventBoxAboveChildPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleWindow", EventBoxVisibleWindowPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -eventBoxAboveChild :: AttrLabelProxy "aboveChild" -eventBoxAboveChild = AttrLabelProxy - -eventBoxVisibleWindow :: AttrLabelProxy "visibleWindow" -eventBoxVisibleWindow = AttrLabelProxy - -type instance SignalList EventBox = EventBoxSignalList -type EventBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method EventBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EventBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_event_box_new" gtk_event_box_new :: - IO (Ptr EventBox) - - -eventBoxNew :: - (MonadIO m) => - m EventBox -- result -eventBoxNew = liftIO $ do - result <- gtk_event_box_new - checkUnexpectedReturnNULL "gtk_event_box_new" result - result' <- (newObject EventBox) result - return result' - --- method EventBox::get_above_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", 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 "gtk_event_box_get_above_child" gtk_event_box_get_above_child :: - Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox" - IO CInt - - -eventBoxGetAboveChild :: - (MonadIO m, EventBoxK a) => - a -- _obj - -> m Bool -- result -eventBoxGetAboveChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_box_get_above_child _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EventBoxGetAboveChildMethodInfo -instance (signature ~ (m Bool), MonadIO m, EventBoxK a) => MethodInfo EventBoxGetAboveChildMethodInfo a signature where - overloadedMethod _ = eventBoxGetAboveChild - --- method EventBox::get_visible_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", 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 "gtk_event_box_get_visible_window" gtk_event_box_get_visible_window :: - Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox" - IO CInt - - -eventBoxGetVisibleWindow :: - (MonadIO m, EventBoxK a) => - a -- _obj - -> m Bool -- result -eventBoxGetVisibleWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_box_get_visible_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EventBoxGetVisibleWindowMethodInfo -instance (signature ~ (m Bool), MonadIO m, EventBoxK a) => MethodInfo EventBoxGetVisibleWindowMethodInfo a signature where - overloadedMethod _ = eventBoxGetVisibleWindow - --- method EventBox::set_above_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above_child", 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 "gtk_event_box_set_above_child" gtk_event_box_set_above_child :: - Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox" - CInt -> -- above_child : TBasicType TBoolean - IO () - - -eventBoxSetAboveChild :: - (MonadIO m, EventBoxK a) => - a -- _obj - -> Bool -- aboveChild - -> m () -- result -eventBoxSetAboveChild _obj aboveChild = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let aboveChild' = (fromIntegral . fromEnum) aboveChild - gtk_event_box_set_above_child _obj' aboveChild' - touchManagedPtr _obj - return () - -data EventBoxSetAboveChildMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EventBoxK a) => MethodInfo EventBoxSetAboveChildMethodInfo a signature where - overloadedMethod _ = eventBoxSetAboveChild - --- method EventBox::set_visible_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_window", 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 "gtk_event_box_set_visible_window" gtk_event_box_set_visible_window :: - Ptr EventBox -> -- _obj : TInterface "Gtk" "EventBox" - CInt -> -- visible_window : TBasicType TBoolean - IO () - - -eventBoxSetVisibleWindow :: - (MonadIO m, EventBoxK a) => - a -- _obj - -> Bool -- visibleWindow - -> m () -- result -eventBoxSetVisibleWindow _obj visibleWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visibleWindow' = (fromIntegral . fromEnum) visibleWindow - gtk_event_box_set_visible_window _obj' visibleWindow' - touchManagedPtr _obj - return () - -data EventBoxSetVisibleWindowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, EventBoxK a) => MethodInfo EventBoxSetVisibleWindowMethodInfo a signature where - overloadedMethod _ = eventBoxSetVisibleWindow - - diff --git a/GI/Gtk/Objects/EventBox.hs-boot b/GI/Gtk/Objects/EventBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EventBox.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.EventBox 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 EventBox = EventBox (ForeignPtr EventBox) -instance GObject EventBox where -class GObject o => EventBoxK o -instance (GObject o, IsDescendantOf EventBox o) => EventBoxK o -data EventBoxAboveChildPropertyInfo -data EventBoxVisibleWindowPropertyInfo -data EventBoxGetAboveChildMethodInfo -data EventBoxGetVisibleWindowMethodInfo -data EventBoxSetAboveChildMethodInfo -data EventBoxSetVisibleWindowMethodInfo diff --git a/GI/Gtk/Objects/EventController.hs b/GI/Gtk/Objects/EventController.hs deleted file mode 100644 --- a/GI/Gtk/Objects/EventController.hs +++ /dev/null @@ -1,345 +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.Gtk.Objects.EventController - ( - --- * Exported types - EventController(..) , - EventControllerK , - toEventController , - noEventController , - - - -- * Methods --- ** eventControllerGetPropagationPhase - EventControllerGetPropagationPhaseMethodInfo, - eventControllerGetPropagationPhase , - - --- ** eventControllerGetWidget - EventControllerGetWidgetMethodInfo , - eventControllerGetWidget , - - --- ** eventControllerHandleEvent - EventControllerHandleEventMethodInfo , - eventControllerHandleEvent , - - --- ** eventControllerReset - EventControllerResetMethodInfo , - eventControllerReset , - - --- ** eventControllerSetPropagationPhase - EventControllerSetPropagationPhaseMethodInfo, - eventControllerSetPropagationPhase , - - - - - -- * Properties --- ** PropagationPhase - EventControllerPropagationPhasePropertyInfo, - constructEventControllerPropagationPhase, - eventControllerPropagationPhase , - getEventControllerPropagationPhase , - setEventControllerPropagationPhase , - - --- ** Widget - EventControllerWidgetPropertyInfo , - constructEventControllerWidget , - eventControllerWidget , - getEventControllerWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype EventController = EventController (ForeignPtr EventController) -foreign import ccall "gtk_event_controller_get_type" - c_gtk_event_controller_get_type :: IO GType - -type instance ParentTypes EventController = EventControllerParentTypes -type EventControllerParentTypes = '[GObject.Object] - -instance GObject EventController where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_event_controller_get_type - - -class GObject o => EventControllerK o -instance (GObject o, IsDescendantOf EventController o) => EventControllerK o - -toEventController :: EventControllerK o => o -> IO EventController -toEventController = unsafeCastTo EventController - -noEventController :: Maybe EventController -noEventController = Nothing - -type family ResolveEventControllerMethod (t :: Symbol) (o :: *) :: * where - ResolveEventControllerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEventControllerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEventControllerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEventControllerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEventControllerMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveEventControllerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEventControllerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEventControllerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEventControllerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEventControllerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEventControllerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEventControllerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEventControllerMethod "reset" o = EventControllerResetMethodInfo - ResolveEventControllerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEventControllerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEventControllerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEventControllerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEventControllerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEventControllerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEventControllerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEventControllerMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveEventControllerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEventControllerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEventControllerMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveEventControllerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEventControllerMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveEventControllerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEventControllerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventControllerMethod t EventController, MethodInfo info EventController p) => IsLabelProxy t (EventController -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventControllerMethod t EventController, MethodInfo info EventController p) => IsLabel t (EventController -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "propagation-phase" - -- Type: TInterface "Gtk" "PropagationPhase" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getEventControllerPropagationPhase :: (MonadIO m, EventControllerK o) => o -> m PropagationPhase -getEventControllerPropagationPhase obj = liftIO $ getObjectPropertyEnum obj "propagation-phase" - -setEventControllerPropagationPhase :: (MonadIO m, EventControllerK o) => o -> PropagationPhase -> m () -setEventControllerPropagationPhase obj val = liftIO $ setObjectPropertyEnum obj "propagation-phase" val - -constructEventControllerPropagationPhase :: PropagationPhase -> IO ([Char], GValue) -constructEventControllerPropagationPhase val = constructObjectPropertyEnum "propagation-phase" val - -data EventControllerPropagationPhasePropertyInfo -instance AttrInfo EventControllerPropagationPhasePropertyInfo where - type AttrAllowedOps EventControllerPropagationPhasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EventControllerPropagationPhasePropertyInfo = (~) PropagationPhase - type AttrBaseTypeConstraint EventControllerPropagationPhasePropertyInfo = EventControllerK - type AttrGetType EventControllerPropagationPhasePropertyInfo = PropagationPhase - type AttrLabel EventControllerPropagationPhasePropertyInfo = "propagation-phase" - attrGet _ = getEventControllerPropagationPhase - attrSet _ = setEventControllerPropagationPhase - attrConstruct _ = constructEventControllerPropagationPhase - attrClear _ = undefined - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getEventControllerWidget :: (MonadIO m, EventControllerK o) => o -> m Widget -getEventControllerWidget obj = liftIO $ checkUnexpectedNothing "getEventControllerWidget" $ getObjectPropertyObject obj "widget" Widget - -constructEventControllerWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructEventControllerWidget val = constructObjectPropertyObject "widget" (Just val) - -data EventControllerWidgetPropertyInfo -instance AttrInfo EventControllerWidgetPropertyInfo where - type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK - type AttrGetType EventControllerWidgetPropertyInfo = Widget - type AttrLabel EventControllerWidgetPropertyInfo = "widget" - attrGet _ = getEventControllerWidget - attrSet _ = undefined - attrConstruct _ = constructEventControllerWidget - attrClear _ = undefined - -type instance AttributeList EventController = EventControllerAttributeList -type EventControllerAttributeList = ('[ '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) - -eventControllerPropagationPhase :: AttrLabelProxy "propagationPhase" -eventControllerPropagationPhase = AttrLabelProxy - -eventControllerWidget :: AttrLabelProxy "widget" -eventControllerWidget = AttrLabelProxy - -type instance SignalList EventController = EventControllerSignalList -type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EventController::get_propagation_phase --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PropagationPhase") --- throws : False --- Skip return : False - -foreign import ccall "gtk_event_controller_get_propagation_phase" gtk_event_controller_get_propagation_phase :: - Ptr EventController -> -- _obj : TInterface "Gtk" "EventController" - IO CUInt - - -eventControllerGetPropagationPhase :: - (MonadIO m, EventControllerK a) => - a -- _obj - -> m PropagationPhase -- result -eventControllerGetPropagationPhase _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_controller_get_propagation_phase _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data EventControllerGetPropagationPhaseMethodInfo -instance (signature ~ (m PropagationPhase), MonadIO m, EventControllerK a) => MethodInfo EventControllerGetPropagationPhaseMethodInfo a signature where - overloadedMethod _ = eventControllerGetPropagationPhase - --- method EventController::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_event_controller_get_widget" gtk_event_controller_get_widget :: - Ptr EventController -> -- _obj : TInterface "Gtk" "EventController" - IO (Ptr Widget) - - -eventControllerGetWidget :: - (MonadIO m, EventControllerK a) => - a -- _obj - -> m Widget -- result -eventControllerGetWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_controller_get_widget _obj' - checkUnexpectedReturnNULL "gtk_event_controller_get_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data EventControllerGetWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, EventControllerK a) => MethodInfo EventControllerGetWidgetMethodInfo a signature where - overloadedMethod _ = eventControllerGetWidget - --- method EventController::handle_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_event_controller_handle_event" gtk_event_controller_handle_event :: - Ptr EventController -> -- _obj : TInterface "Gtk" "EventController" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -eventControllerHandleEvent :: - (MonadIO m, EventControllerK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -eventControllerHandleEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_event_controller_handle_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data EventControllerHandleEventMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, EventControllerK a) => MethodInfo EventControllerHandleEventMethodInfo a signature where - overloadedMethod _ = eventControllerHandleEvent - --- method EventController::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", 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 "gtk_event_controller_reset" gtk_event_controller_reset :: - Ptr EventController -> -- _obj : TInterface "Gtk" "EventController" - IO () - - -eventControllerReset :: - (MonadIO m, EventControllerK a) => - a -- _obj - -> m () -- result -eventControllerReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_event_controller_reset _obj' - touchManagedPtr _obj - return () - -data EventControllerResetMethodInfo -instance (signature ~ (m ()), MonadIO m, EventControllerK a) => MethodInfo EventControllerResetMethodInfo a signature where - overloadedMethod _ = eventControllerReset - --- method EventController::set_propagation_phase --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gtk" "PropagationPhase", 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 "gtk_event_controller_set_propagation_phase" gtk_event_controller_set_propagation_phase :: - Ptr EventController -> -- _obj : TInterface "Gtk" "EventController" - CUInt -> -- phase : TInterface "Gtk" "PropagationPhase" - IO () - - -eventControllerSetPropagationPhase :: - (MonadIO m, EventControllerK a) => - a -- _obj - -> PropagationPhase -- phase - -> m () -- result -eventControllerSetPropagationPhase _obj phase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let phase' = (fromIntegral . fromEnum) phase - gtk_event_controller_set_propagation_phase _obj' phase' - touchManagedPtr _obj - return () - -data EventControllerSetPropagationPhaseMethodInfo -instance (signature ~ (PropagationPhase -> m ()), MonadIO m, EventControllerK a) => MethodInfo EventControllerSetPropagationPhaseMethodInfo a signature where - overloadedMethod _ = eventControllerSetPropagationPhase - - diff --git a/GI/Gtk/Objects/EventController.hs-boot b/GI/Gtk/Objects/EventController.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/EventController.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.EventController 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 EventController = EventController (ForeignPtr EventController) -instance GObject EventController where -class GObject o => EventControllerK o -instance (GObject o, IsDescendantOf EventController o) => EventControllerK o -data EventControllerPropagationPhasePropertyInfo -data EventControllerWidgetPropertyInfo -data EventControllerGetPropagationPhaseMethodInfo -data EventControllerGetWidgetMethodInfo -data EventControllerHandleEventMethodInfo -data EventControllerResetMethodInfo -data EventControllerSetPropagationPhaseMethodInfo diff --git a/GI/Gtk/Objects/Expander.hs b/GI/Gtk/Objects/Expander.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Expander.hs +++ /dev/null @@ -1,1383 +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.Gtk.Objects.Expander - ( - --- * Exported types - Expander(..) , - ExpanderK , - toExpander , - noExpander , - - - -- * Methods --- ** expanderGetExpanded - ExpanderGetExpandedMethodInfo , - expanderGetExpanded , - - --- ** expanderGetLabel - ExpanderGetLabelMethodInfo , - expanderGetLabel , - - --- ** expanderGetLabelFill - ExpanderGetLabelFillMethodInfo , - expanderGetLabelFill , - - --- ** expanderGetLabelWidget - ExpanderGetLabelWidgetMethodInfo , - expanderGetLabelWidget , - - --- ** expanderGetResizeToplevel - ExpanderGetResizeToplevelMethodInfo , - expanderGetResizeToplevel , - - --- ** expanderGetSpacing - ExpanderGetSpacingMethodInfo , - expanderGetSpacing , - - --- ** expanderGetUseMarkup - ExpanderGetUseMarkupMethodInfo , - expanderGetUseMarkup , - - --- ** expanderGetUseUnderline - ExpanderGetUseUnderlineMethodInfo , - expanderGetUseUnderline , - - --- ** expanderNew - expanderNew , - - --- ** expanderNewWithMnemonic - expanderNewWithMnemonic , - - --- ** expanderSetExpanded - ExpanderSetExpandedMethodInfo , - expanderSetExpanded , - - --- ** expanderSetLabel - ExpanderSetLabelMethodInfo , - expanderSetLabel , - - --- ** expanderSetLabelFill - ExpanderSetLabelFillMethodInfo , - expanderSetLabelFill , - - --- ** expanderSetLabelWidget - ExpanderSetLabelWidgetMethodInfo , - expanderSetLabelWidget , - - --- ** expanderSetResizeToplevel - ExpanderSetResizeToplevelMethodInfo , - expanderSetResizeToplevel , - - --- ** expanderSetSpacing - ExpanderSetSpacingMethodInfo , - expanderSetSpacing , - - --- ** expanderSetUseMarkup - ExpanderSetUseMarkupMethodInfo , - expanderSetUseMarkup , - - --- ** expanderSetUseUnderline - ExpanderSetUseUnderlineMethodInfo , - expanderSetUseUnderline , - - - - - -- * Properties --- ** Expanded - ExpanderExpandedPropertyInfo , - constructExpanderExpanded , - expanderExpanded , - getExpanderExpanded , - setExpanderExpanded , - - --- ** Label - ExpanderLabelPropertyInfo , - clearExpanderLabel , - constructExpanderLabel , - expanderLabel , - getExpanderLabel , - setExpanderLabel , - - --- ** LabelFill - ExpanderLabelFillPropertyInfo , - constructExpanderLabelFill , - expanderLabelFill , - getExpanderLabelFill , - setExpanderLabelFill , - - --- ** LabelWidget - ExpanderLabelWidgetPropertyInfo , - clearExpanderLabelWidget , - constructExpanderLabelWidget , - expanderLabelWidget , - getExpanderLabelWidget , - setExpanderLabelWidget , - - --- ** ResizeToplevel - ExpanderResizeToplevelPropertyInfo , - constructExpanderResizeToplevel , - expanderResizeToplevel , - getExpanderResizeToplevel , - setExpanderResizeToplevel , - - --- ** Spacing - ExpanderSpacingPropertyInfo , - constructExpanderSpacing , - expanderSpacing , - getExpanderSpacing , - setExpanderSpacing , - - --- ** UseMarkup - ExpanderUseMarkupPropertyInfo , - constructExpanderUseMarkup , - expanderUseMarkup , - getExpanderUseMarkup , - setExpanderUseMarkup , - - --- ** UseUnderline - ExpanderUseUnderlinePropertyInfo , - constructExpanderUseUnderline , - expanderUseUnderline , - getExpanderUseUnderline , - setExpanderUseUnderline , - - - - - -- * Signals --- ** Activate - ExpanderActivateCallback , - ExpanderActivateCallbackC , - ExpanderActivateSignalInfo , - afterExpanderActivate , - expanderActivateCallbackWrapper , - expanderActivateClosure , - mkExpanderActivateCallback , - noExpanderActivateCallback , - onExpanderActivate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Expander = Expander (ForeignPtr Expander) -foreign import ccall "gtk_expander_get_type" - c_gtk_expander_get_type :: IO GType - -type instance ParentTypes Expander = ExpanderParentTypes -type ExpanderParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Expander where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_expander_get_type - - -class GObject o => ExpanderK o -instance (GObject o, IsDescendantOf Expander o) => ExpanderK o - -toExpander :: ExpanderK o => o -> IO Expander -toExpander = unsafeCastTo Expander - -noExpander :: Maybe Expander -noExpander = Nothing - -type family ResolveExpanderMethod (t :: Symbol) (o :: *) :: * where - ResolveExpanderMethod "activate" o = WidgetActivateMethodInfo - ResolveExpanderMethod "add" o = ContainerAddMethodInfo - ResolveExpanderMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveExpanderMethod "addChild" o = BuildableAddChildMethodInfo - ResolveExpanderMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveExpanderMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveExpanderMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveExpanderMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveExpanderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveExpanderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveExpanderMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveExpanderMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveExpanderMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveExpanderMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveExpanderMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveExpanderMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveExpanderMethod "childType" o = ContainerChildTypeMethodInfo - ResolveExpanderMethod "classPath" o = WidgetClassPathMethodInfo - ResolveExpanderMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveExpanderMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveExpanderMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveExpanderMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveExpanderMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveExpanderMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveExpanderMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveExpanderMethod "destroy" o = WidgetDestroyMethodInfo - ResolveExpanderMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveExpanderMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveExpanderMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveExpanderMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveExpanderMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveExpanderMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveExpanderMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveExpanderMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveExpanderMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveExpanderMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveExpanderMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveExpanderMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveExpanderMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveExpanderMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveExpanderMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveExpanderMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveExpanderMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveExpanderMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveExpanderMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveExpanderMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveExpanderMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveExpanderMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveExpanderMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveExpanderMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveExpanderMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveExpanderMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveExpanderMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveExpanderMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveExpanderMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveExpanderMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveExpanderMethod "draw" o = WidgetDrawMethodInfo - ResolveExpanderMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveExpanderMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveExpanderMethod "event" o = WidgetEventMethodInfo - ResolveExpanderMethod "forall" o = ContainerForallMethodInfo - ResolveExpanderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveExpanderMethod "foreach" o = ContainerForeachMethodInfo - ResolveExpanderMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveExpanderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveExpanderMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveExpanderMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveExpanderMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveExpanderMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveExpanderMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveExpanderMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveExpanderMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveExpanderMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveExpanderMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveExpanderMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveExpanderMethod "hide" o = WidgetHideMethodInfo - ResolveExpanderMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveExpanderMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveExpanderMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveExpanderMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveExpanderMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveExpanderMethod "intersect" o = WidgetIntersectMethodInfo - ResolveExpanderMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveExpanderMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveExpanderMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveExpanderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveExpanderMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveExpanderMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveExpanderMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveExpanderMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveExpanderMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveExpanderMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveExpanderMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveExpanderMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveExpanderMethod "map" o = WidgetMapMethodInfo - ResolveExpanderMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveExpanderMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveExpanderMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveExpanderMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveExpanderMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveExpanderMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveExpanderMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveExpanderMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveExpanderMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveExpanderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveExpanderMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveExpanderMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveExpanderMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveExpanderMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveExpanderMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveExpanderMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveExpanderMethod "path" o = WidgetPathMethodInfo - ResolveExpanderMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveExpanderMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveExpanderMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveExpanderMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveExpanderMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveExpanderMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveExpanderMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveExpanderMethod "realize" o = WidgetRealizeMethodInfo - ResolveExpanderMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveExpanderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveExpanderMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveExpanderMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveExpanderMethod "remove" o = ContainerRemoveMethodInfo - ResolveExpanderMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveExpanderMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveExpanderMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveExpanderMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveExpanderMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveExpanderMethod "reparent" o = WidgetReparentMethodInfo - ResolveExpanderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveExpanderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveExpanderMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveExpanderMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveExpanderMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveExpanderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveExpanderMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveExpanderMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveExpanderMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveExpanderMethod "show" o = WidgetShowMethodInfo - ResolveExpanderMethod "showAll" o = WidgetShowAllMethodInfo - ResolveExpanderMethod "showNow" o = WidgetShowNowMethodInfo - ResolveExpanderMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveExpanderMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveExpanderMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveExpanderMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveExpanderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveExpanderMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveExpanderMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveExpanderMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveExpanderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveExpanderMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveExpanderMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveExpanderMethod "unmap" o = WidgetUnmapMethodInfo - ResolveExpanderMethod "unparent" o = WidgetUnparentMethodInfo - ResolveExpanderMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveExpanderMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveExpanderMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveExpanderMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveExpanderMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveExpanderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveExpanderMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveExpanderMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveExpanderMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveExpanderMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveExpanderMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveExpanderMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveExpanderMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveExpanderMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveExpanderMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveExpanderMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveExpanderMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveExpanderMethod "getChild" o = BinGetChildMethodInfo - ResolveExpanderMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveExpanderMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveExpanderMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveExpanderMethod "getClip" o = WidgetGetClipMethodInfo - ResolveExpanderMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveExpanderMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveExpanderMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveExpanderMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveExpanderMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveExpanderMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveExpanderMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveExpanderMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveExpanderMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveExpanderMethod "getExpanded" o = ExpanderGetExpandedMethodInfo - ResolveExpanderMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveExpanderMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveExpanderMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveExpanderMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveExpanderMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveExpanderMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveExpanderMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveExpanderMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveExpanderMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveExpanderMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveExpanderMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveExpanderMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveExpanderMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveExpanderMethod "getLabel" o = ExpanderGetLabelMethodInfo - ResolveExpanderMethod "getLabelFill" o = ExpanderGetLabelFillMethodInfo - ResolveExpanderMethod "getLabelWidget" o = ExpanderGetLabelWidgetMethodInfo - ResolveExpanderMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveExpanderMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveExpanderMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveExpanderMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveExpanderMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveExpanderMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveExpanderMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveExpanderMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveExpanderMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveExpanderMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveExpanderMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveExpanderMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveExpanderMethod "getParent" o = WidgetGetParentMethodInfo - ResolveExpanderMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveExpanderMethod "getPath" o = WidgetGetPathMethodInfo - ResolveExpanderMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveExpanderMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveExpanderMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveExpanderMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveExpanderMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveExpanderMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveExpanderMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveExpanderMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveExpanderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveExpanderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveExpanderMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveExpanderMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveExpanderMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveExpanderMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveExpanderMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveExpanderMethod "getResizeToplevel" o = ExpanderGetResizeToplevelMethodInfo - ResolveExpanderMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveExpanderMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveExpanderMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveExpanderMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveExpanderMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveExpanderMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveExpanderMethod "getSpacing" o = ExpanderGetSpacingMethodInfo - ResolveExpanderMethod "getState" o = WidgetGetStateMethodInfo - ResolveExpanderMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveExpanderMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveExpanderMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveExpanderMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveExpanderMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveExpanderMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveExpanderMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveExpanderMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveExpanderMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveExpanderMethod "getUseMarkup" o = ExpanderGetUseMarkupMethodInfo - ResolveExpanderMethod "getUseUnderline" o = ExpanderGetUseUnderlineMethodInfo - ResolveExpanderMethod "getValign" o = WidgetGetValignMethodInfo - ResolveExpanderMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveExpanderMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveExpanderMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveExpanderMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveExpanderMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveExpanderMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveExpanderMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveExpanderMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveExpanderMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveExpanderMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveExpanderMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveExpanderMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveExpanderMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveExpanderMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveExpanderMethod "setClip" o = WidgetSetClipMethodInfo - ResolveExpanderMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveExpanderMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveExpanderMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveExpanderMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveExpanderMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveExpanderMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveExpanderMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveExpanderMethod "setExpanded" o = ExpanderSetExpandedMethodInfo - ResolveExpanderMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveExpanderMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveExpanderMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveExpanderMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveExpanderMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveExpanderMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveExpanderMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveExpanderMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveExpanderMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveExpanderMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveExpanderMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveExpanderMethod "setLabel" o = ExpanderSetLabelMethodInfo - ResolveExpanderMethod "setLabelFill" o = ExpanderSetLabelFillMethodInfo - ResolveExpanderMethod "setLabelWidget" o = ExpanderSetLabelWidgetMethodInfo - ResolveExpanderMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveExpanderMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveExpanderMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveExpanderMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveExpanderMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveExpanderMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveExpanderMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveExpanderMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveExpanderMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveExpanderMethod "setParent" o = WidgetSetParentMethodInfo - ResolveExpanderMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveExpanderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveExpanderMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveExpanderMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveExpanderMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveExpanderMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveExpanderMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveExpanderMethod "setResizeToplevel" o = ExpanderSetResizeToplevelMethodInfo - ResolveExpanderMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveExpanderMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveExpanderMethod "setSpacing" o = ExpanderSetSpacingMethodInfo - ResolveExpanderMethod "setState" o = WidgetSetStateMethodInfo - ResolveExpanderMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveExpanderMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveExpanderMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveExpanderMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveExpanderMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveExpanderMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveExpanderMethod "setUseMarkup" o = ExpanderSetUseMarkupMethodInfo - ResolveExpanderMethod "setUseUnderline" o = ExpanderSetUseUnderlineMethodInfo - ResolveExpanderMethod "setValign" o = WidgetSetValignMethodInfo - ResolveExpanderMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveExpanderMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveExpanderMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveExpanderMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveExpanderMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveExpanderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveExpanderMethod t Expander, MethodInfo info Expander p) => IsLabelProxy t (Expander -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveExpanderMethod t Expander, MethodInfo info Expander p) => IsLabel t (Expander -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Expander::activate -type ExpanderActivateCallback = - IO () - -noExpanderActivateCallback :: Maybe ExpanderActivateCallback -noExpanderActivateCallback = Nothing - -type ExpanderActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkExpanderActivateCallback :: ExpanderActivateCallbackC -> IO (FunPtr ExpanderActivateCallbackC) - -expanderActivateClosure :: ExpanderActivateCallback -> IO Closure -expanderActivateClosure cb = newCClosure =<< mkExpanderActivateCallback wrapped - where wrapped = expanderActivateCallbackWrapper cb - -expanderActivateCallbackWrapper :: - ExpanderActivateCallback -> - Ptr () -> - Ptr () -> - IO () -expanderActivateCallbackWrapper _cb _ _ = do - _cb - -onExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId -onExpanderActivate obj cb = liftIO $ connectExpanderActivate obj cb SignalConnectBefore -afterExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId -afterExpanderActivate obj cb = connectExpanderActivate obj cb SignalConnectAfter - -connectExpanderActivate :: (GObject a, MonadIO m) => - a -> ExpanderActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectExpanderActivate obj cb after = liftIO $ do - cb' <- mkExpanderActivateCallback (expanderActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- VVV Prop "expanded" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> m Bool -getExpanderExpanded obj = liftIO $ getObjectPropertyBool obj "expanded" - -setExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> Bool -> m () -setExpanderExpanded obj val = liftIO $ setObjectPropertyBool obj "expanded" val - -constructExpanderExpanded :: Bool -> IO ([Char], GValue) -constructExpanderExpanded val = constructObjectPropertyBool "expanded" val - -data ExpanderExpandedPropertyInfo -instance AttrInfo ExpanderExpandedPropertyInfo where - type AttrAllowedOps ExpanderExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderExpandedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ExpanderExpandedPropertyInfo = ExpanderK - type AttrGetType ExpanderExpandedPropertyInfo = Bool - type AttrLabel ExpanderExpandedPropertyInfo = "expanded" - attrGet _ = getExpanderExpanded - attrSet _ = setExpanderExpanded - attrConstruct _ = constructExpanderExpanded - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text -getExpanderLabel obj = liftIO $ checkUnexpectedNothing "getExpanderLabel" $ getObjectPropertyString obj "label" - -setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m () -setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructExpanderLabel :: T.Text -> IO ([Char], GValue) -constructExpanderLabel val = constructObjectPropertyString "label" (Just val) - -clearExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m () -clearExpanderLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) - -data ExpanderLabelPropertyInfo -instance AttrInfo ExpanderLabelPropertyInfo where - type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK - type AttrGetType ExpanderLabelPropertyInfo = T.Text - type AttrLabel ExpanderLabelPropertyInfo = "label" - attrGet _ = getExpanderLabel - attrSet _ = setExpanderLabel - attrConstruct _ = constructExpanderLabel - attrClear _ = clearExpanderLabel - --- VVV Prop "label-fill" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> m Bool -getExpanderLabelFill obj = liftIO $ getObjectPropertyBool obj "label-fill" - -setExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> Bool -> m () -setExpanderLabelFill obj val = liftIO $ setObjectPropertyBool obj "label-fill" val - -constructExpanderLabelFill :: Bool -> IO ([Char], GValue) -constructExpanderLabelFill val = constructObjectPropertyBool "label-fill" val - -data ExpanderLabelFillPropertyInfo -instance AttrInfo ExpanderLabelFillPropertyInfo where - type AttrAllowedOps ExpanderLabelFillPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderLabelFillPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ExpanderLabelFillPropertyInfo = ExpanderK - type AttrGetType ExpanderLabelFillPropertyInfo = Bool - type AttrLabel ExpanderLabelFillPropertyInfo = "label-fill" - attrGet _ = getExpanderLabelFill - attrSet _ = setExpanderLabelFill - attrConstruct _ = constructExpanderLabelFill - attrClear _ = undefined - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget -getExpanderLabelWidget obj = liftIO $ checkUnexpectedNothing "getExpanderLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget - -setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m () -setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) - -constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) - -clearExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m () -clearExpanderLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) - -data ExpanderLabelWidgetPropertyInfo -instance AttrInfo ExpanderLabelWidgetPropertyInfo where - type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK - type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget - type AttrLabel ExpanderLabelWidgetPropertyInfo = "label-widget" - attrGet _ = getExpanderLabelWidget - attrSet _ = setExpanderLabelWidget - attrConstruct _ = constructExpanderLabelWidget - attrClear _ = clearExpanderLabelWidget - --- VVV Prop "resize-toplevel" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> m Bool -getExpanderResizeToplevel obj = liftIO $ getObjectPropertyBool obj "resize-toplevel" - -setExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> Bool -> m () -setExpanderResizeToplevel obj val = liftIO $ setObjectPropertyBool obj "resize-toplevel" val - -constructExpanderResizeToplevel :: Bool -> IO ([Char], GValue) -constructExpanderResizeToplevel val = constructObjectPropertyBool "resize-toplevel" val - -data ExpanderResizeToplevelPropertyInfo -instance AttrInfo ExpanderResizeToplevelPropertyInfo where - type AttrAllowedOps ExpanderResizeToplevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderResizeToplevelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ExpanderResizeToplevelPropertyInfo = ExpanderK - type AttrGetType ExpanderResizeToplevelPropertyInfo = Bool - type AttrLabel ExpanderResizeToplevelPropertyInfo = "resize-toplevel" - attrGet _ = getExpanderResizeToplevel - attrSet _ = setExpanderResizeToplevel - attrConstruct _ = constructExpanderResizeToplevel - attrClear _ = undefined - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32 -getExpanderSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m () -setExpanderSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructExpanderSpacing :: Int32 -> IO ([Char], GValue) -constructExpanderSpacing val = constructObjectPropertyInt32 "spacing" val - -data ExpanderSpacingPropertyInfo -instance AttrInfo ExpanderSpacingPropertyInfo where - type AttrAllowedOps ExpanderSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ExpanderSpacingPropertyInfo = ExpanderK - type AttrGetType ExpanderSpacingPropertyInfo = Int32 - type AttrLabel ExpanderSpacingPropertyInfo = "spacing" - attrGet _ = getExpanderSpacing - attrSet _ = setExpanderSpacing - attrConstruct _ = constructExpanderSpacing - attrClear _ = undefined - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> m Bool -getExpanderUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" - -setExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> Bool -> m () -setExpanderUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val - -constructExpanderUseMarkup :: Bool -> IO ([Char], GValue) -constructExpanderUseMarkup val = constructObjectPropertyBool "use-markup" val - -data ExpanderUseMarkupPropertyInfo -instance AttrInfo ExpanderUseMarkupPropertyInfo where - type AttrAllowedOps ExpanderUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderUseMarkupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ExpanderUseMarkupPropertyInfo = ExpanderK - type AttrGetType ExpanderUseMarkupPropertyInfo = Bool - type AttrLabel ExpanderUseMarkupPropertyInfo = "use-markup" - attrGet _ = getExpanderUseMarkup - attrSet _ = setExpanderUseMarkup - attrConstruct _ = constructExpanderUseMarkup - attrClear _ = undefined - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> m Bool -getExpanderUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> Bool -> m () -setExpanderUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructExpanderUseUnderline :: Bool -> IO ([Char], GValue) -constructExpanderUseUnderline val = constructObjectPropertyBool "use-underline" val - -data ExpanderUseUnderlinePropertyInfo -instance AttrInfo ExpanderUseUnderlinePropertyInfo where - type AttrAllowedOps ExpanderUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ExpanderUseUnderlinePropertyInfo = ExpanderK - type AttrGetType ExpanderUseUnderlinePropertyInfo = Bool - type AttrLabel ExpanderUseUnderlinePropertyInfo = "use-underline" - attrGet _ = getExpanderUseUnderline - attrSet _ = setExpanderUseUnderline - attrConstruct _ = constructExpanderUseUnderline - attrClear _ = undefined - -type instance AttributeList Expander = ExpanderAttributeList -type ExpanderAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("labelFill", ExpanderLabelFillPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useMarkup", ExpanderUseMarkupPropertyInfo), '("useUnderline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -expanderExpanded :: AttrLabelProxy "expanded" -expanderExpanded = AttrLabelProxy - -expanderLabel :: AttrLabelProxy "label" -expanderLabel = AttrLabelProxy - -expanderLabelFill :: AttrLabelProxy "labelFill" -expanderLabelFill = AttrLabelProxy - -expanderLabelWidget :: AttrLabelProxy "labelWidget" -expanderLabelWidget = AttrLabelProxy - -expanderResizeToplevel :: AttrLabelProxy "resizeToplevel" -expanderResizeToplevel = AttrLabelProxy - -expanderSpacing :: AttrLabelProxy "spacing" -expanderSpacing = AttrLabelProxy - -expanderUseMarkup :: AttrLabelProxy "useMarkup" -expanderUseMarkup = AttrLabelProxy - -expanderUseUnderline :: AttrLabelProxy "useUnderline" -expanderUseUnderline = AttrLabelProxy - -data ExpanderActivateSignalInfo -instance SignalInfo ExpanderActivateSignalInfo where - type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback - connectSignal _ = connectExpanderActivate - -type instance SignalList Expander = ExpanderSignalList -type ExpanderSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Expander::new --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Expander") --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_new" gtk_expander_new :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr Expander) - - -expanderNew :: - (MonadIO m) => - T.Text -- label - -> m Expander -- result -expanderNew label = liftIO $ do - label' <- textToCString label - result <- gtk_expander_new label' - checkUnexpectedReturnNULL "gtk_expander_new" result - result' <- (newObject Expander) result - freeMem label' - return result' - --- method Expander::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Expander") --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_new_with_mnemonic" gtk_expander_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr Expander) - - -expanderNewWithMnemonic :: - (MonadIO m) => - Maybe (T.Text) -- label - -> m Expander -- result -expanderNewWithMnemonic label = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_expander_new_with_mnemonic maybeLabel - checkUnexpectedReturnNULL "gtk_expander_new_with_mnemonic" result - result' <- (newObject Expander) result - freeMem maybeLabel - return result' - --- method Expander::get_expanded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_expanded" gtk_expander_get_expanded :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CInt - - -expanderGetExpanded :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Bool -- result -expanderGetExpanded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_expanded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ExpanderGetExpandedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetExpandedMethodInfo a signature where - overloadedMethod _ = expanderGetExpanded - --- method Expander::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_label" gtk_expander_get_label :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CString - - -expanderGetLabel :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m T.Text -- result -expanderGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_label _obj' - checkUnexpectedReturnNULL "gtk_expander_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ExpanderGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelMethodInfo a signature where - overloadedMethod _ = expanderGetLabel - --- method Expander::get_label_fill --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_label_fill" gtk_expander_get_label_fill :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CInt - - -expanderGetLabelFill :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Bool -- result -expanderGetLabelFill _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_label_fill _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ExpanderGetLabelFillMethodInfo -instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelFillMethodInfo a signature where - overloadedMethod _ = expanderGetLabelFill - --- method Expander::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_get_label_widget" gtk_expander_get_label_widget :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO (Ptr Widget) - - -expanderGetLabelWidget :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Widget -- result -expanderGetLabelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_label_widget _obj' - checkUnexpectedReturnNULL "gtk_expander_get_label_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ExpanderGetLabelWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelWidgetMethodInfo a signature where - overloadedMethod _ = expanderGetLabelWidget - --- method Expander::get_resize_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_resize_toplevel" gtk_expander_get_resize_toplevel :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CInt - - -expanderGetResizeToplevel :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Bool -- result -expanderGetResizeToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_resize_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ExpanderGetResizeToplevelMethodInfo -instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetResizeToplevelMethodInfo a signature where - overloadedMethod _ = expanderGetResizeToplevel - --- method Expander::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_spacing" gtk_expander_get_spacing :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO Int32 - - -expanderGetSpacing :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Int32 -- result -expanderGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_spacing _obj' - touchManagedPtr _obj - return result - -data ExpanderGetSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetSpacingMethodInfo a signature where - overloadedMethod _ = expanderGetSpacing - --- method Expander::get_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_use_markup" gtk_expander_get_use_markup :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CInt - - -expanderGetUseMarkup :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Bool -- result -expanderGetUseMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_use_markup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ExpanderGetUseMarkupMethodInfo -instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetUseMarkupMethodInfo a signature where - overloadedMethod _ = expanderGetUseMarkup - --- method Expander::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", 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 "gtk_expander_get_use_underline" gtk_expander_get_use_underline :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - IO CInt - - -expanderGetUseUnderline :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> m Bool -- result -expanderGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ExpanderGetUseUnderlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetUseUnderlineMethodInfo a signature where - overloadedMethod _ = expanderGetUseUnderline - --- method Expander::set_expanded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expanded", 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 "gtk_expander_set_expanded" gtk_expander_set_expanded :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CInt -> -- expanded : TBasicType TBoolean - IO () - - -expanderSetExpanded :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Bool -- expanded - -> m () -- result -expanderSetExpanded _obj expanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expanded' = (fromIntegral . fromEnum) expanded - gtk_expander_set_expanded _obj' expanded' - touchManagedPtr _obj - return () - -data ExpanderSetExpandedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetExpandedMethodInfo a signature where - overloadedMethod _ = expanderSetExpanded - --- method Expander::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_set_label" gtk_expander_set_label :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CString -> -- label : TBasicType TUTF8 - IO () - - -expanderSetLabel :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -expanderSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - gtk_expander_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data ExpanderSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetLabelMethodInfo a signature where - overloadedMethod _ = expanderSetLabel - --- method Expander::set_label_fill --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_fill", 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 "gtk_expander_set_label_fill" gtk_expander_set_label_fill :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CInt -> -- label_fill : TBasicType TBoolean - IO () - - -expanderSetLabelFill :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Bool -- labelFill - -> m () -- result -expanderSetLabelFill _obj labelFill = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let labelFill' = (fromIntegral . fromEnum) labelFill - gtk_expander_set_label_fill _obj' labelFill' - touchManagedPtr _obj - return () - -data ExpanderSetLabelFillMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetLabelFillMethodInfo a signature where - overloadedMethod _ = expanderSetLabelFill - --- method Expander::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_set_label_widget" gtk_expander_set_label_widget :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget" - IO () - - -expanderSetLabelWidget :: - (MonadIO m, ExpanderK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- labelWidget - -> m () -- result -expanderSetLabelWidget _obj labelWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabelWidget <- case labelWidget of - Nothing -> return nullPtr - Just jLabelWidget -> do - let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget - return jLabelWidget' - gtk_expander_set_label_widget _obj' maybeLabelWidget - touchManagedPtr _obj - whenJust labelWidget touchManagedPtr - return () - -data ExpanderSetLabelWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ExpanderK a, WidgetK b) => MethodInfo ExpanderSetLabelWidgetMethodInfo a signature where - overloadedMethod _ = expanderSetLabelWidget - --- method Expander::set_resize_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_toplevel", 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 "gtk_expander_set_resize_toplevel" gtk_expander_set_resize_toplevel :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CInt -> -- resize_toplevel : TBasicType TBoolean - IO () - - -expanderSetResizeToplevel :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Bool -- resizeToplevel - -> m () -- result -expanderSetResizeToplevel _obj resizeToplevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizeToplevel' = (fromIntegral . fromEnum) resizeToplevel - gtk_expander_set_resize_toplevel _obj' resizeToplevel' - touchManagedPtr _obj - return () - -data ExpanderSetResizeToplevelMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetResizeToplevelMethodInfo a signature where - overloadedMethod _ = expanderSetResizeToplevel - --- method Expander::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_expander_set_spacing" gtk_expander_set_spacing :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - Int32 -> -- spacing : TBasicType TInt - IO () - - -expanderSetSpacing :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Int32 -- spacing - -> m () -- result -expanderSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_expander_set_spacing _obj' spacing - touchManagedPtr _obj - return () - -data ExpanderSetSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetSpacingMethodInfo a signature where - overloadedMethod _ = expanderSetSpacing - --- method Expander::set_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_markup", 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 "gtk_expander_set_use_markup" gtk_expander_set_use_markup :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CInt -> -- use_markup : TBasicType TBoolean - IO () - - -expanderSetUseMarkup :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Bool -- useMarkup - -> m () -- result -expanderSetUseMarkup _obj useMarkup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useMarkup' = (fromIntegral . fromEnum) useMarkup - gtk_expander_set_use_markup _obj' useMarkup' - touchManagedPtr _obj - return () - -data ExpanderSetUseMarkupMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetUseMarkupMethodInfo a signature where - overloadedMethod _ = expanderSetUseMarkup - --- method Expander::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", 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 "gtk_expander_set_use_underline" gtk_expander_set_use_underline :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - CInt -> -- use_underline : TBasicType TBoolean - IO () - - -expanderSetUseUnderline :: - (MonadIO m, ExpanderK a) => - a -- _obj - -> Bool -- useUnderline - -> m () -- result -expanderSetUseUnderline _obj useUnderline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useUnderline' = (fromIntegral . fromEnum) useUnderline - gtk_expander_set_use_underline _obj' useUnderline' - touchManagedPtr _obj - return () - -data ExpanderSetUseUnderlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetUseUnderlineMethodInfo a signature where - overloadedMethod _ = expanderSetUseUnderline - - diff --git a/GI/Gtk/Objects/Expander.hs-boot b/GI/Gtk/Objects/Expander.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Expander.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gtk.Objects.Expander 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 Expander = Expander (ForeignPtr Expander) -instance GObject Expander where -class GObject o => ExpanderK o -instance (GObject o, IsDescendantOf Expander o) => ExpanderK o -data ExpanderExpandedPropertyInfo -data ExpanderLabelPropertyInfo -data ExpanderLabelFillPropertyInfo -data ExpanderLabelWidgetPropertyInfo -data ExpanderResizeToplevelPropertyInfo -data ExpanderSpacingPropertyInfo -data ExpanderUseMarkupPropertyInfo -data ExpanderUseUnderlinePropertyInfo -data ExpanderActivateSignalInfo -data ExpanderGetExpandedMethodInfo -data ExpanderGetLabelMethodInfo -data ExpanderGetLabelFillMethodInfo -data ExpanderGetLabelWidgetMethodInfo -data ExpanderGetResizeToplevelMethodInfo -data ExpanderGetSpacingMethodInfo -data ExpanderGetUseMarkupMethodInfo -data ExpanderGetUseUnderlineMethodInfo -data ExpanderSetExpandedMethodInfo -data ExpanderSetLabelMethodInfo -data ExpanderSetLabelFillMethodInfo -data ExpanderSetLabelWidgetMethodInfo -data ExpanderSetResizeToplevelMethodInfo -data ExpanderSetSpacingMethodInfo -data ExpanderSetUseMarkupMethodInfo -data ExpanderSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ExpanderAccessible.hs b/GI/Gtk/Objects/ExpanderAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ExpanderAccessible.hs +++ /dev/null @@ -1,129 +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.Gtk.Objects.ExpanderAccessible - ( - --- * Exported types - ExpanderAccessible(..) , - ExpanderAccessibleK , - toExpanderAccessible , - noExpanderAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ExpanderAccessible = ExpanderAccessible (ForeignPtr ExpanderAccessible) -foreign import ccall "gtk_expander_accessible_get_type" - c_gtk_expander_accessible_get_type :: IO GType - -type instance ParentTypes ExpanderAccessible = ExpanderAccessibleParentTypes -type ExpanderAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject ExpanderAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_expander_accessible_get_type - - -class GObject o => ExpanderAccessibleK o -instance (GObject o, IsDescendantOf ExpanderAccessible o) => ExpanderAccessibleK o - -toExpanderAccessible :: ExpanderAccessibleK o => o -> IO ExpanderAccessible -toExpanderAccessible = unsafeCastTo ExpanderAccessible - -noExpanderAccessible :: Maybe ExpanderAccessible -noExpanderAccessible = Nothing - -type family ResolveExpanderAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveExpanderAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveExpanderAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveExpanderAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveExpanderAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveExpanderAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveExpanderAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveExpanderAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveExpanderAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveExpanderAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveExpanderAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveExpanderAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveExpanderAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveExpanderAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveExpanderAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveExpanderAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveExpanderAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveExpanderAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveExpanderAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveExpanderAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveExpanderAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveExpanderAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveExpanderAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveExpanderAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveExpanderAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveExpanderAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveExpanderAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveExpanderAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveExpanderAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveExpanderAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveExpanderAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveExpanderAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveExpanderAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveExpanderAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveExpanderAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveExpanderAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveExpanderAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveExpanderAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveExpanderAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveExpanderAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveExpanderAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveExpanderAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveExpanderAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveExpanderAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveExpanderAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveExpanderAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveExpanderAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveExpanderAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveExpanderAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveExpanderAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveExpanderAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveExpanderAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveExpanderAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveExpanderAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveExpanderAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveExpanderAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveExpanderAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveExpanderAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveExpanderAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveExpanderAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveExpanderAccessibleMethod t ExpanderAccessible, MethodInfo info ExpanderAccessible p) => IsLabelProxy t (ExpanderAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveExpanderAccessibleMethod t ExpanderAccessible, MethodInfo info ExpanderAccessible p) => IsLabel t (ExpanderAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ExpanderAccessible = ExpanderAccessibleAttributeList -type ExpanderAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ExpanderAccessible = ExpanderAccessibleSignalList -type ExpanderAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ExpanderAccessible.hs-boot b/GI/Gtk/Objects/ExpanderAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ExpanderAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ExpanderAccessible 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 ExpanderAccessible = ExpanderAccessible (ForeignPtr ExpanderAccessible) -instance GObject ExpanderAccessible where -class GObject o => ExpanderAccessibleK o -instance (GObject o, IsDescendantOf ExpanderAccessible o) => ExpanderAccessibleK o diff --git a/GI/Gtk/Objects/FileChooserButton.hs b/GI/Gtk/Objects/FileChooserButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserButton.hs +++ /dev/null @@ -1,931 +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.Gtk.Objects.FileChooserButton - ( - --- * Exported types - FileChooserButton(..) , - FileChooserButtonK , - toFileChooserButton , - noFileChooserButton , - - - -- * Methods --- ** fileChooserButtonGetFocusOnClick - FileChooserButtonGetFocusOnClickMethodInfo, - fileChooserButtonGetFocusOnClick , - - --- ** fileChooserButtonGetTitle - FileChooserButtonGetTitleMethodInfo , - fileChooserButtonGetTitle , - - --- ** fileChooserButtonGetWidthChars - FileChooserButtonGetWidthCharsMethodInfo, - fileChooserButtonGetWidthChars , - - --- ** fileChooserButtonNew - fileChooserButtonNew , - - --- ** fileChooserButtonNewWithDialog - fileChooserButtonNewWithDialog , - - --- ** fileChooserButtonSetFocusOnClick - FileChooserButtonSetFocusOnClickMethodInfo, - fileChooserButtonSetFocusOnClick , - - --- ** fileChooserButtonSetTitle - FileChooserButtonSetTitleMethodInfo , - fileChooserButtonSetTitle , - - --- ** fileChooserButtonSetWidthChars - FileChooserButtonSetWidthCharsMethodInfo, - fileChooserButtonSetWidthChars , - - - - - -- * Properties --- ** Dialog - FileChooserButtonDialogPropertyInfo , - constructFileChooserButtonDialog , - fileChooserButtonDialog , - - --- ** FocusOnClick - FileChooserButtonFocusOnClickPropertyInfo, - constructFileChooserButtonFocusOnClick , - fileChooserButtonFocusOnClick , - getFileChooserButtonFocusOnClick , - setFileChooserButtonFocusOnClick , - - --- ** Title - FileChooserButtonTitlePropertyInfo , - constructFileChooserButtonTitle , - fileChooserButtonTitle , - getFileChooserButtonTitle , - setFileChooserButtonTitle , - - --- ** WidthChars - FileChooserButtonWidthCharsPropertyInfo , - constructFileChooserButtonWidthChars , - fileChooserButtonWidthChars , - getFileChooserButtonWidthChars , - setFileChooserButtonWidthChars , - - - - - -- * Signals --- ** FileSet - FileChooserButtonFileSetCallback , - FileChooserButtonFileSetCallbackC , - FileChooserButtonFileSetSignalInfo , - afterFileChooserButtonFileSet , - fileChooserButtonFileSetCallbackWrapper , - fileChooserButtonFileSetClosure , - mkFileChooserButtonFileSetCallback , - noFileChooserButtonFileSetCallback , - onFileChooserButtonFileSet , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FileChooserButton = FileChooserButton (ForeignPtr FileChooserButton) -foreign import ccall "gtk_file_chooser_button_get_type" - c_gtk_file_chooser_button_get_type :: IO GType - -type instance ParentTypes FileChooserButton = FileChooserButtonParentTypes -type FileChooserButtonParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser, Orientable] - -instance GObject FileChooserButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_chooser_button_get_type - - -class GObject o => FileChooserButtonK o -instance (GObject o, IsDescendantOf FileChooserButton o) => FileChooserButtonK o - -toFileChooserButton :: FileChooserButtonK o => o -> IO FileChooserButton -toFileChooserButton = unsafeCastTo FileChooserButton - -noFileChooserButton :: Maybe FileChooserButton -noFileChooserButton = Nothing - -type family ResolveFileChooserButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveFileChooserButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveFileChooserButtonMethod "add" o = ContainerAddMethodInfo - ResolveFileChooserButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFileChooserButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFileChooserButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFileChooserButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFileChooserButtonMethod "addFilter" o = FileChooserAddFilterMethodInfo - ResolveFileChooserButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFileChooserButtonMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo - ResolveFileChooserButtonMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo - ResolveFileChooserButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFileChooserButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileChooserButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileChooserButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFileChooserButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFileChooserButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFileChooserButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFileChooserButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFileChooserButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFileChooserButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFileChooserButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFileChooserButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFileChooserButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFileChooserButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFileChooserButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFileChooserButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFileChooserButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFileChooserButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFileChooserButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFileChooserButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFileChooserButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFileChooserButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFileChooserButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFileChooserButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFileChooserButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFileChooserButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFileChooserButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFileChooserButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFileChooserButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFileChooserButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFileChooserButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFileChooserButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFileChooserButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFileChooserButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFileChooserButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFileChooserButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFileChooserButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFileChooserButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFileChooserButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFileChooserButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFileChooserButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFileChooserButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFileChooserButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFileChooserButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFileChooserButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFileChooserButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFileChooserButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFileChooserButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFileChooserButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFileChooserButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveFileChooserButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFileChooserButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFileChooserButtonMethod "event" o = WidgetEventMethodInfo - ResolveFileChooserButtonMethod "forall" o = ContainerForallMethodInfo - ResolveFileChooserButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileChooserButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveFileChooserButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFileChooserButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileChooserButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFileChooserButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFileChooserButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFileChooserButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFileChooserButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFileChooserButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFileChooserButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFileChooserButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFileChooserButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFileChooserButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFileChooserButtonMethod "hide" o = WidgetHideMethodInfo - ResolveFileChooserButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFileChooserButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFileChooserButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFileChooserButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFileChooserButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFileChooserButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFileChooserButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFileChooserButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFileChooserButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFileChooserButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileChooserButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFileChooserButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFileChooserButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFileChooserButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFileChooserButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFileChooserButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFileChooserButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFileChooserButtonMethod "listFilters" o = FileChooserListFiltersMethodInfo - ResolveFileChooserButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFileChooserButtonMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo - ResolveFileChooserButtonMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo - ResolveFileChooserButtonMethod "map" o = WidgetMapMethodInfo - ResolveFileChooserButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFileChooserButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFileChooserButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFileChooserButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFileChooserButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFileChooserButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFileChooserButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFileChooserButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFileChooserButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileChooserButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileChooserButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFileChooserButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFileChooserButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFileChooserButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFileChooserButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFileChooserButtonMethod "packEnd" o = BoxPackEndMethodInfo - ResolveFileChooserButtonMethod "packStart" o = BoxPackStartMethodInfo - ResolveFileChooserButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFileChooserButtonMethod "path" o = WidgetPathMethodInfo - ResolveFileChooserButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFileChooserButtonMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveFileChooserButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFileChooserButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFileChooserButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFileChooserButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFileChooserButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFileChooserButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFileChooserButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveFileChooserButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileChooserButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileChooserButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFileChooserButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFileChooserButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveFileChooserButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFileChooserButtonMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo - ResolveFileChooserButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFileChooserButtonMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo - ResolveFileChooserButtonMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo - ResolveFileChooserButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFileChooserButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFileChooserButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFileChooserButtonMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveFileChooserButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveFileChooserButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileChooserButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileChooserButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFileChooserButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFileChooserButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFileChooserButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileChooserButtonMethod "selectAll" o = FileChooserSelectAllMethodInfo - ResolveFileChooserButtonMethod "selectFile" o = FileChooserSelectFileMethodInfo - ResolveFileChooserButtonMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo - ResolveFileChooserButtonMethod "selectUri" o = FileChooserSelectUriMethodInfo - ResolveFileChooserButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFileChooserButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFileChooserButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFileChooserButtonMethod "show" o = WidgetShowMethodInfo - ResolveFileChooserButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFileChooserButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFileChooserButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFileChooserButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFileChooserButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFileChooserButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileChooserButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileChooserButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFileChooserButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFileChooserButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFileChooserButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileChooserButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFileChooserButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFileChooserButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFileChooserButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFileChooserButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFileChooserButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileChooserButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFileChooserButtonMethod "unselectAll" o = FileChooserUnselectAllMethodInfo - ResolveFileChooserButtonMethod "unselectFile" o = FileChooserUnselectFileMethodInfo - ResolveFileChooserButtonMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo - ResolveFileChooserButtonMethod "unselectUri" o = FileChooserUnselectUriMethodInfo - ResolveFileChooserButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFileChooserButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFileChooserButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileChooserButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFileChooserButtonMethod "getAction" o = FileChooserGetActionMethodInfo - ResolveFileChooserButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFileChooserButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFileChooserButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFileChooserButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFileChooserButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFileChooserButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFileChooserButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFileChooserButtonMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveFileChooserButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFileChooserButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFileChooserButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFileChooserButtonMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveFileChooserButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFileChooserButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFileChooserButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFileChooserButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFileChooserButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFileChooserButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFileChooserButtonMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo - ResolveFileChooserButtonMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo - ResolveFileChooserButtonMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo - ResolveFileChooserButtonMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo - ResolveFileChooserButtonMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo - ResolveFileChooserButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileChooserButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFileChooserButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFileChooserButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFileChooserButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFileChooserButtonMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo - ResolveFileChooserButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFileChooserButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFileChooserButtonMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo - ResolveFileChooserButtonMethod "getFile" o = FileChooserGetFileMethodInfo - ResolveFileChooserButtonMethod "getFilename" o = FileChooserGetFilenameMethodInfo - ResolveFileChooserButtonMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo - ResolveFileChooserButtonMethod "getFiles" o = FileChooserGetFilesMethodInfo - ResolveFileChooserButtonMethod "getFilter" o = FileChooserGetFilterMethodInfo - ResolveFileChooserButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFileChooserButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFileChooserButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFileChooserButtonMethod "getFocusOnClick" o = FileChooserButtonGetFocusOnClickMethodInfo - ResolveFileChooserButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFileChooserButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFileChooserButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFileChooserButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFileChooserButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFileChooserButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFileChooserButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFileChooserButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFileChooserButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFileChooserButtonMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveFileChooserButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFileChooserButtonMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo - ResolveFileChooserButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFileChooserButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFileChooserButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFileChooserButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFileChooserButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFileChooserButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFileChooserButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFileChooserButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFileChooserButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFileChooserButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFileChooserButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFileChooserButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveFileChooserButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFileChooserButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFileChooserButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFileChooserButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFileChooserButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFileChooserButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFileChooserButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFileChooserButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFileChooserButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFileChooserButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFileChooserButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFileChooserButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFileChooserButtonMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo - ResolveFileChooserButtonMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo - ResolveFileChooserButtonMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo - ResolveFileChooserButtonMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo - ResolveFileChooserButtonMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo - ResolveFileChooserButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileChooserButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileChooserButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFileChooserButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFileChooserButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFileChooserButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFileChooserButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFileChooserButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFileChooserButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFileChooserButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFileChooserButtonMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo - ResolveFileChooserButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFileChooserButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFileChooserButtonMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo - ResolveFileChooserButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFileChooserButtonMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveFileChooserButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveFileChooserButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFileChooserButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFileChooserButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFileChooserButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFileChooserButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFileChooserButtonMethod "getTitle" o = FileChooserButtonGetTitleMethodInfo - ResolveFileChooserButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFileChooserButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFileChooserButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFileChooserButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFileChooserButtonMethod "getUri" o = FileChooserGetUriMethodInfo - ResolveFileChooserButtonMethod "getUris" o = FileChooserGetUrisMethodInfo - ResolveFileChooserButtonMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo - ResolveFileChooserButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFileChooserButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFileChooserButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFileChooserButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFileChooserButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFileChooserButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFileChooserButtonMethod "getWidthChars" o = FileChooserButtonGetWidthCharsMethodInfo - ResolveFileChooserButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFileChooserButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFileChooserButtonMethod "setAction" o = FileChooserSetActionMethodInfo - ResolveFileChooserButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFileChooserButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFileChooserButtonMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveFileChooserButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFileChooserButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFileChooserButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFileChooserButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFileChooserButtonMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveFileChooserButtonMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveFileChooserButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFileChooserButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFileChooserButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFileChooserButtonMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo - ResolveFileChooserButtonMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo - ResolveFileChooserButtonMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo - ResolveFileChooserButtonMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo - ResolveFileChooserButtonMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo - ResolveFileChooserButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileChooserButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFileChooserButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFileChooserButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFileChooserButtonMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo - ResolveFileChooserButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFileChooserButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFileChooserButtonMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo - ResolveFileChooserButtonMethod "setFile" o = FileChooserSetFileMethodInfo - ResolveFileChooserButtonMethod "setFilename" o = FileChooserSetFilenameMethodInfo - ResolveFileChooserButtonMethod "setFilter" o = FileChooserSetFilterMethodInfo - ResolveFileChooserButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFileChooserButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFileChooserButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFileChooserButtonMethod "setFocusOnClick" o = FileChooserButtonSetFocusOnClickMethodInfo - ResolveFileChooserButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFileChooserButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFileChooserButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFileChooserButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFileChooserButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFileChooserButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFileChooserButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFileChooserButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFileChooserButtonMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveFileChooserButtonMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo - ResolveFileChooserButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFileChooserButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFileChooserButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFileChooserButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFileChooserButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFileChooserButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFileChooserButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFileChooserButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFileChooserButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFileChooserButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveFileChooserButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFileChooserButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFileChooserButtonMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo - ResolveFileChooserButtonMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo - ResolveFileChooserButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileChooserButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFileChooserButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFileChooserButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFileChooserButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFileChooserButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFileChooserButtonMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo - ResolveFileChooserButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFileChooserButtonMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo - ResolveFileChooserButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFileChooserButtonMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveFileChooserButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveFileChooserButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFileChooserButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFileChooserButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFileChooserButtonMethod "setTitle" o = FileChooserButtonSetTitleMethodInfo - ResolveFileChooserButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFileChooserButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFileChooserButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFileChooserButtonMethod "setUri" o = FileChooserSetUriMethodInfo - ResolveFileChooserButtonMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo - ResolveFileChooserButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFileChooserButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFileChooserButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFileChooserButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFileChooserButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFileChooserButtonMethod "setWidthChars" o = FileChooserButtonSetWidthCharsMethodInfo - ResolveFileChooserButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFileChooserButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileChooserButtonMethod t FileChooserButton, MethodInfo info FileChooserButton p) => IsLabelProxy t (FileChooserButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileChooserButtonMethod t FileChooserButton, MethodInfo info FileChooserButton p) => IsLabel t (FileChooserButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FileChooserButton::file-set -type FileChooserButtonFileSetCallback = - IO () - -noFileChooserButtonFileSetCallback :: Maybe FileChooserButtonFileSetCallback -noFileChooserButtonFileSetCallback = Nothing - -type FileChooserButtonFileSetCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserButtonFileSetCallback :: FileChooserButtonFileSetCallbackC -> IO (FunPtr FileChooserButtonFileSetCallbackC) - -fileChooserButtonFileSetClosure :: FileChooserButtonFileSetCallback -> IO Closure -fileChooserButtonFileSetClosure cb = newCClosure =<< mkFileChooserButtonFileSetCallback wrapped - where wrapped = fileChooserButtonFileSetCallbackWrapper cb - -fileChooserButtonFileSetCallbackWrapper :: - FileChooserButtonFileSetCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserButtonFileSetCallbackWrapper _cb _ _ = do - _cb - -onFileChooserButtonFileSet :: (GObject a, MonadIO m) => a -> FileChooserButtonFileSetCallback -> m SignalHandlerId -onFileChooserButtonFileSet obj cb = liftIO $ connectFileChooserButtonFileSet obj cb SignalConnectBefore -afterFileChooserButtonFileSet :: (GObject a, MonadIO m) => a -> FileChooserButtonFileSetCallback -> m SignalHandlerId -afterFileChooserButtonFileSet obj cb = connectFileChooserButtonFileSet obj cb SignalConnectAfter - -connectFileChooserButtonFileSet :: (GObject a, MonadIO m) => - a -> FileChooserButtonFileSetCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserButtonFileSet obj cb after = liftIO $ do - cb' <- mkFileChooserButtonFileSetCallback (fileChooserButtonFileSetCallbackWrapper cb) - connectSignalFunPtr obj "file-set" cb' after - --- VVV Prop "dialog" - -- Type: TInterface "Gtk" "FileChooser" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructFileChooserButtonDialog :: (FileChooserK a) => a -> IO ([Char], GValue) -constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" (Just val) - -data FileChooserButtonDialogPropertyInfo -instance AttrInfo FileChooserButtonDialogPropertyInfo where - type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK - type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK - type AttrGetType FileChooserButtonDialogPropertyInfo = () - type AttrLabel FileChooserButtonDialogPropertyInfo = "dialog" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructFileChooserButtonDialog - attrClear _ = undefined - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserButtonFocusOnClick :: (MonadIO m, FileChooserButtonK o) => o -> m Bool -getFileChooserButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" - -setFileChooserButtonFocusOnClick :: (MonadIO m, FileChooserButtonK o) => o -> Bool -> m () -setFileChooserButtonFocusOnClick obj val = liftIO $ setObjectPropertyBool obj "focus-on-click" val - -constructFileChooserButtonFocusOnClick :: Bool -> IO ([Char], GValue) -constructFileChooserButtonFocusOnClick val = constructObjectPropertyBool "focus-on-click" val - -data FileChooserButtonFocusOnClickPropertyInfo -instance AttrInfo FileChooserButtonFocusOnClickPropertyInfo where - type AttrAllowedOps FileChooserButtonFocusOnClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserButtonFocusOnClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserButtonFocusOnClickPropertyInfo = FileChooserButtonK - type AttrGetType FileChooserButtonFocusOnClickPropertyInfo = Bool - type AttrLabel FileChooserButtonFocusOnClickPropertyInfo = "focus-on-click" - attrGet _ = getFileChooserButtonFocusOnClick - attrSet _ = setFileChooserButtonFocusOnClick - attrConstruct _ = constructFileChooserButtonFocusOnClick - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> m T.Text -getFileChooserButtonTitle obj = liftIO $ checkUnexpectedNothing "getFileChooserButtonTitle" $ getObjectPropertyString obj "title" - -setFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> T.Text -> m () -setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructFileChooserButtonTitle :: T.Text -> IO ([Char], GValue) -constructFileChooserButtonTitle val = constructObjectPropertyString "title" (Just val) - -data FileChooserButtonTitlePropertyInfo -instance AttrInfo FileChooserButtonTitlePropertyInfo where - type AttrAllowedOps FileChooserButtonTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserButtonTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FileChooserButtonTitlePropertyInfo = FileChooserButtonK - type AttrGetType FileChooserButtonTitlePropertyInfo = T.Text - type AttrLabel FileChooserButtonTitlePropertyInfo = "title" - attrGet _ = getFileChooserButtonTitle - attrSet _ = setFileChooserButtonTitle - attrConstruct _ = constructFileChooserButtonTitle - attrClear _ = undefined - --- VVV Prop "width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> m Int32 -getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" - -setFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> Int32 -> m () -setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val - -constructFileChooserButtonWidthChars :: Int32 -> IO ([Char], GValue) -constructFileChooserButtonWidthChars val = constructObjectPropertyInt32 "width-chars" val - -data FileChooserButtonWidthCharsPropertyInfo -instance AttrInfo FileChooserButtonWidthCharsPropertyInfo where - type AttrAllowedOps FileChooserButtonWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserButtonWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint FileChooserButtonWidthCharsPropertyInfo = FileChooserButtonK - type AttrGetType FileChooserButtonWidthCharsPropertyInfo = Int32 - type AttrLabel FileChooserButtonWidthCharsPropertyInfo = "width-chars" - attrGet _ = getFileChooserButtonWidthChars - attrSet _ = setFileChooserButtonWidthChars - attrConstruct _ = constructFileChooserButtonWidthChars - attrClear _ = undefined - -type instance AttributeList FileChooserButton = FileChooserButtonAttributeList -type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnClick", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", FileChooserButtonWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -fileChooserButtonDialog :: AttrLabelProxy "dialog" -fileChooserButtonDialog = AttrLabelProxy - -fileChooserButtonFocusOnClick :: AttrLabelProxy "focusOnClick" -fileChooserButtonFocusOnClick = AttrLabelProxy - -fileChooserButtonTitle :: AttrLabelProxy "title" -fileChooserButtonTitle = AttrLabelProxy - -fileChooserButtonWidthChars :: AttrLabelProxy "widthChars" -fileChooserButtonWidthChars = AttrLabelProxy - -data FileChooserButtonFileSetSignalInfo -instance SignalInfo FileChooserButtonFileSetSignalInfo where - type HaskellCallbackType FileChooserButtonFileSetSignalInfo = FileChooserButtonFileSetCallback - connectSignal _ = connectFileChooserButtonFileSet - -type instance SignalList FileChooserButton = FileChooserButtonSignalList -type FileChooserButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("fileSet", FileChooserButtonFileSetSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FileChooserButton::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileChooserButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_button_new" gtk_file_chooser_button_new :: - CString -> -- title : TBasicType TUTF8 - CUInt -> -- action : TInterface "Gtk" "FileChooserAction" - IO (Ptr FileChooserButton) - - -fileChooserButtonNew :: - (MonadIO m) => - T.Text -- title - -> FileChooserAction -- action - -> m FileChooserButton -- result -fileChooserButtonNew title action = liftIO $ do - title' <- textToCString title - let action' = (fromIntegral . fromEnum) action - result <- gtk_file_chooser_button_new title' action' - checkUnexpectedReturnNULL "gtk_file_chooser_button_new" result - result' <- (newObject FileChooserButton) result - freeMem title' - return result' - --- method FileChooserButton::new_with_dialog --- method type : Constructor --- Args : [Arg {argCName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileChooserButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_button_new_with_dialog" gtk_file_chooser_button_new_with_dialog :: - Ptr Dialog -> -- dialog : TInterface "Gtk" "Dialog" - IO (Ptr FileChooserButton) - - -fileChooserButtonNewWithDialog :: - (MonadIO m, DialogK a) => - a -- dialog - -> m FileChooserButton -- result -fileChooserButtonNewWithDialog dialog = liftIO $ do - let dialog' = unsafeManagedPtrCastPtr dialog - result <- gtk_file_chooser_button_new_with_dialog dialog' - checkUnexpectedReturnNULL "gtk_file_chooser_button_new_with_dialog" result - result' <- (newObject FileChooserButton) result - touchManagedPtr dialog - return result' - --- method FileChooserButton::get_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", 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 "gtk_file_chooser_button_get_focus_on_click" gtk_file_chooser_button_get_focus_on_click :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - IO CInt - - -fileChooserButtonGetFocusOnClick :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> m Bool -- result -fileChooserButtonGetFocusOnClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_button_get_focus_on_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileChooserButtonGetFocusOnClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetFocusOnClickMethodInfo a signature where - overloadedMethod _ = fileChooserButtonGetFocusOnClick - --- method FileChooserButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", 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 "gtk_file_chooser_button_get_title" gtk_file_chooser_button_get_title :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - IO CString - - -fileChooserButtonGetTitle :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> m T.Text -- result -fileChooserButtonGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_button_get_title _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_button_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileChooserButtonGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetTitleMethodInfo a signature where - overloadedMethod _ = fileChooserButtonGetTitle - --- method FileChooserButton::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", 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 "gtk_file_chooser_button_get_width_chars" gtk_file_chooser_button_get_width_chars :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - IO Int32 - - -fileChooserButtonGetWidthChars :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> m Int32 -- result -fileChooserButtonGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_button_get_width_chars _obj' - touchManagedPtr _obj - return result - -data FileChooserButtonGetWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetWidthCharsMethodInfo a signature where - overloadedMethod _ = fileChooserButtonGetWidthChars - --- method FileChooserButton::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", 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 "gtk_file_chooser_button_set_focus_on_click" gtk_file_chooser_button_set_focus_on_click :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - CInt -> -- focus_on_click : TBasicType TBoolean - IO () - - -fileChooserButtonSetFocusOnClick :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> Bool -- focusOnClick - -> m () -- result -fileChooserButtonSetFocusOnClick _obj focusOnClick = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusOnClick' = (fromIntegral . fromEnum) focusOnClick - gtk_file_chooser_button_set_focus_on_click _obj' focusOnClick' - touchManagedPtr _obj - return () - -data FileChooserButtonSetFocusOnClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetFocusOnClickMethodInfo a signature where - overloadedMethod _ = fileChooserButtonSetFocusOnClick - --- method FileChooserButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_file_chooser_button_set_title" gtk_file_chooser_button_set_title :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - CString -> -- title : TBasicType TUTF8 - IO () - - -fileChooserButtonSetTitle :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -fileChooserButtonSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_file_chooser_button_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data FileChooserButtonSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetTitleMethodInfo a signature where - overloadedMethod _ = fileChooserButtonSetTitle - --- method FileChooserButton::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_file_chooser_button_set_width_chars" gtk_file_chooser_button_set_width_chars :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - Int32 -> -- n_chars : TBasicType TInt - IO () - - -fileChooserButtonSetWidthChars :: - (MonadIO m, FileChooserButtonK a) => - a -- _obj - -> Int32 -- nChars - -> m () -- result -fileChooserButtonSetWidthChars _obj nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_button_set_width_chars _obj' nChars - touchManagedPtr _obj - return () - -data FileChooserButtonSetWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetWidthCharsMethodInfo a signature where - overloadedMethod _ = fileChooserButtonSetWidthChars - - diff --git a/GI/Gtk/Objects/FileChooserButton.hs-boot b/GI/Gtk/Objects/FileChooserButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserButton.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.FileChooserButton 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 FileChooserButton = FileChooserButton (ForeignPtr FileChooserButton) -instance GObject FileChooserButton where -class GObject o => FileChooserButtonK o -instance (GObject o, IsDescendantOf FileChooserButton o) => FileChooserButtonK o -data FileChooserButtonDialogPropertyInfo -data FileChooserButtonFocusOnClickPropertyInfo -data FileChooserButtonTitlePropertyInfo -data FileChooserButtonWidthCharsPropertyInfo -data FileChooserButtonFileSetSignalInfo -data FileChooserButtonGetFocusOnClickMethodInfo -data FileChooserButtonGetTitleMethodInfo -data FileChooserButtonGetWidthCharsMethodInfo -data FileChooserButtonSetFocusOnClickMethodInfo -data FileChooserButtonSetTitleMethodInfo -data FileChooserButtonSetWidthCharsMethodInfo diff --git a/GI/Gtk/Objects/FileChooserDialog.hs b/GI/Gtk/Objects/FileChooserDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserDialog.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.Gtk.Objects.FileChooserDialog - ( - --- * Exported types - FileChooserDialog(..) , - FileChooserDialogK , - toFileChooserDialog , - noFileChooserDialog , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FileChooserDialog = FileChooserDialog (ForeignPtr FileChooserDialog) -foreign import ccall "gtk_file_chooser_dialog_get_type" - c_gtk_file_chooser_dialog_get_type :: IO GType - -type instance ParentTypes FileChooserDialog = FileChooserDialogParentTypes -type FileChooserDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser] - -instance GObject FileChooserDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_chooser_dialog_get_type - - -class GObject o => FileChooserDialogK o -instance (GObject o, IsDescendantOf FileChooserDialog o) => FileChooserDialogK o - -toFileChooserDialog :: FileChooserDialogK o => o -> IO FileChooserDialog -toFileChooserDialog = unsafeCastTo FileChooserDialog - -noFileChooserDialog :: Maybe FileChooserDialog -noFileChooserDialog = Nothing - -type family ResolveFileChooserDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveFileChooserDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveFileChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveFileChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveFileChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveFileChooserDialogMethod "add" o = ContainerAddMethodInfo - ResolveFileChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveFileChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFileChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveFileChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveFileChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFileChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFileChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFileChooserDialogMethod "addFilter" o = FileChooserAddFilterMethodInfo - ResolveFileChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveFileChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFileChooserDialogMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo - ResolveFileChooserDialogMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo - ResolveFileChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFileChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveFileChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveFileChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFileChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFileChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFileChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFileChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFileChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFileChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFileChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFileChooserDialogMethod "close" o = WindowCloseMethodInfo - ResolveFileChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFileChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFileChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFileChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFileChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFileChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFileChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFileChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveFileChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFileChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFileChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFileChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFileChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFileChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFileChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFileChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFileChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFileChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFileChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFileChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFileChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFileChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFileChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFileChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFileChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFileChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFileChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFileChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFileChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFileChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFileChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFileChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFileChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFileChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFileChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFileChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFileChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFileChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFileChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFileChooserDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveFileChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFileChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFileChooserDialogMethod "event" o = WidgetEventMethodInfo - ResolveFileChooserDialogMethod "forall" o = ContainerForallMethodInfo - ResolveFileChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileChooserDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveFileChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFileChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveFileChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveFileChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFileChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFileChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFileChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFileChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFileChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFileChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFileChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveFileChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFileChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFileChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveFileChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFileChooserDialogMethod "hide" o = WidgetHideMethodInfo - ResolveFileChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFileChooserDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveFileChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFileChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFileChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFileChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFileChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFileChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveFileChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFileChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFileChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFileChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFileChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveFileChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFileChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFileChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFileChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFileChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFileChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFileChooserDialogMethod "listFilters" o = FileChooserListFiltersMethodInfo - ResolveFileChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFileChooserDialogMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo - ResolveFileChooserDialogMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo - ResolveFileChooserDialogMethod "map" o = WidgetMapMethodInfo - ResolveFileChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveFileChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFileChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFileChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFileChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFileChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFileChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFileChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFileChooserDialogMethod "move" o = WindowMoveMethodInfo - ResolveFileChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFileChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFileChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFileChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFileChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFileChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveFileChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFileChooserDialogMethod "path" o = WidgetPathMethodInfo - ResolveFileChooserDialogMethod "present" o = WindowPresentMethodInfo - ResolveFileChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveFileChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFileChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveFileChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFileChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFileChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFileChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFileChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFileChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFileChooserDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveFileChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFileChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFileChooserDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveFileChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveFileChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFileChooserDialogMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo - ResolveFileChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveFileChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFileChooserDialogMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo - ResolveFileChooserDialogMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo - ResolveFileChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFileChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFileChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFileChooserDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveFileChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFileChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFileChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveFileChooserDialogMethod "resize" o = WindowResizeMethodInfo - ResolveFileChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFileChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveFileChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveFileChooserDialogMethod "response" o = DialogResponseMethodInfo - ResolveFileChooserDialogMethod "run" o = DialogRunMethodInfo - ResolveFileChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileChooserDialogMethod "selectAll" o = FileChooserSelectAllMethodInfo - ResolveFileChooserDialogMethod "selectFile" o = FileChooserSelectFileMethodInfo - ResolveFileChooserDialogMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo - ResolveFileChooserDialogMethod "selectUri" o = FileChooserSelectUriMethodInfo - ResolveFileChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFileChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFileChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFileChooserDialogMethod "show" o = WidgetShowMethodInfo - ResolveFileChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFileChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFileChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFileChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFileChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFileChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileChooserDialogMethod "stick" o = WindowStickMethodInfo - ResolveFileChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFileChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFileChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFileChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFileChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFileChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveFileChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFileChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveFileChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFileChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFileChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFileChooserDialogMethod "unselectAll" o = FileChooserUnselectAllMethodInfo - ResolveFileChooserDialogMethod "unselectFile" o = FileChooserUnselectFileMethodInfo - ResolveFileChooserDialogMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo - ResolveFileChooserDialogMethod "unselectUri" o = FileChooserUnselectUriMethodInfo - ResolveFileChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFileChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFileChooserDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveFileChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveFileChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFileChooserDialogMethod "getAction" o = FileChooserGetActionMethodInfo - ResolveFileChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveFileChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFileChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFileChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFileChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFileChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFileChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFileChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFileChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveFileChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveFileChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFileChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFileChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFileChooserDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveFileChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFileChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFileChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFileChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFileChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFileChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFileChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveFileChooserDialogMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo - ResolveFileChooserDialogMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo - ResolveFileChooserDialogMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo - ResolveFileChooserDialogMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo - ResolveFileChooserDialogMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo - ResolveFileChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveFileChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveFileChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveFileChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveFileChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveFileChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFileChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFileChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFileChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFileChooserDialogMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo - ResolveFileChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFileChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFileChooserDialogMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo - ResolveFileChooserDialogMethod "getFile" o = FileChooserGetFileMethodInfo - ResolveFileChooserDialogMethod "getFilename" o = FileChooserGetFilenameMethodInfo - ResolveFileChooserDialogMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo - ResolveFileChooserDialogMethod "getFiles" o = FileChooserGetFilesMethodInfo - ResolveFileChooserDialogMethod "getFilter" o = FileChooserGetFilterMethodInfo - ResolveFileChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveFileChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFileChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFileChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFileChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveFileChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFileChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveFileChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFileChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFileChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFileChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveFileChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveFileChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFileChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveFileChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFileChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFileChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveFileChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFileChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFileChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveFileChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveFileChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveFileChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveFileChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFileChooserDialogMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo - ResolveFileChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFileChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFileChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFileChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFileChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFileChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFileChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFileChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveFileChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveFileChooserDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveFileChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFileChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFileChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFileChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFileChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFileChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFileChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFileChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFileChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFileChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveFileChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFileChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFileChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFileChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFileChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFileChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFileChooserDialogMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo - ResolveFileChooserDialogMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo - ResolveFileChooserDialogMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo - ResolveFileChooserDialogMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo - ResolveFileChooserDialogMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo - ResolveFileChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFileChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFileChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFileChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFileChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveFileChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveFileChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFileChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveFileChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveFileChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFileChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFileChooserDialogMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo - ResolveFileChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFileChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFileChooserDialogMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo - ResolveFileChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveFileChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFileChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveFileChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveFileChooserDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveFileChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFileChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFileChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFileChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFileChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFileChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveFileChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveFileChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFileChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFileChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFileChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFileChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveFileChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveFileChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveFileChooserDialogMethod "getUri" o = FileChooserGetUriMethodInfo - ResolveFileChooserDialogMethod "getUris" o = FileChooserGetUrisMethodInfo - ResolveFileChooserDialogMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo - ResolveFileChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFileChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFileChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFileChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFileChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFileChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFileChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveFileChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFileChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveFileChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFileChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveFileChooserDialogMethod "setAction" o = FileChooserSetActionMethodInfo - ResolveFileChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFileChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveFileChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFileChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveFileChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveFileChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFileChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFileChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFileChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFileChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFileChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFileChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFileChooserDialogMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo - ResolveFileChooserDialogMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo - ResolveFileChooserDialogMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo - ResolveFileChooserDialogMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo - ResolveFileChooserDialogMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo - ResolveFileChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveFileChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveFileChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveFileChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveFileChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveFileChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveFileChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveFileChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFileChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFileChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFileChooserDialogMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo - ResolveFileChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFileChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFileChooserDialogMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo - ResolveFileChooserDialogMethod "setFile" o = FileChooserSetFileMethodInfo - ResolveFileChooserDialogMethod "setFilename" o = FileChooserSetFilenameMethodInfo - ResolveFileChooserDialogMethod "setFilter" o = FileChooserSetFilterMethodInfo - ResolveFileChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveFileChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFileChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFileChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFileChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveFileChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFileChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveFileChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFileChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFileChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveFileChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveFileChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFileChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveFileChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFileChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveFileChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFileChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFileChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFileChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveFileChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveFileChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveFileChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveFileChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveFileChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveFileChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveFileChooserDialogMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo - ResolveFileChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFileChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFileChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFileChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFileChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFileChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFileChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFileChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveFileChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveFileChooserDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveFileChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFileChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFileChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFileChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveFileChooserDialogMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo - ResolveFileChooserDialogMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo - ResolveFileChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFileChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFileChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFileChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFileChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveFileChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFileChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveFileChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveFileChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveFileChooserDialogMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo - ResolveFileChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFileChooserDialogMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo - ResolveFileChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFileChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveFileChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveFileChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveFileChooserDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveFileChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFileChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFileChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFileChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveFileChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveFileChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFileChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFileChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFileChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveFileChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveFileChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveFileChooserDialogMethod "setUri" o = FileChooserSetUriMethodInfo - ResolveFileChooserDialogMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo - ResolveFileChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFileChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFileChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFileChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFileChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFileChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFileChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveFileChooserDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileChooserDialogMethod t FileChooserDialog, MethodInfo info FileChooserDialog p) => IsLabelProxy t (FileChooserDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileChooserDialogMethod t FileChooserDialog, MethodInfo info FileChooserDialog p) => IsLabel t (FileChooserDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileChooserDialog = FileChooserDialogAttributeList -type FileChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FileChooserDialog = FileChooserDialogSignalList -type FileChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/FileChooserDialog.hs-boot b/GI/Gtk/Objects/FileChooserDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserDialog.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FileChooserDialog 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 FileChooserDialog = FileChooserDialog (ForeignPtr FileChooserDialog) -instance GObject FileChooserDialog where -class GObject o => FileChooserDialogK o -instance (GObject o, IsDescendantOf FileChooserDialog o) => FileChooserDialogK o diff --git a/GI/Gtk/Objects/FileChooserWidget.hs b/GI/Gtk/Objects/FileChooserWidget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserWidget.hs +++ /dev/null @@ -1,1226 +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.Gtk.Objects.FileChooserWidget - ( - --- * Exported types - FileChooserWidget(..) , - FileChooserWidgetK , - toFileChooserWidget , - noFileChooserWidget , - - - -- * Methods --- ** fileChooserWidgetNew - fileChooserWidgetNew , - - - - - -- * Properties --- ** SearchMode - FileChooserWidgetSearchModePropertyInfo , - constructFileChooserWidgetSearchMode , - fileChooserWidgetSearchMode , - getFileChooserWidgetSearchMode , - setFileChooserWidgetSearchMode , - - --- ** Subtitle - FileChooserWidgetSubtitlePropertyInfo , - fileChooserWidgetSubtitle , - getFileChooserWidgetSubtitle , - - - - - -- * Signals --- ** DesktopFolder - FileChooserWidgetDesktopFolderCallback , - FileChooserWidgetDesktopFolderCallbackC , - FileChooserWidgetDesktopFolderSignalInfo, - afterFileChooserWidgetDesktopFolder , - fileChooserWidgetDesktopFolderCallbackWrapper, - fileChooserWidgetDesktopFolderClosure , - mkFileChooserWidgetDesktopFolderCallback, - noFileChooserWidgetDesktopFolderCallback, - onFileChooserWidgetDesktopFolder , - - --- ** DownFolder - FileChooserWidgetDownFolderCallback , - FileChooserWidgetDownFolderCallbackC , - FileChooserWidgetDownFolderSignalInfo , - afterFileChooserWidgetDownFolder , - fileChooserWidgetDownFolderCallbackWrapper, - fileChooserWidgetDownFolderClosure , - mkFileChooserWidgetDownFolderCallback , - noFileChooserWidgetDownFolderCallback , - onFileChooserWidgetDownFolder , - - --- ** HomeFolder - FileChooserWidgetHomeFolderCallback , - FileChooserWidgetHomeFolderCallbackC , - FileChooserWidgetHomeFolderSignalInfo , - afterFileChooserWidgetHomeFolder , - fileChooserWidgetHomeFolderCallbackWrapper, - fileChooserWidgetHomeFolderClosure , - mkFileChooserWidgetHomeFolderCallback , - noFileChooserWidgetHomeFolderCallback , - onFileChooserWidgetHomeFolder , - - --- ** LocationPopup - FileChooserWidgetLocationPopupCallback , - FileChooserWidgetLocationPopupCallbackC , - FileChooserWidgetLocationPopupSignalInfo, - afterFileChooserWidgetLocationPopup , - fileChooserWidgetLocationPopupCallbackWrapper, - fileChooserWidgetLocationPopupClosure , - mkFileChooserWidgetLocationPopupCallback, - noFileChooserWidgetLocationPopupCallback, - onFileChooserWidgetLocationPopup , - - --- ** LocationPopupOnPaste - FileChooserWidgetLocationPopupOnPasteCallback, - FileChooserWidgetLocationPopupOnPasteCallbackC, - FileChooserWidgetLocationPopupOnPasteSignalInfo, - afterFileChooserWidgetLocationPopupOnPaste, - fileChooserWidgetLocationPopupOnPasteCallbackWrapper, - fileChooserWidgetLocationPopupOnPasteClosure, - mkFileChooserWidgetLocationPopupOnPasteCallback, - noFileChooserWidgetLocationPopupOnPasteCallback, - onFileChooserWidgetLocationPopupOnPaste , - - --- ** LocationTogglePopup - FileChooserWidgetLocationTogglePopupCallback, - FileChooserWidgetLocationTogglePopupCallbackC, - FileChooserWidgetLocationTogglePopupSignalInfo, - afterFileChooserWidgetLocationTogglePopup, - fileChooserWidgetLocationTogglePopupCallbackWrapper, - fileChooserWidgetLocationTogglePopupClosure, - mkFileChooserWidgetLocationTogglePopupCallback, - noFileChooserWidgetLocationTogglePopupCallback, - onFileChooserWidgetLocationTogglePopup , - - --- ** PlacesShortcut - FileChooserWidgetPlacesShortcutCallback , - FileChooserWidgetPlacesShortcutCallbackC, - FileChooserWidgetPlacesShortcutSignalInfo, - afterFileChooserWidgetPlacesShortcut , - fileChooserWidgetPlacesShortcutCallbackWrapper, - fileChooserWidgetPlacesShortcutClosure , - mkFileChooserWidgetPlacesShortcutCallback, - noFileChooserWidgetPlacesShortcutCallback, - onFileChooserWidgetPlacesShortcut , - - --- ** QuickBookmark - FileChooserWidgetQuickBookmarkCallback , - FileChooserWidgetQuickBookmarkCallbackC , - FileChooserWidgetQuickBookmarkSignalInfo, - afterFileChooserWidgetQuickBookmark , - fileChooserWidgetQuickBookmarkCallbackWrapper, - fileChooserWidgetQuickBookmarkClosure , - mkFileChooserWidgetQuickBookmarkCallback, - noFileChooserWidgetQuickBookmarkCallback, - onFileChooserWidgetQuickBookmark , - - --- ** RecentShortcut - FileChooserWidgetRecentShortcutCallback , - FileChooserWidgetRecentShortcutCallbackC, - FileChooserWidgetRecentShortcutSignalInfo, - afterFileChooserWidgetRecentShortcut , - fileChooserWidgetRecentShortcutCallbackWrapper, - fileChooserWidgetRecentShortcutClosure , - mkFileChooserWidgetRecentShortcutCallback, - noFileChooserWidgetRecentShortcutCallback, - onFileChooserWidgetRecentShortcut , - - --- ** SearchShortcut - FileChooserWidgetSearchShortcutCallback , - FileChooserWidgetSearchShortcutCallbackC, - FileChooserWidgetSearchShortcutSignalInfo, - afterFileChooserWidgetSearchShortcut , - fileChooserWidgetSearchShortcutCallbackWrapper, - fileChooserWidgetSearchShortcutClosure , - mkFileChooserWidgetSearchShortcutCallback, - noFileChooserWidgetSearchShortcutCallback, - onFileChooserWidgetSearchShortcut , - - --- ** ShowHidden - FileChooserWidgetShowHiddenCallback , - FileChooserWidgetShowHiddenCallbackC , - FileChooserWidgetShowHiddenSignalInfo , - afterFileChooserWidgetShowHidden , - fileChooserWidgetShowHiddenCallbackWrapper, - fileChooserWidgetShowHiddenClosure , - mkFileChooserWidgetShowHiddenCallback , - noFileChooserWidgetShowHiddenCallback , - onFileChooserWidgetShowHidden , - - --- ** UpFolder - FileChooserWidgetUpFolderCallback , - FileChooserWidgetUpFolderCallbackC , - FileChooserWidgetUpFolderSignalInfo , - afterFileChooserWidgetUpFolder , - fileChooserWidgetUpFolderCallbackWrapper, - fileChooserWidgetUpFolderClosure , - mkFileChooserWidgetUpFolderCallback , - noFileChooserWidgetUpFolderCallback , - onFileChooserWidgetUpFolder , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FileChooserWidget = FileChooserWidget (ForeignPtr FileChooserWidget) -foreign import ccall "gtk_file_chooser_widget_get_type" - c_gtk_file_chooser_widget_get_type :: IO GType - -type instance ParentTypes FileChooserWidget = FileChooserWidgetParentTypes -type FileChooserWidgetParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FileChooser, Orientable] - -instance GObject FileChooserWidget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_chooser_widget_get_type - - -class GObject o => FileChooserWidgetK o -instance (GObject o, IsDescendantOf FileChooserWidget o) => FileChooserWidgetK o - -toFileChooserWidget :: FileChooserWidgetK o => o -> IO FileChooserWidget -toFileChooserWidget = unsafeCastTo FileChooserWidget - -noFileChooserWidget :: Maybe FileChooserWidget -noFileChooserWidget = Nothing - -type family ResolveFileChooserWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveFileChooserWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveFileChooserWidgetMethod "add" o = ContainerAddMethodInfo - ResolveFileChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFileChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFileChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFileChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFileChooserWidgetMethod "addFilter" o = FileChooserAddFilterMethodInfo - ResolveFileChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFileChooserWidgetMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo - ResolveFileChooserWidgetMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo - ResolveFileChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFileChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFileChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFileChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFileChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFileChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFileChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFileChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFileChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFileChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFileChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFileChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFileChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFileChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFileChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFileChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFileChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFileChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFileChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFileChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFileChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFileChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFileChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFileChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFileChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFileChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFileChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFileChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFileChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFileChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFileChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFileChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFileChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFileChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFileChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFileChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFileChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFileChooserWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveFileChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFileChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFileChooserWidgetMethod "event" o = WidgetEventMethodInfo - ResolveFileChooserWidgetMethod "forall" o = ContainerForallMethodInfo - ResolveFileChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo - ResolveFileChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFileChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFileChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFileChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFileChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFileChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFileChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFileChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFileChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFileChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFileChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFileChooserWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveFileChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFileChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFileChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFileChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFileChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFileChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFileChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFileChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFileChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFileChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFileChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFileChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFileChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFileChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFileChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFileChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFileChooserWidgetMethod "listFilters" o = FileChooserListFiltersMethodInfo - ResolveFileChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFileChooserWidgetMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo - ResolveFileChooserWidgetMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo - ResolveFileChooserWidgetMethod "map" o = WidgetMapMethodInfo - ResolveFileChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFileChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFileChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFileChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFileChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFileChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFileChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFileChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFileChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFileChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFileChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFileChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFileChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFileChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo - ResolveFileChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo - ResolveFileChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFileChooserWidgetMethod "path" o = WidgetPathMethodInfo - ResolveFileChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFileChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveFileChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFileChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFileChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFileChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFileChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFileChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFileChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveFileChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFileChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFileChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo - ResolveFileChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFileChooserWidgetMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo - ResolveFileChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFileChooserWidgetMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo - ResolveFileChooserWidgetMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo - ResolveFileChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFileChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFileChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFileChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveFileChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveFileChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFileChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFileChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFileChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileChooserWidgetMethod "selectAll" o = FileChooserSelectAllMethodInfo - ResolveFileChooserWidgetMethod "selectFile" o = FileChooserSelectFileMethodInfo - ResolveFileChooserWidgetMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo - ResolveFileChooserWidgetMethod "selectUri" o = FileChooserSelectUriMethodInfo - ResolveFileChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFileChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFileChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFileChooserWidgetMethod "show" o = WidgetShowMethodInfo - ResolveFileChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFileChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFileChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFileChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFileChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFileChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFileChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFileChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFileChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFileChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFileChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFileChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFileChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFileChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFileChooserWidgetMethod "unselectAll" o = FileChooserUnselectAllMethodInfo - ResolveFileChooserWidgetMethod "unselectFile" o = FileChooserUnselectFileMethodInfo - ResolveFileChooserWidgetMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo - ResolveFileChooserWidgetMethod "unselectUri" o = FileChooserUnselectUriMethodInfo - ResolveFileChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFileChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFileChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFileChooserWidgetMethod "getAction" o = FileChooserGetActionMethodInfo - ResolveFileChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFileChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFileChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFileChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFileChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFileChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFileChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFileChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveFileChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFileChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFileChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFileChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveFileChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFileChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFileChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFileChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFileChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFileChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFileChooserWidgetMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo - ResolveFileChooserWidgetMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo - ResolveFileChooserWidgetMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo - ResolveFileChooserWidgetMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo - ResolveFileChooserWidgetMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo - ResolveFileChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFileChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFileChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFileChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFileChooserWidgetMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo - ResolveFileChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFileChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFileChooserWidgetMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo - ResolveFileChooserWidgetMethod "getFile" o = FileChooserGetFileMethodInfo - ResolveFileChooserWidgetMethod "getFilename" o = FileChooserGetFilenameMethodInfo - ResolveFileChooserWidgetMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo - ResolveFileChooserWidgetMethod "getFiles" o = FileChooserGetFilesMethodInfo - ResolveFileChooserWidgetMethod "getFilter" o = FileChooserGetFilterMethodInfo - ResolveFileChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFileChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFileChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFileChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFileChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFileChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFileChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFileChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFileChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFileChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFileChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFileChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFileChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveFileChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFileChooserWidgetMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo - ResolveFileChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFileChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFileChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFileChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFileChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFileChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFileChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFileChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFileChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFileChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFileChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFileChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveFileChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFileChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFileChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFileChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFileChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFileChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFileChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFileChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFileChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFileChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFileChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFileChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFileChooserWidgetMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo - ResolveFileChooserWidgetMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo - ResolveFileChooserWidgetMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo - ResolveFileChooserWidgetMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo - ResolveFileChooserWidgetMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo - ResolveFileChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFileChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFileChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFileChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFileChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFileChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFileChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFileChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFileChooserWidgetMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo - ResolveFileChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFileChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFileChooserWidgetMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo - ResolveFileChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFileChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveFileChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveFileChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFileChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFileChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFileChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFileChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFileChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFileChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFileChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFileChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFileChooserWidgetMethod "getUri" o = FileChooserGetUriMethodInfo - ResolveFileChooserWidgetMethod "getUris" o = FileChooserGetUrisMethodInfo - ResolveFileChooserWidgetMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo - ResolveFileChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFileChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFileChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFileChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFileChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFileChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFileChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFileChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFileChooserWidgetMethod "setAction" o = FileChooserSetActionMethodInfo - ResolveFileChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFileChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFileChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveFileChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFileChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFileChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFileChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFileChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveFileChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveFileChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFileChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFileChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFileChooserWidgetMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo - ResolveFileChooserWidgetMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo - ResolveFileChooserWidgetMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo - ResolveFileChooserWidgetMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo - ResolveFileChooserWidgetMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo - ResolveFileChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFileChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFileChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFileChooserWidgetMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo - ResolveFileChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFileChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFileChooserWidgetMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo - ResolveFileChooserWidgetMethod "setFile" o = FileChooserSetFileMethodInfo - ResolveFileChooserWidgetMethod "setFilename" o = FileChooserSetFilenameMethodInfo - ResolveFileChooserWidgetMethod "setFilter" o = FileChooserSetFilterMethodInfo - ResolveFileChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFileChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFileChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFileChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFileChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFileChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFileChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFileChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFileChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFileChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFileChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFileChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveFileChooserWidgetMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo - ResolveFileChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFileChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFileChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFileChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFileChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFileChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFileChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFileChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFileChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFileChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveFileChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFileChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFileChooserWidgetMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo - ResolveFileChooserWidgetMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo - ResolveFileChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFileChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFileChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFileChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFileChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFileChooserWidgetMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo - ResolveFileChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFileChooserWidgetMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo - ResolveFileChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFileChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveFileChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveFileChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFileChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFileChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFileChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFileChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFileChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFileChooserWidgetMethod "setUri" o = FileChooserSetUriMethodInfo - ResolveFileChooserWidgetMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo - ResolveFileChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFileChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFileChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFileChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFileChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFileChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFileChooserWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, MethodInfo info FileChooserWidget p) => IsLabelProxy t (FileChooserWidget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, MethodInfo info FileChooserWidget p) => IsLabel t (FileChooserWidget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FileChooserWidget::desktop-folder -type FileChooserWidgetDesktopFolderCallback = - IO () - -noFileChooserWidgetDesktopFolderCallback :: Maybe FileChooserWidgetDesktopFolderCallback -noFileChooserWidgetDesktopFolderCallback = Nothing - -type FileChooserWidgetDesktopFolderCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetDesktopFolderCallback :: FileChooserWidgetDesktopFolderCallbackC -> IO (FunPtr FileChooserWidgetDesktopFolderCallbackC) - -fileChooserWidgetDesktopFolderClosure :: FileChooserWidgetDesktopFolderCallback -> IO Closure -fileChooserWidgetDesktopFolderClosure cb = newCClosure =<< mkFileChooserWidgetDesktopFolderCallback wrapped - where wrapped = fileChooserWidgetDesktopFolderCallbackWrapper cb - -fileChooserWidgetDesktopFolderCallbackWrapper :: - FileChooserWidgetDesktopFolderCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetDesktopFolderCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId -onFileChooserWidgetDesktopFolder obj cb = liftIO $ connectFileChooserWidgetDesktopFolder obj cb SignalConnectBefore -afterFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDesktopFolderCallback -> m SignalHandlerId -afterFileChooserWidgetDesktopFolder obj cb = connectFileChooserWidgetDesktopFolder obj cb SignalConnectAfter - -connectFileChooserWidgetDesktopFolder :: (GObject a, MonadIO m) => - a -> FileChooserWidgetDesktopFolderCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetDesktopFolder obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetDesktopFolderCallback (fileChooserWidgetDesktopFolderCallbackWrapper cb) - connectSignalFunPtr obj "desktop-folder" cb' after - --- signal FileChooserWidget::down-folder -type FileChooserWidgetDownFolderCallback = - IO () - -noFileChooserWidgetDownFolderCallback :: Maybe FileChooserWidgetDownFolderCallback -noFileChooserWidgetDownFolderCallback = Nothing - -type FileChooserWidgetDownFolderCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetDownFolderCallback :: FileChooserWidgetDownFolderCallbackC -> IO (FunPtr FileChooserWidgetDownFolderCallbackC) - -fileChooserWidgetDownFolderClosure :: FileChooserWidgetDownFolderCallback -> IO Closure -fileChooserWidgetDownFolderClosure cb = newCClosure =<< mkFileChooserWidgetDownFolderCallback wrapped - where wrapped = fileChooserWidgetDownFolderCallbackWrapper cb - -fileChooserWidgetDownFolderCallbackWrapper :: - FileChooserWidgetDownFolderCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetDownFolderCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetDownFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId -onFileChooserWidgetDownFolder obj cb = liftIO $ connectFileChooserWidgetDownFolder obj cb SignalConnectBefore -afterFileChooserWidgetDownFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetDownFolderCallback -> m SignalHandlerId -afterFileChooserWidgetDownFolder obj cb = connectFileChooserWidgetDownFolder obj cb SignalConnectAfter - -connectFileChooserWidgetDownFolder :: (GObject a, MonadIO m) => - a -> FileChooserWidgetDownFolderCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetDownFolder obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetDownFolderCallback (fileChooserWidgetDownFolderCallbackWrapper cb) - connectSignalFunPtr obj "down-folder" cb' after - --- signal FileChooserWidget::home-folder -type FileChooserWidgetHomeFolderCallback = - IO () - -noFileChooserWidgetHomeFolderCallback :: Maybe FileChooserWidgetHomeFolderCallback -noFileChooserWidgetHomeFolderCallback = Nothing - -type FileChooserWidgetHomeFolderCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetHomeFolderCallback :: FileChooserWidgetHomeFolderCallbackC -> IO (FunPtr FileChooserWidgetHomeFolderCallbackC) - -fileChooserWidgetHomeFolderClosure :: FileChooserWidgetHomeFolderCallback -> IO Closure -fileChooserWidgetHomeFolderClosure cb = newCClosure =<< mkFileChooserWidgetHomeFolderCallback wrapped - where wrapped = fileChooserWidgetHomeFolderCallbackWrapper cb - -fileChooserWidgetHomeFolderCallbackWrapper :: - FileChooserWidgetHomeFolderCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetHomeFolderCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId -onFileChooserWidgetHomeFolder obj cb = liftIO $ connectFileChooserWidgetHomeFolder obj cb SignalConnectBefore -afterFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetHomeFolderCallback -> m SignalHandlerId -afterFileChooserWidgetHomeFolder obj cb = connectFileChooserWidgetHomeFolder obj cb SignalConnectAfter - -connectFileChooserWidgetHomeFolder :: (GObject a, MonadIO m) => - a -> FileChooserWidgetHomeFolderCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetHomeFolder obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetHomeFolderCallback (fileChooserWidgetHomeFolderCallbackWrapper cb) - connectSignalFunPtr obj "home-folder" cb' after - --- signal FileChooserWidget::location-popup -type FileChooserWidgetLocationPopupCallback = - T.Text -> - IO () - -noFileChooserWidgetLocationPopupCallback :: Maybe FileChooserWidgetLocationPopupCallback -noFileChooserWidgetLocationPopupCallback = Nothing - -type FileChooserWidgetLocationPopupCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetLocationPopupCallback :: FileChooserWidgetLocationPopupCallbackC -> IO (FunPtr FileChooserWidgetLocationPopupCallbackC) - -fileChooserWidgetLocationPopupClosure :: FileChooserWidgetLocationPopupCallback -> IO Closure -fileChooserWidgetLocationPopupClosure cb = newCClosure =<< mkFileChooserWidgetLocationPopupCallback wrapped - where wrapped = fileChooserWidgetLocationPopupCallbackWrapper cb - -fileChooserWidgetLocationPopupCallbackWrapper :: - FileChooserWidgetLocationPopupCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -fileChooserWidgetLocationPopupCallbackWrapper _cb _ path _ = do - path' <- cstringToText path - _cb path' - -onFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId -onFileChooserWidgetLocationPopup obj cb = liftIO $ connectFileChooserWidgetLocationPopup obj cb SignalConnectBefore -afterFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupCallback -> m SignalHandlerId -afterFileChooserWidgetLocationPopup obj cb = connectFileChooserWidgetLocationPopup obj cb SignalConnectAfter - -connectFileChooserWidgetLocationPopup :: (GObject a, MonadIO m) => - a -> FileChooserWidgetLocationPopupCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetLocationPopup obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetLocationPopupCallback (fileChooserWidgetLocationPopupCallbackWrapper cb) - connectSignalFunPtr obj "location-popup" cb' after - --- signal FileChooserWidget::location-popup-on-paste -type FileChooserWidgetLocationPopupOnPasteCallback = - IO () - -noFileChooserWidgetLocationPopupOnPasteCallback :: Maybe FileChooserWidgetLocationPopupOnPasteCallback -noFileChooserWidgetLocationPopupOnPasteCallback = Nothing - -type FileChooserWidgetLocationPopupOnPasteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetLocationPopupOnPasteCallback :: FileChooserWidgetLocationPopupOnPasteCallbackC -> IO (FunPtr FileChooserWidgetLocationPopupOnPasteCallbackC) - -fileChooserWidgetLocationPopupOnPasteClosure :: FileChooserWidgetLocationPopupOnPasteCallback -> IO Closure -fileChooserWidgetLocationPopupOnPasteClosure cb = newCClosure =<< mkFileChooserWidgetLocationPopupOnPasteCallback wrapped - where wrapped = fileChooserWidgetLocationPopupOnPasteCallbackWrapper cb - -fileChooserWidgetLocationPopupOnPasteCallbackWrapper :: - FileChooserWidgetLocationPopupOnPasteCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetLocationPopupOnPasteCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId -onFileChooserWidgetLocationPopupOnPaste obj cb = liftIO $ connectFileChooserWidgetLocationPopupOnPaste obj cb SignalConnectBefore -afterFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationPopupOnPasteCallback -> m SignalHandlerId -afterFileChooserWidgetLocationPopupOnPaste obj cb = connectFileChooserWidgetLocationPopupOnPaste obj cb SignalConnectAfter - -connectFileChooserWidgetLocationPopupOnPaste :: (GObject a, MonadIO m) => - a -> FileChooserWidgetLocationPopupOnPasteCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetLocationPopupOnPaste obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetLocationPopupOnPasteCallback (fileChooserWidgetLocationPopupOnPasteCallbackWrapper cb) - connectSignalFunPtr obj "location-popup-on-paste" cb' after - --- signal FileChooserWidget::location-toggle-popup -type FileChooserWidgetLocationTogglePopupCallback = - IO () - -noFileChooserWidgetLocationTogglePopupCallback :: Maybe FileChooserWidgetLocationTogglePopupCallback -noFileChooserWidgetLocationTogglePopupCallback = Nothing - -type FileChooserWidgetLocationTogglePopupCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetLocationTogglePopupCallback :: FileChooserWidgetLocationTogglePopupCallbackC -> IO (FunPtr FileChooserWidgetLocationTogglePopupCallbackC) - -fileChooserWidgetLocationTogglePopupClosure :: FileChooserWidgetLocationTogglePopupCallback -> IO Closure -fileChooserWidgetLocationTogglePopupClosure cb = newCClosure =<< mkFileChooserWidgetLocationTogglePopupCallback wrapped - where wrapped = fileChooserWidgetLocationTogglePopupCallbackWrapper cb - -fileChooserWidgetLocationTogglePopupCallbackWrapper :: - FileChooserWidgetLocationTogglePopupCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetLocationTogglePopupCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId -onFileChooserWidgetLocationTogglePopup obj cb = liftIO $ connectFileChooserWidgetLocationTogglePopup obj cb SignalConnectBefore -afterFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) => a -> FileChooserWidgetLocationTogglePopupCallback -> m SignalHandlerId -afterFileChooserWidgetLocationTogglePopup obj cb = connectFileChooserWidgetLocationTogglePopup obj cb SignalConnectAfter - -connectFileChooserWidgetLocationTogglePopup :: (GObject a, MonadIO m) => - a -> FileChooserWidgetLocationTogglePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetLocationTogglePopup obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetLocationTogglePopupCallback (fileChooserWidgetLocationTogglePopupCallbackWrapper cb) - connectSignalFunPtr obj "location-toggle-popup" cb' after - --- signal FileChooserWidget::places-shortcut -type FileChooserWidgetPlacesShortcutCallback = - IO () - -noFileChooserWidgetPlacesShortcutCallback :: Maybe FileChooserWidgetPlacesShortcutCallback -noFileChooserWidgetPlacesShortcutCallback = Nothing - -type FileChooserWidgetPlacesShortcutCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetPlacesShortcutCallback :: FileChooserWidgetPlacesShortcutCallbackC -> IO (FunPtr FileChooserWidgetPlacesShortcutCallbackC) - -fileChooserWidgetPlacesShortcutClosure :: FileChooserWidgetPlacesShortcutCallback -> IO Closure -fileChooserWidgetPlacesShortcutClosure cb = newCClosure =<< mkFileChooserWidgetPlacesShortcutCallback wrapped - where wrapped = fileChooserWidgetPlacesShortcutCallbackWrapper cb - -fileChooserWidgetPlacesShortcutCallbackWrapper :: - FileChooserWidgetPlacesShortcutCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetPlacesShortcutCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId -onFileChooserWidgetPlacesShortcut obj cb = liftIO $ connectFileChooserWidgetPlacesShortcut obj cb SignalConnectBefore -afterFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetPlacesShortcutCallback -> m SignalHandlerId -afterFileChooserWidgetPlacesShortcut obj cb = connectFileChooserWidgetPlacesShortcut obj cb SignalConnectAfter - -connectFileChooserWidgetPlacesShortcut :: (GObject a, MonadIO m) => - a -> FileChooserWidgetPlacesShortcutCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetPlacesShortcut obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetPlacesShortcutCallback (fileChooserWidgetPlacesShortcutCallbackWrapper cb) - connectSignalFunPtr obj "places-shortcut" cb' after - --- signal FileChooserWidget::quick-bookmark -type FileChooserWidgetQuickBookmarkCallback = - Int32 -> - IO () - -noFileChooserWidgetQuickBookmarkCallback :: Maybe FileChooserWidgetQuickBookmarkCallback -noFileChooserWidgetQuickBookmarkCallback = Nothing - -type FileChooserWidgetQuickBookmarkCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetQuickBookmarkCallback :: FileChooserWidgetQuickBookmarkCallbackC -> IO (FunPtr FileChooserWidgetQuickBookmarkCallbackC) - -fileChooserWidgetQuickBookmarkClosure :: FileChooserWidgetQuickBookmarkCallback -> IO Closure -fileChooserWidgetQuickBookmarkClosure cb = newCClosure =<< mkFileChooserWidgetQuickBookmarkCallback wrapped - where wrapped = fileChooserWidgetQuickBookmarkCallbackWrapper cb - -fileChooserWidgetQuickBookmarkCallbackWrapper :: - FileChooserWidgetQuickBookmarkCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -fileChooserWidgetQuickBookmarkCallbackWrapper _cb _ bookmarkIndex _ = do - _cb bookmarkIndex - -onFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId -onFileChooserWidgetQuickBookmark obj cb = liftIO $ connectFileChooserWidgetQuickBookmark obj cb SignalConnectBefore -afterFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId -afterFileChooserWidgetQuickBookmark obj cb = connectFileChooserWidgetQuickBookmark obj cb SignalConnectAfter - -connectFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => - a -> FileChooserWidgetQuickBookmarkCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetQuickBookmark obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetQuickBookmarkCallback (fileChooserWidgetQuickBookmarkCallbackWrapper cb) - connectSignalFunPtr obj "quick-bookmark" cb' after - --- signal FileChooserWidget::recent-shortcut -type FileChooserWidgetRecentShortcutCallback = - IO () - -noFileChooserWidgetRecentShortcutCallback :: Maybe FileChooserWidgetRecentShortcutCallback -noFileChooserWidgetRecentShortcutCallback = Nothing - -type FileChooserWidgetRecentShortcutCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetRecentShortcutCallback :: FileChooserWidgetRecentShortcutCallbackC -> IO (FunPtr FileChooserWidgetRecentShortcutCallbackC) - -fileChooserWidgetRecentShortcutClosure :: FileChooserWidgetRecentShortcutCallback -> IO Closure -fileChooserWidgetRecentShortcutClosure cb = newCClosure =<< mkFileChooserWidgetRecentShortcutCallback wrapped - where wrapped = fileChooserWidgetRecentShortcutCallbackWrapper cb - -fileChooserWidgetRecentShortcutCallbackWrapper :: - FileChooserWidgetRecentShortcutCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetRecentShortcutCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId -onFileChooserWidgetRecentShortcut obj cb = liftIO $ connectFileChooserWidgetRecentShortcut obj cb SignalConnectBefore -afterFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetRecentShortcutCallback -> m SignalHandlerId -afterFileChooserWidgetRecentShortcut obj cb = connectFileChooserWidgetRecentShortcut obj cb SignalConnectAfter - -connectFileChooserWidgetRecentShortcut :: (GObject a, MonadIO m) => - a -> FileChooserWidgetRecentShortcutCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetRecentShortcut obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetRecentShortcutCallback (fileChooserWidgetRecentShortcutCallbackWrapper cb) - connectSignalFunPtr obj "recent-shortcut" cb' after - --- signal FileChooserWidget::search-shortcut -type FileChooserWidgetSearchShortcutCallback = - IO () - -noFileChooserWidgetSearchShortcutCallback :: Maybe FileChooserWidgetSearchShortcutCallback -noFileChooserWidgetSearchShortcutCallback = Nothing - -type FileChooserWidgetSearchShortcutCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetSearchShortcutCallback :: FileChooserWidgetSearchShortcutCallbackC -> IO (FunPtr FileChooserWidgetSearchShortcutCallbackC) - -fileChooserWidgetSearchShortcutClosure :: FileChooserWidgetSearchShortcutCallback -> IO Closure -fileChooserWidgetSearchShortcutClosure cb = newCClosure =<< mkFileChooserWidgetSearchShortcutCallback wrapped - where wrapped = fileChooserWidgetSearchShortcutCallbackWrapper cb - -fileChooserWidgetSearchShortcutCallbackWrapper :: - FileChooserWidgetSearchShortcutCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetSearchShortcutCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId -onFileChooserWidgetSearchShortcut obj cb = liftIO $ connectFileChooserWidgetSearchShortcut obj cb SignalConnectBefore -afterFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) => a -> FileChooserWidgetSearchShortcutCallback -> m SignalHandlerId -afterFileChooserWidgetSearchShortcut obj cb = connectFileChooserWidgetSearchShortcut obj cb SignalConnectAfter - -connectFileChooserWidgetSearchShortcut :: (GObject a, MonadIO m) => - a -> FileChooserWidgetSearchShortcutCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetSearchShortcut obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetSearchShortcutCallback (fileChooserWidgetSearchShortcutCallbackWrapper cb) - connectSignalFunPtr obj "search-shortcut" cb' after - --- signal FileChooserWidget::show-hidden -type FileChooserWidgetShowHiddenCallback = - IO () - -noFileChooserWidgetShowHiddenCallback :: Maybe FileChooserWidgetShowHiddenCallback -noFileChooserWidgetShowHiddenCallback = Nothing - -type FileChooserWidgetShowHiddenCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetShowHiddenCallback :: FileChooserWidgetShowHiddenCallbackC -> IO (FunPtr FileChooserWidgetShowHiddenCallbackC) - -fileChooserWidgetShowHiddenClosure :: FileChooserWidgetShowHiddenCallback -> IO Closure -fileChooserWidgetShowHiddenClosure cb = newCClosure =<< mkFileChooserWidgetShowHiddenCallback wrapped - where wrapped = fileChooserWidgetShowHiddenCallbackWrapper cb - -fileChooserWidgetShowHiddenCallbackWrapper :: - FileChooserWidgetShowHiddenCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetShowHiddenCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetShowHidden :: (GObject a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId -onFileChooserWidgetShowHidden obj cb = liftIO $ connectFileChooserWidgetShowHidden obj cb SignalConnectBefore -afterFileChooserWidgetShowHidden :: (GObject a, MonadIO m) => a -> FileChooserWidgetShowHiddenCallback -> m SignalHandlerId -afterFileChooserWidgetShowHidden obj cb = connectFileChooserWidgetShowHidden obj cb SignalConnectAfter - -connectFileChooserWidgetShowHidden :: (GObject a, MonadIO m) => - a -> FileChooserWidgetShowHiddenCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetShowHidden obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetShowHiddenCallback (fileChooserWidgetShowHiddenCallbackWrapper cb) - connectSignalFunPtr obj "show-hidden" cb' after - --- signal FileChooserWidget::up-folder -type FileChooserWidgetUpFolderCallback = - IO () - -noFileChooserWidgetUpFolderCallback :: Maybe FileChooserWidgetUpFolderCallback -noFileChooserWidgetUpFolderCallback = Nothing - -type FileChooserWidgetUpFolderCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserWidgetUpFolderCallback :: FileChooserWidgetUpFolderCallbackC -> IO (FunPtr FileChooserWidgetUpFolderCallbackC) - -fileChooserWidgetUpFolderClosure :: FileChooserWidgetUpFolderCallback -> IO Closure -fileChooserWidgetUpFolderClosure cb = newCClosure =<< mkFileChooserWidgetUpFolderCallback wrapped - where wrapped = fileChooserWidgetUpFolderCallbackWrapper cb - -fileChooserWidgetUpFolderCallbackWrapper :: - FileChooserWidgetUpFolderCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserWidgetUpFolderCallbackWrapper _cb _ _ = do - _cb - -onFileChooserWidgetUpFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId -onFileChooserWidgetUpFolder obj cb = liftIO $ connectFileChooserWidgetUpFolder obj cb SignalConnectBefore -afterFileChooserWidgetUpFolder :: (GObject a, MonadIO m) => a -> FileChooserWidgetUpFolderCallback -> m SignalHandlerId -afterFileChooserWidgetUpFolder obj cb = connectFileChooserWidgetUpFolder obj cb SignalConnectAfter - -connectFileChooserWidgetUpFolder :: (GObject a, MonadIO m) => - a -> FileChooserWidgetUpFolderCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserWidgetUpFolder obj cb after = liftIO $ do - cb' <- mkFileChooserWidgetUpFolderCallback (fileChooserWidgetUpFolderCallbackWrapper cb) - connectSignalFunPtr obj "up-folder" cb' after - --- VVV Prop "search-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getFileChooserWidgetSearchMode :: (MonadIO m, FileChooserWidgetK o) => o -> m Bool -getFileChooserWidgetSearchMode obj = liftIO $ getObjectPropertyBool obj "search-mode" - -setFileChooserWidgetSearchMode :: (MonadIO m, FileChooserWidgetK o) => o -> Bool -> m () -setFileChooserWidgetSearchMode obj val = liftIO $ setObjectPropertyBool obj "search-mode" val - -constructFileChooserWidgetSearchMode :: Bool -> IO ([Char], GValue) -constructFileChooserWidgetSearchMode val = constructObjectPropertyBool "search-mode" val - -data FileChooserWidgetSearchModePropertyInfo -instance AttrInfo FileChooserWidgetSearchModePropertyInfo where - type AttrAllowedOps FileChooserWidgetSearchModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserWidgetSearchModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserWidgetSearchModePropertyInfo = FileChooserWidgetK - type AttrGetType FileChooserWidgetSearchModePropertyInfo = Bool - type AttrLabel FileChooserWidgetSearchModePropertyInfo = "search-mode" - attrGet _ = getFileChooserWidgetSearchMode - attrSet _ = setFileChooserWidgetSearchMode - attrConstruct _ = constructFileChooserWidgetSearchMode - attrClear _ = undefined - --- VVV Prop "subtitle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m (Maybe T.Text) -getFileChooserWidgetSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" - -data FileChooserWidgetSubtitlePropertyInfo -instance AttrInfo FileChooserWidgetSubtitlePropertyInfo where - type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) () - type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = FileChooserWidgetK - type AttrGetType FileChooserWidgetSubtitlePropertyInfo = (Maybe T.Text) - type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "subtitle" - attrGet _ = getFileChooserWidgetSubtitle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList FileChooserWidget = FileChooserWidgetAttributeList -type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchMode", FileChooserWidgetSearchModePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -fileChooserWidgetSearchMode :: AttrLabelProxy "searchMode" -fileChooserWidgetSearchMode = AttrLabelProxy - -fileChooserWidgetSubtitle :: AttrLabelProxy "subtitle" -fileChooserWidgetSubtitle = AttrLabelProxy - -data FileChooserWidgetDesktopFolderSignalInfo -instance SignalInfo FileChooserWidgetDesktopFolderSignalInfo where - type HaskellCallbackType FileChooserWidgetDesktopFolderSignalInfo = FileChooserWidgetDesktopFolderCallback - connectSignal _ = connectFileChooserWidgetDesktopFolder - -data FileChooserWidgetDownFolderSignalInfo -instance SignalInfo FileChooserWidgetDownFolderSignalInfo where - type HaskellCallbackType FileChooserWidgetDownFolderSignalInfo = FileChooserWidgetDownFolderCallback - connectSignal _ = connectFileChooserWidgetDownFolder - -data FileChooserWidgetHomeFolderSignalInfo -instance SignalInfo FileChooserWidgetHomeFolderSignalInfo where - type HaskellCallbackType FileChooserWidgetHomeFolderSignalInfo = FileChooserWidgetHomeFolderCallback - connectSignal _ = connectFileChooserWidgetHomeFolder - -data FileChooserWidgetLocationPopupSignalInfo -instance SignalInfo FileChooserWidgetLocationPopupSignalInfo where - type HaskellCallbackType FileChooserWidgetLocationPopupSignalInfo = FileChooserWidgetLocationPopupCallback - connectSignal _ = connectFileChooserWidgetLocationPopup - -data FileChooserWidgetLocationPopupOnPasteSignalInfo -instance SignalInfo FileChooserWidgetLocationPopupOnPasteSignalInfo where - type HaskellCallbackType FileChooserWidgetLocationPopupOnPasteSignalInfo = FileChooserWidgetLocationPopupOnPasteCallback - connectSignal _ = connectFileChooserWidgetLocationPopupOnPaste - -data FileChooserWidgetLocationTogglePopupSignalInfo -instance SignalInfo FileChooserWidgetLocationTogglePopupSignalInfo where - type HaskellCallbackType FileChooserWidgetLocationTogglePopupSignalInfo = FileChooserWidgetLocationTogglePopupCallback - connectSignal _ = connectFileChooserWidgetLocationTogglePopup - -data FileChooserWidgetPlacesShortcutSignalInfo -instance SignalInfo FileChooserWidgetPlacesShortcutSignalInfo where - type HaskellCallbackType FileChooserWidgetPlacesShortcutSignalInfo = FileChooserWidgetPlacesShortcutCallback - connectSignal _ = connectFileChooserWidgetPlacesShortcut - -data FileChooserWidgetQuickBookmarkSignalInfo -instance SignalInfo FileChooserWidgetQuickBookmarkSignalInfo where - type HaskellCallbackType FileChooserWidgetQuickBookmarkSignalInfo = FileChooserWidgetQuickBookmarkCallback - connectSignal _ = connectFileChooserWidgetQuickBookmark - -data FileChooserWidgetRecentShortcutSignalInfo -instance SignalInfo FileChooserWidgetRecentShortcutSignalInfo where - type HaskellCallbackType FileChooserWidgetRecentShortcutSignalInfo = FileChooserWidgetRecentShortcutCallback - connectSignal _ = connectFileChooserWidgetRecentShortcut - -data FileChooserWidgetSearchShortcutSignalInfo -instance SignalInfo FileChooserWidgetSearchShortcutSignalInfo where - type HaskellCallbackType FileChooserWidgetSearchShortcutSignalInfo = FileChooserWidgetSearchShortcutCallback - connectSignal _ = connectFileChooserWidgetSearchShortcut - -data FileChooserWidgetShowHiddenSignalInfo -instance SignalInfo FileChooserWidgetShowHiddenSignalInfo where - type HaskellCallbackType FileChooserWidgetShowHiddenSignalInfo = FileChooserWidgetShowHiddenCallback - connectSignal _ = connectFileChooserWidgetShowHidden - -data FileChooserWidgetUpFolderSignalInfo -instance SignalInfo FileChooserWidgetUpFolderSignalInfo where - type HaskellCallbackType FileChooserWidgetUpFolderSignalInfo = FileChooserWidgetUpFolderCallback - connectSignal _ = connectFileChooserWidgetUpFolder - -type instance SignalList FileChooserWidget = FileChooserWidgetSignalList -type FileChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("desktopFolder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("downFolder", FileChooserWidgetDownFolderSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("homeFolder", FileChooserWidgetHomeFolderSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("locationPopup", FileChooserWidgetLocationPopupSignalInfo), '("locationPopupOnPaste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("locationTogglePopup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("placesShortcut", FileChooserWidgetPlacesShortcutSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("quickBookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", WidgetRealizeSignalInfo), '("recentShortcut", FileChooserWidgetRecentShortcutSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("searchShortcut", FileChooserWidgetSearchShortcutSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showHidden", FileChooserWidgetShowHiddenSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("upFolder", FileChooserWidgetUpFolderSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FileChooserWidget::new --- method type : Constructor --- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_widget_new" gtk_file_chooser_widget_new :: - CUInt -> -- action : TInterface "Gtk" "FileChooserAction" - IO (Ptr FileChooserWidget) - - -fileChooserWidgetNew :: - (MonadIO m) => - FileChooserAction -- action - -> m FileChooserWidget -- result -fileChooserWidgetNew action = liftIO $ do - let action' = (fromIntegral . fromEnum) action - result <- gtk_file_chooser_widget_new action' - checkUnexpectedReturnNULL "gtk_file_chooser_widget_new" result - result' <- (newObject FileChooserWidget) result - return result' - - diff --git a/GI/Gtk/Objects/FileChooserWidget.hs-boot b/GI/Gtk/Objects/FileChooserWidget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FileChooserWidget.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gtk.Objects.FileChooserWidget 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 FileChooserWidget = FileChooserWidget (ForeignPtr FileChooserWidget) -instance GObject FileChooserWidget where -class GObject o => FileChooserWidgetK o -instance (GObject o, IsDescendantOf FileChooserWidget o) => FileChooserWidgetK o -data FileChooserWidgetSearchModePropertyInfo -data FileChooserWidgetSubtitlePropertyInfo -data FileChooserWidgetDesktopFolderSignalInfo -data FileChooserWidgetDownFolderSignalInfo -data FileChooserWidgetHomeFolderSignalInfo -data FileChooserWidgetLocationPopupSignalInfo -data FileChooserWidgetLocationPopupOnPasteSignalInfo -data FileChooserWidgetLocationTogglePopupSignalInfo -data FileChooserWidgetPlacesShortcutSignalInfo -data FileChooserWidgetQuickBookmarkSignalInfo -data FileChooserWidgetRecentShortcutSignalInfo -data FileChooserWidgetSearchShortcutSignalInfo -data FileChooserWidgetShowHiddenSignalInfo -data FileChooserWidgetUpFolderSignalInfo diff --git a/GI/Gtk/Objects/FileFilter.hs b/GI/Gtk/Objects/FileFilter.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FileFilter.hs +++ /dev/null @@ -1,425 +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.Gtk.Objects.FileFilter - ( - --- * Exported types - FileFilter(..) , - FileFilterK , - toFileFilter , - noFileFilter , - - - -- * Methods --- ** fileFilterAddCustom - FileFilterAddCustomMethodInfo , - fileFilterAddCustom , - - --- ** fileFilterAddMimeType - FileFilterAddMimeTypeMethodInfo , - fileFilterAddMimeType , - - --- ** fileFilterAddPattern - FileFilterAddPatternMethodInfo , - fileFilterAddPattern , - - --- ** fileFilterAddPixbufFormats - FileFilterAddPixbufFormatsMethodInfo , - fileFilterAddPixbufFormats , - - --- ** fileFilterFilter - FileFilterFilterMethodInfo , - fileFilterFilter , - - --- ** fileFilterGetName - FileFilterGetNameMethodInfo , - fileFilterGetName , - - --- ** fileFilterGetNeeded - FileFilterGetNeededMethodInfo , - fileFilterGetNeeded , - - --- ** fileFilterNew - fileFilterNew , - - --- ** fileFilterSetName - FileFilterSetNameMethodInfo , - fileFilterSetName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype FileFilter = FileFilter (ForeignPtr FileFilter) -foreign import ccall "gtk_file_filter_get_type" - c_gtk_file_filter_get_type :: IO GType - -type instance ParentTypes FileFilter = FileFilterParentTypes -type FileFilterParentTypes = '[GObject.Object, Buildable] - -instance GObject FileFilter where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_filter_get_type - - -class GObject o => FileFilterK o -instance (GObject o, IsDescendantOf FileFilter o) => FileFilterK o - -toFileFilter :: FileFilterK o => o -> IO FileFilter -toFileFilter = unsafeCastTo FileFilter - -noFileFilter :: Maybe FileFilter -noFileFilter = Nothing - -type family ResolveFileFilterMethod (t :: Symbol) (o :: *) :: * where - ResolveFileFilterMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFileFilterMethod "addCustom" o = FileFilterAddCustomMethodInfo - ResolveFileFilterMethod "addMimeType" o = FileFilterAddMimeTypeMethodInfo - ResolveFileFilterMethod "addPattern" o = FileFilterAddPatternMethodInfo - ResolveFileFilterMethod "addPixbufFormats" o = FileFilterAddPixbufFormatsMethodInfo - ResolveFileFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileFilterMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFileFilterMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFileFilterMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFileFilterMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFileFilterMethod "filter" o = FileFilterFilterMethodInfo - ResolveFileFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileFilterMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFileFilterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileFilterMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFileFilterMethod "getNeeded" o = FileFilterGetNeededMethodInfo - ResolveFileFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileFilterMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFileFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileFilterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileFilterMethod t FileFilter, MethodInfo info FileFilter p) => IsLabelProxy t (FileFilter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileFilterMethod t FileFilter, MethodInfo info FileFilter p) => IsLabel t (FileFilter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileFilter = FileFilterAttributeList -type FileFilterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileFilter = FileFilterSignalList -type FileFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileFilter::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileFilter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_filter_new" gtk_file_filter_new :: - IO (Ptr FileFilter) - - -fileFilterNew :: - (MonadIO m) => - m FileFilter -- result -fileFilterNew = liftIO $ do - result <- gtk_file_filter_new - checkUnexpectedReturnNULL "gtk_file_filter_new" result - result' <- (newObject FileFilter) result - return result' - --- method FileFilter::add_custom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_filter_add_custom" gtk_file_filter_add_custom :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - CUInt -> -- needed : TInterface "Gtk" "FileFilterFlags" - FunPtr FileFilterFuncC -> -- func : TInterface "Gtk" "FileFilterFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -fileFilterAddCustom :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> [FileFilterFlags] -- needed - -> FileFilterFunc -- func - -> m () -- result -fileFilterAddCustom _obj needed func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let needed' = gflagsToWord needed - func' <- mkFileFilterFunc (fileFilterFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - gtk_file_filter_add_custom _obj' needed' func' data_ notify - touchManagedPtr _obj - return () - -data FileFilterAddCustomMethodInfo -instance (signature ~ ([FileFilterFlags] -> FileFilterFunc -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddCustomMethodInfo a signature where - overloadedMethod _ = fileFilterAddCustom - --- method FileFilter::add_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_filter_add_mime_type" gtk_file_filter_add_mime_type :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - CString -> -- mime_type : TBasicType TUTF8 - IO () - - -fileFilterAddMimeType :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> T.Text -- mimeType - -> m () -- result -fileFilterAddMimeType _obj mimeType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mimeType' <- textToCString mimeType - gtk_file_filter_add_mime_type _obj' mimeType' - touchManagedPtr _obj - freeMem mimeType' - return () - -data FileFilterAddMimeTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddMimeTypeMethodInfo a signature where - overloadedMethod _ = fileFilterAddMimeType - --- method FileFilter::add_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", 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 "gtk_file_filter_add_pattern" gtk_file_filter_add_pattern :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - CString -> -- pattern : TBasicType TUTF8 - IO () - - -fileFilterAddPattern :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> T.Text -- pattern - -> m () -- result -fileFilterAddPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_file_filter_add_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - -data FileFilterAddPatternMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddPatternMethodInfo a signature where - overloadedMethod _ = fileFilterAddPattern - --- method FileFilter::add_pixbuf_formats --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", 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 "gtk_file_filter_add_pixbuf_formats" gtk_file_filter_add_pixbuf_formats :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - IO () - - -fileFilterAddPixbufFormats :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> m () -- result -fileFilterAddPixbufFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_filter_add_pixbuf_formats _obj' - touchManagedPtr _obj - return () - -data FileFilterAddPixbufFormatsMethodInfo -instance (signature ~ (m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddPixbufFormatsMethodInfo a signature where - overloadedMethod _ = fileFilterAddPixbufFormats - --- method FileFilter::filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", 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 "gtk_file_filter_filter" gtk_file_filter_filter :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - Ptr FileFilterInfo -> -- filter_info : TInterface "Gtk" "FileFilterInfo" - IO CInt - - -fileFilterFilter :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> FileFilterInfo -- filterInfo - -> m Bool -- result -fileFilterFilter _obj filterInfo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filterInfo' = unsafeManagedPtrGetPtr filterInfo - result <- gtk_file_filter_filter _obj' filterInfo' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr filterInfo - return result' - -data FileFilterFilterMethodInfo -instance (signature ~ (FileFilterInfo -> m Bool), MonadIO m, FileFilterK a) => MethodInfo FileFilterFilterMethodInfo a signature where - overloadedMethod _ = fileFilterFilter - --- method FileFilter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", 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 "gtk_file_filter_get_name" gtk_file_filter_get_name :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - IO CString - - -fileFilterGetName :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> m T.Text -- result -fileFilterGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_filter_get_name _obj' - checkUnexpectedReturnNULL "gtk_file_filter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileFilterGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileFilterK a) => MethodInfo FileFilterGetNameMethodInfo a signature where - overloadedMethod _ = fileFilterGetName - --- method FileFilter::get_needed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FileFilterFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_filter_get_needed" gtk_file_filter_get_needed :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - IO CUInt - - -fileFilterGetNeeded :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> m [FileFilterFlags] -- result -fileFilterGetNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_filter_get_needed _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data FileFilterGetNeededMethodInfo -instance (signature ~ (m [FileFilterFlags]), MonadIO m, FileFilterK a) => MethodInfo FileFilterGetNeededMethodInfo a signature where - overloadedMethod _ = fileFilterGetNeeded - --- method FileFilter::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_filter_set_name" gtk_file_filter_set_name :: - Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" - CString -> -- name : TBasicType TUTF8 - IO () - - -fileFilterSetName :: - (MonadIO m, FileFilterK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m () -- result -fileFilterSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - gtk_file_filter_set_name _obj' maybeName - touchManagedPtr _obj - freeMem maybeName - return () - -data FileFilterSetNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterSetNameMethodInfo a signature where - overloadedMethod _ = fileFilterSetName - - diff --git a/GI/Gtk/Objects/FileFilter.hs-boot b/GI/Gtk/Objects/FileFilter.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FileFilter.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.FileFilter 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 FileFilter = FileFilter (ForeignPtr FileFilter) -instance GObject FileFilter where -class GObject o => FileFilterK o -instance (GObject o, IsDescendantOf FileFilter o) => FileFilterK o -data FileFilterAddCustomMethodInfo -data FileFilterAddMimeTypeMethodInfo -data FileFilterAddPatternMethodInfo -data FileFilterAddPixbufFormatsMethodInfo -data FileFilterFilterMethodInfo -data FileFilterGetNameMethodInfo -data FileFilterGetNeededMethodInfo -data FileFilterSetNameMethodInfo diff --git a/GI/Gtk/Objects/Fixed.hs b/GI/Gtk/Objects/Fixed.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Fixed.hs +++ /dev/null @@ -1,492 +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.Gtk.Objects.Fixed - ( - --- * Exported types - Fixed(..) , - FixedK , - toFixed , - noFixed , - - - -- * Methods --- ** fixedMove - FixedMoveMethodInfo , - fixedMove , - - --- ** fixedNew - fixedNew , - - --- ** fixedPut - FixedPutMethodInfo , - fixedPut , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Fixed = Fixed (ForeignPtr Fixed) -foreign import ccall "gtk_fixed_get_type" - c_gtk_fixed_get_type :: IO GType - -type instance ParentTypes Fixed = FixedParentTypes -type FixedParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Fixed where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_fixed_get_type - - -class GObject o => FixedK o -instance (GObject o, IsDescendantOf Fixed o) => FixedK o - -toFixed :: FixedK o => o -> IO Fixed -toFixed = unsafeCastTo Fixed - -noFixed :: Maybe Fixed -noFixed = Nothing - -type family ResolveFixedMethod (t :: Symbol) (o :: *) :: * where - ResolveFixedMethod "activate" o = WidgetActivateMethodInfo - ResolveFixedMethod "add" o = ContainerAddMethodInfo - ResolveFixedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFixedMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFixedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFixedMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFixedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFixedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFixedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFixedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFixedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFixedMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFixedMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFixedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFixedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFixedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFixedMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFixedMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFixedMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFixedMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFixedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFixedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFixedMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFixedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFixedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFixedMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFixedMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFixedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFixedMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFixedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFixedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFixedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFixedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFixedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFixedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFixedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFixedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFixedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFixedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFixedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFixedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFixedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFixedMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFixedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFixedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFixedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFixedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFixedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFixedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFixedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFixedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFixedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFixedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFixedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFixedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFixedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFixedMethod "draw" o = WidgetDrawMethodInfo - ResolveFixedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFixedMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFixedMethod "event" o = WidgetEventMethodInfo - ResolveFixedMethod "forall" o = ContainerForallMethodInfo - ResolveFixedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFixedMethod "foreach" o = ContainerForeachMethodInfo - ResolveFixedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFixedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFixedMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFixedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFixedMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFixedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFixedMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFixedMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFixedMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFixedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFixedMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFixedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFixedMethod "hide" o = WidgetHideMethodInfo - ResolveFixedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFixedMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFixedMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFixedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFixedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFixedMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFixedMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFixedMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFixedMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFixedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFixedMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFixedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFixedMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFixedMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFixedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFixedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFixedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFixedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFixedMethod "map" o = WidgetMapMethodInfo - ResolveFixedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFixedMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFixedMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFixedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFixedMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFixedMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFixedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFixedMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFixedMethod "move" o = FixedMoveMethodInfo - ResolveFixedMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFixedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFixedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFixedMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFixedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFixedMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFixedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFixedMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFixedMethod "path" o = WidgetPathMethodInfo - ResolveFixedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFixedMethod "put" o = FixedPutMethodInfo - ResolveFixedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFixedMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFixedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFixedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFixedMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFixedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFixedMethod "realize" o = WidgetRealizeMethodInfo - ResolveFixedMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFixedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFixedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFixedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFixedMethod "remove" o = ContainerRemoveMethodInfo - ResolveFixedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFixedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFixedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFixedMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFixedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFixedMethod "reparent" o = WidgetReparentMethodInfo - ResolveFixedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFixedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFixedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFixedMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFixedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFixedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFixedMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFixedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFixedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFixedMethod "show" o = WidgetShowMethodInfo - ResolveFixedMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFixedMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFixedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFixedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFixedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFixedMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFixedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFixedMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFixedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFixedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFixedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFixedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFixedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFixedMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFixedMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFixedMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFixedMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFixedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFixedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFixedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFixedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFixedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFixedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFixedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFixedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFixedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFixedMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFixedMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFixedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFixedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFixedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFixedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFixedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFixedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFixedMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFixedMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFixedMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFixedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFixedMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFixedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFixedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFixedMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFixedMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFixedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFixedMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFixedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFixedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFixedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFixedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFixedMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFixedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFixedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFixedMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFixedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFixedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFixedMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFixedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFixedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFixedMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFixedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFixedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFixedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFixedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFixedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFixedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFixedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFixedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFixedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFixedMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFixedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFixedMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFixedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFixedMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFixedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFixedMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFixedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFixedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFixedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFixedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFixedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFixedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFixedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFixedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFixedMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFixedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFixedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFixedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFixedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFixedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFixedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFixedMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFixedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFixedMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFixedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFixedMethod "getState" o = WidgetGetStateMethodInfo - ResolveFixedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFixedMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFixedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFixedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFixedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFixedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFixedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFixedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFixedMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFixedMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFixedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFixedMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFixedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFixedMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFixedMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFixedMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFixedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFixedMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFixedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFixedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFixedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFixedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFixedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFixedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFixedMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFixedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFixedMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFixedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFixedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFixedMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFixedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFixedMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFixedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFixedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFixedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFixedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFixedMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFixedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFixedMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFixedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFixedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFixedMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFixedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFixedMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFixedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFixedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFixedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFixedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFixedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFixedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFixedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFixedMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFixedMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFixedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFixedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFixedMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFixedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFixedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFixedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFixedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFixedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFixedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFixedMethod "setState" o = WidgetSetStateMethodInfo - ResolveFixedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFixedMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFixedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFixedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFixedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFixedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFixedMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFixedMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFixedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFixedMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFixedMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFixedMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFixedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFixedMethod t Fixed, MethodInfo info Fixed p) => IsLabelProxy t (Fixed -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFixedMethod t Fixed, MethodInfo info Fixed p) => IsLabel t (Fixed -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Fixed = FixedAttributeList -type FixedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Fixed = FixedSignalList -type FixedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Fixed::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Fixed") --- throws : False --- Skip return : False - -foreign import ccall "gtk_fixed_new" gtk_fixed_new :: - IO (Ptr Fixed) - - -fixedNew :: - (MonadIO m) => - m Fixed -- result -fixedNew = liftIO $ do - result <- gtk_fixed_new - checkUnexpectedReturnNULL "gtk_fixed_new" result - result' <- (newObject Fixed) result - return result' - --- method Fixed::move --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_fixed_move" gtk_fixed_move :: - Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -fixedMove :: - (MonadIO m, FixedK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Int32 -- x - -> Int32 -- y - -> m () -- result -fixedMove _obj widget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_fixed_move _obj' widget' x y - touchManagedPtr _obj - touchManagedPtr widget - return () - -data FixedMoveMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, FixedK a, WidgetK b) => MethodInfo FixedMoveMethodInfo a signature where - overloadedMethod _ = fixedMove - --- method Fixed::put --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_fixed_put" gtk_fixed_put :: - Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -fixedPut :: - (MonadIO m, FixedK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Int32 -- x - -> Int32 -- y - -> m () -- result -fixedPut _obj widget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_fixed_put _obj' widget' x y - touchManagedPtr _obj - touchManagedPtr widget - return () - -data FixedPutMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, FixedK a, WidgetK b) => MethodInfo FixedPutMethodInfo a signature where - overloadedMethod _ = fixedPut - - diff --git a/GI/Gtk/Objects/Fixed.hs-boot b/GI/Gtk/Objects/Fixed.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Fixed.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.Fixed 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 Fixed = Fixed (ForeignPtr Fixed) -instance GObject Fixed where -class GObject o => FixedK o -instance (GObject o, IsDescendantOf Fixed o) => FixedK o -data FixedMoveMethodInfo -data FixedPutMethodInfo diff --git a/GI/Gtk/Objects/FlowBox.hs b/GI/Gtk/Objects/FlowBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBox.hs +++ /dev/null @@ -1,2078 +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.Gtk.Objects.FlowBox - ( - --- * Exported types - FlowBox(..) , - FlowBoxK , - toFlowBox , - noFlowBox , - - - -- * Methods --- ** flowBoxGetActivateOnSingleClick - FlowBoxGetActivateOnSingleClickMethodInfo, - flowBoxGetActivateOnSingleClick , - - --- ** flowBoxGetChildAtIndex - FlowBoxGetChildAtIndexMethodInfo , - flowBoxGetChildAtIndex , - - --- ** flowBoxGetColumnSpacing - FlowBoxGetColumnSpacingMethodInfo , - flowBoxGetColumnSpacing , - - --- ** flowBoxGetHomogeneous - FlowBoxGetHomogeneousMethodInfo , - flowBoxGetHomogeneous , - - --- ** flowBoxGetMaxChildrenPerLine - FlowBoxGetMaxChildrenPerLineMethodInfo , - flowBoxGetMaxChildrenPerLine , - - --- ** flowBoxGetMinChildrenPerLine - FlowBoxGetMinChildrenPerLineMethodInfo , - flowBoxGetMinChildrenPerLine , - - --- ** flowBoxGetRowSpacing - FlowBoxGetRowSpacingMethodInfo , - flowBoxGetRowSpacing , - - --- ** flowBoxGetSelectedChildren - FlowBoxGetSelectedChildrenMethodInfo , - flowBoxGetSelectedChildren , - - --- ** flowBoxGetSelectionMode - FlowBoxGetSelectionModeMethodInfo , - flowBoxGetSelectionMode , - - --- ** flowBoxInsert - FlowBoxInsertMethodInfo , - flowBoxInsert , - - --- ** flowBoxInvalidateFilter - FlowBoxInvalidateFilterMethodInfo , - flowBoxInvalidateFilter , - - --- ** flowBoxInvalidateSort - FlowBoxInvalidateSortMethodInfo , - flowBoxInvalidateSort , - - --- ** flowBoxNew - flowBoxNew , - - --- ** flowBoxSelectAll - FlowBoxSelectAllMethodInfo , - flowBoxSelectAll , - - --- ** flowBoxSelectChild - FlowBoxSelectChildMethodInfo , - flowBoxSelectChild , - - --- ** flowBoxSelectedForeach - FlowBoxSelectedForeachMethodInfo , - flowBoxSelectedForeach , - - --- ** flowBoxSetActivateOnSingleClick - FlowBoxSetActivateOnSingleClickMethodInfo, - flowBoxSetActivateOnSingleClick , - - --- ** flowBoxSetColumnSpacing - FlowBoxSetColumnSpacingMethodInfo , - flowBoxSetColumnSpacing , - - --- ** flowBoxSetFilterFunc - FlowBoxSetFilterFuncMethodInfo , - flowBoxSetFilterFunc , - - --- ** flowBoxSetHadjustment - FlowBoxSetHadjustmentMethodInfo , - flowBoxSetHadjustment , - - --- ** flowBoxSetHomogeneous - FlowBoxSetHomogeneousMethodInfo , - flowBoxSetHomogeneous , - - --- ** flowBoxSetMaxChildrenPerLine - FlowBoxSetMaxChildrenPerLineMethodInfo , - flowBoxSetMaxChildrenPerLine , - - --- ** flowBoxSetMinChildrenPerLine - FlowBoxSetMinChildrenPerLineMethodInfo , - flowBoxSetMinChildrenPerLine , - - --- ** flowBoxSetRowSpacing - FlowBoxSetRowSpacingMethodInfo , - flowBoxSetRowSpacing , - - --- ** flowBoxSetSelectionMode - FlowBoxSetSelectionModeMethodInfo , - flowBoxSetSelectionMode , - - --- ** flowBoxSetSortFunc - FlowBoxSetSortFuncMethodInfo , - flowBoxSetSortFunc , - - --- ** flowBoxSetVadjustment - FlowBoxSetVadjustmentMethodInfo , - flowBoxSetVadjustment , - - --- ** flowBoxUnselectAll - FlowBoxUnselectAllMethodInfo , - flowBoxUnselectAll , - - --- ** flowBoxUnselectChild - FlowBoxUnselectChildMethodInfo , - flowBoxUnselectChild , - - - - - -- * Properties --- ** ActivateOnSingleClick - FlowBoxActivateOnSingleClickPropertyInfo, - constructFlowBoxActivateOnSingleClick , - flowBoxActivateOnSingleClick , - getFlowBoxActivateOnSingleClick , - setFlowBoxActivateOnSingleClick , - - --- ** ColumnSpacing - FlowBoxColumnSpacingPropertyInfo , - constructFlowBoxColumnSpacing , - flowBoxColumnSpacing , - getFlowBoxColumnSpacing , - setFlowBoxColumnSpacing , - - --- ** Homogeneous - FlowBoxHomogeneousPropertyInfo , - constructFlowBoxHomogeneous , - flowBoxHomogeneous , - getFlowBoxHomogeneous , - setFlowBoxHomogeneous , - - --- ** MaxChildrenPerLine - FlowBoxMaxChildrenPerLinePropertyInfo , - constructFlowBoxMaxChildrenPerLine , - flowBoxMaxChildrenPerLine , - getFlowBoxMaxChildrenPerLine , - setFlowBoxMaxChildrenPerLine , - - --- ** MinChildrenPerLine - FlowBoxMinChildrenPerLinePropertyInfo , - constructFlowBoxMinChildrenPerLine , - flowBoxMinChildrenPerLine , - getFlowBoxMinChildrenPerLine , - setFlowBoxMinChildrenPerLine , - - --- ** RowSpacing - FlowBoxRowSpacingPropertyInfo , - constructFlowBoxRowSpacing , - flowBoxRowSpacing , - getFlowBoxRowSpacing , - setFlowBoxRowSpacing , - - --- ** SelectionMode - FlowBoxSelectionModePropertyInfo , - constructFlowBoxSelectionMode , - flowBoxSelectionMode , - getFlowBoxSelectionMode , - setFlowBoxSelectionMode , - - - - - -- * Signals --- ** ActivateCursorChild - FlowBoxActivateCursorChildCallback , - FlowBoxActivateCursorChildCallbackC , - FlowBoxActivateCursorChildSignalInfo , - afterFlowBoxActivateCursorChild , - flowBoxActivateCursorChildCallbackWrapper, - flowBoxActivateCursorChildClosure , - mkFlowBoxActivateCursorChildCallback , - noFlowBoxActivateCursorChildCallback , - onFlowBoxActivateCursorChild , - - --- ** ChildActivated - FlowBoxChildActivatedCallback , - FlowBoxChildActivatedCallbackC , - FlowBoxChildActivatedSignalInfo , - afterFlowBoxChildActivated , - flowBoxChildActivatedCallbackWrapper , - flowBoxChildActivatedClosure , - mkFlowBoxChildActivatedCallback , - noFlowBoxChildActivatedCallback , - onFlowBoxChildActivated , - - --- ** MoveCursor - FlowBoxMoveCursorCallback , - FlowBoxMoveCursorCallbackC , - FlowBoxMoveCursorSignalInfo , - afterFlowBoxMoveCursor , - flowBoxMoveCursorCallbackWrapper , - flowBoxMoveCursorClosure , - mkFlowBoxMoveCursorCallback , - noFlowBoxMoveCursorCallback , - onFlowBoxMoveCursor , - - --- ** SelectAll - FlowBoxSelectAllCallback , - FlowBoxSelectAllCallbackC , - FlowBoxSelectAllSignalInfo , - afterFlowBoxSelectAll , - flowBoxSelectAllCallbackWrapper , - flowBoxSelectAllClosure , - mkFlowBoxSelectAllCallback , - noFlowBoxSelectAllCallback , - onFlowBoxSelectAll , - - --- ** SelectedChildrenChanged - FlowBoxSelectedChildrenChangedCallback , - FlowBoxSelectedChildrenChangedCallbackC , - FlowBoxSelectedChildrenChangedSignalInfo, - afterFlowBoxSelectedChildrenChanged , - flowBoxSelectedChildrenChangedCallbackWrapper, - flowBoxSelectedChildrenChangedClosure , - mkFlowBoxSelectedChildrenChangedCallback, - noFlowBoxSelectedChildrenChangedCallback, - onFlowBoxSelectedChildrenChanged , - - --- ** ToggleCursorChild - FlowBoxToggleCursorChildCallback , - FlowBoxToggleCursorChildCallbackC , - FlowBoxToggleCursorChildSignalInfo , - afterFlowBoxToggleCursorChild , - flowBoxToggleCursorChildCallbackWrapper , - flowBoxToggleCursorChildClosure , - mkFlowBoxToggleCursorChildCallback , - noFlowBoxToggleCursorChildCallback , - onFlowBoxToggleCursorChild , - - --- ** UnselectAll - FlowBoxUnselectAllCallback , - FlowBoxUnselectAllCallbackC , - FlowBoxUnselectAllSignalInfo , - afterFlowBoxUnselectAll , - flowBoxUnselectAllCallbackWrapper , - flowBoxUnselectAllClosure , - mkFlowBoxUnselectAllCallback , - noFlowBoxUnselectAllCallback , - onFlowBoxUnselectAll , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype FlowBox = FlowBox (ForeignPtr FlowBox) -foreign import ccall "gtk_flow_box_get_type" - c_gtk_flow_box_get_type :: IO GType - -type instance ParentTypes FlowBox = FlowBoxParentTypes -type FlowBoxParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject FlowBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_flow_box_get_type - - -class GObject o => FlowBoxK o -instance (GObject o, IsDescendantOf FlowBox o) => FlowBoxK o - -toFlowBox :: FlowBoxK o => o -> IO FlowBox -toFlowBox = unsafeCastTo FlowBox - -noFlowBox :: Maybe FlowBox -noFlowBox = Nothing - -type family ResolveFlowBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveFlowBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveFlowBoxMethod "add" o = ContainerAddMethodInfo - ResolveFlowBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFlowBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFlowBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFlowBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFlowBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFlowBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFlowBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFlowBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFlowBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFlowBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFlowBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFlowBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFlowBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFlowBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFlowBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFlowBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFlowBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFlowBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFlowBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFlowBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFlowBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFlowBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFlowBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFlowBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFlowBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFlowBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFlowBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFlowBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFlowBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFlowBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFlowBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFlowBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFlowBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFlowBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFlowBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFlowBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFlowBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFlowBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFlowBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFlowBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFlowBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFlowBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFlowBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFlowBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFlowBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFlowBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFlowBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFlowBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFlowBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFlowBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFlowBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFlowBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFlowBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFlowBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFlowBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveFlowBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFlowBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFlowBoxMethod "event" o = WidgetEventMethodInfo - ResolveFlowBoxMethod "forall" o = ContainerForallMethodInfo - ResolveFlowBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFlowBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveFlowBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFlowBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFlowBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFlowBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFlowBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFlowBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFlowBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFlowBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFlowBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFlowBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFlowBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFlowBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFlowBoxMethod "hide" o = WidgetHideMethodInfo - ResolveFlowBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFlowBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFlowBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFlowBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFlowBoxMethod "insert" o = FlowBoxInsertMethodInfo - ResolveFlowBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFlowBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFlowBoxMethod "invalidateFilter" o = FlowBoxInvalidateFilterMethodInfo - ResolveFlowBoxMethod "invalidateSort" o = FlowBoxInvalidateSortMethodInfo - ResolveFlowBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFlowBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFlowBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFlowBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFlowBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFlowBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFlowBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFlowBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFlowBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFlowBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFlowBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFlowBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFlowBoxMethod "map" o = WidgetMapMethodInfo - ResolveFlowBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFlowBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFlowBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFlowBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFlowBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFlowBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFlowBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFlowBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFlowBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFlowBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFlowBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFlowBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFlowBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFlowBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFlowBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFlowBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFlowBoxMethod "path" o = WidgetPathMethodInfo - ResolveFlowBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFlowBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFlowBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFlowBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFlowBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFlowBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFlowBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFlowBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveFlowBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFlowBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFlowBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFlowBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFlowBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveFlowBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFlowBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFlowBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFlowBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFlowBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFlowBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveFlowBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFlowBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFlowBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFlowBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFlowBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFlowBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFlowBoxMethod "selectAll" o = FlowBoxSelectAllMethodInfo - ResolveFlowBoxMethod "selectChild" o = FlowBoxSelectChildMethodInfo - ResolveFlowBoxMethod "selectedForeach" o = FlowBoxSelectedForeachMethodInfo - ResolveFlowBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFlowBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFlowBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFlowBoxMethod "show" o = WidgetShowMethodInfo - ResolveFlowBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFlowBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFlowBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFlowBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFlowBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFlowBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFlowBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFlowBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFlowBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFlowBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFlowBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFlowBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFlowBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFlowBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFlowBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFlowBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFlowBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFlowBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFlowBoxMethod "unselectAll" o = FlowBoxUnselectAllMethodInfo - ResolveFlowBoxMethod "unselectChild" o = FlowBoxUnselectChildMethodInfo - ResolveFlowBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFlowBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFlowBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFlowBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFlowBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFlowBoxMethod "getActivateOnSingleClick" o = FlowBoxGetActivateOnSingleClickMethodInfo - ResolveFlowBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFlowBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFlowBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFlowBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFlowBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFlowBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFlowBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFlowBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFlowBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFlowBoxMethod "getChildAtIndex" o = FlowBoxGetChildAtIndexMethodInfo - ResolveFlowBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFlowBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFlowBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFlowBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFlowBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFlowBoxMethod "getColumnSpacing" o = FlowBoxGetColumnSpacingMethodInfo - ResolveFlowBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFlowBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFlowBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFlowBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFlowBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFlowBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFlowBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFlowBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFlowBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFlowBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFlowBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFlowBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFlowBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFlowBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFlowBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFlowBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFlowBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFlowBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFlowBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFlowBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFlowBoxMethod "getHomogeneous" o = FlowBoxGetHomogeneousMethodInfo - ResolveFlowBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFlowBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFlowBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFlowBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFlowBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFlowBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFlowBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFlowBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFlowBoxMethod "getMaxChildrenPerLine" o = FlowBoxGetMaxChildrenPerLineMethodInfo - ResolveFlowBoxMethod "getMinChildrenPerLine" o = FlowBoxGetMinChildrenPerLineMethodInfo - ResolveFlowBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFlowBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFlowBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFlowBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFlowBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveFlowBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFlowBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFlowBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFlowBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFlowBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFlowBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFlowBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFlowBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFlowBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFlowBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFlowBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFlowBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFlowBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFlowBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFlowBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFlowBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFlowBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFlowBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFlowBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFlowBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFlowBoxMethod "getRowSpacing" o = FlowBoxGetRowSpacingMethodInfo - ResolveFlowBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFlowBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFlowBoxMethod "getSelectedChildren" o = FlowBoxGetSelectedChildrenMethodInfo - ResolveFlowBoxMethod "getSelectionMode" o = FlowBoxGetSelectionModeMethodInfo - ResolveFlowBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFlowBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFlowBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFlowBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveFlowBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFlowBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFlowBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFlowBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFlowBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFlowBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFlowBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFlowBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFlowBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFlowBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFlowBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFlowBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFlowBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFlowBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFlowBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFlowBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFlowBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFlowBoxMethod "setActivateOnSingleClick" o = FlowBoxSetActivateOnSingleClickMethodInfo - ResolveFlowBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFlowBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFlowBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFlowBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFlowBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFlowBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFlowBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFlowBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFlowBoxMethod "setColumnSpacing" o = FlowBoxSetColumnSpacingMethodInfo - ResolveFlowBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFlowBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFlowBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFlowBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFlowBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFlowBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFlowBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFlowBoxMethod "setFilterFunc" o = FlowBoxSetFilterFuncMethodInfo - ResolveFlowBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFlowBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFlowBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFlowBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFlowBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFlowBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFlowBoxMethod "setHadjustment" o = FlowBoxSetHadjustmentMethodInfo - ResolveFlowBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFlowBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFlowBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFlowBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFlowBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFlowBoxMethod "setHomogeneous" o = FlowBoxSetHomogeneousMethodInfo - ResolveFlowBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFlowBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFlowBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFlowBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFlowBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFlowBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFlowBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFlowBoxMethod "setMaxChildrenPerLine" o = FlowBoxSetMaxChildrenPerLineMethodInfo - ResolveFlowBoxMethod "setMinChildrenPerLine" o = FlowBoxSetMinChildrenPerLineMethodInfo - ResolveFlowBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFlowBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFlowBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveFlowBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFlowBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFlowBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFlowBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFlowBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFlowBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFlowBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFlowBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFlowBoxMethod "setRowSpacing" o = FlowBoxSetRowSpacingMethodInfo - ResolveFlowBoxMethod "setSelectionMode" o = FlowBoxSetSelectionModeMethodInfo - ResolveFlowBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFlowBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFlowBoxMethod "setSortFunc" o = FlowBoxSetSortFuncMethodInfo - ResolveFlowBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveFlowBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFlowBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFlowBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFlowBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFlowBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFlowBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFlowBoxMethod "setVadjustment" o = FlowBoxSetVadjustmentMethodInfo - ResolveFlowBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFlowBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFlowBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFlowBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFlowBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFlowBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFlowBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFlowBoxMethod t FlowBox, MethodInfo info FlowBox p) => IsLabelProxy t (FlowBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFlowBoxMethod t FlowBox, MethodInfo info FlowBox p) => IsLabel t (FlowBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FlowBox::activate-cursor-child -type FlowBoxActivateCursorChildCallback = - IO () - -noFlowBoxActivateCursorChildCallback :: Maybe FlowBoxActivateCursorChildCallback -noFlowBoxActivateCursorChildCallback = Nothing - -type FlowBoxActivateCursorChildCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxActivateCursorChildCallback :: FlowBoxActivateCursorChildCallbackC -> IO (FunPtr FlowBoxActivateCursorChildCallbackC) - -flowBoxActivateCursorChildClosure :: FlowBoxActivateCursorChildCallback -> IO Closure -flowBoxActivateCursorChildClosure cb = newCClosure =<< mkFlowBoxActivateCursorChildCallback wrapped - where wrapped = flowBoxActivateCursorChildCallbackWrapper cb - -flowBoxActivateCursorChildCallbackWrapper :: - FlowBoxActivateCursorChildCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxActivateCursorChildCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxActivateCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId -onFlowBoxActivateCursorChild obj cb = liftIO $ connectFlowBoxActivateCursorChild obj cb SignalConnectBefore -afterFlowBoxActivateCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId -afterFlowBoxActivateCursorChild obj cb = connectFlowBoxActivateCursorChild obj cb SignalConnectAfter - -connectFlowBoxActivateCursorChild :: (GObject a, MonadIO m) => - a -> FlowBoxActivateCursorChildCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxActivateCursorChild obj cb after = liftIO $ do - cb' <- mkFlowBoxActivateCursorChildCallback (flowBoxActivateCursorChildCallbackWrapper cb) - connectSignalFunPtr obj "activate-cursor-child" cb' after - --- signal FlowBox::child-activated -type FlowBoxChildActivatedCallback = - FlowBoxChild -> - IO () - -noFlowBoxChildActivatedCallback :: Maybe FlowBoxChildActivatedCallback -noFlowBoxChildActivatedCallback = Nothing - -type FlowBoxChildActivatedCallbackC = - Ptr () -> -- object - Ptr FlowBoxChild -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxChildActivatedCallback :: FlowBoxChildActivatedCallbackC -> IO (FunPtr FlowBoxChildActivatedCallbackC) - -flowBoxChildActivatedClosure :: FlowBoxChildActivatedCallback -> IO Closure -flowBoxChildActivatedClosure cb = newCClosure =<< mkFlowBoxChildActivatedCallback wrapped - where wrapped = flowBoxChildActivatedCallbackWrapper cb - -flowBoxChildActivatedCallbackWrapper :: - FlowBoxChildActivatedCallback -> - Ptr () -> - Ptr FlowBoxChild -> - Ptr () -> - IO () -flowBoxChildActivatedCallbackWrapper _cb _ child _ = do - child' <- (newObject FlowBoxChild) child - _cb child' - -onFlowBoxChildActivated :: (GObject a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId -onFlowBoxChildActivated obj cb = liftIO $ connectFlowBoxChildActivated obj cb SignalConnectBefore -afterFlowBoxChildActivated :: (GObject a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId -afterFlowBoxChildActivated obj cb = connectFlowBoxChildActivated obj cb SignalConnectAfter - -connectFlowBoxChildActivated :: (GObject a, MonadIO m) => - a -> FlowBoxChildActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxChildActivated obj cb after = liftIO $ do - cb' <- mkFlowBoxChildActivatedCallback (flowBoxChildActivatedCallbackWrapper cb) - connectSignalFunPtr obj "child-activated" cb' after - --- signal FlowBox::move-cursor -type FlowBoxMoveCursorCallback = - MovementStep -> - Int32 -> - IO Bool - -noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback -noFlowBoxMoveCursorCallback = Nothing - -type FlowBoxMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkFlowBoxMoveCursorCallback :: FlowBoxMoveCursorCallbackC -> IO (FunPtr FlowBoxMoveCursorCallbackC) - -flowBoxMoveCursorClosure :: FlowBoxMoveCursorCallback -> IO Closure -flowBoxMoveCursorClosure cb = newCClosure =<< mkFlowBoxMoveCursorCallback wrapped - where wrapped = flowBoxMoveCursorCallbackWrapper cb - -flowBoxMoveCursorCallbackWrapper :: - FlowBoxMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO CInt -flowBoxMoveCursorCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - result <- _cb step' count - let result' = (fromIntegral . fromEnum) result - return result' - -onFlowBoxMoveCursor :: (GObject a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId -onFlowBoxMoveCursor obj cb = liftIO $ connectFlowBoxMoveCursor obj cb SignalConnectBefore -afterFlowBoxMoveCursor :: (GObject a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId -afterFlowBoxMoveCursor obj cb = connectFlowBoxMoveCursor obj cb SignalConnectAfter - -connectFlowBoxMoveCursor :: (GObject a, MonadIO m) => - a -> FlowBoxMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxMoveCursor obj cb after = liftIO $ do - cb' <- mkFlowBoxMoveCursorCallback (flowBoxMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal FlowBox::select-all -type FlowBoxSelectAllCallback = - IO () - -noFlowBoxSelectAllCallback :: Maybe FlowBoxSelectAllCallback -noFlowBoxSelectAllCallback = Nothing - -type FlowBoxSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxSelectAllCallback :: FlowBoxSelectAllCallbackC -> IO (FunPtr FlowBoxSelectAllCallbackC) - -flowBoxSelectAllClosure :: FlowBoxSelectAllCallback -> IO Closure -flowBoxSelectAllClosure cb = newCClosure =<< mkFlowBoxSelectAllCallback wrapped - where wrapped = flowBoxSelectAllCallbackWrapper cb - -flowBoxSelectAllCallbackWrapper :: - FlowBoxSelectAllCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxSelectAllCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxSelectAll :: (GObject a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId -onFlowBoxSelectAll obj cb = liftIO $ connectFlowBoxSelectAll obj cb SignalConnectBefore -afterFlowBoxSelectAll :: (GObject a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId -afterFlowBoxSelectAll obj cb = connectFlowBoxSelectAll obj cb SignalConnectAfter - -connectFlowBoxSelectAll :: (GObject a, MonadIO m) => - a -> FlowBoxSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxSelectAll obj cb after = liftIO $ do - cb' <- mkFlowBoxSelectAllCallback (flowBoxSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal FlowBox::selected-children-changed -type FlowBoxSelectedChildrenChangedCallback = - IO () - -noFlowBoxSelectedChildrenChangedCallback :: Maybe FlowBoxSelectedChildrenChangedCallback -noFlowBoxSelectedChildrenChangedCallback = Nothing - -type FlowBoxSelectedChildrenChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxSelectedChildrenChangedCallback :: FlowBoxSelectedChildrenChangedCallbackC -> IO (FunPtr FlowBoxSelectedChildrenChangedCallbackC) - -flowBoxSelectedChildrenChangedClosure :: FlowBoxSelectedChildrenChangedCallback -> IO Closure -flowBoxSelectedChildrenChangedClosure cb = newCClosure =<< mkFlowBoxSelectedChildrenChangedCallback wrapped - where wrapped = flowBoxSelectedChildrenChangedCallbackWrapper cb - -flowBoxSelectedChildrenChangedCallbackWrapper :: - FlowBoxSelectedChildrenChangedCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxSelectedChildrenChangedCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId -onFlowBoxSelectedChildrenChanged obj cb = liftIO $ connectFlowBoxSelectedChildrenChanged obj cb SignalConnectBefore -afterFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId -afterFlowBoxSelectedChildrenChanged obj cb = connectFlowBoxSelectedChildrenChanged obj cb SignalConnectAfter - -connectFlowBoxSelectedChildrenChanged :: (GObject a, MonadIO m) => - a -> FlowBoxSelectedChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxSelectedChildrenChanged obj cb after = liftIO $ do - cb' <- mkFlowBoxSelectedChildrenChangedCallback (flowBoxSelectedChildrenChangedCallbackWrapper cb) - connectSignalFunPtr obj "selected-children-changed" cb' after - --- signal FlowBox::toggle-cursor-child -type FlowBoxToggleCursorChildCallback = - IO () - -noFlowBoxToggleCursorChildCallback :: Maybe FlowBoxToggleCursorChildCallback -noFlowBoxToggleCursorChildCallback = Nothing - -type FlowBoxToggleCursorChildCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxToggleCursorChildCallback :: FlowBoxToggleCursorChildCallbackC -> IO (FunPtr FlowBoxToggleCursorChildCallbackC) - -flowBoxToggleCursorChildClosure :: FlowBoxToggleCursorChildCallback -> IO Closure -flowBoxToggleCursorChildClosure cb = newCClosure =<< mkFlowBoxToggleCursorChildCallback wrapped - where wrapped = flowBoxToggleCursorChildCallbackWrapper cb - -flowBoxToggleCursorChildCallbackWrapper :: - FlowBoxToggleCursorChildCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxToggleCursorChildCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxToggleCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId -onFlowBoxToggleCursorChild obj cb = liftIO $ connectFlowBoxToggleCursorChild obj cb SignalConnectBefore -afterFlowBoxToggleCursorChild :: (GObject a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId -afterFlowBoxToggleCursorChild obj cb = connectFlowBoxToggleCursorChild obj cb SignalConnectAfter - -connectFlowBoxToggleCursorChild :: (GObject a, MonadIO m) => - a -> FlowBoxToggleCursorChildCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxToggleCursorChild obj cb after = liftIO $ do - cb' <- mkFlowBoxToggleCursorChildCallback (flowBoxToggleCursorChildCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-child" cb' after - --- signal FlowBox::unselect-all -type FlowBoxUnselectAllCallback = - IO () - -noFlowBoxUnselectAllCallback :: Maybe FlowBoxUnselectAllCallback -noFlowBoxUnselectAllCallback = Nothing - -type FlowBoxUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxUnselectAllCallback :: FlowBoxUnselectAllCallbackC -> IO (FunPtr FlowBoxUnselectAllCallbackC) - -flowBoxUnselectAllClosure :: FlowBoxUnselectAllCallback -> IO Closure -flowBoxUnselectAllClosure cb = newCClosure =<< mkFlowBoxUnselectAllCallback wrapped - where wrapped = flowBoxUnselectAllCallbackWrapper cb - -flowBoxUnselectAllCallbackWrapper :: - FlowBoxUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxUnselectAllCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxUnselectAll :: (GObject a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId -onFlowBoxUnselectAll obj cb = liftIO $ connectFlowBoxUnselectAll obj cb SignalConnectBefore -afterFlowBoxUnselectAll :: (GObject a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId -afterFlowBoxUnselectAll obj cb = connectFlowBoxUnselectAll obj cb SignalConnectAfter - -connectFlowBoxUnselectAll :: (GObject a, MonadIO m) => - a -> FlowBoxUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxUnselectAll obj cb after = liftIO $ do - cb' <- mkFlowBoxUnselectAllCallback (flowBoxUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxActivateOnSingleClick :: (MonadIO m, FlowBoxK o) => o -> m Bool -getFlowBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setFlowBoxActivateOnSingleClick :: (MonadIO m, FlowBoxK o) => o -> Bool -> m () -setFlowBoxActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructFlowBoxActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructFlowBoxActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data FlowBoxActivateOnSingleClickPropertyInfo -instance AttrInfo FlowBoxActivateOnSingleClickPropertyInfo where - type AttrAllowedOps FlowBoxActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = FlowBoxK - type AttrGetType FlowBoxActivateOnSingleClickPropertyInfo = Bool - type AttrLabel FlowBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click" - attrGet _ = getFlowBoxActivateOnSingleClick - attrSet _ = setFlowBoxActivateOnSingleClick - attrConstruct _ = constructFlowBoxActivateOnSingleClick - attrClear _ = undefined - --- VVV Prop "column-spacing" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyUInt32 obj "column-spacing" - -setFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "column-spacing" val - -constructFlowBoxColumnSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxColumnSpacing val = constructObjectPropertyUInt32 "column-spacing" val - -data FlowBoxColumnSpacingPropertyInfo -instance AttrInfo FlowBoxColumnSpacingPropertyInfo where - type AttrAllowedOps FlowBoxColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxColumnSpacingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint FlowBoxColumnSpacingPropertyInfo = FlowBoxK - type AttrGetType FlowBoxColumnSpacingPropertyInfo = Word32 - type AttrLabel FlowBoxColumnSpacingPropertyInfo = "column-spacing" - attrGet _ = getFlowBoxColumnSpacing - attrSet _ = setFlowBoxColumnSpacing - attrConstruct _ = constructFlowBoxColumnSpacing - attrClear _ = undefined - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxHomogeneous :: (MonadIO m, FlowBoxK o) => o -> m Bool -getFlowBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" - -setFlowBoxHomogeneous :: (MonadIO m, FlowBoxK o) => o -> Bool -> m () -setFlowBoxHomogeneous obj val = liftIO $ setObjectPropertyBool obj "homogeneous" val - -constructFlowBoxHomogeneous :: Bool -> IO ([Char], GValue) -constructFlowBoxHomogeneous val = constructObjectPropertyBool "homogeneous" val - -data FlowBoxHomogeneousPropertyInfo -instance AttrInfo FlowBoxHomogeneousPropertyInfo where - type AttrAllowedOps FlowBoxHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FlowBoxHomogeneousPropertyInfo = FlowBoxK - type AttrGetType FlowBoxHomogeneousPropertyInfo = Bool - type AttrLabel FlowBoxHomogeneousPropertyInfo = "homogeneous" - attrGet _ = getFlowBoxHomogeneous - attrSet _ = setFlowBoxHomogeneous - attrConstruct _ = constructFlowBoxHomogeneous - attrClear _ = undefined - --- VVV Prop "max-children-per-line" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "max-children-per-line" - -setFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "max-children-per-line" val - -constructFlowBoxMaxChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyUInt32 "max-children-per-line" val - -data FlowBoxMaxChildrenPerLinePropertyInfo -instance AttrInfo FlowBoxMaxChildrenPerLinePropertyInfo where - type AttrAllowedOps FlowBoxMaxChildrenPerLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = FlowBoxK - type AttrGetType FlowBoxMaxChildrenPerLinePropertyInfo = Word32 - type AttrLabel FlowBoxMaxChildrenPerLinePropertyInfo = "max-children-per-line" - attrGet _ = getFlowBoxMaxChildrenPerLine - attrSet _ = setFlowBoxMaxChildrenPerLine - attrConstruct _ = constructFlowBoxMaxChildrenPerLine - attrClear _ = undefined - --- VVV Prop "min-children-per-line" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "min-children-per-line" - -setFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "min-children-per-line" val - -constructFlowBoxMinChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMinChildrenPerLine val = constructObjectPropertyUInt32 "min-children-per-line" val - -data FlowBoxMinChildrenPerLinePropertyInfo -instance AttrInfo FlowBoxMinChildrenPerLinePropertyInfo where - type AttrAllowedOps FlowBoxMinChildrenPerLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = FlowBoxK - type AttrGetType FlowBoxMinChildrenPerLinePropertyInfo = Word32 - type AttrLabel FlowBoxMinChildrenPerLinePropertyInfo = "min-children-per-line" - attrGet _ = getFlowBoxMinChildrenPerLine - attrSet _ = setFlowBoxMinChildrenPerLine - attrConstruct _ = constructFlowBoxMinChildrenPerLine - attrClear _ = undefined - --- VVV Prop "row-spacing" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyUInt32 obj "row-spacing" - -setFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "row-spacing" val - -constructFlowBoxRowSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxRowSpacing val = constructObjectPropertyUInt32 "row-spacing" val - -data FlowBoxRowSpacingPropertyInfo -instance AttrInfo FlowBoxRowSpacingPropertyInfo where - type AttrAllowedOps FlowBoxRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxRowSpacingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint FlowBoxRowSpacingPropertyInfo = FlowBoxK - type AttrGetType FlowBoxRowSpacingPropertyInfo = Word32 - type AttrLabel FlowBoxRowSpacingPropertyInfo = "row-spacing" - attrGet _ = getFlowBoxRowSpacing - attrSet _ = setFlowBoxRowSpacing - attrConstruct _ = constructFlowBoxRowSpacing - attrClear _ = undefined - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFlowBoxSelectionMode :: (MonadIO m, FlowBoxK o) => o -> m SelectionMode -getFlowBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" - -setFlowBoxSelectionMode :: (MonadIO m, FlowBoxK o) => o -> SelectionMode -> m () -setFlowBoxSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "selection-mode" val - -constructFlowBoxSelectionMode :: SelectionMode -> IO ([Char], GValue) -constructFlowBoxSelectionMode val = constructObjectPropertyEnum "selection-mode" val - -data FlowBoxSelectionModePropertyInfo -instance AttrInfo FlowBoxSelectionModePropertyInfo where - type AttrAllowedOps FlowBoxSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FlowBoxSelectionModePropertyInfo = (~) SelectionMode - type AttrBaseTypeConstraint FlowBoxSelectionModePropertyInfo = FlowBoxK - type AttrGetType FlowBoxSelectionModePropertyInfo = SelectionMode - type AttrLabel FlowBoxSelectionModePropertyInfo = "selection-mode" - attrGet _ = getFlowBoxSelectionMode - attrSet _ = setFlowBoxSelectionMode - attrConstruct _ = constructFlowBoxSelectionMode - attrClear _ = undefined - -type instance AttributeList FlowBox = FlowBoxAttributeList -type FlowBoxAttributeList = ('[ '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -flowBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" -flowBoxActivateOnSingleClick = AttrLabelProxy - -flowBoxColumnSpacing :: AttrLabelProxy "columnSpacing" -flowBoxColumnSpacing = AttrLabelProxy - -flowBoxHomogeneous :: AttrLabelProxy "homogeneous" -flowBoxHomogeneous = AttrLabelProxy - -flowBoxMaxChildrenPerLine :: AttrLabelProxy "maxChildrenPerLine" -flowBoxMaxChildrenPerLine = AttrLabelProxy - -flowBoxMinChildrenPerLine :: AttrLabelProxy "minChildrenPerLine" -flowBoxMinChildrenPerLine = AttrLabelProxy - -flowBoxRowSpacing :: AttrLabelProxy "rowSpacing" -flowBoxRowSpacing = AttrLabelProxy - -flowBoxSelectionMode :: AttrLabelProxy "selectionMode" -flowBoxSelectionMode = AttrLabelProxy - -data FlowBoxActivateCursorChildSignalInfo -instance SignalInfo FlowBoxActivateCursorChildSignalInfo where - type HaskellCallbackType FlowBoxActivateCursorChildSignalInfo = FlowBoxActivateCursorChildCallback - connectSignal _ = connectFlowBoxActivateCursorChild - -data FlowBoxChildActivatedSignalInfo -instance SignalInfo FlowBoxChildActivatedSignalInfo where - type HaskellCallbackType FlowBoxChildActivatedSignalInfo = FlowBoxChildActivatedCallback - connectSignal _ = connectFlowBoxChildActivated - -data FlowBoxMoveCursorSignalInfo -instance SignalInfo FlowBoxMoveCursorSignalInfo where - type HaskellCallbackType FlowBoxMoveCursorSignalInfo = FlowBoxMoveCursorCallback - connectSignal _ = connectFlowBoxMoveCursor - -data FlowBoxSelectAllSignalInfo -instance SignalInfo FlowBoxSelectAllSignalInfo where - type HaskellCallbackType FlowBoxSelectAllSignalInfo = FlowBoxSelectAllCallback - connectSignal _ = connectFlowBoxSelectAll - -data FlowBoxSelectedChildrenChangedSignalInfo -instance SignalInfo FlowBoxSelectedChildrenChangedSignalInfo where - type HaskellCallbackType FlowBoxSelectedChildrenChangedSignalInfo = FlowBoxSelectedChildrenChangedCallback - connectSignal _ = connectFlowBoxSelectedChildrenChanged - -data FlowBoxToggleCursorChildSignalInfo -instance SignalInfo FlowBoxToggleCursorChildSignalInfo where - type HaskellCallbackType FlowBoxToggleCursorChildSignalInfo = FlowBoxToggleCursorChildCallback - connectSignal _ = connectFlowBoxToggleCursorChild - -data FlowBoxUnselectAllSignalInfo -instance SignalInfo FlowBoxUnselectAllSignalInfo where - type HaskellCallbackType FlowBoxUnselectAllSignalInfo = FlowBoxUnselectAllCallback - connectSignal _ = connectFlowBoxUnselectAll - -type instance SignalList FlowBox = FlowBoxSignalList -type FlowBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorChild", FlowBoxActivateCursorChildSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childActivated", FlowBoxChildActivatedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", FlowBoxMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", FlowBoxSelectAllSignalInfo), '("selectedChildrenChanged", FlowBoxSelectedChildrenChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorChild", FlowBoxToggleCursorChildSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", FlowBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FlowBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FlowBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_new" gtk_flow_box_new :: - IO (Ptr FlowBox) - - -flowBoxNew :: - (MonadIO m) => - m FlowBox -- result -flowBoxNew = liftIO $ do - result <- gtk_flow_box_new - checkUnexpectedReturnNULL "gtk_flow_box_new" result - result' <- (newObject FlowBox) result - return result' - --- method FlowBox::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_get_activate_on_single_click" gtk_flow_box_get_activate_on_single_click :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO CInt - - -flowBoxGetActivateOnSingleClick :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Bool -- result -flowBoxGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FlowBoxGetActivateOnSingleClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = flowBoxGetActivateOnSingleClick - --- method FlowBox::get_child_at_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FlowBoxChild") --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_child_at_index" gtk_flow_box_get_child_at_index :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Int32 -> -- idx : TBasicType TInt - IO (Ptr FlowBoxChild) - - -flowBoxGetChildAtIndex :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Int32 -- idx - -> m (Maybe FlowBoxChild) -- result -flowBoxGetChildAtIndex _obj idx = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_child_at_index _obj' idx - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject FlowBoxChild) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FlowBoxGetChildAtIndexMethodInfo -instance (signature ~ (Int32 -> m (Maybe FlowBoxChild)), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where - overloadedMethod _ = flowBoxGetChildAtIndex - --- method FlowBox::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_column_spacing" gtk_flow_box_get_column_spacing :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO Word32 - - -flowBoxGetColumnSpacing :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Word32 -- result -flowBoxGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_column_spacing _obj' - touchManagedPtr _obj - return result - -data FlowBoxGetColumnSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetColumnSpacingMethodInfo a signature where - overloadedMethod _ = flowBoxGetColumnSpacing - --- method FlowBox::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_get_homogeneous" gtk_flow_box_get_homogeneous :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO CInt - - -flowBoxGetHomogeneous :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Bool -- result -flowBoxGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FlowBoxGetHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetHomogeneousMethodInfo a signature where - overloadedMethod _ = flowBoxGetHomogeneous - --- method FlowBox::get_max_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_max_children_per_line" gtk_flow_box_get_max_children_per_line :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO Word32 - - -flowBoxGetMaxChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Word32 -- result -flowBoxGetMaxChildrenPerLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_max_children_per_line _obj' - touchManagedPtr _obj - return result - -data FlowBoxGetMaxChildrenPerLineMethodInfo -instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetMaxChildrenPerLineMethodInfo a signature where - overloadedMethod _ = flowBoxGetMaxChildrenPerLine - --- method FlowBox::get_min_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_min_children_per_line" gtk_flow_box_get_min_children_per_line :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO Word32 - - -flowBoxGetMinChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Word32 -- result -flowBoxGetMinChildrenPerLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_min_children_per_line _obj' - touchManagedPtr _obj - return result - -data FlowBoxGetMinChildrenPerLineMethodInfo -instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetMinChildrenPerLineMethodInfo a signature where - overloadedMethod _ = flowBoxGetMinChildrenPerLine - --- method FlowBox::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_row_spacing" gtk_flow_box_get_row_spacing :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO Word32 - - -flowBoxGetRowSpacing :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m Word32 -- result -flowBoxGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_row_spacing _obj' - touchManagedPtr _obj - return result - -data FlowBoxGetRowSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetRowSpacingMethodInfo a signature where - overloadedMethod _ = flowBoxGetRowSpacing - --- method FlowBox::get_selected_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "FlowBoxChild")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_selected_children" gtk_flow_box_get_selected_children :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO (Ptr (GList (Ptr FlowBoxChild))) - - -flowBoxGetSelectedChildren :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m [FlowBoxChild] -- result -flowBoxGetSelectedChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_selected_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject FlowBoxChild) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data FlowBoxGetSelectedChildrenMethodInfo -instance (signature ~ (m [FlowBoxChild]), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetSelectedChildrenMethodInfo a signature where - overloadedMethod _ = flowBoxGetSelectedChildren - --- method FlowBox::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_get_selection_mode" gtk_flow_box_get_selection_mode :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO CUInt - - -flowBoxGetSelectionMode :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m SelectionMode -- result -flowBoxGetSelectionMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_selection_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FlowBoxGetSelectionModeMethodInfo -instance (signature ~ (m SelectionMode), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetSelectionModeMethodInfo a signature where - overloadedMethod _ = flowBoxGetSelectionMode - --- method FlowBox::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_flow_box_insert" gtk_flow_box_insert :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -flowBoxInsert :: - (MonadIO m, FlowBoxK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Int32 -- position - -> m () -- result -flowBoxInsert _obj widget position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_flow_box_insert _obj' widget' position - touchManagedPtr _obj - touchManagedPtr widget - return () - -data FlowBoxInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, FlowBoxK a, WidgetK b) => MethodInfo FlowBoxInsertMethodInfo a signature where - overloadedMethod _ = flowBoxInsert - --- method FlowBox::invalidate_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_invalidate_filter" gtk_flow_box_invalidate_filter :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO () - - -flowBoxInvalidateFilter :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m () -- result -flowBoxInvalidateFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_invalidate_filter _obj' - touchManagedPtr _obj - return () - -data FlowBoxInvalidateFilterMethodInfo -instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxInvalidateFilterMethodInfo a signature where - overloadedMethod _ = flowBoxInvalidateFilter - --- method FlowBox::invalidate_sort --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_invalidate_sort" gtk_flow_box_invalidate_sort :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO () - - -flowBoxInvalidateSort :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m () -- result -flowBoxInvalidateSort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_invalidate_sort _obj' - touchManagedPtr _obj - return () - -data FlowBoxInvalidateSortMethodInfo -instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxInvalidateSortMethodInfo a signature where - overloadedMethod _ = flowBoxInvalidateSort - --- method FlowBox::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_select_all" gtk_flow_box_select_all :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO () - - -flowBoxSelectAll :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m () -- result -flowBoxSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_select_all _obj' - touchManagedPtr _obj - return () - -data FlowBoxSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSelectAllMethodInfo a signature where - overloadedMethod _ = flowBoxSelectAll - --- method FlowBox::select_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", 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 "gtk_flow_box_select_child" gtk_flow_box_select_child :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Ptr FlowBoxChild -> -- child : TInterface "Gtk" "FlowBoxChild" - IO () - - -flowBoxSelectChild :: - (MonadIO m, FlowBoxK a, FlowBoxChildK b) => - a -- _obj - -> b -- child - -> m () -- result -flowBoxSelectChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_flow_box_select_child _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data FlowBoxSelectChildMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, FlowBoxChildK b) => MethodInfo FlowBoxSelectChildMethodInfo a signature where - overloadedMethod _ = flowBoxSelectChild - --- method FlowBox::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_flow_box_selected_foreach" gtk_flow_box_selected_foreach :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - FunPtr FlowBoxForeachFuncC -> -- func : TInterface "Gtk" "FlowBoxForeachFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -flowBoxSelectedForeach :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> FlowBoxForeachFunc -- func - -> m () -- result -flowBoxSelectedForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkFlowBoxForeachFunc (flowBoxForeachFuncWrapper Nothing func) - let data_ = nullPtr - gtk_flow_box_selected_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data FlowBoxSelectedForeachMethodInfo -instance (signature ~ (FlowBoxForeachFunc -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSelectedForeachMethodInfo a signature where - overloadedMethod _ = flowBoxSelectedForeach - --- method FlowBox::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", 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 "gtk_flow_box_set_activate_on_single_click" gtk_flow_box_set_activate_on_single_click :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - CInt -> -- single : TBasicType TBoolean - IO () - - -flowBoxSetActivateOnSingleClick :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Bool -- single - -> m () -- result -flowBoxSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_flow_box_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - -data FlowBoxSetActivateOnSingleClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = flowBoxSetActivateOnSingleClick - --- method FlowBox::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_flow_box_set_column_spacing" gtk_flow_box_set_column_spacing :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- spacing : TBasicType TUInt - IO () - - -flowBoxSetColumnSpacing :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -flowBoxSetColumnSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_column_spacing _obj' spacing - touchManagedPtr _obj - return () - -data FlowBoxSetColumnSpacingMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetColumnSpacingMethodInfo a signature where - overloadedMethod _ = flowBoxSetColumnSpacing - --- method FlowBox::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_set_filter_func" gtk_flow_box_set_filter_func :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - FunPtr FlowBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "FlowBoxFilterFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -flowBoxSetFilterFunc :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Maybe (FlowBoxFilterFunc) -- filterFunc - -> m () -- result -flowBoxSetFilterFunc _obj filterFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilterFunc <- case filterFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilterFunc -> do - jFilterFunc' <- mkFlowBoxFilterFunc (flowBoxFilterFuncWrapper Nothing jFilterFunc) - return jFilterFunc' - let userData = castFunPtrToPtr maybeFilterFunc - let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_filter_func _obj' maybeFilterFunc userData destroy - touchManagedPtr _obj - return () - -data FlowBoxSetFilterFuncMethodInfo -instance (signature ~ (Maybe (FlowBoxFilterFunc) -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetFilterFuncMethodInfo a signature where - overloadedMethod _ = flowBoxSetFilterFunc - --- method FlowBox::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_flow_box_set_hadjustment" gtk_flow_box_set_hadjustment :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -flowBoxSetHadjustment :: - (MonadIO m, FlowBoxK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -flowBoxSetHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_flow_box_set_hadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data FlowBoxSetHadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, AdjustmentK b) => MethodInfo FlowBoxSetHadjustmentMethodInfo a signature where - overloadedMethod _ = flowBoxSetHadjustment - --- method FlowBox::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_flow_box_set_homogeneous" gtk_flow_box_set_homogeneous :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -flowBoxSetHomogeneous :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -flowBoxSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_flow_box_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data FlowBoxSetHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetHomogeneousMethodInfo a signature where - overloadedMethod _ = flowBoxSetHomogeneous - --- method FlowBox::set_max_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", 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 "gtk_flow_box_set_max_children_per_line" gtk_flow_box_set_max_children_per_line :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- n_children : TBasicType TUInt - IO () - - -flowBoxSetMaxChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Word32 -- nChildren - -> m () -- result -flowBoxSetMaxChildrenPerLine _obj nChildren = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_max_children_per_line _obj' nChildren - touchManagedPtr _obj - return () - -data FlowBoxSetMaxChildrenPerLineMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetMaxChildrenPerLineMethodInfo a signature where - overloadedMethod _ = flowBoxSetMaxChildrenPerLine - --- method FlowBox::set_min_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", 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 "gtk_flow_box_set_min_children_per_line" gtk_flow_box_set_min_children_per_line :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- n_children : TBasicType TUInt - IO () - - -flowBoxSetMinChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Word32 -- nChildren - -> m () -- result -flowBoxSetMinChildrenPerLine _obj nChildren = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_min_children_per_line _obj' nChildren - touchManagedPtr _obj - return () - -data FlowBoxSetMinChildrenPerLineMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetMinChildrenPerLineMethodInfo a signature where - overloadedMethod _ = flowBoxSetMinChildrenPerLine - --- method FlowBox::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_flow_box_set_row_spacing" gtk_flow_box_set_row_spacing :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- spacing : TBasicType TUInt - IO () - - -flowBoxSetRowSpacing :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -flowBoxSetRowSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_row_spacing _obj' spacing - touchManagedPtr _obj - return () - -data FlowBoxSetRowSpacingMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetRowSpacingMethodInfo a signature where - overloadedMethod _ = flowBoxSetRowSpacing - --- method FlowBox::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", 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 "gtk_flow_box_set_selection_mode" gtk_flow_box_set_selection_mode :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - CUInt -> -- mode : TInterface "Gtk" "SelectionMode" - IO () - - -flowBoxSetSelectionMode :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> SelectionMode -- mode - -> m () -- result -flowBoxSetSelectionMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_flow_box_set_selection_mode _obj' mode' - touchManagedPtr _obj - return () - -data FlowBoxSetSelectionModeMethodInfo -instance (signature ~ (SelectionMode -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetSelectionModeMethodInfo a signature where - overloadedMethod _ = flowBoxSetSelectionMode - --- method FlowBox::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_set_sort_func" gtk_flow_box_set_sort_func :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - FunPtr FlowBoxSortFuncC -> -- sort_func : TInterface "Gtk" "FlowBoxSortFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -flowBoxSetSortFunc :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> Maybe (FlowBoxSortFunc) -- sortFunc - -> m () -- result -flowBoxSetSortFunc _obj sortFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSortFunc <- case sortFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jSortFunc -> do - jSortFunc' <- mkFlowBoxSortFunc (flowBoxSortFuncWrapper Nothing jSortFunc) - return jSortFunc' - let userData = castFunPtrToPtr maybeSortFunc - let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_sort_func _obj' maybeSortFunc userData destroy - touchManagedPtr _obj - return () - -data FlowBoxSetSortFuncMethodInfo -instance (signature ~ (Maybe (FlowBoxSortFunc) -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetSortFuncMethodInfo a signature where - overloadedMethod _ = flowBoxSetSortFunc - --- method FlowBox::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_flow_box_set_vadjustment" gtk_flow_box_set_vadjustment :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -flowBoxSetVadjustment :: - (MonadIO m, FlowBoxK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -flowBoxSetVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_flow_box_set_vadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data FlowBoxSetVadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, AdjustmentK b) => MethodInfo FlowBoxSetVadjustmentMethodInfo a signature where - overloadedMethod _ = flowBoxSetVadjustment - --- method FlowBox::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", 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 "gtk_flow_box_unselect_all" gtk_flow_box_unselect_all :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - IO () - - -flowBoxUnselectAll :: - (MonadIO m, FlowBoxK a) => - a -- _obj - -> m () -- result -flowBoxUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_unselect_all _obj' - touchManagedPtr _obj - return () - -data FlowBoxUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxUnselectAllMethodInfo a signature where - overloadedMethod _ = flowBoxUnselectAll - --- method FlowBox::unselect_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", 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 "gtk_flow_box_unselect_child" gtk_flow_box_unselect_child :: - Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Ptr FlowBoxChild -> -- child : TInterface "Gtk" "FlowBoxChild" - IO () - - -flowBoxUnselectChild :: - (MonadIO m, FlowBoxK a, FlowBoxChildK b) => - a -- _obj - -> b -- child - -> m () -- result -flowBoxUnselectChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_flow_box_unselect_child _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data FlowBoxUnselectChildMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, FlowBoxChildK b) => MethodInfo FlowBoxUnselectChildMethodInfo a signature where - overloadedMethod _ = flowBoxUnselectChild - - diff --git a/GI/Gtk/Objects/FlowBox.hs-boot b/GI/Gtk/Objects/FlowBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBox.hs-boot +++ /dev/null @@ -1,55 +0,0 @@ -module GI.Gtk.Objects.FlowBox 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 FlowBox = FlowBox (ForeignPtr FlowBox) -instance GObject FlowBox where -class GObject o => FlowBoxK o -instance (GObject o, IsDescendantOf FlowBox o) => FlowBoxK o -data FlowBoxActivateOnSingleClickPropertyInfo -data FlowBoxColumnSpacingPropertyInfo -data FlowBoxHomogeneousPropertyInfo -data FlowBoxMaxChildrenPerLinePropertyInfo -data FlowBoxMinChildrenPerLinePropertyInfo -data FlowBoxRowSpacingPropertyInfo -data FlowBoxSelectionModePropertyInfo -data FlowBoxActivateCursorChildSignalInfo -data FlowBoxChildActivatedSignalInfo -data FlowBoxMoveCursorSignalInfo -data FlowBoxSelectAllSignalInfo -data FlowBoxSelectedChildrenChangedSignalInfo -data FlowBoxToggleCursorChildSignalInfo -data FlowBoxUnselectAllSignalInfo -data FlowBoxGetActivateOnSingleClickMethodInfo -data FlowBoxGetChildAtIndexMethodInfo -data FlowBoxGetColumnSpacingMethodInfo -data FlowBoxGetHomogeneousMethodInfo -data FlowBoxGetMaxChildrenPerLineMethodInfo -data FlowBoxGetMinChildrenPerLineMethodInfo -data FlowBoxGetRowSpacingMethodInfo -data FlowBoxGetSelectedChildrenMethodInfo -data FlowBoxGetSelectionModeMethodInfo -data FlowBoxInsertMethodInfo -data FlowBoxInvalidateFilterMethodInfo -data FlowBoxInvalidateSortMethodInfo -data FlowBoxSelectAllMethodInfo -data FlowBoxSelectChildMethodInfo -data FlowBoxSelectedForeachMethodInfo -data FlowBoxSetActivateOnSingleClickMethodInfo -data FlowBoxSetColumnSpacingMethodInfo -data FlowBoxSetFilterFuncMethodInfo -data FlowBoxSetHadjustmentMethodInfo -data FlowBoxSetHomogeneousMethodInfo -data FlowBoxSetMaxChildrenPerLineMethodInfo -data FlowBoxSetMinChildrenPerLineMethodInfo -data FlowBoxSetRowSpacingMethodInfo -data FlowBoxSetSelectionModeMethodInfo -data FlowBoxSetSortFuncMethodInfo -data FlowBoxSetVadjustmentMethodInfo -data FlowBoxUnselectAllMethodInfo -data FlowBoxUnselectChildMethodInfo diff --git a/GI/Gtk/Objects/FlowBoxAccessible.hs b/GI/Gtk/Objects/FlowBoxAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.FlowBoxAccessible - ( - --- * Exported types - FlowBoxAccessible(..) , - FlowBoxAccessibleK , - toFlowBoxAccessible , - noFlowBoxAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FlowBoxAccessible = FlowBoxAccessible (ForeignPtr FlowBoxAccessible) -foreign import ccall "gtk_flow_box_accessible_get_type" - c_gtk_flow_box_accessible_get_type :: IO GType - -type instance ParentTypes FlowBoxAccessible = FlowBoxAccessibleParentTypes -type FlowBoxAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject FlowBoxAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_flow_box_accessible_get_type - - -class GObject o => FlowBoxAccessibleK o -instance (GObject o, IsDescendantOf FlowBoxAccessible o) => FlowBoxAccessibleK o - -toFlowBoxAccessible :: FlowBoxAccessibleK o => o -> IO FlowBoxAccessible -toFlowBoxAccessible = unsafeCastTo FlowBoxAccessible - -noFlowBoxAccessible :: Maybe FlowBoxAccessible -noFlowBoxAccessible = Nothing - -type family ResolveFlowBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveFlowBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveFlowBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveFlowBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFlowBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFlowBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveFlowBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveFlowBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveFlowBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFlowBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFlowBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveFlowBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveFlowBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveFlowBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFlowBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFlowBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFlowBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveFlowBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveFlowBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFlowBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveFlowBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveFlowBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveFlowBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveFlowBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFlowBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveFlowBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveFlowBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveFlowBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveFlowBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveFlowBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFlowBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFlowBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFlowBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveFlowBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFlowBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFlowBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFlowBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFlowBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFlowBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveFlowBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveFlowBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFlowBoxAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveFlowBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveFlowBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveFlowBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveFlowBoxAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveFlowBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveFlowBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveFlowBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveFlowBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFlowBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFlowBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveFlowBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveFlowBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveFlowBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveFlowBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFlowBoxAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveFlowBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveFlowBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveFlowBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveFlowBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveFlowBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFlowBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveFlowBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveFlowBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveFlowBoxAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFlowBoxAccessibleMethod t FlowBoxAccessible, MethodInfo info FlowBoxAccessible p) => IsLabelProxy t (FlowBoxAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFlowBoxAccessibleMethod t FlowBoxAccessible, MethodInfo info FlowBoxAccessible p) => IsLabel t (FlowBoxAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FlowBoxAccessible = FlowBoxAccessibleAttributeList -type FlowBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FlowBoxAccessible = FlowBoxAccessibleSignalList -type FlowBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/FlowBoxAccessible.hs-boot b/GI/Gtk/Objects/FlowBoxAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FlowBoxAccessible 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 FlowBoxAccessible = FlowBoxAccessible (ForeignPtr FlowBoxAccessible) -instance GObject FlowBoxAccessible where -class GObject o => FlowBoxAccessibleK o -instance (GObject o, IsDescendantOf FlowBoxAccessible o) => FlowBoxAccessibleK o diff --git a/GI/Gtk/Objects/FlowBoxChild.hs b/GI/Gtk/Objects/FlowBoxChild.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxChild.hs +++ /dev/null @@ -1,569 +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.Gtk.Objects.FlowBoxChild - ( - --- * Exported types - FlowBoxChild(..) , - FlowBoxChildK , - toFlowBoxChild , - noFlowBoxChild , - - - -- * Methods --- ** flowBoxChildChanged - FlowBoxChildChangedMethodInfo , - flowBoxChildChanged , - - --- ** flowBoxChildGetIndex - FlowBoxChildGetIndexMethodInfo , - flowBoxChildGetIndex , - - --- ** flowBoxChildIsSelected - FlowBoxChildIsSelectedMethodInfo , - flowBoxChildIsSelected , - - --- ** flowBoxChildNew - flowBoxChildNew , - - - - - -- * Signals --- ** Activate - FlowBoxChildActivateCallback , - FlowBoxChildActivateCallbackC , - FlowBoxChildActivateSignalInfo , - afterFlowBoxChildActivate , - flowBoxChildActivateCallbackWrapper , - flowBoxChildActivateClosure , - mkFlowBoxChildActivateCallback , - noFlowBoxChildActivateCallback , - onFlowBoxChildActivate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FlowBoxChild = FlowBoxChild (ForeignPtr FlowBoxChild) -foreign import ccall "gtk_flow_box_child_get_type" - c_gtk_flow_box_child_get_type :: IO GType - -type instance ParentTypes FlowBoxChild = FlowBoxChildParentTypes -type FlowBoxChildParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject FlowBoxChild where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_flow_box_child_get_type - - -class GObject o => FlowBoxChildK o -instance (GObject o, IsDescendantOf FlowBoxChild o) => FlowBoxChildK o - -toFlowBoxChild :: FlowBoxChildK o => o -> IO FlowBoxChild -toFlowBoxChild = unsafeCastTo FlowBoxChild - -noFlowBoxChild :: Maybe FlowBoxChild -noFlowBoxChild = Nothing - -type family ResolveFlowBoxChildMethod (t :: Symbol) (o :: *) :: * where - ResolveFlowBoxChildMethod "activate" o = WidgetActivateMethodInfo - ResolveFlowBoxChildMethod "add" o = ContainerAddMethodInfo - ResolveFlowBoxChildMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFlowBoxChildMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFlowBoxChildMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFlowBoxChildMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFlowBoxChildMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFlowBoxChildMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFlowBoxChildMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFlowBoxChildMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFlowBoxChildMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFlowBoxChildMethod "changed" o = FlowBoxChildChangedMethodInfo - ResolveFlowBoxChildMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFlowBoxChildMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFlowBoxChildMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFlowBoxChildMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFlowBoxChildMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFlowBoxChildMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFlowBoxChildMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFlowBoxChildMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFlowBoxChildMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFlowBoxChildMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFlowBoxChildMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFlowBoxChildMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFlowBoxChildMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFlowBoxChildMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFlowBoxChildMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFlowBoxChildMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFlowBoxChildMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFlowBoxChildMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFlowBoxChildMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFlowBoxChildMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFlowBoxChildMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFlowBoxChildMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFlowBoxChildMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFlowBoxChildMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFlowBoxChildMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFlowBoxChildMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFlowBoxChildMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFlowBoxChildMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFlowBoxChildMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFlowBoxChildMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFlowBoxChildMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFlowBoxChildMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFlowBoxChildMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFlowBoxChildMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFlowBoxChildMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFlowBoxChildMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFlowBoxChildMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFlowBoxChildMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFlowBoxChildMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFlowBoxChildMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFlowBoxChildMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFlowBoxChildMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFlowBoxChildMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFlowBoxChildMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFlowBoxChildMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFlowBoxChildMethod "draw" o = WidgetDrawMethodInfo - ResolveFlowBoxChildMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFlowBoxChildMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFlowBoxChildMethod "event" o = WidgetEventMethodInfo - ResolveFlowBoxChildMethod "forall" o = ContainerForallMethodInfo - ResolveFlowBoxChildMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFlowBoxChildMethod "foreach" o = ContainerForeachMethodInfo - ResolveFlowBoxChildMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFlowBoxChildMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFlowBoxChildMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFlowBoxChildMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFlowBoxChildMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFlowBoxChildMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFlowBoxChildMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFlowBoxChildMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFlowBoxChildMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFlowBoxChildMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFlowBoxChildMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFlowBoxChildMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFlowBoxChildMethod "hide" o = WidgetHideMethodInfo - ResolveFlowBoxChildMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFlowBoxChildMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFlowBoxChildMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFlowBoxChildMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFlowBoxChildMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFlowBoxChildMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFlowBoxChildMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFlowBoxChildMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFlowBoxChildMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFlowBoxChildMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFlowBoxChildMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFlowBoxChildMethod "isSelected" o = FlowBoxChildIsSelectedMethodInfo - ResolveFlowBoxChildMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFlowBoxChildMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFlowBoxChildMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFlowBoxChildMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFlowBoxChildMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFlowBoxChildMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFlowBoxChildMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFlowBoxChildMethod "map" o = WidgetMapMethodInfo - ResolveFlowBoxChildMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFlowBoxChildMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFlowBoxChildMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFlowBoxChildMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFlowBoxChildMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFlowBoxChildMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFlowBoxChildMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFlowBoxChildMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFlowBoxChildMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFlowBoxChildMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFlowBoxChildMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFlowBoxChildMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFlowBoxChildMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFlowBoxChildMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFlowBoxChildMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFlowBoxChildMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFlowBoxChildMethod "path" o = WidgetPathMethodInfo - ResolveFlowBoxChildMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFlowBoxChildMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFlowBoxChildMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFlowBoxChildMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFlowBoxChildMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFlowBoxChildMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFlowBoxChildMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFlowBoxChildMethod "realize" o = WidgetRealizeMethodInfo - ResolveFlowBoxChildMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFlowBoxChildMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFlowBoxChildMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFlowBoxChildMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFlowBoxChildMethod "remove" o = ContainerRemoveMethodInfo - ResolveFlowBoxChildMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFlowBoxChildMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFlowBoxChildMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFlowBoxChildMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFlowBoxChildMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFlowBoxChildMethod "reparent" o = WidgetReparentMethodInfo - ResolveFlowBoxChildMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFlowBoxChildMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFlowBoxChildMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFlowBoxChildMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFlowBoxChildMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFlowBoxChildMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFlowBoxChildMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFlowBoxChildMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFlowBoxChildMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFlowBoxChildMethod "show" o = WidgetShowMethodInfo - ResolveFlowBoxChildMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFlowBoxChildMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFlowBoxChildMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFlowBoxChildMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFlowBoxChildMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFlowBoxChildMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFlowBoxChildMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFlowBoxChildMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFlowBoxChildMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFlowBoxChildMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFlowBoxChildMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFlowBoxChildMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFlowBoxChildMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFlowBoxChildMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFlowBoxChildMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFlowBoxChildMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFlowBoxChildMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFlowBoxChildMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFlowBoxChildMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFlowBoxChildMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFlowBoxChildMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFlowBoxChildMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFlowBoxChildMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFlowBoxChildMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFlowBoxChildMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFlowBoxChildMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFlowBoxChildMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFlowBoxChildMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFlowBoxChildMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFlowBoxChildMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFlowBoxChildMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFlowBoxChildMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFlowBoxChildMethod "getChild" o = BinGetChildMethodInfo - ResolveFlowBoxChildMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFlowBoxChildMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFlowBoxChildMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFlowBoxChildMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFlowBoxChildMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFlowBoxChildMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFlowBoxChildMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFlowBoxChildMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFlowBoxChildMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFlowBoxChildMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFlowBoxChildMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFlowBoxChildMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFlowBoxChildMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFlowBoxChildMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFlowBoxChildMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFlowBoxChildMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFlowBoxChildMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFlowBoxChildMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFlowBoxChildMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFlowBoxChildMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFlowBoxChildMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFlowBoxChildMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFlowBoxChildMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFlowBoxChildMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFlowBoxChildMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFlowBoxChildMethod "getIndex" o = FlowBoxChildGetIndexMethodInfo - ResolveFlowBoxChildMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFlowBoxChildMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFlowBoxChildMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFlowBoxChildMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFlowBoxChildMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFlowBoxChildMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFlowBoxChildMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFlowBoxChildMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFlowBoxChildMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFlowBoxChildMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFlowBoxChildMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFlowBoxChildMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFlowBoxChildMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFlowBoxChildMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFlowBoxChildMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFlowBoxChildMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFlowBoxChildMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFlowBoxChildMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFlowBoxChildMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFlowBoxChildMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFlowBoxChildMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFlowBoxChildMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFlowBoxChildMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFlowBoxChildMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFlowBoxChildMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFlowBoxChildMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFlowBoxChildMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFlowBoxChildMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFlowBoxChildMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFlowBoxChildMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFlowBoxChildMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFlowBoxChildMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFlowBoxChildMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFlowBoxChildMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFlowBoxChildMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFlowBoxChildMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFlowBoxChildMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFlowBoxChildMethod "getState" o = WidgetGetStateMethodInfo - ResolveFlowBoxChildMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFlowBoxChildMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFlowBoxChildMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFlowBoxChildMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFlowBoxChildMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFlowBoxChildMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFlowBoxChildMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFlowBoxChildMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFlowBoxChildMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFlowBoxChildMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFlowBoxChildMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFlowBoxChildMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFlowBoxChildMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFlowBoxChildMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFlowBoxChildMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFlowBoxChildMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFlowBoxChildMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFlowBoxChildMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFlowBoxChildMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFlowBoxChildMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFlowBoxChildMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFlowBoxChildMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFlowBoxChildMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFlowBoxChildMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFlowBoxChildMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFlowBoxChildMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFlowBoxChildMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFlowBoxChildMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFlowBoxChildMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFlowBoxChildMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFlowBoxChildMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFlowBoxChildMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFlowBoxChildMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFlowBoxChildMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFlowBoxChildMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFlowBoxChildMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFlowBoxChildMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFlowBoxChildMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFlowBoxChildMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFlowBoxChildMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFlowBoxChildMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFlowBoxChildMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFlowBoxChildMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFlowBoxChildMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFlowBoxChildMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFlowBoxChildMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFlowBoxChildMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFlowBoxChildMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFlowBoxChildMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFlowBoxChildMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFlowBoxChildMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFlowBoxChildMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFlowBoxChildMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFlowBoxChildMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFlowBoxChildMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFlowBoxChildMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFlowBoxChildMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFlowBoxChildMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFlowBoxChildMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFlowBoxChildMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFlowBoxChildMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFlowBoxChildMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFlowBoxChildMethod "setState" o = WidgetSetStateMethodInfo - ResolveFlowBoxChildMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFlowBoxChildMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFlowBoxChildMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFlowBoxChildMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFlowBoxChildMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFlowBoxChildMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFlowBoxChildMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFlowBoxChildMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFlowBoxChildMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFlowBoxChildMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFlowBoxChildMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFlowBoxChildMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFlowBoxChildMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFlowBoxChildMethod t FlowBoxChild, MethodInfo info FlowBoxChild p) => IsLabelProxy t (FlowBoxChild -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFlowBoxChildMethod t FlowBoxChild, MethodInfo info FlowBoxChild p) => IsLabel t (FlowBoxChild -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FlowBoxChild::activate -type FlowBoxChildActivateCallback = - IO () - -noFlowBoxChildActivateCallback :: Maybe FlowBoxChildActivateCallback -noFlowBoxChildActivateCallback = Nothing - -type FlowBoxChildActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFlowBoxChildActivateCallback :: FlowBoxChildActivateCallbackC -> IO (FunPtr FlowBoxChildActivateCallbackC) - -flowBoxChildActivateClosure :: FlowBoxChildActivateCallback -> IO Closure -flowBoxChildActivateClosure cb = newCClosure =<< mkFlowBoxChildActivateCallback wrapped - where wrapped = flowBoxChildActivateCallbackWrapper cb - -flowBoxChildActivateCallbackWrapper :: - FlowBoxChildActivateCallback -> - Ptr () -> - Ptr () -> - IO () -flowBoxChildActivateCallbackWrapper _cb _ _ = do - _cb - -onFlowBoxChildActivate :: (GObject a, MonadIO m) => a -> FlowBoxChildActivateCallback -> m SignalHandlerId -onFlowBoxChildActivate obj cb = liftIO $ connectFlowBoxChildActivate obj cb SignalConnectBefore -afterFlowBoxChildActivate :: (GObject a, MonadIO m) => a -> FlowBoxChildActivateCallback -> m SignalHandlerId -afterFlowBoxChildActivate obj cb = connectFlowBoxChildActivate obj cb SignalConnectAfter - -connectFlowBoxChildActivate :: (GObject a, MonadIO m) => - a -> FlowBoxChildActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectFlowBoxChildActivate obj cb after = liftIO $ do - cb' <- mkFlowBoxChildActivateCallback (flowBoxChildActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - -type instance AttributeList FlowBoxChild = FlowBoxChildAttributeList -type FlowBoxChildAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data FlowBoxChildActivateSignalInfo -instance SignalInfo FlowBoxChildActivateSignalInfo where - type HaskellCallbackType FlowBoxChildActivateSignalInfo = FlowBoxChildActivateCallback - connectSignal _ = connectFlowBoxChildActivate - -type instance SignalList FlowBoxChild = FlowBoxChildSignalList -type FlowBoxChildSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", FlowBoxChildActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FlowBoxChild::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FlowBoxChild") --- throws : False --- Skip return : False - -foreign import ccall "gtk_flow_box_child_new" gtk_flow_box_child_new :: - IO (Ptr FlowBoxChild) - - -flowBoxChildNew :: - (MonadIO m) => - m FlowBoxChild -- result -flowBoxChildNew = liftIO $ do - result <- gtk_flow_box_child_new - checkUnexpectedReturnNULL "gtk_flow_box_child_new" result - result' <- (newObject FlowBoxChild) result - return result' - --- method FlowBoxChild::changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", 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 "gtk_flow_box_child_changed" gtk_flow_box_child_changed :: - Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild" - IO () - - -flowBoxChildChanged :: - (MonadIO m, FlowBoxChildK a) => - a -- _obj - -> m () -- result -flowBoxChildChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_child_changed _obj' - touchManagedPtr _obj - return () - -data FlowBoxChildChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildChangedMethodInfo a signature where - overloadedMethod _ = flowBoxChildChanged - --- method FlowBoxChild::get_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", 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 "gtk_flow_box_child_get_index" gtk_flow_box_child_get_index :: - Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild" - IO Int32 - - -flowBoxChildGetIndex :: - (MonadIO m, FlowBoxChildK a) => - a -- _obj - -> m Int32 -- result -flowBoxChildGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_child_get_index _obj' - touchManagedPtr _obj - return result - -data FlowBoxChildGetIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildGetIndexMethodInfo a signature where - overloadedMethod _ = flowBoxChildGetIndex - --- method FlowBoxChild::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", 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 "gtk_flow_box_child_is_selected" gtk_flow_box_child_is_selected :: - Ptr FlowBoxChild -> -- _obj : TInterface "Gtk" "FlowBoxChild" - IO CInt - - -flowBoxChildIsSelected :: - (MonadIO m, FlowBoxChildK a) => - a -- _obj - -> m Bool -- result -flowBoxChildIsSelected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_child_is_selected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FlowBoxChildIsSelectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildIsSelectedMethodInfo a signature where - overloadedMethod _ = flowBoxChildIsSelected - - diff --git a/GI/Gtk/Objects/FlowBoxChild.hs-boot b/GI/Gtk/Objects/FlowBoxChild.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxChild.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.FlowBoxChild 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 FlowBoxChild = FlowBoxChild (ForeignPtr FlowBoxChild) -instance GObject FlowBoxChild where -class GObject o => FlowBoxChildK o -instance (GObject o, IsDescendantOf FlowBoxChild o) => FlowBoxChildK o -data FlowBoxChildActivateSignalInfo -data FlowBoxChildChangedMethodInfo -data FlowBoxChildGetIndexMethodInfo -data FlowBoxChildIsSelectedMethodInfo diff --git a/GI/Gtk/Objects/FlowBoxChildAccessible.hs b/GI/Gtk/Objects/FlowBoxChildAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxChildAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.FlowBoxChildAccessible - ( - --- * Exported types - FlowBoxChildAccessible(..) , - FlowBoxChildAccessibleK , - toFlowBoxChildAccessible , - noFlowBoxChildAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FlowBoxChildAccessible = FlowBoxChildAccessible (ForeignPtr FlowBoxChildAccessible) -foreign import ccall "gtk_flow_box_child_accessible_get_type" - c_gtk_flow_box_child_accessible_get_type :: IO GType - -type instance ParentTypes FlowBoxChildAccessible = FlowBoxChildAccessibleParentTypes -type FlowBoxChildAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject FlowBoxChildAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_flow_box_child_accessible_get_type - - -class GObject o => FlowBoxChildAccessibleK o -instance (GObject o, IsDescendantOf FlowBoxChildAccessible o) => FlowBoxChildAccessibleK o - -toFlowBoxChildAccessible :: FlowBoxChildAccessibleK o => o -> IO FlowBoxChildAccessible -toFlowBoxChildAccessible = unsafeCastTo FlowBoxChildAccessible - -noFlowBoxChildAccessible :: Maybe FlowBoxChildAccessible -noFlowBoxChildAccessible = Nothing - -type family ResolveFlowBoxChildAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveFlowBoxChildAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveFlowBoxChildAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFlowBoxChildAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFlowBoxChildAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveFlowBoxChildAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveFlowBoxChildAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFlowBoxChildAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFlowBoxChildAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveFlowBoxChildAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveFlowBoxChildAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFlowBoxChildAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFlowBoxChildAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFlowBoxChildAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveFlowBoxChildAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveFlowBoxChildAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFlowBoxChildAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveFlowBoxChildAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveFlowBoxChildAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveFlowBoxChildAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFlowBoxChildAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveFlowBoxChildAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveFlowBoxChildAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveFlowBoxChildAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveFlowBoxChildAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFlowBoxChildAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFlowBoxChildAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFlowBoxChildAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFlowBoxChildAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFlowBoxChildAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFlowBoxChildAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFlowBoxChildAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFlowBoxChildAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveFlowBoxChildAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveFlowBoxChildAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFlowBoxChildAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveFlowBoxChildAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveFlowBoxChildAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveFlowBoxChildAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveFlowBoxChildAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveFlowBoxChildAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveFlowBoxChildAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveFlowBoxChildAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveFlowBoxChildAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFlowBoxChildAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFlowBoxChildAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveFlowBoxChildAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveFlowBoxChildAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveFlowBoxChildAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFlowBoxChildAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveFlowBoxChildAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveFlowBoxChildAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveFlowBoxChildAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveFlowBoxChildAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveFlowBoxChildAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFlowBoxChildAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveFlowBoxChildAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveFlowBoxChildAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveFlowBoxChildAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFlowBoxChildAccessibleMethod t FlowBoxChildAccessible, MethodInfo info FlowBoxChildAccessible p) => IsLabelProxy t (FlowBoxChildAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFlowBoxChildAccessibleMethod t FlowBoxChildAccessible, MethodInfo info FlowBoxChildAccessible p) => IsLabel t (FlowBoxChildAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FlowBoxChildAccessible = FlowBoxChildAccessibleAttributeList -type FlowBoxChildAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FlowBoxChildAccessible = FlowBoxChildAccessibleSignalList -type FlowBoxChildAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot b/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FlowBoxChildAccessible 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 FlowBoxChildAccessible = FlowBoxChildAccessible (ForeignPtr FlowBoxChildAccessible) -instance GObject FlowBoxChildAccessible where -class GObject o => FlowBoxChildAccessibleK o -instance (GObject o, IsDescendantOf FlowBoxChildAccessible o) => FlowBoxChildAccessibleK o diff --git a/GI/Gtk/Objects/FontButton.hs b/GI/Gtk/Objects/FontButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FontButton.hs +++ /dev/null @@ -1,1197 +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.Gtk.Objects.FontButton - ( - --- * Exported types - FontButton(..) , - FontButtonK , - toFontButton , - noFontButton , - - - -- * Methods --- ** fontButtonGetFontName - FontButtonGetFontNameMethodInfo , - fontButtonGetFontName , - - --- ** fontButtonGetShowSize - FontButtonGetShowSizeMethodInfo , - fontButtonGetShowSize , - - --- ** fontButtonGetShowStyle - FontButtonGetShowStyleMethodInfo , - fontButtonGetShowStyle , - - --- ** fontButtonGetTitle - FontButtonGetTitleMethodInfo , - fontButtonGetTitle , - - --- ** fontButtonGetUseFont - FontButtonGetUseFontMethodInfo , - fontButtonGetUseFont , - - --- ** fontButtonGetUseSize - FontButtonGetUseSizeMethodInfo , - fontButtonGetUseSize , - - --- ** fontButtonNew - fontButtonNew , - - --- ** fontButtonNewWithFont - fontButtonNewWithFont , - - --- ** fontButtonSetFontName - FontButtonSetFontNameMethodInfo , - fontButtonSetFontName , - - --- ** fontButtonSetShowSize - FontButtonSetShowSizeMethodInfo , - fontButtonSetShowSize , - - --- ** fontButtonSetShowStyle - FontButtonSetShowStyleMethodInfo , - fontButtonSetShowStyle , - - --- ** fontButtonSetTitle - FontButtonSetTitleMethodInfo , - fontButtonSetTitle , - - --- ** fontButtonSetUseFont - FontButtonSetUseFontMethodInfo , - fontButtonSetUseFont , - - --- ** fontButtonSetUseSize - FontButtonSetUseSizeMethodInfo , - fontButtonSetUseSize , - - - - - -- * Properties --- ** FontName - FontButtonFontNamePropertyInfo , - clearFontButtonFontName , - constructFontButtonFontName , - fontButtonFontName , - getFontButtonFontName , - setFontButtonFontName , - - --- ** ShowSize - FontButtonShowSizePropertyInfo , - constructFontButtonShowSize , - fontButtonShowSize , - getFontButtonShowSize , - setFontButtonShowSize , - - --- ** ShowStyle - FontButtonShowStylePropertyInfo , - constructFontButtonShowStyle , - fontButtonShowStyle , - getFontButtonShowStyle , - setFontButtonShowStyle , - - --- ** Title - FontButtonTitlePropertyInfo , - constructFontButtonTitle , - fontButtonTitle , - getFontButtonTitle , - setFontButtonTitle , - - --- ** UseFont - FontButtonUseFontPropertyInfo , - constructFontButtonUseFont , - fontButtonUseFont , - getFontButtonUseFont , - setFontButtonUseFont , - - --- ** UseSize - FontButtonUseSizePropertyInfo , - constructFontButtonUseSize , - fontButtonUseSize , - getFontButtonUseSize , - setFontButtonUseSize , - - - - - -- * Signals --- ** FontSet - FontButtonFontSetCallback , - FontButtonFontSetCallbackC , - FontButtonFontSetSignalInfo , - afterFontButtonFontSet , - fontButtonFontSetCallbackWrapper , - fontButtonFontSetClosure , - mkFontButtonFontSetCallback , - noFontButtonFontSetCallback , - onFontButtonFontSet , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FontButton = FontButton (ForeignPtr FontButton) -foreign import ccall "gtk_font_button_get_type" - c_gtk_font_button_get_type :: IO GType - -type instance ParentTypes FontButton = FontButtonParentTypes -type FontButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, FontChooser] - -instance GObject FontButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_font_button_get_type - - -class GObject o => FontButtonK o -instance (GObject o, IsDescendantOf FontButton o) => FontButtonK o - -toFontButton :: FontButtonK o => o -> IO FontButton -toFontButton = unsafeCastTo FontButton - -noFontButton :: Maybe FontButton -noFontButton = Nothing - -type family ResolveFontButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveFontButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveFontButtonMethod "add" o = ContainerAddMethodInfo - ResolveFontButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFontButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFontButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFontButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFontButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFontButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFontButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFontButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFontButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFontButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFontButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFontButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFontButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFontButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFontButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveFontButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFontButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFontButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFontButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFontButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFontButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFontButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFontButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFontButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFontButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFontButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveFontButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFontButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFontButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFontButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFontButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFontButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFontButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFontButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFontButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFontButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFontButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFontButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFontButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFontButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFontButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFontButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFontButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFontButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFontButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFontButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFontButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFontButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFontButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFontButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFontButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFontButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFontButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFontButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFontButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveFontButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFontButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveFontButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFontButtonMethod "event" o = WidgetEventMethodInfo - ResolveFontButtonMethod "forall" o = ContainerForallMethodInfo - ResolveFontButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveFontButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFontButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFontButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFontButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFontButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFontButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFontButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFontButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFontButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFontButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFontButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFontButtonMethod "hide" o = WidgetHideMethodInfo - ResolveFontButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFontButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFontButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFontButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFontButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFontButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFontButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFontButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFontButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFontButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFontButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFontButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFontButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFontButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFontButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveFontButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFontButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFontButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFontButtonMethod "map" o = WidgetMapMethodInfo - ResolveFontButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFontButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFontButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFontButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFontButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFontButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFontButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFontButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFontButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFontButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFontButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFontButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFontButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFontButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFontButtonMethod "path" o = WidgetPathMethodInfo - ResolveFontButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveFontButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFontButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFontButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFontButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFontButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFontButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFontButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFontButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveFontButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFontButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFontButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveFontButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveFontButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFontButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFontButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFontButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFontButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFontButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveFontButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFontButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFontButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFontButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFontButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFontButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFontButtonMethod "show" o = WidgetShowMethodInfo - ResolveFontButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFontButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFontButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFontButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFontButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFontButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFontButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFontButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveFontButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFontButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFontButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFontButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFontButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFontButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFontButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFontButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFontButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFontButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFontButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFontButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveFontButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveFontButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveFontButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFontButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFontButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFontButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFontButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveFontButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFontButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFontButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFontButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFontButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFontButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveFontButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFontButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFontButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFontButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFontButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFontButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFontButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFontButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFontButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFontButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFontButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFontButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveFontButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFontButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFontButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFontButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFontButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveFontButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFontButtonMethod "getFont" o = FontChooserGetFontMethodInfo - ResolveFontButtonMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo - ResolveFontButtonMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo - ResolveFontButtonMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo - ResolveFontButtonMethod "getFontName" o = FontButtonGetFontNameMethodInfo - ResolveFontButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFontButtonMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo - ResolveFontButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFontButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFontButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFontButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFontButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFontButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFontButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveFontButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveFontButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFontButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveFontButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFontButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFontButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFontButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFontButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFontButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFontButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFontButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFontButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFontButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFontButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFontButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFontButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFontButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFontButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFontButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFontButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFontButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFontButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFontButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFontButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFontButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFontButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFontButtonMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo - ResolveFontButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFontButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFontButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveFontButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveFontButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFontButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFontButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFontButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFontButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFontButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFontButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFontButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFontButtonMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo - ResolveFontButtonMethod "getShowSize" o = FontButtonGetShowSizeMethodInfo - ResolveFontButtonMethod "getShowStyle" o = FontButtonGetShowStyleMethodInfo - ResolveFontButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFontButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveFontButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFontButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFontButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFontButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFontButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFontButtonMethod "getTitle" o = FontButtonGetTitleMethodInfo - ResolveFontButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFontButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFontButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFontButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFontButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveFontButtonMethod "getUseFont" o = FontButtonGetUseFontMethodInfo - ResolveFontButtonMethod "getUseSize" o = FontButtonGetUseSizeMethodInfo - ResolveFontButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveFontButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveFontButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFontButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFontButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFontButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFontButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFontButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFontButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFontButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFontButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveFontButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveFontButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveFontButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFontButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveFontButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFontButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFontButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFontButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFontButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFontButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFontButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFontButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFontButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveFontButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFontButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFontButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFontButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFontButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFontButtonMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo - ResolveFontButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFontButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFontButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFontButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveFontButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFontButtonMethod "setFont" o = FontChooserSetFontMethodInfo - ResolveFontButtonMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo - ResolveFontButtonMethod "setFontName" o = FontButtonSetFontNameMethodInfo - ResolveFontButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFontButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFontButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFontButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFontButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFontButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFontButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveFontButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveFontButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveFontButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFontButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFontButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFontButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFontButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFontButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFontButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFontButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFontButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFontButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFontButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFontButtonMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo - ResolveFontButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFontButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFontButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFontButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFontButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveFontButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveFontButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFontButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFontButtonMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo - ResolveFontButtonMethod "setShowSize" o = FontButtonSetShowSizeMethodInfo - ResolveFontButtonMethod "setShowStyle" o = FontButtonSetShowStyleMethodInfo - ResolveFontButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFontButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveFontButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFontButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFontButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFontButtonMethod "setTitle" o = FontButtonSetTitleMethodInfo - ResolveFontButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFontButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFontButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFontButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveFontButtonMethod "setUseFont" o = FontButtonSetUseFontMethodInfo - ResolveFontButtonMethod "setUseSize" o = FontButtonSetUseSizeMethodInfo - ResolveFontButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveFontButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveFontButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFontButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFontButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFontButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFontButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFontButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFontButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontButtonMethod t FontButton, MethodInfo info FontButton p) => IsLabelProxy t (FontButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontButtonMethod t FontButton, MethodInfo info FontButton p) => IsLabel t (FontButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FontButton::font-set -type FontButtonFontSetCallback = - IO () - -noFontButtonFontSetCallback :: Maybe FontButtonFontSetCallback -noFontButtonFontSetCallback = Nothing - -type FontButtonFontSetCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFontButtonFontSetCallback :: FontButtonFontSetCallbackC -> IO (FunPtr FontButtonFontSetCallbackC) - -fontButtonFontSetClosure :: FontButtonFontSetCallback -> IO Closure -fontButtonFontSetClosure cb = newCClosure =<< mkFontButtonFontSetCallback wrapped - where wrapped = fontButtonFontSetCallbackWrapper cb - -fontButtonFontSetCallbackWrapper :: - FontButtonFontSetCallback -> - Ptr () -> - Ptr () -> - IO () -fontButtonFontSetCallbackWrapper _cb _ _ = do - _cb - -onFontButtonFontSet :: (GObject a, MonadIO m) => a -> FontButtonFontSetCallback -> m SignalHandlerId -onFontButtonFontSet obj cb = liftIO $ connectFontButtonFontSet obj cb SignalConnectBefore -afterFontButtonFontSet :: (GObject a, MonadIO m) => a -> FontButtonFontSetCallback -> m SignalHandlerId -afterFontButtonFontSet obj cb = connectFontButtonFontSet obj cb SignalConnectAfter - -connectFontButtonFontSet :: (GObject a, MonadIO m) => - a -> FontButtonFontSetCallback -> SignalConnectMode -> m SignalHandlerId -connectFontButtonFontSet obj cb after = liftIO $ do - cb' <- mkFontButtonFontSetCallback (fontButtonFontSetCallbackWrapper cb) - connectSignalFunPtr obj "font-set" cb' after - --- VVV Prop "font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonFontName obj = liftIO $ checkUnexpectedNothing "getFontButtonFontName" $ getObjectPropertyString obj "font-name" - -setFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) - -constructFontButtonFontName :: T.Text -> IO ([Char], GValue) -constructFontButtonFontName val = constructObjectPropertyString "font-name" (Just val) - -clearFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m () -clearFontButtonFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text) - -data FontButtonFontNamePropertyInfo -instance AttrInfo FontButtonFontNamePropertyInfo where - type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK - type AttrGetType FontButtonFontNamePropertyInfo = T.Text - type AttrLabel FontButtonFontNamePropertyInfo = "font-name" - attrGet _ = getFontButtonFontName - attrSet _ = setFontButtonFontName - attrConstruct _ = constructFontButtonFontName - attrClear _ = clearFontButtonFontName - --- VVV Prop "show-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontButtonShowSize :: (MonadIO m, FontButtonK o) => o -> m Bool -getFontButtonShowSize obj = liftIO $ getObjectPropertyBool obj "show-size" - -setFontButtonShowSize :: (MonadIO m, FontButtonK o) => o -> Bool -> m () -setFontButtonShowSize obj val = liftIO $ setObjectPropertyBool obj "show-size" val - -constructFontButtonShowSize :: Bool -> IO ([Char], GValue) -constructFontButtonShowSize val = constructObjectPropertyBool "show-size" val - -data FontButtonShowSizePropertyInfo -instance AttrInfo FontButtonShowSizePropertyInfo where - type AttrAllowedOps FontButtonShowSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonShowSizePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FontButtonShowSizePropertyInfo = FontButtonK - type AttrGetType FontButtonShowSizePropertyInfo = Bool - type AttrLabel FontButtonShowSizePropertyInfo = "show-size" - attrGet _ = getFontButtonShowSize - attrSet _ = setFontButtonShowSize - attrConstruct _ = constructFontButtonShowSize - attrClear _ = undefined - --- VVV Prop "show-style" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontButtonShowStyle :: (MonadIO m, FontButtonK o) => o -> m Bool -getFontButtonShowStyle obj = liftIO $ getObjectPropertyBool obj "show-style" - -setFontButtonShowStyle :: (MonadIO m, FontButtonK o) => o -> Bool -> m () -setFontButtonShowStyle obj val = liftIO $ setObjectPropertyBool obj "show-style" val - -constructFontButtonShowStyle :: Bool -> IO ([Char], GValue) -constructFontButtonShowStyle val = constructObjectPropertyBool "show-style" val - -data FontButtonShowStylePropertyInfo -instance AttrInfo FontButtonShowStylePropertyInfo where - type AttrAllowedOps FontButtonShowStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonShowStylePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FontButtonShowStylePropertyInfo = FontButtonK - type AttrGetType FontButtonShowStylePropertyInfo = Bool - type AttrLabel FontButtonShowStylePropertyInfo = "show-style" - attrGet _ = getFontButtonShowStyle - attrSet _ = setFontButtonShowStyle - attrConstruct _ = constructFontButtonShowStyle - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonTitle obj = liftIO $ checkUnexpectedNothing "getFontButtonTitle" $ getObjectPropertyString obj "title" - -setFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructFontButtonTitle :: T.Text -> IO ([Char], GValue) -constructFontButtonTitle val = constructObjectPropertyString "title" (Just val) - -data FontButtonTitlePropertyInfo -instance AttrInfo FontButtonTitlePropertyInfo where - type AttrAllowedOps FontButtonTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontButtonTitlePropertyInfo = FontButtonK - type AttrGetType FontButtonTitlePropertyInfo = T.Text - type AttrLabel FontButtonTitlePropertyInfo = "title" - attrGet _ = getFontButtonTitle - attrSet _ = setFontButtonTitle - attrConstruct _ = constructFontButtonTitle - attrClear _ = undefined - --- VVV Prop "use-font" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontButtonUseFont :: (MonadIO m, FontButtonK o) => o -> m Bool -getFontButtonUseFont obj = liftIO $ getObjectPropertyBool obj "use-font" - -setFontButtonUseFont :: (MonadIO m, FontButtonK o) => o -> Bool -> m () -setFontButtonUseFont obj val = liftIO $ setObjectPropertyBool obj "use-font" val - -constructFontButtonUseFont :: Bool -> IO ([Char], GValue) -constructFontButtonUseFont val = constructObjectPropertyBool "use-font" val - -data FontButtonUseFontPropertyInfo -instance AttrInfo FontButtonUseFontPropertyInfo where - type AttrAllowedOps FontButtonUseFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonUseFontPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FontButtonUseFontPropertyInfo = FontButtonK - type AttrGetType FontButtonUseFontPropertyInfo = Bool - type AttrLabel FontButtonUseFontPropertyInfo = "use-font" - attrGet _ = getFontButtonUseFont - attrSet _ = setFontButtonUseFont - attrConstruct _ = constructFontButtonUseFont - attrClear _ = undefined - --- VVV Prop "use-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontButtonUseSize :: (MonadIO m, FontButtonK o) => o -> m Bool -getFontButtonUseSize obj = liftIO $ getObjectPropertyBool obj "use-size" - -setFontButtonUseSize :: (MonadIO m, FontButtonK o) => o -> Bool -> m () -setFontButtonUseSize obj val = liftIO $ setObjectPropertyBool obj "use-size" val - -constructFontButtonUseSize :: Bool -> IO ([Char], GValue) -constructFontButtonUseSize val = constructObjectPropertyBool "use-size" val - -data FontButtonUseSizePropertyInfo -instance AttrInfo FontButtonUseSizePropertyInfo where - type AttrAllowedOps FontButtonUseSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonUseSizePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FontButtonUseSizePropertyInfo = FontButtonK - type AttrGetType FontButtonUseSizePropertyInfo = Bool - type AttrLabel FontButtonUseSizePropertyInfo = "use-size" - attrGet _ = getFontButtonUseSize - attrSet _ = setFontButtonUseSize - attrConstruct _ = constructFontButtonUseSize - attrClear _ = undefined - -type instance AttributeList FontButton = FontButtonAttributeList -type FontButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("fontName", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("showSize", FontButtonShowSizePropertyInfo), '("showStyle", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useFont", FontButtonUseFontPropertyInfo), '("useSize", FontButtonUseSizePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -fontButtonFontName :: AttrLabelProxy "fontName" -fontButtonFontName = AttrLabelProxy - -fontButtonShowSize :: AttrLabelProxy "showSize" -fontButtonShowSize = AttrLabelProxy - -fontButtonShowStyle :: AttrLabelProxy "showStyle" -fontButtonShowStyle = AttrLabelProxy - -fontButtonTitle :: AttrLabelProxy "title" -fontButtonTitle = AttrLabelProxy - -fontButtonUseFont :: AttrLabelProxy "useFont" -fontButtonUseFont = AttrLabelProxy - -fontButtonUseSize :: AttrLabelProxy "useSize" -fontButtonUseSize = AttrLabelProxy - -data FontButtonFontSetSignalInfo -instance SignalInfo FontButtonFontSetSignalInfo where - type HaskellCallbackType FontButtonFontSetSignalInfo = FontButtonFontSetCallback - connectSignal _ = connectFontButtonFontSet - -type instance SignalList FontButton = FontButtonSignalList -type FontButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("fontSet", FontButtonFontSetSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FontButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_button_new" gtk_font_button_new :: - IO (Ptr FontButton) - - -fontButtonNew :: - (MonadIO m) => - m FontButton -- result -fontButtonNew = liftIO $ do - result <- gtk_font_button_new - checkUnexpectedReturnNULL "gtk_font_button_new" result - result' <- (newObject FontButton) result - return result' - --- method FontButton::new_with_font --- method type : Constructor --- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_button_new_with_font" gtk_font_button_new_with_font :: - CString -> -- fontname : TBasicType TUTF8 - IO (Ptr FontButton) - - -fontButtonNewWithFont :: - (MonadIO m) => - T.Text -- fontname - -> m FontButton -- result -fontButtonNewWithFont fontname = liftIO $ do - fontname' <- textToCString fontname - result <- gtk_font_button_new_with_font fontname' - checkUnexpectedReturnNULL "gtk_font_button_new_with_font" result - result' <- (newObject FontButton) result - freeMem fontname' - return result' - --- method FontButton::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_font_name" gtk_font_button_get_font_name :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CString - - -fontButtonGetFontName :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m T.Text -- result -fontButtonGetFontName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_font_name _obj' - checkUnexpectedReturnNULL "gtk_font_button_get_font_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontButtonGetFontNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetFontNameMethodInfo a signature where - overloadedMethod _ = fontButtonGetFontName - --- method FontButton::get_show_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_show_size" gtk_font_button_get_show_size :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CInt - - -fontButtonGetShowSize :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m Bool -- result -fontButtonGetShowSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_show_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontButtonGetShowSizeMethodInfo -instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetShowSizeMethodInfo a signature where - overloadedMethod _ = fontButtonGetShowSize - --- method FontButton::get_show_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_show_style" gtk_font_button_get_show_style :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CInt - - -fontButtonGetShowStyle :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m Bool -- result -fontButtonGetShowStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_show_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontButtonGetShowStyleMethodInfo -instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetShowStyleMethodInfo a signature where - overloadedMethod _ = fontButtonGetShowStyle - --- method FontButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_title" gtk_font_button_get_title :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CString - - -fontButtonGetTitle :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m T.Text -- result -fontButtonGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_title _obj' - checkUnexpectedReturnNULL "gtk_font_button_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontButtonGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetTitleMethodInfo a signature where - overloadedMethod _ = fontButtonGetTitle - --- method FontButton::get_use_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_use_font" gtk_font_button_get_use_font :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CInt - - -fontButtonGetUseFont :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m Bool -- result -fontButtonGetUseFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_use_font _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontButtonGetUseFontMethodInfo -instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetUseFontMethodInfo a signature where - overloadedMethod _ = fontButtonGetUseFont - --- method FontButton::get_use_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 "gtk_font_button_get_use_size" gtk_font_button_get_use_size :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - IO CInt - - -fontButtonGetUseSize :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> m Bool -- result -fontButtonGetUseSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_use_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontButtonGetUseSizeMethodInfo -instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetUseSizeMethodInfo a signature where - overloadedMethod _ = fontButtonGetUseSize - --- method FontButton::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", 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 "gtk_font_button_set_font_name" gtk_font_button_set_font_name :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CString -> -- fontname : TBasicType TUTF8 - IO CInt - - -fontButtonSetFontName :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> T.Text -- fontname - -> m Bool -- result -fontButtonSetFontName _obj fontname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fontname' <- textToCString fontname - result <- gtk_font_button_set_font_name _obj' fontname' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem fontname' - return result' - -data FontButtonSetFontNameMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetFontNameMethodInfo a signature where - overloadedMethod _ = fontButtonSetFontName - --- method FontButton::set_show_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_size", 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 "gtk_font_button_set_show_size" gtk_font_button_set_show_size :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CInt -> -- show_size : TBasicType TBoolean - IO () - - -fontButtonSetShowSize :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> Bool -- showSize - -> m () -- result -fontButtonSetShowSize _obj showSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showSize' = (fromIntegral . fromEnum) showSize - gtk_font_button_set_show_size _obj' showSize' - touchManagedPtr _obj - return () - -data FontButtonSetShowSizeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetShowSizeMethodInfo a signature where - overloadedMethod _ = fontButtonSetShowSize - --- method FontButton::set_show_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_style", 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 "gtk_font_button_set_show_style" gtk_font_button_set_show_style :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CInt -> -- show_style : TBasicType TBoolean - IO () - - -fontButtonSetShowStyle :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> Bool -- showStyle - -> m () -- result -fontButtonSetShowStyle _obj showStyle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showStyle' = (fromIntegral . fromEnum) showStyle - gtk_font_button_set_show_style _obj' showStyle' - touchManagedPtr _obj - return () - -data FontButtonSetShowStyleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetShowStyleMethodInfo a signature where - overloadedMethod _ = fontButtonSetShowStyle - --- method FontButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_font_button_set_title" gtk_font_button_set_title :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CString -> -- title : TBasicType TUTF8 - IO () - - -fontButtonSetTitle :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -fontButtonSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_font_button_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data FontButtonSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetTitleMethodInfo a signature where - overloadedMethod _ = fontButtonSetTitle - --- method FontButton::set_use_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_font", 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 "gtk_font_button_set_use_font" gtk_font_button_set_use_font :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CInt -> -- use_font : TBasicType TBoolean - IO () - - -fontButtonSetUseFont :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> Bool -- useFont - -> m () -- result -fontButtonSetUseFont _obj useFont = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useFont' = (fromIntegral . fromEnum) useFont - gtk_font_button_set_use_font _obj' useFont' - touchManagedPtr _obj - return () - -data FontButtonSetUseFontMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetUseFontMethodInfo a signature where - overloadedMethod _ = fontButtonSetUseFont - --- method FontButton::set_use_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_size", 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 "gtk_font_button_set_use_size" gtk_font_button_set_use_size :: - Ptr FontButton -> -- _obj : TInterface "Gtk" "FontButton" - CInt -> -- use_size : TBasicType TBoolean - IO () - - -fontButtonSetUseSize :: - (MonadIO m, FontButtonK a) => - a -- _obj - -> Bool -- useSize - -> m () -- result -fontButtonSetUseSize _obj useSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useSize' = (fromIntegral . fromEnum) useSize - gtk_font_button_set_use_size _obj' useSize' - touchManagedPtr _obj - return () - -data FontButtonSetUseSizeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetUseSizeMethodInfo a signature where - overloadedMethod _ = fontButtonSetUseSize - - diff --git a/GI/Gtk/Objects/FontButton.hs-boot b/GI/Gtk/Objects/FontButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FontButton.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.FontButton 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 FontButton = FontButton (ForeignPtr FontButton) -instance GObject FontButton where -class GObject o => FontButtonK o -instance (GObject o, IsDescendantOf FontButton o) => FontButtonK o -data FontButtonFontNamePropertyInfo -data FontButtonShowSizePropertyInfo -data FontButtonShowStylePropertyInfo -data FontButtonTitlePropertyInfo -data FontButtonUseFontPropertyInfo -data FontButtonUseSizePropertyInfo -data FontButtonFontSetSignalInfo -data FontButtonGetFontNameMethodInfo -data FontButtonGetShowSizeMethodInfo -data FontButtonGetShowStyleMethodInfo -data FontButtonGetTitleMethodInfo -data FontButtonGetUseFontMethodInfo -data FontButtonGetUseSizeMethodInfo -data FontButtonSetFontNameMethodInfo -data FontButtonSetShowSizeMethodInfo -data FontButtonSetShowStyleMethodInfo -data FontButtonSetTitleMethodInfo -data FontButtonSetUseFontMethodInfo -data FontButtonSetUseSizeMethodInfo diff --git a/GI/Gtk/Objects/FontChooserDialog.hs b/GI/Gtk/Objects/FontChooserDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FontChooserDialog.hs +++ /dev/null @@ -1,550 +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.Gtk.Objects.FontChooserDialog - ( - --- * Exported types - FontChooserDialog(..) , - FontChooserDialogK , - toFontChooserDialog , - noFontChooserDialog , - - - -- * Methods --- ** fontChooserDialogNew - fontChooserDialogNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FontChooserDialog = FontChooserDialog (ForeignPtr FontChooserDialog) -foreign import ccall "gtk_font_chooser_dialog_get_type" - c_gtk_font_chooser_dialog_get_type :: IO GType - -type instance ParentTypes FontChooserDialog = FontChooserDialogParentTypes -type FontChooserDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FontChooser] - -instance GObject FontChooserDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_font_chooser_dialog_get_type - - -class GObject o => FontChooserDialogK o -instance (GObject o, IsDescendantOf FontChooserDialog o) => FontChooserDialogK o - -toFontChooserDialog :: FontChooserDialogK o => o -> IO FontChooserDialog -toFontChooserDialog = unsafeCastTo FontChooserDialog - -noFontChooserDialog :: Maybe FontChooserDialog -noFontChooserDialog = Nothing - -type family ResolveFontChooserDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveFontChooserDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveFontChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveFontChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveFontChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveFontChooserDialogMethod "add" o = ContainerAddMethodInfo - ResolveFontChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveFontChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFontChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveFontChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveFontChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFontChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFontChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFontChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveFontChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFontChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFontChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveFontChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveFontChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFontChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFontChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFontChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFontChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFontChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFontChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFontChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFontChooserDialogMethod "close" o = WindowCloseMethodInfo - ResolveFontChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFontChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFontChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFontChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFontChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFontChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFontChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFontChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveFontChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFontChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFontChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFontChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFontChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFontChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFontChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFontChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFontChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFontChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFontChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFontChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFontChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFontChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFontChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFontChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFontChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFontChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFontChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFontChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFontChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFontChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFontChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFontChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFontChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFontChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFontChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFontChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFontChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFontChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFontChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFontChooserDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveFontChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFontChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFontChooserDialogMethod "event" o = WidgetEventMethodInfo - ResolveFontChooserDialogMethod "forall" o = ContainerForallMethodInfo - ResolveFontChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontChooserDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveFontChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFontChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveFontChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveFontChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFontChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFontChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFontChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFontChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFontChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFontChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFontChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveFontChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFontChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFontChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveFontChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFontChooserDialogMethod "hide" o = WidgetHideMethodInfo - ResolveFontChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFontChooserDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveFontChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFontChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFontChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFontChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFontChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFontChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveFontChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFontChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFontChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFontChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFontChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveFontChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFontChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFontChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFontChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFontChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFontChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFontChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFontChooserDialogMethod "map" o = WidgetMapMethodInfo - ResolveFontChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveFontChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFontChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFontChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFontChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFontChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFontChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFontChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFontChooserDialogMethod "move" o = WindowMoveMethodInfo - ResolveFontChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFontChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFontChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFontChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFontChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFontChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveFontChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFontChooserDialogMethod "path" o = WidgetPathMethodInfo - ResolveFontChooserDialogMethod "present" o = WindowPresentMethodInfo - ResolveFontChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveFontChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFontChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveFontChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFontChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFontChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFontChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFontChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFontChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFontChooserDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveFontChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFontChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFontChooserDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveFontChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveFontChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFontChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveFontChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFontChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFontChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFontChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFontChooserDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveFontChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFontChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFontChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveFontChooserDialogMethod "resize" o = WindowResizeMethodInfo - ResolveFontChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFontChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveFontChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveFontChooserDialogMethod "response" o = DialogResponseMethodInfo - ResolveFontChooserDialogMethod "run" o = DialogRunMethodInfo - ResolveFontChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFontChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFontChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFontChooserDialogMethod "show" o = WidgetShowMethodInfo - ResolveFontChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFontChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFontChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFontChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFontChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFontChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontChooserDialogMethod "stick" o = WindowStickMethodInfo - ResolveFontChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFontChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFontChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFontChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFontChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFontChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveFontChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFontChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveFontChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFontChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFontChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFontChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFontChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFontChooserDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveFontChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveFontChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFontChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveFontChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFontChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFontChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFontChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFontChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFontChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFontChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFontChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveFontChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveFontChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFontChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFontChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFontChooserDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveFontChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFontChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFontChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFontChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFontChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFontChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFontChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveFontChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveFontChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveFontChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveFontChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveFontChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveFontChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFontChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFontChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFontChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFontChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFontChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFontChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveFontChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFontChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFontChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFontChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveFontChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFontChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveFontChooserDialogMethod "getFont" o = FontChooserGetFontMethodInfo - ResolveFontChooserDialogMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo - ResolveFontChooserDialogMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo - ResolveFontChooserDialogMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo - ResolveFontChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFontChooserDialogMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo - ResolveFontChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFontChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveFontChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveFontChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFontChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveFontChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFontChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFontChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveFontChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFontChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFontChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveFontChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveFontChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveFontChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveFontChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFontChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFontChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFontChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFontChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFontChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFontChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFontChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFontChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveFontChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveFontChooserDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveFontChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFontChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFontChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFontChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFontChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFontChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFontChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFontChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFontChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFontChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveFontChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFontChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFontChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFontChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFontChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFontChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFontChooserDialogMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo - ResolveFontChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFontChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFontChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFontChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFontChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveFontChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveFontChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFontChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveFontChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveFontChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFontChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFontChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFontChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFontChooserDialogMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo - ResolveFontChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveFontChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFontChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveFontChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveFontChooserDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveFontChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFontChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFontChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFontChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFontChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFontChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveFontChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveFontChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFontChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFontChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFontChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFontChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveFontChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveFontChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveFontChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFontChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFontChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFontChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFontChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFontChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFontChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveFontChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFontChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveFontChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFontChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveFontChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFontChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveFontChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFontChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveFontChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveFontChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFontChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFontChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFontChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFontChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFontChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFontChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFontChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveFontChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveFontChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveFontChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveFontChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveFontChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveFontChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveFontChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFontChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFontChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFontChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFontChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFontChooserDialogMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo - ResolveFontChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveFontChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFontChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFontChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFontChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveFontChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFontChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveFontChooserDialogMethod "setFont" o = FontChooserSetFontMethodInfo - ResolveFontChooserDialogMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo - ResolveFontChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFontChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveFontChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveFontChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFontChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveFontChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFontChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveFontChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFontChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFontChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFontChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveFontChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveFontChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveFontChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveFontChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveFontChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveFontChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveFontChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFontChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFontChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFontChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFontChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFontChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFontChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFontChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveFontChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveFontChooserDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveFontChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFontChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFontChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFontChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveFontChooserDialogMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo - ResolveFontChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFontChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFontChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFontChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFontChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveFontChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFontChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveFontChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveFontChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveFontChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFontChooserDialogMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo - ResolveFontChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFontChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveFontChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveFontChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveFontChooserDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveFontChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFontChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFontChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFontChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveFontChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveFontChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFontChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFontChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFontChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveFontChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveFontChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveFontChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFontChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFontChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFontChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFontChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFontChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFontChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveFontChooserDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontChooserDialogMethod t FontChooserDialog, MethodInfo info FontChooserDialog p) => IsLabelProxy t (FontChooserDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontChooserDialogMethod t FontChooserDialog, MethodInfo info FontChooserDialog p) => IsLabel t (FontChooserDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FontChooserDialog = FontChooserDialogAttributeList -type FontChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontChooserDialog = FontChooserDialogSignalList -type FontChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FontChooserDialog::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontChooserDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_dialog_new" gtk_font_chooser_dialog_new :: - CString -> -- title : TBasicType TUTF8 - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO (Ptr FontChooserDialog) - - -fontChooserDialogNew :: - (MonadIO m, WindowK a) => - Maybe (T.Text) -- title - -> Maybe (a) -- parent - -> m FontChooserDialog -- result -fontChooserDialogNew title parent = liftIO $ do - maybeTitle <- case title of - Nothing -> return nullPtr - Just jTitle -> do - jTitle' <- textToCString jTitle - return jTitle' - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - result <- gtk_font_chooser_dialog_new maybeTitle maybeParent - checkUnexpectedReturnNULL "gtk_font_chooser_dialog_new" result - result' <- (newObject FontChooserDialog) result - whenJust parent touchManagedPtr - freeMem maybeTitle - return result' - - diff --git a/GI/Gtk/Objects/FontChooserDialog.hs-boot b/GI/Gtk/Objects/FontChooserDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FontChooserDialog.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FontChooserDialog 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 FontChooserDialog = FontChooserDialog (ForeignPtr FontChooserDialog) -instance GObject FontChooserDialog where -class GObject o => FontChooserDialogK o -instance (GObject o, IsDescendantOf FontChooserDialog o) => FontChooserDialogK o diff --git a/GI/Gtk/Objects/FontChooserWidget.hs b/GI/Gtk/Objects/FontChooserWidget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FontChooserWidget.hs +++ /dev/null @@ -1,435 +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.Gtk.Objects.FontChooserWidget - ( - --- * Exported types - FontChooserWidget(..) , - FontChooserWidgetK , - toFontChooserWidget , - noFontChooserWidget , - - - -- * Methods --- ** fontChooserWidgetNew - fontChooserWidgetNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FontChooserWidget = FontChooserWidget (ForeignPtr FontChooserWidget) -foreign import ccall "gtk_font_chooser_widget_get_type" - c_gtk_font_chooser_widget_get_type :: IO GType - -type instance ParentTypes FontChooserWidget = FontChooserWidgetParentTypes -type FontChooserWidgetParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, FontChooser, Orientable] - -instance GObject FontChooserWidget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_font_chooser_widget_get_type - - -class GObject o => FontChooserWidgetK o -instance (GObject o, IsDescendantOf FontChooserWidget o) => FontChooserWidgetK o - -toFontChooserWidget :: FontChooserWidgetK o => o -> IO FontChooserWidget -toFontChooserWidget = unsafeCastTo FontChooserWidget - -noFontChooserWidget :: Maybe FontChooserWidget -noFontChooserWidget = Nothing - -type family ResolveFontChooserWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveFontChooserWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveFontChooserWidgetMethod "add" o = ContainerAddMethodInfo - ResolveFontChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFontChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFontChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFontChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFontChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFontChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFontChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFontChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFontChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFontChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFontChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFontChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFontChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFontChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFontChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFontChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFontChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFontChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFontChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFontChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFontChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFontChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFontChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFontChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFontChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFontChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFontChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFontChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFontChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFontChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFontChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFontChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFontChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFontChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFontChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFontChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFontChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFontChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFontChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFontChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFontChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFontChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFontChooserWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveFontChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFontChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFontChooserWidgetMethod "event" o = WidgetEventMethodInfo - ResolveFontChooserWidgetMethod "forall" o = ContainerForallMethodInfo - ResolveFontChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo - ResolveFontChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFontChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFontChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFontChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFontChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFontChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFontChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFontChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFontChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFontChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFontChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFontChooserWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveFontChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFontChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFontChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFontChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFontChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFontChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFontChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFontChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFontChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFontChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFontChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFontChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFontChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFontChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFontChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFontChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFontChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFontChooserWidgetMethod "map" o = WidgetMapMethodInfo - ResolveFontChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFontChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFontChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFontChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFontChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFontChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFontChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFontChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFontChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFontChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFontChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFontChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFontChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFontChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo - ResolveFontChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo - ResolveFontChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFontChooserWidgetMethod "path" o = WidgetPathMethodInfo - ResolveFontChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFontChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveFontChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFontChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFontChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFontChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFontChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFontChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFontChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveFontChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFontChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFontChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo - ResolveFontChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFontChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFontChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFontChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFontChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFontChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveFontChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveFontChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFontChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFontChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFontChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFontChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFontChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFontChooserWidgetMethod "show" o = WidgetShowMethodInfo - ResolveFontChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFontChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFontChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFontChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFontChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFontChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFontChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFontChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFontChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFontChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFontChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFontChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFontChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFontChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFontChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFontChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFontChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFontChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFontChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFontChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFontChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFontChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFontChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFontChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFontChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveFontChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFontChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFontChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFontChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveFontChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFontChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFontChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFontChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFontChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFontChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFontChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFontChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFontChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFontChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFontChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFontChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFontChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFontChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFontChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFontChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFontChooserWidgetMethod "getFont" o = FontChooserGetFontMethodInfo - ResolveFontChooserWidgetMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo - ResolveFontChooserWidgetMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo - ResolveFontChooserWidgetMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo - ResolveFontChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFontChooserWidgetMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo - ResolveFontChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFontChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFontChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFontChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFontChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFontChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFontChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveFontChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFontChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFontChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFontChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFontChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFontChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFontChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFontChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFontChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFontChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFontChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFontChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFontChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveFontChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFontChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFontChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFontChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFontChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFontChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFontChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFontChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFontChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFontChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFontChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFontChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFontChooserWidgetMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo - ResolveFontChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFontChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFontChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFontChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFontChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFontChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFontChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFontChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFontChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFontChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFontChooserWidgetMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo - ResolveFontChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFontChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveFontChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveFontChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFontChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFontChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFontChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFontChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFontChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFontChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFontChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFontChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFontChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFontChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFontChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFontChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFontChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFontChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFontChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFontChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFontChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFontChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFontChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveFontChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFontChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFontChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFontChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFontChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveFontChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveFontChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFontChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFontChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFontChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFontChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFontChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFontChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFontChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFontChooserWidgetMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo - ResolveFontChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFontChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFontChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFontChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFontChooserWidgetMethod "setFont" o = FontChooserSetFontMethodInfo - ResolveFontChooserWidgetMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo - ResolveFontChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFontChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFontChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFontChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFontChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFontChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFontChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveFontChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFontChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFontChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFontChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFontChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFontChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFontChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFontChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFontChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFontChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveFontChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFontChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFontChooserWidgetMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo - ResolveFontChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFontChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFontChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFontChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFontChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFontChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFontChooserWidgetMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo - ResolveFontChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFontChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveFontChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveFontChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFontChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFontChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFontChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFontChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFontChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFontChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFontChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFontChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFontChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFontChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFontChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFontChooserWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontChooserWidgetMethod t FontChooserWidget, MethodInfo info FontChooserWidget p) => IsLabelProxy t (FontChooserWidget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontChooserWidgetMethod t FontChooserWidget, MethodInfo info FontChooserWidget p) => IsLabel t (FontChooserWidget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FontChooserWidget = FontChooserWidgetAttributeList -type FontChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontChooserWidget = FontChooserWidgetSignalList -type FontChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FontChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_chooser_widget_new" gtk_font_chooser_widget_new :: - IO (Ptr FontChooserWidget) - - -fontChooserWidgetNew :: - (MonadIO m) => - m FontChooserWidget -- result -fontChooserWidgetNew = liftIO $ do - result <- gtk_font_chooser_widget_new - checkUnexpectedReturnNULL "gtk_font_chooser_widget_new" result - result' <- (newObject FontChooserWidget) result - return result' - - diff --git a/GI/Gtk/Objects/FontChooserWidget.hs-boot b/GI/Gtk/Objects/FontChooserWidget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FontChooserWidget.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FontChooserWidget 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 FontChooserWidget = FontChooserWidget (ForeignPtr FontChooserWidget) -instance GObject FontChooserWidget where -class GObject o => FontChooserWidgetK o -instance (GObject o, IsDescendantOf FontChooserWidget o) => FontChooserWidgetK o diff --git a/GI/Gtk/Objects/FontSelection.hs b/GI/Gtk/Objects/FontSelection.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FontSelection.hs +++ /dev/null @@ -1,931 +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.Gtk.Objects.FontSelection - ( - --- * Exported types - FontSelection(..) , - FontSelectionK , - toFontSelection , - noFontSelection , - - - -- * Methods --- ** fontSelectionGetFace - FontSelectionGetFaceMethodInfo , - fontSelectionGetFace , - - --- ** fontSelectionGetFaceList - FontSelectionGetFaceListMethodInfo , - fontSelectionGetFaceList , - - --- ** fontSelectionGetFamily - FontSelectionGetFamilyMethodInfo , - fontSelectionGetFamily , - - --- ** fontSelectionGetFamilyList - FontSelectionGetFamilyListMethodInfo , - fontSelectionGetFamilyList , - - --- ** fontSelectionGetFontName - FontSelectionGetFontNameMethodInfo , - fontSelectionGetFontName , - - --- ** fontSelectionGetPreviewEntry - FontSelectionGetPreviewEntryMethodInfo , - fontSelectionGetPreviewEntry , - - --- ** fontSelectionGetPreviewText - FontSelectionGetPreviewTextMethodInfo , - fontSelectionGetPreviewText , - - --- ** fontSelectionGetSize - FontSelectionGetSizeMethodInfo , - fontSelectionGetSize , - - --- ** fontSelectionGetSizeEntry - FontSelectionGetSizeEntryMethodInfo , - fontSelectionGetSizeEntry , - - --- ** fontSelectionGetSizeList - FontSelectionGetSizeListMethodInfo , - fontSelectionGetSizeList , - - --- ** fontSelectionNew - fontSelectionNew , - - --- ** fontSelectionSetFontName - FontSelectionSetFontNameMethodInfo , - fontSelectionSetFontName , - - --- ** fontSelectionSetPreviewText - FontSelectionSetPreviewTextMethodInfo , - fontSelectionSetPreviewText , - - - - - -- * Properties --- ** FontName - FontSelectionFontNamePropertyInfo , - clearFontSelectionFontName , - constructFontSelectionFontName , - fontSelectionFontName , - getFontSelectionFontName , - setFontSelectionFontName , - - --- ** PreviewText - FontSelectionPreviewTextPropertyInfo , - constructFontSelectionPreviewText , - fontSelectionPreviewText , - getFontSelectionPreviewText , - setFontSelectionPreviewText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype FontSelection = FontSelection (ForeignPtr FontSelection) -foreign import ccall "gtk_font_selection_get_type" - c_gtk_font_selection_get_type :: IO GType - -type instance ParentTypes FontSelection = FontSelectionParentTypes -type FontSelectionParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject FontSelection where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_font_selection_get_type - - -class GObject o => FontSelectionK o -instance (GObject o, IsDescendantOf FontSelection o) => FontSelectionK o - -toFontSelection :: FontSelectionK o => o -> IO FontSelection -toFontSelection = unsafeCastTo FontSelection - -noFontSelection :: Maybe FontSelection -noFontSelection = Nothing - -type family ResolveFontSelectionMethod (t :: Symbol) (o :: *) :: * where - ResolveFontSelectionMethod "activate" o = WidgetActivateMethodInfo - ResolveFontSelectionMethod "add" o = ContainerAddMethodInfo - ResolveFontSelectionMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFontSelectionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFontSelectionMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFontSelectionMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFontSelectionMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFontSelectionMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFontSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontSelectionMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFontSelectionMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFontSelectionMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFontSelectionMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFontSelectionMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFontSelectionMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFontSelectionMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFontSelectionMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFontSelectionMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFontSelectionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFontSelectionMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFontSelectionMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFontSelectionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFontSelectionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFontSelectionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFontSelectionMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFontSelectionMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFontSelectionMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFontSelectionMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFontSelectionMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFontSelectionMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFontSelectionMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFontSelectionMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFontSelectionMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFontSelectionMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFontSelectionMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFontSelectionMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFontSelectionMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFontSelectionMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFontSelectionMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFontSelectionMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFontSelectionMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFontSelectionMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFontSelectionMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFontSelectionMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFontSelectionMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFontSelectionMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFontSelectionMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFontSelectionMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFontSelectionMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFontSelectionMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFontSelectionMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFontSelectionMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFontSelectionMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFontSelectionMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFontSelectionMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFontSelectionMethod "draw" o = WidgetDrawMethodInfo - ResolveFontSelectionMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFontSelectionMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFontSelectionMethod "event" o = WidgetEventMethodInfo - ResolveFontSelectionMethod "forall" o = ContainerForallMethodInfo - ResolveFontSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontSelectionMethod "foreach" o = ContainerForeachMethodInfo - ResolveFontSelectionMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFontSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontSelectionMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFontSelectionMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFontSelectionMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFontSelectionMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFontSelectionMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFontSelectionMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFontSelectionMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFontSelectionMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFontSelectionMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFontSelectionMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFontSelectionMethod "hide" o = WidgetHideMethodInfo - ResolveFontSelectionMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFontSelectionMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFontSelectionMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFontSelectionMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFontSelectionMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFontSelectionMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFontSelectionMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFontSelectionMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFontSelectionMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFontSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontSelectionMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFontSelectionMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFontSelectionMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFontSelectionMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFontSelectionMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFontSelectionMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFontSelectionMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFontSelectionMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFontSelectionMethod "map" o = WidgetMapMethodInfo - ResolveFontSelectionMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFontSelectionMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFontSelectionMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFontSelectionMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFontSelectionMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFontSelectionMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFontSelectionMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFontSelectionMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFontSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontSelectionMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFontSelectionMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFontSelectionMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFontSelectionMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFontSelectionMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFontSelectionMethod "packEnd" o = BoxPackEndMethodInfo - ResolveFontSelectionMethod "packStart" o = BoxPackStartMethodInfo - ResolveFontSelectionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFontSelectionMethod "path" o = WidgetPathMethodInfo - ResolveFontSelectionMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFontSelectionMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveFontSelectionMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFontSelectionMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFontSelectionMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFontSelectionMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFontSelectionMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFontSelectionMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFontSelectionMethod "realize" o = WidgetRealizeMethodInfo - ResolveFontSelectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontSelectionMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFontSelectionMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFontSelectionMethod "remove" o = ContainerRemoveMethodInfo - ResolveFontSelectionMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFontSelectionMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFontSelectionMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFontSelectionMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFontSelectionMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFontSelectionMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveFontSelectionMethod "reparent" o = WidgetReparentMethodInfo - ResolveFontSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontSelectionMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFontSelectionMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFontSelectionMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFontSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontSelectionMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFontSelectionMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFontSelectionMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFontSelectionMethod "show" o = WidgetShowMethodInfo - ResolveFontSelectionMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFontSelectionMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFontSelectionMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFontSelectionMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFontSelectionMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFontSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontSelectionMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFontSelectionMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFontSelectionMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFontSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontSelectionMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFontSelectionMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFontSelectionMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFontSelectionMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFontSelectionMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFontSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontSelectionMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFontSelectionMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFontSelectionMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFontSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontSelectionMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFontSelectionMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFontSelectionMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFontSelectionMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFontSelectionMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFontSelectionMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFontSelectionMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFontSelectionMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFontSelectionMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveFontSelectionMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFontSelectionMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFontSelectionMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFontSelectionMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveFontSelectionMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFontSelectionMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFontSelectionMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFontSelectionMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFontSelectionMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFontSelectionMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFontSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontSelectionMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFontSelectionMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFontSelectionMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFontSelectionMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFontSelectionMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFontSelectionMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFontSelectionMethod "getFace" o = FontSelectionGetFaceMethodInfo - ResolveFontSelectionMethod "getFaceList" o = FontSelectionGetFaceListMethodInfo - ResolveFontSelectionMethod "getFamily" o = FontSelectionGetFamilyMethodInfo - ResolveFontSelectionMethod "getFamilyList" o = FontSelectionGetFamilyListMethodInfo - ResolveFontSelectionMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFontSelectionMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFontSelectionMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFontSelectionMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFontSelectionMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFontSelectionMethod "getFontName" o = FontSelectionGetFontNameMethodInfo - ResolveFontSelectionMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFontSelectionMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFontSelectionMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFontSelectionMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFontSelectionMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFontSelectionMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFontSelectionMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFontSelectionMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveFontSelectionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFontSelectionMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFontSelectionMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFontSelectionMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFontSelectionMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFontSelectionMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFontSelectionMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFontSelectionMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFontSelectionMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFontSelectionMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFontSelectionMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFontSelectionMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFontSelectionMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveFontSelectionMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFontSelectionMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFontSelectionMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFontSelectionMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFontSelectionMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFontSelectionMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFontSelectionMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFontSelectionMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFontSelectionMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFontSelectionMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFontSelectionMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFontSelectionMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFontSelectionMethod "getPreviewEntry" o = FontSelectionGetPreviewEntryMethodInfo - ResolveFontSelectionMethod "getPreviewText" o = FontSelectionGetPreviewTextMethodInfo - ResolveFontSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontSelectionMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFontSelectionMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFontSelectionMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFontSelectionMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFontSelectionMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFontSelectionMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFontSelectionMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFontSelectionMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFontSelectionMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFontSelectionMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFontSelectionMethod "getSize" o = FontSelectionGetSizeMethodInfo - ResolveFontSelectionMethod "getSizeEntry" o = FontSelectionGetSizeEntryMethodInfo - ResolveFontSelectionMethod "getSizeList" o = FontSelectionGetSizeListMethodInfo - ResolveFontSelectionMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFontSelectionMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveFontSelectionMethod "getState" o = WidgetGetStateMethodInfo - ResolveFontSelectionMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFontSelectionMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFontSelectionMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFontSelectionMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFontSelectionMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFontSelectionMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFontSelectionMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFontSelectionMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFontSelectionMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFontSelectionMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFontSelectionMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFontSelectionMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFontSelectionMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFontSelectionMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFontSelectionMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFontSelectionMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFontSelectionMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFontSelectionMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFontSelectionMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFontSelectionMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveFontSelectionMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFontSelectionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFontSelectionMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFontSelectionMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFontSelectionMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveFontSelectionMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveFontSelectionMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFontSelectionMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFontSelectionMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFontSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontSelectionMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFontSelectionMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFontSelectionMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFontSelectionMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFontSelectionMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFontSelectionMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFontSelectionMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFontSelectionMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFontSelectionMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFontSelectionMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFontSelectionMethod "setFontName" o = FontSelectionSetFontNameMethodInfo - ResolveFontSelectionMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFontSelectionMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFontSelectionMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFontSelectionMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFontSelectionMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFontSelectionMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFontSelectionMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveFontSelectionMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFontSelectionMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFontSelectionMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFontSelectionMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFontSelectionMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFontSelectionMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFontSelectionMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFontSelectionMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFontSelectionMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFontSelectionMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveFontSelectionMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFontSelectionMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFontSelectionMethod "setPreviewText" o = FontSelectionSetPreviewTextMethodInfo - ResolveFontSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontSelectionMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFontSelectionMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFontSelectionMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFontSelectionMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFontSelectionMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFontSelectionMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFontSelectionMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFontSelectionMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveFontSelectionMethod "setState" o = WidgetSetStateMethodInfo - ResolveFontSelectionMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFontSelectionMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFontSelectionMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFontSelectionMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFontSelectionMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFontSelectionMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFontSelectionMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFontSelectionMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFontSelectionMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFontSelectionMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFontSelectionMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFontSelectionMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFontSelectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontSelectionMethod t FontSelection, MethodInfo info FontSelection p) => IsLabelProxy t (FontSelection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontSelectionMethod t FontSelection, MethodInfo info FontSelection p) => IsLabel t (FontSelection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m (Maybe T.Text) -getFontSelectionFontName obj = liftIO $ getObjectPropertyString obj "font-name" - -setFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () -setFontSelectionFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) - -constructFontSelectionFontName :: T.Text -> IO ([Char], GValue) -constructFontSelectionFontName val = constructObjectPropertyString "font-name" (Just val) - -clearFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m () -clearFontSelectionFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text) - -data FontSelectionFontNamePropertyInfo -instance AttrInfo FontSelectionFontNamePropertyInfo where - type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK - type AttrGetType FontSelectionFontNamePropertyInfo = (Maybe T.Text) - type AttrLabel FontSelectionFontNamePropertyInfo = "font-name" - attrGet _ = getFontSelectionFontName - attrSet _ = setFontSelectionFontName - attrConstruct _ = constructFontSelectionFontName - attrClear _ = clearFontSelectionFontName - --- VVV Prop "preview-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> m T.Text -getFontSelectionPreviewText obj = liftIO $ checkUnexpectedNothing "getFontSelectionPreviewText" $ getObjectPropertyString obj "preview-text" - -setFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () -setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) - -constructFontSelectionPreviewText :: T.Text -> IO ([Char], GValue) -constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" (Just val) - -data FontSelectionPreviewTextPropertyInfo -instance AttrInfo FontSelectionPreviewTextPropertyInfo where - type AttrAllowedOps FontSelectionPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontSelectionPreviewTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontSelectionPreviewTextPropertyInfo = FontSelectionK - type AttrGetType FontSelectionPreviewTextPropertyInfo = T.Text - type AttrLabel FontSelectionPreviewTextPropertyInfo = "preview-text" - attrGet _ = getFontSelectionPreviewText - attrSet _ = setFontSelectionPreviewText - attrConstruct _ = constructFontSelectionPreviewText - attrClear _ = undefined - -type instance AttributeList FontSelection = FontSelectionAttributeList -type FontSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fontName", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontSelectionPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -fontSelectionFontName :: AttrLabelProxy "fontName" -fontSelectionFontName = AttrLabelProxy - -fontSelectionPreviewText :: AttrLabelProxy "previewText" -fontSelectionPreviewText = AttrLabelProxy - -type instance SignalList FontSelection = FontSelectionSignalList -type FontSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FontSelection::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontSelection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_new" gtk_font_selection_new :: - IO (Ptr FontSelection) - -{-# DEPRECATED fontSelectionNew ["(Since version 3.2)","Use #GtkFontChooserWidget instead"]#-} -fontSelectionNew :: - (MonadIO m) => - m FontSelection -- result -fontSelectionNew = liftIO $ do - result <- gtk_font_selection_new - checkUnexpectedReturnNULL "gtk_font_selection_new" result - result' <- (newObject FontSelection) result - return result' - --- method FontSelection::get_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontFace") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_face" gtk_font_selection_get_face :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Pango.FontFace) - -{-# DEPRECATED fontSelectionGetFace ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetFace :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Pango.FontFace -- result -fontSelectionGetFace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_face _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_face" result - result' <- (newObject Pango.FontFace) result - touchManagedPtr _obj - return result' - -data FontSelectionGetFaceMethodInfo -instance (signature ~ (m Pango.FontFace), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFaceMethodInfo a signature where - overloadedMethod _ = fontSelectionGetFace - --- method FontSelection::get_face_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_face_list" gtk_font_selection_get_face_list :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionGetFaceList ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetFaceList :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Widget -- result -fontSelectionGetFaceList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_face_list _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_face_list" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionGetFaceListMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFaceListMethodInfo a signature where - overloadedMethod _ = fontSelectionGetFaceList - --- method FontSelection::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontFamily") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_family" gtk_font_selection_get_family :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Pango.FontFamily) - -{-# DEPRECATED fontSelectionGetFamily ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetFamily :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Pango.FontFamily -- result -fontSelectionGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_family _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_family" result - result' <- (newObject Pango.FontFamily) result - touchManagedPtr _obj - return result' - -data FontSelectionGetFamilyMethodInfo -instance (signature ~ (m Pango.FontFamily), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFamilyMethodInfo a signature where - overloadedMethod _ = fontSelectionGetFamily - --- method FontSelection::get_family_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_family_list" gtk_font_selection_get_family_list :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionGetFamilyList ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetFamilyList :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Widget -- result -fontSelectionGetFamilyList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_family_list _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_family_list" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionGetFamilyListMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFamilyListMethodInfo a signature where - overloadedMethod _ = fontSelectionGetFamilyList - --- method FontSelection::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", 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 "gtk_font_selection_get_font_name" gtk_font_selection_get_font_name :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO CString - -{-# DEPRECATED fontSelectionGetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetFontName :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m T.Text -- result -fontSelectionGetFontName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_font_name _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_font_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FontSelectionGetFontNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFontNameMethodInfo a signature where - overloadedMethod _ = fontSelectionGetFontName - --- method FontSelection::get_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_preview_entry" gtk_font_selection_get_preview_entry :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionGetPreviewEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetPreviewEntry :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Widget -- result -fontSelectionGetPreviewEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_preview_entry _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_preview_entry" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionGetPreviewEntryMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetPreviewEntryMethodInfo a signature where - overloadedMethod _ = fontSelectionGetPreviewEntry - --- method FontSelection::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", 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 "gtk_font_selection_get_preview_text" gtk_font_selection_get_preview_text :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO CString - -{-# DEPRECATED fontSelectionGetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetPreviewText :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m T.Text -- result -fontSelectionGetPreviewText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_preview_text _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_preview_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontSelectionGetPreviewTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontSelectionGetPreviewText - --- method FontSelection::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", 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 "gtk_font_selection_get_size" gtk_font_selection_get_size :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO Int32 - -{-# DEPRECATED fontSelectionGetSize ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetSize :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Int32 -- result -fontSelectionGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_size _obj' - touchManagedPtr _obj - return result - -data FontSelectionGetSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeMethodInfo a signature where - overloadedMethod _ = fontSelectionGetSize - --- method FontSelection::get_size_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_size_entry" gtk_font_selection_get_size_entry :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionGetSizeEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetSizeEntry :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Widget -- result -fontSelectionGetSizeEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_size_entry _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_size_entry" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionGetSizeEntryMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeEntryMethodInfo a signature where - overloadedMethod _ = fontSelectionGetSizeEntry - --- method FontSelection::get_size_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_get_size_list" gtk_font_selection_get_size_list :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionGetSizeList ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionGetSizeList :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> m Widget -- result -fontSelectionGetSizeList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_size_list _obj' - checkUnexpectedReturnNULL "gtk_font_selection_get_size_list" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionGetSizeListMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeListMethodInfo a signature where - overloadedMethod _ = fontSelectionGetSizeList - --- method FontSelection::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", 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 "gtk_font_selection_set_font_name" gtk_font_selection_set_font_name :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - CString -> -- fontname : TBasicType TUTF8 - IO CInt - -{-# DEPRECATED fontSelectionSetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionSetFontName :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> T.Text -- fontname - -> m Bool -- result -fontSelectionSetFontName _obj fontname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fontname' <- textToCString fontname - result <- gtk_font_selection_set_font_name _obj' fontname' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem fontname' - return result' - -data FontSelectionSetFontNameMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionSetFontNameMethodInfo a signature where - overloadedMethod _ = fontSelectionSetFontName - --- method FontSelection::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_font_selection_set_preview_text" gtk_font_selection_set_preview_text :: - Ptr FontSelection -> -- _obj : TInterface "Gtk" "FontSelection" - CString -> -- text : TBasicType TUTF8 - IO () - -{-# DEPRECATED fontSelectionSetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-} -fontSelectionSetPreviewText :: - (MonadIO m, FontSelectionK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -fontSelectionSetPreviewText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_font_selection_set_preview_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data FontSelectionSetPreviewTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionSetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontSelectionSetPreviewText - - diff --git a/GI/Gtk/Objects/FontSelection.hs-boot b/GI/Gtk/Objects/FontSelection.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FontSelection.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gtk.Objects.FontSelection 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 FontSelection = FontSelection (ForeignPtr FontSelection) -instance GObject FontSelection where -class GObject o => FontSelectionK o -instance (GObject o, IsDescendantOf FontSelection o) => FontSelectionK o -data FontSelectionFontNamePropertyInfo -data FontSelectionPreviewTextPropertyInfo -data FontSelectionGetFaceMethodInfo -data FontSelectionGetFaceListMethodInfo -data FontSelectionGetFamilyMethodInfo -data FontSelectionGetFamilyListMethodInfo -data FontSelectionGetFontNameMethodInfo -data FontSelectionGetPreviewEntryMethodInfo -data FontSelectionGetPreviewTextMethodInfo -data FontSelectionGetSizeMethodInfo -data FontSelectionGetSizeEntryMethodInfo -data FontSelectionGetSizeListMethodInfo -data FontSelectionSetFontNameMethodInfo -data FontSelectionSetPreviewTextMethodInfo diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs b/GI/Gtk/Objects/FontSelectionDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FontSelectionDialog.hs +++ /dev/null @@ -1,779 +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.Gtk.Objects.FontSelectionDialog - ( - --- * Exported types - FontSelectionDialog(..) , - FontSelectionDialogK , - toFontSelectionDialog , - noFontSelectionDialog , - - - -- * Methods --- ** fontSelectionDialogGetCancelButton - FontSelectionDialogGetCancelButtonMethodInfo, - fontSelectionDialogGetCancelButton , - - --- ** fontSelectionDialogGetFontName - FontSelectionDialogGetFontNameMethodInfo, - fontSelectionDialogGetFontName , - - --- ** fontSelectionDialogGetFontSelection - FontSelectionDialogGetFontSelectionMethodInfo, - fontSelectionDialogGetFontSelection , - - --- ** fontSelectionDialogGetOkButton - FontSelectionDialogGetOkButtonMethodInfo, - fontSelectionDialogGetOkButton , - - --- ** fontSelectionDialogGetPreviewText - FontSelectionDialogGetPreviewTextMethodInfo, - fontSelectionDialogGetPreviewText , - - --- ** fontSelectionDialogNew - fontSelectionDialogNew , - - --- ** fontSelectionDialogSetFontName - FontSelectionDialogSetFontNameMethodInfo, - fontSelectionDialogSetFontName , - - --- ** fontSelectionDialogSetPreviewText - FontSelectionDialogSetPreviewTextMethodInfo, - fontSelectionDialogSetPreviewText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FontSelectionDialog = FontSelectionDialog (ForeignPtr FontSelectionDialog) -foreign import ccall "gtk_font_selection_dialog_get_type" - c_gtk_font_selection_dialog_get_type :: IO GType - -type instance ParentTypes FontSelectionDialog = FontSelectionDialogParentTypes -type FontSelectionDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject FontSelectionDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_font_selection_dialog_get_type - - -class GObject o => FontSelectionDialogK o -instance (GObject o, IsDescendantOf FontSelectionDialog o) => FontSelectionDialogK o - -toFontSelectionDialog :: FontSelectionDialogK o => o -> IO FontSelectionDialog -toFontSelectionDialog = unsafeCastTo FontSelectionDialog - -noFontSelectionDialog :: Maybe FontSelectionDialog -noFontSelectionDialog = Nothing - -type family ResolveFontSelectionDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveFontSelectionDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveFontSelectionDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveFontSelectionDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveFontSelectionDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveFontSelectionDialogMethod "add" o = ContainerAddMethodInfo - ResolveFontSelectionDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveFontSelectionDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFontSelectionDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveFontSelectionDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveFontSelectionDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFontSelectionDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFontSelectionDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFontSelectionDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveFontSelectionDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFontSelectionDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFontSelectionDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveFontSelectionDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveFontSelectionDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontSelectionDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontSelectionDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFontSelectionDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFontSelectionDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFontSelectionDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFontSelectionDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFontSelectionDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFontSelectionDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFontSelectionDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFontSelectionDialogMethod "close" o = WindowCloseMethodInfo - ResolveFontSelectionDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFontSelectionDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFontSelectionDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFontSelectionDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFontSelectionDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFontSelectionDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFontSelectionDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFontSelectionDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveFontSelectionDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFontSelectionDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFontSelectionDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFontSelectionDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFontSelectionDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFontSelectionDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFontSelectionDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFontSelectionDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFontSelectionDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFontSelectionDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFontSelectionDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFontSelectionDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFontSelectionDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFontSelectionDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFontSelectionDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFontSelectionDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFontSelectionDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFontSelectionDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFontSelectionDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFontSelectionDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFontSelectionDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFontSelectionDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveFontSelectionDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFontSelectionDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFontSelectionDialogMethod "event" o = WidgetEventMethodInfo - ResolveFontSelectionDialogMethod "forall" o = ContainerForallMethodInfo - ResolveFontSelectionDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontSelectionDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveFontSelectionDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFontSelectionDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontSelectionDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveFontSelectionDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveFontSelectionDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFontSelectionDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFontSelectionDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFontSelectionDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFontSelectionDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFontSelectionDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFontSelectionDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFontSelectionDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveFontSelectionDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFontSelectionDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFontSelectionDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveFontSelectionDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFontSelectionDialogMethod "hide" o = WidgetHideMethodInfo - ResolveFontSelectionDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFontSelectionDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveFontSelectionDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFontSelectionDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFontSelectionDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFontSelectionDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFontSelectionDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFontSelectionDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveFontSelectionDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFontSelectionDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFontSelectionDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFontSelectionDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontSelectionDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFontSelectionDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveFontSelectionDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFontSelectionDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFontSelectionDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFontSelectionDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFontSelectionDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFontSelectionDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFontSelectionDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFontSelectionDialogMethod "map" o = WidgetMapMethodInfo - ResolveFontSelectionDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveFontSelectionDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFontSelectionDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFontSelectionDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFontSelectionDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFontSelectionDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFontSelectionDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFontSelectionDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFontSelectionDialogMethod "move" o = WindowMoveMethodInfo - ResolveFontSelectionDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontSelectionDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontSelectionDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFontSelectionDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFontSelectionDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFontSelectionDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFontSelectionDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFontSelectionDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveFontSelectionDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFontSelectionDialogMethod "path" o = WidgetPathMethodInfo - ResolveFontSelectionDialogMethod "present" o = WindowPresentMethodInfo - ResolveFontSelectionDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveFontSelectionDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFontSelectionDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveFontSelectionDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFontSelectionDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFontSelectionDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFontSelectionDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFontSelectionDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFontSelectionDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFontSelectionDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveFontSelectionDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontSelectionDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontSelectionDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFontSelectionDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFontSelectionDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveFontSelectionDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveFontSelectionDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFontSelectionDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveFontSelectionDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFontSelectionDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFontSelectionDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFontSelectionDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFontSelectionDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveFontSelectionDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontSelectionDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontSelectionDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFontSelectionDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFontSelectionDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveFontSelectionDialogMethod "resize" o = WindowResizeMethodInfo - ResolveFontSelectionDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFontSelectionDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveFontSelectionDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveFontSelectionDialogMethod "response" o = DialogResponseMethodInfo - ResolveFontSelectionDialogMethod "run" o = DialogRunMethodInfo - ResolveFontSelectionDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontSelectionDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFontSelectionDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFontSelectionDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFontSelectionDialogMethod "show" o = WidgetShowMethodInfo - ResolveFontSelectionDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFontSelectionDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFontSelectionDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFontSelectionDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFontSelectionDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFontSelectionDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontSelectionDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontSelectionDialogMethod "stick" o = WindowStickMethodInfo - ResolveFontSelectionDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFontSelectionDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFontSelectionDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFontSelectionDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontSelectionDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFontSelectionDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFontSelectionDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveFontSelectionDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFontSelectionDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveFontSelectionDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFontSelectionDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFontSelectionDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontSelectionDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFontSelectionDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFontSelectionDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFontSelectionDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveFontSelectionDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontSelectionDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveFontSelectionDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFontSelectionDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveFontSelectionDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFontSelectionDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFontSelectionDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFontSelectionDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFontSelectionDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFontSelectionDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFontSelectionDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFontSelectionDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveFontSelectionDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveFontSelectionDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFontSelectionDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFontSelectionDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFontSelectionDialogMethod "getCancelButton" o = FontSelectionDialogGetCancelButtonMethodInfo - ResolveFontSelectionDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveFontSelectionDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFontSelectionDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFontSelectionDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFontSelectionDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFontSelectionDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFontSelectionDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFontSelectionDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveFontSelectionDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontSelectionDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveFontSelectionDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveFontSelectionDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveFontSelectionDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveFontSelectionDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveFontSelectionDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFontSelectionDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFontSelectionDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFontSelectionDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFontSelectionDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFontSelectionDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFontSelectionDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveFontSelectionDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFontSelectionDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFontSelectionDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFontSelectionDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveFontSelectionDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFontSelectionDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveFontSelectionDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFontSelectionDialogMethod "getFontName" o = FontSelectionDialogGetFontNameMethodInfo - ResolveFontSelectionDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFontSelectionDialogMethod "getFontSelection" o = FontSelectionDialogGetFontSelectionMethodInfo - ResolveFontSelectionDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFontSelectionDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveFontSelectionDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveFontSelectionDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFontSelectionDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveFontSelectionDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFontSelectionDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFontSelectionDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveFontSelectionDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFontSelectionDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFontSelectionDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveFontSelectionDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveFontSelectionDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveFontSelectionDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveFontSelectionDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFontSelectionDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFontSelectionDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFontSelectionDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFontSelectionDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFontSelectionDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFontSelectionDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFontSelectionDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFontSelectionDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveFontSelectionDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveFontSelectionDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveFontSelectionDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFontSelectionDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFontSelectionDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFontSelectionDialogMethod "getOkButton" o = FontSelectionDialogGetOkButtonMethodInfo - ResolveFontSelectionDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFontSelectionDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFontSelectionDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFontSelectionDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFontSelectionDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFontSelectionDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFontSelectionDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveFontSelectionDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFontSelectionDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFontSelectionDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFontSelectionDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFontSelectionDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFontSelectionDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFontSelectionDialogMethod "getPreviewText" o = FontSelectionDialogGetPreviewTextMethodInfo - ResolveFontSelectionDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontSelectionDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontSelectionDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFontSelectionDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFontSelectionDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFontSelectionDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFontSelectionDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveFontSelectionDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveFontSelectionDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFontSelectionDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveFontSelectionDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveFontSelectionDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFontSelectionDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFontSelectionDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFontSelectionDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFontSelectionDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveFontSelectionDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFontSelectionDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveFontSelectionDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveFontSelectionDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveFontSelectionDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFontSelectionDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFontSelectionDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFontSelectionDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFontSelectionDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFontSelectionDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveFontSelectionDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveFontSelectionDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFontSelectionDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFontSelectionDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFontSelectionDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFontSelectionDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveFontSelectionDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveFontSelectionDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveFontSelectionDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFontSelectionDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFontSelectionDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFontSelectionDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFontSelectionDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFontSelectionDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFontSelectionDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveFontSelectionDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFontSelectionDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveFontSelectionDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFontSelectionDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveFontSelectionDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFontSelectionDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveFontSelectionDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFontSelectionDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveFontSelectionDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveFontSelectionDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFontSelectionDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFontSelectionDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFontSelectionDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFontSelectionDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFontSelectionDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFontSelectionDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFontSelectionDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontSelectionDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveFontSelectionDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveFontSelectionDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveFontSelectionDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveFontSelectionDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveFontSelectionDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveFontSelectionDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveFontSelectionDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFontSelectionDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFontSelectionDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFontSelectionDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFontSelectionDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFontSelectionDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveFontSelectionDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFontSelectionDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFontSelectionDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFontSelectionDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveFontSelectionDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFontSelectionDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveFontSelectionDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFontSelectionDialogMethod "setFontName" o = FontSelectionDialogSetFontNameMethodInfo - ResolveFontSelectionDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFontSelectionDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveFontSelectionDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveFontSelectionDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFontSelectionDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveFontSelectionDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFontSelectionDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveFontSelectionDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFontSelectionDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFontSelectionDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFontSelectionDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveFontSelectionDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveFontSelectionDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveFontSelectionDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveFontSelectionDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveFontSelectionDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveFontSelectionDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveFontSelectionDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFontSelectionDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFontSelectionDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFontSelectionDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFontSelectionDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFontSelectionDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFontSelectionDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFontSelectionDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveFontSelectionDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveFontSelectionDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveFontSelectionDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFontSelectionDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFontSelectionDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFontSelectionDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveFontSelectionDialogMethod "setPreviewText" o = FontSelectionDialogSetPreviewTextMethodInfo - ResolveFontSelectionDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontSelectionDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFontSelectionDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFontSelectionDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFontSelectionDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFontSelectionDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveFontSelectionDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFontSelectionDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveFontSelectionDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveFontSelectionDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveFontSelectionDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFontSelectionDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFontSelectionDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveFontSelectionDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveFontSelectionDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveFontSelectionDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveFontSelectionDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFontSelectionDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFontSelectionDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFontSelectionDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveFontSelectionDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveFontSelectionDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFontSelectionDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFontSelectionDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFontSelectionDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveFontSelectionDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveFontSelectionDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveFontSelectionDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFontSelectionDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFontSelectionDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFontSelectionDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFontSelectionDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFontSelectionDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFontSelectionDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveFontSelectionDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontSelectionDialogMethod t FontSelectionDialog, MethodInfo info FontSelectionDialog p) => IsLabelProxy t (FontSelectionDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontSelectionDialogMethod t FontSelectionDialog, MethodInfo info FontSelectionDialog p) => IsLabel t (FontSelectionDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FontSelectionDialog = FontSelectionDialogAttributeList -type FontSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontSelectionDialog = FontSelectionDialogSignalList -type FontSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method FontSelectionDialog::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "FontSelectionDialog") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_dialog_new" gtk_font_selection_dialog_new :: - CString -> -- title : TBasicType TUTF8 - IO (Ptr FontSelectionDialog) - -{-# DEPRECATED fontSelectionDialogNew ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogNew :: - (MonadIO m) => - T.Text -- title - -> m FontSelectionDialog -- result -fontSelectionDialogNew title = liftIO $ do - title' <- textToCString title - result <- gtk_font_selection_dialog_new title' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_new" result - result' <- (newObject FontSelectionDialog) result - freeMem title' - return result' - --- method FontSelectionDialog::get_cancel_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_dialog_get_cancel_button" gtk_font_selection_dialog_get_cancel_button :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionDialogGetCancelButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogGetCancelButton :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> m Widget -- result -fontSelectionDialogGetCancelButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_dialog_get_cancel_button _obj' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_cancel_button" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionDialogGetCancelButtonMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetCancelButtonMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogGetCancelButton - --- method FontSelectionDialog::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", 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 "gtk_font_selection_dialog_get_font_name" gtk_font_selection_dialog_get_font_name :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - IO CString - -{-# DEPRECATED fontSelectionDialogGetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogGetFontName :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> m T.Text -- result -fontSelectionDialogGetFontName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_dialog_get_font_name _obj' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_font_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FontSelectionDialogGetFontNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetFontNameMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogGetFontName - --- method FontSelectionDialog::get_font_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_dialog_get_font_selection" gtk_font_selection_dialog_get_font_selection :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionDialogGetFontSelection ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogGetFontSelection :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> m Widget -- result -fontSelectionDialogGetFontSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_dialog_get_font_selection _obj' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_font_selection" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionDialogGetFontSelectionMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetFontSelectionMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogGetFontSelection - --- method FontSelectionDialog::get_ok_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_font_selection_dialog_get_ok_button" gtk_font_selection_dialog_get_ok_button :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - IO (Ptr Widget) - -{-# DEPRECATED fontSelectionDialogGetOkButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogGetOkButton :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> m Widget -- result -fontSelectionDialogGetOkButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_dialog_get_ok_button _obj' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_ok_button" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data FontSelectionDialogGetOkButtonMethodInfo -instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetOkButtonMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogGetOkButton - --- method FontSelectionDialog::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", 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 "gtk_font_selection_dialog_get_preview_text" gtk_font_selection_dialog_get_preview_text :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - IO CString - -{-# DEPRECATED fontSelectionDialogGetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogGetPreviewText :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> m T.Text -- result -fontSelectionDialogGetPreviewText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_dialog_get_preview_text _obj' - checkUnexpectedReturnNULL "gtk_font_selection_dialog_get_preview_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontSelectionDialogGetPreviewTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogGetPreviewText - --- method FontSelectionDialog::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", 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 "gtk_font_selection_dialog_set_font_name" gtk_font_selection_dialog_set_font_name :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - CString -> -- fontname : TBasicType TUTF8 - IO CInt - -{-# DEPRECATED fontSelectionDialogSetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogSetFontName :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> T.Text -- fontname - -> m Bool -- result -fontSelectionDialogSetFontName _obj fontname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fontname' <- textToCString fontname - result <- gtk_font_selection_dialog_set_font_name _obj' fontname' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem fontname' - return result' - -data FontSelectionDialogSetFontNameMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogSetFontNameMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogSetFontName - --- method FontSelectionDialog::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_font_selection_dialog_set_preview_text" gtk_font_selection_dialog_set_preview_text :: - Ptr FontSelectionDialog -> -- _obj : TInterface "Gtk" "FontSelectionDialog" - CString -> -- text : TBasicType TUTF8 - IO () - -{-# DEPRECATED fontSelectionDialogSetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} -fontSelectionDialogSetPreviewText :: - (MonadIO m, FontSelectionDialogK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -fontSelectionDialogSetPreviewText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_font_selection_dialog_set_preview_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data FontSelectionDialogSetPreviewTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogSetPreviewTextMethodInfo a signature where - overloadedMethod _ = fontSelectionDialogSetPreviewText - - diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs-boot b/GI/Gtk/Objects/FontSelectionDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FontSelectionDialog.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.FontSelectionDialog 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 FontSelectionDialog = FontSelectionDialog (ForeignPtr FontSelectionDialog) -instance GObject FontSelectionDialog where -class GObject o => FontSelectionDialogK o -instance (GObject o, IsDescendantOf FontSelectionDialog o) => FontSelectionDialogK o -data FontSelectionDialogGetCancelButtonMethodInfo -data FontSelectionDialogGetFontNameMethodInfo -data FontSelectionDialogGetFontSelectionMethodInfo -data FontSelectionDialogGetOkButtonMethodInfo -data FontSelectionDialogGetPreviewTextMethodInfo -data FontSelectionDialogSetFontNameMethodInfo -data FontSelectionDialogSetPreviewTextMethodInfo diff --git a/GI/Gtk/Objects/Frame.hs b/GI/Gtk/Objects/Frame.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Frame.hs +++ /dev/null @@ -1,920 +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.Gtk.Objects.Frame - ( - --- * Exported types - Frame(..) , - FrameK , - toFrame , - noFrame , - - - -- * Methods --- ** frameGetLabel - FrameGetLabelMethodInfo , - frameGetLabel , - - --- ** frameGetLabelAlign - FrameGetLabelAlignMethodInfo , - frameGetLabelAlign , - - --- ** frameGetLabelWidget - FrameGetLabelWidgetMethodInfo , - frameGetLabelWidget , - - --- ** frameGetShadowType - FrameGetShadowTypeMethodInfo , - frameGetShadowType , - - --- ** frameNew - frameNew , - - --- ** frameSetLabel - FrameSetLabelMethodInfo , - frameSetLabel , - - --- ** frameSetLabelAlign - FrameSetLabelAlignMethodInfo , - frameSetLabelAlign , - - --- ** frameSetLabelWidget - FrameSetLabelWidgetMethodInfo , - frameSetLabelWidget , - - --- ** frameSetShadowType - FrameSetShadowTypeMethodInfo , - frameSetShadowType , - - - - - -- * Properties --- ** Label - FrameLabelPropertyInfo , - clearFrameLabel , - constructFrameLabel , - frameLabel , - getFrameLabel , - setFrameLabel , - - --- ** LabelWidget - FrameLabelWidgetPropertyInfo , - clearFrameLabelWidget , - constructFrameLabelWidget , - frameLabelWidget , - getFrameLabelWidget , - setFrameLabelWidget , - - --- ** LabelXalign - FrameLabelXalignPropertyInfo , - constructFrameLabelXalign , - frameLabelXalign , - getFrameLabelXalign , - setFrameLabelXalign , - - --- ** LabelYalign - FrameLabelYalignPropertyInfo , - constructFrameLabelYalign , - frameLabelYalign , - getFrameLabelYalign , - setFrameLabelYalign , - - --- ** ShadowType - FrameShadowTypePropertyInfo , - constructFrameShadowType , - frameShadowType , - getFrameShadowType , - setFrameShadowType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Frame = Frame (ForeignPtr Frame) -foreign import ccall "gtk_frame_get_type" - c_gtk_frame_get_type :: IO GType - -type instance ParentTypes Frame = FrameParentTypes -type FrameParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Frame where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_frame_get_type - - -class GObject o => FrameK o -instance (GObject o, IsDescendantOf Frame o) => FrameK o - -toFrame :: FrameK o => o -> IO Frame -toFrame = unsafeCastTo Frame - -noFrame :: Maybe Frame -noFrame = Nothing - -type family ResolveFrameMethod (t :: Symbol) (o :: *) :: * where - ResolveFrameMethod "activate" o = WidgetActivateMethodInfo - ResolveFrameMethod "add" o = ContainerAddMethodInfo - ResolveFrameMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveFrameMethod "addChild" o = BuildableAddChildMethodInfo - ResolveFrameMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveFrameMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveFrameMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveFrameMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveFrameMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFrameMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFrameMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveFrameMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveFrameMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveFrameMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveFrameMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveFrameMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveFrameMethod "childType" o = ContainerChildTypeMethodInfo - ResolveFrameMethod "classPath" o = WidgetClassPathMethodInfo - ResolveFrameMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveFrameMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveFrameMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveFrameMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveFrameMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveFrameMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveFrameMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveFrameMethod "destroy" o = WidgetDestroyMethodInfo - ResolveFrameMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveFrameMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveFrameMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveFrameMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveFrameMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveFrameMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveFrameMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveFrameMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveFrameMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveFrameMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveFrameMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveFrameMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveFrameMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveFrameMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveFrameMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveFrameMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveFrameMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveFrameMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveFrameMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveFrameMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveFrameMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveFrameMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveFrameMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveFrameMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveFrameMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveFrameMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveFrameMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveFrameMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveFrameMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveFrameMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveFrameMethod "draw" o = WidgetDrawMethodInfo - ResolveFrameMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveFrameMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveFrameMethod "event" o = WidgetEventMethodInfo - ResolveFrameMethod "forall" o = ContainerForallMethodInfo - ResolveFrameMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFrameMethod "foreach" o = ContainerForeachMethodInfo - ResolveFrameMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveFrameMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFrameMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveFrameMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveFrameMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveFrameMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveFrameMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveFrameMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveFrameMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveFrameMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveFrameMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveFrameMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveFrameMethod "hide" o = WidgetHideMethodInfo - ResolveFrameMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveFrameMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveFrameMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveFrameMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveFrameMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveFrameMethod "intersect" o = WidgetIntersectMethodInfo - ResolveFrameMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveFrameMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveFrameMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveFrameMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFrameMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveFrameMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveFrameMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveFrameMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveFrameMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveFrameMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveFrameMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveFrameMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveFrameMethod "map" o = WidgetMapMethodInfo - ResolveFrameMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveFrameMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveFrameMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveFrameMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveFrameMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveFrameMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveFrameMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveFrameMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveFrameMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFrameMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFrameMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveFrameMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveFrameMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveFrameMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveFrameMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveFrameMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveFrameMethod "path" o = WidgetPathMethodInfo - ResolveFrameMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveFrameMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveFrameMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveFrameMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveFrameMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveFrameMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveFrameMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveFrameMethod "realize" o = WidgetRealizeMethodInfo - ResolveFrameMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFrameMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFrameMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveFrameMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveFrameMethod "remove" o = ContainerRemoveMethodInfo - ResolveFrameMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveFrameMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveFrameMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveFrameMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveFrameMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveFrameMethod "reparent" o = WidgetReparentMethodInfo - ResolveFrameMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFrameMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFrameMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveFrameMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveFrameMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveFrameMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFrameMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveFrameMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveFrameMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveFrameMethod "show" o = WidgetShowMethodInfo - ResolveFrameMethod "showAll" o = WidgetShowAllMethodInfo - ResolveFrameMethod "showNow" o = WidgetShowNowMethodInfo - ResolveFrameMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveFrameMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveFrameMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveFrameMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFrameMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFrameMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveFrameMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveFrameMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveFrameMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFrameMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveFrameMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveFrameMethod "unmap" o = WidgetUnmapMethodInfo - ResolveFrameMethod "unparent" o = WidgetUnparentMethodInfo - ResolveFrameMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveFrameMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFrameMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveFrameMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveFrameMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveFrameMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFrameMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveFrameMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveFrameMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveFrameMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveFrameMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveFrameMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveFrameMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveFrameMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveFrameMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveFrameMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveFrameMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveFrameMethod "getChild" o = BinGetChildMethodInfo - ResolveFrameMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveFrameMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveFrameMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveFrameMethod "getClip" o = WidgetGetClipMethodInfo - ResolveFrameMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveFrameMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveFrameMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFrameMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveFrameMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveFrameMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveFrameMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveFrameMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveFrameMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveFrameMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveFrameMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveFrameMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveFrameMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveFrameMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveFrameMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveFrameMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveFrameMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveFrameMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveFrameMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveFrameMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveFrameMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveFrameMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveFrameMethod "getLabel" o = FrameGetLabelMethodInfo - ResolveFrameMethod "getLabelAlign" o = FrameGetLabelAlignMethodInfo - ResolveFrameMethod "getLabelWidget" o = FrameGetLabelWidgetMethodInfo - ResolveFrameMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveFrameMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveFrameMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveFrameMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveFrameMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveFrameMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveFrameMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveFrameMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveFrameMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveFrameMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveFrameMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveFrameMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveFrameMethod "getParent" o = WidgetGetParentMethodInfo - ResolveFrameMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveFrameMethod "getPath" o = WidgetGetPathMethodInfo - ResolveFrameMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveFrameMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveFrameMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveFrameMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveFrameMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveFrameMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveFrameMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveFrameMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveFrameMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFrameMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFrameMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveFrameMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveFrameMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveFrameMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveFrameMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveFrameMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveFrameMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveFrameMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveFrameMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveFrameMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveFrameMethod "getShadowType" o = FrameGetShadowTypeMethodInfo - ResolveFrameMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveFrameMethod "getState" o = WidgetGetStateMethodInfo - ResolveFrameMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveFrameMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveFrameMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveFrameMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveFrameMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveFrameMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveFrameMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveFrameMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveFrameMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveFrameMethod "getValign" o = WidgetGetValignMethodInfo - ResolveFrameMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveFrameMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveFrameMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveFrameMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveFrameMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveFrameMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveFrameMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveFrameMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveFrameMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveFrameMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveFrameMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveFrameMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveFrameMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveFrameMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveFrameMethod "setClip" o = WidgetSetClipMethodInfo - ResolveFrameMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveFrameMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFrameMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveFrameMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveFrameMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveFrameMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveFrameMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveFrameMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveFrameMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveFrameMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveFrameMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveFrameMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveFrameMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveFrameMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveFrameMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveFrameMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveFrameMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveFrameMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveFrameMethod "setLabel" o = FrameSetLabelMethodInfo - ResolveFrameMethod "setLabelAlign" o = FrameSetLabelAlignMethodInfo - ResolveFrameMethod "setLabelWidget" o = FrameSetLabelWidgetMethodInfo - ResolveFrameMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveFrameMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveFrameMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveFrameMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveFrameMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveFrameMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveFrameMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveFrameMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveFrameMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveFrameMethod "setParent" o = WidgetSetParentMethodInfo - ResolveFrameMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveFrameMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFrameMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveFrameMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveFrameMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveFrameMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveFrameMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveFrameMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveFrameMethod "setShadowType" o = FrameSetShadowTypeMethodInfo - ResolveFrameMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveFrameMethod "setState" o = WidgetSetStateMethodInfo - ResolveFrameMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveFrameMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveFrameMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveFrameMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveFrameMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveFrameMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveFrameMethod "setValign" o = WidgetSetValignMethodInfo - ResolveFrameMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveFrameMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveFrameMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveFrameMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveFrameMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveFrameMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabelProxy t (Frame -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabel t (Frame -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getFrameLabel :: (MonadIO m, FrameK o) => o -> m T.Text -getFrameLabel obj = liftIO $ checkUnexpectedNothing "getFrameLabel" $ getObjectPropertyString obj "label" - -setFrameLabel :: (MonadIO m, FrameK o) => o -> T.Text -> m () -setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructFrameLabel :: T.Text -> IO ([Char], GValue) -constructFrameLabel val = constructObjectPropertyString "label" (Just val) - -clearFrameLabel :: (MonadIO m, FrameK o) => o -> m () -clearFrameLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) - -data FrameLabelPropertyInfo -instance AttrInfo FrameLabelPropertyInfo where - type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK - type AttrGetType FrameLabelPropertyInfo = T.Text - type AttrLabel FrameLabelPropertyInfo = "label" - attrGet _ = getFrameLabel - attrSet _ = setFrameLabel - attrConstruct _ = constructFrameLabel - attrClear _ = clearFrameLabel - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just True) - -getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m (Maybe Widget) -getFrameLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget - -setFrameLabelWidget :: (MonadIO m, FrameK o, WidgetK a) => o -> a -> m () -setFrameLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) - -constructFrameLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) - -clearFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m () -clearFrameLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) - -data FrameLabelWidgetPropertyInfo -instance AttrInfo FrameLabelWidgetPropertyInfo where - type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK - type AttrGetType FrameLabelWidgetPropertyInfo = (Maybe Widget) - type AttrLabel FrameLabelWidgetPropertyInfo = "label-widget" - attrGet _ = getFrameLabelWidget - attrSet _ = setFrameLabelWidget - attrConstruct _ = constructFrameLabelWidget - attrClear _ = clearFrameLabelWidget - --- VVV Prop "label-xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getFrameLabelXalign :: (MonadIO m, FrameK o) => o -> m Float -getFrameLabelXalign obj = liftIO $ getObjectPropertyFloat obj "label-xalign" - -setFrameLabelXalign :: (MonadIO m, FrameK o) => o -> Float -> m () -setFrameLabelXalign obj val = liftIO $ setObjectPropertyFloat obj "label-xalign" val - -constructFrameLabelXalign :: Float -> IO ([Char], GValue) -constructFrameLabelXalign val = constructObjectPropertyFloat "label-xalign" val - -data FrameLabelXalignPropertyInfo -instance AttrInfo FrameLabelXalignPropertyInfo where - type AttrAllowedOps FrameLabelXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FrameLabelXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint FrameLabelXalignPropertyInfo = FrameK - type AttrGetType FrameLabelXalignPropertyInfo = Float - type AttrLabel FrameLabelXalignPropertyInfo = "label-xalign" - attrGet _ = getFrameLabelXalign - attrSet _ = setFrameLabelXalign - attrConstruct _ = constructFrameLabelXalign - attrClear _ = undefined - --- VVV Prop "label-yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getFrameLabelYalign :: (MonadIO m, FrameK o) => o -> m Float -getFrameLabelYalign obj = liftIO $ getObjectPropertyFloat obj "label-yalign" - -setFrameLabelYalign :: (MonadIO m, FrameK o) => o -> Float -> m () -setFrameLabelYalign obj val = liftIO $ setObjectPropertyFloat obj "label-yalign" val - -constructFrameLabelYalign :: Float -> IO ([Char], GValue) -constructFrameLabelYalign val = constructObjectPropertyFloat "label-yalign" val - -data FrameLabelYalignPropertyInfo -instance AttrInfo FrameLabelYalignPropertyInfo where - type AttrAllowedOps FrameLabelYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FrameLabelYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint FrameLabelYalignPropertyInfo = FrameK - type AttrGetType FrameLabelYalignPropertyInfo = Float - type AttrLabel FrameLabelYalignPropertyInfo = "label-yalign" - attrGet _ = getFrameLabelYalign - attrSet _ = setFrameLabelYalign - attrConstruct _ = constructFrameLabelYalign - attrClear _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getFrameShadowType :: (MonadIO m, FrameK o) => o -> m ShadowType -getFrameShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setFrameShadowType :: (MonadIO m, FrameK o) => o -> ShadowType -> m () -setFrameShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructFrameShadowType :: ShadowType -> IO ([Char], GValue) -constructFrameShadowType val = constructObjectPropertyEnum "shadow-type" val - -data FrameShadowTypePropertyInfo -instance AttrInfo FrameShadowTypePropertyInfo where - type AttrAllowedOps FrameShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FrameShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint FrameShadowTypePropertyInfo = FrameK - type AttrGetType FrameShadowTypePropertyInfo = ShadowType - type AttrLabel FrameShadowTypePropertyInfo = "shadow-type" - attrGet _ = getFrameShadowType - attrSet _ = setFrameShadowType - attrConstruct _ = constructFrameShadowType - attrClear _ = undefined - -type instance AttributeList Frame = FrameAttributeList -type FrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -frameLabel :: AttrLabelProxy "label" -frameLabel = AttrLabelProxy - -frameLabelWidget :: AttrLabelProxy "labelWidget" -frameLabelWidget = AttrLabelProxy - -frameLabelXalign :: AttrLabelProxy "labelXalign" -frameLabelXalign = AttrLabelProxy - -frameLabelYalign :: AttrLabelProxy "labelYalign" -frameLabelYalign = AttrLabelProxy - -frameShadowType :: AttrLabelProxy "shadowType" -frameShadowType = AttrLabelProxy - -type instance SignalList Frame = FrameSignalList -type FrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Frame::new --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Frame") --- throws : False --- Skip return : False - -foreign import ccall "gtk_frame_new" gtk_frame_new :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr Frame) - - -frameNew :: - (MonadIO m) => - Maybe (T.Text) -- label - -> m Frame -- result -frameNew label = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_frame_new maybeLabel - checkUnexpectedReturnNULL "gtk_frame_new" result - result' <- (newObject Frame) result - freeMem maybeLabel - return result' - --- method Frame::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", 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 "gtk_frame_get_label" gtk_frame_get_label :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - IO CString - - -frameGetLabel :: - (MonadIO m, FrameK a) => - a -- _obj - -> m T.Text -- result -frameGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_frame_get_label _obj' - checkUnexpectedReturnNULL "gtk_frame_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FrameGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FrameK a) => MethodInfo FrameGetLabelMethodInfo a signature where - overloadedMethod _ = frameGetLabel - --- method Frame::get_label_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_frame_get_label_align" gtk_frame_get_label_align :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - Ptr CFloat -> -- xalign : TBasicType TFloat - Ptr CFloat -> -- yalign : TBasicType TFloat - IO () - - -frameGetLabelAlign :: - (MonadIO m, FrameK a) => - a -- _obj - -> m (Float,Float) -- result -frameGetLabelAlign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xalign <- allocMem :: IO (Ptr CFloat) - yalign <- allocMem :: IO (Ptr CFloat) - gtk_frame_get_label_align _obj' xalign yalign - xalign' <- peek xalign - let xalign'' = realToFrac xalign' - yalign' <- peek yalign - let yalign'' = realToFrac yalign' - touchManagedPtr _obj - freeMem xalign - freeMem yalign - return (xalign'', yalign'') - -data FrameGetLabelAlignMethodInfo -instance (signature ~ (m (Float,Float)), MonadIO m, FrameK a) => MethodInfo FrameGetLabelAlignMethodInfo a signature where - overloadedMethod _ = frameGetLabelAlign - --- method Frame::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_frame_get_label_widget" gtk_frame_get_label_widget :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - IO (Ptr Widget) - - -frameGetLabelWidget :: - (MonadIO m, FrameK a) => - a -- _obj - -> m (Maybe Widget) -- result -frameGetLabelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_frame_get_label_widget _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FrameGetLabelWidgetMethodInfo -instance (signature ~ (m (Maybe Widget)), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where - overloadedMethod _ = frameGetLabelWidget - --- method Frame::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ShadowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_frame_get_shadow_type" gtk_frame_get_shadow_type :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - IO CUInt - - -frameGetShadowType :: - (MonadIO m, FrameK a) => - a -- _obj - -> m ShadowType -- result -frameGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_frame_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FrameGetShadowTypeMethodInfo -instance (signature ~ (m ShadowType), MonadIO m, FrameK a) => MethodInfo FrameGetShadowTypeMethodInfo a signature where - overloadedMethod _ = frameGetShadowType - --- method Frame::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_frame_set_label" gtk_frame_set_label :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - CString -> -- label : TBasicType TUTF8 - IO () - - -frameSetLabel :: - (MonadIO m, FrameK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -frameSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - gtk_frame_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data FrameSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetLabelMethodInfo a signature where - overloadedMethod _ = frameSetLabel - --- method Frame::set_label_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_frame_set_label_align" gtk_frame_set_label_align :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - IO () - - -frameSetLabelAlign :: - (MonadIO m, FrameK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> m () -- result -frameSetLabelAlign _obj xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_frame_set_label_align _obj' xalign' yalign' - touchManagedPtr _obj - return () - -data FrameSetLabelAlignMethodInfo -instance (signature ~ (Float -> Float -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetLabelAlignMethodInfo a signature where - overloadedMethod _ = frameSetLabelAlign - --- method Frame::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_frame_set_label_widget" gtk_frame_set_label_widget :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget" - IO () - - -frameSetLabelWidget :: - (MonadIO m, FrameK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- labelWidget - -> m () -- result -frameSetLabelWidget _obj labelWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabelWidget <- case labelWidget of - Nothing -> return nullPtr - Just jLabelWidget -> do - let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget - return jLabelWidget' - gtk_frame_set_label_widget _obj' maybeLabelWidget - touchManagedPtr _obj - whenJust labelWidget touchManagedPtr - return () - -data FrameSetLabelWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FrameK a, WidgetK b) => MethodInfo FrameSetLabelWidgetMethodInfo a signature where - overloadedMethod _ = frameSetLabelWidget - --- method Frame::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", 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 "gtk_frame_set_shadow_type" gtk_frame_set_shadow_type :: - Ptr Frame -> -- _obj : TInterface "Gtk" "Frame" - CUInt -> -- type : TInterface "Gtk" "ShadowType" - IO () - - -frameSetShadowType :: - (MonadIO m, FrameK a) => - a -- _obj - -> ShadowType -- type_ - -> m () -- result -frameSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_frame_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - -data FrameSetShadowTypeMethodInfo -instance (signature ~ (ShadowType -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetShadowTypeMethodInfo a signature where - overloadedMethod _ = frameSetShadowType - - diff --git a/GI/Gtk/Objects/Frame.hs-boot b/GI/Gtk/Objects/Frame.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Frame.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gtk.Objects.Frame 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 Frame = Frame (ForeignPtr Frame) -instance GObject Frame where -class GObject o => FrameK o -instance (GObject o, IsDescendantOf Frame o) => FrameK o -data FrameLabelPropertyInfo -data FrameLabelWidgetPropertyInfo -data FrameLabelXalignPropertyInfo -data FrameLabelYalignPropertyInfo -data FrameShadowTypePropertyInfo -data FrameGetLabelMethodInfo -data FrameGetLabelAlignMethodInfo -data FrameGetLabelWidgetMethodInfo -data FrameGetShadowTypeMethodInfo -data FrameSetLabelMethodInfo -data FrameSetLabelAlignMethodInfo -data FrameSetLabelWidgetMethodInfo -data FrameSetShadowTypeMethodInfo diff --git a/GI/Gtk/Objects/FrameAccessible.hs b/GI/Gtk/Objects/FrameAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/FrameAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.FrameAccessible - ( - --- * Exported types - FrameAccessible(..) , - FrameAccessibleK , - toFrameAccessible , - noFrameAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype FrameAccessible = FrameAccessible (ForeignPtr FrameAccessible) -foreign import ccall "gtk_frame_accessible_get_type" - c_gtk_frame_accessible_get_type :: IO GType - -type instance ParentTypes FrameAccessible = FrameAccessibleParentTypes -type FrameAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject FrameAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_frame_accessible_get_type - - -class GObject o => FrameAccessibleK o -instance (GObject o, IsDescendantOf FrameAccessible o) => FrameAccessibleK o - -toFrameAccessible :: FrameAccessibleK o => o -> IO FrameAccessible -toFrameAccessible = unsafeCastTo FrameAccessible - -noFrameAccessible :: Maybe FrameAccessible -noFrameAccessible = Nothing - -type family ResolveFrameAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveFrameAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveFrameAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFrameAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFrameAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveFrameAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveFrameAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFrameAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFrameAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveFrameAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveFrameAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFrameAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFrameAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFrameAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveFrameAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveFrameAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFrameAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveFrameAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveFrameAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveFrameAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFrameAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveFrameAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveFrameAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveFrameAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveFrameAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFrameAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFrameAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFrameAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFrameAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFrameAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFrameAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFrameAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFrameAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveFrameAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveFrameAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFrameAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveFrameAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveFrameAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveFrameAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveFrameAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveFrameAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveFrameAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveFrameAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveFrameAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFrameAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFrameAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveFrameAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveFrameAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveFrameAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFrameAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveFrameAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveFrameAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveFrameAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveFrameAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveFrameAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFrameAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveFrameAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveFrameAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveFrameAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFrameAccessibleMethod t FrameAccessible, MethodInfo info FrameAccessible p) => IsLabelProxy t (FrameAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFrameAccessibleMethod t FrameAccessible, MethodInfo info FrameAccessible p) => IsLabel t (FrameAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FrameAccessible = FrameAccessibleAttributeList -type FrameAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FrameAccessible = FrameAccessibleSignalList -type FrameAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/FrameAccessible.hs-boot b/GI/Gtk/Objects/FrameAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/FrameAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.FrameAccessible 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 FrameAccessible = FrameAccessible (ForeignPtr FrameAccessible) -instance GObject FrameAccessible where -class GObject o => FrameAccessibleK o -instance (GObject o, IsDescendantOf FrameAccessible o) => FrameAccessibleK o diff --git a/GI/Gtk/Objects/GLArea.hs b/GI/Gtk/Objects/GLArea.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GLArea.hs +++ /dev/null @@ -1,1315 +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.Gtk.Objects.GLArea - ( - --- * Exported types - GLArea(..) , - GLAreaK , - toGLArea , - noGLArea , - - - -- * Methods --- ** gLAreaAttachBuffers - GLAreaAttachBuffersMethodInfo , - gLAreaAttachBuffers , - - --- ** gLAreaGetAutoRender - GLAreaGetAutoRenderMethodInfo , - gLAreaGetAutoRender , - - --- ** gLAreaGetContext - GLAreaGetContextMethodInfo , - gLAreaGetContext , - - --- ** gLAreaGetError - GLAreaGetErrorMethodInfo , - gLAreaGetError , - - --- ** gLAreaGetHasAlpha - GLAreaGetHasAlphaMethodInfo , - gLAreaGetHasAlpha , - - --- ** gLAreaGetHasDepthBuffer - GLAreaGetHasDepthBufferMethodInfo , - gLAreaGetHasDepthBuffer , - - --- ** gLAreaGetHasStencilBuffer - GLAreaGetHasStencilBufferMethodInfo , - gLAreaGetHasStencilBuffer , - - --- ** gLAreaGetRequiredVersion - GLAreaGetRequiredVersionMethodInfo , - gLAreaGetRequiredVersion , - - --- ** gLAreaMakeCurrent - GLAreaMakeCurrentMethodInfo , - gLAreaMakeCurrent , - - --- ** gLAreaNew - gLAreaNew , - - --- ** gLAreaQueueRender - GLAreaQueueRenderMethodInfo , - gLAreaQueueRender , - - --- ** gLAreaSetAutoRender - GLAreaSetAutoRenderMethodInfo , - gLAreaSetAutoRender , - - --- ** gLAreaSetError - GLAreaSetErrorMethodInfo , - gLAreaSetError , - - --- ** gLAreaSetHasAlpha - GLAreaSetHasAlphaMethodInfo , - gLAreaSetHasAlpha , - - --- ** gLAreaSetHasDepthBuffer - GLAreaSetHasDepthBufferMethodInfo , - gLAreaSetHasDepthBuffer , - - --- ** gLAreaSetHasStencilBuffer - GLAreaSetHasStencilBufferMethodInfo , - gLAreaSetHasStencilBuffer , - - --- ** gLAreaSetRequiredVersion - GLAreaSetRequiredVersionMethodInfo , - gLAreaSetRequiredVersion , - - - - - -- * Properties --- ** AutoRender - GLAreaAutoRenderPropertyInfo , - constructGLAreaAutoRender , - gLAreaAutoRender , - getGLAreaAutoRender , - setGLAreaAutoRender , - - --- ** Context - GLAreaContextPropertyInfo , - gLAreaContext , - getGLAreaContext , - - --- ** HasAlpha - GLAreaHasAlphaPropertyInfo , - constructGLAreaHasAlpha , - gLAreaHasAlpha , - getGLAreaHasAlpha , - setGLAreaHasAlpha , - - --- ** HasDepthBuffer - GLAreaHasDepthBufferPropertyInfo , - constructGLAreaHasDepthBuffer , - gLAreaHasDepthBuffer , - getGLAreaHasDepthBuffer , - setGLAreaHasDepthBuffer , - - --- ** HasStencilBuffer - GLAreaHasStencilBufferPropertyInfo , - constructGLAreaHasStencilBuffer , - gLAreaHasStencilBuffer , - getGLAreaHasStencilBuffer , - setGLAreaHasStencilBuffer , - - - - - -- * Signals --- ** CreateContext - GLAreaCreateContextCallback , - GLAreaCreateContextCallbackC , - GLAreaCreateContextSignalInfo , - afterGLAreaCreateContext , - gLAreaCreateContextCallbackWrapper , - gLAreaCreateContextClosure , - mkGLAreaCreateContextCallback , - noGLAreaCreateContextCallback , - onGLAreaCreateContext , - - --- ** Render - GLAreaRenderCallback , - GLAreaRenderCallbackC , - GLAreaRenderSignalInfo , - afterGLAreaRender , - gLAreaRenderCallbackWrapper , - gLAreaRenderClosure , - mkGLAreaRenderCallback , - noGLAreaRenderCallback , - onGLAreaRender , - - --- ** Resize - GLAreaResizeCallback , - GLAreaResizeCallbackC , - GLAreaResizeSignalInfo , - afterGLAreaResize , - gLAreaResizeCallbackWrapper , - gLAreaResizeClosure , - mkGLAreaResizeCallback , - noGLAreaResizeCallback , - onGLAreaResize , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype GLArea = GLArea (ForeignPtr GLArea) -foreign import ccall "gtk_gl_area_get_type" - c_gtk_gl_area_get_type :: IO GType - -type instance ParentTypes GLArea = GLAreaParentTypes -type GLAreaParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject GLArea where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_gl_area_get_type - - -class GObject o => GLAreaK o -instance (GObject o, IsDescendantOf GLArea o) => GLAreaK o - -toGLArea :: GLAreaK o => o -> IO GLArea -toGLArea = unsafeCastTo GLArea - -noGLArea :: Maybe GLArea -noGLArea = Nothing - -type family ResolveGLAreaMethod (t :: Symbol) (o :: *) :: * where - ResolveGLAreaMethod "activate" o = WidgetActivateMethodInfo - ResolveGLAreaMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveGLAreaMethod "addChild" o = BuildableAddChildMethodInfo - ResolveGLAreaMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveGLAreaMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveGLAreaMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveGLAreaMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveGLAreaMethod "attachBuffers" o = GLAreaAttachBuffersMethodInfo - ResolveGLAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGLAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGLAreaMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveGLAreaMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveGLAreaMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveGLAreaMethod "classPath" o = WidgetClassPathMethodInfo - ResolveGLAreaMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveGLAreaMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveGLAreaMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveGLAreaMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveGLAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveGLAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveGLAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveGLAreaMethod "destroy" o = WidgetDestroyMethodInfo - ResolveGLAreaMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveGLAreaMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveGLAreaMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveGLAreaMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveGLAreaMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveGLAreaMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveGLAreaMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveGLAreaMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveGLAreaMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveGLAreaMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveGLAreaMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveGLAreaMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveGLAreaMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveGLAreaMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveGLAreaMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveGLAreaMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveGLAreaMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveGLAreaMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveGLAreaMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveGLAreaMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveGLAreaMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveGLAreaMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveGLAreaMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveGLAreaMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveGLAreaMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveGLAreaMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveGLAreaMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveGLAreaMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveGLAreaMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveGLAreaMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveGLAreaMethod "draw" o = WidgetDrawMethodInfo - ResolveGLAreaMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveGLAreaMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveGLAreaMethod "event" o = WidgetEventMethodInfo - ResolveGLAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGLAreaMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveGLAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGLAreaMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveGLAreaMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveGLAreaMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveGLAreaMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveGLAreaMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveGLAreaMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveGLAreaMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveGLAreaMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveGLAreaMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveGLAreaMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveGLAreaMethod "hide" o = WidgetHideMethodInfo - ResolveGLAreaMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveGLAreaMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveGLAreaMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveGLAreaMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveGLAreaMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveGLAreaMethod "intersect" o = WidgetIntersectMethodInfo - ResolveGLAreaMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveGLAreaMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveGLAreaMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveGLAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGLAreaMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveGLAreaMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveGLAreaMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveGLAreaMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveGLAreaMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveGLAreaMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveGLAreaMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveGLAreaMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveGLAreaMethod "makeCurrent" o = GLAreaMakeCurrentMethodInfo - ResolveGLAreaMethod "map" o = WidgetMapMethodInfo - ResolveGLAreaMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveGLAreaMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveGLAreaMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveGLAreaMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveGLAreaMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveGLAreaMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveGLAreaMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveGLAreaMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveGLAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGLAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGLAreaMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveGLAreaMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveGLAreaMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveGLAreaMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveGLAreaMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveGLAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveGLAreaMethod "path" o = WidgetPathMethodInfo - ResolveGLAreaMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveGLAreaMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveGLAreaMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveGLAreaMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveGLAreaMethod "queueRender" o = GLAreaQueueRenderMethodInfo - ResolveGLAreaMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveGLAreaMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveGLAreaMethod "realize" o = WidgetRealizeMethodInfo - ResolveGLAreaMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGLAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGLAreaMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveGLAreaMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveGLAreaMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveGLAreaMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveGLAreaMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveGLAreaMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveGLAreaMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveGLAreaMethod "reparent" o = WidgetReparentMethodInfo - ResolveGLAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGLAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGLAreaMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveGLAreaMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveGLAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGLAreaMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveGLAreaMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveGLAreaMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveGLAreaMethod "show" o = WidgetShowMethodInfo - ResolveGLAreaMethod "showAll" o = WidgetShowAllMethodInfo - ResolveGLAreaMethod "showNow" o = WidgetShowNowMethodInfo - ResolveGLAreaMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveGLAreaMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveGLAreaMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveGLAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGLAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGLAreaMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveGLAreaMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveGLAreaMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveGLAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGLAreaMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveGLAreaMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveGLAreaMethod "unmap" o = WidgetUnmapMethodInfo - ResolveGLAreaMethod "unparent" o = WidgetUnparentMethodInfo - ResolveGLAreaMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveGLAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGLAreaMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveGLAreaMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveGLAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGLAreaMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveGLAreaMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveGLAreaMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveGLAreaMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveGLAreaMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveGLAreaMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveGLAreaMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveGLAreaMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveGLAreaMethod "getAutoRender" o = GLAreaGetAutoRenderMethodInfo - ResolveGLAreaMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveGLAreaMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveGLAreaMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveGLAreaMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveGLAreaMethod "getClip" o = WidgetGetClipMethodInfo - ResolveGLAreaMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveGLAreaMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveGLAreaMethod "getContext" o = GLAreaGetContextMethodInfo - ResolveGLAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGLAreaMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveGLAreaMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveGLAreaMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveGLAreaMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveGLAreaMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveGLAreaMethod "getError" o = GLAreaGetErrorMethodInfo - ResolveGLAreaMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveGLAreaMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveGLAreaMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveGLAreaMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveGLAreaMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveGLAreaMethod "getHasAlpha" o = GLAreaGetHasAlphaMethodInfo - ResolveGLAreaMethod "getHasDepthBuffer" o = GLAreaGetHasDepthBufferMethodInfo - ResolveGLAreaMethod "getHasStencilBuffer" o = GLAreaGetHasStencilBufferMethodInfo - ResolveGLAreaMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveGLAreaMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveGLAreaMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveGLAreaMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveGLAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveGLAreaMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveGLAreaMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveGLAreaMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveGLAreaMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveGLAreaMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveGLAreaMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveGLAreaMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveGLAreaMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveGLAreaMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveGLAreaMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveGLAreaMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveGLAreaMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveGLAreaMethod "getParent" o = WidgetGetParentMethodInfo - ResolveGLAreaMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveGLAreaMethod "getPath" o = WidgetGetPathMethodInfo - ResolveGLAreaMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveGLAreaMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveGLAreaMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveGLAreaMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveGLAreaMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveGLAreaMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveGLAreaMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveGLAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGLAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGLAreaMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveGLAreaMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveGLAreaMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveGLAreaMethod "getRequiredVersion" o = GLAreaGetRequiredVersionMethodInfo - ResolveGLAreaMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveGLAreaMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveGLAreaMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveGLAreaMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveGLAreaMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveGLAreaMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveGLAreaMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveGLAreaMethod "getState" o = WidgetGetStateMethodInfo - ResolveGLAreaMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveGLAreaMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveGLAreaMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveGLAreaMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveGLAreaMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveGLAreaMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveGLAreaMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveGLAreaMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveGLAreaMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveGLAreaMethod "getValign" o = WidgetGetValignMethodInfo - ResolveGLAreaMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveGLAreaMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveGLAreaMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveGLAreaMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveGLAreaMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveGLAreaMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveGLAreaMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveGLAreaMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveGLAreaMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveGLAreaMethod "setAutoRender" o = GLAreaSetAutoRenderMethodInfo - ResolveGLAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveGLAreaMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveGLAreaMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveGLAreaMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveGLAreaMethod "setClip" o = WidgetSetClipMethodInfo - ResolveGLAreaMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveGLAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGLAreaMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveGLAreaMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveGLAreaMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveGLAreaMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveGLAreaMethod "setError" o = GLAreaSetErrorMethodInfo - ResolveGLAreaMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveGLAreaMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveGLAreaMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveGLAreaMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveGLAreaMethod "setHasAlpha" o = GLAreaSetHasAlphaMethodInfo - ResolveGLAreaMethod "setHasDepthBuffer" o = GLAreaSetHasDepthBufferMethodInfo - ResolveGLAreaMethod "setHasStencilBuffer" o = GLAreaSetHasStencilBufferMethodInfo - ResolveGLAreaMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveGLAreaMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveGLAreaMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveGLAreaMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveGLAreaMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveGLAreaMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveGLAreaMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveGLAreaMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveGLAreaMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveGLAreaMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveGLAreaMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveGLAreaMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveGLAreaMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveGLAreaMethod "setParent" o = WidgetSetParentMethodInfo - ResolveGLAreaMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveGLAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGLAreaMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveGLAreaMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveGLAreaMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveGLAreaMethod "setRequiredVersion" o = GLAreaSetRequiredVersionMethodInfo - ResolveGLAreaMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveGLAreaMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveGLAreaMethod "setState" o = WidgetSetStateMethodInfo - ResolveGLAreaMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveGLAreaMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveGLAreaMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveGLAreaMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveGLAreaMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveGLAreaMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveGLAreaMethod "setValign" o = WidgetSetValignMethodInfo - ResolveGLAreaMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveGLAreaMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveGLAreaMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveGLAreaMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveGLAreaMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveGLAreaMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGLAreaMethod t GLArea, MethodInfo info GLArea p) => IsLabelProxy t (GLArea -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGLAreaMethod t GLArea, MethodInfo info GLArea p) => IsLabel t (GLArea -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GLArea::create-context -type GLAreaCreateContextCallback = - IO Gdk.GLContext - -noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback -noGLAreaCreateContextCallback = Nothing - -type GLAreaCreateContextCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO (Ptr Gdk.GLContext) - -foreign import ccall "wrapper" - mkGLAreaCreateContextCallback :: GLAreaCreateContextCallbackC -> IO (FunPtr GLAreaCreateContextCallbackC) - -gLAreaCreateContextClosure :: GLAreaCreateContextCallback -> IO Closure -gLAreaCreateContextClosure cb = newCClosure =<< mkGLAreaCreateContextCallback wrapped - where wrapped = gLAreaCreateContextCallbackWrapper cb - -gLAreaCreateContextCallbackWrapper :: - GLAreaCreateContextCallback -> - Ptr () -> - Ptr () -> - IO (Ptr Gdk.GLContext) -gLAreaCreateContextCallbackWrapper _cb _ _ = do - result <- _cb - result' <- refObject result - return result' - -onGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId -onGLAreaCreateContext obj cb = liftIO $ connectGLAreaCreateContext obj cb SignalConnectBefore -afterGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId -afterGLAreaCreateContext obj cb = connectGLAreaCreateContext obj cb SignalConnectAfter - -connectGLAreaCreateContext :: (GObject a, MonadIO m) => - a -> GLAreaCreateContextCallback -> SignalConnectMode -> m SignalHandlerId -connectGLAreaCreateContext obj cb after = liftIO $ do - cb' <- mkGLAreaCreateContextCallback (gLAreaCreateContextCallbackWrapper cb) - connectSignalFunPtr obj "create-context" cb' after - --- signal GLArea::render -type GLAreaRenderCallback = - Gdk.GLContext -> - IO Bool - -noGLAreaRenderCallback :: Maybe GLAreaRenderCallback -noGLAreaRenderCallback = Nothing - -type GLAreaRenderCallbackC = - Ptr () -> -- object - Ptr Gdk.GLContext -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkGLAreaRenderCallback :: GLAreaRenderCallbackC -> IO (FunPtr GLAreaRenderCallbackC) - -gLAreaRenderClosure :: GLAreaRenderCallback -> IO Closure -gLAreaRenderClosure cb = newCClosure =<< mkGLAreaRenderCallback wrapped - where wrapped = gLAreaRenderCallbackWrapper cb - -gLAreaRenderCallbackWrapper :: - GLAreaRenderCallback -> - Ptr () -> - Ptr Gdk.GLContext -> - Ptr () -> - IO CInt -gLAreaRenderCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.GLContext) context - result <- _cb context' - let result' = (fromIntegral . fromEnum) result - return result' - -onGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId -onGLAreaRender obj cb = liftIO $ connectGLAreaRender obj cb SignalConnectBefore -afterGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId -afterGLAreaRender obj cb = connectGLAreaRender obj cb SignalConnectAfter - -connectGLAreaRender :: (GObject a, MonadIO m) => - a -> GLAreaRenderCallback -> SignalConnectMode -> m SignalHandlerId -connectGLAreaRender obj cb after = liftIO $ do - cb' <- mkGLAreaRenderCallback (gLAreaRenderCallbackWrapper cb) - connectSignalFunPtr obj "render" cb' after - --- signal GLArea::resize -type GLAreaResizeCallback = - Int32 -> - Int32 -> - IO () - -noGLAreaResizeCallback :: Maybe GLAreaResizeCallback -noGLAreaResizeCallback = Nothing - -type GLAreaResizeCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGLAreaResizeCallback :: GLAreaResizeCallbackC -> IO (FunPtr GLAreaResizeCallbackC) - -gLAreaResizeClosure :: GLAreaResizeCallback -> IO Closure -gLAreaResizeClosure cb = newCClosure =<< mkGLAreaResizeCallback wrapped - where wrapped = gLAreaResizeCallbackWrapper cb - -gLAreaResizeCallbackWrapper :: - GLAreaResizeCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -gLAreaResizeCallbackWrapper _cb _ width height _ = do - _cb width height - -onGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId -onGLAreaResize obj cb = liftIO $ connectGLAreaResize obj cb SignalConnectBefore -afterGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId -afterGLAreaResize obj cb = connectGLAreaResize obj cb SignalConnectAfter - -connectGLAreaResize :: (GObject a, MonadIO m) => - a -> GLAreaResizeCallback -> SignalConnectMode -> m SignalHandlerId -connectGLAreaResize obj cb after = liftIO $ do - cb' <- mkGLAreaResizeCallback (gLAreaResizeCallbackWrapper cb) - connectSignalFunPtr obj "resize" cb' after - --- VVV Prop "auto-render" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> m Bool -getGLAreaAutoRender obj = liftIO $ getObjectPropertyBool obj "auto-render" - -setGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> Bool -> m () -setGLAreaAutoRender obj val = liftIO $ setObjectPropertyBool obj "auto-render" val - -constructGLAreaAutoRender :: Bool -> IO ([Char], GValue) -constructGLAreaAutoRender val = constructObjectPropertyBool "auto-render" val - -data GLAreaAutoRenderPropertyInfo -instance AttrInfo GLAreaAutoRenderPropertyInfo where - type AttrAllowedOps GLAreaAutoRenderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GLAreaAutoRenderPropertyInfo = GLAreaK - type AttrGetType GLAreaAutoRenderPropertyInfo = Bool - type AttrLabel GLAreaAutoRenderPropertyInfo = "auto-render" - attrGet _ = getGLAreaAutoRender - attrSet _ = setGLAreaAutoRender - attrConstruct _ = constructGLAreaAutoRender - attrClear _ = undefined - --- VVV Prop "context" - -- Type: TInterface "Gdk" "GLContext" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext -getGLAreaContext obj = liftIO $ checkUnexpectedNothing "getGLAreaContext" $ getObjectPropertyObject obj "context" Gdk.GLContext - -data GLAreaContextPropertyInfo -instance AttrInfo GLAreaContextPropertyInfo where - type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () - type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK - type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext - type AttrLabel GLAreaContextPropertyInfo = "context" - attrGet _ = getGLAreaContext - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "has-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> m Bool -getGLAreaHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha" - -setGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> Bool -> m () -setGLAreaHasAlpha obj val = liftIO $ setObjectPropertyBool obj "has-alpha" val - -constructGLAreaHasAlpha :: Bool -> IO ([Char], GValue) -constructGLAreaHasAlpha val = constructObjectPropertyBool "has-alpha" val - -data GLAreaHasAlphaPropertyInfo -instance AttrInfo GLAreaHasAlphaPropertyInfo where - type AttrAllowedOps GLAreaHasAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GLAreaHasAlphaPropertyInfo = GLAreaK - type AttrGetType GLAreaHasAlphaPropertyInfo = Bool - type AttrLabel GLAreaHasAlphaPropertyInfo = "has-alpha" - attrGet _ = getGLAreaHasAlpha - attrSet _ = setGLAreaHasAlpha - attrConstruct _ = constructGLAreaHasAlpha - attrClear _ = undefined - --- VVV Prop "has-depth-buffer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool -getGLAreaHasDepthBuffer obj = liftIO $ getObjectPropertyBool obj "has-depth-buffer" - -setGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> Bool -> m () -setGLAreaHasDepthBuffer obj val = liftIO $ setObjectPropertyBool obj "has-depth-buffer" val - -constructGLAreaHasDepthBuffer :: Bool -> IO ([Char], GValue) -constructGLAreaHasDepthBuffer val = constructObjectPropertyBool "has-depth-buffer" val - -data GLAreaHasDepthBufferPropertyInfo -instance AttrInfo GLAreaHasDepthBufferPropertyInfo where - type AttrAllowedOps GLAreaHasDepthBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GLAreaHasDepthBufferPropertyInfo = GLAreaK - type AttrGetType GLAreaHasDepthBufferPropertyInfo = Bool - type AttrLabel GLAreaHasDepthBufferPropertyInfo = "has-depth-buffer" - attrGet _ = getGLAreaHasDepthBuffer - attrSet _ = setGLAreaHasDepthBuffer - attrConstruct _ = constructGLAreaHasDepthBuffer - attrClear _ = undefined - --- VVV Prop "has-stencil-buffer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool -getGLAreaHasStencilBuffer obj = liftIO $ getObjectPropertyBool obj "has-stencil-buffer" - -setGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> Bool -> m () -setGLAreaHasStencilBuffer obj val = liftIO $ setObjectPropertyBool obj "has-stencil-buffer" val - -constructGLAreaHasStencilBuffer :: Bool -> IO ([Char], GValue) -constructGLAreaHasStencilBuffer val = constructObjectPropertyBool "has-stencil-buffer" val - -data GLAreaHasStencilBufferPropertyInfo -instance AttrInfo GLAreaHasStencilBufferPropertyInfo where - type AttrAllowedOps GLAreaHasStencilBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GLAreaHasStencilBufferPropertyInfo = GLAreaK - type AttrGetType GLAreaHasStencilBufferPropertyInfo = Bool - type AttrLabel GLAreaHasStencilBufferPropertyInfo = "has-stencil-buffer" - attrGet _ = getGLAreaHasStencilBuffer - attrSet _ = setGLAreaHasStencilBuffer - attrConstruct _ = constructGLAreaHasStencilBuffer - attrClear _ = undefined - -type instance AttributeList GLArea = GLAreaAttributeList -type GLAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasAlpha", GLAreaHasAlphaPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasDepthBuffer", GLAreaHasDepthBufferPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasStencilBuffer", GLAreaHasStencilBufferPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -gLAreaAutoRender :: AttrLabelProxy "autoRender" -gLAreaAutoRender = AttrLabelProxy - -gLAreaContext :: AttrLabelProxy "context" -gLAreaContext = AttrLabelProxy - -gLAreaHasAlpha :: AttrLabelProxy "hasAlpha" -gLAreaHasAlpha = AttrLabelProxy - -gLAreaHasDepthBuffer :: AttrLabelProxy "hasDepthBuffer" -gLAreaHasDepthBuffer = AttrLabelProxy - -gLAreaHasStencilBuffer :: AttrLabelProxy "hasStencilBuffer" -gLAreaHasStencilBuffer = AttrLabelProxy - -data GLAreaCreateContextSignalInfo -instance SignalInfo GLAreaCreateContextSignalInfo where - type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback - connectSignal _ = connectGLAreaCreateContext - -data GLAreaRenderSignalInfo -instance SignalInfo GLAreaRenderSignalInfo where - type HaskellCallbackType GLAreaRenderSignalInfo = GLAreaRenderCallback - connectSignal _ = connectGLAreaRender - -data GLAreaResizeSignalInfo -instance SignalInfo GLAreaResizeSignalInfo where - type HaskellCallbackType GLAreaResizeSignalInfo = GLAreaResizeCallback - connectSignal _ = connectGLAreaResize - -type instance SignalList GLArea = GLAreaSignalList -type GLAreaSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createContext", GLAreaCreateContextSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method GLArea::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GLArea") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gl_area_new" gtk_gl_area_new :: - IO (Ptr GLArea) - - -gLAreaNew :: - (MonadIO m) => - m GLArea -- result -gLAreaNew = liftIO $ do - result <- gtk_gl_area_new - checkUnexpectedReturnNULL "gtk_gl_area_new" result - result' <- (wrapObject GLArea) result - return result' - --- method GLArea::attach_buffers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_attach_buffers" gtk_gl_area_attach_buffers :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO () - - -gLAreaAttachBuffers :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m () -- result -gLAreaAttachBuffers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_attach_buffers _obj' - touchManagedPtr _obj - return () - -data GLAreaAttachBuffersMethodInfo -instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaAttachBuffersMethodInfo a signature where - overloadedMethod _ = gLAreaAttachBuffers - --- method GLArea::get_auto_render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_get_auto_render" gtk_gl_area_get_auto_render :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO CInt - - -gLAreaGetAutoRender :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m Bool -- result -gLAreaGetAutoRender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_auto_render _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLAreaGetAutoRenderMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetAutoRenderMethodInfo a signature where - overloadedMethod _ = gLAreaGetAutoRender - --- method GLArea::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GLContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gl_area_get_context" gtk_gl_area_get_context :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO (Ptr Gdk.GLContext) - - -gLAreaGetContext :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m Gdk.GLContext -- result -gLAreaGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_context _obj' - checkUnexpectedReturnNULL "gtk_gl_area_get_context" result - result' <- (newObject Gdk.GLContext) result - touchManagedPtr _obj - return result' - -data GLAreaGetContextMethodInfo -instance (signature ~ (m Gdk.GLContext), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetContextMethodInfo a signature where - overloadedMethod _ = gLAreaGetContext - --- method GLArea::get_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TError --- throws : False --- Skip return : False - -foreign import ccall "gtk_gl_area_get_error" gtk_gl_area_get_error :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO (Ptr GError) - - -gLAreaGetError :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m GError -- result -gLAreaGetError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_error _obj' - checkUnexpectedReturnNULL "gtk_gl_area_get_error" result - result' <- (newBoxed GError) result - touchManagedPtr _obj - return result' - -data GLAreaGetErrorMethodInfo -instance (signature ~ (m GError), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetErrorMethodInfo a signature where - overloadedMethod _ = gLAreaGetError - --- method GLArea::get_has_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_get_has_alpha" gtk_gl_area_get_has_alpha :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO CInt - - -gLAreaGetHasAlpha :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m Bool -- result -gLAreaGetHasAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_has_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLAreaGetHasAlphaMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasAlphaMethodInfo a signature where - overloadedMethod _ = gLAreaGetHasAlpha - --- method GLArea::get_has_depth_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_get_has_depth_buffer" gtk_gl_area_get_has_depth_buffer :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO CInt - - -gLAreaGetHasDepthBuffer :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m Bool -- result -gLAreaGetHasDepthBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_has_depth_buffer _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLAreaGetHasDepthBufferMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasDepthBufferMethodInfo a signature where - overloadedMethod _ = gLAreaGetHasDepthBuffer - --- method GLArea::get_has_stencil_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_get_has_stencil_buffer" gtk_gl_area_get_has_stencil_buffer :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO CInt - - -gLAreaGetHasStencilBuffer :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m Bool -- result -gLAreaGetHasStencilBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_has_stencil_buffer _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLAreaGetHasStencilBufferMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasStencilBufferMethodInfo a signature where - overloadedMethod _ = gLAreaGetHasStencilBuffer - --- method GLArea::get_required_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, 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 "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Ptr Int32 -> -- major : TBasicType TInt - Ptr Int32 -> -- minor : TBasicType TInt - IO () - - -gLAreaGetRequiredVersion :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m (Int32,Int32) -- result -gLAreaGetRequiredVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - major <- allocMem :: IO (Ptr Int32) - minor <- allocMem :: IO (Ptr Int32) - gtk_gl_area_get_required_version _obj' major minor - major' <- peek major - minor' <- peek minor - touchManagedPtr _obj - freeMem major - freeMem minor - return (major', minor') - -data GLAreaGetRequiredVersionMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetRequiredVersionMethodInfo a signature where - overloadedMethod _ = gLAreaGetRequiredVersion - --- method GLArea::make_current --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_make_current" gtk_gl_area_make_current :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO () - - -gLAreaMakeCurrent :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m () -- result -gLAreaMakeCurrent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_make_current _obj' - touchManagedPtr _obj - return () - -data GLAreaMakeCurrentMethodInfo -instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaMakeCurrentMethodInfo a signature where - overloadedMethod _ = gLAreaMakeCurrent - --- method GLArea::queue_render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 "gtk_gl_area_queue_render" gtk_gl_area_queue_render :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - IO () - - -gLAreaQueueRender :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> m () -- result -gLAreaQueueRender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_queue_render _obj' - touchManagedPtr _obj - return () - -data GLAreaQueueRenderMethodInfo -instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaQueueRenderMethodInfo a signature where - overloadedMethod _ = gLAreaQueueRender - --- method GLArea::set_auto_render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_render", 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 "gtk_gl_area_set_auto_render" gtk_gl_area_set_auto_render :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - CInt -> -- auto_render : TBasicType TBoolean - IO () - - -gLAreaSetAutoRender :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Bool -- autoRender - -> m () -- result -gLAreaSetAutoRender _obj autoRender = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let autoRender' = (fromIntegral . fromEnum) autoRender - gtk_gl_area_set_auto_render _obj' autoRender' - touchManagedPtr _obj - return () - -data GLAreaSetAutoRenderMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetAutoRenderMethodInfo a signature where - overloadedMethod _ = gLAreaSetAutoRender - --- method GLArea::set_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_gl_area_set_error" gtk_gl_area_set_error :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Ptr GError -> -- error : TError - IO () - - -gLAreaSetError :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Maybe (GError) -- error_ - -> m () -- result -gLAreaSetError _obj error_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeError_ <- case error_ of - Nothing -> return nullPtr - Just jError_ -> do - let jError_' = unsafeManagedPtrGetPtr jError_ - return jError_' - gtk_gl_area_set_error _obj' maybeError_ - touchManagedPtr _obj - whenJust error_ touchManagedPtr - return () - -data GLAreaSetErrorMethodInfo -instance (signature ~ (Maybe (GError) -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetErrorMethodInfo a signature where - overloadedMethod _ = gLAreaSetError - --- method GLArea::set_has_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", 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 "gtk_gl_area_set_has_alpha" gtk_gl_area_set_has_alpha :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - CInt -> -- has_alpha : TBasicType TBoolean - IO () - - -gLAreaSetHasAlpha :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Bool -- hasAlpha - -> m () -- result -gLAreaSetHasAlpha _obj hasAlpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasAlpha' = (fromIntegral . fromEnum) hasAlpha - gtk_gl_area_set_has_alpha _obj' hasAlpha' - touchManagedPtr _obj - return () - -data GLAreaSetHasAlphaMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasAlphaMethodInfo a signature where - overloadedMethod _ = gLAreaSetHasAlpha - --- method GLArea::set_has_depth_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_depth_buffer", 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 "gtk_gl_area_set_has_depth_buffer" gtk_gl_area_set_has_depth_buffer :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - CInt -> -- has_depth_buffer : TBasicType TBoolean - IO () - - -gLAreaSetHasDepthBuffer :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Bool -- hasDepthBuffer - -> m () -- result -gLAreaSetHasDepthBuffer _obj hasDepthBuffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasDepthBuffer' = (fromIntegral . fromEnum) hasDepthBuffer - gtk_gl_area_set_has_depth_buffer _obj' hasDepthBuffer' - touchManagedPtr _obj - return () - -data GLAreaSetHasDepthBufferMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasDepthBufferMethodInfo a signature where - overloadedMethod _ = gLAreaSetHasDepthBuffer - --- method GLArea::set_has_stencil_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_stencil_buffer", 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 "gtk_gl_area_set_has_stencil_buffer" gtk_gl_area_set_has_stencil_buffer :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - CInt -> -- has_stencil_buffer : TBasicType TBoolean - IO () - - -gLAreaSetHasStencilBuffer :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Bool -- hasStencilBuffer - -> m () -- result -gLAreaSetHasStencilBuffer _obj hasStencilBuffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasStencilBuffer' = (fromIntegral . fromEnum) hasStencilBuffer - gtk_gl_area_set_has_stencil_buffer _obj' hasStencilBuffer' - touchManagedPtr _obj - return () - -data GLAreaSetHasStencilBufferMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasStencilBufferMethodInfo a signature where - overloadedMethod _ = gLAreaSetHasStencilBuffer - --- method GLArea::set_required_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", 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 "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Int32 -> -- major : TBasicType TInt - Int32 -> -- minor : TBasicType TInt - IO () - - -gLAreaSetRequiredVersion :: - (MonadIO m, GLAreaK a) => - a -- _obj - -> Int32 -- major - -> Int32 -- minor - -> m () -- result -gLAreaSetRequiredVersion _obj major minor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_set_required_version _obj' major minor - touchManagedPtr _obj - return () - -data GLAreaSetRequiredVersionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetRequiredVersionMethodInfo a signature where - overloadedMethod _ = gLAreaSetRequiredVersion - - diff --git a/GI/Gtk/Objects/GLArea.hs-boot b/GI/Gtk/Objects/GLArea.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GLArea.hs-boot +++ /dev/null @@ -1,37 +0,0 @@ -module GI.Gtk.Objects.GLArea 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 GLArea = GLArea (ForeignPtr GLArea) -instance GObject GLArea where -class GObject o => GLAreaK o -instance (GObject o, IsDescendantOf GLArea o) => GLAreaK o -data GLAreaAutoRenderPropertyInfo -data GLAreaContextPropertyInfo -data GLAreaHasAlphaPropertyInfo -data GLAreaHasDepthBufferPropertyInfo -data GLAreaHasStencilBufferPropertyInfo -data GLAreaCreateContextSignalInfo -data GLAreaRenderSignalInfo -data GLAreaResizeSignalInfo -data GLAreaAttachBuffersMethodInfo -data GLAreaGetAutoRenderMethodInfo -data GLAreaGetContextMethodInfo -data GLAreaGetErrorMethodInfo -data GLAreaGetHasAlphaMethodInfo -data GLAreaGetHasDepthBufferMethodInfo -data GLAreaGetHasStencilBufferMethodInfo -data GLAreaGetRequiredVersionMethodInfo -data GLAreaMakeCurrentMethodInfo -data GLAreaQueueRenderMethodInfo -data GLAreaSetAutoRenderMethodInfo -data GLAreaSetErrorMethodInfo -data GLAreaSetHasAlphaMethodInfo -data GLAreaSetHasDepthBufferMethodInfo -data GLAreaSetHasStencilBufferMethodInfo -data GLAreaSetRequiredVersionMethodInfo diff --git a/GI/Gtk/Objects/Gesture.hs b/GI/Gtk/Objects/Gesture.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Gesture.hs +++ /dev/null @@ -1,1202 +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.Gtk.Objects.Gesture - ( - --- * Exported types - Gesture(..) , - GestureK , - toGesture , - noGesture , - - - -- * Methods --- ** gestureGetBoundingBox - GestureGetBoundingBoxMethodInfo , - gestureGetBoundingBox , - - --- ** gestureGetBoundingBoxCenter - GestureGetBoundingBoxCenterMethodInfo , - gestureGetBoundingBoxCenter , - - --- ** gestureGetDevice - GestureGetDeviceMethodInfo , - gestureGetDevice , - - --- ** gestureGetGroup - GestureGetGroupMethodInfo , - gestureGetGroup , - - --- ** gestureGetLastEvent - GestureGetLastEventMethodInfo , - gestureGetLastEvent , - - --- ** gestureGetLastUpdatedSequence - GestureGetLastUpdatedSequenceMethodInfo , - gestureGetLastUpdatedSequence , - - --- ** gestureGetPoint - GestureGetPointMethodInfo , - gestureGetPoint , - - --- ** gestureGetSequenceState - GestureGetSequenceStateMethodInfo , - gestureGetSequenceState , - - --- ** gestureGetSequences - GestureGetSequencesMethodInfo , - gestureGetSequences , - - --- ** gestureGetWindow - GestureGetWindowMethodInfo , - gestureGetWindow , - - --- ** gestureGroup - GestureGroupMethodInfo , - gestureGroup , - - --- ** gestureHandlesSequence - GestureHandlesSequenceMethodInfo , - gestureHandlesSequence , - - --- ** gestureIsActive - GestureIsActiveMethodInfo , - gestureIsActive , - - --- ** gestureIsGroupedWith - GestureIsGroupedWithMethodInfo , - gestureIsGroupedWith , - - --- ** gestureIsRecognized - GestureIsRecognizedMethodInfo , - gestureIsRecognized , - - --- ** gestureSetSequenceState - GestureSetSequenceStateMethodInfo , - gestureSetSequenceState , - - --- ** gestureSetState - GestureSetStateMethodInfo , - gestureSetState , - - --- ** gestureSetWindow - GestureSetWindowMethodInfo , - gestureSetWindow , - - --- ** gestureUngroup - GestureUngroupMethodInfo , - gestureUngroup , - - - - - -- * Properties --- ** NPoints - GestureNPointsPropertyInfo , - constructGestureNPoints , - gestureNPoints , - getGestureNPoints , - - --- ** Window - GestureWindowPropertyInfo , - clearGestureWindow , - constructGestureWindow , - gestureWindow , - getGestureWindow , - setGestureWindow , - - - - - -- * Signals --- ** Begin - GestureBeginCallback , - GestureBeginCallbackC , - GestureBeginSignalInfo , - afterGestureBegin , - gestureBeginCallbackWrapper , - gestureBeginClosure , - mkGestureBeginCallback , - noGestureBeginCallback , - onGestureBegin , - - --- ** Cancel - GestureCancelCallback , - GestureCancelCallbackC , - GestureCancelSignalInfo , - afterGestureCancel , - gestureCancelCallbackWrapper , - gestureCancelClosure , - mkGestureCancelCallback , - noGestureCancelCallback , - onGestureCancel , - - --- ** End - GestureEndCallback , - GestureEndCallbackC , - GestureEndSignalInfo , - afterGestureEnd , - gestureEndCallbackWrapper , - gestureEndClosure , - mkGestureEndCallback , - noGestureEndCallback , - onGestureEnd , - - --- ** SequenceStateChanged - GestureSequenceStateChangedCallback , - GestureSequenceStateChangedCallbackC , - GestureSequenceStateChangedSignalInfo , - afterGestureSequenceStateChanged , - gestureSequenceStateChangedCallbackWrapper, - gestureSequenceStateChangedClosure , - mkGestureSequenceStateChangedCallback , - noGestureSequenceStateChangedCallback , - onGestureSequenceStateChanged , - - --- ** Update - GestureUpdateCallback , - GestureUpdateCallbackC , - GestureUpdateSignalInfo , - afterGestureUpdate , - gestureUpdateCallbackWrapper , - gestureUpdateClosure , - mkGestureUpdateCallback , - noGestureUpdateCallback , - onGestureUpdate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Gesture = Gesture (ForeignPtr Gesture) -foreign import ccall "gtk_gesture_get_type" - c_gtk_gesture_get_type :: IO GType - -type instance ParentTypes Gesture = GestureParentTypes -type GestureParentTypes = '[EventController, GObject.Object] - -instance GObject Gesture where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_get_type - - -class GObject o => GestureK o -instance (GObject o, IsDescendantOf Gesture o) => GestureK o - -toGesture :: GestureK o => o -> IO Gesture -toGesture = unsafeCastTo Gesture - -noGesture :: Maybe Gesture -noGesture = Nothing - -type family ResolveGestureMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureMethod "group" o = GestureGroupMethodInfo - ResolveGestureMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureMethod t Gesture, MethodInfo info Gesture p) => IsLabelProxy t (Gesture -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureMethod t Gesture, MethodInfo info Gesture p) => IsLabel t (Gesture -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Gesture::begin -type GestureBeginCallback = - Gdk.EventSequence -> - IO () - -noGestureBeginCallback :: Maybe GestureBeginCallback -noGestureBeginCallback = Nothing - -type GestureBeginCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSequence -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureBeginCallback :: GestureBeginCallbackC -> IO (FunPtr GestureBeginCallbackC) - -gestureBeginClosure :: GestureBeginCallback -> IO Closure -gestureBeginClosure cb = newCClosure =<< mkGestureBeginCallback wrapped - where wrapped = gestureBeginCallbackWrapper cb - -gestureBeginCallbackWrapper :: - GestureBeginCallback -> - Ptr () -> - Ptr Gdk.EventSequence -> - Ptr () -> - IO () -gestureBeginCallbackWrapper _cb _ sequence _ = do - sequence' <- (newBoxed Gdk.EventSequence) sequence - _cb sequence' - -onGestureBegin :: (GObject a, MonadIO m) => a -> GestureBeginCallback -> m SignalHandlerId -onGestureBegin obj cb = liftIO $ connectGestureBegin obj cb SignalConnectBefore -afterGestureBegin :: (GObject a, MonadIO m) => a -> GestureBeginCallback -> m SignalHandlerId -afterGestureBegin obj cb = connectGestureBegin obj cb SignalConnectAfter - -connectGestureBegin :: (GObject a, MonadIO m) => - a -> GestureBeginCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureBegin obj cb after = liftIO $ do - cb' <- mkGestureBeginCallback (gestureBeginCallbackWrapper cb) - connectSignalFunPtr obj "begin" cb' after - --- signal Gesture::cancel -type GestureCancelCallback = - Gdk.EventSequence -> - IO () - -noGestureCancelCallback :: Maybe GestureCancelCallback -noGestureCancelCallback = Nothing - -type GestureCancelCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSequence -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureCancelCallback :: GestureCancelCallbackC -> IO (FunPtr GestureCancelCallbackC) - -gestureCancelClosure :: GestureCancelCallback -> IO Closure -gestureCancelClosure cb = newCClosure =<< mkGestureCancelCallback wrapped - where wrapped = gestureCancelCallbackWrapper cb - -gestureCancelCallbackWrapper :: - GestureCancelCallback -> - Ptr () -> - Ptr Gdk.EventSequence -> - Ptr () -> - IO () -gestureCancelCallbackWrapper _cb _ sequence _ = do - sequence' <- (newBoxed Gdk.EventSequence) sequence - _cb sequence' - -onGestureCancel :: (GObject a, MonadIO m) => a -> GestureCancelCallback -> m SignalHandlerId -onGestureCancel obj cb = liftIO $ connectGestureCancel obj cb SignalConnectBefore -afterGestureCancel :: (GObject a, MonadIO m) => a -> GestureCancelCallback -> m SignalHandlerId -afterGestureCancel obj cb = connectGestureCancel obj cb SignalConnectAfter - -connectGestureCancel :: (GObject a, MonadIO m) => - a -> GestureCancelCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureCancel obj cb after = liftIO $ do - cb' <- mkGestureCancelCallback (gestureCancelCallbackWrapper cb) - connectSignalFunPtr obj "cancel" cb' after - --- signal Gesture::end -type GestureEndCallback = - Gdk.EventSequence -> - IO () - -noGestureEndCallback :: Maybe GestureEndCallback -noGestureEndCallback = Nothing - -type GestureEndCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSequence -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureEndCallback :: GestureEndCallbackC -> IO (FunPtr GestureEndCallbackC) - -gestureEndClosure :: GestureEndCallback -> IO Closure -gestureEndClosure cb = newCClosure =<< mkGestureEndCallback wrapped - where wrapped = gestureEndCallbackWrapper cb - -gestureEndCallbackWrapper :: - GestureEndCallback -> - Ptr () -> - Ptr Gdk.EventSequence -> - Ptr () -> - IO () -gestureEndCallbackWrapper _cb _ sequence _ = do - sequence' <- (newBoxed Gdk.EventSequence) sequence - _cb sequence' - -onGestureEnd :: (GObject a, MonadIO m) => a -> GestureEndCallback -> m SignalHandlerId -onGestureEnd obj cb = liftIO $ connectGestureEnd obj cb SignalConnectBefore -afterGestureEnd :: (GObject a, MonadIO m) => a -> GestureEndCallback -> m SignalHandlerId -afterGestureEnd obj cb = connectGestureEnd obj cb SignalConnectAfter - -connectGestureEnd :: (GObject a, MonadIO m) => - a -> GestureEndCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureEnd obj cb after = liftIO $ do - cb' <- mkGestureEndCallback (gestureEndCallbackWrapper cb) - connectSignalFunPtr obj "end" cb' after - --- signal Gesture::sequence-state-changed -type GestureSequenceStateChangedCallback = - Gdk.EventSequence -> - EventSequenceState -> - IO () - -noGestureSequenceStateChangedCallback :: Maybe GestureSequenceStateChangedCallback -noGestureSequenceStateChangedCallback = Nothing - -type GestureSequenceStateChangedCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSequence -> - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureSequenceStateChangedCallback :: GestureSequenceStateChangedCallbackC -> IO (FunPtr GestureSequenceStateChangedCallbackC) - -gestureSequenceStateChangedClosure :: GestureSequenceStateChangedCallback -> IO Closure -gestureSequenceStateChangedClosure cb = newCClosure =<< mkGestureSequenceStateChangedCallback wrapped - where wrapped = gestureSequenceStateChangedCallbackWrapper cb - -gestureSequenceStateChangedCallbackWrapper :: - GestureSequenceStateChangedCallback -> - Ptr () -> - Ptr Gdk.EventSequence -> - CUInt -> - Ptr () -> - IO () -gestureSequenceStateChangedCallbackWrapper _cb _ sequence state _ = do - sequence' <- (newBoxed Gdk.EventSequence) sequence - let state' = (toEnum . fromIntegral) state - _cb sequence' state' - -onGestureSequenceStateChanged :: (GObject a, MonadIO m) => a -> GestureSequenceStateChangedCallback -> m SignalHandlerId -onGestureSequenceStateChanged obj cb = liftIO $ connectGestureSequenceStateChanged obj cb SignalConnectBefore -afterGestureSequenceStateChanged :: (GObject a, MonadIO m) => a -> GestureSequenceStateChangedCallback -> m SignalHandlerId -afterGestureSequenceStateChanged obj cb = connectGestureSequenceStateChanged obj cb SignalConnectAfter - -connectGestureSequenceStateChanged :: (GObject a, MonadIO m) => - a -> GestureSequenceStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureSequenceStateChanged obj cb after = liftIO $ do - cb' <- mkGestureSequenceStateChangedCallback (gestureSequenceStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "sequence-state-changed" cb' after - --- signal Gesture::update -type GestureUpdateCallback = - Gdk.EventSequence -> - IO () - -noGestureUpdateCallback :: Maybe GestureUpdateCallback -noGestureUpdateCallback = Nothing - -type GestureUpdateCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSequence -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureUpdateCallback :: GestureUpdateCallbackC -> IO (FunPtr GestureUpdateCallbackC) - -gestureUpdateClosure :: GestureUpdateCallback -> IO Closure -gestureUpdateClosure cb = newCClosure =<< mkGestureUpdateCallback wrapped - where wrapped = gestureUpdateCallbackWrapper cb - -gestureUpdateCallbackWrapper :: - GestureUpdateCallback -> - Ptr () -> - Ptr Gdk.EventSequence -> - Ptr () -> - IO () -gestureUpdateCallbackWrapper _cb _ sequence _ = do - sequence' <- (newBoxed Gdk.EventSequence) sequence - _cb sequence' - -onGestureUpdate :: (GObject a, MonadIO m) => a -> GestureUpdateCallback -> m SignalHandlerId -onGestureUpdate obj cb = liftIO $ connectGestureUpdate obj cb SignalConnectBefore -afterGestureUpdate :: (GObject a, MonadIO m) => a -> GestureUpdateCallback -> m SignalHandlerId -afterGestureUpdate obj cb = connectGestureUpdate obj cb SignalConnectAfter - -connectGestureUpdate :: (GObject a, MonadIO m) => - a -> GestureUpdateCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureUpdate obj cb after = liftIO $ do - cb' <- mkGestureUpdateCallback (gestureUpdateCallbackWrapper cb) - connectSignalFunPtr obj "update" cb' after - --- VVV Prop "n-points" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getGestureNPoints :: (MonadIO m, GestureK o) => o -> m Word32 -getGestureNPoints obj = liftIO $ getObjectPropertyUInt32 obj "n-points" - -constructGestureNPoints :: Word32 -> IO ([Char], GValue) -constructGestureNPoints val = constructObjectPropertyUInt32 "n-points" val - -data GestureNPointsPropertyInfo -instance AttrInfo GestureNPointsPropertyInfo where - type AttrAllowedOps GestureNPointsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureNPointsPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint GestureNPointsPropertyInfo = GestureK - type AttrGetType GestureNPointsPropertyInfo = Word32 - type AttrLabel GestureNPointsPropertyInfo = "n-points" - attrGet _ = getGestureNPoints - attrSet _ = undefined - attrConstruct _ = constructGestureNPoints - attrClear _ = undefined - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getGestureWindow :: (MonadIO m, GestureK o) => o -> m Gdk.Window -getGestureWindow obj = liftIO $ checkUnexpectedNothing "getGestureWindow" $ getObjectPropertyObject obj "window" Gdk.Window - -setGestureWindow :: (MonadIO m, GestureK o, Gdk.WindowK a) => o -> a -> m () -setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" (Just val) - -constructGestureWindow :: (Gdk.WindowK a) => a -> IO ([Char], GValue) -constructGestureWindow val = constructObjectPropertyObject "window" (Just val) - -clearGestureWindow :: (MonadIO m, GestureK o) => o -> m () -clearGestureWindow obj = liftIO $ setObjectPropertyObject obj "window" (Nothing :: Maybe Gdk.Window) - -data GestureWindowPropertyInfo -instance AttrInfo GestureWindowPropertyInfo where - type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK - type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK - type AttrGetType GestureWindowPropertyInfo = Gdk.Window - type AttrLabel GestureWindowPropertyInfo = "window" - attrGet _ = getGestureWindow - attrSet _ = setGestureWindow - attrConstruct _ = constructGestureWindow - attrClear _ = clearGestureWindow - -type instance AttributeList Gesture = GestureAttributeList -type GestureAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -gestureNPoints :: AttrLabelProxy "nPoints" -gestureNPoints = AttrLabelProxy - -gestureWindow :: AttrLabelProxy "window" -gestureWindow = AttrLabelProxy - -data GestureBeginSignalInfo -instance SignalInfo GestureBeginSignalInfo where - type HaskellCallbackType GestureBeginSignalInfo = GestureBeginCallback - connectSignal _ = connectGestureBegin - -data GestureCancelSignalInfo -instance SignalInfo GestureCancelSignalInfo where - type HaskellCallbackType GestureCancelSignalInfo = GestureCancelCallback - connectSignal _ = connectGestureCancel - -data GestureEndSignalInfo -instance SignalInfo GestureEndSignalInfo where - type HaskellCallbackType GestureEndSignalInfo = GestureEndCallback - connectSignal _ = connectGestureEnd - -data GestureSequenceStateChangedSignalInfo -instance SignalInfo GestureSequenceStateChangedSignalInfo where - type HaskellCallbackType GestureSequenceStateChangedSignalInfo = GestureSequenceStateChangedCallback - connectSignal _ = connectGestureSequenceStateChanged - -data GestureUpdateSignalInfo -instance SignalInfo GestureUpdateSignalInfo where - type HaskellCallbackType GestureUpdateSignalInfo = GestureUpdateCallback - connectSignal _ = connectGestureUpdate - -type instance SignalList Gesture = GestureSignalList -type GestureSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method Gesture::get_bounding_box --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_bounding_box" gtk_gesture_get_bounding_box :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -gestureGetBoundingBox :: - (MonadIO m, GestureK a) => - a -- _obj - -> m (Bool,Gdk.Rectangle) -- result -gestureGetBoundingBox _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_gesture_get_bounding_box _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return (result', rect') - -data GestureGetBoundingBoxMethodInfo -instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, GestureK a) => MethodInfo GestureGetBoundingBoxMethodInfo a signature where - overloadedMethod _ = gestureGetBoundingBox - --- method Gesture::get_bounding_box_center --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, 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 "gtk_gesture_get_bounding_box_center" gtk_gesture_get_bounding_box_center :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO CInt - - -gestureGetBoundingBoxCenter :: - (MonadIO m, GestureK a) => - a -- _obj - -> m (Bool,Double,Double) -- result -gestureGetBoundingBoxCenter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_get_bounding_box_center _obj' x y - let result' = (/= 0) result - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - freeMem x - freeMem y - return (result', x'', y'') - -data GestureGetBoundingBoxCenterMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureK a) => MethodInfo GestureGetBoundingBoxCenterMethodInfo a signature where - overloadedMethod _ = gestureGetBoundingBoxCenter - --- method Gesture::get_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_device" gtk_gesture_get_device :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO (Ptr Gdk.Device) - - -gestureGetDevice :: - (MonadIO m, GestureK a) => - a -- _obj - -> m Gdk.Device -- result -gestureGetDevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_device _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_device" result - result' <- (newObject Gdk.Device) result - touchManagedPtr _obj - return result' - -data GestureGetDeviceMethodInfo -instance (signature ~ (m Gdk.Device), MonadIO m, GestureK a) => MethodInfo GestureGetDeviceMethodInfo a signature where - overloadedMethod _ = gestureGetDevice - --- method Gesture::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Gesture")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_group" gtk_gesture_get_group :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO (Ptr (GList (Ptr Gesture))) - - -gestureGetGroup :: - (MonadIO m, GestureK a) => - a -- _obj - -> m [Gesture] -- result -gestureGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_group _obj' - result' <- unpackGList result - result'' <- mapM (newObject Gesture) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data GestureGetGroupMethodInfo -instance (signature ~ (m [Gesture]), MonadIO m, GestureK a) => MethodInfo GestureGetGroupMethodInfo a signature where - overloadedMethod _ = gestureGetGroup - --- method Gesture::get_last_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_last_event" gtk_gesture_get_last_event :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence" - IO (Ptr Gdk.Event) - - -gestureGetLastEvent :: - (MonadIO m, GestureK a) => - a -- _obj - -> Gdk.EventSequence -- sequence - -> m (Maybe Gdk.Event) -- result -gestureGetLastEvent _obj sequence = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sequence' = unsafeManagedPtrGetPtr sequence - result <- gtk_gesture_get_last_event _obj' sequence' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Gdk.Event) result' - return result'' - touchManagedPtr _obj - touchManagedPtr sequence - return maybeResult - -data GestureGetLastEventMethodInfo -instance (signature ~ (Gdk.EventSequence -> m (Maybe Gdk.Event)), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where - overloadedMethod _ = gestureGetLastEvent - --- method Gesture::get_last_updated_sequence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventSequence") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_last_updated_sequence" gtk_gesture_get_last_updated_sequence :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO (Ptr Gdk.EventSequence) - - -gestureGetLastUpdatedSequence :: - (MonadIO m, GestureK a) => - a -- _obj - -> m (Maybe Gdk.EventSequence) -- result -gestureGetLastUpdatedSequence _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_last_updated_sequence _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Gdk.EventSequence) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data GestureGetLastUpdatedSequenceMethodInfo -instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where - overloadedMethod _ = gestureGetLastUpdatedSequence - --- method Gesture::get_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, 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 "gtk_gesture_get_point" gtk_gesture_get_point :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO CInt - - -gestureGetPoint :: - (MonadIO m, GestureK a) => - a -- _obj - -> Maybe (Gdk.EventSequence) -- sequence - -> m (Bool,Double,Double) -- result -gestureGetPoint _obj sequence = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSequence <- case sequence of - Nothing -> return nullPtr - Just jSequence -> do - let jSequence' = unsafeManagedPtrGetPtr jSequence - return jSequence' - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_get_point _obj' maybeSequence x y - let result' = (/= 0) result - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - whenJust sequence touchManagedPtr - freeMem x - freeMem y - return (result', x'', y'') - -data GestureGetPointMethodInfo -instance (signature ~ (Maybe (Gdk.EventSequence) -> m (Bool,Double,Double)), MonadIO m, GestureK a) => MethodInfo GestureGetPointMethodInfo a signature where - overloadedMethod _ = gestureGetPoint - --- method Gesture::get_sequence_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "EventSequenceState") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_sequence_state" gtk_gesture_get_sequence_state :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence" - IO CUInt - - -gestureGetSequenceState :: - (MonadIO m, GestureK a) => - a -- _obj - -> Gdk.EventSequence -- sequence - -> m EventSequenceState -- result -gestureGetSequenceState _obj sequence = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sequence' = unsafeManagedPtrGetPtr sequence - result <- gtk_gesture_get_sequence_state _obj' sequence' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr sequence - return result' - -data GestureGetSequenceStateMethodInfo -instance (signature ~ (Gdk.EventSequence -> m EventSequenceState), MonadIO m, GestureK a) => MethodInfo GestureGetSequenceStateMethodInfo a signature where - overloadedMethod _ = gestureGetSequenceState - --- method Gesture::get_sequences --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "EventSequence")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_sequences" gtk_gesture_get_sequences :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO (Ptr (GList (Ptr Gdk.EventSequence))) - - -gestureGetSequences :: - (MonadIO m, GestureK a) => - a -- _obj - -> m [Gdk.EventSequence] -- result -gestureGetSequences _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_sequences _obj' - result' <- unpackGList result - result'' <- mapM (newBoxed Gdk.EventSequence) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data GestureGetSequencesMethodInfo -instance (signature ~ (m [Gdk.EventSequence]), MonadIO m, GestureK a) => MethodInfo GestureGetSequencesMethodInfo a signature where - overloadedMethod _ = gestureGetSequences - --- method Gesture::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_get_window" gtk_gesture_get_window :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO (Ptr Gdk.Window) - - -gestureGetWindow :: - (MonadIO m, GestureK a) => - a -- _obj - -> m Gdk.Window -- result -gestureGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_window _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data GestureGetWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, GestureK a) => MethodInfo GestureGetWindowMethodInfo a signature where - overloadedMethod _ = gestureGetWindow - --- method Gesture::group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gesture", argType = TInterface "Gtk" "Gesture", 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 "gtk_gesture_group" gtk_gesture_group :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gesture -> -- gesture : TInterface "Gtk" "Gesture" - IO () - - -gestureGroup :: - (MonadIO m, GestureK a, GestureK b) => - a -- _obj - -> b -- gesture - -> m () -- result -gestureGroup _obj gesture = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gesture' = unsafeManagedPtrCastPtr gesture - gtk_gesture_group _obj' gesture' - touchManagedPtr _obj - touchManagedPtr gesture - return () - -data GestureGroupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, GestureK a, GestureK b) => MethodInfo GestureGroupMethodInfo a signature where - overloadedMethod _ = gestureGroup - --- method Gesture::handles_sequence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", 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 "gtk_gesture_handles_sequence" gtk_gesture_handles_sequence :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence" - IO CInt - - -gestureHandlesSequence :: - (MonadIO m, GestureK a) => - a -- _obj - -> Gdk.EventSequence -- sequence - -> m Bool -- result -gestureHandlesSequence _obj sequence = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sequence' = unsafeManagedPtrGetPtr sequence - result <- gtk_gesture_handles_sequence _obj' sequence' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr sequence - return result' - -data GestureHandlesSequenceMethodInfo -instance (signature ~ (Gdk.EventSequence -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureHandlesSequenceMethodInfo a signature where - overloadedMethod _ = gestureHandlesSequence - --- method Gesture::is_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", 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 "gtk_gesture_is_active" gtk_gesture_is_active :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO CInt - - -gestureIsActive :: - (MonadIO m, GestureK a) => - a -- _obj - -> m Bool -- result -gestureIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GestureIsActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, GestureK a) => MethodInfo GestureIsActiveMethodInfo a signature where - overloadedMethod _ = gestureIsActive - --- method Gesture::is_grouped_with --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "Gesture", 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 "gtk_gesture_is_grouped_with" gtk_gesture_is_grouped_with :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gesture -> -- other : TInterface "Gtk" "Gesture" - IO CInt - - -gestureIsGroupedWith :: - (MonadIO m, GestureK a, GestureK b) => - a -- _obj - -> b -- other - -> m Bool -- result -gestureIsGroupedWith _obj other = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let other' = unsafeManagedPtrCastPtr other - result <- gtk_gesture_is_grouped_with _obj' other' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr other - return result' - -data GestureIsGroupedWithMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, GestureK a, GestureK b) => MethodInfo GestureIsGroupedWithMethodInfo a signature where - overloadedMethod _ = gestureIsGroupedWith - --- method Gesture::is_recognized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", 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 "gtk_gesture_is_recognized" gtk_gesture_is_recognized :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO CInt - - -gestureIsRecognized :: - (MonadIO m, GestureK a) => - a -- _obj - -> m Bool -- result -gestureIsRecognized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_is_recognized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GestureIsRecognizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, GestureK a) => MethodInfo GestureIsRecognizedMethodInfo a signature where - overloadedMethod _ = gestureIsRecognized - --- method Gesture::set_sequence_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", 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 "gtk_gesture_set_sequence_state" gtk_gesture_set_sequence_state :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.EventSequence -> -- sequence : TInterface "Gdk" "EventSequence" - CUInt -> -- state : TInterface "Gtk" "EventSequenceState" - IO CInt - - -gestureSetSequenceState :: - (MonadIO m, GestureK a) => - a -- _obj - -> Gdk.EventSequence -- sequence - -> EventSequenceState -- state - -> m Bool -- result -gestureSetSequenceState _obj sequence state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sequence' = unsafeManagedPtrGetPtr sequence - let state' = (fromIntegral . fromEnum) state - result <- gtk_gesture_set_sequence_state _obj' sequence' state' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr sequence - return result' - -data GestureSetSequenceStateMethodInfo -instance (signature ~ (Gdk.EventSequence -> EventSequenceState -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureSetSequenceStateMethodInfo a signature where - overloadedMethod _ = gestureSetSequenceState - --- method Gesture::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", 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 "gtk_gesture_set_state" gtk_gesture_set_state :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - CUInt -> -- state : TInterface "Gtk" "EventSequenceState" - IO CInt - - -gestureSetState :: - (MonadIO m, GestureK a) => - a -- _obj - -> EventSequenceState -- state - -> m Bool -- result -gestureSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - result <- gtk_gesture_set_state _obj' state' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GestureSetStateMethodInfo -instance (signature ~ (EventSequenceState -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureSetStateMethodInfo a signature where - overloadedMethod _ = gestureSetState - --- method Gesture::set_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_set_window" gtk_gesture_set_window :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -gestureSetWindow :: - (MonadIO m, GestureK a, Gdk.WindowK b) => - a -- _obj - -> Maybe (b) -- window - -> m () -- result -gestureSetWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWindow <- case window of - Nothing -> return nullPtr - Just jWindow -> do - let jWindow' = unsafeManagedPtrCastPtr jWindow - return jWindow' - gtk_gesture_set_window _obj' maybeWindow - touchManagedPtr _obj - whenJust window touchManagedPtr - return () - -data GestureSetWindowMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, GestureK a, Gdk.WindowK b) => MethodInfo GestureSetWindowMethodInfo a signature where - overloadedMethod _ = gestureSetWindow - --- method Gesture::ungroup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", 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 "gtk_gesture_ungroup" gtk_gesture_ungroup :: - Ptr Gesture -> -- _obj : TInterface "Gtk" "Gesture" - IO () - - -gestureUngroup :: - (MonadIO m, GestureK a) => - a -- _obj - -> m () -- result -gestureUngroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gesture_ungroup _obj' - touchManagedPtr _obj - return () - -data GestureUngroupMethodInfo -instance (signature ~ (m ()), MonadIO m, GestureK a) => MethodInfo GestureUngroupMethodInfo a signature where - overloadedMethod _ = gestureUngroup - - diff --git a/GI/Gtk/Objects/Gesture.hs-boot b/GI/Gtk/Objects/Gesture.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Gesture.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.Gtk.Objects.Gesture 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 Gesture = Gesture (ForeignPtr Gesture) -instance GObject Gesture where -class GObject o => GestureK o -instance (GObject o, IsDescendantOf Gesture o) => GestureK o -data GestureNPointsPropertyInfo -data GestureWindowPropertyInfo -data GestureBeginSignalInfo -data GestureCancelSignalInfo -data GestureEndSignalInfo -data GestureSequenceStateChangedSignalInfo -data GestureUpdateSignalInfo -data GestureGetBoundingBoxMethodInfo -data GestureGetBoundingBoxCenterMethodInfo -data GestureGetDeviceMethodInfo -data GestureGetGroupMethodInfo -data GestureGetLastEventMethodInfo -data GestureGetLastUpdatedSequenceMethodInfo -data GestureGetPointMethodInfo -data GestureGetSequenceStateMethodInfo -data GestureGetSequencesMethodInfo -data GestureGetWindowMethodInfo -data GestureGroupMethodInfo -data GestureHandlesSequenceMethodInfo -data GestureIsActiveMethodInfo -data GestureIsGroupedWithMethodInfo -data GestureIsRecognizedMethodInfo -data GestureSetSequenceStateMethodInfo -data GestureSetStateMethodInfo -data GestureSetWindowMethodInfo -data GestureUngroupMethodInfo diff --git a/GI/Gtk/Objects/GestureDrag.hs b/GI/Gtk/Objects/GestureDrag.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureDrag.hs +++ /dev/null @@ -1,436 +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.Gtk.Objects.GestureDrag - ( - --- * Exported types - GestureDrag(..) , - GestureDragK , - toGestureDrag , - noGestureDrag , - - - -- * Methods --- ** gestureDragGetOffset - GestureDragGetOffsetMethodInfo , - gestureDragGetOffset , - - --- ** gestureDragGetStartPoint - GestureDragGetStartPointMethodInfo , - gestureDragGetStartPoint , - - --- ** gestureDragNew - gestureDragNew , - - - - - -- * Signals --- ** DragBegin - GestureDragDragBeginCallback , - GestureDragDragBeginCallbackC , - GestureDragDragBeginSignalInfo , - afterGestureDragDragBegin , - gestureDragDragBeginCallbackWrapper , - gestureDragDragBeginClosure , - mkGestureDragDragBeginCallback , - noGestureDragDragBeginCallback , - onGestureDragDragBegin , - - --- ** DragEnd - GestureDragDragEndCallback , - GestureDragDragEndCallbackC , - GestureDragDragEndSignalInfo , - afterGestureDragDragEnd , - gestureDragDragEndCallbackWrapper , - gestureDragDragEndClosure , - mkGestureDragDragEndCallback , - noGestureDragDragEndCallback , - onGestureDragDragEnd , - - --- ** DragUpdate - GestureDragDragUpdateCallback , - GestureDragDragUpdateCallbackC , - GestureDragDragUpdateSignalInfo , - afterGestureDragDragUpdate , - gestureDragDragUpdateCallbackWrapper , - gestureDragDragUpdateClosure , - mkGestureDragDragUpdateCallback , - noGestureDragDragUpdateCallback , - onGestureDragDragUpdate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GestureDrag = GestureDrag (ForeignPtr GestureDrag) -foreign import ccall "gtk_gesture_drag_get_type" - c_gtk_gesture_drag_get_type :: IO GType - -type instance ParentTypes GestureDrag = GestureDragParentTypes -type GestureDragParentTypes = '[GestureSingle, Gesture, EventController, GObject.Object] - -instance GObject GestureDrag where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_drag_get_type - - -class GObject o => GestureDragK o -instance (GObject o, IsDescendantOf GestureDrag o) => GestureDragK o - -toGestureDrag :: GestureDragK o => o -> IO GestureDrag -toGestureDrag = unsafeCastTo GestureDrag - -noGestureDrag :: Maybe GestureDrag -noGestureDrag = Nothing - -type family ResolveGestureDragMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureDragMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureDragMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureDragMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureDragMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureDragMethod "group" o = GestureGroupMethodInfo - ResolveGestureDragMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureDragMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureDragMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureDragMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureDragMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureDragMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureDragMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureDragMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureDragMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureDragMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureDragMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureDragMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureDragMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureDragMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureDragMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureDragMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureDragMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureDragMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureDragMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureDragMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureDragMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureDragMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureDragMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGestureDragMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGestureDragMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGestureDragMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureDragMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureDragMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGestureDragMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureDragMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureDragMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureDragMethod "getOffset" o = GestureDragGetOffsetMethodInfo - ResolveGestureDragMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureDragMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureDragMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureDragMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureDragMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureDragMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureDragMethod "getStartPoint" o = GestureDragGetStartPointMethodInfo - ResolveGestureDragMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGestureDragMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureDragMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureDragMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGestureDragMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureDragMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGestureDragMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureDragMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureDragMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureDragMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureDragMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGestureDragMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureDragMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureDragMethod t GestureDrag, MethodInfo info GestureDrag p) => IsLabelProxy t (GestureDrag -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureDragMethod t GestureDrag, MethodInfo info GestureDrag p) => IsLabel t (GestureDrag -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureDrag::drag-begin -type GestureDragDragBeginCallback = - Double -> - Double -> - IO () - -noGestureDragDragBeginCallback :: Maybe GestureDragDragBeginCallback -noGestureDragDragBeginCallback = Nothing - -type GestureDragDragBeginCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureDragDragBeginCallback :: GestureDragDragBeginCallbackC -> IO (FunPtr GestureDragDragBeginCallbackC) - -gestureDragDragBeginClosure :: GestureDragDragBeginCallback -> IO Closure -gestureDragDragBeginClosure cb = newCClosure =<< mkGestureDragDragBeginCallback wrapped - where wrapped = gestureDragDragBeginCallbackWrapper cb - -gestureDragDragBeginCallbackWrapper :: - GestureDragDragBeginCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureDragDragBeginCallbackWrapper _cb _ startX startY _ = do - let startX' = realToFrac startX - let startY' = realToFrac startY - _cb startX' startY' - -onGestureDragDragBegin :: (GObject a, MonadIO m) => a -> GestureDragDragBeginCallback -> m SignalHandlerId -onGestureDragDragBegin obj cb = liftIO $ connectGestureDragDragBegin obj cb SignalConnectBefore -afterGestureDragDragBegin :: (GObject a, MonadIO m) => a -> GestureDragDragBeginCallback -> m SignalHandlerId -afterGestureDragDragBegin obj cb = connectGestureDragDragBegin obj cb SignalConnectAfter - -connectGestureDragDragBegin :: (GObject a, MonadIO m) => - a -> GestureDragDragBeginCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureDragDragBegin obj cb after = liftIO $ do - cb' <- mkGestureDragDragBeginCallback (gestureDragDragBeginCallbackWrapper cb) - connectSignalFunPtr obj "drag-begin" cb' after - --- signal GestureDrag::drag-end -type GestureDragDragEndCallback = - Double -> - Double -> - IO () - -noGestureDragDragEndCallback :: Maybe GestureDragDragEndCallback -noGestureDragDragEndCallback = Nothing - -type GestureDragDragEndCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureDragDragEndCallback :: GestureDragDragEndCallbackC -> IO (FunPtr GestureDragDragEndCallbackC) - -gestureDragDragEndClosure :: GestureDragDragEndCallback -> IO Closure -gestureDragDragEndClosure cb = newCClosure =<< mkGestureDragDragEndCallback wrapped - where wrapped = gestureDragDragEndCallbackWrapper cb - -gestureDragDragEndCallbackWrapper :: - GestureDragDragEndCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureDragDragEndCallbackWrapper _cb _ offsetX offsetY _ = do - let offsetX' = realToFrac offsetX - let offsetY' = realToFrac offsetY - _cb offsetX' offsetY' - -onGestureDragDragEnd :: (GObject a, MonadIO m) => a -> GestureDragDragEndCallback -> m SignalHandlerId -onGestureDragDragEnd obj cb = liftIO $ connectGestureDragDragEnd obj cb SignalConnectBefore -afterGestureDragDragEnd :: (GObject a, MonadIO m) => a -> GestureDragDragEndCallback -> m SignalHandlerId -afterGestureDragDragEnd obj cb = connectGestureDragDragEnd obj cb SignalConnectAfter - -connectGestureDragDragEnd :: (GObject a, MonadIO m) => - a -> GestureDragDragEndCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureDragDragEnd obj cb after = liftIO $ do - cb' <- mkGestureDragDragEndCallback (gestureDragDragEndCallbackWrapper cb) - connectSignalFunPtr obj "drag-end" cb' after - --- signal GestureDrag::drag-update -type GestureDragDragUpdateCallback = - Double -> - Double -> - IO () - -noGestureDragDragUpdateCallback :: Maybe GestureDragDragUpdateCallback -noGestureDragDragUpdateCallback = Nothing - -type GestureDragDragUpdateCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureDragDragUpdateCallback :: GestureDragDragUpdateCallbackC -> IO (FunPtr GestureDragDragUpdateCallbackC) - -gestureDragDragUpdateClosure :: GestureDragDragUpdateCallback -> IO Closure -gestureDragDragUpdateClosure cb = newCClosure =<< mkGestureDragDragUpdateCallback wrapped - where wrapped = gestureDragDragUpdateCallbackWrapper cb - -gestureDragDragUpdateCallbackWrapper :: - GestureDragDragUpdateCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureDragDragUpdateCallbackWrapper _cb _ offsetX offsetY _ = do - let offsetX' = realToFrac offsetX - let offsetY' = realToFrac offsetY - _cb offsetX' offsetY' - -onGestureDragDragUpdate :: (GObject a, MonadIO m) => a -> GestureDragDragUpdateCallback -> m SignalHandlerId -onGestureDragDragUpdate obj cb = liftIO $ connectGestureDragDragUpdate obj cb SignalConnectBefore -afterGestureDragDragUpdate :: (GObject a, MonadIO m) => a -> GestureDragDragUpdateCallback -> m SignalHandlerId -afterGestureDragDragUpdate obj cb = connectGestureDragDragUpdate obj cb SignalConnectAfter - -connectGestureDragDragUpdate :: (GObject a, MonadIO m) => - a -> GestureDragDragUpdateCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureDragDragUpdate obj cb after = liftIO $ do - cb' <- mkGestureDragDragUpdateCallback (gestureDragDragUpdateCallbackWrapper cb) - connectSignalFunPtr obj "drag-update" cb' after - -type instance AttributeList GestureDrag = GestureDragAttributeList -type GestureDragAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GestureDragDragBeginSignalInfo -instance SignalInfo GestureDragDragBeginSignalInfo where - type HaskellCallbackType GestureDragDragBeginSignalInfo = GestureDragDragBeginCallback - connectSignal _ = connectGestureDragDragBegin - -data GestureDragDragEndSignalInfo -instance SignalInfo GestureDragDragEndSignalInfo where - type HaskellCallbackType GestureDragDragEndSignalInfo = GestureDragDragEndCallback - connectSignal _ = connectGestureDragDragEnd - -data GestureDragDragUpdateSignalInfo -instance SignalInfo GestureDragDragUpdateSignalInfo where - type HaskellCallbackType GestureDragDragUpdateSignalInfo = GestureDragDragUpdateCallback - connectSignal _ = connectGestureDragDragUpdate - -type instance SignalList GestureDrag = GestureDragSignalList -type GestureDragSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("dragBegin", GestureDragDragBeginSignalInfo), '("dragEnd", GestureDragDragEndSignalInfo), '("dragUpdate", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureDrag::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureDrag") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_drag_new" gtk_gesture_drag_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureDrag) - - -gestureDragNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureDrag -- result -gestureDragNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_drag_new widget' - checkUnexpectedReturnNULL "gtk_gesture_drag_new" result - result' <- (wrapObject GestureDrag) result - touchManagedPtr widget - return result' - --- method GestureDrag::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_drag_get_offset" gtk_gesture_drag_get_offset :: - Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO CInt - - -gestureDragGetOffset :: - (MonadIO m, GestureDragK a) => - a -- _obj - -> m (Bool,Double,Double) -- result -gestureDragGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_drag_get_offset _obj' x y - let result' = (/= 0) result - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - freeMem x - freeMem y - return (result', x'', y'') - -data GestureDragGetOffsetMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetOffsetMethodInfo a signature where - overloadedMethod _ = gestureDragGetOffset - --- method GestureDrag::get_start_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_drag_get_start_point" gtk_gesture_drag_get_start_point :: - Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO CInt - - -gestureDragGetStartPoint :: - (MonadIO m, GestureDragK a) => - a -- _obj - -> m (Bool,Double,Double) -- result -gestureDragGetStartPoint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_drag_get_start_point _obj' x y - let result' = (/= 0) result - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - freeMem x - freeMem y - return (result', x'', y'') - -data GestureDragGetStartPointMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetStartPointMethodInfo a signature where - overloadedMethod _ = gestureDragGetStartPoint - - diff --git a/GI/Gtk/Objects/GestureDrag.hs-boot b/GI/Gtk/Objects/GestureDrag.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureDrag.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.GestureDrag 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 GestureDrag = GestureDrag (ForeignPtr GestureDrag) -instance GObject GestureDrag where -class GObject o => GestureDragK o -instance (GObject o, IsDescendantOf GestureDrag o) => GestureDragK o -data GestureDragDragBeginSignalInfo -data GestureDragDragEndSignalInfo -data GestureDragDragUpdateSignalInfo -data GestureDragGetOffsetMethodInfo -data GestureDragGetStartPointMethodInfo diff --git a/GI/Gtk/Objects/GestureLongPress.hs b/GI/Gtk/Objects/GestureLongPress.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureLongPress.hs +++ /dev/null @@ -1,317 +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.Gtk.Objects.GestureLongPress - ( - --- * Exported types - GestureLongPress(..) , - GestureLongPressK , - toGestureLongPress , - noGestureLongPress , - - - -- * Methods --- ** gestureLongPressNew - gestureLongPressNew , - - - - - -- * Properties --- ** DelayFactor - GestureLongPressDelayFactorPropertyInfo , - constructGestureLongPressDelayFactor , - gestureLongPressDelayFactor , - getGestureLongPressDelayFactor , - setGestureLongPressDelayFactor , - - - - - -- * Signals --- ** Cancelled - GestureLongPressCancelledCallback , - GestureLongPressCancelledCallbackC , - GestureLongPressCancelledSignalInfo , - afterGestureLongPressCancelled , - gestureLongPressCancelledCallbackWrapper, - gestureLongPressCancelledClosure , - mkGestureLongPressCancelledCallback , - noGestureLongPressCancelledCallback , - onGestureLongPressCancelled , - - --- ** Pressed - GestureLongPressPressedCallback , - GestureLongPressPressedCallbackC , - GestureLongPressPressedSignalInfo , - afterGestureLongPressPressed , - gestureLongPressPressedCallbackWrapper , - gestureLongPressPressedClosure , - mkGestureLongPressPressedCallback , - noGestureLongPressPressedCallback , - onGestureLongPressPressed , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GestureLongPress = GestureLongPress (ForeignPtr GestureLongPress) -foreign import ccall "gtk_gesture_long_press_get_type" - c_gtk_gesture_long_press_get_type :: IO GType - -type instance ParentTypes GestureLongPress = GestureLongPressParentTypes -type GestureLongPressParentTypes = '[GestureSingle, Gesture, EventController, GObject.Object] - -instance GObject GestureLongPress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_long_press_get_type - - -class GObject o => GestureLongPressK o -instance (GObject o, IsDescendantOf GestureLongPress o) => GestureLongPressK o - -toGestureLongPress :: GestureLongPressK o => o -> IO GestureLongPress -toGestureLongPress = unsafeCastTo GestureLongPress - -noGestureLongPress :: Maybe GestureLongPress -noGestureLongPress = Nothing - -type family ResolveGestureLongPressMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureLongPressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureLongPressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureLongPressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureLongPressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureLongPressMethod "group" o = GestureGroupMethodInfo - ResolveGestureLongPressMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureLongPressMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureLongPressMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureLongPressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureLongPressMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureLongPressMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureLongPressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureLongPressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureLongPressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureLongPressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureLongPressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureLongPressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureLongPressMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureLongPressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureLongPressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureLongPressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureLongPressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureLongPressMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureLongPressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureLongPressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureLongPressMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureLongPressMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureLongPressMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGestureLongPressMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGestureLongPressMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGestureLongPressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureLongPressMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureLongPressMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGestureLongPressMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureLongPressMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureLongPressMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureLongPressMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureLongPressMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureLongPressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureLongPressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureLongPressMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureLongPressMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureLongPressMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGestureLongPressMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureLongPressMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureLongPressMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGestureLongPressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureLongPressMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGestureLongPressMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureLongPressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureLongPressMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureLongPressMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureLongPressMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGestureLongPressMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureLongPressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureLongPressMethod t GestureLongPress, MethodInfo info GestureLongPress p) => IsLabelProxy t (GestureLongPress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureLongPressMethod t GestureLongPress, MethodInfo info GestureLongPress p) => IsLabel t (GestureLongPress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureLongPress::cancelled -type GestureLongPressCancelledCallback = - IO () - -noGestureLongPressCancelledCallback :: Maybe GestureLongPressCancelledCallback -noGestureLongPressCancelledCallback = Nothing - -type GestureLongPressCancelledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureLongPressCancelledCallback :: GestureLongPressCancelledCallbackC -> IO (FunPtr GestureLongPressCancelledCallbackC) - -gestureLongPressCancelledClosure :: GestureLongPressCancelledCallback -> IO Closure -gestureLongPressCancelledClosure cb = newCClosure =<< mkGestureLongPressCancelledCallback wrapped - where wrapped = gestureLongPressCancelledCallbackWrapper cb - -gestureLongPressCancelledCallbackWrapper :: - GestureLongPressCancelledCallback -> - Ptr () -> - Ptr () -> - IO () -gestureLongPressCancelledCallbackWrapper _cb _ _ = do - _cb - -onGestureLongPressCancelled :: (GObject a, MonadIO m) => a -> GestureLongPressCancelledCallback -> m SignalHandlerId -onGestureLongPressCancelled obj cb = liftIO $ connectGestureLongPressCancelled obj cb SignalConnectBefore -afterGestureLongPressCancelled :: (GObject a, MonadIO m) => a -> GestureLongPressCancelledCallback -> m SignalHandlerId -afterGestureLongPressCancelled obj cb = connectGestureLongPressCancelled obj cb SignalConnectAfter - -connectGestureLongPressCancelled :: (GObject a, MonadIO m) => - a -> GestureLongPressCancelledCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureLongPressCancelled obj cb after = liftIO $ do - cb' <- mkGestureLongPressCancelledCallback (gestureLongPressCancelledCallbackWrapper cb) - connectSignalFunPtr obj "cancelled" cb' after - --- signal GestureLongPress::pressed -type GestureLongPressPressedCallback = - Double -> - Double -> - IO () - -noGestureLongPressPressedCallback :: Maybe GestureLongPressPressedCallback -noGestureLongPressPressedCallback = Nothing - -type GestureLongPressPressedCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureLongPressPressedCallback :: GestureLongPressPressedCallbackC -> IO (FunPtr GestureLongPressPressedCallbackC) - -gestureLongPressPressedClosure :: GestureLongPressPressedCallback -> IO Closure -gestureLongPressPressedClosure cb = newCClosure =<< mkGestureLongPressPressedCallback wrapped - where wrapped = gestureLongPressPressedCallbackWrapper cb - -gestureLongPressPressedCallbackWrapper :: - GestureLongPressPressedCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureLongPressPressedCallbackWrapper _cb _ x y _ = do - let x' = realToFrac x - let y' = realToFrac y - _cb x' y' - -onGestureLongPressPressed :: (GObject a, MonadIO m) => a -> GestureLongPressPressedCallback -> m SignalHandlerId -onGestureLongPressPressed obj cb = liftIO $ connectGestureLongPressPressed obj cb SignalConnectBefore -afterGestureLongPressPressed :: (GObject a, MonadIO m) => a -> GestureLongPressPressedCallback -> m SignalHandlerId -afterGestureLongPressPressed obj cb = connectGestureLongPressPressed obj cb SignalConnectAfter - -connectGestureLongPressPressed :: (GObject a, MonadIO m) => - a -> GestureLongPressPressedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureLongPressPressed obj cb after = liftIO $ do - cb' <- mkGestureLongPressPressedCallback (gestureLongPressPressedCallbackWrapper cb) - connectSignalFunPtr obj "pressed" cb' after - --- VVV Prop "delay-factor" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getGestureLongPressDelayFactor :: (MonadIO m, GestureLongPressK o) => o -> m Double -getGestureLongPressDelayFactor obj = liftIO $ getObjectPropertyDouble obj "delay-factor" - -setGestureLongPressDelayFactor :: (MonadIO m, GestureLongPressK o) => o -> Double -> m () -setGestureLongPressDelayFactor obj val = liftIO $ setObjectPropertyDouble obj "delay-factor" val - -constructGestureLongPressDelayFactor :: Double -> IO ([Char], GValue) -constructGestureLongPressDelayFactor val = constructObjectPropertyDouble "delay-factor" val - -data GestureLongPressDelayFactorPropertyInfo -instance AttrInfo GestureLongPressDelayFactorPropertyInfo where - type AttrAllowedOps GestureLongPressDelayFactorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureLongPressDelayFactorPropertyInfo = (~) Double - type AttrBaseTypeConstraint GestureLongPressDelayFactorPropertyInfo = GestureLongPressK - type AttrGetType GestureLongPressDelayFactorPropertyInfo = Double - type AttrLabel GestureLongPressDelayFactorPropertyInfo = "delay-factor" - attrGet _ = getGestureLongPressDelayFactor - attrSet _ = setGestureLongPressDelayFactor - attrConstruct _ = constructGestureLongPressDelayFactor - attrClear _ = undefined - -type instance AttributeList GestureLongPress = GestureLongPressAttributeList -type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delayFactor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -gestureLongPressDelayFactor :: AttrLabelProxy "delayFactor" -gestureLongPressDelayFactor = AttrLabelProxy - -data GestureLongPressCancelledSignalInfo -instance SignalInfo GestureLongPressCancelledSignalInfo where - type HaskellCallbackType GestureLongPressCancelledSignalInfo = GestureLongPressCancelledCallback - connectSignal _ = connectGestureLongPressCancelled - -data GestureLongPressPressedSignalInfo -instance SignalInfo GestureLongPressPressedSignalInfo where - type HaskellCallbackType GestureLongPressPressedSignalInfo = GestureLongPressPressedCallback - connectSignal _ = connectGestureLongPressPressed - -type instance SignalList GestureLongPress = GestureLongPressSignalList -type GestureLongPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("cancelled", GestureLongPressCancelledSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureLongPressPressedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureLongPress::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureLongPress") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_long_press_new" gtk_gesture_long_press_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureLongPress) - - -gestureLongPressNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureLongPress -- result -gestureLongPressNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_long_press_new widget' - checkUnexpectedReturnNULL "gtk_gesture_long_press_new" result - result' <- (wrapObject GestureLongPress) result - touchManagedPtr widget - return result' - - diff --git a/GI/Gtk/Objects/GestureLongPress.hs-boot b/GI/Gtk/Objects/GestureLongPress.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureLongPress.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.GestureLongPress 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 GestureLongPress = GestureLongPress (ForeignPtr GestureLongPress) -instance GObject GestureLongPress where -class GObject o => GestureLongPressK o -instance (GObject o, IsDescendantOf GestureLongPress o) => GestureLongPressK o -data GestureLongPressDelayFactorPropertyInfo -data GestureLongPressCancelledSignalInfo -data GestureLongPressPressedSignalInfo diff --git a/GI/Gtk/Objects/GestureMultiPress.hs b/GI/Gtk/Objects/GestureMultiPress.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureMultiPress.hs +++ /dev/null @@ -1,425 +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.Gtk.Objects.GestureMultiPress - ( - --- * Exported types - GestureMultiPress(..) , - GestureMultiPressK , - toGestureMultiPress , - noGestureMultiPress , - - - -- * Methods --- ** gestureMultiPressGetArea - GestureMultiPressGetAreaMethodInfo , - gestureMultiPressGetArea , - - --- ** gestureMultiPressNew - gestureMultiPressNew , - - --- ** gestureMultiPressSetArea - GestureMultiPressSetAreaMethodInfo , - gestureMultiPressSetArea , - - - - - -- * Signals --- ** Pressed - GestureMultiPressPressedCallback , - GestureMultiPressPressedCallbackC , - GestureMultiPressPressedSignalInfo , - afterGestureMultiPressPressed , - gestureMultiPressPressedCallbackWrapper , - gestureMultiPressPressedClosure , - mkGestureMultiPressPressedCallback , - noGestureMultiPressPressedCallback , - onGestureMultiPressPressed , - - --- ** Released - GestureMultiPressReleasedCallback , - GestureMultiPressReleasedCallbackC , - GestureMultiPressReleasedSignalInfo , - afterGestureMultiPressReleased , - gestureMultiPressReleasedCallbackWrapper, - gestureMultiPressReleasedClosure , - mkGestureMultiPressReleasedCallback , - noGestureMultiPressReleasedCallback , - onGestureMultiPressReleased , - - --- ** Stopped - GestureMultiPressStoppedCallback , - GestureMultiPressStoppedCallbackC , - GestureMultiPressStoppedSignalInfo , - afterGestureMultiPressStopped , - gestureMultiPressStoppedCallbackWrapper , - gestureMultiPressStoppedClosure , - mkGestureMultiPressStoppedCallback , - noGestureMultiPressStoppedCallback , - onGestureMultiPressStopped , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype GestureMultiPress = GestureMultiPress (ForeignPtr GestureMultiPress) -foreign import ccall "gtk_gesture_multi_press_get_type" - c_gtk_gesture_multi_press_get_type :: IO GType - -type instance ParentTypes GestureMultiPress = GestureMultiPressParentTypes -type GestureMultiPressParentTypes = '[GestureSingle, Gesture, EventController, GObject.Object] - -instance GObject GestureMultiPress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_multi_press_get_type - - -class GObject o => GestureMultiPressK o -instance (GObject o, IsDescendantOf GestureMultiPress o) => GestureMultiPressK o - -toGestureMultiPress :: GestureMultiPressK o => o -> IO GestureMultiPress -toGestureMultiPress = unsafeCastTo GestureMultiPress - -noGestureMultiPress :: Maybe GestureMultiPress -noGestureMultiPress = Nothing - -type family ResolveGestureMultiPressMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureMultiPressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureMultiPressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureMultiPressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureMultiPressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureMultiPressMethod "group" o = GestureGroupMethodInfo - ResolveGestureMultiPressMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureMultiPressMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureMultiPressMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureMultiPressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureMultiPressMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureMultiPressMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureMultiPressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureMultiPressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureMultiPressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureMultiPressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureMultiPressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureMultiPressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureMultiPressMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureMultiPressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureMultiPressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureMultiPressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureMultiPressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureMultiPressMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureMultiPressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureMultiPressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureMultiPressMethod "getArea" o = GestureMultiPressGetAreaMethodInfo - ResolveGestureMultiPressMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureMultiPressMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureMultiPressMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGestureMultiPressMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGestureMultiPressMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGestureMultiPressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureMultiPressMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureMultiPressMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGestureMultiPressMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureMultiPressMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureMultiPressMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureMultiPressMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureMultiPressMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureMultiPressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureMultiPressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureMultiPressMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureMultiPressMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureMultiPressMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGestureMultiPressMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureMultiPressMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureMultiPressMethod "setArea" o = GestureMultiPressSetAreaMethodInfo - ResolveGestureMultiPressMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGestureMultiPressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureMultiPressMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGestureMultiPressMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureMultiPressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureMultiPressMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureMultiPressMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureMultiPressMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGestureMultiPressMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureMultiPressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureMultiPressMethod t GestureMultiPress, MethodInfo info GestureMultiPress p) => IsLabelProxy t (GestureMultiPress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureMultiPressMethod t GestureMultiPress, MethodInfo info GestureMultiPress p) => IsLabel t (GestureMultiPress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureMultiPress::pressed -type GestureMultiPressPressedCallback = - Int32 -> - Double -> - Double -> - IO () - -noGestureMultiPressPressedCallback :: Maybe GestureMultiPressPressedCallback -noGestureMultiPressPressedCallback = Nothing - -type GestureMultiPressPressedCallbackC = - Ptr () -> -- object - Int32 -> - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureMultiPressPressedCallback :: GestureMultiPressPressedCallbackC -> IO (FunPtr GestureMultiPressPressedCallbackC) - -gestureMultiPressPressedClosure :: GestureMultiPressPressedCallback -> IO Closure -gestureMultiPressPressedClosure cb = newCClosure =<< mkGestureMultiPressPressedCallback wrapped - where wrapped = gestureMultiPressPressedCallbackWrapper cb - -gestureMultiPressPressedCallbackWrapper :: - GestureMultiPressPressedCallback -> - Ptr () -> - Int32 -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureMultiPressPressedCallbackWrapper _cb _ nPress x y _ = do - let x' = realToFrac x - let y' = realToFrac y - _cb nPress x' y' - -onGestureMultiPressPressed :: (GObject a, MonadIO m) => a -> GestureMultiPressPressedCallback -> m SignalHandlerId -onGestureMultiPressPressed obj cb = liftIO $ connectGestureMultiPressPressed obj cb SignalConnectBefore -afterGestureMultiPressPressed :: (GObject a, MonadIO m) => a -> GestureMultiPressPressedCallback -> m SignalHandlerId -afterGestureMultiPressPressed obj cb = connectGestureMultiPressPressed obj cb SignalConnectAfter - -connectGestureMultiPressPressed :: (GObject a, MonadIO m) => - a -> GestureMultiPressPressedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureMultiPressPressed obj cb after = liftIO $ do - cb' <- mkGestureMultiPressPressedCallback (gestureMultiPressPressedCallbackWrapper cb) - connectSignalFunPtr obj "pressed" cb' after - --- signal GestureMultiPress::released -type GestureMultiPressReleasedCallback = - Int32 -> - Double -> - Double -> - IO () - -noGestureMultiPressReleasedCallback :: Maybe GestureMultiPressReleasedCallback -noGestureMultiPressReleasedCallback = Nothing - -type GestureMultiPressReleasedCallbackC = - Ptr () -> -- object - Int32 -> - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureMultiPressReleasedCallback :: GestureMultiPressReleasedCallbackC -> IO (FunPtr GestureMultiPressReleasedCallbackC) - -gestureMultiPressReleasedClosure :: GestureMultiPressReleasedCallback -> IO Closure -gestureMultiPressReleasedClosure cb = newCClosure =<< mkGestureMultiPressReleasedCallback wrapped - where wrapped = gestureMultiPressReleasedCallbackWrapper cb - -gestureMultiPressReleasedCallbackWrapper :: - GestureMultiPressReleasedCallback -> - Ptr () -> - Int32 -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureMultiPressReleasedCallbackWrapper _cb _ nPress x y _ = do - let x' = realToFrac x - let y' = realToFrac y - _cb nPress x' y' - -onGestureMultiPressReleased :: (GObject a, MonadIO m) => a -> GestureMultiPressReleasedCallback -> m SignalHandlerId -onGestureMultiPressReleased obj cb = liftIO $ connectGestureMultiPressReleased obj cb SignalConnectBefore -afterGestureMultiPressReleased :: (GObject a, MonadIO m) => a -> GestureMultiPressReleasedCallback -> m SignalHandlerId -afterGestureMultiPressReleased obj cb = connectGestureMultiPressReleased obj cb SignalConnectAfter - -connectGestureMultiPressReleased :: (GObject a, MonadIO m) => - a -> GestureMultiPressReleasedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureMultiPressReleased obj cb after = liftIO $ do - cb' <- mkGestureMultiPressReleasedCallback (gestureMultiPressReleasedCallbackWrapper cb) - connectSignalFunPtr obj "released" cb' after - --- signal GestureMultiPress::stopped -type GestureMultiPressStoppedCallback = - IO () - -noGestureMultiPressStoppedCallback :: Maybe GestureMultiPressStoppedCallback -noGestureMultiPressStoppedCallback = Nothing - -type GestureMultiPressStoppedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureMultiPressStoppedCallback :: GestureMultiPressStoppedCallbackC -> IO (FunPtr GestureMultiPressStoppedCallbackC) - -gestureMultiPressStoppedClosure :: GestureMultiPressStoppedCallback -> IO Closure -gestureMultiPressStoppedClosure cb = newCClosure =<< mkGestureMultiPressStoppedCallback wrapped - where wrapped = gestureMultiPressStoppedCallbackWrapper cb - -gestureMultiPressStoppedCallbackWrapper :: - GestureMultiPressStoppedCallback -> - Ptr () -> - Ptr () -> - IO () -gestureMultiPressStoppedCallbackWrapper _cb _ _ = do - _cb - -onGestureMultiPressStopped :: (GObject a, MonadIO m) => a -> GestureMultiPressStoppedCallback -> m SignalHandlerId -onGestureMultiPressStopped obj cb = liftIO $ connectGestureMultiPressStopped obj cb SignalConnectBefore -afterGestureMultiPressStopped :: (GObject a, MonadIO m) => a -> GestureMultiPressStoppedCallback -> m SignalHandlerId -afterGestureMultiPressStopped obj cb = connectGestureMultiPressStopped obj cb SignalConnectAfter - -connectGestureMultiPressStopped :: (GObject a, MonadIO m) => - a -> GestureMultiPressStoppedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureMultiPressStopped obj cb after = liftIO $ do - cb' <- mkGestureMultiPressStoppedCallback (gestureMultiPressStoppedCallbackWrapper cb) - connectSignalFunPtr obj "stopped" cb' after - -type instance AttributeList GestureMultiPress = GestureMultiPressAttributeList -type GestureMultiPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GestureMultiPressPressedSignalInfo -instance SignalInfo GestureMultiPressPressedSignalInfo where - type HaskellCallbackType GestureMultiPressPressedSignalInfo = GestureMultiPressPressedCallback - connectSignal _ = connectGestureMultiPressPressed - -data GestureMultiPressReleasedSignalInfo -instance SignalInfo GestureMultiPressReleasedSignalInfo where - type HaskellCallbackType GestureMultiPressReleasedSignalInfo = GestureMultiPressReleasedCallback - connectSignal _ = connectGestureMultiPressReleased - -data GestureMultiPressStoppedSignalInfo -instance SignalInfo GestureMultiPressStoppedSignalInfo where - type HaskellCallbackType GestureMultiPressStoppedSignalInfo = GestureMultiPressStoppedCallback - connectSignal _ = connectGestureMultiPressStopped - -type instance SignalList GestureMultiPress = GestureMultiPressSignalList -type GestureMultiPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureMultiPressPressedSignalInfo), '("released", GestureMultiPressReleasedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("stopped", GestureMultiPressStoppedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureMultiPress::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureMultiPress") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_multi_press_new" gtk_gesture_multi_press_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureMultiPress) - - -gestureMultiPressNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureMultiPress -- result -gestureMultiPressNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_multi_press_new widget' - checkUnexpectedReturnNULL "gtk_gesture_multi_press_new" result - result' <- (wrapObject GestureMultiPress) result - touchManagedPtr widget - return result' - --- method GestureMultiPress::get_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_multi_press_get_area" gtk_gesture_multi_press_get_area :: - Ptr GestureMultiPress -> -- _obj : TInterface "Gtk" "GestureMultiPress" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -gestureMultiPressGetArea :: - (MonadIO m, GestureMultiPressK a) => - a -- _obj - -> m (Bool,Gdk.Rectangle) -- result -gestureMultiPressGetArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_gesture_multi_press_get_area _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return (result', rect') - -data GestureMultiPressGetAreaMethodInfo -instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, GestureMultiPressK a) => MethodInfo GestureMultiPressGetAreaMethodInfo a signature where - overloadedMethod _ = gestureMultiPressGetArea - --- method GestureMultiPress::set_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_multi_press_set_area" gtk_gesture_multi_press_set_area :: - Ptr GestureMultiPress -> -- _obj : TInterface "Gtk" "GestureMultiPress" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -gestureMultiPressSetArea :: - (MonadIO m, GestureMultiPressK a) => - a -- _obj - -> Maybe (Gdk.Rectangle) -- rect - -> m () -- result -gestureMultiPressSetArea _obj rect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRect <- case rect of - Nothing -> return nullPtr - Just jRect -> do - let jRect' = unsafeManagedPtrGetPtr jRect - return jRect' - gtk_gesture_multi_press_set_area _obj' maybeRect - touchManagedPtr _obj - whenJust rect touchManagedPtr - return () - -data GestureMultiPressSetAreaMethodInfo -instance (signature ~ (Maybe (Gdk.Rectangle) -> m ()), MonadIO m, GestureMultiPressK a) => MethodInfo GestureMultiPressSetAreaMethodInfo a signature where - overloadedMethod _ = gestureMultiPressSetArea - - diff --git a/GI/Gtk/Objects/GestureMultiPress.hs-boot b/GI/Gtk/Objects/GestureMultiPress.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureMultiPress.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.GestureMultiPress 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 GestureMultiPress = GestureMultiPress (ForeignPtr GestureMultiPress) -instance GObject GestureMultiPress where -class GObject o => GestureMultiPressK o -instance (GObject o, IsDescendantOf GestureMultiPress o) => GestureMultiPressK o -data GestureMultiPressPressedSignalInfo -data GestureMultiPressReleasedSignalInfo -data GestureMultiPressStoppedSignalInfo -data GestureMultiPressGetAreaMethodInfo -data GestureMultiPressSetAreaMethodInfo diff --git a/GI/Gtk/Objects/GesturePan.hs b/GI/Gtk/Objects/GesturePan.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GesturePan.hs +++ /dev/null @@ -1,337 +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.Gtk.Objects.GesturePan - ( - --- * Exported types - GesturePan(..) , - GesturePanK , - toGesturePan , - noGesturePan , - - - -- * Methods --- ** gesturePanGetOrientation - GesturePanGetOrientationMethodInfo , - gesturePanGetOrientation , - - --- ** gesturePanNew - gesturePanNew , - - --- ** gesturePanSetOrientation - GesturePanSetOrientationMethodInfo , - gesturePanSetOrientation , - - - - - -- * Properties --- ** Orientation - GesturePanOrientationPropertyInfo , - constructGesturePanOrientation , - gesturePanOrientation , - getGesturePanOrientation , - setGesturePanOrientation , - - - - - -- * Signals --- ** Pan - GesturePanPanCallback , - GesturePanPanCallbackC , - GesturePanPanSignalInfo , - afterGesturePanPan , - gesturePanPanCallbackWrapper , - gesturePanPanClosure , - mkGesturePanPanCallback , - noGesturePanPanCallback , - onGesturePanPan , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GesturePan = GesturePan (ForeignPtr GesturePan) -foreign import ccall "gtk_gesture_pan_get_type" - c_gtk_gesture_pan_get_type :: IO GType - -type instance ParentTypes GesturePan = GesturePanParentTypes -type GesturePanParentTypes = '[GestureDrag, GestureSingle, Gesture, EventController, GObject.Object] - -instance GObject GesturePan where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_pan_get_type - - -class GObject o => GesturePanK o -instance (GObject o, IsDescendantOf GesturePan o) => GesturePanK o - -toGesturePan :: GesturePanK o => o -> IO GesturePan -toGesturePan = unsafeCastTo GesturePan - -noGesturePan :: Maybe GesturePan -noGesturePan = Nothing - -type family ResolveGesturePanMethod (t :: Symbol) (o :: *) :: * where - ResolveGesturePanMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGesturePanMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGesturePanMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGesturePanMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGesturePanMethod "group" o = GestureGroupMethodInfo - ResolveGesturePanMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGesturePanMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGesturePanMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGesturePanMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGesturePanMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGesturePanMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGesturePanMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGesturePanMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGesturePanMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGesturePanMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGesturePanMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGesturePanMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGesturePanMethod "reset" o = EventControllerResetMethodInfo - ResolveGesturePanMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGesturePanMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGesturePanMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGesturePanMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGesturePanMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGesturePanMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGesturePanMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGesturePanMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGesturePanMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGesturePanMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGesturePanMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGesturePanMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGesturePanMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGesturePanMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGesturePanMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGesturePanMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGesturePanMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGesturePanMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGesturePanMethod "getOffset" o = GestureDragGetOffsetMethodInfo - ResolveGesturePanMethod "getOrientation" o = GesturePanGetOrientationMethodInfo - ResolveGesturePanMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGesturePanMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGesturePanMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGesturePanMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGesturePanMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGesturePanMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGesturePanMethod "getStartPoint" o = GestureDragGetStartPointMethodInfo - ResolveGesturePanMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGesturePanMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGesturePanMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGesturePanMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGesturePanMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGesturePanMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGesturePanMethod "setOrientation" o = GesturePanSetOrientationMethodInfo - ResolveGesturePanMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGesturePanMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGesturePanMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGesturePanMethod "setState" o = GestureSetStateMethodInfo - ResolveGesturePanMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGesturePanMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGesturePanMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGesturePanMethod t GesturePan, MethodInfo info GesturePan p) => IsLabelProxy t (GesturePan -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGesturePanMethod t GesturePan, MethodInfo info GesturePan p) => IsLabel t (GesturePan -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GesturePan::pan -type GesturePanPanCallback = - PanDirection -> - Double -> - IO () - -noGesturePanPanCallback :: Maybe GesturePanPanCallback -noGesturePanPanCallback = Nothing - -type GesturePanPanCallbackC = - Ptr () -> -- object - CUInt -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGesturePanPanCallback :: GesturePanPanCallbackC -> IO (FunPtr GesturePanPanCallbackC) - -gesturePanPanClosure :: GesturePanPanCallback -> IO Closure -gesturePanPanClosure cb = newCClosure =<< mkGesturePanPanCallback wrapped - where wrapped = gesturePanPanCallbackWrapper cb - -gesturePanPanCallbackWrapper :: - GesturePanPanCallback -> - Ptr () -> - CUInt -> - CDouble -> - Ptr () -> - IO () -gesturePanPanCallbackWrapper _cb _ direction offset _ = do - let direction' = (toEnum . fromIntegral) direction - let offset' = realToFrac offset - _cb direction' offset' - -onGesturePanPan :: (GObject a, MonadIO m) => a -> GesturePanPanCallback -> m SignalHandlerId -onGesturePanPan obj cb = liftIO $ connectGesturePanPan obj cb SignalConnectBefore -afterGesturePanPan :: (GObject a, MonadIO m) => a -> GesturePanPanCallback -> m SignalHandlerId -afterGesturePanPan obj cb = connectGesturePanPan obj cb SignalConnectAfter - -connectGesturePanPan :: (GObject a, MonadIO m) => - a -> GesturePanPanCallback -> SignalConnectMode -> m SignalHandlerId -connectGesturePanPan obj cb after = liftIO $ do - cb' <- mkGesturePanPanCallback (gesturePanPanCallbackWrapper cb) - connectSignalFunPtr obj "pan" cb' after - --- VVV Prop "orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGesturePanOrientation :: (MonadIO m, GesturePanK o) => o -> m Orientation -getGesturePanOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" - -setGesturePanOrientation :: (MonadIO m, GesturePanK o) => o -> Orientation -> m () -setGesturePanOrientation obj val = liftIO $ setObjectPropertyEnum obj "orientation" val - -constructGesturePanOrientation :: Orientation -> IO ([Char], GValue) -constructGesturePanOrientation val = constructObjectPropertyEnum "orientation" val - -data GesturePanOrientationPropertyInfo -instance AttrInfo GesturePanOrientationPropertyInfo where - type AttrAllowedOps GesturePanOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GesturePanOrientationPropertyInfo = (~) Orientation - type AttrBaseTypeConstraint GesturePanOrientationPropertyInfo = GesturePanK - type AttrGetType GesturePanOrientationPropertyInfo = Orientation - type AttrLabel GesturePanOrientationPropertyInfo = "orientation" - attrGet _ = getGesturePanOrientation - attrSet _ = setGesturePanOrientation - attrConstruct _ = constructGesturePanOrientation - attrClear _ = undefined - -type instance AttributeList GesturePan = GesturePanAttributeList -type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -gesturePanOrientation :: AttrLabelProxy "orientation" -gesturePanOrientation = AttrLabelProxy - -data GesturePanPanSignalInfo -instance SignalInfo GesturePanPanSignalInfo where - type HaskellCallbackType GesturePanPanSignalInfo = GesturePanPanCallback - connectSignal _ = connectGesturePanPan - -type instance SignalList GesturePan = GesturePanSignalList -type GesturePanSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("dragBegin", GestureDragDragBeginSignalInfo), '("dragEnd", GestureDragDragEndSignalInfo), '("dragUpdate", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pan", GesturePanPanSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GesturePan::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GesturePan") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_pan_new" gtk_gesture_pan_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO (Ptr GesturePan) - - -gesturePanNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> Orientation -- orientation - -> m GesturePan -- result -gesturePanNew widget orientation = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_gesture_pan_new widget' orientation' - checkUnexpectedReturnNULL "gtk_gesture_pan_new" result - result' <- (wrapObject GesturePan) result - touchManagedPtr widget - return result' - --- method GesturePan::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_pan_get_orientation" gtk_gesture_pan_get_orientation :: - Ptr GesturePan -> -- _obj : TInterface "Gtk" "GesturePan" - IO CUInt - - -gesturePanGetOrientation :: - (MonadIO m, GesturePanK a) => - a -- _obj - -> m Orientation -- result -gesturePanGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_pan_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data GesturePanGetOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, GesturePanK a) => MethodInfo GesturePanGetOrientationMethodInfo a signature where - overloadedMethod _ = gesturePanGetOrientation - --- method GesturePan::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_gesture_pan_set_orientation" gtk_gesture_pan_set_orientation :: - Ptr GesturePan -> -- _obj : TInterface "Gtk" "GesturePan" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - - -gesturePanSetOrientation :: - (MonadIO m, GesturePanK a) => - a -- _obj - -> Orientation -- orientation - -> m () -- result -gesturePanSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_gesture_pan_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - -data GesturePanSetOrientationMethodInfo -instance (signature ~ (Orientation -> m ()), MonadIO m, GesturePanK a) => MethodInfo GesturePanSetOrientationMethodInfo a signature where - overloadedMethod _ = gesturePanSetOrientation - - diff --git a/GI/Gtk/Objects/GesturePan.hs-boot b/GI/Gtk/Objects/GesturePan.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GesturePan.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.GesturePan 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 GesturePan = GesturePan (ForeignPtr GesturePan) -instance GObject GesturePan where -class GObject o => GesturePanK o -instance (GObject o, IsDescendantOf GesturePan o) => GesturePanK o -data GesturePanOrientationPropertyInfo -data GesturePanPanSignalInfo -data GesturePanGetOrientationMethodInfo -data GesturePanSetOrientationMethodInfo diff --git a/GI/Gtk/Objects/GestureRotate.hs b/GI/Gtk/Objects/GestureRotate.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureRotate.hs +++ /dev/null @@ -1,248 +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.Gtk.Objects.GestureRotate - ( - --- * Exported types - GestureRotate(..) , - GestureRotateK , - toGestureRotate , - noGestureRotate , - - - -- * Methods --- ** gestureRotateGetAngleDelta - GestureRotateGetAngleDeltaMethodInfo , - gestureRotateGetAngleDelta , - - --- ** gestureRotateNew - gestureRotateNew , - - - - - -- * Signals --- ** AngleChanged - GestureRotateAngleChangedCallback , - GestureRotateAngleChangedCallbackC , - GestureRotateAngleChangedSignalInfo , - afterGestureRotateAngleChanged , - gestureRotateAngleChangedCallbackWrapper, - gestureRotateAngleChangedClosure , - mkGestureRotateAngleChangedCallback , - noGestureRotateAngleChangedCallback , - onGestureRotateAngleChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GestureRotate = GestureRotate (ForeignPtr GestureRotate) -foreign import ccall "gtk_gesture_rotate_get_type" - c_gtk_gesture_rotate_get_type :: IO GType - -type instance ParentTypes GestureRotate = GestureRotateParentTypes -type GestureRotateParentTypes = '[Gesture, EventController, GObject.Object] - -instance GObject GestureRotate where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_rotate_get_type - - -class GObject o => GestureRotateK o -instance (GObject o, IsDescendantOf GestureRotate o) => GestureRotateK o - -toGestureRotate :: GestureRotateK o => o -> IO GestureRotate -toGestureRotate = unsafeCastTo GestureRotate - -noGestureRotate :: Maybe GestureRotate -noGestureRotate = Nothing - -type family ResolveGestureRotateMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureRotateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureRotateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureRotateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureRotateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureRotateMethod "group" o = GestureGroupMethodInfo - ResolveGestureRotateMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureRotateMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureRotateMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureRotateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureRotateMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureRotateMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureRotateMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureRotateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureRotateMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureRotateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureRotateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureRotateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureRotateMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureRotateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureRotateMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureRotateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureRotateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureRotateMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureRotateMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureRotateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureRotateMethod "getAngleDelta" o = GestureRotateGetAngleDeltaMethodInfo - ResolveGestureRotateMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureRotateMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureRotateMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureRotateMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureRotateMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureRotateMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureRotateMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureRotateMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureRotateMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureRotateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureRotateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureRotateMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureRotateMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureRotateMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureRotateMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureRotateMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureRotateMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureRotateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureRotateMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureRotateMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureRotateMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureRotateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureRotateMethod t GestureRotate, MethodInfo info GestureRotate p) => IsLabelProxy t (GestureRotate -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureRotateMethod t GestureRotate, MethodInfo info GestureRotate p) => IsLabel t (GestureRotate -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureRotate::angle-changed -type GestureRotateAngleChangedCallback = - Double -> - Double -> - IO () - -noGestureRotateAngleChangedCallback :: Maybe GestureRotateAngleChangedCallback -noGestureRotateAngleChangedCallback = Nothing - -type GestureRotateAngleChangedCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureRotateAngleChangedCallback :: GestureRotateAngleChangedCallbackC -> IO (FunPtr GestureRotateAngleChangedCallbackC) - -gestureRotateAngleChangedClosure :: GestureRotateAngleChangedCallback -> IO Closure -gestureRotateAngleChangedClosure cb = newCClosure =<< mkGestureRotateAngleChangedCallback wrapped - where wrapped = gestureRotateAngleChangedCallbackWrapper cb - -gestureRotateAngleChangedCallbackWrapper :: - GestureRotateAngleChangedCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureRotateAngleChangedCallbackWrapper _cb _ angle angleDelta _ = do - let angle' = realToFrac angle - let angleDelta' = realToFrac angleDelta - _cb angle' angleDelta' - -onGestureRotateAngleChanged :: (GObject a, MonadIO m) => a -> GestureRotateAngleChangedCallback -> m SignalHandlerId -onGestureRotateAngleChanged obj cb = liftIO $ connectGestureRotateAngleChanged obj cb SignalConnectBefore -afterGestureRotateAngleChanged :: (GObject a, MonadIO m) => a -> GestureRotateAngleChangedCallback -> m SignalHandlerId -afterGestureRotateAngleChanged obj cb = connectGestureRotateAngleChanged obj cb SignalConnectAfter - -connectGestureRotateAngleChanged :: (GObject a, MonadIO m) => - a -> GestureRotateAngleChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureRotateAngleChanged obj cb after = liftIO $ do - cb' <- mkGestureRotateAngleChangedCallback (gestureRotateAngleChangedCallbackWrapper cb) - connectSignalFunPtr obj "angle-changed" cb' after - -type instance AttributeList GestureRotate = GestureRotateAttributeList -type GestureRotateAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GestureRotateAngleChangedSignalInfo -instance SignalInfo GestureRotateAngleChangedSignalInfo where - type HaskellCallbackType GestureRotateAngleChangedSignalInfo = GestureRotateAngleChangedCallback - connectSignal _ = connectGestureRotateAngleChanged - -type instance SignalList GestureRotate = GestureRotateSignalList -type GestureRotateSignalList = ('[ '("angleChanged", GestureRotateAngleChangedSignalInfo), '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureRotate::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureRotate") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_rotate_new" gtk_gesture_rotate_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureRotate) - - -gestureRotateNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureRotate -- result -gestureRotateNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_rotate_new widget' - checkUnexpectedReturnNULL "gtk_gesture_rotate_new" result - result' <- (wrapObject GestureRotate) result - touchManagedPtr widget - return result' - --- method GestureRotate::get_angle_delta --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureRotate", 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 "gtk_gesture_rotate_get_angle_delta" gtk_gesture_rotate_get_angle_delta :: - Ptr GestureRotate -> -- _obj : TInterface "Gtk" "GestureRotate" - IO CDouble - - -gestureRotateGetAngleDelta :: - (MonadIO m, GestureRotateK a) => - a -- _obj - -> m Double -- result -gestureRotateGetAngleDelta _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_rotate_get_angle_delta _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data GestureRotateGetAngleDeltaMethodInfo -instance (signature ~ (m Double), MonadIO m, GestureRotateK a) => MethodInfo GestureRotateGetAngleDeltaMethodInfo a signature where - overloadedMethod _ = gestureRotateGetAngleDelta - - diff --git a/GI/Gtk/Objects/GestureRotate.hs-boot b/GI/Gtk/Objects/GestureRotate.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureRotate.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.GestureRotate 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 GestureRotate = GestureRotate (ForeignPtr GestureRotate) -instance GObject GestureRotate where -class GObject o => GestureRotateK o -instance (GObject o, IsDescendantOf GestureRotate o) => GestureRotateK o -data GestureRotateAngleChangedSignalInfo -data GestureRotateGetAngleDeltaMethodInfo diff --git a/GI/Gtk/Objects/GestureSingle.hs b/GI/Gtk/Objects/GestureSingle.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureSingle.hs +++ /dev/null @@ -1,511 +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.Gtk.Objects.GestureSingle - ( - --- * Exported types - GestureSingle(..) , - GestureSingleK , - toGestureSingle , - noGestureSingle , - - - -- * Methods --- ** gestureSingleGetButton - GestureSingleGetButtonMethodInfo , - gestureSingleGetButton , - - --- ** gestureSingleGetCurrentButton - GestureSingleGetCurrentButtonMethodInfo , - gestureSingleGetCurrentButton , - - --- ** gestureSingleGetCurrentSequence - GestureSingleGetCurrentSequenceMethodInfo, - gestureSingleGetCurrentSequence , - - --- ** gestureSingleGetExclusive - GestureSingleGetExclusiveMethodInfo , - gestureSingleGetExclusive , - - --- ** gestureSingleGetTouchOnly - GestureSingleGetTouchOnlyMethodInfo , - gestureSingleGetTouchOnly , - - --- ** gestureSingleSetButton - GestureSingleSetButtonMethodInfo , - gestureSingleSetButton , - - --- ** gestureSingleSetExclusive - GestureSingleSetExclusiveMethodInfo , - gestureSingleSetExclusive , - - --- ** gestureSingleSetTouchOnly - GestureSingleSetTouchOnlyMethodInfo , - gestureSingleSetTouchOnly , - - - - - -- * Properties --- ** Button - GestureSingleButtonPropertyInfo , - constructGestureSingleButton , - gestureSingleButton , - getGestureSingleButton , - setGestureSingleButton , - - --- ** Exclusive - GestureSingleExclusivePropertyInfo , - constructGestureSingleExclusive , - gestureSingleExclusive , - getGestureSingleExclusive , - setGestureSingleExclusive , - - --- ** TouchOnly - GestureSingleTouchOnlyPropertyInfo , - constructGestureSingleTouchOnly , - gestureSingleTouchOnly , - getGestureSingleTouchOnly , - setGestureSingleTouchOnly , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype GestureSingle = GestureSingle (ForeignPtr GestureSingle) -foreign import ccall "gtk_gesture_single_get_type" - c_gtk_gesture_single_get_type :: IO GType - -type instance ParentTypes GestureSingle = GestureSingleParentTypes -type GestureSingleParentTypes = '[Gesture, EventController, GObject.Object] - -instance GObject GestureSingle where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_single_get_type - - -class GObject o => GestureSingleK o -instance (GObject o, IsDescendantOf GestureSingle o) => GestureSingleK o - -toGestureSingle :: GestureSingleK o => o -> IO GestureSingle -toGestureSingle = unsafeCastTo GestureSingle - -noGestureSingle :: Maybe GestureSingle -noGestureSingle = Nothing - -type family ResolveGestureSingleMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureSingleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureSingleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureSingleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureSingleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureSingleMethod "group" o = GestureGroupMethodInfo - ResolveGestureSingleMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureSingleMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureSingleMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureSingleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureSingleMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureSingleMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureSingleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureSingleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureSingleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureSingleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureSingleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureSingleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureSingleMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureSingleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureSingleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureSingleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureSingleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureSingleMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureSingleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureSingleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureSingleMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureSingleMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureSingleMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGestureSingleMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGestureSingleMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGestureSingleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureSingleMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureSingleMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGestureSingleMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureSingleMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureSingleMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureSingleMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureSingleMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureSingleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureSingleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureSingleMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureSingleMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureSingleMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGestureSingleMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureSingleMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureSingleMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGestureSingleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureSingleMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGestureSingleMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureSingleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureSingleMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureSingleMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureSingleMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGestureSingleMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureSingleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureSingleMethod t GestureSingle, MethodInfo info GestureSingle p) => IsLabelProxy t (GestureSingle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureSingleMethod t GestureSingle, MethodInfo info GestureSingle p) => IsLabel t (GestureSingle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "button" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> m Word32 -getGestureSingleButton obj = liftIO $ getObjectPropertyUInt32 obj "button" - -setGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> Word32 -> m () -setGestureSingleButton obj val = liftIO $ setObjectPropertyUInt32 obj "button" val - -constructGestureSingleButton :: Word32 -> IO ([Char], GValue) -constructGestureSingleButton val = constructObjectPropertyUInt32 "button" val - -data GestureSingleButtonPropertyInfo -instance AttrInfo GestureSingleButtonPropertyInfo where - type AttrAllowedOps GestureSingleButtonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureSingleButtonPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint GestureSingleButtonPropertyInfo = GestureSingleK - type AttrGetType GestureSingleButtonPropertyInfo = Word32 - type AttrLabel GestureSingleButtonPropertyInfo = "button" - attrGet _ = getGestureSingleButton - attrSet _ = setGestureSingleButton - attrConstruct _ = constructGestureSingleButton - attrClear _ = undefined - --- VVV Prop "exclusive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGestureSingleExclusive :: (MonadIO m, GestureSingleK o) => o -> m Bool -getGestureSingleExclusive obj = liftIO $ getObjectPropertyBool obj "exclusive" - -setGestureSingleExclusive :: (MonadIO m, GestureSingleK o) => o -> Bool -> m () -setGestureSingleExclusive obj val = liftIO $ setObjectPropertyBool obj "exclusive" val - -constructGestureSingleExclusive :: Bool -> IO ([Char], GValue) -constructGestureSingleExclusive val = constructObjectPropertyBool "exclusive" val - -data GestureSingleExclusivePropertyInfo -instance AttrInfo GestureSingleExclusivePropertyInfo where - type AttrAllowedOps GestureSingleExclusivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureSingleExclusivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint GestureSingleExclusivePropertyInfo = GestureSingleK - type AttrGetType GestureSingleExclusivePropertyInfo = Bool - type AttrLabel GestureSingleExclusivePropertyInfo = "exclusive" - attrGet _ = getGestureSingleExclusive - attrSet _ = setGestureSingleExclusive - attrConstruct _ = constructGestureSingleExclusive - attrClear _ = undefined - --- VVV Prop "touch-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGestureSingleTouchOnly :: (MonadIO m, GestureSingleK o) => o -> m Bool -getGestureSingleTouchOnly obj = liftIO $ getObjectPropertyBool obj "touch-only" - -setGestureSingleTouchOnly :: (MonadIO m, GestureSingleK o) => o -> Bool -> m () -setGestureSingleTouchOnly obj val = liftIO $ setObjectPropertyBool obj "touch-only" val - -constructGestureSingleTouchOnly :: Bool -> IO ([Char], GValue) -constructGestureSingleTouchOnly val = constructObjectPropertyBool "touch-only" val - -data GestureSingleTouchOnlyPropertyInfo -instance AttrInfo GestureSingleTouchOnlyPropertyInfo where - type AttrAllowedOps GestureSingleTouchOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureSingleTouchOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GestureSingleTouchOnlyPropertyInfo = GestureSingleK - type AttrGetType GestureSingleTouchOnlyPropertyInfo = Bool - type AttrLabel GestureSingleTouchOnlyPropertyInfo = "touch-only" - attrGet _ = getGestureSingleTouchOnly - attrSet _ = setGestureSingleTouchOnly - attrConstruct _ = constructGestureSingleTouchOnly - attrClear _ = undefined - -type instance AttributeList GestureSingle = GestureSingleAttributeList -type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -gestureSingleButton :: AttrLabelProxy "button" -gestureSingleButton = AttrLabelProxy - -gestureSingleExclusive :: AttrLabelProxy "exclusive" -gestureSingleExclusive = AttrLabelProxy - -gestureSingleTouchOnly :: AttrLabelProxy "touchOnly" -gestureSingleTouchOnly = AttrLabelProxy - -type instance SignalList GestureSingle = GestureSingleSignalList -type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureSingle::get_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_single_get_button" gtk_gesture_single_get_button :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - IO Word32 - - -gestureSingleGetButton :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> m Word32 -- result -gestureSingleGetButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_button _obj' - touchManagedPtr _obj - return result - -data GestureSingleGetButtonMethodInfo -instance (signature ~ (m Word32), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetButtonMethodInfo a signature where - overloadedMethod _ = gestureSingleGetButton - --- method GestureSingle::get_current_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_single_get_current_button" gtk_gesture_single_get_current_button :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - IO Word32 - - -gestureSingleGetCurrentButton :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> m Word32 -- result -gestureSingleGetCurrentButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_current_button _obj' - touchManagedPtr _obj - return result - -data GestureSingleGetCurrentButtonMethodInfo -instance (signature ~ (m Word32), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentButtonMethodInfo a signature where - overloadedMethod _ = gestureSingleGetCurrentButton - --- method GestureSingle::get_current_sequence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventSequence") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_single_get_current_sequence" gtk_gesture_single_get_current_sequence :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - IO (Ptr Gdk.EventSequence) - - -gestureSingleGetCurrentSequence :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> m (Maybe Gdk.EventSequence) -- result -gestureSingleGetCurrentSequence _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_current_sequence _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Gdk.EventSequence) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data GestureSingleGetCurrentSequenceMethodInfo -instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where - overloadedMethod _ = gestureSingleGetCurrentSequence - --- method GestureSingle::get_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", 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 "gtk_gesture_single_get_exclusive" gtk_gesture_single_get_exclusive :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - IO CInt - - -gestureSingleGetExclusive :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> m Bool -- result -gestureSingleGetExclusive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_exclusive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GestureSingleGetExclusiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetExclusiveMethodInfo a signature where - overloadedMethod _ = gestureSingleGetExclusive - --- method GestureSingle::get_touch_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", 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 "gtk_gesture_single_get_touch_only" gtk_gesture_single_get_touch_only :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - IO CInt - - -gestureSingleGetTouchOnly :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> m Bool -- result -gestureSingleGetTouchOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_touch_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GestureSingleGetTouchOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetTouchOnlyMethodInfo a signature where - overloadedMethod _ = gestureSingleGetTouchOnly - --- method GestureSingle::set_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", 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 "gtk_gesture_single_set_button" gtk_gesture_single_set_button :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - Word32 -> -- button : TBasicType TUInt - IO () - - -gestureSingleSetButton :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> Word32 -- button - -> m () -- result -gestureSingleSetButton _obj button = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gesture_single_set_button _obj' button - touchManagedPtr _obj - return () - -data GestureSingleSetButtonMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetButtonMethodInfo a signature where - overloadedMethod _ = gestureSingleSetButton - --- method GestureSingle::set_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", 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 "gtk_gesture_single_set_exclusive" gtk_gesture_single_set_exclusive :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - CInt -> -- exclusive : TBasicType TBoolean - IO () - - -gestureSingleSetExclusive :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> Bool -- exclusive - -> m () -- result -gestureSingleSetExclusive _obj exclusive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let exclusive' = (fromIntegral . fromEnum) exclusive - gtk_gesture_single_set_exclusive _obj' exclusive' - touchManagedPtr _obj - return () - -data GestureSingleSetExclusiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetExclusiveMethodInfo a signature where - overloadedMethod _ = gestureSingleSetExclusive - --- method GestureSingle::set_touch_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "touch_only", 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 "gtk_gesture_single_set_touch_only" gtk_gesture_single_set_touch_only :: - Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - CInt -> -- touch_only : TBasicType TBoolean - IO () - - -gestureSingleSetTouchOnly :: - (MonadIO m, GestureSingleK a) => - a -- _obj - -> Bool -- touchOnly - -> m () -- result -gestureSingleSetTouchOnly _obj touchOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let touchOnly' = (fromIntegral . fromEnum) touchOnly - gtk_gesture_single_set_touch_only _obj' touchOnly' - touchManagedPtr _obj - return () - -data GestureSingleSetTouchOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetTouchOnlyMethodInfo a signature where - overloadedMethod _ = gestureSingleSetTouchOnly - - diff --git a/GI/Gtk/Objects/GestureSingle.hs-boot b/GI/Gtk/Objects/GestureSingle.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureSingle.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.GestureSingle 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 GestureSingle = GestureSingle (ForeignPtr GestureSingle) -instance GObject GestureSingle where -class GObject o => GestureSingleK o -instance (GObject o, IsDescendantOf GestureSingle o) => GestureSingleK o -data GestureSingleButtonPropertyInfo -data GestureSingleExclusivePropertyInfo -data GestureSingleTouchOnlyPropertyInfo -data GestureSingleGetButtonMethodInfo -data GestureSingleGetCurrentButtonMethodInfo -data GestureSingleGetCurrentSequenceMethodInfo -data GestureSingleGetExclusiveMethodInfo -data GestureSingleGetTouchOnlyMethodInfo -data GestureSingleSetButtonMethodInfo -data GestureSingleSetExclusiveMethodInfo -data GestureSingleSetTouchOnlyMethodInfo diff --git a/GI/Gtk/Objects/GestureSwipe.hs b/GI/Gtk/Objects/GestureSwipe.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureSwipe.hs +++ /dev/null @@ -1,266 +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.Gtk.Objects.GestureSwipe - ( - --- * Exported types - GestureSwipe(..) , - GestureSwipeK , - toGestureSwipe , - noGestureSwipe , - - - -- * Methods --- ** gestureSwipeGetVelocity - GestureSwipeGetVelocityMethodInfo , - gestureSwipeGetVelocity , - - --- ** gestureSwipeNew - gestureSwipeNew , - - - - - -- * Signals --- ** Swipe - GestureSwipeSwipeCallback , - GestureSwipeSwipeCallbackC , - GestureSwipeSwipeSignalInfo , - afterGestureSwipeSwipe , - gestureSwipeSwipeCallbackWrapper , - gestureSwipeSwipeClosure , - mkGestureSwipeSwipeCallback , - noGestureSwipeSwipeCallback , - onGestureSwipeSwipe , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GestureSwipe = GestureSwipe (ForeignPtr GestureSwipe) -foreign import ccall "gtk_gesture_swipe_get_type" - c_gtk_gesture_swipe_get_type :: IO GType - -type instance ParentTypes GestureSwipe = GestureSwipeParentTypes -type GestureSwipeParentTypes = '[GestureSingle, Gesture, EventController, GObject.Object] - -instance GObject GestureSwipe where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_swipe_get_type - - -class GObject o => GestureSwipeK o -instance (GObject o, IsDescendantOf GestureSwipe o) => GestureSwipeK o - -toGestureSwipe :: GestureSwipeK o => o -> IO GestureSwipe -toGestureSwipe = unsafeCastTo GestureSwipe - -noGestureSwipe :: Maybe GestureSwipe -noGestureSwipe = Nothing - -type family ResolveGestureSwipeMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureSwipeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureSwipeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureSwipeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureSwipeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureSwipeMethod "group" o = GestureGroupMethodInfo - ResolveGestureSwipeMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureSwipeMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureSwipeMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureSwipeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureSwipeMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureSwipeMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureSwipeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureSwipeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureSwipeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureSwipeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureSwipeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureSwipeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureSwipeMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureSwipeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureSwipeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureSwipeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureSwipeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureSwipeMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureSwipeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureSwipeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureSwipeMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureSwipeMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureSwipeMethod "getButton" o = GestureSingleGetButtonMethodInfo - ResolveGestureSwipeMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo - ResolveGestureSwipeMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo - ResolveGestureSwipeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureSwipeMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureSwipeMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo - ResolveGestureSwipeMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureSwipeMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureSwipeMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureSwipeMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureSwipeMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureSwipeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureSwipeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureSwipeMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureSwipeMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureSwipeMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo - ResolveGestureSwipeMethod "getVelocity" o = GestureSwipeGetVelocityMethodInfo - ResolveGestureSwipeMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureSwipeMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureSwipeMethod "setButton" o = GestureSingleSetButtonMethodInfo - ResolveGestureSwipeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureSwipeMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo - ResolveGestureSwipeMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureSwipeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureSwipeMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureSwipeMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureSwipeMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo - ResolveGestureSwipeMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureSwipeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureSwipeMethod t GestureSwipe, MethodInfo info GestureSwipe p) => IsLabelProxy t (GestureSwipe -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureSwipeMethod t GestureSwipe, MethodInfo info GestureSwipe p) => IsLabel t (GestureSwipe -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureSwipe::swipe -type GestureSwipeSwipeCallback = - Double -> - Double -> - IO () - -noGestureSwipeSwipeCallback :: Maybe GestureSwipeSwipeCallback -noGestureSwipeSwipeCallback = Nothing - -type GestureSwipeSwipeCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureSwipeSwipeCallback :: GestureSwipeSwipeCallbackC -> IO (FunPtr GestureSwipeSwipeCallbackC) - -gestureSwipeSwipeClosure :: GestureSwipeSwipeCallback -> IO Closure -gestureSwipeSwipeClosure cb = newCClosure =<< mkGestureSwipeSwipeCallback wrapped - where wrapped = gestureSwipeSwipeCallbackWrapper cb - -gestureSwipeSwipeCallbackWrapper :: - GestureSwipeSwipeCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO () -gestureSwipeSwipeCallbackWrapper _cb _ velocityX velocityY _ = do - let velocityX' = realToFrac velocityX - let velocityY' = realToFrac velocityY - _cb velocityX' velocityY' - -onGestureSwipeSwipe :: (GObject a, MonadIO m) => a -> GestureSwipeSwipeCallback -> m SignalHandlerId -onGestureSwipeSwipe obj cb = liftIO $ connectGestureSwipeSwipe obj cb SignalConnectBefore -afterGestureSwipeSwipe :: (GObject a, MonadIO m) => a -> GestureSwipeSwipeCallback -> m SignalHandlerId -afterGestureSwipeSwipe obj cb = connectGestureSwipeSwipe obj cb SignalConnectAfter - -connectGestureSwipeSwipe :: (GObject a, MonadIO m) => - a -> GestureSwipeSwipeCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureSwipeSwipe obj cb after = liftIO $ do - cb' <- mkGestureSwipeSwipeCallback (gestureSwipeSwipeCallbackWrapper cb) - connectSignalFunPtr obj "swipe" cb' after - -type instance AttributeList GestureSwipe = GestureSwipeAttributeList -type GestureSwipeAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GestureSwipeSwipeSignalInfo -instance SignalInfo GestureSwipeSwipeSignalInfo where - type HaskellCallbackType GestureSwipeSwipeSignalInfo = GestureSwipeSwipeCallback - connectSignal _ = connectGestureSwipeSwipe - -type instance SignalList GestureSwipe = GestureSwipeSignalList -type GestureSwipeSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("swipe", GestureSwipeSwipeSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureSwipe::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureSwipe") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_swipe_new" gtk_gesture_swipe_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureSwipe) - - -gestureSwipeNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureSwipe -- result -gestureSwipeNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_swipe_new widget' - checkUnexpectedReturnNULL "gtk_gesture_swipe_new" result - result' <- (wrapObject GestureSwipe) result - touchManagedPtr widget - return result' - --- method GestureSwipe::get_velocity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "velocity_y", argType = TBasicType TDouble, 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 "gtk_gesture_swipe_get_velocity" gtk_gesture_swipe_get_velocity :: - Ptr GestureSwipe -> -- _obj : TInterface "Gtk" "GestureSwipe" - Ptr CDouble -> -- velocity_x : TBasicType TDouble - Ptr CDouble -> -- velocity_y : TBasicType TDouble - IO CInt - - -gestureSwipeGetVelocity :: - (MonadIO m, GestureSwipeK a) => - a -- _obj - -> m (Bool,Double,Double) -- result -gestureSwipeGetVelocity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - velocityX <- allocMem :: IO (Ptr CDouble) - velocityY <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_swipe_get_velocity _obj' velocityX velocityY - let result' = (/= 0) result - velocityX' <- peek velocityX - let velocityX'' = realToFrac velocityX' - velocityY' <- peek velocityY - let velocityY'' = realToFrac velocityY' - touchManagedPtr _obj - freeMem velocityX - freeMem velocityY - return (result', velocityX'', velocityY'') - -data GestureSwipeGetVelocityMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureSwipeK a) => MethodInfo GestureSwipeGetVelocityMethodInfo a signature where - overloadedMethod _ = gestureSwipeGetVelocity - - diff --git a/GI/Gtk/Objects/GestureSwipe.hs-boot b/GI/Gtk/Objects/GestureSwipe.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureSwipe.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.GestureSwipe 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 GestureSwipe = GestureSwipe (ForeignPtr GestureSwipe) -instance GObject GestureSwipe where -class GObject o => GestureSwipeK o -instance (GObject o, IsDescendantOf GestureSwipe o) => GestureSwipeK o -data GestureSwipeSwipeSignalInfo -data GestureSwipeGetVelocityMethodInfo diff --git a/GI/Gtk/Objects/GestureZoom.hs b/GI/Gtk/Objects/GestureZoom.hs deleted file mode 100644 --- a/GI/Gtk/Objects/GestureZoom.hs +++ /dev/null @@ -1,244 +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.Gtk.Objects.GestureZoom - ( - --- * Exported types - GestureZoom(..) , - GestureZoomK , - toGestureZoom , - noGestureZoom , - - - -- * Methods --- ** gestureZoomGetScaleDelta - GestureZoomGetScaleDeltaMethodInfo , - gestureZoomGetScaleDelta , - - --- ** gestureZoomNew - gestureZoomNew , - - - - - -- * Signals --- ** ScaleChanged - GestureZoomScaleChangedCallback , - GestureZoomScaleChangedCallbackC , - GestureZoomScaleChangedSignalInfo , - afterGestureZoomScaleChanged , - gestureZoomScaleChangedCallbackWrapper , - gestureZoomScaleChangedClosure , - mkGestureZoomScaleChangedCallback , - noGestureZoomScaleChangedCallback , - onGestureZoomScaleChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype GestureZoom = GestureZoom (ForeignPtr GestureZoom) -foreign import ccall "gtk_gesture_zoom_get_type" - c_gtk_gesture_zoom_get_type :: IO GType - -type instance ParentTypes GestureZoom = GestureZoomParentTypes -type GestureZoomParentTypes = '[Gesture, EventController, GObject.Object] - -instance GObject GestureZoom where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_gesture_zoom_get_type - - -class GObject o => GestureZoomK o -instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o - -toGestureZoom :: GestureZoomK o => o -> IO GestureZoom -toGestureZoom = unsafeCastTo GestureZoom - -noGestureZoom :: Maybe GestureZoom -noGestureZoom = Nothing - -type family ResolveGestureZoomMethod (t :: Symbol) (o :: *) :: * where - ResolveGestureZoomMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGestureZoomMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGestureZoomMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGestureZoomMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGestureZoomMethod "group" o = GestureGroupMethodInfo - ResolveGestureZoomMethod "handleEvent" o = EventControllerHandleEventMethodInfo - ResolveGestureZoomMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo - ResolveGestureZoomMethod "isActive" o = GestureIsActiveMethodInfo - ResolveGestureZoomMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGestureZoomMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo - ResolveGestureZoomMethod "isRecognized" o = GestureIsRecognizedMethodInfo - ResolveGestureZoomMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGestureZoomMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGestureZoomMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGestureZoomMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGestureZoomMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGestureZoomMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGestureZoomMethod "reset" o = EventControllerResetMethodInfo - ResolveGestureZoomMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGestureZoomMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGestureZoomMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGestureZoomMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGestureZoomMethod "ungroup" o = GestureUngroupMethodInfo - ResolveGestureZoomMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGestureZoomMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGestureZoomMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo - ResolveGestureZoomMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo - ResolveGestureZoomMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGestureZoomMethod "getDevice" o = GestureGetDeviceMethodInfo - ResolveGestureZoomMethod "getGroup" o = GestureGetGroupMethodInfo - ResolveGestureZoomMethod "getLastEvent" o = GestureGetLastEventMethodInfo - ResolveGestureZoomMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo - ResolveGestureZoomMethod "getPoint" o = GestureGetPointMethodInfo - ResolveGestureZoomMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo - ResolveGestureZoomMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGestureZoomMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGestureZoomMethod "getScaleDelta" o = GestureZoomGetScaleDeltaMethodInfo - ResolveGestureZoomMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo - ResolveGestureZoomMethod "getSequences" o = GestureGetSequencesMethodInfo - ResolveGestureZoomMethod "getWidget" o = EventControllerGetWidgetMethodInfo - ResolveGestureZoomMethod "getWindow" o = GestureGetWindowMethodInfo - ResolveGestureZoomMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGestureZoomMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo - ResolveGestureZoomMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGestureZoomMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo - ResolveGestureZoomMethod "setState" o = GestureSetStateMethodInfo - ResolveGestureZoomMethod "setWindow" o = GestureSetWindowMethodInfo - ResolveGestureZoomMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGestureZoomMethod t GestureZoom, MethodInfo info GestureZoom p) => IsLabelProxy t (GestureZoom -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGestureZoomMethod t GestureZoom, MethodInfo info GestureZoom p) => IsLabel t (GestureZoom -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal GestureZoom::scale-changed -type GestureZoomScaleChangedCallback = - Double -> - IO () - -noGestureZoomScaleChangedCallback :: Maybe GestureZoomScaleChangedCallback -noGestureZoomScaleChangedCallback = Nothing - -type GestureZoomScaleChangedCallbackC = - Ptr () -> -- object - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkGestureZoomScaleChangedCallback :: GestureZoomScaleChangedCallbackC -> IO (FunPtr GestureZoomScaleChangedCallbackC) - -gestureZoomScaleChangedClosure :: GestureZoomScaleChangedCallback -> IO Closure -gestureZoomScaleChangedClosure cb = newCClosure =<< mkGestureZoomScaleChangedCallback wrapped - where wrapped = gestureZoomScaleChangedCallbackWrapper cb - -gestureZoomScaleChangedCallbackWrapper :: - GestureZoomScaleChangedCallback -> - Ptr () -> - CDouble -> - Ptr () -> - IO () -gestureZoomScaleChangedCallbackWrapper _cb _ scale _ = do - let scale' = realToFrac scale - _cb scale' - -onGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId -onGestureZoomScaleChanged obj cb = liftIO $ connectGestureZoomScaleChanged obj cb SignalConnectBefore -afterGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId -afterGestureZoomScaleChanged obj cb = connectGestureZoomScaleChanged obj cb SignalConnectAfter - -connectGestureZoomScaleChanged :: (GObject a, MonadIO m) => - a -> GestureZoomScaleChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectGestureZoomScaleChanged obj cb after = liftIO $ do - cb' <- mkGestureZoomScaleChangedCallback (gestureZoomScaleChangedCallbackWrapper cb) - connectSignalFunPtr obj "scale-changed" cb' after - -type instance AttributeList GestureZoom = GestureZoomAttributeList -type GestureZoomAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GestureZoomScaleChangedSignalInfo -instance SignalInfo GestureZoomScaleChangedSignalInfo where - type HaskellCallbackType GestureZoomScaleChangedSignalInfo = GestureZoomScaleChangedCallback - connectSignal _ = connectGestureZoomScaleChanged - -type instance SignalList GestureZoom = GestureZoomSignalList -type GestureZoomSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("scaleChanged", GestureZoomScaleChangedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) - --- method GestureZoom::new --- method type : Constructor --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "GestureZoom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gesture_zoom_new" gtk_gesture_zoom_new :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr GestureZoom) - - -gestureZoomNew :: - (MonadIO m, WidgetK a) => - a -- widget - -> m GestureZoom -- result -gestureZoomNew widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_gesture_zoom_new widget' - checkUnexpectedReturnNULL "gtk_gesture_zoom_new" result - result' <- (wrapObject GestureZoom) result - touchManagedPtr widget - return result' - --- method GestureZoom::get_scale_delta --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureZoom", 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 "gtk_gesture_zoom_get_scale_delta" gtk_gesture_zoom_get_scale_delta :: - Ptr GestureZoom -> -- _obj : TInterface "Gtk" "GestureZoom" - IO CDouble - - -gestureZoomGetScaleDelta :: - (MonadIO m, GestureZoomK a) => - a -- _obj - -> m Double -- result -gestureZoomGetScaleDelta _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_zoom_get_scale_delta _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data GestureZoomGetScaleDeltaMethodInfo -instance (signature ~ (m Double), MonadIO m, GestureZoomK a) => MethodInfo GestureZoomGetScaleDeltaMethodInfo a signature where - overloadedMethod _ = gestureZoomGetScaleDelta - - diff --git a/GI/Gtk/Objects/GestureZoom.hs-boot b/GI/Gtk/Objects/GestureZoom.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/GestureZoom.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.GestureZoom 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 GestureZoom = GestureZoom (ForeignPtr GestureZoom) -instance GObject GestureZoom where -class GObject o => GestureZoomK o -instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o -data GestureZoomScaleChangedSignalInfo -data GestureZoomGetScaleDeltaMethodInfo diff --git a/GI/Gtk/Objects/Grid.hs b/GI/Gtk/Objects/Grid.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Grid.hs +++ /dev/null @@ -1,1335 +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.Gtk.Objects.Grid - ( - --- * Exported types - Grid(..) , - GridK , - toGrid , - noGrid , - - - -- * Methods --- ** gridAttach - GridAttachMethodInfo , - gridAttach , - - --- ** gridAttachNextTo - GridAttachNextToMethodInfo , - gridAttachNextTo , - - --- ** gridGetBaselineRow - GridGetBaselineRowMethodInfo , - gridGetBaselineRow , - - --- ** gridGetChildAt - GridGetChildAtMethodInfo , - gridGetChildAt , - - --- ** gridGetColumnHomogeneous - GridGetColumnHomogeneousMethodInfo , - gridGetColumnHomogeneous , - - --- ** gridGetColumnSpacing - GridGetColumnSpacingMethodInfo , - gridGetColumnSpacing , - - --- ** gridGetRowBaselinePosition - GridGetRowBaselinePositionMethodInfo , - gridGetRowBaselinePosition , - - --- ** gridGetRowHomogeneous - GridGetRowHomogeneousMethodInfo , - gridGetRowHomogeneous , - - --- ** gridGetRowSpacing - GridGetRowSpacingMethodInfo , - gridGetRowSpacing , - - --- ** gridInsertColumn - GridInsertColumnMethodInfo , - gridInsertColumn , - - --- ** gridInsertNextTo - GridInsertNextToMethodInfo , - gridInsertNextTo , - - --- ** gridInsertRow - GridInsertRowMethodInfo , - gridInsertRow , - - --- ** gridNew - gridNew , - - --- ** gridRemoveColumn - GridRemoveColumnMethodInfo , - gridRemoveColumn , - - --- ** gridRemoveRow - GridRemoveRowMethodInfo , - gridRemoveRow , - - --- ** gridSetBaselineRow - GridSetBaselineRowMethodInfo , - gridSetBaselineRow , - - --- ** gridSetColumnHomogeneous - GridSetColumnHomogeneousMethodInfo , - gridSetColumnHomogeneous , - - --- ** gridSetColumnSpacing - GridSetColumnSpacingMethodInfo , - gridSetColumnSpacing , - - --- ** gridSetRowBaselinePosition - GridSetRowBaselinePositionMethodInfo , - gridSetRowBaselinePosition , - - --- ** gridSetRowHomogeneous - GridSetRowHomogeneousMethodInfo , - gridSetRowHomogeneous , - - --- ** gridSetRowSpacing - GridSetRowSpacingMethodInfo , - gridSetRowSpacing , - - - - - -- * Properties --- ** BaselineRow - GridBaselineRowPropertyInfo , - constructGridBaselineRow , - getGridBaselineRow , - gridBaselineRow , - setGridBaselineRow , - - --- ** ColumnHomogeneous - GridColumnHomogeneousPropertyInfo , - constructGridColumnHomogeneous , - getGridColumnHomogeneous , - gridColumnHomogeneous , - setGridColumnHomogeneous , - - --- ** ColumnSpacing - GridColumnSpacingPropertyInfo , - constructGridColumnSpacing , - getGridColumnSpacing , - gridColumnSpacing , - setGridColumnSpacing , - - --- ** RowHomogeneous - GridRowHomogeneousPropertyInfo , - constructGridRowHomogeneous , - getGridRowHomogeneous , - gridRowHomogeneous , - setGridRowHomogeneous , - - --- ** RowSpacing - GridRowSpacingPropertyInfo , - constructGridRowSpacing , - getGridRowSpacing , - gridRowSpacing , - setGridRowSpacing , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Grid = Grid (ForeignPtr Grid) -foreign import ccall "gtk_grid_get_type" - c_gtk_grid_get_type :: IO GType - -type instance ParentTypes Grid = GridParentTypes -type GridParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Grid where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_grid_get_type - - -class GObject o => GridK o -instance (GObject o, IsDescendantOf Grid o) => GridK o - -toGrid :: GridK o => o -> IO Grid -toGrid = unsafeCastTo Grid - -noGrid :: Maybe Grid -noGrid = Nothing - -type family ResolveGridMethod (t :: Symbol) (o :: *) :: * where - ResolveGridMethod "activate" o = WidgetActivateMethodInfo - ResolveGridMethod "add" o = ContainerAddMethodInfo - ResolveGridMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveGridMethod "addChild" o = BuildableAddChildMethodInfo - ResolveGridMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveGridMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveGridMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveGridMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveGridMethod "attach" o = GridAttachMethodInfo - ResolveGridMethod "attachNextTo" o = GridAttachNextToMethodInfo - ResolveGridMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGridMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGridMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveGridMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveGridMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveGridMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveGridMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveGridMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveGridMethod "childType" o = ContainerChildTypeMethodInfo - ResolveGridMethod "classPath" o = WidgetClassPathMethodInfo - ResolveGridMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveGridMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveGridMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveGridMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveGridMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveGridMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveGridMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveGridMethod "destroy" o = WidgetDestroyMethodInfo - ResolveGridMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveGridMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveGridMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveGridMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveGridMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveGridMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveGridMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveGridMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveGridMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveGridMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveGridMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveGridMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveGridMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveGridMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveGridMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveGridMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveGridMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveGridMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveGridMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveGridMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveGridMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveGridMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveGridMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveGridMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveGridMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveGridMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveGridMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveGridMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveGridMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveGridMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveGridMethod "draw" o = WidgetDrawMethodInfo - ResolveGridMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveGridMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveGridMethod "event" o = WidgetEventMethodInfo - ResolveGridMethod "forall" o = ContainerForallMethodInfo - ResolveGridMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGridMethod "foreach" o = ContainerForeachMethodInfo - ResolveGridMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveGridMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGridMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveGridMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveGridMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveGridMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveGridMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveGridMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveGridMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveGridMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveGridMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveGridMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveGridMethod "hide" o = WidgetHideMethodInfo - ResolveGridMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveGridMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveGridMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveGridMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveGridMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveGridMethod "insertColumn" o = GridInsertColumnMethodInfo - ResolveGridMethod "insertNextTo" o = GridInsertNextToMethodInfo - ResolveGridMethod "insertRow" o = GridInsertRowMethodInfo - ResolveGridMethod "intersect" o = WidgetIntersectMethodInfo - ResolveGridMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveGridMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveGridMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveGridMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGridMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveGridMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveGridMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveGridMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveGridMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveGridMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveGridMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveGridMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveGridMethod "map" o = WidgetMapMethodInfo - ResolveGridMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveGridMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveGridMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveGridMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveGridMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveGridMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveGridMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveGridMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveGridMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGridMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGridMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveGridMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveGridMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveGridMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveGridMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveGridMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveGridMethod "path" o = WidgetPathMethodInfo - ResolveGridMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveGridMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveGridMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveGridMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveGridMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveGridMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveGridMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveGridMethod "realize" o = WidgetRealizeMethodInfo - ResolveGridMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGridMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGridMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveGridMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveGridMethod "remove" o = ContainerRemoveMethodInfo - ResolveGridMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveGridMethod "removeColumn" o = GridRemoveColumnMethodInfo - ResolveGridMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveGridMethod "removeRow" o = GridRemoveRowMethodInfo - ResolveGridMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveGridMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveGridMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveGridMethod "reparent" o = WidgetReparentMethodInfo - ResolveGridMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGridMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGridMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveGridMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveGridMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveGridMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGridMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveGridMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveGridMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveGridMethod "show" o = WidgetShowMethodInfo - ResolveGridMethod "showAll" o = WidgetShowAllMethodInfo - ResolveGridMethod "showNow" o = WidgetShowNowMethodInfo - ResolveGridMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveGridMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveGridMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveGridMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGridMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGridMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveGridMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveGridMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveGridMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGridMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveGridMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveGridMethod "unmap" o = WidgetUnmapMethodInfo - ResolveGridMethod "unparent" o = WidgetUnparentMethodInfo - ResolveGridMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveGridMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGridMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveGridMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveGridMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveGridMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGridMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveGridMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveGridMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveGridMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveGridMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveGridMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveGridMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveGridMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveGridMethod "getBaselineRow" o = GridGetBaselineRowMethodInfo - ResolveGridMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveGridMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveGridMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveGridMethod "getChildAt" o = GridGetChildAtMethodInfo - ResolveGridMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveGridMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveGridMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveGridMethod "getClip" o = WidgetGetClipMethodInfo - ResolveGridMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveGridMethod "getColumnHomogeneous" o = GridGetColumnHomogeneousMethodInfo - ResolveGridMethod "getColumnSpacing" o = GridGetColumnSpacingMethodInfo - ResolveGridMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveGridMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGridMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveGridMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveGridMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveGridMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveGridMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveGridMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveGridMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveGridMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveGridMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveGridMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveGridMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveGridMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveGridMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveGridMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveGridMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveGridMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveGridMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveGridMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveGridMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveGridMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveGridMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveGridMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveGridMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveGridMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveGridMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveGridMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveGridMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveGridMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveGridMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveGridMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveGridMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveGridMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveGridMethod "getParent" o = WidgetGetParentMethodInfo - ResolveGridMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveGridMethod "getPath" o = WidgetGetPathMethodInfo - ResolveGridMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveGridMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveGridMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveGridMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveGridMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveGridMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveGridMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveGridMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveGridMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGridMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGridMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveGridMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveGridMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveGridMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveGridMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveGridMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveGridMethod "getRowBaselinePosition" o = GridGetRowBaselinePositionMethodInfo - ResolveGridMethod "getRowHomogeneous" o = GridGetRowHomogeneousMethodInfo - ResolveGridMethod "getRowSpacing" o = GridGetRowSpacingMethodInfo - ResolveGridMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveGridMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveGridMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveGridMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveGridMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveGridMethod "getState" o = WidgetGetStateMethodInfo - ResolveGridMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveGridMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveGridMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveGridMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveGridMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveGridMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveGridMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveGridMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveGridMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveGridMethod "getValign" o = WidgetGetValignMethodInfo - ResolveGridMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveGridMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveGridMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveGridMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveGridMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveGridMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveGridMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveGridMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveGridMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveGridMethod "setBaselineRow" o = GridSetBaselineRowMethodInfo - ResolveGridMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveGridMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveGridMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveGridMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveGridMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveGridMethod "setClip" o = WidgetSetClipMethodInfo - ResolveGridMethod "setColumnHomogeneous" o = GridSetColumnHomogeneousMethodInfo - ResolveGridMethod "setColumnSpacing" o = GridSetColumnSpacingMethodInfo - ResolveGridMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveGridMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGridMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveGridMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveGridMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveGridMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveGridMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveGridMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveGridMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveGridMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveGridMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveGridMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveGridMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveGridMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveGridMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveGridMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveGridMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveGridMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveGridMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveGridMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveGridMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveGridMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveGridMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveGridMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveGridMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveGridMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveGridMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveGridMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveGridMethod "setParent" o = WidgetSetParentMethodInfo - ResolveGridMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveGridMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGridMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveGridMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveGridMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveGridMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveGridMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveGridMethod "setRowBaselinePosition" o = GridSetRowBaselinePositionMethodInfo - ResolveGridMethod "setRowHomogeneous" o = GridSetRowHomogeneousMethodInfo - ResolveGridMethod "setRowSpacing" o = GridSetRowSpacingMethodInfo - ResolveGridMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveGridMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveGridMethod "setState" o = WidgetSetStateMethodInfo - ResolveGridMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveGridMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveGridMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveGridMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveGridMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveGridMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveGridMethod "setValign" o = WidgetSetValignMethodInfo - ResolveGridMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveGridMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveGridMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveGridMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveGridMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveGridMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGridMethod t Grid, MethodInfo info Grid p) => IsLabelProxy t (Grid -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGridMethod t Grid, MethodInfo info Grid p) => IsLabel t (Grid -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "baseline-row" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32 -getGridBaselineRow obj = liftIO $ getObjectPropertyInt32 obj "baseline-row" - -setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridBaselineRow obj val = liftIO $ setObjectPropertyInt32 obj "baseline-row" val - -constructGridBaselineRow :: Int32 -> IO ([Char], GValue) -constructGridBaselineRow val = constructObjectPropertyInt32 "baseline-row" val - -data GridBaselineRowPropertyInfo -instance AttrInfo GridBaselineRowPropertyInfo where - type AttrAllowedOps GridBaselineRowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GridBaselineRowPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint GridBaselineRowPropertyInfo = GridK - type AttrGetType GridBaselineRowPropertyInfo = Int32 - type AttrLabel GridBaselineRowPropertyInfo = "baseline-row" - attrGet _ = getGridBaselineRow - attrSet _ = setGridBaselineRow - attrConstruct _ = constructGridBaselineRow - attrClear _ = undefined - --- VVV Prop "column-homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> m Bool -getGridColumnHomogeneous obj = liftIO $ getObjectPropertyBool obj "column-homogeneous" - -setGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> Bool -> m () -setGridColumnHomogeneous obj val = liftIO $ setObjectPropertyBool obj "column-homogeneous" val - -constructGridColumnHomogeneous :: Bool -> IO ([Char], GValue) -constructGridColumnHomogeneous val = constructObjectPropertyBool "column-homogeneous" val - -data GridColumnHomogeneousPropertyInfo -instance AttrInfo GridColumnHomogeneousPropertyInfo where - type AttrAllowedOps GridColumnHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GridColumnHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GridColumnHomogeneousPropertyInfo = GridK - type AttrGetType GridColumnHomogeneousPropertyInfo = Bool - type AttrLabel GridColumnHomogeneousPropertyInfo = "column-homogeneous" - attrGet _ = getGridColumnHomogeneous - attrSet _ = setGridColumnHomogeneous - attrConstruct _ = constructGridColumnHomogeneous - attrClear _ = undefined - --- VVV Prop "column-spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" - -setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val - -constructGridColumnSpacing :: Int32 -> IO ([Char], GValue) -constructGridColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val - -data GridColumnSpacingPropertyInfo -instance AttrInfo GridColumnSpacingPropertyInfo where - type AttrAllowedOps GridColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GridColumnSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint GridColumnSpacingPropertyInfo = GridK - type AttrGetType GridColumnSpacingPropertyInfo = Int32 - type AttrLabel GridColumnSpacingPropertyInfo = "column-spacing" - attrGet _ = getGridColumnSpacing - attrSet _ = setGridColumnSpacing - attrConstruct _ = constructGridColumnSpacing - attrClear _ = undefined - --- VVV Prop "row-homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getGridRowHomogeneous :: (MonadIO m, GridK o) => o -> m Bool -getGridRowHomogeneous obj = liftIO $ getObjectPropertyBool obj "row-homogeneous" - -setGridRowHomogeneous :: (MonadIO m, GridK o) => o -> Bool -> m () -setGridRowHomogeneous obj val = liftIO $ setObjectPropertyBool obj "row-homogeneous" val - -constructGridRowHomogeneous :: Bool -> IO ([Char], GValue) -constructGridRowHomogeneous val = constructObjectPropertyBool "row-homogeneous" val - -data GridRowHomogeneousPropertyInfo -instance AttrInfo GridRowHomogeneousPropertyInfo where - type AttrAllowedOps GridRowHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GridRowHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint GridRowHomogeneousPropertyInfo = GridK - type AttrGetType GridRowHomogeneousPropertyInfo = Bool - type AttrLabel GridRowHomogeneousPropertyInfo = "row-homogeneous" - attrGet _ = getGridRowHomogeneous - attrSet _ = setGridRowHomogeneous - attrConstruct _ = constructGridRowHomogeneous - attrClear _ = undefined - --- VVV Prop "row-spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" - -setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val - -constructGridRowSpacing :: Int32 -> IO ([Char], GValue) -constructGridRowSpacing val = constructObjectPropertyInt32 "row-spacing" val - -data GridRowSpacingPropertyInfo -instance AttrInfo GridRowSpacingPropertyInfo where - type AttrAllowedOps GridRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GridRowSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint GridRowSpacingPropertyInfo = GridK - type AttrGetType GridRowSpacingPropertyInfo = Int32 - type AttrLabel GridRowSpacingPropertyInfo = "row-spacing" - attrGet _ = getGridRowSpacing - attrSet _ = setGridRowSpacing - attrConstruct _ = constructGridRowSpacing - attrClear _ = undefined - -type instance AttributeList Grid = GridAttributeList -type GridAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselineRow", GridBaselineRowPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowHomogeneous", GridRowHomogeneousPropertyInfo), '("rowSpacing", GridRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -gridBaselineRow :: AttrLabelProxy "baselineRow" -gridBaselineRow = AttrLabelProxy - -gridColumnHomogeneous :: AttrLabelProxy "columnHomogeneous" -gridColumnHomogeneous = AttrLabelProxy - -gridColumnSpacing :: AttrLabelProxy "columnSpacing" -gridColumnSpacing = AttrLabelProxy - -gridRowHomogeneous :: AttrLabelProxy "rowHomogeneous" -gridRowHomogeneous = AttrLabelProxy - -gridRowSpacing :: AttrLabelProxy "rowSpacing" -gridRowSpacing = AttrLabelProxy - -type instance SignalList Grid = GridSignalList -type GridSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Grid::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Grid") --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_new" gtk_grid_new :: - IO (Ptr Grid) - - -gridNew :: - (MonadIO m) => - m Grid -- result -gridNew = liftIO $ do - result <- gtk_grid_new - checkUnexpectedReturnNULL "gtk_grid_new" result - result' <- (newObject Grid) result - return result' - --- method Grid::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_attach" gtk_grid_attach :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- left : TBasicType TInt - Int32 -> -- top : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -gridAttach :: - (MonadIO m, GridK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- left - -> Int32 -- top - -> Int32 -- width - -> Int32 -- height - -> m () -- result -gridAttach _obj child left top width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_grid_attach _obj' child' left top width height - touchManagedPtr _obj - touchManagedPtr child - return () - -data GridAttachMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, GridK a, WidgetK b) => MethodInfo GridAttachMethodInfo a signature where - overloadedMethod _ = gridAttach - --- method Grid::attach_next_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", 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 "gtk_grid_attach_next_to" gtk_grid_attach_next_to :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- sibling : TInterface "Gtk" "Widget" - CUInt -> -- side : TInterface "Gtk" "PositionType" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -gridAttachNextTo :: - (MonadIO m, GridK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- sibling - -> PositionType -- side - -> Int32 -- width - -> Int32 -- height - -> m () -- result -gridAttachNextTo _obj child sibling side width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrCastPtr jSibling - return jSibling' - let side' = (fromIntegral . fromEnum) side - gtk_grid_attach_next_to _obj' child' maybeSibling side' width height - touchManagedPtr _obj - touchManagedPtr child - whenJust sibling touchManagedPtr - return () - -data GridAttachNextToMethodInfo -instance (signature ~ (b -> Maybe (c) -> PositionType -> Int32 -> Int32 -> m ()), MonadIO m, GridK a, WidgetK b, WidgetK c) => MethodInfo GridAttachNextToMethodInfo a signature where - overloadedMethod _ = gridAttachNextTo - --- method Grid::get_baseline_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_get_baseline_row" gtk_grid_get_baseline_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - IO Int32 - - -gridGetBaselineRow :: - (MonadIO m, GridK a) => - a -- _obj - -> m Int32 -- result -gridGetBaselineRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_baseline_row _obj' - touchManagedPtr _obj - return result - -data GridGetBaselineRowMethodInfo -instance (signature ~ (m Int32), MonadIO m, GridK a) => MethodInfo GridGetBaselineRowMethodInfo a signature where - overloadedMethod _ = gridGetBaselineRow - --- method Grid::get_child_at --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- left : TBasicType TInt - Int32 -> -- top : TBasicType TInt - IO (Ptr Widget) - - -gridGetChildAt :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- left - -> Int32 -- top - -> m (Maybe Widget) -- result -gridGetChildAt _obj left top = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_child_at _obj' left top - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data GridGetChildAtMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Maybe Widget)), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where - overloadedMethod _ = gridGetChildAt - --- method Grid::get_column_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_get_column_homogeneous" gtk_grid_get_column_homogeneous :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - IO CInt - - -gridGetColumnHomogeneous :: - (MonadIO m, GridK a) => - a -- _obj - -> m Bool -- result -gridGetColumnHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_column_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GridGetColumnHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, GridK a) => MethodInfo GridGetColumnHomogeneousMethodInfo a signature where - overloadedMethod _ = gridGetColumnHomogeneous - --- method Grid::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_get_column_spacing" gtk_grid_get_column_spacing :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - IO Word32 - - -gridGetColumnSpacing :: - (MonadIO m, GridK a) => - a -- _obj - -> m Word32 -- result -gridGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_column_spacing _obj' - touchManagedPtr _obj - return result - -data GridGetColumnSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, GridK a) => MethodInfo GridGetColumnSpacingMethodInfo a signature where - overloadedMethod _ = gridGetColumnSpacing - --- method Grid::get_row_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "Gtk" "BaselinePosition") --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt - IO CUInt - - -gridGetRowBaselinePosition :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- row - -> m BaselinePosition -- result -gridGetRowBaselinePosition _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_row_baseline_position _obj' row - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data GridGetRowBaselinePositionMethodInfo -instance (signature ~ (Int32 -> m BaselinePosition), MonadIO m, GridK a) => MethodInfo GridGetRowBaselinePositionMethodInfo a signature where - overloadedMethod _ = gridGetRowBaselinePosition - --- method Grid::get_row_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_get_row_homogeneous" gtk_grid_get_row_homogeneous :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - IO CInt - - -gridGetRowHomogeneous :: - (MonadIO m, GridK a) => - a -- _obj - -> m Bool -- result -gridGetRowHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_row_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GridGetRowHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, GridK a) => MethodInfo GridGetRowHomogeneousMethodInfo a signature where - overloadedMethod _ = gridGetRowHomogeneous - --- method Grid::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_get_row_spacing" gtk_grid_get_row_spacing :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - IO Word32 - - -gridGetRowSpacing :: - (MonadIO m, GridK a) => - a -- _obj - -> m Word32 -- result -gridGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_row_spacing _obj' - touchManagedPtr _obj - return result - -data GridGetRowSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, GridK a) => MethodInfo GridGetRowSpacingMethodInfo a signature where - overloadedMethod _ = gridGetRowSpacing - --- method Grid::insert_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_insert_column" gtk_grid_insert_column :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt - IO () - - -gridInsertColumn :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -gridInsertColumn _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_insert_column _obj' position - touchManagedPtr _obj - return () - -data GridInsertColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridInsertColumnMethodInfo a signature where - overloadedMethod _ = gridInsertColumn - --- method Grid::insert_next_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", 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 "gtk_grid_insert_next_to" gtk_grid_insert_next_to :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Ptr Widget -> -- sibling : TInterface "Gtk" "Widget" - CUInt -> -- side : TInterface "Gtk" "PositionType" - IO () - - -gridInsertNextTo :: - (MonadIO m, GridK a, WidgetK b) => - a -- _obj - -> b -- sibling - -> PositionType -- side - -> m () -- result -gridInsertNextTo _obj sibling side = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sibling' = unsafeManagedPtrCastPtr sibling - let side' = (fromIntegral . fromEnum) side - gtk_grid_insert_next_to _obj' sibling' side' - touchManagedPtr _obj - touchManagedPtr sibling - return () - -data GridInsertNextToMethodInfo -instance (signature ~ (b -> PositionType -> m ()), MonadIO m, GridK a, WidgetK b) => MethodInfo GridInsertNextToMethodInfo a signature where - overloadedMethod _ = gridInsertNextTo - --- method Grid::insert_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_insert_row" gtk_grid_insert_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt - IO () - - -gridInsertRow :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -gridInsertRow _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_insert_row _obj' position - touchManagedPtr _obj - return () - -data GridInsertRowMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridInsertRowMethodInfo a signature where - overloadedMethod _ = gridInsertRow - --- method Grid::remove_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_remove_column" gtk_grid_remove_column :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt - IO () - - -gridRemoveColumn :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -gridRemoveColumn _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_remove_column _obj' position - touchManagedPtr _obj - return () - -data GridRemoveColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridRemoveColumnMethodInfo a signature where - overloadedMethod _ = gridRemoveColumn - --- method Grid::remove_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 "gtk_grid_remove_row" gtk_grid_remove_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt - IO () - - -gridRemoveRow :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -gridRemoveRow _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_remove_row _obj' position - touchManagedPtr _obj - return () - -data GridRemoveRowMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridRemoveRowMethodInfo a signature where - overloadedMethod _ = gridRemoveRow - --- method Grid::set_baseline_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt - IO () - - -gridSetBaselineRow :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- row - -> m () -- result -gridSetBaselineRow _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_baseline_row _obj' row - touchManagedPtr _obj - return () - -data GridSetBaselineRowMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetBaselineRowMethodInfo a signature where - overloadedMethod _ = gridSetBaselineRow - --- method Grid::set_column_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_grid_set_column_homogeneous" gtk_grid_set_column_homogeneous :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -gridSetColumnHomogeneous :: - (MonadIO m, GridK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -gridSetColumnHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_grid_set_column_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data GridSetColumnHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GridK a) => MethodInfo GridSetColumnHomogeneousMethodInfo a signature where - overloadedMethod _ = gridSetColumnHomogeneous - --- method Grid::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Word32 -> -- spacing : TBasicType TUInt - IO () - - -gridSetColumnSpacing :: - (MonadIO m, GridK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -gridSetColumnSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_column_spacing _obj' spacing - touchManagedPtr _obj - return () - -data GridSetColumnSpacingMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetColumnSpacingMethodInfo a signature where - overloadedMethod _ = gridSetColumnSpacing - --- method Grid::set_row_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 = "pos", argType = TInterface "Gtk" "BaselinePosition", 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 "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt - CUInt -> -- pos : TInterface "Gtk" "BaselinePosition" - IO () - - -gridSetRowBaselinePosition :: - (MonadIO m, GridK a) => - a -- _obj - -> Int32 -- row - -> BaselinePosition -- pos - -> m () -- result -gridSetRowBaselinePosition _obj row pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_grid_set_row_baseline_position _obj' row pos' - touchManagedPtr _obj - return () - -data GridSetRowBaselinePositionMethodInfo -instance (signature ~ (Int32 -> BaselinePosition -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowBaselinePositionMethodInfo a signature where - overloadedMethod _ = gridSetRowBaselinePosition - --- method Grid::set_row_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_grid_set_row_homogeneous" gtk_grid_set_row_homogeneous :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -gridSetRowHomogeneous :: - (MonadIO m, GridK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -gridSetRowHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_grid_set_row_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data GridSetRowHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowHomogeneousMethodInfo a signature where - overloadedMethod _ = gridSetRowHomogeneous - --- method Grid::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Word32 -> -- spacing : TBasicType TUInt - IO () - - -gridSetRowSpacing :: - (MonadIO m, GridK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -gridSetRowSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_row_spacing _obj' spacing - touchManagedPtr _obj - return () - -data GridSetRowSpacingMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowSpacingMethodInfo a signature where - overloadedMethod _ = gridSetRowSpacing - - diff --git a/GI/Gtk/Objects/Grid.hs-boot b/GI/Gtk/Objects/Grid.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Grid.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gtk.Objects.Grid 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 Grid = Grid (ForeignPtr Grid) -instance GObject Grid where -class GObject o => GridK o -instance (GObject o, IsDescendantOf Grid o) => GridK o -data GridBaselineRowPropertyInfo -data GridColumnHomogeneousPropertyInfo -data GridColumnSpacingPropertyInfo -data GridRowHomogeneousPropertyInfo -data GridRowSpacingPropertyInfo -data GridAttachMethodInfo -data GridAttachNextToMethodInfo -data GridGetBaselineRowMethodInfo -data GridGetChildAtMethodInfo -data GridGetColumnHomogeneousMethodInfo -data GridGetColumnSpacingMethodInfo -data GridGetRowBaselinePositionMethodInfo -data GridGetRowHomogeneousMethodInfo -data GridGetRowSpacingMethodInfo -data GridInsertColumnMethodInfo -data GridInsertNextToMethodInfo -data GridInsertRowMethodInfo -data GridRemoveColumnMethodInfo -data GridRemoveRowMethodInfo -data GridSetBaselineRowMethodInfo -data GridSetColumnHomogeneousMethodInfo -data GridSetColumnSpacingMethodInfo -data GridSetRowBaselinePositionMethodInfo -data GridSetRowHomogeneousMethodInfo -data GridSetRowSpacingMethodInfo diff --git a/GI/Gtk/Objects/HBox.hs b/GI/Gtk/Objects/HBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HBox.hs +++ /dev/null @@ -1,430 +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.Gtk.Objects.HBox - ( - --- * Exported types - HBox(..) , - HBoxK , - toHBox , - noHBox , - - - -- * Methods --- ** hBoxNew - hBoxNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HBox = HBox (ForeignPtr HBox) -foreign import ccall "gtk_hbox_get_type" - c_gtk_hbox_get_type :: IO GType - -type instance ParentTypes HBox = HBoxParentTypes -type HBoxParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hbox_get_type - - -class GObject o => HBoxK o -instance (GObject o, IsDescendantOf HBox o) => HBoxK o - -toHBox :: HBoxK o => o -> IO HBox -toHBox = unsafeCastTo HBox - -noHBox :: Maybe HBox -noHBox = Nothing - -type family ResolveHBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveHBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveHBoxMethod "add" o = ContainerAddMethodInfo - ResolveHBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveHBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveHBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveHBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveHBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveHBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveHBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHBoxMethod "event" o = WidgetEventMethodInfo - ResolveHBoxMethod "forall" o = ContainerForallMethodInfo - ResolveHBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveHBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHBoxMethod "hide" o = WidgetHideMethodInfo - ResolveHBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHBoxMethod "map" o = WidgetMapMethodInfo - ResolveHBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveHBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveHBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHBoxMethod "path" o = WidgetPathMethodInfo - ResolveHBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveHBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveHBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveHBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveHBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveHBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveHBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveHBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHBoxMethod "show" o = WidgetShowMethodInfo - ResolveHBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveHBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveHBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveHBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveHBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveHBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveHBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveHBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveHBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveHBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveHBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveHBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveHBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveHBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveHBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveHBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveHBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveHBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveHBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveHBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveHBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveHBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveHBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveHBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveHBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveHBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveHBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveHBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHBoxMethod t HBox, MethodInfo info HBox p) => IsLabelProxy t (HBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHBoxMethod t HBox, MethodInfo info HBox p) => IsLabel t (HBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HBox = HBoxAttributeList -type HBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HBox = HBoxSignalList -type HBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HBox::new --- method type : Constructor --- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hbox_new" gtk_hbox_new :: - CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt - IO (Ptr HBox) - -{-# DEPRECATED hBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_HORIZONTAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} -hBoxNew :: - (MonadIO m) => - Bool -- homogeneous - -> Int32 -- spacing - -> m HBox -- result -hBoxNew homogeneous spacing = liftIO $ do - let homogeneous' = (fromIntegral . fromEnum) homogeneous - result <- gtk_hbox_new homogeneous' spacing - checkUnexpectedReturnNULL "gtk_hbox_new" result - result' <- (newObject HBox) result - return result' - - diff --git a/GI/Gtk/Objects/HBox.hs-boot b/GI/Gtk/Objects/HBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HBox.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HBox 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 HBox = HBox (ForeignPtr HBox) -instance GObject HBox where -class GObject o => HBoxK o -instance (GObject o, IsDescendantOf HBox o) => HBoxK o diff --git a/GI/Gtk/Objects/HButtonBox.hs b/GI/Gtk/Objects/HButtonBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HButtonBox.hs +++ /dev/null @@ -1,431 +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.Gtk.Objects.HButtonBox - ( - --- * Exported types - HButtonBox(..) , - HButtonBoxK , - toHButtonBox , - noHButtonBox , - - - -- * Methods --- ** hButtonBoxNew - hButtonBoxNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HButtonBox = HButtonBox (ForeignPtr HButtonBox) -foreign import ccall "gtk_hbutton_box_get_type" - c_gtk_hbutton_box_get_type :: IO GType - -type instance ParentTypes HButtonBox = HButtonBoxParentTypes -type HButtonBoxParentTypes = '[ButtonBox, Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HButtonBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hbutton_box_get_type - - -class GObject o => HButtonBoxK o -instance (GObject o, IsDescendantOf HButtonBox o) => HButtonBoxK o - -toHButtonBox :: HButtonBoxK o => o -> IO HButtonBox -toHButtonBox = unsafeCastTo HButtonBox - -noHButtonBox :: Maybe HButtonBox -noHButtonBox = Nothing - -type family ResolveHButtonBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveHButtonBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveHButtonBoxMethod "add" o = ContainerAddMethodInfo - ResolveHButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveHButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveHButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveHButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveHButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveHButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHButtonBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveHButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHButtonBoxMethod "event" o = WidgetEventMethodInfo - ResolveHButtonBoxMethod "forall" o = ContainerForallMethodInfo - ResolveHButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHButtonBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveHButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHButtonBoxMethod "hide" o = WidgetHideMethodInfo - ResolveHButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHButtonBoxMethod "map" o = WidgetMapMethodInfo - ResolveHButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveHButtonBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveHButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHButtonBoxMethod "path" o = WidgetPathMethodInfo - ResolveHButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveHButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveHButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHButtonBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveHButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHButtonBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveHButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveHButtonBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveHButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveHButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHButtonBoxMethod "show" o = WidgetShowMethodInfo - ResolveHButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveHButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveHButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveHButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveHButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo - ResolveHButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo - ResolveHButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveHButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveHButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveHButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveHButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveHButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveHButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo - ResolveHButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveHButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveHButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveHButtonBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveHButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveHButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveHButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveHButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo - ResolveHButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveHButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo - ResolveHButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveHButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveHButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveHButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveHButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveHButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo - ResolveHButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveHButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveHButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveHButtonBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveHButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHButtonBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHButtonBoxMethod t HButtonBox, MethodInfo info HButtonBox p) => IsLabelProxy t (HButtonBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHButtonBoxMethod t HButtonBox, MethodInfo info HButtonBox p) => IsLabel t (HButtonBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HButtonBox = HButtonBoxAttributeList -type HButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HButtonBox = HButtonBoxSignalList -type HButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HButtonBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HButtonBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hbutton_box_new" gtk_hbutton_box_new :: - IO (Ptr HButtonBox) - -{-# DEPRECATED hButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hButtonBoxNew :: - (MonadIO m) => - m HButtonBox -- result -hButtonBoxNew = liftIO $ do - result <- gtk_hbutton_box_new - checkUnexpectedReturnNULL "gtk_hbutton_box_new" result - result' <- (newObject HButtonBox) result - return result' - - diff --git a/GI/Gtk/Objects/HButtonBox.hs-boot b/GI/Gtk/Objects/HButtonBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HButtonBox.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HButtonBox 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 HButtonBox = HButtonBox (ForeignPtr HButtonBox) -instance GObject HButtonBox where -class GObject o => HButtonBoxK o -instance (GObject o, IsDescendantOf HButtonBox o) => HButtonBoxK o diff --git a/GI/Gtk/Objects/HPaned.hs b/GI/Gtk/Objects/HPaned.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HPaned.hs +++ /dev/null @@ -1,423 +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.Gtk.Objects.HPaned - ( - --- * Exported types - HPaned(..) , - HPanedK , - toHPaned , - noHPaned , - - - -- * Methods --- ** hPanedNew - hPanedNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HPaned = HPaned (ForeignPtr HPaned) -foreign import ccall "gtk_hpaned_get_type" - c_gtk_hpaned_get_type :: IO GType - -type instance ParentTypes HPaned = HPanedParentTypes -type HPanedParentTypes = '[Paned, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HPaned where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hpaned_get_type - - -class GObject o => HPanedK o -instance (GObject o, IsDescendantOf HPaned o) => HPanedK o - -toHPaned :: HPanedK o => o -> IO HPaned -toHPaned = unsafeCastTo HPaned - -noHPaned :: Maybe HPaned -noHPaned = Nothing - -type family ResolveHPanedMethod (t :: Symbol) (o :: *) :: * where - ResolveHPanedMethod "activate" o = WidgetActivateMethodInfo - ResolveHPanedMethod "add" o = ContainerAddMethodInfo - ResolveHPanedMethod "add1" o = PanedAdd1MethodInfo - ResolveHPanedMethod "add2" o = PanedAdd2MethodInfo - ResolveHPanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHPanedMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHPanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHPanedMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHPanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHPanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHPanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHPanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHPanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHPanedMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveHPanedMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHPanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveHPanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveHPanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveHPanedMethod "childType" o = ContainerChildTypeMethodInfo - ResolveHPanedMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHPanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHPanedMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHPanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHPanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHPanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHPanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHPanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHPanedMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHPanedMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHPanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHPanedMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHPanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHPanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHPanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHPanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHPanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHPanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHPanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHPanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHPanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHPanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHPanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHPanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHPanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHPanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHPanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHPanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHPanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHPanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHPanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHPanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHPanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHPanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHPanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHPanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHPanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHPanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHPanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHPanedMethod "draw" o = WidgetDrawMethodInfo - ResolveHPanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHPanedMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHPanedMethod "event" o = WidgetEventMethodInfo - ResolveHPanedMethod "forall" o = ContainerForallMethodInfo - ResolveHPanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHPanedMethod "foreach" o = ContainerForeachMethodInfo - ResolveHPanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHPanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHPanedMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHPanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHPanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHPanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHPanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHPanedMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHPanedMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHPanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHPanedMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHPanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHPanedMethod "hide" o = WidgetHideMethodInfo - ResolveHPanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHPanedMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHPanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHPanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHPanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHPanedMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHPanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHPanedMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHPanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHPanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHPanedMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHPanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHPanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHPanedMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHPanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHPanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHPanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHPanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHPanedMethod "map" o = WidgetMapMethodInfo - ResolveHPanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHPanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHPanedMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHPanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHPanedMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHPanedMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHPanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHPanedMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHPanedMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHPanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHPanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHPanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHPanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHPanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHPanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHPanedMethod "pack1" o = PanedPack1MethodInfo - ResolveHPanedMethod "pack2" o = PanedPack2MethodInfo - ResolveHPanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHPanedMethod "path" o = WidgetPathMethodInfo - ResolveHPanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveHPanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHPanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHPanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHPanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHPanedMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHPanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHPanedMethod "realize" o = WidgetRealizeMethodInfo - ResolveHPanedMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHPanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHPanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHPanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHPanedMethod "remove" o = ContainerRemoveMethodInfo - ResolveHPanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHPanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHPanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHPanedMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHPanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHPanedMethod "reparent" o = WidgetReparentMethodInfo - ResolveHPanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHPanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHPanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHPanedMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHPanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveHPanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHPanedMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHPanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHPanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHPanedMethod "show" o = WidgetShowMethodInfo - ResolveHPanedMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHPanedMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHPanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHPanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHPanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHPanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHPanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHPanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHPanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHPanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHPanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHPanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHPanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHPanedMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHPanedMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHPanedMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHPanedMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHPanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHPanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveHPanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHPanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHPanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHPanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHPanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHPanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHPanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHPanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHPanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHPanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHPanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveHPanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHPanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHPanedMethod "getChild1" o = PanedGetChild1MethodInfo - ResolveHPanedMethod "getChild2" o = PanedGetChild2MethodInfo - ResolveHPanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHPanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHPanedMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveHPanedMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHPanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHPanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHPanedMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHPanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHPanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHPanedMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHPanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHPanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHPanedMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHPanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveHPanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveHPanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveHPanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveHPanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHPanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHPanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHPanedMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHPanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo - ResolveHPanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHPanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHPanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHPanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHPanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHPanedMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHPanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHPanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHPanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHPanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHPanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHPanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHPanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHPanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHPanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHPanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHPanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHPanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHPanedMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHPanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHPanedMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHPanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveHPanedMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHPanedMethod "getPosition" o = PanedGetPositionMethodInfo - ResolveHPanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHPanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHPanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHPanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHPanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHPanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHPanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHPanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHPanedMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHPanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHPanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHPanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHPanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveHPanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHPanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHPanedMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHPanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHPanedMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHPanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHPanedMethod "getState" o = WidgetGetStateMethodInfo - ResolveHPanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHPanedMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHPanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHPanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHPanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHPanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHPanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHPanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHPanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHPanedMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHPanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHPanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHPanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHPanedMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHPanedMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHPanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo - ResolveHPanedMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHPanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHPanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHPanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHPanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveHPanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHPanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHPanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHPanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHPanedMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHPanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHPanedMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHPanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHPanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHPanedMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHPanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHPanedMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHPanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveHPanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveHPanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveHPanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveHPanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHPanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHPanedMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHPanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHPanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHPanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHPanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHPanedMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHPanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHPanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHPanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHPanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHPanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHPanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHPanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHPanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHPanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHPanedMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHPanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHPanedMethod "setPosition" o = PanedSetPositionMethodInfo - ResolveHPanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHPanedMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHPanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveHPanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHPanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHPanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveHPanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHPanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHPanedMethod "setState" o = WidgetSetStateMethodInfo - ResolveHPanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHPanedMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHPanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHPanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHPanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHPanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHPanedMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHPanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHPanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHPanedMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHPanedMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHPanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo - ResolveHPanedMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHPanedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHPanedMethod t HPaned, MethodInfo info HPaned p) => IsLabelProxy t (HPaned -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHPanedMethod t HPaned, MethodInfo info HPaned p) => IsLabel t (HPaned -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HPaned = HPanedAttributeList -type HPanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HPaned = HPanedSignalList -type HPanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HPaned::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HPaned") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hpaned_new" gtk_hpaned_new :: - IO (Ptr HPaned) - -{-# DEPRECATED hPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hPanedNew :: - (MonadIO m) => - m HPaned -- result -hPanedNew = liftIO $ do - result <- gtk_hpaned_new - checkUnexpectedReturnNULL "gtk_hpaned_new" result - result' <- (newObject HPaned) result - return result' - - diff --git a/GI/Gtk/Objects/HPaned.hs-boot b/GI/Gtk/Objects/HPaned.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HPaned.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HPaned 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 HPaned = HPaned (ForeignPtr HPaned) -instance GObject HPaned where -class GObject o => HPanedK o -instance (GObject o, IsDescendantOf HPaned o) => HPanedK o diff --git a/GI/Gtk/Objects/HSV.hs b/GI/Gtk/Objects/HSV.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HSV.hs +++ /dev/null @@ -1,750 +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.Gtk.Objects.HSV - ( - --- * Exported types - HSV(..) , - HSVK , - toHSV , - noHSV , - - - -- * Methods --- ** hSVGetColor - HSVGetColorMethodInfo , - hSVGetColor , - - --- ** hSVGetMetrics - HSVGetMetricsMethodInfo , - hSVGetMetrics , - - --- ** hSVIsAdjusting - HSVIsAdjustingMethodInfo , - hSVIsAdjusting , - - --- ** hSVNew - hSVNew , - - --- ** hSVSetColor - HSVSetColorMethodInfo , - hSVSetColor , - - --- ** hSVSetMetrics - HSVSetMetricsMethodInfo , - hSVSetMetrics , - - --- ** hSVToRgb - hSVToRgb , - - - - - -- * Signals --- ** Changed - HSVChangedCallback , - HSVChangedCallbackC , - HSVChangedSignalInfo , - afterHSVChanged , - hSVChangedCallbackWrapper , - hSVChangedClosure , - mkHSVChangedCallback , - noHSVChangedCallback , - onHSVChanged , - - --- ** Move - HSVMoveCallback , - HSVMoveCallbackC , - HSVMoveSignalInfo , - afterHSVMove , - hSVMoveCallbackWrapper , - hSVMoveClosure , - mkHSVMoveCallback , - noHSVMoveCallback , - onHSVMove , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HSV = HSV (ForeignPtr HSV) -foreign import ccall "gtk_hsv_get_type" - c_gtk_hsv_get_type :: IO GType - -type instance ParentTypes HSV = HSVParentTypes -type HSVParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject HSV where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hsv_get_type - - -class GObject o => HSVK o -instance (GObject o, IsDescendantOf HSV o) => HSVK o - -toHSV :: HSVK o => o -> IO HSV -toHSV = unsafeCastTo HSV - -noHSV :: Maybe HSV -noHSV = Nothing - -type family ResolveHSVMethod (t :: Symbol) (o :: *) :: * where - ResolveHSVMethod "activate" o = WidgetActivateMethodInfo - ResolveHSVMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHSVMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHSVMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHSVMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHSVMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHSVMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHSVMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHSVMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHSVMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHSVMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHSVMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveHSVMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHSVMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHSVMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHSVMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHSVMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHSVMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHSVMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHSVMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHSVMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHSVMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHSVMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHSVMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHSVMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHSVMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHSVMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHSVMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHSVMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHSVMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHSVMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHSVMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHSVMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHSVMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHSVMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHSVMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHSVMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHSVMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHSVMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHSVMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHSVMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHSVMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHSVMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHSVMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHSVMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHSVMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHSVMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHSVMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHSVMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHSVMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHSVMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHSVMethod "draw" o = WidgetDrawMethodInfo - ResolveHSVMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHSVMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHSVMethod "event" o = WidgetEventMethodInfo - ResolveHSVMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHSVMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHSVMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHSVMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHSVMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHSVMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHSVMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHSVMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHSVMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHSVMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHSVMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHSVMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHSVMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHSVMethod "hide" o = WidgetHideMethodInfo - ResolveHSVMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHSVMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHSVMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHSVMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHSVMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHSVMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHSVMethod "isAdjusting" o = HSVIsAdjustingMethodInfo - ResolveHSVMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHSVMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHSVMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHSVMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHSVMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHSVMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHSVMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHSVMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHSVMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHSVMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHSVMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHSVMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHSVMethod "map" o = WidgetMapMethodInfo - ResolveHSVMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHSVMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHSVMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHSVMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHSVMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHSVMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHSVMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHSVMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHSVMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHSVMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHSVMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHSVMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHSVMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHSVMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHSVMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHSVMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHSVMethod "path" o = WidgetPathMethodInfo - ResolveHSVMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHSVMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHSVMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHSVMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHSVMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHSVMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHSVMethod "realize" o = WidgetRealizeMethodInfo - ResolveHSVMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHSVMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHSVMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHSVMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHSVMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHSVMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHSVMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHSVMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHSVMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHSVMethod "reparent" o = WidgetReparentMethodInfo - ResolveHSVMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHSVMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHSVMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHSVMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHSVMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHSVMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHSVMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHSVMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHSVMethod "show" o = WidgetShowMethodInfo - ResolveHSVMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHSVMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHSVMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHSVMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHSVMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHSVMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHSVMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHSVMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHSVMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHSVMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHSVMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHSVMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHSVMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHSVMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHSVMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHSVMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHSVMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHSVMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHSVMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHSVMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHSVMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHSVMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHSVMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHSVMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHSVMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHSVMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHSVMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHSVMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHSVMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHSVMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHSVMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHSVMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHSVMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHSVMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHSVMethod "getColor" o = HSVGetColorMethodInfo - ResolveHSVMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHSVMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHSVMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHSVMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHSVMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHSVMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHSVMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHSVMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHSVMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHSVMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHSVMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHSVMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHSVMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHSVMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHSVMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHSVMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHSVMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHSVMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHSVMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHSVMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHSVMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHSVMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHSVMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHSVMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHSVMethod "getMetrics" o = HSVGetMetricsMethodInfo - ResolveHSVMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHSVMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHSVMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHSVMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHSVMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHSVMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHSVMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHSVMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHSVMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHSVMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHSVMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHSVMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHSVMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHSVMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHSVMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHSVMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHSVMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHSVMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHSVMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHSVMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHSVMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHSVMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHSVMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHSVMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHSVMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHSVMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHSVMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHSVMethod "getState" o = WidgetGetStateMethodInfo - ResolveHSVMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHSVMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHSVMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHSVMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHSVMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHSVMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHSVMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHSVMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHSVMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHSVMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHSVMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHSVMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHSVMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHSVMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHSVMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHSVMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHSVMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHSVMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHSVMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHSVMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHSVMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHSVMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHSVMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHSVMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHSVMethod "setColor" o = HSVSetColorMethodInfo - ResolveHSVMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHSVMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHSVMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHSVMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHSVMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHSVMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHSVMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHSVMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHSVMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHSVMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHSVMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHSVMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHSVMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHSVMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHSVMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHSVMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHSVMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHSVMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHSVMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHSVMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHSVMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHSVMethod "setMetrics" o = HSVSetMetricsMethodInfo - ResolveHSVMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHSVMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHSVMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHSVMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHSVMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHSVMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHSVMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHSVMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHSVMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHSVMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHSVMethod "setState" o = WidgetSetStateMethodInfo - ResolveHSVMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHSVMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHSVMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHSVMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHSVMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHSVMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHSVMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHSVMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHSVMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHSVMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHSVMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHSVMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHSVMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabelProxy t (HSV -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabel t (HSV -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal HSV::changed -type HSVChangedCallback = - IO () - -noHSVChangedCallback :: Maybe HSVChangedCallback -noHSVChangedCallback = Nothing - -type HSVChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHSVChangedCallback :: HSVChangedCallbackC -> IO (FunPtr HSVChangedCallbackC) - -hSVChangedClosure :: HSVChangedCallback -> IO Closure -hSVChangedClosure cb = newCClosure =<< mkHSVChangedCallback wrapped - where wrapped = hSVChangedCallbackWrapper cb - -hSVChangedCallbackWrapper :: - HSVChangedCallback -> - Ptr () -> - Ptr () -> - IO () -hSVChangedCallbackWrapper _cb _ _ = do - _cb - -onHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId -onHSVChanged obj cb = liftIO $ connectHSVChanged obj cb SignalConnectBefore -afterHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId -afterHSVChanged obj cb = connectHSVChanged obj cb SignalConnectAfter - -connectHSVChanged :: (GObject a, MonadIO m) => - a -> HSVChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectHSVChanged obj cb after = liftIO $ do - cb' <- mkHSVChangedCallback (hSVChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal HSV::move -type HSVMoveCallback = - DirectionType -> - IO () - -noHSVMoveCallback :: Maybe HSVMoveCallback -noHSVMoveCallback = Nothing - -type HSVMoveCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHSVMoveCallback :: HSVMoveCallbackC -> IO (FunPtr HSVMoveCallbackC) - -hSVMoveClosure :: HSVMoveCallback -> IO Closure -hSVMoveClosure cb = newCClosure =<< mkHSVMoveCallback wrapped - where wrapped = hSVMoveCallbackWrapper cb - -hSVMoveCallbackWrapper :: - HSVMoveCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -hSVMoveCallbackWrapper _cb _ object _ = do - let object' = (toEnum . fromIntegral) object - _cb object' - -onHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId -onHSVMove obj cb = liftIO $ connectHSVMove obj cb SignalConnectBefore -afterHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId -afterHSVMove obj cb = connectHSVMove obj cb SignalConnectAfter - -connectHSVMove :: (GObject a, MonadIO m) => - a -> HSVMoveCallback -> SignalConnectMode -> m SignalHandlerId -connectHSVMove obj cb after = liftIO $ do - cb' <- mkHSVMoveCallback (hSVMoveCallbackWrapper cb) - connectSignalFunPtr obj "move" cb' after - -type instance AttributeList HSV = HSVAttributeList -type HSVAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data HSVChangedSignalInfo -instance SignalInfo HSVChangedSignalInfo where - type HaskellCallbackType HSVChangedSignalInfo = HSVChangedCallback - connectSignal _ = connectHSVChanged - -data HSVMoveSignalInfo -instance SignalInfo HSVMoveSignalInfo where - type HaskellCallbackType HSVMoveSignalInfo = HSVMoveCallback - connectSignal _ = connectHSVMove - -type instance SignalList HSV = HSVSignalList -type HSVSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HSV::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HSV") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hsv_new" gtk_hsv_new :: - IO (Ptr HSV) - - -hSVNew :: - (MonadIO m) => - m HSV -- result -hSVNew = liftIO $ do - result <- gtk_hsv_new - checkUnexpectedReturnNULL "gtk_hsv_new" result - result' <- (newObject HSV) result - return result' - --- method HSV::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, 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 "gtk_hsv_get_color" gtk_hsv_get_color :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Ptr CDouble -> -- h : TBasicType TDouble - Ptr CDouble -> -- s : TBasicType TDouble - Ptr CDouble -> -- v : TBasicType TDouble - IO () - - -hSVGetColor :: - (MonadIO m, HSVK a) => - a -- _obj - -> m (Double,Double,Double) -- result -hSVGetColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - h <- allocMem :: IO (Ptr CDouble) - s <- allocMem :: IO (Ptr CDouble) - v <- allocMem :: IO (Ptr CDouble) - gtk_hsv_get_color _obj' h s v - h' <- peek h - let h'' = realToFrac h' - s' <- peek s - let s'' = realToFrac s' - v' <- peek v - let v'' = realToFrac v' - touchManagedPtr _obj - freeMem h - freeMem s - freeMem v - return (h'', s'', v'') - -data HSVGetColorMethodInfo -instance (signature ~ (m (Double,Double,Double)), MonadIO m, HSVK a) => MethodInfo HSVGetColorMethodInfo a signature where - overloadedMethod _ = hSVGetColor - --- method HSV::get_metrics --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt, 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 "gtk_hsv_get_metrics" gtk_hsv_get_metrics :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Ptr Int32 -> -- size : TBasicType TInt - Ptr Int32 -> -- ring_width : TBasicType TInt - IO () - - -hSVGetMetrics :: - (MonadIO m, HSVK a) => - a -- _obj - -> m (Int32,Int32) -- result -hSVGetMetrics _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - size <- allocMem :: IO (Ptr Int32) - ringWidth <- allocMem :: IO (Ptr Int32) - gtk_hsv_get_metrics _obj' size ringWidth - size' <- peek size - ringWidth' <- peek ringWidth - touchManagedPtr _obj - freeMem size - freeMem ringWidth - return (size', ringWidth') - -data HSVGetMetricsMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, HSVK a) => MethodInfo HSVGetMetricsMethodInfo a signature where - overloadedMethod _ = hSVGetMetrics - --- method HSV::is_adjusting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", 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 "gtk_hsv_is_adjusting" gtk_hsv_is_adjusting :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - IO CInt - - -hSVIsAdjusting :: - (MonadIO m, HSVK a) => - a -- _obj - -> m Bool -- result -hSVIsAdjusting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_hsv_is_adjusting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data HSVIsAdjustingMethodInfo -instance (signature ~ (m Bool), MonadIO m, HSVK a) => MethodInfo HSVIsAdjustingMethodInfo a signature where - overloadedMethod _ = hSVIsAdjusting - --- method HSV::set_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", 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 "gtk_hsv_set_color" gtk_hsv_set_color :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - CDouble -> -- h : TBasicType TDouble - CDouble -> -- s : TBasicType TDouble - CDouble -> -- v : TBasicType TDouble - IO () - - -hSVSetColor :: - (MonadIO m, HSVK a) => - a -- _obj - -> Double -- h - -> Double -- s - -> Double -- v - -> m () -- result -hSVSetColor _obj h s v = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let h' = realToFrac h - let s' = realToFrac s - let v' = realToFrac v - gtk_hsv_set_color _obj' h' s' v' - touchManagedPtr _obj - return () - -data HSVSetColorMethodInfo -instance (signature ~ (Double -> Double -> Double -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetColorMethodInfo a signature where - overloadedMethod _ = hSVSetColor - --- method HSV::set_metrics --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", 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 "gtk_hsv_set_metrics" gtk_hsv_set_metrics :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Int32 -> -- size : TBasicType TInt - Int32 -> -- ring_width : TBasicType TInt - IO () - - -hSVSetMetrics :: - (MonadIO m, HSVK a) => - a -- _obj - -> Int32 -- size - -> Int32 -- ringWidth - -> m () -- result -hSVSetMetrics _obj size ringWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_hsv_set_metrics _obj' size ringWidth - touchManagedPtr _obj - return () - -data HSVSetMetricsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetMetricsMethodInfo a signature where - overloadedMethod _ = hSVSetMetrics - --- method HSV::to_rgb --- method type : MemberFunction --- Args : [Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "b", argType = TBasicType TDouble, 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 "gtk_hsv_to_rgb" gtk_hsv_to_rgb :: - CDouble -> -- h : TBasicType TDouble - CDouble -> -- s : TBasicType TDouble - CDouble -> -- v : TBasicType TDouble - Ptr CDouble -> -- r : TBasicType TDouble - Ptr CDouble -> -- g : TBasicType TDouble - Ptr CDouble -> -- b : TBasicType TDouble - IO () - - -hSVToRgb :: - (MonadIO m) => - Double -- h - -> Double -- s - -> Double -- v - -> m (Double,Double,Double) -- result -hSVToRgb h s v = liftIO $ do - let h' = realToFrac h - let s' = realToFrac s - let v' = realToFrac v - r <- allocMem :: IO (Ptr CDouble) - g <- allocMem :: IO (Ptr CDouble) - b <- allocMem :: IO (Ptr CDouble) - gtk_hsv_to_rgb h' s' v' r g b - r' <- peek r - let r'' = realToFrac r' - g' <- peek g - let g'' = realToFrac g' - b' <- peek b - let b'' = realToFrac b' - freeMem r - freeMem g - freeMem b - return (r'', g'', b'') - - diff --git a/GI/Gtk/Objects/HSV.hs-boot b/GI/Gtk/Objects/HSV.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HSV.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.HSV 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 HSV = HSV (ForeignPtr HSV) -instance GObject HSV where -class GObject o => HSVK o -instance (GObject o, IsDescendantOf HSV o) => HSVK o -data HSVChangedSignalInfo -data HSVMoveSignalInfo -data HSVGetColorMethodInfo -data HSVGetMetricsMethodInfo -data HSVIsAdjustingMethodInfo -data HSVSetColorMethodInfo -data HSVSetMetricsMethodInfo diff --git a/GI/Gtk/Objects/HScale.hs b/GI/Gtk/Objects/HScale.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HScale.hs +++ /dev/null @@ -1,468 +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.Gtk.Objects.HScale - ( - --- * Exported types - HScale(..) , - HScaleK , - toHScale , - noHScale , - - - -- * Methods --- ** hScaleNew - hScaleNew , - - --- ** hScaleNewWithRange - hScaleNewWithRange , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HScale = HScale (ForeignPtr HScale) -foreign import ccall "gtk_hscale_get_type" - c_gtk_hscale_get_type :: IO GType - -type instance ParentTypes HScale = HScaleParentTypes -type HScaleParentTypes = '[Scale, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HScale where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hscale_get_type - - -class GObject o => HScaleK o -instance (GObject o, IsDescendantOf HScale o) => HScaleK o - -toHScale :: HScaleK o => o -> IO HScale -toHScale = unsafeCastTo HScale - -noHScale :: Maybe HScale -noHScale = Nothing - -type family ResolveHScaleMethod (t :: Symbol) (o :: *) :: * where - ResolveHScaleMethod "activate" o = WidgetActivateMethodInfo - ResolveHScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHScaleMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHScaleMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHScaleMethod "addMark" o = ScaleAddMarkMethodInfo - ResolveHScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHScaleMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveHScaleMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo - ResolveHScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHScaleMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHScaleMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHScaleMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHScaleMethod "draw" o = WidgetDrawMethodInfo - ResolveHScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHScaleMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHScaleMethod "event" o = WidgetEventMethodInfo - ResolveHScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHScaleMethod "hide" o = WidgetHideMethodInfo - ResolveHScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHScaleMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHScaleMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHScaleMethod "map" o = WidgetMapMethodInfo - ResolveHScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHScaleMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHScaleMethod "path" o = WidgetPathMethodInfo - ResolveHScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHScaleMethod "realize" o = WidgetRealizeMethodInfo - ResolveHScaleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHScaleMethod "reparent" o = WidgetReparentMethodInfo - ResolveHScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHScaleMethod "show" o = WidgetShowMethodInfo - ResolveHScaleMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHScaleMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHScaleMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHScaleMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveHScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHScaleMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo - ResolveHScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo - ResolveHScaleMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveHScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveHScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHScaleMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo - ResolveHScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHScaleMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveHScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo - ResolveHScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo - ResolveHScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveHScaleMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveHScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHScaleMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHScaleMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHScaleMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveHScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveHScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveHScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHScaleMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveHScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveHScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveHScaleMethod "getState" o = WidgetGetStateMethodInfo - ResolveHScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHScaleMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveHScaleMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHScaleMethod "getValue" o = RangeGetValueMethodInfo - ResolveHScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo - ResolveHScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHScaleMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHScaleMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveHScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHScaleMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo - ResolveHScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo - ResolveHScaleMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveHScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveHScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHScaleMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo - ResolveHScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveHScaleMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveHScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveHScaleMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveHScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHScaleMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHScaleMethod "setRange" o = RangeSetRangeMethodInfo - ResolveHScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveHScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveHScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveHScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveHScaleMethod "setState" o = WidgetSetStateMethodInfo - ResolveHScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHScaleMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveHScaleMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHScaleMethod "setValue" o = RangeSetValueMethodInfo - ResolveHScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo - ResolveHScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHScaleMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHScaleMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHScaleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHScaleMethod t HScale, MethodInfo info HScale p) => IsLabelProxy t (HScale -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHScaleMethod t HScale, MethodInfo info HScale p) => IsLabel t (HScale -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HScale = HScaleAttributeList -type HScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HScale = HScaleSignalList -type HScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HScale::new --- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HScale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hscale_new" gtk_hscale_new :: - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr HScale) - -{-# DEPRECATED hScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hScaleNew :: - (MonadIO m, AdjustmentK a) => - Maybe (a) -- adjustment - -> m HScale -- result -hScaleNew adjustment = liftIO $ do - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - result <- gtk_hscale_new maybeAdjustment - checkUnexpectedReturnNULL "gtk_hscale_new" result - result' <- (newObject HScale) result - whenJust adjustment touchManagedPtr - return result' - --- method HScale::new_with_range --- method type : Constructor --- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HScale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hscale_new_with_range" gtk_hscale_new_with_range :: - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - CDouble -> -- step : TBasicType TDouble - IO (Ptr HScale) - -{-# DEPRECATED hScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hScaleNewWithRange :: - (MonadIO m) => - Double -- min - -> Double -- max - -> Double -- step - -> m HScale -- result -hScaleNewWithRange min max step = liftIO $ do - let min' = realToFrac min - let max' = realToFrac max - let step' = realToFrac step - result <- gtk_hscale_new_with_range min' max' step' - checkUnexpectedReturnNULL "gtk_hscale_new_with_range" result - result' <- (newObject HScale) result - return result' - - diff --git a/GI/Gtk/Objects/HScale.hs-boot b/GI/Gtk/Objects/HScale.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HScale.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HScale 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 HScale = HScale (ForeignPtr HScale) -instance GObject HScale where -class GObject o => HScaleK o -instance (GObject o, IsDescendantOf HScale o) => HScaleK o diff --git a/GI/Gtk/Objects/HScrollbar.hs b/GI/Gtk/Objects/HScrollbar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HScrollbar.hs +++ /dev/null @@ -1,422 +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.Gtk.Objects.HScrollbar - ( - --- * Exported types - HScrollbar(..) , - HScrollbarK , - toHScrollbar , - noHScrollbar , - - - -- * Methods --- ** hScrollbarNew - hScrollbarNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HScrollbar = HScrollbar (ForeignPtr HScrollbar) -foreign import ccall "gtk_hscrollbar_get_type" - c_gtk_hscrollbar_get_type :: IO GType - -type instance ParentTypes HScrollbar = HScrollbarParentTypes -type HScrollbarParentTypes = '[Scrollbar, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HScrollbar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hscrollbar_get_type - - -class GObject o => HScrollbarK o -instance (GObject o, IsDescendantOf HScrollbar o) => HScrollbarK o - -toHScrollbar :: HScrollbarK o => o -> IO HScrollbar -toHScrollbar = unsafeCastTo HScrollbar - -noHScrollbar :: Maybe HScrollbar -noHScrollbar = Nothing - -type family ResolveHScrollbarMethod (t :: Symbol) (o :: *) :: * where - ResolveHScrollbarMethod "activate" o = WidgetActivateMethodInfo - ResolveHScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHScrollbarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveHScrollbarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHScrollbarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHScrollbarMethod "draw" o = WidgetDrawMethodInfo - ResolveHScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHScrollbarMethod "event" o = WidgetEventMethodInfo - ResolveHScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHScrollbarMethod "hide" o = WidgetHideMethodInfo - ResolveHScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHScrollbarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHScrollbarMethod "map" o = WidgetMapMethodInfo - ResolveHScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHScrollbarMethod "path" o = WidgetPathMethodInfo - ResolveHScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHScrollbarMethod "realize" o = WidgetRealizeMethodInfo - ResolveHScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHScrollbarMethod "reparent" o = WidgetReparentMethodInfo - ResolveHScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHScrollbarMethod "show" o = WidgetShowMethodInfo - ResolveHScrollbarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHScrollbarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHScrollbarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHScrollbarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveHScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHScrollbarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveHScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveHScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveHScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveHScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveHScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHScrollbarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHScrollbarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveHScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveHScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveHScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveHScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveHScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveHScrollbarMethod "getState" o = WidgetGetStateMethodInfo - ResolveHScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveHScrollbarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHScrollbarMethod "getValue" o = RangeGetValueMethodInfo - ResolveHScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveHScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHScrollbarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveHScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveHScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveHScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveHScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveHScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveHScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHScrollbarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHScrollbarMethod "setRange" o = RangeSetRangeMethodInfo - ResolveHScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveHScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveHScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveHScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveHScrollbarMethod "setState" o = WidgetSetStateMethodInfo - ResolveHScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveHScrollbarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHScrollbarMethod "setValue" o = RangeSetValueMethodInfo - ResolveHScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHScrollbarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHScrollbarMethod t HScrollbar, MethodInfo info HScrollbar p) => IsLabelProxy t (HScrollbar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHScrollbarMethod t HScrollbar, MethodInfo info HScrollbar p) => IsLabel t (HScrollbar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HScrollbar = HScrollbarAttributeList -type HScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HScrollbar = HScrollbarSignalList -type HScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HScrollbar::new --- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HScrollbar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hscrollbar_new" gtk_hscrollbar_new :: - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr HScrollbar) - -{-# DEPRECATED hScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hScrollbarNew :: - (MonadIO m, AdjustmentK a) => - Maybe (a) -- adjustment - -> m HScrollbar -- result -hScrollbarNew adjustment = liftIO $ do - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - result <- gtk_hscrollbar_new maybeAdjustment - checkUnexpectedReturnNULL "gtk_hscrollbar_new" result - result' <- (newObject HScrollbar) result - whenJust adjustment touchManagedPtr - return result' - - diff --git a/GI/Gtk/Objects/HScrollbar.hs-boot b/GI/Gtk/Objects/HScrollbar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HScrollbar.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HScrollbar 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 HScrollbar = HScrollbar (ForeignPtr HScrollbar) -instance GObject HScrollbar where -class GObject o => HScrollbarK o -instance (GObject o, IsDescendantOf HScrollbar o) => HScrollbarK o diff --git a/GI/Gtk/Objects/HSeparator.hs b/GI/Gtk/Objects/HSeparator.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HSeparator.hs +++ /dev/null @@ -1,386 +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.Gtk.Objects.HSeparator - ( - --- * Exported types - HSeparator(..) , - HSeparatorK , - toHSeparator , - noHSeparator , - - - -- * Methods --- ** hSeparatorNew - hSeparatorNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HSeparator = HSeparator (ForeignPtr HSeparator) -foreign import ccall "gtk_hseparator_get_type" - c_gtk_hseparator_get_type :: IO GType - -type instance ParentTypes HSeparator = HSeparatorParentTypes -type HSeparatorParentTypes = '[Separator, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject HSeparator where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_hseparator_get_type - - -class GObject o => HSeparatorK o -instance (GObject o, IsDescendantOf HSeparator o) => HSeparatorK o - -toHSeparator :: HSeparatorK o => o -> IO HSeparator -toHSeparator = unsafeCastTo HSeparator - -noHSeparator :: Maybe HSeparator -noHSeparator = Nothing - -type family ResolveHSeparatorMethod (t :: Symbol) (o :: *) :: * where - ResolveHSeparatorMethod "activate" o = WidgetActivateMethodInfo - ResolveHSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHSeparatorMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveHSeparatorMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHSeparatorMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHSeparatorMethod "draw" o = WidgetDrawMethodInfo - ResolveHSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHSeparatorMethod "event" o = WidgetEventMethodInfo - ResolveHSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHSeparatorMethod "hide" o = WidgetHideMethodInfo - ResolveHSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHSeparatorMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHSeparatorMethod "map" o = WidgetMapMethodInfo - ResolveHSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHSeparatorMethod "path" o = WidgetPathMethodInfo - ResolveHSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHSeparatorMethod "realize" o = WidgetRealizeMethodInfo - ResolveHSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHSeparatorMethod "reparent" o = WidgetReparentMethodInfo - ResolveHSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHSeparatorMethod "show" o = WidgetShowMethodInfo - ResolveHSeparatorMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHSeparatorMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHSeparatorMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHSeparatorMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHSeparatorMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveHSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHSeparatorMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHSeparatorMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHSeparatorMethod "getState" o = WidgetGetStateMethodInfo - ResolveHSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHSeparatorMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHSeparatorMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveHSeparatorMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHSeparatorMethod "setState" o = WidgetSetStateMethodInfo - ResolveHSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHSeparatorMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHSeparatorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHSeparatorMethod t HSeparator, MethodInfo info HSeparator p) => IsLabelProxy t (HSeparator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHSeparatorMethod t HSeparator, MethodInfo info HSeparator p) => IsLabel t (HSeparator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList HSeparator = HSeparatorAttributeList -type HSeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HSeparator = HSeparatorSignalList -type HSeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HSeparator::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HSeparator") --- throws : False --- Skip return : False - -foreign import ccall "gtk_hseparator_new" gtk_hseparator_new :: - IO (Ptr HSeparator) - -{-# DEPRECATED hSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} -hSeparatorNew :: - (MonadIO m) => - m HSeparator -- result -hSeparatorNew = liftIO $ do - result <- gtk_hseparator_new - checkUnexpectedReturnNULL "gtk_hseparator_new" result - result' <- (newObject HSeparator) result - return result' - - diff --git a/GI/Gtk/Objects/HSeparator.hs-boot b/GI/Gtk/Objects/HSeparator.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HSeparator.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.HSeparator 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 HSeparator = HSeparator (ForeignPtr HSeparator) -instance GObject HSeparator where -class GObject o => HSeparatorK o -instance (GObject o, IsDescendantOf HSeparator o) => HSeparatorK o diff --git a/GI/Gtk/Objects/HandleBox.hs b/GI/Gtk/Objects/HandleBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HandleBox.hs +++ /dev/null @@ -1,956 +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.Gtk.Objects.HandleBox - ( - --- * Exported types - HandleBox(..) , - HandleBoxK , - toHandleBox , - noHandleBox , - - - -- * Methods --- ** handleBoxGetChildDetached - HandleBoxGetChildDetachedMethodInfo , - handleBoxGetChildDetached , - - --- ** handleBoxGetHandlePosition - HandleBoxGetHandlePositionMethodInfo , - handleBoxGetHandlePosition , - - --- ** handleBoxGetShadowType - HandleBoxGetShadowTypeMethodInfo , - handleBoxGetShadowType , - - --- ** handleBoxGetSnapEdge - HandleBoxGetSnapEdgeMethodInfo , - handleBoxGetSnapEdge , - - --- ** handleBoxNew - handleBoxNew , - - --- ** handleBoxSetHandlePosition - HandleBoxSetHandlePositionMethodInfo , - handleBoxSetHandlePosition , - - --- ** handleBoxSetShadowType - HandleBoxSetShadowTypeMethodInfo , - handleBoxSetShadowType , - - --- ** handleBoxSetSnapEdge - HandleBoxSetSnapEdgeMethodInfo , - handleBoxSetSnapEdge , - - - - - -- * Properties --- ** ChildDetached - HandleBoxChildDetachedPropertyInfo , - getHandleBoxChildDetached , - handleBoxChildDetached , - - --- ** HandlePosition - HandleBoxHandlePositionPropertyInfo , - constructHandleBoxHandlePosition , - getHandleBoxHandlePosition , - handleBoxHandlePosition , - setHandleBoxHandlePosition , - - --- ** ShadowType - HandleBoxShadowTypePropertyInfo , - constructHandleBoxShadowType , - getHandleBoxShadowType , - handleBoxShadowType , - setHandleBoxShadowType , - - --- ** SnapEdge - HandleBoxSnapEdgePropertyInfo , - constructHandleBoxSnapEdge , - getHandleBoxSnapEdge , - handleBoxSnapEdge , - setHandleBoxSnapEdge , - - --- ** SnapEdgeSet - HandleBoxSnapEdgeSetPropertyInfo , - constructHandleBoxSnapEdgeSet , - getHandleBoxSnapEdgeSet , - handleBoxSnapEdgeSet , - setHandleBoxSnapEdgeSet , - - - - - -- * Signals --- ** ChildAttached - HandleBoxChildAttachedCallback , - HandleBoxChildAttachedCallbackC , - HandleBoxChildAttachedSignalInfo , - afterHandleBoxChildAttached , - handleBoxChildAttachedCallbackWrapper , - handleBoxChildAttachedClosure , - mkHandleBoxChildAttachedCallback , - noHandleBoxChildAttachedCallback , - onHandleBoxChildAttached , - - --- ** ChildDetached - HandleBoxChildDetachedCallback , - HandleBoxChildDetachedCallbackC , - HandleBoxChildDetachedSignalInfo , - afterHandleBoxChildDetached , - handleBoxChildDetachedCallbackWrapper , - handleBoxChildDetachedClosure , - mkHandleBoxChildDetachedCallback , - noHandleBoxChildDetachedCallback , - onHandleBoxChildDetached , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HandleBox = HandleBox (ForeignPtr HandleBox) -foreign import ccall "gtk_handle_box_get_type" - c_gtk_handle_box_get_type :: IO GType - -type instance ParentTypes HandleBox = HandleBoxParentTypes -type HandleBoxParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject HandleBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_handle_box_get_type - - -class GObject o => HandleBoxK o -instance (GObject o, IsDescendantOf HandleBox o) => HandleBoxK o - -toHandleBox :: HandleBoxK o => o -> IO HandleBox -toHandleBox = unsafeCastTo HandleBox - -noHandleBox :: Maybe HandleBox -noHandleBox = Nothing - -type family ResolveHandleBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveHandleBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveHandleBoxMethod "add" o = ContainerAddMethodInfo - ResolveHandleBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHandleBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHandleBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHandleBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHandleBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHandleBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHandleBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHandleBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHandleBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHandleBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveHandleBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHandleBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveHandleBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveHandleBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveHandleBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveHandleBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHandleBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHandleBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHandleBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHandleBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHandleBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHandleBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHandleBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHandleBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHandleBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHandleBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHandleBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHandleBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHandleBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHandleBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHandleBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHandleBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHandleBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHandleBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHandleBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHandleBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHandleBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHandleBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHandleBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHandleBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHandleBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHandleBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHandleBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHandleBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHandleBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHandleBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHandleBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHandleBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHandleBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHandleBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHandleBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHandleBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHandleBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHandleBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHandleBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveHandleBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHandleBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHandleBoxMethod "event" o = WidgetEventMethodInfo - ResolveHandleBoxMethod "forall" o = ContainerForallMethodInfo - ResolveHandleBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHandleBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveHandleBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHandleBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHandleBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHandleBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHandleBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHandleBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHandleBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHandleBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHandleBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHandleBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHandleBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHandleBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHandleBoxMethod "hide" o = WidgetHideMethodInfo - ResolveHandleBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHandleBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHandleBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHandleBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHandleBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHandleBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHandleBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHandleBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHandleBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHandleBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHandleBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHandleBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHandleBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHandleBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHandleBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHandleBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHandleBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHandleBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHandleBoxMethod "map" o = WidgetMapMethodInfo - ResolveHandleBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHandleBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHandleBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHandleBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHandleBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHandleBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHandleBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHandleBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHandleBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHandleBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHandleBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHandleBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHandleBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHandleBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHandleBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHandleBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHandleBoxMethod "path" o = WidgetPathMethodInfo - ResolveHandleBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveHandleBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHandleBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHandleBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHandleBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHandleBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHandleBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHandleBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveHandleBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHandleBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHandleBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHandleBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHandleBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveHandleBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHandleBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHandleBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHandleBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHandleBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHandleBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveHandleBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHandleBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHandleBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHandleBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHandleBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveHandleBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHandleBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHandleBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHandleBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHandleBoxMethod "show" o = WidgetShowMethodInfo - ResolveHandleBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHandleBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHandleBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHandleBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHandleBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHandleBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHandleBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHandleBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHandleBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHandleBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHandleBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHandleBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHandleBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHandleBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHandleBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHandleBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHandleBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHandleBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHandleBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveHandleBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHandleBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHandleBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHandleBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHandleBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHandleBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHandleBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHandleBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHandleBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHandleBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHandleBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveHandleBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHandleBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHandleBoxMethod "getChild" o = BinGetChildMethodInfo - ResolveHandleBoxMethod "getChildDetached" o = HandleBoxGetChildDetachedMethodInfo - ResolveHandleBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHandleBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHandleBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveHandleBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHandleBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHandleBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHandleBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHandleBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHandleBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHandleBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHandleBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHandleBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHandleBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHandleBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveHandleBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveHandleBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveHandleBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveHandleBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHandleBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHandleBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHandleBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHandleBoxMethod "getHandlePosition" o = HandleBoxGetHandlePositionMethodInfo - ResolveHandleBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHandleBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHandleBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHandleBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHandleBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHandleBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHandleBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHandleBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHandleBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHandleBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHandleBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHandleBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHandleBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHandleBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHandleBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHandleBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHandleBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHandleBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHandleBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHandleBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHandleBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveHandleBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHandleBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHandleBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHandleBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHandleBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHandleBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHandleBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHandleBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHandleBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHandleBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHandleBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHandleBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHandleBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHandleBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveHandleBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHandleBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHandleBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHandleBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHandleBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHandleBoxMethod "getShadowType" o = HandleBoxGetShadowTypeMethodInfo - ResolveHandleBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHandleBoxMethod "getSnapEdge" o = HandleBoxGetSnapEdgeMethodInfo - ResolveHandleBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveHandleBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHandleBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHandleBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHandleBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHandleBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHandleBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHandleBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHandleBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHandleBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHandleBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHandleBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHandleBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHandleBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHandleBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHandleBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHandleBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHandleBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHandleBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHandleBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHandleBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveHandleBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHandleBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHandleBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHandleBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHandleBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHandleBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHandleBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHandleBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHandleBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHandleBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHandleBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHandleBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHandleBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveHandleBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveHandleBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveHandleBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveHandleBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHandleBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHandleBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHandleBoxMethod "setHandlePosition" o = HandleBoxSetHandlePositionMethodInfo - ResolveHandleBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHandleBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHandleBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHandleBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHandleBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHandleBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHandleBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHandleBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHandleBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHandleBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHandleBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHandleBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHandleBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHandleBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHandleBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHandleBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHandleBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHandleBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveHandleBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHandleBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHandleBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveHandleBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHandleBoxMethod "setShadowType" o = HandleBoxSetShadowTypeMethodInfo - ResolveHandleBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHandleBoxMethod "setSnapEdge" o = HandleBoxSetSnapEdgeMethodInfo - ResolveHandleBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveHandleBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHandleBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHandleBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHandleBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHandleBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHandleBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHandleBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHandleBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHandleBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHandleBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHandleBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHandleBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHandleBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHandleBoxMethod t HandleBox, MethodInfo info HandleBox p) => IsLabelProxy t (HandleBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHandleBoxMethod t HandleBox, MethodInfo info HandleBox p) => IsLabel t (HandleBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal HandleBox::child-attached -type HandleBoxChildAttachedCallback = - Widget -> - IO () - -noHandleBoxChildAttachedCallback :: Maybe HandleBoxChildAttachedCallback -noHandleBoxChildAttachedCallback = Nothing - -type HandleBoxChildAttachedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHandleBoxChildAttachedCallback :: HandleBoxChildAttachedCallbackC -> IO (FunPtr HandleBoxChildAttachedCallbackC) - -handleBoxChildAttachedClosure :: HandleBoxChildAttachedCallback -> IO Closure -handleBoxChildAttachedClosure cb = newCClosure =<< mkHandleBoxChildAttachedCallback wrapped - where wrapped = handleBoxChildAttachedCallbackWrapper cb - -handleBoxChildAttachedCallbackWrapper :: - HandleBoxChildAttachedCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -handleBoxChildAttachedCallbackWrapper _cb _ widget _ = do - widget' <- (newObject Widget) widget - _cb widget' - -onHandleBoxChildAttached :: (GObject a, MonadIO m) => a -> HandleBoxChildAttachedCallback -> m SignalHandlerId -onHandleBoxChildAttached obj cb = liftIO $ connectHandleBoxChildAttached obj cb SignalConnectBefore -afterHandleBoxChildAttached :: (GObject a, MonadIO m) => a -> HandleBoxChildAttachedCallback -> m SignalHandlerId -afterHandleBoxChildAttached obj cb = connectHandleBoxChildAttached obj cb SignalConnectAfter - -connectHandleBoxChildAttached :: (GObject a, MonadIO m) => - a -> HandleBoxChildAttachedCallback -> SignalConnectMode -> m SignalHandlerId -connectHandleBoxChildAttached obj cb after = liftIO $ do - cb' <- mkHandleBoxChildAttachedCallback (handleBoxChildAttachedCallbackWrapper cb) - connectSignalFunPtr obj "child-attached" cb' after - --- signal HandleBox::child-detached -type HandleBoxChildDetachedCallback = - Widget -> - IO () - -noHandleBoxChildDetachedCallback :: Maybe HandleBoxChildDetachedCallback -noHandleBoxChildDetachedCallback = Nothing - -type HandleBoxChildDetachedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHandleBoxChildDetachedCallback :: HandleBoxChildDetachedCallbackC -> IO (FunPtr HandleBoxChildDetachedCallbackC) - -handleBoxChildDetachedClosure :: HandleBoxChildDetachedCallback -> IO Closure -handleBoxChildDetachedClosure cb = newCClosure =<< mkHandleBoxChildDetachedCallback wrapped - where wrapped = handleBoxChildDetachedCallbackWrapper cb - -handleBoxChildDetachedCallbackWrapper :: - HandleBoxChildDetachedCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -handleBoxChildDetachedCallbackWrapper _cb _ widget _ = do - widget' <- (newObject Widget) widget - _cb widget' - -onHandleBoxChildDetached :: (GObject a, MonadIO m) => a -> HandleBoxChildDetachedCallback -> m SignalHandlerId -onHandleBoxChildDetached obj cb = liftIO $ connectHandleBoxChildDetached obj cb SignalConnectBefore -afterHandleBoxChildDetached :: (GObject a, MonadIO m) => a -> HandleBoxChildDetachedCallback -> m SignalHandlerId -afterHandleBoxChildDetached obj cb = connectHandleBoxChildDetached obj cb SignalConnectAfter - -connectHandleBoxChildDetached :: (GObject a, MonadIO m) => - a -> HandleBoxChildDetachedCallback -> SignalConnectMode -> m SignalHandlerId -connectHandleBoxChildDetached obj cb after = liftIO $ do - cb' <- mkHandleBoxChildDetachedCallback (handleBoxChildDetachedCallbackWrapper cb) - connectSignalFunPtr obj "child-detached" cb' after - --- VVV Prop "child-detached" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getHandleBoxChildDetached :: (MonadIO m, HandleBoxK o) => o -> m Bool -getHandleBoxChildDetached obj = liftIO $ getObjectPropertyBool obj "child-detached" - -data HandleBoxChildDetachedPropertyInfo -instance AttrInfo HandleBoxChildDetachedPropertyInfo where - type AttrAllowedOps HandleBoxChildDetachedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint HandleBoxChildDetachedPropertyInfo = (~) () - type AttrBaseTypeConstraint HandleBoxChildDetachedPropertyInfo = HandleBoxK - type AttrGetType HandleBoxChildDetachedPropertyInfo = Bool - type AttrLabel HandleBoxChildDetachedPropertyInfo = "child-detached" - attrGet _ = getHandleBoxChildDetached - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "handle-position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getHandleBoxHandlePosition :: (MonadIO m, HandleBoxK o) => o -> m PositionType -getHandleBoxHandlePosition obj = liftIO $ getObjectPropertyEnum obj "handle-position" - -setHandleBoxHandlePosition :: (MonadIO m, HandleBoxK o) => o -> PositionType -> m () -setHandleBoxHandlePosition obj val = liftIO $ setObjectPropertyEnum obj "handle-position" val - -constructHandleBoxHandlePosition :: PositionType -> IO ([Char], GValue) -constructHandleBoxHandlePosition val = constructObjectPropertyEnum "handle-position" val - -data HandleBoxHandlePositionPropertyInfo -instance AttrInfo HandleBoxHandlePositionPropertyInfo where - type AttrAllowedOps HandleBoxHandlePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HandleBoxHandlePositionPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint HandleBoxHandlePositionPropertyInfo = HandleBoxK - type AttrGetType HandleBoxHandlePositionPropertyInfo = PositionType - type AttrLabel HandleBoxHandlePositionPropertyInfo = "handle-position" - attrGet _ = getHandleBoxHandlePosition - attrSet _ = setHandleBoxHandlePosition - attrConstruct _ = constructHandleBoxHandlePosition - attrClear _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getHandleBoxShadowType :: (MonadIO m, HandleBoxK o) => o -> m ShadowType -getHandleBoxShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setHandleBoxShadowType :: (MonadIO m, HandleBoxK o) => o -> ShadowType -> m () -setHandleBoxShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructHandleBoxShadowType :: ShadowType -> IO ([Char], GValue) -constructHandleBoxShadowType val = constructObjectPropertyEnum "shadow-type" val - -data HandleBoxShadowTypePropertyInfo -instance AttrInfo HandleBoxShadowTypePropertyInfo where - type AttrAllowedOps HandleBoxShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HandleBoxShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint HandleBoxShadowTypePropertyInfo = HandleBoxK - type AttrGetType HandleBoxShadowTypePropertyInfo = ShadowType - type AttrLabel HandleBoxShadowTypePropertyInfo = "shadow-type" - attrGet _ = getHandleBoxShadowType - attrSet _ = setHandleBoxShadowType - attrConstruct _ = constructHandleBoxShadowType - attrClear _ = undefined - --- VVV Prop "snap-edge" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getHandleBoxSnapEdge :: (MonadIO m, HandleBoxK o) => o -> m PositionType -getHandleBoxSnapEdge obj = liftIO $ getObjectPropertyEnum obj "snap-edge" - -setHandleBoxSnapEdge :: (MonadIO m, HandleBoxK o) => o -> PositionType -> m () -setHandleBoxSnapEdge obj val = liftIO $ setObjectPropertyEnum obj "snap-edge" val - -constructHandleBoxSnapEdge :: PositionType -> IO ([Char], GValue) -constructHandleBoxSnapEdge val = constructObjectPropertyEnum "snap-edge" val - -data HandleBoxSnapEdgePropertyInfo -instance AttrInfo HandleBoxSnapEdgePropertyInfo where - type AttrAllowedOps HandleBoxSnapEdgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HandleBoxSnapEdgePropertyInfo = (~) PositionType - type AttrBaseTypeConstraint HandleBoxSnapEdgePropertyInfo = HandleBoxK - type AttrGetType HandleBoxSnapEdgePropertyInfo = PositionType - type AttrLabel HandleBoxSnapEdgePropertyInfo = "snap-edge" - attrGet _ = getHandleBoxSnapEdge - attrSet _ = setHandleBoxSnapEdge - attrConstruct _ = constructHandleBoxSnapEdge - attrClear _ = undefined - --- VVV Prop "snap-edge-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getHandleBoxSnapEdgeSet :: (MonadIO m, HandleBoxK o) => o -> m Bool -getHandleBoxSnapEdgeSet obj = liftIO $ getObjectPropertyBool obj "snap-edge-set" - -setHandleBoxSnapEdgeSet :: (MonadIO m, HandleBoxK o) => o -> Bool -> m () -setHandleBoxSnapEdgeSet obj val = liftIO $ setObjectPropertyBool obj "snap-edge-set" val - -constructHandleBoxSnapEdgeSet :: Bool -> IO ([Char], GValue) -constructHandleBoxSnapEdgeSet val = constructObjectPropertyBool "snap-edge-set" val - -data HandleBoxSnapEdgeSetPropertyInfo -instance AttrInfo HandleBoxSnapEdgeSetPropertyInfo where - type AttrAllowedOps HandleBoxSnapEdgeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HandleBoxSnapEdgeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint HandleBoxSnapEdgeSetPropertyInfo = HandleBoxK - type AttrGetType HandleBoxSnapEdgeSetPropertyInfo = Bool - type AttrLabel HandleBoxSnapEdgeSetPropertyInfo = "snap-edge-set" - attrGet _ = getHandleBoxSnapEdgeSet - attrSet _ = setHandleBoxSnapEdgeSet - attrConstruct _ = constructHandleBoxSnapEdgeSet - attrClear _ = undefined - -type instance AttributeList HandleBox = HandleBoxAttributeList -type HandleBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childDetached", HandleBoxChildDetachedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handlePosition", HandleBoxHandlePositionPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", HandleBoxShadowTypePropertyInfo), '("snapEdge", HandleBoxSnapEdgePropertyInfo), '("snapEdgeSet", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -handleBoxChildDetached :: AttrLabelProxy "childDetached" -handleBoxChildDetached = AttrLabelProxy - -handleBoxHandlePosition :: AttrLabelProxy "handlePosition" -handleBoxHandlePosition = AttrLabelProxy - -handleBoxShadowType :: AttrLabelProxy "shadowType" -handleBoxShadowType = AttrLabelProxy - -handleBoxSnapEdge :: AttrLabelProxy "snapEdge" -handleBoxSnapEdge = AttrLabelProxy - -handleBoxSnapEdgeSet :: AttrLabelProxy "snapEdgeSet" -handleBoxSnapEdgeSet = AttrLabelProxy - -data HandleBoxChildAttachedSignalInfo -instance SignalInfo HandleBoxChildAttachedSignalInfo where - type HaskellCallbackType HandleBoxChildAttachedSignalInfo = HandleBoxChildAttachedCallback - connectSignal _ = connectHandleBoxChildAttached - -data HandleBoxChildDetachedSignalInfo -instance SignalInfo HandleBoxChildDetachedSignalInfo where - type HaskellCallbackType HandleBoxChildDetachedSignalInfo = HandleBoxChildDetachedCallback - connectSignal _ = connectHandleBoxChildDetached - -type instance SignalList HandleBox = HandleBoxSignalList -type HandleBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childAttached", HandleBoxChildAttachedSignalInfo), '("childDetached", HandleBoxChildDetachedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HandleBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HandleBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_handle_box_new" gtk_handle_box_new :: - IO (Ptr HandleBox) - -{-# DEPRECATED handleBoxNew ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxNew :: - (MonadIO m) => - m HandleBox -- result -handleBoxNew = liftIO $ do - result <- gtk_handle_box_new - checkUnexpectedReturnNULL "gtk_handle_box_new" result - result' <- (newObject HandleBox) result - return result' - --- method HandleBox::get_child_detached --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", 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 "gtk_handle_box_get_child_detached" gtk_handle_box_get_child_detached :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - IO CInt - -{-# DEPRECATED handleBoxGetChildDetached ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxGetChildDetached :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> m Bool -- result -handleBoxGetChildDetached _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_handle_box_get_child_detached _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data HandleBoxGetChildDetachedMethodInfo -instance (signature ~ (m Bool), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetChildDetachedMethodInfo a signature where - overloadedMethod _ = handleBoxGetChildDetached - --- method HandleBox::get_handle_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_handle_box_get_handle_position" gtk_handle_box_get_handle_position :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - IO CUInt - -{-# DEPRECATED handleBoxGetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxGetHandlePosition :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> m PositionType -- result -handleBoxGetHandlePosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_handle_box_get_handle_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data HandleBoxGetHandlePositionMethodInfo -instance (signature ~ (m PositionType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetHandlePositionMethodInfo a signature where - overloadedMethod _ = handleBoxGetHandlePosition - --- method HandleBox::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ShadowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_handle_box_get_shadow_type" gtk_handle_box_get_shadow_type :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - IO CUInt - -{-# DEPRECATED handleBoxGetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxGetShadowType :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> m ShadowType -- result -handleBoxGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_handle_box_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data HandleBoxGetShadowTypeMethodInfo -instance (signature ~ (m ShadowType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetShadowTypeMethodInfo a signature where - overloadedMethod _ = handleBoxGetShadowType - --- method HandleBox::get_snap_edge --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_handle_box_get_snap_edge" gtk_handle_box_get_snap_edge :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - IO CUInt - -{-# DEPRECATED handleBoxGetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxGetSnapEdge :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> m PositionType -- result -handleBoxGetSnapEdge _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_handle_box_get_snap_edge _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data HandleBoxGetSnapEdgeMethodInfo -instance (signature ~ (m PositionType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetSnapEdgeMethodInfo a signature where - overloadedMethod _ = handleBoxGetSnapEdge - --- method HandleBox::set_handle_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", 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 "gtk_handle_box_set_handle_position" gtk_handle_box_set_handle_position :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - CUInt -> -- position : TInterface "Gtk" "PositionType" - IO () - -{-# DEPRECATED handleBoxSetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxSetHandlePosition :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> PositionType -- position - -> m () -- result -handleBoxSetHandlePosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_handle_box_set_handle_position _obj' position' - touchManagedPtr _obj - return () - -data HandleBoxSetHandlePositionMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetHandlePositionMethodInfo a signature where - overloadedMethod _ = handleBoxSetHandlePosition - --- method HandleBox::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", 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 "gtk_handle_box_set_shadow_type" gtk_handle_box_set_shadow_type :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - CUInt -> -- type : TInterface "Gtk" "ShadowType" - IO () - -{-# DEPRECATED handleBoxSetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxSetShadowType :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> ShadowType -- type_ - -> m () -- result -handleBoxSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_handle_box_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - -data HandleBoxSetShadowTypeMethodInfo -instance (signature ~ (ShadowType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetShadowTypeMethodInfo a signature where - overloadedMethod _ = handleBoxSetShadowType - --- method HandleBox::set_snap_edge --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gtk" "PositionType", 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 "gtk_handle_box_set_snap_edge" gtk_handle_box_set_snap_edge :: - Ptr HandleBox -> -- _obj : TInterface "Gtk" "HandleBox" - CUInt -> -- edge : TInterface "Gtk" "PositionType" - IO () - -{-# DEPRECATED handleBoxSetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} -handleBoxSetSnapEdge :: - (MonadIO m, HandleBoxK a) => - a -- _obj - -> PositionType -- edge - -> m () -- result -handleBoxSetSnapEdge _obj edge = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - gtk_handle_box_set_snap_edge _obj' edge' - touchManagedPtr _obj - return () - -data HandleBoxSetSnapEdgeMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetSnapEdgeMethodInfo a signature where - overloadedMethod _ = handleBoxSetSnapEdge - - diff --git a/GI/Gtk/Objects/HandleBox.hs-boot b/GI/Gtk/Objects/HandleBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HandleBox.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gtk.Objects.HandleBox 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 HandleBox = HandleBox (ForeignPtr HandleBox) -instance GObject HandleBox where -class GObject o => HandleBoxK o -instance (GObject o, IsDescendantOf HandleBox o) => HandleBoxK o -data HandleBoxChildDetachedPropertyInfo -data HandleBoxHandlePositionPropertyInfo -data HandleBoxShadowTypePropertyInfo -data HandleBoxSnapEdgePropertyInfo -data HandleBoxSnapEdgeSetPropertyInfo -data HandleBoxChildAttachedSignalInfo -data HandleBoxChildDetachedSignalInfo -data HandleBoxGetChildDetachedMethodInfo -data HandleBoxGetHandlePositionMethodInfo -data HandleBoxGetShadowTypeMethodInfo -data HandleBoxGetSnapEdgeMethodInfo -data HandleBoxSetHandlePositionMethodInfo -data HandleBoxSetShadowTypeMethodInfo -data HandleBoxSetSnapEdgeMethodInfo diff --git a/GI/Gtk/Objects/HeaderBar.hs b/GI/Gtk/Objects/HeaderBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/HeaderBar.hs +++ /dev/null @@ -1,1243 +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.Gtk.Objects.HeaderBar - ( - --- * Exported types - HeaderBar(..) , - HeaderBarK , - toHeaderBar , - noHeaderBar , - - - -- * Methods --- ** headerBarGetCustomTitle - HeaderBarGetCustomTitleMethodInfo , - headerBarGetCustomTitle , - - --- ** headerBarGetDecorationLayout - HeaderBarGetDecorationLayoutMethodInfo , - headerBarGetDecorationLayout , - - --- ** headerBarGetHasSubtitle - HeaderBarGetHasSubtitleMethodInfo , - headerBarGetHasSubtitle , - - --- ** headerBarGetShowCloseButton - HeaderBarGetShowCloseButtonMethodInfo , - headerBarGetShowCloseButton , - - --- ** headerBarGetSubtitle - HeaderBarGetSubtitleMethodInfo , - headerBarGetSubtitle , - - --- ** headerBarGetTitle - HeaderBarGetTitleMethodInfo , - headerBarGetTitle , - - --- ** headerBarNew - headerBarNew , - - --- ** headerBarPackEnd - HeaderBarPackEndMethodInfo , - headerBarPackEnd , - - --- ** headerBarPackStart - HeaderBarPackStartMethodInfo , - headerBarPackStart , - - --- ** headerBarSetCustomTitle - HeaderBarSetCustomTitleMethodInfo , - headerBarSetCustomTitle , - - --- ** headerBarSetDecorationLayout - HeaderBarSetDecorationLayoutMethodInfo , - headerBarSetDecorationLayout , - - --- ** headerBarSetHasSubtitle - HeaderBarSetHasSubtitleMethodInfo , - headerBarSetHasSubtitle , - - --- ** headerBarSetShowCloseButton - HeaderBarSetShowCloseButtonMethodInfo , - headerBarSetShowCloseButton , - - --- ** headerBarSetSubtitle - HeaderBarSetSubtitleMethodInfo , - headerBarSetSubtitle , - - --- ** headerBarSetTitle - HeaderBarSetTitleMethodInfo , - headerBarSetTitle , - - - - - -- * Properties --- ** CustomTitle - HeaderBarCustomTitlePropertyInfo , - clearHeaderBarCustomTitle , - constructHeaderBarCustomTitle , - getHeaderBarCustomTitle , - headerBarCustomTitle , - setHeaderBarCustomTitle , - - --- ** DecorationLayout - HeaderBarDecorationLayoutPropertyInfo , - clearHeaderBarDecorationLayout , - constructHeaderBarDecorationLayout , - getHeaderBarDecorationLayout , - headerBarDecorationLayout , - setHeaderBarDecorationLayout , - - --- ** DecorationLayoutSet - HeaderBarDecorationLayoutSetPropertyInfo, - constructHeaderBarDecorationLayoutSet , - getHeaderBarDecorationLayoutSet , - headerBarDecorationLayoutSet , - setHeaderBarDecorationLayoutSet , - - --- ** HasSubtitle - HeaderBarHasSubtitlePropertyInfo , - constructHeaderBarHasSubtitle , - getHeaderBarHasSubtitle , - headerBarHasSubtitle , - setHeaderBarHasSubtitle , - - --- ** ShowCloseButton - HeaderBarShowCloseButtonPropertyInfo , - constructHeaderBarShowCloseButton , - getHeaderBarShowCloseButton , - headerBarShowCloseButton , - setHeaderBarShowCloseButton , - - --- ** Spacing - HeaderBarSpacingPropertyInfo , - constructHeaderBarSpacing , - getHeaderBarSpacing , - headerBarSpacing , - setHeaderBarSpacing , - - --- ** Subtitle - HeaderBarSubtitlePropertyInfo , - clearHeaderBarSubtitle , - constructHeaderBarSubtitle , - getHeaderBarSubtitle , - headerBarSubtitle , - setHeaderBarSubtitle , - - --- ** Title - HeaderBarTitlePropertyInfo , - clearHeaderBarTitle , - constructHeaderBarTitle , - getHeaderBarTitle , - headerBarTitle , - setHeaderBarTitle , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype HeaderBar = HeaderBar (ForeignPtr HeaderBar) -foreign import ccall "gtk_header_bar_get_type" - c_gtk_header_bar_get_type :: IO GType - -type instance ParentTypes HeaderBar = HeaderBarParentTypes -type HeaderBarParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject HeaderBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_header_bar_get_type - - -class GObject o => HeaderBarK o -instance (GObject o, IsDescendantOf HeaderBar o) => HeaderBarK o - -toHeaderBar :: HeaderBarK o => o -> IO HeaderBar -toHeaderBar = unsafeCastTo HeaderBar - -noHeaderBar :: Maybe HeaderBar -noHeaderBar = Nothing - -type family ResolveHeaderBarMethod (t :: Symbol) (o :: *) :: * where - ResolveHeaderBarMethod "activate" o = WidgetActivateMethodInfo - ResolveHeaderBarMethod "add" o = ContainerAddMethodInfo - ResolveHeaderBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveHeaderBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveHeaderBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveHeaderBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveHeaderBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveHeaderBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveHeaderBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHeaderBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHeaderBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveHeaderBarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveHeaderBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveHeaderBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveHeaderBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveHeaderBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveHeaderBarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveHeaderBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveHeaderBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveHeaderBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveHeaderBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveHeaderBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveHeaderBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveHeaderBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveHeaderBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveHeaderBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveHeaderBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveHeaderBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveHeaderBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveHeaderBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveHeaderBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveHeaderBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveHeaderBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveHeaderBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveHeaderBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveHeaderBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveHeaderBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveHeaderBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveHeaderBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveHeaderBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveHeaderBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveHeaderBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveHeaderBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveHeaderBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveHeaderBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveHeaderBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveHeaderBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveHeaderBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveHeaderBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveHeaderBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveHeaderBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveHeaderBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveHeaderBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveHeaderBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveHeaderBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveHeaderBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveHeaderBarMethod "draw" o = WidgetDrawMethodInfo - ResolveHeaderBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveHeaderBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveHeaderBarMethod "event" o = WidgetEventMethodInfo - ResolveHeaderBarMethod "forall" o = ContainerForallMethodInfo - ResolveHeaderBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHeaderBarMethod "foreach" o = ContainerForeachMethodInfo - ResolveHeaderBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveHeaderBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHeaderBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveHeaderBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveHeaderBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveHeaderBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveHeaderBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveHeaderBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveHeaderBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveHeaderBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveHeaderBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveHeaderBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveHeaderBarMethod "hide" o = WidgetHideMethodInfo - ResolveHeaderBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveHeaderBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveHeaderBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveHeaderBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveHeaderBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveHeaderBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveHeaderBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveHeaderBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveHeaderBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveHeaderBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHeaderBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveHeaderBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveHeaderBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveHeaderBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveHeaderBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveHeaderBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveHeaderBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveHeaderBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveHeaderBarMethod "map" o = WidgetMapMethodInfo - ResolveHeaderBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveHeaderBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveHeaderBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveHeaderBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveHeaderBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveHeaderBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveHeaderBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveHeaderBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveHeaderBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHeaderBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHeaderBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveHeaderBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveHeaderBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveHeaderBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveHeaderBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveHeaderBarMethod "packEnd" o = HeaderBarPackEndMethodInfo - ResolveHeaderBarMethod "packStart" o = HeaderBarPackStartMethodInfo - ResolveHeaderBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveHeaderBarMethod "path" o = WidgetPathMethodInfo - ResolveHeaderBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveHeaderBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveHeaderBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveHeaderBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveHeaderBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveHeaderBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveHeaderBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveHeaderBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveHeaderBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHeaderBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHeaderBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveHeaderBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveHeaderBarMethod "remove" o = ContainerRemoveMethodInfo - ResolveHeaderBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveHeaderBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveHeaderBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveHeaderBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveHeaderBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveHeaderBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveHeaderBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHeaderBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHeaderBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveHeaderBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveHeaderBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveHeaderBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHeaderBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveHeaderBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveHeaderBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveHeaderBarMethod "show" o = WidgetShowMethodInfo - ResolveHeaderBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveHeaderBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveHeaderBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveHeaderBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveHeaderBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveHeaderBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHeaderBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHeaderBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveHeaderBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveHeaderBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveHeaderBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHeaderBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveHeaderBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveHeaderBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveHeaderBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveHeaderBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveHeaderBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHeaderBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveHeaderBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveHeaderBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveHeaderBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHeaderBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveHeaderBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveHeaderBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveHeaderBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveHeaderBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveHeaderBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveHeaderBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveHeaderBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveHeaderBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveHeaderBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveHeaderBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveHeaderBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveHeaderBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveHeaderBarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveHeaderBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveHeaderBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveHeaderBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveHeaderBarMethod "getCustomTitle" o = HeaderBarGetCustomTitleMethodInfo - ResolveHeaderBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHeaderBarMethod "getDecorationLayout" o = HeaderBarGetDecorationLayoutMethodInfo - ResolveHeaderBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveHeaderBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveHeaderBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveHeaderBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveHeaderBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveHeaderBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveHeaderBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveHeaderBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveHeaderBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveHeaderBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveHeaderBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveHeaderBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveHeaderBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveHeaderBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveHeaderBarMethod "getHasSubtitle" o = HeaderBarGetHasSubtitleMethodInfo - ResolveHeaderBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveHeaderBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveHeaderBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveHeaderBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveHeaderBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveHeaderBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveHeaderBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveHeaderBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveHeaderBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveHeaderBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveHeaderBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveHeaderBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveHeaderBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveHeaderBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveHeaderBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveHeaderBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveHeaderBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveHeaderBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveHeaderBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveHeaderBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveHeaderBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveHeaderBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveHeaderBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveHeaderBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveHeaderBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveHeaderBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveHeaderBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveHeaderBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveHeaderBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHeaderBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHeaderBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveHeaderBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveHeaderBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveHeaderBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveHeaderBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveHeaderBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveHeaderBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveHeaderBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveHeaderBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveHeaderBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveHeaderBarMethod "getShowCloseButton" o = HeaderBarGetShowCloseButtonMethodInfo - ResolveHeaderBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveHeaderBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveHeaderBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveHeaderBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveHeaderBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveHeaderBarMethod "getSubtitle" o = HeaderBarGetSubtitleMethodInfo - ResolveHeaderBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveHeaderBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveHeaderBarMethod "getTitle" o = HeaderBarGetTitleMethodInfo - ResolveHeaderBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveHeaderBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveHeaderBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveHeaderBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveHeaderBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveHeaderBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveHeaderBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveHeaderBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveHeaderBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveHeaderBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveHeaderBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveHeaderBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveHeaderBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveHeaderBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveHeaderBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveHeaderBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveHeaderBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveHeaderBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveHeaderBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveHeaderBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveHeaderBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveHeaderBarMethod "setCustomTitle" o = HeaderBarSetCustomTitleMethodInfo - ResolveHeaderBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHeaderBarMethod "setDecorationLayout" o = HeaderBarSetDecorationLayoutMethodInfo - ResolveHeaderBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveHeaderBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveHeaderBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveHeaderBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveHeaderBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveHeaderBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveHeaderBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveHeaderBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveHeaderBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveHeaderBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveHeaderBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveHeaderBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveHeaderBarMethod "setHasSubtitle" o = HeaderBarSetHasSubtitleMethodInfo - ResolveHeaderBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveHeaderBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveHeaderBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveHeaderBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveHeaderBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveHeaderBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveHeaderBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveHeaderBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveHeaderBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveHeaderBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveHeaderBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveHeaderBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveHeaderBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveHeaderBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveHeaderBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveHeaderBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHeaderBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveHeaderBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveHeaderBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveHeaderBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveHeaderBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveHeaderBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveHeaderBarMethod "setShowCloseButton" o = HeaderBarSetShowCloseButtonMethodInfo - ResolveHeaderBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveHeaderBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveHeaderBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveHeaderBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveHeaderBarMethod "setSubtitle" o = HeaderBarSetSubtitleMethodInfo - ResolveHeaderBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveHeaderBarMethod "setTitle" o = HeaderBarSetTitleMethodInfo - ResolveHeaderBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveHeaderBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveHeaderBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveHeaderBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveHeaderBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveHeaderBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveHeaderBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveHeaderBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveHeaderBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveHeaderBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHeaderBarMethod t HeaderBar, MethodInfo info HeaderBar p) => IsLabelProxy t (HeaderBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHeaderBarMethod t HeaderBar, MethodInfo info HeaderBar p) => IsLabel t (HeaderBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "custom-title" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m Widget -getHeaderBarCustomTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarCustomTitle" $ getObjectPropertyObject obj "custom-title" Widget - -setHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o, WidgetK a) => o -> a -> m () -setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" (Just val) - -constructHeaderBarCustomTitle :: (WidgetK a) => a -> IO ([Char], GValue) -constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" (Just val) - -clearHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m () -clearHeaderBarCustomTitle obj = liftIO $ setObjectPropertyObject obj "custom-title" (Nothing :: Maybe Widget) - -data HeaderBarCustomTitlePropertyInfo -instance AttrInfo HeaderBarCustomTitlePropertyInfo where - type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK - type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget - type AttrLabel HeaderBarCustomTitlePropertyInfo = "custom-title" - attrGet _ = getHeaderBarCustomTitle - attrSet _ = setHeaderBarCustomTitle - attrConstruct _ = constructHeaderBarCustomTitle - attrClear _ = clearHeaderBarCustomTitle - --- VVV Prop "decoration-layout" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarDecorationLayout obj = liftIO $ checkUnexpectedNothing "getHeaderBarDecorationLayout" $ getObjectPropertyString obj "decoration-layout" - -setHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" (Just val) - -constructHeaderBarDecorationLayout :: T.Text -> IO ([Char], GValue) -constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" (Just val) - -clearHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m () -clearHeaderBarDecorationLayout obj = liftIO $ setObjectPropertyString obj "decoration-layout" (Nothing :: Maybe T.Text) - -data HeaderBarDecorationLayoutPropertyInfo -instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where - type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK - type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text - type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "decoration-layout" - attrGet _ = getHeaderBarDecorationLayout - attrSet _ = setHeaderBarDecorationLayout - attrConstruct _ = constructHeaderBarDecorationLayout - attrClear _ = clearHeaderBarDecorationLayout - --- VVV Prop "decoration-layout-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getHeaderBarDecorationLayoutSet :: (MonadIO m, HeaderBarK o) => o -> m Bool -getHeaderBarDecorationLayoutSet obj = liftIO $ getObjectPropertyBool obj "decoration-layout-set" - -setHeaderBarDecorationLayoutSet :: (MonadIO m, HeaderBarK o) => o -> Bool -> m () -setHeaderBarDecorationLayoutSet obj val = liftIO $ setObjectPropertyBool obj "decoration-layout-set" val - -constructHeaderBarDecorationLayoutSet :: Bool -> IO ([Char], GValue) -constructHeaderBarDecorationLayoutSet val = constructObjectPropertyBool "decoration-layout-set" val - -data HeaderBarDecorationLayoutSetPropertyInfo -instance AttrInfo HeaderBarDecorationLayoutSetPropertyInfo where - type AttrAllowedOps HeaderBarDecorationLayoutSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = HeaderBarK - type AttrGetType HeaderBarDecorationLayoutSetPropertyInfo = Bool - type AttrLabel HeaderBarDecorationLayoutSetPropertyInfo = "decoration-layout-set" - attrGet _ = getHeaderBarDecorationLayoutSet - attrSet _ = setHeaderBarDecorationLayoutSet - attrConstruct _ = constructHeaderBarDecorationLayoutSet - attrClear _ = undefined - --- VVV Prop "has-subtitle" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getHeaderBarHasSubtitle :: (MonadIO m, HeaderBarK o) => o -> m Bool -getHeaderBarHasSubtitle obj = liftIO $ getObjectPropertyBool obj "has-subtitle" - -setHeaderBarHasSubtitle :: (MonadIO m, HeaderBarK o) => o -> Bool -> m () -setHeaderBarHasSubtitle obj val = liftIO $ setObjectPropertyBool obj "has-subtitle" val - -constructHeaderBarHasSubtitle :: Bool -> IO ([Char], GValue) -constructHeaderBarHasSubtitle val = constructObjectPropertyBool "has-subtitle" val - -data HeaderBarHasSubtitlePropertyInfo -instance AttrInfo HeaderBarHasSubtitlePropertyInfo where - type AttrAllowedOps HeaderBarHasSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarHasSubtitlePropertyInfo = (~) Bool - type AttrBaseTypeConstraint HeaderBarHasSubtitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarHasSubtitlePropertyInfo = Bool - type AttrLabel HeaderBarHasSubtitlePropertyInfo = "has-subtitle" - attrGet _ = getHeaderBarHasSubtitle - attrSet _ = setHeaderBarHasSubtitle - attrConstruct _ = constructHeaderBarHasSubtitle - attrClear _ = undefined - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getHeaderBarShowCloseButton :: (MonadIO m, HeaderBarK o) => o -> m Bool -getHeaderBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" - -setHeaderBarShowCloseButton :: (MonadIO m, HeaderBarK o) => o -> Bool -> m () -setHeaderBarShowCloseButton obj val = liftIO $ setObjectPropertyBool obj "show-close-button" val - -constructHeaderBarShowCloseButton :: Bool -> IO ([Char], GValue) -constructHeaderBarShowCloseButton val = constructObjectPropertyBool "show-close-button" val - -data HeaderBarShowCloseButtonPropertyInfo -instance AttrInfo HeaderBarShowCloseButtonPropertyInfo where - type AttrAllowedOps HeaderBarShowCloseButtonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarShowCloseButtonPropertyInfo = (~) Bool - type AttrBaseTypeConstraint HeaderBarShowCloseButtonPropertyInfo = HeaderBarK - type AttrGetType HeaderBarShowCloseButtonPropertyInfo = Bool - type AttrLabel HeaderBarShowCloseButtonPropertyInfo = "show-close-button" - attrGet _ = getHeaderBarShowCloseButton - attrSet _ = setHeaderBarShowCloseButton - attrConstruct _ = constructHeaderBarShowCloseButton - attrClear _ = undefined - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> m Int32 -getHeaderBarSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> Int32 -> m () -setHeaderBarSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructHeaderBarSpacing :: Int32 -> IO ([Char], GValue) -constructHeaderBarSpacing val = constructObjectPropertyInt32 "spacing" val - -data HeaderBarSpacingPropertyInfo -instance AttrInfo HeaderBarSpacingPropertyInfo where - type AttrAllowedOps HeaderBarSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint HeaderBarSpacingPropertyInfo = HeaderBarK - type AttrGetType HeaderBarSpacingPropertyInfo = Int32 - type AttrLabel HeaderBarSpacingPropertyInfo = "spacing" - attrGet _ = getHeaderBarSpacing - attrSet _ = setHeaderBarSpacing - attrConstruct _ = constructHeaderBarSpacing - attrClear _ = undefined - --- VVV Prop "subtitle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarSubtitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarSubtitle" $ getObjectPropertyString obj "subtitle" - -setHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" (Just val) - -constructHeaderBarSubtitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" (Just val) - -clearHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m () -clearHeaderBarSubtitle obj = liftIO $ setObjectPropertyString obj "subtitle" (Nothing :: Maybe T.Text) - -data HeaderBarSubtitlePropertyInfo -instance AttrInfo HeaderBarSubtitlePropertyInfo where - type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text - type AttrLabel HeaderBarSubtitlePropertyInfo = "subtitle" - attrGet _ = getHeaderBarSubtitle - attrSet _ = setHeaderBarSubtitle - attrConstruct _ = constructHeaderBarSubtitle - attrClear _ = clearHeaderBarSubtitle - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarTitle" $ getObjectPropertyString obj "title" - -setHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructHeaderBarTitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarTitle val = constructObjectPropertyString "title" (Just val) - -clearHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m () -clearHeaderBarTitle obj = liftIO $ setObjectPropertyString obj "title" (Nothing :: Maybe T.Text) - -data HeaderBarTitlePropertyInfo -instance AttrInfo HeaderBarTitlePropertyInfo where - type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarTitlePropertyInfo = T.Text - type AttrLabel HeaderBarTitlePropertyInfo = "title" - attrGet _ = getHeaderBarTitle - attrSet _ = setHeaderBarTitle - attrConstruct _ = constructHeaderBarTitle - attrClear _ = clearHeaderBarTitle - -type instance AttributeList HeaderBar = HeaderBarAttributeList -type HeaderBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("customTitle", HeaderBarCustomTitlePropertyInfo), '("decorationLayout", HeaderBarDecorationLayoutPropertyInfo), '("decorationLayoutSet", HeaderBarDecorationLayoutSetPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasSubtitle", HeaderBarHasSubtitlePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -headerBarCustomTitle :: AttrLabelProxy "customTitle" -headerBarCustomTitle = AttrLabelProxy - -headerBarDecorationLayout :: AttrLabelProxy "decorationLayout" -headerBarDecorationLayout = AttrLabelProxy - -headerBarDecorationLayoutSet :: AttrLabelProxy "decorationLayoutSet" -headerBarDecorationLayoutSet = AttrLabelProxy - -headerBarHasSubtitle :: AttrLabelProxy "hasSubtitle" -headerBarHasSubtitle = AttrLabelProxy - -headerBarShowCloseButton :: AttrLabelProxy "showCloseButton" -headerBarShowCloseButton = AttrLabelProxy - -headerBarSpacing :: AttrLabelProxy "spacing" -headerBarSpacing = AttrLabelProxy - -headerBarSubtitle :: AttrLabelProxy "subtitle" -headerBarSubtitle = AttrLabelProxy - -headerBarTitle :: AttrLabelProxy "title" -headerBarTitle = AttrLabelProxy - -type instance SignalList HeaderBar = HeaderBarSignalList -type HeaderBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method HeaderBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "HeaderBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_new" gtk_header_bar_new :: - IO (Ptr HeaderBar) - - -headerBarNew :: - (MonadIO m) => - m HeaderBar -- result -headerBarNew = liftIO $ do - result <- gtk_header_bar_new - checkUnexpectedReturnNULL "gtk_header_bar_new" result - result' <- (newObject HeaderBar) result - return result' - --- method HeaderBar::get_custom_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_get_custom_title" gtk_header_bar_get_custom_title :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO (Ptr Widget) - - -headerBarGetCustomTitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m Widget -- result -headerBarGetCustomTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_custom_title _obj' - checkUnexpectedReturnNULL "gtk_header_bar_get_custom_title" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data HeaderBarGetCustomTitleMethodInfo -instance (signature ~ (m Widget), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetCustomTitleMethodInfo a signature where - overloadedMethod _ = headerBarGetCustomTitle - --- method HeaderBar::get_decoration_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 "gtk_header_bar_get_decoration_layout" gtk_header_bar_get_decoration_layout :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO CString - - -headerBarGetDecorationLayout :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m T.Text -- result -headerBarGetDecorationLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_decoration_layout _obj' - checkUnexpectedReturnNULL "gtk_header_bar_get_decoration_layout" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data HeaderBarGetDecorationLayoutMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetDecorationLayoutMethodInfo a signature where - overloadedMethod _ = headerBarGetDecorationLayout - --- method HeaderBar::get_has_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 "gtk_header_bar_get_has_subtitle" gtk_header_bar_get_has_subtitle :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO CInt - - -headerBarGetHasSubtitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m Bool -- result -headerBarGetHasSubtitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_has_subtitle _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data HeaderBarGetHasSubtitleMethodInfo -instance (signature ~ (m Bool), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetHasSubtitleMethodInfo a signature where - overloadedMethod _ = headerBarGetHasSubtitle - --- method HeaderBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 "gtk_header_bar_get_show_close_button" gtk_header_bar_get_show_close_button :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO CInt - - -headerBarGetShowCloseButton :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m Bool -- result -headerBarGetShowCloseButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_show_close_button _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data HeaderBarGetShowCloseButtonMethodInfo -instance (signature ~ (m Bool), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = headerBarGetShowCloseButton - --- method HeaderBar::get_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 "gtk_header_bar_get_subtitle" gtk_header_bar_get_subtitle :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO CString - - -headerBarGetSubtitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m T.Text -- result -headerBarGetSubtitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_subtitle _obj' - checkUnexpectedReturnNULL "gtk_header_bar_get_subtitle" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data HeaderBarGetSubtitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetSubtitleMethodInfo a signature where - overloadedMethod _ = headerBarGetSubtitle - --- method HeaderBar::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 "gtk_header_bar_get_title" gtk_header_bar_get_title :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - IO CString - - -headerBarGetTitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> m T.Text -- result -headerBarGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_title _obj' - checkUnexpectedReturnNULL "gtk_header_bar_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data HeaderBarGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetTitleMethodInfo a signature where - overloadedMethod _ = headerBarGetTitle - --- method HeaderBar::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_header_bar_pack_end" gtk_header_bar_pack_end :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -headerBarPackEnd :: - (MonadIO m, HeaderBarK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -headerBarPackEnd _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_header_bar_pack_end _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data HeaderBarPackEndMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarPackEndMethodInfo a signature where - overloadedMethod _ = headerBarPackEnd - --- method HeaderBar::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_header_bar_pack_start" gtk_header_bar_pack_start :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -headerBarPackStart :: - (MonadIO m, HeaderBarK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -headerBarPackStart _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_header_bar_pack_start _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data HeaderBarPackStartMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarPackStartMethodInfo a signature where - overloadedMethod _ = headerBarPackStart - --- method HeaderBar::set_custom_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_set_custom_title" gtk_header_bar_set_custom_title :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - Ptr Widget -> -- title_widget : TInterface "Gtk" "Widget" - IO () - - -headerBarSetCustomTitle :: - (MonadIO m, HeaderBarK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- titleWidget - -> m () -- result -headerBarSetCustomTitle _obj titleWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitleWidget <- case titleWidget of - Nothing -> return nullPtr - Just jTitleWidget -> do - let jTitleWidget' = unsafeManagedPtrCastPtr jTitleWidget - return jTitleWidget' - gtk_header_bar_set_custom_title _obj' maybeTitleWidget - touchManagedPtr _obj - whenJust titleWidget touchManagedPtr - return () - -data HeaderBarSetCustomTitleMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarSetCustomTitleMethodInfo a signature where - overloadedMethod _ = headerBarSetCustomTitle - --- method HeaderBar::set_decoration_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_set_decoration_layout" gtk_header_bar_set_decoration_layout :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - CString -> -- layout : TBasicType TUTF8 - IO () - - -headerBarSetDecorationLayout :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> Maybe (T.Text) -- layout - -> m () -- result -headerBarSetDecorationLayout _obj layout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLayout <- case layout of - Nothing -> return nullPtr - Just jLayout -> do - jLayout' <- textToCString jLayout - return jLayout' - gtk_header_bar_set_decoration_layout _obj' maybeLayout - touchManagedPtr _obj - freeMem maybeLayout - return () - -data HeaderBarSetDecorationLayoutMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetDecorationLayoutMethodInfo a signature where - overloadedMethod _ = headerBarSetDecorationLayout - --- method HeaderBar::set_has_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_header_bar_set_has_subtitle" gtk_header_bar_set_has_subtitle :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - CInt -> -- setting : TBasicType TBoolean - IO () - - -headerBarSetHasSubtitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -headerBarSetHasSubtitle _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_header_bar_set_has_subtitle _obj' setting' - touchManagedPtr _obj - return () - -data HeaderBarSetHasSubtitleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetHasSubtitleMethodInfo a signature where - overloadedMethod _ = headerBarSetHasSubtitle - --- method HeaderBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_header_bar_set_show_close_button" gtk_header_bar_set_show_close_button :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - CInt -> -- setting : TBasicType TBoolean - IO () - - -headerBarSetShowCloseButton :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -headerBarSetShowCloseButton _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_header_bar_set_show_close_button _obj' setting' - touchManagedPtr _obj - return () - -data HeaderBarSetShowCloseButtonMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = headerBarSetShowCloseButton - --- method HeaderBar::set_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_set_subtitle" gtk_header_bar_set_subtitle :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - CString -> -- subtitle : TBasicType TUTF8 - IO () - - -headerBarSetSubtitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> Maybe (T.Text) -- subtitle - -> m () -- result -headerBarSetSubtitle _obj subtitle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSubtitle <- case subtitle of - Nothing -> return nullPtr - Just jSubtitle -> do - jSubtitle' <- textToCString jSubtitle - return jSubtitle' - gtk_header_bar_set_subtitle _obj' maybeSubtitle - touchManagedPtr _obj - freeMem maybeSubtitle - return () - -data HeaderBarSetSubtitleMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetSubtitleMethodInfo a signature where - overloadedMethod _ = headerBarSetSubtitle - --- method HeaderBar::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_header_bar_set_title" gtk_header_bar_set_title :: - Ptr HeaderBar -> -- _obj : TInterface "Gtk" "HeaderBar" - CString -> -- title : TBasicType TUTF8 - IO () - - -headerBarSetTitle :: - (MonadIO m, HeaderBarK a) => - a -- _obj - -> Maybe (T.Text) -- title - -> m () -- result -headerBarSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitle <- case title of - Nothing -> return nullPtr - Just jTitle -> do - jTitle' <- textToCString jTitle - return jTitle' - gtk_header_bar_set_title _obj' maybeTitle - touchManagedPtr _obj - freeMem maybeTitle - return () - -data HeaderBarSetTitleMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetTitleMethodInfo a signature where - overloadedMethod _ = headerBarSetTitle - - diff --git a/GI/Gtk/Objects/HeaderBar.hs-boot b/GI/Gtk/Objects/HeaderBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/HeaderBar.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Gtk.Objects.HeaderBar 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 HeaderBar = HeaderBar (ForeignPtr HeaderBar) -instance GObject HeaderBar where -class GObject o => HeaderBarK o -instance (GObject o, IsDescendantOf HeaderBar o) => HeaderBarK o -data HeaderBarCustomTitlePropertyInfo -data HeaderBarDecorationLayoutPropertyInfo -data HeaderBarDecorationLayoutSetPropertyInfo -data HeaderBarHasSubtitlePropertyInfo -data HeaderBarShowCloseButtonPropertyInfo -data HeaderBarSpacingPropertyInfo -data HeaderBarSubtitlePropertyInfo -data HeaderBarTitlePropertyInfo -data HeaderBarGetCustomTitleMethodInfo -data HeaderBarGetDecorationLayoutMethodInfo -data HeaderBarGetHasSubtitleMethodInfo -data HeaderBarGetShowCloseButtonMethodInfo -data HeaderBarGetSubtitleMethodInfo -data HeaderBarGetTitleMethodInfo -data HeaderBarPackEndMethodInfo -data HeaderBarPackStartMethodInfo -data HeaderBarSetCustomTitleMethodInfo -data HeaderBarSetDecorationLayoutMethodInfo -data HeaderBarSetHasSubtitleMethodInfo -data HeaderBarSetShowCloseButtonMethodInfo -data HeaderBarSetSubtitleMethodInfo -data HeaderBarSetTitleMethodInfo diff --git a/GI/Gtk/Objects/IMContext.hs b/GI/Gtk/Objects/IMContext.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IMContext.hs +++ /dev/null @@ -1,943 +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.Gtk.Objects.IMContext - ( - --- * Exported types - IMContext(..) , - IMContextK , - toIMContext , - noIMContext , - - - -- * Methods --- ** iMContextDeleteSurrounding - IMContextDeleteSurroundingMethodInfo , - iMContextDeleteSurrounding , - - --- ** iMContextFilterKeypress - IMContextFilterKeypressMethodInfo , - iMContextFilterKeypress , - - --- ** iMContextFocusIn - IMContextFocusInMethodInfo , - iMContextFocusIn , - - --- ** iMContextFocusOut - IMContextFocusOutMethodInfo , - iMContextFocusOut , - - --- ** iMContextGetPreeditString - IMContextGetPreeditStringMethodInfo , - iMContextGetPreeditString , - - --- ** iMContextGetSurrounding - IMContextGetSurroundingMethodInfo , - iMContextGetSurrounding , - - --- ** iMContextReset - IMContextResetMethodInfo , - iMContextReset , - - --- ** iMContextSetClientWindow - IMContextSetClientWindowMethodInfo , - iMContextSetClientWindow , - - --- ** iMContextSetCursorLocation - IMContextSetCursorLocationMethodInfo , - iMContextSetCursorLocation , - - --- ** iMContextSetSurrounding - IMContextSetSurroundingMethodInfo , - iMContextSetSurrounding , - - --- ** iMContextSetUsePreedit - IMContextSetUsePreeditMethodInfo , - iMContextSetUsePreedit , - - - - - -- * Properties --- ** InputHints - IMContextInputHintsPropertyInfo , - constructIMContextInputHints , - getIMContextInputHints , - iMContextInputHints , - setIMContextInputHints , - - --- ** InputPurpose - IMContextInputPurposePropertyInfo , - constructIMContextInputPurpose , - getIMContextInputPurpose , - iMContextInputPurpose , - setIMContextInputPurpose , - - - - - -- * Signals --- ** Commit - IMContextCommitCallback , - IMContextCommitCallbackC , - IMContextCommitSignalInfo , - afterIMContextCommit , - iMContextCommitCallbackWrapper , - iMContextCommitClosure , - mkIMContextCommitCallback , - noIMContextCommitCallback , - onIMContextCommit , - - --- ** DeleteSurrounding - IMContextDeleteSurroundingCallback , - IMContextDeleteSurroundingCallbackC , - IMContextDeleteSurroundingSignalInfo , - afterIMContextDeleteSurrounding , - iMContextDeleteSurroundingCallbackWrapper, - iMContextDeleteSurroundingClosure , - mkIMContextDeleteSurroundingCallback , - noIMContextDeleteSurroundingCallback , - onIMContextDeleteSurrounding , - - --- ** PreeditChanged - IMContextPreeditChangedCallback , - IMContextPreeditChangedCallbackC , - IMContextPreeditChangedSignalInfo , - afterIMContextPreeditChanged , - iMContextPreeditChangedCallbackWrapper , - iMContextPreeditChangedClosure , - mkIMContextPreeditChangedCallback , - noIMContextPreeditChangedCallback , - onIMContextPreeditChanged , - - --- ** PreeditEnd - IMContextPreeditEndCallback , - IMContextPreeditEndCallbackC , - IMContextPreeditEndSignalInfo , - afterIMContextPreeditEnd , - iMContextPreeditEndCallbackWrapper , - iMContextPreeditEndClosure , - mkIMContextPreeditEndCallback , - noIMContextPreeditEndCallback , - onIMContextPreeditEnd , - - --- ** PreeditStart - IMContextPreeditStartCallback , - IMContextPreeditStartCallbackC , - IMContextPreeditStartSignalInfo , - afterIMContextPreeditStart , - iMContextPreeditStartCallbackWrapper , - iMContextPreeditStartClosure , - mkIMContextPreeditStartCallback , - noIMContextPreeditStartCallback , - onIMContextPreeditStart , - - --- ** RetrieveSurrounding - IMContextRetrieveSurroundingCallback , - IMContextRetrieveSurroundingCallbackC , - IMContextRetrieveSurroundingSignalInfo , - afterIMContextRetrieveSurrounding , - iMContextRetrieveSurroundingCallbackWrapper, - iMContextRetrieveSurroundingClosure , - mkIMContextRetrieveSurroundingCallback , - noIMContextRetrieveSurroundingCallback , - onIMContextRetrieveSurrounding , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype IMContext = IMContext (ForeignPtr IMContext) -foreign import ccall "gtk_im_context_get_type" - c_gtk_im_context_get_type :: IO GType - -type instance ParentTypes IMContext = IMContextParentTypes -type IMContextParentTypes = '[GObject.Object] - -instance GObject IMContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_im_context_get_type - - -class GObject o => IMContextK o -instance (GObject o, IsDescendantOf IMContext o) => IMContextK o - -toIMContext :: IMContextK o => o -> IO IMContext -toIMContext = unsafeCastTo IMContext - -noIMContext :: Maybe IMContext -noIMContext = Nothing - -type family ResolveIMContextMethod (t :: Symbol) (o :: *) :: * where - ResolveIMContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIMContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIMContextMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo - ResolveIMContextMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo - ResolveIMContextMethod "focusIn" o = IMContextFocusInMethodInfo - ResolveIMContextMethod "focusOut" o = IMContextFocusOutMethodInfo - ResolveIMContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIMContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIMContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIMContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIMContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIMContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIMContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIMContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIMContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIMContextMethod "reset" o = IMContextResetMethodInfo - ResolveIMContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIMContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIMContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIMContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIMContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIMContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIMContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIMContextMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo - ResolveIMContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIMContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIMContextMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo - ResolveIMContextMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo - ResolveIMContextMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo - ResolveIMContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIMContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIMContextMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo - ResolveIMContextMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo - ResolveIMContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIMContextMethod t IMContext, MethodInfo info IMContext p) => IsLabelProxy t (IMContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIMContextMethod t IMContext, MethodInfo info IMContext p) => IsLabel t (IMContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal IMContext::commit -type IMContextCommitCallback = - T.Text -> - IO () - -noIMContextCommitCallback :: Maybe IMContextCommitCallback -noIMContextCommitCallback = Nothing - -type IMContextCommitCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIMContextCommitCallback :: IMContextCommitCallbackC -> IO (FunPtr IMContextCommitCallbackC) - -iMContextCommitClosure :: IMContextCommitCallback -> IO Closure -iMContextCommitClosure cb = newCClosure =<< mkIMContextCommitCallback wrapped - where wrapped = iMContextCommitCallbackWrapper cb - -iMContextCommitCallbackWrapper :: - IMContextCommitCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -iMContextCommitCallbackWrapper _cb _ str _ = do - str' <- cstringToText str - _cb str' - -onIMContextCommit :: (GObject a, MonadIO m) => a -> IMContextCommitCallback -> m SignalHandlerId -onIMContextCommit obj cb = liftIO $ connectIMContextCommit obj cb SignalConnectBefore -afterIMContextCommit :: (GObject a, MonadIO m) => a -> IMContextCommitCallback -> m SignalHandlerId -afterIMContextCommit obj cb = connectIMContextCommit obj cb SignalConnectAfter - -connectIMContextCommit :: (GObject a, MonadIO m) => - a -> IMContextCommitCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextCommit obj cb after = liftIO $ do - cb' <- mkIMContextCommitCallback (iMContextCommitCallbackWrapper cb) - connectSignalFunPtr obj "commit" cb' after - --- signal IMContext::delete-surrounding -type IMContextDeleteSurroundingCallback = - Int32 -> - Int32 -> - IO Bool - -noIMContextDeleteSurroundingCallback :: Maybe IMContextDeleteSurroundingCallback -noIMContextDeleteSurroundingCallback = Nothing - -type IMContextDeleteSurroundingCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIMContextDeleteSurroundingCallback :: IMContextDeleteSurroundingCallbackC -> IO (FunPtr IMContextDeleteSurroundingCallbackC) - -iMContextDeleteSurroundingClosure :: IMContextDeleteSurroundingCallback -> IO Closure -iMContextDeleteSurroundingClosure cb = newCClosure =<< mkIMContextDeleteSurroundingCallback wrapped - where wrapped = iMContextDeleteSurroundingCallbackWrapper cb - -iMContextDeleteSurroundingCallbackWrapper :: - IMContextDeleteSurroundingCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO CInt -iMContextDeleteSurroundingCallbackWrapper _cb _ offset nChars _ = do - result <- _cb offset nChars - let result' = (fromIntegral . fromEnum) result - return result' - -onIMContextDeleteSurrounding :: (GObject a, MonadIO m) => a -> IMContextDeleteSurroundingCallback -> m SignalHandlerId -onIMContextDeleteSurrounding obj cb = liftIO $ connectIMContextDeleteSurrounding obj cb SignalConnectBefore -afterIMContextDeleteSurrounding :: (GObject a, MonadIO m) => a -> IMContextDeleteSurroundingCallback -> m SignalHandlerId -afterIMContextDeleteSurrounding obj cb = connectIMContextDeleteSurrounding obj cb SignalConnectAfter - -connectIMContextDeleteSurrounding :: (GObject a, MonadIO m) => - a -> IMContextDeleteSurroundingCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextDeleteSurrounding obj cb after = liftIO $ do - cb' <- mkIMContextDeleteSurroundingCallback (iMContextDeleteSurroundingCallbackWrapper cb) - connectSignalFunPtr obj "delete-surrounding" cb' after - --- signal IMContext::preedit-changed -type IMContextPreeditChangedCallback = - IO () - -noIMContextPreeditChangedCallback :: Maybe IMContextPreeditChangedCallback -noIMContextPreeditChangedCallback = Nothing - -type IMContextPreeditChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIMContextPreeditChangedCallback :: IMContextPreeditChangedCallbackC -> IO (FunPtr IMContextPreeditChangedCallbackC) - -iMContextPreeditChangedClosure :: IMContextPreeditChangedCallback -> IO Closure -iMContextPreeditChangedClosure cb = newCClosure =<< mkIMContextPreeditChangedCallback wrapped - where wrapped = iMContextPreeditChangedCallbackWrapper cb - -iMContextPreeditChangedCallbackWrapper :: - IMContextPreeditChangedCallback -> - Ptr () -> - Ptr () -> - IO () -iMContextPreeditChangedCallbackWrapper _cb _ _ = do - _cb - -onIMContextPreeditChanged :: (GObject a, MonadIO m) => a -> IMContextPreeditChangedCallback -> m SignalHandlerId -onIMContextPreeditChanged obj cb = liftIO $ connectIMContextPreeditChanged obj cb SignalConnectBefore -afterIMContextPreeditChanged :: (GObject a, MonadIO m) => a -> IMContextPreeditChangedCallback -> m SignalHandlerId -afterIMContextPreeditChanged obj cb = connectIMContextPreeditChanged obj cb SignalConnectAfter - -connectIMContextPreeditChanged :: (GObject a, MonadIO m) => - a -> IMContextPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextPreeditChanged obj cb after = liftIO $ do - cb' <- mkIMContextPreeditChangedCallback (iMContextPreeditChangedCallbackWrapper cb) - connectSignalFunPtr obj "preedit-changed" cb' after - --- signal IMContext::preedit-end -type IMContextPreeditEndCallback = - IO () - -noIMContextPreeditEndCallback :: Maybe IMContextPreeditEndCallback -noIMContextPreeditEndCallback = Nothing - -type IMContextPreeditEndCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIMContextPreeditEndCallback :: IMContextPreeditEndCallbackC -> IO (FunPtr IMContextPreeditEndCallbackC) - -iMContextPreeditEndClosure :: IMContextPreeditEndCallback -> IO Closure -iMContextPreeditEndClosure cb = newCClosure =<< mkIMContextPreeditEndCallback wrapped - where wrapped = iMContextPreeditEndCallbackWrapper cb - -iMContextPreeditEndCallbackWrapper :: - IMContextPreeditEndCallback -> - Ptr () -> - Ptr () -> - IO () -iMContextPreeditEndCallbackWrapper _cb _ _ = do - _cb - -onIMContextPreeditEnd :: (GObject a, MonadIO m) => a -> IMContextPreeditEndCallback -> m SignalHandlerId -onIMContextPreeditEnd obj cb = liftIO $ connectIMContextPreeditEnd obj cb SignalConnectBefore -afterIMContextPreeditEnd :: (GObject a, MonadIO m) => a -> IMContextPreeditEndCallback -> m SignalHandlerId -afterIMContextPreeditEnd obj cb = connectIMContextPreeditEnd obj cb SignalConnectAfter - -connectIMContextPreeditEnd :: (GObject a, MonadIO m) => - a -> IMContextPreeditEndCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextPreeditEnd obj cb after = liftIO $ do - cb' <- mkIMContextPreeditEndCallback (iMContextPreeditEndCallbackWrapper cb) - connectSignalFunPtr obj "preedit-end" cb' after - --- signal IMContext::preedit-start -type IMContextPreeditStartCallback = - IO () - -noIMContextPreeditStartCallback :: Maybe IMContextPreeditStartCallback -noIMContextPreeditStartCallback = Nothing - -type IMContextPreeditStartCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIMContextPreeditStartCallback :: IMContextPreeditStartCallbackC -> IO (FunPtr IMContextPreeditStartCallbackC) - -iMContextPreeditStartClosure :: IMContextPreeditStartCallback -> IO Closure -iMContextPreeditStartClosure cb = newCClosure =<< mkIMContextPreeditStartCallback wrapped - where wrapped = iMContextPreeditStartCallbackWrapper cb - -iMContextPreeditStartCallbackWrapper :: - IMContextPreeditStartCallback -> - Ptr () -> - Ptr () -> - IO () -iMContextPreeditStartCallbackWrapper _cb _ _ = do - _cb - -onIMContextPreeditStart :: (GObject a, MonadIO m) => a -> IMContextPreeditStartCallback -> m SignalHandlerId -onIMContextPreeditStart obj cb = liftIO $ connectIMContextPreeditStart obj cb SignalConnectBefore -afterIMContextPreeditStart :: (GObject a, MonadIO m) => a -> IMContextPreeditStartCallback -> m SignalHandlerId -afterIMContextPreeditStart obj cb = connectIMContextPreeditStart obj cb SignalConnectAfter - -connectIMContextPreeditStart :: (GObject a, MonadIO m) => - a -> IMContextPreeditStartCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextPreeditStart obj cb after = liftIO $ do - cb' <- mkIMContextPreeditStartCallback (iMContextPreeditStartCallbackWrapper cb) - connectSignalFunPtr obj "preedit-start" cb' after - --- signal IMContext::retrieve-surrounding -type IMContextRetrieveSurroundingCallback = - IO Bool - -noIMContextRetrieveSurroundingCallback :: Maybe IMContextRetrieveSurroundingCallback -noIMContextRetrieveSurroundingCallback = Nothing - -type IMContextRetrieveSurroundingCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIMContextRetrieveSurroundingCallback :: IMContextRetrieveSurroundingCallbackC -> IO (FunPtr IMContextRetrieveSurroundingCallbackC) - -iMContextRetrieveSurroundingClosure :: IMContextRetrieveSurroundingCallback -> IO Closure -iMContextRetrieveSurroundingClosure cb = newCClosure =<< mkIMContextRetrieveSurroundingCallback wrapped - where wrapped = iMContextRetrieveSurroundingCallbackWrapper cb - -iMContextRetrieveSurroundingCallbackWrapper :: - IMContextRetrieveSurroundingCallback -> - Ptr () -> - Ptr () -> - IO CInt -iMContextRetrieveSurroundingCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onIMContextRetrieveSurrounding :: (GObject a, MonadIO m) => a -> IMContextRetrieveSurroundingCallback -> m SignalHandlerId -onIMContextRetrieveSurrounding obj cb = liftIO $ connectIMContextRetrieveSurrounding obj cb SignalConnectBefore -afterIMContextRetrieveSurrounding :: (GObject a, MonadIO m) => a -> IMContextRetrieveSurroundingCallback -> m SignalHandlerId -afterIMContextRetrieveSurrounding obj cb = connectIMContextRetrieveSurrounding obj cb SignalConnectAfter - -connectIMContextRetrieveSurrounding :: (GObject a, MonadIO m) => - a -> IMContextRetrieveSurroundingCallback -> SignalConnectMode -> m SignalHandlerId -connectIMContextRetrieveSurrounding obj cb after = liftIO $ do - cb' <- mkIMContextRetrieveSurroundingCallback (iMContextRetrieveSurroundingCallbackWrapper cb) - connectSignalFunPtr obj "retrieve-surrounding" cb' after - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getIMContextInputHints :: (MonadIO m, IMContextK o) => o -> m [InputHints] -getIMContextInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" - -setIMContextInputHints :: (MonadIO m, IMContextK o) => o -> [InputHints] -> m () -setIMContextInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val - -constructIMContextInputHints :: [InputHints] -> IO ([Char], GValue) -constructIMContextInputHints val = constructObjectPropertyFlags "input-hints" val - -data IMContextInputHintsPropertyInfo -instance AttrInfo IMContextInputHintsPropertyInfo where - type AttrAllowedOps IMContextInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IMContextInputHintsPropertyInfo = (~) [InputHints] - type AttrBaseTypeConstraint IMContextInputHintsPropertyInfo = IMContextK - type AttrGetType IMContextInputHintsPropertyInfo = [InputHints] - type AttrLabel IMContextInputHintsPropertyInfo = "input-hints" - attrGet _ = getIMContextInputHints - attrSet _ = setIMContextInputHints - attrConstruct _ = constructIMContextInputHints - attrClear _ = undefined - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getIMContextInputPurpose :: (MonadIO m, IMContextK o) => o -> m InputPurpose -getIMContextInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" - -setIMContextInputPurpose :: (MonadIO m, IMContextK o) => o -> InputPurpose -> m () -setIMContextInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val - -constructIMContextInputPurpose :: InputPurpose -> IO ([Char], GValue) -constructIMContextInputPurpose val = constructObjectPropertyEnum "input-purpose" val - -data IMContextInputPurposePropertyInfo -instance AttrInfo IMContextInputPurposePropertyInfo where - type AttrAllowedOps IMContextInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IMContextInputPurposePropertyInfo = (~) InputPurpose - type AttrBaseTypeConstraint IMContextInputPurposePropertyInfo = IMContextK - type AttrGetType IMContextInputPurposePropertyInfo = InputPurpose - type AttrLabel IMContextInputPurposePropertyInfo = "input-purpose" - attrGet _ = getIMContextInputPurpose - attrSet _ = setIMContextInputPurpose - attrConstruct _ = constructIMContextInputPurpose - attrClear _ = undefined - -type instance AttributeList IMContext = IMContextAttributeList -type IMContextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -iMContextInputHints :: AttrLabelProxy "inputHints" -iMContextInputHints = AttrLabelProxy - -iMContextInputPurpose :: AttrLabelProxy "inputPurpose" -iMContextInputPurpose = AttrLabelProxy - -data IMContextCommitSignalInfo -instance SignalInfo IMContextCommitSignalInfo where - type HaskellCallbackType IMContextCommitSignalInfo = IMContextCommitCallback - connectSignal _ = connectIMContextCommit - -data IMContextDeleteSurroundingSignalInfo -instance SignalInfo IMContextDeleteSurroundingSignalInfo where - type HaskellCallbackType IMContextDeleteSurroundingSignalInfo = IMContextDeleteSurroundingCallback - connectSignal _ = connectIMContextDeleteSurrounding - -data IMContextPreeditChangedSignalInfo -instance SignalInfo IMContextPreeditChangedSignalInfo where - type HaskellCallbackType IMContextPreeditChangedSignalInfo = IMContextPreeditChangedCallback - connectSignal _ = connectIMContextPreeditChanged - -data IMContextPreeditEndSignalInfo -instance SignalInfo IMContextPreeditEndSignalInfo where - type HaskellCallbackType IMContextPreeditEndSignalInfo = IMContextPreeditEndCallback - connectSignal _ = connectIMContextPreeditEnd - -data IMContextPreeditStartSignalInfo -instance SignalInfo IMContextPreeditStartSignalInfo where - type HaskellCallbackType IMContextPreeditStartSignalInfo = IMContextPreeditStartCallback - connectSignal _ = connectIMContextPreeditStart - -data IMContextRetrieveSurroundingSignalInfo -instance SignalInfo IMContextRetrieveSurroundingSignalInfo where - type HaskellCallbackType IMContextRetrieveSurroundingSignalInfo = IMContextRetrieveSurroundingCallback - connectSignal _ = connectIMContextRetrieveSurrounding - -type instance SignalList IMContext = IMContextSignalList -type IMContextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) - --- method IMContext::delete_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", 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 = "n_chars", 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 "gtk_im_context_delete_surrounding" gtk_im_context_delete_surrounding :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Int32 -> -- offset : TBasicType TInt - Int32 -> -- n_chars : TBasicType TInt - IO CInt - - -iMContextDeleteSurrounding :: - (MonadIO m, IMContextK a) => - a -- _obj - -> Int32 -- offset - -> Int32 -- nChars - -> m Bool -- result -iMContextDeleteSurrounding _obj offset nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_im_context_delete_surrounding _obj' offset nChars - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IMContextDeleteSurroundingMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, IMContextK a) => MethodInfo IMContextDeleteSurroundingMethodInfo a signature where - overloadedMethod _ = iMContextDeleteSurrounding - --- method IMContext::filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_im_context_filter_keypress" gtk_im_context_filter_keypress :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -iMContextFilterKeypress :: - (MonadIO m, IMContextK a) => - a -- _obj - -> Gdk.EventKey -- event - -> m Bool -- result -iMContextFilterKeypress _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_im_context_filter_keypress _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data IMContextFilterKeypressMethodInfo -instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, IMContextK a) => MethodInfo IMContextFilterKeypressMethodInfo a signature where - overloadedMethod _ = iMContextFilterKeypress - --- method IMContext::focus_in --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", 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 "gtk_im_context_focus_in" gtk_im_context_focus_in :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - IO () - - -iMContextFocusIn :: - (MonadIO m, IMContextK a) => - a -- _obj - -> m () -- result -iMContextFocusIn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_focus_in _obj' - touchManagedPtr _obj - return () - -data IMContextFocusInMethodInfo -instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextFocusInMethodInfo a signature where - overloadedMethod _ = iMContextFocusIn - --- method IMContext::focus_out --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", 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 "gtk_im_context_focus_out" gtk_im_context_focus_out :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - IO () - - -iMContextFocusOut :: - (MonadIO m, IMContextK a) => - a -- _obj - -> m () -- result -iMContextFocusOut _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_focus_out _obj' - touchManagedPtr _obj - return () - -data IMContextFocusOutMethodInfo -instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextFocusOutMethodInfo a signature where - overloadedMethod _ = iMContextFocusOut - --- method IMContext::get_preedit_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt, 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 "gtk_im_context_get_preedit_string" gtk_im_context_get_preedit_string :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Ptr CString -> -- str : TBasicType TUTF8 - Ptr (Ptr Pango.AttrList) -> -- attrs : TInterface "Pango" "AttrList" - Ptr Int32 -> -- cursor_pos : TBasicType TInt - IO () - - -iMContextGetPreeditString :: - (MonadIO m, IMContextK a) => - a -- _obj - -> m (T.Text,Pango.AttrList,Int32) -- result -iMContextGetPreeditString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str <- allocMem :: IO (Ptr CString) - attrs <- allocMem :: IO (Ptr (Ptr Pango.AttrList)) - cursorPos <- allocMem :: IO (Ptr Int32) - gtk_im_context_get_preedit_string _obj' str attrs cursorPos - str' <- peek str - str'' <- cstringToText str' - freeMem str' - attrs' <- peek attrs - attrs'' <- (wrapBoxed Pango.AttrList) attrs' - cursorPos' <- peek cursorPos - touchManagedPtr _obj - freeMem str - freeMem attrs - freeMem cursorPos - return (str'', attrs'', cursorPos') - -data IMContextGetPreeditStringMethodInfo -instance (signature ~ (m (T.Text,Pango.AttrList,Int32)), MonadIO m, IMContextK a) => MethodInfo IMContextGetPreeditStringMethodInfo a signature where - overloadedMethod _ = iMContextGetPreeditString - --- method IMContext::get_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", 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 "gtk_im_context_get_surrounding" gtk_im_context_get_surrounding :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Ptr CString -> -- text : TBasicType TUTF8 - Ptr Int32 -> -- cursor_index : TBasicType TInt - IO CInt - - -iMContextGetSurrounding :: - (MonadIO m, IMContextK a) => - a -- _obj - -> m (Bool,T.Text,Int32) -- result -iMContextGetSurrounding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text <- allocMem :: IO (Ptr CString) - cursorIndex <- allocMem :: IO (Ptr Int32) - result <- gtk_im_context_get_surrounding _obj' text cursorIndex - let result' = (/= 0) result - text' <- peek text - text'' <- cstringToText text' - freeMem text' - cursorIndex' <- peek cursorIndex - touchManagedPtr _obj - freeMem text - freeMem cursorIndex - return (result', text'', cursorIndex') - -data IMContextGetSurroundingMethodInfo -instance (signature ~ (m (Bool,T.Text,Int32)), MonadIO m, IMContextK a) => MethodInfo IMContextGetSurroundingMethodInfo a signature where - overloadedMethod _ = iMContextGetSurrounding - --- method IMContext::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", 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 "gtk_im_context_reset" gtk_im_context_reset :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - IO () - - -iMContextReset :: - (MonadIO m, IMContextK a) => - a -- _obj - -> m () -- result -iMContextReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_reset _obj' - touchManagedPtr _obj - return () - -data IMContextResetMethodInfo -instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextResetMethodInfo a signature where - overloadedMethod _ = iMContextReset - --- method IMContext::set_client_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_im_context_set_client_window" gtk_im_context_set_client_window :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -iMContextSetClientWindow :: - (MonadIO m, IMContextK a, Gdk.WindowK b) => - a -- _obj - -> Maybe (b) -- window - -> m () -- result -iMContextSetClientWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWindow <- case window of - Nothing -> return nullPtr - Just jWindow -> do - let jWindow' = unsafeManagedPtrCastPtr jWindow - return jWindow' - gtk_im_context_set_client_window _obj' maybeWindow - touchManagedPtr _obj - whenJust window touchManagedPtr - return () - -data IMContextSetClientWindowMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IMContextK a, Gdk.WindowK b) => MethodInfo IMContextSetClientWindowMethodInfo a signature where - overloadedMethod _ = iMContextSetClientWindow - --- method IMContext::set_cursor_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", 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 "gtk_im_context_set_cursor_location" gtk_im_context_set_cursor_location :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" - IO () - - -iMContextSetCursorLocation :: - (MonadIO m, IMContextK a) => - a -- _obj - -> Gdk.Rectangle -- area - -> m () -- result -iMContextSetCursorLocation _obj area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - gtk_im_context_set_cursor_location _obj' area' - touchManagedPtr _obj - touchManagedPtr area - return () - -data IMContextSetCursorLocationMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetCursorLocationMethodInfo a signature where - overloadedMethod _ = iMContextSetCursorLocation - --- method IMContext::set_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", 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 "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - Int32 -> -- cursor_index : TBasicType TInt - IO () - - -iMContextSetSurrounding :: - (MonadIO m, IMContextK a) => - a -- _obj - -> T.Text -- text - -> Int32 -- len - -> Int32 -- cursorIndex - -> m () -- result -iMContextSetSurrounding _obj text len cursorIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_im_context_set_surrounding _obj' text' len cursorIndex - touchManagedPtr _obj - freeMem text' - return () - -data IMContextSetSurroundingMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetSurroundingMethodInfo a signature where - overloadedMethod _ = iMContextSetSurrounding - --- method IMContext::set_use_preedit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_preedit", 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 "gtk_im_context_set_use_preedit" gtk_im_context_set_use_preedit :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - CInt -> -- use_preedit : TBasicType TBoolean - IO () - - -iMContextSetUsePreedit :: - (MonadIO m, IMContextK a) => - a -- _obj - -> Bool -- usePreedit - -> m () -- result -iMContextSetUsePreedit _obj usePreedit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let usePreedit' = (fromIntegral . fromEnum) usePreedit - gtk_im_context_set_use_preedit _obj' usePreedit' - touchManagedPtr _obj - return () - -data IMContextSetUsePreeditMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetUsePreeditMethodInfo a signature where - overloadedMethod _ = iMContextSetUsePreedit - - diff --git a/GI/Gtk/Objects/IMContext.hs-boot b/GI/Gtk/Objects/IMContext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IMContext.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.IMContext 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 IMContext = IMContext (ForeignPtr IMContext) -instance GObject IMContext where -class GObject o => IMContextK o -instance (GObject o, IsDescendantOf IMContext o) => IMContextK o -data IMContextInputHintsPropertyInfo -data IMContextInputPurposePropertyInfo -data IMContextCommitSignalInfo -data IMContextDeleteSurroundingSignalInfo -data IMContextPreeditChangedSignalInfo -data IMContextPreeditEndSignalInfo -data IMContextPreeditStartSignalInfo -data IMContextRetrieveSurroundingSignalInfo -data IMContextDeleteSurroundingMethodInfo -data IMContextFilterKeypressMethodInfo -data IMContextFocusInMethodInfo -data IMContextFocusOutMethodInfo -data IMContextGetPreeditStringMethodInfo -data IMContextGetSurroundingMethodInfo -data IMContextResetMethodInfo -data IMContextSetClientWindowMethodInfo -data IMContextSetCursorLocationMethodInfo -data IMContextSetSurroundingMethodInfo -data IMContextSetUsePreeditMethodInfo diff --git a/GI/Gtk/Objects/IMContextSimple.hs b/GI/Gtk/Objects/IMContextSimple.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IMContextSimple.hs +++ /dev/null @@ -1,131 +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.Gtk.Objects.IMContextSimple - ( - --- * Exported types - IMContextSimple(..) , - IMContextSimpleK , - toIMContextSimple , - noIMContextSimple , - - - -- * Methods --- ** iMContextSimpleNew - iMContextSimpleNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype IMContextSimple = IMContextSimple (ForeignPtr IMContextSimple) -foreign import ccall "gtk_im_context_simple_get_type" - c_gtk_im_context_simple_get_type :: IO GType - -type instance ParentTypes IMContextSimple = IMContextSimpleParentTypes -type IMContextSimpleParentTypes = '[IMContext, GObject.Object] - -instance GObject IMContextSimple where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_im_context_simple_get_type - - -class GObject o => IMContextSimpleK o -instance (GObject o, IsDescendantOf IMContextSimple o) => IMContextSimpleK o - -toIMContextSimple :: IMContextSimpleK o => o -> IO IMContextSimple -toIMContextSimple = unsafeCastTo IMContextSimple - -noIMContextSimple :: Maybe IMContextSimple -noIMContextSimple = Nothing - -type family ResolveIMContextSimpleMethod (t :: Symbol) (o :: *) :: * where - ResolveIMContextSimpleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIMContextSimpleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIMContextSimpleMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo - ResolveIMContextSimpleMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo - ResolveIMContextSimpleMethod "focusIn" o = IMContextFocusInMethodInfo - ResolveIMContextSimpleMethod "focusOut" o = IMContextFocusOutMethodInfo - ResolveIMContextSimpleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIMContextSimpleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIMContextSimpleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIMContextSimpleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIMContextSimpleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIMContextSimpleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIMContextSimpleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIMContextSimpleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIMContextSimpleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIMContextSimpleMethod "reset" o = IMContextResetMethodInfo - ResolveIMContextSimpleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIMContextSimpleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIMContextSimpleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIMContextSimpleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIMContextSimpleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIMContextSimpleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIMContextSimpleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIMContextSimpleMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo - ResolveIMContextSimpleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIMContextSimpleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIMContextSimpleMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo - ResolveIMContextSimpleMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo - ResolveIMContextSimpleMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo - ResolveIMContextSimpleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIMContextSimpleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIMContextSimpleMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo - ResolveIMContextSimpleMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo - ResolveIMContextSimpleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIMContextSimpleMethod t IMContextSimple, MethodInfo info IMContextSimple p) => IsLabelProxy t (IMContextSimple -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIMContextSimpleMethod t IMContextSimple, MethodInfo info IMContextSimple p) => IsLabel t (IMContextSimple -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList IMContextSimple = IMContextSimpleAttributeList -type IMContextSimpleAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IMContextSimple = IMContextSimpleSignalList -type IMContextSimpleSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) - --- method IMContextSimple::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IMContextSimple") --- throws : False --- Skip return : False - -foreign import ccall "gtk_im_context_simple_new" gtk_im_context_simple_new :: - IO (Ptr IMContextSimple) - - -iMContextSimpleNew :: - (MonadIO m) => - m IMContextSimple -- result -iMContextSimpleNew = liftIO $ do - result <- gtk_im_context_simple_new - checkUnexpectedReturnNULL "gtk_im_context_simple_new" result - result' <- (wrapObject IMContextSimple) result - return result' - - diff --git a/GI/Gtk/Objects/IMContextSimple.hs-boot b/GI/Gtk/Objects/IMContextSimple.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IMContextSimple.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.IMContextSimple 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 IMContextSimple = IMContextSimple (ForeignPtr IMContextSimple) -instance GObject IMContextSimple where -class GObject o => IMContextSimpleK o -instance (GObject o, IsDescendantOf IMContextSimple o) => IMContextSimpleK o diff --git a/GI/Gtk/Objects/IMMulticontext.hs b/GI/Gtk/Objects/IMMulticontext.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IMMulticontext.hs +++ /dev/null @@ -1,240 +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.Gtk.Objects.IMMulticontext - ( - --- * Exported types - IMMulticontext(..) , - IMMulticontextK , - toIMMulticontext , - noIMMulticontext , - - - -- * Methods --- ** iMMulticontextAppendMenuitems - IMMulticontextAppendMenuitemsMethodInfo , - iMMulticontextAppendMenuitems , - - --- ** iMMulticontextGetContextId - IMMulticontextGetContextIdMethodInfo , - iMMulticontextGetContextId , - - --- ** iMMulticontextNew - iMMulticontextNew , - - --- ** iMMulticontextSetContextId - IMMulticontextSetContextIdMethodInfo , - iMMulticontextSetContextId , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype IMMulticontext = IMMulticontext (ForeignPtr IMMulticontext) -foreign import ccall "gtk_im_multicontext_get_type" - c_gtk_im_multicontext_get_type :: IO GType - -type instance ParentTypes IMMulticontext = IMMulticontextParentTypes -type IMMulticontextParentTypes = '[IMContext, GObject.Object] - -instance GObject IMMulticontext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_im_multicontext_get_type - - -class GObject o => IMMulticontextK o -instance (GObject o, IsDescendantOf IMMulticontext o) => IMMulticontextK o - -toIMMulticontext :: IMMulticontextK o => o -> IO IMMulticontext -toIMMulticontext = unsafeCastTo IMMulticontext - -noIMMulticontext :: Maybe IMMulticontext -noIMMulticontext = Nothing - -type family ResolveIMMulticontextMethod (t :: Symbol) (o :: *) :: * where - ResolveIMMulticontextMethod "appendMenuitems" o = IMMulticontextAppendMenuitemsMethodInfo - ResolveIMMulticontextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIMMulticontextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIMMulticontextMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo - ResolveIMMulticontextMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo - ResolveIMMulticontextMethod "focusIn" o = IMContextFocusInMethodInfo - ResolveIMMulticontextMethod "focusOut" o = IMContextFocusOutMethodInfo - ResolveIMMulticontextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIMMulticontextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIMMulticontextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIMMulticontextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIMMulticontextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIMMulticontextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIMMulticontextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIMMulticontextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIMMulticontextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIMMulticontextMethod "reset" o = IMContextResetMethodInfo - ResolveIMMulticontextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIMMulticontextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIMMulticontextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIMMulticontextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIMMulticontextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIMMulticontextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIMMulticontextMethod "getContextId" o = IMMulticontextGetContextIdMethodInfo - ResolveIMMulticontextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIMMulticontextMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo - ResolveIMMulticontextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIMMulticontextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIMMulticontextMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo - ResolveIMMulticontextMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo - ResolveIMMulticontextMethod "setContextId" o = IMMulticontextSetContextIdMethodInfo - ResolveIMMulticontextMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo - ResolveIMMulticontextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIMMulticontextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIMMulticontextMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo - ResolveIMMulticontextMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo - ResolveIMMulticontextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIMMulticontextMethod t IMMulticontext, MethodInfo info IMMulticontext p) => IsLabelProxy t (IMMulticontext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIMMulticontextMethod t IMMulticontext, MethodInfo info IMMulticontext p) => IsLabel t (IMMulticontext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList IMMulticontext = IMMulticontextAttributeList -type IMMulticontextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IMMulticontext = IMMulticontextSignalList -type IMMulticontextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) - --- method IMMulticontext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IMMulticontext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_im_multicontext_new" gtk_im_multicontext_new :: - IO (Ptr IMMulticontext) - - -iMMulticontextNew :: - (MonadIO m) => - m IMMulticontext -- result -iMMulticontextNew = liftIO $ do - result <- gtk_im_multicontext_new - checkUnexpectedReturnNULL "gtk_im_multicontext_new" result - result' <- (wrapObject IMMulticontext) result - return result' - --- method IMMulticontext::append_menuitems --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menushell", argType = TInterface "Gtk" "MenuShell", 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 "gtk_im_multicontext_append_menuitems" gtk_im_multicontext_append_menuitems :: - Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext" - Ptr MenuShell -> -- menushell : TInterface "Gtk" "MenuShell" - IO () - -{-# DEPRECATED iMMulticontextAppendMenuitems ["(Since version 3.10)","It is better to use the system-wide input"," method framework for changing input methods. Modern"," desktop shells offer on-screen displays for this that"," can triggered with a keyboard shortcut, e.g. Super-Space."]#-} -iMMulticontextAppendMenuitems :: - (MonadIO m, IMMulticontextK a, MenuShellK b) => - a -- _obj - -> b -- menushell - -> m () -- result -iMMulticontextAppendMenuitems _obj menushell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menushell' = unsafeManagedPtrCastPtr menushell - gtk_im_multicontext_append_menuitems _obj' menushell' - touchManagedPtr _obj - touchManagedPtr menushell - return () - -data IMMulticontextAppendMenuitemsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, IMMulticontextK a, MenuShellK b) => MethodInfo IMMulticontextAppendMenuitemsMethodInfo a signature where - overloadedMethod _ = iMMulticontextAppendMenuitems - --- method IMMulticontext::get_context_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", 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 "gtk_im_multicontext_get_context_id" gtk_im_multicontext_get_context_id :: - Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext" - IO CString - - -iMMulticontextGetContextId :: - (MonadIO m, IMMulticontextK a) => - a -- _obj - -> m T.Text -- result -iMMulticontextGetContextId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_im_multicontext_get_context_id _obj' - checkUnexpectedReturnNULL "gtk_im_multicontext_get_context_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data IMMulticontextGetContextIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, IMMulticontextK a) => MethodInfo IMMulticontextGetContextIdMethodInfo a signature where - overloadedMethod _ = iMMulticontextGetContextId - --- method IMMulticontext::set_context_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_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 "gtk_im_multicontext_set_context_id" gtk_im_multicontext_set_context_id :: - Ptr IMMulticontext -> -- _obj : TInterface "Gtk" "IMMulticontext" - CString -> -- context_id : TBasicType TUTF8 - IO () - - -iMMulticontextSetContextId :: - (MonadIO m, IMMulticontextK a) => - a -- _obj - -> T.Text -- contextId - -> m () -- result -iMMulticontextSetContextId _obj contextId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contextId' <- textToCString contextId - gtk_im_multicontext_set_context_id _obj' contextId' - touchManagedPtr _obj - freeMem contextId' - return () - -data IMMulticontextSetContextIdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, IMMulticontextK a) => MethodInfo IMMulticontextSetContextIdMethodInfo a signature where - overloadedMethod _ = iMMulticontextSetContextId - - diff --git a/GI/Gtk/Objects/IMMulticontext.hs-boot b/GI/Gtk/Objects/IMMulticontext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IMMulticontext.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.IMMulticontext 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 IMMulticontext = IMMulticontext (ForeignPtr IMMulticontext) -instance GObject IMMulticontext where -class GObject o => IMMulticontextK o -instance (GObject o, IsDescendantOf IMMulticontext o) => IMMulticontextK o -data IMMulticontextAppendMenuitemsMethodInfo -data IMMulticontextGetContextIdMethodInfo -data IMMulticontextSetContextIdMethodInfo diff --git a/GI/Gtk/Objects/IconFactory.hs b/GI/Gtk/Objects/IconFactory.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IconFactory.hs +++ /dev/null @@ -1,305 +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.Gtk.Objects.IconFactory - ( - --- * Exported types - IconFactory(..) , - IconFactoryK , - toIconFactory , - noIconFactory , - - - -- * Methods --- ** iconFactoryAdd - IconFactoryAddMethodInfo , - iconFactoryAdd , - - --- ** iconFactoryAddDefault - IconFactoryAddDefaultMethodInfo , - iconFactoryAddDefault , - - --- ** iconFactoryLookup - IconFactoryLookupMethodInfo , - iconFactoryLookup , - - --- ** iconFactoryLookupDefault - iconFactoryLookupDefault , - - --- ** iconFactoryNew - iconFactoryNew , - - --- ** iconFactoryRemoveDefault - IconFactoryRemoveDefaultMethodInfo , - iconFactoryRemoveDefault , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype IconFactory = IconFactory (ForeignPtr IconFactory) -foreign import ccall "gtk_icon_factory_get_type" - c_gtk_icon_factory_get_type :: IO GType - -type instance ParentTypes IconFactory = IconFactoryParentTypes -type IconFactoryParentTypes = '[GObject.Object, Buildable] - -instance GObject IconFactory where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_icon_factory_get_type - - -class GObject o => IconFactoryK o -instance (GObject o, IsDescendantOf IconFactory o) => IconFactoryK o - -toIconFactory :: IconFactoryK o => o -> IO IconFactory -toIconFactory = unsafeCastTo IconFactory - -noIconFactory :: Maybe IconFactory -noIconFactory = Nothing - -type family ResolveIconFactoryMethod (t :: Symbol) (o :: *) :: * where - ResolveIconFactoryMethod "add" o = IconFactoryAddMethodInfo - ResolveIconFactoryMethod "addChild" o = BuildableAddChildMethodInfo - ResolveIconFactoryMethod "addDefault" o = IconFactoryAddDefaultMethodInfo - ResolveIconFactoryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconFactoryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconFactoryMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveIconFactoryMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveIconFactoryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveIconFactoryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveIconFactoryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconFactoryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconFactoryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconFactoryMethod "lookup" o = IconFactoryLookupMethodInfo - ResolveIconFactoryMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconFactoryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconFactoryMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveIconFactoryMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconFactoryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconFactoryMethod "removeDefault" o = IconFactoryRemoveDefaultMethodInfo - ResolveIconFactoryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconFactoryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconFactoryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconFactoryMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconFactoryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconFactoryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconFactoryMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconFactoryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconFactoryMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconFactoryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveIconFactoryMethod "getName" o = BuildableGetNameMethodInfo - ResolveIconFactoryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconFactoryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconFactoryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveIconFactoryMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconFactoryMethod "setName" o = BuildableSetNameMethodInfo - ResolveIconFactoryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconFactoryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconFactoryMethod t IconFactory, MethodInfo info IconFactory p) => IsLabelProxy t (IconFactory -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconFactoryMethod t IconFactory, MethodInfo info IconFactory p) => IsLabel t (IconFactory -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList IconFactory = IconFactoryAttributeList -type IconFactoryAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList IconFactory = IconFactorySignalList -type IconFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconFactory::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconFactory") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_factory_new" gtk_icon_factory_new :: - IO (Ptr IconFactory) - -{-# DEPRECATED iconFactoryNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryNew :: - (MonadIO m) => - m IconFactory -- result -iconFactoryNew = liftIO $ do - result <- gtk_icon_factory_new - checkUnexpectedReturnNULL "gtk_icon_factory_new" result - result' <- (wrapObject IconFactory) result - return result' - --- method IconFactory::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", 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 "gtk_icon_factory_add" gtk_icon_factory_add :: - Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory" - CString -> -- stock_id : TBasicType TUTF8 - Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet" - IO () - -{-# DEPRECATED iconFactoryAdd ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryAdd :: - (MonadIO m, IconFactoryK a) => - a -- _obj - -> T.Text -- stockId - -> IconSet -- iconSet - -> m () -- result -iconFactoryAdd _obj stockId iconSet = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - let iconSet' = unsafeManagedPtrGetPtr iconSet - gtk_icon_factory_add _obj' stockId' iconSet' - touchManagedPtr _obj - touchManagedPtr iconSet - freeMem stockId' - return () - -data IconFactoryAddMethodInfo -instance (signature ~ (T.Text -> IconSet -> m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryAddMethodInfo a signature where - overloadedMethod _ = iconFactoryAdd - --- method IconFactory::add_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", 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 "gtk_icon_factory_add_default" gtk_icon_factory_add_default :: - Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory" - IO () - -{-# DEPRECATED iconFactoryAddDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryAddDefault :: - (MonadIO m, IconFactoryK a) => - a -- _obj - -> m () -- result -iconFactoryAddDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_factory_add_default _obj' - touchManagedPtr _obj - return () - -data IconFactoryAddDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryAddDefaultMethodInfo a signature where - overloadedMethod _ = iconFactoryAddDefault - --- method IconFactory::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_factory_lookup" gtk_icon_factory_lookup :: - Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory" - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr IconSet) - -{-# DEPRECATED iconFactoryLookup ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryLookup :: - (MonadIO m, IconFactoryK a) => - a -- _obj - -> T.Text -- stockId - -> m IconSet -- result -iconFactoryLookup _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - result <- gtk_icon_factory_lookup _obj' stockId' - checkUnexpectedReturnNULL "gtk_icon_factory_lookup" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stockId' - return result' - -data IconFactoryLookupMethodInfo -instance (signature ~ (T.Text -> m IconSet), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryLookupMethodInfo a signature where - overloadedMethod _ = iconFactoryLookup - --- method IconFactory::remove_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", 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 "gtk_icon_factory_remove_default" gtk_icon_factory_remove_default :: - Ptr IconFactory -> -- _obj : TInterface "Gtk" "IconFactory" - IO () - -{-# DEPRECATED iconFactoryRemoveDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryRemoveDefault :: - (MonadIO m, IconFactoryK a) => - a -- _obj - -> m () -- result -iconFactoryRemoveDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_factory_remove_default _obj' - touchManagedPtr _obj - return () - -data IconFactoryRemoveDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryRemoveDefaultMethodInfo a signature where - overloadedMethod _ = iconFactoryRemoveDefault - --- method IconFactory::lookup_default --- method type : MemberFunction --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_factory_lookup_default" gtk_icon_factory_lookup_default :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr IconSet) - -{-# DEPRECATED iconFactoryLookupDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconFactoryLookupDefault :: - (MonadIO m) => - T.Text -- stockId - -> m IconSet -- result -iconFactoryLookupDefault stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_icon_factory_lookup_default stockId' - checkUnexpectedReturnNULL "gtk_icon_factory_lookup_default" result - result' <- (newBoxed IconSet) result - freeMem stockId' - return result' - - diff --git a/GI/Gtk/Objects/IconFactory.hs-boot b/GI/Gtk/Objects/IconFactory.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IconFactory.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.IconFactory 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 IconFactory = IconFactory (ForeignPtr IconFactory) -instance GObject IconFactory where -class GObject o => IconFactoryK o -instance (GObject o, IsDescendantOf IconFactory o) => IconFactoryK o -data IconFactoryAddMethodInfo -data IconFactoryAddDefaultMethodInfo -data IconFactoryLookupMethodInfo -data IconFactoryRemoveDefaultMethodInfo diff --git a/GI/Gtk/Objects/IconInfo.hs b/GI/Gtk/Objects/IconInfo.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IconInfo.hs +++ /dev/null @@ -1,1047 +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.Gtk.Objects.IconInfo - ( - --- * Exported types - IconInfo(..) , - IconInfoK , - toIconInfo , - noIconInfo , - - - -- * Methods --- ** iconInfoGetAttachPoints - IconInfoGetAttachPointsMethodInfo , - iconInfoGetAttachPoints , - - --- ** iconInfoGetBaseScale - IconInfoGetBaseScaleMethodInfo , - iconInfoGetBaseScale , - - --- ** iconInfoGetBaseSize - IconInfoGetBaseSizeMethodInfo , - iconInfoGetBaseSize , - - --- ** iconInfoGetBuiltinPixbuf - IconInfoGetBuiltinPixbufMethodInfo , - iconInfoGetBuiltinPixbuf , - - --- ** iconInfoGetDisplayName - IconInfoGetDisplayNameMethodInfo , - iconInfoGetDisplayName , - - --- ** iconInfoGetEmbeddedRect - IconInfoGetEmbeddedRectMethodInfo , - iconInfoGetEmbeddedRect , - - --- ** iconInfoGetFilename - IconInfoGetFilenameMethodInfo , - iconInfoGetFilename , - - --- ** iconInfoIsSymbolic - IconInfoIsSymbolicMethodInfo , - iconInfoIsSymbolic , - - --- ** iconInfoLoadIcon - IconInfoLoadIconMethodInfo , - iconInfoLoadIcon , - - --- ** iconInfoLoadIconAsync - IconInfoLoadIconAsyncMethodInfo , - iconInfoLoadIconAsync , - - --- ** iconInfoLoadIconFinish - IconInfoLoadIconFinishMethodInfo , - iconInfoLoadIconFinish , - - --- ** iconInfoLoadSurface - IconInfoLoadSurfaceMethodInfo , - iconInfoLoadSurface , - - --- ** iconInfoLoadSymbolic - IconInfoLoadSymbolicMethodInfo , - iconInfoLoadSymbolic , - - --- ** iconInfoLoadSymbolicAsync - IconInfoLoadSymbolicAsyncMethodInfo , - iconInfoLoadSymbolicAsync , - - --- ** iconInfoLoadSymbolicFinish - IconInfoLoadSymbolicFinishMethodInfo , - iconInfoLoadSymbolicFinish , - - --- ** iconInfoLoadSymbolicForContext - IconInfoLoadSymbolicForContextMethodInfo, - iconInfoLoadSymbolicForContext , - - --- ** iconInfoLoadSymbolicForContextAsync - IconInfoLoadSymbolicForContextAsyncMethodInfo, - iconInfoLoadSymbolicForContextAsync , - - --- ** iconInfoLoadSymbolicForContextFinish - IconInfoLoadSymbolicForContextFinishMethodInfo, - iconInfoLoadSymbolicForContextFinish , - - --- ** iconInfoLoadSymbolicForStyle - IconInfoLoadSymbolicForStyleMethodInfo , - iconInfoLoadSymbolicForStyle , - - --- ** iconInfoNewForPixbuf - iconInfoNewForPixbuf , - - --- ** iconInfoSetRawCoordinates - IconInfoSetRawCoordinatesMethodInfo , - iconInfoSetRawCoordinates , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -newtype IconInfo = IconInfo (ForeignPtr IconInfo) -foreign import ccall "gtk_icon_info_get_type" - c_gtk_icon_info_get_type :: IO GType - -type instance ParentTypes IconInfo = IconInfoParentTypes -type IconInfoParentTypes = '[GObject.Object] - -instance GObject IconInfo where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_icon_info_get_type - - -class GObject o => IconInfoK o -instance (GObject o, IsDescendantOf IconInfo o) => IconInfoK o - -toIconInfo :: IconInfoK o => o -> IO IconInfo -toIconInfo = unsafeCastTo IconInfo - -noIconInfo :: Maybe IconInfo -noIconInfo = Nothing - -type family ResolveIconInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveIconInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconInfoMethod "isSymbolic" o = IconInfoIsSymbolicMethodInfo - ResolveIconInfoMethod "loadIcon" o = IconInfoLoadIconMethodInfo - ResolveIconInfoMethod "loadIconAsync" o = IconInfoLoadIconAsyncMethodInfo - ResolveIconInfoMethod "loadIconFinish" o = IconInfoLoadIconFinishMethodInfo - ResolveIconInfoMethod "loadSurface" o = IconInfoLoadSurfaceMethodInfo - ResolveIconInfoMethod "loadSymbolic" o = IconInfoLoadSymbolicMethodInfo - ResolveIconInfoMethod "loadSymbolicAsync" o = IconInfoLoadSymbolicAsyncMethodInfo - ResolveIconInfoMethod "loadSymbolicFinish" o = IconInfoLoadSymbolicFinishMethodInfo - ResolveIconInfoMethod "loadSymbolicForContext" o = IconInfoLoadSymbolicForContextMethodInfo - ResolveIconInfoMethod "loadSymbolicForContextAsync" o = IconInfoLoadSymbolicForContextAsyncMethodInfo - ResolveIconInfoMethod "loadSymbolicForContextFinish" o = IconInfoLoadSymbolicForContextFinishMethodInfo - ResolveIconInfoMethod "loadSymbolicForStyle" o = IconInfoLoadSymbolicForStyleMethodInfo - ResolveIconInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconInfoMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconInfoMethod "getAttachPoints" o = IconInfoGetAttachPointsMethodInfo - ResolveIconInfoMethod "getBaseScale" o = IconInfoGetBaseScaleMethodInfo - ResolveIconInfoMethod "getBaseSize" o = IconInfoGetBaseSizeMethodInfo - ResolveIconInfoMethod "getBuiltinPixbuf" o = IconInfoGetBuiltinPixbufMethodInfo - ResolveIconInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconInfoMethod "getDisplayName" o = IconInfoGetDisplayNameMethodInfo - ResolveIconInfoMethod "getEmbeddedRect" o = IconInfoGetEmbeddedRectMethodInfo - ResolveIconInfoMethod "getFilename" o = IconInfoGetFilenameMethodInfo - ResolveIconInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconInfoMethod "setRawCoordinates" o = IconInfoSetRawCoordinatesMethodInfo - ResolveIconInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconInfoMethod t IconInfo, MethodInfo info IconInfo p) => IsLabelProxy t (IconInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconInfoMethod t IconInfo, MethodInfo info IconInfo p) => IsLabel t (IconInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList IconInfo = IconInfoAttributeList -type IconInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList IconInfo = IconInfoSignalList -type IconInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconInfo::new_for_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_info_new_for_pixbuf" gtk_icon_info_new_for_pixbuf :: - Ptr IconTheme -> -- icon_theme : TInterface "Gtk" "IconTheme" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr IconInfo) - - -iconInfoNewForPixbuf :: - (MonadIO m, IconThemeK a, GdkPixbuf.PixbufK b) => - a -- iconTheme - -> b -- pixbuf - -> m IconInfo -- result -iconInfoNewForPixbuf iconTheme pixbuf = liftIO $ do - let iconTheme' = unsafeManagedPtrCastPtr iconTheme - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_icon_info_new_for_pixbuf iconTheme' pixbuf' - checkUnexpectedReturnNULL "gtk_icon_info_new_for_pixbuf" result - result' <- (wrapObject IconInfo) result - touchManagedPtr iconTheme - touchManagedPtr pixbuf - return result' - --- method IconInfo::get_attach_points --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_points", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_info_get_attach_points" gtk_icon_info_get_attach_points :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr (Ptr Gdk.Point) -> -- points : TCArray False (-1) 2 (TInterface "Gdk" "Point") - Ptr Int32 -> -- n_points : TBasicType TInt - IO CInt - -{-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-} -iconInfoGetAttachPoints :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m (Bool,[Gdk.Point]) -- result -iconInfoGetAttachPoints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - points <- allocMem :: IO (Ptr (Ptr Gdk.Point)) - nPoints <- allocMem :: IO (Ptr Int32) - result <- gtk_icon_info_get_attach_points _obj' points nPoints - nPoints' <- peek nPoints - let result' = (/= 0) result - points' <- peek points - points'' <- (unpackBlockArrayWithLength 8 nPoints') points' - points''' <- mapM (wrapPtr Gdk.Point) points'' - freeMem points' - touchManagedPtr _obj - freeMem points - freeMem nPoints - return (result', points''') - -data IconInfoGetAttachPointsMethodInfo -instance (signature ~ (m (Bool,[Gdk.Point])), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetAttachPointsMethodInfo a signature where - overloadedMethod _ = iconInfoGetAttachPoints - --- method IconInfo::get_base_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", 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 "gtk_icon_info_get_base_scale" gtk_icon_info_get_base_scale :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO Int32 - - -iconInfoGetBaseScale :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m Int32 -- result -iconInfoGetBaseScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_base_scale _obj' - touchManagedPtr _obj - return result - -data IconInfoGetBaseScaleMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBaseScaleMethodInfo a signature where - overloadedMethod _ = iconInfoGetBaseScale - --- method IconInfo::get_base_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", 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 "gtk_icon_info_get_base_size" gtk_icon_info_get_base_size :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO Int32 - - -iconInfoGetBaseSize :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m Int32 -- result -iconInfoGetBaseSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_base_size _obj' - touchManagedPtr _obj - return result - -data IconInfoGetBaseSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBaseSizeMethodInfo a signature where - overloadedMethod _ = iconInfoGetBaseSize - --- method IconInfo::get_builtin_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_info_get_builtin_pixbuf" gtk_icon_info_get_builtin_pixbuf :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED iconInfoGetBuiltinPixbuf ["(Since version 3.14)","This function is deprecated, use"," gtk_icon_theme_add_resource_path() instead of builtin icons."]#-} -iconInfoGetBuiltinPixbuf :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -iconInfoGetBuiltinPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_builtin_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_icon_info_get_builtin_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data IconInfoGetBuiltinPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBuiltinPixbufMethodInfo a signature where - overloadedMethod _ = iconInfoGetBuiltinPixbuf - --- method IconInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", 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 "gtk_icon_info_get_display_name" gtk_icon_info_get_display_name :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO CString - -{-# DEPRECATED iconInfoGetDisplayName ["(Since version 3.14)","Display names are deprecated"]#-} -iconInfoGetDisplayName :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m T.Text -- result -iconInfoGetDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_display_name _obj' - checkUnexpectedReturnNULL "gtk_icon_info_get_display_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data IconInfoGetDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetDisplayNameMethodInfo a signature where - overloadedMethod _ = iconInfoGetDisplayName - --- method IconInfo::get_embedded_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_info_get_embedded_rect" gtk_icon_info_get_embedded_rect :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gdk.Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" - IO CInt - -{-# DEPRECATED iconInfoGetEmbeddedRect ["(Since version 3.14)","Embedded rectangles are deprecated"]#-} -iconInfoGetEmbeddedRect :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m (Bool,Gdk.Rectangle) -- result -iconInfoGetEmbeddedRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rectangle <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_icon_info_get_embedded_rect _obj' rectangle - let result' = (/= 0) result - rectangle' <- (wrapBoxed Gdk.Rectangle) rectangle - touchManagedPtr _obj - return (result', rectangle') - -data IconInfoGetEmbeddedRectMethodInfo -instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetEmbeddedRectMethodInfo a signature where - overloadedMethod _ = iconInfoGetEmbeddedRect - --- method IconInfo::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_info_get_filename" gtk_icon_info_get_filename :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO CString - - -iconInfoGetFilename :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m [Char] -- result -iconInfoGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_filename _obj' - checkUnexpectedReturnNULL "gtk_icon_info_get_filename" result - result' <- cstringToString result - touchManagedPtr _obj - return result' - -data IconInfoGetFilenameMethodInfo -instance (signature ~ (m [Char]), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetFilenameMethodInfo a signature where - overloadedMethod _ = iconInfoGetFilename - --- method IconInfo::is_symbolic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", 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 "gtk_icon_info_is_symbolic" gtk_icon_info_is_symbolic :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - IO CInt - - -iconInfoIsSymbolic :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m Bool -- result -iconInfoIsSymbolic _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_is_symbolic _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconInfoIsSymbolicMethodInfo -instance (signature ~ (m Bool), MonadIO m, IconInfoK a) => MethodInfo IconInfoIsSymbolicMethodInfo a signature where - overloadedMethod _ = iconInfoIsSymbolic - --- method IconInfo::load_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_icon" gtk_icon_info_load_icon :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadIcon :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -iconInfoLoadIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ gtk_icon_info_load_icon _obj' - checkUnexpectedReturnNULL "gtk_icon_info_load_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data IconInfoLoadIconMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a) => MethodInfo IconInfoLoadIconMethodInfo a signature where - overloadedMethod _ = iconInfoLoadIcon - --- method IconInfo::load_icon_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_icon_info_load_icon_async" gtk_icon_info_load_icon_async :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -iconInfoLoadIconAsync :: - (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -iconInfoLoadIconAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - gtk_icon_info_load_icon_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data IconInfoLoadIconAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, Gio.CancellableK b) => MethodInfo IconInfoLoadIconAsyncMethodInfo a signature where - overloadedMethod _ = iconInfoLoadIconAsync - --- method IconInfo::load_icon_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_icon_finish" gtk_icon_info_load_icon_finish :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadIconFinish :: - (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- res - -> m GdkPixbuf.Pixbuf -- result -iconInfoLoadIconFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ gtk_icon_info_load_icon_finish _obj' res' - checkUnexpectedReturnNULL "gtk_icon_info_load_icon_finish" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data IconInfoLoadIconFinishMethodInfo -instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadIconFinishMethodInfo a signature where - overloadedMethod _ = iconInfoLoadIconFinish - --- method IconInfo::load_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_surface" gtk_icon_info_load_surface :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" - Ptr (Ptr GError) -> -- error - IO (Ptr Cairo.Surface) - - -iconInfoLoadSurface :: - (MonadIO m, IconInfoK a, Gdk.WindowK b) => - a -- _obj - -> Maybe (b) -- forWindow - -> m Cairo.Surface -- result -iconInfoLoadSurface _obj forWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeForWindow <- case forWindow of - Nothing -> return nullPtr - Just jForWindow -> do - let jForWindow' = unsafeManagedPtrCastPtr jForWindow - return jForWindow' - onException (do - result <- propagateGError $ gtk_icon_info_load_surface _obj' maybeForWindow - checkUnexpectedReturnNULL "gtk_icon_info_load_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - whenJust forWindow touchManagedPtr - return result' - ) (do - return () - ) - -data IconInfoLoadSurfaceMethodInfo -instance (signature ~ (Maybe (b) -> m Cairo.Surface), MonadIO m, IconInfoK a, Gdk.WindowK b) => MethodInfo IconInfoLoadSurfaceMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSurface - --- method IconInfo::load_symbolic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_symbolic" gtk_icon_info_load_symbolic :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gdk.RGBA -> -- fg : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- success_color : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- warning_color : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA" - Ptr CInt -> -- was_symbolic : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadSymbolic :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> Gdk.RGBA -- fg - -> Maybe (Gdk.RGBA) -- successColor - -> Maybe (Gdk.RGBA) -- warningColor - -> Maybe (Gdk.RGBA) -- errorColor - -> m (GdkPixbuf.Pixbuf,Bool) -- result -iconInfoLoadSymbolic _obj fg successColor warningColor errorColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fg' = unsafeManagedPtrGetPtr fg - maybeSuccessColor <- case successColor of - Nothing -> return nullPtr - Just jSuccessColor -> do - let jSuccessColor' = unsafeManagedPtrGetPtr jSuccessColor - return jSuccessColor' - maybeWarningColor <- case warningColor of - Nothing -> return nullPtr - Just jWarningColor -> do - let jWarningColor' = unsafeManagedPtrGetPtr jWarningColor - return jWarningColor' - maybeErrorColor <- case errorColor of - Nothing -> return nullPtr - Just jErrorColor -> do - let jErrorColor' = unsafeManagedPtrGetPtr jErrorColor - return jErrorColor' - wasSymbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic _obj' fg' maybeSuccessColor maybeWarningColor maybeErrorColor wasSymbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - wasSymbolic' <- peek wasSymbolic - let wasSymbolic'' = (/= 0) wasSymbolic' - touchManagedPtr _obj - touchManagedPtr fg - whenJust successColor touchManagedPtr - whenJust warningColor touchManagedPtr - whenJust errorColor touchManagedPtr - freeMem wasSymbolic - return (result', wasSymbolic'') - ) (do - freeMem wasSymbolic - ) - -data IconInfoLoadSymbolicMethodInfo -instance (signature ~ (Gdk.RGBA -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a) => MethodInfo IconInfoLoadSymbolicMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolic - --- method IconInfo::load_symbolic_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_icon_info_load_symbolic_async" gtk_icon_info_load_symbolic_async :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gdk.RGBA -> -- fg : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- success_color : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- warning_color : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -iconInfoLoadSymbolicAsync :: - (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -- _obj - -> Gdk.RGBA -- fg - -> Maybe (Gdk.RGBA) -- successColor - -> Maybe (Gdk.RGBA) -- warningColor - -> Maybe (Gdk.RGBA) -- errorColor - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -iconInfoLoadSymbolicAsync _obj fg successColor warningColor errorColor cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fg' = unsafeManagedPtrGetPtr fg - maybeSuccessColor <- case successColor of - Nothing -> return nullPtr - Just jSuccessColor -> do - let jSuccessColor' = unsafeManagedPtrGetPtr jSuccessColor - return jSuccessColor' - maybeWarningColor <- case warningColor of - Nothing -> return nullPtr - Just jWarningColor -> do - let jWarningColor' = unsafeManagedPtrGetPtr jWarningColor - return jWarningColor' - maybeErrorColor <- case errorColor of - Nothing -> return nullPtr - Just jErrorColor -> do - let jErrorColor' = unsafeManagedPtrGetPtr jErrorColor - return jErrorColor' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - gtk_icon_info_load_symbolic_async _obj' fg' maybeSuccessColor maybeWarningColor maybeErrorColor maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr fg - whenJust successColor touchManagedPtr - whenJust warningColor touchManagedPtr - whenJust errorColor touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data IconInfoLoadSymbolicAsyncMethodInfo -instance (signature ~ (Gdk.RGBA -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, Gio.CancellableK b) => MethodInfo IconInfoLoadSymbolicAsyncMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicAsync - --- method IconInfo::load_symbolic_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_symbolic_finish" gtk_icon_info_load_symbolic_finish :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr CInt -> -- was_symbolic : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadSymbolicFinish :: - (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- res - -> m (GdkPixbuf.Pixbuf,Bool) -- result -iconInfoLoadSymbolicFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - wasSymbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_finish _obj' res' wasSymbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_finish" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - wasSymbolic' <- peek wasSymbolic - let wasSymbolic'' = (/= 0) wasSymbolic' - touchManagedPtr _obj - touchManagedPtr res - freeMem wasSymbolic - return (result', wasSymbolic'') - ) (do - freeMem wasSymbolic - ) - -data IconInfoLoadSymbolicFinishMethodInfo -instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadSymbolicFinishMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicFinish - --- method IconInfo::load_symbolic_for_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_symbolic_for_context" gtk_icon_info_load_symbolic_for_context :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr CInt -> -- was_symbolic : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadSymbolicForContext :: - (MonadIO m, IconInfoK a, StyleContextK b) => - a -- _obj - -> b -- context - -> m (GdkPixbuf.Pixbuf,Bool) -- result -iconInfoLoadSymbolicForContext _obj context = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - wasSymbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context _obj' context' wasSymbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - wasSymbolic' <- peek wasSymbolic - let wasSymbolic'' = (/= 0) wasSymbolic' - touchManagedPtr _obj - touchManagedPtr context - freeMem wasSymbolic - return (result', wasSymbolic'') - ) (do - freeMem wasSymbolic - ) - -data IconInfoLoadSymbolicForContextMethodInfo -instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, StyleContextK b) => MethodInfo IconInfoLoadSymbolicForContextMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicForContext - --- method IconInfo::load_symbolic_for_context_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_icon_info_load_symbolic_for_context_async" gtk_icon_info_load_symbolic_for_context_async :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -iconInfoLoadSymbolicForContextAsync :: - (MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) => - a -- _obj - -> b -- context - -> Maybe (c) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -iconInfoLoadSymbolicForContextAsync _obj context cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let userData = nullPtr - gtk_icon_info_load_symbolic_for_context_async _obj' context' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr context - whenJust cancellable touchManagedPtr - return () - -data IconInfoLoadSymbolicForContextAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) => MethodInfo IconInfoLoadSymbolicForContextAsyncMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicForContextAsync - --- method IconInfo::load_symbolic_for_context_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_symbolic_for_context_finish" gtk_icon_info_load_symbolic_for_context_finish :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Gio.AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr CInt -> -- was_symbolic : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconInfoLoadSymbolicForContextFinish :: - (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -- _obj - -> b -- res - -> m (GdkPixbuf.Pixbuf,Bool) -- result -iconInfoLoadSymbolicForContextFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - wasSymbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context_finish _obj' res' wasSymbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context_finish" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - wasSymbolic' <- peek wasSymbolic - let wasSymbolic'' = (/= 0) wasSymbolic' - touchManagedPtr _obj - touchManagedPtr res - freeMem wasSymbolic - return (result', wasSymbolic'') - ) (do - freeMem wasSymbolic - ) - -data IconInfoLoadSymbolicForContextFinishMethodInfo -instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadSymbolicForContextFinishMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicForContextFinish - --- method IconInfo::load_symbolic_for_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_info_load_symbolic_for_style" gtk_icon_info_load_symbolic_for_style :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - Ptr Style -> -- style : TInterface "Gtk" "Style" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr CInt -> -- was_symbolic : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED iconInfoLoadSymbolicForStyle ["(Since version 3.0)","Use gtk_icon_info_load_symbolic_for_context() instead"]#-} -iconInfoLoadSymbolicForStyle :: - (MonadIO m, IconInfoK a, StyleK b) => - a -- _obj - -> b -- style - -> StateType -- state - -> m (GdkPixbuf.Pixbuf,Bool) -- result -iconInfoLoadSymbolicForStyle _obj style state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - let state' = (fromIntegral . fromEnum) state - wasSymbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_style _obj' style' state' wasSymbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_style" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - wasSymbolic' <- peek wasSymbolic - let wasSymbolic'' = (/= 0) wasSymbolic' - touchManagedPtr _obj - touchManagedPtr style - freeMem wasSymbolic - return (result', wasSymbolic'') - ) (do - freeMem wasSymbolic - ) - -data IconInfoLoadSymbolicForStyleMethodInfo -instance (signature ~ (b -> StateType -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, StyleK b) => MethodInfo IconInfoLoadSymbolicForStyleMethodInfo a signature where - overloadedMethod _ = iconInfoLoadSymbolicForStyle - --- method IconInfo::set_raw_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "raw_coordinates", 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 "gtk_icon_info_set_raw_coordinates" gtk_icon_info_set_raw_coordinates :: - Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" - CInt -> -- raw_coordinates : TBasicType TBoolean - IO () - -{-# DEPRECATED iconInfoSetRawCoordinates ["(Since version 3.14)","Embedded rectangles and attachment points are deprecated"]#-} -iconInfoSetRawCoordinates :: - (MonadIO m, IconInfoK a) => - a -- _obj - -> Bool -- rawCoordinates - -> m () -- result -iconInfoSetRawCoordinates _obj rawCoordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rawCoordinates' = (fromIntegral . fromEnum) rawCoordinates - gtk_icon_info_set_raw_coordinates _obj' rawCoordinates' - touchManagedPtr _obj - return () - -data IconInfoSetRawCoordinatesMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, IconInfoK a) => MethodInfo IconInfoSetRawCoordinatesMethodInfo a signature where - overloadedMethod _ = iconInfoSetRawCoordinates - - diff --git a/GI/Gtk/Objects/IconInfo.hs-boot b/GI/Gtk/Objects/IconInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IconInfo.hs-boot +++ /dev/null @@ -1,33 +0,0 @@ -module GI.Gtk.Objects.IconInfo 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 IconInfo = IconInfo (ForeignPtr IconInfo) -instance GObject IconInfo where -class GObject o => IconInfoK o -instance (GObject o, IsDescendantOf IconInfo o) => IconInfoK o -data IconInfoGetAttachPointsMethodInfo -data IconInfoGetBaseScaleMethodInfo -data IconInfoGetBaseSizeMethodInfo -data IconInfoGetBuiltinPixbufMethodInfo -data IconInfoGetDisplayNameMethodInfo -data IconInfoGetEmbeddedRectMethodInfo -data IconInfoGetFilenameMethodInfo -data IconInfoIsSymbolicMethodInfo -data IconInfoLoadIconMethodInfo -data IconInfoLoadIconAsyncMethodInfo -data IconInfoLoadIconFinishMethodInfo -data IconInfoLoadSurfaceMethodInfo -data IconInfoLoadSymbolicMethodInfo -data IconInfoLoadSymbolicAsyncMethodInfo -data IconInfoLoadSymbolicFinishMethodInfo -data IconInfoLoadSymbolicForContextMethodInfo -data IconInfoLoadSymbolicForContextAsyncMethodInfo -data IconInfoLoadSymbolicForContextFinishMethodInfo -data IconInfoLoadSymbolicForStyleMethodInfo -data IconInfoSetRawCoordinatesMethodInfo diff --git a/GI/Gtk/Objects/IconTheme.hs b/GI/Gtk/Objects/IconTheme.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IconTheme.hs +++ /dev/null @@ -1,1213 +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.Gtk.Objects.IconTheme - ( - --- * Exported types - IconTheme(..) , - IconThemeK , - toIconTheme , - noIconTheme , - - - -- * Methods --- ** iconThemeAddBuiltinIcon - iconThemeAddBuiltinIcon , - - --- ** iconThemeAddResourcePath - IconThemeAddResourcePathMethodInfo , - iconThemeAddResourcePath , - - --- ** iconThemeAppendSearchPath - IconThemeAppendSearchPathMethodInfo , - iconThemeAppendSearchPath , - - --- ** iconThemeChooseIcon - IconThemeChooseIconMethodInfo , - iconThemeChooseIcon , - - --- ** iconThemeChooseIconForScale - IconThemeChooseIconForScaleMethodInfo , - iconThemeChooseIconForScale , - - --- ** iconThemeGetDefault - iconThemeGetDefault , - - --- ** iconThemeGetExampleIconName - IconThemeGetExampleIconNameMethodInfo , - iconThemeGetExampleIconName , - - --- ** iconThemeGetForScreen - iconThemeGetForScreen , - - --- ** iconThemeGetIconSizes - IconThemeGetIconSizesMethodInfo , - iconThemeGetIconSizes , - - --- ** iconThemeGetSearchPath - IconThemeGetSearchPathMethodInfo , - iconThemeGetSearchPath , - - --- ** iconThemeHasIcon - IconThemeHasIconMethodInfo , - iconThemeHasIcon , - - --- ** iconThemeListContexts - IconThemeListContextsMethodInfo , - iconThemeListContexts , - - --- ** iconThemeListIcons - IconThemeListIconsMethodInfo , - iconThemeListIcons , - - --- ** iconThemeLoadIcon - IconThemeLoadIconMethodInfo , - iconThemeLoadIcon , - - --- ** iconThemeLoadIconForScale - IconThemeLoadIconForScaleMethodInfo , - iconThemeLoadIconForScale , - - --- ** iconThemeLoadSurface - IconThemeLoadSurfaceMethodInfo , - iconThemeLoadSurface , - - --- ** iconThemeLookupByGicon - IconThemeLookupByGiconMethodInfo , - iconThemeLookupByGicon , - - --- ** iconThemeLookupByGiconForScale - IconThemeLookupByGiconForScaleMethodInfo, - iconThemeLookupByGiconForScale , - - --- ** iconThemeLookupIcon - IconThemeLookupIconMethodInfo , - iconThemeLookupIcon , - - --- ** iconThemeLookupIconForScale - IconThemeLookupIconForScaleMethodInfo , - iconThemeLookupIconForScale , - - --- ** iconThemeNew - iconThemeNew , - - --- ** iconThemePrependSearchPath - IconThemePrependSearchPathMethodInfo , - iconThemePrependSearchPath , - - --- ** iconThemeRescanIfNeeded - IconThemeRescanIfNeededMethodInfo , - iconThemeRescanIfNeeded , - - --- ** iconThemeSetCustomTheme - IconThemeSetCustomThemeMethodInfo , - iconThemeSetCustomTheme , - - --- ** iconThemeSetScreen - IconThemeSetScreenMethodInfo , - iconThemeSetScreen , - - --- ** iconThemeSetSearchPath - IconThemeSetSearchPathMethodInfo , - iconThemeSetSearchPath , - - - - - -- * Signals --- ** Changed - IconThemeChangedCallback , - IconThemeChangedCallbackC , - IconThemeChangedSignalInfo , - afterIconThemeChanged , - iconThemeChangedCallbackWrapper , - iconThemeChangedClosure , - mkIconThemeChangedCallback , - noIconThemeChangedCallback , - onIconThemeChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -newtype IconTheme = IconTheme (ForeignPtr IconTheme) -foreign import ccall "gtk_icon_theme_get_type" - c_gtk_icon_theme_get_type :: IO GType - -type instance ParentTypes IconTheme = IconThemeParentTypes -type IconThemeParentTypes = '[GObject.Object] - -instance GObject IconTheme where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_icon_theme_get_type - - -class GObject o => IconThemeK o -instance (GObject o, IsDescendantOf IconTheme o) => IconThemeK o - -toIconTheme :: IconThemeK o => o -> IO IconTheme -toIconTheme = unsafeCastTo IconTheme - -noIconTheme :: Maybe IconTheme -noIconTheme = Nothing - -type family ResolveIconThemeMethod (t :: Symbol) (o :: *) :: * where - ResolveIconThemeMethod "addResourcePath" o = IconThemeAddResourcePathMethodInfo - ResolveIconThemeMethod "appendSearchPath" o = IconThemeAppendSearchPathMethodInfo - ResolveIconThemeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconThemeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconThemeMethod "chooseIcon" o = IconThemeChooseIconMethodInfo - ResolveIconThemeMethod "chooseIconForScale" o = IconThemeChooseIconForScaleMethodInfo - ResolveIconThemeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconThemeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconThemeMethod "hasIcon" o = IconThemeHasIconMethodInfo - ResolveIconThemeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconThemeMethod "listContexts" o = IconThemeListContextsMethodInfo - ResolveIconThemeMethod "listIcons" o = IconThemeListIconsMethodInfo - ResolveIconThemeMethod "loadIcon" o = IconThemeLoadIconMethodInfo - ResolveIconThemeMethod "loadIconForScale" o = IconThemeLoadIconForScaleMethodInfo - ResolveIconThemeMethod "loadSurface" o = IconThemeLoadSurfaceMethodInfo - ResolveIconThemeMethod "lookupByGicon" o = IconThemeLookupByGiconMethodInfo - ResolveIconThemeMethod "lookupByGiconForScale" o = IconThemeLookupByGiconForScaleMethodInfo - ResolveIconThemeMethod "lookupIcon" o = IconThemeLookupIconMethodInfo - ResolveIconThemeMethod "lookupIconForScale" o = IconThemeLookupIconForScaleMethodInfo - ResolveIconThemeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconThemeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconThemeMethod "prependSearchPath" o = IconThemePrependSearchPathMethodInfo - ResolveIconThemeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconThemeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconThemeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconThemeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconThemeMethod "rescanIfNeeded" o = IconThemeRescanIfNeededMethodInfo - ResolveIconThemeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconThemeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconThemeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconThemeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconThemeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconThemeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconThemeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconThemeMethod "getExampleIconName" o = IconThemeGetExampleIconNameMethodInfo - ResolveIconThemeMethod "getIconSizes" o = IconThemeGetIconSizesMethodInfo - ResolveIconThemeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconThemeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconThemeMethod "getSearchPath" o = IconThemeGetSearchPathMethodInfo - ResolveIconThemeMethod "setCustomTheme" o = IconThemeSetCustomThemeMethodInfo - ResolveIconThemeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconThemeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconThemeMethod "setScreen" o = IconThemeSetScreenMethodInfo - ResolveIconThemeMethod "setSearchPath" o = IconThemeSetSearchPathMethodInfo - ResolveIconThemeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconThemeMethod t IconTheme, MethodInfo info IconTheme p) => IsLabelProxy t (IconTheme -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconThemeMethod t IconTheme, MethodInfo info IconTheme p) => IsLabel t (IconTheme -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal IconTheme::changed -type IconThemeChangedCallback = - IO () - -noIconThemeChangedCallback :: Maybe IconThemeChangedCallback -noIconThemeChangedCallback = Nothing - -type IconThemeChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconThemeChangedCallback :: IconThemeChangedCallbackC -> IO (FunPtr IconThemeChangedCallbackC) - -iconThemeChangedClosure :: IconThemeChangedCallback -> IO Closure -iconThemeChangedClosure cb = newCClosure =<< mkIconThemeChangedCallback wrapped - where wrapped = iconThemeChangedCallbackWrapper cb - -iconThemeChangedCallbackWrapper :: - IconThemeChangedCallback -> - Ptr () -> - Ptr () -> - IO () -iconThemeChangedCallbackWrapper _cb _ _ = do - _cb - -onIconThemeChanged :: (GObject a, MonadIO m) => a -> IconThemeChangedCallback -> m SignalHandlerId -onIconThemeChanged obj cb = liftIO $ connectIconThemeChanged obj cb SignalConnectBefore -afterIconThemeChanged :: (GObject a, MonadIO m) => a -> IconThemeChangedCallback -> m SignalHandlerId -afterIconThemeChanged obj cb = connectIconThemeChanged obj cb SignalConnectAfter - -connectIconThemeChanged :: (GObject a, MonadIO m) => - a -> IconThemeChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectIconThemeChanged obj cb after = liftIO $ do - cb' <- mkIconThemeChangedCallback (iconThemeChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - -type instance AttributeList IconTheme = IconThemeAttributeList -type IconThemeAttributeList = ('[ ] :: [(Symbol, *)]) - -data IconThemeChangedSignalInfo -instance SignalInfo IconThemeChangedSignalInfo where - type HaskellCallbackType IconThemeChangedSignalInfo = IconThemeChangedCallback - connectSignal _ = connectIconThemeChanged - -type instance SignalList IconTheme = IconThemeSignalList -type IconThemeSignalList = ('[ '("changed", IconThemeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconTheme::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconTheme") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_new" gtk_icon_theme_new :: - IO (Ptr IconTheme) - - -iconThemeNew :: - (MonadIO m) => - m IconTheme -- result -iconThemeNew = liftIO $ do - result <- gtk_icon_theme_new - checkUnexpectedReturnNULL "gtk_icon_theme_new" result - result' <- (wrapObject IconTheme) result - return result' - --- method IconTheme::add_resource_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", 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 "gtk_icon_theme_add_resource_path" gtk_icon_theme_add_resource_path :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- path : TBasicType TUTF8 - IO () - - -iconThemeAddResourcePath :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -iconThemeAddResourcePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - gtk_icon_theme_add_resource_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data IconThemeAddResourcePathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeAddResourcePathMethodInfo a signature where - overloadedMethod _ = iconThemeAddResourcePath - --- method IconTheme::append_search_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, 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 "gtk_icon_theme_append_search_path" gtk_icon_theme_append_search_path :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- path : TBasicType TFileName - IO () - - -iconThemeAppendSearchPath :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> [Char] -- path - -> m () -- result -iconThemeAppendSearchPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- stringToCString path - gtk_icon_theme_append_search_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data IconThemeAppendSearchPathMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeAppendSearchPathMethodInfo a signature where - overloadedMethod _ = iconThemeAppendSearchPath - --- method IconTheme::choose_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_choose_icon" gtk_icon_theme_choose_icon :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8) - Int32 -> -- size : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeChooseIcon :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> [T.Text] -- iconNames - -> Int32 -- size - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeChooseIcon _obj iconNames size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconNames' <- packZeroTerminatedUTF8CArray iconNames - let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon _obj' iconNames' size flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem iconNames' - freeMem iconNames' - return maybeResult - -data IconThemeChooseIconMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where - overloadedMethod _ = iconThemeChooseIcon - --- method IconTheme::choose_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_choose_icon_for_scale" gtk_icon_theme_choose_icon_for_scale :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8) - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeChooseIconForScale :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> [T.Text] -- iconNames - -> Int32 -- size - -> Int32 -- scale - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeChooseIconForScale _obj iconNames size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconNames' <- packZeroTerminatedUTF8CArray iconNames - let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon_for_scale _obj' iconNames' size scale flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem iconNames' - freeMem iconNames' - return maybeResult - -data IconThemeChooseIconForScaleMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where - overloadedMethod _ = iconThemeChooseIconForScale - --- method IconTheme::get_example_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", 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 "gtk_icon_theme_get_example_icon_name" gtk_icon_theme_get_example_icon_name :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - IO CString - - -iconThemeGetExampleIconName :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> m (Maybe T.Text) -- result -iconThemeGetExampleIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_get_example_icon_name _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data IconThemeGetExampleIconNameMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where - overloadedMethod _ = iconThemeGetExampleIconName - --- method IconTheme::get_icon_sizes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TInt)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_get_icon_sizes" gtk_icon_theme_get_icon_sizes :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - IO (Ptr Int32) - - -iconThemeGetIconSizes :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> m [Int32] -- result -iconThemeGetIconSizes _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - result <- gtk_icon_theme_get_icon_sizes _obj' iconName' - checkUnexpectedReturnNULL "gtk_icon_theme_get_icon_sizes" result - result' <- unpackZeroTerminatedStorableArray result - freeMem result - touchManagedPtr _obj - freeMem iconName' - return result' - -data IconThemeGetIconSizesMethodInfo -instance (signature ~ (T.Text -> m [Int32]), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetIconSizesMethodInfo a signature where - overloadedMethod _ = iconThemeGetIconSizes - --- method IconTheme::get_search_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_get_search_path" gtk_icon_theme_get_search_path :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr (Ptr CString) -> -- path : TCArray False (-1) 2 (TBasicType TFileName) - Ptr Int32 -> -- n_elements : TBasicType TInt - IO () - - -iconThemeGetSearchPath :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> m ([[Char]]) -- result -iconThemeGetSearchPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr CString)) - nElements <- allocMem :: IO (Ptr Int32) - gtk_icon_theme_get_search_path _obj' path nElements - nElements' <- peek nElements - path' <- peek path - path'' <- (unpackFileNameArrayWithLength nElements') path' - (mapCArrayWithLength nElements') freeMem path' - freeMem path' - touchManagedPtr _obj - freeMem path - freeMem nElements - return path'' - -data IconThemeGetSearchPathMethodInfo -instance (signature ~ (m ([[Char]])), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetSearchPathMethodInfo a signature where - overloadedMethod _ = iconThemeGetSearchPath - --- method IconTheme::has_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", 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 "gtk_icon_theme_has_icon" gtk_icon_theme_has_icon :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - IO CInt - - -iconThemeHasIcon :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> m Bool -- result -iconThemeHasIcon _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - result <- gtk_icon_theme_has_icon _obj' iconName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem iconName' - return result' - -data IconThemeHasIconMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, IconThemeK a) => MethodInfo IconThemeHasIconMethodInfo a signature where - overloadedMethod _ = iconThemeHasIcon - --- method IconTheme::list_contexts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_list_contexts" gtk_icon_theme_list_contexts :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - IO (Ptr (GList CString)) - - -iconThemeListContexts :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> m [T.Text] -- result -iconThemeListContexts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_list_contexts _obj' - result' <- unpackGList result - result'' <- mapM cstringToText result' - mapGList freeMem result - g_list_free result - touchManagedPtr _obj - return result'' - -data IconThemeListContextsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, IconThemeK a) => MethodInfo IconThemeListContextsMethodInfo a signature where - overloadedMethod _ = iconThemeListContexts - --- method IconTheme::list_icons --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_list_icons" gtk_icon_theme_list_icons :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- context : TBasicType TUTF8 - IO (Ptr (GList CString)) - - -iconThemeListIcons :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> Maybe (T.Text) -- context - -> m [T.Text] -- result -iconThemeListIcons _obj context = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeContext <- case context of - Nothing -> return nullPtr - Just jContext -> do - jContext' <- textToCString jContext - return jContext' - result <- gtk_icon_theme_list_icons _obj' maybeContext - result' <- unpackGList result - result'' <- mapM cstringToText result' - mapGList freeMem result - g_list_free result - touchManagedPtr _obj - freeMem maybeContext - return result'' - -data IconThemeListIconsMethodInfo -instance (signature ~ (Maybe (T.Text) -> m [T.Text]), MonadIO m, IconThemeK a) => MethodInfo IconThemeListIconsMethodInfo a signature where - overloadedMethod _ = iconThemeListIcons - --- method IconTheme::load_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_theme_load_icon" gtk_icon_theme_load_icon :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconThemeLoadIcon :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> [IconLookupFlags] -- flags - -> m (Maybe GdkPixbuf.Pixbuf) -- result -iconThemeLoadIcon _obj iconName size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_icon _obj' iconName' size flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - freeMem iconName' - return maybeResult - ) (do - freeMem iconName' - ) - -data IconThemeLoadIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where - overloadedMethod _ = iconThemeLoadIcon - --- method IconTheme::load_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_theme_load_icon_for_scale" gtk_icon_theme_load_icon_for_scale :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconThemeLoadIconForScale :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> Int32 -- scale - -> [IconLookupFlags] -- flags - -> m (Maybe GdkPixbuf.Pixbuf) -- result -iconThemeLoadIconForScale _obj iconName size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' iconName' size scale flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - freeMem iconName' - return maybeResult - ) (do - freeMem iconName' - ) - -data IconThemeLoadIconForScaleMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where - overloadedMethod _ = iconThemeLoadIconForScale - --- method IconTheme::load_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : True --- Skip return : False - -foreign import ccall "gtk_icon_theme_load_surface" gtk_icon_theme_load_surface :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr Cairo.Surface) - - -iconThemeLoadSurface :: - (MonadIO m, IconThemeK a, Gdk.WindowK b) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> Int32 -- scale - -> Maybe (b) -- forWindow - -> [IconLookupFlags] -- flags - -> m (Maybe Cairo.Surface) -- result -iconThemeLoadSurface _obj iconName size scale forWindow flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - maybeForWindow <- case forWindow of - Nothing -> return nullPtr - Just jForWindow -> do - let jForWindow' = unsafeManagedPtrCastPtr jForWindow - return jForWindow' - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_surface _obj' iconName' size scale maybeForWindow flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Cairo.Surface) result' - return result'' - touchManagedPtr _obj - whenJust forWindow touchManagedPtr - freeMem iconName' - return maybeResult - ) (do - freeMem iconName' - ) - -data IconThemeLoadSurfaceMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m (Maybe Cairo.Surface)), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where - overloadedMethod _ = iconThemeLoadSurface - --- method IconTheme::lookup_by_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_lookup_by_gicon" gtk_icon_theme_lookup_by_gicon :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupByGicon :: - (MonadIO m, IconThemeK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> Int32 -- size - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeLookupByGicon _obj icon size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_by_gicon _obj' icon' size flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - touchManagedPtr icon - return maybeResult - -data IconThemeLookupByGiconMethodInfo -instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where - overloadedMethod _ = iconThemeLookupByGicon - --- method IconTheme::lookup_by_gicon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_lookup_by_gicon_for_scale" gtk_icon_theme_lookup_by_gicon_for_scale :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupByGiconForScale :: - (MonadIO m, IconThemeK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> Int32 -- size - -> Int32 -- scale - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeLookupByGiconForScale _obj icon size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_by_gicon_for_scale _obj' icon' size scale flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - touchManagedPtr icon - return maybeResult - -data IconThemeLookupByGiconForScaleMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where - overloadedMethod _ = iconThemeLookupByGiconForScale - --- method IconTheme::lookup_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_lookup_icon" gtk_icon_theme_lookup_icon :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupIcon :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeLookupIcon _obj iconName size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon _obj' iconName' size flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - freeMem iconName' - return maybeResult - -data IconThemeLookupIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where - overloadedMethod _ = iconThemeLookupIcon - --- method IconTheme::lookup_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_lookup_icon_for_scale" gtk_icon_theme_lookup_icon_for_scale :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupIconForScale :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> Int32 -- scale - -> [IconLookupFlags] -- flags - -> m (Maybe IconInfo) -- result -iconThemeLookupIconForScale _obj iconName size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon_for_scale _obj' iconName' size scale flags' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject IconInfo) result' - return result'' - touchManagedPtr _obj - freeMem iconName' - return maybeResult - -data IconThemeLookupIconForScaleMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where - overloadedMethod _ = iconThemeLookupIconForScale - --- method IconTheme::prepend_search_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, 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 "gtk_icon_theme_prepend_search_path" gtk_icon_theme_prepend_search_path :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- path : TBasicType TFileName - IO () - - -iconThemePrependSearchPath :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> [Char] -- path - -> m () -- result -iconThemePrependSearchPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- stringToCString path - gtk_icon_theme_prepend_search_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data IconThemePrependSearchPathMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemePrependSearchPathMethodInfo a signature where - overloadedMethod _ = iconThemePrependSearchPath - --- method IconTheme::rescan_if_needed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", 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 "gtk_icon_theme_rescan_if_needed" gtk_icon_theme_rescan_if_needed :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - IO CInt - - -iconThemeRescanIfNeeded :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> m Bool -- result -iconThemeRescanIfNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_rescan_if_needed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconThemeRescanIfNeededMethodInfo -instance (signature ~ (m Bool), MonadIO m, IconThemeK a) => MethodInfo IconThemeRescanIfNeededMethodInfo a signature where - overloadedMethod _ = iconThemeRescanIfNeeded - --- method IconTheme::set_custom_theme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_set_custom_theme" gtk_icon_theme_set_custom_theme :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - CString -> -- theme_name : TBasicType TUTF8 - IO () - - -iconThemeSetCustomTheme :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> Maybe (T.Text) -- themeName - -> m () -- result -iconThemeSetCustomTheme _obj themeName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeThemeName <- case themeName of - Nothing -> return nullPtr - Just jThemeName -> do - jThemeName' <- textToCString jThemeName - return jThemeName' - gtk_icon_theme_set_custom_theme _obj' maybeThemeName - touchManagedPtr _obj - freeMem maybeThemeName - return () - -data IconThemeSetCustomThemeMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeSetCustomThemeMethodInfo a signature where - overloadedMethod _ = iconThemeSetCustomTheme - --- method IconTheme::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_icon_theme_set_screen" gtk_icon_theme_set_screen :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -iconThemeSetScreen :: - (MonadIO m, IconThemeK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -iconThemeSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_icon_theme_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data IconThemeSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, IconThemeK a, Gdk.ScreenK b) => MethodInfo IconThemeSetScreenMethodInfo a signature where - overloadedMethod _ = iconThemeSetScreen - --- method IconTheme::set_search_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_elements", 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 "gtk_icon_theme_set_search_path" gtk_icon_theme_set_search_path :: - Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" - Ptr CString -> -- path : TCArray False (-1) 2 (TBasicType TFileName) - Int32 -> -- n_elements : TBasicType TInt - IO () - - -iconThemeSetSearchPath :: - (MonadIO m, IconThemeK a) => - a -- _obj - -> [[Char]] -- path - -> m () -- result -iconThemeSetSearchPath _obj path = liftIO $ do - let nElements = fromIntegral $ length path - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- packFileNameArray path - gtk_icon_theme_set_search_path _obj' path' nElements - touchManagedPtr _obj - (mapCArrayWithLength nElements) freeMem path' - freeMem path' - return () - -data IconThemeSetSearchPathMethodInfo -instance (signature ~ ([[Char]] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeSetSearchPathMethodInfo a signature where - overloadedMethod _ = iconThemeSetSearchPath - --- method IconTheme::add_builtin_icon --- method type : MemberFunction --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_icon_theme_add_builtin_icon" gtk_icon_theme_add_builtin_icon :: - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - -{-# DEPRECATED iconThemeAddBuiltinIcon ["(Since version 3.14)","Use gtk_icon_theme_add_resource_path()"," to add application-specific icons to the icon theme."]#-} -iconThemeAddBuiltinIcon :: - (MonadIO m, GdkPixbuf.PixbufK a) => - T.Text -- iconName - -> Int32 -- size - -> a -- pixbuf - -> m () -- result -iconThemeAddBuiltinIcon iconName size pixbuf = liftIO $ do - iconName' <- textToCString iconName - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_icon_theme_add_builtin_icon iconName' size pixbuf' - touchManagedPtr pixbuf - freeMem iconName' - return () - --- method IconTheme::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconTheme") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_get_default" gtk_icon_theme_get_default :: - IO (Ptr IconTheme) - - -iconThemeGetDefault :: - (MonadIO m) => - m IconTheme -- result -iconThemeGetDefault = liftIO $ do - result <- gtk_icon_theme_get_default - checkUnexpectedReturnNULL "gtk_icon_theme_get_default" result - result' <- (newObject IconTheme) result - return result' - --- method IconTheme::get_for_screen --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconTheme") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_get_for_screen" gtk_icon_theme_get_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO (Ptr IconTheme) - - -iconThemeGetForScreen :: - (MonadIO m, Gdk.ScreenK a) => - a -- screen - -> m IconTheme -- result -iconThemeGetForScreen screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - result <- gtk_icon_theme_get_for_screen screen' - checkUnexpectedReturnNULL "gtk_icon_theme_get_for_screen" result - result' <- (newObject IconTheme) result - touchManagedPtr screen - return result' - - diff --git a/GI/Gtk/Objects/IconTheme.hs-boot b/GI/Gtk/Objects/IconTheme.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IconTheme.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Objects.IconTheme 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 IconTheme = IconTheme (ForeignPtr IconTheme) -instance GObject IconTheme where -class GObject o => IconThemeK o -instance (GObject o, IsDescendantOf IconTheme o) => IconThemeK o -data IconThemeChangedSignalInfo -data IconThemeAddResourcePathMethodInfo -data IconThemeAppendSearchPathMethodInfo -data IconThemeChooseIconMethodInfo -data IconThemeChooseIconForScaleMethodInfo -data IconThemeGetExampleIconNameMethodInfo -data IconThemeGetIconSizesMethodInfo -data IconThemeGetSearchPathMethodInfo -data IconThemeHasIconMethodInfo -data IconThemeListContextsMethodInfo -data IconThemeListIconsMethodInfo -data IconThemeLoadIconMethodInfo -data IconThemeLoadIconForScaleMethodInfo -data IconThemeLoadSurfaceMethodInfo -data IconThemeLookupByGiconMethodInfo -data IconThemeLookupByGiconForScaleMethodInfo -data IconThemeLookupIconMethodInfo -data IconThemeLookupIconForScaleMethodInfo -data IconThemePrependSearchPathMethodInfo -data IconThemeRescanIfNeededMethodInfo -data IconThemeSetCustomThemeMethodInfo -data IconThemeSetScreenMethodInfo -data IconThemeSetSearchPathMethodInfo diff --git a/GI/Gtk/Objects/IconView.hs b/GI/Gtk/Objects/IconView.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IconView.hs +++ /dev/null @@ -1,3892 +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.Gtk.Objects.IconView - ( - --- * Exported types - IconView(..) , - IconViewK , - toIconView , - noIconView , - - - -- * Methods --- ** iconViewConvertWidgetToBinWindowCoords - IconViewConvertWidgetToBinWindowCoordsMethodInfo, - iconViewConvertWidgetToBinWindowCoords , - - --- ** iconViewCreateDragIcon - IconViewCreateDragIconMethodInfo , - iconViewCreateDragIcon , - - --- ** iconViewEnableModelDragDest - IconViewEnableModelDragDestMethodInfo , - iconViewEnableModelDragDest , - - --- ** iconViewEnableModelDragSource - IconViewEnableModelDragSourceMethodInfo , - iconViewEnableModelDragSource , - - --- ** iconViewGetActivateOnSingleClick - IconViewGetActivateOnSingleClickMethodInfo, - iconViewGetActivateOnSingleClick , - - --- ** iconViewGetCellRect - IconViewGetCellRectMethodInfo , - iconViewGetCellRect , - - --- ** iconViewGetColumnSpacing - IconViewGetColumnSpacingMethodInfo , - iconViewGetColumnSpacing , - - --- ** iconViewGetColumns - IconViewGetColumnsMethodInfo , - iconViewGetColumns , - - --- ** iconViewGetCursor - IconViewGetCursorMethodInfo , - iconViewGetCursor , - - --- ** iconViewGetDestItemAtPos - IconViewGetDestItemAtPosMethodInfo , - iconViewGetDestItemAtPos , - - --- ** iconViewGetDragDestItem - IconViewGetDragDestItemMethodInfo , - iconViewGetDragDestItem , - - --- ** iconViewGetItemAtPos - IconViewGetItemAtPosMethodInfo , - iconViewGetItemAtPos , - - --- ** iconViewGetItemColumn - IconViewGetItemColumnMethodInfo , - iconViewGetItemColumn , - - --- ** iconViewGetItemOrientation - IconViewGetItemOrientationMethodInfo , - iconViewGetItemOrientation , - - --- ** iconViewGetItemPadding - IconViewGetItemPaddingMethodInfo , - iconViewGetItemPadding , - - --- ** iconViewGetItemRow - IconViewGetItemRowMethodInfo , - iconViewGetItemRow , - - --- ** iconViewGetItemWidth - IconViewGetItemWidthMethodInfo , - iconViewGetItemWidth , - - --- ** iconViewGetMargin - IconViewGetMarginMethodInfo , - iconViewGetMargin , - - --- ** iconViewGetMarkupColumn - IconViewGetMarkupColumnMethodInfo , - iconViewGetMarkupColumn , - - --- ** iconViewGetModel - IconViewGetModelMethodInfo , - iconViewGetModel , - - --- ** iconViewGetPathAtPos - IconViewGetPathAtPosMethodInfo , - iconViewGetPathAtPos , - - --- ** iconViewGetPixbufColumn - IconViewGetPixbufColumnMethodInfo , - iconViewGetPixbufColumn , - - --- ** iconViewGetReorderable - IconViewGetReorderableMethodInfo , - iconViewGetReorderable , - - --- ** iconViewGetRowSpacing - IconViewGetRowSpacingMethodInfo , - iconViewGetRowSpacing , - - --- ** iconViewGetSelectedItems - IconViewGetSelectedItemsMethodInfo , - iconViewGetSelectedItems , - - --- ** iconViewGetSelectionMode - IconViewGetSelectionModeMethodInfo , - iconViewGetSelectionMode , - - --- ** iconViewGetSpacing - IconViewGetSpacingMethodInfo , - iconViewGetSpacing , - - --- ** iconViewGetTextColumn - IconViewGetTextColumnMethodInfo , - iconViewGetTextColumn , - - --- ** iconViewGetTooltipColumn - IconViewGetTooltipColumnMethodInfo , - iconViewGetTooltipColumn , - - --- ** iconViewGetTooltipContext - IconViewGetTooltipContextMethodInfo , - iconViewGetTooltipContext , - - --- ** iconViewGetVisibleRange - IconViewGetVisibleRangeMethodInfo , - iconViewGetVisibleRange , - - --- ** iconViewItemActivated - IconViewItemActivatedMethodInfo , - iconViewItemActivated , - - --- ** iconViewNew - iconViewNew , - - --- ** iconViewNewWithArea - iconViewNewWithArea , - - --- ** iconViewNewWithModel - iconViewNewWithModel , - - --- ** iconViewPathIsSelected - IconViewPathIsSelectedMethodInfo , - iconViewPathIsSelected , - - --- ** iconViewScrollToPath - IconViewScrollToPathMethodInfo , - iconViewScrollToPath , - - --- ** iconViewSelectAll - IconViewSelectAllMethodInfo , - iconViewSelectAll , - - --- ** iconViewSelectPath - IconViewSelectPathMethodInfo , - iconViewSelectPath , - - --- ** iconViewSelectedForeach - IconViewSelectedForeachMethodInfo , - iconViewSelectedForeach , - - --- ** iconViewSetActivateOnSingleClick - IconViewSetActivateOnSingleClickMethodInfo, - iconViewSetActivateOnSingleClick , - - --- ** iconViewSetColumnSpacing - IconViewSetColumnSpacingMethodInfo , - iconViewSetColumnSpacing , - - --- ** iconViewSetColumns - IconViewSetColumnsMethodInfo , - iconViewSetColumns , - - --- ** iconViewSetCursor - IconViewSetCursorMethodInfo , - iconViewSetCursor , - - --- ** iconViewSetDragDestItem - IconViewSetDragDestItemMethodInfo , - iconViewSetDragDestItem , - - --- ** iconViewSetItemOrientation - IconViewSetItemOrientationMethodInfo , - iconViewSetItemOrientation , - - --- ** iconViewSetItemPadding - IconViewSetItemPaddingMethodInfo , - iconViewSetItemPadding , - - --- ** iconViewSetItemWidth - IconViewSetItemWidthMethodInfo , - iconViewSetItemWidth , - - --- ** iconViewSetMargin - IconViewSetMarginMethodInfo , - iconViewSetMargin , - - --- ** iconViewSetMarkupColumn - IconViewSetMarkupColumnMethodInfo , - iconViewSetMarkupColumn , - - --- ** iconViewSetModel - IconViewSetModelMethodInfo , - iconViewSetModel , - - --- ** iconViewSetPixbufColumn - IconViewSetPixbufColumnMethodInfo , - iconViewSetPixbufColumn , - - --- ** iconViewSetReorderable - IconViewSetReorderableMethodInfo , - iconViewSetReorderable , - - --- ** iconViewSetRowSpacing - IconViewSetRowSpacingMethodInfo , - iconViewSetRowSpacing , - - --- ** iconViewSetSelectionMode - IconViewSetSelectionModeMethodInfo , - iconViewSetSelectionMode , - - --- ** iconViewSetSpacing - IconViewSetSpacingMethodInfo , - iconViewSetSpacing , - - --- ** iconViewSetTextColumn - IconViewSetTextColumnMethodInfo , - iconViewSetTextColumn , - - --- ** iconViewSetTooltipCell - IconViewSetTooltipCellMethodInfo , - iconViewSetTooltipCell , - - --- ** iconViewSetTooltipColumn - IconViewSetTooltipColumnMethodInfo , - iconViewSetTooltipColumn , - - --- ** iconViewSetTooltipItem - IconViewSetTooltipItemMethodInfo , - iconViewSetTooltipItem , - - --- ** iconViewUnselectAll - IconViewUnselectAllMethodInfo , - iconViewUnselectAll , - - --- ** iconViewUnselectPath - IconViewUnselectPathMethodInfo , - iconViewUnselectPath , - - --- ** iconViewUnsetModelDragDest - IconViewUnsetModelDragDestMethodInfo , - iconViewUnsetModelDragDest , - - --- ** iconViewUnsetModelDragSource - IconViewUnsetModelDragSourceMethodInfo , - iconViewUnsetModelDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - IconViewActivateOnSingleClickPropertyInfo, - constructIconViewActivateOnSingleClick , - getIconViewActivateOnSingleClick , - iconViewActivateOnSingleClick , - setIconViewActivateOnSingleClick , - - --- ** CellArea - IconViewCellAreaPropertyInfo , - constructIconViewCellArea , - getIconViewCellArea , - iconViewCellArea , - - --- ** ColumnSpacing - IconViewColumnSpacingPropertyInfo , - constructIconViewColumnSpacing , - getIconViewColumnSpacing , - iconViewColumnSpacing , - setIconViewColumnSpacing , - - --- ** Columns - IconViewColumnsPropertyInfo , - constructIconViewColumns , - getIconViewColumns , - iconViewColumns , - setIconViewColumns , - - --- ** ItemOrientation - IconViewItemOrientationPropertyInfo , - constructIconViewItemOrientation , - getIconViewItemOrientation , - iconViewItemOrientation , - setIconViewItemOrientation , - - --- ** ItemPadding - IconViewItemPaddingPropertyInfo , - constructIconViewItemPadding , - getIconViewItemPadding , - iconViewItemPadding , - setIconViewItemPadding , - - --- ** ItemWidth - IconViewItemWidthPropertyInfo , - constructIconViewItemWidth , - getIconViewItemWidth , - iconViewItemWidth , - setIconViewItemWidth , - - --- ** Margin - IconViewMarginPropertyInfo , - constructIconViewMargin , - getIconViewMargin , - iconViewMargin , - setIconViewMargin , - - --- ** MarkupColumn - IconViewMarkupColumnPropertyInfo , - constructIconViewMarkupColumn , - getIconViewMarkupColumn , - iconViewMarkupColumn , - setIconViewMarkupColumn , - - --- ** Model - IconViewModelPropertyInfo , - clearIconViewModel , - constructIconViewModel , - getIconViewModel , - iconViewModel , - setIconViewModel , - - --- ** PixbufColumn - IconViewPixbufColumnPropertyInfo , - constructIconViewPixbufColumn , - getIconViewPixbufColumn , - iconViewPixbufColumn , - setIconViewPixbufColumn , - - --- ** Reorderable - IconViewReorderablePropertyInfo , - constructIconViewReorderable , - getIconViewReorderable , - iconViewReorderable , - setIconViewReorderable , - - --- ** RowSpacing - IconViewRowSpacingPropertyInfo , - constructIconViewRowSpacing , - getIconViewRowSpacing , - iconViewRowSpacing , - setIconViewRowSpacing , - - --- ** SelectionMode - IconViewSelectionModePropertyInfo , - constructIconViewSelectionMode , - getIconViewSelectionMode , - iconViewSelectionMode , - setIconViewSelectionMode , - - --- ** Spacing - IconViewSpacingPropertyInfo , - constructIconViewSpacing , - getIconViewSpacing , - iconViewSpacing , - setIconViewSpacing , - - --- ** TextColumn - IconViewTextColumnPropertyInfo , - constructIconViewTextColumn , - getIconViewTextColumn , - iconViewTextColumn , - setIconViewTextColumn , - - --- ** TooltipColumn - IconViewTooltipColumnPropertyInfo , - constructIconViewTooltipColumn , - getIconViewTooltipColumn , - iconViewTooltipColumn , - setIconViewTooltipColumn , - - - - - -- * Signals --- ** ActivateCursorItem - IconViewActivateCursorItemCallback , - IconViewActivateCursorItemCallbackC , - IconViewActivateCursorItemSignalInfo , - afterIconViewActivateCursorItem , - iconViewActivateCursorItemCallbackWrapper, - iconViewActivateCursorItemClosure , - mkIconViewActivateCursorItemCallback , - noIconViewActivateCursorItemCallback , - onIconViewActivateCursorItem , - - --- ** ItemActivated - IconViewItemActivatedCallback , - IconViewItemActivatedCallbackC , - IconViewItemActivatedSignalInfo , - afterIconViewItemActivated , - iconViewItemActivatedCallbackWrapper , - iconViewItemActivatedClosure , - mkIconViewItemActivatedCallback , - noIconViewItemActivatedCallback , - onIconViewItemActivated , - - --- ** MoveCursor - IconViewMoveCursorCallback , - IconViewMoveCursorCallbackC , - IconViewMoveCursorSignalInfo , - afterIconViewMoveCursor , - iconViewMoveCursorCallbackWrapper , - iconViewMoveCursorClosure , - mkIconViewMoveCursorCallback , - noIconViewMoveCursorCallback , - onIconViewMoveCursor , - - --- ** SelectAll - IconViewSelectAllCallback , - IconViewSelectAllCallbackC , - IconViewSelectAllSignalInfo , - afterIconViewSelectAll , - iconViewSelectAllCallbackWrapper , - iconViewSelectAllClosure , - mkIconViewSelectAllCallback , - noIconViewSelectAllCallback , - onIconViewSelectAll , - - --- ** SelectCursorItem - IconViewSelectCursorItemCallback , - IconViewSelectCursorItemCallbackC , - IconViewSelectCursorItemSignalInfo , - afterIconViewSelectCursorItem , - iconViewSelectCursorItemCallbackWrapper , - iconViewSelectCursorItemClosure , - mkIconViewSelectCursorItemCallback , - noIconViewSelectCursorItemCallback , - onIconViewSelectCursorItem , - - --- ** SelectionChanged - IconViewSelectionChangedCallback , - IconViewSelectionChangedCallbackC , - IconViewSelectionChangedSignalInfo , - afterIconViewSelectionChanged , - iconViewSelectionChangedCallbackWrapper , - iconViewSelectionChangedClosure , - mkIconViewSelectionChangedCallback , - noIconViewSelectionChangedCallback , - onIconViewSelectionChanged , - - --- ** ToggleCursorItem - IconViewToggleCursorItemCallback , - IconViewToggleCursorItemCallbackC , - IconViewToggleCursorItemSignalInfo , - afterIconViewToggleCursorItem , - iconViewToggleCursorItemCallbackWrapper , - iconViewToggleCursorItemClosure , - mkIconViewToggleCursorItemCallback , - noIconViewToggleCursorItemCallback , - onIconViewToggleCursorItem , - - --- ** UnselectAll - IconViewUnselectAllCallback , - IconViewUnselectAllCallbackC , - IconViewUnselectAllSignalInfo , - afterIconViewUnselectAll , - iconViewUnselectAllCallbackWrapper , - iconViewUnselectAllClosure , - mkIconViewUnselectAllCallback , - noIconViewUnselectAllCallback , - onIconViewUnselectAll , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype IconView = IconView (ForeignPtr IconView) -foreign import ccall "gtk_icon_view_get_type" - c_gtk_icon_view_get_type :: IO GType - -type instance ParentTypes IconView = IconViewParentTypes -type IconViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Scrollable] - -instance GObject IconView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_icon_view_get_type - - -class GObject o => IconViewK o -instance (GObject o, IsDescendantOf IconView o) => IconViewK o - -toIconView :: IconViewK o => o -> IO IconView -toIconView = unsafeCastTo IconView - -noIconView :: Maybe IconView -noIconView = Nothing - -type family ResolveIconViewMethod (t :: Symbol) (o :: *) :: * where - ResolveIconViewMethod "activate" o = WidgetActivateMethodInfo - ResolveIconViewMethod "add" o = ContainerAddMethodInfo - ResolveIconViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveIconViewMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo - ResolveIconViewMethod "addChild" o = BuildableAddChildMethodInfo - ResolveIconViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveIconViewMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveIconViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveIconViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveIconViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveIconViewMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveIconViewMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveIconViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveIconViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveIconViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveIconViewMethod "childType" o = ContainerChildTypeMethodInfo - ResolveIconViewMethod "classPath" o = WidgetClassPathMethodInfo - ResolveIconViewMethod "clear" o = CellLayoutClearMethodInfo - ResolveIconViewMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo - ResolveIconViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveIconViewMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveIconViewMethod "convertWidgetToBinWindowCoords" o = IconViewConvertWidgetToBinWindowCoordsMethodInfo - ResolveIconViewMethod "createDragIcon" o = IconViewCreateDragIconMethodInfo - ResolveIconViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveIconViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveIconViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveIconViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveIconViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveIconViewMethod "destroy" o = WidgetDestroyMethodInfo - ResolveIconViewMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveIconViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveIconViewMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveIconViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveIconViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveIconViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveIconViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveIconViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveIconViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveIconViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveIconViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveIconViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveIconViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveIconViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveIconViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveIconViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveIconViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveIconViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveIconViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveIconViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveIconViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveIconViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveIconViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveIconViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveIconViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveIconViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveIconViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveIconViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveIconViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveIconViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveIconViewMethod "draw" o = WidgetDrawMethodInfo - ResolveIconViewMethod "enableModelDragDest" o = IconViewEnableModelDragDestMethodInfo - ResolveIconViewMethod "enableModelDragSource" o = IconViewEnableModelDragSourceMethodInfo - ResolveIconViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveIconViewMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveIconViewMethod "event" o = WidgetEventMethodInfo - ResolveIconViewMethod "forall" o = ContainerForallMethodInfo - ResolveIconViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconViewMethod "foreach" o = ContainerForeachMethodInfo - ResolveIconViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveIconViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconViewMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveIconViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveIconViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveIconViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveIconViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveIconViewMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveIconViewMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveIconViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveIconViewMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveIconViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveIconViewMethod "hide" o = WidgetHideMethodInfo - ResolveIconViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveIconViewMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveIconViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveIconViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveIconViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveIconViewMethod "intersect" o = WidgetIntersectMethodInfo - ResolveIconViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveIconViewMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveIconViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveIconViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconViewMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveIconViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveIconViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveIconViewMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveIconViewMethod "itemActivated" o = IconViewItemActivatedMethodInfo - ResolveIconViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveIconViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveIconViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveIconViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveIconViewMethod "map" o = WidgetMapMethodInfo - ResolveIconViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveIconViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveIconViewMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveIconViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveIconViewMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveIconViewMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveIconViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveIconViewMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveIconViewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveIconViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveIconViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveIconViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveIconViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveIconViewMethod "packEnd" o = CellLayoutPackEndMethodInfo - ResolveIconViewMethod "packStart" o = CellLayoutPackStartMethodInfo - ResolveIconViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveIconViewMethod "path" o = WidgetPathMethodInfo - ResolveIconViewMethod "pathIsSelected" o = IconViewPathIsSelectedMethodInfo - ResolveIconViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveIconViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveIconViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveIconViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveIconViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveIconViewMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveIconViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveIconViewMethod "realize" o = WidgetRealizeMethodInfo - ResolveIconViewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveIconViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveIconViewMethod "remove" o = ContainerRemoveMethodInfo - ResolveIconViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveIconViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveIconViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveIconViewMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveIconViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveIconViewMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveIconViewMethod "reparent" o = WidgetReparentMethodInfo - ResolveIconViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveIconViewMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveIconViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveIconViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconViewMethod "scrollToPath" o = IconViewScrollToPathMethodInfo - ResolveIconViewMethod "selectAll" o = IconViewSelectAllMethodInfo - ResolveIconViewMethod "selectPath" o = IconViewSelectPathMethodInfo - ResolveIconViewMethod "selectedForeach" o = IconViewSelectedForeachMethodInfo - ResolveIconViewMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveIconViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveIconViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveIconViewMethod "show" o = WidgetShowMethodInfo - ResolveIconViewMethod "showAll" o = WidgetShowAllMethodInfo - ResolveIconViewMethod "showNow" o = WidgetShowNowMethodInfo - ResolveIconViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveIconViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveIconViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveIconViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveIconViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveIconViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveIconViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveIconViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveIconViewMethod "unmap" o = WidgetUnmapMethodInfo - ResolveIconViewMethod "unparent" o = WidgetUnparentMethodInfo - ResolveIconViewMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveIconViewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveIconViewMethod "unselectAll" o = IconViewUnselectAllMethodInfo - ResolveIconViewMethod "unselectPath" o = IconViewUnselectPathMethodInfo - ResolveIconViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveIconViewMethod "unsetModelDragDest" o = IconViewUnsetModelDragDestMethodInfo - ResolveIconViewMethod "unsetModelDragSource" o = IconViewUnsetModelDragSourceMethodInfo - ResolveIconViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveIconViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveIconViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveIconViewMethod "getActivateOnSingleClick" o = IconViewGetActivateOnSingleClickMethodInfo - ResolveIconViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveIconViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveIconViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveIconViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveIconViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveIconViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveIconViewMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveIconViewMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveIconViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveIconViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveIconViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveIconViewMethod "getCellRect" o = IconViewGetCellRectMethodInfo - ResolveIconViewMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveIconViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveIconViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveIconViewMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveIconViewMethod "getClip" o = WidgetGetClipMethodInfo - ResolveIconViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveIconViewMethod "getColumnSpacing" o = IconViewGetColumnSpacingMethodInfo - ResolveIconViewMethod "getColumns" o = IconViewGetColumnsMethodInfo - ResolveIconViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveIconViewMethod "getCursor" o = IconViewGetCursorMethodInfo - ResolveIconViewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconViewMethod "getDestItemAtPos" o = IconViewGetDestItemAtPosMethodInfo - ResolveIconViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveIconViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveIconViewMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveIconViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveIconViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveIconViewMethod "getDragDestItem" o = IconViewGetDragDestItemMethodInfo - ResolveIconViewMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveIconViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveIconViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveIconViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveIconViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveIconViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveIconViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveIconViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveIconViewMethod "getHadjustment" o = ScrollableGetHadjustmentMethodInfo - ResolveIconViewMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveIconViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveIconViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveIconViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveIconViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveIconViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveIconViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveIconViewMethod "getItemAtPos" o = IconViewGetItemAtPosMethodInfo - ResolveIconViewMethod "getItemColumn" o = IconViewGetItemColumnMethodInfo - ResolveIconViewMethod "getItemOrientation" o = IconViewGetItemOrientationMethodInfo - ResolveIconViewMethod "getItemPadding" o = IconViewGetItemPaddingMethodInfo - ResolveIconViewMethod "getItemRow" o = IconViewGetItemRowMethodInfo - ResolveIconViewMethod "getItemWidth" o = IconViewGetItemWidthMethodInfo - ResolveIconViewMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveIconViewMethod "getMargin" o = IconViewGetMarginMethodInfo - ResolveIconViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveIconViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveIconViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveIconViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveIconViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveIconViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveIconViewMethod "getMarkupColumn" o = IconViewGetMarkupColumnMethodInfo - ResolveIconViewMethod "getModel" o = IconViewGetModelMethodInfo - ResolveIconViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveIconViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveIconViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveIconViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveIconViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveIconViewMethod "getParent" o = WidgetGetParentMethodInfo - ResolveIconViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveIconViewMethod "getPath" o = WidgetGetPathMethodInfo - ResolveIconViewMethod "getPathAtPos" o = IconViewGetPathAtPosMethodInfo - ResolveIconViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveIconViewMethod "getPixbufColumn" o = IconViewGetPixbufColumnMethodInfo - ResolveIconViewMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveIconViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveIconViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveIconViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveIconViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveIconViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveIconViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveIconViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconViewMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveIconViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveIconViewMethod "getReorderable" o = IconViewGetReorderableMethodInfo - ResolveIconViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveIconViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveIconViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveIconViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveIconViewMethod "getRowSpacing" o = IconViewGetRowSpacingMethodInfo - ResolveIconViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveIconViewMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveIconViewMethod "getSelectedItems" o = IconViewGetSelectedItemsMethodInfo - ResolveIconViewMethod "getSelectionMode" o = IconViewGetSelectionModeMethodInfo - ResolveIconViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveIconViewMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveIconViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveIconViewMethod "getSpacing" o = IconViewGetSpacingMethodInfo - ResolveIconViewMethod "getState" o = WidgetGetStateMethodInfo - ResolveIconViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveIconViewMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveIconViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveIconViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveIconViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveIconViewMethod "getTextColumn" o = IconViewGetTextColumnMethodInfo - ResolveIconViewMethod "getTooltipColumn" o = IconViewGetTooltipColumnMethodInfo - ResolveIconViewMethod "getTooltipContext" o = IconViewGetTooltipContextMethodInfo - ResolveIconViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveIconViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveIconViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveIconViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveIconViewMethod "getVadjustment" o = ScrollableGetVadjustmentMethodInfo - ResolveIconViewMethod "getValign" o = WidgetGetValignMethodInfo - ResolveIconViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveIconViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveIconViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveIconViewMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveIconViewMethod "getVisibleRange" o = IconViewGetVisibleRangeMethodInfo - ResolveIconViewMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveIconViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveIconViewMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveIconViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveIconViewMethod "setActivateOnSingleClick" o = IconViewSetActivateOnSingleClickMethodInfo - ResolveIconViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveIconViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveIconViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveIconViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveIconViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveIconViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveIconViewMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo - ResolveIconViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveIconViewMethod "setClip" o = WidgetSetClipMethodInfo - ResolveIconViewMethod "setColumnSpacing" o = IconViewSetColumnSpacingMethodInfo - ResolveIconViewMethod "setColumns" o = IconViewSetColumnsMethodInfo - ResolveIconViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveIconViewMethod "setCursor" o = IconViewSetCursorMethodInfo - ResolveIconViewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveIconViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveIconViewMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveIconViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveIconViewMethod "setDragDestItem" o = IconViewSetDragDestItemMethodInfo - ResolveIconViewMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveIconViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveIconViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveIconViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveIconViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveIconViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveIconViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveIconViewMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo - ResolveIconViewMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveIconViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveIconViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveIconViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveIconViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveIconViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveIconViewMethod "setItemOrientation" o = IconViewSetItemOrientationMethodInfo - ResolveIconViewMethod "setItemPadding" o = IconViewSetItemPaddingMethodInfo - ResolveIconViewMethod "setItemWidth" o = IconViewSetItemWidthMethodInfo - ResolveIconViewMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveIconViewMethod "setMargin" o = IconViewSetMarginMethodInfo - ResolveIconViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveIconViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveIconViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveIconViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveIconViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveIconViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveIconViewMethod "setMarkupColumn" o = IconViewSetMarkupColumnMethodInfo - ResolveIconViewMethod "setModel" o = IconViewSetModelMethodInfo - ResolveIconViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveIconViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveIconViewMethod "setParent" o = WidgetSetParentMethodInfo - ResolveIconViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveIconViewMethod "setPixbufColumn" o = IconViewSetPixbufColumnMethodInfo - ResolveIconViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconViewMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveIconViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveIconViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveIconViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveIconViewMethod "setReorderable" o = IconViewSetReorderableMethodInfo - ResolveIconViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveIconViewMethod "setRowSpacing" o = IconViewSetRowSpacingMethodInfo - ResolveIconViewMethod "setSelectionMode" o = IconViewSetSelectionModeMethodInfo - ResolveIconViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveIconViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveIconViewMethod "setSpacing" o = IconViewSetSpacingMethodInfo - ResolveIconViewMethod "setState" o = WidgetSetStateMethodInfo - ResolveIconViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveIconViewMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveIconViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveIconViewMethod "setTextColumn" o = IconViewSetTextColumnMethodInfo - ResolveIconViewMethod "setTooltipCell" o = IconViewSetTooltipCellMethodInfo - ResolveIconViewMethod "setTooltipColumn" o = IconViewSetTooltipColumnMethodInfo - ResolveIconViewMethod "setTooltipItem" o = IconViewSetTooltipItemMethodInfo - ResolveIconViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveIconViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveIconViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveIconViewMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo - ResolveIconViewMethod "setValign" o = WidgetSetValignMethodInfo - ResolveIconViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveIconViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveIconViewMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveIconViewMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveIconViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveIconViewMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveIconViewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconViewMethod t IconView, MethodInfo info IconView p) => IsLabelProxy t (IconView -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconViewMethod t IconView, MethodInfo info IconView p) => IsLabel t (IconView -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal IconView::activate-cursor-item -type IconViewActivateCursorItemCallback = - IO Bool - -noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback -noIconViewActivateCursorItemCallback = Nothing - -type IconViewActivateCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIconViewActivateCursorItemCallback :: IconViewActivateCursorItemCallbackC -> IO (FunPtr IconViewActivateCursorItemCallbackC) - -iconViewActivateCursorItemClosure :: IconViewActivateCursorItemCallback -> IO Closure -iconViewActivateCursorItemClosure cb = newCClosure =<< mkIconViewActivateCursorItemCallback wrapped - where wrapped = iconViewActivateCursorItemCallbackWrapper cb - -iconViewActivateCursorItemCallbackWrapper :: - IconViewActivateCursorItemCallback -> - Ptr () -> - Ptr () -> - IO CInt -iconViewActivateCursorItemCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId -onIconViewActivateCursorItem obj cb = liftIO $ connectIconViewActivateCursorItem obj cb SignalConnectBefore -afterIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId -afterIconViewActivateCursorItem obj cb = connectIconViewActivateCursorItem obj cb SignalConnectAfter - -connectIconViewActivateCursorItem :: (GObject a, MonadIO m) => - a -> IconViewActivateCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewActivateCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewActivateCursorItemCallback (iconViewActivateCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "activate-cursor-item" cb' after - --- signal IconView::item-activated -type IconViewItemActivatedCallback = - TreePath -> - IO () - -noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback -noIconViewItemActivatedCallback = Nothing - -type IconViewItemActivatedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewItemActivatedCallback :: IconViewItemActivatedCallbackC -> IO (FunPtr IconViewItemActivatedCallbackC) - -iconViewItemActivatedClosure :: IconViewItemActivatedCallback -> IO Closure -iconViewItemActivatedClosure cb = newCClosure =<< mkIconViewItemActivatedCallback wrapped - where wrapped = iconViewItemActivatedCallbackWrapper cb - -iconViewItemActivatedCallbackWrapper :: - IconViewItemActivatedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr () -> - IO () -iconViewItemActivatedCallbackWrapper _cb _ path _ = do - path' <- (newBoxed TreePath) path - _cb path' - -onIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId -onIconViewItemActivated obj cb = liftIO $ connectIconViewItemActivated obj cb SignalConnectBefore -afterIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId -afterIconViewItemActivated obj cb = connectIconViewItemActivated obj cb SignalConnectAfter - -connectIconViewItemActivated :: (GObject a, MonadIO m) => - a -> IconViewItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewItemActivated obj cb after = liftIO $ do - cb' <- mkIconViewItemActivatedCallback (iconViewItemActivatedCallbackWrapper cb) - connectSignalFunPtr obj "item-activated" cb' after - --- signal IconView::move-cursor -type IconViewMoveCursorCallback = - MovementStep -> - Int32 -> - IO Bool - -noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback -noIconViewMoveCursorCallback = Nothing - -type IconViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIconViewMoveCursorCallback :: IconViewMoveCursorCallbackC -> IO (FunPtr IconViewMoveCursorCallbackC) - -iconViewMoveCursorClosure :: IconViewMoveCursorCallback -> IO Closure -iconViewMoveCursorClosure cb = newCClosure =<< mkIconViewMoveCursorCallback wrapped - where wrapped = iconViewMoveCursorCallbackWrapper cb - -iconViewMoveCursorCallbackWrapper :: - IconViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO CInt -iconViewMoveCursorCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - result <- _cb step' count - let result' = (fromIntegral . fromEnum) result - return result' - -onIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId -onIconViewMoveCursor obj cb = liftIO $ connectIconViewMoveCursor obj cb SignalConnectBefore -afterIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId -afterIconViewMoveCursor obj cb = connectIconViewMoveCursor obj cb SignalConnectAfter - -connectIconViewMoveCursor :: (GObject a, MonadIO m) => - a -> IconViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewMoveCursor obj cb after = liftIO $ do - cb' <- mkIconViewMoveCursorCallback (iconViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal IconView::select-all -type IconViewSelectAllCallback = - IO () - -noIconViewSelectAllCallback :: Maybe IconViewSelectAllCallback -noIconViewSelectAllCallback = Nothing - -type IconViewSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectAllCallback :: IconViewSelectAllCallbackC -> IO (FunPtr IconViewSelectAllCallbackC) - -iconViewSelectAllClosure :: IconViewSelectAllCallback -> IO Closure -iconViewSelectAllClosure cb = newCClosure =<< mkIconViewSelectAllCallback wrapped - where wrapped = iconViewSelectAllCallbackWrapper cb - -iconViewSelectAllCallbackWrapper :: - IconViewSelectAllCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectAllCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId -onIconViewSelectAll obj cb = liftIO $ connectIconViewSelectAll obj cb SignalConnectBefore -afterIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId -afterIconViewSelectAll obj cb = connectIconViewSelectAll obj cb SignalConnectAfter - -connectIconViewSelectAll :: (GObject a, MonadIO m) => - a -> IconViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectAll obj cb after = liftIO $ do - cb' <- mkIconViewSelectAllCallback (iconViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal IconView::select-cursor-item -type IconViewSelectCursorItemCallback = - IO () - -noIconViewSelectCursorItemCallback :: Maybe IconViewSelectCursorItemCallback -noIconViewSelectCursorItemCallback = Nothing - -type IconViewSelectCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectCursorItemCallback :: IconViewSelectCursorItemCallbackC -> IO (FunPtr IconViewSelectCursorItemCallbackC) - -iconViewSelectCursorItemClosure :: IconViewSelectCursorItemCallback -> IO Closure -iconViewSelectCursorItemClosure cb = newCClosure =<< mkIconViewSelectCursorItemCallback wrapped - where wrapped = iconViewSelectCursorItemCallbackWrapper cb - -iconViewSelectCursorItemCallbackWrapper :: - IconViewSelectCursorItemCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectCursorItemCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId -onIconViewSelectCursorItem obj cb = liftIO $ connectIconViewSelectCursorItem obj cb SignalConnectBefore -afterIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId -afterIconViewSelectCursorItem obj cb = connectIconViewSelectCursorItem obj cb SignalConnectAfter - -connectIconViewSelectCursorItem :: (GObject a, MonadIO m) => - a -> IconViewSelectCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewSelectCursorItemCallback (iconViewSelectCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-item" cb' after - --- signal IconView::selection-changed -type IconViewSelectionChangedCallback = - IO () - -noIconViewSelectionChangedCallback :: Maybe IconViewSelectionChangedCallback -noIconViewSelectionChangedCallback = Nothing - -type IconViewSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectionChangedCallback :: IconViewSelectionChangedCallbackC -> IO (FunPtr IconViewSelectionChangedCallbackC) - -iconViewSelectionChangedClosure :: IconViewSelectionChangedCallback -> IO Closure -iconViewSelectionChangedClosure cb = newCClosure =<< mkIconViewSelectionChangedCallback wrapped - where wrapped = iconViewSelectionChangedCallbackWrapper cb - -iconViewSelectionChangedCallbackWrapper :: - IconViewSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId -onIconViewSelectionChanged obj cb = liftIO $ connectIconViewSelectionChanged obj cb SignalConnectBefore -afterIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId -afterIconViewSelectionChanged obj cb = connectIconViewSelectionChanged obj cb SignalConnectAfter - -connectIconViewSelectionChanged :: (GObject a, MonadIO m) => - a -> IconViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectionChanged obj cb after = liftIO $ do - cb' <- mkIconViewSelectionChangedCallback (iconViewSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- signal IconView::toggle-cursor-item -type IconViewToggleCursorItemCallback = - IO () - -noIconViewToggleCursorItemCallback :: Maybe IconViewToggleCursorItemCallback -noIconViewToggleCursorItemCallback = Nothing - -type IconViewToggleCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewToggleCursorItemCallback :: IconViewToggleCursorItemCallbackC -> IO (FunPtr IconViewToggleCursorItemCallbackC) - -iconViewToggleCursorItemClosure :: IconViewToggleCursorItemCallback -> IO Closure -iconViewToggleCursorItemClosure cb = newCClosure =<< mkIconViewToggleCursorItemCallback wrapped - where wrapped = iconViewToggleCursorItemCallbackWrapper cb - -iconViewToggleCursorItemCallbackWrapper :: - IconViewToggleCursorItemCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewToggleCursorItemCallbackWrapper _cb _ _ = do - _cb - -onIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId -onIconViewToggleCursorItem obj cb = liftIO $ connectIconViewToggleCursorItem obj cb SignalConnectBefore -afterIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId -afterIconViewToggleCursorItem obj cb = connectIconViewToggleCursorItem obj cb SignalConnectAfter - -connectIconViewToggleCursorItem :: (GObject a, MonadIO m) => - a -> IconViewToggleCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewToggleCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewToggleCursorItemCallback (iconViewToggleCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-item" cb' after - --- signal IconView::unselect-all -type IconViewUnselectAllCallback = - IO () - -noIconViewUnselectAllCallback :: Maybe IconViewUnselectAllCallback -noIconViewUnselectAllCallback = Nothing - -type IconViewUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewUnselectAllCallback :: IconViewUnselectAllCallbackC -> IO (FunPtr IconViewUnselectAllCallbackC) - -iconViewUnselectAllClosure :: IconViewUnselectAllCallback -> IO Closure -iconViewUnselectAllClosure cb = newCClosure =<< mkIconViewUnselectAllCallback wrapped - where wrapped = iconViewUnselectAllCallbackWrapper cb - -iconViewUnselectAllCallbackWrapper :: - IconViewUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewUnselectAllCallbackWrapper _cb _ _ = do - _cb - -onIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId -onIconViewUnselectAll obj cb = liftIO $ connectIconViewUnselectAll obj cb SignalConnectBefore -afterIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId -afterIconViewUnselectAll obj cb = connectIconViewUnselectAll obj cb SignalConnectAfter - -connectIconViewUnselectAll :: (GObject a, MonadIO m) => - a -> IconViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewUnselectAll obj cb after = liftIO $ do - cb' <- mkIconViewUnselectAllCallback (iconViewUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> m Bool -getIconViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> Bool -> m () -setIconViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructIconViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructIconViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data IconViewActivateOnSingleClickPropertyInfo -instance AttrInfo IconViewActivateOnSingleClickPropertyInfo where - type AttrAllowedOps IconViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint IconViewActivateOnSingleClickPropertyInfo = IconViewK - type AttrGetType IconViewActivateOnSingleClickPropertyInfo = Bool - type AttrLabel IconViewActivateOnSingleClickPropertyInfo = "activate-on-single-click" - attrGet _ = getIconViewActivateOnSingleClick - attrSet _ = setIconViewActivateOnSingleClick - attrConstruct _ = constructIconViewActivateOnSingleClick - attrClear _ = undefined - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m (Maybe CellArea) -getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructIconViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) - -data IconViewCellAreaPropertyInfo -instance AttrInfo IconViewCellAreaPropertyInfo where - type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK - type AttrGetType IconViewCellAreaPropertyInfo = (Maybe CellArea) - type AttrLabel IconViewCellAreaPropertyInfo = "cell-area" - attrGet _ = getIconViewCellArea - attrSet _ = undefined - attrConstruct _ = constructIconViewCellArea - attrClear _ = undefined - --- VVV Prop "column-spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" - -setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val - -constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val - -data IconViewColumnSpacingPropertyInfo -instance AttrInfo IconViewColumnSpacingPropertyInfo where - type AttrAllowedOps IconViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewColumnSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewColumnSpacingPropertyInfo = IconViewK - type AttrGetType IconViewColumnSpacingPropertyInfo = Int32 - type AttrLabel IconViewColumnSpacingPropertyInfo = "column-spacing" - attrGet _ = getIconViewColumnSpacing - attrSet _ = setIconViewColumnSpacing - attrConstruct _ = constructIconViewColumnSpacing - attrClear _ = undefined - --- VVV Prop "columns" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumns obj = liftIO $ getObjectPropertyInt32 obj "columns" - -setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumns obj val = liftIO $ setObjectPropertyInt32 obj "columns" val - -constructIconViewColumns :: Int32 -> IO ([Char], GValue) -constructIconViewColumns val = constructObjectPropertyInt32 "columns" val - -data IconViewColumnsPropertyInfo -instance AttrInfo IconViewColumnsPropertyInfo where - type AttrAllowedOps IconViewColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewColumnsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewColumnsPropertyInfo = IconViewK - type AttrGetType IconViewColumnsPropertyInfo = Int32 - type AttrLabel IconViewColumnsPropertyInfo = "columns" - attrGet _ = getIconViewColumns - attrSet _ = setIconViewColumns - attrConstruct _ = constructIconViewColumns - attrClear _ = undefined - --- VVV Prop "item-orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> m Orientation -getIconViewItemOrientation obj = liftIO $ getObjectPropertyEnum obj "item-orientation" - -setIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> Orientation -> m () -setIconViewItemOrientation obj val = liftIO $ setObjectPropertyEnum obj "item-orientation" val - -constructIconViewItemOrientation :: Orientation -> IO ([Char], GValue) -constructIconViewItemOrientation val = constructObjectPropertyEnum "item-orientation" val - -data IconViewItemOrientationPropertyInfo -instance AttrInfo IconViewItemOrientationPropertyInfo where - type AttrAllowedOps IconViewItemOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemOrientationPropertyInfo = (~) Orientation - type AttrBaseTypeConstraint IconViewItemOrientationPropertyInfo = IconViewK - type AttrGetType IconViewItemOrientationPropertyInfo = Orientation - type AttrLabel IconViewItemOrientationPropertyInfo = "item-orientation" - attrGet _ = getIconViewItemOrientation - attrSet _ = setIconViewItemOrientation - attrConstruct _ = constructIconViewItemOrientation - attrClear _ = undefined - --- VVV Prop "item-padding" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemPadding obj = liftIO $ getObjectPropertyInt32 obj "item-padding" - -setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemPadding obj val = liftIO $ setObjectPropertyInt32 obj "item-padding" val - -constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) -constructIconViewItemPadding val = constructObjectPropertyInt32 "item-padding" val - -data IconViewItemPaddingPropertyInfo -instance AttrInfo IconViewItemPaddingPropertyInfo where - type AttrAllowedOps IconViewItemPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemPaddingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewItemPaddingPropertyInfo = IconViewK - type AttrGetType IconViewItemPaddingPropertyInfo = Int32 - type AttrLabel IconViewItemPaddingPropertyInfo = "item-padding" - attrGet _ = getIconViewItemPadding - attrSet _ = setIconViewItemPadding - attrConstruct _ = constructIconViewItemPadding - attrClear _ = undefined - --- VVV Prop "item-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemWidth obj = liftIO $ getObjectPropertyInt32 obj "item-width" - -setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemWidth obj val = liftIO $ setObjectPropertyInt32 obj "item-width" val - -constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) -constructIconViewItemWidth val = constructObjectPropertyInt32 "item-width" val - -data IconViewItemWidthPropertyInfo -instance AttrInfo IconViewItemWidthPropertyInfo where - type AttrAllowedOps IconViewItemWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewItemWidthPropertyInfo = IconViewK - type AttrGetType IconViewItemWidthPropertyInfo = Int32 - type AttrLabel IconViewItemWidthPropertyInfo = "item-width" - attrGet _ = getIconViewItemWidth - attrSet _ = setIconViewItemWidth - attrConstruct _ = constructIconViewItemWidth - attrClear _ = undefined - --- VVV Prop "margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMargin obj = liftIO $ getObjectPropertyInt32 obj "margin" - -setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMargin obj val = liftIO $ setObjectPropertyInt32 obj "margin" val - -constructIconViewMargin :: Int32 -> IO ([Char], GValue) -constructIconViewMargin val = constructObjectPropertyInt32 "margin" val - -data IconViewMarginPropertyInfo -instance AttrInfo IconViewMarginPropertyInfo where - type AttrAllowedOps IconViewMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewMarginPropertyInfo = IconViewK - type AttrGetType IconViewMarginPropertyInfo = Int32 - type AttrLabel IconViewMarginPropertyInfo = "margin" - attrGet _ = getIconViewMargin - attrSet _ = setIconViewMargin - attrConstruct _ = constructIconViewMargin - attrClear _ = undefined - --- VVV Prop "markup-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMarkupColumn obj = liftIO $ getObjectPropertyInt32 obj "markup-column" - -setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyInt32 obj "markup-column" val - -constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) -constructIconViewMarkupColumn val = constructObjectPropertyInt32 "markup-column" val - -data IconViewMarkupColumnPropertyInfo -instance AttrInfo IconViewMarkupColumnPropertyInfo where - type AttrAllowedOps IconViewMarkupColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewMarkupColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewMarkupColumnPropertyInfo = IconViewK - type AttrGetType IconViewMarkupColumnPropertyInfo = Int32 - type AttrLabel IconViewMarkupColumnPropertyInfo = "markup-column" - attrGet _ = getIconViewMarkupColumn - attrSet _ = setIconViewMarkupColumn - attrConstruct _ = constructIconViewMarkupColumn - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel -getIconViewModel obj = liftIO $ checkUnexpectedNothing "getIconViewModel" $ getObjectPropertyObject obj "model" TreeModel - -setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () -setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructIconViewModel val = constructObjectPropertyObject "model" (Just val) - -clearIconViewModel :: (MonadIO m, IconViewK o) => o -> m () -clearIconViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data IconViewModelPropertyInfo -instance AttrInfo IconViewModelPropertyInfo where - type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK - type AttrGetType IconViewModelPropertyInfo = TreeModel - type AttrLabel IconViewModelPropertyInfo = "model" - attrGet _ = getIconViewModel - attrSet _ = setIconViewModel - attrConstruct _ = constructIconViewModel - attrClear _ = clearIconViewModel - --- VVV Prop "pixbuf-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewPixbufColumn obj = liftIO $ getObjectPropertyInt32 obj "pixbuf-column" - -setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyInt32 obj "pixbuf-column" val - -constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) -constructIconViewPixbufColumn val = constructObjectPropertyInt32 "pixbuf-column" val - -data IconViewPixbufColumnPropertyInfo -instance AttrInfo IconViewPixbufColumnPropertyInfo where - type AttrAllowedOps IconViewPixbufColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewPixbufColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewPixbufColumnPropertyInfo = IconViewK - type AttrGetType IconViewPixbufColumnPropertyInfo = Int32 - type AttrLabel IconViewPixbufColumnPropertyInfo = "pixbuf-column" - attrGet _ = getIconViewPixbufColumn - attrSet _ = setIconViewPixbufColumn - attrConstruct _ = constructIconViewPixbufColumn - attrClear _ = undefined - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewReorderable :: (MonadIO m, IconViewK o) => o -> m Bool -getIconViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" - -setIconViewReorderable :: (MonadIO m, IconViewK o) => o -> Bool -> m () -setIconViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val - -constructIconViewReorderable :: Bool -> IO ([Char], GValue) -constructIconViewReorderable val = constructObjectPropertyBool "reorderable" val - -data IconViewReorderablePropertyInfo -instance AttrInfo IconViewReorderablePropertyInfo where - type AttrAllowedOps IconViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewReorderablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint IconViewReorderablePropertyInfo = IconViewK - type AttrGetType IconViewReorderablePropertyInfo = Bool - type AttrLabel IconViewReorderablePropertyInfo = "reorderable" - attrGet _ = getIconViewReorderable - attrSet _ = setIconViewReorderable - attrConstruct _ = constructIconViewReorderable - attrClear _ = undefined - --- VVV Prop "row-spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" - -setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val - -constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewRowSpacing val = constructObjectPropertyInt32 "row-spacing" val - -data IconViewRowSpacingPropertyInfo -instance AttrInfo IconViewRowSpacingPropertyInfo where - type AttrAllowedOps IconViewRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewRowSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewRowSpacingPropertyInfo = IconViewK - type AttrGetType IconViewRowSpacingPropertyInfo = Int32 - type AttrLabel IconViewRowSpacingPropertyInfo = "row-spacing" - attrGet _ = getIconViewRowSpacing - attrSet _ = setIconViewRowSpacing - attrConstruct _ = constructIconViewRowSpacing - attrClear _ = undefined - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> m SelectionMode -getIconViewSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" - -setIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> SelectionMode -> m () -setIconViewSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "selection-mode" val - -constructIconViewSelectionMode :: SelectionMode -> IO ([Char], GValue) -constructIconViewSelectionMode val = constructObjectPropertyEnum "selection-mode" val - -data IconViewSelectionModePropertyInfo -instance AttrInfo IconViewSelectionModePropertyInfo where - type AttrAllowedOps IconViewSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewSelectionModePropertyInfo = (~) SelectionMode - type AttrBaseTypeConstraint IconViewSelectionModePropertyInfo = IconViewK - type AttrGetType IconViewSelectionModePropertyInfo = SelectionMode - type AttrLabel IconViewSelectionModePropertyInfo = "selection-mode" - attrGet _ = getIconViewSelectionMode - attrSet _ = setIconViewSelectionMode - attrConstruct _ = constructIconViewSelectionMode - attrClear _ = undefined - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructIconViewSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewSpacing val = constructObjectPropertyInt32 "spacing" val - -data IconViewSpacingPropertyInfo -instance AttrInfo IconViewSpacingPropertyInfo where - type AttrAllowedOps IconViewSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewSpacingPropertyInfo = IconViewK - type AttrGetType IconViewSpacingPropertyInfo = Int32 - type AttrLabel IconViewSpacingPropertyInfo = "spacing" - attrGet _ = getIconViewSpacing - attrSet _ = setIconViewSpacing - attrConstruct _ = constructIconViewSpacing - attrClear _ = undefined - --- VVV Prop "text-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" - -setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val - -constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTextColumn val = constructObjectPropertyInt32 "text-column" val - -data IconViewTextColumnPropertyInfo -instance AttrInfo IconViewTextColumnPropertyInfo where - type AttrAllowedOps IconViewTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewTextColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewTextColumnPropertyInfo = IconViewK - type AttrGetType IconViewTextColumnPropertyInfo = Int32 - type AttrLabel IconViewTextColumnPropertyInfo = "text-column" - attrGet _ = getIconViewTextColumn - attrSet _ = setIconViewTextColumn - attrConstruct _ = constructIconViewTextColumn - attrClear _ = undefined - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTooltipColumn obj = liftIO $ getObjectPropertyInt32 obj "tooltip-column" - -setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyInt32 obj "tooltip-column" val - -constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTooltipColumn val = constructObjectPropertyInt32 "tooltip-column" val - -data IconViewTooltipColumnPropertyInfo -instance AttrInfo IconViewTooltipColumnPropertyInfo where - type AttrAllowedOps IconViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewTooltipColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewTooltipColumnPropertyInfo = IconViewK - type AttrGetType IconViewTooltipColumnPropertyInfo = Int32 - type AttrLabel IconViewTooltipColumnPropertyInfo = "tooltip-column" - attrGet _ = getIconViewTooltipColumn - attrSet _ = setIconViewTooltipColumn - attrConstruct _ = constructIconViewTooltipColumn - attrClear _ = undefined - -type instance AttributeList IconView = IconViewAttributeList -type IconViewAttributeList = ('[ '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("textColumn", IconViewTextColumnPropertyInfo), '("tooltipColumn", IconViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -iconViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" -iconViewActivateOnSingleClick = AttrLabelProxy - -iconViewCellArea :: AttrLabelProxy "cellArea" -iconViewCellArea = AttrLabelProxy - -iconViewColumnSpacing :: AttrLabelProxy "columnSpacing" -iconViewColumnSpacing = AttrLabelProxy - -iconViewColumns :: AttrLabelProxy "columns" -iconViewColumns = AttrLabelProxy - -iconViewItemOrientation :: AttrLabelProxy "itemOrientation" -iconViewItemOrientation = AttrLabelProxy - -iconViewItemPadding :: AttrLabelProxy "itemPadding" -iconViewItemPadding = AttrLabelProxy - -iconViewItemWidth :: AttrLabelProxy "itemWidth" -iconViewItemWidth = AttrLabelProxy - -iconViewMargin :: AttrLabelProxy "margin" -iconViewMargin = AttrLabelProxy - -iconViewMarkupColumn :: AttrLabelProxy "markupColumn" -iconViewMarkupColumn = AttrLabelProxy - -iconViewModel :: AttrLabelProxy "model" -iconViewModel = AttrLabelProxy - -iconViewPixbufColumn :: AttrLabelProxy "pixbufColumn" -iconViewPixbufColumn = AttrLabelProxy - -iconViewReorderable :: AttrLabelProxy "reorderable" -iconViewReorderable = AttrLabelProxy - -iconViewRowSpacing :: AttrLabelProxy "rowSpacing" -iconViewRowSpacing = AttrLabelProxy - -iconViewSelectionMode :: AttrLabelProxy "selectionMode" -iconViewSelectionMode = AttrLabelProxy - -iconViewSpacing :: AttrLabelProxy "spacing" -iconViewSpacing = AttrLabelProxy - -iconViewTextColumn :: AttrLabelProxy "textColumn" -iconViewTextColumn = AttrLabelProxy - -iconViewTooltipColumn :: AttrLabelProxy "tooltipColumn" -iconViewTooltipColumn = AttrLabelProxy - -data IconViewActivateCursorItemSignalInfo -instance SignalInfo IconViewActivateCursorItemSignalInfo where - type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback - connectSignal _ = connectIconViewActivateCursorItem - -data IconViewItemActivatedSignalInfo -instance SignalInfo IconViewItemActivatedSignalInfo where - type HaskellCallbackType IconViewItemActivatedSignalInfo = IconViewItemActivatedCallback - connectSignal _ = connectIconViewItemActivated - -data IconViewMoveCursorSignalInfo -instance SignalInfo IconViewMoveCursorSignalInfo where - type HaskellCallbackType IconViewMoveCursorSignalInfo = IconViewMoveCursorCallback - connectSignal _ = connectIconViewMoveCursor - -data IconViewSelectAllSignalInfo -instance SignalInfo IconViewSelectAllSignalInfo where - type HaskellCallbackType IconViewSelectAllSignalInfo = IconViewSelectAllCallback - connectSignal _ = connectIconViewSelectAll - -data IconViewSelectCursorItemSignalInfo -instance SignalInfo IconViewSelectCursorItemSignalInfo where - type HaskellCallbackType IconViewSelectCursorItemSignalInfo = IconViewSelectCursorItemCallback - connectSignal _ = connectIconViewSelectCursorItem - -data IconViewSelectionChangedSignalInfo -instance SignalInfo IconViewSelectionChangedSignalInfo where - type HaskellCallbackType IconViewSelectionChangedSignalInfo = IconViewSelectionChangedCallback - connectSignal _ = connectIconViewSelectionChanged - -data IconViewToggleCursorItemSignalInfo -instance SignalInfo IconViewToggleCursorItemSignalInfo where - type HaskellCallbackType IconViewToggleCursorItemSignalInfo = IconViewToggleCursorItemCallback - connectSignal _ = connectIconViewToggleCursorItem - -data IconViewUnselectAllSignalInfo -instance SignalInfo IconViewUnselectAllSignalInfo where - type HaskellCallbackType IconViewUnselectAllSignalInfo = IconViewUnselectAllCallback - connectSignal _ = connectIconViewUnselectAll - -type instance SignalList IconView = IconViewSignalList -type IconViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorItem", IconViewActivateCursorItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", IconViewItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", IconViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", IconViewSelectAllSignalInfo), '("selectCursorItem", IconViewSelectCursorItemSignalInfo), '("selectionChanged", IconViewSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorItem", IconViewToggleCursorItemSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", IconViewUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method IconView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new" gtk_icon_view_new :: - IO (Ptr IconView) - - -iconViewNew :: - (MonadIO m) => - m IconView -- result -iconViewNew = liftIO $ do - result <- gtk_icon_view_new - checkUnexpectedReturnNULL "gtk_icon_view_new" result - result' <- (newObject IconView) result - return result' - --- method IconView::new_with_area --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new_with_area" gtk_icon_view_new_with_area :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr IconView) - - -iconViewNewWithArea :: - (MonadIO m, CellAreaK a) => - a -- area - -> m IconView -- result -iconViewNewWithArea area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_icon_view_new_with_area area' - checkUnexpectedReturnNULL "gtk_icon_view_new_with_area" result - result' <- (newObject IconView) result - touchManagedPtr area - return result' - --- method IconView::new_with_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new_with_model" gtk_icon_view_new_with_model :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr IconView) - - -iconViewNewWithModel :: - (MonadIO m, TreeModelK a) => - a -- model - -> m IconView -- result -iconViewNewWithModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_icon_view_new_with_model model' - checkUnexpectedReturnNULL "gtk_icon_view_new_with_model" result - result' <- (newObject IconView) result - touchManagedPtr model - return result' - --- method IconView::convert_widget_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, 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 "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- wx : TBasicType TInt - Int32 -> -- wy : TBasicType TInt - Ptr Int32 -> -- bx : TBasicType TInt - Ptr Int32 -> -- by : TBasicType TInt - IO () - - -iconViewConvertWidgetToBinWindowCoords :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- wx - -> Int32 -- wy - -> m (Int32,Int32) -- result -iconViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_icon_view_convert_widget_to_bin_window_coords _obj' wx wy bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - -data IconViewConvertWidgetToBinWindowCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, IconViewK a) => MethodInfo IconViewConvertWidgetToBinWindowCoordsMethodInfo a signature where - overloadedMethod _ = iconViewConvertWidgetToBinWindowCoords - --- method IconView::create_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_create_drag_icon" gtk_icon_view_create_drag_icon :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr Cairo.Surface) - - -iconViewCreateDragIcon :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m Cairo.Surface -- result -iconViewCreateDragIcon _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_create_drag_icon _obj' path' - checkUnexpectedReturnNULL "gtk_icon_view_create_drag_icon" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data IconViewCreateDragIconMethodInfo -instance (signature ~ (TreePath -> m Cairo.Surface), MonadIO m, IconViewK a) => MethodInfo IconViewCreateDragIconMethodInfo a signature where - overloadedMethod _ = iconViewCreateDragIcon - --- method IconView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragDest :: - (MonadIO m, IconViewK a) => - a -- _obj - -> [TargetEntry] -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -iconViewEnableModelDragDest _obj targets actions = liftIO $ do - let nTargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_icon_view_enable_model_drag_dest _obj' targets'' nTargets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data IconViewEnableModelDragDestMethodInfo -instance (signature ~ ([TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewEnableModelDragDestMethodInfo a signature where - overloadedMethod _ = iconViewEnableModelDragDest - --- method IconView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragSource :: - (MonadIO m, IconViewK a) => - a -- _obj - -> [Gdk.ModifierType] -- startButtonMask - -> [TargetEntry] -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -iconViewEnableModelDragSource _obj startButtonMask targets actions = liftIO $ do - let nTargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let startButtonMask' = gflagsToWord startButtonMask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_icon_view_enable_model_drag_source _obj' startButtonMask' targets'' nTargets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data IconViewEnableModelDragSourceMethodInfo -instance (signature ~ ([Gdk.ModifierType] -> [TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewEnableModelDragSourceMethodInfo a signature where - overloadedMethod _ = iconViewEnableModelDragSource - --- method IconView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_activate_on_single_click" gtk_icon_view_get_activate_on_single_click :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CInt - - -iconViewGetActivateOnSingleClick :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Bool -- result -iconViewGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconViewGetActivateOnSingleClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewGetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = iconViewGetActivateOnSingleClick - --- method IconView::get_cell_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_cell_rect" gtk_icon_view_get_cell_rect :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -iconViewGetCellRect :: - (MonadIO m, IconViewK a, CellRendererK b) => - a -- _obj - -> TreePath -- path - -> Maybe (b) -- cell - -> m (Bool,Gdk.Rectangle) -- result -iconViewGetCellRect _obj path cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_icon_view_get_cell_rect _obj' path' maybeCell rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return (result', rect') - -data IconViewGetCellRectMethodInfo -instance (signature ~ (TreePath -> Maybe (b) -> m (Bool,Gdk.Rectangle)), MonadIO m, IconViewK a, CellRendererK b) => MethodInfo IconViewGetCellRectMethodInfo a signature where - overloadedMethod _ = iconViewGetCellRect - --- method IconView::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_column_spacing" gtk_icon_view_get_column_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetColumnSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_column_spacing _obj' - touchManagedPtr _obj - return result - -data IconViewGetColumnSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetColumnSpacingMethodInfo a signature where - overloadedMethod _ = iconViewGetColumnSpacing - --- method IconView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_columns" gtk_icon_view_get_columns :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetColumns :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_columns _obj' - touchManagedPtr _obj - return result - -data IconViewGetColumnsMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetColumnsMethodInfo a signature where - overloadedMethod _ = iconViewGetColumns - --- method IconView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, 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 "gtk_icon_view_get_cursor" gtk_icon_view_get_cursor :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" - IO CInt - - -iconViewGetCursor :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m (Bool,TreePath,CellRenderer) -- result -iconViewGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) - result <- gtk_icon_view_get_cursor _obj' path cell - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - cell' <- peek cell - cell'' <- (newObject CellRenderer) cell' - touchManagedPtr _obj - freeMem path - freeMem cell - return (result', path'', cell'') - -data IconViewGetCursorMethodInfo -instance (signature ~ (m (Bool,TreePath,CellRenderer)), MonadIO m, IconViewK a) => MethodInfo IconViewGetCursorMethodInfo a signature where - overloadedMethod _ = iconViewGetCursor - --- method IconView::get_dest_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", 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 "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- drag_x : TBasicType TInt - Int32 -> -- drag_y : TBasicType TInt - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO CInt - - -iconViewGetDestItemAtPos :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- dragX - -> Int32 -- dragY - -> m (Bool,TreePath,IconViewDropPosition)-- result -iconViewGetDestItemAtPos _obj dragX dragY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - result <- gtk_icon_view_get_dest_item_at_pos _obj' dragX dragY path pos - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (result', path'', pos'') - -data IconViewGetDestItemAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,IconViewDropPosition)), MonadIO m, IconViewK a) => MethodInfo IconViewGetDestItemAtPosMethodInfo a signature where - overloadedMethod _ = iconViewGetDestItemAtPos - --- method IconView::get_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", 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 "gtk_icon_view_get_drag_dest_item" gtk_icon_view_get_drag_dest_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO () - - -iconViewGetDragDestItem :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m (TreePath,IconViewDropPosition) -- result -iconViewGetDragDestItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - gtk_icon_view_get_drag_dest_item _obj' path pos - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (path'', pos'') - -data IconViewGetDragDestItemMethodInfo -instance (signature ~ (m (TreePath,IconViewDropPosition)), MonadIO m, IconViewK a) => MethodInfo IconViewGetDragDestItemMethodInfo a signature where - overloadedMethod _ = iconViewGetDragDestItem - --- method IconView::get_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" - IO CInt - - -iconViewGetItemAtPos :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (Bool,TreePath,CellRenderer) -- result -iconViewGetItemAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) - result <- gtk_icon_view_get_item_at_pos _obj' x y path cell - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - cell' <- peek cell - cell'' <- (wrapObject CellRenderer) cell' - touchManagedPtr _obj - freeMem path - freeMem cell - return (result', path'', cell'') - -data IconViewGetItemAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,CellRenderer)), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemAtPosMethodInfo a signature where - overloadedMethod _ = iconViewGetItemAtPos - --- method IconView::get_item_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_get_item_column" gtk_icon_view_get_item_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO Int32 - - -iconViewGetItemColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m Int32 -- result -iconViewGetItemColumn _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_get_item_column _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return result - -data IconViewGetItemColumnMethodInfo -instance (signature ~ (TreePath -> m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemColumnMethodInfo a signature where - overloadedMethod _ = iconViewGetItemColumn - --- method IconView::get_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_orientation" gtk_icon_view_get_item_orientation :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CUInt - - -iconViewGetItemOrientation :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Orientation -- result -iconViewGetItemOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data IconViewGetItemOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemOrientationMethodInfo a signature where - overloadedMethod _ = iconViewGetItemOrientation - --- method IconView::get_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_item_padding" gtk_icon_view_get_item_padding :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetItemPadding :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetItemPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_padding _obj' - touchManagedPtr _obj - return result - -data IconViewGetItemPaddingMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemPaddingMethodInfo a signature where - overloadedMethod _ = iconViewGetItemPadding - --- method IconView::get_item_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_get_item_row" gtk_icon_view_get_item_row :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO Int32 - - -iconViewGetItemRow :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m Int32 -- result -iconViewGetItemRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_get_item_row _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return result - -data IconViewGetItemRowMethodInfo -instance (signature ~ (TreePath -> m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemRowMethodInfo a signature where - overloadedMethod _ = iconViewGetItemRow - --- method IconView::get_item_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_item_width" gtk_icon_view_get_item_width :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetItemWidth :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetItemWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_width _obj' - touchManagedPtr _obj - return result - -data IconViewGetItemWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemWidthMethodInfo a signature where - overloadedMethod _ = iconViewGetItemWidth - --- method IconView::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_margin" gtk_icon_view_get_margin :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetMargin :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_margin _obj' - touchManagedPtr _obj - return result - -data IconViewGetMarginMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetMarginMethodInfo a signature where - overloadedMethod _ = iconViewGetMargin - --- method IconView::get_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_markup_column" gtk_icon_view_get_markup_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetMarkupColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetMarkupColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_markup_column _obj' - touchManagedPtr _obj - return result - -data IconViewGetMarkupColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetMarkupColumnMethodInfo a signature where - overloadedMethod _ = iconViewGetMarkupColumn - --- method IconView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_model" gtk_icon_view_get_model :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO (Ptr TreeModel) - - -iconViewGetModel :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m TreeModel -- result -iconViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_icon_view_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data IconViewGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, IconViewK a) => MethodInfo IconViewGetModelMethodInfo a signature where - overloadedMethod _ = iconViewGetModel - --- method IconView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr TreePath) - - -iconViewGetPathAtPos :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m TreePath -- result -iconViewGetPathAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_path_at_pos _obj' x y - checkUnexpectedReturnNULL "gtk_icon_view_get_path_at_pos" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - return result' - -data IconViewGetPathAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m TreePath), MonadIO m, IconViewK a) => MethodInfo IconViewGetPathAtPosMethodInfo a signature where - overloadedMethod _ = iconViewGetPathAtPos - --- method IconView::get_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_pixbuf_column" gtk_icon_view_get_pixbuf_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetPixbufColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetPixbufColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_pixbuf_column _obj' - touchManagedPtr _obj - return result - -data IconViewGetPixbufColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetPixbufColumnMethodInfo a signature where - overloadedMethod _ = iconViewGetPixbufColumn - --- method IconView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_reorderable" gtk_icon_view_get_reorderable :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CInt - - -iconViewGetReorderable :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Bool -- result -iconViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconViewGetReorderableMethodInfo -instance (signature ~ (m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewGetReorderableMethodInfo a signature where - overloadedMethod _ = iconViewGetReorderable - --- method IconView::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_row_spacing" gtk_icon_view_get_row_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetRowSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_row_spacing _obj' - touchManagedPtr _obj - return result - -data IconViewGetRowSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetRowSpacingMethodInfo a signature where - overloadedMethod _ = iconViewGetRowSpacing - --- method IconView::get_selected_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "TreePath")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_selected_items" gtk_icon_view_get_selected_items :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO (Ptr (GList (Ptr TreePath))) - - -iconViewGetSelectedItems :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m [TreePath] -- result -iconViewGetSelectedItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_selected_items _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed TreePath) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data IconViewGetSelectedItemsMethodInfo -instance (signature ~ (m [TreePath]), MonadIO m, IconViewK a) => MethodInfo IconViewGetSelectedItemsMethodInfo a signature where - overloadedMethod _ = iconViewGetSelectedItems - --- method IconView::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_selection_mode" gtk_icon_view_get_selection_mode :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CUInt - - -iconViewGetSelectionMode :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m SelectionMode -- result -iconViewGetSelectionMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_selection_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data IconViewGetSelectionModeMethodInfo -instance (signature ~ (m SelectionMode), MonadIO m, IconViewK a) => MethodInfo IconViewGetSelectionModeMethodInfo a signature where - overloadedMethod _ = iconViewGetSelectionMode - --- method IconView::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_spacing" gtk_icon_view_get_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_spacing _obj' - touchManagedPtr _obj - return result - -data IconViewGetSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetSpacingMethodInfo a signature where - overloadedMethod _ = iconViewGetSpacing - --- method IconView::get_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_text_column" gtk_icon_view_get_text_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetTextColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_text_column _obj' - touchManagedPtr _obj - return result - -data IconViewGetTextColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetTextColumnMethodInfo a signature where - overloadedMethod _ = iconViewGetTextColumn - --- method IconView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_get_tooltip_column" gtk_icon_view_get_tooltip_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetTooltipColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m Int32 -- result -iconViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - -data IconViewGetTooltipColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetTooltipColumnMethodInfo a signature where - overloadedMethod _ = iconViewGetTooltipColumn - --- method IconView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - CInt -> -- keyboard_tip : TBasicType TBoolean - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -iconViewGetTooltipContext :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> Bool -- keyboardTip - -> m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter)-- result -iconViewGetTooltipContext _obj x y keyboardTip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboardTip' = (fromIntegral . fromEnum) keyboardTip - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_icon_view_get_tooltip_context _obj' x' y' keyboardTip' model path iter - let result' = (/= 0) result - x'' <- peek x' - y'' <- peek y' - model' <- peek model - model'' <- (newObject TreeModel) model' - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem x' - freeMem y' - freeMem model - freeMem path - return (result', x'', y'', model'', path'', iter') - -data IconViewGetTooltipContextMethodInfo -instance (signature ~ (Int32 -> Int32 -> Bool -> m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter)), MonadIO m, IconViewK a) => MethodInfo IconViewGetTooltipContextMethodInfo a signature where - overloadedMethod _ = iconViewGetTooltipContext - --- method IconView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_get_visible_range" gtk_icon_view_get_visible_range :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" - IO CInt - - -iconViewGetVisibleRange :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m (Bool,TreePath,TreePath) -- result -iconViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startPath <- allocMem :: IO (Ptr (Ptr TreePath)) - endPath <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_icon_view_get_visible_range _obj' startPath endPath - let result' = (/= 0) result - startPath' <- peek startPath - startPath'' <- (wrapBoxed TreePath) startPath' - endPath' <- peek endPath - endPath'' <- (wrapBoxed TreePath) endPath' - touchManagedPtr _obj - freeMem startPath - freeMem endPath - return (result', startPath'', endPath'') - -data IconViewGetVisibleRangeMethodInfo -instance (signature ~ (m (Bool,TreePath,TreePath)), MonadIO m, IconViewK a) => MethodInfo IconViewGetVisibleRangeMethodInfo a signature where - overloadedMethod _ = iconViewGetVisibleRange - --- method IconView::item_activated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_item_activated" gtk_icon_view_item_activated :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewItemActivated :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -iconViewItemActivated _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_item_activated _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data IconViewItemActivatedMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewItemActivatedMethodInfo a signature where - overloadedMethod _ = iconViewItemActivated - --- method IconView::path_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_path_is_selected" gtk_icon_view_path_is_selected :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -iconViewPathIsSelected :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -iconViewPathIsSelected _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_path_is_selected _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data IconViewPathIsSelectedMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewPathIsSelectedMethodInfo a signature where - overloadedMethod _ = iconViewPathIsSelected - --- method IconView::scroll_to_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, 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 "gtk_icon_view_scroll_to_path" gtk_icon_view_scroll_to_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CInt -> -- use_align : TBasicType TBoolean - CFloat -> -- row_align : TBasicType TFloat - CFloat -> -- col_align : TBasicType TFloat - IO () - - -iconViewScrollToPath :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> Bool -- useAlign - -> Float -- rowAlign - -> Float -- colAlign - -> m () -- result -iconViewScrollToPath _obj path useAlign rowAlign colAlign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let useAlign' = (fromIntegral . fromEnum) useAlign - let rowAlign' = realToFrac rowAlign - let colAlign' = realToFrac colAlign - gtk_icon_view_scroll_to_path _obj' path' useAlign' rowAlign' colAlign' - touchManagedPtr _obj - touchManagedPtr path - return () - -data IconViewScrollToPathMethodInfo -instance (signature ~ (TreePath -> Bool -> Float -> Float -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewScrollToPathMethodInfo a signature where - overloadedMethod _ = iconViewScrollToPath - --- method IconView::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_select_all" gtk_icon_view_select_all :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewSelectAll :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m () -- result -iconViewSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_select_all _obj' - touchManagedPtr _obj - return () - -data IconViewSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectAllMethodInfo a signature where - overloadedMethod _ = iconViewSelectAll - --- method IconView::select_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_select_path" gtk_icon_view_select_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewSelectPath :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -iconViewSelectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_select_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data IconViewSelectPathMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectPathMethodInfo a signature where - overloadedMethod _ = iconViewSelectPath - --- method IconView::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -iconViewSelectedForeach :: - (MonadIO m, IconViewK a) => - a -- _obj - -> IconViewForeachFunc -- func - -> m () -- result -iconViewSelectedForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkIconViewForeachFunc (iconViewForeachFuncWrapper Nothing func) - let data_ = nullPtr - gtk_icon_view_selected_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data IconViewSelectedForeachMethodInfo -instance (signature ~ (IconViewForeachFunc -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectedForeachMethodInfo a signature where - overloadedMethod _ = iconViewSelectedForeach - --- method IconView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", 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 "gtk_icon_view_set_activate_on_single_click" gtk_icon_view_set_activate_on_single_click :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CInt -> -- single : TBasicType TBoolean - IO () - - -iconViewSetActivateOnSingleClick :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Bool -- single - -> m () -- result -iconViewSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_icon_view_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - -data IconViewSetActivateOnSingleClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = iconViewSetActivateOnSingleClick - --- method IconView::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", 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 "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column_spacing : TBasicType TInt - IO () - - -iconViewSetColumnSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- columnSpacing - -> m () -- result -iconViewSetColumnSpacing _obj columnSpacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_column_spacing _obj' columnSpacing - touchManagedPtr _obj - return () - -data IconViewSetColumnSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetColumnSpacingMethodInfo a signature where - overloadedMethod _ = iconViewSetColumnSpacing - --- method IconView::set_columns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", 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 "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- columns : TBasicType TInt - IO () - - -iconViewSetColumns :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- columns - -> m () -- result -iconViewSetColumns _obj columns = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_columns _obj' columns - touchManagedPtr _obj - return () - -data IconViewSetColumnsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetColumnsMethodInfo a signature where - overloadedMethod _ = iconViewSetColumns - --- method IconView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", 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 "gtk_icon_view_set_cursor" gtk_icon_view_set_cursor :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -iconViewSetCursor :: - (MonadIO m, IconViewK a, CellRendererK b) => - a -- _obj - -> TreePath -- path - -> Maybe (b) -- cell - -> Bool -- startEditing - -> m () -- result -iconViewSetCursor _obj path cell startEditing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - let startEditing' = (fromIntegral . fromEnum) startEditing - gtk_icon_view_set_cursor _obj' path' maybeCell startEditing' - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return () - -data IconViewSetCursorMethodInfo -instance (signature ~ (TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, IconViewK a, CellRendererK b) => MethodInfo IconViewSetCursorMethodInfo a signature where - overloadedMethod _ = iconViewSetCursor - --- method IconView::set_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", 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 "gtk_icon_view_set_drag_dest_item" gtk_icon_view_set_drag_dest_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO () - - -iconViewSetDragDestItem :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Maybe (TreePath) -- path - -> IconViewDropPosition -- pos - -> m () -- result -iconViewSetDragDestItem _obj path pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - let pos' = (fromIntegral . fromEnum) pos - gtk_icon_view_set_drag_dest_item _obj' maybePath pos' - touchManagedPtr _obj - whenJust path touchManagedPtr - return () - -data IconViewSetDragDestItemMethodInfo -instance (signature ~ (Maybe (TreePath) -> IconViewDropPosition -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetDragDestItemMethodInfo a signature where - overloadedMethod _ = iconViewSetDragDestItem - --- method IconView::set_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_icon_view_set_item_orientation" gtk_icon_view_set_item_orientation :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - - -iconViewSetItemOrientation :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Orientation -- orientation - -> m () -- result -iconViewSetItemOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_icon_view_set_item_orientation _obj' orientation' - touchManagedPtr _obj - return () - -data IconViewSetItemOrientationMethodInfo -instance (signature ~ (Orientation -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemOrientationMethodInfo a signature where - overloadedMethod _ = iconViewSetItemOrientation - --- method IconView::set_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", 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 "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_padding : TBasicType TInt - IO () - - -iconViewSetItemPadding :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- itemPadding - -> m () -- result -iconViewSetItemPadding _obj itemPadding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_padding _obj' itemPadding - touchManagedPtr _obj - return () - -data IconViewSetItemPaddingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemPaddingMethodInfo a signature where - overloadedMethod _ = iconViewSetItemPadding - --- method IconView::set_item_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", 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 "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_width : TBasicType TInt - IO () - - -iconViewSetItemWidth :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- itemWidth - -> m () -- result -iconViewSetItemWidth _obj itemWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_width _obj' itemWidth - touchManagedPtr _obj - return () - -data IconViewSetItemWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemWidthMethodInfo a signature where - overloadedMethod _ = iconViewSetItemWidth - --- method IconView::set_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- margin : TBasicType TInt - IO () - - -iconViewSetMargin :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -iconViewSetMargin _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_margin _obj' margin - touchManagedPtr _obj - return () - -data IconViewSetMarginMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetMarginMethodInfo a signature where - overloadedMethod _ = iconViewSetMargin - --- method IconView::set_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt - IO () - - -iconViewSetMarkupColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -iconViewSetMarkupColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_markup_column _obj' column - touchManagedPtr _obj - return () - -data IconViewSetMarkupColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetMarkupColumnMethodInfo a signature where - overloadedMethod _ = iconViewSetMarkupColumn - --- method IconView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_model" gtk_icon_view_set_model :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -iconViewSetModel :: - (MonadIO m, IconViewK a, TreeModelK b) => - a -- _obj - -> Maybe (b) -- model - -> m () -- result -iconViewSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_icon_view_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data IconViewSetModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IconViewK a, TreeModelK b) => MethodInfo IconViewSetModelMethodInfo a signature where - overloadedMethod _ = iconViewSetModel - --- method IconView::set_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt - IO () - - -iconViewSetPixbufColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -iconViewSetPixbufColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_pixbuf_column _obj' column - touchManagedPtr _obj - return () - -data IconViewSetPixbufColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetPixbufColumnMethodInfo a signature where - overloadedMethod _ = iconViewSetPixbufColumn - --- method IconView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", 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 "gtk_icon_view_set_reorderable" gtk_icon_view_set_reorderable :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -iconViewSetReorderable :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Bool -- reorderable - -> m () -- result -iconViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_icon_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - -data IconViewSetReorderableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetReorderableMethodInfo a signature where - overloadedMethod _ = iconViewSetReorderable - --- method IconView::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", 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 "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- row_spacing : TBasicType TInt - IO () - - -iconViewSetRowSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- rowSpacing - -> m () -- result -iconViewSetRowSpacing _obj rowSpacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_row_spacing _obj' rowSpacing - touchManagedPtr _obj - return () - -data IconViewSetRowSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetRowSpacingMethodInfo a signature where - overloadedMethod _ = iconViewSetRowSpacing - --- method IconView::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", 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 "gtk_icon_view_set_selection_mode" gtk_icon_view_set_selection_mode :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- mode : TInterface "Gtk" "SelectionMode" - IO () - - -iconViewSetSelectionMode :: - (MonadIO m, IconViewK a) => - a -- _obj - -> SelectionMode -- mode - -> m () -- result -iconViewSetSelectionMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_icon_view_set_selection_mode _obj' mode' - touchManagedPtr _obj - return () - -data IconViewSetSelectionModeMethodInfo -instance (signature ~ (SelectionMode -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetSelectionModeMethodInfo a signature where - overloadedMethod _ = iconViewSetSelectionMode - --- method IconView::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- spacing : TBasicType TInt - IO () - - -iconViewSetSpacing :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- spacing - -> m () -- result -iconViewSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_spacing _obj' spacing - touchManagedPtr _obj - return () - -data IconViewSetSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetSpacingMethodInfo a signature where - overloadedMethod _ = iconViewSetSpacing - --- method IconView::set_text_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt - IO () - - -iconViewSetTextColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -iconViewSetTextColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_text_column _obj' column - touchManagedPtr _obj - return () - -data IconViewSetTextColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetTextColumnMethodInfo a signature where - overloadedMethod _ = iconViewSetTextColumn - --- method IconView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_tooltip_cell" gtk_icon_view_set_tooltip_cell :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -iconViewSetTooltipCell :: - (MonadIO m, IconViewK a, TooltipK b, CellRendererK c) => - a -- _obj - -> b -- tooltip - -> TreePath -- path - -> Maybe (c) -- cell - -> m () -- result -iconViewSetTooltipCell _obj tooltip path cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - gtk_icon_view_set_tooltip_cell _obj' tooltip' path' maybeCell - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - whenJust cell touchManagedPtr - return () - -data IconViewSetTooltipCellMethodInfo -instance (signature ~ (b -> TreePath -> Maybe (c) -> m ()), MonadIO m, IconViewK a, TooltipK b, CellRendererK c) => MethodInfo IconViewSetTooltipCellMethodInfo a signature where - overloadedMethod _ = iconViewSetTooltipCell - --- method IconView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt - IO () - - -iconViewSetTooltipColumn :: - (MonadIO m, IconViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -iconViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - -data IconViewSetTooltipColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetTooltipColumnMethodInfo a signature where - overloadedMethod _ = iconViewSetTooltipColumn - --- method IconView::set_tooltip_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_set_tooltip_item" gtk_icon_view_set_tooltip_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewSetTooltipItem :: - (MonadIO m, IconViewK a, TooltipK b) => - a -- _obj - -> b -- tooltip - -> TreePath -- path - -> m () -- result -iconViewSetTooltipItem _obj tooltip path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_set_tooltip_item _obj' tooltip' path' - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - return () - -data IconViewSetTooltipItemMethodInfo -instance (signature ~ (b -> TreePath -> m ()), MonadIO m, IconViewK a, TooltipK b) => MethodInfo IconViewSetTooltipItemMethodInfo a signature where - overloadedMethod _ = iconViewSetTooltipItem - --- method IconView::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_unselect_all" gtk_icon_view_unselect_all :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnselectAll :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m () -- result -iconViewUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unselect_all _obj' - touchManagedPtr _obj - return () - -data IconViewUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnselectAllMethodInfo a signature where - overloadedMethod _ = iconViewUnselectAll - --- method IconView::unselect_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_icon_view_unselect_path" gtk_icon_view_unselect_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewUnselectPath :: - (MonadIO m, IconViewK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -iconViewUnselectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_unselect_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data IconViewUnselectPathMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnselectPathMethodInfo a signature where - overloadedMethod _ = iconViewUnselectPath - --- method IconView::unset_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_unset_model_drag_dest" gtk_icon_view_unset_model_drag_dest :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnsetModelDragDest :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m () -- result -iconViewUnsetModelDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_dest _obj' - touchManagedPtr _obj - return () - -data IconViewUnsetModelDragDestMethodInfo -instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnsetModelDragDestMethodInfo a signature where - overloadedMethod _ = iconViewUnsetModelDragDest - --- method IconView::unset_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 "gtk_icon_view_unset_model_drag_source" gtk_icon_view_unset_model_drag_source :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnsetModelDragSource :: - (MonadIO m, IconViewK a) => - a -- _obj - -> m () -- result -iconViewUnsetModelDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_source _obj' - touchManagedPtr _obj - return () - -data IconViewUnsetModelDragSourceMethodInfo -instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnsetModelDragSourceMethodInfo a signature where - overloadedMethod _ = iconViewUnsetModelDragSource - - diff --git a/GI/Gtk/Objects/IconView.hs-boot b/GI/Gtk/Objects/IconView.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IconView.hs-boot +++ /dev/null @@ -1,99 +0,0 @@ -module GI.Gtk.Objects.IconView 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 IconView = IconView (ForeignPtr IconView) -instance GObject IconView where -class GObject o => IconViewK o -instance (GObject o, IsDescendantOf IconView o) => IconViewK o -data IconViewActivateOnSingleClickPropertyInfo -data IconViewCellAreaPropertyInfo -data IconViewColumnSpacingPropertyInfo -data IconViewColumnsPropertyInfo -data IconViewItemOrientationPropertyInfo -data IconViewItemPaddingPropertyInfo -data IconViewItemWidthPropertyInfo -data IconViewMarginPropertyInfo -data IconViewMarkupColumnPropertyInfo -data IconViewModelPropertyInfo -data IconViewPixbufColumnPropertyInfo -data IconViewReorderablePropertyInfo -data IconViewRowSpacingPropertyInfo -data IconViewSelectionModePropertyInfo -data IconViewSpacingPropertyInfo -data IconViewTextColumnPropertyInfo -data IconViewTooltipColumnPropertyInfo -data IconViewActivateCursorItemSignalInfo -data IconViewItemActivatedSignalInfo -data IconViewMoveCursorSignalInfo -data IconViewSelectAllSignalInfo -data IconViewSelectCursorItemSignalInfo -data IconViewSelectionChangedSignalInfo -data IconViewToggleCursorItemSignalInfo -data IconViewUnselectAllSignalInfo -data IconViewConvertWidgetToBinWindowCoordsMethodInfo -data IconViewCreateDragIconMethodInfo -data IconViewEnableModelDragDestMethodInfo -data IconViewEnableModelDragSourceMethodInfo -data IconViewGetActivateOnSingleClickMethodInfo -data IconViewGetCellRectMethodInfo -data IconViewGetColumnSpacingMethodInfo -data IconViewGetColumnsMethodInfo -data IconViewGetCursorMethodInfo -data IconViewGetDestItemAtPosMethodInfo -data IconViewGetDragDestItemMethodInfo -data IconViewGetItemAtPosMethodInfo -data IconViewGetItemColumnMethodInfo -data IconViewGetItemOrientationMethodInfo -data IconViewGetItemPaddingMethodInfo -data IconViewGetItemRowMethodInfo -data IconViewGetItemWidthMethodInfo -data IconViewGetMarginMethodInfo -data IconViewGetMarkupColumnMethodInfo -data IconViewGetModelMethodInfo -data IconViewGetPathAtPosMethodInfo -data IconViewGetPixbufColumnMethodInfo -data IconViewGetReorderableMethodInfo -data IconViewGetRowSpacingMethodInfo -data IconViewGetSelectedItemsMethodInfo -data IconViewGetSelectionModeMethodInfo -data IconViewGetSpacingMethodInfo -data IconViewGetTextColumnMethodInfo -data IconViewGetTooltipColumnMethodInfo -data IconViewGetTooltipContextMethodInfo -data IconViewGetVisibleRangeMethodInfo -data IconViewItemActivatedMethodInfo -data IconViewPathIsSelectedMethodInfo -data IconViewScrollToPathMethodInfo -data IconViewSelectAllMethodInfo -data IconViewSelectPathMethodInfo -data IconViewSelectedForeachMethodInfo -data IconViewSetActivateOnSingleClickMethodInfo -data IconViewSetColumnSpacingMethodInfo -data IconViewSetColumnsMethodInfo -data IconViewSetCursorMethodInfo -data IconViewSetDragDestItemMethodInfo -data IconViewSetItemOrientationMethodInfo -data IconViewSetItemPaddingMethodInfo -data IconViewSetItemWidthMethodInfo -data IconViewSetMarginMethodInfo -data IconViewSetMarkupColumnMethodInfo -data IconViewSetModelMethodInfo -data IconViewSetPixbufColumnMethodInfo -data IconViewSetReorderableMethodInfo -data IconViewSetRowSpacingMethodInfo -data IconViewSetSelectionModeMethodInfo -data IconViewSetSpacingMethodInfo -data IconViewSetTextColumnMethodInfo -data IconViewSetTooltipCellMethodInfo -data IconViewSetTooltipColumnMethodInfo -data IconViewSetTooltipItemMethodInfo -data IconViewUnselectAllMethodInfo -data IconViewUnselectPathMethodInfo -data IconViewUnsetModelDragDestMethodInfo -data IconViewUnsetModelDragSourceMethodInfo diff --git a/GI/Gtk/Objects/IconViewAccessible.hs b/GI/Gtk/Objects/IconViewAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/IconViewAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.IconViewAccessible - ( - --- * Exported types - IconViewAccessible(..) , - IconViewAccessibleK , - toIconViewAccessible , - noIconViewAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype IconViewAccessible = IconViewAccessible (ForeignPtr IconViewAccessible) -foreign import ccall "gtk_icon_view_accessible_get_type" - c_gtk_icon_view_accessible_get_type :: IO GType - -type instance ParentTypes IconViewAccessible = IconViewAccessibleParentTypes -type IconViewAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject IconViewAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_icon_view_accessible_get_type - - -class GObject o => IconViewAccessibleK o -instance (GObject o, IsDescendantOf IconViewAccessible o) => IconViewAccessibleK o - -toIconViewAccessible :: IconViewAccessibleK o => o -> IO IconViewAccessible -toIconViewAccessible = unsafeCastTo IconViewAccessible - -noIconViewAccessible :: Maybe IconViewAccessible -noIconViewAccessible = Nothing - -type family ResolveIconViewAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveIconViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveIconViewAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveIconViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconViewAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveIconViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveIconViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveIconViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconViewAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveIconViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveIconViewAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveIconViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveIconViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveIconViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveIconViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveIconViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveIconViewAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveIconViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveIconViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveIconViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveIconViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveIconViewAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveIconViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconViewAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveIconViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveIconViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveIconViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveIconViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveIconViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveIconViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveIconViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveIconViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveIconViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveIconViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveIconViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveIconViewAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveIconViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveIconViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveIconViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveIconViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveIconViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveIconViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveIconViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveIconViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveIconViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveIconViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveIconViewAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconViewAccessibleMethod t IconViewAccessible, MethodInfo info IconViewAccessible p) => IsLabelProxy t (IconViewAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconViewAccessibleMethod t IconViewAccessible, MethodInfo info IconViewAccessible p) => IsLabel t (IconViewAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList IconViewAccessible = IconViewAccessibleAttributeList -type IconViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IconViewAccessible = IconViewAccessibleSignalList -type IconViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/IconViewAccessible.hs-boot b/GI/Gtk/Objects/IconViewAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/IconViewAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.IconViewAccessible 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 IconViewAccessible = IconViewAccessible (ForeignPtr IconViewAccessible) -instance GObject IconViewAccessible where -class GObject o => IconViewAccessibleK o -instance (GObject o, IsDescendantOf IconViewAccessible o) => IconViewAccessibleK o diff --git a/GI/Gtk/Objects/Image.hs b/GI/Gtk/Objects/Image.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Image.hs +++ /dev/null @@ -1,1906 +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.Gtk.Objects.Image - ( - --- * Exported types - Image(..) , - ImageK , - toImage , - noImage , - - - -- * Methods --- ** imageClear - ImageClearMethodInfo , - imageClear , - - --- ** imageGetAnimation - ImageGetAnimationMethodInfo , - imageGetAnimation , - - --- ** imageGetGicon - ImageGetGiconMethodInfo , - imageGetGicon , - - --- ** imageGetIconName - ImageGetIconNameMethodInfo , - imageGetIconName , - - --- ** imageGetIconSet - ImageGetIconSetMethodInfo , - imageGetIconSet , - - --- ** imageGetPixbuf - ImageGetPixbufMethodInfo , - imageGetPixbuf , - - --- ** imageGetPixelSize - ImageGetPixelSizeMethodInfo , - imageGetPixelSize , - - --- ** imageGetStock - ImageGetStockMethodInfo , - imageGetStock , - - --- ** imageGetStorageType - ImageGetStorageTypeMethodInfo , - imageGetStorageType , - - --- ** imageNew - imageNew , - - --- ** imageNewFromAnimation - imageNewFromAnimation , - - --- ** imageNewFromFile - imageNewFromFile , - - --- ** imageNewFromGicon - imageNewFromGicon , - - --- ** imageNewFromIconName - imageNewFromIconName , - - --- ** imageNewFromIconSet - imageNewFromIconSet , - - --- ** imageNewFromPixbuf - imageNewFromPixbuf , - - --- ** imageNewFromResource - imageNewFromResource , - - --- ** imageNewFromStock - imageNewFromStock , - - --- ** imageNewFromSurface - imageNewFromSurface , - - --- ** imageSetFromAnimation - ImageSetFromAnimationMethodInfo , - imageSetFromAnimation , - - --- ** imageSetFromFile - ImageSetFromFileMethodInfo , - imageSetFromFile , - - --- ** imageSetFromGicon - ImageSetFromGiconMethodInfo , - imageSetFromGicon , - - --- ** imageSetFromIconName - ImageSetFromIconNameMethodInfo , - imageSetFromIconName , - - --- ** imageSetFromIconSet - ImageSetFromIconSetMethodInfo , - imageSetFromIconSet , - - --- ** imageSetFromPixbuf - ImageSetFromPixbufMethodInfo , - imageSetFromPixbuf , - - --- ** imageSetFromResource - ImageSetFromResourceMethodInfo , - imageSetFromResource , - - --- ** imageSetFromStock - ImageSetFromStockMethodInfo , - imageSetFromStock , - - --- ** imageSetFromSurface - ImageSetFromSurfaceMethodInfo , - imageSetFromSurface , - - --- ** imageSetPixelSize - ImageSetPixelSizeMethodInfo , - imageSetPixelSize , - - - - - -- * Properties --- ** File - ImageFilePropertyInfo , - clearImageFile , - constructImageFile , - getImageFile , - imageFile , - setImageFile , - - --- ** Gicon - ImageGiconPropertyInfo , - clearImageGicon , - constructImageGicon , - getImageGicon , - imageGicon , - setImageGicon , - - --- ** IconName - ImageIconNamePropertyInfo , - clearImageIconName , - constructImageIconName , - getImageIconName , - imageIconName , - setImageIconName , - - --- ** IconSet - ImageIconSetPropertyInfo , - clearImageIconSet , - constructImageIconSet , - getImageIconSet , - imageIconSet , - setImageIconSet , - - --- ** IconSize - ImageIconSizePropertyInfo , - constructImageIconSize , - getImageIconSize , - imageIconSize , - setImageIconSize , - - --- ** Pixbuf - ImagePixbufPropertyInfo , - clearImagePixbuf , - constructImagePixbuf , - getImagePixbuf , - imagePixbuf , - setImagePixbuf , - - --- ** PixbufAnimation - ImagePixbufAnimationPropertyInfo , - clearImagePixbufAnimation , - constructImagePixbufAnimation , - getImagePixbufAnimation , - imagePixbufAnimation , - setImagePixbufAnimation , - - --- ** PixelSize - ImagePixelSizePropertyInfo , - constructImagePixelSize , - getImagePixelSize , - imagePixelSize , - setImagePixelSize , - - --- ** Resource - ImageResourcePropertyInfo , - clearImageResource , - constructImageResource , - getImageResource , - imageResource , - setImageResource , - - --- ** Stock - ImageStockPropertyInfo , - clearImageStock , - constructImageStock , - getImageStock , - imageStock , - setImageStock , - - --- ** StorageType - ImageStorageTypePropertyInfo , - getImageStorageType , - imageStorageType , - - --- ** Surface - ImageSurfacePropertyInfo , - clearImageSurface , - constructImageSurface , - getImageSurface , - imageSurface , - setImageSurface , - - --- ** UseFallback - ImageUseFallbackPropertyInfo , - constructImageUseFallback , - getImageUseFallback , - imageUseFallback , - setImageUseFallback , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -newtype Image = Image (ForeignPtr Image) -foreign import ccall "gtk_image_get_type" - c_gtk_image_get_type :: IO GType - -type instance ParentTypes Image = ImageParentTypes -type ImageParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Image where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_image_get_type - - -class GObject o => ImageK o -instance (GObject o, IsDescendantOf Image o) => ImageK o - -toImage :: ImageK o => o -> IO Image -toImage = unsafeCastTo Image - -noImage :: Maybe Image -noImage = Nothing - -type family ResolveImageMethod (t :: Symbol) (o :: *) :: * where - ResolveImageMethod "activate" o = WidgetActivateMethodInfo - ResolveImageMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveImageMethod "addChild" o = BuildableAddChildMethodInfo - ResolveImageMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveImageMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveImageMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveImageMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveImageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveImageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveImageMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveImageMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveImageMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveImageMethod "classPath" o = WidgetClassPathMethodInfo - ResolveImageMethod "clear" o = ImageClearMethodInfo - ResolveImageMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveImageMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveImageMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveImageMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveImageMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveImageMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveImageMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveImageMethod "destroy" o = WidgetDestroyMethodInfo - ResolveImageMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveImageMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveImageMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveImageMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveImageMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveImageMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveImageMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveImageMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveImageMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveImageMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveImageMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveImageMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveImageMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveImageMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveImageMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveImageMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveImageMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveImageMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveImageMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveImageMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveImageMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveImageMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveImageMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveImageMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveImageMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveImageMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveImageMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveImageMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveImageMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveImageMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveImageMethod "draw" o = WidgetDrawMethodInfo - ResolveImageMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveImageMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveImageMethod "event" o = WidgetEventMethodInfo - ResolveImageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveImageMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveImageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveImageMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveImageMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveImageMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveImageMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveImageMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveImageMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveImageMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveImageMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveImageMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveImageMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveImageMethod "hide" o = WidgetHideMethodInfo - ResolveImageMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveImageMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveImageMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveImageMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveImageMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveImageMethod "intersect" o = WidgetIntersectMethodInfo - ResolveImageMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveImageMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveImageMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveImageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveImageMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveImageMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveImageMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveImageMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveImageMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveImageMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveImageMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveImageMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveImageMethod "map" o = WidgetMapMethodInfo - ResolveImageMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveImageMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveImageMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveImageMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveImageMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveImageMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveImageMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveImageMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveImageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveImageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveImageMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveImageMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveImageMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveImageMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveImageMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveImageMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveImageMethod "path" o = WidgetPathMethodInfo - ResolveImageMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveImageMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveImageMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveImageMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveImageMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveImageMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveImageMethod "realize" o = WidgetRealizeMethodInfo - ResolveImageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveImageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveImageMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveImageMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveImageMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveImageMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveImageMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveImageMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveImageMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveImageMethod "reparent" o = WidgetReparentMethodInfo - ResolveImageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveImageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveImageMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveImageMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveImageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveImageMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveImageMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveImageMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveImageMethod "show" o = WidgetShowMethodInfo - ResolveImageMethod "showAll" o = WidgetShowAllMethodInfo - ResolveImageMethod "showNow" o = WidgetShowNowMethodInfo - ResolveImageMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveImageMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveImageMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveImageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveImageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveImageMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveImageMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveImageMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveImageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveImageMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveImageMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveImageMethod "unmap" o = WidgetUnmapMethodInfo - ResolveImageMethod "unparent" o = WidgetUnparentMethodInfo - ResolveImageMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveImageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveImageMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveImageMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveImageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveImageMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveImageMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveImageMethod "getAlignment" o = MiscGetAlignmentMethodInfo - ResolveImageMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveImageMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveImageMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveImageMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveImageMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveImageMethod "getAnimation" o = ImageGetAnimationMethodInfo - ResolveImageMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveImageMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveImageMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveImageMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveImageMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveImageMethod "getClip" o = WidgetGetClipMethodInfo - ResolveImageMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveImageMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveImageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveImageMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveImageMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveImageMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveImageMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveImageMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveImageMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveImageMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveImageMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveImageMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveImageMethod "getGicon" o = ImageGetGiconMethodInfo - ResolveImageMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveImageMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveImageMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveImageMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveImageMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveImageMethod "getIconName" o = ImageGetIconNameMethodInfo - ResolveImageMethod "getIconSet" o = ImageGetIconSetMethodInfo - ResolveImageMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveImageMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveImageMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveImageMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveImageMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveImageMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveImageMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveImageMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveImageMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveImageMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveImageMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveImageMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveImageMethod "getPadding" o = MiscGetPaddingMethodInfo - ResolveImageMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveImageMethod "getParent" o = WidgetGetParentMethodInfo - ResolveImageMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveImageMethod "getPath" o = WidgetGetPathMethodInfo - ResolveImageMethod "getPixbuf" o = ImageGetPixbufMethodInfo - ResolveImageMethod "getPixelSize" o = ImageGetPixelSizeMethodInfo - ResolveImageMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveImageMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveImageMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveImageMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveImageMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveImageMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveImageMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveImageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveImageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveImageMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveImageMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveImageMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveImageMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveImageMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveImageMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveImageMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveImageMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveImageMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveImageMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveImageMethod "getState" o = WidgetGetStateMethodInfo - ResolveImageMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveImageMethod "getStock" o = ImageGetStockMethodInfo - ResolveImageMethod "getStorageType" o = ImageGetStorageTypeMethodInfo - ResolveImageMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveImageMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveImageMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveImageMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveImageMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveImageMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveImageMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveImageMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveImageMethod "getValign" o = WidgetGetValignMethodInfo - ResolveImageMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveImageMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveImageMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveImageMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveImageMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveImageMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveImageMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveImageMethod "setAlignment" o = MiscSetAlignmentMethodInfo - ResolveImageMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveImageMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveImageMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveImageMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveImageMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveImageMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveImageMethod "setClip" o = WidgetSetClipMethodInfo - ResolveImageMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveImageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveImageMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveImageMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveImageMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveImageMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveImageMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveImageMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveImageMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveImageMethod "setFromAnimation" o = ImageSetFromAnimationMethodInfo - ResolveImageMethod "setFromFile" o = ImageSetFromFileMethodInfo - ResolveImageMethod "setFromGicon" o = ImageSetFromGiconMethodInfo - ResolveImageMethod "setFromIconName" o = ImageSetFromIconNameMethodInfo - ResolveImageMethod "setFromIconSet" o = ImageSetFromIconSetMethodInfo - ResolveImageMethod "setFromPixbuf" o = ImageSetFromPixbufMethodInfo - ResolveImageMethod "setFromResource" o = ImageSetFromResourceMethodInfo - ResolveImageMethod "setFromStock" o = ImageSetFromStockMethodInfo - ResolveImageMethod "setFromSurface" o = ImageSetFromSurfaceMethodInfo - ResolveImageMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveImageMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveImageMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveImageMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveImageMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveImageMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveImageMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveImageMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveImageMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveImageMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveImageMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveImageMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveImageMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveImageMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveImageMethod "setPadding" o = MiscSetPaddingMethodInfo - ResolveImageMethod "setParent" o = WidgetSetParentMethodInfo - ResolveImageMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveImageMethod "setPixelSize" o = ImageSetPixelSizeMethodInfo - ResolveImageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveImageMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveImageMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveImageMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveImageMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveImageMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveImageMethod "setState" o = WidgetSetStateMethodInfo - ResolveImageMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveImageMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveImageMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveImageMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveImageMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveImageMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveImageMethod "setValign" o = WidgetSetValignMethodInfo - ResolveImageMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveImageMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveImageMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveImageMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveImageMethod "setWindow" o = WidgetSetWindowMethodInfo - 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 - --- VVV Prop "file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageFile :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) -getImageFile obj = liftIO $ getObjectPropertyString obj "file" - -setImageFile :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val) - -constructImageFile :: T.Text -> IO ([Char], GValue) -constructImageFile val = constructObjectPropertyString "file" (Just val) - -clearImageFile :: (MonadIO m, ImageK o) => o -> m () -clearImageFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) - -data ImageFilePropertyInfo -instance AttrInfo ImageFilePropertyInfo where - type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK - type AttrGetType ImageFilePropertyInfo = (Maybe T.Text) - type AttrLabel ImageFilePropertyInfo = "file" - attrGet _ = getImageFile - attrSet _ = setImageFile - attrConstruct _ = constructImageFile - attrClear _ = clearImageFile - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageGicon :: (MonadIO m, ImageK o) => o -> m (Maybe Gio.Icon) -getImageGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon - -setImageGicon :: (MonadIO m, ImageK o, Gio.IconK a) => o -> a -> m () -setImageGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) - -constructImageGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructImageGicon val = constructObjectPropertyObject "gicon" (Just val) - -clearImageGicon :: (MonadIO m, ImageK o) => o -> m () -clearImageGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) - -data ImageGiconPropertyInfo -instance AttrInfo ImageGiconPropertyInfo where - type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK - type AttrGetType ImageGiconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel ImageGiconPropertyInfo = "gicon" - attrGet _ = getImageGicon - attrSet _ = setImageGicon - attrConstruct _ = constructImageGicon - attrClear _ = clearImageGicon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageIconName :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) -getImageIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setImageIconName :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructImageIconName :: T.Text -> IO ([Char], GValue) -constructImageIconName val = constructObjectPropertyString "icon-name" (Just val) - -clearImageIconName :: (MonadIO m, ImageK o) => o -> m () -clearImageIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) - -data ImageIconNamePropertyInfo -instance AttrInfo ImageIconNamePropertyInfo where - type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK - type AttrGetType ImageIconNamePropertyInfo = (Maybe T.Text) - type AttrLabel ImageIconNamePropertyInfo = "icon-name" - attrGet _ = getImageIconName - attrSet _ = setImageIconName - attrConstruct _ = constructImageIconName - attrClear _ = clearImageIconName - --- VVV Prop "icon-set" - -- Type: TInterface "Gtk" "IconSet" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageIconSet :: (MonadIO m, ImageK o) => o -> m (Maybe IconSet) -getImageIconSet obj = liftIO $ getObjectPropertyBoxed obj "icon-set" IconSet - -setImageIconSet :: (MonadIO m, ImageK o) => o -> IconSet -> m () -setImageIconSet obj val = liftIO $ setObjectPropertyBoxed obj "icon-set" (Just val) - -constructImageIconSet :: IconSet -> IO ([Char], GValue) -constructImageIconSet val = constructObjectPropertyBoxed "icon-set" (Just val) - -clearImageIconSet :: (MonadIO m, ImageK o) => o -> m () -clearImageIconSet obj = liftIO $ setObjectPropertyBoxed obj "icon-set" (Nothing :: Maybe IconSet) - -data ImageIconSetPropertyInfo -instance AttrInfo ImageIconSetPropertyInfo where - type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet - type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK - type AttrGetType ImageIconSetPropertyInfo = (Maybe IconSet) - type AttrLabel ImageIconSetPropertyInfo = "icon-set" - attrGet _ = getImageIconSet - attrSet _ = setImageIconSet - attrConstruct _ = constructImageIconSet - attrClear _ = clearImageIconSet - --- VVV Prop "icon-size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageIconSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImageIconSize obj = liftIO $ getObjectPropertyInt32 obj "icon-size" - -setImageIconSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImageIconSize obj val = liftIO $ setObjectPropertyInt32 obj "icon-size" val - -constructImageIconSize :: Int32 -> IO ([Char], GValue) -constructImageIconSize val = constructObjectPropertyInt32 "icon-size" val - -data ImageIconSizePropertyInfo -instance AttrInfo ImageIconSizePropertyInfo where - type AttrAllowedOps ImageIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageIconSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ImageIconSizePropertyInfo = ImageK - type AttrGetType ImageIconSizePropertyInfo = Int32 - type AttrLabel ImageIconSizePropertyInfo = "icon-size" - attrGet _ = getImageIconSize - attrSet _ = setImageIconSize - attrConstruct _ = constructImageIconSize - attrClear _ = undefined - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getImagePixbuf :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.Pixbuf -getImagePixbuf obj = liftIO $ checkUnexpectedNothing "getImagePixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf - -setImagePixbuf :: (MonadIO m, ImageK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) - -constructImagePixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructImagePixbuf val = constructObjectPropertyObject "pixbuf" (Just val) - -clearImagePixbuf :: (MonadIO m, ImageK o) => o -> m () -clearImagePixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data ImagePixbufPropertyInfo -instance AttrInfo ImagePixbufPropertyInfo where - type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK - type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel ImagePixbufPropertyInfo = "pixbuf" - attrGet _ = getImagePixbuf - attrSet _ = setImagePixbuf - attrConstruct _ = constructImagePixbuf - attrClear _ = clearImagePixbuf - --- VVV Prop "pixbuf-animation" - -- Type: TInterface "GdkPixbuf" "PixbufAnimation" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m (Maybe GdkPixbuf.PixbufAnimation) -getImagePixbufAnimation obj = liftIO $ getObjectPropertyObject obj "pixbuf-animation" GdkPixbuf.PixbufAnimation - -setImagePixbufAnimation :: (MonadIO m, ImageK o, GdkPixbuf.PixbufAnimationK a) => o -> a -> m () -setImagePixbufAnimation obj val = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Just val) - -constructImagePixbufAnimation :: (GdkPixbuf.PixbufAnimationK a) => a -> IO ([Char], GValue) -constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" (Just val) - -clearImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m () -clearImagePixbufAnimation obj = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Nothing :: Maybe GdkPixbuf.PixbufAnimation) - -data ImagePixbufAnimationPropertyInfo -instance AttrInfo ImagePixbufAnimationPropertyInfo where - type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK - type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK - type AttrGetType ImagePixbufAnimationPropertyInfo = (Maybe GdkPixbuf.PixbufAnimation) - type AttrLabel ImagePixbufAnimationPropertyInfo = "pixbuf-animation" - attrGet _ = getImagePixbufAnimation - attrSet _ = setImagePixbufAnimation - attrConstruct _ = constructImagePixbufAnimation - attrClear _ = clearImagePixbufAnimation - --- VVV Prop "pixel-size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getImagePixelSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImagePixelSize obj = liftIO $ getObjectPropertyInt32 obj "pixel-size" - -setImagePixelSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImagePixelSize obj val = liftIO $ setObjectPropertyInt32 obj "pixel-size" val - -constructImagePixelSize :: Int32 -> IO ([Char], GValue) -constructImagePixelSize val = constructObjectPropertyInt32 "pixel-size" val - -data ImagePixelSizePropertyInfo -instance AttrInfo ImagePixelSizePropertyInfo where - type AttrAllowedOps ImagePixelSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImagePixelSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ImagePixelSizePropertyInfo = ImageK - type AttrGetType ImagePixelSizePropertyInfo = Int32 - type AttrLabel ImagePixelSizePropertyInfo = "pixel-size" - attrGet _ = getImagePixelSize - attrSet _ = setImagePixelSize - attrConstruct _ = constructImagePixelSize - attrClear _ = undefined - --- VVV Prop "resource" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageResource :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) -getImageResource obj = liftIO $ getObjectPropertyString obj "resource" - -setImageResource :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" (Just val) - -constructImageResource :: T.Text -> IO ([Char], GValue) -constructImageResource val = constructObjectPropertyString "resource" (Just val) - -clearImageResource :: (MonadIO m, ImageK o) => o -> m () -clearImageResource obj = liftIO $ setObjectPropertyString obj "resource" (Nothing :: Maybe T.Text) - -data ImageResourcePropertyInfo -instance AttrInfo ImageResourcePropertyInfo where - type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK - type AttrGetType ImageResourcePropertyInfo = (Maybe T.Text) - type AttrLabel ImageResourcePropertyInfo = "resource" - attrGet _ = getImageResource - attrSet _ = setImageResource - attrConstruct _ = constructImageResource - attrClear _ = clearImageResource - --- VVV Prop "stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageStock :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) -getImageStock obj = liftIO $ getObjectPropertyString obj "stock" - -setImageStock :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val) - -constructImageStock :: T.Text -> IO ([Char], GValue) -constructImageStock val = constructObjectPropertyString "stock" (Just val) - -clearImageStock :: (MonadIO m, ImageK o) => o -> m () -clearImageStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) - -data ImageStockPropertyInfo -instance AttrInfo ImageStockPropertyInfo where - type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK - type AttrGetType ImageStockPropertyInfo = (Maybe T.Text) - type AttrLabel ImageStockPropertyInfo = "stock" - attrGet _ = getImageStock - attrSet _ = setImageStock - attrConstruct _ = constructImageStock - attrClear _ = clearImageStock - --- VVV Prop "storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getImageStorageType :: (MonadIO m, ImageK o) => o -> m ImageType -getImageStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type" - -data ImageStorageTypePropertyInfo -instance AttrInfo ImageStorageTypePropertyInfo where - type AttrAllowedOps ImageStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ImageStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint ImageStorageTypePropertyInfo = ImageK - type AttrGetType ImageStorageTypePropertyInfo = ImageType - type AttrLabel ImageStorageTypePropertyInfo = "storage-type" - attrGet _ = getImageStorageType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "surface" - -- Type: TInterface "cairo" "Surface" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageSurface :: (MonadIO m, ImageK o) => o -> m (Maybe Cairo.Surface) -getImageSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface - -setImageSurface :: (MonadIO m, ImageK o) => o -> Cairo.Surface -> m () -setImageSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) - -constructImageSurface :: Cairo.Surface -> IO ([Char], GValue) -constructImageSurface val = constructObjectPropertyBoxed "surface" (Just val) - -clearImageSurface :: (MonadIO m, ImageK o) => o -> m () -clearImageSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface) - -data ImageSurfacePropertyInfo -instance AttrInfo ImageSurfacePropertyInfo where - type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface - type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK - type AttrGetType ImageSurfacePropertyInfo = (Maybe Cairo.Surface) - type AttrLabel ImageSurfacePropertyInfo = "surface" - attrGet _ = getImageSurface - attrSet _ = setImageSurface - attrConstruct _ = constructImageSurface - attrClear _ = clearImageSurface - --- VVV Prop "use-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getImageUseFallback :: (MonadIO m, ImageK o) => o -> m Bool -getImageUseFallback obj = liftIO $ getObjectPropertyBool obj "use-fallback" - -setImageUseFallback :: (MonadIO m, ImageK o) => o -> Bool -> m () -setImageUseFallback obj val = liftIO $ setObjectPropertyBool obj "use-fallback" val - -constructImageUseFallback :: Bool -> IO ([Char], GValue) -constructImageUseFallback val = constructObjectPropertyBool "use-fallback" val - -data ImageUseFallbackPropertyInfo -instance AttrInfo ImageUseFallbackPropertyInfo where - type AttrAllowedOps ImageUseFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageUseFallbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ImageUseFallbackPropertyInfo = ImageK - type AttrGetType ImageUseFallbackPropertyInfo = Bool - type AttrLabel ImageUseFallbackPropertyInfo = "use-fallback" - attrGet _ = getImageUseFallback - attrSet _ = setImageUseFallback - attrConstruct _ = constructImageUseFallback - attrClear _ = undefined - -type instance AttributeList Image = ImageAttributeList -type ImageAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ImageIconNamePropertyInfo), '("iconSet", ImageIconSetPropertyInfo), '("iconSize", ImageIconSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbufAnimation", ImagePixbufAnimationPropertyInfo), '("pixelSize", ImagePixelSizePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storageType", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useFallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -imageFile :: AttrLabelProxy "file" -imageFile = AttrLabelProxy - -imageGicon :: AttrLabelProxy "gicon" -imageGicon = AttrLabelProxy - -imageIconName :: AttrLabelProxy "iconName" -imageIconName = AttrLabelProxy - -imageIconSet :: AttrLabelProxy "iconSet" -imageIconSet = AttrLabelProxy - -imageIconSize :: AttrLabelProxy "iconSize" -imageIconSize = AttrLabelProxy - -imagePixbuf :: AttrLabelProxy "pixbuf" -imagePixbuf = AttrLabelProxy - -imagePixbufAnimation :: AttrLabelProxy "pixbufAnimation" -imagePixbufAnimation = AttrLabelProxy - -imagePixelSize :: AttrLabelProxy "pixelSize" -imagePixelSize = AttrLabelProxy - -imageResource :: AttrLabelProxy "resource" -imageResource = AttrLabelProxy - -imageStock :: AttrLabelProxy "stock" -imageStock = AttrLabelProxy - -imageStorageType :: AttrLabelProxy "storageType" -imageStorageType = AttrLabelProxy - -imageSurface :: AttrLabelProxy "surface" -imageSurface = AttrLabelProxy - -imageUseFallback :: AttrLabelProxy "useFallback" -imageUseFallback = AttrLabelProxy - -type instance SignalList Image = ImageSignalList -type ImageSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Image::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new" gtk_image_new :: - IO (Ptr Image) - - -imageNew :: - (MonadIO m) => - m Image -- result -imageNew = liftIO $ do - result <- gtk_image_new - checkUnexpectedReturnNULL "gtk_image_new" result - result' <- (newObject Image) result - return result' - --- method Image::new_from_animation --- method type : Constructor --- Args : [Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_animation" gtk_image_new_from_animation :: - Ptr GdkPixbuf.PixbufAnimation -> -- animation : TInterface "GdkPixbuf" "PixbufAnimation" - IO (Ptr Image) - - -imageNewFromAnimation :: - (MonadIO m, GdkPixbuf.PixbufAnimationK a) => - a -- animation - -> m Image -- result -imageNewFromAnimation animation = liftIO $ do - let animation' = unsafeManagedPtrCastPtr animation - result <- gtk_image_new_from_animation animation' - checkUnexpectedReturnNULL "gtk_image_new_from_animation" result - result' <- (newObject Image) result - touchManagedPtr animation - return result' - --- method Image::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_file" gtk_image_new_from_file :: - CString -> -- filename : TBasicType TFileName - IO (Ptr Image) - - -imageNewFromFile :: - (MonadIO m) => - [Char] -- filename - -> m Image -- result -imageNewFromFile filename = liftIO $ do - filename' <- stringToCString filename - result <- gtk_image_new_from_file filename' - checkUnexpectedReturnNULL "gtk_image_new_from_file" result - result' <- (newObject Image) result - freeMem filename' - return result' - --- method Image::new_from_gicon --- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_gicon" gtk_image_new_from_gicon :: - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt - IO (Ptr Image) - - -imageNewFromGicon :: - (MonadIO m, Gio.IconK a) => - a -- icon - -> Int32 -- size - -> m Image -- result -imageNewFromGicon icon size = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - result <- gtk_image_new_from_gicon icon' size - checkUnexpectedReturnNULL "gtk_image_new_from_gicon" result - result' <- (newObject Image) result - touchManagedPtr icon - return result' - --- method Image::new_from_icon_name --- method type : Constructor --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_icon_name" gtk_image_new_from_icon_name :: - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO (Ptr Image) - - -imageNewFromIconName :: - (MonadIO m) => - T.Text -- iconName - -> Int32 -- size - -> m Image -- result -imageNewFromIconName iconName size = liftIO $ do - iconName' <- textToCString iconName - result <- gtk_image_new_from_icon_name iconName' size - checkUnexpectedReturnNULL "gtk_image_new_from_icon_name" result - result' <- (newObject Image) result - freeMem iconName' - return result' - --- method Image::new_from_icon_set --- method type : Constructor --- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_icon_set" gtk_image_new_from_icon_set :: - Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet" - Int32 -> -- size : TBasicType TInt - IO (Ptr Image) - -{-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} -imageNewFromIconSet :: - (MonadIO m) => - IconSet -- iconSet - -> Int32 -- size - -> m Image -- result -imageNewFromIconSet iconSet size = liftIO $ do - let iconSet' = unsafeManagedPtrGetPtr iconSet - result <- gtk_image_new_from_icon_set iconSet' size - checkUnexpectedReturnNULL "gtk_image_new_from_icon_set" result - result' <- (newObject Image) result - touchManagedPtr iconSet - return result' - --- method Image::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_pixbuf" gtk_image_new_from_pixbuf :: - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr Image) - - -imageNewFromPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - Maybe (a) -- pixbuf - -> m Image -- result -imageNewFromPixbuf pixbuf = liftIO $ do - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - result <- gtk_image_new_from_pixbuf maybePixbuf - checkUnexpectedReturnNULL "gtk_image_new_from_pixbuf" result - result' <- (newObject Image) result - whenJust pixbuf touchManagedPtr - return result' - --- method Image::new_from_resource --- method type : Constructor --- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_resource" gtk_image_new_from_resource :: - CString -> -- resource_path : TBasicType TUTF8 - IO (Ptr Image) - - -imageNewFromResource :: - (MonadIO m) => - T.Text -- resourcePath - -> m Image -- result -imageNewFromResource resourcePath = liftIO $ do - resourcePath' <- textToCString resourcePath - result <- gtk_image_new_from_resource resourcePath' - checkUnexpectedReturnNULL "gtk_image_new_from_resource" result - result' <- (newObject Image) result - freeMem resourcePath' - return result' - --- method Image::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_stock" gtk_image_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO (Ptr Image) - -{-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} -imageNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> Int32 -- size - -> m Image -- result -imageNewFromStock stockId size = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_image_new_from_stock stockId' size - checkUnexpectedReturnNULL "gtk_image_new_from_stock" result - result' <- (newObject Image) result - freeMem stockId' - return result' - --- method Image::new_from_surface --- method type : Constructor --- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Image") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_new_from_surface" gtk_image_new_from_surface :: - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - IO (Ptr Image) - - -imageNewFromSurface :: - (MonadIO m) => - Maybe (Cairo.Surface) -- surface - -> m Image -- result -imageNewFromSurface surface = liftIO $ do - maybeSurface <- case surface of - Nothing -> return nullPtr - Just jSurface -> do - let jSurface' = unsafeManagedPtrGetPtr jSurface - return jSurface' - result <- gtk_image_new_from_surface maybeSurface - checkUnexpectedReturnNULL "gtk_image_new_from_surface" result - result' <- (newObject Image) result - whenJust surface touchManagedPtr - return result' - --- method Image::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", 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 "gtk_image_clear" gtk_image_clear :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - IO () - - -imageClear :: - (MonadIO m, ImageK a) => - a -- _obj - -> m () -- result -imageClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_image_clear _obj' - touchManagedPtr _obj - return () - -data ImageClearMethodInfo -instance (signature ~ (m ()), MonadIO m, ImageK a) => MethodInfo ImageClearMethodInfo a signature where - overloadedMethod _ = imageClear - --- method Image::get_animation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_get_animation" gtk_image_get_animation :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - IO (Ptr GdkPixbuf.PixbufAnimation) - - -imageGetAnimation :: - (MonadIO m, ImageK a) => - a -- _obj - -> m GdkPixbuf.PixbufAnimation -- result -imageGetAnimation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_animation _obj' - checkUnexpectedReturnNULL "gtk_image_get_animation" result - result' <- (newObject GdkPixbuf.PixbufAnimation) result - touchManagedPtr _obj - return result' - -data ImageGetAnimationMethodInfo -instance (signature ~ (m GdkPixbuf.PixbufAnimation), MonadIO m, ImageK a) => MethodInfo ImageGetAnimationMethodInfo a signature where - overloadedMethod _ = imageGetAnimation - --- method Image::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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 "gtk_image_get_gicon" gtk_image_get_gicon :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr (Ptr Gio.Icon) -> -- gicon : TInterface "Gio" "Icon" - Ptr Int32 -> -- size : TBasicType TInt - IO () - - -imageGetGicon :: - (MonadIO m, ImageK a) => - a -- _obj - -> m (Gio.Icon,Int32) -- result -imageGetGicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gicon <- allocMem :: IO (Ptr (Ptr Gio.Icon)) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_gicon _obj' gicon size - gicon' <- peek gicon - gicon'' <- (newObject Gio.Icon) gicon' - size' <- peek size - touchManagedPtr _obj - freeMem gicon - freeMem size - return (gicon'', size') - -data ImageGetGiconMethodInfo -instance (signature ~ (m (Gio.Icon,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetGiconMethodInfo a signature where - overloadedMethod _ = imageGetGicon - --- method Image::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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 "gtk_image_get_icon_name" gtk_image_get_icon_name :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr CString -> -- icon_name : TBasicType TUTF8 - Ptr Int32 -> -- size : TBasicType TInt - IO () - - -imageGetIconName :: - (MonadIO m, ImageK a) => - a -- _obj - -> m (T.Text,Int32) -- result -imageGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName <- allocMem :: IO (Ptr CString) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_name _obj' iconName size - iconName' <- peek iconName - iconName'' <- cstringToText iconName' - size' <- peek size - touchManagedPtr _obj - freeMem iconName - freeMem size - return (iconName'', size') - -data ImageGetIconNameMethodInfo -instance (signature ~ (m (T.Text,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetIconNameMethodInfo a signature where - overloadedMethod _ = imageGetIconName - --- method Image::get_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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 "gtk_image_get_icon_set" gtk_image_get_icon_set :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr (Ptr IconSet) -> -- icon_set : TInterface "Gtk" "IconSet" - Ptr Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} -imageGetIconSet :: - (MonadIO m, ImageK a) => - a -- _obj - -> m (IconSet,Int32) -- result -imageGetIconSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconSet <- allocMem :: IO (Ptr (Ptr IconSet)) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_set _obj' iconSet size - iconSet' <- peek iconSet - iconSet'' <- (newBoxed IconSet) iconSet' - size' <- peek size - touchManagedPtr _obj - freeMem iconSet - freeMem size - return (iconSet'', size') - -data ImageGetIconSetMethodInfo -instance (signature ~ (m (IconSet,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetIconSetMethodInfo a signature where - overloadedMethod _ = imageGetIconSet - --- method Image::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_get_pixbuf" gtk_image_get_pixbuf :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - IO (Ptr GdkPixbuf.Pixbuf) - - -imageGetPixbuf :: - (MonadIO m, ImageK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -imageGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_image_get_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data ImageGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, ImageK a) => MethodInfo ImageGetPixbufMethodInfo a signature where - overloadedMethod _ = imageGetPixbuf - --- method Image::get_pixel_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", 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 "gtk_image_get_pixel_size" gtk_image_get_pixel_size :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - IO Int32 - - -imageGetPixelSize :: - (MonadIO m, ImageK a) => - a -- _obj - -> m Int32 -- result -imageGetPixelSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_pixel_size _obj' - touchManagedPtr _obj - return result - -data ImageGetPixelSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, ImageK a) => MethodInfo ImageGetPixelSizeMethodInfo a signature where - overloadedMethod _ = imageGetPixelSize - --- method Image::get_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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 "gtk_image_get_stock" gtk_image_get_stock :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr CString -> -- stock_id : TBasicType TUTF8 - Ptr Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED imageGetStock ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} -imageGetStock :: - (MonadIO m, ImageK a) => - a -- _obj - -> m (T.Text,Int32) -- result -imageGetStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId <- allocMem :: IO (Ptr CString) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_stock _obj' stockId size - stockId' <- peek stockId - stockId'' <- cstringToText stockId' - size' <- peek size - touchManagedPtr _obj - freeMem stockId - freeMem size - return (stockId'', size') - -data ImageGetStockMethodInfo -instance (signature ~ (m (T.Text,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetStockMethodInfo a signature where - overloadedMethod _ = imageGetStock - --- method Image::get_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_get_storage_type" gtk_image_get_storage_type :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - IO CUInt - - -imageGetStorageType :: - (MonadIO m, ImageK a) => - a -- _obj - -> m ImageType -- result -imageGetStorageType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_storage_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ImageGetStorageTypeMethodInfo -instance (signature ~ (m ImageType), MonadIO m, ImageK a) => MethodInfo ImageGetStorageTypeMethodInfo a signature where - overloadedMethod _ = imageGetStorageType - --- method Image::set_from_animation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", 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 "gtk_image_set_from_animation" gtk_image_set_from_animation :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr GdkPixbuf.PixbufAnimation -> -- animation : TInterface "GdkPixbuf" "PixbufAnimation" - IO () - - -imageSetFromAnimation :: - (MonadIO m, ImageK a, GdkPixbuf.PixbufAnimationK b) => - a -- _obj - -> b -- animation - -> m () -- result -imageSetFromAnimation _obj animation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let animation' = unsafeManagedPtrCastPtr animation - gtk_image_set_from_animation _obj' animation' - touchManagedPtr _obj - touchManagedPtr animation - return () - -data ImageSetFromAnimationMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ImageK a, GdkPixbuf.PixbufAnimationK b) => MethodInfo ImageSetFromAnimationMethodInfo a signature where - overloadedMethod _ = imageSetFromAnimation - --- method Image::set_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_set_from_file" gtk_image_set_from_file :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - CString -> -- filename : TBasicType TFileName - IO () - - -imageSetFromFile :: - (MonadIO m, ImageK a) => - a -- _obj - -> Maybe ([Char]) -- filename - -> m () -- result -imageSetFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilename <- case filename of - Nothing -> return nullPtr - Just jFilename -> do - jFilename' <- stringToCString jFilename - return jFilename' - gtk_image_set_from_file _obj' maybeFilename - touchManagedPtr _obj - freeMem maybeFilename - return () - -data ImageSetFromFileMethodInfo -instance (signature ~ (Maybe ([Char]) -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromFileMethodInfo a signature where - overloadedMethod _ = imageSetFromFile - --- method Image::set_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_image_set_from_gicon" gtk_image_set_from_gicon :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt - IO () - - -imageSetFromGicon :: - (MonadIO m, ImageK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> Int32 -- size - -> m () -- result -imageSetFromGicon _obj icon size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_image_set_from_gicon _obj' icon' size - touchManagedPtr _obj - touchManagedPtr icon - return () - -data ImageSetFromGiconMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ImageK a, Gio.IconK b) => MethodInfo ImageSetFromGiconMethodInfo a signature where - overloadedMethod _ = imageSetFromGicon - --- method Image::set_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_image_set_from_icon_name" gtk_image_set_from_icon_name :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO () - - -imageSetFromIconName :: - (MonadIO m, ImageK a) => - a -- _obj - -> T.Text -- iconName - -> Int32 -- size - -> m () -- result -imageSetFromIconName _obj iconName size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - gtk_image_set_from_icon_name _obj' iconName' size - touchManagedPtr _obj - freeMem iconName' - return () - -data ImageSetFromIconNameMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromIconNameMethodInfo a signature where - overloadedMethod _ = imageSetFromIconName - --- method Image::set_from_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_image_set_from_icon_set" gtk_image_set_from_icon_set :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet" - Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} -imageSetFromIconSet :: - (MonadIO m, ImageK a) => - a -- _obj - -> IconSet -- iconSet - -> Int32 -- size - -> m () -- result -imageSetFromIconSet _obj iconSet size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconSet' = unsafeManagedPtrGetPtr iconSet - gtk_image_set_from_icon_set _obj' iconSet' size - touchManagedPtr _obj - touchManagedPtr iconSet - return () - -data ImageSetFromIconSetMethodInfo -instance (signature ~ (IconSet -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromIconSetMethodInfo a signature where - overloadedMethod _ = imageSetFromIconSet - --- method Image::set_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_set_from_pixbuf" gtk_image_set_from_pixbuf :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -imageSetFromPixbuf :: - (MonadIO m, ImageK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> Maybe (b) -- pixbuf - -> m () -- result -imageSetFromPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_image_set_from_pixbuf _obj' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - -data ImageSetFromPixbufMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ImageK a, GdkPixbuf.PixbufK b) => MethodInfo ImageSetFromPixbufMethodInfo a signature where - overloadedMethod _ = imageSetFromPixbuf - --- method Image::set_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_set_from_resource" gtk_image_set_from_resource :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - CString -> -- resource_path : TBasicType TUTF8 - IO () - - -imageSetFromResource :: - (MonadIO m, ImageK a) => - a -- _obj - -> Maybe (T.Text) -- resourcePath - -> m () -- result -imageSetFromResource _obj resourcePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeResourcePath <- case resourcePath of - Nothing -> return nullPtr - Just jResourcePath -> do - jResourcePath' <- textToCString jResourcePath - return jResourcePath' - gtk_image_set_from_resource _obj' maybeResourcePath - touchManagedPtr _obj - freeMem maybeResourcePath - return () - -data ImageSetFromResourceMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromResourceMethodInfo a signature where - overloadedMethod _ = imageSetFromResource - --- method Image::set_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_image_set_from_stock" gtk_image_set_from_stock :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} -imageSetFromStock :: - (MonadIO m, ImageK a) => - a -- _obj - -> T.Text -- stockId - -> Int32 -- size - -> m () -- result -imageSetFromStock _obj stockId size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - gtk_image_set_from_stock _obj' stockId' size - touchManagedPtr _obj - freeMem stockId' - return () - -data ImageSetFromStockMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromStockMethodInfo a signature where - overloadedMethod _ = imageSetFromStock - --- method Image::set_from_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", 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 "gtk_image_set_from_surface" gtk_image_set_from_surface :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - IO () - - -imageSetFromSurface :: - (MonadIO m, ImageK a) => - a -- _obj - -> Cairo.Surface -- surface - -> m () -- result -imageSetFromSurface _obj surface = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let surface' = unsafeManagedPtrGetPtr surface - gtk_image_set_from_surface _obj' surface' - touchManagedPtr _obj - touchManagedPtr surface - return () - -data ImageSetFromSurfaceMethodInfo -instance (signature ~ (Cairo.Surface -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromSurfaceMethodInfo a signature where - overloadedMethod _ = imageSetFromSurface - --- method Image::set_pixel_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", 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 "gtk_image_set_pixel_size" gtk_image_set_pixel_size :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Int32 -> -- pixel_size : TBasicType TInt - IO () - - -imageSetPixelSize :: - (MonadIO m, ImageK a) => - a -- _obj - -> Int32 -- pixelSize - -> m () -- result -imageSetPixelSize _obj pixelSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_image_set_pixel_size _obj' pixelSize - touchManagedPtr _obj - return () - -data ImageSetPixelSizeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetPixelSizeMethodInfo a signature where - overloadedMethod _ = imageSetPixelSize - - diff --git a/GI/Gtk/Objects/Image.hs-boot b/GI/Gtk/Objects/Image.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Image.hs-boot +++ /dev/null @@ -1,45 +0,0 @@ -module GI.Gtk.Objects.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) -instance GObject Image where -class GObject o => ImageK o -instance (GObject o, IsDescendantOf Image o) => ImageK o -data ImageFilePropertyInfo -data ImageGiconPropertyInfo -data ImageIconNamePropertyInfo -data ImageIconSetPropertyInfo -data ImageIconSizePropertyInfo -data ImagePixbufPropertyInfo -data ImagePixbufAnimationPropertyInfo -data ImagePixelSizePropertyInfo -data ImageResourcePropertyInfo -data ImageStockPropertyInfo -data ImageStorageTypePropertyInfo -data ImageSurfacePropertyInfo -data ImageUseFallbackPropertyInfo -data ImageClearMethodInfo -data ImageGetAnimationMethodInfo -data ImageGetGiconMethodInfo -data ImageGetIconNameMethodInfo -data ImageGetIconSetMethodInfo -data ImageGetPixbufMethodInfo -data ImageGetPixelSizeMethodInfo -data ImageGetStockMethodInfo -data ImageGetStorageTypeMethodInfo -data ImageSetFromAnimationMethodInfo -data ImageSetFromFileMethodInfo -data ImageSetFromGiconMethodInfo -data ImageSetFromIconNameMethodInfo -data ImageSetFromIconSetMethodInfo -data ImageSetFromPixbufMethodInfo -data ImageSetFromResourceMethodInfo -data ImageSetFromStockMethodInfo -data ImageSetFromSurfaceMethodInfo -data ImageSetPixelSizeMethodInfo diff --git a/GI/Gtk/Objects/ImageAccessible.hs b/GI/Gtk/Objects/ImageAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ImageAccessible.hs +++ /dev/null @@ -1,133 +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.Gtk.Objects.ImageAccessible - ( - --- * Exported types - ImageAccessible(..) , - ImageAccessibleK , - toImageAccessible , - noImageAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ImageAccessible = ImageAccessible (ForeignPtr ImageAccessible) -foreign import ccall "gtk_image_accessible_get_type" - c_gtk_image_accessible_get_type :: IO GType - -type instance ParentTypes ImageAccessible = ImageAccessibleParentTypes -type ImageAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image] - -instance GObject ImageAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_image_accessible_get_type - - -class GObject o => ImageAccessibleK o -instance (GObject o, IsDescendantOf ImageAccessible o) => ImageAccessibleK o - -toImageAccessible :: ImageAccessibleK o => o -> IO ImageAccessible -toImageAccessible = unsafeCastTo ImageAccessible - -noImageAccessible :: Maybe ImageAccessible -noImageAccessible = Nothing - -type family ResolveImageAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveImageAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveImageAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveImageAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveImageAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveImageAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveImageAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveImageAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveImageAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveImageAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveImageAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveImageAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveImageAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveImageAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveImageAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveImageAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveImageAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveImageAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveImageAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveImageAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveImageAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveImageAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveImageAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveImageAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveImageAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveImageAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveImageAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveImageAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveImageAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveImageAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveImageAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveImageAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveImageAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveImageAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveImageAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveImageAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveImageAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveImageAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveImageAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveImageAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveImageAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveImageAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveImageAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveImageAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveImageAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveImageAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveImageAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveImageAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveImageAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveImageAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveImageAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveImageAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveImageAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveImageAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveImageAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveImageAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveImageAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveImageAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveImageAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveImageAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveImageAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveImageAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveImageAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveImageAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveImageAccessibleMethod t ImageAccessible, MethodInfo info ImageAccessible p) => IsLabelProxy t (ImageAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveImageAccessibleMethod t ImageAccessible, MethodInfo info ImageAccessible p) => IsLabel t (ImageAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ImageAccessible = ImageAccessibleAttributeList -type ImageAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ImageAccessible = ImageAccessibleSignalList -type ImageAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ImageAccessible.hs-boot b/GI/Gtk/Objects/ImageAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ImageAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ImageAccessible 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 ImageAccessible = ImageAccessible (ForeignPtr ImageAccessible) -instance GObject ImageAccessible where -class GObject o => ImageAccessibleK o -instance (GObject o, IsDescendantOf ImageAccessible o) => ImageAccessibleK o diff --git a/GI/Gtk/Objects/ImageCellAccessible.hs b/GI/Gtk/Objects/ImageCellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ImageCellAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.ImageCellAccessible - ( - --- * Exported types - ImageCellAccessible(..) , - ImageCellAccessibleK , - toImageCellAccessible , - noImageCellAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ImageCellAccessible = ImageCellAccessible (ForeignPtr ImageCellAccessible) -foreign import ccall "gtk_image_cell_accessible_get_type" - c_gtk_image_cell_accessible_get_type :: IO GType - -type instance ParentTypes ImageCellAccessible = ImageCellAccessibleParentTypes -type ImageCellAccessibleParentTypes = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject ImageCellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_image_cell_accessible_get_type - - -class GObject o => ImageCellAccessibleK o -instance (GObject o, IsDescendantOf ImageCellAccessible o) => ImageCellAccessibleK o - -toImageCellAccessible :: ImageCellAccessibleK o => o -> IO ImageCellAccessible -toImageCellAccessible = unsafeCastTo ImageCellAccessible - -noImageCellAccessible :: Maybe ImageCellAccessible -noImageCellAccessible = Nothing - -type family ResolveImageCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveImageCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveImageCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveImageCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveImageCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveImageCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveImageCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveImageCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveImageCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveImageCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveImageCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveImageCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveImageCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveImageCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveImageCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveImageCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveImageCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveImageCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveImageCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveImageCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveImageCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveImageCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveImageCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveImageCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveImageCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveImageCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveImageCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveImageCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveImageCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveImageCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveImageCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveImageCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveImageCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveImageCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveImageCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveImageCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveImageCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveImageCellAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveImageCellAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveImageCellAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveImageCellAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveImageCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveImageCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveImageCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveImageCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveImageCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveImageCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveImageCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveImageCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveImageCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveImageCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveImageCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveImageCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveImageCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveImageCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveImageCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveImageCellAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveImageCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveImageCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveImageCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveImageCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveImageCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveImageCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveImageCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveImageCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveImageCellAccessibleMethod t ImageCellAccessible, MethodInfo info ImageCellAccessible p) => IsLabelProxy t (ImageCellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveImageCellAccessibleMethod t ImageCellAccessible, MethodInfo info ImageCellAccessible p) => IsLabel t (ImageCellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ImageCellAccessible = ImageCellAccessibleAttributeList -type ImageCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ImageCellAccessible = ImageCellAccessibleSignalList -type ImageCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ImageCellAccessible.hs-boot b/GI/Gtk/Objects/ImageCellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ImageCellAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ImageCellAccessible 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 ImageCellAccessible = ImageCellAccessible (ForeignPtr ImageCellAccessible) -instance GObject ImageCellAccessible where -class GObject o => ImageCellAccessibleK o -instance (GObject o, IsDescendantOf ImageCellAccessible o) => ImageCellAccessibleK o diff --git a/GI/Gtk/Objects/ImageMenuItem.hs b/GI/Gtk/Objects/ImageMenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ImageMenuItem.hs +++ /dev/null @@ -1,934 +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.Gtk.Objects.ImageMenuItem - ( - --- * Exported types - ImageMenuItem(..) , - ImageMenuItemK , - toImageMenuItem , - noImageMenuItem , - - - -- * Methods --- ** imageMenuItemGetAlwaysShowImage - ImageMenuItemGetAlwaysShowImageMethodInfo, - imageMenuItemGetAlwaysShowImage , - - --- ** imageMenuItemGetImage - ImageMenuItemGetImageMethodInfo , - imageMenuItemGetImage , - - --- ** imageMenuItemGetUseStock - ImageMenuItemGetUseStockMethodInfo , - imageMenuItemGetUseStock , - - --- ** imageMenuItemNew - imageMenuItemNew , - - --- ** imageMenuItemNewFromStock - imageMenuItemNewFromStock , - - --- ** imageMenuItemNewWithLabel - imageMenuItemNewWithLabel , - - --- ** imageMenuItemNewWithMnemonic - imageMenuItemNewWithMnemonic , - - --- ** imageMenuItemSetAccelGroup - ImageMenuItemSetAccelGroupMethodInfo , - imageMenuItemSetAccelGroup , - - --- ** imageMenuItemSetAlwaysShowImage - ImageMenuItemSetAlwaysShowImageMethodInfo, - imageMenuItemSetAlwaysShowImage , - - --- ** imageMenuItemSetImage - ImageMenuItemSetImageMethodInfo , - imageMenuItemSetImage , - - --- ** imageMenuItemSetUseStock - ImageMenuItemSetUseStockMethodInfo , - imageMenuItemSetUseStock , - - - - - -- * Properties --- ** AccelGroup - ImageMenuItemAccelGroupPropertyInfo , - constructImageMenuItemAccelGroup , - imageMenuItemAccelGroup , - setImageMenuItemAccelGroup , - - --- ** AlwaysShowImage - ImageMenuItemAlwaysShowImagePropertyInfo, - constructImageMenuItemAlwaysShowImage , - getImageMenuItemAlwaysShowImage , - imageMenuItemAlwaysShowImage , - setImageMenuItemAlwaysShowImage , - - --- ** Image - ImageMenuItemImagePropertyInfo , - clearImageMenuItemImage , - constructImageMenuItemImage , - getImageMenuItemImage , - imageMenuItemImage , - setImageMenuItemImage , - - --- ** UseStock - ImageMenuItemUseStockPropertyInfo , - constructImageMenuItemUseStock , - getImageMenuItemUseStock , - imageMenuItemUseStock , - setImageMenuItemUseStock , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ImageMenuItem = ImageMenuItem (ForeignPtr ImageMenuItem) -foreign import ccall "gtk_image_menu_item_get_type" - c_gtk_image_menu_item_get_type :: IO GType - -type instance ParentTypes ImageMenuItem = ImageMenuItemParentTypes -type ImageMenuItemParentTypes = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject ImageMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_image_menu_item_get_type - - -class GObject o => ImageMenuItemK o -instance (GObject o, IsDescendantOf ImageMenuItem o) => ImageMenuItemK o - -toImageMenuItem :: ImageMenuItemK o => o -> IO ImageMenuItem -toImageMenuItem = unsafeCastTo ImageMenuItem - -noImageMenuItem :: Maybe ImageMenuItem -noImageMenuItem = Nothing - -type family ResolveImageMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveImageMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveImageMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveImageMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveImageMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveImageMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveImageMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveImageMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveImageMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveImageMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveImageMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveImageMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveImageMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveImageMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveImageMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveImageMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveImageMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveImageMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveImageMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveImageMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveImageMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveImageMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveImageMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveImageMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveImageMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveImageMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveImageMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveImageMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveImageMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveImageMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveImageMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveImageMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveImageMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveImageMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveImageMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveImageMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveImageMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveImageMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveImageMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveImageMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveImageMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveImageMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveImageMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveImageMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveImageMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveImageMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveImageMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveImageMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveImageMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveImageMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveImageMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveImageMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveImageMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveImageMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveImageMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveImageMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveImageMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveImageMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveImageMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveImageMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveImageMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveImageMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveImageMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveImageMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveImageMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveImageMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveImageMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveImageMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveImageMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveImageMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveImageMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveImageMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveImageMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveImageMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveImageMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveImageMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveImageMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveImageMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveImageMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveImageMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveImageMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveImageMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveImageMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveImageMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveImageMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveImageMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveImageMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveImageMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveImageMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveImageMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveImageMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveImageMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveImageMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveImageMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveImageMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveImageMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveImageMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveImageMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveImageMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveImageMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveImageMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveImageMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveImageMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveImageMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveImageMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveImageMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveImageMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveImageMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveImageMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveImageMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveImageMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveImageMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveImageMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveImageMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveImageMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveImageMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveImageMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveImageMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveImageMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveImageMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveImageMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveImageMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveImageMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveImageMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveImageMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveImageMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveImageMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveImageMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveImageMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveImageMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveImageMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveImageMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveImageMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveImageMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveImageMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveImageMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveImageMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveImageMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveImageMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveImageMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveImageMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveImageMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveImageMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveImageMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveImageMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveImageMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveImageMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveImageMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveImageMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveImageMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveImageMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveImageMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveImageMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveImageMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveImageMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveImageMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveImageMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveImageMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveImageMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveImageMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveImageMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveImageMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveImageMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveImageMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveImageMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveImageMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveImageMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveImageMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveImageMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveImageMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveImageMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveImageMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveImageMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveImageMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveImageMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveImageMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveImageMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveImageMenuItemMethod "getAlwaysShowImage" o = ImageMenuItemGetAlwaysShowImageMethodInfo - ResolveImageMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveImageMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveImageMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveImageMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveImageMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveImageMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveImageMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveImageMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveImageMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveImageMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveImageMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveImageMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveImageMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveImageMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveImageMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveImageMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveImageMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveImageMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveImageMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveImageMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveImageMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveImageMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveImageMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveImageMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveImageMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveImageMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveImageMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveImageMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveImageMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveImageMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveImageMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveImageMenuItemMethod "getImage" o = ImageMenuItemGetImageMethodInfo - ResolveImageMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveImageMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveImageMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveImageMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveImageMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveImageMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveImageMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveImageMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveImageMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveImageMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveImageMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveImageMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveImageMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveImageMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveImageMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveImageMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveImageMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveImageMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveImageMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveImageMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveImageMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveImageMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveImageMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveImageMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveImageMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveImageMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveImageMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveImageMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveImageMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveImageMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveImageMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveImageMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveImageMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveImageMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveImageMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveImageMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveImageMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveImageMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveImageMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveImageMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveImageMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveImageMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveImageMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveImageMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveImageMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveImageMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveImageMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveImageMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveImageMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveImageMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveImageMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveImageMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveImageMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveImageMenuItemMethod "getUseStock" o = ImageMenuItemGetUseStockMethodInfo - ResolveImageMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveImageMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveImageMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveImageMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveImageMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveImageMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveImageMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveImageMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveImageMenuItemMethod "setAccelGroup" o = ImageMenuItemSetAccelGroupMethodInfo - ResolveImageMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveImageMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveImageMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveImageMenuItemMethod "setAlwaysShowImage" o = ImageMenuItemSetAlwaysShowImageMethodInfo - ResolveImageMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveImageMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveImageMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveImageMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveImageMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveImageMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveImageMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveImageMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveImageMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveImageMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveImageMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveImageMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveImageMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveImageMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveImageMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveImageMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveImageMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveImageMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveImageMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveImageMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveImageMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveImageMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveImageMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveImageMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveImageMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveImageMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveImageMenuItemMethod "setImage" o = ImageMenuItemSetImageMethodInfo - ResolveImageMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveImageMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveImageMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveImageMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveImageMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveImageMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveImageMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveImageMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveImageMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveImageMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveImageMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveImageMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveImageMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveImageMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveImageMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveImageMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveImageMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveImageMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveImageMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveImageMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveImageMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveImageMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveImageMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveImageMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveImageMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveImageMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveImageMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveImageMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveImageMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveImageMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveImageMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveImageMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveImageMenuItemMethod "setUseStock" o = ImageMenuItemSetUseStockMethodInfo - ResolveImageMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveImageMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveImageMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveImageMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveImageMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveImageMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveImageMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveImageMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveImageMenuItemMethod t ImageMenuItem, MethodInfo info ImageMenuItem p) => IsLabelProxy t (ImageMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveImageMenuItemMethod t ImageMenuItem, MethodInfo info ImageMenuItem p) => IsLabel t (ImageMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "accel-group" - -- Type: TInterface "Gtk" "AccelGroup" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Just False) - -setImageMenuItemAccelGroup :: (MonadIO m, ImageMenuItemK o, AccelGroupK a) => o -> a -> m () -setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) - -constructImageMenuItemAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) - -data ImageMenuItemAccelGroupPropertyInfo -instance AttrInfo ImageMenuItemAccelGroupPropertyInfo where - type AttrAllowedOps ImageMenuItemAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint ImageMenuItemAccelGroupPropertyInfo = AccelGroupK - type AttrBaseTypeConstraint ImageMenuItemAccelGroupPropertyInfo = ImageMenuItemK - type AttrGetType ImageMenuItemAccelGroupPropertyInfo = () - type AttrLabel ImageMenuItemAccelGroupPropertyInfo = "accel-group" - attrGet _ = undefined - attrSet _ = setImageMenuItemAccelGroup - attrConstruct _ = constructImageMenuItemAccelGroup - attrClear _ = undefined - --- VVV Prop "always-show-image" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getImageMenuItemAlwaysShowImage :: (MonadIO m, ImageMenuItemK o) => o -> m Bool -getImageMenuItemAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" - -setImageMenuItemAlwaysShowImage :: (MonadIO m, ImageMenuItemK o) => o -> Bool -> m () -setImageMenuItemAlwaysShowImage obj val = liftIO $ setObjectPropertyBool obj "always-show-image" val - -constructImageMenuItemAlwaysShowImage :: Bool -> IO ([Char], GValue) -constructImageMenuItemAlwaysShowImage val = constructObjectPropertyBool "always-show-image" val - -data ImageMenuItemAlwaysShowImagePropertyInfo -instance AttrInfo ImageMenuItemAlwaysShowImagePropertyInfo where - type AttrAllowedOps ImageMenuItemAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageMenuItemAlwaysShowImagePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ImageMenuItemAlwaysShowImagePropertyInfo = ImageMenuItemK - type AttrGetType ImageMenuItemAlwaysShowImagePropertyInfo = Bool - type AttrLabel ImageMenuItemAlwaysShowImagePropertyInfo = "always-show-image" - attrGet _ = getImageMenuItemAlwaysShowImage - attrSet _ = setImageMenuItemAlwaysShowImage - attrConstruct _ = constructImageMenuItemAlwaysShowImage - attrClear _ = undefined - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m Widget -getImageMenuItemImage obj = liftIO $ checkUnexpectedNothing "getImageMenuItemImage" $ getObjectPropertyObject obj "image" Widget - -setImageMenuItemImage :: (MonadIO m, ImageMenuItemK o, WidgetK a) => o -> a -> m () -setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) - -constructImageMenuItemImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructImageMenuItemImage val = constructObjectPropertyObject "image" (Just val) - -clearImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m () -clearImageMenuItemImage obj = liftIO $ setObjectPropertyObject obj "image" (Nothing :: Maybe Widget) - -data ImageMenuItemImagePropertyInfo -instance AttrInfo ImageMenuItemImagePropertyInfo where - type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK - type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK - type AttrGetType ImageMenuItemImagePropertyInfo = Widget - type AttrLabel ImageMenuItemImagePropertyInfo = "image" - attrGet _ = getImageMenuItemImage - attrSet _ = setImageMenuItemImage - attrConstruct _ = constructImageMenuItemImage - attrClear _ = clearImageMenuItemImage - --- VVV Prop "use-stock" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getImageMenuItemUseStock :: (MonadIO m, ImageMenuItemK o) => o -> m Bool -getImageMenuItemUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock" - -setImageMenuItemUseStock :: (MonadIO m, ImageMenuItemK o) => o -> Bool -> m () -setImageMenuItemUseStock obj val = liftIO $ setObjectPropertyBool obj "use-stock" val - -constructImageMenuItemUseStock :: Bool -> IO ([Char], GValue) -constructImageMenuItemUseStock val = constructObjectPropertyBool "use-stock" val - -data ImageMenuItemUseStockPropertyInfo -instance AttrInfo ImageMenuItemUseStockPropertyInfo where - type AttrAllowedOps ImageMenuItemUseStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageMenuItemUseStockPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ImageMenuItemUseStockPropertyInfo = ImageMenuItemK - type AttrGetType ImageMenuItemUseStockPropertyInfo = Bool - type AttrLabel ImageMenuItemUseStockPropertyInfo = "use-stock" - attrGet _ = getImageMenuItemUseStock - attrSet _ = setImageMenuItemUseStock - attrConstruct _ = constructImageMenuItemUseStock - attrClear _ = undefined - -type instance AttributeList ImageMenuItem = ImageMenuItemAttributeList -type ImageMenuItemAttributeList = ('[ '("accelGroup", ImageMenuItemAccelGroupPropertyInfo), '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ImageMenuItemAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ImageMenuItemUseStockPropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -imageMenuItemAccelGroup :: AttrLabelProxy "accelGroup" -imageMenuItemAccelGroup = AttrLabelProxy - -imageMenuItemAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" -imageMenuItemAlwaysShowImage = AttrLabelProxy - -imageMenuItemImage :: AttrLabelProxy "image" -imageMenuItemImage = AttrLabelProxy - -imageMenuItemUseStock :: AttrLabelProxy "useStock" -imageMenuItemUseStock = AttrLabelProxy - -type instance SignalList ImageMenuItem = ImageMenuItemSignalList -type ImageMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ImageMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_new" gtk_image_menu_item_new :: - IO (Ptr ImageMenuItem) - -{-# DEPRECATED imageMenuItemNew ["(Since version 3.10)","Use gtk_menu_item_new() instead."]#-} -imageMenuItemNew :: - (MonadIO m) => - m ImageMenuItem -- result -imageMenuItemNew = liftIO $ do - result <- gtk_image_menu_item_new - checkUnexpectedReturnNULL "gtk_image_menu_item_new" result - result' <- (newObject ImageMenuItem) result - return result' - --- method ImageMenuItem::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_new_from_stock" gtk_image_menu_item_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO (Ptr ImageMenuItem) - -{-# DEPRECATED imageMenuItemNewFromStock ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-} -imageMenuItemNewFromStock :: - (MonadIO m, AccelGroupK a) => - T.Text -- stockId - -> Maybe (a) -- accelGroup - -> m ImageMenuItem -- result -imageMenuItemNewFromStock stockId accelGroup = liftIO $ do - stockId' <- textToCString stockId - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - result <- gtk_image_menu_item_new_from_stock stockId' maybeAccelGroup - checkUnexpectedReturnNULL "gtk_image_menu_item_new_from_stock" result - result' <- (newObject ImageMenuItem) result - whenJust accelGroup touchManagedPtr - freeMem stockId' - return result' - --- method ImageMenuItem::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_new_with_label" gtk_image_menu_item_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr ImageMenuItem) - -{-# DEPRECATED imageMenuItemNewWithLabel ["(Since version 3.10)","Use gtk_menu_item_new_with_label() instead."]#-} -imageMenuItemNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m ImageMenuItem -- result -imageMenuItemNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_image_menu_item_new_with_label label' - checkUnexpectedReturnNULL "gtk_image_menu_item_new_with_label" result - result' <- (newObject ImageMenuItem) result - freeMem label' - return result' - --- method ImageMenuItem::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_new_with_mnemonic" gtk_image_menu_item_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr ImageMenuItem) - -{-# DEPRECATED imageMenuItemNewWithMnemonic ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-} -imageMenuItemNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m ImageMenuItem -- result -imageMenuItemNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_image_menu_item_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_image_menu_item_new_with_mnemonic" result - result' <- (newObject ImageMenuItem) result - freeMem label' - return result' - --- method ImageMenuItem::get_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", 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 "gtk_image_menu_item_get_always_show_image" gtk_image_menu_item_get_always_show_image :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - IO CInt - -{-# DEPRECATED imageMenuItemGetAlwaysShowImage ["(Since version 3.10)"]#-} -imageMenuItemGetAlwaysShowImage :: - (MonadIO m, ImageMenuItemK a) => - a -- _obj - -> m Bool -- result -imageMenuItemGetAlwaysShowImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_menu_item_get_always_show_image _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ImageMenuItemGetAlwaysShowImageMethodInfo -instance (signature ~ (m Bool), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = imageMenuItemGetAlwaysShowImage - --- method ImageMenuItem::get_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_get_image" gtk_image_menu_item_get_image :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - IO (Ptr Widget) - -{-# DEPRECATED imageMenuItemGetImage ["(Since version 3.10)"]#-} -imageMenuItemGetImage :: - (MonadIO m, ImageMenuItemK a) => - a -- _obj - -> m Widget -- result -imageMenuItemGetImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_menu_item_get_image _obj' - checkUnexpectedReturnNULL "gtk_image_menu_item_get_image" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ImageMenuItemGetImageMethodInfo -instance (signature ~ (m Widget), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetImageMethodInfo a signature where - overloadedMethod _ = imageMenuItemGetImage - --- method ImageMenuItem::get_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", 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 "gtk_image_menu_item_get_use_stock" gtk_image_menu_item_get_use_stock :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - IO CInt - -{-# DEPRECATED imageMenuItemGetUseStock ["(Since version 3.10)"]#-} -imageMenuItemGetUseStock :: - (MonadIO m, ImageMenuItemK a) => - a -- _obj - -> m Bool -- result -imageMenuItemGetUseStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_menu_item_get_use_stock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ImageMenuItemGetUseStockMethodInfo -instance (signature ~ (m Bool), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetUseStockMethodInfo a signature where - overloadedMethod _ = imageMenuItemGetUseStock - --- method ImageMenuItem::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_image_menu_item_set_accel_group" gtk_image_menu_item_set_accel_group :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - -{-# DEPRECATED imageMenuItemSetAccelGroup ["(Since version 3.10)"]#-} -imageMenuItemSetAccelGroup :: - (MonadIO m, ImageMenuItemK a, AccelGroupK b) => - a -- _obj - -> b -- accelGroup - -> m () -- result -imageMenuItemSetAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - gtk_image_menu_item_set_accel_group _obj' accelGroup' - touchManagedPtr _obj - touchManagedPtr accelGroup - return () - -data ImageMenuItemSetAccelGroupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ImageMenuItemK a, AccelGroupK b) => MethodInfo ImageMenuItemSetAccelGroupMethodInfo a signature where - overloadedMethod _ = imageMenuItemSetAccelGroup - --- method ImageMenuItem::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", 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 "gtk_image_menu_item_set_always_show_image" gtk_image_menu_item_set_always_show_image :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - CInt -> -- always_show : TBasicType TBoolean - IO () - -{-# DEPRECATED imageMenuItemSetAlwaysShowImage ["(Since version 3.10)"]#-} -imageMenuItemSetAlwaysShowImage :: - (MonadIO m, ImageMenuItemK a) => - a -- _obj - -> Bool -- alwaysShow - -> m () -- result -imageMenuItemSetAlwaysShowImage _obj alwaysShow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let alwaysShow' = (fromIntegral . fromEnum) alwaysShow - gtk_image_menu_item_set_always_show_image _obj' alwaysShow' - touchManagedPtr _obj - return () - -data ImageMenuItemSetAlwaysShowImageMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemSetAlwaysShowImageMethodInfo a signature where - overloadedMethod _ = imageMenuItemSetAlwaysShowImage - --- method ImageMenuItem::set_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_menu_item_set_image" gtk_image_menu_item_set_image :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - Ptr Widget -> -- image : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED imageMenuItemSetImage ["(Since version 3.10)"]#-} -imageMenuItemSetImage :: - (MonadIO m, ImageMenuItemK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- image - -> m () -- result -imageMenuItemSetImage _obj image = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeImage <- case image of - Nothing -> return nullPtr - Just jImage -> do - let jImage' = unsafeManagedPtrCastPtr jImage - return jImage' - gtk_image_menu_item_set_image _obj' maybeImage - touchManagedPtr _obj - whenJust image touchManagedPtr - return () - -data ImageMenuItemSetImageMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ImageMenuItemK a, WidgetK b) => MethodInfo ImageMenuItemSetImageMethodInfo a signature where - overloadedMethod _ = imageMenuItemSetImage - --- method ImageMenuItem::set_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", 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 "gtk_image_menu_item_set_use_stock" gtk_image_menu_item_set_use_stock :: - Ptr ImageMenuItem -> -- _obj : TInterface "Gtk" "ImageMenuItem" - CInt -> -- use_stock : TBasicType TBoolean - IO () - -{-# DEPRECATED imageMenuItemSetUseStock ["(Since version 3.10)"]#-} -imageMenuItemSetUseStock :: - (MonadIO m, ImageMenuItemK a) => - a -- _obj - -> Bool -- useStock - -> m () -- result -imageMenuItemSetUseStock _obj useStock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useStock' = (fromIntegral . fromEnum) useStock - gtk_image_menu_item_set_use_stock _obj' useStock' - touchManagedPtr _obj - return () - -data ImageMenuItemSetUseStockMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemSetUseStockMethodInfo a signature where - overloadedMethod _ = imageMenuItemSetUseStock - - diff --git a/GI/Gtk/Objects/ImageMenuItem.hs-boot b/GI/Gtk/Objects/ImageMenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ImageMenuItem.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.ImageMenuItem 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 ImageMenuItem = ImageMenuItem (ForeignPtr ImageMenuItem) -instance GObject ImageMenuItem where -class GObject o => ImageMenuItemK o -instance (GObject o, IsDescendantOf ImageMenuItem o) => ImageMenuItemK o -data ImageMenuItemAccelGroupPropertyInfo -data ImageMenuItemAlwaysShowImagePropertyInfo -data ImageMenuItemImagePropertyInfo -data ImageMenuItemUseStockPropertyInfo -data ImageMenuItemGetAlwaysShowImageMethodInfo -data ImageMenuItemGetImageMethodInfo -data ImageMenuItemGetUseStockMethodInfo -data ImageMenuItemSetAccelGroupMethodInfo -data ImageMenuItemSetAlwaysShowImageMethodInfo -data ImageMenuItemSetImageMethodInfo -data ImageMenuItemSetUseStockMethodInfo diff --git a/GI/Gtk/Objects/InfoBar.hs b/GI/Gtk/Objects/InfoBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/InfoBar.hs +++ /dev/null @@ -1,1016 +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.Gtk.Objects.InfoBar - ( - --- * Exported types - InfoBar(..) , - InfoBarK , - toInfoBar , - noInfoBar , - - - -- * Methods --- ** infoBarAddActionWidget - InfoBarAddActionWidgetMethodInfo , - infoBarAddActionWidget , - - --- ** infoBarAddButton - InfoBarAddButtonMethodInfo , - infoBarAddButton , - - --- ** infoBarGetActionArea - InfoBarGetActionAreaMethodInfo , - infoBarGetActionArea , - - --- ** infoBarGetContentArea - InfoBarGetContentAreaMethodInfo , - infoBarGetContentArea , - - --- ** infoBarGetMessageType - InfoBarGetMessageTypeMethodInfo , - infoBarGetMessageType , - - --- ** infoBarGetShowCloseButton - InfoBarGetShowCloseButtonMethodInfo , - infoBarGetShowCloseButton , - - --- ** infoBarNew - infoBarNew , - - --- ** infoBarResponse - InfoBarResponseMethodInfo , - infoBarResponse , - - --- ** infoBarSetDefaultResponse - InfoBarSetDefaultResponseMethodInfo , - infoBarSetDefaultResponse , - - --- ** infoBarSetMessageType - InfoBarSetMessageTypeMethodInfo , - infoBarSetMessageType , - - --- ** infoBarSetResponseSensitive - InfoBarSetResponseSensitiveMethodInfo , - infoBarSetResponseSensitive , - - --- ** infoBarSetShowCloseButton - InfoBarSetShowCloseButtonMethodInfo , - infoBarSetShowCloseButton , - - - - - -- * Properties --- ** MessageType - InfoBarMessageTypePropertyInfo , - constructInfoBarMessageType , - getInfoBarMessageType , - infoBarMessageType , - setInfoBarMessageType , - - --- ** ShowCloseButton - InfoBarShowCloseButtonPropertyInfo , - constructInfoBarShowCloseButton , - getInfoBarShowCloseButton , - infoBarShowCloseButton , - setInfoBarShowCloseButton , - - - - - -- * Signals --- ** Close - InfoBarCloseCallback , - InfoBarCloseCallbackC , - InfoBarCloseSignalInfo , - afterInfoBarClose , - infoBarCloseCallbackWrapper , - infoBarCloseClosure , - mkInfoBarCloseCallback , - noInfoBarCloseCallback , - onInfoBarClose , - - --- ** Response - InfoBarResponseCallback , - InfoBarResponseCallbackC , - InfoBarResponseSignalInfo , - afterInfoBarResponse , - infoBarResponseCallbackWrapper , - infoBarResponseClosure , - mkInfoBarResponseCallback , - noInfoBarResponseCallback , - onInfoBarResponse , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype InfoBar = InfoBar (ForeignPtr InfoBar) -foreign import ccall "gtk_info_bar_get_type" - c_gtk_info_bar_get_type :: IO GType - -type instance ParentTypes InfoBar = InfoBarParentTypes -type InfoBarParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject InfoBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_info_bar_get_type - - -class GObject o => InfoBarK o -instance (GObject o, IsDescendantOf InfoBar o) => InfoBarK o - -toInfoBar :: InfoBarK o => o -> IO InfoBar -toInfoBar = unsafeCastTo InfoBar - -noInfoBar :: Maybe InfoBar -noInfoBar = Nothing - -type family ResolveInfoBarMethod (t :: Symbol) (o :: *) :: * where - ResolveInfoBarMethod "activate" o = WidgetActivateMethodInfo - ResolveInfoBarMethod "add" o = ContainerAddMethodInfo - ResolveInfoBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveInfoBarMethod "addActionWidget" o = InfoBarAddActionWidgetMethodInfo - ResolveInfoBarMethod "addButton" o = InfoBarAddButtonMethodInfo - ResolveInfoBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveInfoBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveInfoBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveInfoBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveInfoBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveInfoBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInfoBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInfoBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveInfoBarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveInfoBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveInfoBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveInfoBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveInfoBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveInfoBarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveInfoBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveInfoBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveInfoBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveInfoBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveInfoBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveInfoBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveInfoBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveInfoBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveInfoBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveInfoBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveInfoBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveInfoBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveInfoBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveInfoBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveInfoBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveInfoBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveInfoBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveInfoBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveInfoBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveInfoBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveInfoBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveInfoBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveInfoBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveInfoBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveInfoBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveInfoBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveInfoBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveInfoBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveInfoBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveInfoBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveInfoBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveInfoBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveInfoBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveInfoBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveInfoBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveInfoBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveInfoBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveInfoBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveInfoBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveInfoBarMethod "draw" o = WidgetDrawMethodInfo - ResolveInfoBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveInfoBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveInfoBarMethod "event" o = WidgetEventMethodInfo - ResolveInfoBarMethod "forall" o = ContainerForallMethodInfo - ResolveInfoBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInfoBarMethod "foreach" o = ContainerForeachMethodInfo - ResolveInfoBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveInfoBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInfoBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveInfoBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveInfoBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveInfoBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveInfoBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveInfoBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveInfoBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveInfoBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveInfoBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveInfoBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveInfoBarMethod "hide" o = WidgetHideMethodInfo - ResolveInfoBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveInfoBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveInfoBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveInfoBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveInfoBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveInfoBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveInfoBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveInfoBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveInfoBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveInfoBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInfoBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveInfoBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveInfoBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveInfoBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveInfoBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveInfoBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveInfoBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveInfoBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveInfoBarMethod "map" o = WidgetMapMethodInfo - ResolveInfoBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveInfoBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveInfoBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveInfoBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveInfoBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveInfoBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveInfoBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveInfoBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveInfoBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInfoBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInfoBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveInfoBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveInfoBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveInfoBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveInfoBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveInfoBarMethod "packEnd" o = BoxPackEndMethodInfo - ResolveInfoBarMethod "packStart" o = BoxPackStartMethodInfo - ResolveInfoBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveInfoBarMethod "path" o = WidgetPathMethodInfo - ResolveInfoBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveInfoBarMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveInfoBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveInfoBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveInfoBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveInfoBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveInfoBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveInfoBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveInfoBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveInfoBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInfoBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInfoBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveInfoBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveInfoBarMethod "remove" o = ContainerRemoveMethodInfo - ResolveInfoBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveInfoBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveInfoBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveInfoBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveInfoBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveInfoBarMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveInfoBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveInfoBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInfoBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInfoBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveInfoBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveInfoBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveInfoBarMethod "response" o = InfoBarResponseMethodInfo - ResolveInfoBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInfoBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveInfoBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveInfoBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveInfoBarMethod "show" o = WidgetShowMethodInfo - ResolveInfoBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveInfoBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveInfoBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveInfoBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveInfoBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveInfoBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInfoBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInfoBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveInfoBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveInfoBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveInfoBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInfoBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveInfoBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveInfoBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveInfoBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveInfoBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveInfoBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInfoBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveInfoBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveInfoBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveInfoBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInfoBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveInfoBarMethod "getActionArea" o = InfoBarGetActionAreaMethodInfo - ResolveInfoBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveInfoBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveInfoBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveInfoBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveInfoBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveInfoBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveInfoBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveInfoBarMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveInfoBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveInfoBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveInfoBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveInfoBarMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveInfoBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveInfoBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveInfoBarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveInfoBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveInfoBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveInfoBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveInfoBarMethod "getContentArea" o = InfoBarGetContentAreaMethodInfo - ResolveInfoBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInfoBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveInfoBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveInfoBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveInfoBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveInfoBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveInfoBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveInfoBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveInfoBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveInfoBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveInfoBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveInfoBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveInfoBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveInfoBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveInfoBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveInfoBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveInfoBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveInfoBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveInfoBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveInfoBarMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveInfoBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveInfoBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveInfoBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveInfoBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveInfoBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveInfoBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveInfoBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveInfoBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveInfoBarMethod "getMessageType" o = InfoBarGetMessageTypeMethodInfo - ResolveInfoBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveInfoBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveInfoBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveInfoBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveInfoBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveInfoBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveInfoBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveInfoBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveInfoBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveInfoBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveInfoBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveInfoBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveInfoBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveInfoBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveInfoBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveInfoBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveInfoBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveInfoBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInfoBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInfoBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveInfoBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveInfoBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveInfoBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveInfoBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveInfoBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveInfoBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveInfoBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveInfoBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveInfoBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveInfoBarMethod "getShowCloseButton" o = InfoBarGetShowCloseButtonMethodInfo - ResolveInfoBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveInfoBarMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveInfoBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveInfoBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveInfoBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveInfoBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveInfoBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveInfoBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveInfoBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveInfoBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveInfoBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveInfoBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveInfoBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveInfoBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveInfoBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveInfoBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveInfoBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveInfoBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveInfoBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveInfoBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveInfoBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveInfoBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveInfoBarMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveInfoBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveInfoBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveInfoBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveInfoBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveInfoBarMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveInfoBarMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveInfoBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveInfoBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveInfoBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveInfoBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInfoBarMethod "setDefaultResponse" o = InfoBarSetDefaultResponseMethodInfo - ResolveInfoBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveInfoBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveInfoBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveInfoBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveInfoBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveInfoBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveInfoBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveInfoBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveInfoBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveInfoBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveInfoBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveInfoBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveInfoBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveInfoBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveInfoBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveInfoBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveInfoBarMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveInfoBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveInfoBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveInfoBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveInfoBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveInfoBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveInfoBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveInfoBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveInfoBarMethod "setMessageType" o = InfoBarSetMessageTypeMethodInfo - ResolveInfoBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveInfoBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveInfoBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveInfoBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveInfoBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveInfoBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInfoBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveInfoBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveInfoBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveInfoBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveInfoBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveInfoBarMethod "setResponseSensitive" o = InfoBarSetResponseSensitiveMethodInfo - ResolveInfoBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveInfoBarMethod "setShowCloseButton" o = InfoBarSetShowCloseButtonMethodInfo - ResolveInfoBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveInfoBarMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveInfoBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveInfoBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveInfoBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveInfoBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveInfoBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveInfoBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveInfoBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveInfoBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveInfoBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveInfoBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveInfoBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveInfoBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveInfoBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveInfoBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInfoBarMethod t InfoBar, MethodInfo info InfoBar p) => IsLabelProxy t (InfoBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInfoBarMethod t InfoBar, MethodInfo info InfoBar p) => IsLabel t (InfoBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal InfoBar::close -type InfoBarCloseCallback = - IO () - -noInfoBarCloseCallback :: Maybe InfoBarCloseCallback -noInfoBarCloseCallback = Nothing - -type InfoBarCloseCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkInfoBarCloseCallback :: InfoBarCloseCallbackC -> IO (FunPtr InfoBarCloseCallbackC) - -infoBarCloseClosure :: InfoBarCloseCallback -> IO Closure -infoBarCloseClosure cb = newCClosure =<< mkInfoBarCloseCallback wrapped - where wrapped = infoBarCloseCallbackWrapper cb - -infoBarCloseCallbackWrapper :: - InfoBarCloseCallback -> - Ptr () -> - Ptr () -> - IO () -infoBarCloseCallbackWrapper _cb _ _ = do - _cb - -onInfoBarClose :: (GObject a, MonadIO m) => a -> InfoBarCloseCallback -> m SignalHandlerId -onInfoBarClose obj cb = liftIO $ connectInfoBarClose obj cb SignalConnectBefore -afterInfoBarClose :: (GObject a, MonadIO m) => a -> InfoBarCloseCallback -> m SignalHandlerId -afterInfoBarClose obj cb = connectInfoBarClose obj cb SignalConnectAfter - -connectInfoBarClose :: (GObject a, MonadIO m) => - a -> InfoBarCloseCallback -> SignalConnectMode -> m SignalHandlerId -connectInfoBarClose obj cb after = liftIO $ do - cb' <- mkInfoBarCloseCallback (infoBarCloseCallbackWrapper cb) - connectSignalFunPtr obj "close" cb' after - --- signal InfoBar::response -type InfoBarResponseCallback = - Int32 -> - IO () - -noInfoBarResponseCallback :: Maybe InfoBarResponseCallback -noInfoBarResponseCallback = Nothing - -type InfoBarResponseCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkInfoBarResponseCallback :: InfoBarResponseCallbackC -> IO (FunPtr InfoBarResponseCallbackC) - -infoBarResponseClosure :: InfoBarResponseCallback -> IO Closure -infoBarResponseClosure cb = newCClosure =<< mkInfoBarResponseCallback wrapped - where wrapped = infoBarResponseCallbackWrapper cb - -infoBarResponseCallbackWrapper :: - InfoBarResponseCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -infoBarResponseCallbackWrapper _cb _ responseId _ = do - _cb responseId - -onInfoBarResponse :: (GObject a, MonadIO m) => a -> InfoBarResponseCallback -> m SignalHandlerId -onInfoBarResponse obj cb = liftIO $ connectInfoBarResponse obj cb SignalConnectBefore -afterInfoBarResponse :: (GObject a, MonadIO m) => a -> InfoBarResponseCallback -> m SignalHandlerId -afterInfoBarResponse obj cb = connectInfoBarResponse obj cb SignalConnectAfter - -connectInfoBarResponse :: (GObject a, MonadIO m) => - a -> InfoBarResponseCallback -> SignalConnectMode -> m SignalHandlerId -connectInfoBarResponse obj cb after = liftIO $ do - cb' <- mkInfoBarResponseCallback (infoBarResponseCallbackWrapper cb) - connectSignalFunPtr obj "response" cb' after - --- VVV Prop "message-type" - -- Type: TInterface "Gtk" "MessageType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getInfoBarMessageType :: (MonadIO m, InfoBarK o) => o -> m MessageType -getInfoBarMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type" - -setInfoBarMessageType :: (MonadIO m, InfoBarK o) => o -> MessageType -> m () -setInfoBarMessageType obj val = liftIO $ setObjectPropertyEnum obj "message-type" val - -constructInfoBarMessageType :: MessageType -> IO ([Char], GValue) -constructInfoBarMessageType val = constructObjectPropertyEnum "message-type" val - -data InfoBarMessageTypePropertyInfo -instance AttrInfo InfoBarMessageTypePropertyInfo where - type AttrAllowedOps InfoBarMessageTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InfoBarMessageTypePropertyInfo = (~) MessageType - type AttrBaseTypeConstraint InfoBarMessageTypePropertyInfo = InfoBarK - type AttrGetType InfoBarMessageTypePropertyInfo = MessageType - type AttrLabel InfoBarMessageTypePropertyInfo = "message-type" - attrGet _ = getInfoBarMessageType - attrSet _ = setInfoBarMessageType - attrConstruct _ = constructInfoBarMessageType - attrClear _ = undefined - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getInfoBarShowCloseButton :: (MonadIO m, InfoBarK o) => o -> m Bool -getInfoBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" - -setInfoBarShowCloseButton :: (MonadIO m, InfoBarK o) => o -> Bool -> m () -setInfoBarShowCloseButton obj val = liftIO $ setObjectPropertyBool obj "show-close-button" val - -constructInfoBarShowCloseButton :: Bool -> IO ([Char], GValue) -constructInfoBarShowCloseButton val = constructObjectPropertyBool "show-close-button" val - -data InfoBarShowCloseButtonPropertyInfo -instance AttrInfo InfoBarShowCloseButtonPropertyInfo where - type AttrAllowedOps InfoBarShowCloseButtonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InfoBarShowCloseButtonPropertyInfo = (~) Bool - type AttrBaseTypeConstraint InfoBarShowCloseButtonPropertyInfo = InfoBarK - type AttrGetType InfoBarShowCloseButtonPropertyInfo = Bool - type AttrLabel InfoBarShowCloseButtonPropertyInfo = "show-close-button" - attrGet _ = getInfoBarShowCloseButton - attrSet _ = setInfoBarShowCloseButton - attrConstruct _ = constructInfoBarShowCloseButton - attrClear _ = undefined - -type instance AttributeList InfoBar = InfoBarAttributeList -type InfoBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageType", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -infoBarMessageType :: AttrLabelProxy "messageType" -infoBarMessageType = AttrLabelProxy - -infoBarShowCloseButton :: AttrLabelProxy "showCloseButton" -infoBarShowCloseButton = AttrLabelProxy - -data InfoBarCloseSignalInfo -instance SignalInfo InfoBarCloseSignalInfo where - type HaskellCallbackType InfoBarCloseSignalInfo = InfoBarCloseCallback - connectSignal _ = connectInfoBarClose - -data InfoBarResponseSignalInfo -instance SignalInfo InfoBarResponseSignalInfo where - type HaskellCallbackType InfoBarResponseSignalInfo = InfoBarResponseCallback - connectSignal _ = connectInfoBarResponse - -type instance SignalList InfoBar = InfoBarSignalList -type InfoBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", InfoBarCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", InfoBarResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method InfoBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "InfoBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_new" gtk_info_bar_new :: - IO (Ptr InfoBar) - - -infoBarNew :: - (MonadIO m) => - m InfoBar -- result -infoBarNew = liftIO $ do - result <- gtk_info_bar_new - checkUnexpectedReturnNULL "gtk_info_bar_new" result - result' <- (newObject InfoBar) result - return result' - --- method InfoBar::add_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_info_bar_add_action_widget" gtk_info_bar_add_action_widget :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- response_id : TBasicType TInt - IO () - - -infoBarAddActionWidget :: - (MonadIO m, InfoBarK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- responseId - -> m () -- result -infoBarAddActionWidget _obj child responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_info_bar_add_action_widget _obj' child' responseId - touchManagedPtr _obj - touchManagedPtr child - return () - -data InfoBarAddActionWidgetMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, InfoBarK a, WidgetK b) => MethodInfo InfoBarAddActionWidgetMethodInfo a signature where - overloadedMethod _ = infoBarAddActionWidget - --- method InfoBar::add_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_add_button" gtk_info_bar_add_button :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - CString -> -- button_text : TBasicType TUTF8 - Int32 -> -- response_id : TBasicType TInt - IO (Ptr Button) - - -infoBarAddButton :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> T.Text -- buttonText - -> Int32 -- responseId - -> m Button -- result -infoBarAddButton _obj buttonText responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buttonText' <- textToCString buttonText - result <- gtk_info_bar_add_button _obj' buttonText' responseId - checkUnexpectedReturnNULL "gtk_info_bar_add_button" result - result' <- (newObject Button) result - touchManagedPtr _obj - freeMem buttonText' - return result' - -data InfoBarAddButtonMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Button), MonadIO m, InfoBarK a) => MethodInfo InfoBarAddButtonMethodInfo a signature where - overloadedMethod _ = infoBarAddButton - --- method InfoBar::get_action_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_get_action_area" gtk_info_bar_get_action_area :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - IO (Ptr Widget) - - -infoBarGetActionArea :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> m Widget -- result -infoBarGetActionArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_info_bar_get_action_area _obj' - checkUnexpectedReturnNULL "gtk_info_bar_get_action_area" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data InfoBarGetActionAreaMethodInfo -instance (signature ~ (m Widget), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetActionAreaMethodInfo a signature where - overloadedMethod _ = infoBarGetActionArea - --- method InfoBar::get_content_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_get_content_area" gtk_info_bar_get_content_area :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - IO (Ptr Widget) - - -infoBarGetContentArea :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> m Widget -- result -infoBarGetContentArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_info_bar_get_content_area _obj' - checkUnexpectedReturnNULL "gtk_info_bar_get_content_area" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data InfoBarGetContentAreaMethodInfo -instance (signature ~ (m Widget), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetContentAreaMethodInfo a signature where - overloadedMethod _ = infoBarGetContentArea - --- method InfoBar::get_message_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MessageType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_get_message_type" gtk_info_bar_get_message_type :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - IO CUInt - - -infoBarGetMessageType :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> m MessageType -- result -infoBarGetMessageType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_info_bar_get_message_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data InfoBarGetMessageTypeMethodInfo -instance (signature ~ (m MessageType), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetMessageTypeMethodInfo a signature where - overloadedMethod _ = infoBarGetMessageType - --- method InfoBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", 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 "gtk_info_bar_get_show_close_button" gtk_info_bar_get_show_close_button :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - IO CInt - - -infoBarGetShowCloseButton :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> m Bool -- result -infoBarGetShowCloseButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_info_bar_get_show_close_button _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InfoBarGetShowCloseButtonMethodInfo -instance (signature ~ (m Bool), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = infoBarGetShowCloseButton - --- method InfoBar::response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_info_bar_response" gtk_info_bar_response :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt - IO () - - -infoBarResponse :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> Int32 -- responseId - -> m () -- result -infoBarResponse _obj responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_response _obj' responseId - touchManagedPtr _obj - return () - -data InfoBarResponseMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarResponseMethodInfo a signature where - overloadedMethod _ = infoBarResponse - --- method InfoBar::set_default_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", 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 "gtk_info_bar_set_default_response" gtk_info_bar_set_default_response :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt - IO () - - -infoBarSetDefaultResponse :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> Int32 -- responseId - -> m () -- result -infoBarSetDefaultResponse _obj responseId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_set_default_response _obj' responseId - touchManagedPtr _obj - return () - -data InfoBarSetDefaultResponseMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetDefaultResponseMethodInfo a signature where - overloadedMethod _ = infoBarSetDefaultResponse - --- method InfoBar::set_message_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_type", argType = TInterface "Gtk" "MessageType", 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 "gtk_info_bar_set_message_type" gtk_info_bar_set_message_type :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - CUInt -> -- message_type : TInterface "Gtk" "MessageType" - IO () - - -infoBarSetMessageType :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> MessageType -- messageType - -> m () -- result -infoBarSetMessageType _obj messageType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let messageType' = (fromIntegral . fromEnum) messageType - gtk_info_bar_set_message_type _obj' messageType' - touchManagedPtr _obj - return () - -data InfoBarSetMessageTypeMethodInfo -instance (signature ~ (MessageType -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetMessageTypeMethodInfo a signature where - overloadedMethod _ = infoBarSetMessageType - --- method InfoBar::set_response_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_info_bar_set_response_sensitive" gtk_info_bar_set_response_sensitive :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt - CInt -> -- setting : TBasicType TBoolean - IO () - - -infoBarSetResponseSensitive :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> Int32 -- responseId - -> Bool -- setting - -> m () -- result -infoBarSetResponseSensitive _obj responseId setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_info_bar_set_response_sensitive _obj' responseId setting' - touchManagedPtr _obj - return () - -data InfoBarSetResponseSensitiveMethodInfo -instance (signature ~ (Int32 -> Bool -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetResponseSensitiveMethodInfo a signature where - overloadedMethod _ = infoBarSetResponseSensitive - --- method InfoBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_info_bar_set_show_close_button" gtk_info_bar_set_show_close_button :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - CInt -> -- setting : TBasicType TBoolean - IO () - - -infoBarSetShowCloseButton :: - (MonadIO m, InfoBarK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -infoBarSetShowCloseButton _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_info_bar_set_show_close_button _obj' setting' - touchManagedPtr _obj - return () - -data InfoBarSetShowCloseButtonMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = infoBarSetShowCloseButton - - diff --git a/GI/Gtk/Objects/InfoBar.hs-boot b/GI/Gtk/Objects/InfoBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/InfoBar.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.InfoBar 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 InfoBar = InfoBar (ForeignPtr InfoBar) -instance GObject InfoBar where -class GObject o => InfoBarK o -instance (GObject o, IsDescendantOf InfoBar o) => InfoBarK o -data InfoBarMessageTypePropertyInfo -data InfoBarShowCloseButtonPropertyInfo -data InfoBarCloseSignalInfo -data InfoBarResponseSignalInfo -data InfoBarAddActionWidgetMethodInfo -data InfoBarAddButtonMethodInfo -data InfoBarGetActionAreaMethodInfo -data InfoBarGetContentAreaMethodInfo -data InfoBarGetMessageTypeMethodInfo -data InfoBarGetShowCloseButtonMethodInfo -data InfoBarResponseMethodInfo -data InfoBarSetDefaultResponseMethodInfo -data InfoBarSetMessageTypeMethodInfo -data InfoBarSetResponseSensitiveMethodInfo -data InfoBarSetShowCloseButtonMethodInfo diff --git a/GI/Gtk/Objects/Invisible.hs b/GI/Gtk/Objects/Invisible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Invisible.hs +++ /dev/null @@ -1,524 +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.Gtk.Objects.Invisible - ( - --- * Exported types - Invisible(..) , - InvisibleK , - toInvisible , - noInvisible , - - - -- * Methods --- ** invisibleGetScreen - InvisibleGetScreenMethodInfo , - invisibleGetScreen , - - --- ** invisibleNew - invisibleNew , - - --- ** invisibleNewForScreen - invisibleNewForScreen , - - --- ** invisibleSetScreen - InvisibleSetScreenMethodInfo , - invisibleSetScreen , - - - - - -- * Properties --- ** Screen - InvisibleScreenPropertyInfo , - constructInvisibleScreen , - getInvisibleScreen , - invisibleScreen , - setInvisibleScreen , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Invisible = Invisible (ForeignPtr Invisible) -foreign import ccall "gtk_invisible_get_type" - c_gtk_invisible_get_type :: IO GType - -type instance ParentTypes Invisible = InvisibleParentTypes -type InvisibleParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Invisible where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_invisible_get_type - - -class GObject o => InvisibleK o -instance (GObject o, IsDescendantOf Invisible o) => InvisibleK o - -toInvisible :: InvisibleK o => o -> IO Invisible -toInvisible = unsafeCastTo Invisible - -noInvisible :: Maybe Invisible -noInvisible = Nothing - -type family ResolveInvisibleMethod (t :: Symbol) (o :: *) :: * where - ResolveInvisibleMethod "activate" o = WidgetActivateMethodInfo - ResolveInvisibleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveInvisibleMethod "addChild" o = BuildableAddChildMethodInfo - ResolveInvisibleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveInvisibleMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveInvisibleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveInvisibleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveInvisibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInvisibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInvisibleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveInvisibleMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveInvisibleMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveInvisibleMethod "classPath" o = WidgetClassPathMethodInfo - ResolveInvisibleMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveInvisibleMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveInvisibleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveInvisibleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveInvisibleMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveInvisibleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveInvisibleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveInvisibleMethod "destroy" o = WidgetDestroyMethodInfo - ResolveInvisibleMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveInvisibleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveInvisibleMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveInvisibleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveInvisibleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveInvisibleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveInvisibleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveInvisibleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveInvisibleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveInvisibleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveInvisibleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveInvisibleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveInvisibleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveInvisibleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveInvisibleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveInvisibleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveInvisibleMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveInvisibleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveInvisibleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveInvisibleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveInvisibleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveInvisibleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveInvisibleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveInvisibleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveInvisibleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveInvisibleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveInvisibleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveInvisibleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveInvisibleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveInvisibleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveInvisibleMethod "draw" o = WidgetDrawMethodInfo - ResolveInvisibleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveInvisibleMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveInvisibleMethod "event" o = WidgetEventMethodInfo - ResolveInvisibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInvisibleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveInvisibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInvisibleMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveInvisibleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveInvisibleMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveInvisibleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveInvisibleMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveInvisibleMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveInvisibleMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveInvisibleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveInvisibleMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveInvisibleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveInvisibleMethod "hide" o = WidgetHideMethodInfo - ResolveInvisibleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveInvisibleMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveInvisibleMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveInvisibleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveInvisibleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveInvisibleMethod "intersect" o = WidgetIntersectMethodInfo - ResolveInvisibleMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveInvisibleMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveInvisibleMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveInvisibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInvisibleMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveInvisibleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveInvisibleMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveInvisibleMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveInvisibleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveInvisibleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveInvisibleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveInvisibleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveInvisibleMethod "map" o = WidgetMapMethodInfo - ResolveInvisibleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveInvisibleMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveInvisibleMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveInvisibleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveInvisibleMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveInvisibleMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveInvisibleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveInvisibleMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveInvisibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInvisibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInvisibleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveInvisibleMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveInvisibleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveInvisibleMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveInvisibleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveInvisibleMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveInvisibleMethod "path" o = WidgetPathMethodInfo - ResolveInvisibleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveInvisibleMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveInvisibleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveInvisibleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveInvisibleMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveInvisibleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveInvisibleMethod "realize" o = WidgetRealizeMethodInfo - ResolveInvisibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInvisibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInvisibleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveInvisibleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveInvisibleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveInvisibleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveInvisibleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveInvisibleMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveInvisibleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveInvisibleMethod "reparent" o = WidgetReparentMethodInfo - ResolveInvisibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInvisibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInvisibleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveInvisibleMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveInvisibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInvisibleMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveInvisibleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveInvisibleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveInvisibleMethod "show" o = WidgetShowMethodInfo - ResolveInvisibleMethod "showAll" o = WidgetShowAllMethodInfo - ResolveInvisibleMethod "showNow" o = WidgetShowNowMethodInfo - ResolveInvisibleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveInvisibleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveInvisibleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveInvisibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInvisibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInvisibleMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveInvisibleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveInvisibleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveInvisibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInvisibleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveInvisibleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveInvisibleMethod "unmap" o = WidgetUnmapMethodInfo - ResolveInvisibleMethod "unparent" o = WidgetUnparentMethodInfo - ResolveInvisibleMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveInvisibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInvisibleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveInvisibleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveInvisibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInvisibleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveInvisibleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveInvisibleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveInvisibleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveInvisibleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveInvisibleMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveInvisibleMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveInvisibleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveInvisibleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveInvisibleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveInvisibleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveInvisibleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveInvisibleMethod "getClip" o = WidgetGetClipMethodInfo - ResolveInvisibleMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveInvisibleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveInvisibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInvisibleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveInvisibleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveInvisibleMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveInvisibleMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveInvisibleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveInvisibleMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveInvisibleMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveInvisibleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveInvisibleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveInvisibleMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveInvisibleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveInvisibleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveInvisibleMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveInvisibleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveInvisibleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveInvisibleMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveInvisibleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveInvisibleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveInvisibleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveInvisibleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveInvisibleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveInvisibleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveInvisibleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveInvisibleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveInvisibleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveInvisibleMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveInvisibleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveInvisibleMethod "getParent" o = WidgetGetParentMethodInfo - ResolveInvisibleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveInvisibleMethod "getPath" o = WidgetGetPathMethodInfo - ResolveInvisibleMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveInvisibleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveInvisibleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveInvisibleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveInvisibleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveInvisibleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveInvisibleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveInvisibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInvisibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInvisibleMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveInvisibleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveInvisibleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveInvisibleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveInvisibleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveInvisibleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveInvisibleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveInvisibleMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveInvisibleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveInvisibleMethod "getState" o = WidgetGetStateMethodInfo - ResolveInvisibleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveInvisibleMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveInvisibleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveInvisibleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveInvisibleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveInvisibleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveInvisibleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveInvisibleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveInvisibleMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveInvisibleMethod "getValign" o = WidgetGetValignMethodInfo - ResolveInvisibleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveInvisibleMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveInvisibleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveInvisibleMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveInvisibleMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveInvisibleMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveInvisibleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveInvisibleMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveInvisibleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveInvisibleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveInvisibleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveInvisibleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveInvisibleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveInvisibleMethod "setClip" o = WidgetSetClipMethodInfo - ResolveInvisibleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveInvisibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInvisibleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveInvisibleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveInvisibleMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveInvisibleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveInvisibleMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveInvisibleMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveInvisibleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveInvisibleMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveInvisibleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveInvisibleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveInvisibleMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveInvisibleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveInvisibleMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveInvisibleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveInvisibleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveInvisibleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveInvisibleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveInvisibleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveInvisibleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveInvisibleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveInvisibleMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveInvisibleMethod "setParent" o = WidgetSetParentMethodInfo - ResolveInvisibleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveInvisibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInvisibleMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveInvisibleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveInvisibleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveInvisibleMethod "setScreen" o = InvisibleSetScreenMethodInfo - ResolveInvisibleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveInvisibleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveInvisibleMethod "setState" o = WidgetSetStateMethodInfo - ResolveInvisibleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveInvisibleMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveInvisibleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveInvisibleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveInvisibleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveInvisibleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveInvisibleMethod "setValign" o = WidgetSetValignMethodInfo - ResolveInvisibleMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveInvisibleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveInvisibleMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveInvisibleMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveInvisibleMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveInvisibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInvisibleMethod t Invisible, MethodInfo info Invisible p) => IsLabelProxy t (Invisible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInvisibleMethod t Invisible, MethodInfo info Invisible p) => IsLabel t (Invisible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getInvisibleScreen :: (MonadIO m, InvisibleK o) => o -> m Gdk.Screen -getInvisibleScreen obj = liftIO $ checkUnexpectedNothing "getInvisibleScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen - -setInvisibleScreen :: (MonadIO m, InvisibleK o, Gdk.ScreenK a) => o -> a -> m () -setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) - -constructInvisibleScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructInvisibleScreen val = constructObjectPropertyObject "screen" (Just val) - -data InvisibleScreenPropertyInfo -instance AttrInfo InvisibleScreenPropertyInfo where - type AttrAllowedOps InvisibleScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InvisibleScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint InvisibleScreenPropertyInfo = InvisibleK - type AttrGetType InvisibleScreenPropertyInfo = Gdk.Screen - type AttrLabel InvisibleScreenPropertyInfo = "screen" - attrGet _ = getInvisibleScreen - attrSet _ = setInvisibleScreen - attrConstruct _ = constructInvisibleScreen - attrClear _ = undefined - -type instance AttributeList Invisible = InvisibleAttributeList -type InvisibleAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -invisibleScreen :: AttrLabelProxy "screen" -invisibleScreen = AttrLabelProxy - -type instance SignalList Invisible = InvisibleSignalList -type InvisibleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Invisible::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Invisible") --- throws : False --- Skip return : False - -foreign import ccall "gtk_invisible_new" gtk_invisible_new :: - IO (Ptr Invisible) - - -invisibleNew :: - (MonadIO m) => - m Invisible -- result -invisibleNew = liftIO $ do - result <- gtk_invisible_new - checkUnexpectedReturnNULL "gtk_invisible_new" result - result' <- (newObject Invisible) result - return result' - --- method Invisible::new_for_screen --- method type : Constructor --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Invisible") --- throws : False --- Skip return : False - -foreign import ccall "gtk_invisible_new_for_screen" gtk_invisible_new_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO (Ptr Invisible) - - -invisibleNewForScreen :: - (MonadIO m, Gdk.ScreenK a) => - a -- screen - -> m Invisible -- result -invisibleNewForScreen screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - result <- gtk_invisible_new_for_screen screen' - checkUnexpectedReturnNULL "gtk_invisible_new_for_screen" result - result' <- (newObject Invisible) result - touchManagedPtr screen - return result' - --- method Invisible::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_invisible_get_screen" gtk_invisible_get_screen :: - Ptr Invisible -> -- _obj : TInterface "Gtk" "Invisible" - IO (Ptr Gdk.Screen) - - -invisibleGetScreen :: - (MonadIO m, InvisibleK a) => - a -- _obj - -> m Gdk.Screen -- result -invisibleGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_invisible_get_screen _obj' - checkUnexpectedReturnNULL "gtk_invisible_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data InvisibleGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, InvisibleK a) => MethodInfo InvisibleGetScreenMethodInfo a signature where - overloadedMethod _ = invisibleGetScreen - --- method Invisible::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_invisible_set_screen" gtk_invisible_set_screen :: - Ptr Invisible -> -- _obj : TInterface "Gtk" "Invisible" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -invisibleSetScreen :: - (MonadIO m, InvisibleK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -invisibleSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_invisible_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data InvisibleSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, InvisibleK a, Gdk.ScreenK b) => MethodInfo InvisibleSetScreenMethodInfo a signature where - overloadedMethod _ = invisibleSetScreen - - diff --git a/GI/Gtk/Objects/Invisible.hs-boot b/GI/Gtk/Objects/Invisible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Invisible.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.Invisible 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 Invisible = Invisible (ForeignPtr Invisible) -instance GObject Invisible where -class GObject o => InvisibleK o -instance (GObject o, IsDescendantOf Invisible o) => InvisibleK o -data InvisibleScreenPropertyInfo -data InvisibleGetScreenMethodInfo -data InvisibleSetScreenMethodInfo diff --git a/GI/Gtk/Objects/Label.hs b/GI/Gtk/Objects/Label.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Label.hs +++ /dev/null @@ -1,3243 +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.Gtk.Objects.Label - ( - --- * Exported types - Label(..) , - LabelK , - toLabel , - noLabel , - - - -- * Methods --- ** labelGetAngle - LabelGetAngleMethodInfo , - labelGetAngle , - - --- ** labelGetAttributes - LabelGetAttributesMethodInfo , - labelGetAttributes , - - --- ** labelGetCurrentUri - LabelGetCurrentUriMethodInfo , - labelGetCurrentUri , - - --- ** labelGetEllipsize - LabelGetEllipsizeMethodInfo , - labelGetEllipsize , - - --- ** labelGetJustify - LabelGetJustifyMethodInfo , - labelGetJustify , - - --- ** labelGetLabel - LabelGetLabelMethodInfo , - labelGetLabel , - - --- ** labelGetLayout - LabelGetLayoutMethodInfo , - labelGetLayout , - - --- ** labelGetLayoutOffsets - LabelGetLayoutOffsetsMethodInfo , - labelGetLayoutOffsets , - - --- ** labelGetLineWrap - LabelGetLineWrapMethodInfo , - labelGetLineWrap , - - --- ** labelGetLineWrapMode - LabelGetLineWrapModeMethodInfo , - labelGetLineWrapMode , - - --- ** labelGetLines - LabelGetLinesMethodInfo , - labelGetLines , - - --- ** labelGetMaxWidthChars - LabelGetMaxWidthCharsMethodInfo , - labelGetMaxWidthChars , - - --- ** labelGetMnemonicKeyval - LabelGetMnemonicKeyvalMethodInfo , - labelGetMnemonicKeyval , - - --- ** labelGetMnemonicWidget - LabelGetMnemonicWidgetMethodInfo , - labelGetMnemonicWidget , - - --- ** labelGetSelectable - LabelGetSelectableMethodInfo , - labelGetSelectable , - - --- ** labelGetSelectionBounds - LabelGetSelectionBoundsMethodInfo , - labelGetSelectionBounds , - - --- ** labelGetSingleLineMode - LabelGetSingleLineModeMethodInfo , - labelGetSingleLineMode , - - --- ** labelGetText - LabelGetTextMethodInfo , - labelGetText , - - --- ** labelGetTrackVisitedLinks - LabelGetTrackVisitedLinksMethodInfo , - labelGetTrackVisitedLinks , - - --- ** labelGetUseMarkup - LabelGetUseMarkupMethodInfo , - labelGetUseMarkup , - - --- ** labelGetUseUnderline - LabelGetUseUnderlineMethodInfo , - labelGetUseUnderline , - - --- ** labelGetWidthChars - LabelGetWidthCharsMethodInfo , - labelGetWidthChars , - - --- ** labelGetXalign - LabelGetXalignMethodInfo , - labelGetXalign , - - --- ** labelGetYalign - LabelGetYalignMethodInfo , - labelGetYalign , - - --- ** labelNew - labelNew , - - --- ** labelNewWithMnemonic - labelNewWithMnemonic , - - --- ** labelSelectRegion - LabelSelectRegionMethodInfo , - labelSelectRegion , - - --- ** labelSetAngle - LabelSetAngleMethodInfo , - labelSetAngle , - - --- ** labelSetAttributes - LabelSetAttributesMethodInfo , - labelSetAttributes , - - --- ** labelSetEllipsize - LabelSetEllipsizeMethodInfo , - labelSetEllipsize , - - --- ** labelSetJustify - LabelSetJustifyMethodInfo , - labelSetJustify , - - --- ** labelSetLabel - LabelSetLabelMethodInfo , - labelSetLabel , - - --- ** labelSetLineWrap - LabelSetLineWrapMethodInfo , - labelSetLineWrap , - - --- ** labelSetLineWrapMode - LabelSetLineWrapModeMethodInfo , - labelSetLineWrapMode , - - --- ** labelSetLines - LabelSetLinesMethodInfo , - labelSetLines , - - --- ** labelSetMarkup - LabelSetMarkupMethodInfo , - labelSetMarkup , - - --- ** labelSetMarkupWithMnemonic - LabelSetMarkupWithMnemonicMethodInfo , - labelSetMarkupWithMnemonic , - - --- ** labelSetMaxWidthChars - LabelSetMaxWidthCharsMethodInfo , - labelSetMaxWidthChars , - - --- ** labelSetMnemonicWidget - LabelSetMnemonicWidgetMethodInfo , - labelSetMnemonicWidget , - - --- ** labelSetPattern - LabelSetPatternMethodInfo , - labelSetPattern , - - --- ** labelSetSelectable - LabelSetSelectableMethodInfo , - labelSetSelectable , - - --- ** labelSetSingleLineMode - LabelSetSingleLineModeMethodInfo , - labelSetSingleLineMode , - - --- ** labelSetText - LabelSetTextMethodInfo , - labelSetText , - - --- ** labelSetTextWithMnemonic - LabelSetTextWithMnemonicMethodInfo , - labelSetTextWithMnemonic , - - --- ** labelSetTrackVisitedLinks - LabelSetTrackVisitedLinksMethodInfo , - labelSetTrackVisitedLinks , - - --- ** labelSetUseMarkup - LabelSetUseMarkupMethodInfo , - labelSetUseMarkup , - - --- ** labelSetUseUnderline - LabelSetUseUnderlineMethodInfo , - labelSetUseUnderline , - - --- ** labelSetWidthChars - LabelSetWidthCharsMethodInfo , - labelSetWidthChars , - - --- ** labelSetXalign - LabelSetXalignMethodInfo , - labelSetXalign , - - --- ** labelSetYalign - LabelSetYalignMethodInfo , - labelSetYalign , - - - - - -- * Properties --- ** Angle - LabelAnglePropertyInfo , - constructLabelAngle , - getLabelAngle , - labelAngle , - setLabelAngle , - - --- ** Attributes - LabelAttributesPropertyInfo , - clearLabelAttributes , - constructLabelAttributes , - getLabelAttributes , - labelAttributes , - setLabelAttributes , - - --- ** CursorPosition - LabelCursorPositionPropertyInfo , - getLabelCursorPosition , - labelCursorPosition , - - --- ** Ellipsize - LabelEllipsizePropertyInfo , - constructLabelEllipsize , - getLabelEllipsize , - labelEllipsize , - setLabelEllipsize , - - --- ** Justify - LabelJustifyPropertyInfo , - constructLabelJustify , - getLabelJustify , - labelJustify , - setLabelJustify , - - --- ** Label - LabelLabelPropertyInfo , - constructLabelLabel , - getLabelLabel , - labelLabel , - setLabelLabel , - - --- ** Lines - LabelLinesPropertyInfo , - constructLabelLines , - getLabelLines , - labelLines , - setLabelLines , - - --- ** MaxWidthChars - LabelMaxWidthCharsPropertyInfo , - constructLabelMaxWidthChars , - getLabelMaxWidthChars , - labelMaxWidthChars , - setLabelMaxWidthChars , - - --- ** MnemonicKeyval - LabelMnemonicKeyvalPropertyInfo , - getLabelMnemonicKeyval , - labelMnemonicKeyval , - - --- ** MnemonicWidget - LabelMnemonicWidgetPropertyInfo , - clearLabelMnemonicWidget , - constructLabelMnemonicWidget , - getLabelMnemonicWidget , - labelMnemonicWidget , - setLabelMnemonicWidget , - - --- ** Pattern - LabelPatternPropertyInfo , - constructLabelPattern , - labelPattern , - setLabelPattern , - - --- ** Selectable - LabelSelectablePropertyInfo , - constructLabelSelectable , - getLabelSelectable , - labelSelectable , - setLabelSelectable , - - --- ** SelectionBound - LabelSelectionBoundPropertyInfo , - getLabelSelectionBound , - labelSelectionBound , - - --- ** SingleLineMode - LabelSingleLineModePropertyInfo , - constructLabelSingleLineMode , - getLabelSingleLineMode , - labelSingleLineMode , - setLabelSingleLineMode , - - --- ** TrackVisitedLinks - LabelTrackVisitedLinksPropertyInfo , - constructLabelTrackVisitedLinks , - getLabelTrackVisitedLinks , - labelTrackVisitedLinks , - setLabelTrackVisitedLinks , - - --- ** UseMarkup - LabelUseMarkupPropertyInfo , - constructLabelUseMarkup , - getLabelUseMarkup , - labelUseMarkup , - setLabelUseMarkup , - - --- ** UseUnderline - LabelUseUnderlinePropertyInfo , - constructLabelUseUnderline , - getLabelUseUnderline , - labelUseUnderline , - setLabelUseUnderline , - - --- ** WidthChars - LabelWidthCharsPropertyInfo , - constructLabelWidthChars , - getLabelWidthChars , - labelWidthChars , - setLabelWidthChars , - - --- ** Wrap - LabelWrapPropertyInfo , - constructLabelWrap , - getLabelWrap , - labelWrap , - setLabelWrap , - - --- ** WrapMode - LabelWrapModePropertyInfo , - constructLabelWrapMode , - getLabelWrapMode , - labelWrapMode , - setLabelWrapMode , - - --- ** Xalign - LabelXalignPropertyInfo , - constructLabelXalign , - getLabelXalign , - labelXalign , - setLabelXalign , - - --- ** Yalign - LabelYalignPropertyInfo , - constructLabelYalign , - getLabelYalign , - labelYalign , - setLabelYalign , - - - - - -- * Signals --- ** ActivateCurrentLink - LabelActivateCurrentLinkCallback , - LabelActivateCurrentLinkCallbackC , - LabelActivateCurrentLinkSignalInfo , - afterLabelActivateCurrentLink , - labelActivateCurrentLinkCallbackWrapper , - labelActivateCurrentLinkClosure , - mkLabelActivateCurrentLinkCallback , - noLabelActivateCurrentLinkCallback , - onLabelActivateCurrentLink , - - --- ** ActivateLink - LabelActivateLinkCallback , - LabelActivateLinkCallbackC , - LabelActivateLinkSignalInfo , - afterLabelActivateLink , - labelActivateLinkCallbackWrapper , - labelActivateLinkClosure , - mkLabelActivateLinkCallback , - noLabelActivateLinkCallback , - onLabelActivateLink , - - --- ** CopyClipboard - LabelCopyClipboardCallback , - LabelCopyClipboardCallbackC , - LabelCopyClipboardSignalInfo , - afterLabelCopyClipboard , - labelCopyClipboardCallbackWrapper , - labelCopyClipboardClosure , - mkLabelCopyClipboardCallback , - noLabelCopyClipboardCallback , - onLabelCopyClipboard , - - --- ** MoveCursor - LabelMoveCursorCallback , - LabelMoveCursorCallbackC , - LabelMoveCursorSignalInfo , - afterLabelMoveCursor , - labelMoveCursorCallbackWrapper , - labelMoveCursorClosure , - mkLabelMoveCursorCallback , - noLabelMoveCursorCallback , - onLabelMoveCursor , - - --- ** PopulatePopup - LabelPopulatePopupCallback , - LabelPopulatePopupCallbackC , - LabelPopulatePopupSignalInfo , - afterLabelPopulatePopup , - labelPopulatePopupCallbackWrapper , - labelPopulatePopupClosure , - mkLabelPopulatePopupCallback , - noLabelPopulatePopupCallback , - onLabelPopulatePopup , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype Label = Label (ForeignPtr Label) -foreign import ccall "gtk_label_get_type" - c_gtk_label_get_type :: IO GType - -type instance ParentTypes Label = LabelParentTypes -type LabelParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Label where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_label_get_type - - -class GObject o => LabelK o -instance (GObject o, IsDescendantOf Label o) => LabelK o - -toLabel :: LabelK o => o -> IO Label -toLabel = unsafeCastTo Label - -noLabel :: Maybe Label -noLabel = Nothing - -type family ResolveLabelMethod (t :: Symbol) (o :: *) :: * where - ResolveLabelMethod "activate" o = WidgetActivateMethodInfo - ResolveLabelMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveLabelMethod "addChild" o = BuildableAddChildMethodInfo - ResolveLabelMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveLabelMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveLabelMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveLabelMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveLabelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLabelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLabelMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveLabelMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveLabelMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveLabelMethod "classPath" o = WidgetClassPathMethodInfo - ResolveLabelMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveLabelMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveLabelMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveLabelMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveLabelMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveLabelMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveLabelMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveLabelMethod "destroy" o = WidgetDestroyMethodInfo - ResolveLabelMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveLabelMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveLabelMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveLabelMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveLabelMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveLabelMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveLabelMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveLabelMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveLabelMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveLabelMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveLabelMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveLabelMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveLabelMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveLabelMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveLabelMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveLabelMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveLabelMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveLabelMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveLabelMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveLabelMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveLabelMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveLabelMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveLabelMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveLabelMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveLabelMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveLabelMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveLabelMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveLabelMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveLabelMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveLabelMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveLabelMethod "draw" o = WidgetDrawMethodInfo - ResolveLabelMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveLabelMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveLabelMethod "event" o = WidgetEventMethodInfo - ResolveLabelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLabelMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveLabelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLabelMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveLabelMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveLabelMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveLabelMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveLabelMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveLabelMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveLabelMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveLabelMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveLabelMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveLabelMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveLabelMethod "hide" o = WidgetHideMethodInfo - ResolveLabelMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveLabelMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveLabelMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveLabelMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveLabelMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveLabelMethod "intersect" o = WidgetIntersectMethodInfo - ResolveLabelMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveLabelMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveLabelMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveLabelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLabelMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveLabelMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveLabelMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveLabelMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveLabelMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveLabelMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveLabelMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveLabelMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveLabelMethod "map" o = WidgetMapMethodInfo - ResolveLabelMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveLabelMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveLabelMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveLabelMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveLabelMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveLabelMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveLabelMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveLabelMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveLabelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLabelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLabelMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveLabelMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveLabelMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveLabelMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveLabelMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveLabelMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveLabelMethod "path" o = WidgetPathMethodInfo - ResolveLabelMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveLabelMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveLabelMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveLabelMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveLabelMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveLabelMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveLabelMethod "realize" o = WidgetRealizeMethodInfo - ResolveLabelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLabelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLabelMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveLabelMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveLabelMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveLabelMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveLabelMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveLabelMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveLabelMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveLabelMethod "reparent" o = WidgetReparentMethodInfo - ResolveLabelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLabelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLabelMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveLabelMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveLabelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLabelMethod "selectRegion" o = LabelSelectRegionMethodInfo - ResolveLabelMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveLabelMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveLabelMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveLabelMethod "show" o = WidgetShowMethodInfo - ResolveLabelMethod "showAll" o = WidgetShowAllMethodInfo - ResolveLabelMethod "showNow" o = WidgetShowNowMethodInfo - ResolveLabelMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveLabelMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveLabelMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveLabelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLabelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLabelMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveLabelMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveLabelMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveLabelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLabelMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveLabelMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveLabelMethod "unmap" o = WidgetUnmapMethodInfo - ResolveLabelMethod "unparent" o = WidgetUnparentMethodInfo - ResolveLabelMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveLabelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLabelMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveLabelMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveLabelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLabelMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveLabelMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveLabelMethod "getAlignment" o = MiscGetAlignmentMethodInfo - ResolveLabelMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveLabelMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveLabelMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveLabelMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveLabelMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveLabelMethod "getAngle" o = LabelGetAngleMethodInfo - ResolveLabelMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveLabelMethod "getAttributes" o = LabelGetAttributesMethodInfo - ResolveLabelMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveLabelMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveLabelMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveLabelMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveLabelMethod "getClip" o = WidgetGetClipMethodInfo - ResolveLabelMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveLabelMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveLabelMethod "getCurrentUri" o = LabelGetCurrentUriMethodInfo - ResolveLabelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLabelMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveLabelMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveLabelMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveLabelMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveLabelMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveLabelMethod "getEllipsize" o = LabelGetEllipsizeMethodInfo - ResolveLabelMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveLabelMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveLabelMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveLabelMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveLabelMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveLabelMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveLabelMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveLabelMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveLabelMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveLabelMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveLabelMethod "getJustify" o = LabelGetJustifyMethodInfo - ResolveLabelMethod "getLabel" o = LabelGetLabelMethodInfo - ResolveLabelMethod "getLayout" o = LabelGetLayoutMethodInfo - ResolveLabelMethod "getLayoutOffsets" o = LabelGetLayoutOffsetsMethodInfo - ResolveLabelMethod "getLineWrap" o = LabelGetLineWrapMethodInfo - ResolveLabelMethod "getLineWrapMode" o = LabelGetLineWrapModeMethodInfo - ResolveLabelMethod "getLines" o = LabelGetLinesMethodInfo - ResolveLabelMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveLabelMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveLabelMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveLabelMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveLabelMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveLabelMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveLabelMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveLabelMethod "getMaxWidthChars" o = LabelGetMaxWidthCharsMethodInfo - ResolveLabelMethod "getMnemonicKeyval" o = LabelGetMnemonicKeyvalMethodInfo - ResolveLabelMethod "getMnemonicWidget" o = LabelGetMnemonicWidgetMethodInfo - ResolveLabelMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveLabelMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveLabelMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveLabelMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveLabelMethod "getPadding" o = MiscGetPaddingMethodInfo - ResolveLabelMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveLabelMethod "getParent" o = WidgetGetParentMethodInfo - ResolveLabelMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveLabelMethod "getPath" o = WidgetGetPathMethodInfo - ResolveLabelMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveLabelMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveLabelMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveLabelMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveLabelMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveLabelMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveLabelMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveLabelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLabelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLabelMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveLabelMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveLabelMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveLabelMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveLabelMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveLabelMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveLabelMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveLabelMethod "getSelectable" o = LabelGetSelectableMethodInfo - ResolveLabelMethod "getSelectionBounds" o = LabelGetSelectionBoundsMethodInfo - ResolveLabelMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveLabelMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveLabelMethod "getSingleLineMode" o = LabelGetSingleLineModeMethodInfo - ResolveLabelMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveLabelMethod "getState" o = WidgetGetStateMethodInfo - ResolveLabelMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveLabelMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveLabelMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveLabelMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveLabelMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveLabelMethod "getText" o = LabelGetTextMethodInfo - ResolveLabelMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveLabelMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveLabelMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveLabelMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveLabelMethod "getTrackVisitedLinks" o = LabelGetTrackVisitedLinksMethodInfo - ResolveLabelMethod "getUseMarkup" o = LabelGetUseMarkupMethodInfo - ResolveLabelMethod "getUseUnderline" o = LabelGetUseUnderlineMethodInfo - ResolveLabelMethod "getValign" o = WidgetGetValignMethodInfo - ResolveLabelMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveLabelMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveLabelMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveLabelMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveLabelMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveLabelMethod "getWidthChars" o = LabelGetWidthCharsMethodInfo - ResolveLabelMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveLabelMethod "getXalign" o = LabelGetXalignMethodInfo - ResolveLabelMethod "getYalign" o = LabelGetYalignMethodInfo - ResolveLabelMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveLabelMethod "setAlignment" o = MiscSetAlignmentMethodInfo - ResolveLabelMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveLabelMethod "setAngle" o = LabelSetAngleMethodInfo - ResolveLabelMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveLabelMethod "setAttributes" o = LabelSetAttributesMethodInfo - ResolveLabelMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveLabelMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveLabelMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveLabelMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveLabelMethod "setClip" o = WidgetSetClipMethodInfo - ResolveLabelMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveLabelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLabelMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveLabelMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveLabelMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveLabelMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveLabelMethod "setEllipsize" o = LabelSetEllipsizeMethodInfo - ResolveLabelMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveLabelMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveLabelMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveLabelMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveLabelMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveLabelMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveLabelMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveLabelMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveLabelMethod "setJustify" o = LabelSetJustifyMethodInfo - ResolveLabelMethod "setLabel" o = LabelSetLabelMethodInfo - ResolveLabelMethod "setLineWrap" o = LabelSetLineWrapMethodInfo - ResolveLabelMethod "setLineWrapMode" o = LabelSetLineWrapModeMethodInfo - ResolveLabelMethod "setLines" o = LabelSetLinesMethodInfo - ResolveLabelMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveLabelMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveLabelMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveLabelMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveLabelMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveLabelMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveLabelMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveLabelMethod "setMarkup" o = LabelSetMarkupMethodInfo - ResolveLabelMethod "setMarkupWithMnemonic" o = LabelSetMarkupWithMnemonicMethodInfo - ResolveLabelMethod "setMaxWidthChars" o = LabelSetMaxWidthCharsMethodInfo - ResolveLabelMethod "setMnemonicWidget" o = LabelSetMnemonicWidgetMethodInfo - ResolveLabelMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveLabelMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveLabelMethod "setPadding" o = MiscSetPaddingMethodInfo - ResolveLabelMethod "setParent" o = WidgetSetParentMethodInfo - ResolveLabelMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveLabelMethod "setPattern" o = LabelSetPatternMethodInfo - ResolveLabelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLabelMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveLabelMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveLabelMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveLabelMethod "setSelectable" o = LabelSetSelectableMethodInfo - ResolveLabelMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveLabelMethod "setSingleLineMode" o = LabelSetSingleLineModeMethodInfo - ResolveLabelMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveLabelMethod "setState" o = WidgetSetStateMethodInfo - ResolveLabelMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveLabelMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveLabelMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveLabelMethod "setText" o = LabelSetTextMethodInfo - ResolveLabelMethod "setTextWithMnemonic" o = LabelSetTextWithMnemonicMethodInfo - ResolveLabelMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveLabelMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveLabelMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveLabelMethod "setTrackVisitedLinks" o = LabelSetTrackVisitedLinksMethodInfo - ResolveLabelMethod "setUseMarkup" o = LabelSetUseMarkupMethodInfo - ResolveLabelMethod "setUseUnderline" o = LabelSetUseUnderlineMethodInfo - ResolveLabelMethod "setValign" o = WidgetSetValignMethodInfo - ResolveLabelMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveLabelMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveLabelMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveLabelMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveLabelMethod "setWidthChars" o = LabelSetWidthCharsMethodInfo - ResolveLabelMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveLabelMethod "setXalign" o = LabelSetXalignMethodInfo - ResolveLabelMethod "setYalign" o = LabelSetYalignMethodInfo - ResolveLabelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLabelMethod t Label, MethodInfo info Label p) => IsLabelProxy t (Label -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLabelMethod t Label, MethodInfo info Label p) => IsLabel t (Label -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Label::activate-current-link -type LabelActivateCurrentLinkCallback = - IO () - -noLabelActivateCurrentLinkCallback :: Maybe LabelActivateCurrentLinkCallback -noLabelActivateCurrentLinkCallback = Nothing - -type LabelActivateCurrentLinkCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelActivateCurrentLinkCallback :: LabelActivateCurrentLinkCallbackC -> IO (FunPtr LabelActivateCurrentLinkCallbackC) - -labelActivateCurrentLinkClosure :: LabelActivateCurrentLinkCallback -> IO Closure -labelActivateCurrentLinkClosure cb = newCClosure =<< mkLabelActivateCurrentLinkCallback wrapped - where wrapped = labelActivateCurrentLinkCallbackWrapper cb - -labelActivateCurrentLinkCallbackWrapper :: - LabelActivateCurrentLinkCallback -> - Ptr () -> - Ptr () -> - IO () -labelActivateCurrentLinkCallbackWrapper _cb _ _ = do - _cb - -onLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId -onLabelActivateCurrentLink obj cb = liftIO $ connectLabelActivateCurrentLink obj cb SignalConnectBefore -afterLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId -afterLabelActivateCurrentLink obj cb = connectLabelActivateCurrentLink obj cb SignalConnectAfter - -connectLabelActivateCurrentLink :: (GObject a, MonadIO m) => - a -> LabelActivateCurrentLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelActivateCurrentLink obj cb after = liftIO $ do - cb' <- mkLabelActivateCurrentLinkCallback (labelActivateCurrentLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-current-link" cb' after - --- signal Label::activate-link -type LabelActivateLinkCallback = - T.Text -> - IO Bool - -noLabelActivateLinkCallback :: Maybe LabelActivateLinkCallback -noLabelActivateLinkCallback = Nothing - -type LabelActivateLinkCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkLabelActivateLinkCallback :: LabelActivateLinkCallbackC -> IO (FunPtr LabelActivateLinkCallbackC) - -labelActivateLinkClosure :: LabelActivateLinkCallback -> IO Closure -labelActivateLinkClosure cb = newCClosure =<< mkLabelActivateLinkCallback wrapped - where wrapped = labelActivateLinkCallbackWrapper cb - -labelActivateLinkCallbackWrapper :: - LabelActivateLinkCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CInt -labelActivateLinkCallbackWrapper _cb _ uri _ = do - uri' <- cstringToText uri - result <- _cb uri' - let result' = (fromIntegral . fromEnum) result - return result' - -onLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId -onLabelActivateLink obj cb = liftIO $ connectLabelActivateLink obj cb SignalConnectBefore -afterLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId -afterLabelActivateLink obj cb = connectLabelActivateLink obj cb SignalConnectAfter - -connectLabelActivateLink :: (GObject a, MonadIO m) => - a -> LabelActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelActivateLink obj cb after = liftIO $ do - cb' <- mkLabelActivateLinkCallback (labelActivateLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-link" cb' after - --- signal Label::copy-clipboard -type LabelCopyClipboardCallback = - IO () - -noLabelCopyClipboardCallback :: Maybe LabelCopyClipboardCallback -noLabelCopyClipboardCallback = Nothing - -type LabelCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelCopyClipboardCallback :: LabelCopyClipboardCallbackC -> IO (FunPtr LabelCopyClipboardCallbackC) - -labelCopyClipboardClosure :: LabelCopyClipboardCallback -> IO Closure -labelCopyClipboardClosure cb = newCClosure =<< mkLabelCopyClipboardCallback wrapped - where wrapped = labelCopyClipboardCallbackWrapper cb - -labelCopyClipboardCallbackWrapper :: - LabelCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -labelCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId -onLabelCopyClipboard obj cb = liftIO $ connectLabelCopyClipboard obj cb SignalConnectBefore -afterLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId -afterLabelCopyClipboard obj cb = connectLabelCopyClipboard obj cb SignalConnectAfter - -connectLabelCopyClipboard :: (GObject a, MonadIO m) => - a -> LabelCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelCopyClipboard obj cb after = liftIO $ do - cb' <- mkLabelCopyClipboardCallback (labelCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal Label::move-cursor -type LabelMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noLabelMoveCursorCallback :: Maybe LabelMoveCursorCallback -noLabelMoveCursorCallback = Nothing - -type LabelMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelMoveCursorCallback :: LabelMoveCursorCallbackC -> IO (FunPtr LabelMoveCursorCallbackC) - -labelMoveCursorClosure :: LabelMoveCursorCallback -> IO Closure -labelMoveCursorClosure cb = newCClosure =<< mkLabelMoveCursorCallback wrapped - where wrapped = labelMoveCursorCallbackWrapper cb - -labelMoveCursorCallbackWrapper :: - LabelMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -labelMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do - let step' = (toEnum . fromIntegral) step - let extendSelection' = (/= 0) extendSelection - _cb step' count extendSelection' - -onLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId -onLabelMoveCursor obj cb = liftIO $ connectLabelMoveCursor obj cb SignalConnectBefore -afterLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId -afterLabelMoveCursor obj cb = connectLabelMoveCursor obj cb SignalConnectAfter - -connectLabelMoveCursor :: (GObject a, MonadIO m) => - a -> LabelMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelMoveCursor obj cb after = liftIO $ do - cb' <- mkLabelMoveCursorCallback (labelMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal Label::populate-popup -type LabelPopulatePopupCallback = - Menu -> - IO () - -noLabelPopulatePopupCallback :: Maybe LabelPopulatePopupCallback -noLabelPopulatePopupCallback = Nothing - -type LabelPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Menu -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelPopulatePopupCallback :: LabelPopulatePopupCallbackC -> IO (FunPtr LabelPopulatePopupCallbackC) - -labelPopulatePopupClosure :: LabelPopulatePopupCallback -> IO Closure -labelPopulatePopupClosure cb = newCClosure =<< mkLabelPopulatePopupCallback wrapped - where wrapped = labelPopulatePopupCallbackWrapper cb - -labelPopulatePopupCallbackWrapper :: - LabelPopulatePopupCallback -> - Ptr () -> - Ptr Menu -> - Ptr () -> - IO () -labelPopulatePopupCallbackWrapper _cb _ menu _ = do - menu' <- (newObject Menu) menu - _cb menu' - -onLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId -onLabelPopulatePopup obj cb = liftIO $ connectLabelPopulatePopup obj cb SignalConnectBefore -afterLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId -afterLabelPopulatePopup obj cb = connectLabelPopulatePopup obj cb SignalConnectAfter - -connectLabelPopulatePopup :: (GObject a, MonadIO m) => - a -> LabelPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelPopulatePopup obj cb after = liftIO $ do - cb' <- mkLabelPopulatePopupCallback (labelPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} --- VVV Prop "angle" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double -getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle" - -setLabelAngle :: (MonadIO m, LabelK o) => o -> Double -> m () -setLabelAngle obj val = liftIO $ setObjectPropertyDouble obj "angle" val - -constructLabelAngle :: Double -> IO ([Char], GValue) -constructLabelAngle val = constructObjectPropertyDouble "angle" val - -data LabelAnglePropertyInfo -instance AttrInfo LabelAnglePropertyInfo where - type AttrAllowedOps LabelAnglePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelAnglePropertyInfo = (~) Double - type AttrBaseTypeConstraint LabelAnglePropertyInfo = LabelK - type AttrGetType LabelAnglePropertyInfo = Double - type AttrLabel LabelAnglePropertyInfo = "angle" - attrGet _ = getLabelAngle - attrSet _ = setLabelAngle - attrConstruct _ = constructLabelAngle - attrClear _ = undefined - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList -getLabelAttributes obj = liftIO $ checkUnexpectedNothing "getLabelAttributes" $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () -setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) - -constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructLabelAttributes val = constructObjectPropertyBoxed "attributes" (Just val) - -clearLabelAttributes :: (MonadIO m, LabelK o) => o -> m () -clearLabelAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList) - -data LabelAttributesPropertyInfo -instance AttrInfo LabelAttributesPropertyInfo where - type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK - type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList - type AttrLabel LabelAttributesPropertyInfo = "attributes" - attrGet _ = getLabelAttributes - attrSet _ = setLabelAttributes - attrConstruct _ = constructLabelAttributes - attrClear _ = clearLabelAttributes - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" - -data LabelCursorPositionPropertyInfo -instance AttrInfo LabelCursorPositionPropertyInfo where - type AttrAllowedOps LabelCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelCursorPositionPropertyInfo = LabelK - type AttrGetType LabelCursorPositionPropertyInfo = Int32 - type AttrLabel LabelCursorPositionPropertyInfo = "cursor-position" - attrGet _ = getLabelCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode -getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" - -setLabelEllipsize :: (MonadIO m, LabelK o) => o -> Pango.EllipsizeMode -> m () -setLabelEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val - -constructLabelEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) -constructLabelEllipsize val = constructObjectPropertyEnum "ellipsize" val - -data LabelEllipsizePropertyInfo -instance AttrInfo LabelEllipsizePropertyInfo where - type AttrAllowedOps LabelEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelEllipsizePropertyInfo = (~) Pango.EllipsizeMode - type AttrBaseTypeConstraint LabelEllipsizePropertyInfo = LabelK - type AttrGetType LabelEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel LabelEllipsizePropertyInfo = "ellipsize" - attrGet _ = getLabelEllipsize - attrSet _ = setLabelEllipsize - attrConstruct _ = constructLabelEllipsize - attrClear _ = undefined - --- VVV Prop "justify" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification -getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify" - -setLabelJustify :: (MonadIO m, LabelK o) => o -> Justification -> m () -setLabelJustify obj val = liftIO $ setObjectPropertyEnum obj "justify" val - -constructLabelJustify :: Justification -> IO ([Char], GValue) -constructLabelJustify val = constructObjectPropertyEnum "justify" val - -data LabelJustifyPropertyInfo -instance AttrInfo LabelJustifyPropertyInfo where - type AttrAllowedOps LabelJustifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelJustifyPropertyInfo = (~) Justification - type AttrBaseTypeConstraint LabelJustifyPropertyInfo = LabelK - type AttrGetType LabelJustifyPropertyInfo = Justification - type AttrLabel LabelJustifyPropertyInfo = "justify" - attrGet _ = getLabelJustify - attrSet _ = setLabelJustify - attrConstruct _ = constructLabelJustify - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text -getLabelLabel obj = liftIO $ checkUnexpectedNothing "getLabelLabel" $ getObjectPropertyString obj "label" - -setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructLabelLabel :: T.Text -> IO ([Char], GValue) -constructLabelLabel val = constructObjectPropertyString "label" (Just val) - -data LabelLabelPropertyInfo -instance AttrInfo LabelLabelPropertyInfo where - type AttrAllowedOps LabelLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LabelLabelPropertyInfo = LabelK - type AttrGetType LabelLabelPropertyInfo = T.Text - type AttrLabel LabelLabelPropertyInfo = "label" - attrGet _ = getLabelLabel - attrSet _ = setLabelLabel - attrConstruct _ = constructLabelLabel - attrClear _ = undefined - --- VVV Prop "lines" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelLines obj = liftIO $ getObjectPropertyInt32 obj "lines" - -setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelLines obj val = liftIO $ setObjectPropertyInt32 obj "lines" val - -constructLabelLines :: Int32 -> IO ([Char], GValue) -constructLabelLines val = constructObjectPropertyInt32 "lines" val - -data LabelLinesPropertyInfo -instance AttrInfo LabelLinesPropertyInfo where - type AttrAllowedOps LabelLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelLinesPropertyInfo = LabelK - type AttrGetType LabelLinesPropertyInfo = Int32 - type AttrLabel LabelLinesPropertyInfo = "lines" - attrGet _ = getLabelLines - attrSet _ = setLabelLines - attrConstruct _ = constructLabelLines - attrClear _ = undefined - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" - -setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val - -constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val - -data LabelMaxWidthCharsPropertyInfo -instance AttrInfo LabelMaxWidthCharsPropertyInfo where - type AttrAllowedOps LabelMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelMaxWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelMaxWidthCharsPropertyInfo = LabelK - type AttrGetType LabelMaxWidthCharsPropertyInfo = Int32 - type AttrLabel LabelMaxWidthCharsPropertyInfo = "max-width-chars" - attrGet _ = getLabelMaxWidthChars - attrSet _ = setLabelMaxWidthChars - attrConstruct _ = constructLabelMaxWidthChars - attrClear _ = undefined - --- VVV Prop "mnemonic-keyval" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 -getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyUInt32 obj "mnemonic-keyval" - -data LabelMnemonicKeyvalPropertyInfo -instance AttrInfo LabelMnemonicKeyvalPropertyInfo where - type AttrAllowedOps LabelMnemonicKeyvalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelMnemonicKeyvalPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelMnemonicKeyvalPropertyInfo = LabelK - type AttrGetType LabelMnemonicKeyvalPropertyInfo = Word32 - type AttrLabel LabelMnemonicKeyvalPropertyInfo = "mnemonic-keyval" - attrGet _ = getLabelMnemonicKeyval - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mnemonic-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget -getLabelMnemonicWidget obj = liftIO $ checkUnexpectedNothing "getLabelMnemonicWidget" $ getObjectPropertyObject obj "mnemonic-widget" Widget - -setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () -setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Just val) - -constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" (Just val) - -clearLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m () -clearLabelMnemonicWidget obj = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Nothing :: Maybe Widget) - -data LabelMnemonicWidgetPropertyInfo -instance AttrInfo LabelMnemonicWidgetPropertyInfo where - type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK - type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget - type AttrLabel LabelMnemonicWidgetPropertyInfo = "mnemonic-widget" - attrGet _ = getLabelMnemonicWidget - attrSet _ = setLabelMnemonicWidget - attrConstruct _ = constructLabelMnemonicWidget - attrClear _ = clearLabelMnemonicWidget - --- VVV Prop "pattern" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Just False) - -setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" (Just val) - -constructLabelPattern :: T.Text -> IO ([Char], GValue) -constructLabelPattern val = constructObjectPropertyString "pattern" (Just val) - -data LabelPatternPropertyInfo -instance AttrInfo LabelPatternPropertyInfo where - type AttrAllowedOps LabelPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint LabelPatternPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LabelPatternPropertyInfo = LabelK - type AttrGetType LabelPatternPropertyInfo = () - type AttrLabel LabelPatternPropertyInfo = "pattern" - attrGet _ = undefined - attrSet _ = setLabelPattern - attrConstruct _ = constructLabelPattern - attrClear _ = undefined - --- VVV Prop "selectable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool -getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" - -setLabelSelectable :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelSelectable obj val = liftIO $ setObjectPropertyBool obj "selectable" val - -constructLabelSelectable :: Bool -> IO ([Char], GValue) -constructLabelSelectable val = constructObjectPropertyBool "selectable" val - -data LabelSelectablePropertyInfo -instance AttrInfo LabelSelectablePropertyInfo where - type AttrAllowedOps LabelSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelSelectablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelSelectablePropertyInfo = LabelK - type AttrGetType LabelSelectablePropertyInfo = Bool - type AttrLabel LabelSelectablePropertyInfo = "selectable" - attrGet _ = getLabelSelectable - attrSet _ = setLabelSelectable - attrConstruct _ = constructLabelSelectable - attrClear _ = undefined - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelSelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" - -data LabelSelectionBoundPropertyInfo -instance AttrInfo LabelSelectionBoundPropertyInfo where - type AttrAllowedOps LabelSelectionBoundPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelSelectionBoundPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelSelectionBoundPropertyInfo = LabelK - type AttrGetType LabelSelectionBoundPropertyInfo = Int32 - type AttrLabel LabelSelectionBoundPropertyInfo = "selection-bound" - attrGet _ = getLabelSelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "single-line-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool -getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode" - -setLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelSingleLineMode obj val = liftIO $ setObjectPropertyBool obj "single-line-mode" val - -constructLabelSingleLineMode :: Bool -> IO ([Char], GValue) -constructLabelSingleLineMode val = constructObjectPropertyBool "single-line-mode" val - -data LabelSingleLineModePropertyInfo -instance AttrInfo LabelSingleLineModePropertyInfo where - type AttrAllowedOps LabelSingleLineModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelSingleLineModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelSingleLineModePropertyInfo = LabelK - type AttrGetType LabelSingleLineModePropertyInfo = Bool - type AttrLabel LabelSingleLineModePropertyInfo = "single-line-mode" - attrGet _ = getLabelSingleLineMode - attrSet _ = setLabelSingleLineMode - attrConstruct _ = constructLabelSingleLineMode - attrClear _ = undefined - --- VVV Prop "track-visited-links" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool -getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links" - -setLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelTrackVisitedLinks obj val = liftIO $ setObjectPropertyBool obj "track-visited-links" val - -constructLabelTrackVisitedLinks :: Bool -> IO ([Char], GValue) -constructLabelTrackVisitedLinks val = constructObjectPropertyBool "track-visited-links" val - -data LabelTrackVisitedLinksPropertyInfo -instance AttrInfo LabelTrackVisitedLinksPropertyInfo where - type AttrAllowedOps LabelTrackVisitedLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelTrackVisitedLinksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelTrackVisitedLinksPropertyInfo = LabelK - type AttrGetType LabelTrackVisitedLinksPropertyInfo = Bool - type AttrLabel LabelTrackVisitedLinksPropertyInfo = "track-visited-links" - attrGet _ = getLabelTrackVisitedLinks - attrSet _ = setLabelTrackVisitedLinks - attrConstruct _ = constructLabelTrackVisitedLinks - attrClear _ = undefined - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool -getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" - -setLabelUseMarkup :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val - -constructLabelUseMarkup :: Bool -> IO ([Char], GValue) -constructLabelUseMarkup val = constructObjectPropertyBool "use-markup" val - -data LabelUseMarkupPropertyInfo -instance AttrInfo LabelUseMarkupPropertyInfo where - type AttrAllowedOps LabelUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelUseMarkupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelUseMarkupPropertyInfo = LabelK - type AttrGetType LabelUseMarkupPropertyInfo = Bool - type AttrLabel LabelUseMarkupPropertyInfo = "use-markup" - attrGet _ = getLabelUseMarkup - attrSet _ = setLabelUseMarkup - attrConstruct _ = constructLabelUseMarkup - attrClear _ = undefined - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool -getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setLabelUseUnderline :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructLabelUseUnderline :: Bool -> IO ([Char], GValue) -constructLabelUseUnderline val = constructObjectPropertyBool "use-underline" val - -data LabelUseUnderlinePropertyInfo -instance AttrInfo LabelUseUnderlinePropertyInfo where - type AttrAllowedOps LabelUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelUseUnderlinePropertyInfo = LabelK - type AttrGetType LabelUseUnderlinePropertyInfo = Bool - type AttrLabel LabelUseUnderlinePropertyInfo = "use-underline" - attrGet _ = getLabelUseUnderline - attrSet _ = setLabelUseUnderline - attrConstruct _ = constructLabelUseUnderline - attrClear _ = undefined - --- VVV Prop "width-chars" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" - -setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val - -constructLabelWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelWidthChars val = constructObjectPropertyInt32 "width-chars" val - -data LabelWidthCharsPropertyInfo -instance AttrInfo LabelWidthCharsPropertyInfo where - type AttrAllowedOps LabelWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelWidthCharsPropertyInfo = LabelK - type AttrGetType LabelWidthCharsPropertyInfo = Int32 - type AttrLabel LabelWidthCharsPropertyInfo = "width-chars" - attrGet _ = getLabelWidthChars - attrSet _ = setLabelWidthChars - attrConstruct _ = constructLabelWidthChars - attrClear _ = undefined - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool -getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap" - -setLabelWrap :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val - -constructLabelWrap :: Bool -> IO ([Char], GValue) -constructLabelWrap val = constructObjectPropertyBool "wrap" val - -data LabelWrapPropertyInfo -instance AttrInfo LabelWrapPropertyInfo where - type AttrAllowedOps LabelWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWrapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelWrapPropertyInfo = LabelK - type AttrGetType LabelWrapPropertyInfo = Bool - type AttrLabel LabelWrapPropertyInfo = "wrap" - attrGet _ = getLabelWrap - attrSet _ = setLabelWrap - attrConstruct _ = constructLabelWrap - attrClear _ = undefined - --- VVV Prop "wrap-mode" - -- Type: TInterface "Pango" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode -getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setLabelWrapMode :: (MonadIO m, LabelK o) => o -> Pango.WrapMode -> m () -setLabelWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructLabelWrapMode :: Pango.WrapMode -> IO ([Char], GValue) -constructLabelWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data LabelWrapModePropertyInfo -instance AttrInfo LabelWrapModePropertyInfo where - type AttrAllowedOps LabelWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWrapModePropertyInfo = (~) Pango.WrapMode - type AttrBaseTypeConstraint LabelWrapModePropertyInfo = LabelK - type AttrGetType LabelWrapModePropertyInfo = Pango.WrapMode - type AttrLabel LabelWrapModePropertyInfo = "wrap-mode" - attrGet _ = getLabelWrapMode - attrSet _ = setLabelWrapMode - attrConstruct _ = constructLabelWrapMode - attrClear _ = undefined - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float -getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setLabelXalign :: (MonadIO m, LabelK o) => o -> Float -> m () -setLabelXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructLabelXalign :: Float -> IO ([Char], GValue) -constructLabelXalign val = constructObjectPropertyFloat "xalign" val - -data LabelXalignPropertyInfo -instance AttrInfo LabelXalignPropertyInfo where - type AttrAllowedOps LabelXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint LabelXalignPropertyInfo = LabelK - type AttrGetType LabelXalignPropertyInfo = Float - type AttrLabel LabelXalignPropertyInfo = "xalign" - attrGet _ = getLabelXalign - attrSet _ = setLabelXalign - attrConstruct _ = constructLabelXalign - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float -getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setLabelYalign :: (MonadIO m, LabelK o) => o -> Float -> m () -setLabelYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructLabelYalign :: Float -> IO ([Char], GValue) -constructLabelYalign val = constructObjectPropertyFloat "yalign" val - -data LabelYalignPropertyInfo -instance AttrInfo LabelYalignPropertyInfo where - type AttrAllowedOps LabelYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint LabelYalignPropertyInfo = LabelK - type AttrGetType LabelYalignPropertyInfo = Float - type AttrLabel LabelYalignPropertyInfo = "yalign" - attrGet _ = getLabelYalign - attrSet _ = setLabelYalign - attrConstruct _ = constructLabelYalign - attrClear _ = undefined - -type instance AttributeList Label = LabelAttributeList -type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -labelAngle :: AttrLabelProxy "angle" -labelAngle = AttrLabelProxy - -labelAttributes :: AttrLabelProxy "attributes" -labelAttributes = AttrLabelProxy - -labelCursorPosition :: AttrLabelProxy "cursorPosition" -labelCursorPosition = AttrLabelProxy - -labelEllipsize :: AttrLabelProxy "ellipsize" -labelEllipsize = AttrLabelProxy - -labelJustify :: AttrLabelProxy "justify" -labelJustify = AttrLabelProxy - -labelLabel :: AttrLabelProxy "label" -labelLabel = AttrLabelProxy - -labelLines :: AttrLabelProxy "lines" -labelLines = AttrLabelProxy - -labelMaxWidthChars :: AttrLabelProxy "maxWidthChars" -labelMaxWidthChars = AttrLabelProxy - -labelMnemonicKeyval :: AttrLabelProxy "mnemonicKeyval" -labelMnemonicKeyval = AttrLabelProxy - -labelMnemonicWidget :: AttrLabelProxy "mnemonicWidget" -labelMnemonicWidget = AttrLabelProxy - -labelPattern :: AttrLabelProxy "pattern" -labelPattern = AttrLabelProxy - -labelSelectable :: AttrLabelProxy "selectable" -labelSelectable = AttrLabelProxy - -labelSelectionBound :: AttrLabelProxy "selectionBound" -labelSelectionBound = AttrLabelProxy - -labelSingleLineMode :: AttrLabelProxy "singleLineMode" -labelSingleLineMode = AttrLabelProxy - -labelTrackVisitedLinks :: AttrLabelProxy "trackVisitedLinks" -labelTrackVisitedLinks = AttrLabelProxy - -labelUseMarkup :: AttrLabelProxy "useMarkup" -labelUseMarkup = AttrLabelProxy - -labelUseUnderline :: AttrLabelProxy "useUnderline" -labelUseUnderline = AttrLabelProxy - -labelWidthChars :: AttrLabelProxy "widthChars" -labelWidthChars = AttrLabelProxy - -labelWrap :: AttrLabelProxy "wrap" -labelWrap = AttrLabelProxy - -labelWrapMode :: AttrLabelProxy "wrapMode" -labelWrapMode = AttrLabelProxy - -labelXalign :: AttrLabelProxy "xalign" -labelXalign = AttrLabelProxy - -labelYalign :: AttrLabelProxy "yalign" -labelYalign = AttrLabelProxy - -data LabelActivateCurrentLinkSignalInfo -instance SignalInfo LabelActivateCurrentLinkSignalInfo where - type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback - connectSignal _ = connectLabelActivateCurrentLink - -data LabelActivateLinkSignalInfo -instance SignalInfo LabelActivateLinkSignalInfo where - type HaskellCallbackType LabelActivateLinkSignalInfo = LabelActivateLinkCallback - connectSignal _ = connectLabelActivateLink - -data LabelCopyClipboardSignalInfo -instance SignalInfo LabelCopyClipboardSignalInfo where - type HaskellCallbackType LabelCopyClipboardSignalInfo = LabelCopyClipboardCallback - connectSignal _ = connectLabelCopyClipboard - -data LabelMoveCursorSignalInfo -instance SignalInfo LabelMoveCursorSignalInfo where - type HaskellCallbackType LabelMoveCursorSignalInfo = LabelMoveCursorCallback - connectSignal _ = connectLabelMoveCursor - -data LabelPopulatePopupSignalInfo -instance SignalInfo LabelPopulatePopupSignalInfo where - type HaskellCallbackType LabelPopulatePopupSignalInfo = LabelPopulatePopupCallback - connectSignal _ = connectLabelPopulatePopup - -type instance SignalList Label = LabelSignalList -type LabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Label::new --- method type : Constructor --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Label") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_new" gtk_label_new :: - CString -> -- str : TBasicType TUTF8 - IO (Ptr Label) - - -labelNew :: - (MonadIO m) => - Maybe (T.Text) -- str - -> m Label -- result -labelNew str = liftIO $ do - maybeStr <- case str of - Nothing -> return nullPtr - Just jStr -> do - jStr' <- textToCString jStr - return jStr' - result <- gtk_label_new maybeStr - checkUnexpectedReturnNULL "gtk_label_new" result - result' <- (newObject Label) result - freeMem maybeStr - return result' - --- method Label::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Label") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_new_with_mnemonic" gtk_label_new_with_mnemonic :: - CString -> -- str : TBasicType TUTF8 - IO (Ptr Label) - - -labelNewWithMnemonic :: - (MonadIO m) => - Maybe (T.Text) -- str - -> m Label -- result -labelNewWithMnemonic str = liftIO $ do - maybeStr <- case str of - Nothing -> return nullPtr - Just jStr -> do - jStr' <- textToCString jStr - return jStr' - result <- gtk_label_new_with_mnemonic maybeStr - checkUnexpectedReturnNULL "gtk_label_new_with_mnemonic" result - result' <- (newObject Label) result - freeMem maybeStr - return result' - --- method Label::get_angle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_angle" gtk_label_get_angle :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CDouble - - -labelGetAngle :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Double -- result -labelGetAngle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_angle _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LabelGetAngleMethodInfo -instance (signature ~ (m Double), MonadIO m, LabelK a) => MethodInfo LabelGetAngleMethodInfo a signature where - overloadedMethod _ = labelGetAngle - --- method Label::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "AttrList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_attributes" gtk_label_get_attributes :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Pango.AttrList) - - -labelGetAttributes :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Pango.AttrList -- result -labelGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_attributes _obj' - checkUnexpectedReturnNULL "gtk_label_get_attributes" result - result' <- (newBoxed Pango.AttrList) result - touchManagedPtr _obj - return result' - -data LabelGetAttributesMethodInfo -instance (signature ~ (m Pango.AttrList), MonadIO m, LabelK a) => MethodInfo LabelGetAttributesMethodInfo a signature where - overloadedMethod _ = labelGetAttributes - --- method Label::get_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_current_uri" gtk_label_get_current_uri :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetCurrentUri :: - (MonadIO m, LabelK a) => - a -- _obj - -> m T.Text -- result -labelGetCurrentUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_current_uri _obj' - checkUnexpectedReturnNULL "gtk_label_get_current_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data LabelGetCurrentUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetCurrentUriMethodInfo a signature where - overloadedMethod _ = labelGetCurrentUri - --- method Label::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "EllipsizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_ellipsize" gtk_label_get_ellipsize :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetEllipsize :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Pango.EllipsizeMode -- result -labelGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data LabelGetEllipsizeMethodInfo -instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, LabelK a) => MethodInfo LabelGetEllipsizeMethodInfo a signature where - overloadedMethod _ = labelGetEllipsize - --- method Label::get_justify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Justification") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_justify" gtk_label_get_justify :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetJustify :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Justification -- result -labelGetJustify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_justify _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data LabelGetJustifyMethodInfo -instance (signature ~ (m Justification), MonadIO m, LabelK a) => MethodInfo LabelGetJustifyMethodInfo a signature where - overloadedMethod _ = labelGetJustify - --- method Label::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_label" gtk_label_get_label :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetLabel :: - (MonadIO m, LabelK a) => - a -- _obj - -> m T.Text -- result -labelGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_label _obj' - checkUnexpectedReturnNULL "gtk_label_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data LabelGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetLabelMethodInfo a signature where - overloadedMethod _ = labelGetLabel - --- method Label::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_layout" gtk_label_get_layout :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Pango.Layout) - - -labelGetLayout :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Pango.Layout -- result -labelGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_layout _obj' - checkUnexpectedReturnNULL "gtk_label_get_layout" result - result' <- (newObject Pango.Layout) result - touchManagedPtr _obj - return result' - -data LabelGetLayoutMethodInfo -instance (signature ~ (m Pango.Layout), MonadIO m, LabelK a) => MethodInfo LabelGetLayoutMethodInfo a signature where - overloadedMethod _ = labelGetLayout - --- method Label::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, 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 "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -labelGetLayoutOffsets :: - (MonadIO m, LabelK a) => - a -- _obj - -> m (Int32,Int32) -- result -labelGetLayoutOffsets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_label_get_layout_offsets _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data LabelGetLayoutOffsetsMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, LabelK a) => MethodInfo LabelGetLayoutOffsetsMethodInfo a signature where - overloadedMethod _ = labelGetLayoutOffsets - --- method Label::get_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_line_wrap" gtk_label_get_line_wrap :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetLineWrap :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetLineWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_line_wrap _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetLineWrapMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetLineWrapMethodInfo a signature where - overloadedMethod _ = labelGetLineWrap - --- method Label::get_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "WrapMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_line_wrap_mode" gtk_label_get_line_wrap_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetLineWrapMode :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Pango.WrapMode -- result -labelGetLineWrapMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_line_wrap_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data LabelGetLineWrapModeMethodInfo -instance (signature ~ (m Pango.WrapMode), MonadIO m, LabelK a) => MethodInfo LabelGetLineWrapModeMethodInfo a signature where - overloadedMethod _ = labelGetLineWrapMode - --- method Label::get_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_lines" gtk_label_get_lines :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetLines :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Int32 -- result -labelGetLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_lines _obj' - touchManagedPtr _obj - return result - -data LabelGetLinesMethodInfo -instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetLinesMethodInfo a signature where - overloadedMethod _ = labelGetLines - --- method Label::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_max_width_chars" gtk_label_get_max_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetMaxWidthChars :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Int32 -- result -labelGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_max_width_chars _obj' - touchManagedPtr _obj - return result - -data LabelGetMaxWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetMaxWidthCharsMethodInfo a signature where - overloadedMethod _ = labelGetMaxWidthChars - --- method Label::get_mnemonic_keyval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_mnemonic_keyval" gtk_label_get_mnemonic_keyval :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Word32 - - -labelGetMnemonicKeyval :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Word32 -- result -labelGetMnemonicKeyval _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_mnemonic_keyval _obj' - touchManagedPtr _obj - return result - -data LabelGetMnemonicKeyvalMethodInfo -instance (signature ~ (m Word32), MonadIO m, LabelK a) => MethodInfo LabelGetMnemonicKeyvalMethodInfo a signature where - overloadedMethod _ = labelGetMnemonicKeyval - --- method Label::get_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_mnemonic_widget" gtk_label_get_mnemonic_widget :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Widget) - - -labelGetMnemonicWidget :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Widget -- result -labelGetMnemonicWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_mnemonic_widget _obj' - checkUnexpectedReturnNULL "gtk_label_get_mnemonic_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data LabelGetMnemonicWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, LabelK a) => MethodInfo LabelGetMnemonicWidgetMethodInfo a signature where - overloadedMethod _ = labelGetMnemonicWidget - --- method Label::get_selectable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_selectable" gtk_label_get_selectable :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetSelectable :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetSelectable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_selectable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetSelectableMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetSelectableMethodInfo a signature where - overloadedMethod _ = labelGetSelectable - --- method Label::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", 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 "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- start : TBasicType TInt - Ptr Int32 -> -- end : TBasicType TInt - IO CInt - - -labelGetSelectionBounds :: - (MonadIO m, LabelK a) => - a -- _obj - -> m (Bool,Int32,Int32) -- result -labelGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- allocMem :: IO (Ptr Int32) - end <- allocMem :: IO (Ptr Int32) - result <- gtk_label_get_selection_bounds _obj' start end - let result' = (/= 0) result - start' <- peek start - end' <- peek end - touchManagedPtr _obj - freeMem start - freeMem end - return (result', start', end') - -data LabelGetSelectionBoundsMethodInfo -instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, LabelK a) => MethodInfo LabelGetSelectionBoundsMethodInfo a signature where - overloadedMethod _ = labelGetSelectionBounds - --- method Label::get_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_single_line_mode" gtk_label_get_single_line_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetSingleLineMode :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetSingleLineMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_single_line_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetSingleLineModeMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetSingleLineModeMethodInfo a signature where - overloadedMethod _ = labelGetSingleLineMode - --- method Label::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_text" gtk_label_get_text :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetText :: - (MonadIO m, LabelK a) => - a -- _obj - -> m T.Text -- result -labelGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_text _obj' - checkUnexpectedReturnNULL "gtk_label_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data LabelGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetTextMethodInfo a signature where - overloadedMethod _ = labelGetText - --- method Label::get_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_track_visited_links" gtk_label_get_track_visited_links :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetTrackVisitedLinks :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetTrackVisitedLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_track_visited_links _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetTrackVisitedLinksMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetTrackVisitedLinksMethodInfo a signature where - overloadedMethod _ = labelGetTrackVisitedLinks - --- method Label::get_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_use_markup" gtk_label_get_use_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetUseMarkup :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetUseMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_markup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetUseMarkupMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetUseMarkupMethodInfo a signature where - overloadedMethod _ = labelGetUseMarkup - --- method Label::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_use_underline" gtk_label_get_use_underline :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetUseUnderline :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Bool -- result -labelGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LabelGetUseUnderlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetUseUnderlineMethodInfo a signature where - overloadedMethod _ = labelGetUseUnderline - --- method Label::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 "gtk_label_get_width_chars" gtk_label_get_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetWidthChars :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Int32 -- result -labelGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_width_chars _obj' - touchManagedPtr _obj - return result - -data LabelGetWidthCharsMethodInfo -instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetWidthCharsMethodInfo a signature where - overloadedMethod _ = labelGetWidthChars - --- method Label::get_xalign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_xalign" gtk_label_get_xalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CFloat - - -labelGetXalign :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Float -- result -labelGetXalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_xalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LabelGetXalignMethodInfo -instance (signature ~ (m Float), MonadIO m, LabelK a) => MethodInfo LabelGetXalignMethodInfo a signature where - overloadedMethod _ = labelGetXalign - --- method Label::get_yalign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_yalign" gtk_label_get_yalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CFloat - - -labelGetYalign :: - (MonadIO m, LabelK a) => - a -- _obj - -> m Float -- result -labelGetYalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_yalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LabelGetYalignMethodInfo -instance (signature ~ (m Float), MonadIO m, LabelK a) => MethodInfo LabelGetYalignMethodInfo a signature where - overloadedMethod _ = labelGetYalign - --- method Label::select_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_select_region" gtk_label_select_region :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- start_offset : TBasicType TInt - Int32 -> -- end_offset : TBasicType TInt - IO () - - -labelSelectRegion :: - (MonadIO m, LabelK a) => - a -- _obj - -> Int32 -- startOffset - -> Int32 -- endOffset - -> m () -- result -labelSelectRegion _obj startOffset endOffset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_select_region _obj' startOffset endOffset - touchManagedPtr _obj - return () - -data LabelSelectRegionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSelectRegionMethodInfo a signature where - overloadedMethod _ = labelSelectRegion - --- method Label::set_angle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", 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 "gtk_label_set_angle" gtk_label_set_angle :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CDouble -> -- angle : TBasicType TDouble - IO () - - -labelSetAngle :: - (MonadIO m, LabelK a) => - a -- _obj - -> Double -- angle - -> m () -- result -labelSetAngle _obj angle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let angle' = realToFrac angle - gtk_label_set_angle _obj' angle' - touchManagedPtr _obj - return () - -data LabelSetAngleMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetAngleMethodInfo a signature where - overloadedMethod _ = labelSetAngle - --- method Label::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_attributes" gtk_label_set_attributes :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" - IO () - - -labelSetAttributes :: - (MonadIO m, LabelK a) => - a -- _obj - -> Maybe (Pango.AttrList) -- attrs - -> m () -- result -labelSetAttributes _obj attrs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAttrs <- case attrs of - Nothing -> return nullPtr - Just jAttrs -> do - let jAttrs' = unsafeManagedPtrGetPtr jAttrs - return jAttrs' - gtk_label_set_attributes _obj' maybeAttrs - touchManagedPtr _obj - whenJust attrs touchManagedPtr - return () - -data LabelSetAttributesMethodInfo -instance (signature ~ (Maybe (Pango.AttrList) -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetAttributesMethodInfo a signature where - overloadedMethod _ = labelSetAttributes - --- method Label::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", 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 "gtk_label_set_ellipsize" gtk_label_set_ellipsize :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- mode : TInterface "Pango" "EllipsizeMode" - IO () - - -labelSetEllipsize :: - (MonadIO m, LabelK a) => - a -- _obj - -> Pango.EllipsizeMode -- mode - -> m () -- result -labelSetEllipsize _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_label_set_ellipsize _obj' mode' - touchManagedPtr _obj - return () - -data LabelSetEllipsizeMethodInfo -instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetEllipsizeMethodInfo a signature where - overloadedMethod _ = labelSetEllipsize - --- method Label::set_justify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "jtype", argType = TInterface "Gtk" "Justification", 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 "gtk_label_set_justify" gtk_label_set_justify :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- jtype : TInterface "Gtk" "Justification" - IO () - - -labelSetJustify :: - (MonadIO m, LabelK a) => - a -- _obj - -> Justification -- jtype - -> m () -- result -labelSetJustify _obj jtype = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let jtype' = (fromIntegral . fromEnum) jtype - gtk_label_set_justify _obj' jtype' - touchManagedPtr _obj - return () - -data LabelSetJustifyMethodInfo -instance (signature ~ (Justification -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetJustifyMethodInfo a signature where - overloadedMethod _ = labelSetJustify - --- method Label::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_label_set_label" gtk_label_set_label :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetLabel :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -labelSetLabel _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_label _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data LabelSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLabelMethodInfo a signature where - overloadedMethod _ = labelSetLabel - --- method Label::set_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", 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 "gtk_label_set_line_wrap" gtk_label_set_line_wrap :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- wrap : TBasicType TBoolean - IO () - - -labelSetLineWrap :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- wrap - -> m () -- result -labelSetLineWrap _obj wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap' = (fromIntegral . fromEnum) wrap - gtk_label_set_line_wrap _obj' wrap' - touchManagedPtr _obj - return () - -data LabelSetLineWrapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLineWrapMethodInfo a signature where - overloadedMethod _ = labelSetLineWrap - --- method Label::set_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Pango" "WrapMode", 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 "gtk_label_set_line_wrap_mode" gtk_label_set_line_wrap_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- wrap_mode : TInterface "Pango" "WrapMode" - IO () - - -labelSetLineWrapMode :: - (MonadIO m, LabelK a) => - a -- _obj - -> Pango.WrapMode -- wrapMode - -> m () -- result -labelSetLineWrapMode _obj wrapMode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrapMode' = (fromIntegral . fromEnum) wrapMode - gtk_label_set_line_wrap_mode _obj' wrapMode' - touchManagedPtr _obj - return () - -data LabelSetLineWrapModeMethodInfo -instance (signature ~ (Pango.WrapMode -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLineWrapModeMethodInfo a signature where - overloadedMethod _ = labelSetLineWrapMode - --- method Label::set_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", 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 "gtk_label_set_lines" gtk_label_set_lines :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- lines : TBasicType TInt - IO () - - -labelSetLines :: - (MonadIO m, LabelK a) => - a -- _obj - -> Int32 -- lines - -> m () -- result -labelSetLines _obj lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_lines _obj' lines - touchManagedPtr _obj - return () - -data LabelSetLinesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLinesMethodInfo a signature where - overloadedMethod _ = labelSetLines - --- method Label::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_label_set_markup" gtk_label_set_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetMarkup :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -labelSetMarkup _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_markup _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data LabelSetMarkupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMarkupMethodInfo a signature where - overloadedMethod _ = labelSetMarkup - --- method Label::set_markup_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_label_set_markup_with_mnemonic" gtk_label_set_markup_with_mnemonic :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetMarkupWithMnemonic :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -labelSetMarkupWithMnemonic _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_markup_with_mnemonic _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data LabelSetMarkupWithMnemonicMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMarkupWithMnemonicMethodInfo a signature where - overloadedMethod _ = labelSetMarkupWithMnemonic - --- method Label::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt - IO () - - -labelSetMaxWidthChars :: - (MonadIO m, LabelK a) => - a -- _obj - -> Int32 -- nChars - -> m () -- result -labelSetMaxWidthChars _obj nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_max_width_chars _obj' nChars - touchManagedPtr _obj - return () - -data LabelSetMaxWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMaxWidthCharsMethodInfo a signature where - overloadedMethod _ = labelSetMaxWidthChars - --- method Label::set_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_mnemonic_widget" gtk_label_set_mnemonic_widget :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -labelSetMnemonicWidget :: - (MonadIO m, LabelK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- widget - -> m () -- result -labelSetMnemonicWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_label_set_mnemonic_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - -data LabelSetMnemonicWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LabelK a, WidgetK b) => MethodInfo LabelSetMnemonicWidgetMethodInfo a signature where - overloadedMethod _ = labelSetMnemonicWidget - --- method Label::set_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", 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 "gtk_label_set_pattern" gtk_label_set_pattern :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- pattern : TBasicType TUTF8 - IO () - - -labelSetPattern :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- pattern - -> m () -- result -labelSetPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_label_set_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - -data LabelSetPatternMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetPatternMethodInfo a signature where - overloadedMethod _ = labelSetPattern - --- method Label::set_selectable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_label_set_selectable" gtk_label_set_selectable :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetSelectable :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -labelSetSelectable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_selectable _obj' setting' - touchManagedPtr _obj - return () - -data LabelSetSelectableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetSelectableMethodInfo a signature where - overloadedMethod _ = labelSetSelectable - --- method Label::set_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single_line_mode", 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 "gtk_label_set_single_line_mode" gtk_label_set_single_line_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- single_line_mode : TBasicType TBoolean - IO () - - -labelSetSingleLineMode :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- singleLineMode - -> m () -- result -labelSetSingleLineMode _obj singleLineMode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let singleLineMode' = (fromIntegral . fromEnum) singleLineMode - gtk_label_set_single_line_mode _obj' singleLineMode' - touchManagedPtr _obj - return () - -data LabelSetSingleLineModeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetSingleLineModeMethodInfo a signature where - overloadedMethod _ = labelSetSingleLineMode - --- method Label::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_label_set_text" gtk_label_set_text :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetText :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -labelSetText _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_text _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data LabelSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTextMethodInfo a signature where - overloadedMethod _ = labelSetText - --- method Label::set_text_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_label_set_text_with_mnemonic" gtk_label_set_text_with_mnemonic :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetTextWithMnemonic :: - (MonadIO m, LabelK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -labelSetTextWithMnemonic _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_text_with_mnemonic _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data LabelSetTextWithMnemonicMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTextWithMnemonicMethodInfo a signature where - overloadedMethod _ = labelSetTextWithMnemonic - --- method Label::set_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_links", 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 "gtk_label_set_track_visited_links" gtk_label_set_track_visited_links :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- track_links : TBasicType TBoolean - IO () - - -labelSetTrackVisitedLinks :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- trackLinks - -> m () -- result -labelSetTrackVisitedLinks _obj trackLinks = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let trackLinks' = (fromIntegral . fromEnum) trackLinks - gtk_label_set_track_visited_links _obj' trackLinks' - touchManagedPtr _obj - return () - -data LabelSetTrackVisitedLinksMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTrackVisitedLinksMethodInfo a signature where - overloadedMethod _ = labelSetTrackVisitedLinks - --- method Label::set_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_label_set_use_markup" gtk_label_set_use_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetUseMarkup :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -labelSetUseMarkup _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_markup _obj' setting' - touchManagedPtr _obj - return () - -data LabelSetUseMarkupMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetUseMarkupMethodInfo a signature where - overloadedMethod _ = labelSetUseMarkup - --- method Label::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_label_set_use_underline" gtk_label_set_use_underline :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetUseUnderline :: - (MonadIO m, LabelK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -labelSetUseUnderline _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_underline _obj' setting' - touchManagedPtr _obj - return () - -data LabelSetUseUnderlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetUseUnderlineMethodInfo a signature where - overloadedMethod _ = labelSetUseUnderline - --- method Label::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", 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 "gtk_label_set_width_chars" gtk_label_set_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt - IO () - - -labelSetWidthChars :: - (MonadIO m, LabelK a) => - a -- _obj - -> Int32 -- nChars - -> m () -- result -labelSetWidthChars _obj nChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_width_chars _obj' nChars - touchManagedPtr _obj - return () - -data LabelSetWidthCharsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetWidthCharsMethodInfo a signature where - overloadedMethod _ = labelSetWidthChars - --- method Label::set_xalign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, 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 "gtk_label_set_xalign" gtk_label_set_xalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CFloat -> -- xalign : TBasicType TFloat - IO () - - -labelSetXalign :: - (MonadIO m, LabelK a) => - a -- _obj - -> Float -- xalign - -> m () -- result -labelSetXalign _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_label_set_xalign _obj' xalign' - touchManagedPtr _obj - return () - -data LabelSetXalignMethodInfo -instance (signature ~ (Float -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetXalignMethodInfo a signature where - overloadedMethod _ = labelSetXalign - --- method Label::set_yalign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_label_set_yalign" gtk_label_set_yalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CFloat -> -- yalign : TBasicType TFloat - IO () - - -labelSetYalign :: - (MonadIO m, LabelK a) => - a -- _obj - -> Float -- yalign - -> m () -- result -labelSetYalign _obj yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let yalign' = realToFrac yalign - gtk_label_set_yalign _obj' yalign' - touchManagedPtr _obj - return () - -data LabelSetYalignMethodInfo -instance (signature ~ (Float -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetYalignMethodInfo a signature where - overloadedMethod _ = labelSetYalign - - diff --git a/GI/Gtk/Objects/Label.hs-boot b/GI/Gtk/Objects/Label.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Label.hs-boot +++ /dev/null @@ -1,88 +0,0 @@ -module GI.Gtk.Objects.Label 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 Label = Label (ForeignPtr Label) -instance GObject Label where -class GObject o => LabelK o -instance (GObject o, IsDescendantOf Label o) => LabelK o -data LabelAnglePropertyInfo -data LabelAttributesPropertyInfo -data LabelCursorPositionPropertyInfo -data LabelEllipsizePropertyInfo -data LabelJustifyPropertyInfo -data LabelLabelPropertyInfo -data LabelLinesPropertyInfo -data LabelMaxWidthCharsPropertyInfo -data LabelMnemonicKeyvalPropertyInfo -data LabelMnemonicWidgetPropertyInfo -data LabelPatternPropertyInfo -data LabelSelectablePropertyInfo -data LabelSelectionBoundPropertyInfo -data LabelSingleLineModePropertyInfo -data LabelTrackVisitedLinksPropertyInfo -data LabelUseMarkupPropertyInfo -data LabelUseUnderlinePropertyInfo -data LabelWidthCharsPropertyInfo -data LabelWrapPropertyInfo -data LabelWrapModePropertyInfo -data LabelXalignPropertyInfo -data LabelYalignPropertyInfo -data LabelActivateCurrentLinkSignalInfo -data LabelActivateLinkSignalInfo -data LabelCopyClipboardSignalInfo -data LabelMoveCursorSignalInfo -data LabelPopulatePopupSignalInfo -data LabelGetAngleMethodInfo -data LabelGetAttributesMethodInfo -data LabelGetCurrentUriMethodInfo -data LabelGetEllipsizeMethodInfo -data LabelGetJustifyMethodInfo -data LabelGetLabelMethodInfo -data LabelGetLayoutMethodInfo -data LabelGetLayoutOffsetsMethodInfo -data LabelGetLineWrapMethodInfo -data LabelGetLineWrapModeMethodInfo -data LabelGetLinesMethodInfo -data LabelGetMaxWidthCharsMethodInfo -data LabelGetMnemonicKeyvalMethodInfo -data LabelGetMnemonicWidgetMethodInfo -data LabelGetSelectableMethodInfo -data LabelGetSelectionBoundsMethodInfo -data LabelGetSingleLineModeMethodInfo -data LabelGetTextMethodInfo -data LabelGetTrackVisitedLinksMethodInfo -data LabelGetUseMarkupMethodInfo -data LabelGetUseUnderlineMethodInfo -data LabelGetWidthCharsMethodInfo -data LabelGetXalignMethodInfo -data LabelGetYalignMethodInfo -data LabelSelectRegionMethodInfo -data LabelSetAngleMethodInfo -data LabelSetAttributesMethodInfo -data LabelSetEllipsizeMethodInfo -data LabelSetJustifyMethodInfo -data LabelSetLabelMethodInfo -data LabelSetLineWrapMethodInfo -data LabelSetLineWrapModeMethodInfo -data LabelSetLinesMethodInfo -data LabelSetMarkupMethodInfo -data LabelSetMarkupWithMnemonicMethodInfo -data LabelSetMaxWidthCharsMethodInfo -data LabelSetMnemonicWidgetMethodInfo -data LabelSetPatternMethodInfo -data LabelSetSelectableMethodInfo -data LabelSetSingleLineModeMethodInfo -data LabelSetTextMethodInfo -data LabelSetTextWithMnemonicMethodInfo -data LabelSetTrackVisitedLinksMethodInfo -data LabelSetUseMarkupMethodInfo -data LabelSetUseUnderlineMethodInfo -data LabelSetWidthCharsMethodInfo -data LabelSetXalignMethodInfo -data LabelSetYalignMethodInfo diff --git a/GI/Gtk/Objects/LabelAccessible.hs b/GI/Gtk/Objects/LabelAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LabelAccessible.hs +++ /dev/null @@ -1,151 +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.Gtk.Objects.LabelAccessible - ( - --- * Exported types - LabelAccessible(..) , - LabelAccessibleK , - toLabelAccessible , - noLabelAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LabelAccessible = LabelAccessible (ForeignPtr LabelAccessible) -foreign import ccall "gtk_label_accessible_get_type" - c_gtk_label_accessible_get_type :: IO GType - -type instance ParentTypes LabelAccessible = LabelAccessibleParentTypes -type LabelAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Hypertext, Atk.Text] - -instance GObject LabelAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_label_accessible_get_type - - -class GObject o => LabelAccessibleK o -instance (GObject o, IsDescendantOf LabelAccessible o) => LabelAccessibleK o - -toLabelAccessible :: LabelAccessibleK o => o -> IO LabelAccessible -toLabelAccessible = unsafeCastTo LabelAccessible - -noLabelAccessible :: Maybe LabelAccessible -noLabelAccessible = Nothing - -type family ResolveLabelAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveLabelAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveLabelAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo - ResolveLabelAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLabelAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLabelAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveLabelAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveLabelAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLabelAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLabelAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveLabelAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveLabelAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLabelAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLabelAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLabelAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveLabelAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveLabelAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLabelAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveLabelAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveLabelAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveLabelAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLabelAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveLabelAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveLabelAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveLabelAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveLabelAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo - ResolveLabelAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLabelAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLabelAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLabelAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLabelAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLabelAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLabelAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLabelAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLabelAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveLabelAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveLabelAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo - ResolveLabelAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo - ResolveLabelAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo - ResolveLabelAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo - ResolveLabelAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo - ResolveLabelAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLabelAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo - ResolveLabelAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveLabelAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveLabelAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveLabelAccessibleMethod "getLink" o = Atk.HypertextGetLinkMethodInfo - ResolveLabelAccessibleMethod "getLinkIndex" o = Atk.HypertextGetLinkIndexMethodInfo - ResolveLabelAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveLabelAccessibleMethod "getNLinks" o = Atk.HypertextGetNLinksMethodInfo - ResolveLabelAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo - ResolveLabelAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveLabelAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveLabelAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo - ResolveLabelAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveLabelAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveLabelAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLabelAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLabelAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo - ResolveLabelAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveLabelAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo - ResolveLabelAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo - ResolveLabelAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveLabelAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo - ResolveLabelAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo - ResolveLabelAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo - ResolveLabelAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo - ResolveLabelAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo - ResolveLabelAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveLabelAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo - ResolveLabelAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLabelAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveLabelAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveLabelAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveLabelAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveLabelAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveLabelAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLabelAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveLabelAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo - ResolveLabelAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveLabelAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveLabelAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLabelAccessibleMethod t LabelAccessible, MethodInfo info LabelAccessible p) => IsLabelProxy t (LabelAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLabelAccessibleMethod t LabelAccessible, MethodInfo info LabelAccessible p) => IsLabel t (LabelAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList LabelAccessible = LabelAccessibleAttributeList -type LabelAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LabelAccessible = LabelAccessibleSignalList -type LabelAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("linkSelected", Atk.HypertextLinkSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/LabelAccessible.hs-boot b/GI/Gtk/Objects/LabelAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LabelAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.LabelAccessible 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 LabelAccessible = LabelAccessible (ForeignPtr LabelAccessible) -instance GObject LabelAccessible where -class GObject o => LabelAccessibleK o -instance (GObject o, IsDescendantOf LabelAccessible o) => LabelAccessibleK o diff --git a/GI/Gtk/Objects/Layout.hs b/GI/Gtk/Objects/Layout.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Layout.hs +++ /dev/null @@ -1,852 +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.Gtk.Objects.Layout - ( - --- * Exported types - Layout(..) , - LayoutK , - toLayout , - noLayout , - - - -- * Methods --- ** layoutGetBinWindow - LayoutGetBinWindowMethodInfo , - layoutGetBinWindow , - - --- ** layoutGetHadjustment - LayoutGetHadjustmentMethodInfo , - layoutGetHadjustment , - - --- ** layoutGetSize - LayoutGetSizeMethodInfo , - layoutGetSize , - - --- ** layoutGetVadjustment - LayoutGetVadjustmentMethodInfo , - layoutGetVadjustment , - - --- ** layoutMove - LayoutMoveMethodInfo , - layoutMove , - - --- ** layoutNew - layoutNew , - - --- ** layoutPut - LayoutPutMethodInfo , - layoutPut , - - --- ** layoutSetHadjustment - LayoutSetHadjustmentMethodInfo , - layoutSetHadjustment , - - --- ** layoutSetSize - LayoutSetSizeMethodInfo , - layoutSetSize , - - --- ** layoutSetVadjustment - LayoutSetVadjustmentMethodInfo , - layoutSetVadjustment , - - - - - -- * Properties --- ** Height - LayoutHeightPropertyInfo , - constructLayoutHeight , - getLayoutHeight , - layoutHeight , - setLayoutHeight , - - --- ** Width - LayoutWidthPropertyInfo , - constructLayoutWidth , - getLayoutWidth , - layoutWidth , - setLayoutWidth , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Layout = Layout (ForeignPtr Layout) -foreign import ccall "gtk_layout_get_type" - c_gtk_layout_get_type :: IO GType - -type instance ParentTypes Layout = LayoutParentTypes -type LayoutParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject Layout where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_layout_get_type - - -class GObject o => LayoutK o -instance (GObject o, IsDescendantOf Layout o) => LayoutK o - -toLayout :: LayoutK o => o -> IO Layout -toLayout = unsafeCastTo Layout - -noLayout :: Maybe Layout -noLayout = Nothing - -type family ResolveLayoutMethod (t :: Symbol) (o :: *) :: * where - ResolveLayoutMethod "activate" o = WidgetActivateMethodInfo - ResolveLayoutMethod "add" o = ContainerAddMethodInfo - ResolveLayoutMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveLayoutMethod "addChild" o = BuildableAddChildMethodInfo - ResolveLayoutMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveLayoutMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveLayoutMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveLayoutMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLayoutMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveLayoutMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveLayoutMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveLayoutMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveLayoutMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveLayoutMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveLayoutMethod "childType" o = ContainerChildTypeMethodInfo - ResolveLayoutMethod "classPath" o = WidgetClassPathMethodInfo - ResolveLayoutMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveLayoutMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveLayoutMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveLayoutMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveLayoutMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveLayoutMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveLayoutMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveLayoutMethod "destroy" o = WidgetDestroyMethodInfo - ResolveLayoutMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveLayoutMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveLayoutMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveLayoutMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveLayoutMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveLayoutMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveLayoutMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveLayoutMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveLayoutMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveLayoutMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveLayoutMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveLayoutMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveLayoutMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveLayoutMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveLayoutMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveLayoutMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveLayoutMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveLayoutMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveLayoutMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveLayoutMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveLayoutMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveLayoutMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveLayoutMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveLayoutMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveLayoutMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveLayoutMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveLayoutMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveLayoutMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveLayoutMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveLayoutMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveLayoutMethod "draw" o = WidgetDrawMethodInfo - ResolveLayoutMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveLayoutMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveLayoutMethod "event" o = WidgetEventMethodInfo - ResolveLayoutMethod "forall" o = ContainerForallMethodInfo - ResolveLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLayoutMethod "foreach" o = ContainerForeachMethodInfo - ResolveLayoutMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLayoutMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveLayoutMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveLayoutMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveLayoutMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveLayoutMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveLayoutMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveLayoutMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveLayoutMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveLayoutMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveLayoutMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveLayoutMethod "hide" o = WidgetHideMethodInfo - ResolveLayoutMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveLayoutMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveLayoutMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveLayoutMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveLayoutMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveLayoutMethod "intersect" o = WidgetIntersectMethodInfo - ResolveLayoutMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveLayoutMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveLayoutMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLayoutMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveLayoutMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveLayoutMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveLayoutMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveLayoutMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveLayoutMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveLayoutMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveLayoutMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveLayoutMethod "map" o = WidgetMapMethodInfo - ResolveLayoutMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveLayoutMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveLayoutMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveLayoutMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveLayoutMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveLayoutMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveLayoutMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveLayoutMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveLayoutMethod "move" o = LayoutMoveMethodInfo - ResolveLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLayoutMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveLayoutMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveLayoutMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveLayoutMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveLayoutMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveLayoutMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveLayoutMethod "path" o = WidgetPathMethodInfo - ResolveLayoutMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveLayoutMethod "put" o = LayoutPutMethodInfo - ResolveLayoutMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveLayoutMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveLayoutMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveLayoutMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveLayoutMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveLayoutMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveLayoutMethod "realize" o = WidgetRealizeMethodInfo - ResolveLayoutMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLayoutMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveLayoutMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveLayoutMethod "remove" o = ContainerRemoveMethodInfo - ResolveLayoutMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveLayoutMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveLayoutMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveLayoutMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveLayoutMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveLayoutMethod "reparent" o = WidgetReparentMethodInfo - ResolveLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLayoutMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveLayoutMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveLayoutMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLayoutMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveLayoutMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveLayoutMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveLayoutMethod "show" o = WidgetShowMethodInfo - ResolveLayoutMethod "showAll" o = WidgetShowAllMethodInfo - ResolveLayoutMethod "showNow" o = WidgetShowNowMethodInfo - ResolveLayoutMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveLayoutMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveLayoutMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLayoutMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveLayoutMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveLayoutMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLayoutMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveLayoutMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveLayoutMethod "unmap" o = WidgetUnmapMethodInfo - ResolveLayoutMethod "unparent" o = WidgetUnparentMethodInfo - ResolveLayoutMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLayoutMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveLayoutMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveLayoutMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLayoutMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveLayoutMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveLayoutMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveLayoutMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveLayoutMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveLayoutMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveLayoutMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveLayoutMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveLayoutMethod "getBinWindow" o = LayoutGetBinWindowMethodInfo - ResolveLayoutMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveLayoutMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveLayoutMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveLayoutMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveLayoutMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveLayoutMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveLayoutMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveLayoutMethod "getClip" o = WidgetGetClipMethodInfo - ResolveLayoutMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveLayoutMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLayoutMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveLayoutMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveLayoutMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveLayoutMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveLayoutMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveLayoutMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveLayoutMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveLayoutMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveLayoutMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveLayoutMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveLayoutMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveLayoutMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveLayoutMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveLayoutMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveLayoutMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveLayoutMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveLayoutMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveLayoutMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveLayoutMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveLayoutMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveLayoutMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveLayoutMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveLayoutMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveLayoutMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveLayoutMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveLayoutMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveLayoutMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveLayoutMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveLayoutMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveLayoutMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveLayoutMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveLayoutMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveLayoutMethod "getParent" o = WidgetGetParentMethodInfo - ResolveLayoutMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveLayoutMethod "getPath" o = WidgetGetPathMethodInfo - ResolveLayoutMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveLayoutMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveLayoutMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveLayoutMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveLayoutMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveLayoutMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveLayoutMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveLayoutMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLayoutMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveLayoutMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveLayoutMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveLayoutMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveLayoutMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveLayoutMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveLayoutMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveLayoutMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveLayoutMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveLayoutMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveLayoutMethod "getSize" o = LayoutGetSizeMethodInfo - ResolveLayoutMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveLayoutMethod "getState" o = WidgetGetStateMethodInfo - ResolveLayoutMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveLayoutMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveLayoutMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveLayoutMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveLayoutMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveLayoutMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveLayoutMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveLayoutMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveLayoutMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveLayoutMethod "getValign" o = WidgetGetValignMethodInfo - ResolveLayoutMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveLayoutMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveLayoutMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveLayoutMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveLayoutMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveLayoutMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveLayoutMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveLayoutMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveLayoutMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveLayoutMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveLayoutMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveLayoutMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveLayoutMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveLayoutMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveLayoutMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveLayoutMethod "setClip" o = WidgetSetClipMethodInfo - ResolveLayoutMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLayoutMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveLayoutMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveLayoutMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveLayoutMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveLayoutMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveLayoutMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveLayoutMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveLayoutMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveLayoutMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveLayoutMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveLayoutMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveLayoutMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveLayoutMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveLayoutMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveLayoutMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveLayoutMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveLayoutMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveLayoutMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveLayoutMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveLayoutMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveLayoutMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveLayoutMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveLayoutMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveLayoutMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveLayoutMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveLayoutMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveLayoutMethod "setParent" o = WidgetSetParentMethodInfo - ResolveLayoutMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLayoutMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveLayoutMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveLayoutMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveLayoutMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveLayoutMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveLayoutMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveLayoutMethod "setSize" o = LayoutSetSizeMethodInfo - ResolveLayoutMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveLayoutMethod "setState" o = WidgetSetStateMethodInfo - ResolveLayoutMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveLayoutMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveLayoutMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveLayoutMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveLayoutMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveLayoutMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveLayoutMethod "setValign" o = WidgetSetValignMethodInfo - ResolveLayoutMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveLayoutMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveLayoutMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveLayoutMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveLayoutMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveLayoutMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveLayoutMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabelProxy t (Layout -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabel t (Layout -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "height" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getLayoutHeight :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutHeight obj = liftIO $ getObjectPropertyUInt32 obj "height" - -setLayoutHeight :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutHeight obj val = liftIO $ setObjectPropertyUInt32 obj "height" val - -constructLayoutHeight :: Word32 -> IO ([Char], GValue) -constructLayoutHeight val = constructObjectPropertyUInt32 "height" val - -data LayoutHeightPropertyInfo -instance AttrInfo LayoutHeightPropertyInfo where - type AttrAllowedOps LayoutHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LayoutHeightPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint LayoutHeightPropertyInfo = LayoutK - type AttrGetType LayoutHeightPropertyInfo = Word32 - type AttrLabel LayoutHeightPropertyInfo = "height" - attrGet _ = getLayoutHeight - attrSet _ = setLayoutHeight - attrConstruct _ = constructLayoutHeight - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getLayoutWidth :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutWidth obj = liftIO $ getObjectPropertyUInt32 obj "width" - -setLayoutWidth :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutWidth obj val = liftIO $ setObjectPropertyUInt32 obj "width" val - -constructLayoutWidth :: Word32 -> IO ([Char], GValue) -constructLayoutWidth val = constructObjectPropertyUInt32 "width" val - -data LayoutWidthPropertyInfo -instance AttrInfo LayoutWidthPropertyInfo where - type AttrAllowedOps LayoutWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LayoutWidthPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint LayoutWidthPropertyInfo = LayoutK - type AttrGetType LayoutWidthPropertyInfo = Word32 - type AttrLabel LayoutWidthPropertyInfo = "width" - attrGet _ = getLayoutWidth - attrSet _ = setLayoutWidth - attrConstruct _ = constructLayoutWidth - attrClear _ = undefined - -type instance AttributeList Layout = LayoutAttributeList -type LayoutAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -layoutHeight :: AttrLabelProxy "height" -layoutHeight = AttrLabelProxy - -layoutWidth :: AttrLabelProxy "width" -layoutWidth = AttrLabelProxy - -type instance SignalList Layout = LayoutSignalList -type LayoutSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Layout::new --- method type : Constructor --- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_new" gtk_layout_new :: - Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment" - Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment" - IO (Ptr Layout) - - -layoutNew :: - (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -- hadjustment - -> Maybe (b) -- vadjustment - -> m Layout -- result -layoutNew hadjustment vadjustment = liftIO $ do - maybeHadjustment <- case hadjustment of - Nothing -> return nullPtr - Just jHadjustment -> do - let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment - return jHadjustment' - maybeVadjustment <- case vadjustment of - Nothing -> return nullPtr - Just jVadjustment -> do - let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment - return jVadjustment' - result <- gtk_layout_new maybeHadjustment maybeVadjustment - checkUnexpectedReturnNULL "gtk_layout_new" result - result' <- (newObject Layout) result - whenJust hadjustment touchManagedPtr - whenJust vadjustment touchManagedPtr - return result' - --- method Layout::get_bin_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_get_bin_window" gtk_layout_get_bin_window :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - IO (Ptr Gdk.Window) - - -layoutGetBinWindow :: - (MonadIO m, LayoutK a) => - a -- _obj - -> m Gdk.Window -- result -layoutGetBinWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_layout_get_bin_window _obj' - checkUnexpectedReturnNULL "gtk_layout_get_bin_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data LayoutGetBinWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, LayoutK a) => MethodInfo LayoutGetBinWindowMethodInfo a signature where - overloadedMethod _ = layoutGetBinWindow - --- method Layout::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_get_hadjustment" gtk_layout_get_hadjustment :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - IO (Ptr Adjustment) - -{-# DEPRECATED layoutGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -layoutGetHadjustment :: - (MonadIO m, LayoutK a) => - a -- _obj - -> m Adjustment -- result -layoutGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_layout_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_layout_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data LayoutGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, LayoutK a) => MethodInfo LayoutGetHadjustmentMethodInfo a signature where - overloadedMethod _ = layoutGetHadjustment - --- method Layout::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt, 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 "gtk_layout_get_size" gtk_layout_get_size :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Word32 -> -- width : TBasicType TUInt - Ptr Word32 -> -- height : TBasicType TUInt - IO () - - -layoutGetSize :: - (MonadIO m, LayoutK a) => - a -- _obj - -> m (Word32,Word32) -- result -layoutGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Word32) - height <- allocMem :: IO (Ptr Word32) - gtk_layout_get_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data LayoutGetSizeMethodInfo -instance (signature ~ (m (Word32,Word32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetSizeMethodInfo a signature where - overloadedMethod _ = layoutGetSize - --- method Layout::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_get_vadjustment" gtk_layout_get_vadjustment :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - IO (Ptr Adjustment) - -{-# DEPRECATED layoutGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -layoutGetVadjustment :: - (MonadIO m, LayoutK a) => - a -- _obj - -> m Adjustment -- result -layoutGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_layout_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_layout_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data LayoutGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, LayoutK a) => MethodInfo LayoutGetVadjustmentMethodInfo a signature where - overloadedMethod _ = layoutGetVadjustment - --- method Layout::move --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_move" gtk_layout_move :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -layoutMove :: - (MonadIO m, LayoutK a, WidgetK b) => - a -- _obj - -> b -- childWidget - -> Int32 -- x - -> Int32 -- y - -> m () -- result -layoutMove _obj childWidget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let childWidget' = unsafeManagedPtrCastPtr childWidget - gtk_layout_move _obj' childWidget' x y - touchManagedPtr _obj - touchManagedPtr childWidget - return () - -data LayoutMoveMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, LayoutK a, WidgetK b) => MethodInfo LayoutMoveMethodInfo a signature where - overloadedMethod _ = layoutMove - --- method Layout::put --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_put" gtk_layout_put :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -layoutPut :: - (MonadIO m, LayoutK a, WidgetK b) => - a -- _obj - -> b -- childWidget - -> Int32 -- x - -> Int32 -- y - -> m () -- result -layoutPut _obj childWidget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let childWidget' = unsafeManagedPtrCastPtr childWidget - gtk_layout_put _obj' childWidget' x y - touchManagedPtr _obj - touchManagedPtr childWidget - return () - -data LayoutPutMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, LayoutK a, WidgetK b) => MethodInfo LayoutPutMethodInfo a signature where - overloadedMethod _ = layoutPut - --- method Layout::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_set_hadjustment" gtk_layout_set_hadjustment :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED layoutSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} -layoutSetHadjustment :: - (MonadIO m, LayoutK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -layoutSetHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_layout_set_hadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data LayoutSetHadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LayoutK a, AdjustmentK b) => MethodInfo LayoutSetHadjustmentMethodInfo a signature where - overloadedMethod _ = layoutSetHadjustment - --- method Layout::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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 "gtk_layout_set_size" gtk_layout_set_size :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Word32 -> -- width : TBasicType TUInt - Word32 -> -- height : TBasicType TUInt - IO () - - -layoutSetSize :: - (MonadIO m, LayoutK a) => - a -- _obj - -> Word32 -- width - -> Word32 -- height - -> m () -- result -layoutSetSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_layout_set_size _obj' width height - touchManagedPtr _obj - return () - -data LayoutSetSizeMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSizeMethodInfo a signature where - overloadedMethod _ = layoutSetSize - --- method Layout::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_layout_set_vadjustment" gtk_layout_set_vadjustment :: - Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED layoutSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} -layoutSetVadjustment :: - (MonadIO m, LayoutK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -layoutSetVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_layout_set_vadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data LayoutSetVadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LayoutK a, AdjustmentK b) => MethodInfo LayoutSetVadjustmentMethodInfo a signature where - overloadedMethod _ = layoutSetVadjustment - - diff --git a/GI/Gtk/Objects/Layout.hs-boot b/GI/Gtk/Objects/Layout.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Layout.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.Layout 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 Layout = Layout (ForeignPtr Layout) -instance GObject Layout where -class GObject o => LayoutK o -instance (GObject o, IsDescendantOf Layout o) => LayoutK o -data LayoutHeightPropertyInfo -data LayoutWidthPropertyInfo -data LayoutGetBinWindowMethodInfo -data LayoutGetHadjustmentMethodInfo -data LayoutGetSizeMethodInfo -data LayoutGetVadjustmentMethodInfo -data LayoutMoveMethodInfo -data LayoutPutMethodInfo -data LayoutSetHadjustmentMethodInfo -data LayoutSetSizeMethodInfo -data LayoutSetVadjustmentMethodInfo diff --git a/GI/Gtk/Objects/LevelBar.hs b/GI/Gtk/Objects/LevelBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LevelBar.hs +++ /dev/null @@ -1,1145 +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.Gtk.Objects.LevelBar - ( - --- * Exported types - LevelBar(..) , - LevelBarK , - toLevelBar , - noLevelBar , - - - -- * Methods --- ** levelBarAddOffsetValue - LevelBarAddOffsetValueMethodInfo , - levelBarAddOffsetValue , - - --- ** levelBarGetInverted - LevelBarGetInvertedMethodInfo , - levelBarGetInverted , - - --- ** levelBarGetMaxValue - LevelBarGetMaxValueMethodInfo , - levelBarGetMaxValue , - - --- ** levelBarGetMinValue - LevelBarGetMinValueMethodInfo , - levelBarGetMinValue , - - --- ** levelBarGetMode - LevelBarGetModeMethodInfo , - levelBarGetMode , - - --- ** levelBarGetOffsetValue - LevelBarGetOffsetValueMethodInfo , - levelBarGetOffsetValue , - - --- ** levelBarGetValue - LevelBarGetValueMethodInfo , - levelBarGetValue , - - --- ** levelBarNew - levelBarNew , - - --- ** levelBarNewForInterval - levelBarNewForInterval , - - --- ** levelBarRemoveOffsetValue - LevelBarRemoveOffsetValueMethodInfo , - levelBarRemoveOffsetValue , - - --- ** levelBarSetInverted - LevelBarSetInvertedMethodInfo , - levelBarSetInverted , - - --- ** levelBarSetMaxValue - LevelBarSetMaxValueMethodInfo , - levelBarSetMaxValue , - - --- ** levelBarSetMinValue - LevelBarSetMinValueMethodInfo , - levelBarSetMinValue , - - --- ** levelBarSetMode - LevelBarSetModeMethodInfo , - levelBarSetMode , - - --- ** levelBarSetValue - LevelBarSetValueMethodInfo , - levelBarSetValue , - - - - - -- * Properties --- ** Inverted - LevelBarInvertedPropertyInfo , - constructLevelBarInverted , - getLevelBarInverted , - levelBarInverted , - setLevelBarInverted , - - --- ** MaxValue - LevelBarMaxValuePropertyInfo , - constructLevelBarMaxValue , - getLevelBarMaxValue , - levelBarMaxValue , - setLevelBarMaxValue , - - --- ** MinValue - LevelBarMinValuePropertyInfo , - constructLevelBarMinValue , - getLevelBarMinValue , - levelBarMinValue , - setLevelBarMinValue , - - --- ** Mode - LevelBarModePropertyInfo , - constructLevelBarMode , - getLevelBarMode , - levelBarMode , - setLevelBarMode , - - --- ** Value - LevelBarValuePropertyInfo , - constructLevelBarValue , - getLevelBarValue , - levelBarValue , - setLevelBarValue , - - - - - -- * Signals --- ** OffsetChanged - LevelBarOffsetChangedCallback , - LevelBarOffsetChangedCallbackC , - LevelBarOffsetChangedSignalInfo , - afterLevelBarOffsetChanged , - levelBarOffsetChangedCallbackWrapper , - levelBarOffsetChangedClosure , - mkLevelBarOffsetChangedCallback , - noLevelBarOffsetChangedCallback , - onLevelBarOffsetChanged , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LevelBar = LevelBar (ForeignPtr LevelBar) -foreign import ccall "gtk_level_bar_get_type" - c_gtk_level_bar_get_type :: IO GType - -type instance ParentTypes LevelBar = LevelBarParentTypes -type LevelBarParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject LevelBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_level_bar_get_type - - -class GObject o => LevelBarK o -instance (GObject o, IsDescendantOf LevelBar o) => LevelBarK o - -toLevelBar :: LevelBarK o => o -> IO LevelBar -toLevelBar = unsafeCastTo LevelBar - -noLevelBar :: Maybe LevelBar -noLevelBar = Nothing - -type family ResolveLevelBarMethod (t :: Symbol) (o :: *) :: * where - ResolveLevelBarMethod "activate" o = WidgetActivateMethodInfo - ResolveLevelBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveLevelBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveLevelBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveLevelBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveLevelBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveLevelBarMethod "addOffsetValue" o = LevelBarAddOffsetValueMethodInfo - ResolveLevelBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveLevelBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLevelBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLevelBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveLevelBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveLevelBarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveLevelBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveLevelBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveLevelBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveLevelBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveLevelBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveLevelBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveLevelBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveLevelBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveLevelBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveLevelBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveLevelBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveLevelBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveLevelBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveLevelBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveLevelBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveLevelBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveLevelBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveLevelBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveLevelBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveLevelBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveLevelBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveLevelBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveLevelBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveLevelBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveLevelBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveLevelBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveLevelBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveLevelBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveLevelBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveLevelBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveLevelBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveLevelBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveLevelBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveLevelBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveLevelBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveLevelBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveLevelBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveLevelBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveLevelBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveLevelBarMethod "draw" o = WidgetDrawMethodInfo - ResolveLevelBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveLevelBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveLevelBarMethod "event" o = WidgetEventMethodInfo - ResolveLevelBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLevelBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveLevelBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLevelBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveLevelBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveLevelBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveLevelBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveLevelBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveLevelBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveLevelBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveLevelBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveLevelBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveLevelBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveLevelBarMethod "hide" o = WidgetHideMethodInfo - ResolveLevelBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveLevelBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveLevelBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveLevelBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveLevelBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveLevelBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveLevelBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveLevelBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveLevelBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveLevelBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLevelBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveLevelBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveLevelBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveLevelBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveLevelBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveLevelBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveLevelBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveLevelBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveLevelBarMethod "map" o = WidgetMapMethodInfo - ResolveLevelBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveLevelBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveLevelBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveLevelBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveLevelBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveLevelBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveLevelBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveLevelBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveLevelBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLevelBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLevelBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveLevelBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveLevelBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveLevelBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveLevelBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveLevelBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveLevelBarMethod "path" o = WidgetPathMethodInfo - ResolveLevelBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveLevelBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveLevelBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveLevelBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveLevelBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveLevelBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveLevelBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveLevelBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLevelBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLevelBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveLevelBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveLevelBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveLevelBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveLevelBarMethod "removeOffsetValue" o = LevelBarRemoveOffsetValueMethodInfo - ResolveLevelBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveLevelBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveLevelBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveLevelBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveLevelBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLevelBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLevelBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveLevelBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveLevelBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLevelBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveLevelBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveLevelBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveLevelBarMethod "show" o = WidgetShowMethodInfo - ResolveLevelBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveLevelBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveLevelBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveLevelBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveLevelBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveLevelBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLevelBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLevelBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveLevelBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveLevelBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveLevelBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLevelBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveLevelBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveLevelBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveLevelBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveLevelBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveLevelBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLevelBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveLevelBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveLevelBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLevelBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveLevelBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveLevelBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveLevelBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveLevelBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveLevelBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveLevelBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveLevelBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveLevelBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveLevelBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveLevelBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveLevelBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveLevelBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveLevelBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveLevelBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveLevelBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLevelBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveLevelBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveLevelBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveLevelBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveLevelBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveLevelBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveLevelBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveLevelBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveLevelBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveLevelBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveLevelBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveLevelBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveLevelBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveLevelBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveLevelBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveLevelBarMethod "getInverted" o = LevelBarGetInvertedMethodInfo - ResolveLevelBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveLevelBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveLevelBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveLevelBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveLevelBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveLevelBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveLevelBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveLevelBarMethod "getMaxValue" o = LevelBarGetMaxValueMethodInfo - ResolveLevelBarMethod "getMinValue" o = LevelBarGetMinValueMethodInfo - ResolveLevelBarMethod "getMode" o = LevelBarGetModeMethodInfo - ResolveLevelBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveLevelBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveLevelBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveLevelBarMethod "getOffsetValue" o = LevelBarGetOffsetValueMethodInfo - ResolveLevelBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveLevelBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveLevelBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveLevelBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveLevelBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveLevelBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveLevelBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveLevelBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveLevelBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveLevelBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveLevelBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveLevelBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveLevelBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveLevelBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLevelBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLevelBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveLevelBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveLevelBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveLevelBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveLevelBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveLevelBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveLevelBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveLevelBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveLevelBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveLevelBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveLevelBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveLevelBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveLevelBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveLevelBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveLevelBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveLevelBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveLevelBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveLevelBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveLevelBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveLevelBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveLevelBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveLevelBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveLevelBarMethod "getValue" o = LevelBarGetValueMethodInfo - ResolveLevelBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveLevelBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveLevelBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveLevelBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveLevelBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveLevelBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveLevelBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveLevelBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveLevelBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveLevelBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveLevelBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveLevelBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveLevelBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveLevelBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveLevelBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLevelBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveLevelBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveLevelBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveLevelBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveLevelBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveLevelBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveLevelBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveLevelBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveLevelBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveLevelBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveLevelBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveLevelBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveLevelBarMethod "setInverted" o = LevelBarSetInvertedMethodInfo - ResolveLevelBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveLevelBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveLevelBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveLevelBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveLevelBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveLevelBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveLevelBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveLevelBarMethod "setMaxValue" o = LevelBarSetMaxValueMethodInfo - ResolveLevelBarMethod "setMinValue" o = LevelBarSetMinValueMethodInfo - ResolveLevelBarMethod "setMode" o = LevelBarSetModeMethodInfo - ResolveLevelBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveLevelBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveLevelBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveLevelBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveLevelBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveLevelBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLevelBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveLevelBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveLevelBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveLevelBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveLevelBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveLevelBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveLevelBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveLevelBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveLevelBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveLevelBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveLevelBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveLevelBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveLevelBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveLevelBarMethod "setValue" o = LevelBarSetValueMethodInfo - ResolveLevelBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveLevelBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveLevelBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveLevelBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveLevelBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveLevelBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLevelBarMethod t LevelBar, MethodInfo info LevelBar p) => IsLabelProxy t (LevelBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLevelBarMethod t LevelBar, MethodInfo info LevelBar p) => IsLabel t (LevelBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal LevelBar::offset-changed -type LevelBarOffsetChangedCallback = - T.Text -> - IO () - -noLevelBarOffsetChangedCallback :: Maybe LevelBarOffsetChangedCallback -noLevelBarOffsetChangedCallback = Nothing - -type LevelBarOffsetChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLevelBarOffsetChangedCallback :: LevelBarOffsetChangedCallbackC -> IO (FunPtr LevelBarOffsetChangedCallbackC) - -levelBarOffsetChangedClosure :: LevelBarOffsetChangedCallback -> IO Closure -levelBarOffsetChangedClosure cb = newCClosure =<< mkLevelBarOffsetChangedCallback wrapped - where wrapped = levelBarOffsetChangedCallbackWrapper cb - -levelBarOffsetChangedCallbackWrapper :: - LevelBarOffsetChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -levelBarOffsetChangedCallbackWrapper _cb _ name _ = do - name' <- cstringToText name - _cb name' - -onLevelBarOffsetChanged :: (GObject a, MonadIO m) => a -> LevelBarOffsetChangedCallback -> m SignalHandlerId -onLevelBarOffsetChanged obj cb = liftIO $ connectLevelBarOffsetChanged obj cb SignalConnectBefore -afterLevelBarOffsetChanged :: (GObject a, MonadIO m) => a -> LevelBarOffsetChangedCallback -> m SignalHandlerId -afterLevelBarOffsetChanged obj cb = connectLevelBarOffsetChanged obj cb SignalConnectAfter - -connectLevelBarOffsetChanged :: (GObject a, MonadIO m) => - a -> LevelBarOffsetChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectLevelBarOffsetChanged obj cb after = liftIO $ do - cb' <- mkLevelBarOffsetChangedCallback (levelBarOffsetChangedCallbackWrapper cb) - connectSignalFunPtr obj "offset-changed" cb' after - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLevelBarInverted :: (MonadIO m, LevelBarK o) => o -> m Bool -getLevelBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted" - -setLevelBarInverted :: (MonadIO m, LevelBarK o) => o -> Bool -> m () -setLevelBarInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val - -constructLevelBarInverted :: Bool -> IO ([Char], GValue) -constructLevelBarInverted val = constructObjectPropertyBool "inverted" val - -data LevelBarInvertedPropertyInfo -instance AttrInfo LevelBarInvertedPropertyInfo where - type AttrAllowedOps LevelBarInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LevelBarInvertedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LevelBarInvertedPropertyInfo = LevelBarK - type AttrGetType LevelBarInvertedPropertyInfo = Bool - type AttrLabel LevelBarInvertedPropertyInfo = "inverted" - attrGet _ = getLevelBarInverted - attrSet _ = setLevelBarInverted - attrConstruct _ = constructLevelBarInverted - attrClear _ = undefined - --- VVV Prop "max-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLevelBarMaxValue :: (MonadIO m, LevelBarK o) => o -> m Double -getLevelBarMaxValue obj = liftIO $ getObjectPropertyDouble obj "max-value" - -setLevelBarMaxValue :: (MonadIO m, LevelBarK o) => o -> Double -> m () -setLevelBarMaxValue obj val = liftIO $ setObjectPropertyDouble obj "max-value" val - -constructLevelBarMaxValue :: Double -> IO ([Char], GValue) -constructLevelBarMaxValue val = constructObjectPropertyDouble "max-value" val - -data LevelBarMaxValuePropertyInfo -instance AttrInfo LevelBarMaxValuePropertyInfo where - type AttrAllowedOps LevelBarMaxValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LevelBarMaxValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint LevelBarMaxValuePropertyInfo = LevelBarK - type AttrGetType LevelBarMaxValuePropertyInfo = Double - type AttrLabel LevelBarMaxValuePropertyInfo = "max-value" - attrGet _ = getLevelBarMaxValue - attrSet _ = setLevelBarMaxValue - attrConstruct _ = constructLevelBarMaxValue - attrClear _ = undefined - --- VVV Prop "min-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLevelBarMinValue :: (MonadIO m, LevelBarK o) => o -> m Double -getLevelBarMinValue obj = liftIO $ getObjectPropertyDouble obj "min-value" - -setLevelBarMinValue :: (MonadIO m, LevelBarK o) => o -> Double -> m () -setLevelBarMinValue obj val = liftIO $ setObjectPropertyDouble obj "min-value" val - -constructLevelBarMinValue :: Double -> IO ([Char], GValue) -constructLevelBarMinValue val = constructObjectPropertyDouble "min-value" val - -data LevelBarMinValuePropertyInfo -instance AttrInfo LevelBarMinValuePropertyInfo where - type AttrAllowedOps LevelBarMinValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LevelBarMinValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint LevelBarMinValuePropertyInfo = LevelBarK - type AttrGetType LevelBarMinValuePropertyInfo = Double - type AttrLabel LevelBarMinValuePropertyInfo = "min-value" - attrGet _ = getLevelBarMinValue - attrSet _ = setLevelBarMinValue - attrConstruct _ = constructLevelBarMinValue - attrClear _ = undefined - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "LevelBarMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLevelBarMode :: (MonadIO m, LevelBarK o) => o -> m LevelBarMode -getLevelBarMode obj = liftIO $ getObjectPropertyEnum obj "mode" - -setLevelBarMode :: (MonadIO m, LevelBarK o) => o -> LevelBarMode -> m () -setLevelBarMode obj val = liftIO $ setObjectPropertyEnum obj "mode" val - -constructLevelBarMode :: LevelBarMode -> IO ([Char], GValue) -constructLevelBarMode val = constructObjectPropertyEnum "mode" val - -data LevelBarModePropertyInfo -instance AttrInfo LevelBarModePropertyInfo where - type AttrAllowedOps LevelBarModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LevelBarModePropertyInfo = (~) LevelBarMode - type AttrBaseTypeConstraint LevelBarModePropertyInfo = LevelBarK - type AttrGetType LevelBarModePropertyInfo = LevelBarMode - type AttrLabel LevelBarModePropertyInfo = "mode" - attrGet _ = getLevelBarMode - attrSet _ = setLevelBarMode - attrConstruct _ = constructLevelBarMode - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLevelBarValue :: (MonadIO m, LevelBarK o) => o -> m Double -getLevelBarValue obj = liftIO $ getObjectPropertyDouble obj "value" - -setLevelBarValue :: (MonadIO m, LevelBarK o) => o -> Double -> m () -setLevelBarValue obj val = liftIO $ setObjectPropertyDouble obj "value" val - -constructLevelBarValue :: Double -> IO ([Char], GValue) -constructLevelBarValue val = constructObjectPropertyDouble "value" val - -data LevelBarValuePropertyInfo -instance AttrInfo LevelBarValuePropertyInfo where - type AttrAllowedOps LevelBarValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LevelBarValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint LevelBarValuePropertyInfo = LevelBarK - type AttrGetType LevelBarValuePropertyInfo = Double - type AttrLabel LevelBarValuePropertyInfo = "value" - attrGet _ = getLevelBarValue - attrSet _ = setLevelBarValue - attrConstruct _ = constructLevelBarValue - attrClear _ = undefined - -type instance AttributeList LevelBar = LevelBarAttributeList -type LevelBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxValue", LevelBarMaxValuePropertyInfo), '("minValue", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -levelBarInverted :: AttrLabelProxy "inverted" -levelBarInverted = AttrLabelProxy - -levelBarMaxValue :: AttrLabelProxy "maxValue" -levelBarMaxValue = AttrLabelProxy - -levelBarMinValue :: AttrLabelProxy "minValue" -levelBarMinValue = AttrLabelProxy - -levelBarMode :: AttrLabelProxy "mode" -levelBarMode = AttrLabelProxy - -levelBarValue :: AttrLabelProxy "value" -levelBarValue = AttrLabelProxy - -data LevelBarOffsetChangedSignalInfo -instance SignalInfo LevelBarOffsetChangedSignalInfo where - type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback - connectSignal _ = connectLevelBarOffsetChanged - -type instance SignalList LevelBar = LevelBarSignalList -type LevelBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("offsetChanged", LevelBarOffsetChangedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method LevelBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LevelBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_level_bar_new" gtk_level_bar_new :: - IO (Ptr LevelBar) - - -levelBarNew :: - (MonadIO m) => - m LevelBar -- result -levelBarNew = liftIO $ do - result <- gtk_level_bar_new - checkUnexpectedReturnNULL "gtk_level_bar_new" result - result' <- (newObject LevelBar) result - return result' - --- method LevelBar::new_for_interval --- method type : Constructor --- Args : [Arg {argCName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LevelBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_level_bar_new_for_interval" gtk_level_bar_new_for_interval :: - CDouble -> -- min_value : TBasicType TDouble - CDouble -> -- max_value : TBasicType TDouble - IO (Ptr LevelBar) - - -levelBarNewForInterval :: - (MonadIO m) => - Double -- minValue - -> Double -- maxValue - -> m LevelBar -- result -levelBarNewForInterval minValue maxValue = liftIO $ do - let minValue' = realToFrac minValue - let maxValue' = realToFrac maxValue - result <- gtk_level_bar_new_for_interval minValue' maxValue' - checkUnexpectedReturnNULL "gtk_level_bar_new_for_interval" result - result' <- (newObject LevelBar) result - return result' - --- method LevelBar::add_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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},Arg {argCName = "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 "gtk_level_bar_add_offset_value" gtk_level_bar_add_offset_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CString -> -- name : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - IO () - - -levelBarAddOffsetValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> T.Text -- name - -> Double -- value - -> m () -- result -levelBarAddOffsetValue _obj name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let value' = realToFrac value - gtk_level_bar_add_offset_value _obj' name' value' - touchManagedPtr _obj - freeMem name' - return () - -data LevelBarAddOffsetValueMethodInfo -instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarAddOffsetValueMethodInfo a signature where - overloadedMethod _ = levelBarAddOffsetValue - --- method LevelBar::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 "gtk_level_bar_get_inverted" gtk_level_bar_get_inverted :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - IO CInt - - -levelBarGetInverted :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> m Bool -- result -levelBarGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LevelBarGetInvertedMethodInfo -instance (signature ~ (m Bool), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetInvertedMethodInfo a signature where - overloadedMethod _ = levelBarGetInverted - --- method LevelBar::get_max_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 "gtk_level_bar_get_max_value" gtk_level_bar_get_max_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - IO CDouble - - -levelBarGetMaxValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> m Double -- result -levelBarGetMaxValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_max_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LevelBarGetMaxValueMethodInfo -instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetMaxValueMethodInfo a signature where - overloadedMethod _ = levelBarGetMaxValue - --- method LevelBar::get_min_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 "gtk_level_bar_get_min_value" gtk_level_bar_get_min_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - IO CDouble - - -levelBarGetMinValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> m Double -- result -levelBarGetMinValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_min_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LevelBarGetMinValueMethodInfo -instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetMinValueMethodInfo a signature where - overloadedMethod _ = levelBarGetMinValue - --- method LevelBar::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LevelBarMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_level_bar_get_mode" gtk_level_bar_get_mode :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - IO CUInt - - -levelBarGetMode :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> m LevelBarMode -- result -levelBarGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data LevelBarGetModeMethodInfo -instance (signature ~ (m LevelBarMode), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetModeMethodInfo a signature where - overloadedMethod _ = levelBarGetMode - --- method LevelBar::get_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_level_bar_get_offset_value" gtk_level_bar_get_offset_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CString -> -- name : TBasicType TUTF8 - Ptr CDouble -> -- value : TBasicType TDouble - IO CInt - - -levelBarGetOffsetValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m (Bool,Double) -- result -levelBarGetOffsetValue _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - value <- allocMem :: IO (Ptr CDouble) - result <- gtk_level_bar_get_offset_value _obj' maybeName value - let result' = (/= 0) result - value' <- peek value - let value'' = realToFrac value' - touchManagedPtr _obj - freeMem maybeName - freeMem value - return (result', value'') - -data LevelBarGetOffsetValueMethodInfo -instance (signature ~ (Maybe (T.Text) -> m (Bool,Double)), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetOffsetValueMethodInfo a signature where - overloadedMethod _ = levelBarGetOffsetValue - --- method LevelBar::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 "gtk_level_bar_get_value" gtk_level_bar_get_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - IO CDouble - - -levelBarGetValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> m Double -- result -levelBarGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data LevelBarGetValueMethodInfo -instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetValueMethodInfo a signature where - overloadedMethod _ = levelBarGetValue - --- method LevelBar::remove_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_level_bar_remove_offset_value" gtk_level_bar_remove_offset_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CString -> -- name : TBasicType TUTF8 - IO () - - -levelBarRemoveOffsetValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m () -- result -levelBarRemoveOffsetValue _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - gtk_level_bar_remove_offset_value _obj' maybeName - touchManagedPtr _obj - freeMem maybeName - return () - -data LevelBarRemoveOffsetValueMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarRemoveOffsetValueMethodInfo a signature where - overloadedMethod _ = levelBarRemoveOffsetValue - --- method LevelBar::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", 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 "gtk_level_bar_set_inverted" gtk_level_bar_set_inverted :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CInt -> -- inverted : TBasicType TBoolean - IO () - - -levelBarSetInverted :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Bool -- inverted - -> m () -- result -levelBarSetInverted _obj inverted = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inverted' = (fromIntegral . fromEnum) inverted - gtk_level_bar_set_inverted _obj' inverted' - touchManagedPtr _obj - return () - -data LevelBarSetInvertedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetInvertedMethodInfo a signature where - overloadedMethod _ = levelBarSetInverted - --- method LevelBar::set_max_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_level_bar_set_max_value" gtk_level_bar_set_max_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CDouble -> -- value : TBasicType TDouble - IO () - - -levelBarSetMaxValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Double -- value - -> m () -- result -levelBarSetMaxValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_max_value _obj' value' - touchManagedPtr _obj - return () - -data LevelBarSetMaxValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetMaxValueMethodInfo a signature where - overloadedMethod _ = levelBarSetMaxValue - --- method LevelBar::set_min_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_level_bar_set_min_value" gtk_level_bar_set_min_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CDouble -> -- value : TBasicType TDouble - IO () - - -levelBarSetMinValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Double -- value - -> m () -- result -levelBarSetMinValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_min_value _obj' value' - touchManagedPtr _obj - return () - -data LevelBarSetMinValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetMinValueMethodInfo a signature where - overloadedMethod _ = levelBarSetMinValue - --- method LevelBar::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "LevelBarMode", 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 "gtk_level_bar_set_mode" gtk_level_bar_set_mode :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CUInt -> -- mode : TInterface "Gtk" "LevelBarMode" - IO () - - -levelBarSetMode :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> LevelBarMode -- mode - -> m () -- result -levelBarSetMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_level_bar_set_mode _obj' mode' - touchManagedPtr _obj - return () - -data LevelBarSetModeMethodInfo -instance (signature ~ (LevelBarMode -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetModeMethodInfo a signature where - overloadedMethod _ = levelBarSetMode - --- method LevelBar::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_level_bar_set_value" gtk_level_bar_set_value :: - Ptr LevelBar -> -- _obj : TInterface "Gtk" "LevelBar" - CDouble -> -- value : TBasicType TDouble - IO () - - -levelBarSetValue :: - (MonadIO m, LevelBarK a) => - a -- _obj - -> Double -- value - -> m () -- result -levelBarSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_value _obj' value' - touchManagedPtr _obj - return () - -data LevelBarSetValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetValueMethodInfo a signature where - overloadedMethod _ = levelBarSetValue - - diff --git a/GI/Gtk/Objects/LevelBar.hs-boot b/GI/Gtk/Objects/LevelBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LevelBar.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.LevelBar 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 LevelBar = LevelBar (ForeignPtr LevelBar) -instance GObject LevelBar where -class GObject o => LevelBarK o -instance (GObject o, IsDescendantOf LevelBar o) => LevelBarK o -data LevelBarInvertedPropertyInfo -data LevelBarMaxValuePropertyInfo -data LevelBarMinValuePropertyInfo -data LevelBarModePropertyInfo -data LevelBarValuePropertyInfo -data LevelBarOffsetChangedSignalInfo -data LevelBarAddOffsetValueMethodInfo -data LevelBarGetInvertedMethodInfo -data LevelBarGetMaxValueMethodInfo -data LevelBarGetMinValueMethodInfo -data LevelBarGetModeMethodInfo -data LevelBarGetOffsetValueMethodInfo -data LevelBarGetValueMethodInfo -data LevelBarRemoveOffsetValueMethodInfo -data LevelBarSetInvertedMethodInfo -data LevelBarSetMaxValueMethodInfo -data LevelBarSetMinValueMethodInfo -data LevelBarSetModeMethodInfo -data LevelBarSetValueMethodInfo diff --git a/GI/Gtk/Objects/LevelBarAccessible.hs b/GI/Gtk/Objects/LevelBarAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LevelBarAccessible.hs +++ /dev/null @@ -1,138 +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.Gtk.Objects.LevelBarAccessible - ( - --- * Exported types - LevelBarAccessible(..) , - LevelBarAccessibleK , - toLevelBarAccessible , - noLevelBarAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LevelBarAccessible = LevelBarAccessible (ForeignPtr LevelBarAccessible) -foreign import ccall "gtk_level_bar_accessible_get_type" - c_gtk_level_bar_accessible_get_type :: IO GType - -type instance ParentTypes LevelBarAccessible = LevelBarAccessibleParentTypes -type LevelBarAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value] - -instance GObject LevelBarAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_level_bar_accessible_get_type - - -class GObject o => LevelBarAccessibleK o -instance (GObject o, IsDescendantOf LevelBarAccessible o) => LevelBarAccessibleK o - -toLevelBarAccessible :: LevelBarAccessibleK o => o -> IO LevelBarAccessible -toLevelBarAccessible = unsafeCastTo LevelBarAccessible - -noLevelBarAccessible :: Maybe LevelBarAccessible -noLevelBarAccessible = Nothing - -type family ResolveLevelBarAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveLevelBarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveLevelBarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLevelBarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLevelBarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveLevelBarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveLevelBarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLevelBarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLevelBarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveLevelBarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveLevelBarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLevelBarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLevelBarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLevelBarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveLevelBarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveLevelBarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLevelBarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveLevelBarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveLevelBarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveLevelBarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLevelBarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveLevelBarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveLevelBarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveLevelBarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveLevelBarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLevelBarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLevelBarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLevelBarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLevelBarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLevelBarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLevelBarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLevelBarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLevelBarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveLevelBarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveLevelBarAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveLevelBarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLevelBarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveLevelBarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveLevelBarAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveLevelBarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveLevelBarAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveLevelBarAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveLevelBarAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveLevelBarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveLevelBarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveLevelBarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveLevelBarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveLevelBarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveLevelBarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLevelBarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLevelBarAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveLevelBarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveLevelBarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveLevelBarAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveLevelBarAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveLevelBarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveLevelBarAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveLevelBarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLevelBarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveLevelBarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveLevelBarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveLevelBarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveLevelBarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveLevelBarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLevelBarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveLevelBarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveLevelBarAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveLevelBarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveLevelBarAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLevelBarAccessibleMethod t LevelBarAccessible, MethodInfo info LevelBarAccessible p) => IsLabelProxy t (LevelBarAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLevelBarAccessibleMethod t LevelBarAccessible, MethodInfo info LevelBarAccessible p) => IsLabel t (LevelBarAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList LevelBarAccessible = LevelBarAccessibleAttributeList -type LevelBarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LevelBarAccessible = LevelBarAccessibleSignalList -type LevelBarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/LevelBarAccessible.hs-boot b/GI/Gtk/Objects/LevelBarAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LevelBarAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.LevelBarAccessible 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 LevelBarAccessible = LevelBarAccessible (ForeignPtr LevelBarAccessible) -instance GObject LevelBarAccessible where -class GObject o => LevelBarAccessibleK o -instance (GObject o, IsDescendantOf LevelBarAccessible o) => LevelBarAccessibleK o diff --git a/GI/Gtk/Objects/LinkButton.hs b/GI/Gtk/Objects/LinkButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LinkButton.hs +++ /dev/null @@ -1,766 +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.Gtk.Objects.LinkButton - ( - --- * Exported types - LinkButton(..) , - LinkButtonK , - toLinkButton , - noLinkButton , - - - -- * Methods --- ** linkButtonGetUri - LinkButtonGetUriMethodInfo , - linkButtonGetUri , - - --- ** linkButtonGetVisited - LinkButtonGetVisitedMethodInfo , - linkButtonGetVisited , - - --- ** linkButtonNew - linkButtonNew , - - --- ** linkButtonNewWithLabel - linkButtonNewWithLabel , - - --- ** linkButtonSetUri - LinkButtonSetUriMethodInfo , - linkButtonSetUri , - - --- ** linkButtonSetVisited - LinkButtonSetVisitedMethodInfo , - linkButtonSetVisited , - - - - - -- * Properties --- ** Uri - LinkButtonUriPropertyInfo , - constructLinkButtonUri , - getLinkButtonUri , - linkButtonUri , - setLinkButtonUri , - - --- ** Visited - LinkButtonVisitedPropertyInfo , - constructLinkButtonVisited , - getLinkButtonVisited , - linkButtonVisited , - setLinkButtonVisited , - - - - - -- * Signals --- ** ActivateLink - LinkButtonActivateLinkCallback , - LinkButtonActivateLinkCallbackC , - LinkButtonActivateLinkSignalInfo , - afterLinkButtonActivateLink , - linkButtonActivateLinkCallbackWrapper , - linkButtonActivateLinkClosure , - mkLinkButtonActivateLinkCallback , - noLinkButtonActivateLinkCallback , - onLinkButtonActivateLink , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LinkButton = LinkButton (ForeignPtr LinkButton) -foreign import ccall "gtk_link_button_get_type" - c_gtk_link_button_get_type :: IO GType - -type instance ParentTypes LinkButton = LinkButtonParentTypes -type LinkButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject LinkButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_link_button_get_type - - -class GObject o => LinkButtonK o -instance (GObject o, IsDescendantOf LinkButton o) => LinkButtonK o - -toLinkButton :: LinkButtonK o => o -> IO LinkButton -toLinkButton = unsafeCastTo LinkButton - -noLinkButton :: Maybe LinkButton -noLinkButton = Nothing - -type family ResolveLinkButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveLinkButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveLinkButtonMethod "add" o = ContainerAddMethodInfo - ResolveLinkButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveLinkButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveLinkButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveLinkButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveLinkButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveLinkButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveLinkButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLinkButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLinkButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveLinkButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveLinkButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveLinkButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveLinkButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveLinkButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveLinkButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveLinkButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveLinkButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveLinkButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveLinkButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveLinkButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveLinkButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveLinkButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveLinkButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveLinkButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveLinkButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveLinkButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveLinkButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveLinkButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveLinkButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveLinkButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveLinkButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveLinkButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveLinkButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveLinkButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveLinkButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveLinkButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveLinkButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveLinkButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveLinkButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveLinkButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveLinkButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveLinkButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveLinkButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveLinkButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveLinkButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveLinkButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveLinkButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveLinkButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveLinkButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveLinkButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveLinkButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveLinkButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveLinkButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveLinkButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveLinkButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveLinkButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveLinkButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveLinkButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveLinkButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveLinkButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveLinkButtonMethod "event" o = WidgetEventMethodInfo - ResolveLinkButtonMethod "forall" o = ContainerForallMethodInfo - ResolveLinkButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLinkButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveLinkButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveLinkButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLinkButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveLinkButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveLinkButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveLinkButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveLinkButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveLinkButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveLinkButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveLinkButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveLinkButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveLinkButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveLinkButtonMethod "hide" o = WidgetHideMethodInfo - ResolveLinkButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveLinkButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveLinkButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveLinkButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveLinkButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveLinkButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveLinkButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveLinkButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveLinkButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveLinkButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLinkButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveLinkButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveLinkButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveLinkButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveLinkButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveLinkButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveLinkButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveLinkButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveLinkButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveLinkButtonMethod "map" o = WidgetMapMethodInfo - ResolveLinkButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveLinkButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveLinkButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveLinkButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveLinkButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveLinkButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveLinkButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveLinkButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveLinkButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLinkButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLinkButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveLinkButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveLinkButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveLinkButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveLinkButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveLinkButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveLinkButtonMethod "path" o = WidgetPathMethodInfo - ResolveLinkButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveLinkButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveLinkButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveLinkButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveLinkButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveLinkButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveLinkButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveLinkButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveLinkButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveLinkButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLinkButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLinkButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveLinkButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveLinkButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveLinkButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveLinkButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveLinkButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveLinkButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveLinkButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveLinkButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveLinkButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveLinkButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLinkButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLinkButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveLinkButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveLinkButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveLinkButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLinkButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveLinkButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveLinkButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveLinkButtonMethod "show" o = WidgetShowMethodInfo - ResolveLinkButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveLinkButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveLinkButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveLinkButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveLinkButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveLinkButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLinkButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLinkButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveLinkButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveLinkButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveLinkButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveLinkButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLinkButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveLinkButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveLinkButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveLinkButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveLinkButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveLinkButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLinkButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveLinkButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveLinkButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveLinkButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLinkButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveLinkButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveLinkButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveLinkButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveLinkButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveLinkButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveLinkButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveLinkButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveLinkButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveLinkButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveLinkButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveLinkButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveLinkButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveLinkButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveLinkButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveLinkButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveLinkButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveLinkButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveLinkButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveLinkButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveLinkButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveLinkButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveLinkButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLinkButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveLinkButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveLinkButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveLinkButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveLinkButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveLinkButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveLinkButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveLinkButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveLinkButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveLinkButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveLinkButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveLinkButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveLinkButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveLinkButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveLinkButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveLinkButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveLinkButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveLinkButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveLinkButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveLinkButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveLinkButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveLinkButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveLinkButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveLinkButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveLinkButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveLinkButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveLinkButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveLinkButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveLinkButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveLinkButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveLinkButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveLinkButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveLinkButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveLinkButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveLinkButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveLinkButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveLinkButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveLinkButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveLinkButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveLinkButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveLinkButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveLinkButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveLinkButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveLinkButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveLinkButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveLinkButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveLinkButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveLinkButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLinkButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLinkButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveLinkButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveLinkButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveLinkButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveLinkButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveLinkButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveLinkButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveLinkButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveLinkButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveLinkButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveLinkButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveLinkButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveLinkButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveLinkButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveLinkButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveLinkButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveLinkButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveLinkButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveLinkButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveLinkButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveLinkButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveLinkButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveLinkButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveLinkButtonMethod "getUri" o = LinkButtonGetUriMethodInfo - ResolveLinkButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveLinkButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveLinkButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveLinkButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveLinkButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveLinkButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveLinkButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveLinkButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveLinkButtonMethod "getVisited" o = LinkButtonGetVisitedMethodInfo - ResolveLinkButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveLinkButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveLinkButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveLinkButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveLinkButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveLinkButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveLinkButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveLinkButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveLinkButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveLinkButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveLinkButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveLinkButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveLinkButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveLinkButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveLinkButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveLinkButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveLinkButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLinkButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveLinkButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveLinkButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveLinkButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveLinkButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveLinkButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveLinkButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveLinkButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveLinkButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveLinkButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveLinkButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveLinkButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveLinkButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveLinkButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveLinkButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveLinkButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveLinkButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveLinkButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveLinkButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveLinkButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveLinkButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveLinkButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveLinkButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveLinkButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveLinkButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveLinkButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveLinkButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveLinkButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveLinkButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveLinkButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveLinkButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveLinkButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveLinkButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLinkButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveLinkButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveLinkButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveLinkButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveLinkButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveLinkButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveLinkButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveLinkButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveLinkButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveLinkButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveLinkButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveLinkButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveLinkButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveLinkButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveLinkButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveLinkButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveLinkButtonMethod "setUri" o = LinkButtonSetUriMethodInfo - ResolveLinkButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveLinkButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveLinkButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveLinkButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveLinkButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveLinkButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveLinkButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveLinkButtonMethod "setVisited" o = LinkButtonSetVisitedMethodInfo - ResolveLinkButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveLinkButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveLinkButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLinkButtonMethod t LinkButton, MethodInfo info LinkButton p) => IsLabelProxy t (LinkButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLinkButtonMethod t LinkButton, MethodInfo info LinkButton p) => IsLabel t (LinkButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal LinkButton::activate-link -type LinkButtonActivateLinkCallback = - IO Bool - -noLinkButtonActivateLinkCallback :: Maybe LinkButtonActivateLinkCallback -noLinkButtonActivateLinkCallback = Nothing - -type LinkButtonActivateLinkCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkLinkButtonActivateLinkCallback :: LinkButtonActivateLinkCallbackC -> IO (FunPtr LinkButtonActivateLinkCallbackC) - -linkButtonActivateLinkClosure :: LinkButtonActivateLinkCallback -> IO Closure -linkButtonActivateLinkClosure cb = newCClosure =<< mkLinkButtonActivateLinkCallback wrapped - where wrapped = linkButtonActivateLinkCallbackWrapper cb - -linkButtonActivateLinkCallbackWrapper :: - LinkButtonActivateLinkCallback -> - Ptr () -> - Ptr () -> - IO CInt -linkButtonActivateLinkCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onLinkButtonActivateLink :: (GObject a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId -onLinkButtonActivateLink obj cb = liftIO $ connectLinkButtonActivateLink obj cb SignalConnectBefore -afterLinkButtonActivateLink :: (GObject a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId -afterLinkButtonActivateLink obj cb = connectLinkButtonActivateLink obj cb SignalConnectAfter - -connectLinkButtonActivateLink :: (GObject a, MonadIO m) => - a -> LinkButtonActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectLinkButtonActivateLink obj cb after = liftIO $ do - cb' <- mkLinkButtonActivateLinkCallback (linkButtonActivateLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-link" cb' after - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> m T.Text -getLinkButtonUri obj = liftIO $ checkUnexpectedNothing "getLinkButtonUri" $ getObjectPropertyString obj "uri" - -setLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> T.Text -> m () -setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) - -constructLinkButtonUri :: T.Text -> IO ([Char], GValue) -constructLinkButtonUri val = constructObjectPropertyString "uri" (Just val) - -data LinkButtonUriPropertyInfo -instance AttrInfo LinkButtonUriPropertyInfo where - type AttrAllowedOps LinkButtonUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LinkButtonUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LinkButtonUriPropertyInfo = LinkButtonK - type AttrGetType LinkButtonUriPropertyInfo = T.Text - type AttrLabel LinkButtonUriPropertyInfo = "uri" - attrGet _ = getLinkButtonUri - attrSet _ = setLinkButtonUri - attrConstruct _ = constructLinkButtonUri - attrClear _ = undefined - --- VVV Prop "visited" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getLinkButtonVisited :: (MonadIO m, LinkButtonK o) => o -> m Bool -getLinkButtonVisited obj = liftIO $ getObjectPropertyBool obj "visited" - -setLinkButtonVisited :: (MonadIO m, LinkButtonK o) => o -> Bool -> m () -setLinkButtonVisited obj val = liftIO $ setObjectPropertyBool obj "visited" val - -constructLinkButtonVisited :: Bool -> IO ([Char], GValue) -constructLinkButtonVisited val = constructObjectPropertyBool "visited" val - -data LinkButtonVisitedPropertyInfo -instance AttrInfo LinkButtonVisitedPropertyInfo where - type AttrAllowedOps LinkButtonVisitedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LinkButtonVisitedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LinkButtonVisitedPropertyInfo = LinkButtonK - type AttrGetType LinkButtonVisitedPropertyInfo = Bool - type AttrLabel LinkButtonVisitedPropertyInfo = "visited" - attrGet _ = getLinkButtonVisited - attrSet _ = setLinkButtonVisited - attrConstruct _ = constructLinkButtonVisited - attrClear _ = undefined - -type instance AttributeList LinkButton = LinkButtonAttributeList -type LinkButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -linkButtonUri :: AttrLabelProxy "uri" -linkButtonUri = AttrLabelProxy - -linkButtonVisited :: AttrLabelProxy "visited" -linkButtonVisited = AttrLabelProxy - -data LinkButtonActivateLinkSignalInfo -instance SignalInfo LinkButtonActivateLinkSignalInfo where - type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback - connectSignal _ = connectLinkButtonActivateLink - -type instance SignalList LinkButton = LinkButtonSignalList -type LinkButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("activateLink", LinkButtonActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method LinkButton::new --- method type : Constructor --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LinkButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_link_button_new" gtk_link_button_new :: - CString -> -- uri : TBasicType TUTF8 - IO (Ptr LinkButton) - - -linkButtonNew :: - (MonadIO m) => - T.Text -- uri - -> m LinkButton -- result -linkButtonNew uri = liftIO $ do - uri' <- textToCString uri - result <- gtk_link_button_new uri' - checkUnexpectedReturnNULL "gtk_link_button_new" result - result' <- (newObject LinkButton) result - freeMem uri' - return result' - --- method LinkButton::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LinkButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_link_button_new_with_label" gtk_link_button_new_with_label :: - CString -> -- uri : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - IO (Ptr LinkButton) - - -linkButtonNewWithLabel :: - (MonadIO m) => - T.Text -- uri - -> Maybe (T.Text) -- label - -> m LinkButton -- result -linkButtonNewWithLabel uri label = liftIO $ do - uri' <- textToCString uri - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_link_button_new_with_label uri' maybeLabel - checkUnexpectedReturnNULL "gtk_link_button_new_with_label" result - result' <- (newObject LinkButton) result - freeMem uri' - freeMem maybeLabel - return result' - --- method LinkButton::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", 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 "gtk_link_button_get_uri" gtk_link_button_get_uri :: - Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton" - IO CString - - -linkButtonGetUri :: - (MonadIO m, LinkButtonK a) => - a -- _obj - -> m T.Text -- result -linkButtonGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_link_button_get_uri _obj' - checkUnexpectedReturnNULL "gtk_link_button_get_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data LinkButtonGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonGetUriMethodInfo a signature where - overloadedMethod _ = linkButtonGetUri - --- method LinkButton::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", 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 "gtk_link_button_get_visited" gtk_link_button_get_visited :: - Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton" - IO CInt - - -linkButtonGetVisited :: - (MonadIO m, LinkButtonK a) => - a -- _obj - -> m Bool -- result -linkButtonGetVisited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_link_button_get_visited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LinkButtonGetVisitedMethodInfo -instance (signature ~ (m Bool), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonGetVisitedMethodInfo a signature where - overloadedMethod _ = linkButtonGetVisited - --- method LinkButton::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_link_button_set_uri" gtk_link_button_set_uri :: - Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton" - CString -> -- uri : TBasicType TUTF8 - IO () - - -linkButtonSetUri :: - (MonadIO m, LinkButtonK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -linkButtonSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_link_button_set_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data LinkButtonSetUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonSetUriMethodInfo a signature where - overloadedMethod _ = linkButtonSetUri - --- method LinkButton::set_visited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visited", 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 "gtk_link_button_set_visited" gtk_link_button_set_visited :: - Ptr LinkButton -> -- _obj : TInterface "Gtk" "LinkButton" - CInt -> -- visited : TBasicType TBoolean - IO () - - -linkButtonSetVisited :: - (MonadIO m, LinkButtonK a) => - a -- _obj - -> Bool -- visited - -> m () -- result -linkButtonSetVisited _obj visited = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visited' = (fromIntegral . fromEnum) visited - gtk_link_button_set_visited _obj' visited' - touchManagedPtr _obj - return () - -data LinkButtonSetVisitedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonSetVisitedMethodInfo a signature where - overloadedMethod _ = linkButtonSetVisited - - diff --git a/GI/Gtk/Objects/LinkButton.hs-boot b/GI/Gtk/Objects/LinkButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LinkButton.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.LinkButton 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 LinkButton = LinkButton (ForeignPtr LinkButton) -instance GObject LinkButton where -class GObject o => LinkButtonK o -instance (GObject o, IsDescendantOf LinkButton o) => LinkButtonK o -data LinkButtonUriPropertyInfo -data LinkButtonVisitedPropertyInfo -data LinkButtonActivateLinkSignalInfo -data LinkButtonGetUriMethodInfo -data LinkButtonGetVisitedMethodInfo -data LinkButtonSetUriMethodInfo -data LinkButtonSetVisitedMethodInfo diff --git a/GI/Gtk/Objects/LinkButtonAccessible.hs b/GI/Gtk/Objects/LinkButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LinkButtonAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.LinkButtonAccessible - ( - --- * Exported types - LinkButtonAccessible(..) , - LinkButtonAccessibleK , - toLinkButtonAccessible , - noLinkButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LinkButtonAccessible = LinkButtonAccessible (ForeignPtr LinkButtonAccessible) -foreign import ccall "gtk_link_button_accessible_get_type" - c_gtk_link_button_accessible_get_type :: IO GType - -type instance ParentTypes LinkButtonAccessible = LinkButtonAccessibleParentTypes -type LinkButtonAccessibleParentTypes = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.HyperlinkImpl, Atk.Image] - -instance GObject LinkButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_link_button_accessible_get_type - - -class GObject o => LinkButtonAccessibleK o -instance (GObject o, IsDescendantOf LinkButtonAccessible o) => LinkButtonAccessibleK o - -toLinkButtonAccessible :: LinkButtonAccessibleK o => o -> IO LinkButtonAccessible -toLinkButtonAccessible = unsafeCastTo LinkButtonAccessible - -noLinkButtonAccessible :: Maybe LinkButtonAccessible -noLinkButtonAccessible = Nothing - -type family ResolveLinkButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveLinkButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveLinkButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLinkButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLinkButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveLinkButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveLinkButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveLinkButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLinkButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLinkButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveLinkButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveLinkButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLinkButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLinkButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLinkButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveLinkButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveLinkButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLinkButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveLinkButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveLinkButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveLinkButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLinkButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveLinkButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveLinkButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveLinkButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveLinkButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLinkButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLinkButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLinkButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLinkButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLinkButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLinkButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLinkButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLinkButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveLinkButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveLinkButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLinkButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveLinkButtonAccessibleMethod "getHyperlink" o = Atk.HyperlinkImplGetHyperlinkMethodInfo - ResolveLinkButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveLinkButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveLinkButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveLinkButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveLinkButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveLinkButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveLinkButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveLinkButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveLinkButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveLinkButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveLinkButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveLinkButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveLinkButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLinkButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLinkButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveLinkButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveLinkButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveLinkButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLinkButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveLinkButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveLinkButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveLinkButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveLinkButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveLinkButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLinkButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveLinkButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveLinkButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveLinkButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, MethodInfo info LinkButtonAccessible p) => IsLabelProxy t (LinkButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, MethodInfo info LinkButtonAccessible p) => IsLabel t (LinkButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList LinkButtonAccessible = LinkButtonAccessibleAttributeList -type LinkButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LinkButtonAccessible = LinkButtonAccessibleSignalList -type LinkButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/LinkButtonAccessible.hs-boot b/GI/Gtk/Objects/LinkButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LinkButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.LinkButtonAccessible 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 LinkButtonAccessible = LinkButtonAccessible (ForeignPtr LinkButtonAccessible) -instance GObject LinkButtonAccessible where -class GObject o => LinkButtonAccessibleK o -instance (GObject o, IsDescendantOf LinkButtonAccessible o) => LinkButtonAccessibleK o diff --git a/GI/Gtk/Objects/ListBox.hs b/GI/Gtk/Objects/ListBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ListBox.hs +++ /dev/null @@ -1,1968 +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.Gtk.Objects.ListBox - ( - --- * Exported types - ListBox(..) , - ListBoxK , - toListBox , - noListBox , - - - -- * Methods --- ** listBoxBindModel - ListBoxBindModelMethodInfo , - listBoxBindModel , - - --- ** listBoxDragHighlightRow - ListBoxDragHighlightRowMethodInfo , - listBoxDragHighlightRow , - - --- ** listBoxDragUnhighlightRow - ListBoxDragUnhighlightRowMethodInfo , - listBoxDragUnhighlightRow , - - --- ** listBoxGetActivateOnSingleClick - ListBoxGetActivateOnSingleClickMethodInfo, - listBoxGetActivateOnSingleClick , - - --- ** listBoxGetAdjustment - ListBoxGetAdjustmentMethodInfo , - listBoxGetAdjustment , - - --- ** listBoxGetRowAtIndex - ListBoxGetRowAtIndexMethodInfo , - listBoxGetRowAtIndex , - - --- ** listBoxGetRowAtY - ListBoxGetRowAtYMethodInfo , - listBoxGetRowAtY , - - --- ** listBoxGetSelectedRow - ListBoxGetSelectedRowMethodInfo , - listBoxGetSelectedRow , - - --- ** listBoxGetSelectedRows - ListBoxGetSelectedRowsMethodInfo , - listBoxGetSelectedRows , - - --- ** listBoxGetSelectionMode - ListBoxGetSelectionModeMethodInfo , - listBoxGetSelectionMode , - - --- ** listBoxInsert - ListBoxInsertMethodInfo , - listBoxInsert , - - --- ** listBoxInvalidateFilter - ListBoxInvalidateFilterMethodInfo , - listBoxInvalidateFilter , - - --- ** listBoxInvalidateHeaders - ListBoxInvalidateHeadersMethodInfo , - listBoxInvalidateHeaders , - - --- ** listBoxInvalidateSort - ListBoxInvalidateSortMethodInfo , - listBoxInvalidateSort , - - --- ** listBoxNew - listBoxNew , - - --- ** listBoxPrepend - ListBoxPrependMethodInfo , - listBoxPrepend , - - --- ** listBoxSelectAll - ListBoxSelectAllMethodInfo , - listBoxSelectAll , - - --- ** listBoxSelectRow - ListBoxSelectRowMethodInfo , - listBoxSelectRow , - - --- ** listBoxSelectedForeach - ListBoxSelectedForeachMethodInfo , - listBoxSelectedForeach , - - --- ** listBoxSetActivateOnSingleClick - ListBoxSetActivateOnSingleClickMethodInfo, - listBoxSetActivateOnSingleClick , - - --- ** listBoxSetAdjustment - ListBoxSetAdjustmentMethodInfo , - listBoxSetAdjustment , - - --- ** listBoxSetFilterFunc - ListBoxSetFilterFuncMethodInfo , - listBoxSetFilterFunc , - - --- ** listBoxSetHeaderFunc - ListBoxSetHeaderFuncMethodInfo , - listBoxSetHeaderFunc , - - --- ** listBoxSetPlaceholder - ListBoxSetPlaceholderMethodInfo , - listBoxSetPlaceholder , - - --- ** listBoxSetSelectionMode - ListBoxSetSelectionModeMethodInfo , - listBoxSetSelectionMode , - - --- ** listBoxSetSortFunc - ListBoxSetSortFuncMethodInfo , - listBoxSetSortFunc , - - --- ** listBoxUnselectAll - ListBoxUnselectAllMethodInfo , - listBoxUnselectAll , - - --- ** listBoxUnselectRow - ListBoxUnselectRowMethodInfo , - listBoxUnselectRow , - - - - - -- * Properties --- ** ActivateOnSingleClick - ListBoxActivateOnSingleClickPropertyInfo, - constructListBoxActivateOnSingleClick , - getListBoxActivateOnSingleClick , - listBoxActivateOnSingleClick , - setListBoxActivateOnSingleClick , - - --- ** SelectionMode - ListBoxSelectionModePropertyInfo , - constructListBoxSelectionMode , - getListBoxSelectionMode , - listBoxSelectionMode , - setListBoxSelectionMode , - - - - - -- * Signals --- ** ActivateCursorRow - ListBoxActivateCursorRowCallback , - ListBoxActivateCursorRowCallbackC , - ListBoxActivateCursorRowSignalInfo , - afterListBoxActivateCursorRow , - listBoxActivateCursorRowCallbackWrapper , - listBoxActivateCursorRowClosure , - mkListBoxActivateCursorRowCallback , - noListBoxActivateCursorRowCallback , - onListBoxActivateCursorRow , - - --- ** MoveCursor - ListBoxMoveCursorCallback , - ListBoxMoveCursorCallbackC , - ListBoxMoveCursorSignalInfo , - afterListBoxMoveCursor , - listBoxMoveCursorCallbackWrapper , - listBoxMoveCursorClosure , - mkListBoxMoveCursorCallback , - noListBoxMoveCursorCallback , - onListBoxMoveCursor , - - --- ** RowActivated - ListBoxRowActivatedCallback , - ListBoxRowActivatedCallbackC , - ListBoxRowActivatedSignalInfo , - afterListBoxRowActivated , - listBoxRowActivatedCallbackWrapper , - listBoxRowActivatedClosure , - mkListBoxRowActivatedCallback , - noListBoxRowActivatedCallback , - onListBoxRowActivated , - - --- ** RowSelected - ListBoxRowSelectedCallback , - ListBoxRowSelectedCallbackC , - ListBoxRowSelectedSignalInfo , - afterListBoxRowSelected , - listBoxRowSelectedCallbackWrapper , - listBoxRowSelectedClosure , - mkListBoxRowSelectedCallback , - noListBoxRowSelectedCallback , - onListBoxRowSelected , - - --- ** SelectAll - ListBoxSelectAllCallback , - ListBoxSelectAllCallbackC , - ListBoxSelectAllSignalInfo , - afterListBoxSelectAll , - listBoxSelectAllCallbackWrapper , - listBoxSelectAllClosure , - mkListBoxSelectAllCallback , - noListBoxSelectAllCallback , - onListBoxSelectAll , - - --- ** SelectedRowsChanged - ListBoxSelectedRowsChangedCallback , - ListBoxSelectedRowsChangedCallbackC , - ListBoxSelectedRowsChangedSignalInfo , - afterListBoxSelectedRowsChanged , - listBoxSelectedRowsChangedCallbackWrapper, - listBoxSelectedRowsChangedClosure , - mkListBoxSelectedRowsChangedCallback , - noListBoxSelectedRowsChangedCallback , - onListBoxSelectedRowsChanged , - - --- ** ToggleCursorRow - ListBoxToggleCursorRowCallback , - ListBoxToggleCursorRowCallbackC , - ListBoxToggleCursorRowSignalInfo , - afterListBoxToggleCursorRow , - listBoxToggleCursorRowCallbackWrapper , - listBoxToggleCursorRowClosure , - mkListBoxToggleCursorRowCallback , - noListBoxToggleCursorRowCallback , - onListBoxToggleCursorRow , - - --- ** UnselectAll - ListBoxUnselectAllCallback , - ListBoxUnselectAllCallbackC , - ListBoxUnselectAllSignalInfo , - afterListBoxUnselectAll , - listBoxUnselectAllCallbackWrapper , - listBoxUnselectAllClosure , - mkListBoxUnselectAllCallback , - noListBoxUnselectAllCallback , - onListBoxUnselectAll , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype ListBox = ListBox (ForeignPtr ListBox) -foreign import ccall "gtk_list_box_get_type" - c_gtk_list_box_get_type :: IO GType - -type instance ParentTypes ListBox = ListBoxParentTypes -type ListBoxParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject ListBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_list_box_get_type - - -class GObject o => ListBoxK o -instance (GObject o, IsDescendantOf ListBox o) => ListBoxK o - -toListBox :: ListBoxK o => o -> IO ListBox -toListBox = unsafeCastTo ListBox - -noListBox :: Maybe ListBox -noListBox = Nothing - -type family ResolveListBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveListBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveListBoxMethod "add" o = ContainerAddMethodInfo - ResolveListBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveListBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveListBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveListBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveListBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveListBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveListBoxMethod "bindModel" o = ListBoxBindModelMethodInfo - ResolveListBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveListBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveListBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveListBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveListBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveListBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveListBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveListBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveListBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveListBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveListBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveListBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveListBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveListBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveListBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveListBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveListBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveListBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveListBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveListBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveListBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveListBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveListBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveListBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveListBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveListBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveListBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveListBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveListBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveListBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveListBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveListBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveListBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveListBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveListBoxMethod "dragHighlightRow" o = ListBoxDragHighlightRowMethodInfo - ResolveListBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveListBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveListBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveListBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveListBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveListBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveListBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveListBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveListBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveListBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveListBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveListBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveListBoxMethod "dragUnhighlightRow" o = ListBoxDragUnhighlightRowMethodInfo - ResolveListBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveListBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveListBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveListBoxMethod "event" o = WidgetEventMethodInfo - ResolveListBoxMethod "forall" o = ContainerForallMethodInfo - ResolveListBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveListBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveListBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveListBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveListBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveListBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveListBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveListBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveListBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveListBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveListBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveListBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveListBoxMethod "hide" o = WidgetHideMethodInfo - ResolveListBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveListBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveListBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveListBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveListBoxMethod "insert" o = ListBoxInsertMethodInfo - ResolveListBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveListBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveListBoxMethod "invalidateFilter" o = ListBoxInvalidateFilterMethodInfo - ResolveListBoxMethod "invalidateHeaders" o = ListBoxInvalidateHeadersMethodInfo - ResolveListBoxMethod "invalidateSort" o = ListBoxInvalidateSortMethodInfo - ResolveListBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveListBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveListBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveListBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveListBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveListBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveListBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveListBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveListBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveListBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveListBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveListBoxMethod "map" o = WidgetMapMethodInfo - ResolveListBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveListBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveListBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveListBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveListBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveListBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveListBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveListBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveListBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveListBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveListBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveListBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveListBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveListBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveListBoxMethod "path" o = WidgetPathMethodInfo - ResolveListBoxMethod "prepend" o = ListBoxPrependMethodInfo - ResolveListBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveListBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveListBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveListBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveListBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveListBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveListBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveListBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveListBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveListBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveListBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveListBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveListBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveListBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveListBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveListBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveListBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveListBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveListBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveListBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveListBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListBoxMethod "selectAll" o = ListBoxSelectAllMethodInfo - ResolveListBoxMethod "selectRow" o = ListBoxSelectRowMethodInfo - ResolveListBoxMethod "selectedForeach" o = ListBoxSelectedForeachMethodInfo - ResolveListBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveListBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveListBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveListBoxMethod "show" o = WidgetShowMethodInfo - ResolveListBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveListBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveListBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveListBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveListBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveListBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveListBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveListBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveListBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveListBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveListBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveListBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveListBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveListBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveListBoxMethod "unselectAll" o = ListBoxUnselectAllMethodInfo - ResolveListBoxMethod "unselectRow" o = ListBoxUnselectRowMethodInfo - ResolveListBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveListBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveListBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveListBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveListBoxMethod "getActivateOnSingleClick" o = ListBoxGetActivateOnSingleClickMethodInfo - ResolveListBoxMethod "getAdjustment" o = ListBoxGetAdjustmentMethodInfo - ResolveListBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveListBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveListBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveListBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveListBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveListBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveListBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveListBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveListBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveListBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveListBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveListBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveListBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveListBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveListBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveListBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveListBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveListBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveListBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveListBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveListBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveListBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveListBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveListBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveListBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveListBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveListBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveListBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveListBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveListBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveListBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveListBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveListBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveListBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveListBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveListBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveListBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveListBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveListBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveListBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveListBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveListBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveListBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveListBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveListBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveListBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveListBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveListBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveListBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveListBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveListBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveListBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveListBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveListBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveListBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveListBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveListBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveListBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveListBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveListBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveListBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveListBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveListBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveListBoxMethod "getRowAtIndex" o = ListBoxGetRowAtIndexMethodInfo - ResolveListBoxMethod "getRowAtY" o = ListBoxGetRowAtYMethodInfo - ResolveListBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveListBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveListBoxMethod "getSelectedRow" o = ListBoxGetSelectedRowMethodInfo - ResolveListBoxMethod "getSelectedRows" o = ListBoxGetSelectedRowsMethodInfo - ResolveListBoxMethod "getSelectionMode" o = ListBoxGetSelectionModeMethodInfo - ResolveListBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveListBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveListBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveListBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveListBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveListBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveListBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveListBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveListBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveListBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveListBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveListBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveListBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveListBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveListBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveListBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveListBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveListBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveListBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveListBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveListBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveListBoxMethod "setActivateOnSingleClick" o = ListBoxSetActivateOnSingleClickMethodInfo - ResolveListBoxMethod "setAdjustment" o = ListBoxSetAdjustmentMethodInfo - ResolveListBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveListBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveListBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveListBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveListBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveListBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveListBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveListBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveListBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveListBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveListBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveListBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveListBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveListBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveListBoxMethod "setFilterFunc" o = ListBoxSetFilterFuncMethodInfo - ResolveListBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveListBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveListBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveListBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveListBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveListBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveListBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveListBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveListBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveListBoxMethod "setHeaderFunc" o = ListBoxSetHeaderFuncMethodInfo - ResolveListBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveListBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveListBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveListBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveListBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveListBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveListBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveListBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveListBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveListBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveListBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveListBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveListBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveListBoxMethod "setPlaceholder" o = ListBoxSetPlaceholderMethodInfo - ResolveListBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveListBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveListBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveListBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveListBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveListBoxMethod "setSelectionMode" o = ListBoxSetSelectionModeMethodInfo - ResolveListBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveListBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveListBoxMethod "setSortFunc" o = ListBoxSetSortFuncMethodInfo - ResolveListBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveListBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveListBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveListBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveListBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveListBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveListBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveListBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveListBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveListBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveListBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveListBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveListBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveListBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListBoxMethod t ListBox, MethodInfo info ListBox p) => IsLabelProxy t (ListBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListBoxMethod t ListBox, MethodInfo info ListBox p) => IsLabel t (ListBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ListBox::activate-cursor-row -type ListBoxActivateCursorRowCallback = - IO () - -noListBoxActivateCursorRowCallback :: Maybe ListBoxActivateCursorRowCallback -noListBoxActivateCursorRowCallback = Nothing - -type ListBoxActivateCursorRowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxActivateCursorRowCallback :: ListBoxActivateCursorRowCallbackC -> IO (FunPtr ListBoxActivateCursorRowCallbackC) - -listBoxActivateCursorRowClosure :: ListBoxActivateCursorRowCallback -> IO Closure -listBoxActivateCursorRowClosure cb = newCClosure =<< mkListBoxActivateCursorRowCallback wrapped - where wrapped = listBoxActivateCursorRowCallbackWrapper cb - -listBoxActivateCursorRowCallbackWrapper :: - ListBoxActivateCursorRowCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxActivateCursorRowCallbackWrapper _cb _ _ = do - _cb - -onListBoxActivateCursorRow :: (GObject a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId -onListBoxActivateCursorRow obj cb = liftIO $ connectListBoxActivateCursorRow obj cb SignalConnectBefore -afterListBoxActivateCursorRow :: (GObject a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId -afterListBoxActivateCursorRow obj cb = connectListBoxActivateCursorRow obj cb SignalConnectAfter - -connectListBoxActivateCursorRow :: (GObject a, MonadIO m) => - a -> ListBoxActivateCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxActivateCursorRow obj cb after = liftIO $ do - cb' <- mkListBoxActivateCursorRowCallback (listBoxActivateCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "activate-cursor-row" cb' after - --- signal ListBox::move-cursor -type ListBoxMoveCursorCallback = - MovementStep -> - Int32 -> - IO () - -noListBoxMoveCursorCallback :: Maybe ListBoxMoveCursorCallback -noListBoxMoveCursorCallback = Nothing - -type ListBoxMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxMoveCursorCallback :: ListBoxMoveCursorCallbackC -> IO (FunPtr ListBoxMoveCursorCallbackC) - -listBoxMoveCursorClosure :: ListBoxMoveCursorCallback -> IO Closure -listBoxMoveCursorClosure cb = newCClosure =<< mkListBoxMoveCursorCallback wrapped - where wrapped = listBoxMoveCursorCallbackWrapper cb - -listBoxMoveCursorCallbackWrapper :: - ListBoxMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -listBoxMoveCursorCallbackWrapper _cb _ object p0 _ = do - let object' = (toEnum . fromIntegral) object - _cb object' p0 - -onListBoxMoveCursor :: (GObject a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId -onListBoxMoveCursor obj cb = liftIO $ connectListBoxMoveCursor obj cb SignalConnectBefore -afterListBoxMoveCursor :: (GObject a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId -afterListBoxMoveCursor obj cb = connectListBoxMoveCursor obj cb SignalConnectAfter - -connectListBoxMoveCursor :: (GObject a, MonadIO m) => - a -> ListBoxMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxMoveCursor obj cb after = liftIO $ do - cb' <- mkListBoxMoveCursorCallback (listBoxMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal ListBox::row-activated -type ListBoxRowActivatedCallback = - ListBoxRow -> - IO () - -noListBoxRowActivatedCallback :: Maybe ListBoxRowActivatedCallback -noListBoxRowActivatedCallback = Nothing - -type ListBoxRowActivatedCallbackC = - Ptr () -> -- object - Ptr ListBoxRow -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxRowActivatedCallback :: ListBoxRowActivatedCallbackC -> IO (FunPtr ListBoxRowActivatedCallbackC) - -listBoxRowActivatedClosure :: ListBoxRowActivatedCallback -> IO Closure -listBoxRowActivatedClosure cb = newCClosure =<< mkListBoxRowActivatedCallback wrapped - where wrapped = listBoxRowActivatedCallbackWrapper cb - -listBoxRowActivatedCallbackWrapper :: - ListBoxRowActivatedCallback -> - Ptr () -> - Ptr ListBoxRow -> - Ptr () -> - IO () -listBoxRowActivatedCallbackWrapper _cb _ row _ = do - row' <- (newObject ListBoxRow) row - _cb row' - -onListBoxRowActivated :: (GObject a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId -onListBoxRowActivated obj cb = liftIO $ connectListBoxRowActivated obj cb SignalConnectBefore -afterListBoxRowActivated :: (GObject a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId -afterListBoxRowActivated obj cb = connectListBoxRowActivated obj cb SignalConnectAfter - -connectListBoxRowActivated :: (GObject a, MonadIO m) => - a -> ListBoxRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxRowActivated obj cb after = liftIO $ do - cb' <- mkListBoxRowActivatedCallback (listBoxRowActivatedCallbackWrapper cb) - connectSignalFunPtr obj "row-activated" cb' after - --- signal ListBox::row-selected -type ListBoxRowSelectedCallback = - Maybe ListBoxRow -> - IO () - -noListBoxRowSelectedCallback :: Maybe ListBoxRowSelectedCallback -noListBoxRowSelectedCallback = Nothing - -type ListBoxRowSelectedCallbackC = - Ptr () -> -- object - Ptr ListBoxRow -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxRowSelectedCallback :: ListBoxRowSelectedCallbackC -> IO (FunPtr ListBoxRowSelectedCallbackC) - -listBoxRowSelectedClosure :: ListBoxRowSelectedCallback -> IO Closure -listBoxRowSelectedClosure cb = newCClosure =<< mkListBoxRowSelectedCallback wrapped - where wrapped = listBoxRowSelectedCallbackWrapper cb - -listBoxRowSelectedCallbackWrapper :: - ListBoxRowSelectedCallback -> - Ptr () -> - Ptr ListBoxRow -> - Ptr () -> - IO () -listBoxRowSelectedCallbackWrapper _cb _ row _ = do - maybeRow <- - if row == nullPtr - then return Nothing - else do - row' <- (newObject ListBoxRow) row - return $ Just row' - _cb maybeRow - -onListBoxRowSelected :: (GObject a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId -onListBoxRowSelected obj cb = liftIO $ connectListBoxRowSelected obj cb SignalConnectBefore -afterListBoxRowSelected :: (GObject a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId -afterListBoxRowSelected obj cb = connectListBoxRowSelected obj cb SignalConnectAfter - -connectListBoxRowSelected :: (GObject a, MonadIO m) => - a -> ListBoxRowSelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxRowSelected obj cb after = liftIO $ do - cb' <- mkListBoxRowSelectedCallback (listBoxRowSelectedCallbackWrapper cb) - connectSignalFunPtr obj "row-selected" cb' after - --- signal ListBox::select-all -type ListBoxSelectAllCallback = - IO () - -noListBoxSelectAllCallback :: Maybe ListBoxSelectAllCallback -noListBoxSelectAllCallback = Nothing - -type ListBoxSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxSelectAllCallback :: ListBoxSelectAllCallbackC -> IO (FunPtr ListBoxSelectAllCallbackC) - -listBoxSelectAllClosure :: ListBoxSelectAllCallback -> IO Closure -listBoxSelectAllClosure cb = newCClosure =<< mkListBoxSelectAllCallback wrapped - where wrapped = listBoxSelectAllCallbackWrapper cb - -listBoxSelectAllCallbackWrapper :: - ListBoxSelectAllCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxSelectAllCallbackWrapper _cb _ _ = do - _cb - -onListBoxSelectAll :: (GObject a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId -onListBoxSelectAll obj cb = liftIO $ connectListBoxSelectAll obj cb SignalConnectBefore -afterListBoxSelectAll :: (GObject a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId -afterListBoxSelectAll obj cb = connectListBoxSelectAll obj cb SignalConnectAfter - -connectListBoxSelectAll :: (GObject a, MonadIO m) => - a -> ListBoxSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxSelectAll obj cb after = liftIO $ do - cb' <- mkListBoxSelectAllCallback (listBoxSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal ListBox::selected-rows-changed -type ListBoxSelectedRowsChangedCallback = - IO () - -noListBoxSelectedRowsChangedCallback :: Maybe ListBoxSelectedRowsChangedCallback -noListBoxSelectedRowsChangedCallback = Nothing - -type ListBoxSelectedRowsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxSelectedRowsChangedCallback :: ListBoxSelectedRowsChangedCallbackC -> IO (FunPtr ListBoxSelectedRowsChangedCallbackC) - -listBoxSelectedRowsChangedClosure :: ListBoxSelectedRowsChangedCallback -> IO Closure -listBoxSelectedRowsChangedClosure cb = newCClosure =<< mkListBoxSelectedRowsChangedCallback wrapped - where wrapped = listBoxSelectedRowsChangedCallbackWrapper cb - -listBoxSelectedRowsChangedCallbackWrapper :: - ListBoxSelectedRowsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxSelectedRowsChangedCallbackWrapper _cb _ _ = do - _cb - -onListBoxSelectedRowsChanged :: (GObject a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId -onListBoxSelectedRowsChanged obj cb = liftIO $ connectListBoxSelectedRowsChanged obj cb SignalConnectBefore -afterListBoxSelectedRowsChanged :: (GObject a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId -afterListBoxSelectedRowsChanged obj cb = connectListBoxSelectedRowsChanged obj cb SignalConnectAfter - -connectListBoxSelectedRowsChanged :: (GObject a, MonadIO m) => - a -> ListBoxSelectedRowsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxSelectedRowsChanged obj cb after = liftIO $ do - cb' <- mkListBoxSelectedRowsChangedCallback (listBoxSelectedRowsChangedCallbackWrapper cb) - connectSignalFunPtr obj "selected-rows-changed" cb' after - --- signal ListBox::toggle-cursor-row -type ListBoxToggleCursorRowCallback = - IO () - -noListBoxToggleCursorRowCallback :: Maybe ListBoxToggleCursorRowCallback -noListBoxToggleCursorRowCallback = Nothing - -type ListBoxToggleCursorRowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxToggleCursorRowCallback :: ListBoxToggleCursorRowCallbackC -> IO (FunPtr ListBoxToggleCursorRowCallbackC) - -listBoxToggleCursorRowClosure :: ListBoxToggleCursorRowCallback -> IO Closure -listBoxToggleCursorRowClosure cb = newCClosure =<< mkListBoxToggleCursorRowCallback wrapped - where wrapped = listBoxToggleCursorRowCallbackWrapper cb - -listBoxToggleCursorRowCallbackWrapper :: - ListBoxToggleCursorRowCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxToggleCursorRowCallbackWrapper _cb _ _ = do - _cb - -onListBoxToggleCursorRow :: (GObject a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId -onListBoxToggleCursorRow obj cb = liftIO $ connectListBoxToggleCursorRow obj cb SignalConnectBefore -afterListBoxToggleCursorRow :: (GObject a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId -afterListBoxToggleCursorRow obj cb = connectListBoxToggleCursorRow obj cb SignalConnectAfter - -connectListBoxToggleCursorRow :: (GObject a, MonadIO m) => - a -> ListBoxToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxToggleCursorRow obj cb after = liftIO $ do - cb' <- mkListBoxToggleCursorRowCallback (listBoxToggleCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-row" cb' after - --- signal ListBox::unselect-all -type ListBoxUnselectAllCallback = - IO () - -noListBoxUnselectAllCallback :: Maybe ListBoxUnselectAllCallback -noListBoxUnselectAllCallback = Nothing - -type ListBoxUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxUnselectAllCallback :: ListBoxUnselectAllCallbackC -> IO (FunPtr ListBoxUnselectAllCallbackC) - -listBoxUnselectAllClosure :: ListBoxUnselectAllCallback -> IO Closure -listBoxUnselectAllClosure cb = newCClosure =<< mkListBoxUnselectAllCallback wrapped - where wrapped = listBoxUnselectAllCallbackWrapper cb - -listBoxUnselectAllCallbackWrapper :: - ListBoxUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxUnselectAllCallbackWrapper _cb _ _ = do - _cb - -onListBoxUnselectAll :: (GObject a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId -onListBoxUnselectAll obj cb = liftIO $ connectListBoxUnselectAll obj cb SignalConnectBefore -afterListBoxUnselectAll :: (GObject a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId -afterListBoxUnselectAll obj cb = connectListBoxUnselectAll obj cb SignalConnectAfter - -connectListBoxUnselectAll :: (GObject a, MonadIO m) => - a -> ListBoxUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxUnselectAll obj cb after = liftIO $ do - cb' <- mkListBoxUnselectAllCallback (listBoxUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getListBoxActivateOnSingleClick :: (MonadIO m, ListBoxK o) => o -> m Bool -getListBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setListBoxActivateOnSingleClick :: (MonadIO m, ListBoxK o) => o -> Bool -> m () -setListBoxActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructListBoxActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructListBoxActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data ListBoxActivateOnSingleClickPropertyInfo -instance AttrInfo ListBoxActivateOnSingleClickPropertyInfo where - type AttrAllowedOps ListBoxActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = ListBoxK - type AttrGetType ListBoxActivateOnSingleClickPropertyInfo = Bool - type AttrLabel ListBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click" - attrGet _ = getListBoxActivateOnSingleClick - attrSet _ = setListBoxActivateOnSingleClick - attrConstruct _ = constructListBoxActivateOnSingleClick - attrClear _ = undefined - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getListBoxSelectionMode :: (MonadIO m, ListBoxK o) => o -> m SelectionMode -getListBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" - -setListBoxSelectionMode :: (MonadIO m, ListBoxK o) => o -> SelectionMode -> m () -setListBoxSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "selection-mode" val - -constructListBoxSelectionMode :: SelectionMode -> IO ([Char], GValue) -constructListBoxSelectionMode val = constructObjectPropertyEnum "selection-mode" val - -data ListBoxSelectionModePropertyInfo -instance AttrInfo ListBoxSelectionModePropertyInfo where - type AttrAllowedOps ListBoxSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ListBoxSelectionModePropertyInfo = (~) SelectionMode - type AttrBaseTypeConstraint ListBoxSelectionModePropertyInfo = ListBoxK - type AttrGetType ListBoxSelectionModePropertyInfo = SelectionMode - type AttrLabel ListBoxSelectionModePropertyInfo = "selection-mode" - attrGet _ = getListBoxSelectionMode - attrSet _ = setListBoxSelectionMode - attrConstruct _ = constructListBoxSelectionMode - attrClear _ = undefined - -type instance AttributeList ListBox = ListBoxAttributeList -type ListBoxAttributeList = ('[ '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -listBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" -listBoxActivateOnSingleClick = AttrLabelProxy - -listBoxSelectionMode :: AttrLabelProxy "selectionMode" -listBoxSelectionMode = AttrLabelProxy - -data ListBoxActivateCursorRowSignalInfo -instance SignalInfo ListBoxActivateCursorRowSignalInfo where - type HaskellCallbackType ListBoxActivateCursorRowSignalInfo = ListBoxActivateCursorRowCallback - connectSignal _ = connectListBoxActivateCursorRow - -data ListBoxMoveCursorSignalInfo -instance SignalInfo ListBoxMoveCursorSignalInfo where - type HaskellCallbackType ListBoxMoveCursorSignalInfo = ListBoxMoveCursorCallback - connectSignal _ = connectListBoxMoveCursor - -data ListBoxRowActivatedSignalInfo -instance SignalInfo ListBoxRowActivatedSignalInfo where - type HaskellCallbackType ListBoxRowActivatedSignalInfo = ListBoxRowActivatedCallback - connectSignal _ = connectListBoxRowActivated - -data ListBoxRowSelectedSignalInfo -instance SignalInfo ListBoxRowSelectedSignalInfo where - type HaskellCallbackType ListBoxRowSelectedSignalInfo = ListBoxRowSelectedCallback - connectSignal _ = connectListBoxRowSelected - -data ListBoxSelectAllSignalInfo -instance SignalInfo ListBoxSelectAllSignalInfo where - type HaskellCallbackType ListBoxSelectAllSignalInfo = ListBoxSelectAllCallback - connectSignal _ = connectListBoxSelectAll - -data ListBoxSelectedRowsChangedSignalInfo -instance SignalInfo ListBoxSelectedRowsChangedSignalInfo where - type HaskellCallbackType ListBoxSelectedRowsChangedSignalInfo = ListBoxSelectedRowsChangedCallback - connectSignal _ = connectListBoxSelectedRowsChanged - -data ListBoxToggleCursorRowSignalInfo -instance SignalInfo ListBoxToggleCursorRowSignalInfo where - type HaskellCallbackType ListBoxToggleCursorRowSignalInfo = ListBoxToggleCursorRowCallback - connectSignal _ = connectListBoxToggleCursorRow - -data ListBoxUnselectAllSignalInfo -instance SignalInfo ListBoxUnselectAllSignalInfo where - type HaskellCallbackType ListBoxUnselectAllSignalInfo = ListBoxUnselectAllCallback - connectSignal _ = connectListBoxUnselectAll - -type instance SignalList ListBox = ListBoxSignalList -type ListBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorRow", ListBoxActivateCursorRowSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", ListBoxMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("rowActivated", ListBoxRowActivatedSignalInfo), '("rowSelected", ListBoxRowSelectedSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", ListBoxSelectAllSignalInfo), '("selectedRowsChanged", ListBoxSelectedRowsChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorRow", ListBoxToggleCursorRowSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", ListBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ListBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ListBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_new" gtk_list_box_new :: - IO (Ptr ListBox) - - -listBoxNew :: - (MonadIO m) => - m ListBox -- result -listBoxNew = liftIO $ do - result <- gtk_list_box_new - checkUnexpectedReturnNULL "gtk_list_box_new" result - result' <- (newObject ListBox) result - return result' - --- method ListBox::bind_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_bind_model" gtk_list_box_bind_model :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr Gio.ListModel -> -- model : TInterface "Gio" "ListModel" - FunPtr ListBoxCreateWidgetFuncC -> -- create_widget_func : TInterface "Gtk" "ListBoxCreateWidgetFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxBindModel :: - (MonadIO m, ListBoxK a, Gio.ListModelK b) => - a -- _obj - -> Maybe (b) -- model - -> Maybe (ListBoxCreateWidgetFunc) -- createWidgetFunc - -> m () -- result -listBoxBindModel _obj model createWidgetFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - maybeCreateWidgetFunc <- case createWidgetFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCreateWidgetFunc -> do - jCreateWidgetFunc' <- mkListBoxCreateWidgetFunc (listBoxCreateWidgetFuncWrapper Nothing jCreateWidgetFunc) - return jCreateWidgetFunc' - let userData = castFunPtrToPtr maybeCreateWidgetFunc - let userDataFreeFunc = safeFreeFunPtrPtr - gtk_list_box_bind_model _obj' maybeModel maybeCreateWidgetFunc userData userDataFreeFunc - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data ListBoxBindModelMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (ListBoxCreateWidgetFunc) -> m ()), MonadIO m, ListBoxK a, Gio.ListModelK b) => MethodInfo ListBoxBindModelMethodInfo a signature where - overloadedMethod _ = listBoxBindModel - --- method ListBox::drag_highlight_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_drag_highlight_row" gtk_list_box_drag_highlight_row :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow" - IO () - - -listBoxDragHighlightRow :: - (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -- _obj - -> b -- row - -> m () -- result -listBoxDragHighlightRow _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let row' = unsafeManagedPtrCastPtr row - gtk_list_box_drag_highlight_row _obj' row' - touchManagedPtr _obj - touchManagedPtr row - return () - -data ListBoxDragHighlightRowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxDragHighlightRowMethodInfo a signature where - overloadedMethod _ = listBoxDragHighlightRow - --- method ListBox::drag_unhighlight_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_drag_unhighlight_row" gtk_list_box_drag_unhighlight_row :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxDragUnhighlightRow :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxDragUnhighlightRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_drag_unhighlight_row _obj' - touchManagedPtr _obj - return () - -data ListBoxDragUnhighlightRowMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxDragUnhighlightRowMethodInfo a signature where - overloadedMethod _ = listBoxDragUnhighlightRow - --- method ListBox::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_get_activate_on_single_click" gtk_list_box_get_activate_on_single_click :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO CInt - - -listBoxGetActivateOnSingleClick :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m Bool -- result -listBoxGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ListBoxGetActivateOnSingleClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = listBoxGetActivateOnSingleClick - --- method ListBox::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_adjustment" gtk_list_box_get_adjustment :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO (Ptr Adjustment) - - -listBoxGetAdjustment :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m Adjustment -- result -listBoxGetAdjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_adjustment _obj' - checkUnexpectedReturnNULL "gtk_list_box_get_adjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ListBoxGetAdjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetAdjustmentMethodInfo a signature where - overloadedMethod _ = listBoxGetAdjustment - --- method ListBox::get_row_at_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 (TInterface "Gtk" "ListBoxRow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_row_at_index" gtk_list_box_get_row_at_index :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Int32 -> -- index_ : TBasicType TInt - IO (Ptr ListBoxRow) - - -listBoxGetRowAtIndex :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Int32 -- index_ - -> m (Maybe ListBoxRow) -- result -listBoxGetRowAtIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_index _obj' index_ - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject ListBoxRow) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ListBoxGetRowAtIndexMethodInfo -instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where - overloadedMethod _ = listBoxGetRowAtIndex - --- method ListBox::get_row_at_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ListBoxRow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_row_at_y" gtk_list_box_get_row_at_y :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Int32 -> -- y : TBasicType TInt - IO (Ptr ListBoxRow) - - -listBoxGetRowAtY :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Int32 -- y - -> m (Maybe ListBoxRow) -- result -listBoxGetRowAtY _obj y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_y _obj' y - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject ListBoxRow) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ListBoxGetRowAtYMethodInfo -instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where - overloadedMethod _ = listBoxGetRowAtY - --- method ListBox::get_selected_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ListBoxRow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_selected_row" gtk_list_box_get_selected_row :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO (Ptr ListBoxRow) - - -listBoxGetSelectedRow :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m ListBoxRow -- result -listBoxGetSelectedRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_selected_row _obj' - checkUnexpectedReturnNULL "gtk_list_box_get_selected_row" result - result' <- (newObject ListBoxRow) result - touchManagedPtr _obj - return result' - -data ListBoxGetSelectedRowMethodInfo -instance (signature ~ (m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectedRowMethodInfo a signature where - overloadedMethod _ = listBoxGetSelectedRow - --- method ListBox::get_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "ListBoxRow")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_selected_rows" gtk_list_box_get_selected_rows :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO (Ptr (GList (Ptr ListBoxRow))) - - -listBoxGetSelectedRows :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m [ListBoxRow] -- result -listBoxGetSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_selected_rows _obj' - result' <- unpackGList result - result'' <- mapM (newObject ListBoxRow) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ListBoxGetSelectedRowsMethodInfo -instance (signature ~ (m [ListBoxRow]), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectedRowsMethodInfo a signature where - overloadedMethod _ = listBoxGetSelectedRows - --- method ListBox::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_get_selection_mode" gtk_list_box_get_selection_mode :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO CUInt - - -listBoxGetSelectionMode :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m SelectionMode -- result -listBoxGetSelectionMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_selection_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ListBoxGetSelectionModeMethodInfo -instance (signature ~ (m SelectionMode), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectionModeMethodInfo a signature where - overloadedMethod _ = listBoxGetSelectionMode - --- method ListBox::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_list_box_insert" gtk_list_box_insert :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -listBoxInsert :: - (MonadIO m, ListBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -listBoxInsert _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_list_box_insert _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data ListBoxInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxInsertMethodInfo a signature where - overloadedMethod _ = listBoxInsert - --- method ListBox::invalidate_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_invalidate_filter" gtk_list_box_invalidate_filter :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxInvalidateFilter :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxInvalidateFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_filter _obj' - touchManagedPtr _obj - return () - -data ListBoxInvalidateFilterMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateFilterMethodInfo a signature where - overloadedMethod _ = listBoxInvalidateFilter - --- method ListBox::invalidate_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_invalidate_headers" gtk_list_box_invalidate_headers :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxInvalidateHeaders :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxInvalidateHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_headers _obj' - touchManagedPtr _obj - return () - -data ListBoxInvalidateHeadersMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateHeadersMethodInfo a signature where - overloadedMethod _ = listBoxInvalidateHeaders - --- method ListBox::invalidate_sort --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_invalidate_sort" gtk_list_box_invalidate_sort :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxInvalidateSort :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxInvalidateSort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_sort _obj' - touchManagedPtr _obj - return () - -data ListBoxInvalidateSortMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateSortMethodInfo a signature where - overloadedMethod _ = listBoxInvalidateSort - --- method ListBox::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_list_box_prepend" gtk_list_box_prepend :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -listBoxPrepend :: - (MonadIO m, ListBoxK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -listBoxPrepend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_list_box_prepend _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ListBoxPrependMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxPrependMethodInfo a signature where - overloadedMethod _ = listBoxPrepend - --- method ListBox::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_select_all" gtk_list_box_select_all :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxSelectAll :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_select_all _obj' - touchManagedPtr _obj - return () - -data ListBoxSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSelectAllMethodInfo a signature where - overloadedMethod _ = listBoxSelectAll - --- method ListBox::select_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_select_row" gtk_list_box_select_row :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow" - IO () - - -listBoxSelectRow :: - (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -- _obj - -> Maybe (b) -- row - -> m () -- result -listBoxSelectRow _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRow <- case row of - Nothing -> return nullPtr - Just jRow -> do - let jRow' = unsafeManagedPtrCastPtr jRow - return jRow' - gtk_list_box_select_row _obj' maybeRow - touchManagedPtr _obj - whenJust row touchManagedPtr - return () - -data ListBoxSelectRowMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxSelectRowMethodInfo a signature where - overloadedMethod _ = listBoxSelectRow - --- method ListBox::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_list_box_selected_foreach" gtk_list_box_selected_foreach :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - FunPtr ListBoxForeachFuncC -> -- func : TInterface "Gtk" "ListBoxForeachFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -listBoxSelectedForeach :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> ListBoxForeachFunc -- func - -> m () -- result -listBoxSelectedForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkListBoxForeachFunc (listBoxForeachFuncWrapper Nothing func) - let data_ = nullPtr - gtk_list_box_selected_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data ListBoxSelectedForeachMethodInfo -instance (signature ~ (ListBoxForeachFunc -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSelectedForeachMethodInfo a signature where - overloadedMethod _ = listBoxSelectedForeach - --- method ListBox::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", 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 "gtk_list_box_set_activate_on_single_click" gtk_list_box_set_activate_on_single_click :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - CInt -> -- single : TBasicType TBoolean - IO () - - -listBoxSetActivateOnSingleClick :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Bool -- single - -> m () -- result -listBoxSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_list_box_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - -data ListBoxSetActivateOnSingleClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = listBoxSetActivateOnSingleClick - --- method ListBox::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_set_adjustment" gtk_list_box_set_adjustment :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -listBoxSetAdjustment :: - (MonadIO m, ListBoxK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -listBoxSetAdjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_list_box_set_adjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data ListBoxSetAdjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, AdjustmentK b) => MethodInfo ListBoxSetAdjustmentMethodInfo a signature where - overloadedMethod _ = listBoxSetAdjustment - --- method ListBox::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_set_filter_func" gtk_list_box_set_filter_func :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - FunPtr ListBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "ListBoxFilterFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetFilterFunc :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Maybe (ListBoxFilterFunc) -- filterFunc - -> m () -- result -listBoxSetFilterFunc _obj filterFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilterFunc <- case filterFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilterFunc -> do - jFilterFunc' <- mkListBoxFilterFunc (listBoxFilterFuncWrapper Nothing jFilterFunc) - return jFilterFunc' - let userData = castFunPtrToPtr maybeFilterFunc - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_filter_func _obj' maybeFilterFunc userData destroy - touchManagedPtr _obj - return () - -data ListBoxSetFilterFuncMethodInfo -instance (signature ~ (Maybe (ListBoxFilterFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetFilterFuncMethodInfo a signature where - overloadedMethod _ = listBoxSetFilterFunc - --- method ListBox::set_header_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_set_header_func" gtk_list_box_set_header_func :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - FunPtr ListBoxUpdateHeaderFuncC -> -- update_header : TInterface "Gtk" "ListBoxUpdateHeaderFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetHeaderFunc :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Maybe (ListBoxUpdateHeaderFunc) -- updateHeader - -> m () -- result -listBoxSetHeaderFunc _obj updateHeader = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeUpdateHeader <- case updateHeader of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jUpdateHeader -> do - jUpdateHeader' <- mkListBoxUpdateHeaderFunc (listBoxUpdateHeaderFuncWrapper Nothing jUpdateHeader) - return jUpdateHeader' - let userData = castFunPtrToPtr maybeUpdateHeader - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_header_func _obj' maybeUpdateHeader userData destroy - touchManagedPtr _obj - return () - -data ListBoxSetHeaderFuncMethodInfo -instance (signature ~ (Maybe (ListBoxUpdateHeaderFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetHeaderFuncMethodInfo a signature where - overloadedMethod _ = listBoxSetHeaderFunc - --- method ListBox::set_placeholder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_set_placeholder" gtk_list_box_set_placeholder :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr Widget -> -- placeholder : TInterface "Gtk" "Widget" - IO () - - -listBoxSetPlaceholder :: - (MonadIO m, ListBoxK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- placeholder - -> m () -- result -listBoxSetPlaceholder _obj placeholder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePlaceholder <- case placeholder of - Nothing -> return nullPtr - Just jPlaceholder -> do - let jPlaceholder' = unsafeManagedPtrCastPtr jPlaceholder - return jPlaceholder' - gtk_list_box_set_placeholder _obj' maybePlaceholder - touchManagedPtr _obj - whenJust placeholder touchManagedPtr - return () - -data ListBoxSetPlaceholderMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxSetPlaceholderMethodInfo a signature where - overloadedMethod _ = listBoxSetPlaceholder - --- method ListBox::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", 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 "gtk_list_box_set_selection_mode" gtk_list_box_set_selection_mode :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - CUInt -> -- mode : TInterface "Gtk" "SelectionMode" - IO () - - -listBoxSetSelectionMode :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> SelectionMode -- mode - -> m () -- result -listBoxSetSelectionMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_list_box_set_selection_mode _obj' mode' - touchManagedPtr _obj - return () - -data ListBoxSetSelectionModeMethodInfo -instance (signature ~ (SelectionMode -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetSelectionModeMethodInfo a signature where - overloadedMethod _ = listBoxSetSelectionMode - --- method ListBox::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_set_sort_func" gtk_list_box_set_sort_func :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - FunPtr ListBoxSortFuncC -> -- sort_func : TInterface "Gtk" "ListBoxSortFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetSortFunc :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> Maybe (ListBoxSortFunc) -- sortFunc - -> m () -- result -listBoxSetSortFunc _obj sortFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSortFunc <- case sortFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jSortFunc -> do - jSortFunc' <- mkListBoxSortFunc (listBoxSortFuncWrapper Nothing jSortFunc) - return jSortFunc' - let userData = castFunPtrToPtr maybeSortFunc - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_sort_func _obj' maybeSortFunc userData destroy - touchManagedPtr _obj - return () - -data ListBoxSetSortFuncMethodInfo -instance (signature ~ (Maybe (ListBoxSortFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetSortFuncMethodInfo a signature where - overloadedMethod _ = listBoxSetSortFunc - --- method ListBox::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 "gtk_list_box_unselect_all" gtk_list_box_unselect_all :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - IO () - - -listBoxUnselectAll :: - (MonadIO m, ListBoxK a) => - a -- _obj - -> m () -- result -listBoxUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_unselect_all _obj' - touchManagedPtr _obj - return () - -data ListBoxUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxUnselectAllMethodInfo a signature where - overloadedMethod _ = listBoxUnselectAll - --- method ListBox::unselect_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_unselect_row" gtk_list_box_unselect_row :: - Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Ptr ListBoxRow -> -- row : TInterface "Gtk" "ListBoxRow" - IO () - - -listBoxUnselectRow :: - (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -- _obj - -> b -- row - -> m () -- result -listBoxUnselectRow _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let row' = unsafeManagedPtrCastPtr row - gtk_list_box_unselect_row _obj' row' - touchManagedPtr _obj - touchManagedPtr row - return () - -data ListBoxUnselectRowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxUnselectRowMethodInfo a signature where - overloadedMethod _ = listBoxUnselectRow - - diff --git a/GI/Gtk/Objects/ListBox.hs-boot b/GI/Gtk/Objects/ListBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ListBox.hs-boot +++ /dev/null @@ -1,50 +0,0 @@ -module GI.Gtk.Objects.ListBox 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 ListBox = ListBox (ForeignPtr ListBox) -instance GObject ListBox where -class GObject o => ListBoxK o -instance (GObject o, IsDescendantOf ListBox o) => ListBoxK o -data ListBoxActivateOnSingleClickPropertyInfo -data ListBoxSelectionModePropertyInfo -data ListBoxActivateCursorRowSignalInfo -data ListBoxMoveCursorSignalInfo -data ListBoxRowActivatedSignalInfo -data ListBoxRowSelectedSignalInfo -data ListBoxSelectAllSignalInfo -data ListBoxSelectedRowsChangedSignalInfo -data ListBoxToggleCursorRowSignalInfo -data ListBoxUnselectAllSignalInfo -data ListBoxBindModelMethodInfo -data ListBoxDragHighlightRowMethodInfo -data ListBoxDragUnhighlightRowMethodInfo -data ListBoxGetActivateOnSingleClickMethodInfo -data ListBoxGetAdjustmentMethodInfo -data ListBoxGetRowAtIndexMethodInfo -data ListBoxGetRowAtYMethodInfo -data ListBoxGetSelectedRowMethodInfo -data ListBoxGetSelectedRowsMethodInfo -data ListBoxGetSelectionModeMethodInfo -data ListBoxInsertMethodInfo -data ListBoxInvalidateFilterMethodInfo -data ListBoxInvalidateHeadersMethodInfo -data ListBoxInvalidateSortMethodInfo -data ListBoxPrependMethodInfo -data ListBoxSelectAllMethodInfo -data ListBoxSelectRowMethodInfo -data ListBoxSelectedForeachMethodInfo -data ListBoxSetActivateOnSingleClickMethodInfo -data ListBoxSetAdjustmentMethodInfo -data ListBoxSetFilterFuncMethodInfo -data ListBoxSetHeaderFuncMethodInfo -data ListBoxSetPlaceholderMethodInfo -data ListBoxSetSelectionModeMethodInfo -data ListBoxSetSortFuncMethodInfo -data ListBoxUnselectAllMethodInfo -data ListBoxUnselectRowMethodInfo diff --git a/GI/Gtk/Objects/ListBoxAccessible.hs b/GI/Gtk/Objects/ListBoxAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.ListBoxAccessible - ( - --- * Exported types - ListBoxAccessible(..) , - ListBoxAccessibleK , - toListBoxAccessible , - noListBoxAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ListBoxAccessible = ListBoxAccessible (ForeignPtr ListBoxAccessible) -foreign import ccall "gtk_list_box_accessible_get_type" - c_gtk_list_box_accessible_get_type :: IO GType - -type instance ParentTypes ListBoxAccessible = ListBoxAccessibleParentTypes -type ListBoxAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject ListBoxAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_list_box_accessible_get_type - - -class GObject o => ListBoxAccessibleK o -instance (GObject o, IsDescendantOf ListBoxAccessible o) => ListBoxAccessibleK o - -toListBoxAccessible :: ListBoxAccessibleK o => o -> IO ListBoxAccessible -toListBoxAccessible = unsafeCastTo ListBoxAccessible - -noListBoxAccessible :: Maybe ListBoxAccessible -noListBoxAccessible = Nothing - -type family ResolveListBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveListBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveListBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveListBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveListBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveListBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveListBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveListBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveListBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveListBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveListBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveListBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveListBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveListBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveListBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveListBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveListBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveListBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveListBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveListBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveListBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveListBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveListBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveListBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListBoxAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveListBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveListBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveListBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveListBoxAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveListBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveListBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveListBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveListBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveListBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveListBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveListBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveListBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListBoxAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveListBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveListBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveListBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveListBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveListBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveListBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveListBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveListBoxAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListBoxAccessibleMethod t ListBoxAccessible, MethodInfo info ListBoxAccessible p) => IsLabelProxy t (ListBoxAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListBoxAccessibleMethod t ListBoxAccessible, MethodInfo info ListBoxAccessible p) => IsLabel t (ListBoxAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ListBoxAccessible = ListBoxAccessibleAttributeList -type ListBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ListBoxAccessible = ListBoxAccessibleSignalList -type ListBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ListBoxAccessible.hs-boot b/GI/Gtk/Objects/ListBoxAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ListBoxAccessible 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 ListBoxAccessible = ListBoxAccessible (ForeignPtr ListBoxAccessible) -instance GObject ListBoxAccessible where -class GObject o => ListBoxAccessibleK o -instance (GObject o, IsDescendantOf ListBoxAccessible o) => ListBoxAccessibleK o diff --git a/GI/Gtk/Objects/ListBoxRow.hs b/GI/Gtk/Objects/ListBoxRow.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxRow.hs +++ /dev/null @@ -1,863 +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.Gtk.Objects.ListBoxRow - ( - --- * Exported types - ListBoxRow(..) , - ListBoxRowK , - toListBoxRow , - noListBoxRow , - - - -- * Methods --- ** listBoxRowChanged - ListBoxRowChangedMethodInfo , - listBoxRowChanged , - - --- ** listBoxRowGetActivatable - ListBoxRowGetActivatableMethodInfo , - listBoxRowGetActivatable , - - --- ** listBoxRowGetHeader - ListBoxRowGetHeaderMethodInfo , - listBoxRowGetHeader , - - --- ** listBoxRowGetIndex - ListBoxRowGetIndexMethodInfo , - listBoxRowGetIndex , - - --- ** listBoxRowGetSelectable - ListBoxRowGetSelectableMethodInfo , - listBoxRowGetSelectable , - - --- ** listBoxRowIsSelected - ListBoxRowIsSelectedMethodInfo , - listBoxRowIsSelected , - - --- ** listBoxRowNew - listBoxRowNew , - - --- ** listBoxRowSetActivatable - ListBoxRowSetActivatableMethodInfo , - listBoxRowSetActivatable , - - --- ** listBoxRowSetHeader - ListBoxRowSetHeaderMethodInfo , - listBoxRowSetHeader , - - --- ** listBoxRowSetSelectable - ListBoxRowSetSelectableMethodInfo , - listBoxRowSetSelectable , - - - - - -- * Properties --- ** Activatable - ListBoxRowActivatablePropertyInfo , - constructListBoxRowActivatable , - getListBoxRowActivatable , - listBoxRowActivatable , - setListBoxRowActivatable , - - --- ** Selectable - ListBoxRowSelectablePropertyInfo , - constructListBoxRowSelectable , - getListBoxRowSelectable , - listBoxRowSelectable , - setListBoxRowSelectable , - - - - - -- * Signals --- ** Activate - ListBoxRowActivateCallback , - ListBoxRowActivateCallbackC , - ListBoxRowActivateSignalInfo , - afterListBoxRowActivate , - listBoxRowActivateCallbackWrapper , - listBoxRowActivateClosure , - mkListBoxRowActivateCallback , - noListBoxRowActivateCallback , - onListBoxRowActivate , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ListBoxRow = ListBoxRow (ForeignPtr ListBoxRow) -foreign import ccall "gtk_list_box_row_get_type" - c_gtk_list_box_row_get_type :: IO GType - -type instance ParentTypes ListBoxRow = ListBoxRowParentTypes -type ListBoxRowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject ListBoxRow where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_list_box_row_get_type - - -class GObject o => ListBoxRowK o -instance (GObject o, IsDescendantOf ListBoxRow o) => ListBoxRowK o - -toListBoxRow :: ListBoxRowK o => o -> IO ListBoxRow -toListBoxRow = unsafeCastTo ListBoxRow - -noListBoxRow :: Maybe ListBoxRow -noListBoxRow = Nothing - -type family ResolveListBoxRowMethod (t :: Symbol) (o :: *) :: * where - ResolveListBoxRowMethod "activate" o = WidgetActivateMethodInfo - ResolveListBoxRowMethod "add" o = ContainerAddMethodInfo - ResolveListBoxRowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveListBoxRowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveListBoxRowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveListBoxRowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveListBoxRowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveListBoxRowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveListBoxRowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListBoxRowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListBoxRowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveListBoxRowMethod "changed" o = ListBoxRowChangedMethodInfo - ResolveListBoxRowMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveListBoxRowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveListBoxRowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveListBoxRowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveListBoxRowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveListBoxRowMethod "childType" o = ContainerChildTypeMethodInfo - ResolveListBoxRowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveListBoxRowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveListBoxRowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveListBoxRowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveListBoxRowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveListBoxRowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveListBoxRowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveListBoxRowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveListBoxRowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveListBoxRowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveListBoxRowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveListBoxRowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveListBoxRowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveListBoxRowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveListBoxRowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveListBoxRowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveListBoxRowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveListBoxRowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveListBoxRowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveListBoxRowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveListBoxRowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveListBoxRowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveListBoxRowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveListBoxRowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveListBoxRowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveListBoxRowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveListBoxRowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveListBoxRowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveListBoxRowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveListBoxRowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveListBoxRowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveListBoxRowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveListBoxRowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveListBoxRowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveListBoxRowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveListBoxRowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveListBoxRowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveListBoxRowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveListBoxRowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveListBoxRowMethod "draw" o = WidgetDrawMethodInfo - ResolveListBoxRowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveListBoxRowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveListBoxRowMethod "event" o = WidgetEventMethodInfo - ResolveListBoxRowMethod "forall" o = ContainerForallMethodInfo - ResolveListBoxRowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListBoxRowMethod "foreach" o = ContainerForeachMethodInfo - ResolveListBoxRowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveListBoxRowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListBoxRowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveListBoxRowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveListBoxRowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveListBoxRowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveListBoxRowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveListBoxRowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveListBoxRowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveListBoxRowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveListBoxRowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveListBoxRowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveListBoxRowMethod "hide" o = WidgetHideMethodInfo - ResolveListBoxRowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveListBoxRowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveListBoxRowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveListBoxRowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveListBoxRowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveListBoxRowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveListBoxRowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveListBoxRowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveListBoxRowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveListBoxRowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListBoxRowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveListBoxRowMethod "isSelected" o = ListBoxRowIsSelectedMethodInfo - ResolveListBoxRowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveListBoxRowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveListBoxRowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveListBoxRowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveListBoxRowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveListBoxRowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveListBoxRowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveListBoxRowMethod "map" o = WidgetMapMethodInfo - ResolveListBoxRowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveListBoxRowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveListBoxRowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveListBoxRowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveListBoxRowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveListBoxRowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveListBoxRowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveListBoxRowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveListBoxRowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListBoxRowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListBoxRowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveListBoxRowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveListBoxRowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveListBoxRowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveListBoxRowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveListBoxRowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveListBoxRowMethod "path" o = WidgetPathMethodInfo - ResolveListBoxRowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveListBoxRowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveListBoxRowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveListBoxRowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveListBoxRowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveListBoxRowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveListBoxRowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveListBoxRowMethod "realize" o = WidgetRealizeMethodInfo - ResolveListBoxRowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListBoxRowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListBoxRowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveListBoxRowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveListBoxRowMethod "remove" o = ContainerRemoveMethodInfo - ResolveListBoxRowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveListBoxRowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveListBoxRowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveListBoxRowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveListBoxRowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveListBoxRowMethod "reparent" o = WidgetReparentMethodInfo - ResolveListBoxRowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListBoxRowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListBoxRowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveListBoxRowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveListBoxRowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveListBoxRowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListBoxRowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveListBoxRowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveListBoxRowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveListBoxRowMethod "show" o = WidgetShowMethodInfo - ResolveListBoxRowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveListBoxRowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveListBoxRowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveListBoxRowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveListBoxRowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveListBoxRowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListBoxRowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListBoxRowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveListBoxRowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveListBoxRowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveListBoxRowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListBoxRowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveListBoxRowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveListBoxRowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveListBoxRowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveListBoxRowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveListBoxRowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListBoxRowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveListBoxRowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveListBoxRowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveListBoxRowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListBoxRowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveListBoxRowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveListBoxRowMethod "getActivatable" o = ListBoxRowGetActivatableMethodInfo - ResolveListBoxRowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveListBoxRowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveListBoxRowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveListBoxRowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveListBoxRowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveListBoxRowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveListBoxRowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveListBoxRowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveListBoxRowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveListBoxRowMethod "getChild" o = BinGetChildMethodInfo - ResolveListBoxRowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveListBoxRowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveListBoxRowMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveListBoxRowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveListBoxRowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveListBoxRowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveListBoxRowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListBoxRowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveListBoxRowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveListBoxRowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveListBoxRowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveListBoxRowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveListBoxRowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveListBoxRowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveListBoxRowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveListBoxRowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveListBoxRowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveListBoxRowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveListBoxRowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveListBoxRowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveListBoxRowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveListBoxRowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveListBoxRowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveListBoxRowMethod "getHeader" o = ListBoxRowGetHeaderMethodInfo - ResolveListBoxRowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveListBoxRowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveListBoxRowMethod "getIndex" o = ListBoxRowGetIndexMethodInfo - ResolveListBoxRowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveListBoxRowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveListBoxRowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveListBoxRowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveListBoxRowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveListBoxRowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveListBoxRowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveListBoxRowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveListBoxRowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveListBoxRowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveListBoxRowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveListBoxRowMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveListBoxRowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveListBoxRowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveListBoxRowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveListBoxRowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveListBoxRowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveListBoxRowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveListBoxRowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveListBoxRowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveListBoxRowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveListBoxRowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveListBoxRowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveListBoxRowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveListBoxRowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListBoxRowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListBoxRowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveListBoxRowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveListBoxRowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveListBoxRowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveListBoxRowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveListBoxRowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveListBoxRowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveListBoxRowMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveListBoxRowMethod "getSelectable" o = ListBoxRowGetSelectableMethodInfo - ResolveListBoxRowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveListBoxRowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveListBoxRowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveListBoxRowMethod "getState" o = WidgetGetStateMethodInfo - ResolveListBoxRowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveListBoxRowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveListBoxRowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveListBoxRowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveListBoxRowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveListBoxRowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveListBoxRowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveListBoxRowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveListBoxRowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveListBoxRowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveListBoxRowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveListBoxRowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveListBoxRowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveListBoxRowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveListBoxRowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveListBoxRowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveListBoxRowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveListBoxRowMethod "setActivatable" o = ListBoxRowSetActivatableMethodInfo - ResolveListBoxRowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveListBoxRowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveListBoxRowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveListBoxRowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveListBoxRowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveListBoxRowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveListBoxRowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveListBoxRowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveListBoxRowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveListBoxRowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListBoxRowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveListBoxRowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveListBoxRowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveListBoxRowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveListBoxRowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveListBoxRowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveListBoxRowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveListBoxRowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveListBoxRowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveListBoxRowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveListBoxRowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveListBoxRowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveListBoxRowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveListBoxRowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveListBoxRowMethod "setHeader" o = ListBoxRowSetHeaderMethodInfo - ResolveListBoxRowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveListBoxRowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveListBoxRowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveListBoxRowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveListBoxRowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveListBoxRowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveListBoxRowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveListBoxRowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveListBoxRowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveListBoxRowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveListBoxRowMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveListBoxRowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveListBoxRowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveListBoxRowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListBoxRowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveListBoxRowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveListBoxRowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveListBoxRowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveListBoxRowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveListBoxRowMethod "setSelectable" o = ListBoxRowSetSelectableMethodInfo - ResolveListBoxRowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveListBoxRowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveListBoxRowMethod "setState" o = WidgetSetStateMethodInfo - ResolveListBoxRowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveListBoxRowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveListBoxRowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveListBoxRowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveListBoxRowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveListBoxRowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveListBoxRowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveListBoxRowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveListBoxRowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveListBoxRowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveListBoxRowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveListBoxRowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveListBoxRowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListBoxRowMethod t ListBoxRow, MethodInfo info ListBoxRow p) => IsLabelProxy t (ListBoxRow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListBoxRowMethod t ListBoxRow, MethodInfo info ListBoxRow p) => IsLabel t (ListBoxRow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ListBoxRow::activate -type ListBoxRowActivateCallback = - IO () - -noListBoxRowActivateCallback :: Maybe ListBoxRowActivateCallback -noListBoxRowActivateCallback = Nothing - -type ListBoxRowActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListBoxRowActivateCallback :: ListBoxRowActivateCallbackC -> IO (FunPtr ListBoxRowActivateCallbackC) - -listBoxRowActivateClosure :: ListBoxRowActivateCallback -> IO Closure -listBoxRowActivateClosure cb = newCClosure =<< mkListBoxRowActivateCallback wrapped - where wrapped = listBoxRowActivateCallbackWrapper cb - -listBoxRowActivateCallbackWrapper :: - ListBoxRowActivateCallback -> - Ptr () -> - Ptr () -> - IO () -listBoxRowActivateCallbackWrapper _cb _ _ = do - _cb - -onListBoxRowActivate :: (GObject a, MonadIO m) => a -> ListBoxRowActivateCallback -> m SignalHandlerId -onListBoxRowActivate obj cb = liftIO $ connectListBoxRowActivate obj cb SignalConnectBefore -afterListBoxRowActivate :: (GObject a, MonadIO m) => a -> ListBoxRowActivateCallback -> m SignalHandlerId -afterListBoxRowActivate obj cb = connectListBoxRowActivate obj cb SignalConnectAfter - -connectListBoxRowActivate :: (GObject a, MonadIO m) => - a -> ListBoxRowActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectListBoxRowActivate obj cb after = liftIO $ do - cb' <- mkListBoxRowActivateCallback (listBoxRowActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- VVV Prop "activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getListBoxRowActivatable :: (MonadIO m, ListBoxRowK o) => o -> m Bool -getListBoxRowActivatable obj = liftIO $ getObjectPropertyBool obj "activatable" - -setListBoxRowActivatable :: (MonadIO m, ListBoxRowK o) => o -> Bool -> m () -setListBoxRowActivatable obj val = liftIO $ setObjectPropertyBool obj "activatable" val - -constructListBoxRowActivatable :: Bool -> IO ([Char], GValue) -constructListBoxRowActivatable val = constructObjectPropertyBool "activatable" val - -data ListBoxRowActivatablePropertyInfo -instance AttrInfo ListBoxRowActivatablePropertyInfo where - type AttrAllowedOps ListBoxRowActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ListBoxRowActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ListBoxRowActivatablePropertyInfo = ListBoxRowK - type AttrGetType ListBoxRowActivatablePropertyInfo = Bool - type AttrLabel ListBoxRowActivatablePropertyInfo = "activatable" - attrGet _ = getListBoxRowActivatable - attrSet _ = setListBoxRowActivatable - attrConstruct _ = constructListBoxRowActivatable - attrClear _ = undefined - --- VVV Prop "selectable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getListBoxRowSelectable :: (MonadIO m, ListBoxRowK o) => o -> m Bool -getListBoxRowSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" - -setListBoxRowSelectable :: (MonadIO m, ListBoxRowK o) => o -> Bool -> m () -setListBoxRowSelectable obj val = liftIO $ setObjectPropertyBool obj "selectable" val - -constructListBoxRowSelectable :: Bool -> IO ([Char], GValue) -constructListBoxRowSelectable val = constructObjectPropertyBool "selectable" val - -data ListBoxRowSelectablePropertyInfo -instance AttrInfo ListBoxRowSelectablePropertyInfo where - type AttrAllowedOps ListBoxRowSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ListBoxRowSelectablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ListBoxRowSelectablePropertyInfo = ListBoxRowK - type AttrGetType ListBoxRowSelectablePropertyInfo = Bool - type AttrLabel ListBoxRowSelectablePropertyInfo = "selectable" - attrGet _ = getListBoxRowSelectable - attrSet _ = setListBoxRowSelectable - attrConstruct _ = constructListBoxRowSelectable - attrClear _ = undefined - -type instance AttributeList ListBoxRow = ListBoxRowAttributeList -type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -listBoxRowActivatable :: AttrLabelProxy "activatable" -listBoxRowActivatable = AttrLabelProxy - -listBoxRowSelectable :: AttrLabelProxy "selectable" -listBoxRowSelectable = AttrLabelProxy - -data ListBoxRowActivateSignalInfo -instance SignalInfo ListBoxRowActivateSignalInfo where - type HaskellCallbackType ListBoxRowActivateSignalInfo = ListBoxRowActivateCallback - connectSignal _ = connectListBoxRowActivate - -type instance SignalList ListBoxRow = ListBoxRowSignalList -type ListBoxRowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ListBoxRowActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ListBoxRow::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ListBoxRow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_row_new" gtk_list_box_row_new :: - IO (Ptr ListBoxRow) - - -listBoxRowNew :: - (MonadIO m) => - m ListBoxRow -- result -listBoxRowNew = liftIO $ do - result <- gtk_list_box_row_new - checkUnexpectedReturnNULL "gtk_list_box_row_new" result - result' <- (newObject ListBoxRow) result - return result' - --- method ListBoxRow::changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_row_changed" gtk_list_box_row_changed :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO () - - -listBoxRowChanged :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m () -- result -listBoxRowChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_row_changed _obj' - touchManagedPtr _obj - return () - -data ListBoxRowChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowChangedMethodInfo a signature where - overloadedMethod _ = listBoxRowChanged - --- method ListBoxRow::get_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_row_get_activatable" gtk_list_box_row_get_activatable :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO CInt - - -listBoxRowGetActivatable :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m Bool -- result -listBoxRowGetActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ListBoxRowGetActivatableMethodInfo -instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetActivatableMethodInfo a signature where - overloadedMethod _ = listBoxRowGetActivatable - --- method ListBoxRow::get_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_row_get_header" gtk_list_box_row_get_header :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO (Ptr Widget) - - -listBoxRowGetHeader :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m (Maybe Widget) -- result -listBoxRowGetHeader _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_header _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ListBoxRowGetHeaderMethodInfo -instance (signature ~ (m (Maybe Widget)), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where - overloadedMethod _ = listBoxRowGetHeader - --- method ListBoxRow::get_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_row_get_index" gtk_list_box_row_get_index :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO Int32 - - -listBoxRowGetIndex :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m Int32 -- result -listBoxRowGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_index _obj' - touchManagedPtr _obj - return result - -data ListBoxRowGetIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetIndexMethodInfo a signature where - overloadedMethod _ = listBoxRowGetIndex - --- method ListBoxRow::get_selectable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_row_get_selectable" gtk_list_box_row_get_selectable :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO CInt - - -listBoxRowGetSelectable :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m Bool -- result -listBoxRowGetSelectable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_selectable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ListBoxRowGetSelectableMethodInfo -instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetSelectableMethodInfo a signature where - overloadedMethod _ = listBoxRowGetSelectable - --- method ListBoxRow::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", 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 "gtk_list_box_row_is_selected" gtk_list_box_row_is_selected :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - IO CInt - - -listBoxRowIsSelected :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> m Bool -- result -listBoxRowIsSelected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_is_selected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ListBoxRowIsSelectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowIsSelectedMethodInfo a signature where - overloadedMethod _ = listBoxRowIsSelected - --- method ListBoxRow::set_activatable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", 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 "gtk_list_box_row_set_activatable" gtk_list_box_row_set_activatable :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - CInt -> -- activatable : TBasicType TBoolean - IO () - - -listBoxRowSetActivatable :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> Bool -- activatable - -> m () -- result -listBoxRowSetActivatable _obj activatable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let activatable' = (fromIntegral . fromEnum) activatable - gtk_list_box_row_set_activatable _obj' activatable' - touchManagedPtr _obj - return () - -data ListBoxRowSetActivatableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowSetActivatableMethodInfo a signature where - overloadedMethod _ = listBoxRowSetActivatable - --- method ListBoxRow::set_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_box_row_set_header" gtk_list_box_row_set_header :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - Ptr Widget -> -- header : TInterface "Gtk" "Widget" - IO () - - -listBoxRowSetHeader :: - (MonadIO m, ListBoxRowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- header - -> m () -- result -listBoxRowSetHeader _obj header = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeHeader <- case header of - Nothing -> return nullPtr - Just jHeader -> do - let jHeader' = unsafeManagedPtrCastPtr jHeader - return jHeader' - gtk_list_box_row_set_header _obj' maybeHeader - touchManagedPtr _obj - whenJust header touchManagedPtr - return () - -data ListBoxRowSetHeaderMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxRowK a, WidgetK b) => MethodInfo ListBoxRowSetHeaderMethodInfo a signature where - overloadedMethod _ = listBoxRowSetHeader - --- method ListBoxRow::set_selectable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectable", 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 "gtk_list_box_row_set_selectable" gtk_list_box_row_set_selectable :: - Ptr ListBoxRow -> -- _obj : TInterface "Gtk" "ListBoxRow" - CInt -> -- selectable : TBasicType TBoolean - IO () - - -listBoxRowSetSelectable :: - (MonadIO m, ListBoxRowK a) => - a -- _obj - -> Bool -- selectable - -> m () -- result -listBoxRowSetSelectable _obj selectable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selectable' = (fromIntegral . fromEnum) selectable - gtk_list_box_row_set_selectable _obj' selectable' - touchManagedPtr _obj - return () - -data ListBoxRowSetSelectableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowSetSelectableMethodInfo a signature where - overloadedMethod _ = listBoxRowSetSelectable - - diff --git a/GI/Gtk/Objects/ListBoxRow.hs-boot b/GI/Gtk/Objects/ListBoxRow.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxRow.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gtk.Objects.ListBoxRow 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 ListBoxRow = ListBoxRow (ForeignPtr ListBoxRow) -instance GObject ListBoxRow where -class GObject o => ListBoxRowK o -instance (GObject o, IsDescendantOf ListBoxRow o) => ListBoxRowK o -data ListBoxRowActivatablePropertyInfo -data ListBoxRowSelectablePropertyInfo -data ListBoxRowActivateSignalInfo -data ListBoxRowChangedMethodInfo -data ListBoxRowGetActivatableMethodInfo -data ListBoxRowGetHeaderMethodInfo -data ListBoxRowGetIndexMethodInfo -data ListBoxRowGetSelectableMethodInfo -data ListBoxRowIsSelectedMethodInfo -data ListBoxRowSetActivatableMethodInfo -data ListBoxRowSetHeaderMethodInfo -data ListBoxRowSetSelectableMethodInfo diff --git a/GI/Gtk/Objects/ListBoxRowAccessible.hs b/GI/Gtk/Objects/ListBoxRowAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxRowAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.ListBoxRowAccessible - ( - --- * Exported types - ListBoxRowAccessible(..) , - ListBoxRowAccessibleK , - toListBoxRowAccessible , - noListBoxRowAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ListBoxRowAccessible = ListBoxRowAccessible (ForeignPtr ListBoxRowAccessible) -foreign import ccall "gtk_list_box_row_accessible_get_type" - c_gtk_list_box_row_accessible_get_type :: IO GType - -type instance ParentTypes ListBoxRowAccessible = ListBoxRowAccessibleParentTypes -type ListBoxRowAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject ListBoxRowAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_list_box_row_accessible_get_type - - -class GObject o => ListBoxRowAccessibleK o -instance (GObject o, IsDescendantOf ListBoxRowAccessible o) => ListBoxRowAccessibleK o - -toListBoxRowAccessible :: ListBoxRowAccessibleK o => o -> IO ListBoxRowAccessible -toListBoxRowAccessible = unsafeCastTo ListBoxRowAccessible - -noListBoxRowAccessible :: Maybe ListBoxRowAccessible -noListBoxRowAccessible = Nothing - -type family ResolveListBoxRowAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveListBoxRowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveListBoxRowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListBoxRowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListBoxRowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveListBoxRowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveListBoxRowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListBoxRowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListBoxRowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveListBoxRowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveListBoxRowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListBoxRowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListBoxRowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListBoxRowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveListBoxRowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveListBoxRowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListBoxRowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveListBoxRowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveListBoxRowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveListBoxRowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListBoxRowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveListBoxRowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveListBoxRowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveListBoxRowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveListBoxRowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListBoxRowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListBoxRowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListBoxRowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListBoxRowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListBoxRowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListBoxRowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListBoxRowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListBoxRowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveListBoxRowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveListBoxRowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListBoxRowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveListBoxRowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveListBoxRowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveListBoxRowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveListBoxRowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveListBoxRowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveListBoxRowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveListBoxRowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveListBoxRowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListBoxRowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListBoxRowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveListBoxRowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveListBoxRowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveListBoxRowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListBoxRowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveListBoxRowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveListBoxRowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveListBoxRowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveListBoxRowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveListBoxRowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListBoxRowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveListBoxRowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveListBoxRowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveListBoxRowAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListBoxRowAccessibleMethod t ListBoxRowAccessible, MethodInfo info ListBoxRowAccessible p) => IsLabelProxy t (ListBoxRowAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListBoxRowAccessibleMethod t ListBoxRowAccessible, MethodInfo info ListBoxRowAccessible p) => IsLabel t (ListBoxRowAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ListBoxRowAccessible = ListBoxRowAccessibleAttributeList -type ListBoxRowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ListBoxRowAccessible = ListBoxRowAccessibleSignalList -type ListBoxRowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot b/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ListBoxRowAccessible 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 ListBoxRowAccessible = ListBoxRowAccessible (ForeignPtr ListBoxRowAccessible) -instance GObject ListBoxRowAccessible where -class GObject o => ListBoxRowAccessibleK o -instance (GObject o, IsDescendantOf ListBoxRowAccessible o) => ListBoxRowAccessibleK o diff --git a/GI/Gtk/Objects/ListStore.hs b/GI/Gtk/Objects/ListStore.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ListStore.hs +++ /dev/null @@ -1,835 +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.Gtk.Objects.ListStore - ( - --- * Exported types - ListStore(..) , - ListStoreK , - toListStore , - noListStore , - - - -- * Methods --- ** listStoreAppend - ListStoreAppendMethodInfo , - listStoreAppend , - - --- ** listStoreClear - ListStoreClearMethodInfo , - listStoreClear , - - --- ** listStoreInsert - ListStoreInsertMethodInfo , - listStoreInsert , - - --- ** listStoreInsertAfter - ListStoreInsertAfterMethodInfo , - listStoreInsertAfter , - - --- ** listStoreInsertBefore - ListStoreInsertBeforeMethodInfo , - listStoreInsertBefore , - - --- ** listStoreInsertWithValuesv - ListStoreInsertWithValuesvMethodInfo , - listStoreInsertWithValuesv , - - --- ** listStoreIterIsValid - ListStoreIterIsValidMethodInfo , - listStoreIterIsValid , - - --- ** listStoreMoveAfter - ListStoreMoveAfterMethodInfo , - listStoreMoveAfter , - - --- ** listStoreMoveBefore - ListStoreMoveBeforeMethodInfo , - listStoreMoveBefore , - - --- ** listStoreNew - listStoreNew , - - --- ** listStorePrepend - ListStorePrependMethodInfo , - listStorePrepend , - - --- ** listStoreRemove - ListStoreRemoveMethodInfo , - listStoreRemove , - - --- ** listStoreReorder - ListStoreReorderMethodInfo , - listStoreReorder , - - --- ** listStoreSet - ListStoreSetMethodInfo , - listStoreSet , - - --- ** listStoreSetColumnTypes - ListStoreSetColumnTypesMethodInfo , - listStoreSetColumnTypes , - - --- ** listStoreSetValue - ListStoreSetValueMethodInfo , - listStoreSetValue , - - --- ** listStoreSwap - ListStoreSwapMethodInfo , - listStoreSwap , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype ListStore = ListStore (ForeignPtr ListStore) -foreign import ccall "gtk_list_store_get_type" - c_gtk_list_store_get_type :: IO GType - -type instance ParentTypes ListStore = ListStoreParentTypes -type ListStoreParentTypes = '[GObject.Object, Buildable, TreeDragDest, TreeDragSource, TreeModel, TreeSortable] - -instance GObject ListStore where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_list_store_get_type - - -class GObject o => ListStoreK o -instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o - -toListStore :: ListStoreK o => o -> IO ListStore -toListStore = unsafeCastTo ListStore - -noListStore :: Maybe ListStore -noListStore = Nothing - -type family ResolveListStoreMethod (t :: Symbol) (o :: *) :: * where - ResolveListStoreMethod "addChild" o = BuildableAddChildMethodInfo - ResolveListStoreMethod "append" o = ListStoreAppendMethodInfo - ResolveListStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListStoreMethod "clear" o = ListStoreClearMethodInfo - ResolveListStoreMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveListStoreMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveListStoreMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveListStoreMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveListStoreMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo - ResolveListStoreMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo - ResolveListStoreMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo - ResolveListStoreMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveListStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListStoreMethod "foreach" o = TreeModelForeachMethodInfo - ResolveListStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListStoreMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo - ResolveListStoreMethod "insert" o = ListStoreInsertMethodInfo - ResolveListStoreMethod "insertAfter" o = ListStoreInsertAfterMethodInfo - ResolveListStoreMethod "insertBefore" o = ListStoreInsertBeforeMethodInfo - ResolveListStoreMethod "insertWithValuesv" o = ListStoreInsertWithValuesvMethodInfo - ResolveListStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListStoreMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveListStoreMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveListStoreMethod "iterIsValid" o = ListStoreIterIsValidMethodInfo - ResolveListStoreMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveListStoreMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveListStoreMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveListStoreMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveListStoreMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveListStoreMethod "moveAfter" o = ListStoreMoveAfterMethodInfo - ResolveListStoreMethod "moveBefore" o = ListStoreMoveBeforeMethodInfo - ResolveListStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListStoreMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveListStoreMethod "prepend" o = ListStorePrependMethodInfo - ResolveListStoreMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListStoreMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveListStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListStoreMethod "remove" o = ListStoreRemoveMethodInfo - ResolveListStoreMethod "reorder" o = ListStoreReorderMethodInfo - ResolveListStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListStoreMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveListStoreMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveListStoreMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo - ResolveListStoreMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo - ResolveListStoreMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveListStoreMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveListStoreMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveListStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListStoreMethod "set" o = ListStoreSetMethodInfo - ResolveListStoreMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo - ResolveListStoreMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveListStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListStoreMethod "swap" o = ListStoreSwapMethodInfo - ResolveListStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListStoreMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveListStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListStoreMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveListStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListStoreMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveListStoreMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveListStoreMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveListStoreMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveListStoreMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveListStoreMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveListStoreMethod "getName" o = BuildableGetNameMethodInfo - ResolveListStoreMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveListStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListStoreMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo - ResolveListStoreMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveListStoreMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveListStoreMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveListStoreMethod "setColumnTypes" o = ListStoreSetColumnTypesMethodInfo - ResolveListStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListStoreMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo - ResolveListStoreMethod "setName" o = BuildableSetNameMethodInfo - ResolveListStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListStoreMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo - ResolveListStoreMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo - ResolveListStoreMethod "setValue" o = ListStoreSetValueMethodInfo - ResolveListStoreMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabelProxy t (ListStore -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabel t (ListStore -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ListStore = ListStoreAttributeList -type ListStoreAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ListStore = ListStoreSignalList -type ListStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) - --- method ListStore::new --- method type : Constructor --- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gtk" "ListStore") --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_newv" gtk_list_store_newv :: - Int32 -> -- n_columns : TBasicType TInt - Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) - IO (Ptr ListStore) - - -listStoreNew :: - (MonadIO m) => - [GType] -- types - -> m ListStore -- result -listStoreNew types = liftIO $ do - let nColumns = fromIntegral $ length types - types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_list_store_newv nColumns types' - checkUnexpectedReturnNULL "gtk_list_store_newv" result - result' <- (wrapObject ListStore) result - freeMem types' - return result' - --- method ListStore::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_append" gtk_list_store_append :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -listStoreAppend :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> m (TreeIter) -- result -listStoreAppend _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - gtk_list_store_append _obj' iter - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - return iter' - -data ListStoreAppendMethodInfo -instance (signature ~ (m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreAppendMethodInfo a signature where - overloadedMethod _ = listStoreAppend - --- method ListStore::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", 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 "gtk_list_store_clear" gtk_list_store_clear :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - IO () - - -listStoreClear :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> m () -- result -listStoreClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_store_clear _obj' - touchManagedPtr _obj - return () - -data ListStoreClearMethodInfo -instance (signature ~ (m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreClearMethodInfo a signature where - overloadedMethod _ = listStoreClear - --- method ListStore::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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 "gtk_list_store_insert" gtk_list_store_insert :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt - IO () - - -listStoreInsert :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Int32 -- position - -> m (TreeIter) -- result -listStoreInsert _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - gtk_list_store_insert _obj' iter position - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - return iter' - -data ListStoreInsertMethodInfo -instance (signature ~ (Int32 -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertMethodInfo a signature where - overloadedMethod _ = listStoreInsert - --- method ListStore::insert_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_insert_after" gtk_list_store_insert_after :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter" - IO () - - -listStoreInsertAfter :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- sibling - -> m (TreeIter) -- result -listStoreInsertAfter _obj sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrGetPtr jSibling - return jSibling' - gtk_list_store_insert_after _obj' iter maybeSibling - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust sibling touchManagedPtr - return iter' - -data ListStoreInsertAfterMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertAfterMethodInfo a signature where - overloadedMethod _ = listStoreInsertAfter - --- method ListStore::insert_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_insert_before" gtk_list_store_insert_before :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter" - IO () - - -listStoreInsertBefore :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- sibling - -> m (TreeIter) -- result -listStoreInsertBefore _obj sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrGetPtr jSibling - return jSibling' - gtk_list_store_insert_before _obj' iter maybeSibling - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust sibling touchManagedPtr - return iter' - -data ListStoreInsertBeforeMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertBeforeMethodInfo a signature where - overloadedMethod _ = listStoreInsertBefore - --- method ListStore::insert_with_valuesv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_list_store_insert_with_valuesv" gtk_list_store_insert_with_valuesv :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt - Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt) - Ptr GValue -> -- values : TCArray False (-1) 5 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt - IO () - - -listStoreInsertWithValuesv :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Int32 -- position - -> [Int32] -- columns - -> [GValue] -- values - -> m (TreeIter) -- result -listStoreInsertWithValuesv _obj position columns values = liftIO $ do - let nValues = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= nValues) $ - error "Gtk.listStoreInsertWithValuesv : length of 'columns' does not agree with that of 'values'." - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - columns' <- packStorableArray columns - let values' = map unsafeManagedPtrGetPtr values - values'' <- packBlockArray 24 values' - gtk_list_store_insert_with_valuesv _obj' iter position columns' values'' nValues - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return iter' - -data ListStoreInsertWithValuesvMethodInfo -instance (signature ~ (Int32 -> [Int32] -> [GValue] -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertWithValuesvMethodInfo a signature where - overloadedMethod _ = listStoreInsertWithValuesv - --- method ListStore::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_list_store_iter_is_valid" gtk_list_store_iter_is_valid :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -listStoreIterIsValid :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -listStoreIterIsValid _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_list_store_iter_is_valid _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data ListStoreIterIsValidMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, ListStoreK a) => MethodInfo ListStoreIterIsValidMethodInfo a signature where - overloadedMethod _ = listStoreIterIsValid - --- method ListStore::move_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_move_after" gtk_list_store_move_after :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter" - IO () - - -listStoreMoveAfter :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Maybe (TreeIter) -- position - -> m () -- result -listStoreMoveAfter _obj iter position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - maybePosition <- case position of - Nothing -> return nullPtr - Just jPosition -> do - let jPosition' = unsafeManagedPtrGetPtr jPosition - return jPosition' - gtk_list_store_move_after _obj' iter' maybePosition - touchManagedPtr _obj - touchManagedPtr iter - whenJust position touchManagedPtr - return () - -data ListStoreMoveAfterMethodInfo -instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreMoveAfterMethodInfo a signature where - overloadedMethod _ = listStoreMoveAfter - --- method ListStore::move_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_move_before" gtk_list_store_move_before :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter" - IO () - - -listStoreMoveBefore :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Maybe (TreeIter) -- position - -> m () -- result -listStoreMoveBefore _obj iter position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - maybePosition <- case position of - Nothing -> return nullPtr - Just jPosition -> do - let jPosition' = unsafeManagedPtrGetPtr jPosition - return jPosition' - gtk_list_store_move_before _obj' iter' maybePosition - touchManagedPtr _obj - touchManagedPtr iter - whenJust position touchManagedPtr - return () - -data ListStoreMoveBeforeMethodInfo -instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreMoveBeforeMethodInfo a signature where - overloadedMethod _ = listStoreMoveBefore - --- method ListStore::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_prepend" gtk_list_store_prepend :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -listStorePrepend :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> m (TreeIter) -- result -listStorePrepend _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - gtk_list_store_prepend _obj' iter - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - return iter' - -data ListStorePrependMethodInfo -instance (signature ~ (m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStorePrependMethodInfo a signature where - overloadedMethod _ = listStorePrepend - --- method ListStore::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_list_store_remove" gtk_list_store_remove :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -listStoreRemove :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -listStoreRemove _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_list_store_remove _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data ListStoreRemoveMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveMethodInfo a signature where - overloadedMethod _ = listStoreRemove - --- method ListStore::reorder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (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 "gtk_list_store_reorder" gtk_list_store_reorder :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt) - IO () - - -listStoreReorder :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> [Int32] -- newOrder - -> m () -- result -listStoreReorder _obj newOrder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - newOrder' <- packZeroTerminatedStorableArray newOrder - gtk_list_store_reorder _obj' newOrder' - touchManagedPtr _obj - freeMem newOrder' - return () - -data ListStoreReorderMethodInfo -instance (signature ~ ([Int32] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreReorderMethodInfo a signature where - overloadedMethod _ = listStoreReorder - --- method ListStore::set_column_types --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", 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 "gtk_list_store_set_column_types" gtk_list_store_set_column_types :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Int32 -> -- n_columns : TBasicType TInt - Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) - IO () - - -listStoreSetColumnTypes :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> [GType] -- types - -> m () -- result -listStoreSetColumnTypes _obj types = liftIO $ do - let nColumns = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - types' <- (packMapStorableArray gtypeToCGType) types - gtk_list_store_set_column_types _obj' nColumns types' - touchManagedPtr _obj - freeMem types' - return () - -data ListStoreSetColumnTypesMethodInfo -instance (signature ~ ([GType] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetColumnTypesMethodInfo a signature where - overloadedMethod _ = listStoreSetColumnTypes - --- method ListStore::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 = "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 "gtk_list_store_set_value" gtk_list_store_set_value :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -listStoreSetValue :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Int32 -- column - -> GValue -- value - -> m () -- result -listStoreSetValue _obj iter column value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let value' = unsafeManagedPtrGetPtr value - gtk_list_store_set_value _obj' iter' column value' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr value - return () - -data ListStoreSetValueMethodInfo -instance (signature ~ (TreeIter -> Int32 -> GValue -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetValueMethodInfo a signature where - overloadedMethod _ = listStoreSetValue - --- method ListStore::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_list_store_set_valuesv" gtk_list_store_set_valuesv :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt) - Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt - IO () - - -listStoreSet :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- iter - -> [Int32] -- columns - -> [GValue] -- values - -> m () -- result -listStoreSet _obj iter columns values = liftIO $ do - let nValues = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= nValues) $ - error "Gtk.listStoreSet : length of 'columns' does not agree with that of 'values'." - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - columns' <- packStorableArray columns - let values' = map unsafeManagedPtrGetPtr values - values'' <- packBlockArray 24 values' - gtk_list_store_set_valuesv _obj' iter' columns' values'' nValues - touchManagedPtr _obj - touchManagedPtr iter - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return () - -data ListStoreSetMethodInfo -instance (signature ~ (TreeIter -> [Int32] -> [GValue] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetMethodInfo a signature where - overloadedMethod _ = listStoreSet - --- method ListStore::swap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", 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 "gtk_list_store_swap" gtk_list_store_swap :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr TreeIter -> -- a : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- b : TInterface "Gtk" "TreeIter" - IO () - - -listStoreSwap :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> TreeIter -- a - -> TreeIter -- b - -> m () -- result -listStoreSwap _obj a b = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let a' = unsafeManagedPtrGetPtr a - let b' = unsafeManagedPtrGetPtr b - gtk_list_store_swap _obj' a' b' - touchManagedPtr _obj - touchManagedPtr a - touchManagedPtr b - return () - -data ListStoreSwapMethodInfo -instance (signature ~ (TreeIter -> TreeIter -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSwapMethodInfo a signature where - overloadedMethod _ = listStoreSwap - - diff --git a/GI/Gtk/Objects/ListStore.hs-boot b/GI/Gtk/Objects/ListStore.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ListStore.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gtk.Objects.ListStore 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 ListStore = ListStore (ForeignPtr ListStore) -instance GObject ListStore where -class GObject o => ListStoreK o -instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o -data ListStoreAppendMethodInfo -data ListStoreClearMethodInfo -data ListStoreInsertMethodInfo -data ListStoreInsertAfterMethodInfo -data ListStoreInsertBeforeMethodInfo -data ListStoreInsertWithValuesvMethodInfo -data ListStoreIterIsValidMethodInfo -data ListStoreMoveAfterMethodInfo -data ListStoreMoveBeforeMethodInfo -data ListStorePrependMethodInfo -data ListStoreRemoveMethodInfo -data ListStoreReorderMethodInfo -data ListStoreSetColumnTypesMethodInfo -data ListStoreSetValueMethodInfo -data ListStoreSetMethodInfo -data ListStoreSwapMethodInfo diff --git a/GI/Gtk/Objects/LockButton.hs b/GI/Gtk/Objects/LockButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LockButton.hs +++ /dev/null @@ -1,780 +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.Gtk.Objects.LockButton - ( - --- * Exported types - LockButton(..) , - LockButtonK , - toLockButton , - noLockButton , - - - -- * Methods --- ** lockButtonGetPermission - LockButtonGetPermissionMethodInfo , - lockButtonGetPermission , - - --- ** lockButtonNew - lockButtonNew , - - --- ** lockButtonSetPermission - LockButtonSetPermissionMethodInfo , - lockButtonSetPermission , - - - - - -- * Properties --- ** Permission - LockButtonPermissionPropertyInfo , - clearLockButtonPermission , - constructLockButtonPermission , - getLockButtonPermission , - lockButtonPermission , - setLockButtonPermission , - - --- ** TextLock - LockButtonTextLockPropertyInfo , - clearLockButtonTextLock , - constructLockButtonTextLock , - getLockButtonTextLock , - lockButtonTextLock , - setLockButtonTextLock , - - --- ** TextUnlock - LockButtonTextUnlockPropertyInfo , - clearLockButtonTextUnlock , - constructLockButtonTextUnlock , - getLockButtonTextUnlock , - lockButtonTextUnlock , - setLockButtonTextUnlock , - - --- ** TooltipLock - LockButtonTooltipLockPropertyInfo , - clearLockButtonTooltipLock , - constructLockButtonTooltipLock , - getLockButtonTooltipLock , - lockButtonTooltipLock , - setLockButtonTooltipLock , - - --- ** TooltipNotAuthorized - LockButtonTooltipNotAuthorizedPropertyInfo, - clearLockButtonTooltipNotAuthorized , - constructLockButtonTooltipNotAuthorized , - getLockButtonTooltipNotAuthorized , - lockButtonTooltipNotAuthorized , - setLockButtonTooltipNotAuthorized , - - --- ** TooltipUnlock - LockButtonTooltipUnlockPropertyInfo , - clearLockButtonTooltipUnlock , - constructLockButtonTooltipUnlock , - getLockButtonTooltipUnlock , - lockButtonTooltipUnlock , - setLockButtonTooltipUnlock , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype LockButton = LockButton (ForeignPtr LockButton) -foreign import ccall "gtk_lock_button_get_type" - c_gtk_lock_button_get_type :: IO GType - -type instance ParentTypes LockButton = LockButtonParentTypes -type LockButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject LockButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_lock_button_get_type - - -class GObject o => LockButtonK o -instance (GObject o, IsDescendantOf LockButton o) => LockButtonK o - -toLockButton :: LockButtonK o => o -> IO LockButton -toLockButton = unsafeCastTo LockButton - -noLockButton :: Maybe LockButton -noLockButton = Nothing - -type family ResolveLockButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveLockButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveLockButtonMethod "add" o = ContainerAddMethodInfo - ResolveLockButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveLockButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveLockButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveLockButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveLockButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveLockButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveLockButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLockButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLockButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveLockButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveLockButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveLockButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveLockButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveLockButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveLockButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveLockButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveLockButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveLockButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveLockButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveLockButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveLockButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveLockButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveLockButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveLockButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveLockButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveLockButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveLockButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveLockButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveLockButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveLockButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveLockButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveLockButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveLockButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveLockButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveLockButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveLockButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveLockButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveLockButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveLockButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveLockButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveLockButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveLockButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveLockButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveLockButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveLockButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveLockButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveLockButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveLockButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveLockButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveLockButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveLockButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveLockButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveLockButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveLockButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveLockButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveLockButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveLockButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveLockButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveLockButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveLockButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveLockButtonMethod "event" o = WidgetEventMethodInfo - ResolveLockButtonMethod "forall" o = ContainerForallMethodInfo - ResolveLockButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLockButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveLockButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveLockButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLockButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveLockButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveLockButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveLockButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveLockButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveLockButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveLockButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveLockButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveLockButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveLockButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveLockButtonMethod "hide" o = WidgetHideMethodInfo - ResolveLockButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveLockButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveLockButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveLockButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveLockButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveLockButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveLockButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveLockButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveLockButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveLockButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLockButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveLockButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveLockButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveLockButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveLockButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveLockButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveLockButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveLockButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveLockButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveLockButtonMethod "map" o = WidgetMapMethodInfo - ResolveLockButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveLockButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveLockButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveLockButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveLockButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveLockButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveLockButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveLockButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveLockButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLockButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLockButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveLockButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveLockButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveLockButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveLockButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveLockButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveLockButtonMethod "path" o = WidgetPathMethodInfo - ResolveLockButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveLockButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveLockButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveLockButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveLockButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveLockButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveLockButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveLockButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveLockButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveLockButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLockButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLockButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveLockButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveLockButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveLockButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveLockButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveLockButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveLockButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveLockButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveLockButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveLockButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveLockButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLockButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLockButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveLockButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveLockButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveLockButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLockButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveLockButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveLockButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveLockButtonMethod "show" o = WidgetShowMethodInfo - ResolveLockButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveLockButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveLockButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveLockButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveLockButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveLockButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLockButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLockButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveLockButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveLockButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveLockButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveLockButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLockButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveLockButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveLockButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveLockButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveLockButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveLockButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLockButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveLockButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveLockButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveLockButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLockButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveLockButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveLockButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveLockButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveLockButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveLockButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveLockButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveLockButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveLockButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveLockButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveLockButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveLockButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveLockButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveLockButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveLockButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveLockButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveLockButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveLockButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveLockButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveLockButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveLockButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveLockButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveLockButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLockButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveLockButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveLockButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveLockButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveLockButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveLockButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveLockButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveLockButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveLockButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveLockButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveLockButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveLockButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveLockButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveLockButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveLockButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveLockButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveLockButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveLockButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveLockButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveLockButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveLockButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveLockButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveLockButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveLockButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveLockButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveLockButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveLockButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveLockButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveLockButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveLockButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveLockButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveLockButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveLockButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveLockButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveLockButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveLockButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveLockButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveLockButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveLockButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveLockButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveLockButtonMethod "getPermission" o = LockButtonGetPermissionMethodInfo - ResolveLockButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveLockButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveLockButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveLockButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveLockButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveLockButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveLockButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveLockButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLockButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLockButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveLockButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveLockButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveLockButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveLockButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveLockButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveLockButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveLockButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveLockButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveLockButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveLockButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveLockButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveLockButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveLockButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveLockButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveLockButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveLockButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveLockButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveLockButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveLockButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveLockButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveLockButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveLockButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveLockButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveLockButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveLockButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveLockButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveLockButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveLockButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveLockButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveLockButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveLockButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveLockButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveLockButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveLockButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveLockButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveLockButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveLockButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveLockButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveLockButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveLockButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveLockButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveLockButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveLockButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveLockButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveLockButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveLockButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveLockButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLockButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveLockButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveLockButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveLockButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveLockButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveLockButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveLockButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveLockButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveLockButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveLockButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveLockButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveLockButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveLockButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveLockButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveLockButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveLockButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveLockButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveLockButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveLockButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveLockButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveLockButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveLockButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveLockButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveLockButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveLockButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveLockButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveLockButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveLockButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveLockButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveLockButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveLockButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveLockButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveLockButtonMethod "setPermission" o = LockButtonSetPermissionMethodInfo - ResolveLockButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLockButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveLockButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveLockButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveLockButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveLockButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveLockButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveLockButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveLockButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveLockButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveLockButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveLockButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveLockButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveLockButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveLockButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveLockButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveLockButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveLockButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveLockButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveLockButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveLockButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveLockButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveLockButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveLockButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveLockButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveLockButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveLockButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLockButtonMethod t LockButton, MethodInfo info LockButton p) => IsLabelProxy t (LockButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLockButtonMethod t LockButton, MethodInfo info LockButton p) => IsLabel t (LockButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "permission" - -- Type: TInterface "Gio" "Permission" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m Gio.Permission -getLockButtonPermission obj = liftIO $ checkUnexpectedNothing "getLockButtonPermission" $ getObjectPropertyObject obj "permission" Gio.Permission - -setLockButtonPermission :: (MonadIO m, LockButtonK o, Gio.PermissionK a) => o -> a -> m () -setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" (Just val) - -constructLockButtonPermission :: (Gio.PermissionK a) => a -> IO ([Char], GValue) -constructLockButtonPermission val = constructObjectPropertyObject "permission" (Just val) - -clearLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonPermission obj = liftIO $ setObjectPropertyObject obj "permission" (Nothing :: Maybe Gio.Permission) - -data LockButtonPermissionPropertyInfo -instance AttrInfo LockButtonPermissionPropertyInfo where - type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK - type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK - type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission - type AttrLabel LockButtonPermissionPropertyInfo = "permission" - attrGet _ = getLockButtonPermission - attrSet _ = setLockButtonPermission - attrConstruct _ = constructLockButtonPermission - attrClear _ = clearLockButtonPermission - --- VVV Prop "text-lock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) -getLockButtonTextLock obj = liftIO $ getObjectPropertyString obj "text-lock" - -setLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTextLock obj val = liftIO $ setObjectPropertyString obj "text-lock" (Just val) - -constructLockButtonTextLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextLock val = constructObjectPropertyString "text-lock" (Just val) - -clearLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonTextLock obj = liftIO $ setObjectPropertyString obj "text-lock" (Nothing :: Maybe T.Text) - -data LockButtonTextLockPropertyInfo -instance AttrInfo LockButtonTextLockPropertyInfo where - type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextLockPropertyInfo = (Maybe T.Text) - type AttrLabel LockButtonTextLockPropertyInfo = "text-lock" - attrGet _ = getLockButtonTextLock - attrSet _ = setLockButtonTextLock - attrConstruct _ = constructLockButtonTextLock - attrClear _ = clearLockButtonTextLock - --- VVV Prop "text-unlock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) -getLockButtonTextUnlock obj = liftIO $ getObjectPropertyString obj "text-unlock" - -setLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTextUnlock obj val = liftIO $ setObjectPropertyString obj "text-unlock" (Just val) - -constructLockButtonTextUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" (Just val) - -clearLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonTextUnlock obj = liftIO $ setObjectPropertyString obj "text-unlock" (Nothing :: Maybe T.Text) - -data LockButtonTextUnlockPropertyInfo -instance AttrInfo LockButtonTextUnlockPropertyInfo where - type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextUnlockPropertyInfo = (Maybe T.Text) - type AttrLabel LockButtonTextUnlockPropertyInfo = "text-unlock" - attrGet _ = getLockButtonTextUnlock - attrSet _ = setLockButtonTextUnlock - attrConstruct _ = constructLockButtonTextUnlock - attrClear _ = clearLockButtonTextUnlock - --- VVV Prop "tooltip-lock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) -getLockButtonTooltipLock obj = liftIO $ getObjectPropertyString obj "tooltip-lock" - -setLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipLock obj val = liftIO $ setObjectPropertyString obj "tooltip-lock" (Just val) - -constructLockButtonTooltipLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" (Just val) - -clearLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonTooltipLock obj = liftIO $ setObjectPropertyString obj "tooltip-lock" (Nothing :: Maybe T.Text) - -data LockButtonTooltipLockPropertyInfo -instance AttrInfo LockButtonTooltipLockPropertyInfo where - type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipLockPropertyInfo = (Maybe T.Text) - type AttrLabel LockButtonTooltipLockPropertyInfo = "tooltip-lock" - attrGet _ = getLockButtonTooltipLock - attrSet _ = setLockButtonTooltipLock - attrConstruct _ = constructLockButtonTooltipLock - attrClear _ = clearLockButtonTooltipLock - --- VVV Prop "tooltip-not-authorized" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) -getLockButtonTooltipNotAuthorized obj = liftIO $ getObjectPropertyString obj "tooltip-not-authorized" - -setLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipNotAuthorized obj val = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Just val) - -constructLockButtonTooltipNotAuthorized :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" (Just val) - -clearLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonTooltipNotAuthorized obj = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Nothing :: Maybe T.Text) - -data LockButtonTooltipNotAuthorizedPropertyInfo -instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where - type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = (Maybe T.Text) - type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "tooltip-not-authorized" - attrGet _ = getLockButtonTooltipNotAuthorized - attrSet _ = setLockButtonTooltipNotAuthorized - attrConstruct _ = constructLockButtonTooltipNotAuthorized - attrClear _ = clearLockButtonTooltipNotAuthorized - --- VVV Prop "tooltip-unlock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) -getLockButtonTooltipUnlock obj = liftIO $ getObjectPropertyString obj "tooltip-unlock" - -setLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipUnlock obj val = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Just val) - -constructLockButtonTooltipUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" (Just val) - -clearLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m () -clearLockButtonTooltipUnlock obj = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Nothing :: Maybe T.Text) - -data LockButtonTooltipUnlockPropertyInfo -instance AttrInfo LockButtonTooltipUnlockPropertyInfo where - type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipUnlockPropertyInfo = (Maybe T.Text) - type AttrLabel LockButtonTooltipUnlockPropertyInfo = "tooltip-unlock" - attrGet _ = getLockButtonTooltipUnlock - attrSet _ = setLockButtonTooltipUnlock - attrConstruct _ = constructLockButtonTooltipUnlock - attrClear _ = clearLockButtonTooltipUnlock - -type instance AttributeList LockButton = LockButtonAttributeList -type LockButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("textLock", LockButtonTextLockPropertyInfo), '("textUnlock", LockButtonTextUnlockPropertyInfo), '("tooltipLock", LockButtonTooltipLockPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipNotAuthorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("tooltipUnlock", LockButtonTooltipUnlockPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -lockButtonPermission :: AttrLabelProxy "permission" -lockButtonPermission = AttrLabelProxy - -lockButtonTextLock :: AttrLabelProxy "textLock" -lockButtonTextLock = AttrLabelProxy - -lockButtonTextUnlock :: AttrLabelProxy "textUnlock" -lockButtonTextUnlock = AttrLabelProxy - -lockButtonTooltipLock :: AttrLabelProxy "tooltipLock" -lockButtonTooltipLock = AttrLabelProxy - -lockButtonTooltipNotAuthorized :: AttrLabelProxy "tooltipNotAuthorized" -lockButtonTooltipNotAuthorized = AttrLabelProxy - -lockButtonTooltipUnlock :: AttrLabelProxy "tooltipUnlock" -lockButtonTooltipUnlock = AttrLabelProxy - -type instance SignalList LockButton = LockButtonSignalList -type LockButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method LockButton::new --- method type : Constructor --- Args : [Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "LockButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_lock_button_new" gtk_lock_button_new :: - Ptr Gio.Permission -> -- permission : TInterface "Gio" "Permission" - IO (Ptr LockButton) - - -lockButtonNew :: - (MonadIO m, Gio.PermissionK a) => - Maybe (a) -- permission - -> m LockButton -- result -lockButtonNew permission = liftIO $ do - maybePermission <- case permission of - Nothing -> return nullPtr - Just jPermission -> do - let jPermission' = unsafeManagedPtrCastPtr jPermission - return jPermission' - result <- gtk_lock_button_new maybePermission - checkUnexpectedReturnNULL "gtk_lock_button_new" result - result' <- (newObject LockButton) result - whenJust permission touchManagedPtr - return result' - --- method LockButton::get_permission --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Permission") --- throws : False --- Skip return : False - -foreign import ccall "gtk_lock_button_get_permission" gtk_lock_button_get_permission :: - Ptr LockButton -> -- _obj : TInterface "Gtk" "LockButton" - IO (Ptr Gio.Permission) - - -lockButtonGetPermission :: - (MonadIO m, LockButtonK a) => - a -- _obj - -> m Gio.Permission -- result -lockButtonGetPermission _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_lock_button_get_permission _obj' - checkUnexpectedReturnNULL "gtk_lock_button_get_permission" result - result' <- (newObject Gio.Permission) result - touchManagedPtr _obj - return result' - -data LockButtonGetPermissionMethodInfo -instance (signature ~ (m Gio.Permission), MonadIO m, LockButtonK a) => MethodInfo LockButtonGetPermissionMethodInfo a signature where - overloadedMethod _ = lockButtonGetPermission - --- method LockButton::set_permission --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_lock_button_set_permission" gtk_lock_button_set_permission :: - Ptr LockButton -> -- _obj : TInterface "Gtk" "LockButton" - Ptr Gio.Permission -> -- permission : TInterface "Gio" "Permission" - IO () - - -lockButtonSetPermission :: - (MonadIO m, LockButtonK a, Gio.PermissionK b) => - a -- _obj - -> Maybe (b) -- permission - -> m () -- result -lockButtonSetPermission _obj permission = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePermission <- case permission of - Nothing -> return nullPtr - Just jPermission -> do - let jPermission' = unsafeManagedPtrCastPtr jPermission - return jPermission' - gtk_lock_button_set_permission _obj' maybePermission - touchManagedPtr _obj - whenJust permission touchManagedPtr - return () - -data LockButtonSetPermissionMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LockButtonK a, Gio.PermissionK b) => MethodInfo LockButtonSetPermissionMethodInfo a signature where - overloadedMethod _ = lockButtonSetPermission - - diff --git a/GI/Gtk/Objects/LockButton.hs-boot b/GI/Gtk/Objects/LockButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LockButton.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.LockButton 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 LockButton = LockButton (ForeignPtr LockButton) -instance GObject LockButton where -class GObject o => LockButtonK o -instance (GObject o, IsDescendantOf LockButton o) => LockButtonK o -data LockButtonPermissionPropertyInfo -data LockButtonTextLockPropertyInfo -data LockButtonTextUnlockPropertyInfo -data LockButtonTooltipLockPropertyInfo -data LockButtonTooltipNotAuthorizedPropertyInfo -data LockButtonTooltipUnlockPropertyInfo -data LockButtonGetPermissionMethodInfo -data LockButtonSetPermissionMethodInfo diff --git a/GI/Gtk/Objects/LockButtonAccessible.hs b/GI/Gtk/Objects/LockButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/LockButtonAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.LockButtonAccessible - ( - --- * Exported types - LockButtonAccessible(..) , - LockButtonAccessibleK , - toLockButtonAccessible , - noLockButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype LockButtonAccessible = LockButtonAccessible (ForeignPtr LockButtonAccessible) -foreign import ccall "gtk_lock_button_accessible_get_type" - c_gtk_lock_button_accessible_get_type :: IO GType - -type instance ParentTypes LockButtonAccessible = LockButtonAccessibleParentTypes -type LockButtonAccessibleParentTypes = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject LockButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_lock_button_accessible_get_type - - -class GObject o => LockButtonAccessibleK o -instance (GObject o, IsDescendantOf LockButtonAccessible o) => LockButtonAccessibleK o - -toLockButtonAccessible :: LockButtonAccessibleK o => o -> IO LockButtonAccessible -toLockButtonAccessible = unsafeCastTo LockButtonAccessible - -noLockButtonAccessible :: Maybe LockButtonAccessible -noLockButtonAccessible = Nothing - -type family ResolveLockButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveLockButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveLockButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLockButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLockButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveLockButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveLockButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveLockButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLockButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLockButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveLockButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveLockButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLockButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLockButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLockButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveLockButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveLockButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLockButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveLockButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveLockButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveLockButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLockButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveLockButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveLockButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveLockButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveLockButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLockButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLockButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLockButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLockButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLockButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLockButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLockButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLockButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveLockButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveLockButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLockButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveLockButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveLockButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveLockButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveLockButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveLockButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveLockButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveLockButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveLockButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveLockButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveLockButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveLockButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveLockButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveLockButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLockButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLockButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveLockButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveLockButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveLockButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLockButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveLockButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveLockButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveLockButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveLockButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveLockButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLockButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveLockButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveLockButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveLockButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLockButtonAccessibleMethod t LockButtonAccessible, MethodInfo info LockButtonAccessible p) => IsLabelProxy t (LockButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLockButtonAccessibleMethod t LockButtonAccessible, MethodInfo info LockButtonAccessible p) => IsLabel t (LockButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList LockButtonAccessible = LockButtonAccessibleAttributeList -type LockButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LockButtonAccessible = LockButtonAccessibleSignalList -type LockButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/LockButtonAccessible.hs-boot b/GI/Gtk/Objects/LockButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/LockButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.LockButtonAccessible 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 LockButtonAccessible = LockButtonAccessible (ForeignPtr LockButtonAccessible) -instance GObject LockButtonAccessible where -class GObject o => LockButtonAccessibleK o -instance (GObject o, IsDescendantOf LockButtonAccessible o) => LockButtonAccessibleK o diff --git a/GI/Gtk/Objects/Menu.hs b/GI/Gtk/Objects/Menu.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Menu.hs +++ /dev/null @@ -1,1803 +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.Gtk.Objects.Menu - ( - --- * Exported types - Menu(..) , - MenuK , - toMenu , - noMenu , - - - -- * Methods --- ** menuAttach - MenuAttachMethodInfo , - menuAttach , - - --- ** menuAttachToWidget - MenuAttachToWidgetMethodInfo , - menuAttachToWidget , - - --- ** menuDetach - MenuDetachMethodInfo , - menuDetach , - - --- ** menuGetAccelGroup - MenuGetAccelGroupMethodInfo , - menuGetAccelGroup , - - --- ** menuGetAccelPath - MenuGetAccelPathMethodInfo , - menuGetAccelPath , - - --- ** menuGetActive - MenuGetActiveMethodInfo , - menuGetActive , - - --- ** menuGetAttachWidget - MenuGetAttachWidgetMethodInfo , - menuGetAttachWidget , - - --- ** menuGetForAttachWidget - menuGetForAttachWidget , - - --- ** menuGetMonitor - MenuGetMonitorMethodInfo , - menuGetMonitor , - - --- ** menuGetReserveToggleSize - MenuGetReserveToggleSizeMethodInfo , - menuGetReserveToggleSize , - - --- ** menuGetTearoffState - MenuGetTearoffStateMethodInfo , - menuGetTearoffState , - - --- ** menuGetTitle - MenuGetTitleMethodInfo , - menuGetTitle , - - --- ** menuNew - menuNew , - - --- ** menuNewFromModel - menuNewFromModel , - - --- ** menuPopdown - MenuPopdownMethodInfo , - menuPopdown , - - --- ** menuPopup - MenuPopupMethodInfo , - menuPopup , - - --- ** menuPopupForDevice - MenuPopupForDeviceMethodInfo , - menuPopupForDevice , - - --- ** menuReorderChild - MenuReorderChildMethodInfo , - menuReorderChild , - - --- ** menuReposition - MenuRepositionMethodInfo , - menuReposition , - - --- ** menuSetAccelGroup - MenuSetAccelGroupMethodInfo , - menuSetAccelGroup , - - --- ** menuSetAccelPath - MenuSetAccelPathMethodInfo , - menuSetAccelPath , - - --- ** menuSetActive - MenuSetActiveMethodInfo , - menuSetActive , - - --- ** menuSetMonitor - MenuSetMonitorMethodInfo , - menuSetMonitor , - - --- ** menuSetReserveToggleSize - MenuSetReserveToggleSizeMethodInfo , - menuSetReserveToggleSize , - - --- ** menuSetScreen - MenuSetScreenMethodInfo , - menuSetScreen , - - --- ** menuSetTearoffState - MenuSetTearoffStateMethodInfo , - menuSetTearoffState , - - --- ** menuSetTitle - MenuSetTitleMethodInfo , - menuSetTitle , - - - - - -- * Properties --- ** AccelGroup - MenuAccelGroupPropertyInfo , - clearMenuAccelGroup , - constructMenuAccelGroup , - getMenuAccelGroup , - menuAccelGroup , - setMenuAccelGroup , - - --- ** AccelPath - MenuAccelPathPropertyInfo , - clearMenuAccelPath , - constructMenuAccelPath , - getMenuAccelPath , - menuAccelPath , - setMenuAccelPath , - - --- ** Active - MenuActivePropertyInfo , - constructMenuActive , - getMenuActive , - menuActive , - setMenuActive , - - --- ** AttachWidget - MenuAttachWidgetPropertyInfo , - clearMenuAttachWidget , - constructMenuAttachWidget , - getMenuAttachWidget , - menuAttachWidget , - setMenuAttachWidget , - - --- ** Monitor - MenuMonitorPropertyInfo , - constructMenuMonitor , - getMenuMonitor , - menuMonitor , - setMenuMonitor , - - --- ** ReserveToggleSize - MenuReserveToggleSizePropertyInfo , - constructMenuReserveToggleSize , - getMenuReserveToggleSize , - menuReserveToggleSize , - setMenuReserveToggleSize , - - --- ** TearoffState - MenuTearoffStatePropertyInfo , - constructMenuTearoffState , - getMenuTearoffState , - menuTearoffState , - setMenuTearoffState , - - --- ** TearoffTitle - MenuTearoffTitlePropertyInfo , - clearMenuTearoffTitle , - constructMenuTearoffTitle , - getMenuTearoffTitle , - menuTearoffTitle , - setMenuTearoffTitle , - - - - - -- * Signals --- ** MoveScroll - MenuMoveScrollCallback , - MenuMoveScrollCallbackC , - MenuMoveScrollSignalInfo , - afterMenuMoveScroll , - menuMoveScrollCallbackWrapper , - menuMoveScrollClosure , - mkMenuMoveScrollCallback , - noMenuMoveScrollCallback , - onMenuMoveScroll , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio - -newtype Menu = Menu (ForeignPtr Menu) -foreign import ccall "gtk_menu_get_type" - c_gtk_menu_get_type :: IO GType - -type instance ParentTypes Menu = MenuParentTypes -type MenuParentTypes = '[MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Menu where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_get_type - - -class GObject o => MenuK o -instance (GObject o, IsDescendantOf Menu o) => MenuK o - -toMenu :: MenuK o => o -> IO Menu -toMenu = unsafeCastTo Menu - -noMenu :: Maybe Menu -noMenu = Nothing - -type family ResolveMenuMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuMethod "activate" o = WidgetActivateMethodInfo - ResolveMenuMethod "activateItem" o = MenuShellActivateItemMethodInfo - ResolveMenuMethod "add" o = ContainerAddMethodInfo - ResolveMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuMethod "append" o = MenuShellAppendMethodInfo - ResolveMenuMethod "attach" o = MenuAttachMethodInfo - ResolveMenuMethod "attachToWidget" o = MenuAttachToWidgetMethodInfo - ResolveMenuMethod "bindModel" o = MenuShellBindModelMethodInfo - ResolveMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuMethod "cancel" o = MenuShellCancelMethodInfo - ResolveMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuMethod "deactivate" o = MenuShellDeactivateMethodInfo - ResolveMenuMethod "deselect" o = MenuShellDeselectMethodInfo - ResolveMenuMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuMethod "detach" o = MenuDetachMethodInfo - ResolveMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuMethod "event" o = WidgetEventMethodInfo - ResolveMenuMethod "forall" o = ContainerForallMethodInfo - ResolveMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuMethod "hide" o = WidgetHideMethodInfo - ResolveMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuMethod "insert" o = MenuShellInsertMethodInfo - ResolveMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuMethod "map" o = WidgetMapMethodInfo - ResolveMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuMethod "path" o = WidgetPathMethodInfo - ResolveMenuMethod "popdown" o = MenuPopdownMethodInfo - ResolveMenuMethod "popup" o = MenuPopupMethodInfo - ResolveMenuMethod "popupForDevice" o = MenuPopupForDeviceMethodInfo - ResolveMenuMethod "prepend" o = MenuShellPrependMethodInfo - ResolveMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuMethod "reorderChild" o = MenuReorderChildMethodInfo - ResolveMenuMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuMethod "reposition" o = MenuRepositionMethodInfo - ResolveMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuMethod "selectFirst" o = MenuShellSelectFirstMethodInfo - ResolveMenuMethod "selectItem" o = MenuShellSelectItemMethodInfo - ResolveMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuMethod "show" o = WidgetShowMethodInfo - ResolveMenuMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuMethod "getAccelGroup" o = MenuGetAccelGroupMethodInfo - ResolveMenuMethod "getAccelPath" o = MenuGetAccelPathMethodInfo - ResolveMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuMethod "getActive" o = MenuGetActiveMethodInfo - ResolveMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo - ResolveMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo - ResolveMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuMethod "getParentShell" o = MenuShellGetParentShellMethodInfo - ResolveMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuMethod "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo - ResolveMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo - ResolveMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo - ResolveMenuMethod "getTearoffState" o = MenuGetTearoffStateMethodInfo - ResolveMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuMethod "getTitle" o = MenuGetTitleMethodInfo - ResolveMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo - ResolveMenuMethod "setActive" o = MenuSetActiveMethodInfo - ResolveMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo - ResolveMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo - ResolveMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuMethod "setScreen" o = MenuSetScreenMethodInfo - ResolveMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo - ResolveMenuMethod "setTearoffState" o = MenuSetTearoffStateMethodInfo - ResolveMenuMethod "setTitle" o = MenuSetTitleMethodInfo - ResolveMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabelProxy t (Menu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabel t (Menu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Menu::move-scroll -type MenuMoveScrollCallback = - ScrollType -> - IO () - -noMenuMoveScrollCallback :: Maybe MenuMoveScrollCallback -noMenuMoveScrollCallback = Nothing - -type MenuMoveScrollCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuMoveScrollCallback :: MenuMoveScrollCallbackC -> IO (FunPtr MenuMoveScrollCallbackC) - -menuMoveScrollClosure :: MenuMoveScrollCallback -> IO Closure -menuMoveScrollClosure cb = newCClosure =<< mkMenuMoveScrollCallback wrapped - where wrapped = menuMoveScrollCallbackWrapper cb - -menuMoveScrollCallbackWrapper :: - MenuMoveScrollCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -menuMoveScrollCallbackWrapper _cb _ scrollType _ = do - let scrollType' = (toEnum . fromIntegral) scrollType - _cb scrollType' - -onMenuMoveScroll :: (GObject a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId -onMenuMoveScroll obj cb = liftIO $ connectMenuMoveScroll obj cb SignalConnectBefore -afterMenuMoveScroll :: (GObject a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId -afterMenuMoveScroll obj cb = connectMenuMoveScroll obj cb SignalConnectAfter - -connectMenuMoveScroll :: (GObject a, MonadIO m) => - a -> MenuMoveScrollCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuMoveScroll obj cb after = liftIO $ do - cb' <- mkMenuMoveScrollCallback (menuMoveScrollCallbackWrapper cb) - connectSignalFunPtr obj "move-scroll" cb' after - --- VVV Prop "accel-group" - -- Type: TInterface "Gtk" "AccelGroup" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m AccelGroup -getMenuAccelGroup obj = liftIO $ checkUnexpectedNothing "getMenuAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup - -setMenuAccelGroup :: (MonadIO m, MenuK o, AccelGroupK a) => o -> a -> m () -setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) - -constructMenuAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) - -clearMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m () -clearMenuAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup) - -data MenuAccelGroupPropertyInfo -instance AttrInfo MenuAccelGroupPropertyInfo where - type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK - type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK - type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup - type AttrLabel MenuAccelGroupPropertyInfo = "accel-group" - attrGet _ = getMenuAccelGroup - attrSet _ = setMenuAccelGroup - attrConstruct _ = constructMenuAccelGroup - attrClear _ = clearMenuAccelGroup - --- VVV Prop "accel-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getMenuAccelPath :: (MonadIO m, MenuK o) => o -> m T.Text -getMenuAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuAccelPath" $ getObjectPropertyString obj "accel-path" - -setMenuAccelPath :: (MonadIO m, MenuK o) => o -> T.Text -> m () -setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) - -constructMenuAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuAccelPath val = constructObjectPropertyString "accel-path" (Just val) - -clearMenuAccelPath :: (MonadIO m, MenuK o) => o -> m () -clearMenuAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text) - -data MenuAccelPathPropertyInfo -instance AttrInfo MenuAccelPathPropertyInfo where - type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK - type AttrGetType MenuAccelPathPropertyInfo = T.Text - type AttrLabel MenuAccelPathPropertyInfo = "accel-path" - attrGet _ = getMenuAccelPath - attrSet _ = setMenuAccelPath - attrConstruct _ = constructMenuAccelPath - attrClear _ = clearMenuAccelPath - --- VVV Prop "active" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMenuActive :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuActive obj = liftIO $ getObjectPropertyInt32 obj "active" - -setMenuActive :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val - -constructMenuActive :: Int32 -> IO ([Char], GValue) -constructMenuActive val = constructObjectPropertyInt32 "active" val - -data MenuActivePropertyInfo -instance AttrInfo MenuActivePropertyInfo where - type AttrAllowedOps MenuActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuActivePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint MenuActivePropertyInfo = MenuK - type AttrGetType MenuActivePropertyInfo = Int32 - type AttrLabel MenuActivePropertyInfo = "active" - attrGet _ = getMenuActive - attrSet _ = setMenuActive - attrConstruct _ = constructMenuActive - attrClear _ = undefined - --- VVV Prop "attach-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m Widget -getMenuAttachWidget obj = liftIO $ checkUnexpectedNothing "getMenuAttachWidget" $ getObjectPropertyObject obj "attach-widget" Widget - -setMenuAttachWidget :: (MonadIO m, MenuK o, WidgetK a) => o -> a -> m () -setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" (Just val) - -constructMenuAttachWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" (Just val) - -clearMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m () -clearMenuAttachWidget obj = liftIO $ setObjectPropertyObject obj "attach-widget" (Nothing :: Maybe Widget) - -data MenuAttachWidgetPropertyInfo -instance AttrInfo MenuAttachWidgetPropertyInfo where - type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK - type AttrGetType MenuAttachWidgetPropertyInfo = Widget - type AttrLabel MenuAttachWidgetPropertyInfo = "attach-widget" - attrGet _ = getMenuAttachWidget - attrSet _ = setMenuAttachWidget - attrConstruct _ = constructMenuAttachWidget - attrClear _ = clearMenuAttachWidget - --- VVV Prop "monitor" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuMonitor :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuMonitor obj = liftIO $ getObjectPropertyInt32 obj "monitor" - -setMenuMonitor :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuMonitor obj val = liftIO $ setObjectPropertyInt32 obj "monitor" val - -constructMenuMonitor :: Int32 -> IO ([Char], GValue) -constructMenuMonitor val = constructObjectPropertyInt32 "monitor" val - -data MenuMonitorPropertyInfo -instance AttrInfo MenuMonitorPropertyInfo where - type AttrAllowedOps MenuMonitorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuMonitorPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint MenuMonitorPropertyInfo = MenuK - type AttrGetType MenuMonitorPropertyInfo = Int32 - type AttrLabel MenuMonitorPropertyInfo = "monitor" - attrGet _ = getMenuMonitor - attrSet _ = setMenuMonitor - attrConstruct _ = constructMenuMonitor - attrClear _ = undefined - --- VVV Prop "reserve-toggle-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuReserveToggleSize :: (MonadIO m, MenuK o) => o -> m Bool -getMenuReserveToggleSize obj = liftIO $ getObjectPropertyBool obj "reserve-toggle-size" - -setMenuReserveToggleSize :: (MonadIO m, MenuK o) => o -> Bool -> m () -setMenuReserveToggleSize obj val = liftIO $ setObjectPropertyBool obj "reserve-toggle-size" val - -constructMenuReserveToggleSize :: Bool -> IO ([Char], GValue) -constructMenuReserveToggleSize val = constructObjectPropertyBool "reserve-toggle-size" val - -data MenuReserveToggleSizePropertyInfo -instance AttrInfo MenuReserveToggleSizePropertyInfo where - type AttrAllowedOps MenuReserveToggleSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuReserveToggleSizePropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuReserveToggleSizePropertyInfo = MenuK - type AttrGetType MenuReserveToggleSizePropertyInfo = Bool - type AttrLabel MenuReserveToggleSizePropertyInfo = "reserve-toggle-size" - attrGet _ = getMenuReserveToggleSize - attrSet _ = setMenuReserveToggleSize - attrConstruct _ = constructMenuReserveToggleSize - attrClear _ = undefined - --- VVV Prop "tearoff-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuTearoffState :: (MonadIO m, MenuK o) => o -> m Bool -getMenuTearoffState obj = liftIO $ getObjectPropertyBool obj "tearoff-state" - -setMenuTearoffState :: (MonadIO m, MenuK o) => o -> Bool -> m () -setMenuTearoffState obj val = liftIO $ setObjectPropertyBool obj "tearoff-state" val - -constructMenuTearoffState :: Bool -> IO ([Char], GValue) -constructMenuTearoffState val = constructObjectPropertyBool "tearoff-state" val - -data MenuTearoffStatePropertyInfo -instance AttrInfo MenuTearoffStatePropertyInfo where - type AttrAllowedOps MenuTearoffStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuTearoffStatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuTearoffStatePropertyInfo = MenuK - type AttrGetType MenuTearoffStatePropertyInfo = Bool - type AttrLabel MenuTearoffStatePropertyInfo = "tearoff-state" - attrGet _ = getMenuTearoffState - attrSet _ = setMenuTearoffState - attrConstruct _ = constructMenuTearoffState - attrClear _ = undefined - --- VVV Prop "tearoff-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m (Maybe T.Text) -getMenuTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" - -setMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> T.Text -> m () -setMenuTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) - -constructMenuTearoffTitle :: T.Text -> IO ([Char], GValue) -constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) - -clearMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m () -clearMenuTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text) - -data MenuTearoffTitlePropertyInfo -instance AttrInfo MenuTearoffTitlePropertyInfo where - type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK - type AttrGetType MenuTearoffTitlePropertyInfo = (Maybe T.Text) - type AttrLabel MenuTearoffTitlePropertyInfo = "tearoff-title" - attrGet _ = getMenuTearoffTitle - attrSet _ = setMenuTearoffTitle - attrConstruct _ = constructMenuTearoffTitle - attrClear _ = clearMenuTearoffTitle - -type instance AttributeList Menu = MenuAttributeList -type MenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -menuAccelGroup :: AttrLabelProxy "accelGroup" -menuAccelGroup = AttrLabelProxy - -menuAccelPath :: AttrLabelProxy "accelPath" -menuAccelPath = AttrLabelProxy - -menuActive :: AttrLabelProxy "active" -menuActive = AttrLabelProxy - -menuAttachWidget :: AttrLabelProxy "attachWidget" -menuAttachWidget = AttrLabelProxy - -menuMonitor :: AttrLabelProxy "monitor" -menuMonitor = AttrLabelProxy - -menuReserveToggleSize :: AttrLabelProxy "reserveToggleSize" -menuReserveToggleSize = AttrLabelProxy - -menuTearoffState :: AttrLabelProxy "tearoffState" -menuTearoffState = AttrLabelProxy - -menuTearoffTitle :: AttrLabelProxy "tearoffTitle" -menuTearoffTitle = AttrLabelProxy - -data MenuMoveScrollSignalInfo -instance SignalInfo MenuMoveScrollSignalInfo where - type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback - connectSignal _ = connectMenuMoveScroll - -type instance SignalList Menu = MenuSignalList -type MenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Menu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Menu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_new" gtk_menu_new :: - IO (Ptr Menu) - - -menuNew :: - (MonadIO m) => - m Menu -- result -menuNew = liftIO $ do - result <- gtk_menu_new - checkUnexpectedReturnNULL "gtk_menu_new" result - result' <- (newObject Menu) result - return result' - --- method Menu::new_from_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Menu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_new_from_model" gtk_menu_new_from_model :: - Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel" - IO (Ptr Menu) - - -menuNewFromModel :: - (MonadIO m, Gio.MenuModelK a) => - a -- model - -> m Menu -- result -menuNewFromModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_menu_new_from_model model' - checkUnexpectedReturnNULL "gtk_menu_new_from_model" result - result' <- (newObject Menu) result - touchManagedPtr model - return result' - --- method Menu::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", 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 "gtk_menu_attach" gtk_menu_attach :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt - Word32 -> -- right_attach : TBasicType TUInt - Word32 -> -- top_attach : TBasicType TUInt - Word32 -> -- bottom_attach : TBasicType TUInt - IO () - - -menuAttach :: - (MonadIO m, MenuK a, WidgetK b) => - a -- _obj - -> b -- child - -> Word32 -- leftAttach - -> Word32 -- rightAttach - -> Word32 -- topAttach - -> Word32 -- bottomAttach - -> m () -- result -menuAttach _obj child leftAttach rightAttach topAttach bottomAttach = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_attach _obj' child' leftAttach rightAttach topAttach bottomAttach - touchManagedPtr _obj - touchManagedPtr child - return () - -data MenuAttachMethodInfo -instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuAttachMethodInfo a signature where - overloadedMethod _ = menuAttach - --- method Menu::attach_to_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_attach_to_widget" gtk_menu_attach_to_widget :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget" - FunPtr MenuDetachFuncC -> -- detacher : TInterface "Gtk" "MenuDetachFunc" - IO () - - -menuAttachToWidget :: - (MonadIO m, MenuK a, WidgetK b) => - a -- _obj - -> b -- attachWidget - -> Maybe (MenuDetachFunc) -- detacher - -> m () -- result -menuAttachToWidget _obj attachWidget detacher = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let attachWidget' = unsafeManagedPtrCastPtr attachWidget - ptrdetacher <- callocMem :: IO (Ptr (FunPtr MenuDetachFuncC)) - maybeDetacher <- case detacher of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDetacher -> do - jDetacher' <- mkMenuDetachFunc (menuDetachFuncWrapper (Just ptrdetacher) jDetacher) - poke ptrdetacher jDetacher' - return jDetacher' - gtk_menu_attach_to_widget _obj' attachWidget' maybeDetacher - touchManagedPtr _obj - touchManagedPtr attachWidget - return () - -data MenuAttachToWidgetMethodInfo -instance (signature ~ (b -> Maybe (MenuDetachFunc) -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuAttachToWidgetMethodInfo a signature where - overloadedMethod _ = menuAttachToWidget - --- method Menu::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_detach" gtk_menu_detach :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO () - - -menuDetach :: - (MonadIO m, MenuK a) => - a -- _obj - -> m () -- result -menuDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_detach _obj' - touchManagedPtr _obj - return () - -data MenuDetachMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuDetachMethodInfo a signature where - overloadedMethod _ = menuDetach - --- method Menu::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_get_accel_group" gtk_menu_get_accel_group :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO (Ptr AccelGroup) - - -menuGetAccelGroup :: - (MonadIO m, MenuK a) => - a -- _obj - -> m AccelGroup -- result -menuGetAccelGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_accel_group _obj' - checkUnexpectedReturnNULL "gtk_menu_get_accel_group" result - result' <- (newObject AccelGroup) result - touchManagedPtr _obj - return result' - -data MenuGetAccelGroupMethodInfo -instance (signature ~ (m AccelGroup), MonadIO m, MenuK a) => MethodInfo MenuGetAccelGroupMethodInfo a signature where - overloadedMethod _ = menuGetAccelGroup - --- method Menu::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_get_accel_path" gtk_menu_get_accel_path :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO CString - - -menuGetAccelPath :: - (MonadIO m, MenuK a) => - a -- _obj - -> m T.Text -- result -menuGetAccelPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_accel_path _obj' - checkUnexpectedReturnNULL "gtk_menu_get_accel_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuGetAccelPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuK a) => MethodInfo MenuGetAccelPathMethodInfo a signature where - overloadedMethod _ = menuGetAccelPath - --- method Menu::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_get_active" gtk_menu_get_active :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO (Ptr Widget) - - -menuGetActive :: - (MonadIO m, MenuK a) => - a -- _obj - -> m Widget -- result -menuGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_active _obj' - checkUnexpectedReturnNULL "gtk_menu_get_active" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuGetActiveMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuK a) => MethodInfo MenuGetActiveMethodInfo a signature where - overloadedMethod _ = menuGetActive - --- method Menu::get_attach_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_get_attach_widget" gtk_menu_get_attach_widget :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO (Ptr Widget) - - -menuGetAttachWidget :: - (MonadIO m, MenuK a) => - a -- _obj - -> m Widget -- result -menuGetAttachWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_attach_widget _obj' - checkUnexpectedReturnNULL "gtk_menu_get_attach_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuGetAttachWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuK a) => MethodInfo MenuGetAttachWidgetMethodInfo a signature where - overloadedMethod _ = menuGetAttachWidget - --- method Menu::get_monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_get_monitor" gtk_menu_get_monitor :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO Int32 - - -menuGetMonitor :: - (MonadIO m, MenuK a) => - a -- _obj - -> m Int32 -- result -menuGetMonitor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_monitor _obj' - touchManagedPtr _obj - return result - -data MenuGetMonitorMethodInfo -instance (signature ~ (m Int32), MonadIO m, MenuK a) => MethodInfo MenuGetMonitorMethodInfo a signature where - overloadedMethod _ = menuGetMonitor - --- method Menu::get_reserve_toggle_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_get_reserve_toggle_size" gtk_menu_get_reserve_toggle_size :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO CInt - - -menuGetReserveToggleSize :: - (MonadIO m, MenuK a) => - a -- _obj - -> m Bool -- result -menuGetReserveToggleSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_reserve_toggle_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuGetReserveToggleSizeMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuK a) => MethodInfo MenuGetReserveToggleSizeMethodInfo a signature where - overloadedMethod _ = menuGetReserveToggleSize - --- method Menu::get_tearoff_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_get_tearoff_state" gtk_menu_get_tearoff_state :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO CInt - -{-# DEPRECATED menuGetTearoffState ["(Since version 3.10)"]#-} -menuGetTearoffState :: - (MonadIO m, MenuK a) => - a -- _obj - -> m Bool -- result -menuGetTearoffState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_tearoff_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuGetTearoffStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuK a) => MethodInfo MenuGetTearoffStateMethodInfo a signature where - overloadedMethod _ = menuGetTearoffState - --- method Menu::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_get_title" gtk_menu_get_title :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO CString - -{-# DEPRECATED menuGetTitle ["(Since version 3.10)"]#-} -menuGetTitle :: - (MonadIO m, MenuK a) => - a -- _obj - -> m T.Text -- result -menuGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_title _obj' - checkUnexpectedReturnNULL "gtk_menu_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuK a) => MethodInfo MenuGetTitleMethodInfo a signature where - overloadedMethod _ = menuGetTitle - --- method Menu::popdown --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_popdown" gtk_menu_popdown :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO () - - -menuPopdown :: - (MonadIO m, MenuK a) => - a -- _obj - -> m () -- result -menuPopdown _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_popdown _obj' - touchManagedPtr _obj - return () - -data MenuPopdownMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuPopdownMethodInfo a signature where - overloadedMethod _ = menuPopdown - --- method Menu::popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, 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 "gtk_menu_popup" gtk_menu_popup :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" - Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" - FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc" - Ptr () -> -- data : TBasicType TPtr - Word32 -> -- button : TBasicType TUInt - Word32 -> -- activate_time : TBasicType TUInt32 - IO () - - -menuPopup :: - (MonadIO m, MenuK a, WidgetK b, WidgetK c) => - a -- _obj - -> Maybe (b) -- parentMenuShell - -> Maybe (c) -- parentMenuItem - -> Maybe (MenuPositionFunc) -- func - -> Word32 -- button - -> Word32 -- activateTime - -> m () -- result -menuPopup _obj parentMenuShell parentMenuItem func button activateTime = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParentMenuShell <- case parentMenuShell of - Nothing -> return nullPtr - Just jParentMenuShell -> do - let jParentMenuShell' = unsafeManagedPtrCastPtr jParentMenuShell - return jParentMenuShell' - maybeParentMenuItem <- case parentMenuItem of - Nothing -> return nullPtr - Just jParentMenuItem -> do - let jParentMenuItem' = unsafeManagedPtrCastPtr jParentMenuItem - return jParentMenuItem' - ptrfunc <- callocMem :: IO (Ptr (FunPtr MenuPositionFuncC)) - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkMenuPositionFunc (menuPositionFuncWrapper (Just ptrfunc) jFunc) - poke ptrfunc jFunc' - return jFunc' - let data_ = nullPtr - gtk_menu_popup _obj' maybeParentMenuShell maybeParentMenuItem maybeFunc data_ button activateTime - touchManagedPtr _obj - whenJust parentMenuShell touchManagedPtr - whenJust parentMenuItem touchManagedPtr - return () - -data MenuPopupMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, WidgetK b, WidgetK c) => MethodInfo MenuPopupMethodInfo a signature where - overloadedMethod _ = menuPopup - --- method Menu::popup_for_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, 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 "gtk_menu_popup_for_device" gtk_menu_popup_for_device :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" - Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" - FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - Word32 -> -- button : TBasicType TUInt - Word32 -> -- activate_time : TBasicType TUInt32 - IO () - - -menuPopupForDevice :: - (MonadIO m, MenuK a, Gdk.DeviceK b, WidgetK c, WidgetK d) => - a -- _obj - -> Maybe (b) -- device - -> Maybe (c) -- parentMenuShell - -> Maybe (d) -- parentMenuItem - -> Maybe (MenuPositionFunc) -- func - -> Word32 -- button - -> Word32 -- activateTime - -> m () -- result -menuPopupForDevice _obj device parentMenuShell parentMenuItem func button activateTime = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDevice <- case device of - Nothing -> return nullPtr - Just jDevice -> do - let jDevice' = unsafeManagedPtrCastPtr jDevice - return jDevice' - maybeParentMenuShell <- case parentMenuShell of - Nothing -> return nullPtr - Just jParentMenuShell -> do - let jParentMenuShell' = unsafeManagedPtrCastPtr jParentMenuShell - return jParentMenuShell' - maybeParentMenuItem <- case parentMenuItem of - Nothing -> return nullPtr - Just jParentMenuItem -> do - let jParentMenuItem' = unsafeManagedPtrCastPtr jParentMenuItem - return jParentMenuItem' - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkMenuPositionFunc (menuPositionFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_menu_popup_for_device _obj' maybeDevice maybeParentMenuShell maybeParentMenuItem maybeFunc data_ destroy button activateTime - touchManagedPtr _obj - whenJust device touchManagedPtr - whenJust parentMenuShell touchManagedPtr - whenJust parentMenuItem touchManagedPtr - return () - -data MenuPopupForDeviceMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (d) -> Maybe (MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, Gdk.DeviceK b, WidgetK c, WidgetK d) => MethodInfo MenuPopupForDeviceMethodInfo a signature where - overloadedMethod _ = menuPopupForDevice - --- method Menu::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_menu_reorder_child" gtk_menu_reorder_child :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -menuReorderChild :: - (MonadIO m, MenuK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -menuReorderChild _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_reorder_child _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data MenuReorderChildMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuReorderChildMethodInfo a signature where - overloadedMethod _ = menuReorderChild - --- method Menu::reposition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 "gtk_menu_reposition" gtk_menu_reposition :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - IO () - - -menuReposition :: - (MonadIO m, MenuK a) => - a -- _obj - -> m () -- result -menuReposition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_reposition _obj' - touchManagedPtr _obj - return () - -data MenuRepositionMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuRepositionMethodInfo a signature where - overloadedMethod _ = menuReposition - --- method Menu::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_set_accel_group" gtk_menu_set_accel_group :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -menuSetAccelGroup :: - (MonadIO m, MenuK a, AccelGroupK b) => - a -- _obj - -> Maybe (b) -- accelGroup - -> m () -- result -menuSetAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - gtk_menu_set_accel_group _obj' maybeAccelGroup - touchManagedPtr _obj - whenJust accelGroup touchManagedPtr - return () - -data MenuSetAccelGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuK a, AccelGroupK b) => MethodInfo MenuSetAccelGroupMethodInfo a signature where - overloadedMethod _ = menuSetAccelGroup - --- method Menu::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_set_accel_path" gtk_menu_set_accel_path :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -menuSetAccelPath :: - (MonadIO m, MenuK a) => - a -- _obj - -> Maybe (T.Text) -- accelPath - -> m () -- result -menuSetAccelPath _obj accelPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelPath <- case accelPath of - Nothing -> return nullPtr - Just jAccelPath -> do - jAccelPath' <- textToCString jAccelPath - return jAccelPath' - gtk_menu_set_accel_path _obj' maybeAccelPath - touchManagedPtr _obj - freeMem maybeAccelPath - return () - -data MenuSetAccelPathMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetAccelPathMethodInfo a signature where - overloadedMethod _ = menuSetAccelPath - --- method Menu::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", 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 "gtk_menu_set_active" gtk_menu_set_active :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Word32 -> -- index : TBasicType TUInt - IO () - - -menuSetActive :: - (MonadIO m, MenuK a) => - a -- _obj - -> Word32 -- index - -> m () -- result -menuSetActive _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_set_active _obj' index - touchManagedPtr _obj - return () - -data MenuSetActiveMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetActiveMethodInfo a signature where - overloadedMethod _ = menuSetActive - --- method Menu::set_monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", 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 "gtk_menu_set_monitor" gtk_menu_set_monitor :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Int32 -> -- monitor_num : TBasicType TInt - IO () - - -menuSetMonitor :: - (MonadIO m, MenuK a) => - a -- _obj - -> Int32 -- monitorNum - -> m () -- result -menuSetMonitor _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_set_monitor _obj' monitorNum - touchManagedPtr _obj - return () - -data MenuSetMonitorMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetMonitorMethodInfo a signature where - overloadedMethod _ = menuSetMonitor - --- method Menu::set_reserve_toggle_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve_toggle_size", 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 "gtk_menu_set_reserve_toggle_size" gtk_menu_set_reserve_toggle_size :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - CInt -> -- reserve_toggle_size : TBasicType TBoolean - IO () - - -menuSetReserveToggleSize :: - (MonadIO m, MenuK a) => - a -- _obj - -> Bool -- reserveToggleSize - -> m () -- result -menuSetReserveToggleSize _obj reserveToggleSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reserveToggleSize' = (fromIntegral . fromEnum) reserveToggleSize - gtk_menu_set_reserve_toggle_size _obj' reserveToggleSize' - touchManagedPtr _obj - return () - -data MenuSetReserveToggleSizeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetReserveToggleSizeMethodInfo a signature where - overloadedMethod _ = menuSetReserveToggleSize - --- method Menu::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_set_screen" gtk_menu_set_screen :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -menuSetScreen :: - (MonadIO m, MenuK a, Gdk.ScreenK b) => - a -- _obj - -> Maybe (b) -- screen - -> m () -- result -menuSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeScreen <- case screen of - Nothing -> return nullPtr - Just jScreen -> do - let jScreen' = unsafeManagedPtrCastPtr jScreen - return jScreen' - gtk_menu_set_screen _obj' maybeScreen - touchManagedPtr _obj - whenJust screen touchManagedPtr - return () - -data MenuSetScreenMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuK a, Gdk.ScreenK b) => MethodInfo MenuSetScreenMethodInfo a signature where - overloadedMethod _ = menuSetScreen - --- method Menu::set_tearoff_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "torn_off", 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 "gtk_menu_set_tearoff_state" gtk_menu_set_tearoff_state :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - CInt -> -- torn_off : TBasicType TBoolean - IO () - -{-# DEPRECATED menuSetTearoffState ["(Since version 3.10)"]#-} -menuSetTearoffState :: - (MonadIO m, MenuK a) => - a -- _obj - -> Bool -- tornOff - -> m () -- result -menuSetTearoffState _obj tornOff = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tornOff' = (fromIntegral . fromEnum) tornOff - gtk_menu_set_tearoff_state _obj' tornOff' - touchManagedPtr _obj - return () - -data MenuSetTearoffStateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetTearoffStateMethodInfo a signature where - overloadedMethod _ = menuSetTearoffState - --- method Menu::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_menu_set_title" gtk_menu_set_title :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - CString -> -- title : TBasicType TUTF8 - IO () - -{-# DEPRECATED menuSetTitle ["(Since version 3.10)"]#-} -menuSetTitle :: - (MonadIO m, MenuK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -menuSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_menu_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data MenuSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetTitleMethodInfo a signature where - overloadedMethod _ = menuSetTitle - --- method Menu::get_for_attach_widget --- method type : MemberFunction --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_get_for_attach_widget" gtk_menu_get_for_attach_widget :: - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Widget))) - - -menuGetForAttachWidget :: - (MonadIO m, WidgetK a) => - a -- widget - -> m [Widget] -- result -menuGetForAttachWidget widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_menu_get_for_attach_widget widget' - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - touchManagedPtr widget - return result'' - - diff --git a/GI/Gtk/Objects/Menu.hs-boot b/GI/Gtk/Objects/Menu.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Menu.hs-boot +++ /dev/null @@ -1,46 +0,0 @@ -module GI.Gtk.Objects.Menu 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 Menu = Menu (ForeignPtr Menu) -instance GObject Menu where -class GObject o => MenuK o -instance (GObject o, IsDescendantOf Menu o) => MenuK o -data MenuAccelGroupPropertyInfo -data MenuAccelPathPropertyInfo -data MenuActivePropertyInfo -data MenuAttachWidgetPropertyInfo -data MenuMonitorPropertyInfo -data MenuReserveToggleSizePropertyInfo -data MenuTearoffStatePropertyInfo -data MenuTearoffTitlePropertyInfo -data MenuMoveScrollSignalInfo -data MenuAttachMethodInfo -data MenuAttachToWidgetMethodInfo -data MenuDetachMethodInfo -data MenuGetAccelGroupMethodInfo -data MenuGetAccelPathMethodInfo -data MenuGetActiveMethodInfo -data MenuGetAttachWidgetMethodInfo -data MenuGetMonitorMethodInfo -data MenuGetReserveToggleSizeMethodInfo -data MenuGetTearoffStateMethodInfo -data MenuGetTitleMethodInfo -data MenuPopdownMethodInfo -data MenuPopupMethodInfo -data MenuPopupForDeviceMethodInfo -data MenuReorderChildMethodInfo -data MenuRepositionMethodInfo -data MenuSetAccelGroupMethodInfo -data MenuSetAccelPathMethodInfo -data MenuSetActiveMethodInfo -data MenuSetMonitorMethodInfo -data MenuSetReserveToggleSizeMethodInfo -data MenuSetScreenMethodInfo -data MenuSetTearoffStateMethodInfo -data MenuSetTitleMethodInfo diff --git a/GI/Gtk/Objects/MenuAccessible.hs b/GI/Gtk/Objects/MenuAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.MenuAccessible - ( - --- * Exported types - MenuAccessible(..) , - MenuAccessibleK , - toMenuAccessible , - noMenuAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuAccessible = MenuAccessible (ForeignPtr MenuAccessible) -foreign import ccall "gtk_menu_accessible_get_type" - c_gtk_menu_accessible_get_type :: IO GType - -type instance ParentTypes MenuAccessible = MenuAccessibleParentTypes -type MenuAccessibleParentTypes = '[MenuShellAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject MenuAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_menu_accessible_get_type - - -class GObject o => MenuAccessibleK o -instance (GObject o, IsDescendantOf MenuAccessible o) => MenuAccessibleK o - -toMenuAccessible :: MenuAccessibleK o => o -> IO MenuAccessible -toMenuAccessible = unsafeCastTo MenuAccessible - -noMenuAccessible :: Maybe MenuAccessible -noMenuAccessible = Nothing - -type family ResolveMenuAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveMenuAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveMenuAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveMenuAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveMenuAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveMenuAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveMenuAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveMenuAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveMenuAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveMenuAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveMenuAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveMenuAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveMenuAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveMenuAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveMenuAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveMenuAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveMenuAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveMenuAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveMenuAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveMenuAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveMenuAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveMenuAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveMenuAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveMenuAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveMenuAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveMenuAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveMenuAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveMenuAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveMenuAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveMenuAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveMenuAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveMenuAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveMenuAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveMenuAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveMenuAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveMenuAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveMenuAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveMenuAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveMenuAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveMenuAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveMenuAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveMenuAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveMenuAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuAccessibleMethod t MenuAccessible, MethodInfo info MenuAccessible p) => IsLabelProxy t (MenuAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuAccessibleMethod t MenuAccessible, MethodInfo info MenuAccessible p) => IsLabel t (MenuAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuAccessible = MenuAccessibleAttributeList -type MenuAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuAccessible = MenuAccessibleSignalList -type MenuAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/MenuAccessible.hs-boot b/GI/Gtk/Objects/MenuAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.MenuAccessible 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 MenuAccessible = MenuAccessible (ForeignPtr MenuAccessible) -instance GObject MenuAccessible where -class GObject o => MenuAccessibleK o -instance (GObject o, IsDescendantOf MenuAccessible o) => MenuAccessibleK o diff --git a/GI/Gtk/Objects/MenuBar.hs b/GI/Gtk/Objects/MenuBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuBar.hs +++ /dev/null @@ -1,671 +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.Gtk.Objects.MenuBar - ( - --- * Exported types - MenuBar(..) , - MenuBarK , - toMenuBar , - noMenuBar , - - - -- * Methods --- ** menuBarGetChildPackDirection - MenuBarGetChildPackDirectionMethodInfo , - menuBarGetChildPackDirection , - - --- ** menuBarGetPackDirection - MenuBarGetPackDirectionMethodInfo , - menuBarGetPackDirection , - - --- ** menuBarNew - menuBarNew , - - --- ** menuBarNewFromModel - menuBarNewFromModel , - - --- ** menuBarSetChildPackDirection - MenuBarSetChildPackDirectionMethodInfo , - menuBarSetChildPackDirection , - - --- ** menuBarSetPackDirection - MenuBarSetPackDirectionMethodInfo , - menuBarSetPackDirection , - - - - - -- * Properties --- ** ChildPackDirection - MenuBarChildPackDirectionPropertyInfo , - constructMenuBarChildPackDirection , - getMenuBarChildPackDirection , - menuBarChildPackDirection , - setMenuBarChildPackDirection , - - --- ** PackDirection - MenuBarPackDirectionPropertyInfo , - constructMenuBarPackDirection , - getMenuBarPackDirection , - menuBarPackDirection , - setMenuBarPackDirection , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype MenuBar = MenuBar (ForeignPtr MenuBar) -foreign import ccall "gtk_menu_bar_get_type" - c_gtk_menu_bar_get_type :: IO GType - -type instance ParentTypes MenuBar = MenuBarParentTypes -type MenuBarParentTypes = '[MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject MenuBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_bar_get_type - - -class GObject o => MenuBarK o -instance (GObject o, IsDescendantOf MenuBar o) => MenuBarK o - -toMenuBar :: MenuBarK o => o -> IO MenuBar -toMenuBar = unsafeCastTo MenuBar - -noMenuBar :: Maybe MenuBar -noMenuBar = Nothing - -type family ResolveMenuBarMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuBarMethod "activate" o = WidgetActivateMethodInfo - ResolveMenuBarMethod "activateItem" o = MenuShellActivateItemMethodInfo - ResolveMenuBarMethod "add" o = ContainerAddMethodInfo - ResolveMenuBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuBarMethod "append" o = MenuShellAppendMethodInfo - ResolveMenuBarMethod "bindModel" o = MenuShellBindModelMethodInfo - ResolveMenuBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuBarMethod "cancel" o = MenuShellCancelMethodInfo - ResolveMenuBarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuBarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuBarMethod "deactivate" o = MenuShellDeactivateMethodInfo - ResolveMenuBarMethod "deselect" o = MenuShellDeselectMethodInfo - ResolveMenuBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuBarMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuBarMethod "event" o = WidgetEventMethodInfo - ResolveMenuBarMethod "forall" o = ContainerForallMethodInfo - ResolveMenuBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuBarMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuBarMethod "hide" o = WidgetHideMethodInfo - ResolveMenuBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuBarMethod "insert" o = MenuShellInsertMethodInfo - ResolveMenuBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuBarMethod "map" o = WidgetMapMethodInfo - ResolveMenuBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuBarMethod "path" o = WidgetPathMethodInfo - ResolveMenuBarMethod "prepend" o = MenuShellPrependMethodInfo - ResolveMenuBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuBarMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuBarMethod "selectFirst" o = MenuShellSelectFirstMethodInfo - ResolveMenuBarMethod "selectItem" o = MenuShellSelectItemMethodInfo - ResolveMenuBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuBarMethod "show" o = WidgetShowMethodInfo - ResolveMenuBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuBarMethod "getChildPackDirection" o = MenuBarGetChildPackDirectionMethodInfo - ResolveMenuBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuBarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMenuBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuBarMethod "getPackDirection" o = MenuBarGetPackDirectionMethodInfo - ResolveMenuBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuBarMethod "getParentShell" o = MenuShellGetParentShellMethodInfo - ResolveMenuBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuBarMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo - ResolveMenuBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuBarMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo - ResolveMenuBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMenuBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuBarMethod "setChildPackDirection" o = MenuBarSetChildPackDirectionMethodInfo - ResolveMenuBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMenuBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuBarMethod "setPackDirection" o = MenuBarSetPackDirectionMethodInfo - ResolveMenuBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuBarMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo - ResolveMenuBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMenuBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMenuBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuBarMethod t MenuBar, MethodInfo info MenuBar p) => IsLabelProxy t (MenuBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuBarMethod t MenuBar, MethodInfo info MenuBar p) => IsLabel t (MenuBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "child-pack-direction" - -- Type: TInterface "Gtk" "PackDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuBarChildPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection -getMenuBarChildPackDirection obj = liftIO $ getObjectPropertyEnum obj "child-pack-direction" - -setMenuBarChildPackDirection :: (MonadIO m, MenuBarK o) => o -> PackDirection -> m () -setMenuBarChildPackDirection obj val = liftIO $ setObjectPropertyEnum obj "child-pack-direction" val - -constructMenuBarChildPackDirection :: PackDirection -> IO ([Char], GValue) -constructMenuBarChildPackDirection val = constructObjectPropertyEnum "child-pack-direction" val - -data MenuBarChildPackDirectionPropertyInfo -instance AttrInfo MenuBarChildPackDirectionPropertyInfo where - type AttrAllowedOps MenuBarChildPackDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuBarChildPackDirectionPropertyInfo = (~) PackDirection - type AttrBaseTypeConstraint MenuBarChildPackDirectionPropertyInfo = MenuBarK - type AttrGetType MenuBarChildPackDirectionPropertyInfo = PackDirection - type AttrLabel MenuBarChildPackDirectionPropertyInfo = "child-pack-direction" - attrGet _ = getMenuBarChildPackDirection - attrSet _ = setMenuBarChildPackDirection - attrConstruct _ = constructMenuBarChildPackDirection - attrClear _ = undefined - --- VVV Prop "pack-direction" - -- Type: TInterface "Gtk" "PackDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuBarPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection -getMenuBarPackDirection obj = liftIO $ getObjectPropertyEnum obj "pack-direction" - -setMenuBarPackDirection :: (MonadIO m, MenuBarK o) => o -> PackDirection -> m () -setMenuBarPackDirection obj val = liftIO $ setObjectPropertyEnum obj "pack-direction" val - -constructMenuBarPackDirection :: PackDirection -> IO ([Char], GValue) -constructMenuBarPackDirection val = constructObjectPropertyEnum "pack-direction" val - -data MenuBarPackDirectionPropertyInfo -instance AttrInfo MenuBarPackDirectionPropertyInfo where - type AttrAllowedOps MenuBarPackDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuBarPackDirectionPropertyInfo = (~) PackDirection - type AttrBaseTypeConstraint MenuBarPackDirectionPropertyInfo = MenuBarK - type AttrGetType MenuBarPackDirectionPropertyInfo = PackDirection - type AttrLabel MenuBarPackDirectionPropertyInfo = "pack-direction" - attrGet _ = getMenuBarPackDirection - attrSet _ = setMenuBarPackDirection - attrConstruct _ = constructMenuBarPackDirection - attrClear _ = undefined - -type instance AttributeList MenuBar = MenuBarAttributeList -type MenuBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childPackDirection", MenuBarChildPackDirectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("packDirection", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -menuBarChildPackDirection :: AttrLabelProxy "childPackDirection" -menuBarChildPackDirection = AttrLabelProxy - -menuBarPackDirection :: AttrLabelProxy "packDirection" -menuBarPackDirection = AttrLabelProxy - -type instance SignalList MenuBar = MenuBarSignalList -type MenuBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MenuBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_bar_new" gtk_menu_bar_new :: - IO (Ptr MenuBar) - - -menuBarNew :: - (MonadIO m) => - m MenuBar -- result -menuBarNew = liftIO $ do - result <- gtk_menu_bar_new - checkUnexpectedReturnNULL "gtk_menu_bar_new" result - result' <- (newObject MenuBar) result - return result' - --- method MenuBar::new_from_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_bar_new_from_model" gtk_menu_bar_new_from_model :: - Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel" - IO (Ptr MenuBar) - - -menuBarNewFromModel :: - (MonadIO m, Gio.MenuModelK a) => - a -- model - -> m MenuBar -- result -menuBarNewFromModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_menu_bar_new_from_model model' - checkUnexpectedReturnNULL "gtk_menu_bar_new_from_model" result - result' <- (newObject MenuBar) result - touchManagedPtr model - return result' - --- method MenuBar::get_child_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PackDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_bar_get_child_pack_direction" gtk_menu_bar_get_child_pack_direction :: - Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar" - IO CUInt - - -menuBarGetChildPackDirection :: - (MonadIO m, MenuBarK a) => - a -- _obj - -> m PackDirection -- result -menuBarGetChildPackDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_bar_get_child_pack_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MenuBarGetChildPackDirectionMethodInfo -instance (signature ~ (m PackDirection), MonadIO m, MenuBarK a) => MethodInfo MenuBarGetChildPackDirectionMethodInfo a signature where - overloadedMethod _ = menuBarGetChildPackDirection - --- method MenuBar::get_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PackDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_bar_get_pack_direction" gtk_menu_bar_get_pack_direction :: - Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar" - IO CUInt - - -menuBarGetPackDirection :: - (MonadIO m, MenuBarK a) => - a -- _obj - -> m PackDirection -- result -menuBarGetPackDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_bar_get_pack_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MenuBarGetPackDirectionMethodInfo -instance (signature ~ (m PackDirection), MonadIO m, MenuBarK a) => MethodInfo MenuBarGetPackDirectionMethodInfo a signature where - overloadedMethod _ = menuBarGetPackDirection - --- method MenuBar::set_child_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", 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 "gtk_menu_bar_set_child_pack_direction" gtk_menu_bar_set_child_pack_direction :: - Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar" - CUInt -> -- child_pack_dir : TInterface "Gtk" "PackDirection" - IO () - - -menuBarSetChildPackDirection :: - (MonadIO m, MenuBarK a) => - a -- _obj - -> PackDirection -- childPackDir - -> m () -- result -menuBarSetChildPackDirection _obj childPackDir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let childPackDir' = (fromIntegral . fromEnum) childPackDir - gtk_menu_bar_set_child_pack_direction _obj' childPackDir' - touchManagedPtr _obj - return () - -data MenuBarSetChildPackDirectionMethodInfo -instance (signature ~ (PackDirection -> m ()), MonadIO m, MenuBarK a) => MethodInfo MenuBarSetChildPackDirectionMethodInfo a signature where - overloadedMethod _ = menuBarSetChildPackDirection - --- method MenuBar::set_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_dir", argType = TInterface "Gtk" "PackDirection", 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 "gtk_menu_bar_set_pack_direction" gtk_menu_bar_set_pack_direction :: - Ptr MenuBar -> -- _obj : TInterface "Gtk" "MenuBar" - CUInt -> -- pack_dir : TInterface "Gtk" "PackDirection" - IO () - - -menuBarSetPackDirection :: - (MonadIO m, MenuBarK a) => - a -- _obj - -> PackDirection -- packDir - -> m () -- result -menuBarSetPackDirection _obj packDir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let packDir' = (fromIntegral . fromEnum) packDir - gtk_menu_bar_set_pack_direction _obj' packDir' - touchManagedPtr _obj - return () - -data MenuBarSetPackDirectionMethodInfo -instance (signature ~ (PackDirection -> m ()), MonadIO m, MenuBarK a) => MethodInfo MenuBarSetPackDirectionMethodInfo a signature where - overloadedMethod _ = menuBarSetPackDirection - - diff --git a/GI/Gtk/Objects/MenuBar.hs-boot b/GI/Gtk/Objects/MenuBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuBar.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.MenuBar 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 MenuBar = MenuBar (ForeignPtr MenuBar) -instance GObject MenuBar where -class GObject o => MenuBarK o -instance (GObject o, IsDescendantOf MenuBar o) => MenuBarK o -data MenuBarChildPackDirectionPropertyInfo -data MenuBarPackDirectionPropertyInfo -data MenuBarGetChildPackDirectionMethodInfo -data MenuBarGetPackDirectionMethodInfo -data MenuBarSetChildPackDirectionMethodInfo -data MenuBarSetPackDirectionMethodInfo diff --git a/GI/Gtk/Objects/MenuButton.hs b/GI/Gtk/Objects/MenuButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuButton.hs +++ /dev/null @@ -1,1135 +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.Gtk.Objects.MenuButton - ( - --- * Exported types - MenuButton(..) , - MenuButtonK , - toMenuButton , - noMenuButton , - - - -- * Methods --- ** menuButtonGetAlignWidget - MenuButtonGetAlignWidgetMethodInfo , - menuButtonGetAlignWidget , - - --- ** menuButtonGetDirection - MenuButtonGetDirectionMethodInfo , - menuButtonGetDirection , - - --- ** menuButtonGetMenuModel - MenuButtonGetMenuModelMethodInfo , - menuButtonGetMenuModel , - - --- ** menuButtonGetPopover - MenuButtonGetPopoverMethodInfo , - menuButtonGetPopover , - - --- ** menuButtonGetPopup - MenuButtonGetPopupMethodInfo , - menuButtonGetPopup , - - --- ** menuButtonGetUsePopover - MenuButtonGetUsePopoverMethodInfo , - menuButtonGetUsePopover , - - --- ** menuButtonNew - menuButtonNew , - - --- ** menuButtonSetAlignWidget - MenuButtonSetAlignWidgetMethodInfo , - menuButtonSetAlignWidget , - - --- ** menuButtonSetDirection - MenuButtonSetDirectionMethodInfo , - menuButtonSetDirection , - - --- ** menuButtonSetMenuModel - MenuButtonSetMenuModelMethodInfo , - menuButtonSetMenuModel , - - --- ** menuButtonSetPopover - MenuButtonSetPopoverMethodInfo , - menuButtonSetPopover , - - --- ** menuButtonSetPopup - MenuButtonSetPopupMethodInfo , - menuButtonSetPopup , - - --- ** menuButtonSetUsePopover - MenuButtonSetUsePopoverMethodInfo , - menuButtonSetUsePopover , - - - - - -- * Properties --- ** AlignWidget - MenuButtonAlignWidgetPropertyInfo , - clearMenuButtonAlignWidget , - constructMenuButtonAlignWidget , - getMenuButtonAlignWidget , - menuButtonAlignWidget , - setMenuButtonAlignWidget , - - --- ** Direction - MenuButtonDirectionPropertyInfo , - constructMenuButtonDirection , - getMenuButtonDirection , - menuButtonDirection , - setMenuButtonDirection , - - --- ** MenuModel - MenuButtonMenuModelPropertyInfo , - clearMenuButtonMenuModel , - constructMenuButtonMenuModel , - getMenuButtonMenuModel , - menuButtonMenuModel , - setMenuButtonMenuModel , - - --- ** Popover - MenuButtonPopoverPropertyInfo , - clearMenuButtonPopover , - constructMenuButtonPopover , - getMenuButtonPopover , - menuButtonPopover , - setMenuButtonPopover , - - --- ** Popup - MenuButtonPopupPropertyInfo , - clearMenuButtonPopup , - constructMenuButtonPopup , - getMenuButtonPopup , - menuButtonPopup , - setMenuButtonPopup , - - --- ** UsePopover - MenuButtonUsePopoverPropertyInfo , - constructMenuButtonUsePopover , - getMenuButtonUsePopover , - menuButtonUsePopover , - setMenuButtonUsePopover , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype MenuButton = MenuButton (ForeignPtr MenuButton) -foreign import ccall "gtk_menu_button_get_type" - c_gtk_menu_button_get_type :: IO GType - -type instance ParentTypes MenuButton = MenuButtonParentTypes -type MenuButtonParentTypes = '[ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject MenuButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_button_get_type - - -class GObject o => MenuButtonK o -instance (GObject o, IsDescendantOf MenuButton o) => MenuButtonK o - -toMenuButton :: MenuButtonK o => o -> IO MenuButton -toMenuButton = unsafeCastTo MenuButton - -noMenuButton :: Maybe MenuButton -noMenuButton = Nothing - -type family ResolveMenuButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveMenuButtonMethod "add" o = ContainerAddMethodInfo - ResolveMenuButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveMenuButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveMenuButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveMenuButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuButtonMethod "event" o = WidgetEventMethodInfo - ResolveMenuButtonMethod "forall" o = ContainerForallMethodInfo - ResolveMenuButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuButtonMethod "hide" o = WidgetHideMethodInfo - ResolveMenuButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveMenuButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuButtonMethod "map" o = WidgetMapMethodInfo - ResolveMenuButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuButtonMethod "path" o = WidgetPathMethodInfo - ResolveMenuButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveMenuButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveMenuButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuButtonMethod "show" o = WidgetShowMethodInfo - ResolveMenuButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveMenuButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuButtonMethod "toggled" o = ToggleButtonToggledMethodInfo - ResolveMenuButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveMenuButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveMenuButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo - ResolveMenuButtonMethod "getAlignWidget" o = MenuButtonGetAlignWidgetMethodInfo - ResolveMenuButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveMenuButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveMenuButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveMenuButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveMenuButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveMenuButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveMenuButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveMenuButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo - ResolveMenuButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveMenuButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuButtonMethod "getMenuModel" o = MenuButtonGetMenuModelMethodInfo - ResolveMenuButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo - ResolveMenuButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuButtonMethod "getPopover" o = MenuButtonGetPopoverMethodInfo - ResolveMenuButtonMethod "getPopup" o = MenuButtonGetPopupMethodInfo - ResolveMenuButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveMenuButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveMenuButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveMenuButtonMethod "getUsePopover" o = MenuButtonGetUsePopoverMethodInfo - ResolveMenuButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveMenuButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveMenuButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMenuButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveMenuButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveMenuButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo - ResolveMenuButtonMethod "setAlignWidget" o = MenuButtonSetAlignWidgetMethodInfo - ResolveMenuButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveMenuButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveMenuButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveMenuButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveMenuButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveMenuButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveMenuButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo - ResolveMenuButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveMenuButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuButtonMethod "setMenuModel" o = MenuButtonSetMenuModelMethodInfo - ResolveMenuButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo - ResolveMenuButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuButtonMethod "setPopover" o = MenuButtonSetPopoverMethodInfo - ResolveMenuButtonMethod "setPopup" o = MenuButtonSetPopupMethodInfo - ResolveMenuButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveMenuButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveMenuButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMenuButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMenuButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveMenuButtonMethod "setUsePopover" o = MenuButtonSetUsePopoverMethodInfo - ResolveMenuButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveMenuButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveMenuButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuButtonMethod t MenuButton, MethodInfo info MenuButton p) => IsLabelProxy t (MenuButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuButtonMethod t MenuButton, MethodInfo info MenuButton p) => IsLabel t (MenuButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align-widget" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m (Maybe Container) -getMenuButtonAlignWidget obj = liftIO $ getObjectPropertyObject obj "align-widget" Container - -setMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o, ContainerK a) => o -> a -> m () -setMenuButtonAlignWidget obj val = liftIO $ setObjectPropertyObject obj "align-widget" (Just val) - -constructMenuButtonAlignWidget :: (ContainerK a) => a -> IO ([Char], GValue) -constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" (Just val) - -clearMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m () -clearMenuButtonAlignWidget obj = liftIO $ setObjectPropertyObject obj "align-widget" (Nothing :: Maybe Container) - -data MenuButtonAlignWidgetPropertyInfo -instance AttrInfo MenuButtonAlignWidgetPropertyInfo where - type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK - type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK - type AttrGetType MenuButtonAlignWidgetPropertyInfo = (Maybe Container) - type AttrLabel MenuButtonAlignWidgetPropertyInfo = "align-widget" - attrGet _ = getMenuButtonAlignWidget - attrSet _ = setMenuButtonAlignWidget - attrConstruct _ = constructMenuButtonAlignWidget - attrClear _ = clearMenuButtonAlignWidget - --- VVV Prop "direction" - -- Type: TInterface "Gtk" "ArrowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuButtonDirection :: (MonadIO m, MenuButtonK o) => o -> m ArrowType -getMenuButtonDirection obj = liftIO $ getObjectPropertyEnum obj "direction" - -setMenuButtonDirection :: (MonadIO m, MenuButtonK o) => o -> ArrowType -> m () -setMenuButtonDirection obj val = liftIO $ setObjectPropertyEnum obj "direction" val - -constructMenuButtonDirection :: ArrowType -> IO ([Char], GValue) -constructMenuButtonDirection val = constructObjectPropertyEnum "direction" val - -data MenuButtonDirectionPropertyInfo -instance AttrInfo MenuButtonDirectionPropertyInfo where - type AttrAllowedOps MenuButtonDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonDirectionPropertyInfo = (~) ArrowType - type AttrBaseTypeConstraint MenuButtonDirectionPropertyInfo = MenuButtonK - type AttrGetType MenuButtonDirectionPropertyInfo = ArrowType - type AttrLabel MenuButtonDirectionPropertyInfo = "direction" - attrGet _ = getMenuButtonDirection - attrSet _ = setMenuButtonDirection - attrConstruct _ = constructMenuButtonDirection - attrClear _ = undefined - --- VVV Prop "menu-model" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m Gio.MenuModel -getMenuButtonMenuModel obj = liftIO $ checkUnexpectedNothing "getMenuButtonMenuModel" $ getObjectPropertyObject obj "menu-model" Gio.MenuModel - -setMenuButtonMenuModel :: (MonadIO m, MenuButtonK o, Gio.MenuModelK a) => o -> a -> m () -setMenuButtonMenuModel obj val = liftIO $ setObjectPropertyObject obj "menu-model" (Just val) - -constructMenuButtonMenuModel :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" (Just val) - -clearMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m () -clearMenuButtonMenuModel obj = liftIO $ setObjectPropertyObject obj "menu-model" (Nothing :: Maybe Gio.MenuModel) - -data MenuButtonMenuModelPropertyInfo -instance AttrInfo MenuButtonMenuModelPropertyInfo where - type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK - type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel - type AttrLabel MenuButtonMenuModelPropertyInfo = "menu-model" - attrGet _ = getMenuButtonMenuModel - attrSet _ = setMenuButtonMenuModel - attrConstruct _ = constructMenuButtonMenuModel - attrClear _ = clearMenuButtonMenuModel - --- VVV Prop "popover" - -- Type: TInterface "Gtk" "Popover" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m Popover -getMenuButtonPopover obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopover" $ getObjectPropertyObject obj "popover" Popover - -setMenuButtonPopover :: (MonadIO m, MenuButtonK o, PopoverK a) => o -> a -> m () -setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" (Just val) - -constructMenuButtonPopover :: (PopoverK a) => a -> IO ([Char], GValue) -constructMenuButtonPopover val = constructObjectPropertyObject "popover" (Just val) - -clearMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m () -clearMenuButtonPopover obj = liftIO $ setObjectPropertyObject obj "popover" (Nothing :: Maybe Popover) - -data MenuButtonPopoverPropertyInfo -instance AttrInfo MenuButtonPopoverPropertyInfo where - type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK - type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK - type AttrGetType MenuButtonPopoverPropertyInfo = Popover - type AttrLabel MenuButtonPopoverPropertyInfo = "popover" - attrGet _ = getMenuButtonPopover - attrSet _ = setMenuButtonPopover - attrConstruct _ = constructMenuButtonPopover - attrClear _ = clearMenuButtonPopover - --- VVV Prop "popup" - -- Type: TInterface "Gtk" "Menu" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m Menu -getMenuButtonPopup obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopup" $ getObjectPropertyObject obj "popup" Menu - -setMenuButtonPopup :: (MonadIO m, MenuButtonK o, MenuK a) => o -> a -> m () -setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" (Just val) - -constructMenuButtonPopup :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuButtonPopup val = constructObjectPropertyObject "popup" (Just val) - -clearMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m () -clearMenuButtonPopup obj = liftIO $ setObjectPropertyObject obj "popup" (Nothing :: Maybe Menu) - -data MenuButtonPopupPropertyInfo -instance AttrInfo MenuButtonPopupPropertyInfo where - type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK - type AttrGetType MenuButtonPopupPropertyInfo = Menu - type AttrLabel MenuButtonPopupPropertyInfo = "popup" - attrGet _ = getMenuButtonPopup - attrSet _ = setMenuButtonPopup - attrConstruct _ = constructMenuButtonPopup - attrClear _ = clearMenuButtonPopup - --- VVV Prop "use-popover" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuButtonUsePopover :: (MonadIO m, MenuButtonK o) => o -> m Bool -getMenuButtonUsePopover obj = liftIO $ getObjectPropertyBool obj "use-popover" - -setMenuButtonUsePopover :: (MonadIO m, MenuButtonK o) => o -> Bool -> m () -setMenuButtonUsePopover obj val = liftIO $ setObjectPropertyBool obj "use-popover" val - -constructMenuButtonUsePopover :: Bool -> IO ([Char], GValue) -constructMenuButtonUsePopover val = constructObjectPropertyBool "use-popover" val - -data MenuButtonUsePopoverPropertyInfo -instance AttrInfo MenuButtonUsePopoverPropertyInfo where - type AttrAllowedOps MenuButtonUsePopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonUsePopoverPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuButtonUsePopoverPropertyInfo = MenuButtonK - type AttrGetType MenuButtonUsePopoverPropertyInfo = Bool - type AttrLabel MenuButtonUsePopoverPropertyInfo = "use-popover" - attrGet _ = getMenuButtonUsePopover - attrSet _ = setMenuButtonUsePopover - attrConstruct _ = constructMenuButtonUsePopover - attrClear _ = undefined - -type instance AttributeList MenuButton = MenuButtonAttributeList -type MenuButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alignWidget", MenuButtonAlignWidgetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuModel", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("usePopover", MenuButtonUsePopoverPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -menuButtonAlignWidget :: AttrLabelProxy "alignWidget" -menuButtonAlignWidget = AttrLabelProxy - -menuButtonDirection :: AttrLabelProxy "direction" -menuButtonDirection = AttrLabelProxy - -menuButtonMenuModel :: AttrLabelProxy "menuModel" -menuButtonMenuModel = AttrLabelProxy - -menuButtonPopover :: AttrLabelProxy "popover" -menuButtonPopover = AttrLabelProxy - -menuButtonPopup :: AttrLabelProxy "popup" -menuButtonPopup = AttrLabelProxy - -menuButtonUsePopover :: AttrLabelProxy "usePopover" -menuButtonUsePopover = AttrLabelProxy - -type instance SignalList MenuButton = MenuButtonSignalList -type MenuButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MenuButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_new" gtk_menu_button_new :: - IO (Ptr MenuButton) - - -menuButtonNew :: - (MonadIO m) => - m MenuButton -- result -menuButtonNew = liftIO $ do - result <- gtk_menu_button_new - checkUnexpectedReturnNULL "gtk_menu_button_new" result - result' <- (newObject MenuButton) result - return result' - --- method MenuButton::get_align_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_get_align_widget" gtk_menu_button_get_align_widget :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO (Ptr Widget) - - -menuButtonGetAlignWidget :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m Widget -- result -menuButtonGetAlignWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_align_widget _obj' - checkUnexpectedReturnNULL "gtk_menu_button_get_align_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuButtonGetAlignWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetAlignWidgetMethodInfo a signature where - overloadedMethod _ = menuButtonGetAlignWidget - --- method MenuButton::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ArrowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_get_direction" gtk_menu_button_get_direction :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO CUInt - - -menuButtonGetDirection :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m ArrowType -- result -menuButtonGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MenuButtonGetDirectionMethodInfo -instance (signature ~ (m ArrowType), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetDirectionMethodInfo a signature where - overloadedMethod _ = menuButtonGetDirection - --- method MenuButton::get_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_get_menu_model" gtk_menu_button_get_menu_model :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO (Ptr Gio.MenuModel) - - -menuButtonGetMenuModel :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m Gio.MenuModel -- result -menuButtonGetMenuModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_menu_model _obj' - checkUnexpectedReturnNULL "gtk_menu_button_get_menu_model" result - result' <- (newObject Gio.MenuModel) result - touchManagedPtr _obj - return result' - -data MenuButtonGetMenuModelMethodInfo -instance (signature ~ (m Gio.MenuModel), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetMenuModelMethodInfo a signature where - overloadedMethod _ = menuButtonGetMenuModel - --- method MenuButton::get_popover --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Popover") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_get_popover" gtk_menu_button_get_popover :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO (Ptr Popover) - - -menuButtonGetPopover :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m Popover -- result -menuButtonGetPopover _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_popover _obj' - checkUnexpectedReturnNULL "gtk_menu_button_get_popover" result - result' <- (newObject Popover) result - touchManagedPtr _obj - return result' - -data MenuButtonGetPopoverMethodInfo -instance (signature ~ (m Popover), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetPopoverMethodInfo a signature where - overloadedMethod _ = menuButtonGetPopover - --- method MenuButton::get_popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Menu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_get_popup" gtk_menu_button_get_popup :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO (Ptr Menu) - - -menuButtonGetPopup :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m Menu -- result -menuButtonGetPopup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_popup _obj' - checkUnexpectedReturnNULL "gtk_menu_button_get_popup" result - result' <- (newObject Menu) result - touchManagedPtr _obj - return result' - -data MenuButtonGetPopupMethodInfo -instance (signature ~ (m Menu), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetPopupMethodInfo a signature where - overloadedMethod _ = menuButtonGetPopup - --- method MenuButton::get_use_popover --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", 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 "gtk_menu_button_get_use_popover" gtk_menu_button_get_use_popover :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - IO CInt - - -menuButtonGetUsePopover :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> m Bool -- result -menuButtonGetUsePopover _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_use_popover _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuButtonGetUsePopoverMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetUsePopoverMethodInfo a signature where - overloadedMethod _ = menuButtonGetUsePopover - --- method MenuButton::set_align_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_set_align_widget" gtk_menu_button_set_align_widget :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - Ptr Widget -> -- align_widget : TInterface "Gtk" "Widget" - IO () - - -menuButtonSetAlignWidget :: - (MonadIO m, MenuButtonK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- alignWidget - -> m () -- result -menuButtonSetAlignWidget _obj alignWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAlignWidget <- case alignWidget of - Nothing -> return nullPtr - Just jAlignWidget -> do - let jAlignWidget' = unsafeManagedPtrCastPtr jAlignWidget - return jAlignWidget' - gtk_menu_button_set_align_widget _obj' maybeAlignWidget - touchManagedPtr _obj - whenJust alignWidget touchManagedPtr - return () - -data MenuButtonSetAlignWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetAlignWidgetMethodInfo a signature where - overloadedMethod _ = menuButtonSetAlignWidget - --- method MenuButton::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "ArrowType", 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 "gtk_menu_button_set_direction" gtk_menu_button_set_direction :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - CUInt -> -- direction : TInterface "Gtk" "ArrowType" - IO () - - -menuButtonSetDirection :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> ArrowType -- direction - -> m () -- result -menuButtonSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_menu_button_set_direction _obj' direction' - touchManagedPtr _obj - return () - -data MenuButtonSetDirectionMethodInfo -instance (signature ~ (ArrowType -> m ()), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonSetDirectionMethodInfo a signature where - overloadedMethod _ = menuButtonSetDirection - --- method MenuButton::set_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_set_menu_model" gtk_menu_button_set_menu_model :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - Ptr Gio.MenuModel -> -- menu_model : TInterface "Gio" "MenuModel" - IO () - - -menuButtonSetMenuModel :: - (MonadIO m, MenuButtonK a, Gio.MenuModelK b) => - a -- _obj - -> Maybe (b) -- menuModel - -> m () -- result -menuButtonSetMenuModel _obj menuModel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMenuModel <- case menuModel of - Nothing -> return nullPtr - Just jMenuModel -> do - let jMenuModel' = unsafeManagedPtrCastPtr jMenuModel - return jMenuModel' - gtk_menu_button_set_menu_model _obj' maybeMenuModel - touchManagedPtr _obj - whenJust menuModel touchManagedPtr - return () - -data MenuButtonSetMenuModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, Gio.MenuModelK b) => MethodInfo MenuButtonSetMenuModelMethodInfo a signature where - overloadedMethod _ = menuButtonSetMenuModel - --- method MenuButton::set_popover --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_set_popover" gtk_menu_button_set_popover :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - Ptr Widget -> -- popover : TInterface "Gtk" "Widget" - IO () - - -menuButtonSetPopover :: - (MonadIO m, MenuButtonK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- popover - -> m () -- result -menuButtonSetPopover _obj popover = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePopover <- case popover of - Nothing -> return nullPtr - Just jPopover -> do - let jPopover' = unsafeManagedPtrCastPtr jPopover - return jPopover' - gtk_menu_button_set_popover _obj' maybePopover - touchManagedPtr _obj - whenJust popover touchManagedPtr - return () - -data MenuButtonSetPopoverMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetPopoverMethodInfo a signature where - overloadedMethod _ = menuButtonSetPopover - --- method MenuButton::set_popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_button_set_popup" gtk_menu_button_set_popup :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - Ptr Widget -> -- menu : TInterface "Gtk" "Widget" - IO () - - -menuButtonSetPopup :: - (MonadIO m, MenuButtonK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- menu - -> m () -- result -menuButtonSetPopup _obj menu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMenu <- case menu of - Nothing -> return nullPtr - Just jMenu -> do - let jMenu' = unsafeManagedPtrCastPtr jMenu - return jMenu' - gtk_menu_button_set_popup _obj' maybeMenu - touchManagedPtr _obj - whenJust menu touchManagedPtr - return () - -data MenuButtonSetPopupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetPopupMethodInfo a signature where - overloadedMethod _ = menuButtonSetPopup - --- method MenuButton::set_use_popover --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_popover", 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 "gtk_menu_button_set_use_popover" gtk_menu_button_set_use_popover :: - Ptr MenuButton -> -- _obj : TInterface "Gtk" "MenuButton" - CInt -> -- use_popover : TBasicType TBoolean - IO () - - -menuButtonSetUsePopover :: - (MonadIO m, MenuButtonK a) => - a -- _obj - -> Bool -- usePopover - -> m () -- result -menuButtonSetUsePopover _obj usePopover = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let usePopover' = (fromIntegral . fromEnum) usePopover - gtk_menu_button_set_use_popover _obj' usePopover' - touchManagedPtr _obj - return () - -data MenuButtonSetUsePopoverMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonSetUsePopoverMethodInfo a signature where - overloadedMethod _ = menuButtonSetUsePopover - - diff --git a/GI/Gtk/Objects/MenuButton.hs-boot b/GI/Gtk/Objects/MenuButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuButton.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.Gtk.Objects.MenuButton 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 MenuButton = MenuButton (ForeignPtr MenuButton) -instance GObject MenuButton where -class GObject o => MenuButtonK o -instance (GObject o, IsDescendantOf MenuButton o) => MenuButtonK o -data MenuButtonAlignWidgetPropertyInfo -data MenuButtonDirectionPropertyInfo -data MenuButtonMenuModelPropertyInfo -data MenuButtonPopoverPropertyInfo -data MenuButtonPopupPropertyInfo -data MenuButtonUsePopoverPropertyInfo -data MenuButtonGetAlignWidgetMethodInfo -data MenuButtonGetDirectionMethodInfo -data MenuButtonGetMenuModelMethodInfo -data MenuButtonGetPopoverMethodInfo -data MenuButtonGetPopupMethodInfo -data MenuButtonGetUsePopoverMethodInfo -data MenuButtonSetAlignWidgetMethodInfo -data MenuButtonSetDirectionMethodInfo -data MenuButtonSetMenuModelMethodInfo -data MenuButtonSetPopoverMethodInfo -data MenuButtonSetPopupMethodInfo -data MenuButtonSetUsePopoverMethodInfo diff --git a/GI/Gtk/Objects/MenuButtonAccessible.hs b/GI/Gtk/Objects/MenuButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuButtonAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.MenuButtonAccessible - ( - --- * Exported types - MenuButtonAccessible(..) , - MenuButtonAccessibleK , - toMenuButtonAccessible , - noMenuButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuButtonAccessible = MenuButtonAccessible (ForeignPtr MenuButtonAccessible) -foreign import ccall "gtk_menu_button_accessible_get_type" - c_gtk_menu_button_accessible_get_type :: IO GType - -type instance ParentTypes MenuButtonAccessible = MenuButtonAccessibleParentTypes -type MenuButtonAccessibleParentTypes = '[ToggleButtonAccessible, ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject MenuButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_menu_button_accessible_get_type - - -class GObject o => MenuButtonAccessibleK o -instance (GObject o, IsDescendantOf MenuButtonAccessible o) => MenuButtonAccessibleK o - -toMenuButtonAccessible :: MenuButtonAccessibleK o => o -> IO MenuButtonAccessible -toMenuButtonAccessible = unsafeCastTo MenuButtonAccessible - -noMenuButtonAccessible :: Maybe MenuButtonAccessible -noMenuButtonAccessible = Nothing - -type family ResolveMenuButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveMenuButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveMenuButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveMenuButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveMenuButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveMenuButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveMenuButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveMenuButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveMenuButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveMenuButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveMenuButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveMenuButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveMenuButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveMenuButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveMenuButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveMenuButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveMenuButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveMenuButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveMenuButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveMenuButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveMenuButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveMenuButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveMenuButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveMenuButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveMenuButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveMenuButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveMenuButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveMenuButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveMenuButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveMenuButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveMenuButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveMenuButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveMenuButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveMenuButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveMenuButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveMenuButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveMenuButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveMenuButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveMenuButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveMenuButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveMenuButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveMenuButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuButtonAccessibleMethod t MenuButtonAccessible, MethodInfo info MenuButtonAccessible p) => IsLabelProxy t (MenuButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuButtonAccessibleMethod t MenuButtonAccessible, MethodInfo info MenuButtonAccessible p) => IsLabel t (MenuButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuButtonAccessible = MenuButtonAccessibleAttributeList -type MenuButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuButtonAccessible = MenuButtonAccessibleSignalList -type MenuButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/MenuButtonAccessible.hs-boot b/GI/Gtk/Objects/MenuButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.MenuButtonAccessible 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 MenuButtonAccessible = MenuButtonAccessible (ForeignPtr MenuButtonAccessible) -instance GObject MenuButtonAccessible where -class GObject o => MenuButtonAccessibleK o -instance (GObject o, IsDescendantOf MenuButtonAccessible o) => MenuButtonAccessibleK o diff --git a/GI/Gtk/Objects/MenuItem.hs b/GI/Gtk/Objects/MenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuItem.hs +++ /dev/null @@ -1,1618 +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.Gtk.Objects.MenuItem - ( - --- * Exported types - MenuItem(..) , - MenuItemK , - toMenuItem , - noMenuItem , - - - -- * Methods --- ** menuItemActivate - MenuItemActivateMethodInfo , - menuItemActivate , - - --- ** menuItemDeselect - MenuItemDeselectMethodInfo , - menuItemDeselect , - - --- ** menuItemGetAccelPath - MenuItemGetAccelPathMethodInfo , - menuItemGetAccelPath , - - --- ** menuItemGetLabel - MenuItemGetLabelMethodInfo , - menuItemGetLabel , - - --- ** menuItemGetReserveIndicator - MenuItemGetReserveIndicatorMethodInfo , - menuItemGetReserveIndicator , - - --- ** menuItemGetRightJustified - MenuItemGetRightJustifiedMethodInfo , - menuItemGetRightJustified , - - --- ** menuItemGetSubmenu - MenuItemGetSubmenuMethodInfo , - menuItemGetSubmenu , - - --- ** menuItemGetUseUnderline - MenuItemGetUseUnderlineMethodInfo , - menuItemGetUseUnderline , - - --- ** menuItemNew - menuItemNew , - - --- ** menuItemNewWithLabel - menuItemNewWithLabel , - - --- ** menuItemNewWithMnemonic - menuItemNewWithMnemonic , - - --- ** menuItemSelect - MenuItemSelectMethodInfo , - menuItemSelect , - - --- ** menuItemSetAccelPath - MenuItemSetAccelPathMethodInfo , - menuItemSetAccelPath , - - --- ** menuItemSetLabel - MenuItemSetLabelMethodInfo , - menuItemSetLabel , - - --- ** menuItemSetReserveIndicator - MenuItemSetReserveIndicatorMethodInfo , - menuItemSetReserveIndicator , - - --- ** menuItemSetRightJustified - MenuItemSetRightJustifiedMethodInfo , - menuItemSetRightJustified , - - --- ** menuItemSetSubmenu - MenuItemSetSubmenuMethodInfo , - menuItemSetSubmenu , - - --- ** menuItemSetUseUnderline - MenuItemSetUseUnderlineMethodInfo , - menuItemSetUseUnderline , - - --- ** menuItemToggleSizeAllocate - MenuItemToggleSizeAllocateMethodInfo , - menuItemToggleSizeAllocate , - - --- ** menuItemToggleSizeRequest - MenuItemToggleSizeRequestMethodInfo , - menuItemToggleSizeRequest , - - - - - -- * Properties --- ** AccelPath - MenuItemAccelPathPropertyInfo , - clearMenuItemAccelPath , - constructMenuItemAccelPath , - getMenuItemAccelPath , - menuItemAccelPath , - setMenuItemAccelPath , - - --- ** Label - MenuItemLabelPropertyInfo , - constructMenuItemLabel , - getMenuItemLabel , - menuItemLabel , - setMenuItemLabel , - - --- ** RightJustified - MenuItemRightJustifiedPropertyInfo , - constructMenuItemRightJustified , - getMenuItemRightJustified , - menuItemRightJustified , - setMenuItemRightJustified , - - --- ** Submenu - MenuItemSubmenuPropertyInfo , - clearMenuItemSubmenu , - constructMenuItemSubmenu , - getMenuItemSubmenu , - menuItemSubmenu , - setMenuItemSubmenu , - - --- ** UseUnderline - MenuItemUseUnderlinePropertyInfo , - constructMenuItemUseUnderline , - getMenuItemUseUnderline , - menuItemUseUnderline , - setMenuItemUseUnderline , - - - - - -- * Signals --- ** Activate - MenuItemActivateCallback , - MenuItemActivateCallbackC , - MenuItemActivateSignalInfo , - afterMenuItemActivate , - menuItemActivateCallbackWrapper , - menuItemActivateClosure , - mkMenuItemActivateCallback , - noMenuItemActivateCallback , - onMenuItemActivate , - - --- ** ActivateItem - MenuItemActivateItemCallback , - MenuItemActivateItemCallbackC , - MenuItemActivateItemSignalInfo , - afterMenuItemActivateItem , - menuItemActivateItemCallbackWrapper , - menuItemActivateItemClosure , - mkMenuItemActivateItemCallback , - noMenuItemActivateItemCallback , - onMenuItemActivateItem , - - --- ** Deselect - MenuItemDeselectCallback , - MenuItemDeselectCallbackC , - MenuItemDeselectSignalInfo , - afterMenuItemDeselect , - menuItemDeselectCallbackWrapper , - menuItemDeselectClosure , - mkMenuItemDeselectCallback , - noMenuItemDeselectCallback , - onMenuItemDeselect , - - --- ** Select - MenuItemSelectCallback , - MenuItemSelectCallbackC , - MenuItemSelectSignalInfo , - afterMenuItemSelect , - menuItemSelectCallbackWrapper , - menuItemSelectClosure , - mkMenuItemSelectCallback , - noMenuItemSelectCallback , - onMenuItemSelect , - - --- ** ToggleSizeAllocate - MenuItemToggleSizeAllocateCallback , - MenuItemToggleSizeAllocateCallbackC , - MenuItemToggleSizeAllocateSignalInfo , - afterMenuItemToggleSizeAllocate , - menuItemToggleSizeAllocateCallbackWrapper, - menuItemToggleSizeAllocateClosure , - mkMenuItemToggleSizeAllocateCallback , - noMenuItemToggleSizeAllocateCallback , - onMenuItemToggleSizeAllocate , - - --- ** ToggleSizeRequest - MenuItemToggleSizeRequestCallback , - MenuItemToggleSizeRequestCallbackC , - MenuItemToggleSizeRequestSignalInfo , - afterMenuItemToggleSizeRequest , - menuItemToggleSizeRequestCallbackWrapper, - menuItemToggleSizeRequestClosure , - mkMenuItemToggleSizeRequestCallback , - noMenuItemToggleSizeRequestCallback , - onMenuItemToggleSizeRequest , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuItem = MenuItem (ForeignPtr MenuItem) -foreign import ccall "gtk_menu_item_get_type" - c_gtk_menu_item_get_type :: IO GType - -type instance ParentTypes MenuItem = MenuItemParentTypes -type MenuItemParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject MenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_item_get_type - - -class GObject o => MenuItemK o -instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o - -toMenuItem :: MenuItemK o => o -> IO MenuItem -toMenuItem = unsafeCastTo MenuItem - -noMenuItem :: Maybe MenuItem -noMenuItem = Nothing - -type family ResolveMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabelProxy t (MenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabel t (MenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal MenuItem::activate -type MenuItemActivateCallback = - IO () - -noMenuItemActivateCallback :: Maybe MenuItemActivateCallback -noMenuItemActivateCallback = Nothing - -type MenuItemActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemActivateCallback :: MenuItemActivateCallbackC -> IO (FunPtr MenuItemActivateCallbackC) - -menuItemActivateClosure :: MenuItemActivateCallback -> IO Closure -menuItemActivateClosure cb = newCClosure =<< mkMenuItemActivateCallback wrapped - where wrapped = menuItemActivateCallbackWrapper cb - -menuItemActivateCallbackWrapper :: - MenuItemActivateCallback -> - Ptr () -> - Ptr () -> - IO () -menuItemActivateCallbackWrapper _cb _ _ = do - _cb - -onMenuItemActivate :: (GObject a, MonadIO m) => a -> MenuItemActivateCallback -> m SignalHandlerId -onMenuItemActivate obj cb = liftIO $ connectMenuItemActivate obj cb SignalConnectBefore -afterMenuItemActivate :: (GObject a, MonadIO m) => a -> MenuItemActivateCallback -> m SignalHandlerId -afterMenuItemActivate obj cb = connectMenuItemActivate obj cb SignalConnectAfter - -connectMenuItemActivate :: (GObject a, MonadIO m) => - a -> MenuItemActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemActivate obj cb after = liftIO $ do - cb' <- mkMenuItemActivateCallback (menuItemActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal MenuItem::activate-item -type MenuItemActivateItemCallback = - IO () - -noMenuItemActivateItemCallback :: Maybe MenuItemActivateItemCallback -noMenuItemActivateItemCallback = Nothing - -type MenuItemActivateItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemActivateItemCallback :: MenuItemActivateItemCallbackC -> IO (FunPtr MenuItemActivateItemCallbackC) - -menuItemActivateItemClosure :: MenuItemActivateItemCallback -> IO Closure -menuItemActivateItemClosure cb = newCClosure =<< mkMenuItemActivateItemCallback wrapped - where wrapped = menuItemActivateItemCallbackWrapper cb - -menuItemActivateItemCallbackWrapper :: - MenuItemActivateItemCallback -> - Ptr () -> - Ptr () -> - IO () -menuItemActivateItemCallbackWrapper _cb _ _ = do - _cb - -onMenuItemActivateItem :: (GObject a, MonadIO m) => a -> MenuItemActivateItemCallback -> m SignalHandlerId -onMenuItemActivateItem obj cb = liftIO $ connectMenuItemActivateItem obj cb SignalConnectBefore -afterMenuItemActivateItem :: (GObject a, MonadIO m) => a -> MenuItemActivateItemCallback -> m SignalHandlerId -afterMenuItemActivateItem obj cb = connectMenuItemActivateItem obj cb SignalConnectAfter - -connectMenuItemActivateItem :: (GObject a, MonadIO m) => - a -> MenuItemActivateItemCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemActivateItem obj cb after = liftIO $ do - cb' <- mkMenuItemActivateItemCallback (menuItemActivateItemCallbackWrapper cb) - connectSignalFunPtr obj "activate-item" cb' after - --- signal MenuItem::deselect -type MenuItemDeselectCallback = - IO () - -noMenuItemDeselectCallback :: Maybe MenuItemDeselectCallback -noMenuItemDeselectCallback = Nothing - -type MenuItemDeselectCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemDeselectCallback :: MenuItemDeselectCallbackC -> IO (FunPtr MenuItemDeselectCallbackC) - -menuItemDeselectClosure :: MenuItemDeselectCallback -> IO Closure -menuItemDeselectClosure cb = newCClosure =<< mkMenuItemDeselectCallback wrapped - where wrapped = menuItemDeselectCallbackWrapper cb - -menuItemDeselectCallbackWrapper :: - MenuItemDeselectCallback -> - Ptr () -> - Ptr () -> - IO () -menuItemDeselectCallbackWrapper _cb _ _ = do - _cb - -onMenuItemDeselect :: (GObject a, MonadIO m) => a -> MenuItemDeselectCallback -> m SignalHandlerId -onMenuItemDeselect obj cb = liftIO $ connectMenuItemDeselect obj cb SignalConnectBefore -afterMenuItemDeselect :: (GObject a, MonadIO m) => a -> MenuItemDeselectCallback -> m SignalHandlerId -afterMenuItemDeselect obj cb = connectMenuItemDeselect obj cb SignalConnectAfter - -connectMenuItemDeselect :: (GObject a, MonadIO m) => - a -> MenuItemDeselectCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemDeselect obj cb after = liftIO $ do - cb' <- mkMenuItemDeselectCallback (menuItemDeselectCallbackWrapper cb) - connectSignalFunPtr obj "deselect" cb' after - --- signal MenuItem::select -type MenuItemSelectCallback = - IO () - -noMenuItemSelectCallback :: Maybe MenuItemSelectCallback -noMenuItemSelectCallback = Nothing - -type MenuItemSelectCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemSelectCallback :: MenuItemSelectCallbackC -> IO (FunPtr MenuItemSelectCallbackC) - -menuItemSelectClosure :: MenuItemSelectCallback -> IO Closure -menuItemSelectClosure cb = newCClosure =<< mkMenuItemSelectCallback wrapped - where wrapped = menuItemSelectCallbackWrapper cb - -menuItemSelectCallbackWrapper :: - MenuItemSelectCallback -> - Ptr () -> - Ptr () -> - IO () -menuItemSelectCallbackWrapper _cb _ _ = do - _cb - -onMenuItemSelect :: (GObject a, MonadIO m) => a -> MenuItemSelectCallback -> m SignalHandlerId -onMenuItemSelect obj cb = liftIO $ connectMenuItemSelect obj cb SignalConnectBefore -afterMenuItemSelect :: (GObject a, MonadIO m) => a -> MenuItemSelectCallback -> m SignalHandlerId -afterMenuItemSelect obj cb = connectMenuItemSelect obj cb SignalConnectAfter - -connectMenuItemSelect :: (GObject a, MonadIO m) => - a -> MenuItemSelectCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemSelect obj cb after = liftIO $ do - cb' <- mkMenuItemSelectCallback (menuItemSelectCallbackWrapper cb) - connectSignalFunPtr obj "select" cb' after - --- signal MenuItem::toggle-size-allocate -type MenuItemToggleSizeAllocateCallback = - Int32 -> - IO () - -noMenuItemToggleSizeAllocateCallback :: Maybe MenuItemToggleSizeAllocateCallback -noMenuItemToggleSizeAllocateCallback = Nothing - -type MenuItemToggleSizeAllocateCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemToggleSizeAllocateCallback :: MenuItemToggleSizeAllocateCallbackC -> IO (FunPtr MenuItemToggleSizeAllocateCallbackC) - -menuItemToggleSizeAllocateClosure :: MenuItemToggleSizeAllocateCallback -> IO Closure -menuItemToggleSizeAllocateClosure cb = newCClosure =<< mkMenuItemToggleSizeAllocateCallback wrapped - where wrapped = menuItemToggleSizeAllocateCallbackWrapper cb - -menuItemToggleSizeAllocateCallbackWrapper :: - MenuItemToggleSizeAllocateCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -menuItemToggleSizeAllocateCallbackWrapper _cb _ object _ = do - _cb object - -onMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeAllocateCallback -> m SignalHandlerId -onMenuItemToggleSizeAllocate obj cb = liftIO $ connectMenuItemToggleSizeAllocate obj cb SignalConnectBefore -afterMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeAllocateCallback -> m SignalHandlerId -afterMenuItemToggleSizeAllocate obj cb = connectMenuItemToggleSizeAllocate obj cb SignalConnectAfter - -connectMenuItemToggleSizeAllocate :: (GObject a, MonadIO m) => - a -> MenuItemToggleSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemToggleSizeAllocate obj cb after = liftIO $ do - cb' <- mkMenuItemToggleSizeAllocateCallback (menuItemToggleSizeAllocateCallbackWrapper cb) - connectSignalFunPtr obj "toggle-size-allocate" cb' after - --- signal MenuItem::toggle-size-request -type MenuItemToggleSizeRequestCallback = - Ptr () -> - IO () - -noMenuItemToggleSizeRequestCallback :: Maybe MenuItemToggleSizeRequestCallback -noMenuItemToggleSizeRequestCallback = Nothing - -type MenuItemToggleSizeRequestCallbackC = - Ptr () -> -- object - Ptr () -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuItemToggleSizeRequestCallback :: MenuItemToggleSizeRequestCallbackC -> IO (FunPtr MenuItemToggleSizeRequestCallbackC) - -menuItemToggleSizeRequestClosure :: MenuItemToggleSizeRequestCallback -> IO Closure -menuItemToggleSizeRequestClosure cb = newCClosure =<< mkMenuItemToggleSizeRequestCallback wrapped - where wrapped = menuItemToggleSizeRequestCallbackWrapper cb - -menuItemToggleSizeRequestCallbackWrapper :: - MenuItemToggleSizeRequestCallback -> - Ptr () -> - Ptr () -> - Ptr () -> - IO () -menuItemToggleSizeRequestCallbackWrapper _cb _ object _ = do - _cb object - -onMenuItemToggleSizeRequest :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeRequestCallback -> m SignalHandlerId -onMenuItemToggleSizeRequest obj cb = liftIO $ connectMenuItemToggleSizeRequest obj cb SignalConnectBefore -afterMenuItemToggleSizeRequest :: (GObject a, MonadIO m) => a -> MenuItemToggleSizeRequestCallback -> m SignalHandlerId -afterMenuItemToggleSizeRequest obj cb = connectMenuItemToggleSizeRequest obj cb SignalConnectAfter - -connectMenuItemToggleSizeRequest :: (GObject a, MonadIO m) => - a -> MenuItemToggleSizeRequestCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuItemToggleSizeRequest obj cb after = liftIO $ do - cb' <- mkMenuItemToggleSizeRequestCallback (menuItemToggleSizeRequestCallbackWrapper cb) - connectSignalFunPtr obj "toggle-size-request" cb' after - --- VVV Prop "accel-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuItemAccelPath" $ getObjectPropertyString obj "accel-path" - -setMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) - -constructMenuItemAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" (Just val) - -clearMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m () -clearMenuItemAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text) - -data MenuItemAccelPathPropertyInfo -instance AttrInfo MenuItemAccelPathPropertyInfo where - type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK - type AttrGetType MenuItemAccelPathPropertyInfo = T.Text - type AttrLabel MenuItemAccelPathPropertyInfo = "accel-path" - attrGet _ = getMenuItemAccelPath - attrSet _ = setMenuItemAccelPath - attrConstruct _ = constructMenuItemAccelPath - attrClear _ = clearMenuItemAccelPath - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemLabel obj = liftIO $ checkUnexpectedNothing "getMenuItemLabel" $ getObjectPropertyString obj "label" - -setMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructMenuItemLabel :: T.Text -> IO ([Char], GValue) -constructMenuItemLabel val = constructObjectPropertyString "label" (Just val) - -data MenuItemLabelPropertyInfo -instance AttrInfo MenuItemLabelPropertyInfo where - type AttrAllowedOps MenuItemLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuItemLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuItemLabelPropertyInfo = MenuItemK - type AttrGetType MenuItemLabelPropertyInfo = T.Text - type AttrLabel MenuItemLabelPropertyInfo = "label" - attrGet _ = getMenuItemLabel - attrSet _ = setMenuItemLabel - attrConstruct _ = constructMenuItemLabel - attrClear _ = undefined - --- VVV Prop "right-justified" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuItemRightJustified :: (MonadIO m, MenuItemK o) => o -> m Bool -getMenuItemRightJustified obj = liftIO $ getObjectPropertyBool obj "right-justified" - -setMenuItemRightJustified :: (MonadIO m, MenuItemK o) => o -> Bool -> m () -setMenuItemRightJustified obj val = liftIO $ setObjectPropertyBool obj "right-justified" val - -constructMenuItemRightJustified :: Bool -> IO ([Char], GValue) -constructMenuItemRightJustified val = constructObjectPropertyBool "right-justified" val - -data MenuItemRightJustifiedPropertyInfo -instance AttrInfo MenuItemRightJustifiedPropertyInfo where - type AttrAllowedOps MenuItemRightJustifiedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuItemRightJustifiedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuItemRightJustifiedPropertyInfo = MenuItemK - type AttrGetType MenuItemRightJustifiedPropertyInfo = Bool - type AttrLabel MenuItemRightJustifiedPropertyInfo = "right-justified" - attrGet _ = getMenuItemRightJustified - attrSet _ = setMenuItemRightJustified - attrConstruct _ = constructMenuItemRightJustified - attrClear _ = undefined - --- VVV Prop "submenu" - -- Type: TInterface "Gtk" "Menu" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m (Maybe Menu) -getMenuItemSubmenu obj = liftIO $ getObjectPropertyObject obj "submenu" Menu - -setMenuItemSubmenu :: (MonadIO m, MenuItemK o, MenuK a) => o -> a -> m () -setMenuItemSubmenu obj val = liftIO $ setObjectPropertyObject obj "submenu" (Just val) - -constructMenuItemSubmenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" (Just val) - -clearMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m () -clearMenuItemSubmenu obj = liftIO $ setObjectPropertyObject obj "submenu" (Nothing :: Maybe Menu) - -data MenuItemSubmenuPropertyInfo -instance AttrInfo MenuItemSubmenuPropertyInfo where - type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK - type AttrGetType MenuItemSubmenuPropertyInfo = (Maybe Menu) - type AttrLabel MenuItemSubmenuPropertyInfo = "submenu" - attrGet _ = getMenuItemSubmenu - attrSet _ = setMenuItemSubmenu - attrConstruct _ = constructMenuItemSubmenu - attrClear _ = clearMenuItemSubmenu - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuItemUseUnderline :: (MonadIO m, MenuItemK o) => o -> m Bool -getMenuItemUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setMenuItemUseUnderline :: (MonadIO m, MenuItemK o) => o -> Bool -> m () -setMenuItemUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructMenuItemUseUnderline :: Bool -> IO ([Char], GValue) -constructMenuItemUseUnderline val = constructObjectPropertyBool "use-underline" val - -data MenuItemUseUnderlinePropertyInfo -instance AttrInfo MenuItemUseUnderlinePropertyInfo where - type AttrAllowedOps MenuItemUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuItemUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuItemUseUnderlinePropertyInfo = MenuItemK - type AttrGetType MenuItemUseUnderlinePropertyInfo = Bool - type AttrLabel MenuItemUseUnderlinePropertyInfo = "use-underline" - attrGet _ = getMenuItemUseUnderline - attrSet _ = setMenuItemUseUnderline - attrConstruct _ = constructMenuItemUseUnderline - attrClear _ = undefined - -type instance AttributeList MenuItem = MenuItemAttributeList -type MenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -menuItemAccelPath :: AttrLabelProxy "accelPath" -menuItemAccelPath = AttrLabelProxy - -menuItemLabel :: AttrLabelProxy "label" -menuItemLabel = AttrLabelProxy - -menuItemRightJustified :: AttrLabelProxy "rightJustified" -menuItemRightJustified = AttrLabelProxy - -menuItemSubmenu :: AttrLabelProxy "submenu" -menuItemSubmenu = AttrLabelProxy - -menuItemUseUnderline :: AttrLabelProxy "useUnderline" -menuItemUseUnderline = AttrLabelProxy - -data MenuItemActivateSignalInfo -instance SignalInfo MenuItemActivateSignalInfo where - type HaskellCallbackType MenuItemActivateSignalInfo = MenuItemActivateCallback - connectSignal _ = connectMenuItemActivate - -data MenuItemActivateItemSignalInfo -instance SignalInfo MenuItemActivateItemSignalInfo where - type HaskellCallbackType MenuItemActivateItemSignalInfo = MenuItemActivateItemCallback - connectSignal _ = connectMenuItemActivateItem - -data MenuItemDeselectSignalInfo -instance SignalInfo MenuItemDeselectSignalInfo where - type HaskellCallbackType MenuItemDeselectSignalInfo = MenuItemDeselectCallback - connectSignal _ = connectMenuItemDeselect - -data MenuItemSelectSignalInfo -instance SignalInfo MenuItemSelectSignalInfo where - type HaskellCallbackType MenuItemSelectSignalInfo = MenuItemSelectCallback - connectSignal _ = connectMenuItemSelect - -data MenuItemToggleSizeAllocateSignalInfo -instance SignalInfo MenuItemToggleSizeAllocateSignalInfo where - type HaskellCallbackType MenuItemToggleSizeAllocateSignalInfo = MenuItemToggleSizeAllocateCallback - connectSignal _ = connectMenuItemToggleSizeAllocate - -data MenuItemToggleSizeRequestSignalInfo -instance SignalInfo MenuItemToggleSizeRequestSignalInfo where - type HaskellCallbackType MenuItemToggleSizeRequestSignalInfo = MenuItemToggleSizeRequestCallback - connectSignal _ = connectMenuItemToggleSizeRequest - -type instance SignalList MenuItem = MenuItemSignalList -type MenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_new" gtk_menu_item_new :: - IO (Ptr MenuItem) - - -menuItemNew :: - (MonadIO m) => - m MenuItem -- result -menuItemNew = liftIO $ do - result <- gtk_menu_item_new - checkUnexpectedReturnNULL "gtk_menu_item_new" result - result' <- (newObject MenuItem) result - return result' - --- method MenuItem::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_new_with_label" gtk_menu_item_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr MenuItem) - - -menuItemNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m MenuItem -- result -menuItemNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_menu_item_new_with_label label' - checkUnexpectedReturnNULL "gtk_menu_item_new_with_label" result - result' <- (newObject MenuItem) result - freeMem label' - return result' - --- method MenuItem::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_new_with_mnemonic" gtk_menu_item_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr MenuItem) - - -menuItemNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m MenuItem -- result -menuItemNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_menu_item_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_menu_item_new_with_mnemonic" result - result' <- (newObject MenuItem) result - freeMem label' - return result' - --- method MenuItem::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_activate" gtk_menu_item_activate :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO () - - -menuItemActivate :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m () -- result -menuItemActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_activate _obj' - touchManagedPtr _obj - return () - -data MenuItemActivateMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemActivateMethodInfo a signature where - overloadedMethod _ = menuItemActivate - --- method MenuItem::deselect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_deselect" gtk_menu_item_deselect :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO () - - -menuItemDeselect :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m () -- result -menuItemDeselect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_deselect _obj' - touchManagedPtr _obj - return () - -data MenuItemDeselectMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemDeselectMethodInfo a signature where - overloadedMethod _ = menuItemDeselect - --- method MenuItem::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_get_accel_path" gtk_menu_item_get_accel_path :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO CString - - -menuItemGetAccelPath :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m T.Text -- result -menuItemGetAccelPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_accel_path _obj' - checkUnexpectedReturnNULL "gtk_menu_item_get_accel_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuItemGetAccelPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetAccelPathMethodInfo a signature where - overloadedMethod _ = menuItemGetAccelPath - --- method MenuItem::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_get_label" gtk_menu_item_get_label :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO CString - - -menuItemGetLabel :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m T.Text -- result -menuItemGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_label _obj' - checkUnexpectedReturnNULL "gtk_menu_item_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuItemGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetLabelMethodInfo a signature where - overloadedMethod _ = menuItemGetLabel - --- method MenuItem::get_reserve_indicator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_get_reserve_indicator" gtk_menu_item_get_reserve_indicator :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO CInt - - -menuItemGetReserveIndicator :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m Bool -- result -menuItemGetReserveIndicator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_reserve_indicator _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuItemGetReserveIndicatorMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetReserveIndicatorMethodInfo a signature where - overloadedMethod _ = menuItemGetReserveIndicator - --- method MenuItem::get_right_justified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_get_right_justified" gtk_menu_item_get_right_justified :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO CInt - -{-# DEPRECATED menuItemGetRightJustified ["(Since version 3.2)","See gtk_menu_item_set_right_justified()"]#-} -menuItemGetRightJustified :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m Bool -- result -menuItemGetRightJustified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_right_justified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuItemGetRightJustifiedMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetRightJustifiedMethodInfo a signature where - overloadedMethod _ = menuItemGetRightJustified - --- method MenuItem::get_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_get_submenu" gtk_menu_item_get_submenu :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO (Ptr Widget) - - -menuItemGetSubmenu :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m Widget -- result -menuItemGetSubmenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_submenu _obj' - checkUnexpectedReturnNULL "gtk_menu_item_get_submenu" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuItemGetSubmenuMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetSubmenuMethodInfo a signature where - overloadedMethod _ = menuItemGetSubmenu - --- method MenuItem::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_get_use_underline" gtk_menu_item_get_use_underline :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO CInt - - -menuItemGetUseUnderline :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m Bool -- result -menuItemGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuItemGetUseUnderlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetUseUnderlineMethodInfo a signature where - overloadedMethod _ = menuItemGetUseUnderline - --- method MenuItem::select --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_item_select" gtk_menu_item_select :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - IO () - - -menuItemSelect :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> m () -- result -menuItemSelect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_select _obj' - touchManagedPtr _obj - return () - -data MenuItemSelectMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSelectMethodInfo a signature where - overloadedMethod _ = menuItemSelect - --- method MenuItem::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_set_accel_path" gtk_menu_item_set_accel_path :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -menuItemSetAccelPath :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Maybe (T.Text) -- accelPath - -> m () -- result -menuItemSetAccelPath _obj accelPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelPath <- case accelPath of - Nothing -> return nullPtr - Just jAccelPath -> do - jAccelPath' <- textToCString jAccelPath - return jAccelPath' - gtk_menu_item_set_accel_path _obj' maybeAccelPath - touchManagedPtr _obj - freeMem maybeAccelPath - return () - -data MenuItemSetAccelPathMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetAccelPathMethodInfo a signature where - overloadedMethod _ = menuItemSetAccelPath - --- method MenuItem::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", 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 "gtk_menu_item_set_label" gtk_menu_item_set_label :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - CString -> -- label : TBasicType TUTF8 - IO () - - -menuItemSetLabel :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> T.Text -- label - -> m () -- result -menuItemSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_menu_item_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - -data MenuItemSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetLabelMethodInfo a signature where - overloadedMethod _ = menuItemSetLabel - --- method MenuItem::set_reserve_indicator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve", 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 "gtk_menu_item_set_reserve_indicator" gtk_menu_item_set_reserve_indicator :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - CInt -> -- reserve : TBasicType TBoolean - IO () - - -menuItemSetReserveIndicator :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Bool -- reserve - -> m () -- result -menuItemSetReserveIndicator _obj reserve = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reserve' = (fromIntegral . fromEnum) reserve - gtk_menu_item_set_reserve_indicator _obj' reserve' - touchManagedPtr _obj - return () - -data MenuItemSetReserveIndicatorMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetReserveIndicatorMethodInfo a signature where - overloadedMethod _ = menuItemSetReserveIndicator - --- method MenuItem::set_right_justified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_justified", 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 "gtk_menu_item_set_right_justified" gtk_menu_item_set_right_justified :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - CInt -> -- right_justified : TBasicType TBoolean - IO () - -{-# DEPRECATED menuItemSetRightJustified ["(Since version 3.2)","If you insist on using it, use"," gtk_widget_set_hexpand() and gtk_widget_set_halign()."]#-} -menuItemSetRightJustified :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Bool -- rightJustified - -> m () -- result -menuItemSetRightJustified _obj rightJustified = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rightJustified' = (fromIntegral . fromEnum) rightJustified - gtk_menu_item_set_right_justified _obj' rightJustified' - touchManagedPtr _obj - return () - -data MenuItemSetRightJustifiedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetRightJustifiedMethodInfo a signature where - overloadedMethod _ = menuItemSetRightJustified - --- method MenuItem::set_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_set_submenu" gtk_menu_item_set_submenu :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Ptr Menu -> -- submenu : TInterface "Gtk" "Menu" - IO () - - -menuItemSetSubmenu :: - (MonadIO m, MenuItemK a, MenuK b) => - a -- _obj - -> Maybe (b) -- submenu - -> m () -- result -menuItemSetSubmenu _obj submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSubmenu <- case submenu of - Nothing -> return nullPtr - Just jSubmenu -> do - let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu - return jSubmenu' - gtk_menu_item_set_submenu _obj' maybeSubmenu - touchManagedPtr _obj - whenJust submenu touchManagedPtr - return () - -data MenuItemSetSubmenuMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuK b) => MethodInfo MenuItemSetSubmenuMethodInfo a signature where - overloadedMethod _ = menuItemSetSubmenu - --- method MenuItem::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_menu_item_set_use_underline" gtk_menu_item_set_use_underline :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - CInt -> -- setting : TBasicType TBoolean - IO () - - -menuItemSetUseUnderline :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -menuItemSetUseUnderline _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_menu_item_set_use_underline _obj' setting' - touchManagedPtr _obj - return () - -data MenuItemSetUseUnderlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetUseUnderlineMethodInfo a signature where - overloadedMethod _ = menuItemSetUseUnderline - --- method MenuItem::toggle_size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", 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 "gtk_menu_item_toggle_size_allocate" gtk_menu_item_toggle_size_allocate :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Int32 -> -- allocation : TBasicType TInt - IO () - - -menuItemToggleSizeAllocate :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Int32 -- allocation - -> m () -- result -menuItemToggleSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_toggle_size_allocate _obj' allocation - touchManagedPtr _obj - return () - -data MenuItemToggleSizeAllocateMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemToggleSizeAllocateMethodInfo a signature where - overloadedMethod _ = menuItemToggleSizeAllocate - --- method MenuItem::toggle_size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_toggle_size_request" gtk_menu_item_toggle_size_request :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Ptr Int32 -> -- requisition : TBasicType TInt - IO () - - -menuItemToggleSizeRequest :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Int32 -- requisition - -> m (Int32) -- result -menuItemToggleSizeRequest _obj requisition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition' <- allocMem :: IO (Ptr Int32) - poke requisition' requisition - gtk_menu_item_toggle_size_request _obj' requisition' - requisition'' <- peek requisition' - touchManagedPtr _obj - freeMem requisition' - return requisition'' - -data MenuItemToggleSizeRequestMethodInfo -instance (signature ~ (Int32 -> m (Int32)), MonadIO m, MenuItemK a) => MethodInfo MenuItemToggleSizeRequestMethodInfo a signature where - overloadedMethod _ = menuItemToggleSizeRequest - - diff --git a/GI/Gtk/Objects/MenuItem.hs-boot b/GI/Gtk/Objects/MenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuItem.hs-boot +++ /dev/null @@ -1,41 +0,0 @@ -module GI.Gtk.Objects.MenuItem 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 MenuItem = MenuItem (ForeignPtr MenuItem) -instance GObject MenuItem where -class GObject o => MenuItemK o -instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o -data MenuItemAccelPathPropertyInfo -data MenuItemLabelPropertyInfo -data MenuItemRightJustifiedPropertyInfo -data MenuItemSubmenuPropertyInfo -data MenuItemUseUnderlinePropertyInfo -data MenuItemActivateSignalInfo -data MenuItemActivateItemSignalInfo -data MenuItemDeselectSignalInfo -data MenuItemSelectSignalInfo -data MenuItemToggleSizeAllocateSignalInfo -data MenuItemToggleSizeRequestSignalInfo -data MenuItemActivateMethodInfo -data MenuItemDeselectMethodInfo -data MenuItemGetAccelPathMethodInfo -data MenuItemGetLabelMethodInfo -data MenuItemGetReserveIndicatorMethodInfo -data MenuItemGetRightJustifiedMethodInfo -data MenuItemGetSubmenuMethodInfo -data MenuItemGetUseUnderlineMethodInfo -data MenuItemSelectMethodInfo -data MenuItemSetAccelPathMethodInfo -data MenuItemSetLabelMethodInfo -data MenuItemSetReserveIndicatorMethodInfo -data MenuItemSetRightJustifiedMethodInfo -data MenuItemSetSubmenuMethodInfo -data MenuItemSetUseUnderlineMethodInfo -data MenuItemToggleSizeAllocateMethodInfo -data MenuItemToggleSizeRequestMethodInfo diff --git a/GI/Gtk/Objects/MenuItemAccessible.hs b/GI/Gtk/Objects/MenuItemAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuItemAccessible.hs +++ /dev/null @@ -1,136 +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.Gtk.Objects.MenuItemAccessible - ( - --- * Exported types - MenuItemAccessible(..) , - MenuItemAccessibleK , - toMenuItemAccessible , - noMenuItemAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuItemAccessible = MenuItemAccessible (ForeignPtr MenuItemAccessible) -foreign import ccall "gtk_menu_item_accessible_get_type" - c_gtk_menu_item_accessible_get_type :: IO GType - -type instance ParentTypes MenuItemAccessible = MenuItemAccessibleParentTypes -type MenuItemAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection] - -instance GObject MenuItemAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_menu_item_accessible_get_type - - -class GObject o => MenuItemAccessibleK o -instance (GObject o, IsDescendantOf MenuItemAccessible o) => MenuItemAccessibleK o - -toMenuItemAccessible :: MenuItemAccessibleK o => o -> IO MenuItemAccessible -toMenuItemAccessible = unsafeCastTo MenuItemAccessible - -noMenuItemAccessible :: Maybe MenuItemAccessible -noMenuItemAccessible = Nothing - -type family ResolveMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveMenuItemAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuItemAccessibleMethod t MenuItemAccessible, MethodInfo info MenuItemAccessible p) => IsLabelProxy t (MenuItemAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuItemAccessibleMethod t MenuItemAccessible, MethodInfo info MenuItemAccessible p) => IsLabel t (MenuItemAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuItemAccessible = MenuItemAccessibleAttributeList -type MenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuItemAccessible = MenuItemAccessibleSignalList -type MenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/MenuItemAccessible.hs-boot b/GI/Gtk/Objects/MenuItemAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuItemAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.MenuItemAccessible 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 MenuItemAccessible = MenuItemAccessible (ForeignPtr MenuItemAccessible) -instance GObject MenuItemAccessible where -class GObject o => MenuItemAccessibleK o -instance (GObject o, IsDescendantOf MenuItemAccessible o) => MenuItemAccessibleK o diff --git a/GI/Gtk/Objects/MenuShell.hs b/GI/Gtk/Objects/MenuShell.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuShell.hs +++ /dev/null @@ -1,1410 +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.Gtk.Objects.MenuShell - ( - --- * Exported types - MenuShell(..) , - MenuShellK , - toMenuShell , - noMenuShell , - - - -- * Methods --- ** menuShellActivateItem - MenuShellActivateItemMethodInfo , - menuShellActivateItem , - - --- ** menuShellAppend - MenuShellAppendMethodInfo , - menuShellAppend , - - --- ** menuShellBindModel - MenuShellBindModelMethodInfo , - menuShellBindModel , - - --- ** menuShellCancel - MenuShellCancelMethodInfo , - menuShellCancel , - - --- ** menuShellDeactivate - MenuShellDeactivateMethodInfo , - menuShellDeactivate , - - --- ** menuShellDeselect - MenuShellDeselectMethodInfo , - menuShellDeselect , - - --- ** menuShellGetParentShell - MenuShellGetParentShellMethodInfo , - menuShellGetParentShell , - - --- ** menuShellGetSelectedItem - MenuShellGetSelectedItemMethodInfo , - menuShellGetSelectedItem , - - --- ** menuShellGetTakeFocus - MenuShellGetTakeFocusMethodInfo , - menuShellGetTakeFocus , - - --- ** menuShellInsert - MenuShellInsertMethodInfo , - menuShellInsert , - - --- ** menuShellPrepend - MenuShellPrependMethodInfo , - menuShellPrepend , - - --- ** menuShellSelectFirst - MenuShellSelectFirstMethodInfo , - menuShellSelectFirst , - - --- ** menuShellSelectItem - MenuShellSelectItemMethodInfo , - menuShellSelectItem , - - --- ** menuShellSetTakeFocus - MenuShellSetTakeFocusMethodInfo , - menuShellSetTakeFocus , - - - - - -- * Properties --- ** TakeFocus - MenuShellTakeFocusPropertyInfo , - constructMenuShellTakeFocus , - getMenuShellTakeFocus , - menuShellTakeFocus , - setMenuShellTakeFocus , - - - - - -- * Signals --- ** ActivateCurrent - MenuShellActivateCurrentCallback , - MenuShellActivateCurrentCallbackC , - MenuShellActivateCurrentSignalInfo , - afterMenuShellActivateCurrent , - menuShellActivateCurrentCallbackWrapper , - menuShellActivateCurrentClosure , - mkMenuShellActivateCurrentCallback , - noMenuShellActivateCurrentCallback , - onMenuShellActivateCurrent , - - --- ** Cancel - MenuShellCancelCallback , - MenuShellCancelCallbackC , - MenuShellCancelSignalInfo , - afterMenuShellCancel , - menuShellCancelCallbackWrapper , - menuShellCancelClosure , - mkMenuShellCancelCallback , - noMenuShellCancelCallback , - onMenuShellCancel , - - --- ** CycleFocus - MenuShellCycleFocusCallback , - MenuShellCycleFocusCallbackC , - MenuShellCycleFocusSignalInfo , - afterMenuShellCycleFocus , - menuShellCycleFocusCallbackWrapper , - menuShellCycleFocusClosure , - mkMenuShellCycleFocusCallback , - noMenuShellCycleFocusCallback , - onMenuShellCycleFocus , - - --- ** Deactivate - MenuShellDeactivateCallback , - MenuShellDeactivateCallbackC , - MenuShellDeactivateSignalInfo , - afterMenuShellDeactivate , - menuShellDeactivateCallbackWrapper , - menuShellDeactivateClosure , - mkMenuShellDeactivateCallback , - noMenuShellDeactivateCallback , - onMenuShellDeactivate , - - --- ** Insert - MenuShellInsertCallback , - MenuShellInsertCallbackC , - MenuShellInsertSignalInfo , - afterMenuShellInsert , - menuShellInsertCallbackWrapper , - menuShellInsertClosure , - mkMenuShellInsertCallback , - noMenuShellInsertCallback , - onMenuShellInsert , - - --- ** MoveCurrent - MenuShellMoveCurrentCallback , - MenuShellMoveCurrentCallbackC , - MenuShellMoveCurrentSignalInfo , - afterMenuShellMoveCurrent , - menuShellMoveCurrentCallbackWrapper , - menuShellMoveCurrentClosure , - mkMenuShellMoveCurrentCallback , - noMenuShellMoveCurrentCallback , - onMenuShellMoveCurrent , - - --- ** MoveSelected - MenuShellMoveSelectedCallback , - MenuShellMoveSelectedCallbackC , - MenuShellMoveSelectedSignalInfo , - afterMenuShellMoveSelected , - menuShellMoveSelectedCallbackWrapper , - menuShellMoveSelectedClosure , - mkMenuShellMoveSelectedCallback , - noMenuShellMoveSelectedCallback , - onMenuShellMoveSelected , - - --- ** SelectionDone - MenuShellSelectionDoneCallback , - MenuShellSelectionDoneCallbackC , - MenuShellSelectionDoneSignalInfo , - afterMenuShellSelectionDone , - menuShellSelectionDoneCallbackWrapper , - menuShellSelectionDoneClosure , - mkMenuShellSelectionDoneCallback , - noMenuShellSelectionDoneCallback , - onMenuShellSelectionDone , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype MenuShell = MenuShell (ForeignPtr MenuShell) -foreign import ccall "gtk_menu_shell_get_type" - c_gtk_menu_shell_get_type :: IO GType - -type instance ParentTypes MenuShell = MenuShellParentTypes -type MenuShellParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject MenuShell where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_shell_get_type - - -class GObject o => MenuShellK o -instance (GObject o, IsDescendantOf MenuShell o) => MenuShellK o - -toMenuShell :: MenuShellK o => o -> IO MenuShell -toMenuShell = unsafeCastTo MenuShell - -noMenuShell :: Maybe MenuShell -noMenuShell = Nothing - -type family ResolveMenuShellMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuShellMethod "activate" o = WidgetActivateMethodInfo - ResolveMenuShellMethod "activateItem" o = MenuShellActivateItemMethodInfo - ResolveMenuShellMethod "add" o = ContainerAddMethodInfo - ResolveMenuShellMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuShellMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuShellMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuShellMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuShellMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuShellMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuShellMethod "append" o = MenuShellAppendMethodInfo - ResolveMenuShellMethod "bindModel" o = MenuShellBindModelMethodInfo - ResolveMenuShellMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuShellMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuShellMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuShellMethod "cancel" o = MenuShellCancelMethodInfo - ResolveMenuShellMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuShellMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuShellMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuShellMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuShellMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuShellMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuShellMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuShellMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuShellMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuShellMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuShellMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuShellMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuShellMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuShellMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuShellMethod "deactivate" o = MenuShellDeactivateMethodInfo - ResolveMenuShellMethod "deselect" o = MenuShellDeselectMethodInfo - ResolveMenuShellMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuShellMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuShellMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuShellMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuShellMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuShellMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuShellMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuShellMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuShellMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuShellMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuShellMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuShellMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuShellMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuShellMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuShellMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuShellMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuShellMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuShellMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuShellMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuShellMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuShellMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuShellMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuShellMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuShellMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuShellMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuShellMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuShellMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuShellMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuShellMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuShellMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuShellMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuShellMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuShellMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuShellMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuShellMethod "event" o = WidgetEventMethodInfo - ResolveMenuShellMethod "forall" o = ContainerForallMethodInfo - ResolveMenuShellMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuShellMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuShellMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuShellMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuShellMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuShellMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuShellMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuShellMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuShellMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuShellMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuShellMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuShellMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuShellMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuShellMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuShellMethod "hide" o = WidgetHideMethodInfo - ResolveMenuShellMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuShellMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuShellMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuShellMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuShellMethod "insert" o = MenuShellInsertMethodInfo - ResolveMenuShellMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuShellMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuShellMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuShellMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuShellMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuShellMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuShellMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuShellMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuShellMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuShellMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuShellMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuShellMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuShellMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuShellMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuShellMethod "map" o = WidgetMapMethodInfo - ResolveMenuShellMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuShellMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuShellMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuShellMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuShellMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuShellMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuShellMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuShellMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuShellMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuShellMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuShellMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuShellMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuShellMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuShellMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuShellMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuShellMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuShellMethod "path" o = WidgetPathMethodInfo - ResolveMenuShellMethod "prepend" o = MenuShellPrependMethodInfo - ResolveMenuShellMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuShellMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuShellMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuShellMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuShellMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuShellMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuShellMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuShellMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuShellMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuShellMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuShellMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuShellMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuShellMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuShellMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuShellMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuShellMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuShellMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuShellMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuShellMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuShellMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuShellMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuShellMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuShellMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuShellMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuShellMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuShellMethod "selectFirst" o = MenuShellSelectFirstMethodInfo - ResolveMenuShellMethod "selectItem" o = MenuShellSelectItemMethodInfo - ResolveMenuShellMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuShellMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuShellMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuShellMethod "show" o = WidgetShowMethodInfo - ResolveMenuShellMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuShellMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuShellMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuShellMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuShellMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuShellMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuShellMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuShellMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuShellMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuShellMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuShellMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuShellMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuShellMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuShellMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuShellMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuShellMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuShellMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuShellMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuShellMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuShellMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuShellMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuShellMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuShellMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuShellMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuShellMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuShellMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuShellMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuShellMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuShellMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuShellMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuShellMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuShellMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuShellMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuShellMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuShellMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuShellMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuShellMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuShellMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuShellMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuShellMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuShellMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuShellMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMenuShellMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuShellMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuShellMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuShellMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuShellMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuShellMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuShellMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuShellMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuShellMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuShellMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuShellMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuShellMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuShellMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuShellMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuShellMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuShellMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuShellMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuShellMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuShellMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuShellMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuShellMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuShellMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuShellMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuShellMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuShellMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuShellMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuShellMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuShellMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuShellMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuShellMethod "getParentShell" o = MenuShellGetParentShellMethodInfo - ResolveMenuShellMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuShellMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuShellMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuShellMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuShellMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuShellMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuShellMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuShellMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuShellMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuShellMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuShellMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuShellMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuShellMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuShellMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuShellMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuShellMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuShellMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuShellMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuShellMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuShellMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuShellMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo - ResolveMenuShellMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuShellMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuShellMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuShellMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuShellMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuShellMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuShellMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuShellMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuShellMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo - ResolveMenuShellMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuShellMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuShellMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuShellMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuShellMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuShellMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuShellMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuShellMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuShellMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuShellMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuShellMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuShellMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuShellMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMenuShellMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuShellMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuShellMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuShellMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuShellMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuShellMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuShellMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuShellMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuShellMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuShellMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuShellMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuShellMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuShellMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMenuShellMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuShellMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuShellMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuShellMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuShellMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuShellMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuShellMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuShellMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuShellMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuShellMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuShellMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuShellMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuShellMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuShellMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuShellMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuShellMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuShellMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuShellMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuShellMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuShellMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuShellMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuShellMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuShellMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuShellMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuShellMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuShellMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuShellMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuShellMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuShellMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuShellMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuShellMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuShellMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuShellMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuShellMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuShellMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuShellMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuShellMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo - ResolveMenuShellMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMenuShellMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMenuShellMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuShellMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuShellMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuShellMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuShellMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuShellMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuShellMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuShellMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuShellMethod t MenuShell, MethodInfo info MenuShell p) => IsLabelProxy t (MenuShell -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuShellMethod t MenuShell, MethodInfo info MenuShell p) => IsLabel t (MenuShell -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal MenuShell::activate-current -type MenuShellActivateCurrentCallback = - Bool -> - IO () - -noMenuShellActivateCurrentCallback :: Maybe MenuShellActivateCurrentCallback -noMenuShellActivateCurrentCallback = Nothing - -type MenuShellActivateCurrentCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellActivateCurrentCallback :: MenuShellActivateCurrentCallbackC -> IO (FunPtr MenuShellActivateCurrentCallbackC) - -menuShellActivateCurrentClosure :: MenuShellActivateCurrentCallback -> IO Closure -menuShellActivateCurrentClosure cb = newCClosure =<< mkMenuShellActivateCurrentCallback wrapped - where wrapped = menuShellActivateCurrentCallbackWrapper cb - -menuShellActivateCurrentCallbackWrapper :: - MenuShellActivateCurrentCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -menuShellActivateCurrentCallbackWrapper _cb _ forceHide _ = do - let forceHide' = (/= 0) forceHide - _cb forceHide' - -onMenuShellActivateCurrent :: (GObject a, MonadIO m) => a -> MenuShellActivateCurrentCallback -> m SignalHandlerId -onMenuShellActivateCurrent obj cb = liftIO $ connectMenuShellActivateCurrent obj cb SignalConnectBefore -afterMenuShellActivateCurrent :: (GObject a, MonadIO m) => a -> MenuShellActivateCurrentCallback -> m SignalHandlerId -afterMenuShellActivateCurrent obj cb = connectMenuShellActivateCurrent obj cb SignalConnectAfter - -connectMenuShellActivateCurrent :: (GObject a, MonadIO m) => - a -> MenuShellActivateCurrentCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellActivateCurrent obj cb after = liftIO $ do - cb' <- mkMenuShellActivateCurrentCallback (menuShellActivateCurrentCallbackWrapper cb) - connectSignalFunPtr obj "activate-current" cb' after - --- signal MenuShell::cancel -type MenuShellCancelCallback = - IO () - -noMenuShellCancelCallback :: Maybe MenuShellCancelCallback -noMenuShellCancelCallback = Nothing - -type MenuShellCancelCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellCancelCallback :: MenuShellCancelCallbackC -> IO (FunPtr MenuShellCancelCallbackC) - -menuShellCancelClosure :: MenuShellCancelCallback -> IO Closure -menuShellCancelClosure cb = newCClosure =<< mkMenuShellCancelCallback wrapped - where wrapped = menuShellCancelCallbackWrapper cb - -menuShellCancelCallbackWrapper :: - MenuShellCancelCallback -> - Ptr () -> - Ptr () -> - IO () -menuShellCancelCallbackWrapper _cb _ _ = do - _cb - -onMenuShellCancel :: (GObject a, MonadIO m) => a -> MenuShellCancelCallback -> m SignalHandlerId -onMenuShellCancel obj cb = liftIO $ connectMenuShellCancel obj cb SignalConnectBefore -afterMenuShellCancel :: (GObject a, MonadIO m) => a -> MenuShellCancelCallback -> m SignalHandlerId -afterMenuShellCancel obj cb = connectMenuShellCancel obj cb SignalConnectAfter - -connectMenuShellCancel :: (GObject a, MonadIO m) => - a -> MenuShellCancelCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellCancel obj cb after = liftIO $ do - cb' <- mkMenuShellCancelCallback (menuShellCancelCallbackWrapper cb) - connectSignalFunPtr obj "cancel" cb' after - --- signal MenuShell::cycle-focus -type MenuShellCycleFocusCallback = - DirectionType -> - IO () - -noMenuShellCycleFocusCallback :: Maybe MenuShellCycleFocusCallback -noMenuShellCycleFocusCallback = Nothing - -type MenuShellCycleFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellCycleFocusCallback :: MenuShellCycleFocusCallbackC -> IO (FunPtr MenuShellCycleFocusCallbackC) - -menuShellCycleFocusClosure :: MenuShellCycleFocusCallback -> IO Closure -menuShellCycleFocusClosure cb = newCClosure =<< mkMenuShellCycleFocusCallback wrapped - where wrapped = menuShellCycleFocusCallbackWrapper cb - -menuShellCycleFocusCallbackWrapper :: - MenuShellCycleFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -menuShellCycleFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - _cb direction' - -onMenuShellCycleFocus :: (GObject a, MonadIO m) => a -> MenuShellCycleFocusCallback -> m SignalHandlerId -onMenuShellCycleFocus obj cb = liftIO $ connectMenuShellCycleFocus obj cb SignalConnectBefore -afterMenuShellCycleFocus :: (GObject a, MonadIO m) => a -> MenuShellCycleFocusCallback -> m SignalHandlerId -afterMenuShellCycleFocus obj cb = connectMenuShellCycleFocus obj cb SignalConnectAfter - -connectMenuShellCycleFocus :: (GObject a, MonadIO m) => - a -> MenuShellCycleFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellCycleFocus obj cb after = liftIO $ do - cb' <- mkMenuShellCycleFocusCallback (menuShellCycleFocusCallbackWrapper cb) - connectSignalFunPtr obj "cycle-focus" cb' after - --- signal MenuShell::deactivate -type MenuShellDeactivateCallback = - IO () - -noMenuShellDeactivateCallback :: Maybe MenuShellDeactivateCallback -noMenuShellDeactivateCallback = Nothing - -type MenuShellDeactivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellDeactivateCallback :: MenuShellDeactivateCallbackC -> IO (FunPtr MenuShellDeactivateCallbackC) - -menuShellDeactivateClosure :: MenuShellDeactivateCallback -> IO Closure -menuShellDeactivateClosure cb = newCClosure =<< mkMenuShellDeactivateCallback wrapped - where wrapped = menuShellDeactivateCallbackWrapper cb - -menuShellDeactivateCallbackWrapper :: - MenuShellDeactivateCallback -> - Ptr () -> - Ptr () -> - IO () -menuShellDeactivateCallbackWrapper _cb _ _ = do - _cb - -onMenuShellDeactivate :: (GObject a, MonadIO m) => a -> MenuShellDeactivateCallback -> m SignalHandlerId -onMenuShellDeactivate obj cb = liftIO $ connectMenuShellDeactivate obj cb SignalConnectBefore -afterMenuShellDeactivate :: (GObject a, MonadIO m) => a -> MenuShellDeactivateCallback -> m SignalHandlerId -afterMenuShellDeactivate obj cb = connectMenuShellDeactivate obj cb SignalConnectAfter - -connectMenuShellDeactivate :: (GObject a, MonadIO m) => - a -> MenuShellDeactivateCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellDeactivate obj cb after = liftIO $ do - cb' <- mkMenuShellDeactivateCallback (menuShellDeactivateCallbackWrapper cb) - connectSignalFunPtr obj "deactivate" cb' after - --- signal MenuShell::insert -type MenuShellInsertCallback = - Widget -> - Int32 -> - IO () - -noMenuShellInsertCallback :: Maybe MenuShellInsertCallback -noMenuShellInsertCallback = Nothing - -type MenuShellInsertCallbackC = - Ptr () -> -- object - Ptr Widget -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellInsertCallback :: MenuShellInsertCallbackC -> IO (FunPtr MenuShellInsertCallbackC) - -menuShellInsertClosure :: MenuShellInsertCallback -> IO Closure -menuShellInsertClosure cb = newCClosure =<< mkMenuShellInsertCallback wrapped - where wrapped = menuShellInsertCallbackWrapper cb - -menuShellInsertCallbackWrapper :: - MenuShellInsertCallback -> - Ptr () -> - Ptr Widget -> - Int32 -> - Ptr () -> - IO () -menuShellInsertCallbackWrapper _cb _ child position _ = do - child' <- (newObject Widget) child - _cb child' position - -onMenuShellInsert :: (GObject a, MonadIO m) => a -> MenuShellInsertCallback -> m SignalHandlerId -onMenuShellInsert obj cb = liftIO $ connectMenuShellInsert obj cb SignalConnectBefore -afterMenuShellInsert :: (GObject a, MonadIO m) => a -> MenuShellInsertCallback -> m SignalHandlerId -afterMenuShellInsert obj cb = connectMenuShellInsert obj cb SignalConnectAfter - -connectMenuShellInsert :: (GObject a, MonadIO m) => - a -> MenuShellInsertCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellInsert obj cb after = liftIO $ do - cb' <- mkMenuShellInsertCallback (menuShellInsertCallbackWrapper cb) - connectSignalFunPtr obj "insert" cb' after - --- signal MenuShell::move-current -type MenuShellMoveCurrentCallback = - MenuDirectionType -> - IO () - -noMenuShellMoveCurrentCallback :: Maybe MenuShellMoveCurrentCallback -noMenuShellMoveCurrentCallback = Nothing - -type MenuShellMoveCurrentCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellMoveCurrentCallback :: MenuShellMoveCurrentCallbackC -> IO (FunPtr MenuShellMoveCurrentCallbackC) - -menuShellMoveCurrentClosure :: MenuShellMoveCurrentCallback -> IO Closure -menuShellMoveCurrentClosure cb = newCClosure =<< mkMenuShellMoveCurrentCallback wrapped - where wrapped = menuShellMoveCurrentCallbackWrapper cb - -menuShellMoveCurrentCallbackWrapper :: - MenuShellMoveCurrentCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -menuShellMoveCurrentCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - _cb direction' - -onMenuShellMoveCurrent :: (GObject a, MonadIO m) => a -> MenuShellMoveCurrentCallback -> m SignalHandlerId -onMenuShellMoveCurrent obj cb = liftIO $ connectMenuShellMoveCurrent obj cb SignalConnectBefore -afterMenuShellMoveCurrent :: (GObject a, MonadIO m) => a -> MenuShellMoveCurrentCallback -> m SignalHandlerId -afterMenuShellMoveCurrent obj cb = connectMenuShellMoveCurrent obj cb SignalConnectAfter - -connectMenuShellMoveCurrent :: (GObject a, MonadIO m) => - a -> MenuShellMoveCurrentCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellMoveCurrent obj cb after = liftIO $ do - cb' <- mkMenuShellMoveCurrentCallback (menuShellMoveCurrentCallbackWrapper cb) - connectSignalFunPtr obj "move-current" cb' after - --- signal MenuShell::move-selected -type MenuShellMoveSelectedCallback = - Int32 -> - IO Bool - -noMenuShellMoveSelectedCallback :: Maybe MenuShellMoveSelectedCallback -noMenuShellMoveSelectedCallback = Nothing - -type MenuShellMoveSelectedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkMenuShellMoveSelectedCallback :: MenuShellMoveSelectedCallbackC -> IO (FunPtr MenuShellMoveSelectedCallbackC) - -menuShellMoveSelectedClosure :: MenuShellMoveSelectedCallback -> IO Closure -menuShellMoveSelectedClosure cb = newCClosure =<< mkMenuShellMoveSelectedCallback wrapped - where wrapped = menuShellMoveSelectedCallbackWrapper cb - -menuShellMoveSelectedCallbackWrapper :: - MenuShellMoveSelectedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO CInt -menuShellMoveSelectedCallbackWrapper _cb _ distance _ = do - result <- _cb distance - let result' = (fromIntegral . fromEnum) result - return result' - -onMenuShellMoveSelected :: (GObject a, MonadIO m) => a -> MenuShellMoveSelectedCallback -> m SignalHandlerId -onMenuShellMoveSelected obj cb = liftIO $ connectMenuShellMoveSelected obj cb SignalConnectBefore -afterMenuShellMoveSelected :: (GObject a, MonadIO m) => a -> MenuShellMoveSelectedCallback -> m SignalHandlerId -afterMenuShellMoveSelected obj cb = connectMenuShellMoveSelected obj cb SignalConnectAfter - -connectMenuShellMoveSelected :: (GObject a, MonadIO m) => - a -> MenuShellMoveSelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellMoveSelected obj cb after = liftIO $ do - cb' <- mkMenuShellMoveSelectedCallback (menuShellMoveSelectedCallbackWrapper cb) - connectSignalFunPtr obj "move-selected" cb' after - --- signal MenuShell::selection-done -type MenuShellSelectionDoneCallback = - IO () - -noMenuShellSelectionDoneCallback :: Maybe MenuShellSelectionDoneCallback -noMenuShellSelectionDoneCallback = Nothing - -type MenuShellSelectionDoneCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuShellSelectionDoneCallback :: MenuShellSelectionDoneCallbackC -> IO (FunPtr MenuShellSelectionDoneCallbackC) - -menuShellSelectionDoneClosure :: MenuShellSelectionDoneCallback -> IO Closure -menuShellSelectionDoneClosure cb = newCClosure =<< mkMenuShellSelectionDoneCallback wrapped - where wrapped = menuShellSelectionDoneCallbackWrapper cb - -menuShellSelectionDoneCallbackWrapper :: - MenuShellSelectionDoneCallback -> - Ptr () -> - Ptr () -> - IO () -menuShellSelectionDoneCallbackWrapper _cb _ _ = do - _cb - -onMenuShellSelectionDone :: (GObject a, MonadIO m) => a -> MenuShellSelectionDoneCallback -> m SignalHandlerId -onMenuShellSelectionDone obj cb = liftIO $ connectMenuShellSelectionDone obj cb SignalConnectBefore -afterMenuShellSelectionDone :: (GObject a, MonadIO m) => a -> MenuShellSelectionDoneCallback -> m SignalHandlerId -afterMenuShellSelectionDone obj cb = connectMenuShellSelectionDone obj cb SignalConnectAfter - -connectMenuShellSelectionDone :: (GObject a, MonadIO m) => - a -> MenuShellSelectionDoneCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuShellSelectionDone obj cb after = liftIO $ do - cb' <- mkMenuShellSelectionDoneCallback (menuShellSelectionDoneCallbackWrapper cb) - connectSignalFunPtr obj "selection-done" cb' after - --- VVV Prop "take-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMenuShellTakeFocus :: (MonadIO m, MenuShellK o) => o -> m Bool -getMenuShellTakeFocus obj = liftIO $ getObjectPropertyBool obj "take-focus" - -setMenuShellTakeFocus :: (MonadIO m, MenuShellK o) => o -> Bool -> m () -setMenuShellTakeFocus obj val = liftIO $ setObjectPropertyBool obj "take-focus" val - -constructMenuShellTakeFocus :: Bool -> IO ([Char], GValue) -constructMenuShellTakeFocus val = constructObjectPropertyBool "take-focus" val - -data MenuShellTakeFocusPropertyInfo -instance AttrInfo MenuShellTakeFocusPropertyInfo where - type AttrAllowedOps MenuShellTakeFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuShellTakeFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MenuShellTakeFocusPropertyInfo = MenuShellK - type AttrGetType MenuShellTakeFocusPropertyInfo = Bool - type AttrLabel MenuShellTakeFocusPropertyInfo = "take-focus" - attrGet _ = getMenuShellTakeFocus - attrSet _ = setMenuShellTakeFocus - attrConstruct _ = constructMenuShellTakeFocus - attrClear _ = undefined - -type instance AttributeList MenuShell = MenuShellAttributeList -type MenuShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -menuShellTakeFocus :: AttrLabelProxy "takeFocus" -menuShellTakeFocus = AttrLabelProxy - -data MenuShellActivateCurrentSignalInfo -instance SignalInfo MenuShellActivateCurrentSignalInfo where - type HaskellCallbackType MenuShellActivateCurrentSignalInfo = MenuShellActivateCurrentCallback - connectSignal _ = connectMenuShellActivateCurrent - -data MenuShellCancelSignalInfo -instance SignalInfo MenuShellCancelSignalInfo where - type HaskellCallbackType MenuShellCancelSignalInfo = MenuShellCancelCallback - connectSignal _ = connectMenuShellCancel - -data MenuShellCycleFocusSignalInfo -instance SignalInfo MenuShellCycleFocusSignalInfo where - type HaskellCallbackType MenuShellCycleFocusSignalInfo = MenuShellCycleFocusCallback - connectSignal _ = connectMenuShellCycleFocus - -data MenuShellDeactivateSignalInfo -instance SignalInfo MenuShellDeactivateSignalInfo where - type HaskellCallbackType MenuShellDeactivateSignalInfo = MenuShellDeactivateCallback - connectSignal _ = connectMenuShellDeactivate - -data MenuShellInsertSignalInfo -instance SignalInfo MenuShellInsertSignalInfo where - type HaskellCallbackType MenuShellInsertSignalInfo = MenuShellInsertCallback - connectSignal _ = connectMenuShellInsert - -data MenuShellMoveCurrentSignalInfo -instance SignalInfo MenuShellMoveCurrentSignalInfo where - type HaskellCallbackType MenuShellMoveCurrentSignalInfo = MenuShellMoveCurrentCallback - connectSignal _ = connectMenuShellMoveCurrent - -data MenuShellMoveSelectedSignalInfo -instance SignalInfo MenuShellMoveSelectedSignalInfo where - type HaskellCallbackType MenuShellMoveSelectedSignalInfo = MenuShellMoveSelectedCallback - connectSignal _ = connectMenuShellMoveSelected - -data MenuShellSelectionDoneSignalInfo -instance SignalInfo MenuShellSelectionDoneSignalInfo where - type HaskellCallbackType MenuShellSelectionDoneSignalInfo = MenuShellSelectionDoneCallback - connectSignal _ = connectMenuShellSelectionDone - -type instance SignalList MenuShell = MenuShellSignalList -type MenuShellSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MenuShell::activate_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_deactivate", 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 "gtk_menu_shell_activate_item" gtk_menu_shell_activate_item :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget" - CInt -> -- force_deactivate : TBasicType TBoolean - IO () - - -menuShellActivateItem :: - (MonadIO m, MenuShellK a, WidgetK b) => - a -- _obj - -> b -- menuItem - -> Bool -- forceDeactivate - -> m () -- result -menuShellActivateItem _obj menuItem forceDeactivate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menuItem' = unsafeManagedPtrCastPtr menuItem - let forceDeactivate' = (fromIntegral . fromEnum) forceDeactivate - gtk_menu_shell_activate_item _obj' menuItem' forceDeactivate' - touchManagedPtr _obj - touchManagedPtr menuItem - return () - -data MenuShellActivateItemMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellActivateItemMethodInfo a signature where - overloadedMethod _ = menuShellActivateItem - --- method MenuShell::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "MenuItem", 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 "gtk_menu_shell_append" gtk_menu_shell_append :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr MenuItem -> -- child : TInterface "Gtk" "MenuItem" - IO () - - -menuShellAppend :: - (MonadIO m, MenuShellK a, MenuItemK b) => - a -- _obj - -> b -- child - -> m () -- result -menuShellAppend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_shell_append _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data MenuShellAppendMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, MenuItemK b) => MethodInfo MenuShellAppendMethodInfo a signature where - overloadedMethod _ = menuShellAppend - --- method MenuShell::bind_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "with_separators", 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 "gtk_menu_shell_bind_model" gtk_menu_shell_bind_model :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel" - CString -> -- action_namespace : TBasicType TUTF8 - CInt -> -- with_separators : TBasicType TBoolean - IO () - - -menuShellBindModel :: - (MonadIO m, MenuShellK a, Gio.MenuModelK b) => - a -- _obj - -> Maybe (b) -- model - -> Maybe (T.Text) -- actionNamespace - -> Bool -- withSeparators - -> m () -- result -menuShellBindModel _obj model actionNamespace withSeparators = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - maybeActionNamespace <- case actionNamespace of - Nothing -> return nullPtr - Just jActionNamespace -> do - jActionNamespace' <- textToCString jActionNamespace - return jActionNamespace' - let withSeparators' = (fromIntegral . fromEnum) withSeparators - gtk_menu_shell_bind_model _obj' maybeModel maybeActionNamespace withSeparators' - touchManagedPtr _obj - whenJust model touchManagedPtr - freeMem maybeActionNamespace - return () - -data MenuShellBindModelMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> Bool -> m ()), MonadIO m, MenuShellK a, Gio.MenuModelK b) => MethodInfo MenuShellBindModelMethodInfo a signature where - overloadedMethod _ = menuShellBindModel - --- method MenuShell::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", 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 "gtk_menu_shell_cancel" gtk_menu_shell_cancel :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO () - - -menuShellCancel :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m () -- result -menuShellCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_cancel _obj' - touchManagedPtr _obj - return () - -data MenuShellCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellCancelMethodInfo a signature where - overloadedMethod _ = menuShellCancel - --- method MenuShell::deactivate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", 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 "gtk_menu_shell_deactivate" gtk_menu_shell_deactivate :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO () - - -menuShellDeactivate :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m () -- result -menuShellDeactivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_deactivate _obj' - touchManagedPtr _obj - return () - -data MenuShellDeactivateMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellDeactivateMethodInfo a signature where - overloadedMethod _ = menuShellDeactivate - --- method MenuShell::deselect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", 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 "gtk_menu_shell_deselect" gtk_menu_shell_deselect :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO () - - -menuShellDeselect :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m () -- result -menuShellDeselect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_deselect _obj' - touchManagedPtr _obj - return () - -data MenuShellDeselectMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellDeselectMethodInfo a signature where - overloadedMethod _ = menuShellDeselect - --- method MenuShell::get_parent_shell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_shell_get_parent_shell" gtk_menu_shell_get_parent_shell :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO (Ptr Widget) - - -menuShellGetParentShell :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m Widget -- result -menuShellGetParentShell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_shell_get_parent_shell _obj' - checkUnexpectedReturnNULL "gtk_menu_shell_get_parent_shell" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuShellGetParentShellMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetParentShellMethodInfo a signature where - overloadedMethod _ = menuShellGetParentShell - --- method MenuShell::get_selected_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_shell_get_selected_item" gtk_menu_shell_get_selected_item :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO (Ptr Widget) - - -menuShellGetSelectedItem :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m Widget -- result -menuShellGetSelectedItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_shell_get_selected_item _obj' - checkUnexpectedReturnNULL "gtk_menu_shell_get_selected_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuShellGetSelectedItemMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetSelectedItemMethodInfo a signature where - overloadedMethod _ = menuShellGetSelectedItem - --- method MenuShell::get_take_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", 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 "gtk_menu_shell_get_take_focus" gtk_menu_shell_get_take_focus :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - IO CInt - - -menuShellGetTakeFocus :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> m Bool -- result -menuShellGetTakeFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_shell_get_take_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuShellGetTakeFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetTakeFocusMethodInfo a signature where - overloadedMethod _ = menuShellGetTakeFocus - --- method MenuShell::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_menu_shell_insert" gtk_menu_shell_insert :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -menuShellInsert :: - (MonadIO m, MenuShellK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -menuShellInsert _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_shell_insert _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data MenuShellInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellInsertMethodInfo a signature where - overloadedMethod _ = menuShellInsert - --- method MenuShell::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_menu_shell_prepend" gtk_menu_shell_prepend :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -menuShellPrepend :: - (MonadIO m, MenuShellK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -menuShellPrepend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_shell_prepend _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data MenuShellPrependMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellPrependMethodInfo a signature where - overloadedMethod _ = menuShellPrepend - --- method MenuShell::select_first --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_sensitive", 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 "gtk_menu_shell_select_first" gtk_menu_shell_select_first :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - CInt -> -- search_sensitive : TBasicType TBoolean - IO () - - -menuShellSelectFirst :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> Bool -- searchSensitive - -> m () -- result -menuShellSelectFirst _obj searchSensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let searchSensitive' = (fromIntegral . fromEnum) searchSensitive - gtk_menu_shell_select_first _obj' searchSensitive' - touchManagedPtr _obj - return () - -data MenuShellSelectFirstMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellSelectFirstMethodInfo a signature where - overloadedMethod _ = menuShellSelectFirst - --- method MenuShell::select_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", 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 "gtk_menu_shell_select_item" gtk_menu_shell_select_item :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget" - IO () - - -menuShellSelectItem :: - (MonadIO m, MenuShellK a, WidgetK b) => - a -- _obj - -> b -- menuItem - -> m () -- result -menuShellSelectItem _obj menuItem = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menuItem' = unsafeManagedPtrCastPtr menuItem - gtk_menu_shell_select_item _obj' menuItem' - touchManagedPtr _obj - touchManagedPtr menuItem - return () - -data MenuShellSelectItemMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellSelectItemMethodInfo a signature where - overloadedMethod _ = menuShellSelectItem - --- method MenuShell::set_take_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "take_focus", 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 "gtk_menu_shell_set_take_focus" gtk_menu_shell_set_take_focus :: - Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" - CInt -> -- take_focus : TBasicType TBoolean - IO () - - -menuShellSetTakeFocus :: - (MonadIO m, MenuShellK a) => - a -- _obj - -> Bool -- takeFocus - -> m () -- result -menuShellSetTakeFocus _obj takeFocus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let takeFocus' = (fromIntegral . fromEnum) takeFocus - gtk_menu_shell_set_take_focus _obj' takeFocus' - touchManagedPtr _obj - return () - -data MenuShellSetTakeFocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellSetTakeFocusMethodInfo a signature where - overloadedMethod _ = menuShellSetTakeFocus - - diff --git a/GI/Gtk/Objects/MenuShell.hs-boot b/GI/Gtk/Objects/MenuShell.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuShell.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Objects.MenuShell 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 MenuShell = MenuShell (ForeignPtr MenuShell) -instance GObject MenuShell where -class GObject o => MenuShellK o -instance (GObject o, IsDescendantOf MenuShell o) => MenuShellK o -data MenuShellTakeFocusPropertyInfo -data MenuShellActivateCurrentSignalInfo -data MenuShellCancelSignalInfo -data MenuShellCycleFocusSignalInfo -data MenuShellDeactivateSignalInfo -data MenuShellInsertSignalInfo -data MenuShellMoveCurrentSignalInfo -data MenuShellMoveSelectedSignalInfo -data MenuShellSelectionDoneSignalInfo -data MenuShellActivateItemMethodInfo -data MenuShellAppendMethodInfo -data MenuShellBindModelMethodInfo -data MenuShellCancelMethodInfo -data MenuShellDeactivateMethodInfo -data MenuShellDeselectMethodInfo -data MenuShellGetParentShellMethodInfo -data MenuShellGetSelectedItemMethodInfo -data MenuShellGetTakeFocusMethodInfo -data MenuShellInsertMethodInfo -data MenuShellPrependMethodInfo -data MenuShellSelectFirstMethodInfo -data MenuShellSelectItemMethodInfo -data MenuShellSetTakeFocusMethodInfo diff --git a/GI/Gtk/Objects/MenuShellAccessible.hs b/GI/Gtk/Objects/MenuShellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuShellAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.MenuShellAccessible - ( - --- * Exported types - MenuShellAccessible(..) , - MenuShellAccessibleK , - toMenuShellAccessible , - noMenuShellAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuShellAccessible = MenuShellAccessible (ForeignPtr MenuShellAccessible) -foreign import ccall "gtk_menu_shell_accessible_get_type" - c_gtk_menu_shell_accessible_get_type :: IO GType - -type instance ParentTypes MenuShellAccessible = MenuShellAccessibleParentTypes -type MenuShellAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject MenuShellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_menu_shell_accessible_get_type - - -class GObject o => MenuShellAccessibleK o -instance (GObject o, IsDescendantOf MenuShellAccessible o) => MenuShellAccessibleK o - -toMenuShellAccessible :: MenuShellAccessibleK o => o -> IO MenuShellAccessible -toMenuShellAccessible = unsafeCastTo MenuShellAccessible - -noMenuShellAccessible :: Maybe MenuShellAccessible -noMenuShellAccessible = Nothing - -type family ResolveMenuShellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuShellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveMenuShellAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveMenuShellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuShellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuShellAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveMenuShellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveMenuShellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveMenuShellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuShellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuShellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveMenuShellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveMenuShellAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveMenuShellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuShellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuShellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuShellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveMenuShellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveMenuShellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuShellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveMenuShellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveMenuShellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveMenuShellAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveMenuShellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuShellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveMenuShellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveMenuShellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveMenuShellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveMenuShellAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveMenuShellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuShellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuShellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuShellAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveMenuShellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuShellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuShellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuShellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuShellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuShellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveMenuShellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveMenuShellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuShellAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveMenuShellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveMenuShellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveMenuShellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveMenuShellAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveMenuShellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveMenuShellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveMenuShellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveMenuShellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuShellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuShellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveMenuShellAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveMenuShellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveMenuShellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveMenuShellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuShellAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveMenuShellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveMenuShellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveMenuShellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveMenuShellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveMenuShellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuShellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveMenuShellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveMenuShellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveMenuShellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuShellAccessibleMethod t MenuShellAccessible, MethodInfo info MenuShellAccessible p) => IsLabelProxy t (MenuShellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuShellAccessibleMethod t MenuShellAccessible, MethodInfo info MenuShellAccessible p) => IsLabel t (MenuShellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuShellAccessible = MenuShellAccessibleAttributeList -type MenuShellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuShellAccessible = MenuShellAccessibleSignalList -type MenuShellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/MenuShellAccessible.hs-boot b/GI/Gtk/Objects/MenuShellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuShellAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.MenuShellAccessible 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 MenuShellAccessible = MenuShellAccessible (ForeignPtr MenuShellAccessible) -instance GObject MenuShellAccessible where -class GObject o => MenuShellAccessibleK o -instance (GObject o, IsDescendantOf MenuShellAccessible o) => MenuShellAccessibleK o diff --git a/GI/Gtk/Objects/MenuToolButton.hs b/GI/Gtk/Objects/MenuToolButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MenuToolButton.hs +++ /dev/null @@ -1,750 +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.Gtk.Objects.MenuToolButton - ( - --- * Exported types - MenuToolButton(..) , - MenuToolButtonK , - toMenuToolButton , - noMenuToolButton , - - - -- * Methods --- ** menuToolButtonGetMenu - MenuToolButtonGetMenuMethodInfo , - menuToolButtonGetMenu , - - --- ** menuToolButtonNew - menuToolButtonNew , - - --- ** menuToolButtonNewFromStock - menuToolButtonNewFromStock , - - --- ** menuToolButtonSetArrowTooltipMarkup - MenuToolButtonSetArrowTooltipMarkupMethodInfo, - menuToolButtonSetArrowTooltipMarkup , - - --- ** menuToolButtonSetArrowTooltipText - MenuToolButtonSetArrowTooltipTextMethodInfo, - menuToolButtonSetArrowTooltipText , - - --- ** menuToolButtonSetMenu - MenuToolButtonSetMenuMethodInfo , - menuToolButtonSetMenu , - - - - - -- * Properties --- ** Menu - MenuToolButtonMenuPropertyInfo , - clearMenuToolButtonMenu , - constructMenuToolButtonMenu , - getMenuToolButtonMenu , - menuToolButtonMenu , - setMenuToolButtonMenu , - - - - - -- * Signals --- ** ShowMenu - MenuToolButtonShowMenuCallback , - MenuToolButtonShowMenuCallbackC , - MenuToolButtonShowMenuSignalInfo , - afterMenuToolButtonShowMenu , - menuToolButtonShowMenuCallbackWrapper , - menuToolButtonShowMenuClosure , - mkMenuToolButtonShowMenuCallback , - noMenuToolButtonShowMenuCallback , - onMenuToolButtonShowMenu , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MenuToolButton = MenuToolButton (ForeignPtr MenuToolButton) -foreign import ccall "gtk_menu_tool_button_get_type" - c_gtk_menu_tool_button_get_type :: IO GType - -type instance ParentTypes MenuToolButton = MenuToolButtonParentTypes -type MenuToolButtonParentTypes = '[ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject MenuToolButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_menu_tool_button_get_type - - -class GObject o => MenuToolButtonK o -instance (GObject o, IsDescendantOf MenuToolButton o) => MenuToolButtonK o - -toMenuToolButton :: MenuToolButtonK o => o -> IO MenuToolButton -toMenuToolButton = unsafeCastTo MenuToolButton - -noMenuToolButton :: Maybe MenuToolButton -noMenuToolButton = Nothing - -type family ResolveMenuToolButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuToolButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveMenuToolButtonMethod "add" o = ContainerAddMethodInfo - ResolveMenuToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMenuToolButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMenuToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMenuToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMenuToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMenuToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMenuToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMenuToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMenuToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMenuToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMenuToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMenuToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMenuToolButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMenuToolButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMenuToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMenuToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMenuToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMenuToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMenuToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMenuToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMenuToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMenuToolButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMenuToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMenuToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMenuToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveMenuToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMenuToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMenuToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMenuToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMenuToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMenuToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMenuToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMenuToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMenuToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMenuToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMenuToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMenuToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMenuToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMenuToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMenuToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMenuToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMenuToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMenuToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMenuToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMenuToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMenuToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMenuToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMenuToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMenuToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMenuToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMenuToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMenuToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMenuToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMenuToolButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveMenuToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMenuToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMenuToolButtonMethod "event" o = WidgetEventMethodInfo - ResolveMenuToolButtonMethod "forall" o = ContainerForallMethodInfo - ResolveMenuToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuToolButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveMenuToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMenuToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMenuToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMenuToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMenuToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMenuToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMenuToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMenuToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMenuToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMenuToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMenuToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMenuToolButtonMethod "hide" o = WidgetHideMethodInfo - ResolveMenuToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMenuToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMenuToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMenuToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMenuToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMenuToolButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMenuToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMenuToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMenuToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMenuToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMenuToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMenuToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMenuToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMenuToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMenuToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMenuToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMenuToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMenuToolButtonMethod "map" o = WidgetMapMethodInfo - ResolveMenuToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMenuToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMenuToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMenuToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMenuToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMenuToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMenuToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMenuToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMenuToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMenuToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMenuToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMenuToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMenuToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMenuToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMenuToolButtonMethod "path" o = WidgetPathMethodInfo - ResolveMenuToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMenuToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMenuToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMenuToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMenuToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMenuToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMenuToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMenuToolButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveMenuToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveMenuToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMenuToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMenuToolButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveMenuToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMenuToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMenuToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMenuToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMenuToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMenuToolButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveMenuToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMenuToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMenuToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMenuToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveMenuToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMenuToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMenuToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMenuToolButtonMethod "show" o = WidgetShowMethodInfo - ResolveMenuToolButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMenuToolButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMenuToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMenuToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMenuToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMenuToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMenuToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMenuToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveMenuToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMenuToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveMenuToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMenuToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMenuToolButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMenuToolButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMenuToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMenuToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMenuToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMenuToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMenuToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMenuToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMenuToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveMenuToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveMenuToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMenuToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMenuToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMenuToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMenuToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMenuToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMenuToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMenuToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMenuToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMenuToolButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveMenuToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMenuToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMenuToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMenuToolButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMenuToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMenuToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMenuToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMenuToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMenuToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMenuToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMenuToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMenuToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveMenuToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMenuToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveMenuToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMenuToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMenuToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMenuToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMenuToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMenuToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMenuToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMenuToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMenuToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMenuToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMenuToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMenuToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMenuToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveMenuToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo - ResolveMenuToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveMenuToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo - ResolveMenuToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMenuToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveMenuToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo - ResolveMenuToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo - ResolveMenuToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMenuToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMenuToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMenuToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMenuToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMenuToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMenuToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMenuToolButtonMethod "getMenu" o = MenuToolButtonGetMenuMethodInfo - ResolveMenuToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMenuToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMenuToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMenuToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMenuToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveMenuToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMenuToolButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMenuToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMenuToolButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMenuToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMenuToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMenuToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMenuToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMenuToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMenuToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMenuToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMenuToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMenuToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveMenuToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMenuToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMenuToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveMenuToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveMenuToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMenuToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMenuToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMenuToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMenuToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMenuToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMenuToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMenuToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMenuToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMenuToolButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveMenuToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMenuToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo - ResolveMenuToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMenuToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMenuToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMenuToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMenuToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveMenuToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveMenuToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveMenuToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveMenuToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMenuToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMenuToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMenuToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMenuToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveMenuToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveMenuToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo - ResolveMenuToolButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMenuToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMenuToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMenuToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMenuToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMenuToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveMenuToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveMenuToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMenuToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMenuToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMenuToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveMenuToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveMenuToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMenuToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMenuToolButtonMethod "setArrowTooltipMarkup" o = MenuToolButtonSetArrowTooltipMarkupMethodInfo - ResolveMenuToolButtonMethod "setArrowTooltipText" o = MenuToolButtonSetArrowTooltipTextMethodInfo - ResolveMenuToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMenuToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMenuToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMenuToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMenuToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMenuToolButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMenuToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMenuToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveMenuToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMenuToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMenuToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMenuToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMenuToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMenuToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveMenuToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMenuToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMenuToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMenuToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMenuToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMenuToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMenuToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMenuToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMenuToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMenuToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMenuToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMenuToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveMenuToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo - ResolveMenuToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo - ResolveMenuToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveMenuToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo - ResolveMenuToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo - ResolveMenuToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMenuToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMenuToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMenuToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMenuToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMenuToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMenuToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMenuToolButtonMethod "setMenu" o = MenuToolButtonSetMenuMethodInfo - ResolveMenuToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMenuToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMenuToolButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMenuToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMenuToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveMenuToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMenuToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMenuToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMenuToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMenuToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveMenuToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMenuToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMenuToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMenuToolButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveMenuToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMenuToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo - ResolveMenuToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMenuToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMenuToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMenuToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveMenuToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveMenuToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo - ResolveMenuToolButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMenuToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMenuToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMenuToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMenuToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveMenuToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveMenuToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMenuToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMenuToolButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuToolButtonMethod t MenuToolButton, MethodInfo info MenuToolButton p) => IsLabelProxy t (MenuToolButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuToolButtonMethod t MenuToolButton, MethodInfo info MenuToolButton p) => IsLabel t (MenuToolButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal MenuToolButton::show-menu -type MenuToolButtonShowMenuCallback = - IO () - -noMenuToolButtonShowMenuCallback :: Maybe MenuToolButtonShowMenuCallback -noMenuToolButtonShowMenuCallback = Nothing - -type MenuToolButtonShowMenuCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuToolButtonShowMenuCallback :: MenuToolButtonShowMenuCallbackC -> IO (FunPtr MenuToolButtonShowMenuCallbackC) - -menuToolButtonShowMenuClosure :: MenuToolButtonShowMenuCallback -> IO Closure -menuToolButtonShowMenuClosure cb = newCClosure =<< mkMenuToolButtonShowMenuCallback wrapped - where wrapped = menuToolButtonShowMenuCallbackWrapper cb - -menuToolButtonShowMenuCallbackWrapper :: - MenuToolButtonShowMenuCallback -> - Ptr () -> - Ptr () -> - IO () -menuToolButtonShowMenuCallbackWrapper _cb _ _ = do - _cb - -onMenuToolButtonShowMenu :: (GObject a, MonadIO m) => a -> MenuToolButtonShowMenuCallback -> m SignalHandlerId -onMenuToolButtonShowMenu obj cb = liftIO $ connectMenuToolButtonShowMenu obj cb SignalConnectBefore -afterMenuToolButtonShowMenu :: (GObject a, MonadIO m) => a -> MenuToolButtonShowMenuCallback -> m SignalHandlerId -afterMenuToolButtonShowMenu obj cb = connectMenuToolButtonShowMenu obj cb SignalConnectAfter - -connectMenuToolButtonShowMenu :: (GObject a, MonadIO m) => - a -> MenuToolButtonShowMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuToolButtonShowMenu obj cb after = liftIO $ do - cb' <- mkMenuToolButtonShowMenuCallback (menuToolButtonShowMenuCallbackWrapper cb) - connectSignalFunPtr obj "show-menu" cb' after - --- VVV Prop "menu" - -- Type: TInterface "Gtk" "Menu" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m (Maybe Menu) -getMenuToolButtonMenu obj = liftIO $ getObjectPropertyObject obj "menu" Menu - -setMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o, MenuK a) => o -> a -> m () -setMenuToolButtonMenu obj val = liftIO $ setObjectPropertyObject obj "menu" (Just val) - -constructMenuToolButtonMenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" (Just val) - -clearMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m () -clearMenuToolButtonMenu obj = liftIO $ setObjectPropertyObject obj "menu" (Nothing :: Maybe Menu) - -data MenuToolButtonMenuPropertyInfo -instance AttrInfo MenuToolButtonMenuPropertyInfo where - type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK - type AttrGetType MenuToolButtonMenuPropertyInfo = (Maybe Menu) - type AttrLabel MenuToolButtonMenuPropertyInfo = "menu" - attrGet _ = getMenuToolButtonMenu - attrSet _ = setMenuToolButtonMenu - attrConstruct _ = constructMenuToolButtonMenu - attrClear _ = clearMenuToolButtonMenu - -type instance AttributeList MenuToolButton = MenuToolButtonAttributeList -type MenuToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -menuToolButtonMenu :: AttrLabelProxy "menu" -menuToolButtonMenu = AttrLabelProxy - -data MenuToolButtonShowMenuSignalInfo -instance SignalInfo MenuToolButtonShowMenuSignalInfo where - type HaskellCallbackType MenuToolButtonShowMenuSignalInfo = MenuToolButtonShowMenuCallback - connectSignal _ = connectMenuToolButtonShowMenu - -type instance SignalList MenuToolButton = MenuToolButtonSignalList -type MenuToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showMenu", MenuToolButtonShowMenuSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MenuToolButton::new --- method type : Constructor --- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_tool_button_new" gtk_menu_tool_button_new :: - Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget" - CString -> -- label : TBasicType TUTF8 - IO (Ptr MenuToolButton) - - -menuToolButtonNew :: - (MonadIO m, WidgetK a) => - Maybe (a) -- iconWidget - -> Maybe (T.Text) -- label - -> m MenuToolButton -- result -menuToolButtonNew iconWidget label = liftIO $ do - maybeIconWidget <- case iconWidget of - Nothing -> return nullPtr - Just jIconWidget -> do - let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget - return jIconWidget' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_menu_tool_button_new maybeIconWidget maybeLabel - checkUnexpectedReturnNULL "gtk_menu_tool_button_new" result - result' <- (newObject MenuToolButton) result - whenJust iconWidget touchManagedPtr - freeMem maybeLabel - return result' - --- method MenuToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MenuToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_tool_button_new_from_stock" gtk_menu_tool_button_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr MenuToolButton) - -{-# DEPRECATED menuToolButtonNewFromStock ["(Since version 3.10)","Use gtk_menu_tool_button_new() instead."]#-} -menuToolButtonNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> m MenuToolButton -- result -menuToolButtonNewFromStock stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_menu_tool_button_new_from_stock stockId' - checkUnexpectedReturnNULL "gtk_menu_tool_button_new_from_stock" result - result' <- (newObject MenuToolButton) result - freeMem stockId' - return result' - --- method MenuToolButton::get_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_tool_button_get_menu" gtk_menu_tool_button_get_menu :: - Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton" - IO (Ptr Widget) - - -menuToolButtonGetMenu :: - (MonadIO m, MenuToolButtonK a) => - a -- _obj - -> m Widget -- result -menuToolButtonGetMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_tool_button_get_menu _obj' - checkUnexpectedReturnNULL "gtk_menu_tool_button_get_menu" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MenuToolButtonGetMenuMethodInfo -instance (signature ~ (m Widget), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonGetMenuMethodInfo a signature where - overloadedMethod _ = menuToolButtonGetMenu - --- method MenuToolButton::set_arrow_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", 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 "gtk_menu_tool_button_set_arrow_tooltip_markup" gtk_menu_tool_button_set_arrow_tooltip_markup :: - Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton" - CString -> -- markup : TBasicType TUTF8 - IO () - - -menuToolButtonSetArrowTooltipMarkup :: - (MonadIO m, MenuToolButtonK a) => - a -- _obj - -> T.Text -- markup - -> m () -- result -menuToolButtonSetArrowTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - markup' <- textToCString markup - gtk_menu_tool_button_set_arrow_tooltip_markup _obj' markup' - touchManagedPtr _obj - freeMem markup' - return () - -data MenuToolButtonSetArrowTooltipMarkupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonSetArrowTooltipMarkupMethodInfo a signature where - overloadedMethod _ = menuToolButtonSetArrowTooltipMarkup - --- method MenuToolButton::set_arrow_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_menu_tool_button_set_arrow_tooltip_text" gtk_menu_tool_button_set_arrow_tooltip_text :: - Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton" - CString -> -- text : TBasicType TUTF8 - IO () - - -menuToolButtonSetArrowTooltipText :: - (MonadIO m, MenuToolButtonK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -menuToolButtonSetArrowTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_menu_tool_button_set_arrow_tooltip_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data MenuToolButtonSetArrowTooltipTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonSetArrowTooltipTextMethodInfo a signature where - overloadedMethod _ = menuToolButtonSetArrowTooltipText - --- method MenuToolButton::set_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", 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 "gtk_menu_tool_button_set_menu" gtk_menu_tool_button_set_menu :: - Ptr MenuToolButton -> -- _obj : TInterface "Gtk" "MenuToolButton" - Ptr Widget -> -- menu : TInterface "Gtk" "Widget" - IO () - - -menuToolButtonSetMenu :: - (MonadIO m, MenuToolButtonK a, WidgetK b) => - a -- _obj - -> b -- menu - -> m () -- result -menuToolButtonSetMenu _obj menu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menu' = unsafeManagedPtrCastPtr menu - gtk_menu_tool_button_set_menu _obj' menu' - touchManagedPtr _obj - touchManagedPtr menu - return () - -data MenuToolButtonSetMenuMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuToolButtonK a, WidgetK b) => MethodInfo MenuToolButtonSetMenuMethodInfo a signature where - overloadedMethod _ = menuToolButtonSetMenu - - diff --git a/GI/Gtk/Objects/MenuToolButton.hs-boot b/GI/Gtk/Objects/MenuToolButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MenuToolButton.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Objects.MenuToolButton 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 MenuToolButton = MenuToolButton (ForeignPtr MenuToolButton) -instance GObject MenuToolButton where -class GObject o => MenuToolButtonK o -instance (GObject o, IsDescendantOf MenuToolButton o) => MenuToolButtonK o -data MenuToolButtonMenuPropertyInfo -data MenuToolButtonShowMenuSignalInfo -data MenuToolButtonGetMenuMethodInfo -data MenuToolButtonSetArrowTooltipMarkupMethodInfo -data MenuToolButtonSetArrowTooltipTextMethodInfo -data MenuToolButtonSetMenuMethodInfo diff --git a/GI/Gtk/Objects/MessageDialog.hs b/GI/Gtk/Objects/MessageDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MessageDialog.hs +++ /dev/null @@ -1,934 +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.Gtk.Objects.MessageDialog - ( - --- * Exported types - MessageDialog(..) , - MessageDialogK , - toMessageDialog , - noMessageDialog , - - - -- * Methods --- ** messageDialogGetImage - MessageDialogGetImageMethodInfo , - messageDialogGetImage , - - --- ** messageDialogGetMessageArea - MessageDialogGetMessageAreaMethodInfo , - messageDialogGetMessageArea , - - --- ** messageDialogSetImage - MessageDialogSetImageMethodInfo , - messageDialogSetImage , - - --- ** messageDialogSetMarkup - MessageDialogSetMarkupMethodInfo , - messageDialogSetMarkup , - - - - - -- * Properties --- ** Buttons - MessageDialogButtonsPropertyInfo , - constructMessageDialogButtons , - messageDialogButtons , - - --- ** Image - MessageDialogImagePropertyInfo , - constructMessageDialogImage , - getMessageDialogImage , - messageDialogImage , - setMessageDialogImage , - - --- ** MessageArea - MessageDialogMessageAreaPropertyInfo , - getMessageDialogMessageArea , - messageDialogMessageArea , - - --- ** MessageType - MessageDialogMessageTypePropertyInfo , - constructMessageDialogMessageType , - getMessageDialogMessageType , - messageDialogMessageType , - setMessageDialogMessageType , - - --- ** SecondaryText - MessageDialogSecondaryTextPropertyInfo , - clearMessageDialogSecondaryText , - constructMessageDialogSecondaryText , - getMessageDialogSecondaryText , - messageDialogSecondaryText , - setMessageDialogSecondaryText , - - --- ** SecondaryUseMarkup - MessageDialogSecondaryUseMarkupPropertyInfo, - constructMessageDialogSecondaryUseMarkup, - getMessageDialogSecondaryUseMarkup , - messageDialogSecondaryUseMarkup , - setMessageDialogSecondaryUseMarkup , - - --- ** Text - MessageDialogTextPropertyInfo , - clearMessageDialogText , - constructMessageDialogText , - getMessageDialogText , - messageDialogText , - setMessageDialogText , - - --- ** UseMarkup - MessageDialogUseMarkupPropertyInfo , - constructMessageDialogUseMarkup , - getMessageDialogUseMarkup , - messageDialogUseMarkup , - setMessageDialogUseMarkup , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype MessageDialog = MessageDialog (ForeignPtr MessageDialog) -foreign import ccall "gtk_message_dialog_get_type" - c_gtk_message_dialog_get_type :: IO GType - -type instance ParentTypes MessageDialog = MessageDialogParentTypes -type MessageDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject MessageDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_message_dialog_get_type - - -class GObject o => MessageDialogK o -instance (GObject o, IsDescendantOf MessageDialog o) => MessageDialogK o - -toMessageDialog :: MessageDialogK o => o -> IO MessageDialog -toMessageDialog = unsafeCastTo MessageDialog - -noMessageDialog :: Maybe MessageDialog -noMessageDialog = Nothing - -type family ResolveMessageDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveMessageDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveMessageDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveMessageDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveMessageDialogMethod "add" o = ContainerAddMethodInfo - ResolveMessageDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveMessageDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMessageDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveMessageDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveMessageDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMessageDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMessageDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMessageDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveMessageDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMessageDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMessageDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveMessageDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveMessageDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMessageDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMessageDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMessageDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveMessageDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMessageDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveMessageDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveMessageDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveMessageDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveMessageDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMessageDialogMethod "close" o = WindowCloseMethodInfo - ResolveMessageDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMessageDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMessageDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMessageDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMessageDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMessageDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMessageDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMessageDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveMessageDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMessageDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMessageDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMessageDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMessageDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMessageDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMessageDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMessageDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMessageDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMessageDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMessageDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMessageDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMessageDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMessageDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMessageDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMessageDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMessageDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMessageDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMessageDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMessageDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMessageDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMessageDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMessageDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMessageDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMessageDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMessageDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMessageDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMessageDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMessageDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMessageDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMessageDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMessageDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveMessageDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMessageDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMessageDialogMethod "event" o = WidgetEventMethodInfo - ResolveMessageDialogMethod "forall" o = ContainerForallMethodInfo - ResolveMessageDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMessageDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveMessageDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMessageDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMessageDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveMessageDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveMessageDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMessageDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMessageDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMessageDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMessageDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMessageDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMessageDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMessageDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveMessageDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMessageDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMessageDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveMessageDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMessageDialogMethod "hide" o = WidgetHideMethodInfo - ResolveMessageDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMessageDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveMessageDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMessageDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMessageDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMessageDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMessageDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMessageDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveMessageDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMessageDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMessageDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMessageDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMessageDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMessageDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveMessageDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMessageDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMessageDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMessageDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMessageDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMessageDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMessageDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMessageDialogMethod "map" o = WidgetMapMethodInfo - ResolveMessageDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveMessageDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMessageDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMessageDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMessageDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMessageDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMessageDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMessageDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMessageDialogMethod "move" o = WindowMoveMethodInfo - ResolveMessageDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMessageDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMessageDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMessageDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMessageDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMessageDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMessageDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMessageDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveMessageDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMessageDialogMethod "path" o = WidgetPathMethodInfo - ResolveMessageDialogMethod "present" o = WindowPresentMethodInfo - ResolveMessageDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveMessageDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveMessageDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveMessageDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMessageDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMessageDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMessageDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMessageDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMessageDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMessageDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveMessageDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMessageDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMessageDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMessageDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMessageDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveMessageDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveMessageDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMessageDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveMessageDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMessageDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMessageDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMessageDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMessageDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveMessageDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMessageDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMessageDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMessageDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMessageDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveMessageDialogMethod "resize" o = WindowResizeMethodInfo - ResolveMessageDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveMessageDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveMessageDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveMessageDialogMethod "response" o = DialogResponseMethodInfo - ResolveMessageDialogMethod "run" o = DialogRunMethodInfo - ResolveMessageDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMessageDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMessageDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMessageDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMessageDialogMethod "show" o = WidgetShowMethodInfo - ResolveMessageDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMessageDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMessageDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMessageDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMessageDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMessageDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMessageDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMessageDialogMethod "stick" o = WindowStickMethodInfo - ResolveMessageDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMessageDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMessageDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMessageDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMessageDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMessageDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMessageDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveMessageDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMessageDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveMessageDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMessageDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMessageDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMessageDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMessageDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveMessageDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMessageDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveMessageDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMessageDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveMessageDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMessageDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveMessageDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMessageDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMessageDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMessageDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMessageDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMessageDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMessageDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMessageDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveMessageDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveMessageDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveMessageDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMessageDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMessageDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveMessageDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMessageDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMessageDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveMessageDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMessageDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMessageDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMessageDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveMessageDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMessageDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveMessageDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveMessageDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveMessageDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveMessageDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveMessageDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMessageDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMessageDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMessageDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMessageDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMessageDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMessageDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveMessageDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveMessageDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveMessageDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveMessageDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveMessageDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveMessageDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveMessageDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMessageDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMessageDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMessageDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveMessageDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveMessageDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMessageDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveMessageDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMessageDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMessageDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveMessageDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMessageDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMessageDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveMessageDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveMessageDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveMessageDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveMessageDialogMethod "getImage" o = MessageDialogGetImageMethodInfo - ResolveMessageDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMessageDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMessageDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMessageDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMessageDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMessageDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMessageDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMessageDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMessageDialogMethod "getMessageArea" o = MessageDialogGetMessageAreaMethodInfo - ResolveMessageDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveMessageDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveMessageDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveMessageDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMessageDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMessageDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMessageDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMessageDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMessageDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMessageDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMessageDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveMessageDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMessageDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveMessageDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMessageDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMessageDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMessageDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMessageDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMessageDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMessageDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMessageDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMessageDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMessageDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMessageDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMessageDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMessageDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveMessageDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveMessageDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveMessageDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveMessageDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveMessageDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMessageDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMessageDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMessageDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMessageDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveMessageDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMessageDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveMessageDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveMessageDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveMessageDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMessageDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMessageDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMessageDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMessageDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMessageDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveMessageDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveMessageDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMessageDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMessageDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMessageDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMessageDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveMessageDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveMessageDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveMessageDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMessageDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMessageDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMessageDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMessageDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMessageDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMessageDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveMessageDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMessageDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveMessageDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMessageDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveMessageDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMessageDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveMessageDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMessageDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveMessageDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveMessageDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveMessageDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMessageDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMessageDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMessageDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMessageDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMessageDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMessageDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMessageDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveMessageDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveMessageDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveMessageDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveMessageDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveMessageDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveMessageDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveMessageDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMessageDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMessageDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMessageDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMessageDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMessageDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveMessageDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveMessageDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveMessageDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveMessageDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveMessageDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveMessageDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveMessageDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMessageDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMessageDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveMessageDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveMessageDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMessageDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveMessageDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMessageDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveMessageDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMessageDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMessageDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMessageDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveMessageDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveMessageDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveMessageDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveMessageDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveMessageDialogMethod "setImage" o = MessageDialogSetImageMethodInfo - ResolveMessageDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveMessageDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveMessageDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMessageDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMessageDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMessageDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMessageDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMessageDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMessageDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMessageDialogMethod "setMarkup" o = MessageDialogSetMarkupMethodInfo - ResolveMessageDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveMessageDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveMessageDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveMessageDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMessageDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMessageDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMessageDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveMessageDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMessageDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMessageDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveMessageDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMessageDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMessageDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveMessageDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveMessageDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveMessageDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveMessageDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveMessageDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMessageDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMessageDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveMessageDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveMessageDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveMessageDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveMessageDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMessageDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMessageDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMessageDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveMessageDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveMessageDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMessageDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMessageDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMessageDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveMessageDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveMessageDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveMessageDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMessageDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMessageDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMessageDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMessageDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMessageDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveMessageDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveMessageDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageDialogMethod t MessageDialog, MethodInfo info MessageDialog p) => IsLabelProxy t (MessageDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageDialogMethod t MessageDialog, MethodInfo info MessageDialog p) => IsLabel t (MessageDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "buttons" - -- Type: TInterface "Gtk" "ButtonsType" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructMessageDialogButtons :: ButtonsType -> IO ([Char], GValue) -constructMessageDialogButtons val = constructObjectPropertyEnum "buttons" val - -data MessageDialogButtonsPropertyInfo -instance AttrInfo MessageDialogButtonsPropertyInfo where - type AttrAllowedOps MessageDialogButtonsPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint MessageDialogButtonsPropertyInfo = (~) ButtonsType - type AttrBaseTypeConstraint MessageDialogButtonsPropertyInfo = MessageDialogK - type AttrGetType MessageDialogButtonsPropertyInfo = () - type AttrLabel MessageDialogButtonsPropertyInfo = "buttons" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructMessageDialogButtons - attrClear _ = undefined - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMessageDialogImage :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogImage obj = liftIO $ checkUnexpectedNothing "getMessageDialogImage" $ getObjectPropertyObject obj "image" Widget - -setMessageDialogImage :: (MonadIO m, MessageDialogK o, WidgetK a) => o -> a -> m () -setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) - -constructMessageDialogImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructMessageDialogImage val = constructObjectPropertyObject "image" (Just val) - -data MessageDialogImagePropertyInfo -instance AttrInfo MessageDialogImagePropertyInfo where - type AttrAllowedOps MessageDialogImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogImagePropertyInfo = WidgetK - type AttrBaseTypeConstraint MessageDialogImagePropertyInfo = MessageDialogK - type AttrGetType MessageDialogImagePropertyInfo = Widget - type AttrLabel MessageDialogImagePropertyInfo = "image" - attrGet _ = getMessageDialogImage - attrSet _ = setMessageDialogImage - attrConstruct _ = constructMessageDialogImage - attrClear _ = undefined - --- VVV Prop "message-area" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getMessageDialogMessageArea :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogMessageArea obj = liftIO $ checkUnexpectedNothing "getMessageDialogMessageArea" $ getObjectPropertyObject obj "message-area" Widget - -data MessageDialogMessageAreaPropertyInfo -instance AttrInfo MessageDialogMessageAreaPropertyInfo where - type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK - type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget - type AttrLabel MessageDialogMessageAreaPropertyInfo = "message-area" - attrGet _ = getMessageDialogMessageArea - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "message-type" - -- Type: TInterface "Gtk" "MessageType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getMessageDialogMessageType :: (MonadIO m, MessageDialogK o) => o -> m MessageType -getMessageDialogMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type" - -setMessageDialogMessageType :: (MonadIO m, MessageDialogK o) => o -> MessageType -> m () -setMessageDialogMessageType obj val = liftIO $ setObjectPropertyEnum obj "message-type" val - -constructMessageDialogMessageType :: MessageType -> IO ([Char], GValue) -constructMessageDialogMessageType val = constructObjectPropertyEnum "message-type" val - -data MessageDialogMessageTypePropertyInfo -instance AttrInfo MessageDialogMessageTypePropertyInfo where - type AttrAllowedOps MessageDialogMessageTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogMessageTypePropertyInfo = (~) MessageType - type AttrBaseTypeConstraint MessageDialogMessageTypePropertyInfo = MessageDialogK - type AttrGetType MessageDialogMessageTypePropertyInfo = MessageType - type AttrLabel MessageDialogMessageTypePropertyInfo = "message-type" - attrGet _ = getMessageDialogMessageType - attrSet _ = setMessageDialogMessageType - attrConstruct _ = constructMessageDialogMessageType - attrClear _ = undefined - --- VVV Prop "secondary-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) -getMessageDialogSecondaryText obj = liftIO $ getObjectPropertyString obj "secondary-text" - -setMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () -setMessageDialogSecondaryText obj val = liftIO $ setObjectPropertyString obj "secondary-text" (Just val) - -constructMessageDialogSecondaryText :: T.Text -> IO ([Char], GValue) -constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" (Just val) - -clearMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m () -clearMessageDialogSecondaryText obj = liftIO $ setObjectPropertyString obj "secondary-text" (Nothing :: Maybe T.Text) - -data MessageDialogSecondaryTextPropertyInfo -instance AttrInfo MessageDialogSecondaryTextPropertyInfo where - type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogSecondaryTextPropertyInfo = (Maybe T.Text) - type AttrLabel MessageDialogSecondaryTextPropertyInfo = "secondary-text" - attrGet _ = getMessageDialogSecondaryText - attrSet _ = setMessageDialogSecondaryText - attrConstruct _ = constructMessageDialogSecondaryText - attrClear _ = clearMessageDialogSecondaryText - --- VVV Prop "secondary-use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageDialogSecondaryUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool -getMessageDialogSecondaryUseMarkup obj = liftIO $ getObjectPropertyBool obj "secondary-use-markup" - -setMessageDialogSecondaryUseMarkup :: (MonadIO m, MessageDialogK o) => o -> Bool -> m () -setMessageDialogSecondaryUseMarkup obj val = liftIO $ setObjectPropertyBool obj "secondary-use-markup" val - -constructMessageDialogSecondaryUseMarkup :: Bool -> IO ([Char], GValue) -constructMessageDialogSecondaryUseMarkup val = constructObjectPropertyBool "secondary-use-markup" val - -data MessageDialogSecondaryUseMarkupPropertyInfo -instance AttrInfo MessageDialogSecondaryUseMarkupPropertyInfo where - type AttrAllowedOps MessageDialogSecondaryUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogSecondaryUseMarkupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MessageDialogSecondaryUseMarkupPropertyInfo = MessageDialogK - type AttrGetType MessageDialogSecondaryUseMarkupPropertyInfo = Bool - type AttrLabel MessageDialogSecondaryUseMarkupPropertyInfo = "secondary-use-markup" - attrGet _ = getMessageDialogSecondaryUseMarkup - attrSet _ = setMessageDialogSecondaryUseMarkup - attrConstruct _ = constructMessageDialogSecondaryUseMarkup - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) -getMessageDialogText obj = liftIO $ getObjectPropertyString obj "text" - -setMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () -setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructMessageDialogText :: T.Text -> IO ([Char], GValue) -constructMessageDialogText val = constructObjectPropertyString "text" (Just val) - -clearMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m () -clearMessageDialogText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data MessageDialogTextPropertyInfo -instance AttrInfo MessageDialogTextPropertyInfo where - type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogTextPropertyInfo = (Maybe T.Text) - type AttrLabel MessageDialogTextPropertyInfo = "text" - attrGet _ = getMessageDialogText - attrSet _ = setMessageDialogText - attrConstruct _ = constructMessageDialogText - attrClear _ = clearMessageDialogText - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageDialogUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool -getMessageDialogUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" - -setMessageDialogUseMarkup :: (MonadIO m, MessageDialogK o) => o -> Bool -> m () -setMessageDialogUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val - -constructMessageDialogUseMarkup :: Bool -> IO ([Char], GValue) -constructMessageDialogUseMarkup val = constructObjectPropertyBool "use-markup" val - -data MessageDialogUseMarkupPropertyInfo -instance AttrInfo MessageDialogUseMarkupPropertyInfo where - type AttrAllowedOps MessageDialogUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogUseMarkupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MessageDialogUseMarkupPropertyInfo = MessageDialogK - type AttrGetType MessageDialogUseMarkupPropertyInfo = Bool - type AttrLabel MessageDialogUseMarkupPropertyInfo = "use-markup" - attrGet _ = getMessageDialogUseMarkup - attrSet _ = setMessageDialogUseMarkup - attrConstruct _ = constructMessageDialogUseMarkup - attrClear _ = undefined - -type instance AttributeList MessageDialog = MessageDialogAttributeList -type MessageDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageArea", MessageDialogMessageAreaPropertyInfo), '("messageType", MessageDialogMessageTypePropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondaryText", MessageDialogSecondaryTextPropertyInfo), '("secondaryUseMarkup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("useMarkup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -messageDialogButtons :: AttrLabelProxy "buttons" -messageDialogButtons = AttrLabelProxy - -messageDialogImage :: AttrLabelProxy "image" -messageDialogImage = AttrLabelProxy - -messageDialogMessageArea :: AttrLabelProxy "messageArea" -messageDialogMessageArea = AttrLabelProxy - -messageDialogMessageType :: AttrLabelProxy "messageType" -messageDialogMessageType = AttrLabelProxy - -messageDialogSecondaryText :: AttrLabelProxy "secondaryText" -messageDialogSecondaryText = AttrLabelProxy - -messageDialogSecondaryUseMarkup :: AttrLabelProxy "secondaryUseMarkup" -messageDialogSecondaryUseMarkup = AttrLabelProxy - -messageDialogText :: AttrLabelProxy "text" -messageDialogText = AttrLabelProxy - -messageDialogUseMarkup :: AttrLabelProxy "useMarkup" -messageDialogUseMarkup = AttrLabelProxy - -type instance SignalList MessageDialog = MessageDialogSignalList -type MessageDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method MessageDialog::get_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_message_dialog_get_image" gtk_message_dialog_get_image :: - Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog" - IO (Ptr Widget) - -{-# DEPRECATED messageDialogGetImage ["(Since version 3.12)","Use #GtkDialog for dialogs with images"]#-} -messageDialogGetImage :: - (MonadIO m, MessageDialogK a) => - a -- _obj - -> m Widget -- result -messageDialogGetImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_message_dialog_get_image _obj' - checkUnexpectedReturnNULL "gtk_message_dialog_get_image" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MessageDialogGetImageMethodInfo -instance (signature ~ (m Widget), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogGetImageMethodInfo a signature where - overloadedMethod _ = messageDialogGetImage - --- method MessageDialog::get_message_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_message_dialog_get_message_area" gtk_message_dialog_get_message_area :: - Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog" - IO (Ptr Widget) - - -messageDialogGetMessageArea :: - (MonadIO m, MessageDialogK a) => - a -- _obj - -> m Widget -- result -messageDialogGetMessageArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_message_dialog_get_message_area _obj' - checkUnexpectedReturnNULL "gtk_message_dialog_get_message_area" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data MessageDialogGetMessageAreaMethodInfo -instance (signature ~ (m Widget), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogGetMessageAreaMethodInfo a signature where - overloadedMethod _ = messageDialogGetMessageArea - --- method MessageDialog::set_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", 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 "gtk_message_dialog_set_image" gtk_message_dialog_set_image :: - Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog" - Ptr Widget -> -- image : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED messageDialogSetImage ["(Since version 3.12)","Use #GtkDialog to create dialogs with images"]#-} -messageDialogSetImage :: - (MonadIO m, MessageDialogK a, WidgetK b) => - a -- _obj - -> b -- image - -> m () -- result -messageDialogSetImage _obj image = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let image' = unsafeManagedPtrCastPtr image - gtk_message_dialog_set_image _obj' image' - touchManagedPtr _obj - touchManagedPtr image - return () - -data MessageDialogSetImageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MessageDialogK a, WidgetK b) => MethodInfo MessageDialogSetImageMethodInfo a signature where - overloadedMethod _ = messageDialogSetImage - --- method MessageDialog::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 "gtk_message_dialog_set_markup" gtk_message_dialog_set_markup :: - Ptr MessageDialog -> -- _obj : TInterface "Gtk" "MessageDialog" - CString -> -- str : TBasicType TUTF8 - IO () - - -messageDialogSetMarkup :: - (MonadIO m, MessageDialogK a) => - a -- _obj - -> T.Text -- str - -> m () -- result -messageDialogSetMarkup _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_message_dialog_set_markup _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data MessageDialogSetMarkupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogSetMarkupMethodInfo a signature where - overloadedMethod _ = messageDialogSetMarkup - - diff --git a/GI/Gtk/Objects/MessageDialog.hs-boot b/GI/Gtk/Objects/MessageDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MessageDialog.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gtk.Objects.MessageDialog 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 MessageDialog = MessageDialog (ForeignPtr MessageDialog) -instance GObject MessageDialog where -class GObject o => MessageDialogK o -instance (GObject o, IsDescendantOf MessageDialog o) => MessageDialogK o -data MessageDialogButtonsPropertyInfo -data MessageDialogImagePropertyInfo -data MessageDialogMessageAreaPropertyInfo -data MessageDialogMessageTypePropertyInfo -data MessageDialogSecondaryTextPropertyInfo -data MessageDialogSecondaryUseMarkupPropertyInfo -data MessageDialogTextPropertyInfo -data MessageDialogUseMarkupPropertyInfo -data MessageDialogGetImageMethodInfo -data MessageDialogGetMessageAreaMethodInfo -data MessageDialogSetImageMethodInfo -data MessageDialogSetMarkupMethodInfo diff --git a/GI/Gtk/Objects/Misc.hs b/GI/Gtk/Objects/Misc.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Misc.hs +++ /dev/null @@ -1,670 +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.Gtk.Objects.Misc - ( - --- * Exported types - Misc(..) , - MiscK , - toMisc , - noMisc , - - - -- * Methods --- ** miscGetAlignment - MiscGetAlignmentMethodInfo , - miscGetAlignment , - - --- ** miscGetPadding - MiscGetPaddingMethodInfo , - miscGetPadding , - - --- ** miscSetAlignment - MiscSetAlignmentMethodInfo , - miscSetAlignment , - - --- ** miscSetPadding - MiscSetPaddingMethodInfo , - miscSetPadding , - - - - - -- * Properties --- ** Xalign - MiscXalignPropertyInfo , - constructMiscXalign , - getMiscXalign , - miscXalign , - setMiscXalign , - - --- ** Xpad - MiscXpadPropertyInfo , - constructMiscXpad , - getMiscXpad , - miscXpad , - setMiscXpad , - - --- ** Yalign - MiscYalignPropertyInfo , - constructMiscYalign , - getMiscYalign , - miscYalign , - setMiscYalign , - - --- ** Ypad - MiscYpadPropertyInfo , - constructMiscYpad , - getMiscYpad , - miscYpad , - setMiscYpad , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Misc = Misc (ForeignPtr Misc) -foreign import ccall "gtk_misc_get_type" - c_gtk_misc_get_type :: IO GType - -type instance ParentTypes Misc = MiscParentTypes -type MiscParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Misc where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_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 "activate" o = WidgetActivateMethodInfo - ResolveMiscMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveMiscMethod "addChild" o = BuildableAddChildMethodInfo - ResolveMiscMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveMiscMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveMiscMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveMiscMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveMiscMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMiscMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMiscMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveMiscMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveMiscMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveMiscMethod "classPath" o = WidgetClassPathMethodInfo - ResolveMiscMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveMiscMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveMiscMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveMiscMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveMiscMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveMiscMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveMiscMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveMiscMethod "destroy" o = WidgetDestroyMethodInfo - ResolveMiscMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveMiscMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveMiscMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveMiscMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveMiscMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveMiscMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveMiscMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveMiscMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveMiscMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveMiscMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveMiscMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveMiscMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveMiscMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveMiscMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveMiscMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveMiscMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveMiscMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveMiscMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveMiscMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveMiscMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveMiscMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveMiscMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveMiscMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveMiscMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveMiscMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveMiscMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveMiscMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveMiscMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveMiscMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveMiscMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveMiscMethod "draw" o = WidgetDrawMethodInfo - ResolveMiscMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveMiscMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveMiscMethod "event" o = WidgetEventMethodInfo - ResolveMiscMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMiscMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveMiscMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMiscMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveMiscMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveMiscMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveMiscMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveMiscMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveMiscMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveMiscMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveMiscMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveMiscMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveMiscMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveMiscMethod "hide" o = WidgetHideMethodInfo - ResolveMiscMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveMiscMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveMiscMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveMiscMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveMiscMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveMiscMethod "intersect" o = WidgetIntersectMethodInfo - ResolveMiscMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveMiscMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveMiscMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveMiscMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMiscMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveMiscMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveMiscMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveMiscMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveMiscMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveMiscMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveMiscMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveMiscMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveMiscMethod "map" o = WidgetMapMethodInfo - ResolveMiscMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveMiscMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveMiscMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveMiscMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveMiscMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveMiscMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveMiscMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveMiscMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveMiscMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMiscMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMiscMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveMiscMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveMiscMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveMiscMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveMiscMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveMiscMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveMiscMethod "path" o = WidgetPathMethodInfo - ResolveMiscMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveMiscMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveMiscMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveMiscMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveMiscMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveMiscMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveMiscMethod "realize" o = WidgetRealizeMethodInfo - ResolveMiscMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMiscMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMiscMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveMiscMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveMiscMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveMiscMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveMiscMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveMiscMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveMiscMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveMiscMethod "reparent" o = WidgetReparentMethodInfo - ResolveMiscMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMiscMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMiscMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveMiscMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveMiscMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMiscMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveMiscMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveMiscMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveMiscMethod "show" o = WidgetShowMethodInfo - ResolveMiscMethod "showAll" o = WidgetShowAllMethodInfo - ResolveMiscMethod "showNow" o = WidgetShowNowMethodInfo - ResolveMiscMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveMiscMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveMiscMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveMiscMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMiscMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMiscMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveMiscMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveMiscMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveMiscMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMiscMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveMiscMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveMiscMethod "unmap" o = WidgetUnmapMethodInfo - ResolveMiscMethod "unparent" o = WidgetUnparentMethodInfo - ResolveMiscMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveMiscMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMiscMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveMiscMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveMiscMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMiscMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveMiscMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveMiscMethod "getAlignment" o = MiscGetAlignmentMethodInfo - ResolveMiscMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveMiscMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveMiscMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveMiscMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveMiscMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveMiscMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveMiscMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveMiscMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveMiscMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveMiscMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveMiscMethod "getClip" o = WidgetGetClipMethodInfo - ResolveMiscMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveMiscMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveMiscMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMiscMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveMiscMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveMiscMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveMiscMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveMiscMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveMiscMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveMiscMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveMiscMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveMiscMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveMiscMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveMiscMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveMiscMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveMiscMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveMiscMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveMiscMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveMiscMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveMiscMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveMiscMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveMiscMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveMiscMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveMiscMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveMiscMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveMiscMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveMiscMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveMiscMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveMiscMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveMiscMethod "getPadding" o = MiscGetPaddingMethodInfo - ResolveMiscMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveMiscMethod "getParent" o = WidgetGetParentMethodInfo - ResolveMiscMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveMiscMethod "getPath" o = WidgetGetPathMethodInfo - ResolveMiscMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveMiscMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveMiscMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveMiscMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveMiscMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveMiscMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveMiscMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveMiscMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMiscMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMiscMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveMiscMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveMiscMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveMiscMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveMiscMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveMiscMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveMiscMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveMiscMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveMiscMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveMiscMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveMiscMethod "getState" o = WidgetGetStateMethodInfo - ResolveMiscMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveMiscMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveMiscMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveMiscMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveMiscMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveMiscMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveMiscMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveMiscMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveMiscMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveMiscMethod "getValign" o = WidgetGetValignMethodInfo - ResolveMiscMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveMiscMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveMiscMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveMiscMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveMiscMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveMiscMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveMiscMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveMiscMethod "setAlignment" o = MiscSetAlignmentMethodInfo - ResolveMiscMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveMiscMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveMiscMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveMiscMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveMiscMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveMiscMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveMiscMethod "setClip" o = WidgetSetClipMethodInfo - ResolveMiscMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveMiscMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMiscMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveMiscMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveMiscMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveMiscMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveMiscMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveMiscMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveMiscMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveMiscMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveMiscMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveMiscMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveMiscMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveMiscMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveMiscMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveMiscMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveMiscMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveMiscMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveMiscMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveMiscMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveMiscMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveMiscMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveMiscMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveMiscMethod "setPadding" o = MiscSetPaddingMethodInfo - ResolveMiscMethod "setParent" o = WidgetSetParentMethodInfo - ResolveMiscMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveMiscMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMiscMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveMiscMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveMiscMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveMiscMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveMiscMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveMiscMethod "setState" o = WidgetSetStateMethodInfo - ResolveMiscMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveMiscMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveMiscMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveMiscMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveMiscMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveMiscMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveMiscMethod "setValign" o = WidgetSetValignMethodInfo - ResolveMiscMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveMiscMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveMiscMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveMiscMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveMiscMethod "setWindow" o = WidgetSetWindowMethodInfo - 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 - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMiscXalign :: (MonadIO m, MiscK o) => o -> m Float -getMiscXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setMiscXalign :: (MonadIO m, MiscK o) => o -> Float -> m () -setMiscXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructMiscXalign :: Float -> IO ([Char], GValue) -constructMiscXalign val = constructObjectPropertyFloat "xalign" val - -data MiscXalignPropertyInfo -instance AttrInfo MiscXalignPropertyInfo where - type AttrAllowedOps MiscXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MiscXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint MiscXalignPropertyInfo = MiscK - type AttrGetType MiscXalignPropertyInfo = Float - type AttrLabel MiscXalignPropertyInfo = "xalign" - attrGet _ = getMiscXalign - attrSet _ = setMiscXalign - attrConstruct _ = constructMiscXalign - attrClear _ = undefined - --- VVV Prop "xpad" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMiscXpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscXpad obj = liftIO $ getObjectPropertyInt32 obj "xpad" - -setMiscXpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscXpad obj val = liftIO $ setObjectPropertyInt32 obj "xpad" val - -constructMiscXpad :: Int32 -> IO ([Char], GValue) -constructMiscXpad val = constructObjectPropertyInt32 "xpad" val - -data MiscXpadPropertyInfo -instance AttrInfo MiscXpadPropertyInfo where - type AttrAllowedOps MiscXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MiscXpadPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint MiscXpadPropertyInfo = MiscK - type AttrGetType MiscXpadPropertyInfo = Int32 - type AttrLabel MiscXpadPropertyInfo = "xpad" - attrGet _ = getMiscXpad - attrSet _ = setMiscXpad - attrConstruct _ = constructMiscXpad - attrClear _ = undefined - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMiscYalign :: (MonadIO m, MiscK o) => o -> m Float -getMiscYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setMiscYalign :: (MonadIO m, MiscK o) => o -> Float -> m () -setMiscYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructMiscYalign :: Float -> IO ([Char], GValue) -constructMiscYalign val = constructObjectPropertyFloat "yalign" val - -data MiscYalignPropertyInfo -instance AttrInfo MiscYalignPropertyInfo where - type AttrAllowedOps MiscYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MiscYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint MiscYalignPropertyInfo = MiscK - type AttrGetType MiscYalignPropertyInfo = Float - type AttrLabel MiscYalignPropertyInfo = "yalign" - attrGet _ = getMiscYalign - attrSet _ = setMiscYalign - attrConstruct _ = constructMiscYalign - attrClear _ = undefined - --- VVV Prop "ypad" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMiscYpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscYpad obj = liftIO $ getObjectPropertyInt32 obj "ypad" - -setMiscYpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscYpad obj val = liftIO $ setObjectPropertyInt32 obj "ypad" val - -constructMiscYpad :: Int32 -> IO ([Char], GValue) -constructMiscYpad val = constructObjectPropertyInt32 "ypad" val - -data MiscYpadPropertyInfo -instance AttrInfo MiscYpadPropertyInfo where - type AttrAllowedOps MiscYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MiscYpadPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint MiscYpadPropertyInfo = MiscK - type AttrGetType MiscYpadPropertyInfo = Int32 - type AttrLabel MiscYpadPropertyInfo = "ypad" - attrGet _ = getMiscYpad - attrSet _ = setMiscYpad - attrConstruct _ = constructMiscYpad - attrClear _ = undefined - -type instance AttributeList Misc = MiscAttributeList -type MiscAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -miscXalign :: AttrLabelProxy "xalign" -miscXalign = AttrLabelProxy - -miscXpad :: AttrLabelProxy "xpad" -miscXpad = AttrLabelProxy - -miscYalign :: AttrLabelProxy "yalign" -miscYalign = AttrLabelProxy - -miscYpad :: AttrLabelProxy "ypad" -miscYpad = AttrLabelProxy - -type instance SignalList Misc = MiscSignalList -type MiscSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Misc::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_misc_get_alignment" gtk_misc_get_alignment :: - Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Ptr CFloat -> -- xalign : TBasicType TFloat - Ptr CFloat -> -- yalign : TBasicType TFloat - IO () - -{-# DEPRECATED miscGetAlignment ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} -miscGetAlignment :: - (MonadIO m, MiscK a) => - a -- _obj - -> m (Float,Float) -- result -miscGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xalign <- allocMem :: IO (Ptr CFloat) - yalign <- allocMem :: IO (Ptr CFloat) - gtk_misc_get_alignment _obj' xalign yalign - xalign' <- peek xalign - let xalign'' = realToFrac xalign' - yalign' <- peek yalign - let yalign'' = realToFrac yalign' - touchManagedPtr _obj - freeMem xalign - freeMem yalign - return (xalign'', yalign'') - -data MiscGetAlignmentMethodInfo -instance (signature ~ (m (Float,Float)), MonadIO m, MiscK a) => MethodInfo MiscGetAlignmentMethodInfo a signature where - overloadedMethod _ = miscGetAlignment - --- method Misc::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, 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 "gtk_misc_get_padding" gtk_misc_get_padding :: - Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Ptr Int32 -> -- xpad : TBasicType TInt - Ptr Int32 -> -- ypad : TBasicType TInt - IO () - -{-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} -miscGetPadding :: - (MonadIO m, MiscK a) => - a -- _obj - -> m (Int32,Int32) -- result -miscGetPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xpad <- allocMem :: IO (Ptr Int32) - ypad <- allocMem :: IO (Ptr Int32) - gtk_misc_get_padding _obj' xpad ypad - xpad' <- peek xpad - ypad' <- peek ypad - touchManagedPtr _obj - freeMem xpad - freeMem ypad - return (xpad', ypad') - -data MiscGetPaddingMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, MiscK a) => MethodInfo MiscGetPaddingMethodInfo a signature where - overloadedMethod _ = miscGetPadding - --- method Misc::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, 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 "gtk_misc_set_alignment" gtk_misc_set_alignment :: - Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - CFloat -> -- xalign : TBasicType TFloat - CFloat -> -- yalign : TBasicType TFloat - IO () - -{-# DEPRECATED miscSetAlignment ["(Since version 3.14)","Use #GtkWidget's alignment (#GtkWidget:halign and #GtkWidget:valign) and margin properties or #GtkLabel's #GtkLabel:xalign and #GtkLabel:yalign properties."]#-} -miscSetAlignment :: - (MonadIO m, MiscK a) => - a -- _obj - -> Float -- xalign - -> Float -- yalign - -> m () -- result -miscSetAlignment _obj xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_misc_set_alignment _obj' xalign' yalign' - touchManagedPtr _obj - return () - -data MiscSetAlignmentMethodInfo -instance (signature ~ (Float -> Float -> m ()), MonadIO m, MiscK a) => MethodInfo MiscSetAlignmentMethodInfo a signature where - overloadedMethod _ = miscSetAlignment - --- method Misc::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", 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 "gtk_misc_set_padding" gtk_misc_set_padding :: - Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Int32 -> -- xpad : TBasicType TInt - Int32 -> -- ypad : TBasicType TInt - IO () - -{-# DEPRECATED miscSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} -miscSetPadding :: - (MonadIO m, MiscK a) => - a -- _obj - -> Int32 -- xpad - -> Int32 -- ypad - -> m () -- result -miscSetPadding _obj xpad ypad = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_misc_set_padding _obj' xpad ypad - touchManagedPtr _obj - return () - -data MiscSetPaddingMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, MiscK a) => MethodInfo MiscSetPaddingMethodInfo a signature where - overloadedMethod _ = miscSetPadding - - diff --git a/GI/Gtk/Objects/Misc.hs-boot b/GI/Gtk/Objects/Misc.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Misc.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.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 MiscXalignPropertyInfo -data MiscXpadPropertyInfo -data MiscYalignPropertyInfo -data MiscYpadPropertyInfo -data MiscGetAlignmentMethodInfo -data MiscGetPaddingMethodInfo -data MiscSetAlignmentMethodInfo -data MiscSetPaddingMethodInfo diff --git a/GI/Gtk/Objects/ModelButton.hs b/GI/Gtk/Objects/ModelButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ModelButton.hs +++ /dev/null @@ -1,758 +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.Gtk.Objects.ModelButton - ( - --- * Exported types - ModelButton(..) , - ModelButtonK , - toModelButton , - noModelButton , - - - -- * Methods --- ** modelButtonNew - modelButtonNew , - - - - - -- * Properties --- ** Active - ModelButtonActivePropertyInfo , - constructModelButtonActive , - getModelButtonActive , - modelButtonActive , - setModelButtonActive , - - --- ** Centered - ModelButtonCenteredPropertyInfo , - constructModelButtonCentered , - getModelButtonCentered , - modelButtonCentered , - setModelButtonCentered , - - --- ** Icon - ModelButtonIconPropertyInfo , - clearModelButtonIcon , - constructModelButtonIcon , - getModelButtonIcon , - modelButtonIcon , - setModelButtonIcon , - - --- ** Iconic - ModelButtonIconicPropertyInfo , - constructModelButtonIconic , - getModelButtonIconic , - modelButtonIconic , - setModelButtonIconic , - - --- ** Inverted - ModelButtonInvertedPropertyInfo , - constructModelButtonInverted , - getModelButtonInverted , - modelButtonInverted , - setModelButtonInverted , - - --- ** MenuName - ModelButtonMenuNamePropertyInfo , - clearModelButtonMenuName , - constructModelButtonMenuName , - getModelButtonMenuName , - modelButtonMenuName , - setModelButtonMenuName , - - --- ** Role - ModelButtonRolePropertyInfo , - constructModelButtonRole , - getModelButtonRole , - modelButtonRole , - setModelButtonRole , - - --- ** Text - ModelButtonTextPropertyInfo , - clearModelButtonText , - constructModelButtonText , - getModelButtonText , - modelButtonText , - setModelButtonText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype ModelButton = ModelButton (ForeignPtr ModelButton) -foreign import ccall "gtk_model_button_get_type" - c_gtk_model_button_get_type :: IO GType - -type instance ParentTypes ModelButton = ModelButtonParentTypes -type ModelButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject ModelButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_model_button_get_type - - -class GObject o => ModelButtonK o -instance (GObject o, IsDescendantOf ModelButton o) => ModelButtonK o - -toModelButton :: ModelButtonK o => o -> IO ModelButton -toModelButton = unsafeCastTo ModelButton - -noModelButton :: Maybe ModelButton -noModelButton = Nothing - -type family ResolveModelButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveModelButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveModelButtonMethod "add" o = ContainerAddMethodInfo - ResolveModelButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveModelButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveModelButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveModelButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveModelButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveModelButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveModelButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveModelButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveModelButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveModelButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveModelButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveModelButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveModelButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveModelButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveModelButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveModelButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveModelButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveModelButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveModelButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveModelButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveModelButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveModelButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveModelButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveModelButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveModelButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveModelButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveModelButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveModelButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveModelButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveModelButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveModelButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveModelButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveModelButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveModelButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveModelButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveModelButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveModelButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveModelButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveModelButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveModelButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveModelButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveModelButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveModelButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveModelButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveModelButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveModelButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveModelButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveModelButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveModelButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveModelButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveModelButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveModelButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveModelButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveModelButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveModelButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveModelButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveModelButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveModelButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveModelButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveModelButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveModelButtonMethod "event" o = WidgetEventMethodInfo - ResolveModelButtonMethod "forall" o = ContainerForallMethodInfo - ResolveModelButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveModelButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveModelButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveModelButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveModelButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveModelButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveModelButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveModelButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveModelButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveModelButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveModelButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveModelButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveModelButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveModelButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveModelButtonMethod "hide" o = WidgetHideMethodInfo - ResolveModelButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveModelButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveModelButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveModelButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveModelButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveModelButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveModelButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveModelButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveModelButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveModelButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveModelButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveModelButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveModelButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveModelButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveModelButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveModelButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveModelButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveModelButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveModelButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveModelButtonMethod "map" o = WidgetMapMethodInfo - ResolveModelButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveModelButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveModelButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveModelButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveModelButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveModelButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveModelButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveModelButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveModelButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveModelButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveModelButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveModelButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveModelButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveModelButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveModelButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveModelButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveModelButtonMethod "path" o = WidgetPathMethodInfo - ResolveModelButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveModelButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveModelButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveModelButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveModelButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveModelButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveModelButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveModelButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveModelButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveModelButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveModelButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveModelButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveModelButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveModelButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveModelButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveModelButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveModelButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveModelButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveModelButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveModelButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveModelButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveModelButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveModelButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveModelButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveModelButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveModelButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveModelButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveModelButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveModelButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveModelButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveModelButtonMethod "show" o = WidgetShowMethodInfo - ResolveModelButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveModelButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveModelButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveModelButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveModelButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveModelButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveModelButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveModelButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveModelButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveModelButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveModelButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveModelButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveModelButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveModelButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveModelButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveModelButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveModelButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveModelButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveModelButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveModelButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveModelButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveModelButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveModelButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveModelButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveModelButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveModelButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveModelButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveModelButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveModelButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveModelButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveModelButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveModelButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveModelButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveModelButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveModelButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveModelButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveModelButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveModelButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveModelButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveModelButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveModelButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveModelButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveModelButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveModelButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveModelButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveModelButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveModelButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveModelButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveModelButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveModelButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveModelButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveModelButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveModelButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveModelButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveModelButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveModelButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveModelButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveModelButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveModelButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveModelButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveModelButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveModelButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveModelButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveModelButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveModelButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveModelButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveModelButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveModelButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveModelButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveModelButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveModelButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveModelButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveModelButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveModelButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveModelButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveModelButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveModelButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveModelButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveModelButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveModelButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveModelButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveModelButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveModelButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveModelButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveModelButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveModelButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveModelButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveModelButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveModelButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveModelButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveModelButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveModelButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveModelButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveModelButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveModelButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveModelButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveModelButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveModelButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveModelButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveModelButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveModelButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveModelButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveModelButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveModelButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveModelButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveModelButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveModelButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveModelButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveModelButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveModelButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveModelButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveModelButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveModelButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveModelButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveModelButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveModelButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveModelButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveModelButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveModelButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveModelButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveModelButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveModelButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveModelButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveModelButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveModelButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveModelButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveModelButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveModelButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveModelButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveModelButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveModelButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveModelButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveModelButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveModelButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveModelButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveModelButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveModelButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveModelButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveModelButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveModelButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveModelButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveModelButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveModelButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveModelButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveModelButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveModelButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveModelButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveModelButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveModelButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveModelButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveModelButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveModelButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveModelButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveModelButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveModelButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveModelButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveModelButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveModelButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveModelButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveModelButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveModelButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveModelButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveModelButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveModelButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveModelButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveModelButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveModelButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveModelButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveModelButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveModelButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveModelButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveModelButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveModelButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveModelButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveModelButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveModelButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveModelButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveModelButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveModelButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveModelButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveModelButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveModelButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveModelButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveModelButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveModelButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveModelButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveModelButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveModelButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveModelButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveModelButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveModelButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveModelButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveModelButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveModelButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveModelButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveModelButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveModelButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveModelButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveModelButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveModelButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveModelButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveModelButtonMethod t ModelButton, MethodInfo info ModelButton p) => IsLabelProxy t (ModelButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveModelButtonMethod t ModelButton, MethodInfo info ModelButton p) => IsLabel t (ModelButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonActive :: (MonadIO m, ModelButtonK o) => o -> m Bool -getModelButtonActive obj = liftIO $ getObjectPropertyBool obj "active" - -setModelButtonActive :: (MonadIO m, ModelButtonK o) => o -> Bool -> m () -setModelButtonActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructModelButtonActive :: Bool -> IO ([Char], GValue) -constructModelButtonActive val = constructObjectPropertyBool "active" val - -data ModelButtonActivePropertyInfo -instance AttrInfo ModelButtonActivePropertyInfo where - type AttrAllowedOps ModelButtonActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ModelButtonActivePropertyInfo = ModelButtonK - type AttrGetType ModelButtonActivePropertyInfo = Bool - type AttrLabel ModelButtonActivePropertyInfo = "active" - attrGet _ = getModelButtonActive - attrSet _ = setModelButtonActive - attrConstruct _ = constructModelButtonActive - attrClear _ = undefined - --- VVV Prop "centered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonCentered :: (MonadIO m, ModelButtonK o) => o -> m Bool -getModelButtonCentered obj = liftIO $ getObjectPropertyBool obj "centered" - -setModelButtonCentered :: (MonadIO m, ModelButtonK o) => o -> Bool -> m () -setModelButtonCentered obj val = liftIO $ setObjectPropertyBool obj "centered" val - -constructModelButtonCentered :: Bool -> IO ([Char], GValue) -constructModelButtonCentered val = constructObjectPropertyBool "centered" val - -data ModelButtonCenteredPropertyInfo -instance AttrInfo ModelButtonCenteredPropertyInfo where - type AttrAllowedOps ModelButtonCenteredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonCenteredPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ModelButtonCenteredPropertyInfo = ModelButtonK - type AttrGetType ModelButtonCenteredPropertyInfo = Bool - type AttrLabel ModelButtonCenteredPropertyInfo = "centered" - attrGet _ = getModelButtonCentered - attrSet _ = setModelButtonCentered - attrConstruct _ = constructModelButtonCentered - attrClear _ = undefined - --- VVV Prop "icon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m (Maybe Gio.Icon) -getModelButtonIcon obj = liftIO $ getObjectPropertyObject obj "icon" Gio.Icon - -setModelButtonIcon :: (MonadIO m, ModelButtonK o, Gio.IconK a) => o -> a -> m () -setModelButtonIcon obj val = liftIO $ setObjectPropertyObject obj "icon" (Just val) - -constructModelButtonIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructModelButtonIcon val = constructObjectPropertyObject "icon" (Just val) - -clearModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m () -clearModelButtonIcon obj = liftIO $ setObjectPropertyObject obj "icon" (Nothing :: Maybe Gio.Icon) - -data ModelButtonIconPropertyInfo -instance AttrInfo ModelButtonIconPropertyInfo where - type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK - type AttrGetType ModelButtonIconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel ModelButtonIconPropertyInfo = "icon" - attrGet _ = getModelButtonIcon - attrSet _ = setModelButtonIcon - attrConstruct _ = constructModelButtonIcon - attrClear _ = clearModelButtonIcon - --- VVV Prop "iconic" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonIconic :: (MonadIO m, ModelButtonK o) => o -> m Bool -getModelButtonIconic obj = liftIO $ getObjectPropertyBool obj "iconic" - -setModelButtonIconic :: (MonadIO m, ModelButtonK o) => o -> Bool -> m () -setModelButtonIconic obj val = liftIO $ setObjectPropertyBool obj "iconic" val - -constructModelButtonIconic :: Bool -> IO ([Char], GValue) -constructModelButtonIconic val = constructObjectPropertyBool "iconic" val - -data ModelButtonIconicPropertyInfo -instance AttrInfo ModelButtonIconicPropertyInfo where - type AttrAllowedOps ModelButtonIconicPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonIconicPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ModelButtonIconicPropertyInfo = ModelButtonK - type AttrGetType ModelButtonIconicPropertyInfo = Bool - type AttrLabel ModelButtonIconicPropertyInfo = "iconic" - attrGet _ = getModelButtonIconic - attrSet _ = setModelButtonIconic - attrConstruct _ = constructModelButtonIconic - attrClear _ = undefined - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonInverted :: (MonadIO m, ModelButtonK o) => o -> m Bool -getModelButtonInverted obj = liftIO $ getObjectPropertyBool obj "inverted" - -setModelButtonInverted :: (MonadIO m, ModelButtonK o) => o -> Bool -> m () -setModelButtonInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val - -constructModelButtonInverted :: Bool -> IO ([Char], GValue) -constructModelButtonInverted val = constructObjectPropertyBool "inverted" val - -data ModelButtonInvertedPropertyInfo -instance AttrInfo ModelButtonInvertedPropertyInfo where - type AttrAllowedOps ModelButtonInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonInvertedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ModelButtonInvertedPropertyInfo = ModelButtonK - type AttrGetType ModelButtonInvertedPropertyInfo = Bool - type AttrLabel ModelButtonInvertedPropertyInfo = "inverted" - attrGet _ = getModelButtonInverted - attrSet _ = setModelButtonInverted - attrConstruct _ = constructModelButtonInverted - attrClear _ = undefined - --- VVV Prop "menu-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) -getModelButtonMenuName obj = liftIO $ getObjectPropertyString obj "menu-name" - -setModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () -setModelButtonMenuName obj val = liftIO $ setObjectPropertyString obj "menu-name" (Just val) - -constructModelButtonMenuName :: T.Text -> IO ([Char], GValue) -constructModelButtonMenuName val = constructObjectPropertyString "menu-name" (Just val) - -clearModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m () -clearModelButtonMenuName obj = liftIO $ setObjectPropertyString obj "menu-name" (Nothing :: Maybe T.Text) - -data ModelButtonMenuNamePropertyInfo -instance AttrInfo ModelButtonMenuNamePropertyInfo where - type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK - type AttrGetType ModelButtonMenuNamePropertyInfo = (Maybe T.Text) - type AttrLabel ModelButtonMenuNamePropertyInfo = "menu-name" - attrGet _ = getModelButtonMenuName - attrSet _ = setModelButtonMenuName - attrConstruct _ = constructModelButtonMenuName - attrClear _ = clearModelButtonMenuName - --- VVV Prop "role" - -- Type: TInterface "Gtk" "ButtonRole" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonRole :: (MonadIO m, ModelButtonK o) => o -> m ButtonRole -getModelButtonRole obj = liftIO $ getObjectPropertyEnum obj "role" - -setModelButtonRole :: (MonadIO m, ModelButtonK o) => o -> ButtonRole -> m () -setModelButtonRole obj val = liftIO $ setObjectPropertyEnum obj "role" val - -constructModelButtonRole :: ButtonRole -> IO ([Char], GValue) -constructModelButtonRole val = constructObjectPropertyEnum "role" val - -data ModelButtonRolePropertyInfo -instance AttrInfo ModelButtonRolePropertyInfo where - type AttrAllowedOps ModelButtonRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonRolePropertyInfo = (~) ButtonRole - type AttrBaseTypeConstraint ModelButtonRolePropertyInfo = ModelButtonK - type AttrGetType ModelButtonRolePropertyInfo = ButtonRole - type AttrLabel ModelButtonRolePropertyInfo = "role" - attrGet _ = getModelButtonRole - attrSet _ = setModelButtonRole - attrConstruct _ = constructModelButtonRole - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) -getModelButtonText obj = liftIO $ getObjectPropertyString obj "text" - -setModelButtonText :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () -setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructModelButtonText :: T.Text -> IO ([Char], GValue) -constructModelButtonText val = constructObjectPropertyString "text" (Just val) - -clearModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m () -clearModelButtonText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data ModelButtonTextPropertyInfo -instance AttrInfo ModelButtonTextPropertyInfo where - type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK - type AttrGetType ModelButtonTextPropertyInfo = (Maybe T.Text) - type AttrLabel ModelButtonTextPropertyInfo = "text" - attrGet _ = getModelButtonText - attrSet _ = setModelButtonText - attrConstruct _ = constructModelButtonText - attrClear _ = clearModelButtonText - -type instance AttributeList ModelButton = ModelButtonAttributeList -type ModelButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuName", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -modelButtonActive :: AttrLabelProxy "active" -modelButtonActive = AttrLabelProxy - -modelButtonCentered :: AttrLabelProxy "centered" -modelButtonCentered = AttrLabelProxy - -modelButtonIcon :: AttrLabelProxy "icon" -modelButtonIcon = AttrLabelProxy - -modelButtonIconic :: AttrLabelProxy "iconic" -modelButtonIconic = AttrLabelProxy - -modelButtonInverted :: AttrLabelProxy "inverted" -modelButtonInverted = AttrLabelProxy - -modelButtonMenuName :: AttrLabelProxy "menuName" -modelButtonMenuName = AttrLabelProxy - -modelButtonRole :: AttrLabelProxy "role" -modelButtonRole = AttrLabelProxy - -modelButtonText :: AttrLabelProxy "text" -modelButtonText = AttrLabelProxy - -type instance SignalList ModelButton = ModelButtonSignalList -type ModelButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ModelButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ModelButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_model_button_new" gtk_model_button_new :: - IO (Ptr ModelButton) - - -modelButtonNew :: - (MonadIO m) => - m ModelButton -- result -modelButtonNew = liftIO $ do - result <- gtk_model_button_new - checkUnexpectedReturnNULL "gtk_model_button_new" result - result' <- (newObject ModelButton) result - return result' - - diff --git a/GI/Gtk/Objects/ModelButton.hs-boot b/GI/Gtk/Objects/ModelButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ModelButton.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.ModelButton 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 ModelButton = ModelButton (ForeignPtr ModelButton) -instance GObject ModelButton where -class GObject o => ModelButtonK o -instance (GObject o, IsDescendantOf ModelButton o) => ModelButtonK o -data ModelButtonActivePropertyInfo -data ModelButtonCenteredPropertyInfo -data ModelButtonIconPropertyInfo -data ModelButtonIconicPropertyInfo -data ModelButtonInvertedPropertyInfo -data ModelButtonMenuNamePropertyInfo -data ModelButtonRolePropertyInfo -data ModelButtonTextPropertyInfo diff --git a/GI/Gtk/Objects/MountOperation.hs b/GI/Gtk/Objects/MountOperation.hs deleted file mode 100644 --- a/GI/Gtk/Objects/MountOperation.hs +++ /dev/null @@ -1,431 +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.Gtk.Objects.MountOperation - ( - --- * Exported types - MountOperation(..) , - MountOperationK , - toMountOperation , - noMountOperation , - - - -- * Methods --- ** mountOperationGetParent - MountOperationGetParentMethodInfo , - mountOperationGetParent , - - --- ** mountOperationGetScreen - MountOperationGetScreenMethodInfo , - mountOperationGetScreen , - - --- ** mountOperationIsShowing - MountOperationIsShowingMethodInfo , - mountOperationIsShowing , - - --- ** mountOperationNew - mountOperationNew , - - --- ** mountOperationSetParent - MountOperationSetParentMethodInfo , - mountOperationSetParent , - - --- ** mountOperationSetScreen - MountOperationSetScreenMethodInfo , - mountOperationSetScreen , - - - - - -- * Properties --- ** IsShowing - MountOperationIsShowingPropertyInfo , - getMountOperationIsShowing , - - --- ** Parent - MountOperationParentPropertyInfo , - clearMountOperationParent , - constructMountOperationParent , - getMountOperationParent , - mountOperationParent , - setMountOperationParent , - - --- ** Screen - MountOperationScreenPropertyInfo , - constructMountOperationScreen , - getMountOperationScreen , - mountOperationScreen , - setMountOperationScreen , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio - -newtype MountOperation = MountOperation (ForeignPtr MountOperation) -foreign import ccall "gtk_mount_operation_get_type" - c_gtk_mount_operation_get_type :: IO GType - -type instance ParentTypes MountOperation = MountOperationParentTypes -type MountOperationParentTypes = '[Gio.MountOperation, GObject.Object] - -instance GObject MountOperation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_mount_operation_get_type - - -class GObject o => MountOperationK o -instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o - -toMountOperation :: MountOperationK o => o -> IO MountOperation -toMountOperation = unsafeCastTo MountOperation - -noMountOperation :: Maybe MountOperation -noMountOperation = Nothing - -type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where - ResolveMountOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMountOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMountOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMountOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMountOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMountOperationMethod "isShowing" o = MountOperationIsShowingMethodInfo - ResolveMountOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMountOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMountOperationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMountOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMountOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMountOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMountOperationMethod "reply" o = Gio.MountOperationReplyMethodInfo - ResolveMountOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMountOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMountOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMountOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMountOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMountOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMountOperationMethod "getAnonymous" o = Gio.MountOperationGetAnonymousMethodInfo - ResolveMountOperationMethod "getChoice" o = Gio.MountOperationGetChoiceMethodInfo - ResolveMountOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMountOperationMethod "getDomain" o = Gio.MountOperationGetDomainMethodInfo - ResolveMountOperationMethod "getParent" o = MountOperationGetParentMethodInfo - ResolveMountOperationMethod "getPassword" o = Gio.MountOperationGetPasswordMethodInfo - ResolveMountOperationMethod "getPasswordSave" o = Gio.MountOperationGetPasswordSaveMethodInfo - ResolveMountOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMountOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMountOperationMethod "getScreen" o = MountOperationGetScreenMethodInfo - ResolveMountOperationMethod "getUsername" o = Gio.MountOperationGetUsernameMethodInfo - ResolveMountOperationMethod "setAnonymous" o = Gio.MountOperationSetAnonymousMethodInfo - ResolveMountOperationMethod "setChoice" o = Gio.MountOperationSetChoiceMethodInfo - ResolveMountOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMountOperationMethod "setDomain" o = Gio.MountOperationSetDomainMethodInfo - ResolveMountOperationMethod "setParent" o = MountOperationSetParentMethodInfo - ResolveMountOperationMethod "setPassword" o = Gio.MountOperationSetPasswordMethodInfo - ResolveMountOperationMethod "setPasswordSave" o = Gio.MountOperationSetPasswordSaveMethodInfo - ResolveMountOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMountOperationMethod "setScreen" o = MountOperationSetScreenMethodInfo - ResolveMountOperationMethod "setUsername" o = Gio.MountOperationSetUsernameMethodInfo - ResolveMountOperationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabelProxy t (MountOperation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabel t (MountOperation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "is-showing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMountOperationIsShowing :: (MonadIO m, MountOperationK o) => o -> m Bool -getMountOperationIsShowing obj = liftIO $ getObjectPropertyBool obj "is-showing" - -data MountOperationIsShowingPropertyInfo -instance AttrInfo MountOperationIsShowingPropertyInfo where - type AttrAllowedOps MountOperationIsShowingPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MountOperationIsShowingPropertyInfo = (~) () - type AttrBaseTypeConstraint MountOperationIsShowingPropertyInfo = MountOperationK - type AttrGetType MountOperationIsShowingPropertyInfo = Bool - type AttrLabel MountOperationIsShowingPropertyInfo = "is-showing" - attrGet _ = getMountOperationIsShowing - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m Window -getMountOperationParent obj = liftIO $ checkUnexpectedNothing "getMountOperationParent" $ getObjectPropertyObject obj "parent" Window - -setMountOperationParent :: (MonadIO m, MountOperationK o, WindowK a) => o -> a -> m () -setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) - -constructMountOperationParent :: (WindowK a) => a -> IO ([Char], GValue) -constructMountOperationParent val = constructObjectPropertyObject "parent" (Just val) - -clearMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m () -clearMountOperationParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe Window) - -data MountOperationParentPropertyInfo -instance AttrInfo MountOperationParentPropertyInfo where - type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK - type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK - type AttrGetType MountOperationParentPropertyInfo = Window - type AttrLabel MountOperationParentPropertyInfo = "parent" - attrGet _ = getMountOperationParent - attrSet _ = setMountOperationParent - attrConstruct _ = constructMountOperationParent - attrClear _ = clearMountOperationParent - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationScreen :: (MonadIO m, MountOperationK o) => o -> m Gdk.Screen -getMountOperationScreen obj = liftIO $ checkUnexpectedNothing "getMountOperationScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen - -setMountOperationScreen :: (MonadIO m, MountOperationK o, Gdk.ScreenK a) => o -> a -> m () -setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) - -constructMountOperationScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructMountOperationScreen val = constructObjectPropertyObject "screen" (Just val) - -data MountOperationScreenPropertyInfo -instance AttrInfo MountOperationScreenPropertyInfo where - type AttrAllowedOps MountOperationScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint MountOperationScreenPropertyInfo = MountOperationK - type AttrGetType MountOperationScreenPropertyInfo = Gdk.Screen - type AttrLabel MountOperationScreenPropertyInfo = "screen" - attrGet _ = getMountOperationScreen - attrSet _ = setMountOperationScreen - attrConstruct _ = constructMountOperationScreen - attrClear _ = undefined - -type instance AttributeList MountOperation = MountOperationAttributeList -type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("isShowing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("passwordSave", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) - -mountOperationParent :: AttrLabelProxy "parent" -mountOperationParent = AttrLabelProxy - -mountOperationScreen :: AttrLabelProxy "screen" -mountOperationScreen = AttrLabelProxy - -type instance SignalList MountOperation = MountOperationSignalList -type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("askPassword", Gio.MountOperationAskPasswordSignalInfo), '("askQuestion", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("showProcesses", Gio.MountOperationShowProcessesSignalInfo), '("showUnmountProgress", Gio.MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)]) - --- method MountOperation::new --- method type : Constructor --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "MountOperation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_mount_operation_new" gtk_mount_operation_new :: - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO (Ptr MountOperation) - - -mountOperationNew :: - (MonadIO m, WindowK a) => - Maybe (a) -- parent - -> m MountOperation -- result -mountOperationNew parent = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - result <- gtk_mount_operation_new maybeParent - checkUnexpectedReturnNULL "gtk_mount_operation_new" result - result' <- (wrapObject MountOperation) result - whenJust parent touchManagedPtr - return result' - --- method MountOperation::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_mount_operation_get_parent" gtk_mount_operation_get_parent :: - Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation" - IO (Ptr Window) - - -mountOperationGetParent :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m Window -- result -mountOperationGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_mount_operation_get_parent _obj' - checkUnexpectedReturnNULL "gtk_mount_operation_get_parent" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data MountOperationGetParentMethodInfo -instance (signature ~ (m Window), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetParentMethodInfo a signature where - overloadedMethod _ = mountOperationGetParent - --- method MountOperation::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_mount_operation_get_screen" gtk_mount_operation_get_screen :: - Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation" - IO (Ptr Gdk.Screen) - - -mountOperationGetScreen :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m Gdk.Screen -- result -mountOperationGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_mount_operation_get_screen _obj' - checkUnexpectedReturnNULL "gtk_mount_operation_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data MountOperationGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetScreenMethodInfo a signature where - overloadedMethod _ = mountOperationGetScreen - --- method MountOperation::is_showing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", 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 "gtk_mount_operation_is_showing" gtk_mount_operation_is_showing :: - Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation" - IO CInt - - -mountOperationIsShowing :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m Bool -- result -mountOperationIsShowing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_mount_operation_is_showing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MountOperationIsShowingMethodInfo -instance (signature ~ (m Bool), MonadIO m, MountOperationK a) => MethodInfo MountOperationIsShowingMethodInfo a signature where - overloadedMethod _ = mountOperationIsShowing - --- method MountOperation::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_mount_operation_set_parent" gtk_mount_operation_set_parent :: - Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation" - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO () - - -mountOperationSetParent :: - (MonadIO m, MountOperationK a, WindowK b) => - a -- _obj - -> Maybe (b) -- parent - -> m () -- result -mountOperationSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - gtk_mount_operation_set_parent _obj' maybeParent - touchManagedPtr _obj - whenJust parent touchManagedPtr - return () - -data MountOperationSetParentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MountOperationK a, WindowK b) => MethodInfo MountOperationSetParentMethodInfo a signature where - overloadedMethod _ = mountOperationSetParent - --- method MountOperation::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_mount_operation_set_screen" gtk_mount_operation_set_screen :: - Ptr MountOperation -> -- _obj : TInterface "Gtk" "MountOperation" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -mountOperationSetScreen :: - (MonadIO m, MountOperationK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -mountOperationSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_mount_operation_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data MountOperationSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountOperationK a, Gdk.ScreenK b) => MethodInfo MountOperationSetScreenMethodInfo a signature where - overloadedMethod _ = mountOperationSetScreen - - diff --git a/GI/Gtk/Objects/MountOperation.hs-boot b/GI/Gtk/Objects/MountOperation.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/MountOperation.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.MountOperation 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 MountOperation = MountOperation (ForeignPtr MountOperation) -instance GObject MountOperation where -class GObject o => MountOperationK o -instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o -data MountOperationIsShowingPropertyInfo -data MountOperationParentPropertyInfo -data MountOperationScreenPropertyInfo -data MountOperationGetParentMethodInfo -data MountOperationGetScreenMethodInfo -data MountOperationIsShowingMethodInfo -data MountOperationSetParentMethodInfo -data MountOperationSetScreenMethodInfo diff --git a/GI/Gtk/Objects/Notebook.hs b/GI/Gtk/Objects/Notebook.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Notebook.hs +++ /dev/null @@ -1,3000 +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.Gtk.Objects.Notebook - ( - --- * Exported types - Notebook(..) , - NotebookK , - toNotebook , - noNotebook , - - - -- * Methods --- ** notebookAppendPage - NotebookAppendPageMethodInfo , - notebookAppendPage , - - --- ** notebookAppendPageMenu - NotebookAppendPageMenuMethodInfo , - notebookAppendPageMenu , - - --- ** notebookDetachTab - NotebookDetachTabMethodInfo , - notebookDetachTab , - - --- ** notebookGetActionWidget - NotebookGetActionWidgetMethodInfo , - notebookGetActionWidget , - - --- ** notebookGetCurrentPage - NotebookGetCurrentPageMethodInfo , - notebookGetCurrentPage , - - --- ** notebookGetGroupName - NotebookGetGroupNameMethodInfo , - notebookGetGroupName , - - --- ** notebookGetMenuLabel - NotebookGetMenuLabelMethodInfo , - notebookGetMenuLabel , - - --- ** notebookGetMenuLabelText - NotebookGetMenuLabelTextMethodInfo , - notebookGetMenuLabelText , - - --- ** notebookGetNPages - NotebookGetNPagesMethodInfo , - notebookGetNPages , - - --- ** notebookGetNthPage - NotebookGetNthPageMethodInfo , - notebookGetNthPage , - - --- ** notebookGetScrollable - NotebookGetScrollableMethodInfo , - notebookGetScrollable , - - --- ** notebookGetShowBorder - NotebookGetShowBorderMethodInfo , - notebookGetShowBorder , - - --- ** notebookGetShowTabs - NotebookGetShowTabsMethodInfo , - notebookGetShowTabs , - - --- ** notebookGetTabDetachable - NotebookGetTabDetachableMethodInfo , - notebookGetTabDetachable , - - --- ** notebookGetTabHborder - NotebookGetTabHborderMethodInfo , - notebookGetTabHborder , - - --- ** notebookGetTabLabel - NotebookGetTabLabelMethodInfo , - notebookGetTabLabel , - - --- ** notebookGetTabLabelText - NotebookGetTabLabelTextMethodInfo , - notebookGetTabLabelText , - - --- ** notebookGetTabPos - NotebookGetTabPosMethodInfo , - notebookGetTabPos , - - --- ** notebookGetTabReorderable - NotebookGetTabReorderableMethodInfo , - notebookGetTabReorderable , - - --- ** notebookGetTabVborder - NotebookGetTabVborderMethodInfo , - notebookGetTabVborder , - - --- ** notebookInsertPage - NotebookInsertPageMethodInfo , - notebookInsertPage , - - --- ** notebookInsertPageMenu - NotebookInsertPageMenuMethodInfo , - notebookInsertPageMenu , - - --- ** notebookNew - notebookNew , - - --- ** notebookNextPage - NotebookNextPageMethodInfo , - notebookNextPage , - - --- ** notebookPageNum - NotebookPageNumMethodInfo , - notebookPageNum , - - --- ** notebookPopupDisable - NotebookPopupDisableMethodInfo , - notebookPopupDisable , - - --- ** notebookPopupEnable - NotebookPopupEnableMethodInfo , - notebookPopupEnable , - - --- ** notebookPrependPage - NotebookPrependPageMethodInfo , - notebookPrependPage , - - --- ** notebookPrependPageMenu - NotebookPrependPageMenuMethodInfo , - notebookPrependPageMenu , - - --- ** notebookPrevPage - NotebookPrevPageMethodInfo , - notebookPrevPage , - - --- ** notebookRemovePage - NotebookRemovePageMethodInfo , - notebookRemovePage , - - --- ** notebookReorderChild - NotebookReorderChildMethodInfo , - notebookReorderChild , - - --- ** notebookSetActionWidget - NotebookSetActionWidgetMethodInfo , - notebookSetActionWidget , - - --- ** notebookSetCurrentPage - NotebookSetCurrentPageMethodInfo , - notebookSetCurrentPage , - - --- ** notebookSetGroupName - NotebookSetGroupNameMethodInfo , - notebookSetGroupName , - - --- ** notebookSetMenuLabel - NotebookSetMenuLabelMethodInfo , - notebookSetMenuLabel , - - --- ** notebookSetMenuLabelText - NotebookSetMenuLabelTextMethodInfo , - notebookSetMenuLabelText , - - --- ** notebookSetScrollable - NotebookSetScrollableMethodInfo , - notebookSetScrollable , - - --- ** notebookSetShowBorder - NotebookSetShowBorderMethodInfo , - notebookSetShowBorder , - - --- ** notebookSetShowTabs - NotebookSetShowTabsMethodInfo , - notebookSetShowTabs , - - --- ** notebookSetTabDetachable - NotebookSetTabDetachableMethodInfo , - notebookSetTabDetachable , - - --- ** notebookSetTabLabel - NotebookSetTabLabelMethodInfo , - notebookSetTabLabel , - - --- ** notebookSetTabLabelText - NotebookSetTabLabelTextMethodInfo , - notebookSetTabLabelText , - - --- ** notebookSetTabPos - NotebookSetTabPosMethodInfo , - notebookSetTabPos , - - --- ** notebookSetTabReorderable - NotebookSetTabReorderableMethodInfo , - notebookSetTabReorderable , - - - - - -- * Properties --- ** EnablePopup - NotebookEnablePopupPropertyInfo , - constructNotebookEnablePopup , - getNotebookEnablePopup , - notebookEnablePopup , - setNotebookEnablePopup , - - --- ** GroupName - NotebookGroupNamePropertyInfo , - clearNotebookGroupName , - constructNotebookGroupName , - getNotebookGroupName , - notebookGroupName , - setNotebookGroupName , - - --- ** Page - NotebookPagePropertyInfo , - constructNotebookPage , - getNotebookPage , - notebookPage , - setNotebookPage , - - --- ** Scrollable - NotebookScrollablePropertyInfo , - constructNotebookScrollable , - getNotebookScrollable , - notebookScrollable , - setNotebookScrollable , - - --- ** ShowBorder - NotebookShowBorderPropertyInfo , - constructNotebookShowBorder , - getNotebookShowBorder , - notebookShowBorder , - setNotebookShowBorder , - - --- ** ShowTabs - NotebookShowTabsPropertyInfo , - constructNotebookShowTabs , - getNotebookShowTabs , - notebookShowTabs , - setNotebookShowTabs , - - --- ** TabPos - NotebookTabPosPropertyInfo , - constructNotebookTabPos , - getNotebookTabPos , - notebookTabPos , - setNotebookTabPos , - - - - - -- * Signals --- ** ChangeCurrentPage - NotebookChangeCurrentPageCallback , - NotebookChangeCurrentPageCallbackC , - NotebookChangeCurrentPageSignalInfo , - afterNotebookChangeCurrentPage , - mkNotebookChangeCurrentPageCallback , - noNotebookChangeCurrentPageCallback , - notebookChangeCurrentPageCallbackWrapper, - notebookChangeCurrentPageClosure , - onNotebookChangeCurrentPage , - - --- ** CreateWindow - NotebookCreateWindowCallback , - NotebookCreateWindowCallbackC , - NotebookCreateWindowSignalInfo , - afterNotebookCreateWindow , - mkNotebookCreateWindowCallback , - noNotebookCreateWindowCallback , - notebookCreateWindowCallbackWrapper , - notebookCreateWindowClosure , - onNotebookCreateWindow , - - --- ** FocusTab - NotebookFocusTabCallback , - NotebookFocusTabCallbackC , - NotebookFocusTabSignalInfo , - afterNotebookFocusTab , - mkNotebookFocusTabCallback , - noNotebookFocusTabCallback , - notebookFocusTabCallbackWrapper , - notebookFocusTabClosure , - onNotebookFocusTab , - - --- ** MoveFocusOut - NotebookMoveFocusOutCallback , - NotebookMoveFocusOutCallbackC , - NotebookMoveFocusOutSignalInfo , - afterNotebookMoveFocusOut , - mkNotebookMoveFocusOutCallback , - noNotebookMoveFocusOutCallback , - notebookMoveFocusOutCallbackWrapper , - notebookMoveFocusOutClosure , - onNotebookMoveFocusOut , - - --- ** PageAdded - NotebookPageAddedCallback , - NotebookPageAddedCallbackC , - NotebookPageAddedSignalInfo , - afterNotebookPageAdded , - mkNotebookPageAddedCallback , - noNotebookPageAddedCallback , - notebookPageAddedCallbackWrapper , - notebookPageAddedClosure , - onNotebookPageAdded , - - --- ** PageRemoved - NotebookPageRemovedCallback , - NotebookPageRemovedCallbackC , - NotebookPageRemovedSignalInfo , - afterNotebookPageRemoved , - mkNotebookPageRemovedCallback , - noNotebookPageRemovedCallback , - notebookPageRemovedCallbackWrapper , - notebookPageRemovedClosure , - onNotebookPageRemoved , - - --- ** PageReordered - NotebookPageReorderedCallback , - NotebookPageReorderedCallbackC , - NotebookPageReorderedSignalInfo , - afterNotebookPageReordered , - mkNotebookPageReorderedCallback , - noNotebookPageReorderedCallback , - notebookPageReorderedCallbackWrapper , - notebookPageReorderedClosure , - onNotebookPageReordered , - - --- ** ReorderTab - NotebookReorderTabCallback , - NotebookReorderTabCallbackC , - NotebookReorderTabSignalInfo , - afterNotebookReorderTab , - mkNotebookReorderTabCallback , - noNotebookReorderTabCallback , - notebookReorderTabCallbackWrapper , - notebookReorderTabClosure , - onNotebookReorderTab , - - --- ** SelectPage - NotebookSelectPageCallback , - NotebookSelectPageCallbackC , - NotebookSelectPageSignalInfo , - afterNotebookSelectPage , - mkNotebookSelectPageCallback , - noNotebookSelectPageCallback , - notebookSelectPageCallbackWrapper , - notebookSelectPageClosure , - onNotebookSelectPage , - - --- ** SwitchPage - NotebookSwitchPageCallback , - NotebookSwitchPageCallbackC , - NotebookSwitchPageSignalInfo , - afterNotebookSwitchPage , - mkNotebookSwitchPageCallback , - noNotebookSwitchPageCallback , - notebookSwitchPageCallbackWrapper , - notebookSwitchPageClosure , - onNotebookSwitchPage , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Notebook = Notebook (ForeignPtr Notebook) -foreign import ccall "gtk_notebook_get_type" - c_gtk_notebook_get_type :: IO GType - -type instance ParentTypes Notebook = NotebookParentTypes -type NotebookParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Notebook where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_notebook_get_type - - -class GObject o => NotebookK o -instance (GObject o, IsDescendantOf Notebook o) => NotebookK o - -toNotebook :: NotebookK o => o -> IO Notebook -toNotebook = unsafeCastTo Notebook - -noNotebook :: Maybe Notebook -noNotebook = Nothing - -type family ResolveNotebookMethod (t :: Symbol) (o :: *) :: * where - ResolveNotebookMethod "activate" o = WidgetActivateMethodInfo - ResolveNotebookMethod "add" o = ContainerAddMethodInfo - ResolveNotebookMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveNotebookMethod "addChild" o = BuildableAddChildMethodInfo - ResolveNotebookMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveNotebookMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveNotebookMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveNotebookMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveNotebookMethod "appendPage" o = NotebookAppendPageMethodInfo - ResolveNotebookMethod "appendPageMenu" o = NotebookAppendPageMenuMethodInfo - ResolveNotebookMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotebookMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotebookMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveNotebookMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveNotebookMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveNotebookMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveNotebookMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveNotebookMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveNotebookMethod "childType" o = ContainerChildTypeMethodInfo - ResolveNotebookMethod "classPath" o = WidgetClassPathMethodInfo - ResolveNotebookMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveNotebookMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveNotebookMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveNotebookMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveNotebookMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveNotebookMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveNotebookMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveNotebookMethod "destroy" o = WidgetDestroyMethodInfo - ResolveNotebookMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveNotebookMethod "detachTab" o = NotebookDetachTabMethodInfo - ResolveNotebookMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveNotebookMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveNotebookMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveNotebookMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveNotebookMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveNotebookMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveNotebookMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveNotebookMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveNotebookMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveNotebookMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveNotebookMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveNotebookMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveNotebookMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveNotebookMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveNotebookMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveNotebookMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveNotebookMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveNotebookMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveNotebookMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveNotebookMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveNotebookMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveNotebookMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveNotebookMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveNotebookMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveNotebookMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveNotebookMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveNotebookMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveNotebookMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveNotebookMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveNotebookMethod "draw" o = WidgetDrawMethodInfo - ResolveNotebookMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveNotebookMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveNotebookMethod "event" o = WidgetEventMethodInfo - ResolveNotebookMethod "forall" o = ContainerForallMethodInfo - ResolveNotebookMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotebookMethod "foreach" o = ContainerForeachMethodInfo - ResolveNotebookMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveNotebookMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotebookMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveNotebookMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveNotebookMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveNotebookMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveNotebookMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveNotebookMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveNotebookMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveNotebookMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveNotebookMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveNotebookMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveNotebookMethod "hide" o = WidgetHideMethodInfo - ResolveNotebookMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveNotebookMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveNotebookMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveNotebookMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveNotebookMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveNotebookMethod "insertPage" o = NotebookInsertPageMethodInfo - ResolveNotebookMethod "insertPageMenu" o = NotebookInsertPageMenuMethodInfo - ResolveNotebookMethod "intersect" o = WidgetIntersectMethodInfo - ResolveNotebookMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveNotebookMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveNotebookMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveNotebookMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotebookMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveNotebookMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveNotebookMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveNotebookMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveNotebookMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveNotebookMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveNotebookMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveNotebookMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveNotebookMethod "map" o = WidgetMapMethodInfo - ResolveNotebookMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveNotebookMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveNotebookMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveNotebookMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveNotebookMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveNotebookMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveNotebookMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveNotebookMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveNotebookMethod "nextPage" o = NotebookNextPageMethodInfo - ResolveNotebookMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotebookMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotebookMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveNotebookMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveNotebookMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveNotebookMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveNotebookMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveNotebookMethod "pageNum" o = NotebookPageNumMethodInfo - ResolveNotebookMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveNotebookMethod "path" o = WidgetPathMethodInfo - ResolveNotebookMethod "popupDisable" o = NotebookPopupDisableMethodInfo - ResolveNotebookMethod "popupEnable" o = NotebookPopupEnableMethodInfo - ResolveNotebookMethod "prependPage" o = NotebookPrependPageMethodInfo - ResolveNotebookMethod "prependPageMenu" o = NotebookPrependPageMenuMethodInfo - ResolveNotebookMethod "prevPage" o = NotebookPrevPageMethodInfo - ResolveNotebookMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveNotebookMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveNotebookMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveNotebookMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveNotebookMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveNotebookMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveNotebookMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveNotebookMethod "realize" o = WidgetRealizeMethodInfo - ResolveNotebookMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotebookMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotebookMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveNotebookMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveNotebookMethod "remove" o = ContainerRemoveMethodInfo - ResolveNotebookMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveNotebookMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveNotebookMethod "removePage" o = NotebookRemovePageMethodInfo - ResolveNotebookMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveNotebookMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveNotebookMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveNotebookMethod "reorderChild" o = NotebookReorderChildMethodInfo - ResolveNotebookMethod "reparent" o = WidgetReparentMethodInfo - ResolveNotebookMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotebookMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotebookMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveNotebookMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveNotebookMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveNotebookMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotebookMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveNotebookMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveNotebookMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveNotebookMethod "show" o = WidgetShowMethodInfo - ResolveNotebookMethod "showAll" o = WidgetShowAllMethodInfo - ResolveNotebookMethod "showNow" o = WidgetShowNowMethodInfo - ResolveNotebookMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveNotebookMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveNotebookMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveNotebookMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotebookMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotebookMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveNotebookMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveNotebookMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveNotebookMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotebookMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveNotebookMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveNotebookMethod "unmap" o = WidgetUnmapMethodInfo - ResolveNotebookMethod "unparent" o = WidgetUnparentMethodInfo - ResolveNotebookMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveNotebookMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotebookMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveNotebookMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveNotebookMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveNotebookMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotebookMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveNotebookMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveNotebookMethod "getActionWidget" o = NotebookGetActionWidgetMethodInfo - ResolveNotebookMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveNotebookMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveNotebookMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveNotebookMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveNotebookMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveNotebookMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveNotebookMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveNotebookMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveNotebookMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveNotebookMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveNotebookMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveNotebookMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveNotebookMethod "getClip" o = WidgetGetClipMethodInfo - ResolveNotebookMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveNotebookMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveNotebookMethod "getCurrentPage" o = NotebookGetCurrentPageMethodInfo - ResolveNotebookMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotebookMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveNotebookMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveNotebookMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveNotebookMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveNotebookMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveNotebookMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveNotebookMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveNotebookMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveNotebookMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveNotebookMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveNotebookMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveNotebookMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveNotebookMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveNotebookMethod "getGroupName" o = NotebookGetGroupNameMethodInfo - ResolveNotebookMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveNotebookMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveNotebookMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveNotebookMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveNotebookMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveNotebookMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveNotebookMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveNotebookMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveNotebookMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveNotebookMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveNotebookMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveNotebookMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveNotebookMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveNotebookMethod "getMenuLabel" o = NotebookGetMenuLabelMethodInfo - ResolveNotebookMethod "getMenuLabelText" o = NotebookGetMenuLabelTextMethodInfo - ResolveNotebookMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveNotebookMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveNotebookMethod "getNPages" o = NotebookGetNPagesMethodInfo - ResolveNotebookMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveNotebookMethod "getNthPage" o = NotebookGetNthPageMethodInfo - ResolveNotebookMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveNotebookMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveNotebookMethod "getParent" o = WidgetGetParentMethodInfo - ResolveNotebookMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveNotebookMethod "getPath" o = WidgetGetPathMethodInfo - ResolveNotebookMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveNotebookMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveNotebookMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveNotebookMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveNotebookMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveNotebookMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveNotebookMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveNotebookMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveNotebookMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotebookMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotebookMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveNotebookMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveNotebookMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveNotebookMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveNotebookMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveNotebookMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveNotebookMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveNotebookMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveNotebookMethod "getScrollable" o = NotebookGetScrollableMethodInfo - ResolveNotebookMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveNotebookMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveNotebookMethod "getShowBorder" o = NotebookGetShowBorderMethodInfo - ResolveNotebookMethod "getShowTabs" o = NotebookGetShowTabsMethodInfo - ResolveNotebookMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveNotebookMethod "getState" o = WidgetGetStateMethodInfo - ResolveNotebookMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveNotebookMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveNotebookMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveNotebookMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveNotebookMethod "getTabDetachable" o = NotebookGetTabDetachableMethodInfo - ResolveNotebookMethod "getTabHborder" o = NotebookGetTabHborderMethodInfo - ResolveNotebookMethod "getTabLabel" o = NotebookGetTabLabelMethodInfo - ResolveNotebookMethod "getTabLabelText" o = NotebookGetTabLabelTextMethodInfo - ResolveNotebookMethod "getTabPos" o = NotebookGetTabPosMethodInfo - ResolveNotebookMethod "getTabReorderable" o = NotebookGetTabReorderableMethodInfo - ResolveNotebookMethod "getTabVborder" o = NotebookGetTabVborderMethodInfo - ResolveNotebookMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveNotebookMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveNotebookMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveNotebookMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveNotebookMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveNotebookMethod "getValign" o = WidgetGetValignMethodInfo - ResolveNotebookMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveNotebookMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveNotebookMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveNotebookMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveNotebookMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveNotebookMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveNotebookMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveNotebookMethod "setActionWidget" o = NotebookSetActionWidgetMethodInfo - ResolveNotebookMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveNotebookMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveNotebookMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveNotebookMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveNotebookMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveNotebookMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveNotebookMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveNotebookMethod "setClip" o = WidgetSetClipMethodInfo - ResolveNotebookMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveNotebookMethod "setCurrentPage" o = NotebookSetCurrentPageMethodInfo - ResolveNotebookMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotebookMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveNotebookMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveNotebookMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveNotebookMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveNotebookMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveNotebookMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveNotebookMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveNotebookMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveNotebookMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveNotebookMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveNotebookMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveNotebookMethod "setGroupName" o = NotebookSetGroupNameMethodInfo - ResolveNotebookMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveNotebookMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveNotebookMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveNotebookMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveNotebookMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveNotebookMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveNotebookMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveNotebookMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveNotebookMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveNotebookMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveNotebookMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveNotebookMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveNotebookMethod "setMenuLabel" o = NotebookSetMenuLabelMethodInfo - ResolveNotebookMethod "setMenuLabelText" o = NotebookSetMenuLabelTextMethodInfo - ResolveNotebookMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveNotebookMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveNotebookMethod "setParent" o = WidgetSetParentMethodInfo - ResolveNotebookMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveNotebookMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotebookMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveNotebookMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveNotebookMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveNotebookMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveNotebookMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveNotebookMethod "setScrollable" o = NotebookSetScrollableMethodInfo - ResolveNotebookMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveNotebookMethod "setShowBorder" o = NotebookSetShowBorderMethodInfo - ResolveNotebookMethod "setShowTabs" o = NotebookSetShowTabsMethodInfo - ResolveNotebookMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveNotebookMethod "setState" o = WidgetSetStateMethodInfo - ResolveNotebookMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveNotebookMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveNotebookMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveNotebookMethod "setTabDetachable" o = NotebookSetTabDetachableMethodInfo - ResolveNotebookMethod "setTabLabel" o = NotebookSetTabLabelMethodInfo - ResolveNotebookMethod "setTabLabelText" o = NotebookSetTabLabelTextMethodInfo - ResolveNotebookMethod "setTabPos" o = NotebookSetTabPosMethodInfo - ResolveNotebookMethod "setTabReorderable" o = NotebookSetTabReorderableMethodInfo - ResolveNotebookMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveNotebookMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveNotebookMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveNotebookMethod "setValign" o = WidgetSetValignMethodInfo - ResolveNotebookMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveNotebookMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveNotebookMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveNotebookMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveNotebookMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveNotebookMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotebookMethod t Notebook, MethodInfo info Notebook p) => IsLabelProxy t (Notebook -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotebookMethod t Notebook, MethodInfo info Notebook p) => IsLabel t (Notebook -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Notebook::change-current-page -type NotebookChangeCurrentPageCallback = - Int32 -> - IO Bool - -noNotebookChangeCurrentPageCallback :: Maybe NotebookChangeCurrentPageCallback -noNotebookChangeCurrentPageCallback = Nothing - -type NotebookChangeCurrentPageCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookChangeCurrentPageCallback :: NotebookChangeCurrentPageCallbackC -> IO (FunPtr NotebookChangeCurrentPageCallbackC) - -notebookChangeCurrentPageClosure :: NotebookChangeCurrentPageCallback -> IO Closure -notebookChangeCurrentPageClosure cb = newCClosure =<< mkNotebookChangeCurrentPageCallback wrapped - where wrapped = notebookChangeCurrentPageCallbackWrapper cb - -notebookChangeCurrentPageCallbackWrapper :: - NotebookChangeCurrentPageCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO CInt -notebookChangeCurrentPageCallbackWrapper _cb _ object _ = do - result <- _cb object - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId -onNotebookChangeCurrentPage obj cb = liftIO $ connectNotebookChangeCurrentPage obj cb SignalConnectBefore -afterNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId -afterNotebookChangeCurrentPage obj cb = connectNotebookChangeCurrentPage obj cb SignalConnectAfter - -connectNotebookChangeCurrentPage :: (GObject a, MonadIO m) => - a -> NotebookChangeCurrentPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookChangeCurrentPage obj cb after = liftIO $ do - cb' <- mkNotebookChangeCurrentPageCallback (notebookChangeCurrentPageCallbackWrapper cb) - connectSignalFunPtr obj "change-current-page" cb' after - --- signal Notebook::create-window -type NotebookCreateWindowCallback = - Widget -> - Int32 -> - Int32 -> - IO Notebook - -noNotebookCreateWindowCallback :: Maybe NotebookCreateWindowCallback -noNotebookCreateWindowCallback = Nothing - -type NotebookCreateWindowCallbackC = - Ptr () -> -- object - Ptr Widget -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO (Ptr Notebook) - -foreign import ccall "wrapper" - mkNotebookCreateWindowCallback :: NotebookCreateWindowCallbackC -> IO (FunPtr NotebookCreateWindowCallbackC) - -notebookCreateWindowClosure :: NotebookCreateWindowCallback -> IO Closure -notebookCreateWindowClosure cb = newCClosure =<< mkNotebookCreateWindowCallback wrapped - where wrapped = notebookCreateWindowCallbackWrapper cb - -notebookCreateWindowCallbackWrapper :: - NotebookCreateWindowCallback -> - Ptr () -> - Ptr Widget -> - Int32 -> - Int32 -> - Ptr () -> - IO (Ptr Notebook) -notebookCreateWindowCallbackWrapper _cb _ page x y _ = do - page' <- (newObject Widget) page - result <- _cb page' x y - let result' = unsafeManagedPtrCastPtr result - return result' - -onNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId -onNotebookCreateWindow obj cb = liftIO $ connectNotebookCreateWindow obj cb SignalConnectBefore -afterNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId -afterNotebookCreateWindow obj cb = connectNotebookCreateWindow obj cb SignalConnectAfter - -connectNotebookCreateWindow :: (GObject a, MonadIO m) => - a -> NotebookCreateWindowCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookCreateWindow obj cb after = liftIO $ do - cb' <- mkNotebookCreateWindowCallback (notebookCreateWindowCallbackWrapper cb) - connectSignalFunPtr obj "create-window" cb' after - --- signal Notebook::focus-tab -type NotebookFocusTabCallback = - NotebookTab -> - IO Bool - -noNotebookFocusTabCallback :: Maybe NotebookFocusTabCallback -noNotebookFocusTabCallback = Nothing - -type NotebookFocusTabCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookFocusTabCallback :: NotebookFocusTabCallbackC -> IO (FunPtr NotebookFocusTabCallbackC) - -notebookFocusTabClosure :: NotebookFocusTabCallback -> IO Closure -notebookFocusTabClosure cb = newCClosure =<< mkNotebookFocusTabCallback wrapped - where wrapped = notebookFocusTabCallbackWrapper cb - -notebookFocusTabCallbackWrapper :: - NotebookFocusTabCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -notebookFocusTabCallbackWrapper _cb _ object _ = do - let object' = (toEnum . fromIntegral) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId -onNotebookFocusTab obj cb = liftIO $ connectNotebookFocusTab obj cb SignalConnectBefore -afterNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId -afterNotebookFocusTab obj cb = connectNotebookFocusTab obj cb SignalConnectAfter - -connectNotebookFocusTab :: (GObject a, MonadIO m) => - a -> NotebookFocusTabCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookFocusTab obj cb after = liftIO $ do - cb' <- mkNotebookFocusTabCallback (notebookFocusTabCallbackWrapper cb) - connectSignalFunPtr obj "focus-tab" cb' after - --- signal Notebook::move-focus-out -type NotebookMoveFocusOutCallback = - DirectionType -> - IO () - -noNotebookMoveFocusOutCallback :: Maybe NotebookMoveFocusOutCallback -noNotebookMoveFocusOutCallback = Nothing - -type NotebookMoveFocusOutCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookMoveFocusOutCallback :: NotebookMoveFocusOutCallbackC -> IO (FunPtr NotebookMoveFocusOutCallbackC) - -notebookMoveFocusOutClosure :: NotebookMoveFocusOutCallback -> IO Closure -notebookMoveFocusOutClosure cb = newCClosure =<< mkNotebookMoveFocusOutCallback wrapped - where wrapped = notebookMoveFocusOutCallbackWrapper cb - -notebookMoveFocusOutCallbackWrapper :: - NotebookMoveFocusOutCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -notebookMoveFocusOutCallbackWrapper _cb _ object _ = do - let object' = (toEnum . fromIntegral) object - _cb object' - -onNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId -onNotebookMoveFocusOut obj cb = liftIO $ connectNotebookMoveFocusOut obj cb SignalConnectBefore -afterNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId -afterNotebookMoveFocusOut obj cb = connectNotebookMoveFocusOut obj cb SignalConnectAfter - -connectNotebookMoveFocusOut :: (GObject a, MonadIO m) => - a -> NotebookMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookMoveFocusOut obj cb after = liftIO $ do - cb' <- mkNotebookMoveFocusOutCallback (notebookMoveFocusOutCallbackWrapper cb) - connectSignalFunPtr obj "move-focus-out" cb' after - --- signal Notebook::page-added -type NotebookPageAddedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageAddedCallback :: Maybe NotebookPageAddedCallback -noNotebookPageAddedCallback = Nothing - -type NotebookPageAddedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageAddedCallback :: NotebookPageAddedCallbackC -> IO (FunPtr NotebookPageAddedCallbackC) - -notebookPageAddedClosure :: NotebookPageAddedCallback -> IO Closure -notebookPageAddedClosure cb = newCClosure =<< mkNotebookPageAddedCallback wrapped - where wrapped = notebookPageAddedCallbackWrapper cb - -notebookPageAddedCallbackWrapper :: - NotebookPageAddedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageAddedCallbackWrapper _cb _ child pageNum _ = do - child' <- (newObject Widget) child - _cb child' pageNum - -onNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId -onNotebookPageAdded obj cb = liftIO $ connectNotebookPageAdded obj cb SignalConnectBefore -afterNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId -afterNotebookPageAdded obj cb = connectNotebookPageAdded obj cb SignalConnectAfter - -connectNotebookPageAdded :: (GObject a, MonadIO m) => - a -> NotebookPageAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageAdded obj cb after = liftIO $ do - cb' <- mkNotebookPageAddedCallback (notebookPageAddedCallbackWrapper cb) - connectSignalFunPtr obj "page-added" cb' after - --- signal Notebook::page-removed -type NotebookPageRemovedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageRemovedCallback :: Maybe NotebookPageRemovedCallback -noNotebookPageRemovedCallback = Nothing - -type NotebookPageRemovedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageRemovedCallback :: NotebookPageRemovedCallbackC -> IO (FunPtr NotebookPageRemovedCallbackC) - -notebookPageRemovedClosure :: NotebookPageRemovedCallback -> IO Closure -notebookPageRemovedClosure cb = newCClosure =<< mkNotebookPageRemovedCallback wrapped - where wrapped = notebookPageRemovedCallbackWrapper cb - -notebookPageRemovedCallbackWrapper :: - NotebookPageRemovedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageRemovedCallbackWrapper _cb _ child pageNum _ = do - child' <- (newObject Widget) child - _cb child' pageNum - -onNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId -onNotebookPageRemoved obj cb = liftIO $ connectNotebookPageRemoved obj cb SignalConnectBefore -afterNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId -afterNotebookPageRemoved obj cb = connectNotebookPageRemoved obj cb SignalConnectAfter - -connectNotebookPageRemoved :: (GObject a, MonadIO m) => - a -> NotebookPageRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageRemoved obj cb after = liftIO $ do - cb' <- mkNotebookPageRemovedCallback (notebookPageRemovedCallbackWrapper cb) - connectSignalFunPtr obj "page-removed" cb' after - --- signal Notebook::page-reordered -type NotebookPageReorderedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageReorderedCallback :: Maybe NotebookPageReorderedCallback -noNotebookPageReorderedCallback = Nothing - -type NotebookPageReorderedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageReorderedCallback :: NotebookPageReorderedCallbackC -> IO (FunPtr NotebookPageReorderedCallbackC) - -notebookPageReorderedClosure :: NotebookPageReorderedCallback -> IO Closure -notebookPageReorderedClosure cb = newCClosure =<< mkNotebookPageReorderedCallback wrapped - where wrapped = notebookPageReorderedCallbackWrapper cb - -notebookPageReorderedCallbackWrapper :: - NotebookPageReorderedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageReorderedCallbackWrapper _cb _ child pageNum _ = do - child' <- (newObject Widget) child - _cb child' pageNum - -onNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId -onNotebookPageReordered obj cb = liftIO $ connectNotebookPageReordered obj cb SignalConnectBefore -afterNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId -afterNotebookPageReordered obj cb = connectNotebookPageReordered obj cb SignalConnectAfter - -connectNotebookPageReordered :: (GObject a, MonadIO m) => - a -> NotebookPageReorderedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageReordered obj cb after = liftIO $ do - cb' <- mkNotebookPageReorderedCallback (notebookPageReorderedCallbackWrapper cb) - connectSignalFunPtr obj "page-reordered" cb' after - --- signal Notebook::reorder-tab -type NotebookReorderTabCallback = - DirectionType -> - Bool -> - IO Bool - -noNotebookReorderTabCallback :: Maybe NotebookReorderTabCallback -noNotebookReorderTabCallback = Nothing - -type NotebookReorderTabCallbackC = - Ptr () -> -- object - CUInt -> - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookReorderTabCallback :: NotebookReorderTabCallbackC -> IO (FunPtr NotebookReorderTabCallbackC) - -notebookReorderTabClosure :: NotebookReorderTabCallback -> IO Closure -notebookReorderTabClosure cb = newCClosure =<< mkNotebookReorderTabCallback wrapped - where wrapped = notebookReorderTabCallbackWrapper cb - -notebookReorderTabCallbackWrapper :: - NotebookReorderTabCallback -> - Ptr () -> - CUInt -> - CInt -> - Ptr () -> - IO CInt -notebookReorderTabCallbackWrapper _cb _ object p0 _ = do - let object' = (toEnum . fromIntegral) object - let p0' = (/= 0) p0 - result <- _cb object' p0' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId -onNotebookReorderTab obj cb = liftIO $ connectNotebookReorderTab obj cb SignalConnectBefore -afterNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId -afterNotebookReorderTab obj cb = connectNotebookReorderTab obj cb SignalConnectAfter - -connectNotebookReorderTab :: (GObject a, MonadIO m) => - a -> NotebookReorderTabCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookReorderTab obj cb after = liftIO $ do - cb' <- mkNotebookReorderTabCallback (notebookReorderTabCallbackWrapper cb) - connectSignalFunPtr obj "reorder-tab" cb' after - --- signal Notebook::select-page -type NotebookSelectPageCallback = - Bool -> - IO Bool - -noNotebookSelectPageCallback :: Maybe NotebookSelectPageCallback -noNotebookSelectPageCallback = Nothing - -type NotebookSelectPageCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookSelectPageCallback :: NotebookSelectPageCallbackC -> IO (FunPtr NotebookSelectPageCallbackC) - -notebookSelectPageClosure :: NotebookSelectPageCallback -> IO Closure -notebookSelectPageClosure cb = newCClosure =<< mkNotebookSelectPageCallback wrapped - where wrapped = notebookSelectPageCallbackWrapper cb - -notebookSelectPageCallbackWrapper :: - NotebookSelectPageCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -notebookSelectPageCallbackWrapper _cb _ object _ = do - let object' = (/= 0) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId -onNotebookSelectPage obj cb = liftIO $ connectNotebookSelectPage obj cb SignalConnectBefore -afterNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId -afterNotebookSelectPage obj cb = connectNotebookSelectPage obj cb SignalConnectAfter - -connectNotebookSelectPage :: (GObject a, MonadIO m) => - a -> NotebookSelectPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookSelectPage obj cb after = liftIO $ do - cb' <- mkNotebookSelectPageCallback (notebookSelectPageCallbackWrapper cb) - connectSignalFunPtr obj "select-page" cb' after - --- signal Notebook::switch-page -type NotebookSwitchPageCallback = - Widget -> - Word32 -> - IO () - -noNotebookSwitchPageCallback :: Maybe NotebookSwitchPageCallback -noNotebookSwitchPageCallback = Nothing - -type NotebookSwitchPageCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookSwitchPageCallback :: NotebookSwitchPageCallbackC -> IO (FunPtr NotebookSwitchPageCallbackC) - -notebookSwitchPageClosure :: NotebookSwitchPageCallback -> IO Closure -notebookSwitchPageClosure cb = newCClosure =<< mkNotebookSwitchPageCallback wrapped - where wrapped = notebookSwitchPageCallbackWrapper cb - -notebookSwitchPageCallbackWrapper :: - NotebookSwitchPageCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookSwitchPageCallbackWrapper _cb _ page pageNum _ = do - page' <- (newObject Widget) page - _cb page' pageNum - -onNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId -onNotebookSwitchPage obj cb = liftIO $ connectNotebookSwitchPage obj cb SignalConnectBefore -afterNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId -afterNotebookSwitchPage obj cb = connectNotebookSwitchPage obj cb SignalConnectAfter - -connectNotebookSwitchPage :: (GObject a, MonadIO m) => - a -> NotebookSwitchPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookSwitchPage obj cb after = liftIO $ do - cb' <- mkNotebookSwitchPageCallback (notebookSwitchPageCallbackWrapper cb) - connectSignalFunPtr obj "switch-page" cb' after - --- VVV Prop "enable-popup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookEnablePopup obj = liftIO $ getObjectPropertyBool obj "enable-popup" - -setNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookEnablePopup obj val = liftIO $ setObjectPropertyBool obj "enable-popup" val - -constructNotebookEnablePopup :: Bool -> IO ([Char], GValue) -constructNotebookEnablePopup val = constructObjectPropertyBool "enable-popup" val - -data NotebookEnablePopupPropertyInfo -instance AttrInfo NotebookEnablePopupPropertyInfo where - type AttrAllowedOps NotebookEnablePopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookEnablePopupPropertyInfo = NotebookK - type AttrGetType NotebookEnablePopupPropertyInfo = Bool - type AttrLabel NotebookEnablePopupPropertyInfo = "enable-popup" - attrGet _ = getNotebookEnablePopup - attrSet _ = setNotebookEnablePopup - attrConstruct _ = constructNotebookEnablePopup - attrClear _ = undefined - --- VVV Prop "group-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text -getNotebookGroupName obj = liftIO $ checkUnexpectedNothing "getNotebookGroupName" $ getObjectPropertyString obj "group-name" - -setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () -setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" (Just val) - -constructNotebookGroupName :: T.Text -> IO ([Char], GValue) -constructNotebookGroupName val = constructObjectPropertyString "group-name" (Just val) - -clearNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m () -clearNotebookGroupName obj = liftIO $ setObjectPropertyString obj "group-name" (Nothing :: Maybe T.Text) - -data NotebookGroupNamePropertyInfo -instance AttrInfo NotebookGroupNamePropertyInfo where - type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK - type AttrGetType NotebookGroupNamePropertyInfo = T.Text - type AttrLabel NotebookGroupNamePropertyInfo = "group-name" - attrGet _ = getNotebookGroupName - attrSet _ = setNotebookGroupName - attrConstruct _ = constructNotebookGroupName - attrClear _ = clearNotebookGroupName - --- VVV Prop "page" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 -getNotebookPage obj = liftIO $ getObjectPropertyInt32 obj "page" - -setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () -setNotebookPage obj val = liftIO $ setObjectPropertyInt32 obj "page" val - -constructNotebookPage :: Int32 -> IO ([Char], GValue) -constructNotebookPage val = constructObjectPropertyInt32 "page" val - -data NotebookPagePropertyInfo -instance AttrInfo NotebookPagePropertyInfo where - type AttrAllowedOps NotebookPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookPagePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint NotebookPagePropertyInfo = NotebookK - type AttrGetType NotebookPagePropertyInfo = Int32 - type AttrLabel NotebookPagePropertyInfo = "page" - attrGet _ = getNotebookPage - attrSet _ = setNotebookPage - attrConstruct _ = constructNotebookPage - attrClear _ = undefined - --- VVV Prop "scrollable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNotebookScrollable :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookScrollable obj = liftIO $ getObjectPropertyBool obj "scrollable" - -setNotebookScrollable :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookScrollable obj val = liftIO $ setObjectPropertyBool obj "scrollable" val - -constructNotebookScrollable :: Bool -> IO ([Char], GValue) -constructNotebookScrollable val = constructObjectPropertyBool "scrollable" val - -data NotebookScrollablePropertyInfo -instance AttrInfo NotebookScrollablePropertyInfo where - type AttrAllowedOps NotebookScrollablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookScrollablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookScrollablePropertyInfo = NotebookK - type AttrGetType NotebookScrollablePropertyInfo = Bool - type AttrLabel NotebookScrollablePropertyInfo = "scrollable" - attrGet _ = getNotebookScrollable - attrSet _ = setNotebookScrollable - attrConstruct _ = constructNotebookScrollable - attrClear _ = undefined - --- VVV Prop "show-border" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookShowBorder obj = liftIO $ getObjectPropertyBool obj "show-border" - -setNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookShowBorder obj val = liftIO $ setObjectPropertyBool obj "show-border" val - -constructNotebookShowBorder :: Bool -> IO ([Char], GValue) -constructNotebookShowBorder val = constructObjectPropertyBool "show-border" val - -data NotebookShowBorderPropertyInfo -instance AttrInfo NotebookShowBorderPropertyInfo where - type AttrAllowedOps NotebookShowBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookShowBorderPropertyInfo = NotebookK - type AttrGetType NotebookShowBorderPropertyInfo = Bool - type AttrLabel NotebookShowBorderPropertyInfo = "show-border" - attrGet _ = getNotebookShowBorder - attrSet _ = setNotebookShowBorder - attrConstruct _ = constructNotebookShowBorder - attrClear _ = undefined - --- VVV Prop "show-tabs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookShowTabs obj = liftIO $ getObjectPropertyBool obj "show-tabs" - -setNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookShowTabs obj val = liftIO $ setObjectPropertyBool obj "show-tabs" val - -constructNotebookShowTabs :: Bool -> IO ([Char], GValue) -constructNotebookShowTabs val = constructObjectPropertyBool "show-tabs" val - -data NotebookShowTabsPropertyInfo -instance AttrInfo NotebookShowTabsPropertyInfo where - type AttrAllowedOps NotebookShowTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookShowTabsPropertyInfo = NotebookK - type AttrGetType NotebookShowTabsPropertyInfo = Bool - type AttrLabel NotebookShowTabsPropertyInfo = "show-tabs" - attrGet _ = getNotebookShowTabs - attrSet _ = setNotebookShowTabs - attrConstruct _ = constructNotebookShowTabs - attrClear _ = undefined - --- VVV Prop "tab-pos" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNotebookTabPos :: (MonadIO m, NotebookK o) => o -> m PositionType -getNotebookTabPos obj = liftIO $ getObjectPropertyEnum obj "tab-pos" - -setNotebookTabPos :: (MonadIO m, NotebookK o) => o -> PositionType -> m () -setNotebookTabPos obj val = liftIO $ setObjectPropertyEnum obj "tab-pos" val - -constructNotebookTabPos :: PositionType -> IO ([Char], GValue) -constructNotebookTabPos val = constructObjectPropertyEnum "tab-pos" val - -data NotebookTabPosPropertyInfo -instance AttrInfo NotebookTabPosPropertyInfo where - type AttrAllowedOps NotebookTabPosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookTabPosPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint NotebookTabPosPropertyInfo = NotebookK - type AttrGetType NotebookTabPosPropertyInfo = PositionType - type AttrLabel NotebookTabPosPropertyInfo = "tab-pos" - attrGet _ = getNotebookTabPos - attrSet _ = setNotebookTabPos - attrConstruct _ = constructNotebookTabPos - attrClear _ = undefined - -type instance AttributeList Notebook = NotebookAttributeList -type NotebookAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enablePopup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("groupName", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showBorder", NotebookShowBorderPropertyInfo), '("showTabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabPos", NotebookTabPosPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -notebookEnablePopup :: AttrLabelProxy "enablePopup" -notebookEnablePopup = AttrLabelProxy - -notebookGroupName :: AttrLabelProxy "groupName" -notebookGroupName = AttrLabelProxy - -notebookPage :: AttrLabelProxy "page" -notebookPage = AttrLabelProxy - -notebookScrollable :: AttrLabelProxy "scrollable" -notebookScrollable = AttrLabelProxy - -notebookShowBorder :: AttrLabelProxy "showBorder" -notebookShowBorder = AttrLabelProxy - -notebookShowTabs :: AttrLabelProxy "showTabs" -notebookShowTabs = AttrLabelProxy - -notebookTabPos :: AttrLabelProxy "tabPos" -notebookTabPos = AttrLabelProxy - -data NotebookChangeCurrentPageSignalInfo -instance SignalInfo NotebookChangeCurrentPageSignalInfo where - type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback - connectSignal _ = connectNotebookChangeCurrentPage - -data NotebookCreateWindowSignalInfo -instance SignalInfo NotebookCreateWindowSignalInfo where - type HaskellCallbackType NotebookCreateWindowSignalInfo = NotebookCreateWindowCallback - connectSignal _ = connectNotebookCreateWindow - -data NotebookFocusTabSignalInfo -instance SignalInfo NotebookFocusTabSignalInfo where - type HaskellCallbackType NotebookFocusTabSignalInfo = NotebookFocusTabCallback - connectSignal _ = connectNotebookFocusTab - -data NotebookMoveFocusOutSignalInfo -instance SignalInfo NotebookMoveFocusOutSignalInfo where - type HaskellCallbackType NotebookMoveFocusOutSignalInfo = NotebookMoveFocusOutCallback - connectSignal _ = connectNotebookMoveFocusOut - -data NotebookPageAddedSignalInfo -instance SignalInfo NotebookPageAddedSignalInfo where - type HaskellCallbackType NotebookPageAddedSignalInfo = NotebookPageAddedCallback - connectSignal _ = connectNotebookPageAdded - -data NotebookPageRemovedSignalInfo -instance SignalInfo NotebookPageRemovedSignalInfo where - type HaskellCallbackType NotebookPageRemovedSignalInfo = NotebookPageRemovedCallback - connectSignal _ = connectNotebookPageRemoved - -data NotebookPageReorderedSignalInfo -instance SignalInfo NotebookPageReorderedSignalInfo where - type HaskellCallbackType NotebookPageReorderedSignalInfo = NotebookPageReorderedCallback - connectSignal _ = connectNotebookPageReordered - -data NotebookReorderTabSignalInfo -instance SignalInfo NotebookReorderTabSignalInfo where - type HaskellCallbackType NotebookReorderTabSignalInfo = NotebookReorderTabCallback - connectSignal _ = connectNotebookReorderTab - -data NotebookSelectPageSignalInfo -instance SignalInfo NotebookSelectPageSignalInfo where - type HaskellCallbackType NotebookSelectPageSignalInfo = NotebookSelectPageCallback - connectSignal _ = connectNotebookSelectPage - -data NotebookSwitchPageSignalInfo -instance SignalInfo NotebookSwitchPageSignalInfo where - type HaskellCallbackType NotebookSwitchPageSignalInfo = NotebookSwitchPageCallback - connectSignal _ = connectNotebookSwitchPage - -type instance SignalList Notebook = NotebookSignalList -type NotebookSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeCurrentPage", NotebookChangeCurrentPageSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createWindow", NotebookCreateWindowSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("focusTab", NotebookFocusTabSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", NotebookMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pageAdded", NotebookPageAddedSignalInfo), '("pageRemoved", NotebookPageRemovedSignalInfo), '("pageReordered", NotebookPageReorderedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("reorderTab", NotebookReorderTabSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectPage", NotebookSelectPageSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("switchPage", NotebookSwitchPageSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Notebook::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Notebook") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_new" gtk_notebook_new :: - IO (Ptr Notebook) - - -notebookNew :: - (MonadIO m) => - m Notebook -- result -notebookNew = liftIO $ do - result <- gtk_notebook_new - checkUnexpectedReturnNULL "gtk_notebook_new" result - result' <- (newObject Notebook) result - return result' - --- method Notebook::append_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_append_page" gtk_notebook_append_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookAppendPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> m Int32 -- result -notebookAppendPage _obj child tabLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - result <- gtk_notebook_append_page _obj' child' maybeTabLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - return result - -data NotebookAppendPageMethodInfo -instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookAppendPageMethodInfo a signature where - overloadedMethod _ = notebookAppendPage - --- method Notebook::append_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_append_page_menu" gtk_notebook_append_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookAppendPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> Maybe (d) -- menuLabel - -> m Int32 -- result -notebookAppendPageMenu _obj child tabLabel menuLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - maybeMenuLabel <- case menuLabel of - Nothing -> return nullPtr - Just jMenuLabel -> do - let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel - return jMenuLabel' - result <- gtk_notebook_append_page_menu _obj' child' maybeTabLabel maybeMenuLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - whenJust menuLabel touchManagedPtr - return result - -data NotebookAppendPageMenuMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookAppendPageMenuMethodInfo a signature where - overloadedMethod _ = notebookAppendPageMenu - --- method Notebook::detach_tab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_detach_tab" gtk_notebook_detach_tab :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -notebookDetachTab :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -notebookDetachTab _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_notebook_detach_tab _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data NotebookDetachTabMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookDetachTabMethodInfo a signature where - overloadedMethod _ = notebookDetachTab - --- method Notebook::get_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO (Ptr Widget) - - -notebookGetActionWidget :: - (MonadIO m, NotebookK a) => - a -- _obj - -> PackType -- packType - -> m Widget -- result -notebookGetActionWidget _obj packType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let packType' = (fromIntegral . fromEnum) packType - result <- gtk_notebook_get_action_widget _obj' packType' - checkUnexpectedReturnNULL "gtk_notebook_get_action_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data NotebookGetActionWidgetMethodInfo -instance (signature ~ (PackType -> m Widget), MonadIO m, NotebookK a) => MethodInfo NotebookGetActionWidgetMethodInfo a signature where - overloadedMethod _ = notebookGetActionWidget - --- method Notebook::get_current_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_current_page" gtk_notebook_get_current_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Int32 - - -notebookGetCurrentPage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Int32 -- result -notebookGetCurrentPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_current_page _obj' - touchManagedPtr _obj - return result - -data NotebookGetCurrentPageMethodInfo -instance (signature ~ (m Int32), MonadIO m, NotebookK a) => MethodInfo NotebookGetCurrentPageMethodInfo a signature where - overloadedMethod _ = notebookGetCurrentPage - --- method Notebook::get_group_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_group_name" gtk_notebook_get_group_name :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CString - - -notebookGetGroupName :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m T.Text -- result -notebookGetGroupName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_group_name _obj' - checkUnexpectedReturnNULL "gtk_notebook_get_group_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NotebookGetGroupNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NotebookK a) => MethodInfo NotebookGetGroupNameMethodInfo a signature where - overloadedMethod _ = notebookGetGroupName - --- method Notebook::get_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_menu_label" gtk_notebook_get_menu_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -notebookGetMenuLabel :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Widget -- result -notebookGetMenuLabel _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_menu_label _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_menu_label" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetMenuLabelMethodInfo -instance (signature ~ (b -> m Widget), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetMenuLabelMethodInfo a signature where - overloadedMethod _ = notebookGetMenuLabel - --- method Notebook::get_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_get_menu_label_text" gtk_notebook_get_menu_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CString - - -notebookGetMenuLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m T.Text -- result -notebookGetMenuLabelText _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_menu_label_text _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_menu_label_text" result - result' <- cstringToText result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetMenuLabelTextMethodInfo -instance (signature ~ (b -> m T.Text), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetMenuLabelTextMethodInfo a signature where - overloadedMethod _ = notebookGetMenuLabelText - --- method Notebook::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_n_pages" gtk_notebook_get_n_pages :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Int32 - - -notebookGetNPages :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Int32 -- result -notebookGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_n_pages _obj' - touchManagedPtr _obj - return result - -data NotebookGetNPagesMethodInfo -instance (signature ~ (m Int32), MonadIO m, NotebookK a) => MethodInfo NotebookGetNPagesMethodInfo a signature where - overloadedMethod _ = notebookGetNPages - --- method Notebook::get_nth_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt - IO (Ptr Widget) - - -notebookGetNthPage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Int32 -- pageNum - -> m Widget -- result -notebookGetNthPage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_nth_page _obj' pageNum - checkUnexpectedReturnNULL "gtk_notebook_get_nth_page" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data NotebookGetNthPageMethodInfo -instance (signature ~ (Int32 -> m Widget), MonadIO m, NotebookK a) => MethodInfo NotebookGetNthPageMethodInfo a signature where - overloadedMethod _ = notebookGetNthPage - --- method Notebook::get_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_scrollable" gtk_notebook_get_scrollable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetScrollable :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Bool -- result -notebookGetScrollable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_scrollable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NotebookGetScrollableMethodInfo -instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetScrollableMethodInfo a signature where - overloadedMethod _ = notebookGetScrollable - --- method Notebook::get_show_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_show_border" gtk_notebook_get_show_border :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetShowBorder :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Bool -- result -notebookGetShowBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_border _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NotebookGetShowBorderMethodInfo -instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetShowBorderMethodInfo a signature where - overloadedMethod _ = notebookGetShowBorder - --- method Notebook::get_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_get_show_tabs" gtk_notebook_get_show_tabs :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetShowTabs :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Bool -- result -notebookGetShowTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_tabs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NotebookGetShowTabsMethodInfo -instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetShowTabsMethodInfo a signature where - overloadedMethod _ = notebookGetShowTabs - --- method Notebook::get_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_get_tab_detachable" gtk_notebook_get_tab_detachable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -notebookGetTabDetachable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Bool -- result -notebookGetTabDetachable _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_detachable _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetTabDetachableMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabDetachableMethodInfo a signature where - overloadedMethod _ = notebookGetTabDetachable - --- method Notebook::get_tab_hborder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_hborder" gtk_notebook_get_tab_hborder :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Word16 - -{-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"]#-} -notebookGetTabHborder :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Word16 -- result -notebookGetTabHborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_hborder _obj' - touchManagedPtr _obj - return result - -data NotebookGetTabHborderMethodInfo -instance (signature ~ (m Word16), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabHborderMethodInfo a signature where - overloadedMethod _ = notebookGetTabHborder - --- method Notebook::get_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -notebookGetTabLabel :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Widget -- result -notebookGetTabLabel _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_label _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_tab_label" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetTabLabelMethodInfo -instance (signature ~ (b -> m Widget), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabLabelMethodInfo a signature where - overloadedMethod _ = notebookGetTabLabel - --- method Notebook::get_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_get_tab_label_text" gtk_notebook_get_tab_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CString - - -notebookGetTabLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m T.Text -- result -notebookGetTabLabelText _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_label_text _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_tab_label_text" result - result' <- cstringToText result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetTabLabelTextMethodInfo -instance (signature ~ (b -> m T.Text), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabLabelTextMethodInfo a signature where - overloadedMethod _ = notebookGetTabLabelText - --- method Notebook::get_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CUInt - - -notebookGetTabPos :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m PositionType -- result -notebookGetTabPos _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_pos _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data NotebookGetTabPosMethodInfo -instance (signature ~ (m PositionType), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabPosMethodInfo a signature where - overloadedMethod _ = notebookGetTabPos - --- method Notebook::get_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_get_tab_reorderable" gtk_notebook_get_tab_reorderable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -notebookGetTabReorderable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Bool -- result -notebookGetTabReorderable _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_reorderable _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - -data NotebookGetTabReorderableMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabReorderableMethodInfo a signature where - overloadedMethod _ = notebookGetTabReorderable - --- method Notebook::get_tab_vborder --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_vborder" gtk_notebook_get_tab_vborder :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Word16 - -{-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"]#-} -notebookGetTabVborder :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m Word16 -- result -notebookGetTabVborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_vborder _obj' - touchManagedPtr _obj - return result - -data NotebookGetTabVborderMethodInfo -instance (signature ~ (m Word16), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabVborderMethodInfo a signature where - overloadedMethod _ = notebookGetTabVborder - --- method Notebook::insert_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, 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 : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_insert_page" gtk_notebook_insert_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO Int32 - - -notebookInsertPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> Int32 -- position - -> m Int32 -- result -notebookInsertPage _obj child tabLabel position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - result <- gtk_notebook_insert_page _obj' child' maybeTabLabel position - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - return result - -data NotebookInsertPageMethodInfo -instance (signature ~ (b -> Maybe (c) -> Int32 -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookInsertPageMethodInfo a signature where - overloadedMethod _ = notebookInsertPage - --- method Notebook::insert_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, 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 : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_insert_page_menu" gtk_notebook_insert_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO Int32 - - -notebookInsertPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> Maybe (d) -- menuLabel - -> Int32 -- position - -> m Int32 -- result -notebookInsertPageMenu _obj child tabLabel menuLabel position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - maybeMenuLabel <- case menuLabel of - Nothing -> return nullPtr - Just jMenuLabel -> do - let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel - return jMenuLabel' - result <- gtk_notebook_insert_page_menu _obj' child' maybeTabLabel maybeMenuLabel position - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - whenJust menuLabel touchManagedPtr - return result - -data NotebookInsertPageMenuMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> Int32 -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookInsertPageMenuMethodInfo a signature where - overloadedMethod _ = notebookInsertPageMenu - --- method Notebook::next_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_next_page" gtk_notebook_next_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookNextPage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m () -- result -notebookNextPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_next_page _obj' - touchManagedPtr _obj - return () - -data NotebookNextPageMethodInfo -instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookNextPageMethodInfo a signature where - overloadedMethod _ = notebookNextPage - --- method Notebook::page_num --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_page_num" gtk_notebook_page_num :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPageNum :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> m Int32 -- result -notebookPageNum _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_page_num _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return result - -data NotebookPageNumMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookPageNumMethodInfo a signature where - overloadedMethod _ = notebookPageNum - --- method Notebook::popup_disable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_popup_disable" gtk_notebook_popup_disable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPopupDisable :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m () -- result -notebookPopupDisable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_disable _obj' - touchManagedPtr _obj - return () - -data NotebookPopupDisableMethodInfo -instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPopupDisableMethodInfo a signature where - overloadedMethod _ = notebookPopupDisable - --- method Notebook::popup_enable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_popup_enable" gtk_notebook_popup_enable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPopupEnable :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m () -- result -notebookPopupEnable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_enable _obj' - touchManagedPtr _obj - return () - -data NotebookPopupEnableMethodInfo -instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPopupEnableMethodInfo a signature where - overloadedMethod _ = notebookPopupEnable - --- method Notebook::prepend_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_prepend_page" gtk_notebook_prepend_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPrependPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> m Int32 -- result -notebookPrependPage _obj child tabLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - result <- gtk_notebook_prepend_page _obj' child' maybeTabLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - return result - -data NotebookPrependPageMethodInfo -instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookPrependPageMethodInfo a signature where - overloadedMethod _ = notebookPrependPage - --- method Notebook::prepend_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_prepend_page_menu" gtk_notebook_prepend_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPrependPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> Maybe (d) -- menuLabel - -> m Int32 -- result -notebookPrependPageMenu _obj child tabLabel menuLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - maybeMenuLabel <- case menuLabel of - Nothing -> return nullPtr - Just jMenuLabel -> do - let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel - return jMenuLabel' - result <- gtk_notebook_prepend_page_menu _obj' child' maybeTabLabel maybeMenuLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - whenJust menuLabel touchManagedPtr - return result - -data NotebookPrependPageMenuMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookPrependPageMenuMethodInfo a signature where - overloadedMethod _ = notebookPrependPageMenu - --- method Notebook::prev_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", 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 "gtk_notebook_prev_page" gtk_notebook_prev_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPrevPage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> m () -- result -notebookPrevPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_prev_page _obj' - touchManagedPtr _obj - return () - -data NotebookPrevPageMethodInfo -instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPrevPageMethodInfo a signature where - overloadedMethod _ = notebookPrevPage - --- method Notebook::remove_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", 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 "gtk_notebook_remove_page" gtk_notebook_remove_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt - IO () - - -notebookRemovePage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Int32 -- pageNum - -> m () -- result -notebookRemovePage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_remove_page _obj' pageNum - touchManagedPtr _obj - return () - -data NotebookRemovePageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookRemovePageMethodInfo a signature where - overloadedMethod _ = notebookRemovePage - --- method Notebook::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_notebook_reorder_child" gtk_notebook_reorder_child :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -notebookReorderChild :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -notebookReorderChild _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_notebook_reorder_child _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data NotebookReorderChildMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookReorderChildMethodInfo a signature where - overloadedMethod _ = notebookReorderChild - --- method Notebook::set_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", 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 "gtk_notebook_set_action_widget" gtk_notebook_set_action_widget :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO () - - -notebookSetActionWidget :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- widget - -> PackType -- packType - -> m () -- result -notebookSetActionWidget _obj widget packType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let packType' = (fromIntegral . fromEnum) packType - gtk_notebook_set_action_widget _obj' widget' packType' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data NotebookSetActionWidgetMethodInfo -instance (signature ~ (b -> PackType -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetActionWidgetMethodInfo a signature where - overloadedMethod _ = notebookSetActionWidget - --- method Notebook::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", 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 "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt - IO () - - -notebookSetCurrentPage :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Int32 -- pageNum - -> m () -- result -notebookSetCurrentPage _obj pageNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_set_current_page _obj' pageNum - touchManagedPtr _obj - return () - -data NotebookSetCurrentPageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetCurrentPageMethodInfo a signature where - overloadedMethod _ = notebookSetCurrentPage - --- method Notebook::set_group_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_group_name" gtk_notebook_set_group_name :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -notebookSetGroupName :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Maybe (T.Text) -- groupName - -> m () -- result -notebookSetGroupName _obj groupName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - gtk_notebook_set_group_name _obj' maybeGroupName - touchManagedPtr _obj - freeMem maybeGroupName - return () - -data NotebookSetGroupNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetGroupNameMethodInfo a signature where - overloadedMethod _ = notebookSetGroupName - --- method Notebook::set_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_menu_label" gtk_notebook_set_menu_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO () - - -notebookSetMenuLabel :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- menuLabel - -> m () -- result -notebookSetMenuLabel _obj child menuLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeMenuLabel <- case menuLabel of - Nothing -> return nullPtr - Just jMenuLabel -> do - let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel - return jMenuLabel' - gtk_notebook_set_menu_label _obj' child' maybeMenuLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust menuLabel touchManagedPtr - return () - -data NotebookSetMenuLabelMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookSetMenuLabelMethodInfo a signature where - overloadedMethod _ = notebookSetMenuLabel - --- method Notebook::set_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_text", 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 "gtk_notebook_set_menu_label_text" gtk_notebook_set_menu_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- menu_text : TBasicType TUTF8 - IO () - - -notebookSetMenuLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- menuText - -> m () -- result -notebookSetMenuLabelText _obj child menuText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - menuText' <- textToCString menuText - gtk_notebook_set_menu_label_text _obj' child' menuText' - touchManagedPtr _obj - touchManagedPtr child - freeMem menuText' - return () - -data NotebookSetMenuLabelTextMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetMenuLabelTextMethodInfo a signature where - overloadedMethod _ = notebookSetMenuLabelText - --- method Notebook::set_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scrollable", 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 "gtk_notebook_set_scrollable" gtk_notebook_set_scrollable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- scrollable : TBasicType TBoolean - IO () - - -notebookSetScrollable :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Bool -- scrollable - -> m () -- result -notebookSetScrollable _obj scrollable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scrollable' = (fromIntegral . fromEnum) scrollable - gtk_notebook_set_scrollable _obj' scrollable' - touchManagedPtr _obj - return () - -data NotebookSetScrollableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetScrollableMethodInfo a signature where - overloadedMethod _ = notebookSetScrollable - --- method Notebook::set_show_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_border", 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 "gtk_notebook_set_show_border" gtk_notebook_set_show_border :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- show_border : TBasicType TBoolean - IO () - - -notebookSetShowBorder :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Bool -- showBorder - -> m () -- result -notebookSetShowBorder _obj showBorder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showBorder' = (fromIntegral . fromEnum) showBorder - gtk_notebook_set_show_border _obj' showBorder' - touchManagedPtr _obj - return () - -data NotebookSetShowBorderMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetShowBorderMethodInfo a signature where - overloadedMethod _ = notebookSetShowBorder - --- method Notebook::set_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tabs", 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 "gtk_notebook_set_show_tabs" gtk_notebook_set_show_tabs :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- show_tabs : TBasicType TBoolean - IO () - - -notebookSetShowTabs :: - (MonadIO m, NotebookK a) => - a -- _obj - -> Bool -- showTabs - -> m () -- result -notebookSetShowTabs _obj showTabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showTabs' = (fromIntegral . fromEnum) showTabs - gtk_notebook_set_show_tabs _obj' showTabs' - touchManagedPtr _obj - return () - -data NotebookSetShowTabsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetShowTabsMethodInfo a signature where - overloadedMethod _ = notebookSetShowTabs - --- method Notebook::set_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detachable", 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 "gtk_notebook_set_tab_detachable" gtk_notebook_set_tab_detachable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- detachable : TBasicType TBoolean - IO () - - -notebookSetTabDetachable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- detachable - -> m () -- result -notebookSetTabDetachable _obj child detachable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let detachable' = (fromIntegral . fromEnum) detachable - gtk_notebook_set_tab_detachable _obj' child' detachable' - touchManagedPtr _obj - touchManagedPtr child - return () - -data NotebookSetTabDetachableMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabDetachableMethodInfo a signature where - overloadedMethod _ = notebookSetTabDetachable - --- method Notebook::set_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_label" gtk_notebook_set_tab_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO () - - -notebookSetTabLabel :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -- _obj - -> b -- child - -> Maybe (c) -- tabLabel - -> m () -- result -notebookSetTabLabel _obj child tabLabel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTabLabel <- case tabLabel of - Nothing -> return nullPtr - Just jTabLabel -> do - let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel - return jTabLabel' - gtk_notebook_set_tab_label _obj' child' maybeTabLabel - touchManagedPtr _obj - touchManagedPtr child - whenJust tabLabel touchManagedPtr - return () - -data NotebookSetTabLabelMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookSetTabLabelMethodInfo a signature where - overloadedMethod _ = notebookSetTabLabel - --- method Notebook::set_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_text", 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 "gtk_notebook_set_tab_label_text" gtk_notebook_set_tab_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- tab_text : TBasicType TUTF8 - IO () - - -notebookSetTabLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- tabText - -> m () -- result -notebookSetTabLabelText _obj child tabText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - tabText' <- textToCString tabText - gtk_notebook_set_tab_label_text _obj' child' tabText' - touchManagedPtr _obj - touchManagedPtr child - freeMem tabText' - return () - -data NotebookSetTabLabelTextMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabLabelTextMethodInfo a signature where - overloadedMethod _ = notebookSetTabLabelText - --- method Notebook::set_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", 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 "gtk_notebook_set_tab_pos" gtk_notebook_set_tab_pos :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CUInt -> -- pos : TInterface "Gtk" "PositionType" - IO () - - -notebookSetTabPos :: - (MonadIO m, NotebookK a) => - a -- _obj - -> PositionType -- pos - -> m () -- result -notebookSetTabPos _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_notebook_set_tab_pos _obj' pos' - touchManagedPtr _obj - return () - -data NotebookSetTabPosMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetTabPosMethodInfo a signature where - overloadedMethod _ = notebookSetTabPos - --- method Notebook::set_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", 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 "gtk_notebook_set_tab_reorderable" gtk_notebook_set_tab_reorderable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -notebookSetTabReorderable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- reorderable - -> m () -- result -notebookSetTabReorderable _obj child reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_notebook_set_tab_reorderable _obj' child' reorderable' - touchManagedPtr _obj - touchManagedPtr child - return () - -data NotebookSetTabReorderableMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabReorderableMethodInfo a signature where - overloadedMethod _ = notebookSetTabReorderable - - diff --git a/GI/Gtk/Objects/Notebook.hs-boot b/GI/Gtk/Objects/Notebook.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Notebook.hs-boot +++ /dev/null @@ -1,74 +0,0 @@ -module GI.Gtk.Objects.Notebook 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 Notebook = Notebook (ForeignPtr Notebook) -instance GObject Notebook where -class GObject o => NotebookK o -instance (GObject o, IsDescendantOf Notebook o) => NotebookK o -data NotebookEnablePopupPropertyInfo -data NotebookGroupNamePropertyInfo -data NotebookPagePropertyInfo -data NotebookScrollablePropertyInfo -data NotebookShowBorderPropertyInfo -data NotebookShowTabsPropertyInfo -data NotebookTabPosPropertyInfo -data NotebookChangeCurrentPageSignalInfo -data NotebookCreateWindowSignalInfo -data NotebookFocusTabSignalInfo -data NotebookMoveFocusOutSignalInfo -data NotebookPageAddedSignalInfo -data NotebookPageRemovedSignalInfo -data NotebookPageReorderedSignalInfo -data NotebookReorderTabSignalInfo -data NotebookSelectPageSignalInfo -data NotebookSwitchPageSignalInfo -data NotebookAppendPageMethodInfo -data NotebookAppendPageMenuMethodInfo -data NotebookDetachTabMethodInfo -data NotebookGetActionWidgetMethodInfo -data NotebookGetCurrentPageMethodInfo -data NotebookGetGroupNameMethodInfo -data NotebookGetMenuLabelMethodInfo -data NotebookGetMenuLabelTextMethodInfo -data NotebookGetNPagesMethodInfo -data NotebookGetNthPageMethodInfo -data NotebookGetScrollableMethodInfo -data NotebookGetShowBorderMethodInfo -data NotebookGetShowTabsMethodInfo -data NotebookGetTabDetachableMethodInfo -data NotebookGetTabHborderMethodInfo -data NotebookGetTabLabelMethodInfo -data NotebookGetTabLabelTextMethodInfo -data NotebookGetTabPosMethodInfo -data NotebookGetTabReorderableMethodInfo -data NotebookGetTabVborderMethodInfo -data NotebookInsertPageMethodInfo -data NotebookInsertPageMenuMethodInfo -data NotebookNextPageMethodInfo -data NotebookPageNumMethodInfo -data NotebookPopupDisableMethodInfo -data NotebookPopupEnableMethodInfo -data NotebookPrependPageMethodInfo -data NotebookPrependPageMenuMethodInfo -data NotebookPrevPageMethodInfo -data NotebookRemovePageMethodInfo -data NotebookReorderChildMethodInfo -data NotebookSetActionWidgetMethodInfo -data NotebookSetCurrentPageMethodInfo -data NotebookSetGroupNameMethodInfo -data NotebookSetMenuLabelMethodInfo -data NotebookSetMenuLabelTextMethodInfo -data NotebookSetScrollableMethodInfo -data NotebookSetShowBorderMethodInfo -data NotebookSetShowTabsMethodInfo -data NotebookSetTabDetachableMethodInfo -data NotebookSetTabLabelMethodInfo -data NotebookSetTabLabelTextMethodInfo -data NotebookSetTabPosMethodInfo -data NotebookSetTabReorderableMethodInfo diff --git a/GI/Gtk/Objects/NotebookAccessible.hs b/GI/Gtk/Objects/NotebookAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/NotebookAccessible.hs +++ /dev/null @@ -1,135 +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.Gtk.Objects.NotebookAccessible - ( - --- * Exported types - NotebookAccessible(..) , - NotebookAccessibleK , - toNotebookAccessible , - noNotebookAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype NotebookAccessible = NotebookAccessible (ForeignPtr NotebookAccessible) -foreign import ccall "gtk_notebook_accessible_get_type" - c_gtk_notebook_accessible_get_type :: IO GType - -type instance ParentTypes NotebookAccessible = NotebookAccessibleParentTypes -type NotebookAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection] - -instance GObject NotebookAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_notebook_accessible_get_type - - -class GObject o => NotebookAccessibleK o -instance (GObject o, IsDescendantOf NotebookAccessible o) => NotebookAccessibleK o - -toNotebookAccessible :: NotebookAccessibleK o => o -> IO NotebookAccessible -toNotebookAccessible = unsafeCastTo NotebookAccessible - -noNotebookAccessible :: Maybe NotebookAccessible -noNotebookAccessible = Nothing - -type family ResolveNotebookAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveNotebookAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveNotebookAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveNotebookAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotebookAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotebookAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveNotebookAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveNotebookAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveNotebookAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotebookAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotebookAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveNotebookAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveNotebookAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveNotebookAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotebookAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotebookAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotebookAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveNotebookAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveNotebookAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotebookAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveNotebookAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveNotebookAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveNotebookAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveNotebookAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotebookAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveNotebookAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveNotebookAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveNotebookAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveNotebookAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveNotebookAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotebookAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotebookAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotebookAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveNotebookAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotebookAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotebookAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotebookAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotebookAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotebookAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveNotebookAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveNotebookAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotebookAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveNotebookAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveNotebookAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveNotebookAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveNotebookAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveNotebookAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveNotebookAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveNotebookAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveNotebookAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotebookAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotebookAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveNotebookAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveNotebookAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveNotebookAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveNotebookAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotebookAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveNotebookAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveNotebookAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveNotebookAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveNotebookAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveNotebookAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotebookAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveNotebookAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveNotebookAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveNotebookAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotebookAccessibleMethod t NotebookAccessible, MethodInfo info NotebookAccessible p) => IsLabelProxy t (NotebookAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotebookAccessibleMethod t NotebookAccessible, MethodInfo info NotebookAccessible p) => IsLabel t (NotebookAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList NotebookAccessible = NotebookAccessibleAttributeList -type NotebookAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList NotebookAccessible = NotebookAccessibleSignalList -type NotebookAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/NotebookAccessible.hs-boot b/GI/Gtk/Objects/NotebookAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/NotebookAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.NotebookAccessible 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 NotebookAccessible = NotebookAccessible (ForeignPtr NotebookAccessible) -instance GObject NotebookAccessible where -class GObject o => NotebookAccessibleK o -instance (GObject o, IsDescendantOf NotebookAccessible o) => NotebookAccessibleK o diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs b/GI/Gtk/Objects/NotebookPageAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/NotebookPageAccessible.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) --} - -module GI.Gtk.Objects.NotebookPageAccessible - ( - --- * Exported types - NotebookPageAccessible(..) , - NotebookPageAccessibleK , - toNotebookPageAccessible , - noNotebookPageAccessible , - - - -- * Methods --- ** notebookPageAccessibleInvalidate - NotebookPageAccessibleInvalidateMethodInfo, - notebookPageAccessibleInvalidate , - - --- ** notebookPageAccessibleNew - notebookPageAccessibleNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype NotebookPageAccessible = NotebookPageAccessible (ForeignPtr NotebookPageAccessible) -foreign import ccall "gtk_notebook_page_accessible_get_type" - c_gtk_notebook_page_accessible_get_type :: IO GType - -type instance ParentTypes NotebookPageAccessible = NotebookPageAccessibleParentTypes -type NotebookPageAccessibleParentTypes = '[Atk.Object, GObject.Object, Atk.Component] - -instance GObject NotebookPageAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_notebook_page_accessible_get_type - - -class GObject o => NotebookPageAccessibleK o -instance (GObject o, IsDescendantOf NotebookPageAccessible o) => NotebookPageAccessibleK o - -toNotebookPageAccessible :: NotebookPageAccessibleK o => o -> IO NotebookPageAccessible -toNotebookPageAccessible = unsafeCastTo NotebookPageAccessible - -noNotebookPageAccessible :: Maybe NotebookPageAccessible -noNotebookPageAccessible = Nothing - -type family ResolveNotebookPageAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveNotebookPageAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveNotebookPageAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotebookPageAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotebookPageAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveNotebookPageAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotebookPageAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotebookPageAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveNotebookPageAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveNotebookPageAccessibleMethod "invalidate" o = NotebookPageAccessibleInvalidateMethodInfo - ResolveNotebookPageAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotebookPageAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotebookPageAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotebookPageAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveNotebookPageAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveNotebookPageAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotebookPageAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveNotebookPageAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveNotebookPageAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveNotebookPageAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotebookPageAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveNotebookPageAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveNotebookPageAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveNotebookPageAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveNotebookPageAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotebookPageAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotebookPageAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotebookPageAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotebookPageAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotebookPageAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotebookPageAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotebookPageAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotebookPageAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveNotebookPageAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveNotebookPageAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotebookPageAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveNotebookPageAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveNotebookPageAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveNotebookPageAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveNotebookPageAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveNotebookPageAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveNotebookPageAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveNotebookPageAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveNotebookPageAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotebookPageAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotebookPageAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveNotebookPageAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveNotebookPageAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotebookPageAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveNotebookPageAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveNotebookPageAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveNotebookPageAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveNotebookPageAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveNotebookPageAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotebookPageAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveNotebookPageAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveNotebookPageAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotebookPageAccessibleMethod t NotebookPageAccessible, MethodInfo info NotebookPageAccessible p) => IsLabelProxy t (NotebookPageAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotebookPageAccessibleMethod t NotebookPageAccessible, MethodInfo info NotebookPageAccessible p) => IsLabel t (NotebookPageAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList NotebookPageAccessible = NotebookPageAccessibleAttributeList -type NotebookPageAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList NotebookPageAccessible = NotebookPageAccessibleSignalList -type NotebookPageAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - --- method NotebookPageAccessible::new --- method type : Constructor --- Args : [Arg {argCName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "NotebookPageAccessible") --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_page_accessible_new" gtk_notebook_page_accessible_new :: - Ptr NotebookAccessible -> -- notebook : TInterface "Gtk" "NotebookAccessible" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr NotebookPageAccessible) - - -notebookPageAccessibleNew :: - (MonadIO m, NotebookAccessibleK a, WidgetK b) => - a -- notebook - -> b -- child - -> m NotebookPageAccessible -- result -notebookPageAccessibleNew notebook child = liftIO $ do - let notebook' = unsafeManagedPtrCastPtr notebook - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_page_accessible_new notebook' child' - checkUnexpectedReturnNULL "gtk_notebook_page_accessible_new" result - result' <- (wrapObject NotebookPageAccessible) result - touchManagedPtr notebook - touchManagedPtr child - return result' - --- method NotebookPageAccessible::invalidate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", 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 "gtk_notebook_page_accessible_invalidate" gtk_notebook_page_accessible_invalidate :: - Ptr NotebookPageAccessible -> -- _obj : TInterface "Gtk" "NotebookPageAccessible" - IO () - - -notebookPageAccessibleInvalidate :: - (MonadIO m, NotebookPageAccessibleK a) => - a -- _obj - -> m () -- result -notebookPageAccessibleInvalidate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_page_accessible_invalidate _obj' - touchManagedPtr _obj - return () - -data NotebookPageAccessibleInvalidateMethodInfo -instance (signature ~ (m ()), MonadIO m, NotebookPageAccessibleK a) => MethodInfo NotebookPageAccessibleInvalidateMethodInfo a signature where - overloadedMethod _ = notebookPageAccessibleInvalidate - - diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot b/GI/Gtk/Objects/NotebookPageAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.NotebookPageAccessible 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 NotebookPageAccessible = NotebookPageAccessible (ForeignPtr NotebookPageAccessible) -instance GObject NotebookPageAccessible where -class GObject o => NotebookPageAccessibleK o -instance (GObject o, IsDescendantOf NotebookPageAccessible o) => NotebookPageAccessibleK o -data NotebookPageAccessibleInvalidateMethodInfo diff --git a/GI/Gtk/Objects/NumerableIcon.hs b/GI/Gtk/Objects/NumerableIcon.hs deleted file mode 100644 --- a/GI/Gtk/Objects/NumerableIcon.hs +++ /dev/null @@ -1,733 +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.Gtk.Objects.NumerableIcon - ( - --- * Exported types - NumerableIcon(..) , - NumerableIconK , - toNumerableIcon , - noNumerableIcon , - - - -- * Methods --- ** numerableIconGetBackgroundGicon - NumerableIconGetBackgroundGiconMethodInfo, - numerableIconGetBackgroundGicon , - - --- ** numerableIconGetBackgroundIconName - NumerableIconGetBackgroundIconNameMethodInfo, - numerableIconGetBackgroundIconName , - - --- ** numerableIconGetCount - NumerableIconGetCountMethodInfo , - numerableIconGetCount , - - --- ** numerableIconGetLabel - NumerableIconGetLabelMethodInfo , - numerableIconGetLabel , - - --- ** numerableIconGetStyleContext - NumerableIconGetStyleContextMethodInfo , - numerableIconGetStyleContext , - - --- ** numerableIconNew - numerableIconNew , - - --- ** numerableIconNewWithStyleContext - numerableIconNewWithStyleContext , - - --- ** numerableIconSetBackgroundGicon - NumerableIconSetBackgroundGiconMethodInfo, - numerableIconSetBackgroundGicon , - - --- ** numerableIconSetBackgroundIconName - NumerableIconSetBackgroundIconNameMethodInfo, - numerableIconSetBackgroundIconName , - - --- ** numerableIconSetCount - NumerableIconSetCountMethodInfo , - numerableIconSetCount , - - --- ** numerableIconSetLabel - NumerableIconSetLabelMethodInfo , - numerableIconSetLabel , - - --- ** numerableIconSetStyleContext - NumerableIconSetStyleContextMethodInfo , - numerableIconSetStyleContext , - - - - - -- * Properties --- ** BackgroundIcon - NumerableIconBackgroundIconPropertyInfo , - clearNumerableIconBackgroundIcon , - constructNumerableIconBackgroundIcon , - getNumerableIconBackgroundIcon , - numerableIconBackgroundIcon , - setNumerableIconBackgroundIcon , - - --- ** BackgroundIconName - NumerableIconBackgroundIconNamePropertyInfo, - clearNumerableIconBackgroundIconName , - constructNumerableIconBackgroundIconName, - getNumerableIconBackgroundIconName , - numerableIconBackgroundIconName , - setNumerableIconBackgroundIconName , - - --- ** Count - NumerableIconCountPropertyInfo , - constructNumerableIconCount , - getNumerableIconCount , - numerableIconCount , - setNumerableIconCount , - - --- ** Label - NumerableIconLabelPropertyInfo , - clearNumerableIconLabel , - constructNumerableIconLabel , - getNumerableIconLabel , - numerableIconLabel , - setNumerableIconLabel , - - --- ** StyleContext - NumerableIconStyleContextPropertyInfo , - constructNumerableIconStyleContext , - getNumerableIconStyleContext , - numerableIconStyleContext , - setNumerableIconStyleContext , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype NumerableIcon = NumerableIcon (ForeignPtr NumerableIcon) -foreign import ccall "gtk_numerable_icon_get_type" - c_gtk_numerable_icon_get_type :: IO GType - -type instance ParentTypes NumerableIcon = NumerableIconParentTypes -type NumerableIconParentTypes = '[Gio.EmblemedIcon, GObject.Object, Gio.Icon] - -instance GObject NumerableIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_numerable_icon_get_type - - -class GObject o => NumerableIconK o -instance (GObject o, IsDescendantOf NumerableIcon o) => NumerableIconK o - -toNumerableIcon :: NumerableIconK o => o -> IO NumerableIcon -toNumerableIcon = unsafeCastTo NumerableIcon - -noNumerableIcon :: Maybe NumerableIcon -noNumerableIcon = Nothing - -type family ResolveNumerableIconMethod (t :: Symbol) (o :: *) :: * where - ResolveNumerableIconMethod "addEmblem" o = Gio.EmblemedIconAddEmblemMethodInfo - ResolveNumerableIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNumerableIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNumerableIconMethod "clearEmblems" o = Gio.EmblemedIconClearEmblemsMethodInfo - ResolveNumerableIconMethod "equal" o = Gio.IconEqualMethodInfo - ResolveNumerableIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNumerableIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNumerableIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNumerableIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNumerableIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNumerableIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNumerableIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNumerableIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNumerableIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNumerableIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNumerableIconMethod "serialize" o = Gio.IconSerializeMethodInfo - ResolveNumerableIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNumerableIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNumerableIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNumerableIconMethod "toString" o = Gio.IconToStringMethodInfo - ResolveNumerableIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNumerableIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNumerableIconMethod "getBackgroundGicon" o = NumerableIconGetBackgroundGiconMethodInfo - ResolveNumerableIconMethod "getBackgroundIconName" o = NumerableIconGetBackgroundIconNameMethodInfo - ResolveNumerableIconMethod "getCount" o = NumerableIconGetCountMethodInfo - ResolveNumerableIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNumerableIconMethod "getEmblems" o = Gio.EmblemedIconGetEmblemsMethodInfo - ResolveNumerableIconMethod "getIcon" o = Gio.EmblemedIconGetIconMethodInfo - ResolveNumerableIconMethod "getLabel" o = NumerableIconGetLabelMethodInfo - ResolveNumerableIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNumerableIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNumerableIconMethod "getStyleContext" o = NumerableIconGetStyleContextMethodInfo - ResolveNumerableIconMethod "setBackgroundGicon" o = NumerableIconSetBackgroundGiconMethodInfo - ResolveNumerableIconMethod "setBackgroundIconName" o = NumerableIconSetBackgroundIconNameMethodInfo - ResolveNumerableIconMethod "setCount" o = NumerableIconSetCountMethodInfo - ResolveNumerableIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNumerableIconMethod "setLabel" o = NumerableIconSetLabelMethodInfo - ResolveNumerableIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNumerableIconMethod "setStyleContext" o = NumerableIconSetStyleContextMethodInfo - ResolveNumerableIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNumerableIconMethod t NumerableIcon, MethodInfo info NumerableIcon p) => IsLabelProxy t (NumerableIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNumerableIconMethod t NumerableIcon, MethodInfo info NumerableIcon p) => IsLabel t (NumerableIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "background-icon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m (Maybe Gio.Icon) -getNumerableIconBackgroundIcon obj = liftIO $ getObjectPropertyObject obj "background-icon" Gio.Icon - -setNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o, Gio.IconK a) => o -> a -> m () -setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" (Just val) - -constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" (Just val) - -clearNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m () -clearNumerableIconBackgroundIcon obj = liftIO $ setObjectPropertyObject obj "background-icon" (Nothing :: Maybe Gio.Icon) - -data NumerableIconBackgroundIconPropertyInfo -instance AttrInfo NumerableIconBackgroundIconPropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK - type AttrGetType NumerableIconBackgroundIconPropertyInfo = (Maybe Gio.Icon) - type AttrLabel NumerableIconBackgroundIconPropertyInfo = "background-icon" - attrGet _ = getNumerableIconBackgroundIcon - attrSet _ = setNumerableIconBackgroundIcon - attrConstruct _ = constructNumerableIconBackgroundIcon - attrClear _ = clearNumerableIconBackgroundIcon - --- VVV Prop "background-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconBackgroundIconName obj = liftIO $ checkUnexpectedNothing "getNumerableIconBackgroundIconName" $ getObjectPropertyString obj "background-icon-name" - -setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" (Just val) - -constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue) -constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" (Just val) - -clearNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m () -clearNumerableIconBackgroundIconName obj = liftIO $ setObjectPropertyString obj "background-icon-name" (Nothing :: Maybe T.Text) - -data NumerableIconBackgroundIconNamePropertyInfo -instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK - type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text - type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "background-icon-name" - attrGet _ = getNumerableIconBackgroundIconName - attrSet _ = setNumerableIconBackgroundIconName - attrConstruct _ = constructNumerableIconBackgroundIconName - attrClear _ = clearNumerableIconBackgroundIconName - --- VVV Prop "count" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32 -getNumerableIconCount obj = liftIO $ getObjectPropertyInt32 obj "count" - -setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m () -setNumerableIconCount obj val = liftIO $ setObjectPropertyInt32 obj "count" val - -constructNumerableIconCount :: Int32 -> IO ([Char], GValue) -constructNumerableIconCount val = constructObjectPropertyInt32 "count" val - -data NumerableIconCountPropertyInfo -instance AttrInfo NumerableIconCountPropertyInfo where - type AttrAllowedOps NumerableIconCountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NumerableIconCountPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint NumerableIconCountPropertyInfo = NumerableIconK - type AttrGetType NumerableIconCountPropertyInfo = Int32 - type AttrLabel NumerableIconCountPropertyInfo = "count" - attrGet _ = getNumerableIconCount - attrSet _ = setNumerableIconCount - attrConstruct _ = constructNumerableIconCount - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconLabel obj = liftIO $ checkUnexpectedNothing "getNumerableIconLabel" $ getObjectPropertyString obj "label" - -setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructNumerableIconLabel :: T.Text -> IO ([Char], GValue) -constructNumerableIconLabel val = constructObjectPropertyString "label" (Just val) - -clearNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m () -clearNumerableIconLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) - -data NumerableIconLabelPropertyInfo -instance AttrInfo NumerableIconLabelPropertyInfo where - type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK - type AttrGetType NumerableIconLabelPropertyInfo = T.Text - type AttrLabel NumerableIconLabelPropertyInfo = "label" - attrGet _ = getNumerableIconLabel - attrSet _ = setNumerableIconLabel - attrConstruct _ = constructNumerableIconLabel - attrClear _ = clearNumerableIconLabel - --- VVV Prop "style-context" - -- Type: TInterface "Gtk" "StyleContext" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext -getNumerableIconStyleContext obj = liftIO $ checkUnexpectedNothing "getNumerableIconStyleContext" $ getObjectPropertyObject obj "style-context" StyleContext - -setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m () -setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" (Just val) - -constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" (Just val) - -data NumerableIconStyleContextPropertyInfo -instance AttrInfo NumerableIconStyleContextPropertyInfo where - type AttrAllowedOps NumerableIconStyleContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NumerableIconStyleContextPropertyInfo = StyleContextK - type AttrBaseTypeConstraint NumerableIconStyleContextPropertyInfo = NumerableIconK - type AttrGetType NumerableIconStyleContextPropertyInfo = StyleContext - type AttrLabel NumerableIconStyleContextPropertyInfo = "style-context" - attrGet _ = getNumerableIconStyleContext - attrSet _ = setNumerableIconStyleContext - attrConstruct _ = constructNumerableIconStyleContext - attrClear _ = undefined - -type instance AttributeList NumerableIcon = NumerableIconAttributeList -type NumerableIconAttributeList = ('[ '("backgroundIcon", NumerableIconBackgroundIconPropertyInfo), '("backgroundIconName", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("styleContext", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) - -numerableIconBackgroundIcon :: AttrLabelProxy "backgroundIcon" -numerableIconBackgroundIcon = AttrLabelProxy - -numerableIconBackgroundIconName :: AttrLabelProxy "backgroundIconName" -numerableIconBackgroundIconName = AttrLabelProxy - -numerableIconCount :: AttrLabelProxy "count" -numerableIconCount = AttrLabelProxy - -numerableIconLabel :: AttrLabelProxy "label" -numerableIconLabel = AttrLabelProxy - -numerableIconStyleContext :: AttrLabelProxy "styleContext" -numerableIconStyleContext = AttrLabelProxy - -type instance SignalList NumerableIcon = NumerableIconSignalList -type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NumerableIcon::get_background_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_get_background_gicon" gtk_numerable_icon_get_background_gicon :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - IO (Ptr Gio.Icon) - -{-# DEPRECATED numerableIconGetBackgroundGicon ["(Since version 3.14)"]#-} -numerableIconGetBackgroundGicon :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> m Gio.Icon -- result -numerableIconGetBackgroundGicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_background_gicon _obj' - checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_gicon" result - result' <- (newObject Gio.Icon) result - touchManagedPtr _obj - return result' - -data NumerableIconGetBackgroundGiconMethodInfo -instance (signature ~ (m Gio.Icon), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetBackgroundGiconMethodInfo a signature where - overloadedMethod _ = numerableIconGetBackgroundGicon - --- method NumerableIcon::get_background_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", 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 "gtk_numerable_icon_get_background_icon_name" gtk_numerable_icon_get_background_icon_name :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - IO CString - -{-# DEPRECATED numerableIconGetBackgroundIconName ["(Since version 3.14)"]#-} -numerableIconGetBackgroundIconName :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> m T.Text -- result -numerableIconGetBackgroundIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_background_icon_name _obj' - checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NumerableIconGetBackgroundIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetBackgroundIconNameMethodInfo a signature where - overloadedMethod _ = numerableIconGetBackgroundIconName - --- method NumerableIcon::get_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", 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 "gtk_numerable_icon_get_count" gtk_numerable_icon_get_count :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - IO Int32 - -{-# DEPRECATED numerableIconGetCount ["(Since version 3.14)"]#-} -numerableIconGetCount :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> m Int32 -- result -numerableIconGetCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_count _obj' - touchManagedPtr _obj - return result - -data NumerableIconGetCountMethodInfo -instance (signature ~ (m Int32), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetCountMethodInfo a signature where - overloadedMethod _ = numerableIconGetCount - --- method NumerableIcon::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", 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 "gtk_numerable_icon_get_label" gtk_numerable_icon_get_label :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - IO CString - -{-# DEPRECATED numerableIconGetLabel ["(Since version 3.14)"]#-} -numerableIconGetLabel :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> m T.Text -- result -numerableIconGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_label _obj' - checkUnexpectedReturnNULL "gtk_numerable_icon_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NumerableIconGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetLabelMethodInfo a signature where - overloadedMethod _ = numerableIconGetLabel - --- method NumerableIcon::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_get_style_context" gtk_numerable_icon_get_style_context :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - IO (Ptr StyleContext) - -{-# DEPRECATED numerableIconGetStyleContext ["(Since version 3.14)"]#-} -numerableIconGetStyleContext :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> m StyleContext -- result -numerableIconGetStyleContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_style_context _obj' - checkUnexpectedReturnNULL "gtk_numerable_icon_get_style_context" result - result' <- (newObject StyleContext) result - touchManagedPtr _obj - return result' - -data NumerableIconGetStyleContextMethodInfo -instance (signature ~ (m StyleContext), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetStyleContextMethodInfo a signature where - overloadedMethod _ = numerableIconGetStyleContext - --- method NumerableIcon::set_background_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_set_background_gicon" gtk_numerable_icon_set_background_gicon :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - -{-# DEPRECATED numerableIconSetBackgroundGicon ["(Since version 3.14)"]#-} -numerableIconSetBackgroundGicon :: - (MonadIO m, NumerableIconK a, Gio.IconK b) => - a -- _obj - -> Maybe (b) -- icon - -> m () -- result -numerableIconSetBackgroundGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_numerable_icon_set_background_gicon _obj' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - -data NumerableIconSetBackgroundGiconMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, NumerableIconK a, Gio.IconK b) => MethodInfo NumerableIconSetBackgroundGiconMethodInfo a signature where - overloadedMethod _ = numerableIconSetBackgroundGicon - --- method NumerableIcon::set_background_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_set_background_icon_name" gtk_numerable_icon_set_background_icon_name :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - CString -> -- icon_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED numerableIconSetBackgroundIconName ["(Since version 3.14)"]#-} -numerableIconSetBackgroundIconName :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> Maybe (T.Text) -- iconName - -> m () -- result -numerableIconSetBackgroundIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_numerable_icon_set_background_icon_name _obj' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data NumerableIconSetBackgroundIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetBackgroundIconNameMethodInfo a signature where - overloadedMethod _ = numerableIconSetBackgroundIconName - --- method NumerableIcon::set_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - Int32 -> -- count : TBasicType TInt - IO () - -{-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-} -numerableIconSetCount :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> Int32 -- count - -> m () -- result -numerableIconSetCount _obj count = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_numerable_icon_set_count _obj' count - touchManagedPtr _obj - return () - -data NumerableIconSetCountMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetCountMethodInfo a signature where - overloadedMethod _ = numerableIconSetCount - --- method NumerableIcon::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_set_label" gtk_numerable_icon_set_label :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - CString -> -- label : TBasicType TUTF8 - IO () - -{-# DEPRECATED numerableIconSetLabel ["(Since version 3.14)"]#-} -numerableIconSetLabel :: - (MonadIO m, NumerableIconK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -numerableIconSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - gtk_numerable_icon_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data NumerableIconSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetLabelMethodInfo a signature where - overloadedMethod _ = numerableIconSetLabel - --- method NumerableIcon::set_style_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "StyleContext", 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 "gtk_numerable_icon_set_style_context" gtk_numerable_icon_set_style_context :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - Ptr StyleContext -> -- style : TInterface "Gtk" "StyleContext" - IO () - -{-# DEPRECATED numerableIconSetStyleContext ["(Since version 3.14)"]#-} -numerableIconSetStyleContext :: - (MonadIO m, NumerableIconK a, StyleContextK b) => - a -- _obj - -> b -- style - -> m () -- result -numerableIconSetStyleContext _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - gtk_numerable_icon_set_style_context _obj' style' - touchManagedPtr _obj - touchManagedPtr style - return () - -data NumerableIconSetStyleContextMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, NumerableIconK a, StyleContextK b) => MethodInfo NumerableIconSetStyleContextMethodInfo a signature where - overloadedMethod _ = numerableIconSetStyleContext - --- method NumerableIcon::new --- method type : MemberFunction --- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_new" gtk_numerable_icon_new :: - Ptr Gio.Icon -> -- base_icon : TInterface "Gio" "Icon" - IO (Ptr Gio.Icon) - -{-# DEPRECATED numerableIconNew ["(Since version 3.14)"]#-} -numerableIconNew :: - (MonadIO m, Gio.IconK a) => - a -- baseIcon - -> m Gio.Icon -- result -numerableIconNew baseIcon = liftIO $ do - let baseIcon' = unsafeManagedPtrCastPtr baseIcon - result <- gtk_numerable_icon_new baseIcon' - checkUnexpectedReturnNULL "gtk_numerable_icon_new" result - result' <- (wrapObject Gio.Icon) result - touchManagedPtr baseIcon - return result' - --- method NumerableIcon::new_with_style_context --- method type : MemberFunction --- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_new_with_style_context" gtk_numerable_icon_new_with_style_context :: - Ptr Gio.Icon -> -- base_icon : TInterface "Gio" "Icon" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - IO (Ptr Gio.Icon) - -{-# DEPRECATED numerableIconNewWithStyleContext ["(Since version 3.14)"]#-} -numerableIconNewWithStyleContext :: - (MonadIO m, Gio.IconK a, StyleContextK b) => - a -- baseIcon - -> b -- context - -> m Gio.Icon -- result -numerableIconNewWithStyleContext baseIcon context = liftIO $ do - let baseIcon' = unsafeManagedPtrCastPtr baseIcon - let context' = unsafeManagedPtrCastPtr context - result <- gtk_numerable_icon_new_with_style_context baseIcon' context' - checkUnexpectedReturnNULL "gtk_numerable_icon_new_with_style_context" result - result' <- (wrapObject Gio.Icon) result - touchManagedPtr baseIcon - touchManagedPtr context - return result' - - diff --git a/GI/Gtk/Objects/NumerableIcon.hs-boot b/GI/Gtk/Objects/NumerableIcon.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/NumerableIcon.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.NumerableIcon 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 NumerableIcon = NumerableIcon (ForeignPtr NumerableIcon) -instance GObject NumerableIcon where -class GObject o => NumerableIconK o -instance (GObject o, IsDescendantOf NumerableIcon o) => NumerableIconK o -data NumerableIconBackgroundIconPropertyInfo -data NumerableIconBackgroundIconNamePropertyInfo -data NumerableIconCountPropertyInfo -data NumerableIconLabelPropertyInfo -data NumerableIconStyleContextPropertyInfo -data NumerableIconGetBackgroundGiconMethodInfo -data NumerableIconGetBackgroundIconNameMethodInfo -data NumerableIconGetCountMethodInfo -data NumerableIconGetLabelMethodInfo -data NumerableIconGetStyleContextMethodInfo -data NumerableIconSetBackgroundGiconMethodInfo -data NumerableIconSetBackgroundIconNameMethodInfo -data NumerableIconSetCountMethodInfo -data NumerableIconSetLabelMethodInfo -data NumerableIconSetStyleContextMethodInfo diff --git a/GI/Gtk/Objects/OffscreenWindow.hs b/GI/Gtk/Objects/OffscreenWindow.hs deleted file mode 100644 --- a/GI/Gtk/Objects/OffscreenWindow.hs +++ /dev/null @@ -1,584 +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.Gtk.Objects.OffscreenWindow - ( - --- * Exported types - OffscreenWindow(..) , - OffscreenWindowK , - toOffscreenWindow , - noOffscreenWindow , - - - -- * Methods --- ** offscreenWindowGetPixbuf - OffscreenWindowGetPixbufMethodInfo , - offscreenWindowGetPixbuf , - - --- ** offscreenWindowGetSurface - OffscreenWindowGetSurfaceMethodInfo , - offscreenWindowGetSurface , - - --- ** offscreenWindowNew - offscreenWindowNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Cairo as Cairo - -newtype OffscreenWindow = OffscreenWindow (ForeignPtr OffscreenWindow) -foreign import ccall "gtk_offscreen_window_get_type" - c_gtk_offscreen_window_get_type :: IO GType - -type instance ParentTypes OffscreenWindow = OffscreenWindowParentTypes -type OffscreenWindowParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject OffscreenWindow where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_offscreen_window_get_type - - -class GObject o => OffscreenWindowK o -instance (GObject o, IsDescendantOf OffscreenWindow o) => OffscreenWindowK o - -toOffscreenWindow :: OffscreenWindowK o => o -> IO OffscreenWindow -toOffscreenWindow = unsafeCastTo OffscreenWindow - -noOffscreenWindow :: Maybe OffscreenWindow -noOffscreenWindow = Nothing - -type family ResolveOffscreenWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveOffscreenWindowMethod "activate" o = WidgetActivateMethodInfo - ResolveOffscreenWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveOffscreenWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveOffscreenWindowMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveOffscreenWindowMethod "add" o = ContainerAddMethodInfo - ResolveOffscreenWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveOffscreenWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveOffscreenWindowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveOffscreenWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveOffscreenWindowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveOffscreenWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveOffscreenWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveOffscreenWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveOffscreenWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveOffscreenWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveOffscreenWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveOffscreenWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveOffscreenWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveOffscreenWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveOffscreenWindowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveOffscreenWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveOffscreenWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveOffscreenWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveOffscreenWindowMethod "childType" o = ContainerChildTypeMethodInfo - ResolveOffscreenWindowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveOffscreenWindowMethod "close" o = WindowCloseMethodInfo - ResolveOffscreenWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveOffscreenWindowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveOffscreenWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveOffscreenWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveOffscreenWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveOffscreenWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveOffscreenWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveOffscreenWindowMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveOffscreenWindowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveOffscreenWindowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveOffscreenWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveOffscreenWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveOffscreenWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveOffscreenWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveOffscreenWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveOffscreenWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveOffscreenWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveOffscreenWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveOffscreenWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveOffscreenWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveOffscreenWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveOffscreenWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveOffscreenWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveOffscreenWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveOffscreenWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveOffscreenWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveOffscreenWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveOffscreenWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveOffscreenWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveOffscreenWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveOffscreenWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveOffscreenWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveOffscreenWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveOffscreenWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveOffscreenWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveOffscreenWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveOffscreenWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveOffscreenWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveOffscreenWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveOffscreenWindowMethod "draw" o = WidgetDrawMethodInfo - ResolveOffscreenWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveOffscreenWindowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveOffscreenWindowMethod "event" o = WidgetEventMethodInfo - ResolveOffscreenWindowMethod "forall" o = ContainerForallMethodInfo - ResolveOffscreenWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveOffscreenWindowMethod "foreach" o = ContainerForeachMethodInfo - ResolveOffscreenWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveOffscreenWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveOffscreenWindowMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveOffscreenWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveOffscreenWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveOffscreenWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveOffscreenWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveOffscreenWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveOffscreenWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveOffscreenWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveOffscreenWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveOffscreenWindowMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveOffscreenWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveOffscreenWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveOffscreenWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveOffscreenWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveOffscreenWindowMethod "hide" o = WidgetHideMethodInfo - ResolveOffscreenWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveOffscreenWindowMethod "iconify" o = WindowIconifyMethodInfo - ResolveOffscreenWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveOffscreenWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveOffscreenWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveOffscreenWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveOffscreenWindowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveOffscreenWindowMethod "isActive" o = WindowIsActiveMethodInfo - ResolveOffscreenWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveOffscreenWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveOffscreenWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveOffscreenWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveOffscreenWindowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveOffscreenWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveOffscreenWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveOffscreenWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveOffscreenWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveOffscreenWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveOffscreenWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveOffscreenWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveOffscreenWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveOffscreenWindowMethod "map" o = WidgetMapMethodInfo - ResolveOffscreenWindowMethod "maximize" o = WindowMaximizeMethodInfo - ResolveOffscreenWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveOffscreenWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveOffscreenWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveOffscreenWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveOffscreenWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveOffscreenWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveOffscreenWindowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveOffscreenWindowMethod "move" o = WindowMoveMethodInfo - ResolveOffscreenWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveOffscreenWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveOffscreenWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveOffscreenWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveOffscreenWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveOffscreenWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveOffscreenWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveOffscreenWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveOffscreenWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveOffscreenWindowMethod "path" o = WidgetPathMethodInfo - ResolveOffscreenWindowMethod "present" o = WindowPresentMethodInfo - ResolveOffscreenWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveOffscreenWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveOffscreenWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveOffscreenWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveOffscreenWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveOffscreenWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveOffscreenWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveOffscreenWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveOffscreenWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveOffscreenWindowMethod "realize" o = WidgetRealizeMethodInfo - ResolveOffscreenWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveOffscreenWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveOffscreenWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveOffscreenWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveOffscreenWindowMethod "remove" o = ContainerRemoveMethodInfo - ResolveOffscreenWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveOffscreenWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveOffscreenWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveOffscreenWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveOffscreenWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveOffscreenWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveOffscreenWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveOffscreenWindowMethod "reparent" o = WidgetReparentMethodInfo - ResolveOffscreenWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveOffscreenWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveOffscreenWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveOffscreenWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveOffscreenWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveOffscreenWindowMethod "resize" o = WindowResizeMethodInfo - ResolveOffscreenWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveOffscreenWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveOffscreenWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveOffscreenWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveOffscreenWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveOffscreenWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveOffscreenWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveOffscreenWindowMethod "show" o = WidgetShowMethodInfo - ResolveOffscreenWindowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveOffscreenWindowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveOffscreenWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveOffscreenWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveOffscreenWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveOffscreenWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveOffscreenWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveOffscreenWindowMethod "stick" o = WindowStickMethodInfo - ResolveOffscreenWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveOffscreenWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveOffscreenWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveOffscreenWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveOffscreenWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveOffscreenWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveOffscreenWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveOffscreenWindowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveOffscreenWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveOffscreenWindowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveOffscreenWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveOffscreenWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveOffscreenWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveOffscreenWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveOffscreenWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveOffscreenWindowMethod "unstick" o = WindowUnstickMethodInfo - ResolveOffscreenWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveOffscreenWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveOffscreenWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveOffscreenWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveOffscreenWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveOffscreenWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveOffscreenWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveOffscreenWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveOffscreenWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveOffscreenWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveOffscreenWindowMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveOffscreenWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveOffscreenWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveOffscreenWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveOffscreenWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveOffscreenWindowMethod "getChild" o = BinGetChildMethodInfo - ResolveOffscreenWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveOffscreenWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveOffscreenWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveOffscreenWindowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveOffscreenWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveOffscreenWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveOffscreenWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveOffscreenWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveOffscreenWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveOffscreenWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveOffscreenWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveOffscreenWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveOffscreenWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveOffscreenWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveOffscreenWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveOffscreenWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveOffscreenWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveOffscreenWindowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveOffscreenWindowMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveOffscreenWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveOffscreenWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveOffscreenWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveOffscreenWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveOffscreenWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveOffscreenWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveOffscreenWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveOffscreenWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveOffscreenWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveOffscreenWindowMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveOffscreenWindowMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveOffscreenWindowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveOffscreenWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveOffscreenWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveOffscreenWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveOffscreenWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveOffscreenWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveOffscreenWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveOffscreenWindowMethod "getIcon" o = WindowGetIconMethodInfo - ResolveOffscreenWindowMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveOffscreenWindowMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveOffscreenWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveOffscreenWindowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveOffscreenWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveOffscreenWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveOffscreenWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveOffscreenWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveOffscreenWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveOffscreenWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveOffscreenWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveOffscreenWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveOffscreenWindowMethod "getModal" o = WindowGetModalMethodInfo - ResolveOffscreenWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveOffscreenWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveOffscreenWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveOffscreenWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveOffscreenWindowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveOffscreenWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveOffscreenWindowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveOffscreenWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveOffscreenWindowMethod "getPixbuf" o = OffscreenWindowGetPixbufMethodInfo - ResolveOffscreenWindowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveOffscreenWindowMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveOffscreenWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveOffscreenWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveOffscreenWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveOffscreenWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveOffscreenWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveOffscreenWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveOffscreenWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveOffscreenWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveOffscreenWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveOffscreenWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveOffscreenWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveOffscreenWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveOffscreenWindowMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveOffscreenWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveOffscreenWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveOffscreenWindowMethod "getRole" o = WindowGetRoleMethodInfo - ResolveOffscreenWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveOffscreenWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveOffscreenWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveOffscreenWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveOffscreenWindowMethod "getSize" o = WindowGetSizeMethodInfo - ResolveOffscreenWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveOffscreenWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveOffscreenWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveOffscreenWindowMethod "getState" o = WidgetGetStateMethodInfo - ResolveOffscreenWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveOffscreenWindowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveOffscreenWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveOffscreenWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveOffscreenWindowMethod "getSurface" o = OffscreenWindowGetSurfaceMethodInfo - ResolveOffscreenWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveOffscreenWindowMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveOffscreenWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveOffscreenWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveOffscreenWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveOffscreenWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveOffscreenWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveOffscreenWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveOffscreenWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveOffscreenWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveOffscreenWindowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveOffscreenWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveOffscreenWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveOffscreenWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveOffscreenWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveOffscreenWindowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveOffscreenWindowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveOffscreenWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveOffscreenWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveOffscreenWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveOffscreenWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveOffscreenWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveOffscreenWindowMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveOffscreenWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveOffscreenWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveOffscreenWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveOffscreenWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveOffscreenWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveOffscreenWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveOffscreenWindowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveOffscreenWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveOffscreenWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveOffscreenWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveOffscreenWindowMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveOffscreenWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveOffscreenWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveOffscreenWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveOffscreenWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveOffscreenWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveOffscreenWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveOffscreenWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveOffscreenWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveOffscreenWindowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveOffscreenWindowMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveOffscreenWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveOffscreenWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveOffscreenWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveOffscreenWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveOffscreenWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveOffscreenWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveOffscreenWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveOffscreenWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveOffscreenWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveOffscreenWindowMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveOffscreenWindowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveOffscreenWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveOffscreenWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveOffscreenWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveOffscreenWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveOffscreenWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveOffscreenWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveOffscreenWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveOffscreenWindowMethod "setIcon" o = WindowSetIconMethodInfo - ResolveOffscreenWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveOffscreenWindowMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveOffscreenWindowMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveOffscreenWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveOffscreenWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveOffscreenWindowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveOffscreenWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveOffscreenWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveOffscreenWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveOffscreenWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveOffscreenWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveOffscreenWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveOffscreenWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveOffscreenWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveOffscreenWindowMethod "setModal" o = WindowSetModalMethodInfo - ResolveOffscreenWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveOffscreenWindowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveOffscreenWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveOffscreenWindowMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveOffscreenWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveOffscreenWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveOffscreenWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveOffscreenWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveOffscreenWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveOffscreenWindowMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveOffscreenWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveOffscreenWindowMethod "setRole" o = WindowSetRoleMethodInfo - ResolveOffscreenWindowMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveOffscreenWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveOffscreenWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveOffscreenWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveOffscreenWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveOffscreenWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveOffscreenWindowMethod "setState" o = WidgetSetStateMethodInfo - ResolveOffscreenWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveOffscreenWindowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveOffscreenWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveOffscreenWindowMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveOffscreenWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveOffscreenWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveOffscreenWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveOffscreenWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveOffscreenWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveOffscreenWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveOffscreenWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveOffscreenWindowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveOffscreenWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveOffscreenWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveOffscreenWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveOffscreenWindowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveOffscreenWindowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveOffscreenWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveOffscreenWindowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOffscreenWindowMethod t OffscreenWindow, MethodInfo info OffscreenWindow p) => IsLabelProxy t (OffscreenWindow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOffscreenWindowMethod t OffscreenWindow, MethodInfo info OffscreenWindow p) => IsLabel t (OffscreenWindow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList OffscreenWindow = OffscreenWindowAttributeList -type OffscreenWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList OffscreenWindow = OffscreenWindowSignalList -type OffscreenWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method OffscreenWindow::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "OffscreenWindow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_offscreen_window_new" gtk_offscreen_window_new :: - IO (Ptr OffscreenWindow) - - -offscreenWindowNew :: - (MonadIO m) => - m OffscreenWindow -- result -offscreenWindowNew = liftIO $ do - result <- gtk_offscreen_window_new - checkUnexpectedReturnNULL "gtk_offscreen_window_new" result - result' <- (newObject OffscreenWindow) result - return result' - --- method OffscreenWindow::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_offscreen_window_get_pixbuf" gtk_offscreen_window_get_pixbuf :: - Ptr OffscreenWindow -> -- _obj : TInterface "Gtk" "OffscreenWindow" - IO (Ptr GdkPixbuf.Pixbuf) - - -offscreenWindowGetPixbuf :: - (MonadIO m, OffscreenWindowK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -offscreenWindowGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_offscreen_window_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_offscreen_window_get_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data OffscreenWindowGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, OffscreenWindowK a) => MethodInfo OffscreenWindowGetPixbufMethodInfo a signature where - overloadedMethod _ = offscreenWindowGetPixbuf - --- method OffscreenWindow::get_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gtk_offscreen_window_get_surface" gtk_offscreen_window_get_surface :: - Ptr OffscreenWindow -> -- _obj : TInterface "Gtk" "OffscreenWindow" - IO (Ptr Cairo.Surface) - - -offscreenWindowGetSurface :: - (MonadIO m, OffscreenWindowK a) => - a -- _obj - -> m Cairo.Surface -- result -offscreenWindowGetSurface _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_offscreen_window_get_surface _obj' - checkUnexpectedReturnNULL "gtk_offscreen_window_get_surface" result - result' <- (newBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data OffscreenWindowGetSurfaceMethodInfo -instance (signature ~ (m Cairo.Surface), MonadIO m, OffscreenWindowK a) => MethodInfo OffscreenWindowGetSurfaceMethodInfo a signature where - overloadedMethod _ = offscreenWindowGetSurface - - diff --git a/GI/Gtk/Objects/OffscreenWindow.hs-boot b/GI/Gtk/Objects/OffscreenWindow.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/OffscreenWindow.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.OffscreenWindow 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 OffscreenWindow = OffscreenWindow (ForeignPtr OffscreenWindow) -instance GObject OffscreenWindow where -class GObject o => OffscreenWindowK o -instance (GObject o, IsDescendantOf OffscreenWindow o) => OffscreenWindowK o -data OffscreenWindowGetPixbufMethodInfo -data OffscreenWindowGetSurfaceMethodInfo diff --git a/GI/Gtk/Objects/Overlay.hs b/GI/Gtk/Objects/Overlay.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Overlay.hs +++ /dev/null @@ -1,565 +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.Gtk.Objects.Overlay - ( - --- * Exported types - Overlay(..) , - OverlayK , - toOverlay , - noOverlay , - - - -- * Methods --- ** overlayAddOverlay - OverlayAddOverlayMethodInfo , - overlayAddOverlay , - - --- ** overlayGetOverlayPassThrough - OverlayGetOverlayPassThroughMethodInfo , - overlayGetOverlayPassThrough , - - --- ** overlayNew - overlayNew , - - --- ** overlayReorderOverlay - OverlayReorderOverlayMethodInfo , - overlayReorderOverlay , - - --- ** overlaySetOverlayPassThrough - OverlaySetOverlayPassThroughMethodInfo , - overlaySetOverlayPassThrough , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Overlay = Overlay (ForeignPtr Overlay) -foreign import ccall "gtk_overlay_get_type" - c_gtk_overlay_get_type :: IO GType - -type instance ParentTypes Overlay = OverlayParentTypes -type OverlayParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Overlay where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_overlay_get_type - - -class GObject o => OverlayK o -instance (GObject o, IsDescendantOf Overlay o) => OverlayK o - -toOverlay :: OverlayK o => o -> IO Overlay -toOverlay = unsafeCastTo Overlay - -noOverlay :: Maybe Overlay -noOverlay = Nothing - -type family ResolveOverlayMethod (t :: Symbol) (o :: *) :: * where - ResolveOverlayMethod "activate" o = WidgetActivateMethodInfo - ResolveOverlayMethod "add" o = ContainerAddMethodInfo - ResolveOverlayMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveOverlayMethod "addChild" o = BuildableAddChildMethodInfo - ResolveOverlayMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveOverlayMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveOverlayMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveOverlayMethod "addOverlay" o = OverlayAddOverlayMethodInfo - ResolveOverlayMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveOverlayMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveOverlayMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveOverlayMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveOverlayMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveOverlayMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveOverlayMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveOverlayMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveOverlayMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveOverlayMethod "childType" o = ContainerChildTypeMethodInfo - ResolveOverlayMethod "classPath" o = WidgetClassPathMethodInfo - ResolveOverlayMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveOverlayMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveOverlayMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveOverlayMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveOverlayMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveOverlayMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveOverlayMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveOverlayMethod "destroy" o = WidgetDestroyMethodInfo - ResolveOverlayMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveOverlayMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveOverlayMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveOverlayMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveOverlayMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveOverlayMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveOverlayMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveOverlayMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveOverlayMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveOverlayMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveOverlayMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveOverlayMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveOverlayMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveOverlayMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveOverlayMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveOverlayMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveOverlayMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveOverlayMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveOverlayMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveOverlayMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveOverlayMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveOverlayMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveOverlayMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveOverlayMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveOverlayMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveOverlayMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveOverlayMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveOverlayMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveOverlayMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveOverlayMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveOverlayMethod "draw" o = WidgetDrawMethodInfo - ResolveOverlayMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveOverlayMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveOverlayMethod "event" o = WidgetEventMethodInfo - ResolveOverlayMethod "forall" o = ContainerForallMethodInfo - ResolveOverlayMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveOverlayMethod "foreach" o = ContainerForeachMethodInfo - ResolveOverlayMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveOverlayMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveOverlayMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveOverlayMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveOverlayMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveOverlayMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveOverlayMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveOverlayMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveOverlayMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveOverlayMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveOverlayMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveOverlayMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveOverlayMethod "hide" o = WidgetHideMethodInfo - ResolveOverlayMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveOverlayMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveOverlayMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveOverlayMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveOverlayMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveOverlayMethod "intersect" o = WidgetIntersectMethodInfo - ResolveOverlayMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveOverlayMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveOverlayMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveOverlayMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveOverlayMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveOverlayMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveOverlayMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveOverlayMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveOverlayMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveOverlayMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveOverlayMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveOverlayMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveOverlayMethod "map" o = WidgetMapMethodInfo - ResolveOverlayMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveOverlayMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveOverlayMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveOverlayMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveOverlayMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveOverlayMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveOverlayMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveOverlayMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveOverlayMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveOverlayMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveOverlayMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveOverlayMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveOverlayMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveOverlayMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveOverlayMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveOverlayMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveOverlayMethod "path" o = WidgetPathMethodInfo - ResolveOverlayMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveOverlayMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveOverlayMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveOverlayMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveOverlayMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveOverlayMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveOverlayMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveOverlayMethod "realize" o = WidgetRealizeMethodInfo - ResolveOverlayMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveOverlayMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveOverlayMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveOverlayMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveOverlayMethod "remove" o = ContainerRemoveMethodInfo - ResolveOverlayMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveOverlayMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveOverlayMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveOverlayMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveOverlayMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveOverlayMethod "reorderOverlay" o = OverlayReorderOverlayMethodInfo - ResolveOverlayMethod "reparent" o = WidgetReparentMethodInfo - ResolveOverlayMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveOverlayMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveOverlayMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveOverlayMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveOverlayMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveOverlayMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveOverlayMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveOverlayMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveOverlayMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveOverlayMethod "show" o = WidgetShowMethodInfo - ResolveOverlayMethod "showAll" o = WidgetShowAllMethodInfo - ResolveOverlayMethod "showNow" o = WidgetShowNowMethodInfo - ResolveOverlayMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveOverlayMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveOverlayMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveOverlayMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveOverlayMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveOverlayMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveOverlayMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveOverlayMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveOverlayMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveOverlayMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveOverlayMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveOverlayMethod "unmap" o = WidgetUnmapMethodInfo - ResolveOverlayMethod "unparent" o = WidgetUnparentMethodInfo - ResolveOverlayMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveOverlayMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveOverlayMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveOverlayMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveOverlayMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveOverlayMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveOverlayMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveOverlayMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveOverlayMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveOverlayMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveOverlayMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveOverlayMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveOverlayMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveOverlayMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveOverlayMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveOverlayMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveOverlayMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveOverlayMethod "getChild" o = BinGetChildMethodInfo - ResolveOverlayMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveOverlayMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveOverlayMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveOverlayMethod "getClip" o = WidgetGetClipMethodInfo - ResolveOverlayMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveOverlayMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveOverlayMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveOverlayMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveOverlayMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveOverlayMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveOverlayMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveOverlayMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveOverlayMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveOverlayMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveOverlayMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveOverlayMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveOverlayMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveOverlayMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveOverlayMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveOverlayMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveOverlayMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveOverlayMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveOverlayMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveOverlayMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveOverlayMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveOverlayMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveOverlayMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveOverlayMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveOverlayMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveOverlayMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveOverlayMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveOverlayMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveOverlayMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveOverlayMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveOverlayMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveOverlayMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveOverlayMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveOverlayMethod "getOverlayPassThrough" o = OverlayGetOverlayPassThroughMethodInfo - ResolveOverlayMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveOverlayMethod "getParent" o = WidgetGetParentMethodInfo - ResolveOverlayMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveOverlayMethod "getPath" o = WidgetGetPathMethodInfo - ResolveOverlayMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveOverlayMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveOverlayMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveOverlayMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveOverlayMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveOverlayMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveOverlayMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveOverlayMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveOverlayMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveOverlayMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveOverlayMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveOverlayMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveOverlayMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveOverlayMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveOverlayMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveOverlayMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveOverlayMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveOverlayMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveOverlayMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveOverlayMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveOverlayMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveOverlayMethod "getState" o = WidgetGetStateMethodInfo - ResolveOverlayMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveOverlayMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveOverlayMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveOverlayMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveOverlayMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveOverlayMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveOverlayMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveOverlayMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveOverlayMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveOverlayMethod "getValign" o = WidgetGetValignMethodInfo - ResolveOverlayMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveOverlayMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveOverlayMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveOverlayMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveOverlayMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveOverlayMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveOverlayMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveOverlayMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveOverlayMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveOverlayMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveOverlayMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveOverlayMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveOverlayMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveOverlayMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveOverlayMethod "setClip" o = WidgetSetClipMethodInfo - ResolveOverlayMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveOverlayMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveOverlayMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveOverlayMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveOverlayMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveOverlayMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveOverlayMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveOverlayMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveOverlayMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveOverlayMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveOverlayMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveOverlayMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveOverlayMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveOverlayMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveOverlayMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveOverlayMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveOverlayMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveOverlayMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveOverlayMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveOverlayMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveOverlayMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveOverlayMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveOverlayMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveOverlayMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveOverlayMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveOverlayMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveOverlayMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveOverlayMethod "setOverlayPassThrough" o = OverlaySetOverlayPassThroughMethodInfo - ResolveOverlayMethod "setParent" o = WidgetSetParentMethodInfo - ResolveOverlayMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveOverlayMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveOverlayMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveOverlayMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveOverlayMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveOverlayMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveOverlayMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveOverlayMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveOverlayMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveOverlayMethod "setState" o = WidgetSetStateMethodInfo - ResolveOverlayMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveOverlayMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveOverlayMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveOverlayMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveOverlayMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveOverlayMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveOverlayMethod "setValign" o = WidgetSetValignMethodInfo - ResolveOverlayMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveOverlayMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveOverlayMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveOverlayMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveOverlayMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveOverlayMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOverlayMethod t Overlay, MethodInfo info Overlay p) => IsLabelProxy t (Overlay -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOverlayMethod t Overlay, MethodInfo info Overlay p) => IsLabel t (Overlay -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Overlay = OverlayAttributeList -type OverlayAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Overlay = OverlaySignalList -type OverlaySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Overlay::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Overlay") --- throws : False --- Skip return : False - -foreign import ccall "gtk_overlay_new" gtk_overlay_new :: - IO (Ptr Overlay) - - -overlayNew :: - (MonadIO m) => - m Overlay -- result -overlayNew = liftIO $ do - result <- gtk_overlay_new - checkUnexpectedReturnNULL "gtk_overlay_new" result - result' <- (newObject Overlay) result - return result' - --- method Overlay::add_overlay --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_overlay_add_overlay" gtk_overlay_add_overlay :: - Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -overlayAddOverlay :: - (MonadIO m, OverlayK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m () -- result -overlayAddOverlay _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_overlay_add_overlay _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data OverlayAddOverlayMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayAddOverlayMethodInfo a signature where - overloadedMethod _ = overlayAddOverlay - --- method Overlay::get_overlay_pass_through --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_overlay_get_overlay_pass_through" gtk_overlay_get_overlay_pass_through :: - Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO CInt - - -overlayGetOverlayPassThrough :: - (MonadIO m, OverlayK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m Bool -- result -overlayGetOverlayPassThrough _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_overlay_get_overlay_pass_through _obj' widget' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr widget - return result' - -data OverlayGetOverlayPassThroughMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayGetOverlayPassThroughMethodInfo a signature where - overloadedMethod _ = overlayGetOverlayPassThrough - --- method Overlay::reorder_overlay --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_overlay_reorder_overlay" gtk_overlay_reorder_overlay :: - Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt - IO () - - -overlayReorderOverlay :: - (MonadIO m, OverlayK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- position - -> m () -- result -overlayReorderOverlay _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_overlay_reorder_overlay _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - -data OverlayReorderOverlayMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayReorderOverlayMethodInfo a signature where - overloadedMethod _ = overlayReorderOverlay - --- method Overlay::set_overlay_pass_through --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", 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 "gtk_overlay_set_overlay_pass_through" gtk_overlay_set_overlay_pass_through :: - Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CInt -> -- pass_through : TBasicType TBoolean - IO () - - -overlaySetOverlayPassThrough :: - (MonadIO m, OverlayK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Bool -- passThrough - -> m () -- result -overlaySetOverlayPassThrough _obj widget passThrough = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let passThrough' = (fromIntegral . fromEnum) passThrough - gtk_overlay_set_overlay_pass_through _obj' widget' passThrough' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data OverlaySetOverlayPassThroughMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlaySetOverlayPassThroughMethodInfo a signature where - overloadedMethod _ = overlaySetOverlayPassThrough - - diff --git a/GI/Gtk/Objects/Overlay.hs-boot b/GI/Gtk/Objects/Overlay.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Overlay.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.Overlay 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 Overlay = Overlay (ForeignPtr Overlay) -instance GObject Overlay where -class GObject o => OverlayK o -instance (GObject o, IsDescendantOf Overlay o) => OverlayK o -data OverlayAddOverlayMethodInfo -data OverlayGetOverlayPassThroughMethodInfo -data OverlayReorderOverlayMethodInfo -data OverlaySetOverlayPassThroughMethodInfo diff --git a/GI/Gtk/Objects/PageSetup.hs b/GI/Gtk/Objects/PageSetup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PageSetup.hs +++ /dev/null @@ -1,1038 +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.Gtk.Objects.PageSetup - ( - --- * Exported types - PageSetup(..) , - PageSetupK , - toPageSetup , - noPageSetup , - - - -- * Methods --- ** pageSetupCopy - PageSetupCopyMethodInfo , - pageSetupCopy , - - --- ** pageSetupGetBottomMargin - PageSetupGetBottomMarginMethodInfo , - pageSetupGetBottomMargin , - - --- ** pageSetupGetLeftMargin - PageSetupGetLeftMarginMethodInfo , - pageSetupGetLeftMargin , - - --- ** pageSetupGetOrientation - PageSetupGetOrientationMethodInfo , - pageSetupGetOrientation , - - --- ** pageSetupGetPageHeight - PageSetupGetPageHeightMethodInfo , - pageSetupGetPageHeight , - - --- ** pageSetupGetPageWidth - PageSetupGetPageWidthMethodInfo , - pageSetupGetPageWidth , - - --- ** pageSetupGetPaperHeight - PageSetupGetPaperHeightMethodInfo , - pageSetupGetPaperHeight , - - --- ** pageSetupGetPaperSize - PageSetupGetPaperSizeMethodInfo , - pageSetupGetPaperSize , - - --- ** pageSetupGetPaperWidth - PageSetupGetPaperWidthMethodInfo , - pageSetupGetPaperWidth , - - --- ** pageSetupGetRightMargin - PageSetupGetRightMarginMethodInfo , - pageSetupGetRightMargin , - - --- ** pageSetupGetTopMargin - PageSetupGetTopMarginMethodInfo , - pageSetupGetTopMargin , - - --- ** pageSetupLoadFile - PageSetupLoadFileMethodInfo , - pageSetupLoadFile , - - --- ** pageSetupLoadKeyFile - PageSetupLoadKeyFileMethodInfo , - pageSetupLoadKeyFile , - - --- ** pageSetupNew - pageSetupNew , - - --- ** pageSetupNewFromFile - pageSetupNewFromFile , - - --- ** pageSetupNewFromKeyFile - pageSetupNewFromKeyFile , - - --- ** pageSetupSetBottomMargin - PageSetupSetBottomMarginMethodInfo , - pageSetupSetBottomMargin , - - --- ** pageSetupSetLeftMargin - PageSetupSetLeftMarginMethodInfo , - pageSetupSetLeftMargin , - - --- ** pageSetupSetOrientation - PageSetupSetOrientationMethodInfo , - pageSetupSetOrientation , - - --- ** pageSetupSetPaperSize - PageSetupSetPaperSizeMethodInfo , - pageSetupSetPaperSize , - - --- ** pageSetupSetPaperSizeAndDefaultMargins - PageSetupSetPaperSizeAndDefaultMarginsMethodInfo, - pageSetupSetPaperSizeAndDefaultMargins , - - --- ** pageSetupSetRightMargin - PageSetupSetRightMarginMethodInfo , - pageSetupSetRightMargin , - - --- ** pageSetupSetTopMargin - PageSetupSetTopMarginMethodInfo , - pageSetupSetTopMargin , - - --- ** pageSetupToFile - PageSetupToFileMethodInfo , - pageSetupToFile , - - --- ** pageSetupToKeyFile - PageSetupToKeyFileMethodInfo , - pageSetupToKeyFile , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype PageSetup = PageSetup (ForeignPtr PageSetup) -foreign import ccall "gtk_page_setup_get_type" - c_gtk_page_setup_get_type :: IO GType - -type instance ParentTypes PageSetup = PageSetupParentTypes -type PageSetupParentTypes = '[GObject.Object] - -instance GObject PageSetup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_page_setup_get_type - - -class GObject o => PageSetupK o -instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o - -toPageSetup :: PageSetupK o => o -> IO PageSetup -toPageSetup = unsafeCastTo PageSetup - -noPageSetup :: Maybe PageSetup -noPageSetup = Nothing - -type family ResolvePageSetupMethod (t :: Symbol) (o :: *) :: * where - ResolvePageSetupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePageSetupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePageSetupMethod "copy" o = PageSetupCopyMethodInfo - ResolvePageSetupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePageSetupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePageSetupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePageSetupMethod "loadFile" o = PageSetupLoadFileMethodInfo - ResolvePageSetupMethod "loadKeyFile" o = PageSetupLoadKeyFileMethodInfo - ResolvePageSetupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePageSetupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePageSetupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePageSetupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePageSetupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePageSetupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePageSetupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePageSetupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePageSetupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePageSetupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePageSetupMethod "toFile" o = PageSetupToFileMethodInfo - ResolvePageSetupMethod "toKeyFile" o = PageSetupToKeyFileMethodInfo - ResolvePageSetupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePageSetupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePageSetupMethod "getBottomMargin" o = PageSetupGetBottomMarginMethodInfo - ResolvePageSetupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePageSetupMethod "getLeftMargin" o = PageSetupGetLeftMarginMethodInfo - ResolvePageSetupMethod "getOrientation" o = PageSetupGetOrientationMethodInfo - ResolvePageSetupMethod "getPageHeight" o = PageSetupGetPageHeightMethodInfo - ResolvePageSetupMethod "getPageWidth" o = PageSetupGetPageWidthMethodInfo - ResolvePageSetupMethod "getPaperHeight" o = PageSetupGetPaperHeightMethodInfo - ResolvePageSetupMethod "getPaperSize" o = PageSetupGetPaperSizeMethodInfo - ResolvePageSetupMethod "getPaperWidth" o = PageSetupGetPaperWidthMethodInfo - ResolvePageSetupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePageSetupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePageSetupMethod "getRightMargin" o = PageSetupGetRightMarginMethodInfo - ResolvePageSetupMethod "getTopMargin" o = PageSetupGetTopMarginMethodInfo - ResolvePageSetupMethod "setBottomMargin" o = PageSetupSetBottomMarginMethodInfo - ResolvePageSetupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePageSetupMethod "setLeftMargin" o = PageSetupSetLeftMarginMethodInfo - ResolvePageSetupMethod "setOrientation" o = PageSetupSetOrientationMethodInfo - ResolvePageSetupMethod "setPaperSize" o = PageSetupSetPaperSizeMethodInfo - ResolvePageSetupMethod "setPaperSizeAndDefaultMargins" o = PageSetupSetPaperSizeAndDefaultMarginsMethodInfo - ResolvePageSetupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePageSetupMethod "setRightMargin" o = PageSetupSetRightMarginMethodInfo - ResolvePageSetupMethod "setTopMargin" o = PageSetupSetTopMarginMethodInfo - ResolvePageSetupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePageSetupMethod t PageSetup, MethodInfo info PageSetup p) => IsLabelProxy t (PageSetup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePageSetupMethod t PageSetup, MethodInfo info PageSetup p) => IsLabel t (PageSetup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PageSetup = PageSetupAttributeList -type PageSetupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PageSetup = PageSetupSignalList -type PageSetupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PageSetup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_page_setup_new" gtk_page_setup_new :: - IO (Ptr PageSetup) - - -pageSetupNew :: - (MonadIO m) => - m PageSetup -- result -pageSetupNew = liftIO $ do - result <- gtk_page_setup_new - checkUnexpectedReturnNULL "gtk_page_setup_new" result - result' <- (wrapObject PageSetup) result - return result' - --- method PageSetup::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : True --- Skip return : False - -foreign import ccall "gtk_page_setup_new_from_file" gtk_page_setup_new_from_file :: - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO (Ptr PageSetup) - - -pageSetupNewFromFile :: - (MonadIO m) => - [Char] -- fileName - -> m PageSetup -- result -pageSetupNewFromFile fileName = liftIO $ do - fileName' <- stringToCString fileName - onException (do - result <- propagateGError $ gtk_page_setup_new_from_file fileName' - checkUnexpectedReturnNULL "gtk_page_setup_new_from_file" result - result' <- (wrapObject PageSetup) result - freeMem fileName' - return result' - ) (do - freeMem fileName' - ) - --- method PageSetup::new_from_key_file --- method type : Constructor --- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : True --- Skip return : False - -foreign import ccall "gtk_page_setup_new_from_key_file" gtk_page_setup_new_from_key_file :: - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PageSetup) - - -pageSetupNewFromKeyFile :: - (MonadIO m) => - GLib.KeyFile -- keyFile - -> Maybe (T.Text) -- groupName - -> m PageSetup -- result -pageSetupNewFromKeyFile keyFile groupName = liftIO $ do - let keyFile' = unsafeManagedPtrGetPtr keyFile - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - onException (do - result <- propagateGError $ gtk_page_setup_new_from_key_file keyFile' maybeGroupName - checkUnexpectedReturnNULL "gtk_page_setup_new_from_key_file" result - result' <- (wrapObject PageSetup) result - touchManagedPtr keyFile - freeMem maybeGroupName - return result' - ) (do - freeMem maybeGroupName - ) - --- method PageSetup::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_page_setup_copy" gtk_page_setup_copy :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - IO (Ptr PageSetup) - - -pageSetupCopy :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> m PageSetup -- result -pageSetupCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_page_setup_copy _obj' - checkUnexpectedReturnNULL "gtk_page_setup_copy" result - result' <- (wrapObject PageSetup) result - touchManagedPtr _obj - return result' - -data PageSetupCopyMethodInfo -instance (signature ~ (m PageSetup), MonadIO m, PageSetupK a) => MethodInfo PageSetupCopyMethodInfo a signature where - overloadedMethod _ = pageSetupCopy - --- method PageSetup::get_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_bottom_margin" gtk_page_setup_get_bottom_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetBottomMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetBottomMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_bottom_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetBottomMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetBottomMarginMethodInfo a signature where - overloadedMethod _ = pageSetupGetBottomMargin - --- method PageSetup::get_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_left_margin" gtk_page_setup_get_left_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetLeftMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetLeftMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_left_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetLeftMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetLeftMarginMethodInfo a signature where - overloadedMethod _ = pageSetupGetLeftMargin - --- method PageSetup::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageOrientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_page_setup_get_orientation" gtk_page_setup_get_orientation :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - IO CUInt - - -pageSetupGetOrientation :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> m PageOrientation -- result -pageSetupGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_page_setup_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PageSetupGetOrientationMethodInfo -instance (signature ~ (m PageOrientation), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetOrientationMethodInfo a signature where - overloadedMethod _ = pageSetupGetOrientation - --- method PageSetup::get_page_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_page_height" gtk_page_setup_get_page_height :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetPageHeight :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetPageHeight _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_page_height _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetPageHeightMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPageHeightMethodInfo a signature where - overloadedMethod _ = pageSetupGetPageHeight - --- method PageSetup::get_page_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_page_width" gtk_page_setup_get_page_width :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetPageWidth :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetPageWidth _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_page_width _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetPageWidthMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPageWidthMethodInfo a signature where - overloadedMethod _ = pageSetupGetPageWidth - --- method PageSetup::get_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_paper_height" gtk_page_setup_get_paper_height :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetPaperHeight :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetPaperHeight _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_paper_height _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetPaperHeightMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperHeightMethodInfo a signature where - overloadedMethod _ = pageSetupGetPaperHeight - --- method PageSetup::get_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_page_setup_get_paper_size" gtk_page_setup_get_paper_size :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - IO (Ptr PaperSize) - - -pageSetupGetPaperSize :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> m PaperSize -- result -pageSetupGetPaperSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_page_setup_get_paper_size _obj' - checkUnexpectedReturnNULL "gtk_page_setup_get_paper_size" result - result' <- (newBoxed PaperSize) result - touchManagedPtr _obj - return result' - -data PageSetupGetPaperSizeMethodInfo -instance (signature ~ (m PaperSize), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperSizeMethodInfo a signature where - overloadedMethod _ = pageSetupGetPaperSize - --- method PageSetup::get_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_paper_width" gtk_page_setup_get_paper_width :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetPaperWidth :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetPaperWidth _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_paper_width _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetPaperWidthMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperWidthMethodInfo a signature where - overloadedMethod _ = pageSetupGetPaperWidth - --- method PageSetup::get_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_right_margin" gtk_page_setup_get_right_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetRightMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetRightMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_right_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetRightMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetRightMarginMethodInfo a signature where - overloadedMethod _ = pageSetupGetRightMargin - --- method PageSetup::get_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_get_top_margin" gtk_page_setup_get_top_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -pageSetupGetTopMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -pageSetupGetTopMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_page_setup_get_top_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageSetupGetTopMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetTopMarginMethodInfo a signature where - overloadedMethod _ = pageSetupGetTopMargin - --- method PageSetup::load_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_page_setup_load_file" gtk_page_setup_load_file :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -pageSetupLoadFile :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> [Char] -- fileName - -> m () -- result -pageSetupLoadFile _obj fileName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fileName' <- stringToCString fileName - onException (do - _ <- propagateGError $ gtk_page_setup_load_file _obj' fileName' - touchManagedPtr _obj - freeMem fileName' - return () - ) (do - freeMem fileName' - ) - -data PageSetupLoadFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupLoadFileMethodInfo a signature where - overloadedMethod _ = pageSetupLoadFile - --- method PageSetup::load_key_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_page_setup_load_key_file" gtk_page_setup_load_key_file :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -pageSetupLoadKeyFile :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> GLib.KeyFile -- keyFile - -> Maybe (T.Text) -- groupName - -> m () -- result -pageSetupLoadKeyFile _obj keyFile groupName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let keyFile' = unsafeManagedPtrGetPtr keyFile - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - onException (do - _ <- propagateGError $ gtk_page_setup_load_key_file _obj' keyFile' maybeGroupName - touchManagedPtr _obj - touchManagedPtr keyFile - freeMem maybeGroupName - return () - ) (do - freeMem maybeGroupName - ) - -data PageSetupLoadKeyFileMethodInfo -instance (signature ~ (GLib.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupLoadKeyFileMethodInfo a signature where - overloadedMethod _ = pageSetupLoadKeyFile - --- method PageSetup::set_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_set_bottom_margin" gtk_page_setup_set_bottom_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CDouble -> -- margin : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -pageSetupSetBottomMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Double -- margin - -> Unit -- unit - -> m () -- result -pageSetupSetBottomMargin _obj margin unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let margin' = realToFrac margin - let unit' = (fromIntegral . fromEnum) unit - gtk_page_setup_set_bottom_margin _obj' margin' unit' - touchManagedPtr _obj - return () - -data PageSetupSetBottomMarginMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetBottomMarginMethodInfo a signature where - overloadedMethod _ = pageSetupSetBottomMargin - --- method PageSetup::set_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_set_left_margin" gtk_page_setup_set_left_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CDouble -> -- margin : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -pageSetupSetLeftMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Double -- margin - -> Unit -- unit - -> m () -- result -pageSetupSetLeftMargin _obj margin unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let margin' = realToFrac margin - let unit' = (fromIntegral . fromEnum) unit - gtk_page_setup_set_left_margin _obj' margin' unit' - touchManagedPtr _obj - return () - -data PageSetupSetLeftMarginMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetLeftMarginMethodInfo a signature where - overloadedMethod _ = pageSetupSetLeftMargin - --- method PageSetup::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", 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 "gtk_page_setup_set_orientation" gtk_page_setup_set_orientation :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CUInt -> -- orientation : TInterface "Gtk" "PageOrientation" - IO () - - -pageSetupSetOrientation :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> PageOrientation -- orientation - -> m () -- result -pageSetupSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_page_setup_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - -data PageSetupSetOrientationMethodInfo -instance (signature ~ (PageOrientation -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetOrientationMethodInfo a signature where - overloadedMethod _ = pageSetupSetOrientation - --- method PageSetup::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", 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 "gtk_page_setup_set_paper_size" gtk_page_setup_set_paper_size :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize" - IO () - - -pageSetupSetPaperSize :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> PaperSize -- size - -> m () -- result -pageSetupSetPaperSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let size' = unsafeManagedPtrGetPtr size - gtk_page_setup_set_paper_size _obj' size' - touchManagedPtr _obj - touchManagedPtr size - return () - -data PageSetupSetPaperSizeMethodInfo -instance (signature ~ (PaperSize -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetPaperSizeMethodInfo a signature where - overloadedMethod _ = pageSetupSetPaperSize - --- method PageSetup::set_paper_size_and_default_margins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", 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 "gtk_page_setup_set_paper_size_and_default_margins" gtk_page_setup_set_paper_size_and_default_margins :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize" - IO () - - -pageSetupSetPaperSizeAndDefaultMargins :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> PaperSize -- size - -> m () -- result -pageSetupSetPaperSizeAndDefaultMargins _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let size' = unsafeManagedPtrGetPtr size - gtk_page_setup_set_paper_size_and_default_margins _obj' size' - touchManagedPtr _obj - touchManagedPtr size - return () - -data PageSetupSetPaperSizeAndDefaultMarginsMethodInfo -instance (signature ~ (PaperSize -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetPaperSizeAndDefaultMarginsMethodInfo a signature where - overloadedMethod _ = pageSetupSetPaperSizeAndDefaultMargins - --- method PageSetup::set_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_set_right_margin" gtk_page_setup_set_right_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CDouble -> -- margin : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -pageSetupSetRightMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Double -- margin - -> Unit -- unit - -> m () -- result -pageSetupSetRightMargin _obj margin unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let margin' = realToFrac margin - let unit' = (fromIntegral . fromEnum) unit - gtk_page_setup_set_right_margin _obj' margin' unit' - touchManagedPtr _obj - return () - -data PageSetupSetRightMarginMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetRightMarginMethodInfo a signature where - overloadedMethod _ = pageSetupSetRightMargin - --- method PageSetup::set_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_page_setup_set_top_margin" gtk_page_setup_set_top_margin :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CDouble -> -- margin : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -pageSetupSetTopMargin :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> Double -- margin - -> Unit -- unit - -> m () -- result -pageSetupSetTopMargin _obj margin unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let margin' = realToFrac margin - let unit' = (fromIntegral . fromEnum) unit - gtk_page_setup_set_top_margin _obj' margin' unit' - touchManagedPtr _obj - return () - -data PageSetupSetTopMarginMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetTopMarginMethodInfo a signature where - overloadedMethod _ = pageSetupSetTopMargin - --- method PageSetup::to_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_page_setup_to_file" gtk_page_setup_to_file :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -pageSetupToFile :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> [Char] -- fileName - -> m () -- result -pageSetupToFile _obj fileName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fileName' <- stringToCString fileName - onException (do - _ <- propagateGError $ gtk_page_setup_to_file _obj' fileName' - touchManagedPtr _obj - freeMem fileName' - return () - ) (do - freeMem fileName' - ) - -data PageSetupToFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupToFileMethodInfo a signature where - overloadedMethod _ = pageSetupToFile - --- method PageSetup::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_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 "gtk_page_setup_to_key_file" gtk_page_setup_to_key_file :: - Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -pageSetupToKeyFile :: - (MonadIO m, PageSetupK a) => - a -- _obj - -> GLib.KeyFile -- keyFile - -> T.Text -- groupName - -> m () -- result -pageSetupToKeyFile _obj keyFile groupName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let keyFile' = unsafeManagedPtrGetPtr keyFile - groupName' <- textToCString groupName - gtk_page_setup_to_key_file _obj' keyFile' groupName' - touchManagedPtr _obj - touchManagedPtr keyFile - freeMem groupName' - return () - -data PageSetupToKeyFileMethodInfo -instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupToKeyFileMethodInfo a signature where - overloadedMethod _ = pageSetupToKeyFile - - diff --git a/GI/Gtk/Objects/PageSetup.hs-boot b/GI/Gtk/Objects/PageSetup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PageSetup.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Gtk.Objects.PageSetup 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 PageSetup = PageSetup (ForeignPtr PageSetup) -instance GObject PageSetup where -class GObject o => PageSetupK o -instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o -data PageSetupCopyMethodInfo -data PageSetupGetBottomMarginMethodInfo -data PageSetupGetLeftMarginMethodInfo -data PageSetupGetOrientationMethodInfo -data PageSetupGetPageHeightMethodInfo -data PageSetupGetPageWidthMethodInfo -data PageSetupGetPaperHeightMethodInfo -data PageSetupGetPaperSizeMethodInfo -data PageSetupGetPaperWidthMethodInfo -data PageSetupGetRightMarginMethodInfo -data PageSetupGetTopMarginMethodInfo -data PageSetupLoadFileMethodInfo -data PageSetupLoadKeyFileMethodInfo -data PageSetupSetBottomMarginMethodInfo -data PageSetupSetLeftMarginMethodInfo -data PageSetupSetOrientationMethodInfo -data PageSetupSetPaperSizeMethodInfo -data PageSetupSetPaperSizeAndDefaultMarginsMethodInfo -data PageSetupSetRightMarginMethodInfo -data PageSetupSetTopMarginMethodInfo -data PageSetupToFileMethodInfo -data PageSetupToKeyFileMethodInfo diff --git a/GI/Gtk/Objects/Paned.hs b/GI/Gtk/Objects/Paned.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Paned.hs +++ /dev/null @@ -1,1348 +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.Gtk.Objects.Paned - ( - --- * Exported types - Paned(..) , - PanedK , - toPaned , - noPaned , - - - -- * Methods --- ** panedAdd1 - PanedAdd1MethodInfo , - panedAdd1 , - - --- ** panedAdd2 - PanedAdd2MethodInfo , - panedAdd2 , - - --- ** panedGetChild1 - PanedGetChild1MethodInfo , - panedGetChild1 , - - --- ** panedGetChild2 - PanedGetChild2MethodInfo , - panedGetChild2 , - - --- ** panedGetHandleWindow - PanedGetHandleWindowMethodInfo , - panedGetHandleWindow , - - --- ** panedGetPosition - PanedGetPositionMethodInfo , - panedGetPosition , - - --- ** panedGetWideHandle - PanedGetWideHandleMethodInfo , - panedGetWideHandle , - - --- ** panedNew - panedNew , - - --- ** panedPack1 - PanedPack1MethodInfo , - panedPack1 , - - --- ** panedPack2 - PanedPack2MethodInfo , - panedPack2 , - - --- ** panedSetPosition - PanedSetPositionMethodInfo , - panedSetPosition , - - --- ** panedSetWideHandle - PanedSetWideHandleMethodInfo , - panedSetWideHandle , - - - - - -- * Properties --- ** MaxPosition - PanedMaxPositionPropertyInfo , - getPanedMaxPosition , - panedMaxPosition , - - --- ** MinPosition - PanedMinPositionPropertyInfo , - getPanedMinPosition , - panedMinPosition , - - --- ** Position - PanedPositionPropertyInfo , - constructPanedPosition , - getPanedPosition , - panedPosition , - setPanedPosition , - - --- ** PositionSet - PanedPositionSetPropertyInfo , - constructPanedPositionSet , - getPanedPositionSet , - panedPositionSet , - setPanedPositionSet , - - --- ** WideHandle - PanedWideHandlePropertyInfo , - constructPanedWideHandle , - getPanedWideHandle , - panedWideHandle , - setPanedWideHandle , - - - - - -- * Signals --- ** AcceptPosition - PanedAcceptPositionCallback , - PanedAcceptPositionCallbackC , - PanedAcceptPositionSignalInfo , - afterPanedAcceptPosition , - mkPanedAcceptPositionCallback , - noPanedAcceptPositionCallback , - onPanedAcceptPosition , - panedAcceptPositionCallbackWrapper , - panedAcceptPositionClosure , - - --- ** CancelPosition - PanedCancelPositionCallback , - PanedCancelPositionCallbackC , - PanedCancelPositionSignalInfo , - afterPanedCancelPosition , - mkPanedCancelPositionCallback , - noPanedCancelPositionCallback , - onPanedCancelPosition , - panedCancelPositionCallbackWrapper , - panedCancelPositionClosure , - - --- ** CycleChildFocus - PanedCycleChildFocusCallback , - PanedCycleChildFocusCallbackC , - PanedCycleChildFocusSignalInfo , - afterPanedCycleChildFocus , - mkPanedCycleChildFocusCallback , - noPanedCycleChildFocusCallback , - onPanedCycleChildFocus , - panedCycleChildFocusCallbackWrapper , - panedCycleChildFocusClosure , - - --- ** CycleHandleFocus - PanedCycleHandleFocusCallback , - PanedCycleHandleFocusCallbackC , - PanedCycleHandleFocusSignalInfo , - afterPanedCycleHandleFocus , - mkPanedCycleHandleFocusCallback , - noPanedCycleHandleFocusCallback , - onPanedCycleHandleFocus , - panedCycleHandleFocusCallbackWrapper , - panedCycleHandleFocusClosure , - - --- ** MoveHandle - PanedMoveHandleCallback , - PanedMoveHandleCallbackC , - PanedMoveHandleSignalInfo , - afterPanedMoveHandle , - mkPanedMoveHandleCallback , - noPanedMoveHandleCallback , - onPanedMoveHandle , - panedMoveHandleCallbackWrapper , - panedMoveHandleClosure , - - --- ** ToggleHandleFocus - PanedToggleHandleFocusCallback , - PanedToggleHandleFocusCallbackC , - PanedToggleHandleFocusSignalInfo , - afterPanedToggleHandleFocus , - mkPanedToggleHandleFocusCallback , - noPanedToggleHandleFocusCallback , - onPanedToggleHandleFocus , - panedToggleHandleFocusCallbackWrapper , - panedToggleHandleFocusClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Paned = Paned (ForeignPtr Paned) -foreign import ccall "gtk_paned_get_type" - c_gtk_paned_get_type :: IO GType - -type instance ParentTypes Paned = PanedParentTypes -type PanedParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Paned where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_paned_get_type - - -class GObject o => PanedK o -instance (GObject o, IsDescendantOf Paned o) => PanedK o - -toPaned :: PanedK o => o -> IO Paned -toPaned = unsafeCastTo Paned - -noPaned :: Maybe Paned -noPaned = Nothing - -type family ResolvePanedMethod (t :: Symbol) (o :: *) :: * where - ResolvePanedMethod "activate" o = WidgetActivateMethodInfo - ResolvePanedMethod "add" o = ContainerAddMethodInfo - ResolvePanedMethod "add1" o = PanedAdd1MethodInfo - ResolvePanedMethod "add2" o = PanedAdd2MethodInfo - ResolvePanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolvePanedMethod "addChild" o = BuildableAddChildMethodInfo - ResolvePanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolvePanedMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolvePanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolvePanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolvePanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolvePanedMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolvePanedMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolvePanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolvePanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolvePanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolvePanedMethod "childType" o = ContainerChildTypeMethodInfo - ResolvePanedMethod "classPath" o = WidgetClassPathMethodInfo - ResolvePanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolvePanedMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolvePanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolvePanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolvePanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolvePanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolvePanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolvePanedMethod "destroy" o = WidgetDestroyMethodInfo - ResolvePanedMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolvePanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolvePanedMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolvePanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolvePanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolvePanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolvePanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolvePanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolvePanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolvePanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolvePanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolvePanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolvePanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolvePanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolvePanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolvePanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolvePanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolvePanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolvePanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolvePanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolvePanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolvePanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolvePanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolvePanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolvePanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolvePanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolvePanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolvePanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolvePanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolvePanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolvePanedMethod "draw" o = WidgetDrawMethodInfo - ResolvePanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolvePanedMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolvePanedMethod "event" o = WidgetEventMethodInfo - ResolvePanedMethod "forall" o = ContainerForallMethodInfo - ResolvePanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePanedMethod "foreach" o = ContainerForeachMethodInfo - ResolvePanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolvePanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePanedMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolvePanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolvePanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolvePanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolvePanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolvePanedMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolvePanedMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolvePanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolvePanedMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolvePanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolvePanedMethod "hide" o = WidgetHideMethodInfo - ResolvePanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolvePanedMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolvePanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolvePanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolvePanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolvePanedMethod "intersect" o = WidgetIntersectMethodInfo - ResolvePanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolvePanedMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolvePanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolvePanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePanedMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolvePanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolvePanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolvePanedMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolvePanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolvePanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolvePanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolvePanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolvePanedMethod "map" o = WidgetMapMethodInfo - ResolvePanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolvePanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolvePanedMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolvePanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolvePanedMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolvePanedMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolvePanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolvePanedMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolvePanedMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolvePanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolvePanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolvePanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolvePanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolvePanedMethod "pack1" o = PanedPack1MethodInfo - ResolvePanedMethod "pack2" o = PanedPack2MethodInfo - ResolvePanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolvePanedMethod "path" o = WidgetPathMethodInfo - ResolvePanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolvePanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolvePanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolvePanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolvePanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolvePanedMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolvePanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolvePanedMethod "realize" o = WidgetRealizeMethodInfo - ResolvePanedMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolvePanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolvePanedMethod "remove" o = ContainerRemoveMethodInfo - ResolvePanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolvePanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolvePanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolvePanedMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolvePanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolvePanedMethod "reparent" o = WidgetReparentMethodInfo - ResolvePanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolvePanedMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolvePanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolvePanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePanedMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolvePanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolvePanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolvePanedMethod "show" o = WidgetShowMethodInfo - ResolvePanedMethod "showAll" o = WidgetShowAllMethodInfo - ResolvePanedMethod "showNow" o = WidgetShowNowMethodInfo - ResolvePanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolvePanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolvePanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolvePanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolvePanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolvePanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolvePanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolvePanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolvePanedMethod "unmap" o = WidgetUnmapMethodInfo - ResolvePanedMethod "unparent" o = WidgetUnparentMethodInfo - ResolvePanedMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolvePanedMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolvePanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolvePanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolvePanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolvePanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolvePanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolvePanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolvePanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolvePanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolvePanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolvePanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolvePanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolvePanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolvePanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolvePanedMethod "getChild1" o = PanedGetChild1MethodInfo - ResolvePanedMethod "getChild2" o = PanedGetChild2MethodInfo - ResolvePanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolvePanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolvePanedMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolvePanedMethod "getClip" o = WidgetGetClipMethodInfo - ResolvePanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolvePanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolvePanedMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolvePanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolvePanedMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolvePanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolvePanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolvePanedMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolvePanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolvePanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolvePanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolvePanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolvePanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolvePanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolvePanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolvePanedMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolvePanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo - ResolvePanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolvePanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolvePanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolvePanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolvePanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolvePanedMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolvePanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolvePanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolvePanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolvePanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolvePanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolvePanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolvePanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolvePanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolvePanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolvePanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolvePanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolvePanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolvePanedMethod "getParent" o = WidgetGetParentMethodInfo - ResolvePanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolvePanedMethod "getPath" o = WidgetGetPathMethodInfo - ResolvePanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolvePanedMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolvePanedMethod "getPosition" o = PanedGetPositionMethodInfo - ResolvePanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolvePanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolvePanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolvePanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolvePanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolvePanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolvePanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePanedMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolvePanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolvePanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolvePanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolvePanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolvePanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolvePanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolvePanedMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolvePanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolvePanedMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolvePanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolvePanedMethod "getState" o = WidgetGetStateMethodInfo - ResolvePanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolvePanedMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolvePanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolvePanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolvePanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolvePanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolvePanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolvePanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolvePanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolvePanedMethod "getValign" o = WidgetGetValignMethodInfo - ResolvePanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolvePanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolvePanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolvePanedMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolvePanedMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolvePanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo - ResolvePanedMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolvePanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolvePanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolvePanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolvePanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolvePanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolvePanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolvePanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolvePanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolvePanedMethod "setClip" o = WidgetSetClipMethodInfo - ResolvePanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolvePanedMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolvePanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolvePanedMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolvePanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolvePanedMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolvePanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolvePanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolvePanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolvePanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolvePanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolvePanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolvePanedMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolvePanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolvePanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolvePanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolvePanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolvePanedMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolvePanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolvePanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolvePanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolvePanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolvePanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolvePanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolvePanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolvePanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolvePanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolvePanedMethod "setParent" o = WidgetSetParentMethodInfo - ResolvePanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolvePanedMethod "setPosition" o = PanedSetPositionMethodInfo - ResolvePanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePanedMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolvePanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolvePanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolvePanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolvePanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolvePanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolvePanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolvePanedMethod "setState" o = WidgetSetStateMethodInfo - ResolvePanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolvePanedMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolvePanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolvePanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolvePanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolvePanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolvePanedMethod "setValign" o = WidgetSetValignMethodInfo - ResolvePanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolvePanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolvePanedMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolvePanedMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolvePanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo - ResolvePanedMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolvePanedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePanedMethod t Paned, MethodInfo info Paned p) => IsLabelProxy t (Paned -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePanedMethod t Paned, MethodInfo info Paned p) => IsLabel t (Paned -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Paned::accept-position -type PanedAcceptPositionCallback = - IO Bool - -noPanedAcceptPositionCallback :: Maybe PanedAcceptPositionCallback -noPanedAcceptPositionCallback = Nothing - -type PanedAcceptPositionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedAcceptPositionCallback :: PanedAcceptPositionCallbackC -> IO (FunPtr PanedAcceptPositionCallbackC) - -panedAcceptPositionClosure :: PanedAcceptPositionCallback -> IO Closure -panedAcceptPositionClosure cb = newCClosure =<< mkPanedAcceptPositionCallback wrapped - where wrapped = panedAcceptPositionCallbackWrapper cb - -panedAcceptPositionCallbackWrapper :: - PanedAcceptPositionCallback -> - Ptr () -> - Ptr () -> - IO CInt -panedAcceptPositionCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId -onPanedAcceptPosition obj cb = liftIO $ connectPanedAcceptPosition obj cb SignalConnectBefore -afterPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId -afterPanedAcceptPosition obj cb = connectPanedAcceptPosition obj cb SignalConnectAfter - -connectPanedAcceptPosition :: (GObject a, MonadIO m) => - a -> PanedAcceptPositionCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedAcceptPosition obj cb after = liftIO $ do - cb' <- mkPanedAcceptPositionCallback (panedAcceptPositionCallbackWrapper cb) - connectSignalFunPtr obj "accept-position" cb' after - --- signal Paned::cancel-position -type PanedCancelPositionCallback = - IO Bool - -noPanedCancelPositionCallback :: Maybe PanedCancelPositionCallback -noPanedCancelPositionCallback = Nothing - -type PanedCancelPositionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedCancelPositionCallback :: PanedCancelPositionCallbackC -> IO (FunPtr PanedCancelPositionCallbackC) - -panedCancelPositionClosure :: PanedCancelPositionCallback -> IO Closure -panedCancelPositionClosure cb = newCClosure =<< mkPanedCancelPositionCallback wrapped - where wrapped = panedCancelPositionCallbackWrapper cb - -panedCancelPositionCallbackWrapper :: - PanedCancelPositionCallback -> - Ptr () -> - Ptr () -> - IO CInt -panedCancelPositionCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId -onPanedCancelPosition obj cb = liftIO $ connectPanedCancelPosition obj cb SignalConnectBefore -afterPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId -afterPanedCancelPosition obj cb = connectPanedCancelPosition obj cb SignalConnectAfter - -connectPanedCancelPosition :: (GObject a, MonadIO m) => - a -> PanedCancelPositionCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedCancelPosition obj cb after = liftIO $ do - cb' <- mkPanedCancelPositionCallback (panedCancelPositionCallbackWrapper cb) - connectSignalFunPtr obj "cancel-position" cb' after - --- signal Paned::cycle-child-focus -type PanedCycleChildFocusCallback = - Bool -> - IO Bool - -noPanedCycleChildFocusCallback :: Maybe PanedCycleChildFocusCallback -noPanedCycleChildFocusCallback = Nothing - -type PanedCycleChildFocusCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedCycleChildFocusCallback :: PanedCycleChildFocusCallbackC -> IO (FunPtr PanedCycleChildFocusCallbackC) - -panedCycleChildFocusClosure :: PanedCycleChildFocusCallback -> IO Closure -panedCycleChildFocusClosure cb = newCClosure =<< mkPanedCycleChildFocusCallback wrapped - where wrapped = panedCycleChildFocusCallbackWrapper cb - -panedCycleChildFocusCallbackWrapper :: - PanedCycleChildFocusCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -panedCycleChildFocusCallbackWrapper _cb _ reversed _ = do - let reversed' = (/= 0) reversed - result <- _cb reversed' - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId -onPanedCycleChildFocus obj cb = liftIO $ connectPanedCycleChildFocus obj cb SignalConnectBefore -afterPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId -afterPanedCycleChildFocus obj cb = connectPanedCycleChildFocus obj cb SignalConnectAfter - -connectPanedCycleChildFocus :: (GObject a, MonadIO m) => - a -> PanedCycleChildFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedCycleChildFocus obj cb after = liftIO $ do - cb' <- mkPanedCycleChildFocusCallback (panedCycleChildFocusCallbackWrapper cb) - connectSignalFunPtr obj "cycle-child-focus" cb' after - --- signal Paned::cycle-handle-focus -type PanedCycleHandleFocusCallback = - Bool -> - IO Bool - -noPanedCycleHandleFocusCallback :: Maybe PanedCycleHandleFocusCallback -noPanedCycleHandleFocusCallback = Nothing - -type PanedCycleHandleFocusCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedCycleHandleFocusCallback :: PanedCycleHandleFocusCallbackC -> IO (FunPtr PanedCycleHandleFocusCallbackC) - -panedCycleHandleFocusClosure :: PanedCycleHandleFocusCallback -> IO Closure -panedCycleHandleFocusClosure cb = newCClosure =<< mkPanedCycleHandleFocusCallback wrapped - where wrapped = panedCycleHandleFocusCallbackWrapper cb - -panedCycleHandleFocusCallbackWrapper :: - PanedCycleHandleFocusCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -panedCycleHandleFocusCallbackWrapper _cb _ reversed _ = do - let reversed' = (/= 0) reversed - result <- _cb reversed' - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId -onPanedCycleHandleFocus obj cb = liftIO $ connectPanedCycleHandleFocus obj cb SignalConnectBefore -afterPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId -afterPanedCycleHandleFocus obj cb = connectPanedCycleHandleFocus obj cb SignalConnectAfter - -connectPanedCycleHandleFocus :: (GObject a, MonadIO m) => - a -> PanedCycleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedCycleHandleFocus obj cb after = liftIO $ do - cb' <- mkPanedCycleHandleFocusCallback (panedCycleHandleFocusCallbackWrapper cb) - connectSignalFunPtr obj "cycle-handle-focus" cb' after - --- signal Paned::move-handle -type PanedMoveHandleCallback = - ScrollType -> - IO Bool - -noPanedMoveHandleCallback :: Maybe PanedMoveHandleCallback -noPanedMoveHandleCallback = Nothing - -type PanedMoveHandleCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedMoveHandleCallback :: PanedMoveHandleCallbackC -> IO (FunPtr PanedMoveHandleCallbackC) - -panedMoveHandleClosure :: PanedMoveHandleCallback -> IO Closure -panedMoveHandleClosure cb = newCClosure =<< mkPanedMoveHandleCallback wrapped - where wrapped = panedMoveHandleCallbackWrapper cb - -panedMoveHandleCallbackWrapper :: - PanedMoveHandleCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -panedMoveHandleCallbackWrapper _cb _ scrollType _ = do - let scrollType' = (toEnum . fromIntegral) scrollType - result <- _cb scrollType' - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId -onPanedMoveHandle obj cb = liftIO $ connectPanedMoveHandle obj cb SignalConnectBefore -afterPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId -afterPanedMoveHandle obj cb = connectPanedMoveHandle obj cb SignalConnectAfter - -connectPanedMoveHandle :: (GObject a, MonadIO m) => - a -> PanedMoveHandleCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedMoveHandle obj cb after = liftIO $ do - cb' <- mkPanedMoveHandleCallback (panedMoveHandleCallbackWrapper cb) - connectSignalFunPtr obj "move-handle" cb' after - --- signal Paned::toggle-handle-focus -type PanedToggleHandleFocusCallback = - IO Bool - -noPanedToggleHandleFocusCallback :: Maybe PanedToggleHandleFocusCallback -noPanedToggleHandleFocusCallback = Nothing - -type PanedToggleHandleFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPanedToggleHandleFocusCallback :: PanedToggleHandleFocusCallbackC -> IO (FunPtr PanedToggleHandleFocusCallbackC) - -panedToggleHandleFocusClosure :: PanedToggleHandleFocusCallback -> IO Closure -panedToggleHandleFocusClosure cb = newCClosure =<< mkPanedToggleHandleFocusCallback wrapped - where wrapped = panedToggleHandleFocusCallbackWrapper cb - -panedToggleHandleFocusCallbackWrapper :: - PanedToggleHandleFocusCallback -> - Ptr () -> - Ptr () -> - IO CInt -panedToggleHandleFocusCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId -onPanedToggleHandleFocus obj cb = liftIO $ connectPanedToggleHandleFocus obj cb SignalConnectBefore -afterPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId -afterPanedToggleHandleFocus obj cb = connectPanedToggleHandleFocus obj cb SignalConnectAfter - -connectPanedToggleHandleFocus :: (GObject a, MonadIO m) => - a -> PanedToggleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectPanedToggleHandleFocus obj cb after = liftIO $ do - cb' <- mkPanedToggleHandleFocusCallback (panedToggleHandleFocusCallbackWrapper cb) - connectSignalFunPtr obj "toggle-handle-focus" cb' after - --- VVV Prop "max-position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMaxPosition obj = liftIO $ getObjectPropertyInt32 obj "max-position" - -data PanedMaxPositionPropertyInfo -instance AttrInfo PanedMaxPositionPropertyInfo where - type AttrAllowedOps PanedMaxPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PanedMaxPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint PanedMaxPositionPropertyInfo = PanedK - type AttrGetType PanedMaxPositionPropertyInfo = Int32 - type AttrLabel PanedMaxPositionPropertyInfo = "max-position" - attrGet _ = getPanedMaxPosition - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "min-position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMinPosition obj = liftIO $ getObjectPropertyInt32 obj "min-position" - -data PanedMinPositionPropertyInfo -instance AttrInfo PanedMinPositionPropertyInfo where - type AttrAllowedOps PanedMinPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PanedMinPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint PanedMinPositionPropertyInfo = PanedK - type AttrGetType PanedMinPositionPropertyInfo = Int32 - type AttrLabel PanedMinPositionPropertyInfo = "min-position" - attrGet _ = getPanedMinPosition - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedPosition obj = liftIO $ getObjectPropertyInt32 obj "position" - -setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m () -setPanedPosition obj val = liftIO $ setObjectPropertyInt32 obj "position" val - -constructPanedPosition :: Int32 -> IO ([Char], GValue) -constructPanedPosition val = constructObjectPropertyInt32 "position" val - -data PanedPositionPropertyInfo -instance AttrInfo PanedPositionPropertyInfo where - type AttrAllowedOps PanedPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PanedPositionPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PanedPositionPropertyInfo = PanedK - type AttrGetType PanedPositionPropertyInfo = Int32 - type AttrLabel PanedPositionPropertyInfo = "position" - attrGet _ = getPanedPosition - attrSet _ = setPanedPosition - attrConstruct _ = constructPanedPosition - attrClear _ = undefined - --- VVV Prop "position-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getPanedPositionSet :: (MonadIO m, PanedK o) => o -> m Bool -getPanedPositionSet obj = liftIO $ getObjectPropertyBool obj "position-set" - -setPanedPositionSet :: (MonadIO m, PanedK o) => o -> Bool -> m () -setPanedPositionSet obj val = liftIO $ setObjectPropertyBool obj "position-set" val - -constructPanedPositionSet :: Bool -> IO ([Char], GValue) -constructPanedPositionSet val = constructObjectPropertyBool "position-set" val - -data PanedPositionSetPropertyInfo -instance AttrInfo PanedPositionSetPropertyInfo where - type AttrAllowedOps PanedPositionSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PanedPositionSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PanedPositionSetPropertyInfo = PanedK - type AttrGetType PanedPositionSetPropertyInfo = Bool - type AttrLabel PanedPositionSetPropertyInfo = "position-set" - attrGet _ = getPanedPositionSet - attrSet _ = setPanedPositionSet - attrConstruct _ = constructPanedPositionSet - attrClear _ = undefined - --- VVV Prop "wide-handle" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPanedWideHandle :: (MonadIO m, PanedK o) => o -> m Bool -getPanedWideHandle obj = liftIO $ getObjectPropertyBool obj "wide-handle" - -setPanedWideHandle :: (MonadIO m, PanedK o) => o -> Bool -> m () -setPanedWideHandle obj val = liftIO $ setObjectPropertyBool obj "wide-handle" val - -constructPanedWideHandle :: Bool -> IO ([Char], GValue) -constructPanedWideHandle val = constructObjectPropertyBool "wide-handle" val - -data PanedWideHandlePropertyInfo -instance AttrInfo PanedWideHandlePropertyInfo where - type AttrAllowedOps PanedWideHandlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PanedWideHandlePropertyInfo = (~) Bool - type AttrBaseTypeConstraint PanedWideHandlePropertyInfo = PanedK - type AttrGetType PanedWideHandlePropertyInfo = Bool - type AttrLabel PanedWideHandlePropertyInfo = "wide-handle" - attrGet _ = getPanedWideHandle - attrSet _ = setPanedWideHandle - attrConstruct _ = constructPanedWideHandle - attrClear _ = undefined - -type instance AttributeList Paned = PanedAttributeList -type PanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -panedMaxPosition :: AttrLabelProxy "maxPosition" -panedMaxPosition = AttrLabelProxy - -panedMinPosition :: AttrLabelProxy "minPosition" -panedMinPosition = AttrLabelProxy - -panedPosition :: AttrLabelProxy "position" -panedPosition = AttrLabelProxy - -panedPositionSet :: AttrLabelProxy "positionSet" -panedPositionSet = AttrLabelProxy - -panedWideHandle :: AttrLabelProxy "wideHandle" -panedWideHandle = AttrLabelProxy - -data PanedAcceptPositionSignalInfo -instance SignalInfo PanedAcceptPositionSignalInfo where - type HaskellCallbackType PanedAcceptPositionSignalInfo = PanedAcceptPositionCallback - connectSignal _ = connectPanedAcceptPosition - -data PanedCancelPositionSignalInfo -instance SignalInfo PanedCancelPositionSignalInfo where - type HaskellCallbackType PanedCancelPositionSignalInfo = PanedCancelPositionCallback - connectSignal _ = connectPanedCancelPosition - -data PanedCycleChildFocusSignalInfo -instance SignalInfo PanedCycleChildFocusSignalInfo where - type HaskellCallbackType PanedCycleChildFocusSignalInfo = PanedCycleChildFocusCallback - connectSignal _ = connectPanedCycleChildFocus - -data PanedCycleHandleFocusSignalInfo -instance SignalInfo PanedCycleHandleFocusSignalInfo where - type HaskellCallbackType PanedCycleHandleFocusSignalInfo = PanedCycleHandleFocusCallback - connectSignal _ = connectPanedCycleHandleFocus - -data PanedMoveHandleSignalInfo -instance SignalInfo PanedMoveHandleSignalInfo where - type HaskellCallbackType PanedMoveHandleSignalInfo = PanedMoveHandleCallback - connectSignal _ = connectPanedMoveHandle - -data PanedToggleHandleFocusSignalInfo -instance SignalInfo PanedToggleHandleFocusSignalInfo where - type HaskellCallbackType PanedToggleHandleFocusSignalInfo = PanedToggleHandleFocusCallback - connectSignal _ = connectPanedToggleHandleFocus - -type instance SignalList Paned = PanedSignalList -type PanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Paned::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Paned") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paned_new" gtk_paned_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO (Ptr Paned) - - -panedNew :: - (MonadIO m) => - Orientation -- orientation - -> m Paned -- result -panedNew orientation = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_paned_new orientation' - checkUnexpectedReturnNULL "gtk_paned_new" result - result' <- (newObject Paned) result - return result' - --- method Paned::add1 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_paned_add1" gtk_paned_add1 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -panedAdd1 :: - (MonadIO m, PanedK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -panedAdd1 _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_paned_add1 _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data PanedAdd1MethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedAdd1MethodInfo a signature where - overloadedMethod _ = panedAdd1 - --- method Paned::add2 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_paned_add2" gtk_paned_add2 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -panedAdd2 :: - (MonadIO m, PanedK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -panedAdd2 _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_paned_add2 _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data PanedAdd2MethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedAdd2MethodInfo a signature where - overloadedMethod _ = panedAdd2 - --- method Paned::get_child1 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paned_get_child1" gtk_paned_get_child1 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - IO (Ptr Widget) - - -panedGetChild1 :: - (MonadIO m, PanedK a) => - a -- _obj - -> m Widget -- result -panedGetChild1 _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_child1 _obj' - checkUnexpectedReturnNULL "gtk_paned_get_child1" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data PanedGetChild1MethodInfo -instance (signature ~ (m Widget), MonadIO m, PanedK a) => MethodInfo PanedGetChild1MethodInfo a signature where - overloadedMethod _ = panedGetChild1 - --- method Paned::get_child2 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paned_get_child2" gtk_paned_get_child2 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - IO (Ptr Widget) - - -panedGetChild2 :: - (MonadIO m, PanedK a) => - a -- _obj - -> m Widget -- result -panedGetChild2 _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_child2 _obj' - checkUnexpectedReturnNULL "gtk_paned_get_child2" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data PanedGetChild2MethodInfo -instance (signature ~ (m Widget), MonadIO m, PanedK a) => MethodInfo PanedGetChild2MethodInfo a signature where - overloadedMethod _ = panedGetChild2 - --- method Paned::get_handle_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paned_get_handle_window" gtk_paned_get_handle_window :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - IO (Ptr Gdk.Window) - - -panedGetHandleWindow :: - (MonadIO m, PanedK a) => - a -- _obj - -> m Gdk.Window -- result -panedGetHandleWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_handle_window _obj' - checkUnexpectedReturnNULL "gtk_paned_get_handle_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data PanedGetHandleWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, PanedK a) => MethodInfo PanedGetHandleWindowMethodInfo a signature where - overloadedMethod _ = panedGetHandleWindow - --- method Paned::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", 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 "gtk_paned_get_position" gtk_paned_get_position :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - IO Int32 - - -panedGetPosition :: - (MonadIO m, PanedK a) => - a -- _obj - -> m Int32 -- result -panedGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_position _obj' - touchManagedPtr _obj - return result - -data PanedGetPositionMethodInfo -instance (signature ~ (m Int32), MonadIO m, PanedK a) => MethodInfo PanedGetPositionMethodInfo a signature where - overloadedMethod _ = panedGetPosition - --- method Paned::get_wide_handle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", 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 "gtk_paned_get_wide_handle" gtk_paned_get_wide_handle :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - IO CInt - - -panedGetWideHandle :: - (MonadIO m, PanedK a) => - a -- _obj - -> m Bool -- result -panedGetWideHandle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_wide_handle _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PanedGetWideHandleMethodInfo -instance (signature ~ (m Bool), MonadIO m, PanedK a) => MethodInfo PanedGetWideHandleMethodInfo a signature where - overloadedMethod _ = panedGetWideHandle - --- method Paned::pack1 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", 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 "gtk_paned_pack1" gtk_paned_pack1 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- resize : TBasicType TBoolean - CInt -> -- shrink : TBasicType TBoolean - IO () - - -panedPack1 :: - (MonadIO m, PanedK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- resize - -> Bool -- shrink - -> m () -- result -panedPack1 _obj child resize shrink = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let resize' = (fromIntegral . fromEnum) resize - let shrink' = (fromIntegral . fromEnum) shrink - gtk_paned_pack1 _obj' child' resize' shrink' - touchManagedPtr _obj - touchManagedPtr child - return () - -data PanedPack1MethodInfo -instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedPack1MethodInfo a signature where - overloadedMethod _ = panedPack1 - --- method Paned::pack2 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", 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 "gtk_paned_pack2" gtk_paned_pack2 :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- resize : TBasicType TBoolean - CInt -> -- shrink : TBasicType TBoolean - IO () - - -panedPack2 :: - (MonadIO m, PanedK a, WidgetK b) => - a -- _obj - -> b -- child - -> Bool -- resize - -> Bool -- shrink - -> m () -- result -panedPack2 _obj child resize shrink = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let resize' = (fromIntegral . fromEnum) resize - let shrink' = (fromIntegral . fromEnum) shrink - gtk_paned_pack2 _obj' child' resize' shrink' - touchManagedPtr _obj - touchManagedPtr child - return () - -data PanedPack2MethodInfo -instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedPack2MethodInfo a signature where - overloadedMethod _ = panedPack2 - --- method Paned::set_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", 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 "gtk_paned_set_position" gtk_paned_set_position :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Int32 -> -- position : TBasicType TInt - IO () - - -panedSetPosition :: - (MonadIO m, PanedK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -panedSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_paned_set_position _obj' position - touchManagedPtr _obj - return () - -data PanedSetPositionMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PanedK a) => MethodInfo PanedSetPositionMethodInfo a signature where - overloadedMethod _ = panedSetPosition - --- method Paned::set_wide_handle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wide", 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 "gtk_paned_set_wide_handle" gtk_paned_set_wide_handle :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - CInt -> -- wide : TBasicType TBoolean - IO () - - -panedSetWideHandle :: - (MonadIO m, PanedK a) => - a -- _obj - -> Bool -- wide - -> m () -- result -panedSetWideHandle _obj wide = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wide' = (fromIntegral . fromEnum) wide - gtk_paned_set_wide_handle _obj' wide' - touchManagedPtr _obj - return () - -data PanedSetWideHandleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PanedK a) => MethodInfo PanedSetWideHandleMethodInfo a signature where - overloadedMethod _ = panedSetWideHandle - - diff --git a/GI/Gtk/Objects/Paned.hs-boot b/GI/Gtk/Objects/Paned.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Paned.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Gtk.Objects.Paned 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 Paned = Paned (ForeignPtr Paned) -instance GObject Paned where -class GObject o => PanedK o -instance (GObject o, IsDescendantOf Paned o) => PanedK o -data PanedMaxPositionPropertyInfo -data PanedMinPositionPropertyInfo -data PanedPositionPropertyInfo -data PanedPositionSetPropertyInfo -data PanedWideHandlePropertyInfo -data PanedAcceptPositionSignalInfo -data PanedCancelPositionSignalInfo -data PanedCycleChildFocusSignalInfo -data PanedCycleHandleFocusSignalInfo -data PanedMoveHandleSignalInfo -data PanedToggleHandleFocusSignalInfo -data PanedAdd1MethodInfo -data PanedAdd2MethodInfo -data PanedGetChild1MethodInfo -data PanedGetChild2MethodInfo -data PanedGetHandleWindowMethodInfo -data PanedGetPositionMethodInfo -data PanedGetWideHandleMethodInfo -data PanedPack1MethodInfo -data PanedPack2MethodInfo -data PanedSetPositionMethodInfo -data PanedSetWideHandleMethodInfo diff --git a/GI/Gtk/Objects/PanedAccessible.hs b/GI/Gtk/Objects/PanedAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PanedAccessible.hs +++ /dev/null @@ -1,138 +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.Gtk.Objects.PanedAccessible - ( - --- * Exported types - PanedAccessible(..) , - PanedAccessibleK , - toPanedAccessible , - noPanedAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype PanedAccessible = PanedAccessible (ForeignPtr PanedAccessible) -foreign import ccall "gtk_paned_accessible_get_type" - c_gtk_paned_accessible_get_type :: IO GType - -type instance ParentTypes PanedAccessible = PanedAccessibleParentTypes -type PanedAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value] - -instance GObject PanedAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_paned_accessible_get_type - - -class GObject o => PanedAccessibleK o -instance (GObject o, IsDescendantOf PanedAccessible o) => PanedAccessibleK o - -toPanedAccessible :: PanedAccessibleK o => o -> IO PanedAccessible -toPanedAccessible = unsafeCastTo PanedAccessible - -noPanedAccessible :: Maybe PanedAccessible -noPanedAccessible = Nothing - -type family ResolvePanedAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolvePanedAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolvePanedAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePanedAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePanedAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolvePanedAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolvePanedAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePanedAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePanedAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolvePanedAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolvePanedAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePanedAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePanedAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePanedAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolvePanedAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolvePanedAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePanedAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolvePanedAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolvePanedAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolvePanedAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePanedAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolvePanedAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolvePanedAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolvePanedAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolvePanedAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePanedAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePanedAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePanedAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePanedAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePanedAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePanedAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePanedAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePanedAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolvePanedAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolvePanedAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolvePanedAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePanedAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolvePanedAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolvePanedAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolvePanedAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolvePanedAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolvePanedAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolvePanedAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolvePanedAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolvePanedAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolvePanedAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolvePanedAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolvePanedAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolvePanedAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePanedAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePanedAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolvePanedAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolvePanedAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolvePanedAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolvePanedAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolvePanedAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolvePanedAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolvePanedAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePanedAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolvePanedAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolvePanedAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolvePanedAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolvePanedAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolvePanedAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePanedAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolvePanedAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolvePanedAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolvePanedAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolvePanedAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePanedAccessibleMethod t PanedAccessible, MethodInfo info PanedAccessible p) => IsLabelProxy t (PanedAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePanedAccessibleMethod t PanedAccessible, MethodInfo info PanedAccessible p) => IsLabel t (PanedAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PanedAccessible = PanedAccessibleAttributeList -type PanedAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PanedAccessible = PanedAccessibleSignalList -type PanedAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/PanedAccessible.hs-boot b/GI/Gtk/Objects/PanedAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PanedAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.PanedAccessible 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 PanedAccessible = PanedAccessible (ForeignPtr PanedAccessible) -instance GObject PanedAccessible where -class GObject o => PanedAccessibleK o -instance (GObject o, IsDescendantOf PanedAccessible o) => PanedAccessibleK o diff --git a/GI/Gtk/Objects/PlacesSidebar.hs b/GI/Gtk/Objects/PlacesSidebar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PlacesSidebar.hs +++ /dev/null @@ -1,2203 +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.Gtk.Objects.PlacesSidebar - ( - --- * Exported types - PlacesSidebar(..) , - PlacesSidebarK , - toPlacesSidebar , - noPlacesSidebar , - - - -- * Methods --- ** placesSidebarAddShortcut - PlacesSidebarAddShortcutMethodInfo , - placesSidebarAddShortcut , - - --- ** placesSidebarGetLocalOnly - PlacesSidebarGetLocalOnlyMethodInfo , - placesSidebarGetLocalOnly , - - --- ** placesSidebarGetLocation - PlacesSidebarGetLocationMethodInfo , - placesSidebarGetLocation , - - --- ** placesSidebarGetNthBookmark - PlacesSidebarGetNthBookmarkMethodInfo , - placesSidebarGetNthBookmark , - - --- ** placesSidebarGetOpenFlags - PlacesSidebarGetOpenFlagsMethodInfo , - placesSidebarGetOpenFlags , - - --- ** placesSidebarGetShowConnectToServer - PlacesSidebarGetShowConnectToServerMethodInfo, - placesSidebarGetShowConnectToServer , - - --- ** placesSidebarGetShowDesktop - PlacesSidebarGetShowDesktopMethodInfo , - placesSidebarGetShowDesktop , - - --- ** placesSidebarGetShowEnterLocation - PlacesSidebarGetShowEnterLocationMethodInfo, - placesSidebarGetShowEnterLocation , - - --- ** placesSidebarGetShowOtherLocations - PlacesSidebarGetShowOtherLocationsMethodInfo, - placesSidebarGetShowOtherLocations , - - --- ** placesSidebarGetShowRecent - PlacesSidebarGetShowRecentMethodInfo , - placesSidebarGetShowRecent , - - --- ** placesSidebarGetShowTrash - PlacesSidebarGetShowTrashMethodInfo , - placesSidebarGetShowTrash , - - --- ** placesSidebarListShortcuts - PlacesSidebarListShortcutsMethodInfo , - placesSidebarListShortcuts , - - --- ** placesSidebarNew - placesSidebarNew , - - --- ** placesSidebarRemoveShortcut - PlacesSidebarRemoveShortcutMethodInfo , - placesSidebarRemoveShortcut , - - --- ** placesSidebarSetDropTargetsVisible - PlacesSidebarSetDropTargetsVisibleMethodInfo, - placesSidebarSetDropTargetsVisible , - - --- ** placesSidebarSetLocalOnly - PlacesSidebarSetLocalOnlyMethodInfo , - placesSidebarSetLocalOnly , - - --- ** placesSidebarSetLocation - PlacesSidebarSetLocationMethodInfo , - placesSidebarSetLocation , - - --- ** placesSidebarSetOpenFlags - PlacesSidebarSetOpenFlagsMethodInfo , - placesSidebarSetOpenFlags , - - --- ** placesSidebarSetShowConnectToServer - PlacesSidebarSetShowConnectToServerMethodInfo, - placesSidebarSetShowConnectToServer , - - --- ** placesSidebarSetShowDesktop - PlacesSidebarSetShowDesktopMethodInfo , - placesSidebarSetShowDesktop , - - --- ** placesSidebarSetShowEnterLocation - PlacesSidebarSetShowEnterLocationMethodInfo, - placesSidebarSetShowEnterLocation , - - --- ** placesSidebarSetShowOtherLocations - PlacesSidebarSetShowOtherLocationsMethodInfo, - placesSidebarSetShowOtherLocations , - - --- ** placesSidebarSetShowRecent - PlacesSidebarSetShowRecentMethodInfo , - placesSidebarSetShowRecent , - - --- ** placesSidebarSetShowTrash - PlacesSidebarSetShowTrashMethodInfo , - placesSidebarSetShowTrash , - - - - - -- * Properties --- ** LocalOnly - PlacesSidebarLocalOnlyPropertyInfo , - constructPlacesSidebarLocalOnly , - getPlacesSidebarLocalOnly , - placesSidebarLocalOnly , - setPlacesSidebarLocalOnly , - - --- ** Location - PlacesSidebarLocationPropertyInfo , - clearPlacesSidebarLocation , - constructPlacesSidebarLocation , - getPlacesSidebarLocation , - placesSidebarLocation , - setPlacesSidebarLocation , - - --- ** OpenFlags - PlacesSidebarOpenFlagsPropertyInfo , - constructPlacesSidebarOpenFlags , - getPlacesSidebarOpenFlags , - placesSidebarOpenFlags , - setPlacesSidebarOpenFlags , - - --- ** PopulateAll - PlacesSidebarPopulateAllPropertyInfo , - constructPlacesSidebarPopulateAll , - getPlacesSidebarPopulateAll , - placesSidebarPopulateAll , - setPlacesSidebarPopulateAll , - - --- ** ShowConnectToServer - PlacesSidebarShowConnectToServerPropertyInfo, - constructPlacesSidebarShowConnectToServer, - getPlacesSidebarShowConnectToServer , - placesSidebarShowConnectToServer , - setPlacesSidebarShowConnectToServer , - - --- ** ShowDesktop - PlacesSidebarShowDesktopPropertyInfo , - constructPlacesSidebarShowDesktop , - getPlacesSidebarShowDesktop , - placesSidebarShowDesktop , - setPlacesSidebarShowDesktop , - - --- ** ShowEnterLocation - PlacesSidebarShowEnterLocationPropertyInfo, - constructPlacesSidebarShowEnterLocation , - getPlacesSidebarShowEnterLocation , - placesSidebarShowEnterLocation , - setPlacesSidebarShowEnterLocation , - - --- ** ShowOtherLocations - PlacesSidebarShowOtherLocationsPropertyInfo, - constructPlacesSidebarShowOtherLocations, - getPlacesSidebarShowOtherLocations , - placesSidebarShowOtherLocations , - setPlacesSidebarShowOtherLocations , - - --- ** ShowRecent - PlacesSidebarShowRecentPropertyInfo , - constructPlacesSidebarShowRecent , - getPlacesSidebarShowRecent , - placesSidebarShowRecent , - setPlacesSidebarShowRecent , - - --- ** ShowTrash - PlacesSidebarShowTrashPropertyInfo , - constructPlacesSidebarShowTrash , - getPlacesSidebarShowTrash , - placesSidebarShowTrash , - setPlacesSidebarShowTrash , - - - - - -- * Signals --- ** DragActionAsk - PlacesSidebarDragActionAskCallback , - PlacesSidebarDragActionAskCallbackC , - PlacesSidebarDragActionAskSignalInfo , - afterPlacesSidebarDragActionAsk , - mkPlacesSidebarDragActionAskCallback , - noPlacesSidebarDragActionAskCallback , - onPlacesSidebarDragActionAsk , - placesSidebarDragActionAskCallbackWrapper, - placesSidebarDragActionAskClosure , - - --- ** DragActionRequested - PlacesSidebarDragActionRequestedCallback, - PlacesSidebarDragActionRequestedCallbackC, - PlacesSidebarDragActionRequestedSignalInfo, - afterPlacesSidebarDragActionRequested , - mkPlacesSidebarDragActionRequestedCallback, - noPlacesSidebarDragActionRequestedCallback, - onPlacesSidebarDragActionRequested , - placesSidebarDragActionRequestedCallbackWrapper, - placesSidebarDragActionRequestedClosure , - - --- ** DragPerformDrop - PlacesSidebarDragPerformDropCallback , - PlacesSidebarDragPerformDropCallbackC , - PlacesSidebarDragPerformDropSignalInfo , - afterPlacesSidebarDragPerformDrop , - mkPlacesSidebarDragPerformDropCallback , - noPlacesSidebarDragPerformDropCallback , - onPlacesSidebarDragPerformDrop , - placesSidebarDragPerformDropCallbackWrapper, - placesSidebarDragPerformDropClosure , - - --- ** OpenLocation - PlacesSidebarOpenLocationCallback , - PlacesSidebarOpenLocationCallbackC , - PlacesSidebarOpenLocationSignalInfo , - afterPlacesSidebarOpenLocation , - mkPlacesSidebarOpenLocationCallback , - noPlacesSidebarOpenLocationCallback , - onPlacesSidebarOpenLocation , - placesSidebarOpenLocationCallbackWrapper, - placesSidebarOpenLocationClosure , - - --- ** PopulatePopup - PlacesSidebarPopulatePopupCallback , - PlacesSidebarPopulatePopupCallbackC , - PlacesSidebarPopulatePopupSignalInfo , - afterPlacesSidebarPopulatePopup , - mkPlacesSidebarPopulatePopupCallback , - noPlacesSidebarPopulatePopupCallback , - onPlacesSidebarPopulatePopup , - placesSidebarPopulatePopupCallbackWrapper, - placesSidebarPopulatePopupClosure , - - --- ** ShowConnectToServer - PlacesSidebarShowConnectToServerCallback, - PlacesSidebarShowConnectToServerCallbackC, - PlacesSidebarShowConnectToServerSignalInfo, - afterPlacesSidebarShowConnectToServer , - mkPlacesSidebarShowConnectToServerCallback, - noPlacesSidebarShowConnectToServerCallback, - onPlacesSidebarShowConnectToServer , - placesSidebarShowConnectToServerCallbackWrapper, - placesSidebarShowConnectToServerClosure , - - --- ** ShowEnterLocation - PlacesSidebarShowEnterLocationCallback , - PlacesSidebarShowEnterLocationCallbackC , - PlacesSidebarShowEnterLocationSignalInfo, - afterPlacesSidebarShowEnterLocation , - mkPlacesSidebarShowEnterLocationCallback, - noPlacesSidebarShowEnterLocationCallback, - onPlacesSidebarShowEnterLocation , - placesSidebarShowEnterLocationCallbackWrapper, - placesSidebarShowEnterLocationClosure , - - --- ** ShowErrorMessage - PlacesSidebarShowErrorMessageCallback , - PlacesSidebarShowErrorMessageCallbackC , - PlacesSidebarShowErrorMessageSignalInfo , - afterPlacesSidebarShowErrorMessage , - mkPlacesSidebarShowErrorMessageCallback , - noPlacesSidebarShowErrorMessageCallback , - onPlacesSidebarShowErrorMessage , - placesSidebarShowErrorMessageCallbackWrapper, - placesSidebarShowErrorMessageClosure , - - --- ** ShowOtherLocations - PlacesSidebarShowOtherLocationsCallback , - PlacesSidebarShowOtherLocationsCallbackC, - PlacesSidebarShowOtherLocationsSignalInfo, - afterPlacesSidebarShowOtherLocations , - mkPlacesSidebarShowOtherLocationsCallback, - noPlacesSidebarShowOtherLocationsCallback, - onPlacesSidebarShowOtherLocations , - placesSidebarShowOtherLocationsCallbackWrapper, - placesSidebarShowOtherLocationsClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio - -newtype PlacesSidebar = PlacesSidebar (ForeignPtr PlacesSidebar) -foreign import ccall "gtk_places_sidebar_get_type" - c_gtk_places_sidebar_get_type :: IO GType - -type instance ParentTypes PlacesSidebar = PlacesSidebarParentTypes -type PlacesSidebarParentTypes = '[ScrolledWindow, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject PlacesSidebar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_places_sidebar_get_type - - -class GObject o => PlacesSidebarK o -instance (GObject o, IsDescendantOf PlacesSidebar o) => PlacesSidebarK o - -toPlacesSidebar :: PlacesSidebarK o => o -> IO PlacesSidebar -toPlacesSidebar = unsafeCastTo PlacesSidebar - -noPlacesSidebar :: Maybe PlacesSidebar -noPlacesSidebar = Nothing - -type family ResolvePlacesSidebarMethod (t :: Symbol) (o :: *) :: * where - ResolvePlacesSidebarMethod "activate" o = WidgetActivateMethodInfo - ResolvePlacesSidebarMethod "add" o = ContainerAddMethodInfo - ResolvePlacesSidebarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolvePlacesSidebarMethod "addChild" o = BuildableAddChildMethodInfo - ResolvePlacesSidebarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolvePlacesSidebarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolvePlacesSidebarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolvePlacesSidebarMethod "addShortcut" o = PlacesSidebarAddShortcutMethodInfo - ResolvePlacesSidebarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolvePlacesSidebarMethod "addWithViewport" o = ScrolledWindowAddWithViewportMethodInfo - ResolvePlacesSidebarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePlacesSidebarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePlacesSidebarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolvePlacesSidebarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolvePlacesSidebarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolvePlacesSidebarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolvePlacesSidebarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolvePlacesSidebarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolvePlacesSidebarMethod "childType" o = ContainerChildTypeMethodInfo - ResolvePlacesSidebarMethod "classPath" o = WidgetClassPathMethodInfo - ResolvePlacesSidebarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolvePlacesSidebarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolvePlacesSidebarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolvePlacesSidebarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolvePlacesSidebarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolvePlacesSidebarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolvePlacesSidebarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolvePlacesSidebarMethod "destroy" o = WidgetDestroyMethodInfo - ResolvePlacesSidebarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolvePlacesSidebarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolvePlacesSidebarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolvePlacesSidebarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolvePlacesSidebarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolvePlacesSidebarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolvePlacesSidebarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolvePlacesSidebarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolvePlacesSidebarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolvePlacesSidebarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolvePlacesSidebarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolvePlacesSidebarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolvePlacesSidebarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolvePlacesSidebarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolvePlacesSidebarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolvePlacesSidebarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolvePlacesSidebarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolvePlacesSidebarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolvePlacesSidebarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolvePlacesSidebarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolvePlacesSidebarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolvePlacesSidebarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolvePlacesSidebarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolvePlacesSidebarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolvePlacesSidebarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolvePlacesSidebarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolvePlacesSidebarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolvePlacesSidebarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolvePlacesSidebarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolvePlacesSidebarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolvePlacesSidebarMethod "draw" o = WidgetDrawMethodInfo - ResolvePlacesSidebarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolvePlacesSidebarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolvePlacesSidebarMethod "event" o = WidgetEventMethodInfo - ResolvePlacesSidebarMethod "forall" o = ContainerForallMethodInfo - ResolvePlacesSidebarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePlacesSidebarMethod "foreach" o = ContainerForeachMethodInfo - ResolvePlacesSidebarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolvePlacesSidebarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePlacesSidebarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolvePlacesSidebarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolvePlacesSidebarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolvePlacesSidebarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolvePlacesSidebarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolvePlacesSidebarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolvePlacesSidebarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolvePlacesSidebarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolvePlacesSidebarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolvePlacesSidebarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolvePlacesSidebarMethod "hide" o = WidgetHideMethodInfo - ResolvePlacesSidebarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolvePlacesSidebarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolvePlacesSidebarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolvePlacesSidebarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolvePlacesSidebarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolvePlacesSidebarMethod "intersect" o = WidgetIntersectMethodInfo - ResolvePlacesSidebarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolvePlacesSidebarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolvePlacesSidebarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolvePlacesSidebarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePlacesSidebarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolvePlacesSidebarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolvePlacesSidebarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolvePlacesSidebarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolvePlacesSidebarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolvePlacesSidebarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolvePlacesSidebarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolvePlacesSidebarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolvePlacesSidebarMethod "listShortcuts" o = PlacesSidebarListShortcutsMethodInfo - ResolvePlacesSidebarMethod "map" o = WidgetMapMethodInfo - ResolvePlacesSidebarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolvePlacesSidebarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolvePlacesSidebarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolvePlacesSidebarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolvePlacesSidebarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolvePlacesSidebarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolvePlacesSidebarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolvePlacesSidebarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolvePlacesSidebarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePlacesSidebarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePlacesSidebarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolvePlacesSidebarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolvePlacesSidebarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolvePlacesSidebarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolvePlacesSidebarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolvePlacesSidebarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolvePlacesSidebarMethod "path" o = WidgetPathMethodInfo - ResolvePlacesSidebarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolvePlacesSidebarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolvePlacesSidebarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolvePlacesSidebarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolvePlacesSidebarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolvePlacesSidebarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolvePlacesSidebarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolvePlacesSidebarMethod "realize" o = WidgetRealizeMethodInfo - ResolvePlacesSidebarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePlacesSidebarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePlacesSidebarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolvePlacesSidebarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolvePlacesSidebarMethod "remove" o = ContainerRemoveMethodInfo - ResolvePlacesSidebarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolvePlacesSidebarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolvePlacesSidebarMethod "removeShortcut" o = PlacesSidebarRemoveShortcutMethodInfo - ResolvePlacesSidebarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolvePlacesSidebarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolvePlacesSidebarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolvePlacesSidebarMethod "reparent" o = WidgetReparentMethodInfo - ResolvePlacesSidebarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePlacesSidebarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePlacesSidebarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolvePlacesSidebarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolvePlacesSidebarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolvePlacesSidebarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePlacesSidebarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolvePlacesSidebarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolvePlacesSidebarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolvePlacesSidebarMethod "show" o = WidgetShowMethodInfo - ResolvePlacesSidebarMethod "showAll" o = WidgetShowAllMethodInfo - ResolvePlacesSidebarMethod "showNow" o = WidgetShowNowMethodInfo - ResolvePlacesSidebarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolvePlacesSidebarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolvePlacesSidebarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolvePlacesSidebarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePlacesSidebarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePlacesSidebarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolvePlacesSidebarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolvePlacesSidebarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolvePlacesSidebarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePlacesSidebarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolvePlacesSidebarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolvePlacesSidebarMethod "unmap" o = WidgetUnmapMethodInfo - ResolvePlacesSidebarMethod "unparent" o = WidgetUnparentMethodInfo - ResolvePlacesSidebarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolvePlacesSidebarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePlacesSidebarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolvePlacesSidebarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolvePlacesSidebarMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo - ResolvePlacesSidebarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolvePlacesSidebarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePlacesSidebarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolvePlacesSidebarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolvePlacesSidebarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolvePlacesSidebarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolvePlacesSidebarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolvePlacesSidebarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolvePlacesSidebarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolvePlacesSidebarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolvePlacesSidebarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolvePlacesSidebarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolvePlacesSidebarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolvePlacesSidebarMethod "getCaptureButtonPress" o = ScrolledWindowGetCaptureButtonPressMethodInfo - ResolvePlacesSidebarMethod "getChild" o = BinGetChildMethodInfo - ResolvePlacesSidebarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolvePlacesSidebarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolvePlacesSidebarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolvePlacesSidebarMethod "getClip" o = WidgetGetClipMethodInfo - ResolvePlacesSidebarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolvePlacesSidebarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolvePlacesSidebarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePlacesSidebarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolvePlacesSidebarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolvePlacesSidebarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolvePlacesSidebarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolvePlacesSidebarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolvePlacesSidebarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolvePlacesSidebarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolvePlacesSidebarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolvePlacesSidebarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolvePlacesSidebarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolvePlacesSidebarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolvePlacesSidebarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolvePlacesSidebarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolvePlacesSidebarMethod "getHadjustment" o = ScrolledWindowGetHadjustmentMethodInfo - ResolvePlacesSidebarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolvePlacesSidebarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolvePlacesSidebarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolvePlacesSidebarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolvePlacesSidebarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolvePlacesSidebarMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo - ResolvePlacesSidebarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolvePlacesSidebarMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo - ResolvePlacesSidebarMethod "getLocalOnly" o = PlacesSidebarGetLocalOnlyMethodInfo - ResolvePlacesSidebarMethod "getLocation" o = PlacesSidebarGetLocationMethodInfo - ResolvePlacesSidebarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolvePlacesSidebarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolvePlacesSidebarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolvePlacesSidebarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolvePlacesSidebarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolvePlacesSidebarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolvePlacesSidebarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolvePlacesSidebarMethod "getMinContentHeight" o = ScrolledWindowGetMinContentHeightMethodInfo - ResolvePlacesSidebarMethod "getMinContentWidth" o = ScrolledWindowGetMinContentWidthMethodInfo - ResolvePlacesSidebarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolvePlacesSidebarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolvePlacesSidebarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolvePlacesSidebarMethod "getNthBookmark" o = PlacesSidebarGetNthBookmarkMethodInfo - ResolvePlacesSidebarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolvePlacesSidebarMethod "getOpenFlags" o = PlacesSidebarGetOpenFlagsMethodInfo - ResolvePlacesSidebarMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo - ResolvePlacesSidebarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolvePlacesSidebarMethod "getParent" o = WidgetGetParentMethodInfo - ResolvePlacesSidebarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolvePlacesSidebarMethod "getPath" o = WidgetGetPathMethodInfo - ResolvePlacesSidebarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolvePlacesSidebarMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo - ResolvePlacesSidebarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolvePlacesSidebarMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo - ResolvePlacesSidebarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolvePlacesSidebarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolvePlacesSidebarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolvePlacesSidebarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolvePlacesSidebarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolvePlacesSidebarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolvePlacesSidebarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePlacesSidebarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePlacesSidebarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolvePlacesSidebarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolvePlacesSidebarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolvePlacesSidebarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolvePlacesSidebarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolvePlacesSidebarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolvePlacesSidebarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolvePlacesSidebarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolvePlacesSidebarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolvePlacesSidebarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolvePlacesSidebarMethod "getShadowType" o = ScrolledWindowGetShadowTypeMethodInfo - ResolvePlacesSidebarMethod "getShowConnectToServer" o = PlacesSidebarGetShowConnectToServerMethodInfo - ResolvePlacesSidebarMethod "getShowDesktop" o = PlacesSidebarGetShowDesktopMethodInfo - ResolvePlacesSidebarMethod "getShowEnterLocation" o = PlacesSidebarGetShowEnterLocationMethodInfo - ResolvePlacesSidebarMethod "getShowOtherLocations" o = PlacesSidebarGetShowOtherLocationsMethodInfo - ResolvePlacesSidebarMethod "getShowRecent" o = PlacesSidebarGetShowRecentMethodInfo - ResolvePlacesSidebarMethod "getShowTrash" o = PlacesSidebarGetShowTrashMethodInfo - ResolvePlacesSidebarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolvePlacesSidebarMethod "getState" o = WidgetGetStateMethodInfo - ResolvePlacesSidebarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolvePlacesSidebarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolvePlacesSidebarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolvePlacesSidebarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolvePlacesSidebarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolvePlacesSidebarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolvePlacesSidebarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolvePlacesSidebarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolvePlacesSidebarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolvePlacesSidebarMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo - ResolvePlacesSidebarMethod "getValign" o = WidgetGetValignMethodInfo - ResolvePlacesSidebarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolvePlacesSidebarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolvePlacesSidebarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolvePlacesSidebarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolvePlacesSidebarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolvePlacesSidebarMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo - ResolvePlacesSidebarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolvePlacesSidebarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolvePlacesSidebarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolvePlacesSidebarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolvePlacesSidebarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolvePlacesSidebarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolvePlacesSidebarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolvePlacesSidebarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolvePlacesSidebarMethod "setCaptureButtonPress" o = ScrolledWindowSetCaptureButtonPressMethodInfo - ResolvePlacesSidebarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolvePlacesSidebarMethod "setClip" o = WidgetSetClipMethodInfo - ResolvePlacesSidebarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolvePlacesSidebarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePlacesSidebarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolvePlacesSidebarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolvePlacesSidebarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolvePlacesSidebarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolvePlacesSidebarMethod "setDropTargetsVisible" o = PlacesSidebarSetDropTargetsVisibleMethodInfo - ResolvePlacesSidebarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolvePlacesSidebarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolvePlacesSidebarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolvePlacesSidebarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolvePlacesSidebarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolvePlacesSidebarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolvePlacesSidebarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolvePlacesSidebarMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo - ResolvePlacesSidebarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolvePlacesSidebarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolvePlacesSidebarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolvePlacesSidebarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolvePlacesSidebarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolvePlacesSidebarMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo - ResolvePlacesSidebarMethod "setLocalOnly" o = PlacesSidebarSetLocalOnlyMethodInfo - ResolvePlacesSidebarMethod "setLocation" o = PlacesSidebarSetLocationMethodInfo - ResolvePlacesSidebarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolvePlacesSidebarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolvePlacesSidebarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolvePlacesSidebarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolvePlacesSidebarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolvePlacesSidebarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolvePlacesSidebarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolvePlacesSidebarMethod "setMinContentHeight" o = ScrolledWindowSetMinContentHeightMethodInfo - ResolvePlacesSidebarMethod "setMinContentWidth" o = ScrolledWindowSetMinContentWidthMethodInfo - ResolvePlacesSidebarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolvePlacesSidebarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolvePlacesSidebarMethod "setOpenFlags" o = PlacesSidebarSetOpenFlagsMethodInfo - ResolvePlacesSidebarMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo - ResolvePlacesSidebarMethod "setParent" o = WidgetSetParentMethodInfo - ResolvePlacesSidebarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolvePlacesSidebarMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo - ResolvePlacesSidebarMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo - ResolvePlacesSidebarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePlacesSidebarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolvePlacesSidebarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolvePlacesSidebarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolvePlacesSidebarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolvePlacesSidebarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolvePlacesSidebarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolvePlacesSidebarMethod "setShadowType" o = ScrolledWindowSetShadowTypeMethodInfo - ResolvePlacesSidebarMethod "setShowConnectToServer" o = PlacesSidebarSetShowConnectToServerMethodInfo - ResolvePlacesSidebarMethod "setShowDesktop" o = PlacesSidebarSetShowDesktopMethodInfo - ResolvePlacesSidebarMethod "setShowEnterLocation" o = PlacesSidebarSetShowEnterLocationMethodInfo - ResolvePlacesSidebarMethod "setShowOtherLocations" o = PlacesSidebarSetShowOtherLocationsMethodInfo - ResolvePlacesSidebarMethod "setShowRecent" o = PlacesSidebarSetShowRecentMethodInfo - ResolvePlacesSidebarMethod "setShowTrash" o = PlacesSidebarSetShowTrashMethodInfo - ResolvePlacesSidebarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolvePlacesSidebarMethod "setState" o = WidgetSetStateMethodInfo - ResolvePlacesSidebarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolvePlacesSidebarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolvePlacesSidebarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolvePlacesSidebarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolvePlacesSidebarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolvePlacesSidebarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolvePlacesSidebarMethod "setVadjustment" o = ScrolledWindowSetVadjustmentMethodInfo - ResolvePlacesSidebarMethod "setValign" o = WidgetSetValignMethodInfo - ResolvePlacesSidebarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolvePlacesSidebarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolvePlacesSidebarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolvePlacesSidebarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolvePlacesSidebarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolvePlacesSidebarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, MethodInfo info PlacesSidebar p) => IsLabelProxy t (PlacesSidebar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, MethodInfo info PlacesSidebar p) => IsLabel t (PlacesSidebar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal PlacesSidebar::drag-action-ask -type PlacesSidebarDragActionAskCallback = - Int32 -> - IO Int32 - -noPlacesSidebarDragActionAskCallback :: Maybe PlacesSidebarDragActionAskCallback -noPlacesSidebarDragActionAskCallback = Nothing - -type PlacesSidebarDragActionAskCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO Int32 - -foreign import ccall "wrapper" - mkPlacesSidebarDragActionAskCallback :: PlacesSidebarDragActionAskCallbackC -> IO (FunPtr PlacesSidebarDragActionAskCallbackC) - -placesSidebarDragActionAskClosure :: PlacesSidebarDragActionAskCallback -> IO Closure -placesSidebarDragActionAskClosure cb = newCClosure =<< mkPlacesSidebarDragActionAskCallback wrapped - where wrapped = placesSidebarDragActionAskCallbackWrapper cb - -placesSidebarDragActionAskCallbackWrapper :: - PlacesSidebarDragActionAskCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO Int32 -placesSidebarDragActionAskCallbackWrapper _cb _ actions _ = do - result <- _cb actions - return result - -onPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId -onPlacesSidebarDragActionAsk obj cb = liftIO $ connectPlacesSidebarDragActionAsk obj cb SignalConnectBefore -afterPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionAskCallback -> m SignalHandlerId -afterPlacesSidebarDragActionAsk obj cb = connectPlacesSidebarDragActionAsk obj cb SignalConnectAfter - -connectPlacesSidebarDragActionAsk :: (GObject a, MonadIO m) => - a -> PlacesSidebarDragActionAskCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarDragActionAsk obj cb after = liftIO $ do - cb' <- mkPlacesSidebarDragActionAskCallback (placesSidebarDragActionAskCallbackWrapper cb) - connectSignalFunPtr obj "drag-action-ask" cb' after - --- signal PlacesSidebar::drag-action-requested -type PlacesSidebarDragActionRequestedCallback = - Gdk.DragContext -> - Gio.File -> - [Gio.File] -> - IO Int32 - -noPlacesSidebarDragActionRequestedCallback :: Maybe PlacesSidebarDragActionRequestedCallback -noPlacesSidebarDragActionRequestedCallback = Nothing - -type PlacesSidebarDragActionRequestedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr Gio.File -> - Ptr (GList (Ptr Gio.File)) -> - Ptr () -> -- user_data - IO Int32 - -foreign import ccall "wrapper" - mkPlacesSidebarDragActionRequestedCallback :: PlacesSidebarDragActionRequestedCallbackC -> IO (FunPtr PlacesSidebarDragActionRequestedCallbackC) - -placesSidebarDragActionRequestedClosure :: PlacesSidebarDragActionRequestedCallback -> IO Closure -placesSidebarDragActionRequestedClosure cb = newCClosure =<< mkPlacesSidebarDragActionRequestedCallback wrapped - where wrapped = placesSidebarDragActionRequestedCallbackWrapper cb - -placesSidebarDragActionRequestedCallbackWrapper :: - PlacesSidebarDragActionRequestedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr Gio.File -> - Ptr (GList (Ptr Gio.File)) -> - Ptr () -> - IO Int32 -placesSidebarDragActionRequestedCallbackWrapper _cb _ context destFile sourceFileList _ = do - context' <- (newObject Gdk.DragContext) context - destFile' <- (newObject Gio.File) destFile - sourceFileList' <- unpackGList sourceFileList - sourceFileList'' <- mapM (newObject Gio.File) sourceFileList' - result <- _cb context' destFile' sourceFileList'' - return result - -onPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId -onPlacesSidebarDragActionRequested obj cb = liftIO $ connectPlacesSidebarDragActionRequested obj cb SignalConnectBefore -afterPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId -afterPlacesSidebarDragActionRequested obj cb = connectPlacesSidebarDragActionRequested obj cb SignalConnectAfter - -connectPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => - a -> PlacesSidebarDragActionRequestedCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarDragActionRequested obj cb after = liftIO $ do - cb' <- mkPlacesSidebarDragActionRequestedCallback (placesSidebarDragActionRequestedCallbackWrapper cb) - connectSignalFunPtr obj "drag-action-requested" cb' after - --- signal PlacesSidebar::drag-perform-drop -type PlacesSidebarDragPerformDropCallback = - Gio.File -> - [Gio.File] -> - Int32 -> - IO () - -noPlacesSidebarDragPerformDropCallback :: Maybe PlacesSidebarDragPerformDropCallback -noPlacesSidebarDragPerformDropCallback = Nothing - -type PlacesSidebarDragPerformDropCallbackC = - Ptr () -> -- object - Ptr Gio.File -> - Ptr (GList (Ptr Gio.File)) -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarDragPerformDropCallback :: PlacesSidebarDragPerformDropCallbackC -> IO (FunPtr PlacesSidebarDragPerformDropCallbackC) - -placesSidebarDragPerformDropClosure :: PlacesSidebarDragPerformDropCallback -> IO Closure -placesSidebarDragPerformDropClosure cb = newCClosure =<< mkPlacesSidebarDragPerformDropCallback wrapped - where wrapped = placesSidebarDragPerformDropCallbackWrapper cb - -placesSidebarDragPerformDropCallbackWrapper :: - PlacesSidebarDragPerformDropCallback -> - Ptr () -> - Ptr Gio.File -> - Ptr (GList (Ptr Gio.File)) -> - Int32 -> - Ptr () -> - IO () -placesSidebarDragPerformDropCallbackWrapper _cb _ destFile sourceFileList action _ = do - destFile' <- (newObject Gio.File) destFile - sourceFileList' <- unpackGList sourceFileList - sourceFileList'' <- mapM (newObject Gio.File) sourceFileList' - _cb destFile' sourceFileList'' action - -onPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId -onPlacesSidebarDragPerformDrop obj cb = liftIO $ connectPlacesSidebarDragPerformDrop obj cb SignalConnectBefore -afterPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId -afterPlacesSidebarDragPerformDrop obj cb = connectPlacesSidebarDragPerformDrop obj cb SignalConnectAfter - -connectPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => - a -> PlacesSidebarDragPerformDropCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarDragPerformDrop obj cb after = liftIO $ do - cb' <- mkPlacesSidebarDragPerformDropCallback (placesSidebarDragPerformDropCallbackWrapper cb) - connectSignalFunPtr obj "drag-perform-drop" cb' after - --- signal PlacesSidebar::open-location -type PlacesSidebarOpenLocationCallback = - Gio.File -> - [PlacesOpenFlags] -> - IO () - -noPlacesSidebarOpenLocationCallback :: Maybe PlacesSidebarOpenLocationCallback -noPlacesSidebarOpenLocationCallback = Nothing - -type PlacesSidebarOpenLocationCallbackC = - Ptr () -> -- object - Ptr Gio.File -> - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarOpenLocationCallback :: PlacesSidebarOpenLocationCallbackC -> IO (FunPtr PlacesSidebarOpenLocationCallbackC) - -placesSidebarOpenLocationClosure :: PlacesSidebarOpenLocationCallback -> IO Closure -placesSidebarOpenLocationClosure cb = newCClosure =<< mkPlacesSidebarOpenLocationCallback wrapped - where wrapped = placesSidebarOpenLocationCallbackWrapper cb - -placesSidebarOpenLocationCallbackWrapper :: - PlacesSidebarOpenLocationCallback -> - Ptr () -> - Ptr Gio.File -> - CUInt -> - Ptr () -> - IO () -placesSidebarOpenLocationCallbackWrapper _cb _ location openFlags _ = do - location' <- (newObject Gio.File) location - let openFlags' = wordToGFlags openFlags - _cb location' openFlags' - -onPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId -onPlacesSidebarOpenLocation obj cb = liftIO $ connectPlacesSidebarOpenLocation obj cb SignalConnectBefore -afterPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId -afterPlacesSidebarOpenLocation obj cb = connectPlacesSidebarOpenLocation obj cb SignalConnectAfter - -connectPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => - a -> PlacesSidebarOpenLocationCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarOpenLocation obj cb after = liftIO $ do - cb' <- mkPlacesSidebarOpenLocationCallback (placesSidebarOpenLocationCallbackWrapper cb) - connectSignalFunPtr obj "open-location" cb' after - --- signal PlacesSidebar::populate-popup -type PlacesSidebarPopulatePopupCallback = - Widget -> - Maybe Gio.File -> - Maybe Gio.Volume -> - IO () - -noPlacesSidebarPopulatePopupCallback :: Maybe PlacesSidebarPopulatePopupCallback -noPlacesSidebarPopulatePopupCallback = Nothing - -type PlacesSidebarPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr Gio.File -> - Ptr Gio.Volume -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarPopulatePopupCallback :: PlacesSidebarPopulatePopupCallbackC -> IO (FunPtr PlacesSidebarPopulatePopupCallbackC) - -placesSidebarPopulatePopupClosure :: PlacesSidebarPopulatePopupCallback -> IO Closure -placesSidebarPopulatePopupClosure cb = newCClosure =<< mkPlacesSidebarPopulatePopupCallback wrapped - where wrapped = placesSidebarPopulatePopupCallbackWrapper cb - -placesSidebarPopulatePopupCallbackWrapper :: - PlacesSidebarPopulatePopupCallback -> - Ptr () -> - Ptr Widget -> - Ptr Gio.File -> - Ptr Gio.Volume -> - Ptr () -> - IO () -placesSidebarPopulatePopupCallbackWrapper _cb _ container selectedItem selectedVolume _ = do - container' <- (newObject Widget) container - maybeSelectedItem <- - if selectedItem == nullPtr - then return Nothing - else do - selectedItem' <- (newObject Gio.File) selectedItem - return $ Just selectedItem' - maybeSelectedVolume <- - if selectedVolume == nullPtr - then return Nothing - else do - selectedVolume' <- (newObject Gio.Volume) selectedVolume - return $ Just selectedVolume' - _cb container' maybeSelectedItem maybeSelectedVolume - -onPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId -onPlacesSidebarPopulatePopup obj cb = liftIO $ connectPlacesSidebarPopulatePopup obj cb SignalConnectBefore -afterPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId -afterPlacesSidebarPopulatePopup obj cb = connectPlacesSidebarPopulatePopup obj cb SignalConnectAfter - -connectPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => - a -> PlacesSidebarPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarPopulatePopup obj cb after = liftIO $ do - cb' <- mkPlacesSidebarPopulatePopupCallback (placesSidebarPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- signal PlacesSidebar::show-connect-to-server -type PlacesSidebarShowConnectToServerCallback = - IO () - -noPlacesSidebarShowConnectToServerCallback :: Maybe PlacesSidebarShowConnectToServerCallback -noPlacesSidebarShowConnectToServerCallback = Nothing - -type PlacesSidebarShowConnectToServerCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarShowConnectToServerCallback :: PlacesSidebarShowConnectToServerCallbackC -> IO (FunPtr PlacesSidebarShowConnectToServerCallbackC) - -placesSidebarShowConnectToServerClosure :: PlacesSidebarShowConnectToServerCallback -> IO Closure -placesSidebarShowConnectToServerClosure cb = newCClosure =<< mkPlacesSidebarShowConnectToServerCallback wrapped - where wrapped = placesSidebarShowConnectToServerCallbackWrapper cb - -placesSidebarShowConnectToServerCallbackWrapper :: - PlacesSidebarShowConnectToServerCallback -> - Ptr () -> - Ptr () -> - IO () -placesSidebarShowConnectToServerCallbackWrapper _cb _ _ = do - _cb - -onPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId -onPlacesSidebarShowConnectToServer obj cb = liftIO $ connectPlacesSidebarShowConnectToServer obj cb SignalConnectBefore -afterPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) => a -> PlacesSidebarShowConnectToServerCallback -> m SignalHandlerId -afterPlacesSidebarShowConnectToServer obj cb = connectPlacesSidebarShowConnectToServer obj cb SignalConnectAfter - -connectPlacesSidebarShowConnectToServer :: (GObject a, MonadIO m) => - a -> PlacesSidebarShowConnectToServerCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarShowConnectToServer obj cb after = liftIO $ do - cb' <- mkPlacesSidebarShowConnectToServerCallback (placesSidebarShowConnectToServerCallbackWrapper cb) - connectSignalFunPtr obj "show-connect-to-server" cb' after - --- signal PlacesSidebar::show-enter-location -type PlacesSidebarShowEnterLocationCallback = - IO () - -noPlacesSidebarShowEnterLocationCallback :: Maybe PlacesSidebarShowEnterLocationCallback -noPlacesSidebarShowEnterLocationCallback = Nothing - -type PlacesSidebarShowEnterLocationCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarShowEnterLocationCallback :: PlacesSidebarShowEnterLocationCallbackC -> IO (FunPtr PlacesSidebarShowEnterLocationCallbackC) - -placesSidebarShowEnterLocationClosure :: PlacesSidebarShowEnterLocationCallback -> IO Closure -placesSidebarShowEnterLocationClosure cb = newCClosure =<< mkPlacesSidebarShowEnterLocationCallback wrapped - where wrapped = placesSidebarShowEnterLocationCallbackWrapper cb - -placesSidebarShowEnterLocationCallbackWrapper :: - PlacesSidebarShowEnterLocationCallback -> - Ptr () -> - Ptr () -> - IO () -placesSidebarShowEnterLocationCallbackWrapper _cb _ _ = do - _cb - -onPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId -onPlacesSidebarShowEnterLocation obj cb = liftIO $ connectPlacesSidebarShowEnterLocation obj cb SignalConnectBefore -afterPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarShowEnterLocationCallback -> m SignalHandlerId -afterPlacesSidebarShowEnterLocation obj cb = connectPlacesSidebarShowEnterLocation obj cb SignalConnectAfter - -connectPlacesSidebarShowEnterLocation :: (GObject a, MonadIO m) => - a -> PlacesSidebarShowEnterLocationCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarShowEnterLocation obj cb after = liftIO $ do - cb' <- mkPlacesSidebarShowEnterLocationCallback (placesSidebarShowEnterLocationCallbackWrapper cb) - connectSignalFunPtr obj "show-enter-location" cb' after - --- signal PlacesSidebar::show-error-message -type PlacesSidebarShowErrorMessageCallback = - T.Text -> - T.Text -> - IO () - -noPlacesSidebarShowErrorMessageCallback :: Maybe PlacesSidebarShowErrorMessageCallback -noPlacesSidebarShowErrorMessageCallback = Nothing - -type PlacesSidebarShowErrorMessageCallbackC = - Ptr () -> -- object - CString -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarShowErrorMessageCallback :: PlacesSidebarShowErrorMessageCallbackC -> IO (FunPtr PlacesSidebarShowErrorMessageCallbackC) - -placesSidebarShowErrorMessageClosure :: PlacesSidebarShowErrorMessageCallback -> IO Closure -placesSidebarShowErrorMessageClosure cb = newCClosure =<< mkPlacesSidebarShowErrorMessageCallback wrapped - where wrapped = placesSidebarShowErrorMessageCallbackWrapper cb - -placesSidebarShowErrorMessageCallbackWrapper :: - PlacesSidebarShowErrorMessageCallback -> - Ptr () -> - CString -> - CString -> - Ptr () -> - IO () -placesSidebarShowErrorMessageCallbackWrapper _cb _ primary secondary _ = do - primary' <- cstringToText primary - secondary' <- cstringToText secondary - _cb primary' secondary' - -onPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId -onPlacesSidebarShowErrorMessage obj cb = liftIO $ connectPlacesSidebarShowErrorMessage obj cb SignalConnectBefore -afterPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) => a -> PlacesSidebarShowErrorMessageCallback -> m SignalHandlerId -afterPlacesSidebarShowErrorMessage obj cb = connectPlacesSidebarShowErrorMessage obj cb SignalConnectAfter - -connectPlacesSidebarShowErrorMessage :: (GObject a, MonadIO m) => - a -> PlacesSidebarShowErrorMessageCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarShowErrorMessage obj cb after = liftIO $ do - cb' <- mkPlacesSidebarShowErrorMessageCallback (placesSidebarShowErrorMessageCallbackWrapper cb) - connectSignalFunPtr obj "show-error-message" cb' after - --- signal PlacesSidebar::show-other-locations -type PlacesSidebarShowOtherLocationsCallback = - IO () - -noPlacesSidebarShowOtherLocationsCallback :: Maybe PlacesSidebarShowOtherLocationsCallback -noPlacesSidebarShowOtherLocationsCallback = Nothing - -type PlacesSidebarShowOtherLocationsCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlacesSidebarShowOtherLocationsCallback :: PlacesSidebarShowOtherLocationsCallbackC -> IO (FunPtr PlacesSidebarShowOtherLocationsCallbackC) - -placesSidebarShowOtherLocationsClosure :: PlacesSidebarShowOtherLocationsCallback -> IO Closure -placesSidebarShowOtherLocationsClosure cb = newCClosure =<< mkPlacesSidebarShowOtherLocationsCallback wrapped - where wrapped = placesSidebarShowOtherLocationsCallbackWrapper cb - -placesSidebarShowOtherLocationsCallbackWrapper :: - PlacesSidebarShowOtherLocationsCallback -> - Ptr () -> - Ptr () -> - IO () -placesSidebarShowOtherLocationsCallbackWrapper _cb _ _ = do - _cb - -onPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId -onPlacesSidebarShowOtherLocations obj cb = liftIO $ connectPlacesSidebarShowOtherLocations obj cb SignalConnectBefore -afterPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) => a -> PlacesSidebarShowOtherLocationsCallback -> m SignalHandlerId -afterPlacesSidebarShowOtherLocations obj cb = connectPlacesSidebarShowOtherLocations obj cb SignalConnectAfter - -connectPlacesSidebarShowOtherLocations :: (GObject a, MonadIO m) => - a -> PlacesSidebarShowOtherLocationsCallback -> SignalConnectMode -> m SignalHandlerId -connectPlacesSidebarShowOtherLocations obj cb after = liftIO $ do - cb' <- mkPlacesSidebarShowOtherLocationsCallback (placesSidebarShowOtherLocationsCallbackWrapper cb) - connectSignalFunPtr obj "show-other-locations" cb' after - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarLocalOnly :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" - -setPlacesSidebarLocalOnly :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val - -constructPlacesSidebarLocalOnly :: Bool -> IO ([Char], GValue) -constructPlacesSidebarLocalOnly val = constructObjectPropertyBool "local-only" val - -data PlacesSidebarLocalOnlyPropertyInfo -instance AttrInfo PlacesSidebarLocalOnlyPropertyInfo where - type AttrAllowedOps PlacesSidebarLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarLocalOnlyPropertyInfo = Bool - type AttrLabel PlacesSidebarLocalOnlyPropertyInfo = "local-only" - attrGet _ = getPlacesSidebarLocalOnly - attrSet _ = setPlacesSidebarLocalOnly - attrConstruct _ = constructPlacesSidebarLocalOnly - attrClear _ = undefined - --- VVV Prop "location" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m (Maybe Gio.File) -getPlacesSidebarLocation obj = liftIO $ getObjectPropertyObject obj "location" Gio.File - -setPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o, Gio.FileK a) => o -> a -> m () -setPlacesSidebarLocation obj val = liftIO $ setObjectPropertyObject obj "location" (Just val) - -constructPlacesSidebarLocation :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructPlacesSidebarLocation val = constructObjectPropertyObject "location" (Just val) - -clearPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m () -clearPlacesSidebarLocation obj = liftIO $ setObjectPropertyObject obj "location" (Nothing :: Maybe Gio.File) - -data PlacesSidebarLocationPropertyInfo -instance AttrInfo PlacesSidebarLocationPropertyInfo where - type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK - type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarLocationPropertyInfo = (Maybe Gio.File) - type AttrLabel PlacesSidebarLocationPropertyInfo = "location" - attrGet _ = getPlacesSidebarLocation - attrSet _ = setPlacesSidebarLocation - attrConstruct _ = constructPlacesSidebarLocation - attrClear _ = clearPlacesSidebarLocation - --- VVV Prop "open-flags" - -- Type: TInterface "Gtk" "PlacesOpenFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarOpenFlags :: (MonadIO m, PlacesSidebarK o) => o -> m [PlacesOpenFlags] -getPlacesSidebarOpenFlags obj = liftIO $ getObjectPropertyFlags obj "open-flags" - -setPlacesSidebarOpenFlags :: (MonadIO m, PlacesSidebarK o) => o -> [PlacesOpenFlags] -> m () -setPlacesSidebarOpenFlags obj val = liftIO $ setObjectPropertyFlags obj "open-flags" val - -constructPlacesSidebarOpenFlags :: [PlacesOpenFlags] -> IO ([Char], GValue) -constructPlacesSidebarOpenFlags val = constructObjectPropertyFlags "open-flags" val - -data PlacesSidebarOpenFlagsPropertyInfo -instance AttrInfo PlacesSidebarOpenFlagsPropertyInfo where - type AttrAllowedOps PlacesSidebarOpenFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = (~) [PlacesOpenFlags] - type AttrBaseTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarOpenFlagsPropertyInfo = [PlacesOpenFlags] - type AttrLabel PlacesSidebarOpenFlagsPropertyInfo = "open-flags" - attrGet _ = getPlacesSidebarOpenFlags - attrSet _ = setPlacesSidebarOpenFlags - attrConstruct _ = constructPlacesSidebarOpenFlags - attrClear _ = undefined - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getPlacesSidebarPopulateAll :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" - -setPlacesSidebarPopulateAll :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val - -constructPlacesSidebarPopulateAll :: Bool -> IO ([Char], GValue) -constructPlacesSidebarPopulateAll val = constructObjectPropertyBool "populate-all" val - -data PlacesSidebarPopulateAllPropertyInfo -instance AttrInfo PlacesSidebarPopulateAllPropertyInfo where - type AttrAllowedOps PlacesSidebarPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarPopulateAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarPopulateAllPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarPopulateAllPropertyInfo = Bool - type AttrLabel PlacesSidebarPopulateAllPropertyInfo = "populate-all" - attrGet _ = getPlacesSidebarPopulateAll - attrSet _ = setPlacesSidebarPopulateAll - attrConstruct _ = constructPlacesSidebarPopulateAll - attrClear _ = undefined - --- VVV Prop "show-connect-to-server" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowConnectToServer :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowConnectToServer obj = liftIO $ getObjectPropertyBool obj "show-connect-to-server" - -setPlacesSidebarShowConnectToServer :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowConnectToServer obj val = liftIO $ setObjectPropertyBool obj "show-connect-to-server" val - -constructPlacesSidebarShowConnectToServer :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowConnectToServer val = constructObjectPropertyBool "show-connect-to-server" val - -data PlacesSidebarShowConnectToServerPropertyInfo -instance AttrInfo PlacesSidebarShowConnectToServerPropertyInfo where - type AttrAllowedOps PlacesSidebarShowConnectToServerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowConnectToServerPropertyInfo = Bool - type AttrLabel PlacesSidebarShowConnectToServerPropertyInfo = "show-connect-to-server" - attrGet _ = getPlacesSidebarShowConnectToServer - attrSet _ = setPlacesSidebarShowConnectToServer - attrConstruct _ = constructPlacesSidebarShowConnectToServer - attrClear _ = undefined - --- VVV Prop "show-desktop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowDesktop :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowDesktop obj = liftIO $ getObjectPropertyBool obj "show-desktop" - -setPlacesSidebarShowDesktop :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowDesktop obj val = liftIO $ setObjectPropertyBool obj "show-desktop" val - -constructPlacesSidebarShowDesktop :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowDesktop val = constructObjectPropertyBool "show-desktop" val - -data PlacesSidebarShowDesktopPropertyInfo -instance AttrInfo PlacesSidebarShowDesktopPropertyInfo where - type AttrAllowedOps PlacesSidebarShowDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowDesktopPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowDesktopPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowDesktopPropertyInfo = Bool - type AttrLabel PlacesSidebarShowDesktopPropertyInfo = "show-desktop" - attrGet _ = getPlacesSidebarShowDesktop - attrSet _ = setPlacesSidebarShowDesktop - attrConstruct _ = constructPlacesSidebarShowDesktop - attrClear _ = undefined - --- VVV Prop "show-enter-location" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowEnterLocation :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowEnterLocation obj = liftIO $ getObjectPropertyBool obj "show-enter-location" - -setPlacesSidebarShowEnterLocation :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowEnterLocation obj val = liftIO $ setObjectPropertyBool obj "show-enter-location" val - -constructPlacesSidebarShowEnterLocation :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowEnterLocation val = constructObjectPropertyBool "show-enter-location" val - -data PlacesSidebarShowEnterLocationPropertyInfo -instance AttrInfo PlacesSidebarShowEnterLocationPropertyInfo where - type AttrAllowedOps PlacesSidebarShowEnterLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowEnterLocationPropertyInfo = Bool - type AttrLabel PlacesSidebarShowEnterLocationPropertyInfo = "show-enter-location" - attrGet _ = getPlacesSidebarShowEnterLocation - attrSet _ = setPlacesSidebarShowEnterLocation - attrConstruct _ = constructPlacesSidebarShowEnterLocation - attrClear _ = undefined - --- VVV Prop "show-other-locations" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowOtherLocations :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowOtherLocations obj = liftIO $ getObjectPropertyBool obj "show-other-locations" - -setPlacesSidebarShowOtherLocations :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowOtherLocations obj val = liftIO $ setObjectPropertyBool obj "show-other-locations" val - -constructPlacesSidebarShowOtherLocations :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowOtherLocations val = constructObjectPropertyBool "show-other-locations" val - -data PlacesSidebarShowOtherLocationsPropertyInfo -instance AttrInfo PlacesSidebarShowOtherLocationsPropertyInfo where - type AttrAllowedOps PlacesSidebarShowOtherLocationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowOtherLocationsPropertyInfo = Bool - type AttrLabel PlacesSidebarShowOtherLocationsPropertyInfo = "show-other-locations" - attrGet _ = getPlacesSidebarShowOtherLocations - attrSet _ = setPlacesSidebarShowOtherLocations - attrConstruct _ = constructPlacesSidebarShowOtherLocations - attrClear _ = undefined - --- VVV Prop "show-recent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowRecent :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowRecent obj = liftIO $ getObjectPropertyBool obj "show-recent" - -setPlacesSidebarShowRecent :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowRecent obj val = liftIO $ setObjectPropertyBool obj "show-recent" val - -constructPlacesSidebarShowRecent :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowRecent val = constructObjectPropertyBool "show-recent" val - -data PlacesSidebarShowRecentPropertyInfo -instance AttrInfo PlacesSidebarShowRecentPropertyInfo where - type AttrAllowedOps PlacesSidebarShowRecentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowRecentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowRecentPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowRecentPropertyInfo = Bool - type AttrLabel PlacesSidebarShowRecentPropertyInfo = "show-recent" - attrGet _ = getPlacesSidebarShowRecent - attrSet _ = setPlacesSidebarShowRecent - attrConstruct _ = constructPlacesSidebarShowRecent - attrClear _ = undefined - --- VVV Prop "show-trash" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPlacesSidebarShowTrash :: (MonadIO m, PlacesSidebarK o) => o -> m Bool -getPlacesSidebarShowTrash obj = liftIO $ getObjectPropertyBool obj "show-trash" - -setPlacesSidebarShowTrash :: (MonadIO m, PlacesSidebarK o) => o -> Bool -> m () -setPlacesSidebarShowTrash obj val = liftIO $ setObjectPropertyBool obj "show-trash" val - -constructPlacesSidebarShowTrash :: Bool -> IO ([Char], GValue) -constructPlacesSidebarShowTrash val = constructObjectPropertyBool "show-trash" val - -data PlacesSidebarShowTrashPropertyInfo -instance AttrInfo PlacesSidebarShowTrashPropertyInfo where - type AttrAllowedOps PlacesSidebarShowTrashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarShowTrashPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PlacesSidebarShowTrashPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarShowTrashPropertyInfo = Bool - type AttrLabel PlacesSidebarShowTrashPropertyInfo = "show-trash" - attrGet _ = getPlacesSidebarShowTrash - attrSet _ = setPlacesSidebarShowTrash - attrConstruct _ = constructPlacesSidebarShowTrash - attrClear _ = undefined - -type instance AttributeList PlacesSidebar = PlacesSidebarAttributeList -type PlacesSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("localOnly", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("openFlags", PlacesSidebarOpenFlagsPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populateAll", PlacesSidebarPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerPropertyInfo), '("showDesktop", PlacesSidebarShowDesktopPropertyInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationPropertyInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsPropertyInfo), '("showRecent", PlacesSidebarShowRecentPropertyInfo), '("showTrash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) - -placesSidebarLocalOnly :: AttrLabelProxy "localOnly" -placesSidebarLocalOnly = AttrLabelProxy - -placesSidebarLocation :: AttrLabelProxy "location" -placesSidebarLocation = AttrLabelProxy - -placesSidebarOpenFlags :: AttrLabelProxy "openFlags" -placesSidebarOpenFlags = AttrLabelProxy - -placesSidebarPopulateAll :: AttrLabelProxy "populateAll" -placesSidebarPopulateAll = AttrLabelProxy - -placesSidebarShowConnectToServer :: AttrLabelProxy "showConnectToServer" -placesSidebarShowConnectToServer = AttrLabelProxy - -placesSidebarShowDesktop :: AttrLabelProxy "showDesktop" -placesSidebarShowDesktop = AttrLabelProxy - -placesSidebarShowEnterLocation :: AttrLabelProxy "showEnterLocation" -placesSidebarShowEnterLocation = AttrLabelProxy - -placesSidebarShowOtherLocations :: AttrLabelProxy "showOtherLocations" -placesSidebarShowOtherLocations = AttrLabelProxy - -placesSidebarShowRecent :: AttrLabelProxy "showRecent" -placesSidebarShowRecent = AttrLabelProxy - -placesSidebarShowTrash :: AttrLabelProxy "showTrash" -placesSidebarShowTrash = AttrLabelProxy - -data PlacesSidebarDragActionAskSignalInfo -instance SignalInfo PlacesSidebarDragActionAskSignalInfo where - type HaskellCallbackType PlacesSidebarDragActionAskSignalInfo = PlacesSidebarDragActionAskCallback - connectSignal _ = connectPlacesSidebarDragActionAsk - -data PlacesSidebarDragActionRequestedSignalInfo -instance SignalInfo PlacesSidebarDragActionRequestedSignalInfo where - type HaskellCallbackType PlacesSidebarDragActionRequestedSignalInfo = PlacesSidebarDragActionRequestedCallback - connectSignal _ = connectPlacesSidebarDragActionRequested - -data PlacesSidebarDragPerformDropSignalInfo -instance SignalInfo PlacesSidebarDragPerformDropSignalInfo where - type HaskellCallbackType PlacesSidebarDragPerformDropSignalInfo = PlacesSidebarDragPerformDropCallback - connectSignal _ = connectPlacesSidebarDragPerformDrop - -data PlacesSidebarOpenLocationSignalInfo -instance SignalInfo PlacesSidebarOpenLocationSignalInfo where - type HaskellCallbackType PlacesSidebarOpenLocationSignalInfo = PlacesSidebarOpenLocationCallback - connectSignal _ = connectPlacesSidebarOpenLocation - -data PlacesSidebarPopulatePopupSignalInfo -instance SignalInfo PlacesSidebarPopulatePopupSignalInfo where - type HaskellCallbackType PlacesSidebarPopulatePopupSignalInfo = PlacesSidebarPopulatePopupCallback - connectSignal _ = connectPlacesSidebarPopulatePopup - -data PlacesSidebarShowConnectToServerSignalInfo -instance SignalInfo PlacesSidebarShowConnectToServerSignalInfo where - type HaskellCallbackType PlacesSidebarShowConnectToServerSignalInfo = PlacesSidebarShowConnectToServerCallback - connectSignal _ = connectPlacesSidebarShowConnectToServer - -data PlacesSidebarShowEnterLocationSignalInfo -instance SignalInfo PlacesSidebarShowEnterLocationSignalInfo where - type HaskellCallbackType PlacesSidebarShowEnterLocationSignalInfo = PlacesSidebarShowEnterLocationCallback - connectSignal _ = connectPlacesSidebarShowEnterLocation - -data PlacesSidebarShowErrorMessageSignalInfo -instance SignalInfo PlacesSidebarShowErrorMessageSignalInfo where - type HaskellCallbackType PlacesSidebarShowErrorMessageSignalInfo = PlacesSidebarShowErrorMessageCallback - connectSignal _ = connectPlacesSidebarShowErrorMessage - -data PlacesSidebarShowOtherLocationsSignalInfo -instance SignalInfo PlacesSidebarShowOtherLocationsSignalInfo where - type HaskellCallbackType PlacesSidebarShowOtherLocationsSignalInfo = PlacesSidebarShowOtherLocationsCallback - connectSignal _ = connectPlacesSidebarShowOtherLocations - -type instance SignalList PlacesSidebar = PlacesSidebarSignalList -type PlacesSidebarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragActionAsk", PlacesSidebarDragActionAskSignalInfo), '("dragActionRequested", PlacesSidebarDragActionRequestedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("dragPerformDrop", PlacesSidebarDragPerformDropSignalInfo), '("draw", WidgetDrawSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("openLocation", PlacesSidebarOpenLocationSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", PlacesSidebarPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerSignalInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationSignalInfo), '("showErrorMessage", PlacesSidebarShowErrorMessageSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method PlacesSidebar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PlacesSidebar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_new" gtk_places_sidebar_new :: - IO (Ptr PlacesSidebar) - - -placesSidebarNew :: - (MonadIO m) => - m PlacesSidebar -- result -placesSidebarNew = liftIO $ do - result <- gtk_places_sidebar_new - checkUnexpectedReturnNULL "gtk_places_sidebar_new" result - result' <- (newObject PlacesSidebar) result - return result' - --- method PlacesSidebar::add_shortcut --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", 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 "gtk_places_sidebar_add_shortcut" gtk_places_sidebar_add_shortcut :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - Ptr Gio.File -> -- location : TInterface "Gio" "File" - IO () - - -placesSidebarAddShortcut :: - (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -- _obj - -> b -- location - -> m () -- result -placesSidebarAddShortcut _obj location = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let location' = unsafeManagedPtrCastPtr location - gtk_places_sidebar_add_shortcut _obj' location' - touchManagedPtr _obj - touchManagedPtr location - return () - -data PlacesSidebarAddShortcutMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarAddShortcutMethodInfo a signature where - overloadedMethod _ = placesSidebarAddShortcut - --- method PlacesSidebar::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_local_only" gtk_places_sidebar_get_local_only :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetLocalOnly :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetLocalOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetLocalOnlyMethodInfo a signature where - overloadedMethod _ = placesSidebarGetLocalOnly - --- method PlacesSidebar::get_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_get_location" gtk_places_sidebar_get_location :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO (Ptr Gio.File) - - -placesSidebarGetLocation :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Gio.File -- result -placesSidebarGetLocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_location _obj' - checkUnexpectedReturnNULL "gtk_places_sidebar_get_location" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetLocationMethodInfo -instance (signature ~ (m Gio.File), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetLocationMethodInfo a signature where - overloadedMethod _ = placesSidebarGetLocation - --- method PlacesSidebar::get_nth_bookmark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_get_nth_bookmark" gtk_places_sidebar_get_nth_bookmark :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - Int32 -> -- n : TBasicType TInt - IO (Ptr Gio.File) - - -placesSidebarGetNthBookmark :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Int32 -- n - -> m Gio.File -- result -placesSidebarGetNthBookmark _obj n = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_nth_bookmark _obj' n - checkUnexpectedReturnNULL "gtk_places_sidebar_get_nth_bookmark" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetNthBookmarkMethodInfo -instance (signature ~ (Int32 -> m Gio.File), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetNthBookmarkMethodInfo a signature where - overloadedMethod _ = placesSidebarGetNthBookmark - --- method PlacesSidebar::get_open_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PlacesOpenFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_get_open_flags" gtk_places_sidebar_get_open_flags :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CUInt - - -placesSidebarGetOpenFlags :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m [PlacesOpenFlags] -- result -placesSidebarGetOpenFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_open_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetOpenFlagsMethodInfo -instance (signature ~ (m [PlacesOpenFlags]), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetOpenFlagsMethodInfo a signature where - overloadedMethod _ = placesSidebarGetOpenFlags - --- method PlacesSidebar::get_show_connect_to_server --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_connect_to_server" gtk_places_sidebar_get_show_connect_to_server :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - -{-# DEPRECATED placesSidebarGetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-} -placesSidebarGetShowConnectToServer :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowConnectToServer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_connect_to_server _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowConnectToServerMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowConnectToServerMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowConnectToServer - --- method PlacesSidebar::get_show_desktop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_desktop" gtk_places_sidebar_get_show_desktop :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetShowDesktop :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowDesktop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_desktop _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowDesktopMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowDesktopMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowDesktop - --- method PlacesSidebar::get_show_enter_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_enter_location" gtk_places_sidebar_get_show_enter_location :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetShowEnterLocation :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowEnterLocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_enter_location _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowEnterLocationMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowEnterLocationMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowEnterLocation - --- method PlacesSidebar::get_show_other_locations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_other_locations" gtk_places_sidebar_get_show_other_locations :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetShowOtherLocations :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowOtherLocations _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_other_locations _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowOtherLocationsMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowOtherLocationsMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowOtherLocations - --- method PlacesSidebar::get_show_recent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_recent" gtk_places_sidebar_get_show_recent :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetShowRecent :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowRecent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_recent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowRecentMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowRecentMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowRecent - --- method PlacesSidebar::get_show_trash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", 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 "gtk_places_sidebar_get_show_trash" gtk_places_sidebar_get_show_trash :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO CInt - - -placesSidebarGetShowTrash :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m Bool -- result -placesSidebarGetShowTrash _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_trash _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlacesSidebarGetShowTrashMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowTrashMethodInfo a signature where - overloadedMethod _ = placesSidebarGetShowTrash - --- method PlacesSidebar::list_shortcuts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gio" "File")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_list_shortcuts" gtk_places_sidebar_list_shortcuts :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - IO (Ptr (GSList (Ptr Gio.File))) - - -placesSidebarListShortcuts :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> m [Gio.File] -- result -placesSidebarListShortcuts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_list_shortcuts _obj' - result' <- unpackGSList result - result'' <- mapM (wrapObject Gio.File) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data PlacesSidebarListShortcutsMethodInfo -instance (signature ~ (m [Gio.File]), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarListShortcutsMethodInfo a signature where - overloadedMethod _ = placesSidebarListShortcuts - --- method PlacesSidebar::remove_shortcut --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", 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 "gtk_places_sidebar_remove_shortcut" gtk_places_sidebar_remove_shortcut :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - Ptr Gio.File -> -- location : TInterface "Gio" "File" - IO () - - -placesSidebarRemoveShortcut :: - (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -- _obj - -> b -- location - -> m () -- result -placesSidebarRemoveShortcut _obj location = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let location' = unsafeManagedPtrCastPtr location - gtk_places_sidebar_remove_shortcut _obj' location' - touchManagedPtr _obj - touchManagedPtr location - return () - -data PlacesSidebarRemoveShortcutMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarRemoveShortcutMethodInfo a signature where - overloadedMethod _ = placesSidebarRemoveShortcut - --- method PlacesSidebar::set_drop_targets_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 "gtk_places_sidebar_set_drop_targets_visible" gtk_places_sidebar_set_drop_targets_visible :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- visible : TBasicType TBoolean - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - IO () - - -placesSidebarSetDropTargetsVisible :: - (MonadIO m, PlacesSidebarK a, Gdk.DragContextK b) => - a -- _obj - -> Bool -- visible - -> b -- context - -> m () -- result -placesSidebarSetDropTargetsVisible _obj visible context = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - let context' = unsafeManagedPtrCastPtr context - gtk_places_sidebar_set_drop_targets_visible _obj' visible' context' - touchManagedPtr _obj - touchManagedPtr context - return () - -data PlacesSidebarSetDropTargetsVisibleMethodInfo -instance (signature ~ (Bool -> b -> m ()), MonadIO m, PlacesSidebarK a, Gdk.DragContextK b) => MethodInfo PlacesSidebarSetDropTargetsVisibleMethodInfo a signature where - overloadedMethod _ = placesSidebarSetDropTargetsVisible - --- method PlacesSidebar::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", 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 "gtk_places_sidebar_set_local_only" gtk_places_sidebar_set_local_only :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- local_only : TBasicType TBoolean - IO () - - -placesSidebarSetLocalOnly :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- localOnly - -> m () -- result -placesSidebarSetLocalOnly _obj localOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let localOnly' = (fromIntegral . fromEnum) localOnly - gtk_places_sidebar_set_local_only _obj' localOnly' - touchManagedPtr _obj - return () - -data PlacesSidebarSetLocalOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetLocalOnlyMethodInfo a signature where - overloadedMethod _ = placesSidebarSetLocalOnly - --- method PlacesSidebar::set_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_places_sidebar_set_location" gtk_places_sidebar_set_location :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - Ptr Gio.File -> -- location : TInterface "Gio" "File" - IO () - - -placesSidebarSetLocation :: - (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -- _obj - -> Maybe (b) -- location - -> m () -- result -placesSidebarSetLocation _obj location = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLocation <- case location of - Nothing -> return nullPtr - Just jLocation -> do - let jLocation' = unsafeManagedPtrCastPtr jLocation - return jLocation' - gtk_places_sidebar_set_location _obj' maybeLocation - touchManagedPtr _obj - whenJust location touchManagedPtr - return () - -data PlacesSidebarSetLocationMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarSetLocationMethodInfo a signature where - overloadedMethod _ = placesSidebarSetLocation - --- method PlacesSidebar::set_open_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", 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 "gtk_places_sidebar_set_open_flags" gtk_places_sidebar_set_open_flags :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CUInt -> -- flags : TInterface "Gtk" "PlacesOpenFlags" - IO () - - -placesSidebarSetOpenFlags :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> [PlacesOpenFlags] -- flags - -> m () -- result -placesSidebarSetOpenFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_places_sidebar_set_open_flags _obj' flags' - touchManagedPtr _obj - return () - -data PlacesSidebarSetOpenFlagsMethodInfo -instance (signature ~ ([PlacesOpenFlags] -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetOpenFlagsMethodInfo a signature where - overloadedMethod _ = placesSidebarSetOpenFlags - --- method PlacesSidebar::set_show_connect_to_server --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_connect_to_server", 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 "gtk_places_sidebar_set_show_connect_to_server" gtk_places_sidebar_set_show_connect_to_server :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_connect_to_server : TBasicType TBoolean - IO () - -{-# DEPRECATED placesSidebarSetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-} -placesSidebarSetShowConnectToServer :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showConnectToServer - -> m () -- result -placesSidebarSetShowConnectToServer _obj showConnectToServer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showConnectToServer' = (fromIntegral . fromEnum) showConnectToServer - gtk_places_sidebar_set_show_connect_to_server _obj' showConnectToServer' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowConnectToServerMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowConnectToServerMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowConnectToServer - --- method PlacesSidebar::set_show_desktop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_desktop", 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 "gtk_places_sidebar_set_show_desktop" gtk_places_sidebar_set_show_desktop :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_desktop : TBasicType TBoolean - IO () - - -placesSidebarSetShowDesktop :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showDesktop - -> m () -- result -placesSidebarSetShowDesktop _obj showDesktop = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showDesktop' = (fromIntegral . fromEnum) showDesktop - gtk_places_sidebar_set_show_desktop _obj' showDesktop' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowDesktopMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowDesktopMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowDesktop - --- method PlacesSidebar::set_show_enter_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_enter_location", 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 "gtk_places_sidebar_set_show_enter_location" gtk_places_sidebar_set_show_enter_location :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_enter_location : TBasicType TBoolean - IO () - - -placesSidebarSetShowEnterLocation :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showEnterLocation - -> m () -- result -placesSidebarSetShowEnterLocation _obj showEnterLocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showEnterLocation' = (fromIntegral . fromEnum) showEnterLocation - gtk_places_sidebar_set_show_enter_location _obj' showEnterLocation' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowEnterLocationMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowEnterLocationMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowEnterLocation - --- method PlacesSidebar::set_show_other_locations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_other_locations", 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 "gtk_places_sidebar_set_show_other_locations" gtk_places_sidebar_set_show_other_locations :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_other_locations : TBasicType TBoolean - IO () - - -placesSidebarSetShowOtherLocations :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showOtherLocations - -> m () -- result -placesSidebarSetShowOtherLocations _obj showOtherLocations = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showOtherLocations' = (fromIntegral . fromEnum) showOtherLocations - gtk_places_sidebar_set_show_other_locations _obj' showOtherLocations' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowOtherLocationsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowOtherLocationsMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowOtherLocations - --- method PlacesSidebar::set_show_recent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_recent", 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 "gtk_places_sidebar_set_show_recent" gtk_places_sidebar_set_show_recent :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_recent : TBasicType TBoolean - IO () - - -placesSidebarSetShowRecent :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showRecent - -> m () -- result -placesSidebarSetShowRecent _obj showRecent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showRecent' = (fromIntegral . fromEnum) showRecent - gtk_places_sidebar_set_show_recent _obj' showRecent' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowRecentMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowRecentMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowRecent - --- method PlacesSidebar::set_show_trash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_trash", 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 "gtk_places_sidebar_set_show_trash" gtk_places_sidebar_set_show_trash :: - Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - CInt -> -- show_trash : TBasicType TBoolean - IO () - - -placesSidebarSetShowTrash :: - (MonadIO m, PlacesSidebarK a) => - a -- _obj - -> Bool -- showTrash - -> m () -- result -placesSidebarSetShowTrash _obj showTrash = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showTrash' = (fromIntegral . fromEnum) showTrash - gtk_places_sidebar_set_show_trash _obj' showTrash' - touchManagedPtr _obj - return () - -data PlacesSidebarSetShowTrashMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowTrashMethodInfo a signature where - overloadedMethod _ = placesSidebarSetShowTrash - - diff --git a/GI/Gtk/Objects/PlacesSidebar.hs-boot b/GI/Gtk/Objects/PlacesSidebar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PlacesSidebar.hs-boot +++ /dev/null @@ -1,55 +0,0 @@ -module GI.Gtk.Objects.PlacesSidebar 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 PlacesSidebar = PlacesSidebar (ForeignPtr PlacesSidebar) -instance GObject PlacesSidebar where -class GObject o => PlacesSidebarK o -instance (GObject o, IsDescendantOf PlacesSidebar o) => PlacesSidebarK o -data PlacesSidebarLocalOnlyPropertyInfo -data PlacesSidebarLocationPropertyInfo -data PlacesSidebarOpenFlagsPropertyInfo -data PlacesSidebarPopulateAllPropertyInfo -data PlacesSidebarShowConnectToServerPropertyInfo -data PlacesSidebarShowDesktopPropertyInfo -data PlacesSidebarShowEnterLocationPropertyInfo -data PlacesSidebarShowOtherLocationsPropertyInfo -data PlacesSidebarShowRecentPropertyInfo -data PlacesSidebarShowTrashPropertyInfo -data PlacesSidebarDragActionAskSignalInfo -data PlacesSidebarDragActionRequestedSignalInfo -data PlacesSidebarDragPerformDropSignalInfo -data PlacesSidebarOpenLocationSignalInfo -data PlacesSidebarPopulatePopupSignalInfo -data PlacesSidebarShowConnectToServerSignalInfo -data PlacesSidebarShowEnterLocationSignalInfo -data PlacesSidebarShowErrorMessageSignalInfo -data PlacesSidebarShowOtherLocationsSignalInfo -data PlacesSidebarAddShortcutMethodInfo -data PlacesSidebarGetLocalOnlyMethodInfo -data PlacesSidebarGetLocationMethodInfo -data PlacesSidebarGetNthBookmarkMethodInfo -data PlacesSidebarGetOpenFlagsMethodInfo -data PlacesSidebarGetShowConnectToServerMethodInfo -data PlacesSidebarGetShowDesktopMethodInfo -data PlacesSidebarGetShowEnterLocationMethodInfo -data PlacesSidebarGetShowOtherLocationsMethodInfo -data PlacesSidebarGetShowRecentMethodInfo -data PlacesSidebarGetShowTrashMethodInfo -data PlacesSidebarListShortcutsMethodInfo -data PlacesSidebarRemoveShortcutMethodInfo -data PlacesSidebarSetDropTargetsVisibleMethodInfo -data PlacesSidebarSetLocalOnlyMethodInfo -data PlacesSidebarSetLocationMethodInfo -data PlacesSidebarSetOpenFlagsMethodInfo -data PlacesSidebarSetShowConnectToServerMethodInfo -data PlacesSidebarSetShowDesktopMethodInfo -data PlacesSidebarSetShowEnterLocationMethodInfo -data PlacesSidebarSetShowOtherLocationsMethodInfo -data PlacesSidebarSetShowRecentMethodInfo -data PlacesSidebarSetShowTrashMethodInfo diff --git a/GI/Gtk/Objects/Plug.hs b/GI/Gtk/Objects/Plug.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Plug.hs +++ /dev/null @@ -1,841 +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.Gtk.Objects.Plug - ( - --- * Exported types - Plug(..) , - PlugK , - toPlug , - noPlug , - - - -- * Methods --- ** plugConstruct - PlugConstructMethodInfo , - plugConstruct , - - --- ** plugConstructForDisplay - PlugConstructForDisplayMethodInfo , - plugConstructForDisplay , - - --- ** plugGetEmbedded - PlugGetEmbeddedMethodInfo , - plugGetEmbedded , - - --- ** plugGetId - PlugGetIdMethodInfo , - plugGetId , - - --- ** plugGetSocketWindow - PlugGetSocketWindowMethodInfo , - plugGetSocketWindow , - - --- ** plugNew - plugNew , - - --- ** plugNewForDisplay - plugNewForDisplay , - - - - - -- * Properties --- ** Embedded - PlugEmbeddedPropertyInfo , - getPlugEmbedded , - plugEmbedded , - - --- ** SocketWindow - PlugSocketWindowPropertyInfo , - getPlugSocketWindow , - plugSocketWindow , - - - - - -- * Signals --- ** Embedded - PlugEmbeddedCallback , - PlugEmbeddedCallbackC , - PlugEmbeddedSignalInfo , - afterPlugEmbedded , - mkPlugEmbeddedCallback , - noPlugEmbeddedCallback , - onPlugEmbedded , - plugEmbeddedCallbackWrapper , - plugEmbeddedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Plug = Plug (ForeignPtr Plug) -foreign import ccall "gtk_plug_get_type" - c_gtk_plug_get_type :: IO GType - -type instance ParentTypes Plug = PlugParentTypes -type PlugParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Plug where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_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 "activate" o = WidgetActivateMethodInfo - ResolvePlugMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolvePlugMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolvePlugMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolvePlugMethod "add" o = ContainerAddMethodInfo - ResolvePlugMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolvePlugMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolvePlugMethod "addChild" o = BuildableAddChildMethodInfo - ResolvePlugMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolvePlugMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolvePlugMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolvePlugMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolvePlugMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolvePlugMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolvePlugMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolvePlugMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePlugMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePlugMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolvePlugMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolvePlugMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolvePlugMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolvePlugMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolvePlugMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolvePlugMethod "childType" o = ContainerChildTypeMethodInfo - ResolvePlugMethod "classPath" o = WidgetClassPathMethodInfo - ResolvePlugMethod "close" o = WindowCloseMethodInfo - ResolvePlugMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolvePlugMethod "construct" o = PlugConstructMethodInfo - ResolvePlugMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolvePlugMethod "constructForDisplay" o = PlugConstructForDisplayMethodInfo - ResolvePlugMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolvePlugMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolvePlugMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolvePlugMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolvePlugMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolvePlugMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolvePlugMethod "destroy" o = WidgetDestroyMethodInfo - ResolvePlugMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolvePlugMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolvePlugMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolvePlugMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolvePlugMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolvePlugMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolvePlugMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolvePlugMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolvePlugMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolvePlugMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolvePlugMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolvePlugMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolvePlugMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolvePlugMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolvePlugMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolvePlugMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolvePlugMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolvePlugMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolvePlugMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolvePlugMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolvePlugMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolvePlugMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolvePlugMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolvePlugMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolvePlugMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolvePlugMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolvePlugMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolvePlugMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolvePlugMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolvePlugMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolvePlugMethod "draw" o = WidgetDrawMethodInfo - ResolvePlugMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolvePlugMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolvePlugMethod "event" o = WidgetEventMethodInfo - ResolvePlugMethod "forall" o = ContainerForallMethodInfo - ResolvePlugMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePlugMethod "foreach" o = ContainerForeachMethodInfo - ResolvePlugMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolvePlugMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePlugMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolvePlugMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolvePlugMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolvePlugMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolvePlugMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolvePlugMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolvePlugMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolvePlugMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolvePlugMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolvePlugMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolvePlugMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolvePlugMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolvePlugMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolvePlugMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolvePlugMethod "hide" o = WidgetHideMethodInfo - ResolvePlugMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolvePlugMethod "iconify" o = WindowIconifyMethodInfo - ResolvePlugMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolvePlugMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolvePlugMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolvePlugMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolvePlugMethod "intersect" o = WidgetIntersectMethodInfo - ResolvePlugMethod "isActive" o = WindowIsActiveMethodInfo - ResolvePlugMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolvePlugMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolvePlugMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolvePlugMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePlugMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolvePlugMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolvePlugMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolvePlugMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolvePlugMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolvePlugMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolvePlugMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolvePlugMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolvePlugMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolvePlugMethod "map" o = WidgetMapMethodInfo - ResolvePlugMethod "maximize" o = WindowMaximizeMethodInfo - ResolvePlugMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolvePlugMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolvePlugMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolvePlugMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolvePlugMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolvePlugMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolvePlugMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolvePlugMethod "move" o = WindowMoveMethodInfo - ResolvePlugMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePlugMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePlugMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolvePlugMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolvePlugMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolvePlugMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolvePlugMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolvePlugMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolvePlugMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolvePlugMethod "path" o = WidgetPathMethodInfo - ResolvePlugMethod "present" o = WindowPresentMethodInfo - ResolvePlugMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolvePlugMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolvePlugMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolvePlugMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolvePlugMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolvePlugMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolvePlugMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolvePlugMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolvePlugMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolvePlugMethod "realize" o = WidgetRealizeMethodInfo - ResolvePlugMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePlugMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePlugMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolvePlugMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolvePlugMethod "remove" o = ContainerRemoveMethodInfo - ResolvePlugMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolvePlugMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolvePlugMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolvePlugMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolvePlugMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolvePlugMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolvePlugMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolvePlugMethod "reparent" o = WidgetReparentMethodInfo - ResolvePlugMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePlugMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePlugMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolvePlugMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolvePlugMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolvePlugMethod "resize" o = WindowResizeMethodInfo - ResolvePlugMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolvePlugMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolvePlugMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolvePlugMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePlugMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolvePlugMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolvePlugMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolvePlugMethod "show" o = WidgetShowMethodInfo - ResolvePlugMethod "showAll" o = WidgetShowAllMethodInfo - ResolvePlugMethod "showNow" o = WidgetShowNowMethodInfo - ResolvePlugMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolvePlugMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolvePlugMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolvePlugMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePlugMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePlugMethod "stick" o = WindowStickMethodInfo - ResolvePlugMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolvePlugMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolvePlugMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolvePlugMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePlugMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolvePlugMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolvePlugMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolvePlugMethod "unmap" o = WidgetUnmapMethodInfo - ResolvePlugMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolvePlugMethod "unparent" o = WidgetUnparentMethodInfo - ResolvePlugMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolvePlugMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePlugMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolvePlugMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolvePlugMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolvePlugMethod "unstick" o = WindowUnstickMethodInfo - ResolvePlugMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePlugMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolvePlugMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolvePlugMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolvePlugMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolvePlugMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolvePlugMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolvePlugMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolvePlugMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolvePlugMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolvePlugMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolvePlugMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolvePlugMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolvePlugMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolvePlugMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolvePlugMethod "getChild" o = BinGetChildMethodInfo - ResolvePlugMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolvePlugMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolvePlugMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolvePlugMethod "getClip" o = WidgetGetClipMethodInfo - ResolvePlugMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolvePlugMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolvePlugMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePlugMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolvePlugMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolvePlugMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolvePlugMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolvePlugMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolvePlugMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolvePlugMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolvePlugMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolvePlugMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolvePlugMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolvePlugMethod "getEmbedded" o = PlugGetEmbeddedMethodInfo - ResolvePlugMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolvePlugMethod "getFocus" o = WindowGetFocusMethodInfo - ResolvePlugMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolvePlugMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolvePlugMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolvePlugMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolvePlugMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolvePlugMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolvePlugMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolvePlugMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolvePlugMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolvePlugMethod "getGravity" o = WindowGetGravityMethodInfo - ResolvePlugMethod "getGroup" o = WindowGetGroupMethodInfo - ResolvePlugMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolvePlugMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolvePlugMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolvePlugMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolvePlugMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolvePlugMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolvePlugMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolvePlugMethod "getIcon" o = WindowGetIconMethodInfo - ResolvePlugMethod "getIconList" o = WindowGetIconListMethodInfo - ResolvePlugMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolvePlugMethod "getId" o = PlugGetIdMethodInfo - ResolvePlugMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolvePlugMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolvePlugMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolvePlugMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolvePlugMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolvePlugMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolvePlugMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolvePlugMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolvePlugMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolvePlugMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolvePlugMethod "getModal" o = WindowGetModalMethodInfo - ResolvePlugMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolvePlugMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolvePlugMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolvePlugMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolvePlugMethod "getParent" o = WidgetGetParentMethodInfo - ResolvePlugMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolvePlugMethod "getPath" o = WidgetGetPathMethodInfo - ResolvePlugMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolvePlugMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolvePlugMethod "getPosition" o = WindowGetPositionMethodInfo - ResolvePlugMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolvePlugMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolvePlugMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolvePlugMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolvePlugMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolvePlugMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolvePlugMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePlugMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePlugMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolvePlugMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolvePlugMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolvePlugMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolvePlugMethod "getResizable" o = WindowGetResizableMethodInfo - ResolvePlugMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolvePlugMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolvePlugMethod "getRole" o = WindowGetRoleMethodInfo - ResolvePlugMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolvePlugMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolvePlugMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolvePlugMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolvePlugMethod "getSize" o = WindowGetSizeMethodInfo - ResolvePlugMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolvePlugMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolvePlugMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolvePlugMethod "getSocketWindow" o = PlugGetSocketWindowMethodInfo - ResolvePlugMethod "getState" o = WidgetGetStateMethodInfo - ResolvePlugMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolvePlugMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolvePlugMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolvePlugMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolvePlugMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolvePlugMethod "getTitle" o = WindowGetTitleMethodInfo - ResolvePlugMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolvePlugMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolvePlugMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolvePlugMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolvePlugMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolvePlugMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolvePlugMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolvePlugMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolvePlugMethod "getValign" o = WidgetGetValignMethodInfo - ResolvePlugMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolvePlugMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolvePlugMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolvePlugMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolvePlugMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolvePlugMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolvePlugMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolvePlugMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolvePlugMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolvePlugMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolvePlugMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolvePlugMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolvePlugMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolvePlugMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolvePlugMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolvePlugMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolvePlugMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolvePlugMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolvePlugMethod "setClip" o = WidgetSetClipMethodInfo - ResolvePlugMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolvePlugMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePlugMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolvePlugMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolvePlugMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolvePlugMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolvePlugMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolvePlugMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolvePlugMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolvePlugMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolvePlugMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolvePlugMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolvePlugMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolvePlugMethod "setFocus" o = WindowSetFocusMethodInfo - ResolvePlugMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolvePlugMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolvePlugMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolvePlugMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolvePlugMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolvePlugMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolvePlugMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolvePlugMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolvePlugMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolvePlugMethod "setGravity" o = WindowSetGravityMethodInfo - ResolvePlugMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolvePlugMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolvePlugMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolvePlugMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolvePlugMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolvePlugMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolvePlugMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolvePlugMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolvePlugMethod "setIcon" o = WindowSetIconMethodInfo - ResolvePlugMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolvePlugMethod "setIconList" o = WindowSetIconListMethodInfo - ResolvePlugMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolvePlugMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolvePlugMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolvePlugMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolvePlugMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolvePlugMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolvePlugMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolvePlugMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolvePlugMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolvePlugMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolvePlugMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolvePlugMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolvePlugMethod "setModal" o = WindowSetModalMethodInfo - ResolvePlugMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolvePlugMethod "setParent" o = WidgetSetParentMethodInfo - ResolvePlugMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolvePlugMethod "setPosition" o = WindowSetPositionMethodInfo - ResolvePlugMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePlugMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolvePlugMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolvePlugMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolvePlugMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolvePlugMethod "setResizable" o = WindowSetResizableMethodInfo - ResolvePlugMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolvePlugMethod "setRole" o = WindowSetRoleMethodInfo - ResolvePlugMethod "setScreen" o = WindowSetScreenMethodInfo - ResolvePlugMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolvePlugMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolvePlugMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolvePlugMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolvePlugMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolvePlugMethod "setState" o = WidgetSetStateMethodInfo - ResolvePlugMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolvePlugMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolvePlugMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolvePlugMethod "setTitle" o = WindowSetTitleMethodInfo - ResolvePlugMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolvePlugMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolvePlugMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolvePlugMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolvePlugMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolvePlugMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolvePlugMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolvePlugMethod "setValign" o = WidgetSetValignMethodInfo - ResolvePlugMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolvePlugMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolvePlugMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolvePlugMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolvePlugMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolvePlugMethod "setWmclass" o = WindowSetWmclassMethodInfo - 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 - --- signal Plug::embedded -type PlugEmbeddedCallback = - IO () - -noPlugEmbeddedCallback :: Maybe PlugEmbeddedCallback -noPlugEmbeddedCallback = Nothing - -type PlugEmbeddedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPlugEmbeddedCallback :: PlugEmbeddedCallbackC -> IO (FunPtr PlugEmbeddedCallbackC) - -plugEmbeddedClosure :: PlugEmbeddedCallback -> IO Closure -plugEmbeddedClosure cb = newCClosure =<< mkPlugEmbeddedCallback wrapped - where wrapped = plugEmbeddedCallbackWrapper cb - -plugEmbeddedCallbackWrapper :: - PlugEmbeddedCallback -> - Ptr () -> - Ptr () -> - IO () -plugEmbeddedCallbackWrapper _cb _ _ = do - _cb - -onPlugEmbedded :: (GObject a, MonadIO m) => a -> PlugEmbeddedCallback -> m SignalHandlerId -onPlugEmbedded obj cb = liftIO $ connectPlugEmbedded obj cb SignalConnectBefore -afterPlugEmbedded :: (GObject a, MonadIO m) => a -> PlugEmbeddedCallback -> m SignalHandlerId -afterPlugEmbedded obj cb = connectPlugEmbedded obj cb SignalConnectAfter - -connectPlugEmbedded :: (GObject a, MonadIO m) => - a -> PlugEmbeddedCallback -> SignalConnectMode -> m SignalHandlerId -connectPlugEmbedded obj cb after = liftIO $ do - cb' <- mkPlugEmbeddedCallback (plugEmbeddedCallbackWrapper cb) - connectSignalFunPtr obj "embedded" cb' after - --- VVV Prop "embedded" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPlugEmbedded :: (MonadIO m, PlugK o) => o -> m Bool -getPlugEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded" - -data PlugEmbeddedPropertyInfo -instance AttrInfo PlugEmbeddedPropertyInfo where - type AttrAllowedOps PlugEmbeddedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PlugEmbeddedPropertyInfo = (~) () - type AttrBaseTypeConstraint PlugEmbeddedPropertyInfo = PlugK - type AttrGetType PlugEmbeddedPropertyInfo = Bool - type AttrLabel PlugEmbeddedPropertyInfo = "embedded" - attrGet _ = getPlugEmbedded - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "socket-window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPlugSocketWindow :: (MonadIO m, PlugK o) => o -> m Gdk.Window -getPlugSocketWindow obj = liftIO $ checkUnexpectedNothing "getPlugSocketWindow" $ getObjectPropertyObject obj "socket-window" Gdk.Window - -data PlugSocketWindowPropertyInfo -instance AttrInfo PlugSocketWindowPropertyInfo where - type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK - type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window - type AttrLabel PlugSocketWindowPropertyInfo = "socket-window" - attrGet _ = getPlugSocketWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Plug = PlugAttributeList -type PlugAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("socketWindow", PlugSocketWindowPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -plugEmbedded :: AttrLabelProxy "embedded" -plugEmbedded = AttrLabelProxy - -plugSocketWindow :: AttrLabelProxy "socketWindow" -plugSocketWindow = AttrLabelProxy - -data PlugEmbeddedSignalInfo -instance SignalInfo PlugEmbeddedSignalInfo where - type HaskellCallbackType PlugEmbeddedSignalInfo = PlugEmbeddedCallback - connectSignal _ = connectPlugEmbedded - -type instance SignalList Plug = PlugSignalList -type PlugSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("embedded", PlugEmbeddedSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Plug::new --- method type : Constructor --- Args : [Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Plug") --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_new" gtk_plug_new :: - CULong -> -- socket_id : TBasicType TULong - IO (Ptr Plug) - - -plugNew :: - (MonadIO m) => - CULong -- socketId - -> m Plug -- result -plugNew socketId = liftIO $ do - result <- gtk_plug_new socketId - checkUnexpectedReturnNULL "gtk_plug_new" result - result' <- (newObject Plug) result - return result' - --- method Plug::new_for_display --- method type : Constructor --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Plug") --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_new_for_display" gtk_plug_new_for_display :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - CULong -> -- socket_id : TBasicType TULong - IO (Ptr Plug) - - -plugNewForDisplay :: - (MonadIO m, Gdk.DisplayK a) => - a -- display - -> CULong -- socketId - -> m Plug -- result -plugNewForDisplay display socketId = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - result <- gtk_plug_new_for_display display' socketId - checkUnexpectedReturnNULL "gtk_plug_new_for_display" result - result' <- (newObject Plug) result - touchManagedPtr display - return result' - --- method Plug::construct --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, 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 "gtk_plug_construct" gtk_plug_construct :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - CULong -> -- socket_id : TBasicType TULong - IO () - - -plugConstruct :: - (MonadIO m, PlugK a) => - a -- _obj - -> CULong -- socketId - -> m () -- result -plugConstruct _obj socketId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_plug_construct _obj' socketId - touchManagedPtr _obj - return () - -data PlugConstructMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where - overloadedMethod _ = plugConstruct - --- method Plug::construct_for_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, 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 "gtk_plug_construct_for_display" gtk_plug_construct_for_display :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - CULong -> -- socket_id : TBasicType TULong - IO () - - -plugConstructForDisplay :: - (MonadIO m, PlugK a, Gdk.DisplayK b) => - a -- _obj - -> b -- display - -> CULong -- socketId - -> m () -- result -plugConstructForDisplay _obj display socketId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let display' = unsafeManagedPtrCastPtr display - gtk_plug_construct_for_display _obj' display' socketId - touchManagedPtr _obj - touchManagedPtr display - return () - -data PlugConstructForDisplayMethodInfo -instance (signature ~ (b -> CULong -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where - overloadedMethod _ = plugConstructForDisplay - --- method Plug::get_embedded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", 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 "gtk_plug_get_embedded" gtk_plug_get_embedded :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - IO CInt - - -plugGetEmbedded :: - (MonadIO m, PlugK a) => - a -- _obj - -> m Bool -- result -plugGetEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_plug_get_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PlugGetEmbeddedMethodInfo -instance (signature ~ (m Bool), MonadIO m, PlugK a) => MethodInfo PlugGetEmbeddedMethodInfo a signature where - overloadedMethod _ = plugGetEmbedded - --- method Plug::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_get_id" gtk_plug_get_id :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - IO CULong - - -plugGetId :: - (MonadIO m, PlugK a) => - a -- _obj - -> m CULong -- result -plugGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_plug_get_id _obj' - touchManagedPtr _obj - return result - -data PlugGetIdMethodInfo -instance (signature ~ (m CULong), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where - overloadedMethod _ = plugGetId - --- method Plug::get_socket_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_get_socket_window" gtk_plug_get_socket_window :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - IO (Ptr Gdk.Window) - - -plugGetSocketWindow :: - (MonadIO m, PlugK a) => - a -- _obj - -> m Gdk.Window -- result -plugGetSocketWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_plug_get_socket_window _obj' - checkUnexpectedReturnNULL "gtk_plug_get_socket_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data PlugGetSocketWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, PlugK a) => MethodInfo PlugGetSocketWindowMethodInfo a signature where - overloadedMethod _ = plugGetSocketWindow - - diff --git a/GI/Gtk/Objects/Plug.hs-boot b/GI/Gtk/Objects/Plug.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Plug.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.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 PlugEmbeddedPropertyInfo -data PlugSocketWindowPropertyInfo -data PlugEmbeddedSignalInfo -data PlugConstructMethodInfo -data PlugConstructForDisplayMethodInfo -data PlugGetEmbeddedMethodInfo -data PlugGetIdMethodInfo -data PlugGetSocketWindowMethodInfo diff --git a/GI/Gtk/Objects/Popover.hs b/GI/Gtk/Objects/Popover.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Popover.hs +++ /dev/null @@ -1,1193 +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.Gtk.Objects.Popover - ( - --- * Exported types - Popover(..) , - PopoverK , - toPopover , - noPopover , - - - -- * Methods --- ** popoverBindModel - PopoverBindModelMethodInfo , - popoverBindModel , - - --- ** popoverGetDefaultWidget - PopoverGetDefaultWidgetMethodInfo , - popoverGetDefaultWidget , - - --- ** popoverGetModal - PopoverGetModalMethodInfo , - popoverGetModal , - - --- ** popoverGetPointingTo - PopoverGetPointingToMethodInfo , - popoverGetPointingTo , - - --- ** popoverGetPosition - PopoverGetPositionMethodInfo , - popoverGetPosition , - - --- ** popoverGetRelativeTo - PopoverGetRelativeToMethodInfo , - popoverGetRelativeTo , - - --- ** popoverGetTransitionsEnabled - PopoverGetTransitionsEnabledMethodInfo , - popoverGetTransitionsEnabled , - - --- ** popoverNew - popoverNew , - - --- ** popoverNewFromModel - popoverNewFromModel , - - --- ** popoverSetDefaultWidget - PopoverSetDefaultWidgetMethodInfo , - popoverSetDefaultWidget , - - --- ** popoverSetModal - PopoverSetModalMethodInfo , - popoverSetModal , - - --- ** popoverSetPointingTo - PopoverSetPointingToMethodInfo , - popoverSetPointingTo , - - --- ** popoverSetPosition - PopoverSetPositionMethodInfo , - popoverSetPosition , - - --- ** popoverSetRelativeTo - PopoverSetRelativeToMethodInfo , - popoverSetRelativeTo , - - --- ** popoverSetTransitionsEnabled - PopoverSetTransitionsEnabledMethodInfo , - popoverSetTransitionsEnabled , - - - - - -- * Properties --- ** Modal - PopoverModalPropertyInfo , - constructPopoverModal , - getPopoverModal , - popoverModal , - setPopoverModal , - - --- ** PointingTo - PopoverPointingToPropertyInfo , - constructPopoverPointingTo , - getPopoverPointingTo , - popoverPointingTo , - setPopoverPointingTo , - - --- ** Position - PopoverPositionPropertyInfo , - constructPopoverPosition , - getPopoverPosition , - popoverPosition , - setPopoverPosition , - - --- ** RelativeTo - PopoverRelativeToPropertyInfo , - clearPopoverRelativeTo , - constructPopoverRelativeTo , - getPopoverRelativeTo , - popoverRelativeTo , - setPopoverRelativeTo , - - --- ** TransitionsEnabled - PopoverTransitionsEnabledPropertyInfo , - constructPopoverTransitionsEnabled , - getPopoverTransitionsEnabled , - popoverTransitionsEnabled , - setPopoverTransitionsEnabled , - - - - - -- * Signals --- ** Closed - PopoverClosedCallback , - PopoverClosedCallbackC , - PopoverClosedSignalInfo , - afterPopoverClosed , - mkPopoverClosedCallback , - noPopoverClosedCallback , - onPopoverClosed , - popoverClosedCallbackWrapper , - popoverClosedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Gio as Gio - -newtype Popover = Popover (ForeignPtr Popover) -foreign import ccall "gtk_popover_get_type" - c_gtk_popover_get_type :: IO GType - -type instance ParentTypes Popover = PopoverParentTypes -type PopoverParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Popover where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_popover_get_type - - -class GObject o => PopoverK o -instance (GObject o, IsDescendantOf Popover o) => PopoverK o - -toPopover :: PopoverK o => o -> IO Popover -toPopover = unsafeCastTo Popover - -noPopover :: Maybe Popover -noPopover = Nothing - -type family ResolvePopoverMethod (t :: Symbol) (o :: *) :: * where - ResolvePopoverMethod "activate" o = WidgetActivateMethodInfo - ResolvePopoverMethod "add" o = ContainerAddMethodInfo - ResolvePopoverMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolvePopoverMethod "addChild" o = BuildableAddChildMethodInfo - ResolvePopoverMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolvePopoverMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolvePopoverMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolvePopoverMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolvePopoverMethod "bindModel" o = PopoverBindModelMethodInfo - ResolvePopoverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePopoverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePopoverMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolvePopoverMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolvePopoverMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolvePopoverMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolvePopoverMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolvePopoverMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolvePopoverMethod "childType" o = ContainerChildTypeMethodInfo - ResolvePopoverMethod "classPath" o = WidgetClassPathMethodInfo - ResolvePopoverMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolvePopoverMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolvePopoverMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolvePopoverMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolvePopoverMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolvePopoverMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolvePopoverMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolvePopoverMethod "destroy" o = WidgetDestroyMethodInfo - ResolvePopoverMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolvePopoverMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolvePopoverMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolvePopoverMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolvePopoverMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolvePopoverMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolvePopoverMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolvePopoverMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolvePopoverMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolvePopoverMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolvePopoverMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolvePopoverMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolvePopoverMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolvePopoverMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolvePopoverMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolvePopoverMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolvePopoverMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolvePopoverMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolvePopoverMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolvePopoverMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolvePopoverMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolvePopoverMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolvePopoverMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolvePopoverMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolvePopoverMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolvePopoverMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolvePopoverMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolvePopoverMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolvePopoverMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolvePopoverMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolvePopoverMethod "draw" o = WidgetDrawMethodInfo - ResolvePopoverMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolvePopoverMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolvePopoverMethod "event" o = WidgetEventMethodInfo - ResolvePopoverMethod "forall" o = ContainerForallMethodInfo - ResolvePopoverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePopoverMethod "foreach" o = ContainerForeachMethodInfo - ResolvePopoverMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolvePopoverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePopoverMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolvePopoverMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolvePopoverMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolvePopoverMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolvePopoverMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolvePopoverMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolvePopoverMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolvePopoverMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolvePopoverMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolvePopoverMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolvePopoverMethod "hide" o = WidgetHideMethodInfo - ResolvePopoverMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolvePopoverMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolvePopoverMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolvePopoverMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolvePopoverMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolvePopoverMethod "intersect" o = WidgetIntersectMethodInfo - ResolvePopoverMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolvePopoverMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolvePopoverMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolvePopoverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePopoverMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolvePopoverMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolvePopoverMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolvePopoverMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolvePopoverMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolvePopoverMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolvePopoverMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolvePopoverMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolvePopoverMethod "map" o = WidgetMapMethodInfo - ResolvePopoverMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolvePopoverMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolvePopoverMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolvePopoverMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolvePopoverMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolvePopoverMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolvePopoverMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolvePopoverMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolvePopoverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePopoverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePopoverMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolvePopoverMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolvePopoverMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolvePopoverMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolvePopoverMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolvePopoverMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolvePopoverMethod "path" o = WidgetPathMethodInfo - ResolvePopoverMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolvePopoverMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolvePopoverMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolvePopoverMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolvePopoverMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolvePopoverMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolvePopoverMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolvePopoverMethod "realize" o = WidgetRealizeMethodInfo - ResolvePopoverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePopoverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePopoverMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolvePopoverMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolvePopoverMethod "remove" o = ContainerRemoveMethodInfo - ResolvePopoverMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolvePopoverMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolvePopoverMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolvePopoverMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolvePopoverMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolvePopoverMethod "reparent" o = WidgetReparentMethodInfo - ResolvePopoverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePopoverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePopoverMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolvePopoverMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolvePopoverMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolvePopoverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePopoverMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolvePopoverMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolvePopoverMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolvePopoverMethod "show" o = WidgetShowMethodInfo - ResolvePopoverMethod "showAll" o = WidgetShowAllMethodInfo - ResolvePopoverMethod "showNow" o = WidgetShowNowMethodInfo - ResolvePopoverMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolvePopoverMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolvePopoverMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolvePopoverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePopoverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePopoverMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolvePopoverMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolvePopoverMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolvePopoverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePopoverMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolvePopoverMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolvePopoverMethod "unmap" o = WidgetUnmapMethodInfo - ResolvePopoverMethod "unparent" o = WidgetUnparentMethodInfo - ResolvePopoverMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolvePopoverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePopoverMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolvePopoverMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolvePopoverMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolvePopoverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePopoverMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolvePopoverMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolvePopoverMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolvePopoverMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolvePopoverMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolvePopoverMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolvePopoverMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolvePopoverMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolvePopoverMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolvePopoverMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolvePopoverMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolvePopoverMethod "getChild" o = BinGetChildMethodInfo - ResolvePopoverMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolvePopoverMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolvePopoverMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolvePopoverMethod "getClip" o = WidgetGetClipMethodInfo - ResolvePopoverMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolvePopoverMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolvePopoverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePopoverMethod "getDefaultWidget" o = PopoverGetDefaultWidgetMethodInfo - ResolvePopoverMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolvePopoverMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolvePopoverMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolvePopoverMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolvePopoverMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolvePopoverMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolvePopoverMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolvePopoverMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolvePopoverMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolvePopoverMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolvePopoverMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolvePopoverMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolvePopoverMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolvePopoverMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolvePopoverMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolvePopoverMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolvePopoverMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolvePopoverMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolvePopoverMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolvePopoverMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolvePopoverMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolvePopoverMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolvePopoverMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolvePopoverMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolvePopoverMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolvePopoverMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolvePopoverMethod "getModal" o = PopoverGetModalMethodInfo - ResolvePopoverMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolvePopoverMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolvePopoverMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolvePopoverMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolvePopoverMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolvePopoverMethod "getParent" o = WidgetGetParentMethodInfo - ResolvePopoverMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolvePopoverMethod "getPath" o = WidgetGetPathMethodInfo - ResolvePopoverMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolvePopoverMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolvePopoverMethod "getPointingTo" o = PopoverGetPointingToMethodInfo - ResolvePopoverMethod "getPosition" o = PopoverGetPositionMethodInfo - ResolvePopoverMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolvePopoverMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolvePopoverMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolvePopoverMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolvePopoverMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolvePopoverMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolvePopoverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePopoverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePopoverMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolvePopoverMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolvePopoverMethod "getRelativeTo" o = PopoverGetRelativeToMethodInfo - ResolvePopoverMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolvePopoverMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolvePopoverMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolvePopoverMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolvePopoverMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolvePopoverMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolvePopoverMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolvePopoverMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolvePopoverMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolvePopoverMethod "getState" o = WidgetGetStateMethodInfo - ResolvePopoverMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolvePopoverMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolvePopoverMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolvePopoverMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolvePopoverMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolvePopoverMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolvePopoverMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolvePopoverMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolvePopoverMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolvePopoverMethod "getTransitionsEnabled" o = PopoverGetTransitionsEnabledMethodInfo - ResolvePopoverMethod "getValign" o = WidgetGetValignMethodInfo - ResolvePopoverMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolvePopoverMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolvePopoverMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolvePopoverMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolvePopoverMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolvePopoverMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolvePopoverMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolvePopoverMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolvePopoverMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolvePopoverMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolvePopoverMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolvePopoverMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolvePopoverMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolvePopoverMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolvePopoverMethod "setClip" o = WidgetSetClipMethodInfo - ResolvePopoverMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolvePopoverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePopoverMethod "setDefaultWidget" o = PopoverSetDefaultWidgetMethodInfo - ResolvePopoverMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolvePopoverMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolvePopoverMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolvePopoverMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolvePopoverMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolvePopoverMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolvePopoverMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolvePopoverMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolvePopoverMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolvePopoverMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolvePopoverMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolvePopoverMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolvePopoverMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolvePopoverMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolvePopoverMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolvePopoverMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolvePopoverMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolvePopoverMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolvePopoverMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolvePopoverMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolvePopoverMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolvePopoverMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolvePopoverMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolvePopoverMethod "setModal" o = PopoverSetModalMethodInfo - ResolvePopoverMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolvePopoverMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolvePopoverMethod "setParent" o = WidgetSetParentMethodInfo - ResolvePopoverMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolvePopoverMethod "setPointingTo" o = PopoverSetPointingToMethodInfo - ResolvePopoverMethod "setPosition" o = PopoverSetPositionMethodInfo - ResolvePopoverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePopoverMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolvePopoverMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolvePopoverMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolvePopoverMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolvePopoverMethod "setRelativeTo" o = PopoverSetRelativeToMethodInfo - ResolvePopoverMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolvePopoverMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolvePopoverMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolvePopoverMethod "setState" o = WidgetSetStateMethodInfo - ResolvePopoverMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolvePopoverMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolvePopoverMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolvePopoverMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolvePopoverMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolvePopoverMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolvePopoverMethod "setTransitionsEnabled" o = PopoverSetTransitionsEnabledMethodInfo - ResolvePopoverMethod "setValign" o = WidgetSetValignMethodInfo - ResolvePopoverMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolvePopoverMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolvePopoverMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolvePopoverMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolvePopoverMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolvePopoverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePopoverMethod t Popover, MethodInfo info Popover p) => IsLabelProxy t (Popover -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePopoverMethod t Popover, MethodInfo info Popover p) => IsLabel t (Popover -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Popover::closed -type PopoverClosedCallback = - IO () - -noPopoverClosedCallback :: Maybe PopoverClosedCallback -noPopoverClosedCallback = Nothing - -type PopoverClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPopoverClosedCallback :: PopoverClosedCallbackC -> IO (FunPtr PopoverClosedCallbackC) - -popoverClosedClosure :: PopoverClosedCallback -> IO Closure -popoverClosedClosure cb = newCClosure =<< mkPopoverClosedCallback wrapped - where wrapped = popoverClosedCallbackWrapper cb - -popoverClosedCallbackWrapper :: - PopoverClosedCallback -> - Ptr () -> - Ptr () -> - IO () -popoverClosedCallbackWrapper _cb _ _ = do - _cb - -onPopoverClosed :: (GObject a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId -onPopoverClosed obj cb = liftIO $ connectPopoverClosed obj cb SignalConnectBefore -afterPopoverClosed :: (GObject a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId -afterPopoverClosed obj cb = connectPopoverClosed obj cb SignalConnectAfter - -connectPopoverClosed :: (GObject a, MonadIO m) => - a -> PopoverClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectPopoverClosed obj cb after = liftIO $ do - cb' <- mkPopoverClosedCallback (popoverClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- VVV Prop "modal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPopoverModal :: (MonadIO m, PopoverK o) => o -> m Bool -getPopoverModal obj = liftIO $ getObjectPropertyBool obj "modal" - -setPopoverModal :: (MonadIO m, PopoverK o) => o -> Bool -> m () -setPopoverModal obj val = liftIO $ setObjectPropertyBool obj "modal" val - -constructPopoverModal :: Bool -> IO ([Char], GValue) -constructPopoverModal val = constructObjectPropertyBool "modal" val - -data PopoverModalPropertyInfo -instance AttrInfo PopoverModalPropertyInfo where - type AttrAllowedOps PopoverModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverModalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PopoverModalPropertyInfo = PopoverK - type AttrGetType PopoverModalPropertyInfo = Bool - type AttrLabel PopoverModalPropertyInfo = "modal" - attrGet _ = getPopoverModal - attrSet _ = setPopoverModal - attrConstruct _ = constructPopoverModal - attrClear _ = undefined - --- VVV Prop "pointing-to" - -- Type: TInterface "Gdk" "Rectangle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m (Maybe Gdk.Rectangle) -getPopoverPointingTo obj = liftIO $ getObjectPropertyBoxed obj "pointing-to" Gdk.Rectangle - -setPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> Gdk.Rectangle -> m () -setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" (Just val) - -constructPopoverPointingTo :: Gdk.Rectangle -> IO ([Char], GValue) -constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" (Just val) - -data PopoverPointingToPropertyInfo -instance AttrInfo PopoverPointingToPropertyInfo where - type AttrAllowedOps PopoverPointingToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle - type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = PopoverK - type AttrGetType PopoverPointingToPropertyInfo = (Maybe Gdk.Rectangle) - type AttrLabel PopoverPointingToPropertyInfo = "pointing-to" - attrGet _ = getPopoverPointingTo - attrSet _ = setPopoverPointingTo - attrConstruct _ = constructPopoverPointingTo - attrClear _ = undefined - --- VVV Prop "position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getPopoverPosition :: (MonadIO m, PopoverK o) => o -> m PositionType -getPopoverPosition obj = liftIO $ getObjectPropertyEnum obj "position" - -setPopoverPosition :: (MonadIO m, PopoverK o) => o -> PositionType -> m () -setPopoverPosition obj val = liftIO $ setObjectPropertyEnum obj "position" val - -constructPopoverPosition :: PositionType -> IO ([Char], GValue) -constructPopoverPosition val = constructObjectPropertyEnum "position" val - -data PopoverPositionPropertyInfo -instance AttrInfo PopoverPositionPropertyInfo where - type AttrAllowedOps PopoverPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverPositionPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint PopoverPositionPropertyInfo = PopoverK - type AttrGetType PopoverPositionPropertyInfo = PositionType - type AttrLabel PopoverPositionPropertyInfo = "position" - attrGet _ = getPopoverPosition - attrSet _ = setPopoverPosition - attrConstruct _ = constructPopoverPosition - attrClear _ = undefined - --- VVV Prop "relative-to" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m Widget -getPopoverRelativeTo obj = liftIO $ checkUnexpectedNothing "getPopoverRelativeTo" $ getObjectPropertyObject obj "relative-to" Widget - -setPopoverRelativeTo :: (MonadIO m, PopoverK o, WidgetK a) => o -> a -> m () -setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" (Just val) - -constructPopoverRelativeTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" (Just val) - -clearPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m () -clearPopoverRelativeTo obj = liftIO $ setObjectPropertyObject obj "relative-to" (Nothing :: Maybe Widget) - -data PopoverRelativeToPropertyInfo -instance AttrInfo PopoverRelativeToPropertyInfo where - type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK - type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK - type AttrGetType PopoverRelativeToPropertyInfo = Widget - type AttrLabel PopoverRelativeToPropertyInfo = "relative-to" - attrGet _ = getPopoverRelativeTo - attrSet _ = setPopoverRelativeTo - attrConstruct _ = constructPopoverRelativeTo - attrClear _ = clearPopoverRelativeTo - --- VVV Prop "transitions-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPopoverTransitionsEnabled :: (MonadIO m, PopoverK o) => o -> m Bool -getPopoverTransitionsEnabled obj = liftIO $ getObjectPropertyBool obj "transitions-enabled" - -setPopoverTransitionsEnabled :: (MonadIO m, PopoverK o) => o -> Bool -> m () -setPopoverTransitionsEnabled obj val = liftIO $ setObjectPropertyBool obj "transitions-enabled" val - -constructPopoverTransitionsEnabled :: Bool -> IO ([Char], GValue) -constructPopoverTransitionsEnabled val = constructObjectPropertyBool "transitions-enabled" val - -data PopoverTransitionsEnabledPropertyInfo -instance AttrInfo PopoverTransitionsEnabledPropertyInfo where - type AttrAllowedOps PopoverTransitionsEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverTransitionsEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PopoverTransitionsEnabledPropertyInfo = PopoverK - type AttrGetType PopoverTransitionsEnabledPropertyInfo = Bool - type AttrLabel PopoverTransitionsEnabledPropertyInfo = "transitions-enabled" - attrGet _ = getPopoverTransitionsEnabled - attrSet _ = setPopoverTransitionsEnabled - attrConstruct _ = constructPopoverTransitionsEnabled - attrClear _ = undefined - -type instance AttributeList Popover = PopoverAttributeList -type PopoverAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -popoverModal :: AttrLabelProxy "modal" -popoverModal = AttrLabelProxy - -popoverPointingTo :: AttrLabelProxy "pointingTo" -popoverPointingTo = AttrLabelProxy - -popoverPosition :: AttrLabelProxy "position" -popoverPosition = AttrLabelProxy - -popoverRelativeTo :: AttrLabelProxy "relativeTo" -popoverRelativeTo = AttrLabelProxy - -popoverTransitionsEnabled :: AttrLabelProxy "transitionsEnabled" -popoverTransitionsEnabled = AttrLabelProxy - -data PopoverClosedSignalInfo -instance SignalInfo PopoverClosedSignalInfo where - type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback - connectSignal _ = connectPopoverClosed - -type instance SignalList Popover = PopoverSignalList -type PopoverSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Popover::new --- method type : Constructor --- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Popover") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_new" gtk_popover_new :: - Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget" - IO (Ptr Popover) - - -popoverNew :: - (MonadIO m, WidgetK a) => - Maybe (a) -- relativeTo - -> m Popover -- result -popoverNew relativeTo = liftIO $ do - maybeRelativeTo <- case relativeTo of - Nothing -> return nullPtr - Just jRelativeTo -> do - let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo - return jRelativeTo' - result <- gtk_popover_new maybeRelativeTo - checkUnexpectedReturnNULL "gtk_popover_new" result - result' <- (newObject Popover) result - whenJust relativeTo touchManagedPtr - return result' - --- method Popover::new_from_model --- method type : Constructor --- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Popover") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_new_from_model" gtk_popover_new_from_model :: - Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget" - Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel" - IO (Ptr Popover) - - -popoverNewFromModel :: - (MonadIO m, WidgetK a, Gio.MenuModelK b) => - Maybe (a) -- relativeTo - -> b -- model - -> m Popover -- result -popoverNewFromModel relativeTo model = liftIO $ do - maybeRelativeTo <- case relativeTo of - Nothing -> return nullPtr - Just jRelativeTo -> do - let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo - return jRelativeTo' - let model' = unsafeManagedPtrCastPtr model - result <- gtk_popover_new_from_model maybeRelativeTo model' - checkUnexpectedReturnNULL "gtk_popover_new_from_model" result - result' <- (newObject Popover) result - whenJust relativeTo touchManagedPtr - touchManagedPtr model - return result' - --- method Popover::bind_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_bind_model" gtk_popover_bind_model :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - Ptr Gio.MenuModel -> -- model : TInterface "Gio" "MenuModel" - CString -> -- action_namespace : TBasicType TUTF8 - IO () - - -popoverBindModel :: - (MonadIO m, PopoverK a, Gio.MenuModelK b) => - a -- _obj - -> Maybe (b) -- model - -> Maybe (T.Text) -- actionNamespace - -> m () -- result -popoverBindModel _obj model actionNamespace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - maybeActionNamespace <- case actionNamespace of - Nothing -> return nullPtr - Just jActionNamespace -> do - jActionNamespace' <- textToCString jActionNamespace - return jActionNamespace' - gtk_popover_bind_model _obj' maybeModel maybeActionNamespace - touchManagedPtr _obj - whenJust model touchManagedPtr - freeMem maybeActionNamespace - return () - -data PopoverBindModelMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> m ()), MonadIO m, PopoverK a, Gio.MenuModelK b) => MethodInfo PopoverBindModelMethodInfo a signature where - overloadedMethod _ = popoverBindModel - --- method Popover::get_default_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_get_default_widget" gtk_popover_get_default_widget :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - IO (Ptr Widget) - - -popoverGetDefaultWidget :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m Widget -- result -popoverGetDefaultWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_default_widget _obj' - checkUnexpectedReturnNULL "gtk_popover_get_default_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data PopoverGetDefaultWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, PopoverK a) => MethodInfo PopoverGetDefaultWidgetMethodInfo a signature where - overloadedMethod _ = popoverGetDefaultWidget - --- method Popover::get_modal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", 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 "gtk_popover_get_modal" gtk_popover_get_modal :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - IO CInt - - -popoverGetModal :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m Bool -- result -popoverGetModal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_modal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PopoverGetModalMethodInfo -instance (signature ~ (m Bool), MonadIO m, PopoverK a) => MethodInfo PopoverGetModalMethodInfo a signature where - overloadedMethod _ = popoverGetModal - --- method Popover::get_pointing_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_get_pointing_to" gtk_popover_get_pointing_to :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -popoverGetPointingTo :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m (Bool,Gdk.Rectangle) -- result -popoverGetPointingTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_popover_get_pointing_to _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return (result', rect') - -data PopoverGetPointingToMethodInfo -instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, PopoverK a) => MethodInfo PopoverGetPointingToMethodInfo a signature where - overloadedMethod _ = popoverGetPointingTo - --- method Popover::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_get_position" gtk_popover_get_position :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - IO CUInt - - -popoverGetPosition :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m PositionType -- result -popoverGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PopoverGetPositionMethodInfo -instance (signature ~ (m PositionType), MonadIO m, PopoverK a) => MethodInfo PopoverGetPositionMethodInfo a signature where - overloadedMethod _ = popoverGetPosition - --- method Popover::get_relative_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_get_relative_to" gtk_popover_get_relative_to :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - IO (Ptr Widget) - - -popoverGetRelativeTo :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m Widget -- result -popoverGetRelativeTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_relative_to _obj' - checkUnexpectedReturnNULL "gtk_popover_get_relative_to" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data PopoverGetRelativeToMethodInfo -instance (signature ~ (m Widget), MonadIO m, PopoverK a) => MethodInfo PopoverGetRelativeToMethodInfo a signature where - overloadedMethod _ = popoverGetRelativeTo - --- method Popover::get_transitions_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", 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 "gtk_popover_get_transitions_enabled" gtk_popover_get_transitions_enabled :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - IO CInt - - -popoverGetTransitionsEnabled :: - (MonadIO m, PopoverK a) => - a -- _obj - -> m Bool -- result -popoverGetTransitionsEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_transitions_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PopoverGetTransitionsEnabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, PopoverK a) => MethodInfo PopoverGetTransitionsEnabledMethodInfo a signature where - overloadedMethod _ = popoverGetTransitionsEnabled - --- method Popover::set_default_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_set_default_widget" gtk_popover_set_default_widget :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -popoverSetDefaultWidget :: - (MonadIO m, PopoverK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- widget - -> m () -- result -popoverSetDefaultWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_popover_set_default_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - -data PopoverSetDefaultWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PopoverK a, WidgetK b) => MethodInfo PopoverSetDefaultWidgetMethodInfo a signature where - overloadedMethod _ = popoverSetDefaultWidget - --- method Popover::set_modal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", 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 "gtk_popover_set_modal" gtk_popover_set_modal :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - CInt -> -- modal : TBasicType TBoolean - IO () - - -popoverSetModal :: - (MonadIO m, PopoverK a) => - a -- _obj - -> Bool -- modal - -> m () -- result -popoverSetModal _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gtk_popover_set_modal _obj' modal' - touchManagedPtr _obj - return () - -data PopoverSetModalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetModalMethodInfo a signature where - overloadedMethod _ = popoverSetModal - --- method Popover::set_pointing_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", 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 "gtk_popover_set_pointing_to" gtk_popover_set_pointing_to :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -popoverSetPointingTo :: - (MonadIO m, PopoverK a) => - a -- _obj - -> Gdk.Rectangle -- rect - -> m () -- result -popoverSetPointingTo _obj rect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rect' = unsafeManagedPtrGetPtr rect - gtk_popover_set_pointing_to _obj' rect' - touchManagedPtr _obj - touchManagedPtr rect - return () - -data PopoverSetPointingToMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetPointingToMethodInfo a signature where - overloadedMethod _ = popoverSetPointingTo - --- method Popover::set_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", 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 "gtk_popover_set_position" gtk_popover_set_position :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - CUInt -> -- position : TInterface "Gtk" "PositionType" - IO () - - -popoverSetPosition :: - (MonadIO m, PopoverK a) => - a -- _obj - -> PositionType -- position - -> m () -- result -popoverSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_popover_set_position _obj' position' - touchManagedPtr _obj - return () - -data PopoverSetPositionMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetPositionMethodInfo a signature where - overloadedMethod _ = popoverSetPosition - --- method Popover::set_relative_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_set_relative_to" gtk_popover_set_relative_to :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - Ptr Widget -> -- relative_to : TInterface "Gtk" "Widget" - IO () - - -popoverSetRelativeTo :: - (MonadIO m, PopoverK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- relativeTo - -> m () -- result -popoverSetRelativeTo _obj relativeTo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRelativeTo <- case relativeTo of - Nothing -> return nullPtr - Just jRelativeTo -> do - let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo - return jRelativeTo' - gtk_popover_set_relative_to _obj' maybeRelativeTo - touchManagedPtr _obj - whenJust relativeTo touchManagedPtr - return () - -data PopoverSetRelativeToMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PopoverK a, WidgetK b) => MethodInfo PopoverSetRelativeToMethodInfo a signature where - overloadedMethod _ = popoverSetRelativeTo - --- method Popover::set_transitions_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transitions_enabled", 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 "gtk_popover_set_transitions_enabled" gtk_popover_set_transitions_enabled :: - Ptr Popover -> -- _obj : TInterface "Gtk" "Popover" - CInt -> -- transitions_enabled : TBasicType TBoolean - IO () - - -popoverSetTransitionsEnabled :: - (MonadIO m, PopoverK a) => - a -- _obj - -> Bool -- transitionsEnabled - -> m () -- result -popoverSetTransitionsEnabled _obj transitionsEnabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transitionsEnabled' = (fromIntegral . fromEnum) transitionsEnabled - gtk_popover_set_transitions_enabled _obj' transitionsEnabled' - touchManagedPtr _obj - return () - -data PopoverSetTransitionsEnabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetTransitionsEnabledMethodInfo a signature where - overloadedMethod _ = popoverSetTransitionsEnabled - - diff --git a/GI/Gtk/Objects/Popover.hs-boot b/GI/Gtk/Objects/Popover.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Popover.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.Popover 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 Popover = Popover (ForeignPtr Popover) -instance GObject Popover where -class GObject o => PopoverK o -instance (GObject o, IsDescendantOf Popover o) => PopoverK o -data PopoverModalPropertyInfo -data PopoverPointingToPropertyInfo -data PopoverPositionPropertyInfo -data PopoverRelativeToPropertyInfo -data PopoverTransitionsEnabledPropertyInfo -data PopoverClosedSignalInfo -data PopoverBindModelMethodInfo -data PopoverGetDefaultWidgetMethodInfo -data PopoverGetModalMethodInfo -data PopoverGetPointingToMethodInfo -data PopoverGetPositionMethodInfo -data PopoverGetRelativeToMethodInfo -data PopoverGetTransitionsEnabledMethodInfo -data PopoverSetDefaultWidgetMethodInfo -data PopoverSetModalMethodInfo -data PopoverSetPointingToMethodInfo -data PopoverSetPositionMethodInfo -data PopoverSetRelativeToMethodInfo -data PopoverSetTransitionsEnabledMethodInfo diff --git a/GI/Gtk/Objects/PopoverAccessible.hs b/GI/Gtk/Objects/PopoverAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PopoverAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.PopoverAccessible - ( - --- * Exported types - PopoverAccessible(..) , - PopoverAccessibleK , - toPopoverAccessible , - noPopoverAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype PopoverAccessible = PopoverAccessible (ForeignPtr PopoverAccessible) -foreign import ccall "gtk_popover_accessible_get_type" - c_gtk_popover_accessible_get_type :: IO GType - -type instance ParentTypes PopoverAccessible = PopoverAccessibleParentTypes -type PopoverAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject PopoverAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_popover_accessible_get_type - - -class GObject o => PopoverAccessibleK o -instance (GObject o, IsDescendantOf PopoverAccessible o) => PopoverAccessibleK o - -toPopoverAccessible :: PopoverAccessibleK o => o -> IO PopoverAccessible -toPopoverAccessible = unsafeCastTo PopoverAccessible - -noPopoverAccessible :: Maybe PopoverAccessible -noPopoverAccessible = Nothing - -type family ResolvePopoverAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolvePopoverAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolvePopoverAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePopoverAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePopoverAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolvePopoverAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolvePopoverAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePopoverAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePopoverAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolvePopoverAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolvePopoverAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePopoverAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePopoverAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePopoverAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolvePopoverAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolvePopoverAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePopoverAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolvePopoverAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolvePopoverAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolvePopoverAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePopoverAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolvePopoverAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolvePopoverAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolvePopoverAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolvePopoverAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePopoverAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePopoverAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePopoverAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePopoverAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePopoverAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePopoverAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePopoverAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePopoverAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolvePopoverAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolvePopoverAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePopoverAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolvePopoverAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolvePopoverAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolvePopoverAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolvePopoverAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolvePopoverAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolvePopoverAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolvePopoverAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolvePopoverAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePopoverAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePopoverAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolvePopoverAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolvePopoverAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolvePopoverAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePopoverAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolvePopoverAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolvePopoverAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolvePopoverAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolvePopoverAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolvePopoverAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePopoverAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolvePopoverAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolvePopoverAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolvePopoverAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePopoverAccessibleMethod t PopoverAccessible, MethodInfo info PopoverAccessible p) => IsLabelProxy t (PopoverAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePopoverAccessibleMethod t PopoverAccessible, MethodInfo info PopoverAccessible p) => IsLabel t (PopoverAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PopoverAccessible = PopoverAccessibleAttributeList -type PopoverAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PopoverAccessible = PopoverAccessibleSignalList -type PopoverAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/PopoverAccessible.hs-boot b/GI/Gtk/Objects/PopoverAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PopoverAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.PopoverAccessible 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 PopoverAccessible = PopoverAccessible (ForeignPtr PopoverAccessible) -instance GObject PopoverAccessible where -class GObject o => PopoverAccessibleK o -instance (GObject o, IsDescendantOf PopoverAccessible o) => PopoverAccessibleK o diff --git a/GI/Gtk/Objects/PopoverMenu.hs b/GI/Gtk/Objects/PopoverMenu.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PopoverMenu.hs +++ /dev/null @@ -1,505 +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.Gtk.Objects.PopoverMenu - ( - --- * Exported types - PopoverMenu(..) , - PopoverMenuK , - toPopoverMenu , - noPopoverMenu , - - - -- * Methods --- ** popoverMenuNew - popoverMenuNew , - - --- ** popoverMenuOpenSubmenu - PopoverMenuOpenSubmenuMethodInfo , - popoverMenuOpenSubmenu , - - - - - -- * Properties --- ** VisibleSubmenu - PopoverMenuVisibleSubmenuPropertyInfo , - clearPopoverMenuVisibleSubmenu , - constructPopoverMenuVisibleSubmenu , - getPopoverMenuVisibleSubmenu , - popoverMenuVisibleSubmenu , - setPopoverMenuVisibleSubmenu , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype PopoverMenu = PopoverMenu (ForeignPtr PopoverMenu) -foreign import ccall "gtk_popover_menu_get_type" - c_gtk_popover_menu_get_type :: IO GType - -type instance ParentTypes PopoverMenu = PopoverMenuParentTypes -type PopoverMenuParentTypes = '[Popover, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject PopoverMenu where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_popover_menu_get_type - - -class GObject o => PopoverMenuK o -instance (GObject o, IsDescendantOf PopoverMenu o) => PopoverMenuK o - -toPopoverMenu :: PopoverMenuK o => o -> IO PopoverMenu -toPopoverMenu = unsafeCastTo PopoverMenu - -noPopoverMenu :: Maybe PopoverMenu -noPopoverMenu = Nothing - -type family ResolvePopoverMenuMethod (t :: Symbol) (o :: *) :: * where - ResolvePopoverMenuMethod "activate" o = WidgetActivateMethodInfo - ResolvePopoverMenuMethod "add" o = ContainerAddMethodInfo - ResolvePopoverMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolvePopoverMenuMethod "addChild" o = BuildableAddChildMethodInfo - ResolvePopoverMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolvePopoverMenuMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolvePopoverMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolvePopoverMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolvePopoverMenuMethod "bindModel" o = PopoverBindModelMethodInfo - ResolvePopoverMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePopoverMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePopoverMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolvePopoverMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolvePopoverMenuMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolvePopoverMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolvePopoverMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolvePopoverMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolvePopoverMenuMethod "childType" o = ContainerChildTypeMethodInfo - ResolvePopoverMenuMethod "classPath" o = WidgetClassPathMethodInfo - ResolvePopoverMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolvePopoverMenuMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolvePopoverMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolvePopoverMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolvePopoverMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolvePopoverMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolvePopoverMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolvePopoverMenuMethod "destroy" o = WidgetDestroyMethodInfo - ResolvePopoverMenuMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolvePopoverMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolvePopoverMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolvePopoverMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolvePopoverMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolvePopoverMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolvePopoverMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolvePopoverMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolvePopoverMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolvePopoverMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolvePopoverMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolvePopoverMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolvePopoverMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolvePopoverMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolvePopoverMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolvePopoverMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolvePopoverMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolvePopoverMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolvePopoverMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolvePopoverMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolvePopoverMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolvePopoverMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolvePopoverMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolvePopoverMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolvePopoverMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolvePopoverMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolvePopoverMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolvePopoverMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolvePopoverMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolvePopoverMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolvePopoverMenuMethod "draw" o = WidgetDrawMethodInfo - ResolvePopoverMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolvePopoverMenuMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolvePopoverMenuMethod "event" o = WidgetEventMethodInfo - ResolvePopoverMenuMethod "forall" o = ContainerForallMethodInfo - ResolvePopoverMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePopoverMenuMethod "foreach" o = ContainerForeachMethodInfo - ResolvePopoverMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolvePopoverMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePopoverMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolvePopoverMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolvePopoverMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolvePopoverMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolvePopoverMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolvePopoverMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolvePopoverMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolvePopoverMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolvePopoverMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolvePopoverMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolvePopoverMenuMethod "hide" o = WidgetHideMethodInfo - ResolvePopoverMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolvePopoverMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolvePopoverMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolvePopoverMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolvePopoverMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolvePopoverMenuMethod "intersect" o = WidgetIntersectMethodInfo - ResolvePopoverMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolvePopoverMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolvePopoverMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolvePopoverMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePopoverMenuMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolvePopoverMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolvePopoverMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolvePopoverMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolvePopoverMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolvePopoverMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolvePopoverMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolvePopoverMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolvePopoverMenuMethod "map" o = WidgetMapMethodInfo - ResolvePopoverMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolvePopoverMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolvePopoverMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolvePopoverMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolvePopoverMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolvePopoverMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolvePopoverMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolvePopoverMenuMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolvePopoverMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePopoverMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePopoverMenuMethod "openSubmenu" o = PopoverMenuOpenSubmenuMethodInfo - ResolvePopoverMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolvePopoverMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolvePopoverMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolvePopoverMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolvePopoverMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolvePopoverMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolvePopoverMenuMethod "path" o = WidgetPathMethodInfo - ResolvePopoverMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolvePopoverMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolvePopoverMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolvePopoverMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolvePopoverMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolvePopoverMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolvePopoverMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolvePopoverMenuMethod "realize" o = WidgetRealizeMethodInfo - ResolvePopoverMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePopoverMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePopoverMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolvePopoverMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolvePopoverMenuMethod "remove" o = ContainerRemoveMethodInfo - ResolvePopoverMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolvePopoverMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolvePopoverMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolvePopoverMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolvePopoverMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolvePopoverMenuMethod "reparent" o = WidgetReparentMethodInfo - ResolvePopoverMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePopoverMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePopoverMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolvePopoverMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolvePopoverMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolvePopoverMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePopoverMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolvePopoverMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolvePopoverMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolvePopoverMenuMethod "show" o = WidgetShowMethodInfo - ResolvePopoverMenuMethod "showAll" o = WidgetShowAllMethodInfo - ResolvePopoverMenuMethod "showNow" o = WidgetShowNowMethodInfo - ResolvePopoverMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolvePopoverMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolvePopoverMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolvePopoverMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePopoverMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePopoverMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolvePopoverMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolvePopoverMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolvePopoverMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePopoverMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolvePopoverMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolvePopoverMenuMethod "unmap" o = WidgetUnmapMethodInfo - ResolvePopoverMenuMethod "unparent" o = WidgetUnparentMethodInfo - ResolvePopoverMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolvePopoverMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePopoverMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolvePopoverMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolvePopoverMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolvePopoverMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePopoverMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolvePopoverMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolvePopoverMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolvePopoverMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolvePopoverMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolvePopoverMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolvePopoverMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolvePopoverMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolvePopoverMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolvePopoverMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolvePopoverMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolvePopoverMenuMethod "getChild" o = BinGetChildMethodInfo - ResolvePopoverMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolvePopoverMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolvePopoverMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolvePopoverMenuMethod "getClip" o = WidgetGetClipMethodInfo - ResolvePopoverMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolvePopoverMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolvePopoverMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePopoverMenuMethod "getDefaultWidget" o = PopoverGetDefaultWidgetMethodInfo - ResolvePopoverMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolvePopoverMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolvePopoverMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolvePopoverMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolvePopoverMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolvePopoverMenuMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolvePopoverMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolvePopoverMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolvePopoverMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolvePopoverMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolvePopoverMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolvePopoverMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolvePopoverMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolvePopoverMenuMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolvePopoverMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolvePopoverMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolvePopoverMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolvePopoverMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolvePopoverMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolvePopoverMenuMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolvePopoverMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolvePopoverMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolvePopoverMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolvePopoverMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolvePopoverMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolvePopoverMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolvePopoverMenuMethod "getModal" o = PopoverGetModalMethodInfo - ResolvePopoverMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolvePopoverMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolvePopoverMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolvePopoverMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolvePopoverMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolvePopoverMenuMethod "getParent" o = WidgetGetParentMethodInfo - ResolvePopoverMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolvePopoverMenuMethod "getPath" o = WidgetGetPathMethodInfo - ResolvePopoverMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolvePopoverMenuMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolvePopoverMenuMethod "getPointingTo" o = PopoverGetPointingToMethodInfo - ResolvePopoverMenuMethod "getPosition" o = PopoverGetPositionMethodInfo - ResolvePopoverMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolvePopoverMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolvePopoverMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolvePopoverMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolvePopoverMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolvePopoverMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolvePopoverMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePopoverMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePopoverMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolvePopoverMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolvePopoverMenuMethod "getRelativeTo" o = PopoverGetRelativeToMethodInfo - ResolvePopoverMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolvePopoverMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolvePopoverMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolvePopoverMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolvePopoverMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolvePopoverMenuMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolvePopoverMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolvePopoverMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolvePopoverMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolvePopoverMenuMethod "getState" o = WidgetGetStateMethodInfo - ResolvePopoverMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolvePopoverMenuMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolvePopoverMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolvePopoverMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolvePopoverMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolvePopoverMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolvePopoverMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolvePopoverMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolvePopoverMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolvePopoverMenuMethod "getTransitionsEnabled" o = PopoverGetTransitionsEnabledMethodInfo - ResolvePopoverMenuMethod "getValign" o = WidgetGetValignMethodInfo - ResolvePopoverMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolvePopoverMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolvePopoverMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolvePopoverMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolvePopoverMenuMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolvePopoverMenuMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolvePopoverMenuMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolvePopoverMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolvePopoverMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolvePopoverMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolvePopoverMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolvePopoverMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolvePopoverMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolvePopoverMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolvePopoverMenuMethod "setClip" o = WidgetSetClipMethodInfo - ResolvePopoverMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolvePopoverMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePopoverMenuMethod "setDefaultWidget" o = PopoverSetDefaultWidgetMethodInfo - ResolvePopoverMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolvePopoverMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolvePopoverMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolvePopoverMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolvePopoverMenuMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolvePopoverMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolvePopoverMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolvePopoverMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolvePopoverMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolvePopoverMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolvePopoverMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolvePopoverMenuMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolvePopoverMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolvePopoverMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolvePopoverMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolvePopoverMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolvePopoverMenuMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolvePopoverMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolvePopoverMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolvePopoverMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolvePopoverMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolvePopoverMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolvePopoverMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolvePopoverMenuMethod "setModal" o = PopoverSetModalMethodInfo - ResolvePopoverMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolvePopoverMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolvePopoverMenuMethod "setParent" o = WidgetSetParentMethodInfo - ResolvePopoverMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolvePopoverMenuMethod "setPointingTo" o = PopoverSetPointingToMethodInfo - ResolvePopoverMenuMethod "setPosition" o = PopoverSetPositionMethodInfo - ResolvePopoverMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePopoverMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolvePopoverMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolvePopoverMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolvePopoverMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolvePopoverMenuMethod "setRelativeTo" o = PopoverSetRelativeToMethodInfo - ResolvePopoverMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolvePopoverMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolvePopoverMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolvePopoverMenuMethod "setState" o = WidgetSetStateMethodInfo - ResolvePopoverMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolvePopoverMenuMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolvePopoverMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolvePopoverMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolvePopoverMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolvePopoverMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolvePopoverMenuMethod "setTransitionsEnabled" o = PopoverSetTransitionsEnabledMethodInfo - ResolvePopoverMenuMethod "setValign" o = WidgetSetValignMethodInfo - ResolvePopoverMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolvePopoverMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolvePopoverMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolvePopoverMenuMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolvePopoverMenuMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolvePopoverMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePopoverMenuMethod t PopoverMenu, MethodInfo info PopoverMenu p) => IsLabelProxy t (PopoverMenu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePopoverMenuMethod t PopoverMenu, MethodInfo info PopoverMenu p) => IsLabel t (PopoverMenu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "visible-submenu" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m (Maybe T.Text) -getPopoverMenuVisibleSubmenu obj = liftIO $ getObjectPropertyString obj "visible-submenu" - -setPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> T.Text -> m () -setPopoverMenuVisibleSubmenu obj val = liftIO $ setObjectPropertyString obj "visible-submenu" (Just val) - -constructPopoverMenuVisibleSubmenu :: T.Text -> IO ([Char], GValue) -constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" (Just val) - -clearPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m () -clearPopoverMenuVisibleSubmenu obj = liftIO $ setObjectPropertyString obj "visible-submenu" (Nothing :: Maybe T.Text) - -data PopoverMenuVisibleSubmenuPropertyInfo -instance AttrInfo PopoverMenuVisibleSubmenuPropertyInfo where - type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK - type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = (Maybe T.Text) - type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "visible-submenu" - attrGet _ = getPopoverMenuVisibleSubmenu - attrSet _ = setPopoverMenuVisibleSubmenu - attrConstruct _ = constructPopoverMenuVisibleSubmenu - attrClear _ = clearPopoverMenuVisibleSubmenu - -type instance AttributeList PopoverMenu = PopoverMenuAttributeList -type PopoverMenuAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleSubmenu", PopoverMenuVisibleSubmenuPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -popoverMenuVisibleSubmenu :: AttrLabelProxy "visibleSubmenu" -popoverMenuVisibleSubmenu = AttrLabelProxy - -type instance SignalList PopoverMenu = PopoverMenuSignalList -type PopoverMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method PopoverMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PopoverMenu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_popover_menu_new" gtk_popover_menu_new :: - IO (Ptr PopoverMenu) - - -popoverMenuNew :: - (MonadIO m) => - m PopoverMenu -- result -popoverMenuNew = liftIO $ do - result <- gtk_popover_menu_new - checkUnexpectedReturnNULL "gtk_popover_menu_new" result - result' <- (newObject PopoverMenu) result - return result' - --- method PopoverMenu::open_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PopoverMenu", 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 "gtk_popover_menu_open_submenu" gtk_popover_menu_open_submenu :: - Ptr PopoverMenu -> -- _obj : TInterface "Gtk" "PopoverMenu" - CString -> -- name : TBasicType TUTF8 - IO () - - -popoverMenuOpenSubmenu :: - (MonadIO m, PopoverMenuK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -popoverMenuOpenSubmenu _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_popover_menu_open_submenu _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data PopoverMenuOpenSubmenuMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PopoverMenuK a) => MethodInfo PopoverMenuOpenSubmenuMethodInfo a signature where - overloadedMethod _ = popoverMenuOpenSubmenu - - diff --git a/GI/Gtk/Objects/PopoverMenu.hs-boot b/GI/Gtk/Objects/PopoverMenu.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PopoverMenu.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.PopoverMenu 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 PopoverMenu = PopoverMenu (ForeignPtr PopoverMenu) -instance GObject PopoverMenu where -class GObject o => PopoverMenuK o -instance (GObject o, IsDescendantOf PopoverMenu o) => PopoverMenuK o -data PopoverMenuVisibleSubmenuPropertyInfo -data PopoverMenuOpenSubmenuMethodInfo diff --git a/GI/Gtk/Objects/PrintContext.hs b/GI/Gtk/Objects/PrintContext.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PrintContext.hs +++ /dev/null @@ -1,505 +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.Gtk.Objects.PrintContext - ( - --- * Exported types - PrintContext(..) , - PrintContextK , - toPrintContext , - noPrintContext , - - - -- * Methods --- ** printContextCreatePangoContext - PrintContextCreatePangoContextMethodInfo, - printContextCreatePangoContext , - - --- ** printContextCreatePangoLayout - PrintContextCreatePangoLayoutMethodInfo , - printContextCreatePangoLayout , - - --- ** printContextGetCairoContext - PrintContextGetCairoContextMethodInfo , - printContextGetCairoContext , - - --- ** printContextGetDpiX - PrintContextGetDpiXMethodInfo , - printContextGetDpiX , - - --- ** printContextGetDpiY - PrintContextGetDpiYMethodInfo , - printContextGetDpiY , - - --- ** printContextGetHardMargins - PrintContextGetHardMarginsMethodInfo , - printContextGetHardMargins , - - --- ** printContextGetHeight - PrintContextGetHeightMethodInfo , - printContextGetHeight , - - --- ** printContextGetPageSetup - PrintContextGetPageSetupMethodInfo , - printContextGetPageSetup , - - --- ** printContextGetPangoFontmap - PrintContextGetPangoFontmapMethodInfo , - printContextGetPangoFontmap , - - --- ** printContextGetWidth - PrintContextGetWidthMethodInfo , - printContextGetWidth , - - --- ** printContextSetCairoContext - PrintContextSetCairoContextMethodInfo , - printContextSetCairoContext , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - -newtype PrintContext = PrintContext (ForeignPtr PrintContext) -foreign import ccall "gtk_print_context_get_type" - c_gtk_print_context_get_type :: IO GType - -type instance ParentTypes PrintContext = PrintContextParentTypes -type PrintContextParentTypes = '[GObject.Object] - -instance GObject PrintContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_print_context_get_type - - -class GObject o => PrintContextK o -instance (GObject o, IsDescendantOf PrintContext o) => PrintContextK o - -toPrintContext :: PrintContextK o => o -> IO PrintContext -toPrintContext = unsafeCastTo PrintContext - -noPrintContext :: Maybe PrintContext -noPrintContext = Nothing - -type family ResolvePrintContextMethod (t :: Symbol) (o :: *) :: * where - ResolvePrintContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePrintContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePrintContextMethod "createPangoContext" o = PrintContextCreatePangoContextMethodInfo - ResolvePrintContextMethod "createPangoLayout" o = PrintContextCreatePangoLayoutMethodInfo - ResolvePrintContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePrintContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePrintContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePrintContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePrintContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePrintContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePrintContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePrintContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePrintContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePrintContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePrintContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePrintContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePrintContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePrintContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePrintContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePrintContextMethod "getCairoContext" o = PrintContextGetCairoContextMethodInfo - ResolvePrintContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePrintContextMethod "getDpiX" o = PrintContextGetDpiXMethodInfo - ResolvePrintContextMethod "getDpiY" o = PrintContextGetDpiYMethodInfo - ResolvePrintContextMethod "getHardMargins" o = PrintContextGetHardMarginsMethodInfo - ResolvePrintContextMethod "getHeight" o = PrintContextGetHeightMethodInfo - ResolvePrintContextMethod "getPageSetup" o = PrintContextGetPageSetupMethodInfo - ResolvePrintContextMethod "getPangoFontmap" o = PrintContextGetPangoFontmapMethodInfo - ResolvePrintContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePrintContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePrintContextMethod "getWidth" o = PrintContextGetWidthMethodInfo - ResolvePrintContextMethod "setCairoContext" o = PrintContextSetCairoContextMethodInfo - ResolvePrintContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePrintContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePrintContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePrintContextMethod t PrintContext, MethodInfo info PrintContext p) => IsLabelProxy t (PrintContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePrintContextMethod t PrintContext, MethodInfo info PrintContext p) => IsLabel t (PrintContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PrintContext = PrintContextAttributeList -type PrintContextAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PrintContext = PrintContextSignalList -type PrintContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintContext::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_context_create_pango_context" gtk_print_context_create_pango_context :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO (Ptr Pango.Context) - - -printContextCreatePangoContext :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Pango.Context -- result -printContextCreatePangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_create_pango_context _obj' - checkUnexpectedReturnNULL "gtk_print_context_create_pango_context" result - result' <- (wrapObject Pango.Context) result - touchManagedPtr _obj - return result' - -data PrintContextCreatePangoContextMethodInfo -instance (signature ~ (m Pango.Context), MonadIO m, PrintContextK a) => MethodInfo PrintContextCreatePangoContextMethodInfo a signature where - overloadedMethod _ = printContextCreatePangoContext - --- method PrintContext::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_context_create_pango_layout" gtk_print_context_create_pango_layout :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO (Ptr Pango.Layout) - - -printContextCreatePangoLayout :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Pango.Layout -- result -printContextCreatePangoLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_create_pango_layout _obj' - checkUnexpectedReturnNULL "gtk_print_context_create_pango_layout" result - result' <- (wrapObject Pango.Layout) result - touchManagedPtr _obj - return result' - -data PrintContextCreatePangoLayoutMethodInfo -instance (signature ~ (m Pango.Layout), MonadIO m, PrintContextK a) => MethodInfo PrintContextCreatePangoLayoutMethodInfo a signature where - overloadedMethod _ = printContextCreatePangoLayout - --- method PrintContext::get_cairo_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_context_get_cairo_context" gtk_print_context_get_cairo_context :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO (Ptr Cairo.Context) - - -printContextGetCairoContext :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Cairo.Context -- result -printContextGetCairoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_cairo_context _obj' - checkUnexpectedReturnNULL "gtk_print_context_get_cairo_context" result - result' <- (newBoxed Cairo.Context) result - touchManagedPtr _obj - return result' - -data PrintContextGetCairoContextMethodInfo -instance (signature ~ (m Cairo.Context), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetCairoContextMethodInfo a signature where - overloadedMethod _ = printContextGetCairoContext - --- method PrintContext::get_dpi_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", 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 "gtk_print_context_get_dpi_x" gtk_print_context_get_dpi_x :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO CDouble - - -printContextGetDpiX :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Double -- result -printContextGetDpiX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_dpi_x _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintContextGetDpiXMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetDpiXMethodInfo a signature where - overloadedMethod _ = printContextGetDpiX - --- method PrintContext::get_dpi_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", 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 "gtk_print_context_get_dpi_y" gtk_print_context_get_dpi_y :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO CDouble - - -printContextGetDpiY :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Double -- result -printContextGetDpiY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_dpi_y _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintContextGetDpiYMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetDpiYMethodInfo a signature where - overloadedMethod _ = printContextGetDpiY - --- method PrintContext::get_hard_margins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "right", argType = TBasicType TDouble, 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 "gtk_print_context_get_hard_margins" gtk_print_context_get_hard_margins :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - Ptr CDouble -> -- top : TBasicType TDouble - Ptr CDouble -> -- bottom : TBasicType TDouble - Ptr CDouble -> -- left : TBasicType TDouble - Ptr CDouble -> -- right : TBasicType TDouble - IO CInt - - -printContextGetHardMargins :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m (Bool,Double,Double,Double,Double) -- result -printContextGetHardMargins _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - top <- allocMem :: IO (Ptr CDouble) - bottom <- allocMem :: IO (Ptr CDouble) - left <- allocMem :: IO (Ptr CDouble) - right <- allocMem :: IO (Ptr CDouble) - result <- gtk_print_context_get_hard_margins _obj' top bottom left right - let result' = (/= 0) result - top' <- peek top - let top'' = realToFrac top' - bottom' <- peek bottom - let bottom'' = realToFrac bottom' - left' <- peek left - let left'' = realToFrac left' - right' <- peek right - let right'' = realToFrac right' - touchManagedPtr _obj - freeMem top - freeMem bottom - freeMem left - freeMem right - return (result', top'', bottom'', left'', right'') - -data PrintContextGetHardMarginsMethodInfo -instance (signature ~ (m (Bool,Double,Double,Double,Double)), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetHardMarginsMethodInfo a signature where - overloadedMethod _ = printContextGetHardMargins - --- method PrintContext::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", 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 "gtk_print_context_get_height" gtk_print_context_get_height :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO CDouble - - -printContextGetHeight :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Double -- result -printContextGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_height _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintContextGetHeightMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetHeightMethodInfo a signature where - overloadedMethod _ = printContextGetHeight - --- method PrintContext::get_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_context_get_page_setup" gtk_print_context_get_page_setup :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO (Ptr PageSetup) - - -printContextGetPageSetup :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m PageSetup -- result -printContextGetPageSetup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_page_setup _obj' - checkUnexpectedReturnNULL "gtk_print_context_get_page_setup" result - result' <- (newObject PageSetup) result - touchManagedPtr _obj - return result' - -data PrintContextGetPageSetupMethodInfo -instance (signature ~ (m PageSetup), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetPageSetupMethodInfo a signature where - overloadedMethod _ = printContextGetPageSetup - --- method PrintContext::get_pango_fontmap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontMap") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_context_get_pango_fontmap" gtk_print_context_get_pango_fontmap :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO (Ptr Pango.FontMap) - - -printContextGetPangoFontmap :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Pango.FontMap -- result -printContextGetPangoFontmap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_pango_fontmap _obj' - checkUnexpectedReturnNULL "gtk_print_context_get_pango_fontmap" result - result' <- (newObject Pango.FontMap) result - touchManagedPtr _obj - return result' - -data PrintContextGetPangoFontmapMethodInfo -instance (signature ~ (m Pango.FontMap), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetPangoFontmapMethodInfo a signature where - overloadedMethod _ = printContextGetPangoFontmap - --- method PrintContext::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", 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 "gtk_print_context_get_width" gtk_print_context_get_width :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - IO CDouble - - -printContextGetWidth :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> m Double -- result -printContextGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_width _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintContextGetWidthMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetWidthMethodInfo a signature where - overloadedMethod _ = printContextGetWidth - --- method PrintContext::set_cairo_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_y", 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 "gtk_print_context_set_cairo_context" gtk_print_context_set_cairo_context :: - Ptr PrintContext -> -- _obj : TInterface "Gtk" "PrintContext" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - CDouble -> -- dpi_x : TBasicType TDouble - CDouble -> -- dpi_y : TBasicType TDouble - IO () - - -printContextSetCairoContext :: - (MonadIO m, PrintContextK a) => - a -- _obj - -> Cairo.Context -- cr - -> Double -- dpiX - -> Double -- dpiY - -> m () -- result -printContextSetCairoContext _obj cr dpiX dpiY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let dpiX' = realToFrac dpiX - let dpiY' = realToFrac dpiY - gtk_print_context_set_cairo_context _obj' cr' dpiX' dpiY' - touchManagedPtr _obj - touchManagedPtr cr - return () - -data PrintContextSetCairoContextMethodInfo -instance (signature ~ (Cairo.Context -> Double -> Double -> m ()), MonadIO m, PrintContextK a) => MethodInfo PrintContextSetCairoContextMethodInfo a signature where - overloadedMethod _ = printContextSetCairoContext - - diff --git a/GI/Gtk/Objects/PrintContext.hs-boot b/GI/Gtk/Objects/PrintContext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PrintContext.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.PrintContext 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 PrintContext = PrintContext (ForeignPtr PrintContext) -instance GObject PrintContext where -class GObject o => PrintContextK o -instance (GObject o, IsDescendantOf PrintContext o) => PrintContextK o -data PrintContextCreatePangoContextMethodInfo -data PrintContextCreatePangoLayoutMethodInfo -data PrintContextGetCairoContextMethodInfo -data PrintContextGetDpiXMethodInfo -data PrintContextGetDpiYMethodInfo -data PrintContextGetHardMarginsMethodInfo -data PrintContextGetHeightMethodInfo -data PrintContextGetPageSetupMethodInfo -data PrintContextGetPangoFontmapMethodInfo -data PrintContextGetWidthMethodInfo -data PrintContextSetCairoContextMethodInfo diff --git a/GI/Gtk/Objects/PrintOperation.hs b/GI/Gtk/Objects/PrintOperation.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PrintOperation.hs +++ /dev/null @@ -1,2515 +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.Gtk.Objects.PrintOperation - ( - --- * Exported types - PrintOperation(..) , - PrintOperationK , - toPrintOperation , - noPrintOperation , - - - -- * Methods --- ** printOperationCancel - PrintOperationCancelMethodInfo , - printOperationCancel , - - --- ** printOperationDrawPageFinish - PrintOperationDrawPageFinishMethodInfo , - printOperationDrawPageFinish , - - --- ** printOperationGetDefaultPageSetup - PrintOperationGetDefaultPageSetupMethodInfo, - printOperationGetDefaultPageSetup , - - --- ** printOperationGetEmbedPageSetup - PrintOperationGetEmbedPageSetupMethodInfo, - printOperationGetEmbedPageSetup , - - --- ** printOperationGetError - PrintOperationGetErrorMethodInfo , - printOperationGetError , - - --- ** printOperationGetHasSelection - PrintOperationGetHasSelectionMethodInfo , - printOperationGetHasSelection , - - --- ** printOperationGetNPagesToPrint - PrintOperationGetNPagesToPrintMethodInfo, - printOperationGetNPagesToPrint , - - --- ** printOperationGetPrintSettings - PrintOperationGetPrintSettingsMethodInfo, - printOperationGetPrintSettings , - - --- ** printOperationGetStatus - PrintOperationGetStatusMethodInfo , - printOperationGetStatus , - - --- ** printOperationGetStatusString - PrintOperationGetStatusStringMethodInfo , - printOperationGetStatusString , - - --- ** printOperationGetSupportSelection - PrintOperationGetSupportSelectionMethodInfo, - printOperationGetSupportSelection , - - --- ** printOperationIsFinished - PrintOperationIsFinishedMethodInfo , - printOperationIsFinished , - - --- ** printOperationNew - printOperationNew , - - --- ** printOperationRun - PrintOperationRunMethodInfo , - printOperationRun , - - --- ** printOperationSetAllowAsync - PrintOperationSetAllowAsyncMethodInfo , - printOperationSetAllowAsync , - - --- ** printOperationSetCurrentPage - PrintOperationSetCurrentPageMethodInfo , - printOperationSetCurrentPage , - - --- ** printOperationSetCustomTabLabel - PrintOperationSetCustomTabLabelMethodInfo, - printOperationSetCustomTabLabel , - - --- ** printOperationSetDefaultPageSetup - PrintOperationSetDefaultPageSetupMethodInfo, - printOperationSetDefaultPageSetup , - - --- ** printOperationSetDeferDrawing - PrintOperationSetDeferDrawingMethodInfo , - printOperationSetDeferDrawing , - - --- ** printOperationSetEmbedPageSetup - PrintOperationSetEmbedPageSetupMethodInfo, - printOperationSetEmbedPageSetup , - - --- ** printOperationSetExportFilename - PrintOperationSetExportFilenameMethodInfo, - printOperationSetExportFilename , - - --- ** printOperationSetHasSelection - PrintOperationSetHasSelectionMethodInfo , - printOperationSetHasSelection , - - --- ** printOperationSetJobName - PrintOperationSetJobNameMethodInfo , - printOperationSetJobName , - - --- ** printOperationSetNPages - PrintOperationSetNPagesMethodInfo , - printOperationSetNPages , - - --- ** printOperationSetPrintSettings - PrintOperationSetPrintSettingsMethodInfo, - printOperationSetPrintSettings , - - --- ** printOperationSetShowProgress - PrintOperationSetShowProgressMethodInfo , - printOperationSetShowProgress , - - --- ** printOperationSetSupportSelection - PrintOperationSetSupportSelectionMethodInfo, - printOperationSetSupportSelection , - - --- ** printOperationSetTrackPrintStatus - PrintOperationSetTrackPrintStatusMethodInfo, - printOperationSetTrackPrintStatus , - - --- ** printOperationSetUnit - PrintOperationSetUnitMethodInfo , - printOperationSetUnit , - - --- ** printOperationSetUseFullPage - PrintOperationSetUseFullPageMethodInfo , - printOperationSetUseFullPage , - - - - - -- * Properties --- ** AllowAsync - PrintOperationAllowAsyncPropertyInfo , - constructPrintOperationAllowAsync , - getPrintOperationAllowAsync , - printOperationAllowAsync , - setPrintOperationAllowAsync , - - --- ** CurrentPage - PrintOperationCurrentPagePropertyInfo , - constructPrintOperationCurrentPage , - getPrintOperationCurrentPage , - printOperationCurrentPage , - setPrintOperationCurrentPage , - - --- ** CustomTabLabel - PrintOperationCustomTabLabelPropertyInfo, - clearPrintOperationCustomTabLabel , - constructPrintOperationCustomTabLabel , - getPrintOperationCustomTabLabel , - printOperationCustomTabLabel , - setPrintOperationCustomTabLabel , - - --- ** DefaultPageSetup - PrintOperationDefaultPageSetupPropertyInfo, - clearPrintOperationDefaultPageSetup , - constructPrintOperationDefaultPageSetup , - getPrintOperationDefaultPageSetup , - printOperationDefaultPageSetup , - setPrintOperationDefaultPageSetup , - - --- ** EmbedPageSetup - PrintOperationEmbedPageSetupPropertyInfo, - constructPrintOperationEmbedPageSetup , - getPrintOperationEmbedPageSetup , - printOperationEmbedPageSetup , - setPrintOperationEmbedPageSetup , - - --- ** ExportFilename - PrintOperationExportFilenamePropertyInfo, - clearPrintOperationExportFilename , - constructPrintOperationExportFilename , - getPrintOperationExportFilename , - printOperationExportFilename , - setPrintOperationExportFilename , - - --- ** HasSelection - PrintOperationHasSelectionPropertyInfo , - constructPrintOperationHasSelection , - getPrintOperationHasSelection , - printOperationHasSelection , - setPrintOperationHasSelection , - - --- ** JobName - PrintOperationJobNamePropertyInfo , - constructPrintOperationJobName , - getPrintOperationJobName , - printOperationJobName , - setPrintOperationJobName , - - --- ** NPages - PrintOperationNPagesPropertyInfo , - constructPrintOperationNPages , - getPrintOperationNPages , - printOperationNPages , - setPrintOperationNPages , - - --- ** NPagesToPrint - PrintOperationNPagesToPrintPropertyInfo , - getPrintOperationNPagesToPrint , - printOperationNPagesToPrint , - - --- ** PrintSettings - PrintOperationPrintSettingsPropertyInfo , - clearPrintOperationPrintSettings , - constructPrintOperationPrintSettings , - getPrintOperationPrintSettings , - printOperationPrintSettings , - setPrintOperationPrintSettings , - - --- ** ShowProgress - PrintOperationShowProgressPropertyInfo , - constructPrintOperationShowProgress , - getPrintOperationShowProgress , - printOperationShowProgress , - setPrintOperationShowProgress , - - --- ** Status - PrintOperationStatusPropertyInfo , - getPrintOperationStatus , - printOperationStatus , - - --- ** StatusString - PrintOperationStatusStringPropertyInfo , - getPrintOperationStatusString , - printOperationStatusString , - - --- ** SupportSelection - PrintOperationSupportSelectionPropertyInfo, - constructPrintOperationSupportSelection , - getPrintOperationSupportSelection , - printOperationSupportSelection , - setPrintOperationSupportSelection , - - --- ** TrackPrintStatus - PrintOperationTrackPrintStatusPropertyInfo, - constructPrintOperationTrackPrintStatus , - getPrintOperationTrackPrintStatus , - printOperationTrackPrintStatus , - setPrintOperationTrackPrintStatus , - - --- ** Unit - PrintOperationUnitPropertyInfo , - constructPrintOperationUnit , - getPrintOperationUnit , - printOperationUnit , - setPrintOperationUnit , - - --- ** UseFullPage - PrintOperationUseFullPagePropertyInfo , - constructPrintOperationUseFullPage , - getPrintOperationUseFullPage , - printOperationUseFullPage , - setPrintOperationUseFullPage , - - - - - -- * Signals --- ** BeginPrint - PrintOperationBeginPrintCallback , - PrintOperationBeginPrintCallbackC , - PrintOperationBeginPrintSignalInfo , - afterPrintOperationBeginPrint , - mkPrintOperationBeginPrintCallback , - noPrintOperationBeginPrintCallback , - onPrintOperationBeginPrint , - printOperationBeginPrintCallbackWrapper , - printOperationBeginPrintClosure , - - --- ** CreateCustomWidget - PrintOperationCreateCustomWidgetCallback, - PrintOperationCreateCustomWidgetCallbackC, - PrintOperationCreateCustomWidgetSignalInfo, - afterPrintOperationCreateCustomWidget , - mkPrintOperationCreateCustomWidgetCallback, - noPrintOperationCreateCustomWidgetCallback, - onPrintOperationCreateCustomWidget , - printOperationCreateCustomWidgetCallbackWrapper, - printOperationCreateCustomWidgetClosure , - - --- ** CustomWidgetApply - PrintOperationCustomWidgetApplyCallback , - PrintOperationCustomWidgetApplyCallbackC, - PrintOperationCustomWidgetApplySignalInfo, - afterPrintOperationCustomWidgetApply , - mkPrintOperationCustomWidgetApplyCallback, - noPrintOperationCustomWidgetApplyCallback, - onPrintOperationCustomWidgetApply , - printOperationCustomWidgetApplyCallbackWrapper, - printOperationCustomWidgetApplyClosure , - - --- ** Done - PrintOperationDoneCallback , - PrintOperationDoneCallbackC , - PrintOperationDoneSignalInfo , - afterPrintOperationDone , - mkPrintOperationDoneCallback , - noPrintOperationDoneCallback , - onPrintOperationDone , - printOperationDoneCallbackWrapper , - printOperationDoneClosure , - - --- ** DrawPage - PrintOperationDrawPageCallback , - PrintOperationDrawPageCallbackC , - PrintOperationDrawPageSignalInfo , - afterPrintOperationDrawPage , - mkPrintOperationDrawPageCallback , - noPrintOperationDrawPageCallback , - onPrintOperationDrawPage , - printOperationDrawPageCallbackWrapper , - printOperationDrawPageClosure , - - --- ** EndPrint - PrintOperationEndPrintCallback , - PrintOperationEndPrintCallbackC , - PrintOperationEndPrintSignalInfo , - afterPrintOperationEndPrint , - mkPrintOperationEndPrintCallback , - noPrintOperationEndPrintCallback , - onPrintOperationEndPrint , - printOperationEndPrintCallbackWrapper , - printOperationEndPrintClosure , - - --- ** Paginate - PrintOperationPaginateCallback , - PrintOperationPaginateCallbackC , - PrintOperationPaginateSignalInfo , - afterPrintOperationPaginate , - mkPrintOperationPaginateCallback , - noPrintOperationPaginateCallback , - onPrintOperationPaginate , - printOperationPaginateCallbackWrapper , - printOperationPaginateClosure , - - --- ** Preview - PrintOperationPreviewCallback , - PrintOperationPreviewCallbackC , - PrintOperationPreviewSignalInfo , - afterPrintOperationPreview , - mkPrintOperationPreviewCallback , - noPrintOperationPreviewCallback , - onPrintOperationPreview , - printOperationPreviewCallbackWrapper , - printOperationPreviewClosure , - - --- ** RequestPageSetup - PrintOperationRequestPageSetupCallback , - PrintOperationRequestPageSetupCallbackC , - PrintOperationRequestPageSetupSignalInfo, - afterPrintOperationRequestPageSetup , - mkPrintOperationRequestPageSetupCallback, - noPrintOperationRequestPageSetupCallback, - onPrintOperationRequestPageSetup , - printOperationRequestPageSetupCallbackWrapper, - printOperationRequestPageSetupClosure , - - --- ** StatusChanged - PrintOperationStatusChangedCallback , - PrintOperationStatusChangedCallbackC , - PrintOperationStatusChangedSignalInfo , - afterPrintOperationStatusChanged , - mkPrintOperationStatusChangedCallback , - noPrintOperationStatusChangedCallback , - onPrintOperationStatusChanged , - printOperationStatusChangedCallbackWrapper, - printOperationStatusChangedClosure , - - --- ** UpdateCustomWidget - PrintOperationUpdateCustomWidgetCallback, - PrintOperationUpdateCustomWidgetCallbackC, - PrintOperationUpdateCustomWidgetSignalInfo, - afterPrintOperationUpdateCustomWidget , - mkPrintOperationUpdateCustomWidgetCallback, - noPrintOperationUpdateCustomWidgetCallback, - onPrintOperationUpdateCustomWidget , - printOperationUpdateCustomWidgetCallbackWrapper, - printOperationUpdateCustomWidgetClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation) -foreign import ccall "gtk_print_operation_get_type" - c_gtk_print_operation_get_type :: IO GType - -type instance ParentTypes PrintOperation = PrintOperationParentTypes -type PrintOperationParentTypes = '[GObject.Object, PrintOperationPreview] - -instance GObject PrintOperation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_print_operation_get_type - - -class GObject o => PrintOperationK o -instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o - -toPrintOperation :: PrintOperationK o => o -> IO PrintOperation -toPrintOperation = unsafeCastTo PrintOperation - -noPrintOperation :: Maybe PrintOperation -noPrintOperation = Nothing - -type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where - ResolvePrintOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePrintOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePrintOperationMethod "cancel" o = PrintOperationCancelMethodInfo - ResolvePrintOperationMethod "drawPageFinish" o = PrintOperationDrawPageFinishMethodInfo - ResolvePrintOperationMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo - ResolvePrintOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePrintOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePrintOperationMethod "isFinished" o = PrintOperationIsFinishedMethodInfo - ResolvePrintOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePrintOperationMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo - ResolvePrintOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePrintOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePrintOperationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePrintOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePrintOperationMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo - ResolvePrintOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePrintOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePrintOperationMethod "run" o = PrintOperationRunMethodInfo - ResolvePrintOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePrintOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePrintOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePrintOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePrintOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePrintOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePrintOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePrintOperationMethod "getDefaultPageSetup" o = PrintOperationGetDefaultPageSetupMethodInfo - ResolvePrintOperationMethod "getEmbedPageSetup" o = PrintOperationGetEmbedPageSetupMethodInfo - ResolvePrintOperationMethod "getError" o = PrintOperationGetErrorMethodInfo - ResolvePrintOperationMethod "getHasSelection" o = PrintOperationGetHasSelectionMethodInfo - ResolvePrintOperationMethod "getNPagesToPrint" o = PrintOperationGetNPagesToPrintMethodInfo - ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo - ResolvePrintOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePrintOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePrintOperationMethod "getStatus" o = PrintOperationGetStatusMethodInfo - ResolvePrintOperationMethod "getStatusString" o = PrintOperationGetStatusStringMethodInfo - ResolvePrintOperationMethod "getSupportSelection" o = PrintOperationGetSupportSelectionMethodInfo - ResolvePrintOperationMethod "setAllowAsync" o = PrintOperationSetAllowAsyncMethodInfo - ResolvePrintOperationMethod "setCurrentPage" o = PrintOperationSetCurrentPageMethodInfo - ResolvePrintOperationMethod "setCustomTabLabel" o = PrintOperationSetCustomTabLabelMethodInfo - ResolvePrintOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePrintOperationMethod "setDefaultPageSetup" o = PrintOperationSetDefaultPageSetupMethodInfo - ResolvePrintOperationMethod "setDeferDrawing" o = PrintOperationSetDeferDrawingMethodInfo - ResolvePrintOperationMethod "setEmbedPageSetup" o = PrintOperationSetEmbedPageSetupMethodInfo - ResolvePrintOperationMethod "setExportFilename" o = PrintOperationSetExportFilenameMethodInfo - ResolvePrintOperationMethod "setHasSelection" o = PrintOperationSetHasSelectionMethodInfo - ResolvePrintOperationMethod "setJobName" o = PrintOperationSetJobNameMethodInfo - ResolvePrintOperationMethod "setNPages" o = PrintOperationSetNPagesMethodInfo - ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo - ResolvePrintOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePrintOperationMethod "setShowProgress" o = PrintOperationSetShowProgressMethodInfo - ResolvePrintOperationMethod "setSupportSelection" o = PrintOperationSetSupportSelectionMethodInfo - ResolvePrintOperationMethod "setTrackPrintStatus" o = PrintOperationSetTrackPrintStatusMethodInfo - ResolvePrintOperationMethod "setUnit" o = PrintOperationSetUnitMethodInfo - ResolvePrintOperationMethod "setUseFullPage" o = PrintOperationSetUseFullPageMethodInfo - ResolvePrintOperationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabelProxy t (PrintOperation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabel t (PrintOperation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal PrintOperation::begin-print -type PrintOperationBeginPrintCallback = - PrintContext -> - IO () - -noPrintOperationBeginPrintCallback :: Maybe PrintOperationBeginPrintCallback -noPrintOperationBeginPrintCallback = Nothing - -type PrintOperationBeginPrintCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationBeginPrintCallback :: PrintOperationBeginPrintCallbackC -> IO (FunPtr PrintOperationBeginPrintCallbackC) - -printOperationBeginPrintClosure :: PrintOperationBeginPrintCallback -> IO Closure -printOperationBeginPrintClosure cb = newCClosure =<< mkPrintOperationBeginPrintCallback wrapped - where wrapped = printOperationBeginPrintCallbackWrapper cb - -printOperationBeginPrintCallbackWrapper :: - PrintOperationBeginPrintCallback -> - Ptr () -> - Ptr PrintContext -> - Ptr () -> - IO () -printOperationBeginPrintCallbackWrapper _cb _ context _ = do - context' <- (newObject PrintContext) context - _cb context' - -onPrintOperationBeginPrint :: (GObject a, MonadIO m) => a -> PrintOperationBeginPrintCallback -> m SignalHandlerId -onPrintOperationBeginPrint obj cb = liftIO $ connectPrintOperationBeginPrint obj cb SignalConnectBefore -afterPrintOperationBeginPrint :: (GObject a, MonadIO m) => a -> PrintOperationBeginPrintCallback -> m SignalHandlerId -afterPrintOperationBeginPrint obj cb = connectPrintOperationBeginPrint obj cb SignalConnectAfter - -connectPrintOperationBeginPrint :: (GObject a, MonadIO m) => - a -> PrintOperationBeginPrintCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationBeginPrint obj cb after = liftIO $ do - cb' <- mkPrintOperationBeginPrintCallback (printOperationBeginPrintCallbackWrapper cb) - connectSignalFunPtr obj "begin-print" cb' after - --- signal PrintOperation::create-custom-widget -type PrintOperationCreateCustomWidgetCallback = - IO GObject.Object - -noPrintOperationCreateCustomWidgetCallback :: Maybe PrintOperationCreateCustomWidgetCallback -noPrintOperationCreateCustomWidgetCallback = Nothing - -type PrintOperationCreateCustomWidgetCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO (Ptr GObject.Object) - -foreign import ccall "wrapper" - mkPrintOperationCreateCustomWidgetCallback :: PrintOperationCreateCustomWidgetCallbackC -> IO (FunPtr PrintOperationCreateCustomWidgetCallbackC) - -printOperationCreateCustomWidgetClosure :: PrintOperationCreateCustomWidgetCallback -> IO Closure -printOperationCreateCustomWidgetClosure cb = newCClosure =<< mkPrintOperationCreateCustomWidgetCallback wrapped - where wrapped = printOperationCreateCustomWidgetCallbackWrapper cb - -printOperationCreateCustomWidgetCallbackWrapper :: - PrintOperationCreateCustomWidgetCallback -> - Ptr () -> - Ptr () -> - IO (Ptr GObject.Object) -printOperationCreateCustomWidgetCallbackWrapper _cb _ _ = do - result <- _cb - let result' = unsafeManagedPtrCastPtr result - return result' - -onPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId -onPrintOperationCreateCustomWidget obj cb = liftIO $ connectPrintOperationCreateCustomWidget obj cb SignalConnectBefore -afterPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId -afterPrintOperationCreateCustomWidget obj cb = connectPrintOperationCreateCustomWidget obj cb SignalConnectAfter - -connectPrintOperationCreateCustomWidget :: (GObject a, MonadIO m) => - a -> PrintOperationCreateCustomWidgetCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationCreateCustomWidget obj cb after = liftIO $ do - cb' <- mkPrintOperationCreateCustomWidgetCallback (printOperationCreateCustomWidgetCallbackWrapper cb) - connectSignalFunPtr obj "create-custom-widget" cb' after - --- signal PrintOperation::custom-widget-apply -type PrintOperationCustomWidgetApplyCallback = - Widget -> - IO () - -noPrintOperationCustomWidgetApplyCallback :: Maybe PrintOperationCustomWidgetApplyCallback -noPrintOperationCustomWidgetApplyCallback = Nothing - -type PrintOperationCustomWidgetApplyCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationCustomWidgetApplyCallback :: PrintOperationCustomWidgetApplyCallbackC -> IO (FunPtr PrintOperationCustomWidgetApplyCallbackC) - -printOperationCustomWidgetApplyClosure :: PrintOperationCustomWidgetApplyCallback -> IO Closure -printOperationCustomWidgetApplyClosure cb = newCClosure =<< mkPrintOperationCustomWidgetApplyCallback wrapped - where wrapped = printOperationCustomWidgetApplyCallbackWrapper cb - -printOperationCustomWidgetApplyCallbackWrapper :: - PrintOperationCustomWidgetApplyCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -printOperationCustomWidgetApplyCallbackWrapper _cb _ widget _ = do - widget' <- (newObject Widget) widget - _cb widget' - -onPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) => a -> PrintOperationCustomWidgetApplyCallback -> m SignalHandlerId -onPrintOperationCustomWidgetApply obj cb = liftIO $ connectPrintOperationCustomWidgetApply obj cb SignalConnectBefore -afterPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) => a -> PrintOperationCustomWidgetApplyCallback -> m SignalHandlerId -afterPrintOperationCustomWidgetApply obj cb = connectPrintOperationCustomWidgetApply obj cb SignalConnectAfter - -connectPrintOperationCustomWidgetApply :: (GObject a, MonadIO m) => - a -> PrintOperationCustomWidgetApplyCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationCustomWidgetApply obj cb after = liftIO $ do - cb' <- mkPrintOperationCustomWidgetApplyCallback (printOperationCustomWidgetApplyCallbackWrapper cb) - connectSignalFunPtr obj "custom-widget-apply" cb' after - --- signal PrintOperation::done -type PrintOperationDoneCallback = - PrintOperationResult -> - IO () - -noPrintOperationDoneCallback :: Maybe PrintOperationDoneCallback -noPrintOperationDoneCallback = Nothing - -type PrintOperationDoneCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationDoneCallback :: PrintOperationDoneCallbackC -> IO (FunPtr PrintOperationDoneCallbackC) - -printOperationDoneClosure :: PrintOperationDoneCallback -> IO Closure -printOperationDoneClosure cb = newCClosure =<< mkPrintOperationDoneCallback wrapped - where wrapped = printOperationDoneCallbackWrapper cb - -printOperationDoneCallbackWrapper :: - PrintOperationDoneCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -printOperationDoneCallbackWrapper _cb _ result_ _ = do - let result_' = (toEnum . fromIntegral) result_ - _cb result_' - -onPrintOperationDone :: (GObject a, MonadIO m) => a -> PrintOperationDoneCallback -> m SignalHandlerId -onPrintOperationDone obj cb = liftIO $ connectPrintOperationDone obj cb SignalConnectBefore -afterPrintOperationDone :: (GObject a, MonadIO m) => a -> PrintOperationDoneCallback -> m SignalHandlerId -afterPrintOperationDone obj cb = connectPrintOperationDone obj cb SignalConnectAfter - -connectPrintOperationDone :: (GObject a, MonadIO m) => - a -> PrintOperationDoneCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationDone obj cb after = liftIO $ do - cb' <- mkPrintOperationDoneCallback (printOperationDoneCallbackWrapper cb) - connectSignalFunPtr obj "done" cb' after - --- signal PrintOperation::draw-page -type PrintOperationDrawPageCallback = - PrintContext -> - Int32 -> - IO () - -noPrintOperationDrawPageCallback :: Maybe PrintOperationDrawPageCallback -noPrintOperationDrawPageCallback = Nothing - -type PrintOperationDrawPageCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationDrawPageCallback :: PrintOperationDrawPageCallbackC -> IO (FunPtr PrintOperationDrawPageCallbackC) - -printOperationDrawPageClosure :: PrintOperationDrawPageCallback -> IO Closure -printOperationDrawPageClosure cb = newCClosure =<< mkPrintOperationDrawPageCallback wrapped - where wrapped = printOperationDrawPageCallbackWrapper cb - -printOperationDrawPageCallbackWrapper :: - PrintOperationDrawPageCallback -> - Ptr () -> - Ptr PrintContext -> - Int32 -> - Ptr () -> - IO () -printOperationDrawPageCallbackWrapper _cb _ context pageNr _ = do - context' <- (newObject PrintContext) context - _cb context' pageNr - -onPrintOperationDrawPage :: (GObject a, MonadIO m) => a -> PrintOperationDrawPageCallback -> m SignalHandlerId -onPrintOperationDrawPage obj cb = liftIO $ connectPrintOperationDrawPage obj cb SignalConnectBefore -afterPrintOperationDrawPage :: (GObject a, MonadIO m) => a -> PrintOperationDrawPageCallback -> m SignalHandlerId -afterPrintOperationDrawPage obj cb = connectPrintOperationDrawPage obj cb SignalConnectAfter - -connectPrintOperationDrawPage :: (GObject a, MonadIO m) => - a -> PrintOperationDrawPageCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationDrawPage obj cb after = liftIO $ do - cb' <- mkPrintOperationDrawPageCallback (printOperationDrawPageCallbackWrapper cb) - connectSignalFunPtr obj "draw-page" cb' after - --- signal PrintOperation::end-print -type PrintOperationEndPrintCallback = - PrintContext -> - IO () - -noPrintOperationEndPrintCallback :: Maybe PrintOperationEndPrintCallback -noPrintOperationEndPrintCallback = Nothing - -type PrintOperationEndPrintCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationEndPrintCallback :: PrintOperationEndPrintCallbackC -> IO (FunPtr PrintOperationEndPrintCallbackC) - -printOperationEndPrintClosure :: PrintOperationEndPrintCallback -> IO Closure -printOperationEndPrintClosure cb = newCClosure =<< mkPrintOperationEndPrintCallback wrapped - where wrapped = printOperationEndPrintCallbackWrapper cb - -printOperationEndPrintCallbackWrapper :: - PrintOperationEndPrintCallback -> - Ptr () -> - Ptr PrintContext -> - Ptr () -> - IO () -printOperationEndPrintCallbackWrapper _cb _ context _ = do - context' <- (newObject PrintContext) context - _cb context' - -onPrintOperationEndPrint :: (GObject a, MonadIO m) => a -> PrintOperationEndPrintCallback -> m SignalHandlerId -onPrintOperationEndPrint obj cb = liftIO $ connectPrintOperationEndPrint obj cb SignalConnectBefore -afterPrintOperationEndPrint :: (GObject a, MonadIO m) => a -> PrintOperationEndPrintCallback -> m SignalHandlerId -afterPrintOperationEndPrint obj cb = connectPrintOperationEndPrint obj cb SignalConnectAfter - -connectPrintOperationEndPrint :: (GObject a, MonadIO m) => - a -> PrintOperationEndPrintCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationEndPrint obj cb after = liftIO $ do - cb' <- mkPrintOperationEndPrintCallback (printOperationEndPrintCallbackWrapper cb) - connectSignalFunPtr obj "end-print" cb' after - --- signal PrintOperation::paginate -type PrintOperationPaginateCallback = - PrintContext -> - IO Bool - -noPrintOperationPaginateCallback :: Maybe PrintOperationPaginateCallback -noPrintOperationPaginateCallback = Nothing - -type PrintOperationPaginateCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPrintOperationPaginateCallback :: PrintOperationPaginateCallbackC -> IO (FunPtr PrintOperationPaginateCallbackC) - -printOperationPaginateClosure :: PrintOperationPaginateCallback -> IO Closure -printOperationPaginateClosure cb = newCClosure =<< mkPrintOperationPaginateCallback wrapped - where wrapped = printOperationPaginateCallbackWrapper cb - -printOperationPaginateCallbackWrapper :: - PrintOperationPaginateCallback -> - Ptr () -> - Ptr PrintContext -> - Ptr () -> - IO CInt -printOperationPaginateCallbackWrapper _cb _ context _ = do - context' <- (newObject PrintContext) context - result <- _cb context' - let result' = (fromIntegral . fromEnum) result - return result' - -onPrintOperationPaginate :: (GObject a, MonadIO m) => a -> PrintOperationPaginateCallback -> m SignalHandlerId -onPrintOperationPaginate obj cb = liftIO $ connectPrintOperationPaginate obj cb SignalConnectBefore -afterPrintOperationPaginate :: (GObject a, MonadIO m) => a -> PrintOperationPaginateCallback -> m SignalHandlerId -afterPrintOperationPaginate obj cb = connectPrintOperationPaginate obj cb SignalConnectAfter - -connectPrintOperationPaginate :: (GObject a, MonadIO m) => - a -> PrintOperationPaginateCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationPaginate obj cb after = liftIO $ do - cb' <- mkPrintOperationPaginateCallback (printOperationPaginateCallbackWrapper cb) - connectSignalFunPtr obj "paginate" cb' after - --- signal PrintOperation::preview -type PrintOperationPreviewCallback = - PrintOperationPreview -> - PrintContext -> - Maybe Window -> - IO Bool - -noPrintOperationPreviewCallback :: Maybe PrintOperationPreviewCallback -noPrintOperationPreviewCallback = Nothing - -type PrintOperationPreviewCallbackC = - Ptr () -> -- object - Ptr PrintOperationPreview -> - Ptr PrintContext -> - Ptr Window -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkPrintOperationPreviewCallback :: PrintOperationPreviewCallbackC -> IO (FunPtr PrintOperationPreviewCallbackC) - -printOperationPreviewClosure :: PrintOperationPreviewCallback -> IO Closure -printOperationPreviewClosure cb = newCClosure =<< mkPrintOperationPreviewCallback wrapped - where wrapped = printOperationPreviewCallbackWrapper cb - -printOperationPreviewCallbackWrapper :: - PrintOperationPreviewCallback -> - Ptr () -> - Ptr PrintOperationPreview -> - Ptr PrintContext -> - Ptr Window -> - Ptr () -> - IO CInt -printOperationPreviewCallbackWrapper _cb _ preview context parent _ = do - preview' <- (newObject PrintOperationPreview) preview - context' <- (newObject PrintContext) context - maybeParent <- - if parent == nullPtr - then return Nothing - else do - parent' <- (newObject Window) parent - return $ Just parent' - result <- _cb preview' context' maybeParent - let result' = (fromIntegral . fromEnum) result - return result' - -onPrintOperationPreview :: (GObject a, MonadIO m) => a -> PrintOperationPreviewCallback -> m SignalHandlerId -onPrintOperationPreview obj cb = liftIO $ connectPrintOperationPreview obj cb SignalConnectBefore -afterPrintOperationPreview :: (GObject a, MonadIO m) => a -> PrintOperationPreviewCallback -> m SignalHandlerId -afterPrintOperationPreview obj cb = connectPrintOperationPreview obj cb SignalConnectAfter - -connectPrintOperationPreview :: (GObject a, MonadIO m) => - a -> PrintOperationPreviewCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationPreview obj cb after = liftIO $ do - cb' <- mkPrintOperationPreviewCallback (printOperationPreviewCallbackWrapper cb) - connectSignalFunPtr obj "preview" cb' after - --- signal PrintOperation::request-page-setup -type PrintOperationRequestPageSetupCallback = - PrintContext -> - Int32 -> - PageSetup -> - IO () - -noPrintOperationRequestPageSetupCallback :: Maybe PrintOperationRequestPageSetupCallback -noPrintOperationRequestPageSetupCallback = Nothing - -type PrintOperationRequestPageSetupCallbackC = - Ptr () -> -- object - Ptr PrintContext -> - Int32 -> - Ptr PageSetup -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationRequestPageSetupCallback :: PrintOperationRequestPageSetupCallbackC -> IO (FunPtr PrintOperationRequestPageSetupCallbackC) - -printOperationRequestPageSetupClosure :: PrintOperationRequestPageSetupCallback -> IO Closure -printOperationRequestPageSetupClosure cb = newCClosure =<< mkPrintOperationRequestPageSetupCallback wrapped - where wrapped = printOperationRequestPageSetupCallbackWrapper cb - -printOperationRequestPageSetupCallbackWrapper :: - PrintOperationRequestPageSetupCallback -> - Ptr () -> - Ptr PrintContext -> - Int32 -> - Ptr PageSetup -> - Ptr () -> - IO () -printOperationRequestPageSetupCallbackWrapper _cb _ context pageNr setup _ = do - context' <- (newObject PrintContext) context - setup' <- (newObject PageSetup) setup - _cb context' pageNr setup' - -onPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => a -> PrintOperationRequestPageSetupCallback -> m SignalHandlerId -onPrintOperationRequestPageSetup obj cb = liftIO $ connectPrintOperationRequestPageSetup obj cb SignalConnectBefore -afterPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => a -> PrintOperationRequestPageSetupCallback -> m SignalHandlerId -afterPrintOperationRequestPageSetup obj cb = connectPrintOperationRequestPageSetup obj cb SignalConnectAfter - -connectPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => - a -> PrintOperationRequestPageSetupCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationRequestPageSetup obj cb after = liftIO $ do - cb' <- mkPrintOperationRequestPageSetupCallback (printOperationRequestPageSetupCallbackWrapper cb) - connectSignalFunPtr obj "request-page-setup" cb' after - --- signal PrintOperation::status-changed -type PrintOperationStatusChangedCallback = - IO () - -noPrintOperationStatusChangedCallback :: Maybe PrintOperationStatusChangedCallback -noPrintOperationStatusChangedCallback = Nothing - -type PrintOperationStatusChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationStatusChangedCallback :: PrintOperationStatusChangedCallbackC -> IO (FunPtr PrintOperationStatusChangedCallbackC) - -printOperationStatusChangedClosure :: PrintOperationStatusChangedCallback -> IO Closure -printOperationStatusChangedClosure cb = newCClosure =<< mkPrintOperationStatusChangedCallback wrapped - where wrapped = printOperationStatusChangedCallbackWrapper cb - -printOperationStatusChangedCallbackWrapper :: - PrintOperationStatusChangedCallback -> - Ptr () -> - Ptr () -> - IO () -printOperationStatusChangedCallbackWrapper _cb _ _ = do - _cb - -onPrintOperationStatusChanged :: (GObject a, MonadIO m) => a -> PrintOperationStatusChangedCallback -> m SignalHandlerId -onPrintOperationStatusChanged obj cb = liftIO $ connectPrintOperationStatusChanged obj cb SignalConnectBefore -afterPrintOperationStatusChanged :: (GObject a, MonadIO m) => a -> PrintOperationStatusChangedCallback -> m SignalHandlerId -afterPrintOperationStatusChanged obj cb = connectPrintOperationStatusChanged obj cb SignalConnectAfter - -connectPrintOperationStatusChanged :: (GObject a, MonadIO m) => - a -> PrintOperationStatusChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationStatusChanged obj cb after = liftIO $ do - cb' <- mkPrintOperationStatusChangedCallback (printOperationStatusChangedCallbackWrapper cb) - connectSignalFunPtr obj "status-changed" cb' after - --- signal PrintOperation::update-custom-widget -type PrintOperationUpdateCustomWidgetCallback = - Widget -> - PageSetup -> - PrintSettings -> - IO () - -noPrintOperationUpdateCustomWidgetCallback :: Maybe PrintOperationUpdateCustomWidgetCallback -noPrintOperationUpdateCustomWidgetCallback = Nothing - -type PrintOperationUpdateCustomWidgetCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr PageSetup -> - Ptr PrintSettings -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPrintOperationUpdateCustomWidgetCallback :: PrintOperationUpdateCustomWidgetCallbackC -> IO (FunPtr PrintOperationUpdateCustomWidgetCallbackC) - -printOperationUpdateCustomWidgetClosure :: PrintOperationUpdateCustomWidgetCallback -> IO Closure -printOperationUpdateCustomWidgetClosure cb = newCClosure =<< mkPrintOperationUpdateCustomWidgetCallback wrapped - where wrapped = printOperationUpdateCustomWidgetCallbackWrapper cb - -printOperationUpdateCustomWidgetCallbackWrapper :: - PrintOperationUpdateCustomWidgetCallback -> - Ptr () -> - Ptr Widget -> - Ptr PageSetup -> - Ptr PrintSettings -> - Ptr () -> - IO () -printOperationUpdateCustomWidgetCallbackWrapper _cb _ widget setup settings _ = do - widget' <- (newObject Widget) widget - setup' <- (newObject PageSetup) setup - settings' <- (newObject PrintSettings) settings - _cb widget' setup' settings' - -onPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationUpdateCustomWidgetCallback -> m SignalHandlerId -onPrintOperationUpdateCustomWidget obj cb = liftIO $ connectPrintOperationUpdateCustomWidget obj cb SignalConnectBefore -afterPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) => a -> PrintOperationUpdateCustomWidgetCallback -> m SignalHandlerId -afterPrintOperationUpdateCustomWidget obj cb = connectPrintOperationUpdateCustomWidget obj cb SignalConnectAfter - -connectPrintOperationUpdateCustomWidget :: (GObject a, MonadIO m) => - a -> PrintOperationUpdateCustomWidgetCallback -> SignalConnectMode -> m SignalHandlerId -connectPrintOperationUpdateCustomWidget obj cb after = liftIO $ do - cb' <- mkPrintOperationUpdateCustomWidgetCallback (printOperationUpdateCustomWidgetCallbackWrapper cb) - connectSignalFunPtr obj "update-custom-widget" cb' after - --- VVV Prop "allow-async" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationAllowAsync :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationAllowAsync obj = liftIO $ getObjectPropertyBool obj "allow-async" - -setPrintOperationAllowAsync :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationAllowAsync obj val = liftIO $ setObjectPropertyBool obj "allow-async" val - -constructPrintOperationAllowAsync :: Bool -> IO ([Char], GValue) -constructPrintOperationAllowAsync val = constructObjectPropertyBool "allow-async" val - -data PrintOperationAllowAsyncPropertyInfo -instance AttrInfo PrintOperationAllowAsyncPropertyInfo where - type AttrAllowedOps PrintOperationAllowAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationAllowAsyncPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationAllowAsyncPropertyInfo = PrintOperationK - type AttrGetType PrintOperationAllowAsyncPropertyInfo = Bool - type AttrLabel PrintOperationAllowAsyncPropertyInfo = "allow-async" - attrGet _ = getPrintOperationAllowAsync - attrSet _ = setPrintOperationAllowAsync - attrConstruct _ = constructPrintOperationAllowAsync - attrClear _ = undefined - --- VVV Prop "current-page" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyInt32 obj "current-page" - -setPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyInt32 obj "current-page" val - -constructPrintOperationCurrentPage :: Int32 -> IO ([Char], GValue) -constructPrintOperationCurrentPage val = constructObjectPropertyInt32 "current-page" val - -data PrintOperationCurrentPagePropertyInfo -instance AttrInfo PrintOperationCurrentPagePropertyInfo where - type AttrAllowedOps PrintOperationCurrentPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationCurrentPagePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PrintOperationCurrentPagePropertyInfo = PrintOperationK - type AttrGetType PrintOperationCurrentPagePropertyInfo = Int32 - type AttrLabel PrintOperationCurrentPagePropertyInfo = "current-page" - attrGet _ = getPrintOperationCurrentPage - attrSet _ = setPrintOperationCurrentPage - attrConstruct _ = constructPrintOperationCurrentPage - attrClear _ = undefined - --- VVV Prop "custom-tab-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) -getPrintOperationCustomTabLabel obj = liftIO $ getObjectPropertyString obj "custom-tab-label" - -setPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationCustomTabLabel obj val = liftIO $ setObjectPropertyString obj "custom-tab-label" (Just val) - -constructPrintOperationCustomTabLabel :: T.Text -> IO ([Char], GValue) -constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" (Just val) - -clearPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m () -clearPrintOperationCustomTabLabel obj = liftIO $ setObjectPropertyString obj "custom-tab-label" (Nothing :: Maybe T.Text) - -data PrintOperationCustomTabLabelPropertyInfo -instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where - type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK - type AttrGetType PrintOperationCustomTabLabelPropertyInfo = (Maybe T.Text) - type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "custom-tab-label" - attrGet _ = getPrintOperationCustomTabLabel - attrSet _ = setPrintOperationCustomTabLabel - attrConstruct _ = constructPrintOperationCustomTabLabel - attrClear _ = clearPrintOperationCustomTabLabel - --- VVV Prop "default-page-setup" - -- Type: TInterface "Gtk" "PageSetup" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m PageSetup -getPrintOperationDefaultPageSetup obj = liftIO $ checkUnexpectedNothing "getPrintOperationDefaultPageSetup" $ getObjectPropertyObject obj "default-page-setup" PageSetup - -setPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o, PageSetupK a) => o -> a -> m () -setPrintOperationDefaultPageSetup obj val = liftIO $ setObjectPropertyObject obj "default-page-setup" (Just val) - -constructPrintOperationDefaultPageSetup :: (PageSetupK a) => a -> IO ([Char], GValue) -constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" (Just val) - -clearPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m () -clearPrintOperationDefaultPageSetup obj = liftIO $ setObjectPropertyObject obj "default-page-setup" (Nothing :: Maybe PageSetup) - -data PrintOperationDefaultPageSetupPropertyInfo -instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where - type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK - type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK - type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup - type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "default-page-setup" - attrGet _ = getPrintOperationDefaultPageSetup - attrSet _ = setPrintOperationDefaultPageSetup - attrConstruct _ = constructPrintOperationDefaultPageSetup - attrClear _ = clearPrintOperationDefaultPageSetup - --- VVV Prop "embed-page-setup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPrintOperationEmbedPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationEmbedPageSetup obj = liftIO $ getObjectPropertyBool obj "embed-page-setup" - -setPrintOperationEmbedPageSetup :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationEmbedPageSetup obj val = liftIO $ setObjectPropertyBool obj "embed-page-setup" val - -constructPrintOperationEmbedPageSetup :: Bool -> IO ([Char], GValue) -constructPrintOperationEmbedPageSetup val = constructObjectPropertyBool "embed-page-setup" val - -data PrintOperationEmbedPageSetupPropertyInfo -instance AttrInfo PrintOperationEmbedPageSetupPropertyInfo where - type AttrAllowedOps PrintOperationEmbedPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = PrintOperationK - type AttrGetType PrintOperationEmbedPageSetupPropertyInfo = Bool - type AttrLabel PrintOperationEmbedPageSetupPropertyInfo = "embed-page-setup" - attrGet _ = getPrintOperationEmbedPageSetup - attrSet _ = setPrintOperationEmbedPageSetup - attrConstruct _ = constructPrintOperationEmbedPageSetup - attrClear _ = undefined - --- VVV Prop "export-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) -getPrintOperationExportFilename obj = liftIO $ getObjectPropertyString obj "export-filename" - -setPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationExportFilename obj val = liftIO $ setObjectPropertyString obj "export-filename" (Just val) - -constructPrintOperationExportFilename :: T.Text -> IO ([Char], GValue) -constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" (Just val) - -clearPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m () -clearPrintOperationExportFilename obj = liftIO $ setObjectPropertyString obj "export-filename" (Nothing :: Maybe T.Text) - -data PrintOperationExportFilenamePropertyInfo -instance AttrInfo PrintOperationExportFilenamePropertyInfo where - type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK - type AttrGetType PrintOperationExportFilenamePropertyInfo = (Maybe T.Text) - type AttrLabel PrintOperationExportFilenamePropertyInfo = "export-filename" - attrGet _ = getPrintOperationExportFilename - attrSet _ = setPrintOperationExportFilename - attrConstruct _ = constructPrintOperationExportFilename - attrClear _ = clearPrintOperationExportFilename - --- VVV Prop "has-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPrintOperationHasSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" - -setPrintOperationHasSelection :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationHasSelection obj val = liftIO $ setObjectPropertyBool obj "has-selection" val - -constructPrintOperationHasSelection :: Bool -> IO ([Char], GValue) -constructPrintOperationHasSelection val = constructObjectPropertyBool "has-selection" val - -data PrintOperationHasSelectionPropertyInfo -instance AttrInfo PrintOperationHasSelectionPropertyInfo where - type AttrAllowedOps PrintOperationHasSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationHasSelectionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationHasSelectionPropertyInfo = PrintOperationK - type AttrGetType PrintOperationHasSelectionPropertyInfo = Bool - type AttrLabel PrintOperationHasSelectionPropertyInfo = "has-selection" - attrGet _ = getPrintOperationHasSelection - attrSet _ = setPrintOperationHasSelection - attrConstruct _ = constructPrintOperationHasSelection - attrClear _ = undefined - --- VVV Prop "job-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) -getPrintOperationJobName obj = liftIO $ getObjectPropertyString obj "job-name" - -setPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationJobName obj val = liftIO $ setObjectPropertyString obj "job-name" (Just val) - -constructPrintOperationJobName :: T.Text -> IO ([Char], GValue) -constructPrintOperationJobName val = constructObjectPropertyString "job-name" (Just val) - -data PrintOperationJobNamePropertyInfo -instance AttrInfo PrintOperationJobNamePropertyInfo where - type AttrAllowedOps PrintOperationJobNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PrintOperationJobNamePropertyInfo = PrintOperationK - type AttrGetType PrintOperationJobNamePropertyInfo = (Maybe T.Text) - type AttrLabel PrintOperationJobNamePropertyInfo = "job-name" - attrGet _ = getPrintOperationJobName - attrSet _ = setPrintOperationJobName - attrConstruct _ = constructPrintOperationJobName - attrClear _ = undefined - --- VVV Prop "n-pages" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPages obj = liftIO $ getObjectPropertyInt32 obj "n-pages" - -setPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationNPages obj val = liftIO $ setObjectPropertyInt32 obj "n-pages" val - -constructPrintOperationNPages :: Int32 -> IO ([Char], GValue) -constructPrintOperationNPages val = constructObjectPropertyInt32 "n-pages" val - -data PrintOperationNPagesPropertyInfo -instance AttrInfo PrintOperationNPagesPropertyInfo where - type AttrAllowedOps PrintOperationNPagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationNPagesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PrintOperationNPagesPropertyInfo = PrintOperationK - type AttrGetType PrintOperationNPagesPropertyInfo = Int32 - type AttrLabel PrintOperationNPagesPropertyInfo = "n-pages" - attrGet _ = getPrintOperationNPages - attrSet _ = setPrintOperationNPages - attrConstruct _ = constructPrintOperationNPages - attrClear _ = undefined - --- VVV Prop "n-pages-to-print" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPrintOperationNPagesToPrint :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyInt32 obj "n-pages-to-print" - -data PrintOperationNPagesToPrintPropertyInfo -instance AttrInfo PrintOperationNPagesToPrintPropertyInfo where - type AttrAllowedOps PrintOperationNPagesToPrintPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PrintOperationNPagesToPrintPropertyInfo = (~) () - type AttrBaseTypeConstraint PrintOperationNPagesToPrintPropertyInfo = PrintOperationK - type AttrGetType PrintOperationNPagesToPrintPropertyInfo = Int32 - type AttrLabel PrintOperationNPagesToPrintPropertyInfo = "n-pages-to-print" - attrGet _ = getPrintOperationNPagesToPrint - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "print-settings" - -- Type: TInterface "Gtk" "PrintSettings" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m PrintSettings -getPrintOperationPrintSettings obj = liftIO $ checkUnexpectedNothing "getPrintOperationPrintSettings" $ getObjectPropertyObject obj "print-settings" PrintSettings - -setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, PrintSettingsK a) => o -> a -> m () -setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" (Just val) - -constructPrintOperationPrintSettings :: (PrintSettingsK a) => a -> IO ([Char], GValue) -constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" (Just val) - -clearPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m () -clearPrintOperationPrintSettings obj = liftIO $ setObjectPropertyObject obj "print-settings" (Nothing :: Maybe PrintSettings) - -data PrintOperationPrintSettingsPropertyInfo -instance AttrInfo PrintOperationPrintSettingsPropertyInfo where - type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK - type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK - type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings - type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings" - attrGet _ = getPrintOperationPrintSettings - attrSet _ = setPrintOperationPrintSettings - attrConstruct _ = constructPrintOperationPrintSettings - attrClear _ = clearPrintOperationPrintSettings - --- VVV Prop "show-progress" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationShowProgress :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationShowProgress obj = liftIO $ getObjectPropertyBool obj "show-progress" - -setPrintOperationShowProgress :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationShowProgress obj val = liftIO $ setObjectPropertyBool obj "show-progress" val - -constructPrintOperationShowProgress :: Bool -> IO ([Char], GValue) -constructPrintOperationShowProgress val = constructObjectPropertyBool "show-progress" val - -data PrintOperationShowProgressPropertyInfo -instance AttrInfo PrintOperationShowProgressPropertyInfo where - type AttrAllowedOps PrintOperationShowProgressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationShowProgressPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationShowProgressPropertyInfo = PrintOperationK - type AttrGetType PrintOperationShowProgressPropertyInfo = Bool - type AttrLabel PrintOperationShowProgressPropertyInfo = "show-progress" - attrGet _ = getPrintOperationShowProgress - attrSet _ = setPrintOperationShowProgress - attrConstruct _ = constructPrintOperationShowProgress - attrClear _ = undefined - --- VVV Prop "status" - -- Type: TInterface "Gtk" "PrintStatus" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPrintOperationStatus :: (MonadIO m, PrintOperationK o) => o -> m PrintStatus -getPrintOperationStatus obj = liftIO $ getObjectPropertyEnum obj "status" - -data PrintOperationStatusPropertyInfo -instance AttrInfo PrintOperationStatusPropertyInfo where - type AttrAllowedOps PrintOperationStatusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PrintOperationStatusPropertyInfo = (~) () - type AttrBaseTypeConstraint PrintOperationStatusPropertyInfo = PrintOperationK - type AttrGetType PrintOperationStatusPropertyInfo = PrintStatus - type AttrLabel PrintOperationStatusPropertyInfo = "status" - attrGet _ = getPrintOperationStatus - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "status-string" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPrintOperationStatusString :: (MonadIO m, PrintOperationK o) => o -> m T.Text -getPrintOperationStatusString obj = liftIO $ checkUnexpectedNothing "getPrintOperationStatusString" $ getObjectPropertyString obj "status-string" - -data PrintOperationStatusStringPropertyInfo -instance AttrInfo PrintOperationStatusStringPropertyInfo where - type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () - type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK - type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text - type AttrLabel PrintOperationStatusStringPropertyInfo = "status-string" - attrGet _ = getPrintOperationStatusString - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "support-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getPrintOperationSupportSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationSupportSelection obj = liftIO $ getObjectPropertyBool obj "support-selection" - -setPrintOperationSupportSelection :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationSupportSelection obj val = liftIO $ setObjectPropertyBool obj "support-selection" val - -constructPrintOperationSupportSelection :: Bool -> IO ([Char], GValue) -constructPrintOperationSupportSelection val = constructObjectPropertyBool "support-selection" val - -data PrintOperationSupportSelectionPropertyInfo -instance AttrInfo PrintOperationSupportSelectionPropertyInfo where - type AttrAllowedOps PrintOperationSupportSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationSupportSelectionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationSupportSelectionPropertyInfo = PrintOperationK - type AttrGetType PrintOperationSupportSelectionPropertyInfo = Bool - type AttrLabel PrintOperationSupportSelectionPropertyInfo = "support-selection" - attrGet _ = getPrintOperationSupportSelection - attrSet _ = setPrintOperationSupportSelection - attrConstruct _ = constructPrintOperationSupportSelection - attrClear _ = undefined - --- VVV Prop "track-print-status" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationTrackPrintStatus :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationTrackPrintStatus obj = liftIO $ getObjectPropertyBool obj "track-print-status" - -setPrintOperationTrackPrintStatus :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationTrackPrintStatus obj val = liftIO $ setObjectPropertyBool obj "track-print-status" val - -constructPrintOperationTrackPrintStatus :: Bool -> IO ([Char], GValue) -constructPrintOperationTrackPrintStatus val = constructObjectPropertyBool "track-print-status" val - -data PrintOperationTrackPrintStatusPropertyInfo -instance AttrInfo PrintOperationTrackPrintStatusPropertyInfo where - type AttrAllowedOps PrintOperationTrackPrintStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = PrintOperationK - type AttrGetType PrintOperationTrackPrintStatusPropertyInfo = Bool - type AttrLabel PrintOperationTrackPrintStatusPropertyInfo = "track-print-status" - attrGet _ = getPrintOperationTrackPrintStatus - attrSet _ = setPrintOperationTrackPrintStatus - attrConstruct _ = constructPrintOperationTrackPrintStatus - attrClear _ = undefined - --- VVV Prop "unit" - -- Type: TInterface "Gtk" "Unit" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationUnit :: (MonadIO m, PrintOperationK o) => o -> m Unit -getPrintOperationUnit obj = liftIO $ getObjectPropertyEnum obj "unit" - -setPrintOperationUnit :: (MonadIO m, PrintOperationK o) => o -> Unit -> m () -setPrintOperationUnit obj val = liftIO $ setObjectPropertyEnum obj "unit" val - -constructPrintOperationUnit :: Unit -> IO ([Char], GValue) -constructPrintOperationUnit val = constructObjectPropertyEnum "unit" val - -data PrintOperationUnitPropertyInfo -instance AttrInfo PrintOperationUnitPropertyInfo where - type AttrAllowedOps PrintOperationUnitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationUnitPropertyInfo = (~) Unit - type AttrBaseTypeConstraint PrintOperationUnitPropertyInfo = PrintOperationK - type AttrGetType PrintOperationUnitPropertyInfo = Unit - type AttrLabel PrintOperationUnitPropertyInfo = "unit" - attrGet _ = getPrintOperationUnit - attrSet _ = setPrintOperationUnit - attrConstruct _ = constructPrintOperationUnit - attrClear _ = undefined - --- VVV Prop "use-full-page" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getPrintOperationUseFullPage :: (MonadIO m, PrintOperationK o) => o -> m Bool -getPrintOperationUseFullPage obj = liftIO $ getObjectPropertyBool obj "use-full-page" - -setPrintOperationUseFullPage :: (MonadIO m, PrintOperationK o) => o -> Bool -> m () -setPrintOperationUseFullPage obj val = liftIO $ setObjectPropertyBool obj "use-full-page" val - -constructPrintOperationUseFullPage :: Bool -> IO ([Char], GValue) -constructPrintOperationUseFullPage val = constructObjectPropertyBool "use-full-page" val - -data PrintOperationUseFullPagePropertyInfo -instance AttrInfo PrintOperationUseFullPagePropertyInfo where - type AttrAllowedOps PrintOperationUseFullPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationUseFullPagePropertyInfo = (~) Bool - type AttrBaseTypeConstraint PrintOperationUseFullPagePropertyInfo = PrintOperationK - type AttrGetType PrintOperationUseFullPagePropertyInfo = Bool - type AttrLabel PrintOperationUseFullPagePropertyInfo = "use-full-page" - attrGet _ = getPrintOperationUseFullPage - attrSet _ = setPrintOperationUseFullPage - attrConstruct _ = constructPrintOperationUseFullPage - attrClear _ = undefined - -type instance AttributeList PrintOperation = PrintOperationAttributeList -type PrintOperationAttributeList = ('[ '("allowAsync", PrintOperationAllowAsyncPropertyInfo), '("currentPage", PrintOperationCurrentPagePropertyInfo), '("customTabLabel", PrintOperationCustomTabLabelPropertyInfo), '("defaultPageSetup", PrintOperationDefaultPageSetupPropertyInfo), '("embedPageSetup", PrintOperationEmbedPageSetupPropertyInfo), '("exportFilename", PrintOperationExportFilenamePropertyInfo), '("hasSelection", PrintOperationHasSelectionPropertyInfo), '("jobName", PrintOperationJobNamePropertyInfo), '("nPages", PrintOperationNPagesPropertyInfo), '("nPagesToPrint", PrintOperationNPagesToPrintPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("showProgress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("statusString", PrintOperationStatusStringPropertyInfo), '("supportSelection", PrintOperationSupportSelectionPropertyInfo), '("trackPrintStatus", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("useFullPage", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) - -printOperationAllowAsync :: AttrLabelProxy "allowAsync" -printOperationAllowAsync = AttrLabelProxy - -printOperationCurrentPage :: AttrLabelProxy "currentPage" -printOperationCurrentPage = AttrLabelProxy - -printOperationCustomTabLabel :: AttrLabelProxy "customTabLabel" -printOperationCustomTabLabel = AttrLabelProxy - -printOperationDefaultPageSetup :: AttrLabelProxy "defaultPageSetup" -printOperationDefaultPageSetup = AttrLabelProxy - -printOperationEmbedPageSetup :: AttrLabelProxy "embedPageSetup" -printOperationEmbedPageSetup = AttrLabelProxy - -printOperationExportFilename :: AttrLabelProxy "exportFilename" -printOperationExportFilename = AttrLabelProxy - -printOperationHasSelection :: AttrLabelProxy "hasSelection" -printOperationHasSelection = AttrLabelProxy - -printOperationJobName :: AttrLabelProxy "jobName" -printOperationJobName = AttrLabelProxy - -printOperationNPages :: AttrLabelProxy "nPages" -printOperationNPages = AttrLabelProxy - -printOperationNPagesToPrint :: AttrLabelProxy "nPagesToPrint" -printOperationNPagesToPrint = AttrLabelProxy - -printOperationPrintSettings :: AttrLabelProxy "printSettings" -printOperationPrintSettings = AttrLabelProxy - -printOperationShowProgress :: AttrLabelProxy "showProgress" -printOperationShowProgress = AttrLabelProxy - -printOperationStatus :: AttrLabelProxy "status" -printOperationStatus = AttrLabelProxy - -printOperationStatusString :: AttrLabelProxy "statusString" -printOperationStatusString = AttrLabelProxy - -printOperationSupportSelection :: AttrLabelProxy "supportSelection" -printOperationSupportSelection = AttrLabelProxy - -printOperationTrackPrintStatus :: AttrLabelProxy "trackPrintStatus" -printOperationTrackPrintStatus = AttrLabelProxy - -printOperationUnit :: AttrLabelProxy "unit" -printOperationUnit = AttrLabelProxy - -printOperationUseFullPage :: AttrLabelProxy "useFullPage" -printOperationUseFullPage = AttrLabelProxy - -data PrintOperationBeginPrintSignalInfo -instance SignalInfo PrintOperationBeginPrintSignalInfo where - type HaskellCallbackType PrintOperationBeginPrintSignalInfo = PrintOperationBeginPrintCallback - connectSignal _ = connectPrintOperationBeginPrint - -data PrintOperationCreateCustomWidgetSignalInfo -instance SignalInfo PrintOperationCreateCustomWidgetSignalInfo where - type HaskellCallbackType PrintOperationCreateCustomWidgetSignalInfo = PrintOperationCreateCustomWidgetCallback - connectSignal _ = connectPrintOperationCreateCustomWidget - -data PrintOperationCustomWidgetApplySignalInfo -instance SignalInfo PrintOperationCustomWidgetApplySignalInfo where - type HaskellCallbackType PrintOperationCustomWidgetApplySignalInfo = PrintOperationCustomWidgetApplyCallback - connectSignal _ = connectPrintOperationCustomWidgetApply - -data PrintOperationDoneSignalInfo -instance SignalInfo PrintOperationDoneSignalInfo where - type HaskellCallbackType PrintOperationDoneSignalInfo = PrintOperationDoneCallback - connectSignal _ = connectPrintOperationDone - -data PrintOperationDrawPageSignalInfo -instance SignalInfo PrintOperationDrawPageSignalInfo where - type HaskellCallbackType PrintOperationDrawPageSignalInfo = PrintOperationDrawPageCallback - connectSignal _ = connectPrintOperationDrawPage - -data PrintOperationEndPrintSignalInfo -instance SignalInfo PrintOperationEndPrintSignalInfo where - type HaskellCallbackType PrintOperationEndPrintSignalInfo = PrintOperationEndPrintCallback - connectSignal _ = connectPrintOperationEndPrint - -data PrintOperationPaginateSignalInfo -instance SignalInfo PrintOperationPaginateSignalInfo where - type HaskellCallbackType PrintOperationPaginateSignalInfo = PrintOperationPaginateCallback - connectSignal _ = connectPrintOperationPaginate - -data PrintOperationPreviewSignalInfo -instance SignalInfo PrintOperationPreviewSignalInfo where - type HaskellCallbackType PrintOperationPreviewSignalInfo = PrintOperationPreviewCallback - connectSignal _ = connectPrintOperationPreview - -data PrintOperationRequestPageSetupSignalInfo -instance SignalInfo PrintOperationRequestPageSetupSignalInfo where - type HaskellCallbackType PrintOperationRequestPageSetupSignalInfo = PrintOperationRequestPageSetupCallback - connectSignal _ = connectPrintOperationRequestPageSetup - -data PrintOperationStatusChangedSignalInfo -instance SignalInfo PrintOperationStatusChangedSignalInfo where - type HaskellCallbackType PrintOperationStatusChangedSignalInfo = PrintOperationStatusChangedCallback - connectSignal _ = connectPrintOperationStatusChanged - -data PrintOperationUpdateCustomWidgetSignalInfo -instance SignalInfo PrintOperationUpdateCustomWidgetSignalInfo where - type HaskellCallbackType PrintOperationUpdateCustomWidgetSignalInfo = PrintOperationUpdateCustomWidgetCallback - connectSignal _ = connectPrintOperationUpdateCustomWidget - -type instance SignalList PrintOperation = PrintOperationSignalList -type PrintOperationSignalList = ('[ '("beginPrint", PrintOperationBeginPrintSignalInfo), '("createCustomWidget", PrintOperationCreateCustomWidgetSignalInfo), '("customWidgetApply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("drawPage", PrintOperationDrawPageSignalInfo), '("endPrint", PrintOperationEndPrintSignalInfo), '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("requestPageSetup", PrintOperationRequestPageSetupSignalInfo), '("statusChanged", PrintOperationStatusChangedSignalInfo), '("updateCustomWidget", PrintOperationUpdateCustomWidgetSignalInfo)] :: [(Symbol, *)]) - --- method PrintOperation::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintOperation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_new" gtk_print_operation_new :: - IO (Ptr PrintOperation) - - -printOperationNew :: - (MonadIO m) => - m PrintOperation -- result -printOperationNew = liftIO $ do - result <- gtk_print_operation_new - checkUnexpectedReturnNULL "gtk_print_operation_new" result - result' <- (wrapObject PrintOperation) result - return result' - --- method PrintOperation::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_cancel" gtk_print_operation_cancel :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO () - - -printOperationCancel :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m () -- result -printOperationCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_cancel _obj' - touchManagedPtr _obj - return () - -data PrintOperationCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationCancelMethodInfo a signature where - overloadedMethod _ = printOperationCancel - --- method PrintOperation::draw_page_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_draw_page_finish" gtk_print_operation_draw_page_finish :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO () - - -printOperationDrawPageFinish :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m () -- result -printOperationDrawPageFinish _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_draw_page_finish _obj' - touchManagedPtr _obj - return () - -data PrintOperationDrawPageFinishMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationDrawPageFinishMethodInfo a signature where - overloadedMethod _ = printOperationDrawPageFinish - --- method PrintOperation::get_default_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSetup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_get_default_page_setup" gtk_print_operation_get_default_page_setup :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO (Ptr PageSetup) - - -printOperationGetDefaultPageSetup :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m PageSetup -- result -printOperationGetDefaultPageSetup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_default_page_setup _obj' - checkUnexpectedReturnNULL "gtk_print_operation_get_default_page_setup" result - result' <- (newObject PageSetup) result - touchManagedPtr _obj - return result' - -data PrintOperationGetDefaultPageSetupMethodInfo -instance (signature ~ (m PageSetup), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetDefaultPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationGetDefaultPageSetup - --- method PrintOperation::get_embed_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_get_embed_page_setup" gtk_print_operation_get_embed_page_setup :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CInt - - -printOperationGetEmbedPageSetup :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m Bool -- result -printOperationGetEmbedPageSetup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_embed_page_setup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintOperationGetEmbedPageSetupMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetEmbedPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationGetEmbedPageSetup - --- method PrintOperation::get_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_operation_get_error" gtk_print_operation_get_error :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Ptr (Ptr GError) -> -- error - IO () - - -printOperationGetError :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m () -- result -printOperationGetError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - propagateGError $ gtk_print_operation_get_error _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data PrintOperationGetErrorMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetErrorMethodInfo a signature where - overloadedMethod _ = printOperationGetError - --- method PrintOperation::get_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_get_has_selection" gtk_print_operation_get_has_selection :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CInt - - -printOperationGetHasSelection :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m Bool -- result -printOperationGetHasSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_has_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintOperationGetHasSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetHasSelectionMethodInfo a signature where - overloadedMethod _ = printOperationGetHasSelection - --- method PrintOperation::get_n_pages_to_print --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_get_n_pages_to_print" gtk_print_operation_get_n_pages_to_print :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO Int32 - - -printOperationGetNPagesToPrint :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m Int32 -- result -printOperationGetNPagesToPrint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_n_pages_to_print _obj' - touchManagedPtr _obj - return result - -data PrintOperationGetNPagesToPrintMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetNPagesToPrintMethodInfo a signature where - overloadedMethod _ = printOperationGetNPagesToPrint - --- method PrintOperation::get_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintSettings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_get_print_settings" gtk_print_operation_get_print_settings :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO (Ptr PrintSettings) - - -printOperationGetPrintSettings :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m PrintSettings -- result -printOperationGetPrintSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_print_settings _obj' - checkUnexpectedReturnNULL "gtk_print_operation_get_print_settings" result - result' <- (newObject PrintSettings) result - touchManagedPtr _obj - return result' - -data PrintOperationGetPrintSettingsMethodInfo -instance (signature ~ (m PrintSettings), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where - overloadedMethod _ = printOperationGetPrintSettings - --- method PrintOperation::get_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintStatus") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_get_status" gtk_print_operation_get_status :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CUInt - - -printOperationGetStatus :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m PrintStatus -- result -printOperationGetStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_status _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintOperationGetStatusMethodInfo -instance (signature ~ (m PrintStatus), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetStatusMethodInfo a signature where - overloadedMethod _ = printOperationGetStatus - --- method PrintOperation::get_status_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_get_status_string" gtk_print_operation_get_status_string :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CString - - -printOperationGetStatusString :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m T.Text -- result -printOperationGetStatusString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_status_string _obj' - checkUnexpectedReturnNULL "gtk_print_operation_get_status_string" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintOperationGetStatusStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetStatusStringMethodInfo a signature where - overloadedMethod _ = printOperationGetStatusString - --- method PrintOperation::get_support_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_get_support_selection" gtk_print_operation_get_support_selection :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CInt - - -printOperationGetSupportSelection :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m Bool -- result -printOperationGetSupportSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_support_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintOperationGetSupportSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetSupportSelectionMethodInfo a signature where - overloadedMethod _ = printOperationGetSupportSelection - --- method PrintOperation::is_finished --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_is_finished" gtk_print_operation_is_finished :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO CInt - - -printOperationIsFinished :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m Bool -- result -printOperationIsFinished _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_is_finished _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintOperationIsFinishedMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationIsFinishedMethodInfo a signature where - overloadedMethod _ = printOperationIsFinished - --- method PrintOperation::run --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintOperationResult") --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_operation_run" gtk_print_operation_run :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CUInt -> -- action : TInterface "Gtk" "PrintOperationAction" - Ptr Window -> -- parent : TInterface "Gtk" "Window" - Ptr (Ptr GError) -> -- error - IO CUInt - - -printOperationRun :: - (MonadIO m, PrintOperationK a, WindowK b) => - a -- _obj - -> PrintOperationAction -- action - -> Maybe (b) -- parent - -> m PrintOperationResult -- result -printOperationRun _obj action parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = (fromIntegral . fromEnum) action - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - onException (do - result <- propagateGError $ gtk_print_operation_run _obj' action' maybeParent - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - whenJust parent touchManagedPtr - return result' - ) (do - return () - ) - -data PrintOperationRunMethodInfo -instance (signature ~ (PrintOperationAction -> Maybe (b) -> m PrintOperationResult), MonadIO m, PrintOperationK a, WindowK b) => MethodInfo PrintOperationRunMethodInfo a signature where - overloadedMethod _ = printOperationRun - --- method PrintOperation::set_allow_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_async", 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 "gtk_print_operation_set_allow_async" gtk_print_operation_set_allow_async :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- allow_async : TBasicType TBoolean - IO () - - -printOperationSetAllowAsync :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- allowAsync - -> m () -- result -printOperationSetAllowAsync _obj allowAsync = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowAsync' = (fromIntegral . fromEnum) allowAsync - gtk_print_operation_set_allow_async _obj' allowAsync' - touchManagedPtr _obj - return () - -data PrintOperationSetAllowAsyncMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetAllowAsyncMethodInfo a signature where - overloadedMethod _ = printOperationSetAllowAsync - --- method PrintOperation::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", 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 "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- current_page : TBasicType TInt - IO () - - -printOperationSetCurrentPage :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Int32 -- currentPage - -> m () -- result -printOperationSetCurrentPage _obj currentPage = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_current_page _obj' currentPage - touchManagedPtr _obj - return () - -data PrintOperationSetCurrentPageMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetCurrentPageMethodInfo a signature where - overloadedMethod _ = printOperationSetCurrentPage - --- method PrintOperation::set_custom_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_set_custom_tab_label" gtk_print_operation_set_custom_tab_label :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CString -> -- label : TBasicType TUTF8 - IO () - - -printOperationSetCustomTabLabel :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -printOperationSetCustomTabLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - gtk_print_operation_set_custom_tab_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data PrintOperationSetCustomTabLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetCustomTabLabelMethodInfo a signature where - overloadedMethod _ = printOperationSetCustomTabLabel - --- method PrintOperation::set_default_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_set_default_page_setup" gtk_print_operation_set_default_page_setup :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Ptr PageSetup -> -- default_page_setup : TInterface "Gtk" "PageSetup" - IO () - - -printOperationSetDefaultPageSetup :: - (MonadIO m, PrintOperationK a, PageSetupK b) => - a -- _obj - -> Maybe (b) -- defaultPageSetup - -> m () -- result -printOperationSetDefaultPageSetup _obj defaultPageSetup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefaultPageSetup <- case defaultPageSetup of - Nothing -> return nullPtr - Just jDefaultPageSetup -> do - let jDefaultPageSetup' = unsafeManagedPtrCastPtr jDefaultPageSetup - return jDefaultPageSetup' - gtk_print_operation_set_default_page_setup _obj' maybeDefaultPageSetup - touchManagedPtr _obj - whenJust defaultPageSetup touchManagedPtr - return () - -data PrintOperationSetDefaultPageSetupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PrintOperationK a, PageSetupK b) => MethodInfo PrintOperationSetDefaultPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationSetDefaultPageSetup - --- method PrintOperation::set_defer_drawing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", 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 "gtk_print_operation_set_defer_drawing" gtk_print_operation_set_defer_drawing :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - IO () - - -printOperationSetDeferDrawing :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> m () -- result -printOperationSetDeferDrawing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_defer_drawing _obj' - touchManagedPtr _obj - return () - -data PrintOperationSetDeferDrawingMethodInfo -instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetDeferDrawingMethodInfo a signature where - overloadedMethod _ = printOperationSetDeferDrawing - --- method PrintOperation::set_embed_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embed", 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 "gtk_print_operation_set_embed_page_setup" gtk_print_operation_set_embed_page_setup :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- embed : TBasicType TBoolean - IO () - - -printOperationSetEmbedPageSetup :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- embed - -> m () -- result -printOperationSetEmbedPageSetup _obj embed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let embed' = (fromIntegral . fromEnum) embed - gtk_print_operation_set_embed_page_setup _obj' embed' - touchManagedPtr _obj - return () - -data PrintOperationSetEmbedPageSetupMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetEmbedPageSetupMethodInfo a signature where - overloadedMethod _ = printOperationSetEmbedPageSetup - --- method PrintOperation::set_export_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_print_operation_set_export_filename" gtk_print_operation_set_export_filename :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CString -> -- filename : TBasicType TFileName - IO () - - -printOperationSetExportFilename :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> [Char] -- filename - -> m () -- result -printOperationSetExportFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - gtk_print_operation_set_export_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - -data PrintOperationSetExportFilenameMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetExportFilenameMethodInfo a signature where - overloadedMethod _ = printOperationSetExportFilename - --- method PrintOperation::set_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_selection", 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 "gtk_print_operation_set_has_selection" gtk_print_operation_set_has_selection :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- has_selection : TBasicType TBoolean - IO () - - -printOperationSetHasSelection :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- hasSelection - -> m () -- result -printOperationSetHasSelection _obj hasSelection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasSelection' = (fromIntegral . fromEnum) hasSelection - gtk_print_operation_set_has_selection _obj' hasSelection' - touchManagedPtr _obj - return () - -data PrintOperationSetHasSelectionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetHasSelectionMethodInfo a signature where - overloadedMethod _ = printOperationSetHasSelection - --- method PrintOperation::set_job_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "job_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 "gtk_print_operation_set_job_name" gtk_print_operation_set_job_name :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CString -> -- job_name : TBasicType TUTF8 - IO () - - -printOperationSetJobName :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> T.Text -- jobName - -> m () -- result -printOperationSetJobName _obj jobName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - jobName' <- textToCString jobName - gtk_print_operation_set_job_name _obj' jobName' - touchManagedPtr _obj - freeMem jobName' - return () - -data PrintOperationSetJobNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetJobNameMethodInfo a signature where - overloadedMethod _ = printOperationSetJobName - --- method PrintOperation::set_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", 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 "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- n_pages : TBasicType TInt - IO () - - -printOperationSetNPages :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Int32 -- nPages - -> m () -- result -printOperationSetNPages _obj nPages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_n_pages _obj' nPages - touchManagedPtr _obj - return () - -data PrintOperationSetNPagesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetNPagesMethodInfo a signature where - overloadedMethod _ = printOperationSetNPages - --- method PrintOperation::set_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_set_print_settings" gtk_print_operation_set_print_settings :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Ptr PrintSettings -> -- print_settings : TInterface "Gtk" "PrintSettings" - IO () - - -printOperationSetPrintSettings :: - (MonadIO m, PrintOperationK a, PrintSettingsK b) => - a -- _obj - -> Maybe (b) -- printSettings - -> m () -- result -printOperationSetPrintSettings _obj printSettings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePrintSettings <- case printSettings of - Nothing -> return nullPtr - Just jPrintSettings -> do - let jPrintSettings' = unsafeManagedPtrCastPtr jPrintSettings - return jPrintSettings' - gtk_print_operation_set_print_settings _obj' maybePrintSettings - touchManagedPtr _obj - whenJust printSettings touchManagedPtr - return () - -data PrintOperationSetPrintSettingsMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PrintOperationK a, PrintSettingsK b) => MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where - overloadedMethod _ = printOperationSetPrintSettings - --- method PrintOperation::set_show_progress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_progress", 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 "gtk_print_operation_set_show_progress" gtk_print_operation_set_show_progress :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- show_progress : TBasicType TBoolean - IO () - - -printOperationSetShowProgress :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- showProgress - -> m () -- result -printOperationSetShowProgress _obj showProgress = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showProgress' = (fromIntegral . fromEnum) showProgress - gtk_print_operation_set_show_progress _obj' showProgress' - touchManagedPtr _obj - return () - -data PrintOperationSetShowProgressMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetShowProgressMethodInfo a signature where - overloadedMethod _ = printOperationSetShowProgress - --- method PrintOperation::set_support_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_selection", 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 "gtk_print_operation_set_support_selection" gtk_print_operation_set_support_selection :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- support_selection : TBasicType TBoolean - IO () - - -printOperationSetSupportSelection :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- supportSelection - -> m () -- result -printOperationSetSupportSelection _obj supportSelection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let supportSelection' = (fromIntegral . fromEnum) supportSelection - gtk_print_operation_set_support_selection _obj' supportSelection' - touchManagedPtr _obj - return () - -data PrintOperationSetSupportSelectionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetSupportSelectionMethodInfo a signature where - overloadedMethod _ = printOperationSetSupportSelection - --- method PrintOperation::set_track_print_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_status", 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 "gtk_print_operation_set_track_print_status" gtk_print_operation_set_track_print_status :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- track_status : TBasicType TBoolean - IO () - - -printOperationSetTrackPrintStatus :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- trackStatus - -> m () -- result -printOperationSetTrackPrintStatus _obj trackStatus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let trackStatus' = (fromIntegral . fromEnum) trackStatus - gtk_print_operation_set_track_print_status _obj' trackStatus' - touchManagedPtr _obj - return () - -data PrintOperationSetTrackPrintStatusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetTrackPrintStatusMethodInfo a signature where - overloadedMethod _ = printOperationSetTrackPrintStatus - --- method PrintOperation::set_unit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_operation_set_unit" gtk_print_operation_set_unit :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printOperationSetUnit :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Unit -- unit - -> m () -- result -printOperationSetUnit _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - gtk_print_operation_set_unit _obj' unit' - touchManagedPtr _obj - return () - -data PrintOperationSetUnitMethodInfo -instance (signature ~ (Unit -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetUnitMethodInfo a signature where - overloadedMethod _ = printOperationSetUnit - --- method PrintOperation::set_use_full_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_page", 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 "gtk_print_operation_set_use_full_page" gtk_print_operation_set_use_full_page :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - CInt -> -- full_page : TBasicType TBoolean - IO () - - -printOperationSetUseFullPage :: - (MonadIO m, PrintOperationK a) => - a -- _obj - -> Bool -- fullPage - -> m () -- result -printOperationSetUseFullPage _obj fullPage = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fullPage' = (fromIntegral . fromEnum) fullPage - gtk_print_operation_set_use_full_page _obj' fullPage' - touchManagedPtr _obj - return () - -data PrintOperationSetUseFullPageMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetUseFullPageMethodInfo a signature where - overloadedMethod _ = printOperationSetUseFullPage - - diff --git a/GI/Gtk/Objects/PrintOperation.hs-boot b/GI/Gtk/Objects/PrintOperation.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PrintOperation.hs-boot +++ /dev/null @@ -1,71 +0,0 @@ -module GI.Gtk.Objects.PrintOperation 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 PrintOperation = PrintOperation (ForeignPtr PrintOperation) -instance GObject PrintOperation where -class GObject o => PrintOperationK o -instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o -data PrintOperationAllowAsyncPropertyInfo -data PrintOperationCurrentPagePropertyInfo -data PrintOperationCustomTabLabelPropertyInfo -data PrintOperationDefaultPageSetupPropertyInfo -data PrintOperationEmbedPageSetupPropertyInfo -data PrintOperationExportFilenamePropertyInfo -data PrintOperationHasSelectionPropertyInfo -data PrintOperationJobNamePropertyInfo -data PrintOperationNPagesPropertyInfo -data PrintOperationNPagesToPrintPropertyInfo -data PrintOperationPrintSettingsPropertyInfo -data PrintOperationShowProgressPropertyInfo -data PrintOperationStatusPropertyInfo -data PrintOperationStatusStringPropertyInfo -data PrintOperationSupportSelectionPropertyInfo -data PrintOperationTrackPrintStatusPropertyInfo -data PrintOperationUnitPropertyInfo -data PrintOperationUseFullPagePropertyInfo -data PrintOperationBeginPrintSignalInfo -data PrintOperationCreateCustomWidgetSignalInfo -data PrintOperationCustomWidgetApplySignalInfo -data PrintOperationDoneSignalInfo -data PrintOperationDrawPageSignalInfo -data PrintOperationEndPrintSignalInfo -data PrintOperationPaginateSignalInfo -data PrintOperationPreviewSignalInfo -data PrintOperationRequestPageSetupSignalInfo -data PrintOperationStatusChangedSignalInfo -data PrintOperationUpdateCustomWidgetSignalInfo -data PrintOperationCancelMethodInfo -data PrintOperationDrawPageFinishMethodInfo -data PrintOperationGetDefaultPageSetupMethodInfo -data PrintOperationGetEmbedPageSetupMethodInfo -data PrintOperationGetErrorMethodInfo -data PrintOperationGetHasSelectionMethodInfo -data PrintOperationGetNPagesToPrintMethodInfo -data PrintOperationGetPrintSettingsMethodInfo -data PrintOperationGetStatusMethodInfo -data PrintOperationGetStatusStringMethodInfo -data PrintOperationGetSupportSelectionMethodInfo -data PrintOperationIsFinishedMethodInfo -data PrintOperationRunMethodInfo -data PrintOperationSetAllowAsyncMethodInfo -data PrintOperationSetCurrentPageMethodInfo -data PrintOperationSetCustomTabLabelMethodInfo -data PrintOperationSetDefaultPageSetupMethodInfo -data PrintOperationSetDeferDrawingMethodInfo -data PrintOperationSetEmbedPageSetupMethodInfo -data PrintOperationSetExportFilenameMethodInfo -data PrintOperationSetHasSelectionMethodInfo -data PrintOperationSetJobNameMethodInfo -data PrintOperationSetNPagesMethodInfo -data PrintOperationSetPrintSettingsMethodInfo -data PrintOperationSetShowProgressMethodInfo -data PrintOperationSetSupportSelectionMethodInfo -data PrintOperationSetTrackPrintStatusMethodInfo -data PrintOperationSetUnitMethodInfo -data PrintOperationSetUseFullPageMethodInfo diff --git a/GI/Gtk/Objects/PrintSettings.hs b/GI/Gtk/Objects/PrintSettings.hs deleted file mode 100644 --- a/GI/Gtk/Objects/PrintSettings.hs +++ /dev/null @@ -1,2816 +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.Gtk.Objects.PrintSettings - ( - --- * Exported types - PrintSettings(..) , - PrintSettingsK , - toPrintSettings , - noPrintSettings , - - - -- * Methods --- ** printSettingsCopy - PrintSettingsCopyMethodInfo , - printSettingsCopy , - - --- ** printSettingsForeach - PrintSettingsForeachMethodInfo , - printSettingsForeach , - - --- ** printSettingsGet - PrintSettingsGetMethodInfo , - printSettingsGet , - - --- ** printSettingsGetBool - PrintSettingsGetBoolMethodInfo , - printSettingsGetBool , - - --- ** printSettingsGetCollate - PrintSettingsGetCollateMethodInfo , - printSettingsGetCollate , - - --- ** printSettingsGetDefaultSource - PrintSettingsGetDefaultSourceMethodInfo , - printSettingsGetDefaultSource , - - --- ** printSettingsGetDither - PrintSettingsGetDitherMethodInfo , - printSettingsGetDither , - - --- ** printSettingsGetDouble - PrintSettingsGetDoubleMethodInfo , - printSettingsGetDouble , - - --- ** printSettingsGetDoubleWithDefault - PrintSettingsGetDoubleWithDefaultMethodInfo, - printSettingsGetDoubleWithDefault , - - --- ** printSettingsGetDuplex - PrintSettingsGetDuplexMethodInfo , - printSettingsGetDuplex , - - --- ** printSettingsGetFinishings - PrintSettingsGetFinishingsMethodInfo , - printSettingsGetFinishings , - - --- ** printSettingsGetInt - PrintSettingsGetIntMethodInfo , - printSettingsGetInt , - - --- ** printSettingsGetIntWithDefault - PrintSettingsGetIntWithDefaultMethodInfo, - printSettingsGetIntWithDefault , - - --- ** printSettingsGetLength - PrintSettingsGetLengthMethodInfo , - printSettingsGetLength , - - --- ** printSettingsGetMediaType - PrintSettingsGetMediaTypeMethodInfo , - printSettingsGetMediaType , - - --- ** printSettingsGetNCopies - PrintSettingsGetNCopiesMethodInfo , - printSettingsGetNCopies , - - --- ** printSettingsGetNumberUp - PrintSettingsGetNumberUpMethodInfo , - printSettingsGetNumberUp , - - --- ** printSettingsGetNumberUpLayout - PrintSettingsGetNumberUpLayoutMethodInfo, - printSettingsGetNumberUpLayout , - - --- ** printSettingsGetOrientation - PrintSettingsGetOrientationMethodInfo , - printSettingsGetOrientation , - - --- ** printSettingsGetOutputBin - PrintSettingsGetOutputBinMethodInfo , - printSettingsGetOutputBin , - - --- ** printSettingsGetPageRanges - PrintSettingsGetPageRangesMethodInfo , - printSettingsGetPageRanges , - - --- ** printSettingsGetPageSet - PrintSettingsGetPageSetMethodInfo , - printSettingsGetPageSet , - - --- ** printSettingsGetPaperHeight - PrintSettingsGetPaperHeightMethodInfo , - printSettingsGetPaperHeight , - - --- ** printSettingsGetPaperSize - PrintSettingsGetPaperSizeMethodInfo , - printSettingsGetPaperSize , - - --- ** printSettingsGetPaperWidth - PrintSettingsGetPaperWidthMethodInfo , - printSettingsGetPaperWidth , - - --- ** printSettingsGetPrintPages - PrintSettingsGetPrintPagesMethodInfo , - printSettingsGetPrintPages , - - --- ** printSettingsGetPrinter - PrintSettingsGetPrinterMethodInfo , - printSettingsGetPrinter , - - --- ** printSettingsGetPrinterLpi - PrintSettingsGetPrinterLpiMethodInfo , - printSettingsGetPrinterLpi , - - --- ** printSettingsGetQuality - PrintSettingsGetQualityMethodInfo , - printSettingsGetQuality , - - --- ** printSettingsGetResolution - PrintSettingsGetResolutionMethodInfo , - printSettingsGetResolution , - - --- ** printSettingsGetResolutionX - PrintSettingsGetResolutionXMethodInfo , - printSettingsGetResolutionX , - - --- ** printSettingsGetResolutionY - PrintSettingsGetResolutionYMethodInfo , - printSettingsGetResolutionY , - - --- ** printSettingsGetReverse - PrintSettingsGetReverseMethodInfo , - printSettingsGetReverse , - - --- ** printSettingsGetScale - PrintSettingsGetScaleMethodInfo , - printSettingsGetScale , - - --- ** printSettingsGetUseColor - PrintSettingsGetUseColorMethodInfo , - printSettingsGetUseColor , - - --- ** printSettingsHasKey - PrintSettingsHasKeyMethodInfo , - printSettingsHasKey , - - --- ** printSettingsLoadFile - PrintSettingsLoadFileMethodInfo , - printSettingsLoadFile , - - --- ** printSettingsLoadKeyFile - PrintSettingsLoadKeyFileMethodInfo , - printSettingsLoadKeyFile , - - --- ** printSettingsNew - printSettingsNew , - - --- ** printSettingsNewFromFile - printSettingsNewFromFile , - - --- ** printSettingsNewFromKeyFile - printSettingsNewFromKeyFile , - - --- ** printSettingsSet - PrintSettingsSetMethodInfo , - printSettingsSet , - - --- ** printSettingsSetBool - PrintSettingsSetBoolMethodInfo , - printSettingsSetBool , - - --- ** printSettingsSetCollate - PrintSettingsSetCollateMethodInfo , - printSettingsSetCollate , - - --- ** printSettingsSetDefaultSource - PrintSettingsSetDefaultSourceMethodInfo , - printSettingsSetDefaultSource , - - --- ** printSettingsSetDither - PrintSettingsSetDitherMethodInfo , - printSettingsSetDither , - - --- ** printSettingsSetDouble - PrintSettingsSetDoubleMethodInfo , - printSettingsSetDouble , - - --- ** printSettingsSetDuplex - PrintSettingsSetDuplexMethodInfo , - printSettingsSetDuplex , - - --- ** printSettingsSetFinishings - PrintSettingsSetFinishingsMethodInfo , - printSettingsSetFinishings , - - --- ** printSettingsSetInt - PrintSettingsSetIntMethodInfo , - printSettingsSetInt , - - --- ** printSettingsSetLength - PrintSettingsSetLengthMethodInfo , - printSettingsSetLength , - - --- ** printSettingsSetMediaType - PrintSettingsSetMediaTypeMethodInfo , - printSettingsSetMediaType , - - --- ** printSettingsSetNCopies - PrintSettingsSetNCopiesMethodInfo , - printSettingsSetNCopies , - - --- ** printSettingsSetNumberUp - PrintSettingsSetNumberUpMethodInfo , - printSettingsSetNumberUp , - - --- ** printSettingsSetNumberUpLayout - PrintSettingsSetNumberUpLayoutMethodInfo, - printSettingsSetNumberUpLayout , - - --- ** printSettingsSetOrientation - PrintSettingsSetOrientationMethodInfo , - printSettingsSetOrientation , - - --- ** printSettingsSetOutputBin - PrintSettingsSetOutputBinMethodInfo , - printSettingsSetOutputBin , - - --- ** printSettingsSetPageRanges - PrintSettingsSetPageRangesMethodInfo , - printSettingsSetPageRanges , - - --- ** printSettingsSetPageSet - PrintSettingsSetPageSetMethodInfo , - printSettingsSetPageSet , - - --- ** printSettingsSetPaperHeight - PrintSettingsSetPaperHeightMethodInfo , - printSettingsSetPaperHeight , - - --- ** printSettingsSetPaperSize - PrintSettingsSetPaperSizeMethodInfo , - printSettingsSetPaperSize , - - --- ** printSettingsSetPaperWidth - PrintSettingsSetPaperWidthMethodInfo , - printSettingsSetPaperWidth , - - --- ** printSettingsSetPrintPages - PrintSettingsSetPrintPagesMethodInfo , - printSettingsSetPrintPages , - - --- ** printSettingsSetPrinter - PrintSettingsSetPrinterMethodInfo , - printSettingsSetPrinter , - - --- ** printSettingsSetPrinterLpi - PrintSettingsSetPrinterLpiMethodInfo , - printSettingsSetPrinterLpi , - - --- ** printSettingsSetQuality - PrintSettingsSetQualityMethodInfo , - printSettingsSetQuality , - - --- ** printSettingsSetResolution - PrintSettingsSetResolutionMethodInfo , - printSettingsSetResolution , - - --- ** printSettingsSetResolutionXy - PrintSettingsSetResolutionXyMethodInfo , - printSettingsSetResolutionXy , - - --- ** printSettingsSetReverse - PrintSettingsSetReverseMethodInfo , - printSettingsSetReverse , - - --- ** printSettingsSetScale - PrintSettingsSetScaleMethodInfo , - printSettingsSetScale , - - --- ** printSettingsSetUseColor - PrintSettingsSetUseColorMethodInfo , - printSettingsSetUseColor , - - --- ** printSettingsToFile - PrintSettingsToFileMethodInfo , - printSettingsToFile , - - --- ** printSettingsToKeyFile - PrintSettingsToKeyFileMethodInfo , - printSettingsToKeyFile , - - --- ** printSettingsUnset - PrintSettingsUnsetMethodInfo , - printSettingsUnset , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype PrintSettings = PrintSettings (ForeignPtr PrintSettings) -foreign import ccall "gtk_print_settings_get_type" - c_gtk_print_settings_get_type :: IO GType - -type instance ParentTypes PrintSettings = PrintSettingsParentTypes -type PrintSettingsParentTypes = '[GObject.Object] - -instance GObject PrintSettings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_print_settings_get_type - - -class GObject o => PrintSettingsK o -instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o - -toPrintSettings :: PrintSettingsK o => o -> IO PrintSettings -toPrintSettings = unsafeCastTo PrintSettings - -noPrintSettings :: Maybe PrintSettings -noPrintSettings = Nothing - -type family ResolvePrintSettingsMethod (t :: Symbol) (o :: *) :: * where - ResolvePrintSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePrintSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePrintSettingsMethod "copy" o = PrintSettingsCopyMethodInfo - ResolvePrintSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePrintSettingsMethod "foreach" o = PrintSettingsForeachMethodInfo - ResolvePrintSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePrintSettingsMethod "get" o = PrintSettingsGetMethodInfo - ResolvePrintSettingsMethod "hasKey" o = PrintSettingsHasKeyMethodInfo - ResolvePrintSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePrintSettingsMethod "loadFile" o = PrintSettingsLoadFileMethodInfo - ResolvePrintSettingsMethod "loadKeyFile" o = PrintSettingsLoadKeyFileMethodInfo - ResolvePrintSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePrintSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePrintSettingsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePrintSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePrintSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePrintSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePrintSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePrintSettingsMethod "set" o = PrintSettingsSetMethodInfo - ResolvePrintSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePrintSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePrintSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePrintSettingsMethod "toFile" o = PrintSettingsToFileMethodInfo - ResolvePrintSettingsMethod "toKeyFile" o = PrintSettingsToKeyFileMethodInfo - ResolvePrintSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePrintSettingsMethod "unset" o = PrintSettingsUnsetMethodInfo - ResolvePrintSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePrintSettingsMethod "getBool" o = PrintSettingsGetBoolMethodInfo - ResolvePrintSettingsMethod "getCollate" o = PrintSettingsGetCollateMethodInfo - ResolvePrintSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePrintSettingsMethod "getDefaultSource" o = PrintSettingsGetDefaultSourceMethodInfo - ResolvePrintSettingsMethod "getDither" o = PrintSettingsGetDitherMethodInfo - ResolvePrintSettingsMethod "getDouble" o = PrintSettingsGetDoubleMethodInfo - ResolvePrintSettingsMethod "getDoubleWithDefault" o = PrintSettingsGetDoubleWithDefaultMethodInfo - ResolvePrintSettingsMethod "getDuplex" o = PrintSettingsGetDuplexMethodInfo - ResolvePrintSettingsMethod "getFinishings" o = PrintSettingsGetFinishingsMethodInfo - ResolvePrintSettingsMethod "getInt" o = PrintSettingsGetIntMethodInfo - ResolvePrintSettingsMethod "getIntWithDefault" o = PrintSettingsGetIntWithDefaultMethodInfo - ResolvePrintSettingsMethod "getLength" o = PrintSettingsGetLengthMethodInfo - ResolvePrintSettingsMethod "getMediaType" o = PrintSettingsGetMediaTypeMethodInfo - ResolvePrintSettingsMethod "getNCopies" o = PrintSettingsGetNCopiesMethodInfo - ResolvePrintSettingsMethod "getNumberUp" o = PrintSettingsGetNumberUpMethodInfo - ResolvePrintSettingsMethod "getNumberUpLayout" o = PrintSettingsGetNumberUpLayoutMethodInfo - ResolvePrintSettingsMethod "getOrientation" o = PrintSettingsGetOrientationMethodInfo - ResolvePrintSettingsMethod "getOutputBin" o = PrintSettingsGetOutputBinMethodInfo - ResolvePrintSettingsMethod "getPageRanges" o = PrintSettingsGetPageRangesMethodInfo - ResolvePrintSettingsMethod "getPageSet" o = PrintSettingsGetPageSetMethodInfo - ResolvePrintSettingsMethod "getPaperHeight" o = PrintSettingsGetPaperHeightMethodInfo - ResolvePrintSettingsMethod "getPaperSize" o = PrintSettingsGetPaperSizeMethodInfo - ResolvePrintSettingsMethod "getPaperWidth" o = PrintSettingsGetPaperWidthMethodInfo - ResolvePrintSettingsMethod "getPrintPages" o = PrintSettingsGetPrintPagesMethodInfo - ResolvePrintSettingsMethod "getPrinter" o = PrintSettingsGetPrinterMethodInfo - ResolvePrintSettingsMethod "getPrinterLpi" o = PrintSettingsGetPrinterLpiMethodInfo - ResolvePrintSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePrintSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePrintSettingsMethod "getQuality" o = PrintSettingsGetQualityMethodInfo - ResolvePrintSettingsMethod "getResolution" o = PrintSettingsGetResolutionMethodInfo - ResolvePrintSettingsMethod "getResolutionX" o = PrintSettingsGetResolutionXMethodInfo - ResolvePrintSettingsMethod "getResolutionY" o = PrintSettingsGetResolutionYMethodInfo - ResolvePrintSettingsMethod "getReverse" o = PrintSettingsGetReverseMethodInfo - ResolvePrintSettingsMethod "getScale" o = PrintSettingsGetScaleMethodInfo - ResolvePrintSettingsMethod "getUseColor" o = PrintSettingsGetUseColorMethodInfo - ResolvePrintSettingsMethod "setBool" o = PrintSettingsSetBoolMethodInfo - ResolvePrintSettingsMethod "setCollate" o = PrintSettingsSetCollateMethodInfo - ResolvePrintSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePrintSettingsMethod "setDefaultSource" o = PrintSettingsSetDefaultSourceMethodInfo - ResolvePrintSettingsMethod "setDither" o = PrintSettingsSetDitherMethodInfo - ResolvePrintSettingsMethod "setDouble" o = PrintSettingsSetDoubleMethodInfo - ResolvePrintSettingsMethod "setDuplex" o = PrintSettingsSetDuplexMethodInfo - ResolvePrintSettingsMethod "setFinishings" o = PrintSettingsSetFinishingsMethodInfo - ResolvePrintSettingsMethod "setInt" o = PrintSettingsSetIntMethodInfo - ResolvePrintSettingsMethod "setLength" o = PrintSettingsSetLengthMethodInfo - ResolvePrintSettingsMethod "setMediaType" o = PrintSettingsSetMediaTypeMethodInfo - ResolvePrintSettingsMethod "setNCopies" o = PrintSettingsSetNCopiesMethodInfo - ResolvePrintSettingsMethod "setNumberUp" o = PrintSettingsSetNumberUpMethodInfo - ResolvePrintSettingsMethod "setNumberUpLayout" o = PrintSettingsSetNumberUpLayoutMethodInfo - ResolvePrintSettingsMethod "setOrientation" o = PrintSettingsSetOrientationMethodInfo - ResolvePrintSettingsMethod "setOutputBin" o = PrintSettingsSetOutputBinMethodInfo - ResolvePrintSettingsMethod "setPageRanges" o = PrintSettingsSetPageRangesMethodInfo - ResolvePrintSettingsMethod "setPageSet" o = PrintSettingsSetPageSetMethodInfo - ResolvePrintSettingsMethod "setPaperHeight" o = PrintSettingsSetPaperHeightMethodInfo - ResolvePrintSettingsMethod "setPaperSize" o = PrintSettingsSetPaperSizeMethodInfo - ResolvePrintSettingsMethod "setPaperWidth" o = PrintSettingsSetPaperWidthMethodInfo - ResolvePrintSettingsMethod "setPrintPages" o = PrintSettingsSetPrintPagesMethodInfo - ResolvePrintSettingsMethod "setPrinter" o = PrintSettingsSetPrinterMethodInfo - ResolvePrintSettingsMethod "setPrinterLpi" o = PrintSettingsSetPrinterLpiMethodInfo - ResolvePrintSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePrintSettingsMethod "setQuality" o = PrintSettingsSetQualityMethodInfo - ResolvePrintSettingsMethod "setResolution" o = PrintSettingsSetResolutionMethodInfo - ResolvePrintSettingsMethod "setResolutionXy" o = PrintSettingsSetResolutionXyMethodInfo - ResolvePrintSettingsMethod "setReverse" o = PrintSettingsSetReverseMethodInfo - ResolvePrintSettingsMethod "setScale" o = PrintSettingsSetScaleMethodInfo - ResolvePrintSettingsMethod "setUseColor" o = PrintSettingsSetUseColorMethodInfo - ResolvePrintSettingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabelProxy t (PrintSettings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabel t (PrintSettings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PrintSettings = PrintSettingsAttributeList -type PrintSettingsAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PrintSettings = PrintSettingsSignalList -type PrintSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintSettings::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintSettings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_new" gtk_print_settings_new :: - IO (Ptr PrintSettings) - - -printSettingsNew :: - (MonadIO m) => - m PrintSettings -- result -printSettingsNew = liftIO $ do - result <- gtk_print_settings_new - checkUnexpectedReturnNULL "gtk_print_settings_new" result - result' <- (wrapObject PrintSettings) result - return result' - --- method PrintSettings::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintSettings") --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_new_from_file" gtk_print_settings_new_from_file :: - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO (Ptr PrintSettings) - - -printSettingsNewFromFile :: - (MonadIO m) => - [Char] -- fileName - -> m PrintSettings -- result -printSettingsNewFromFile fileName = liftIO $ do - fileName' <- stringToCString fileName - onException (do - result <- propagateGError $ gtk_print_settings_new_from_file fileName' - checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result - result' <- (wrapObject PrintSettings) result - freeMem fileName' - return result' - ) (do - freeMem fileName' - ) - --- method PrintSettings::new_from_key_file --- method type : Constructor --- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintSettings") --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_new_from_key_file" gtk_print_settings_new_from_key_file :: - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PrintSettings) - - -printSettingsNewFromKeyFile :: - (MonadIO m) => - GLib.KeyFile -- keyFile - -> Maybe (T.Text) -- groupName - -> m PrintSettings -- result -printSettingsNewFromKeyFile keyFile groupName = liftIO $ do - let keyFile' = unsafeManagedPtrGetPtr keyFile - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - onException (do - result <- propagateGError $ gtk_print_settings_new_from_key_file keyFile' maybeGroupName - checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result - result' <- (wrapObject PrintSettings) result - touchManagedPtr keyFile - freeMem maybeGroupName - return result' - ) (do - freeMem maybeGroupName - ) - --- method PrintSettings::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintSettings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_copy" gtk_print_settings_copy :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO (Ptr PrintSettings) - - -printSettingsCopy :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PrintSettings -- result -printSettingsCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_copy _obj' - checkUnexpectedReturnNULL "gtk_print_settings_copy" result - result' <- (wrapObject PrintSettings) result - touchManagedPtr _obj - return result' - -data PrintSettingsCopyMethodInfo -instance (signature ~ (m PrintSettings), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsCopyMethodInfo a signature where - overloadedMethod _ = printSettingsCopy - --- method PrintSettings::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_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 "gtk_print_settings_foreach" gtk_print_settings_foreach :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -printSettingsForeach :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PrintSettingsFunc -- func - -> m () -- result -printSettingsForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func) - let userData = nullPtr - gtk_print_settings_foreach _obj' func' userData - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data PrintSettingsForeachMethodInfo -instance (signature ~ (PrintSettingsFunc -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsForeachMethodInfo a signature where - overloadedMethod _ = printSettingsForeach - --- method PrintSettings::get --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", 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 "gtk_print_settings_get" gtk_print_settings_get :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CString - - -printSettingsGet :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m T.Text -- result -printSettingsGet _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get _obj' key' - checkUnexpectedReturnNULL "gtk_print_settings_get" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsGetMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMethodInfo a signature where - overloadedMethod _ = printSettingsGet - --- method PrintSettings::get_bool --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", 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 "gtk_print_settings_get_bool" gtk_print_settings_get_bool :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -printSettingsGetBool :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m Bool -- result -printSettingsGetBool _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_bool _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsGetBoolMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetBoolMethodInfo a signature where - overloadedMethod _ = printSettingsGetBool - --- method PrintSettings::get_collate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_collate" gtk_print_settings_get_collate :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetCollate :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Bool -- result -printSettingsGetCollate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_collate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetCollateMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetCollateMethodInfo a signature where - overloadedMethod _ = printSettingsGetCollate - --- method PrintSettings::get_default_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_default_source" gtk_print_settings_get_default_source :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetDefaultSource :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetDefaultSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_default_source _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_default_source" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetDefaultSourceMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDefaultSourceMethodInfo a signature where - overloadedMethod _ = printSettingsGetDefaultSource - --- method PrintSettings::get_dither --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_dither" gtk_print_settings_get_dither :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetDither :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetDither _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_dither _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_dither" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetDitherMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDitherMethodInfo a signature where - overloadedMethod _ = printSettingsGetDither - --- method PrintSettings::get_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, 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 "gtk_print_settings_get_double" gtk_print_settings_get_double :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CDouble - - -printSettingsGetDouble :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m Double -- result -printSettingsGetDouble _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_double _obj' key' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsGetDoubleMethodInfo -instance (signature ~ (T.Text -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleMethodInfo a signature where - overloadedMethod _ = printSettingsGetDouble - --- method PrintSettings::get_double_with_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TDouble, 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 "gtk_print_settings_get_double_with_default" gtk_print_settings_get_double_with_default :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- def : TBasicType TDouble - IO CDouble - - -printSettingsGetDoubleWithDefault :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Double -- def - -> m Double -- result -printSettingsGetDoubleWithDefault _obj key def = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let def' = realToFrac def - result <- gtk_print_settings_get_double_with_default _obj' key' def' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsGetDoubleWithDefaultMethodInfo -instance (signature ~ (T.Text -> Double -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleWithDefaultMethodInfo a signature where - overloadedMethod _ = printSettingsGetDoubleWithDefault - --- method PrintSettings::get_duplex --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintDuplex") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_duplex" gtk_print_settings_get_duplex :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetDuplex :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PrintDuplex -- result -printSettingsGetDuplex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_duplex _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetDuplexMethodInfo -instance (signature ~ (m PrintDuplex), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDuplexMethodInfo a signature where - overloadedMethod _ = printSettingsGetDuplex - --- method PrintSettings::get_finishings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_finishings" gtk_print_settings_get_finishings :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetFinishings :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetFinishings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_finishings _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_finishings" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetFinishingsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetFinishingsMethodInfo a signature where - overloadedMethod _ = printSettingsGetFinishings - --- method PrintSettings::get_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, 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 "gtk_print_settings_get_int" gtk_print_settings_get_int :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO Int32 - - -printSettingsGetInt :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m Int32 -- result -printSettingsGetInt _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_int _obj' key' - touchManagedPtr _obj - freeMem key' - return result - -data PrintSettingsGetIntMethodInfo -instance (signature ~ (T.Text -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntMethodInfo a signature where - overloadedMethod _ = printSettingsGetInt - --- method PrintSettings::get_int_with_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", 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 "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- def : TBasicType TInt - IO Int32 - - -printSettingsGetIntWithDefault :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Int32 -- def - -> m Int32 -- result -printSettingsGetIntWithDefault _obj key def = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_int_with_default _obj' key' def - touchManagedPtr _obj - freeMem key' - return result - -data PrintSettingsGetIntWithDefaultMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntWithDefaultMethodInfo a signature where - overloadedMethod _ = printSettingsGetIntWithDefault - --- method PrintSettings::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_get_length" gtk_print_settings_get_length :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetLength :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Unit -- unit - -> m Double -- result -printSettingsGetLength _obj key unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_length _obj' key' unit' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsGetLengthMethodInfo -instance (signature ~ (T.Text -> Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetLengthMethodInfo a signature where - overloadedMethod _ = printSettingsGetLength - --- method PrintSettings::get_media_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_media_type" gtk_print_settings_get_media_type :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetMediaType :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetMediaType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_media_type _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_media_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetMediaTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMediaTypeMethodInfo a signature where - overloadedMethod _ = printSettingsGetMediaType - --- method PrintSettings::get_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_n_copies" gtk_print_settings_get_n_copies :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetNCopies :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Int32 -- result -printSettingsGetNCopies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_n_copies _obj' - touchManagedPtr _obj - return result - -data PrintSettingsGetNCopiesMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNCopiesMethodInfo a signature where - overloadedMethod _ = printSettingsGetNCopies - --- method PrintSettings::get_number_up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_number_up" gtk_print_settings_get_number_up :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetNumberUp :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Int32 -- result -printSettingsGetNumberUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_number_up _obj' - touchManagedPtr _obj - return result - -data PrintSettingsGetNumberUpMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpMethodInfo a signature where - overloadedMethod _ = printSettingsGetNumberUp - --- method PrintSettings::get_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "NumberUpLayout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_number_up_layout" gtk_print_settings_get_number_up_layout :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetNumberUpLayout :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m NumberUpLayout -- result -printSettingsGetNumberUpLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_number_up_layout _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetNumberUpLayoutMethodInfo -instance (signature ~ (m NumberUpLayout), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpLayoutMethodInfo a signature where - overloadedMethod _ = printSettingsGetNumberUpLayout - --- method PrintSettings::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageOrientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_orientation" gtk_print_settings_get_orientation :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetOrientation :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PageOrientation -- result -printSettingsGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetOrientationMethodInfo -instance (signature ~ (m PageOrientation), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOrientationMethodInfo a signature where - overloadedMethod _ = printSettingsGetOrientation - --- method PrintSettings::get_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_output_bin" gtk_print_settings_get_output_bin :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetOutputBin :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetOutputBin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_output_bin _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_output_bin" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetOutputBinMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOutputBinMethodInfo a signature where - overloadedMethod _ = printSettingsGetOutputBin - --- method PrintSettings::get_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "PageRange")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr Int32 -> -- num_ranges : TBasicType TInt - IO (Ptr PageRange) - - -printSettingsGetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m [PageRange] -- result -printSettingsGetPageRanges _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - numRanges <- allocMem :: IO (Ptr Int32) - result <- gtk_print_settings_get_page_ranges _obj' numRanges - numRanges' <- peek numRanges - checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result - result' <- (unpackBlockArrayWithLength 8 numRanges') result - result'' <- mapM (wrapPtr PageRange) result' - freeMem result - touchManagedPtr _obj - freeMem numRanges - return result'' - -data PrintSettingsGetPageRangesMethodInfo -instance (signature ~ (m [PageRange]), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageRangesMethodInfo a signature where - overloadedMethod _ = printSettingsGetPageRanges - --- method PrintSettings::get_page_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PageSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_page_set" gtk_print_settings_get_page_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetPageSet :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PageSet -- result -printSettingsGetPageSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_page_set _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPageSetMethodInfo -instance (signature ~ (m PageSet), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageSetMethodInfo a signature where - overloadedMethod _ = printSettingsGetPageSet - --- method PrintSettings::get_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_get_paper_height" gtk_print_settings_get_paper_height :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetPaperHeight :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -printSettingsGetPaperHeight _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_paper_height _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPaperHeightMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperHeightMethodInfo a signature where - overloadedMethod _ = printSettingsGetPaperHeight - --- method PrintSettings::get_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_paper_size" gtk_print_settings_get_paper_size :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO (Ptr PaperSize) - - -printSettingsGetPaperSize :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PaperSize -- result -printSettingsGetPaperSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_paper_size _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_paper_size" result - result' <- (wrapBoxed PaperSize) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPaperSizeMethodInfo -instance (signature ~ (m PaperSize), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperSizeMethodInfo a signature where - overloadedMethod _ = printSettingsGetPaperSize - --- method PrintSettings::get_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_get_paper_width" gtk_print_settings_get_paper_width :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetPaperWidth :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Unit -- unit - -> m Double -- result -printSettingsGetPaperWidth _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_paper_width _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPaperWidthMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperWidthMethodInfo a signature where - overloadedMethod _ = printSettingsGetPaperWidth - --- method PrintSettings::get_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintPages") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_print_pages" gtk_print_settings_get_print_pages :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetPrintPages :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PrintPages -- result -printSettingsGetPrintPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_print_pages _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPrintPagesMethodInfo -instance (signature ~ (m PrintPages), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrintPagesMethodInfo a signature where - overloadedMethod _ = printSettingsGetPrintPages - --- method PrintSettings::get_printer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_printer" gtk_print_settings_get_printer :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetPrinter :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m T.Text -- result -printSettingsGetPrinter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_printer _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_printer" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPrinterMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterMethodInfo a signature where - overloadedMethod _ = printSettingsGetPrinter - --- method PrintSettings::get_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_printer_lpi" gtk_print_settings_get_printer_lpi :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CDouble - - -printSettingsGetPrinterLpi :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Double -- result -printSettingsGetPrinterLpi _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_printer_lpi _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintSettingsGetPrinterLpiMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterLpiMethodInfo a signature where - overloadedMethod _ = printSettingsGetPrinterLpi - --- method PrintSettings::get_quality --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PrintQuality") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_quality" gtk_print_settings_get_quality :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetQuality :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m PrintQuality -- result -printSettingsGetQuality _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_quality _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetQualityMethodInfo -instance (signature ~ (m PrintQuality), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetQualityMethodInfo a signature where - overloadedMethod _ = printSettingsGetQuality - --- method PrintSettings::get_resolution --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_resolution" gtk_print_settings_get_resolution :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolution :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Int32 -- result -printSettingsGetResolution _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution _obj' - touchManagedPtr _obj - return result - -data PrintSettingsGetResolutionMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionMethodInfo a signature where - overloadedMethod _ = printSettingsGetResolution - --- method PrintSettings::get_resolution_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_resolution_x" gtk_print_settings_get_resolution_x :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolutionX :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Int32 -- result -printSettingsGetResolutionX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_x _obj' - touchManagedPtr _obj - return result - -data PrintSettingsGetResolutionXMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionXMethodInfo a signature where - overloadedMethod _ = printSettingsGetResolutionX - --- method PrintSettings::get_resolution_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_resolution_y" gtk_print_settings_get_resolution_y :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolutionY :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Int32 -- result -printSettingsGetResolutionY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_y _obj' - touchManagedPtr _obj - return result - -data PrintSettingsGetResolutionYMethodInfo -instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionYMethodInfo a signature where - overloadedMethod _ = printSettingsGetResolutionY - --- method PrintSettings::get_reverse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_reverse" gtk_print_settings_get_reverse :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetReverse :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Bool -- result -printSettingsGetReverse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_reverse _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetReverseMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetReverseMethodInfo a signature where - overloadedMethod _ = printSettingsGetReverse - --- method PrintSettings::get_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_scale" gtk_print_settings_get_scale :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CDouble - - -printSettingsGetScale :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Double -- result -printSettingsGetScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_scale _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PrintSettingsGetScaleMethodInfo -instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetScaleMethodInfo a signature where - overloadedMethod _ = printSettingsGetScale - --- method PrintSettings::get_use_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", 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 "gtk_print_settings_get_use_color" gtk_print_settings_get_use_color :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetUseColor :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> m Bool -- result -printSettingsGetUseColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_use_color _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PrintSettingsGetUseColorMethodInfo -instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetUseColorMethodInfo a signature where - overloadedMethod _ = printSettingsGetUseColor - --- method PrintSettings::has_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", 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 "gtk_print_settings_has_key" gtk_print_settings_has_key :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -printSettingsHasKey :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m Bool -- result -printSettingsHasKey _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_has_key _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data PrintSettingsHasKeyMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsHasKeyMethodInfo a signature where - overloadedMethod _ = printSettingsHasKey - --- method PrintSettings::load_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_load_file" gtk_print_settings_load_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsLoadFile :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> [Char] -- fileName - -> m () -- result -printSettingsLoadFile _obj fileName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fileName' <- stringToCString fileName - onException (do - _ <- propagateGError $ gtk_print_settings_load_file _obj' fileName' - touchManagedPtr _obj - freeMem fileName' - return () - ) (do - freeMem fileName' - ) - -data PrintSettingsLoadFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadFileMethodInfo a signature where - overloadedMethod _ = printSettingsLoadFile - --- method PrintSettings::load_key_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_load_key_file" gtk_print_settings_load_key_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsLoadKeyFile :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> GLib.KeyFile -- keyFile - -> Maybe (T.Text) -- groupName - -> m () -- result -printSettingsLoadKeyFile _obj keyFile groupName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let keyFile' = unsafeManagedPtrGetPtr keyFile - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - onException (do - _ <- propagateGError $ gtk_print_settings_load_key_file _obj' keyFile' maybeGroupName - touchManagedPtr _obj - touchManagedPtr keyFile - freeMem maybeGroupName - return () - ) (do - freeMem maybeGroupName - ) - -data PrintSettingsLoadKeyFileMethodInfo -instance (signature ~ (GLib.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadKeyFileMethodInfo a signature where - overloadedMethod _ = printSettingsLoadKeyFile - --- method PrintSettings::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set" gtk_print_settings_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -printSettingsSet :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Maybe (T.Text) -- value - -> m () -- result -printSettingsSet _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - jValue' <- textToCString jValue - return jValue' - gtk_print_settings_set _obj' key' maybeValue - touchManagedPtr _obj - freeMem key' - freeMem maybeValue - return () - -data PrintSettingsSetMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMethodInfo a signature where - overloadedMethod _ = printSettingsSet - --- method PrintSettings::set_bool --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, 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 "gtk_print_settings_set_bool" gtk_print_settings_set_bool :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CInt -> -- value : TBasicType TBoolean - IO () - - -printSettingsSetBool :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Bool -- value - -> m () -- result -printSettingsSetBool _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = (fromIntegral . fromEnum) value - gtk_print_settings_set_bool _obj' key' value' - touchManagedPtr _obj - freeMem key' - return () - -data PrintSettingsSetBoolMethodInfo -instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetBoolMethodInfo a signature where - overloadedMethod _ = printSettingsSetBool - --- method PrintSettings::set_collate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collate", 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 "gtk_print_settings_set_collate" gtk_print_settings_set_collate :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- collate : TBasicType TBoolean - IO () - - -printSettingsSetCollate :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Bool -- collate - -> m () -- result -printSettingsSetCollate _obj collate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let collate' = (fromIntegral . fromEnum) collate - gtk_print_settings_set_collate _obj' collate' - touchManagedPtr _obj - return () - -data PrintSettingsSetCollateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetCollateMethodInfo a signature where - overloadedMethod _ = printSettingsSetCollate - --- method PrintSettings::set_default_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_source", 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 "gtk_print_settings_set_default_source" gtk_print_settings_set_default_source :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- default_source : TBasicType TUTF8 - IO () - - -printSettingsSetDefaultSource :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- defaultSource - -> m () -- result -printSettingsSetDefaultSource _obj defaultSource = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - defaultSource' <- textToCString defaultSource - gtk_print_settings_set_default_source _obj' defaultSource' - touchManagedPtr _obj - freeMem defaultSource' - return () - -data PrintSettingsSetDefaultSourceMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDefaultSourceMethodInfo a signature where - overloadedMethod _ = printSettingsSetDefaultSource - --- method PrintSettings::set_dither --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dither", 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 "gtk_print_settings_set_dither" gtk_print_settings_set_dither :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- dither : TBasicType TUTF8 - IO () - - -printSettingsSetDither :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- dither - -> m () -- result -printSettingsSetDither _obj dither = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dither' <- textToCString dither - gtk_print_settings_set_dither _obj' dither' - touchManagedPtr _obj - freeMem dither' - return () - -data PrintSettingsSetDitherMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDitherMethodInfo a signature where - overloadedMethod _ = printSettingsSetDither - --- method PrintSettings::set_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_print_settings_set_double" gtk_print_settings_set_double :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - IO () - - -printSettingsSetDouble :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Double -- value - -> m () -- result -printSettingsSetDouble _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = realToFrac value - gtk_print_settings_set_double _obj' key' value' - touchManagedPtr _obj - freeMem key' - return () - -data PrintSettingsSetDoubleMethodInfo -instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDoubleMethodInfo a signature where - overloadedMethod _ = printSettingsSetDouble - --- method PrintSettings::set_duplex --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TInterface "Gtk" "PrintDuplex", 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 "gtk_print_settings_set_duplex" gtk_print_settings_set_duplex :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- duplex : TInterface "Gtk" "PrintDuplex" - IO () - - -printSettingsSetDuplex :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PrintDuplex -- duplex - -> m () -- result -printSettingsSetDuplex _obj duplex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let duplex' = (fromIntegral . fromEnum) duplex - gtk_print_settings_set_duplex _obj' duplex' - touchManagedPtr _obj - return () - -data PrintSettingsSetDuplexMethodInfo -instance (signature ~ (PrintDuplex -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDuplexMethodInfo a signature where - overloadedMethod _ = printSettingsSetDuplex - --- method PrintSettings::set_finishings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "finishings", 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 "gtk_print_settings_set_finishings" gtk_print_settings_set_finishings :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- finishings : TBasicType TUTF8 - IO () - - -printSettingsSetFinishings :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- finishings - -> m () -- result -printSettingsSetFinishings _obj finishings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - finishings' <- textToCString finishings - gtk_print_settings_set_finishings _obj' finishings' - touchManagedPtr _obj - freeMem finishings' - return () - -data PrintSettingsSetFinishingsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetFinishingsMethodInfo a signature where - overloadedMethod _ = printSettingsSetFinishings - --- method PrintSettings::set_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", 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 "gtk_print_settings_set_int" gtk_print_settings_set_int :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt - IO () - - -printSettingsSetInt :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Int32 -- value - -> m () -- result -printSettingsSetInt _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - gtk_print_settings_set_int _obj' key' value - touchManagedPtr _obj - freeMem key' - return () - -data PrintSettingsSetIntMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetIntMethodInfo a signature where - overloadedMethod _ = printSettingsSetInt - --- method PrintSettings::set_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_set_length" gtk_print_settings_set_length :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetLength :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> Double -- value - -> Unit -- unit - -> m () -- result -printSettingsSetLength _obj key value unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = realToFrac value - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_length _obj' key' value' unit' - touchManagedPtr _obj - freeMem key' - return () - -data PrintSettingsSetLengthMethodInfo -instance (signature ~ (T.Text -> Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetLengthMethodInfo a signature where - overloadedMethod _ = printSettingsSetLength - --- method PrintSettings::set_media_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media_type", 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 "gtk_print_settings_set_media_type" gtk_print_settings_set_media_type :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- media_type : TBasicType TUTF8 - IO () - - -printSettingsSetMediaType :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- mediaType - -> m () -- result -printSettingsSetMediaType _obj mediaType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mediaType' <- textToCString mediaType - gtk_print_settings_set_media_type _obj' mediaType' - touchManagedPtr _obj - freeMem mediaType' - return () - -data PrintSettingsSetMediaTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMediaTypeMethodInfo a signature where - overloadedMethod _ = printSettingsSetMediaType - --- method PrintSettings::set_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", 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 "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- num_copies : TBasicType TInt - IO () - - -printSettingsSetNCopies :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Int32 -- numCopies - -> m () -- result -printSettingsSetNCopies _obj numCopies = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_n_copies _obj' numCopies - touchManagedPtr _obj - return () - -data PrintSettingsSetNCopiesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNCopiesMethodInfo a signature where - overloadedMethod _ = printSettingsSetNCopies - --- method PrintSettings::set_number_up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", 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 "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- number_up : TBasicType TInt - IO () - - -printSettingsSetNumberUp :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Int32 -- numberUp - -> m () -- result -printSettingsSetNumberUp _obj numberUp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_number_up _obj' numberUp - touchManagedPtr _obj - return () - -data PrintSettingsSetNumberUpMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpMethodInfo a signature where - overloadedMethod _ = printSettingsSetNumberUp - --- method PrintSettings::set_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", 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 "gtk_print_settings_set_number_up_layout" gtk_print_settings_set_number_up_layout :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- number_up_layout : TInterface "Gtk" "NumberUpLayout" - IO () - - -printSettingsSetNumberUpLayout :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> NumberUpLayout -- numberUpLayout - -> m () -- result -printSettingsSetNumberUpLayout _obj numberUpLayout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let numberUpLayout' = (fromIntegral . fromEnum) numberUpLayout - gtk_print_settings_set_number_up_layout _obj' numberUpLayout' - touchManagedPtr _obj - return () - -data PrintSettingsSetNumberUpLayoutMethodInfo -instance (signature ~ (NumberUpLayout -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpLayoutMethodInfo a signature where - overloadedMethod _ = printSettingsSetNumberUpLayout - --- method PrintSettings::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", 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 "gtk_print_settings_set_orientation" gtk_print_settings_set_orientation :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- orientation : TInterface "Gtk" "PageOrientation" - IO () - - -printSettingsSetOrientation :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PageOrientation -- orientation - -> m () -- result -printSettingsSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_print_settings_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - -data PrintSettingsSetOrientationMethodInfo -instance (signature ~ (PageOrientation -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOrientationMethodInfo a signature where - overloadedMethod _ = printSettingsSetOrientation - --- method PrintSettings::set_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_bin", 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 "gtk_print_settings_set_output_bin" gtk_print_settings_set_output_bin :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- output_bin : TBasicType TUTF8 - IO () - - -printSettingsSetOutputBin :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- outputBin - -> m () -- result -printSettingsSetOutputBin _obj outputBin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outputBin' <- textToCString outputBin - gtk_print_settings_set_output_bin _obj' outputBin' - touchManagedPtr _obj - freeMem outputBin' - return () - -data PrintSettingsSetOutputBinMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOutputBinMethodInfo a signature where - overloadedMethod _ = printSettingsSetOutputBin - --- method PrintSettings::set_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "num_ranges", 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 "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange") - Int32 -> -- num_ranges : TBasicType TInt - IO () - - -printSettingsSetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> [PageRange] -- pageRanges - -> m () -- result -printSettingsSetPageRanges _obj pageRanges = liftIO $ do - let numRanges = fromIntegral $ length pageRanges - let _obj' = unsafeManagedPtrCastPtr _obj - let pageRanges' = map unsafeManagedPtrGetPtr pageRanges - pageRanges'' <- packBlockArray 8 pageRanges' - gtk_print_settings_set_page_ranges _obj' pageRanges'' numRanges - touchManagedPtr _obj - mapM_ touchManagedPtr pageRanges - freeMem pageRanges'' - return () - -data PrintSettingsSetPageRangesMethodInfo -instance (signature ~ ([PageRange] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageRangesMethodInfo a signature where - overloadedMethod _ = printSettingsSetPageRanges - --- method PrintSettings::set_page_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_set", argType = TInterface "Gtk" "PageSet", 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 "gtk_print_settings_set_page_set" gtk_print_settings_set_page_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- page_set : TInterface "Gtk" "PageSet" - IO () - - -printSettingsSetPageSet :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PageSet -- pageSet - -> m () -- result -printSettingsSetPageSet _obj pageSet = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pageSet' = (fromIntegral . fromEnum) pageSet - gtk_print_settings_set_page_set _obj' pageSet' - touchManagedPtr _obj - return () - -data PrintSettingsSetPageSetMethodInfo -instance (signature ~ (PageSet -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageSetMethodInfo a signature where - overloadedMethod _ = printSettingsSetPageSet - --- method PrintSettings::set_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_set_paper_height" gtk_print_settings_set_paper_height :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- height : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetPaperHeight :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Double -- height - -> Unit -- unit - -> m () -- result -printSettingsSetPaperHeight _obj height unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let height' = realToFrac height - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_paper_height _obj' height' unit' - touchManagedPtr _obj - return () - -data PrintSettingsSetPaperHeightMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperHeightMethodInfo a signature where - overloadedMethod _ = printSettingsSetPaperHeight - --- method PrintSettings::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paper_size", argType = TInterface "Gtk" "PaperSize", 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 "gtk_print_settings_set_paper_size" gtk_print_settings_set_paper_size :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr PaperSize -> -- paper_size : TInterface "Gtk" "PaperSize" - IO () - - -printSettingsSetPaperSize :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PaperSize -- paperSize - -> m () -- result -printSettingsSetPaperSize _obj paperSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let paperSize' = unsafeManagedPtrGetPtr paperSize - gtk_print_settings_set_paper_size _obj' paperSize' - touchManagedPtr _obj - touchManagedPtr paperSize - return () - -data PrintSettingsSetPaperSizeMethodInfo -instance (signature ~ (PaperSize -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperSizeMethodInfo a signature where - overloadedMethod _ = printSettingsSetPaperSize - --- method PrintSettings::set_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_print_settings_set_paper_width" gtk_print_settings_set_paper_width :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- width : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetPaperWidth :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Double -- width - -> Unit -- unit - -> m () -- result -printSettingsSetPaperWidth _obj width unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let width' = realToFrac width - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_paper_width _obj' width' unit' - touchManagedPtr _obj - return () - -data PrintSettingsSetPaperWidthMethodInfo -instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperWidthMethodInfo a signature where - overloadedMethod _ = printSettingsSetPaperWidth - --- method PrintSettings::set_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TInterface "Gtk" "PrintPages", 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 "gtk_print_settings_set_print_pages" gtk_print_settings_set_print_pages :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- pages : TInterface "Gtk" "PrintPages" - IO () - - -printSettingsSetPrintPages :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PrintPages -- pages - -> m () -- result -printSettingsSetPrintPages _obj pages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pages' = (fromIntegral . fromEnum) pages - gtk_print_settings_set_print_pages _obj' pages' - touchManagedPtr _obj - return () - -data PrintSettingsSetPrintPagesMethodInfo -instance (signature ~ (PrintPages -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrintPagesMethodInfo a signature where - overloadedMethod _ = printSettingsSetPrintPages - --- method PrintSettings::set_printer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", 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 "gtk_print_settings_set_printer" gtk_print_settings_set_printer :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- printer : TBasicType TUTF8 - IO () - - -printSettingsSetPrinter :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- printer - -> m () -- result -printSettingsSetPrinter _obj printer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - printer' <- textToCString printer - gtk_print_settings_set_printer _obj' printer' - touchManagedPtr _obj - freeMem printer' - return () - -data PrintSettingsSetPrinterMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterMethodInfo a signature where - overloadedMethod _ = printSettingsSetPrinter - --- method PrintSettings::set_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lpi", 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 "gtk_print_settings_set_printer_lpi" gtk_print_settings_set_printer_lpi :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- lpi : TBasicType TDouble - IO () - - -printSettingsSetPrinterLpi :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Double -- lpi - -> m () -- result -printSettingsSetPrinterLpi _obj lpi = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lpi' = realToFrac lpi - gtk_print_settings_set_printer_lpi _obj' lpi' - touchManagedPtr _obj - return () - -data PrintSettingsSetPrinterLpiMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterLpiMethodInfo a signature where - overloadedMethod _ = printSettingsSetPrinterLpi - --- method PrintSettings::set_quality --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quality", argType = TInterface "Gtk" "PrintQuality", 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 "gtk_print_settings_set_quality" gtk_print_settings_set_quality :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- quality : TInterface "Gtk" "PrintQuality" - IO () - - -printSettingsSetQuality :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> PrintQuality -- quality - -> m () -- result -printSettingsSetQuality _obj quality = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let quality' = (fromIntegral . fromEnum) quality - gtk_print_settings_set_quality _obj' quality' - touchManagedPtr _obj - return () - -data PrintSettingsSetQualityMethodInfo -instance (signature ~ (PrintQuality -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetQualityMethodInfo a signature where - overloadedMethod _ = printSettingsSetQuality - --- method PrintSettings::set_resolution --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", 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 "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution : TBasicType TInt - IO () - - -printSettingsSetResolution :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Int32 -- resolution - -> m () -- result -printSettingsSetResolution _obj resolution = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution _obj' resolution - touchManagedPtr _obj - return () - -data PrintSettingsSetResolutionMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionMethodInfo a signature where - overloadedMethod _ = printSettingsSetResolution - --- method PrintSettings::set_resolution_xy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", 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 "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution_x : TBasicType TInt - Int32 -> -- resolution_y : TBasicType TInt - IO () - - -printSettingsSetResolutionXy :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Int32 -- resolutionX - -> Int32 -- resolutionY - -> m () -- result -printSettingsSetResolutionXy _obj resolutionX resolutionY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution_xy _obj' resolutionX resolutionY - touchManagedPtr _obj - return () - -data PrintSettingsSetResolutionXyMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionXyMethodInfo a signature where - overloadedMethod _ = printSettingsSetResolutionXy - --- method PrintSettings::set_reverse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reverse", 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 "gtk_print_settings_set_reverse" gtk_print_settings_set_reverse :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- reverse : TBasicType TBoolean - IO () - - -printSettingsSetReverse :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Bool -- reverse - -> m () -- result -printSettingsSetReverse _obj reverse = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reverse' = (fromIntegral . fromEnum) reverse - gtk_print_settings_set_reverse _obj' reverse' - touchManagedPtr _obj - return () - -data PrintSettingsSetReverseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetReverseMethodInfo a signature where - overloadedMethod _ = printSettingsSetReverse - --- method PrintSettings::set_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", 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 "gtk_print_settings_set_scale" gtk_print_settings_set_scale :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- scale : TBasicType TDouble - IO () - - -printSettingsSetScale :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Double -- scale - -> m () -- result -printSettingsSetScale _obj scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scale' = realToFrac scale - gtk_print_settings_set_scale _obj' scale' - touchManagedPtr _obj - return () - -data PrintSettingsSetScaleMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetScaleMethodInfo a signature where - overloadedMethod _ = printSettingsSetScale - --- method PrintSettings::set_use_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_color", 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 "gtk_print_settings_set_use_color" gtk_print_settings_set_use_color :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- use_color : TBasicType TBoolean - IO () - - -printSettingsSetUseColor :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> Bool -- useColor - -> m () -- result -printSettingsSetUseColor _obj useColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useColor' = (fromIntegral . fromEnum) useColor - gtk_print_settings_set_use_color _obj' useColor' - touchManagedPtr _obj - return () - -data PrintSettingsSetUseColorMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetUseColorMethodInfo a signature where - overloadedMethod _ = printSettingsSetUseColor - --- method PrintSettings::to_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_to_file" gtk_print_settings_to_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsToFile :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> [Char] -- fileName - -> m () -- result -printSettingsToFile _obj fileName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fileName' <- stringToCString fileName - onException (do - _ <- propagateGError $ gtk_print_settings_to_file _obj' fileName' - touchManagedPtr _obj - freeMem fileName' - return () - ) (do - freeMem fileName' - ) - -data PrintSettingsToFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToFileMethodInfo a signature where - overloadedMethod _ = printSettingsToFile - --- method PrintSettings::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_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 "gtk_print_settings_to_key_file" gtk_print_settings_to_key_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -printSettingsToKeyFile :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> GLib.KeyFile -- keyFile - -> T.Text -- groupName - -> m () -- result -printSettingsToKeyFile _obj keyFile groupName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let keyFile' = unsafeManagedPtrGetPtr keyFile - groupName' <- textToCString groupName - gtk_print_settings_to_key_file _obj' keyFile' groupName' - touchManagedPtr _obj - touchManagedPtr keyFile - freeMem groupName' - return () - -data PrintSettingsToKeyFileMethodInfo -instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToKeyFileMethodInfo a signature where - overloadedMethod _ = printSettingsToKeyFile - --- method PrintSettings::unset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", 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 "gtk_print_settings_unset" gtk_print_settings_unset :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO () - - -printSettingsUnset :: - (MonadIO m, PrintSettingsK a) => - a -- _obj - -> T.Text -- key - -> m () -- result -printSettingsUnset _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - gtk_print_settings_unset _obj' key' - touchManagedPtr _obj - freeMem key' - return () - -data PrintSettingsUnsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsUnsetMethodInfo a signature where - overloadedMethod _ = printSettingsUnset - - diff --git a/GI/Gtk/Objects/PrintSettings.hs-boot b/GI/Gtk/Objects/PrintSettings.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/PrintSettings.hs-boot +++ /dev/null @@ -1,84 +0,0 @@ -module GI.Gtk.Objects.PrintSettings 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 PrintSettings = PrintSettings (ForeignPtr PrintSettings) -instance GObject PrintSettings where -class GObject o => PrintSettingsK o -instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o -data PrintSettingsCopyMethodInfo -data PrintSettingsForeachMethodInfo -data PrintSettingsGetMethodInfo -data PrintSettingsGetBoolMethodInfo -data PrintSettingsGetCollateMethodInfo -data PrintSettingsGetDefaultSourceMethodInfo -data PrintSettingsGetDitherMethodInfo -data PrintSettingsGetDoubleMethodInfo -data PrintSettingsGetDoubleWithDefaultMethodInfo -data PrintSettingsGetDuplexMethodInfo -data PrintSettingsGetFinishingsMethodInfo -data PrintSettingsGetIntMethodInfo -data PrintSettingsGetIntWithDefaultMethodInfo -data PrintSettingsGetLengthMethodInfo -data PrintSettingsGetMediaTypeMethodInfo -data PrintSettingsGetNCopiesMethodInfo -data PrintSettingsGetNumberUpMethodInfo -data PrintSettingsGetNumberUpLayoutMethodInfo -data PrintSettingsGetOrientationMethodInfo -data PrintSettingsGetOutputBinMethodInfo -data PrintSettingsGetPageRangesMethodInfo -data PrintSettingsGetPageSetMethodInfo -data PrintSettingsGetPaperHeightMethodInfo -data PrintSettingsGetPaperSizeMethodInfo -data PrintSettingsGetPaperWidthMethodInfo -data PrintSettingsGetPrintPagesMethodInfo -data PrintSettingsGetPrinterMethodInfo -data PrintSettingsGetPrinterLpiMethodInfo -data PrintSettingsGetQualityMethodInfo -data PrintSettingsGetResolutionMethodInfo -data PrintSettingsGetResolutionXMethodInfo -data PrintSettingsGetResolutionYMethodInfo -data PrintSettingsGetReverseMethodInfo -data PrintSettingsGetScaleMethodInfo -data PrintSettingsGetUseColorMethodInfo -data PrintSettingsHasKeyMethodInfo -data PrintSettingsLoadFileMethodInfo -data PrintSettingsLoadKeyFileMethodInfo -data PrintSettingsSetMethodInfo -data PrintSettingsSetBoolMethodInfo -data PrintSettingsSetCollateMethodInfo -data PrintSettingsSetDefaultSourceMethodInfo -data PrintSettingsSetDitherMethodInfo -data PrintSettingsSetDoubleMethodInfo -data PrintSettingsSetDuplexMethodInfo -data PrintSettingsSetFinishingsMethodInfo -data PrintSettingsSetIntMethodInfo -data PrintSettingsSetLengthMethodInfo -data PrintSettingsSetMediaTypeMethodInfo -data PrintSettingsSetNCopiesMethodInfo -data PrintSettingsSetNumberUpMethodInfo -data PrintSettingsSetNumberUpLayoutMethodInfo -data PrintSettingsSetOrientationMethodInfo -data PrintSettingsSetOutputBinMethodInfo -data PrintSettingsSetPageRangesMethodInfo -data PrintSettingsSetPageSetMethodInfo -data PrintSettingsSetPaperHeightMethodInfo -data PrintSettingsSetPaperSizeMethodInfo -data PrintSettingsSetPaperWidthMethodInfo -data PrintSettingsSetPrintPagesMethodInfo -data PrintSettingsSetPrinterMethodInfo -data PrintSettingsSetPrinterLpiMethodInfo -data PrintSettingsSetQualityMethodInfo -data PrintSettingsSetResolutionMethodInfo -data PrintSettingsSetResolutionXyMethodInfo -data PrintSettingsSetReverseMethodInfo -data PrintSettingsSetScaleMethodInfo -data PrintSettingsSetUseColorMethodInfo -data PrintSettingsToFileMethodInfo -data PrintSettingsToKeyFileMethodInfo -data PrintSettingsUnsetMethodInfo diff --git a/GI/Gtk/Objects/ProgressBar.hs b/GI/Gtk/Objects/ProgressBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ProgressBar.hs +++ /dev/null @@ -1,1075 +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.Gtk.Objects.ProgressBar - ( - --- * Exported types - ProgressBar(..) , - ProgressBarK , - toProgressBar , - noProgressBar , - - - -- * Methods --- ** progressBarGetEllipsize - ProgressBarGetEllipsizeMethodInfo , - progressBarGetEllipsize , - - --- ** progressBarGetFraction - ProgressBarGetFractionMethodInfo , - progressBarGetFraction , - - --- ** progressBarGetInverted - ProgressBarGetInvertedMethodInfo , - progressBarGetInverted , - - --- ** progressBarGetPulseStep - ProgressBarGetPulseStepMethodInfo , - progressBarGetPulseStep , - - --- ** progressBarGetShowText - ProgressBarGetShowTextMethodInfo , - progressBarGetShowText , - - --- ** progressBarGetText - ProgressBarGetTextMethodInfo , - progressBarGetText , - - --- ** progressBarNew - progressBarNew , - - --- ** progressBarPulse - ProgressBarPulseMethodInfo , - progressBarPulse , - - --- ** progressBarSetEllipsize - ProgressBarSetEllipsizeMethodInfo , - progressBarSetEllipsize , - - --- ** progressBarSetFraction - ProgressBarSetFractionMethodInfo , - progressBarSetFraction , - - --- ** progressBarSetInverted - ProgressBarSetInvertedMethodInfo , - progressBarSetInverted , - - --- ** progressBarSetPulseStep - ProgressBarSetPulseStepMethodInfo , - progressBarSetPulseStep , - - --- ** progressBarSetShowText - ProgressBarSetShowTextMethodInfo , - progressBarSetShowText , - - --- ** progressBarSetText - ProgressBarSetTextMethodInfo , - progressBarSetText , - - - - - -- * Properties --- ** Ellipsize - ProgressBarEllipsizePropertyInfo , - constructProgressBarEllipsize , - getProgressBarEllipsize , - progressBarEllipsize , - setProgressBarEllipsize , - - --- ** Fraction - ProgressBarFractionPropertyInfo , - constructProgressBarFraction , - getProgressBarFraction , - progressBarFraction , - setProgressBarFraction , - - --- ** Inverted - ProgressBarInvertedPropertyInfo , - constructProgressBarInverted , - getProgressBarInverted , - progressBarInverted , - setProgressBarInverted , - - --- ** PulseStep - ProgressBarPulseStepPropertyInfo , - constructProgressBarPulseStep , - getProgressBarPulseStep , - progressBarPulseStep , - setProgressBarPulseStep , - - --- ** ShowText - ProgressBarShowTextPropertyInfo , - constructProgressBarShowText , - getProgressBarShowText , - progressBarShowText , - setProgressBarShowText , - - --- ** Text - ProgressBarTextPropertyInfo , - clearProgressBarText , - constructProgressBarText , - getProgressBarText , - progressBarText , - setProgressBarText , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype ProgressBar = ProgressBar (ForeignPtr ProgressBar) -foreign import ccall "gtk_progress_bar_get_type" - c_gtk_progress_bar_get_type :: IO GType - -type instance ParentTypes ProgressBar = ProgressBarParentTypes -type ProgressBarParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject ProgressBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_progress_bar_get_type - - -class GObject o => ProgressBarK o -instance (GObject o, IsDescendantOf ProgressBar o) => ProgressBarK o - -toProgressBar :: ProgressBarK o => o -> IO ProgressBar -toProgressBar = unsafeCastTo ProgressBar - -noProgressBar :: Maybe ProgressBar -noProgressBar = Nothing - -type family ResolveProgressBarMethod (t :: Symbol) (o :: *) :: * where - ResolveProgressBarMethod "activate" o = WidgetActivateMethodInfo - ResolveProgressBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveProgressBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveProgressBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveProgressBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveProgressBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveProgressBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveProgressBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProgressBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProgressBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveProgressBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveProgressBarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveProgressBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveProgressBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveProgressBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveProgressBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveProgressBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveProgressBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveProgressBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveProgressBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveProgressBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveProgressBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveProgressBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveProgressBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveProgressBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveProgressBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveProgressBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveProgressBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveProgressBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveProgressBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveProgressBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveProgressBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveProgressBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveProgressBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveProgressBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveProgressBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveProgressBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveProgressBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveProgressBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveProgressBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveProgressBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveProgressBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveProgressBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveProgressBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveProgressBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveProgressBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveProgressBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveProgressBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveProgressBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveProgressBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveProgressBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveProgressBarMethod "draw" o = WidgetDrawMethodInfo - ResolveProgressBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveProgressBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveProgressBarMethod "event" o = WidgetEventMethodInfo - ResolveProgressBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProgressBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveProgressBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProgressBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveProgressBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveProgressBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveProgressBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveProgressBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveProgressBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveProgressBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveProgressBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveProgressBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveProgressBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveProgressBarMethod "hide" o = WidgetHideMethodInfo - ResolveProgressBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveProgressBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveProgressBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveProgressBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveProgressBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveProgressBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveProgressBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveProgressBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveProgressBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveProgressBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProgressBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveProgressBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveProgressBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveProgressBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveProgressBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveProgressBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveProgressBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveProgressBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveProgressBarMethod "map" o = WidgetMapMethodInfo - ResolveProgressBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveProgressBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveProgressBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveProgressBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveProgressBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveProgressBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveProgressBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveProgressBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveProgressBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProgressBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProgressBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveProgressBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveProgressBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveProgressBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveProgressBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveProgressBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveProgressBarMethod "path" o = WidgetPathMethodInfo - ResolveProgressBarMethod "pulse" o = ProgressBarPulseMethodInfo - ResolveProgressBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveProgressBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveProgressBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveProgressBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveProgressBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveProgressBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveProgressBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveProgressBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProgressBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProgressBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveProgressBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveProgressBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveProgressBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveProgressBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveProgressBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveProgressBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveProgressBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveProgressBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProgressBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProgressBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveProgressBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveProgressBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProgressBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveProgressBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveProgressBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveProgressBarMethod "show" o = WidgetShowMethodInfo - ResolveProgressBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveProgressBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveProgressBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveProgressBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveProgressBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveProgressBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProgressBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProgressBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveProgressBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveProgressBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveProgressBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProgressBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveProgressBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveProgressBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveProgressBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveProgressBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveProgressBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProgressBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveProgressBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveProgressBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProgressBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveProgressBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveProgressBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveProgressBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveProgressBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveProgressBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveProgressBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveProgressBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveProgressBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveProgressBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveProgressBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveProgressBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveProgressBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveProgressBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveProgressBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveProgressBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProgressBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveProgressBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveProgressBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveProgressBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveProgressBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveProgressBarMethod "getEllipsize" o = ProgressBarGetEllipsizeMethodInfo - ResolveProgressBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveProgressBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveProgressBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveProgressBarMethod "getFraction" o = ProgressBarGetFractionMethodInfo - ResolveProgressBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveProgressBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveProgressBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveProgressBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveProgressBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveProgressBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveProgressBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveProgressBarMethod "getInverted" o = ProgressBarGetInvertedMethodInfo - ResolveProgressBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveProgressBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveProgressBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveProgressBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveProgressBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveProgressBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveProgressBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveProgressBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveProgressBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveProgressBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveProgressBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveProgressBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveProgressBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveProgressBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveProgressBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveProgressBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveProgressBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveProgressBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveProgressBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveProgressBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveProgressBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveProgressBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveProgressBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveProgressBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProgressBarMethod "getPulseStep" o = ProgressBarGetPulseStepMethodInfo - ResolveProgressBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProgressBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveProgressBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveProgressBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveProgressBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveProgressBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveProgressBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveProgressBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveProgressBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveProgressBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveProgressBarMethod "getShowText" o = ProgressBarGetShowTextMethodInfo - ResolveProgressBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveProgressBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveProgressBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveProgressBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveProgressBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveProgressBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveProgressBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveProgressBarMethod "getText" o = ProgressBarGetTextMethodInfo - ResolveProgressBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveProgressBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveProgressBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveProgressBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveProgressBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveProgressBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveProgressBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveProgressBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveProgressBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveProgressBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveProgressBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveProgressBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveProgressBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveProgressBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveProgressBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveProgressBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveProgressBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveProgressBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveProgressBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveProgressBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveProgressBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProgressBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveProgressBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveProgressBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveProgressBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveProgressBarMethod "setEllipsize" o = ProgressBarSetEllipsizeMethodInfo - ResolveProgressBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveProgressBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveProgressBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveProgressBarMethod "setFraction" o = ProgressBarSetFractionMethodInfo - ResolveProgressBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveProgressBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveProgressBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveProgressBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveProgressBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveProgressBarMethod "setInverted" o = ProgressBarSetInvertedMethodInfo - ResolveProgressBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveProgressBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveProgressBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveProgressBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveProgressBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveProgressBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveProgressBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveProgressBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveProgressBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveProgressBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveProgressBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveProgressBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveProgressBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProgressBarMethod "setPulseStep" o = ProgressBarSetPulseStepMethodInfo - ResolveProgressBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveProgressBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveProgressBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveProgressBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveProgressBarMethod "setShowText" o = ProgressBarSetShowTextMethodInfo - ResolveProgressBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveProgressBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveProgressBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveProgressBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveProgressBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveProgressBarMethod "setText" o = ProgressBarSetTextMethodInfo - ResolveProgressBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveProgressBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveProgressBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveProgressBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveProgressBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveProgressBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveProgressBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveProgressBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveProgressBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveProgressBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProgressBarMethod t ProgressBar, MethodInfo info ProgressBar p) => IsLabelProxy t (ProgressBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProgressBarMethod t ProgressBar, MethodInfo info ProgressBar p) => IsLabel t (ProgressBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getProgressBarEllipsize :: (MonadIO m, ProgressBarK o) => o -> m Pango.EllipsizeMode -getProgressBarEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" - -setProgressBarEllipsize :: (MonadIO m, ProgressBarK o) => o -> Pango.EllipsizeMode -> m () -setProgressBarEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val - -constructProgressBarEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) -constructProgressBarEllipsize val = constructObjectPropertyEnum "ellipsize" val - -data ProgressBarEllipsizePropertyInfo -instance AttrInfo ProgressBarEllipsizePropertyInfo where - type AttrAllowedOps ProgressBarEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarEllipsizePropertyInfo = (~) Pango.EllipsizeMode - type AttrBaseTypeConstraint ProgressBarEllipsizePropertyInfo = ProgressBarK - type AttrGetType ProgressBarEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel ProgressBarEllipsizePropertyInfo = "ellipsize" - attrGet _ = getProgressBarEllipsize - attrSet _ = setProgressBarEllipsize - attrConstruct _ = constructProgressBarEllipsize - attrClear _ = undefined - --- VVV Prop "fraction" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getProgressBarFraction :: (MonadIO m, ProgressBarK o) => o -> m Double -getProgressBarFraction obj = liftIO $ getObjectPropertyDouble obj "fraction" - -setProgressBarFraction :: (MonadIO m, ProgressBarK o) => o -> Double -> m () -setProgressBarFraction obj val = liftIO $ setObjectPropertyDouble obj "fraction" val - -constructProgressBarFraction :: Double -> IO ([Char], GValue) -constructProgressBarFraction val = constructObjectPropertyDouble "fraction" val - -data ProgressBarFractionPropertyInfo -instance AttrInfo ProgressBarFractionPropertyInfo where - type AttrAllowedOps ProgressBarFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarFractionPropertyInfo = (~) Double - type AttrBaseTypeConstraint ProgressBarFractionPropertyInfo = ProgressBarK - type AttrGetType ProgressBarFractionPropertyInfo = Double - type AttrLabel ProgressBarFractionPropertyInfo = "fraction" - attrGet _ = getProgressBarFraction - attrSet _ = setProgressBarFraction - attrConstruct _ = constructProgressBarFraction - attrClear _ = undefined - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getProgressBarInverted :: (MonadIO m, ProgressBarK o) => o -> m Bool -getProgressBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted" - -setProgressBarInverted :: (MonadIO m, ProgressBarK o) => o -> Bool -> m () -setProgressBarInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val - -constructProgressBarInverted :: Bool -> IO ([Char], GValue) -constructProgressBarInverted val = constructObjectPropertyBool "inverted" val - -data ProgressBarInvertedPropertyInfo -instance AttrInfo ProgressBarInvertedPropertyInfo where - type AttrAllowedOps ProgressBarInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarInvertedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ProgressBarInvertedPropertyInfo = ProgressBarK - type AttrGetType ProgressBarInvertedPropertyInfo = Bool - type AttrLabel ProgressBarInvertedPropertyInfo = "inverted" - attrGet _ = getProgressBarInverted - attrSet _ = setProgressBarInverted - attrConstruct _ = constructProgressBarInverted - attrClear _ = undefined - --- VVV Prop "pulse-step" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getProgressBarPulseStep :: (MonadIO m, ProgressBarK o) => o -> m Double -getProgressBarPulseStep obj = liftIO $ getObjectPropertyDouble obj "pulse-step" - -setProgressBarPulseStep :: (MonadIO m, ProgressBarK o) => o -> Double -> m () -setProgressBarPulseStep obj val = liftIO $ setObjectPropertyDouble obj "pulse-step" val - -constructProgressBarPulseStep :: Double -> IO ([Char], GValue) -constructProgressBarPulseStep val = constructObjectPropertyDouble "pulse-step" val - -data ProgressBarPulseStepPropertyInfo -instance AttrInfo ProgressBarPulseStepPropertyInfo where - type AttrAllowedOps ProgressBarPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarPulseStepPropertyInfo = (~) Double - type AttrBaseTypeConstraint ProgressBarPulseStepPropertyInfo = ProgressBarK - type AttrGetType ProgressBarPulseStepPropertyInfo = Double - type AttrLabel ProgressBarPulseStepPropertyInfo = "pulse-step" - attrGet _ = getProgressBarPulseStep - attrSet _ = setProgressBarPulseStep - attrConstruct _ = constructProgressBarPulseStep - attrClear _ = undefined - --- VVV Prop "show-text" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getProgressBarShowText :: (MonadIO m, ProgressBarK o) => o -> m Bool -getProgressBarShowText obj = liftIO $ getObjectPropertyBool obj "show-text" - -setProgressBarShowText :: (MonadIO m, ProgressBarK o) => o -> Bool -> m () -setProgressBarShowText obj val = liftIO $ setObjectPropertyBool obj "show-text" val - -constructProgressBarShowText :: Bool -> IO ([Char], GValue) -constructProgressBarShowText val = constructObjectPropertyBool "show-text" val - -data ProgressBarShowTextPropertyInfo -instance AttrInfo ProgressBarShowTextPropertyInfo where - type AttrAllowedOps ProgressBarShowTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarShowTextPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ProgressBarShowTextPropertyInfo = ProgressBarK - type AttrGetType ProgressBarShowTextPropertyInfo = Bool - type AttrLabel ProgressBarShowTextPropertyInfo = "show-text" - attrGet _ = getProgressBarShowText - attrSet _ = setProgressBarShowText - attrConstruct _ = constructProgressBarShowText - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m T.Text -getProgressBarText obj = liftIO $ checkUnexpectedNothing "getProgressBarText" $ getObjectPropertyString obj "text" - -setProgressBarText :: (MonadIO m, ProgressBarK o) => o -> T.Text -> m () -setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructProgressBarText :: T.Text -> IO ([Char], GValue) -constructProgressBarText val = constructObjectPropertyString "text" (Just val) - -clearProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m () -clearProgressBarText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data ProgressBarTextPropertyInfo -instance AttrInfo ProgressBarTextPropertyInfo where - type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK - type AttrGetType ProgressBarTextPropertyInfo = T.Text - type AttrLabel ProgressBarTextPropertyInfo = "text" - attrGet _ = getProgressBarText - attrSet _ = setProgressBarText - attrConstruct _ = constructProgressBarText - attrClear _ = clearProgressBarText - -type instance AttributeList ProgressBar = ProgressBarAttributeList -type ProgressBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulseStep", ProgressBarPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showText", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -progressBarEllipsize :: AttrLabelProxy "ellipsize" -progressBarEllipsize = AttrLabelProxy - -progressBarFraction :: AttrLabelProxy "fraction" -progressBarFraction = AttrLabelProxy - -progressBarInverted :: AttrLabelProxy "inverted" -progressBarInverted = AttrLabelProxy - -progressBarPulseStep :: AttrLabelProxy "pulseStep" -progressBarPulseStep = AttrLabelProxy - -progressBarShowText :: AttrLabelProxy "showText" -progressBarShowText = AttrLabelProxy - -progressBarText :: AttrLabelProxy "text" -progressBarText = AttrLabelProxy - -type instance SignalList ProgressBar = ProgressBarSignalList -type ProgressBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ProgressBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ProgressBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_progress_bar_new" gtk_progress_bar_new :: - IO (Ptr ProgressBar) - - -progressBarNew :: - (MonadIO m) => - m ProgressBar -- result -progressBarNew = liftIO $ do - result <- gtk_progress_bar_new - checkUnexpectedReturnNULL "gtk_progress_bar_new" result - result' <- (newObject ProgressBar) result - return result' - --- method ProgressBar::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "EllipsizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_progress_bar_get_ellipsize" gtk_progress_bar_get_ellipsize :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CUInt - - -progressBarGetEllipsize :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m Pango.EllipsizeMode -- result -progressBarGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ProgressBarGetEllipsizeMethodInfo -instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetEllipsizeMethodInfo a signature where - overloadedMethod _ = progressBarGetEllipsize - --- method ProgressBar::get_fraction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_get_fraction" gtk_progress_bar_get_fraction :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CDouble - - -progressBarGetFraction :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m Double -- result -progressBarGetFraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_fraction _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ProgressBarGetFractionMethodInfo -instance (signature ~ (m Double), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetFractionMethodInfo a signature where - overloadedMethod _ = progressBarGetFraction - --- method ProgressBar::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_get_inverted" gtk_progress_bar_get_inverted :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CInt - - -progressBarGetInverted :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m Bool -- result -progressBarGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ProgressBarGetInvertedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetInvertedMethodInfo a signature where - overloadedMethod _ = progressBarGetInverted - --- method ProgressBar::get_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_get_pulse_step" gtk_progress_bar_get_pulse_step :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CDouble - - -progressBarGetPulseStep :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m Double -- result -progressBarGetPulseStep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_pulse_step _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ProgressBarGetPulseStepMethodInfo -instance (signature ~ (m Double), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetPulseStepMethodInfo a signature where - overloadedMethod _ = progressBarGetPulseStep - --- method ProgressBar::get_show_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_get_show_text" gtk_progress_bar_get_show_text :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CInt - - -progressBarGetShowText :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m Bool -- result -progressBarGetShowText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_show_text _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ProgressBarGetShowTextMethodInfo -instance (signature ~ (m Bool), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetShowTextMethodInfo a signature where - overloadedMethod _ = progressBarGetShowText - --- method ProgressBar::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_get_text" gtk_progress_bar_get_text :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO CString - - -progressBarGetText :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m T.Text -- result -progressBarGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_text _obj' - checkUnexpectedReturnNULL "gtk_progress_bar_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProgressBarGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetTextMethodInfo a signature where - overloadedMethod _ = progressBarGetText - --- method ProgressBar::pulse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", 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 "gtk_progress_bar_pulse" gtk_progress_bar_pulse :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - IO () - - -progressBarPulse :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> m () -- result -progressBarPulse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_progress_bar_pulse _obj' - touchManagedPtr _obj - return () - -data ProgressBarPulseMethodInfo -instance (signature ~ (m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarPulseMethodInfo a signature where - overloadedMethod _ = progressBarPulse - --- method ProgressBar::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", 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 "gtk_progress_bar_set_ellipsize" gtk_progress_bar_set_ellipsize :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CUInt -> -- mode : TInterface "Pango" "EllipsizeMode" - IO () - - -progressBarSetEllipsize :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Pango.EllipsizeMode -- mode - -> m () -- result -progressBarSetEllipsize _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_progress_bar_set_ellipsize _obj' mode' - touchManagedPtr _obj - return () - -data ProgressBarSetEllipsizeMethodInfo -instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetEllipsizeMethodInfo a signature where - overloadedMethod _ = progressBarSetEllipsize - --- method ProgressBar::set_fraction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", 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 "gtk_progress_bar_set_fraction" gtk_progress_bar_set_fraction :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -progressBarSetFraction :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Double -- fraction - -> m () -- result -progressBarSetFraction _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_progress_bar_set_fraction _obj' fraction' - touchManagedPtr _obj - return () - -data ProgressBarSetFractionMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetFractionMethodInfo a signature where - overloadedMethod _ = progressBarSetFraction - --- method ProgressBar::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", 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 "gtk_progress_bar_set_inverted" gtk_progress_bar_set_inverted :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CInt -> -- inverted : TBasicType TBoolean - IO () - - -progressBarSetInverted :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Bool -- inverted - -> m () -- result -progressBarSetInverted _obj inverted = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inverted' = (fromIntegral . fromEnum) inverted - gtk_progress_bar_set_inverted _obj' inverted' - touchManagedPtr _obj - return () - -data ProgressBarSetInvertedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetInvertedMethodInfo a signature where - overloadedMethod _ = progressBarSetInverted - --- method ProgressBar::set_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", 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 "gtk_progress_bar_set_pulse_step" gtk_progress_bar_set_pulse_step :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -progressBarSetPulseStep :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Double -- fraction - -> m () -- result -progressBarSetPulseStep _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_progress_bar_set_pulse_step _obj' fraction' - touchManagedPtr _obj - return () - -data ProgressBarSetPulseStepMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetPulseStepMethodInfo a signature where - overloadedMethod _ = progressBarSetPulseStep - --- method ProgressBar::set_show_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_text", 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 "gtk_progress_bar_set_show_text" gtk_progress_bar_set_show_text :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CInt -> -- show_text : TBasicType TBoolean - IO () - - -progressBarSetShowText :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Bool -- showText - -> m () -- result -progressBarSetShowText _obj showText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showText' = (fromIntegral . fromEnum) showText - gtk_progress_bar_set_show_text _obj' showText' - touchManagedPtr _obj - return () - -data ProgressBarSetShowTextMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetShowTextMethodInfo a signature where - overloadedMethod _ = progressBarSetShowText - --- method ProgressBar::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_progress_bar_set_text" gtk_progress_bar_set_text :: - Ptr ProgressBar -> -- _obj : TInterface "Gtk" "ProgressBar" - CString -> -- text : TBasicType TUTF8 - IO () - - -progressBarSetText :: - (MonadIO m, ProgressBarK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m () -- result -progressBarSetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_progress_bar_set_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - -data ProgressBarSetTextMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetTextMethodInfo a signature where - overloadedMethod _ = progressBarSetText - - diff --git a/GI/Gtk/Objects/ProgressBar.hs-boot b/GI/Gtk/Objects/ProgressBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ProgressBar.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.ProgressBar 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 ProgressBar = ProgressBar (ForeignPtr ProgressBar) -instance GObject ProgressBar where -class GObject o => ProgressBarK o -instance (GObject o, IsDescendantOf ProgressBar o) => ProgressBarK o -data ProgressBarEllipsizePropertyInfo -data ProgressBarFractionPropertyInfo -data ProgressBarInvertedPropertyInfo -data ProgressBarPulseStepPropertyInfo -data ProgressBarShowTextPropertyInfo -data ProgressBarTextPropertyInfo -data ProgressBarGetEllipsizeMethodInfo -data ProgressBarGetFractionMethodInfo -data ProgressBarGetInvertedMethodInfo -data ProgressBarGetPulseStepMethodInfo -data ProgressBarGetShowTextMethodInfo -data ProgressBarGetTextMethodInfo -data ProgressBarPulseMethodInfo -data ProgressBarSetEllipsizeMethodInfo -data ProgressBarSetFractionMethodInfo -data ProgressBarSetInvertedMethodInfo -data ProgressBarSetPulseStepMethodInfo -data ProgressBarSetShowTextMethodInfo -data ProgressBarSetTextMethodInfo diff --git a/GI/Gtk/Objects/ProgressBarAccessible.hs b/GI/Gtk/Objects/ProgressBarAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ProgressBarAccessible.hs +++ /dev/null @@ -1,138 +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.Gtk.Objects.ProgressBarAccessible - ( - --- * Exported types - ProgressBarAccessible(..) , - ProgressBarAccessibleK , - toProgressBarAccessible , - noProgressBarAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ProgressBarAccessible = ProgressBarAccessible (ForeignPtr ProgressBarAccessible) -foreign import ccall "gtk_progress_bar_accessible_get_type" - c_gtk_progress_bar_accessible_get_type :: IO GType - -type instance ParentTypes ProgressBarAccessible = ProgressBarAccessibleParentTypes -type ProgressBarAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value] - -instance GObject ProgressBarAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_progress_bar_accessible_get_type - - -class GObject o => ProgressBarAccessibleK o -instance (GObject o, IsDescendantOf ProgressBarAccessible o) => ProgressBarAccessibleK o - -toProgressBarAccessible :: ProgressBarAccessibleK o => o -> IO ProgressBarAccessible -toProgressBarAccessible = unsafeCastTo ProgressBarAccessible - -noProgressBarAccessible :: Maybe ProgressBarAccessible -noProgressBarAccessible = Nothing - -type family ResolveProgressBarAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveProgressBarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveProgressBarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProgressBarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProgressBarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveProgressBarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveProgressBarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProgressBarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProgressBarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveProgressBarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveProgressBarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProgressBarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProgressBarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProgressBarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveProgressBarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveProgressBarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProgressBarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveProgressBarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveProgressBarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveProgressBarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProgressBarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveProgressBarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveProgressBarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveProgressBarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveProgressBarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProgressBarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProgressBarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProgressBarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProgressBarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProgressBarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProgressBarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProgressBarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProgressBarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveProgressBarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveProgressBarAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveProgressBarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProgressBarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveProgressBarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveProgressBarAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveProgressBarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveProgressBarAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveProgressBarAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveProgressBarAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveProgressBarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveProgressBarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveProgressBarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveProgressBarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveProgressBarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveProgressBarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProgressBarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProgressBarAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveProgressBarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveProgressBarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveProgressBarAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveProgressBarAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveProgressBarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveProgressBarAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveProgressBarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProgressBarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveProgressBarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveProgressBarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveProgressBarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveProgressBarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveProgressBarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProgressBarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveProgressBarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveProgressBarAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveProgressBarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveProgressBarAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProgressBarAccessibleMethod t ProgressBarAccessible, MethodInfo info ProgressBarAccessible p) => IsLabelProxy t (ProgressBarAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProgressBarAccessibleMethod t ProgressBarAccessible, MethodInfo info ProgressBarAccessible p) => IsLabel t (ProgressBarAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ProgressBarAccessible = ProgressBarAccessibleAttributeList -type ProgressBarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ProgressBarAccessible = ProgressBarAccessibleSignalList -type ProgressBarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ProgressBarAccessible.hs-boot b/GI/Gtk/Objects/ProgressBarAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ProgressBarAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ProgressBarAccessible 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 ProgressBarAccessible = ProgressBarAccessible (ForeignPtr ProgressBarAccessible) -instance GObject ProgressBarAccessible where -class GObject o => ProgressBarAccessibleK o -instance (GObject o, IsDescendantOf ProgressBarAccessible o) => ProgressBarAccessibleK o diff --git a/GI/Gtk/Objects/RadioAction.hs b/GI/Gtk/Objects/RadioAction.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioAction.hs +++ /dev/null @@ -1,563 +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.Gtk.Objects.RadioAction - ( - --- * Exported types - RadioAction(..) , - RadioActionK , - toRadioAction , - noRadioAction , - - - -- * Methods --- ** radioActionGetCurrentValue - RadioActionGetCurrentValueMethodInfo , - radioActionGetCurrentValue , - - --- ** radioActionGetGroup - RadioActionGetGroupMethodInfo , - radioActionGetGroup , - - --- ** radioActionJoinGroup - RadioActionJoinGroupMethodInfo , - radioActionJoinGroup , - - --- ** radioActionNew - radioActionNew , - - --- ** radioActionSetCurrentValue - RadioActionSetCurrentValueMethodInfo , - radioActionSetCurrentValue , - - --- ** radioActionSetGroup - RadioActionSetGroupMethodInfo , - radioActionSetGroup , - - - - - -- * Properties --- ** CurrentValue - RadioActionCurrentValuePropertyInfo , - constructRadioActionCurrentValue , - getRadioActionCurrentValue , - radioActionCurrentValue , - setRadioActionCurrentValue , - - --- ** Group - RadioActionGroupPropertyInfo , - clearRadioActionGroup , - constructRadioActionGroup , - radioActionGroup , - setRadioActionGroup , - - --- ** Value - RadioActionValuePropertyInfo , - constructRadioActionValue , - getRadioActionValue , - radioActionValue , - setRadioActionValue , - - - - - -- * Signals --- ** Changed - RadioActionChangedCallback , - RadioActionChangedCallbackC , - RadioActionChangedSignalInfo , - afterRadioActionChanged , - mkRadioActionChangedCallback , - noRadioActionChangedCallback , - onRadioActionChanged , - radioActionChangedCallbackWrapper , - radioActionChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype RadioAction = RadioAction (ForeignPtr RadioAction) -foreign import ccall "gtk_radio_action_get_type" - c_gtk_radio_action_get_type :: IO GType - -type instance ParentTypes RadioAction = RadioActionParentTypes -type RadioActionParentTypes = '[ToggleAction, Action, GObject.Object, Buildable] - -instance GObject RadioAction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_radio_action_get_type - - -class GObject o => RadioActionK o -instance (GObject o, IsDescendantOf RadioAction o) => RadioActionK o - -toRadioAction :: RadioActionK o => o -> IO RadioAction -toRadioAction = unsafeCastTo RadioAction - -noRadioAction :: Maybe RadioAction -noRadioAction = Nothing - -type family ResolveRadioActionMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioActionMethod "activate" o = ActionActivateMethodInfo - ResolveRadioActionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRadioActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioActionMethod "blockActivate" o = ActionBlockActivateMethodInfo - ResolveRadioActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo - ResolveRadioActionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRadioActionMethod "createIcon" o = ActionCreateIconMethodInfo - ResolveRadioActionMethod "createMenu" o = ActionCreateMenuMethodInfo - ResolveRadioActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo - ResolveRadioActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo - ResolveRadioActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRadioActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRadioActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRadioActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo - ResolveRadioActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo - ResolveRadioActionMethod "isVisible" o = ActionIsVisibleMethodInfo - ResolveRadioActionMethod "joinGroup" o = RadioActionJoinGroupMethodInfo - ResolveRadioActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRadioActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioActionMethod "toggled" o = ToggleActionToggledMethodInfo - ResolveRadioActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo - ResolveRadioActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo - ResolveRadioActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo - ResolveRadioActionMethod "getActive" o = ToggleActionGetActiveMethodInfo - ResolveRadioActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo - ResolveRadioActionMethod "getCurrentValue" o = RadioActionGetCurrentValueMethodInfo - ResolveRadioActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo - ResolveRadioActionMethod "getGicon" o = ActionGetGiconMethodInfo - ResolveRadioActionMethod "getGroup" o = RadioActionGetGroupMethodInfo - ResolveRadioActionMethod "getIconName" o = ActionGetIconNameMethodInfo - ResolveRadioActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRadioActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo - ResolveRadioActionMethod "getLabel" o = ActionGetLabelMethodInfo - ResolveRadioActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioActionMethod "getProxies" o = ActionGetProxiesMethodInfo - ResolveRadioActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo - ResolveRadioActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo - ResolveRadioActionMethod "getStockId" o = ActionGetStockIdMethodInfo - ResolveRadioActionMethod "getTooltip" o = ActionGetTooltipMethodInfo - ResolveRadioActionMethod "getVisible" o = ActionGetVisibleMethodInfo - ResolveRadioActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo - ResolveRadioActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo - ResolveRadioActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo - ResolveRadioActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo - ResolveRadioActionMethod "setActive" o = ToggleActionSetActiveMethodInfo - ResolveRadioActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo - ResolveRadioActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRadioActionMethod "setCurrentValue" o = RadioActionSetCurrentValueMethodInfo - ResolveRadioActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo - ResolveRadioActionMethod "setGicon" o = ActionSetGiconMethodInfo - ResolveRadioActionMethod "setGroup" o = RadioActionSetGroupMethodInfo - ResolveRadioActionMethod "setIconName" o = ActionSetIconNameMethodInfo - ResolveRadioActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo - ResolveRadioActionMethod "setLabel" o = ActionSetLabelMethodInfo - ResolveRadioActionMethod "setName" o = BuildableSetNameMethodInfo - ResolveRadioActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo - ResolveRadioActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo - ResolveRadioActionMethod "setStockId" o = ActionSetStockIdMethodInfo - ResolveRadioActionMethod "setTooltip" o = ActionSetTooltipMethodInfo - ResolveRadioActionMethod "setVisible" o = ActionSetVisibleMethodInfo - ResolveRadioActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo - ResolveRadioActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo - ResolveRadioActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabelProxy t (RadioAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabel t (RadioAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal RadioAction::changed -type RadioActionChangedCallback = - RadioAction -> - IO () - -noRadioActionChangedCallback :: Maybe RadioActionChangedCallback -noRadioActionChangedCallback = Nothing - -type RadioActionChangedCallbackC = - Ptr () -> -- object - Ptr RadioAction -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRadioActionChangedCallback :: RadioActionChangedCallbackC -> IO (FunPtr RadioActionChangedCallbackC) - -radioActionChangedClosure :: RadioActionChangedCallback -> IO Closure -radioActionChangedClosure cb = newCClosure =<< mkRadioActionChangedCallback wrapped - where wrapped = radioActionChangedCallbackWrapper cb - -radioActionChangedCallbackWrapper :: - RadioActionChangedCallback -> - Ptr () -> - Ptr RadioAction -> - Ptr () -> - IO () -radioActionChangedCallbackWrapper _cb _ current _ = do - current' <- (newObject RadioAction) current - _cb current' - -onRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId -onRadioActionChanged obj cb = liftIO $ connectRadioActionChanged obj cb SignalConnectBefore -afterRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId -afterRadioActionChanged obj cb = connectRadioActionChanged obj cb SignalConnectAfter - -connectRadioActionChanged :: (GObject a, MonadIO m) => - a -> RadioActionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRadioActionChanged obj cb after = liftIO $ do - cb' <- mkRadioActionChangedCallback (radioActionChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "current-value" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionCurrentValue obj = liftIO $ getObjectPropertyInt32 obj "current-value" - -setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyInt32 obj "current-value" val - -constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue) -constructRadioActionCurrentValue val = constructObjectPropertyInt32 "current-value" val - -data RadioActionCurrentValuePropertyInfo -instance AttrInfo RadioActionCurrentValuePropertyInfo where - type AttrAllowedOps RadioActionCurrentValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RadioActionCurrentValuePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint RadioActionCurrentValuePropertyInfo = RadioActionK - type AttrGetType RadioActionCurrentValuePropertyInfo = Int32 - type AttrLabel RadioActionCurrentValuePropertyInfo = "current-value" - attrGet _ = getRadioActionCurrentValue - attrSet _ = setRadioActionCurrentValue - attrConstruct _ = constructRadioActionCurrentValue - attrClear _ = undefined - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioAction" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m () -setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) - -constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue) -constructRadioActionGroup val = constructObjectPropertyObject "group" (Just val) - -clearRadioActionGroup :: (MonadIO m, RadioActionK o) => o -> m () -clearRadioActionGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioAction) - -data RadioActionGroupPropertyInfo -instance AttrInfo RadioActionGroupPropertyInfo where - type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK - type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK - type AttrGetType RadioActionGroupPropertyInfo = () - type AttrLabel RadioActionGroupPropertyInfo = "group" - attrGet _ = undefined - attrSet _ = setRadioActionGroup - attrConstruct _ = constructRadioActionGroup - attrClear _ = clearRadioActionGroup - --- VVV Prop "value" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionValue obj = liftIO $ getObjectPropertyInt32 obj "value" - -setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val - -constructRadioActionValue :: Int32 -> IO ([Char], GValue) -constructRadioActionValue val = constructObjectPropertyInt32 "value" val - -data RadioActionValuePropertyInfo -instance AttrInfo RadioActionValuePropertyInfo where - type AttrAllowedOps RadioActionValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RadioActionValuePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint RadioActionValuePropertyInfo = RadioActionK - type AttrGetType RadioActionValuePropertyInfo = Int32 - type AttrLabel RadioActionValuePropertyInfo = "value" - attrGet _ = getRadioActionValue - attrSet _ = setRadioActionValue - attrConstruct _ = constructRadioActionValue - attrClear _ = undefined - -type instance AttributeList RadioAction = RadioActionAttributeList -type RadioActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("currentValue", RadioActionCurrentValuePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -radioActionCurrentValue :: AttrLabelProxy "currentValue" -radioActionCurrentValue = AttrLabelProxy - -radioActionGroup :: AttrLabelProxy "group" -radioActionGroup = AttrLabelProxy - -radioActionValue :: AttrLabelProxy "value" -radioActionValue = AttrLabelProxy - -data RadioActionChangedSignalInfo -instance SignalInfo RadioActionChangedSignalInfo where - type HaskellCallbackType RadioActionChangedSignalInfo = RadioActionChangedCallback - connectSignal _ = connectRadioActionChanged - -type instance SignalList RadioAction = RadioActionSignalList -type RadioActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("changed", RadioActionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)]) - --- method RadioAction::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioAction") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_action_new" gtk_radio_action_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - CString -> -- tooltip : TBasicType TUTF8 - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt - IO (Ptr RadioAction) - -{-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-} -radioActionNew :: - (MonadIO m) => - T.Text -- name - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- tooltip - -> Maybe (T.Text) -- stockId - -> Int32 -- value - -> m RadioAction -- result -radioActionNew name label tooltip stockId value = liftIO $ do - name' <- textToCString name - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStockId value - checkUnexpectedReturnNULL "gtk_radio_action_new" result - result' <- (wrapObject RadioAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStockId - return result' - --- method RadioAction::get_current_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", 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 "gtk_radio_action_get_current_value" gtk_radio_action_get_current_value :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - IO Int32 - -{-# DEPRECATED radioActionGetCurrentValue ["(Since version 3.10)"]#-} -radioActionGetCurrentValue :: - (MonadIO m, RadioActionK a) => - a -- _obj - -> m Int32 -- result -radioActionGetCurrentValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_action_get_current_value _obj' - touchManagedPtr _obj - return result - -data RadioActionGetCurrentValueMethodInfo -instance (signature ~ (m Int32), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetCurrentValueMethodInfo a signature where - overloadedMethod _ = radioActionGetCurrentValue - --- method RadioAction::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "RadioAction")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_action_get_group" gtk_radio_action_get_group :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - IO (Ptr (GSList (Ptr RadioAction))) - -{-# DEPRECATED radioActionGetGroup ["(Since version 3.10)"]#-} -radioActionGetGroup :: - (MonadIO m, RadioActionK a) => - a -- _obj - -> m [RadioAction] -- result -radioActionGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_action_get_group _obj' - result' <- unpackGSList result - result'' <- mapM (newObject RadioAction) result' - touchManagedPtr _obj - return result'' - -data RadioActionGetGroupMethodInfo -instance (signature ~ (m [RadioAction]), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetGroupMethodInfo a signature where - overloadedMethod _ = radioActionGetGroup - --- method RadioAction::join_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_action_join_group" gtk_radio_action_join_group :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - Ptr RadioAction -> -- group_source : TInterface "Gtk" "RadioAction" - IO () - -{-# DEPRECATED radioActionJoinGroup ["(Since version 3.10)"]#-} -radioActionJoinGroup :: - (MonadIO m, RadioActionK a, RadioActionK b) => - a -- _obj - -> Maybe (b) -- groupSource - -> m () -- result -radioActionJoinGroup _obj groupSource = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroupSource <- case groupSource of - Nothing -> return nullPtr - Just jGroupSource -> do - let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource - return jGroupSource' - gtk_radio_action_join_group _obj' maybeGroupSource - touchManagedPtr _obj - whenJust groupSource touchManagedPtr - return () - -data RadioActionJoinGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionJoinGroupMethodInfo a signature where - overloadedMethod _ = radioActionJoinGroup - --- method RadioAction::set_current_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", 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 "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - Int32 -> -- current_value : TBasicType TInt - IO () - -{-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-} -radioActionSetCurrentValue :: - (MonadIO m, RadioActionK a) => - a -- _obj - -> Int32 -- currentValue - -> m () -- result -radioActionSetCurrentValue _obj currentValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_radio_action_set_current_value _obj' currentValue - touchManagedPtr _obj - return () - -data RadioActionSetCurrentValueMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, RadioActionK a) => MethodInfo RadioActionSetCurrentValueMethodInfo a signature where - overloadedMethod _ = radioActionSetCurrentValue - --- method RadioAction::set_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_action_set_group" gtk_radio_action_set_group :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - Ptr (GSList (Ptr RadioAction)) -> -- group : TGSList (TInterface "Gtk" "RadioAction") - IO () - -{-# DEPRECATED radioActionSetGroup ["(Since version 3.10)"]#-} -radioActionSetGroup :: - (MonadIO m, RadioActionK a, RadioActionK b) => - a -- _obj - -> [b] -- group - -> m () -- result -radioActionSetGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - gtk_radio_action_set_group _obj' group'' - touchManagedPtr _obj - mapM_ touchManagedPtr group - g_slist_free group'' - return () - -data RadioActionSetGroupMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionSetGroupMethodInfo a signature where - overloadedMethod _ = radioActionSetGroup - - diff --git a/GI/Gtk/Objects/RadioAction.hs-boot b/GI/Gtk/Objects/RadioAction.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioAction.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.RadioAction 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 RadioAction = RadioAction (ForeignPtr RadioAction) -instance GObject RadioAction where -class GObject o => RadioActionK o -instance (GObject o, IsDescendantOf RadioAction o) => RadioActionK o -data RadioActionCurrentValuePropertyInfo -data RadioActionGroupPropertyInfo -data RadioActionValuePropertyInfo -data RadioActionChangedSignalInfo -data RadioActionGetCurrentValueMethodInfo -data RadioActionGetGroupMethodInfo -data RadioActionJoinGroupMethodInfo -data RadioActionSetCurrentValueMethodInfo -data RadioActionSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioButton.hs b/GI/Gtk/Objects/RadioButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioButton.hs +++ /dev/null @@ -1,849 +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.Gtk.Objects.RadioButton - ( - --- * Exported types - RadioButton(..) , - RadioButtonK , - toRadioButton , - noRadioButton , - - - -- * Methods --- ** radioButtonGetGroup - RadioButtonGetGroupMethodInfo , - radioButtonGetGroup , - - --- ** radioButtonJoinGroup - RadioButtonJoinGroupMethodInfo , - radioButtonJoinGroup , - - --- ** radioButtonNew - radioButtonNew , - - --- ** radioButtonNewFromWidget - radioButtonNewFromWidget , - - --- ** radioButtonNewWithLabel - radioButtonNewWithLabel , - - --- ** radioButtonNewWithLabelFromWidget - radioButtonNewWithLabelFromWidget , - - --- ** radioButtonNewWithMnemonic - radioButtonNewWithMnemonic , - - --- ** radioButtonNewWithMnemonicFromWidget - radioButtonNewWithMnemonicFromWidget , - - --- ** radioButtonSetGroup - RadioButtonSetGroupMethodInfo , - radioButtonSetGroup , - - - - - -- * Properties --- ** Group - RadioButtonGroupPropertyInfo , - clearRadioButtonGroup , - constructRadioButtonGroup , - radioButtonGroup , - setRadioButtonGroup , - - - - - -- * Signals --- ** GroupChanged - RadioButtonGroupChangedCallback , - RadioButtonGroupChangedCallbackC , - RadioButtonGroupChangedSignalInfo , - afterRadioButtonGroupChanged , - mkRadioButtonGroupChangedCallback , - noRadioButtonGroupChangedCallback , - onRadioButtonGroupChanged , - radioButtonGroupChangedCallbackWrapper , - radioButtonGroupChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RadioButton = RadioButton (ForeignPtr RadioButton) -foreign import ccall "gtk_radio_button_get_type" - c_gtk_radio_button_get_type :: IO GType - -type instance ParentTypes RadioButton = RadioButtonParentTypes -type RadioButtonParentTypes = '[CheckButton, ToggleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject RadioButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_radio_button_get_type - - -class GObject o => RadioButtonK o -instance (GObject o, IsDescendantOf RadioButton o) => RadioButtonK o - -toRadioButton :: RadioButtonK o => o -> IO RadioButton -toRadioButton = unsafeCastTo RadioButton - -noRadioButton :: Maybe RadioButton -noRadioButton = Nothing - -type family ResolveRadioButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveRadioButtonMethod "add" o = ContainerAddMethodInfo - ResolveRadioButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRadioButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRadioButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRadioButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRadioButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRadioButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRadioButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRadioButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRadioButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRadioButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRadioButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRadioButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRadioButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRadioButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRadioButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveRadioButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRadioButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRadioButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRadioButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRadioButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRadioButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRadioButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRadioButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRadioButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRadioButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRadioButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveRadioButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRadioButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRadioButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRadioButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRadioButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRadioButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRadioButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRadioButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRadioButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRadioButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRadioButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRadioButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRadioButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRadioButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRadioButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRadioButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRadioButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRadioButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRadioButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRadioButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRadioButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRadioButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRadioButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRadioButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRadioButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRadioButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRadioButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRadioButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRadioButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveRadioButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRadioButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveRadioButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRadioButtonMethod "event" o = WidgetEventMethodInfo - ResolveRadioButtonMethod "forall" o = ContainerForallMethodInfo - ResolveRadioButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveRadioButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRadioButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRadioButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRadioButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRadioButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRadioButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRadioButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRadioButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRadioButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRadioButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRadioButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRadioButtonMethod "hide" o = WidgetHideMethodInfo - ResolveRadioButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRadioButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRadioButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRadioButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRadioButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRadioButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRadioButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRadioButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRadioButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRadioButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRadioButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRadioButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRadioButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRadioButtonMethod "joinGroup" o = RadioButtonJoinGroupMethodInfo - ResolveRadioButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRadioButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveRadioButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRadioButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRadioButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRadioButtonMethod "map" o = WidgetMapMethodInfo - ResolveRadioButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRadioButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRadioButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRadioButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRadioButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRadioButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRadioButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRadioButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRadioButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRadioButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRadioButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRadioButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRadioButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRadioButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRadioButtonMethod "path" o = WidgetPathMethodInfo - ResolveRadioButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveRadioButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRadioButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRadioButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRadioButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRadioButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRadioButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRadioButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRadioButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveRadioButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRadioButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRadioButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveRadioButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveRadioButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRadioButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRadioButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRadioButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRadioButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRadioButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveRadioButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRadioButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRadioButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRadioButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRadioButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRadioButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRadioButtonMethod "show" o = WidgetShowMethodInfo - ResolveRadioButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRadioButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRadioButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRadioButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRadioButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRadioButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRadioButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRadioButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveRadioButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRadioButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioButtonMethod "toggled" o = ToggleButtonToggledMethodInfo - ResolveRadioButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRadioButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRadioButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRadioButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRadioButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRadioButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRadioButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRadioButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRadioButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRadioButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRadioButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveRadioButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveRadioButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo - ResolveRadioButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveRadioButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRadioButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRadioButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRadioButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRadioButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveRadioButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRadioButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRadioButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRadioButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRadioButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRadioButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveRadioButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRadioButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRadioButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRadioButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRadioButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRadioButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRadioButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRadioButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRadioButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRadioButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRadioButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRadioButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveRadioButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRadioButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRadioButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRadioButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRadioButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveRadioButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRadioButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRadioButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRadioButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRadioButtonMethod "getGroup" o = RadioButtonGetGroupMethodInfo - ResolveRadioButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRadioButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRadioButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRadioButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRadioButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRadioButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveRadioButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveRadioButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo - ResolveRadioButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRadioButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveRadioButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRadioButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRadioButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRadioButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRadioButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRadioButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRadioButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRadioButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo - ResolveRadioButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRadioButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRadioButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRadioButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRadioButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRadioButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRadioButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRadioButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRadioButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRadioButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRadioButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRadioButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRadioButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRadioButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRadioButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRadioButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRadioButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRadioButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRadioButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveRadioButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveRadioButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRadioButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRadioButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRadioButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRadioButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRadioButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRadioButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRadioButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRadioButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRadioButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveRadioButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRadioButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRadioButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRadioButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRadioButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRadioButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRadioButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRadioButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRadioButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRadioButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveRadioButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveRadioButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveRadioButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRadioButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRadioButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRadioButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRadioButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRadioButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRadioButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRadioButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRadioButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveRadioButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveRadioButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo - ResolveRadioButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveRadioButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRadioButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveRadioButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRadioButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRadioButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRadioButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRadioButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRadioButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRadioButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRadioButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRadioButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveRadioButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRadioButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRadioButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRadioButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRadioButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRadioButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRadioButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRadioButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRadioButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveRadioButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRadioButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRadioButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRadioButtonMethod "setGroup" o = RadioButtonSetGroupMethodInfo - ResolveRadioButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRadioButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRadioButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRadioButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRadioButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRadioButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveRadioButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveRadioButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo - ResolveRadioButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveRadioButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRadioButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRadioButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRadioButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRadioButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRadioButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRadioButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRadioButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo - ResolveRadioButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRadioButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRadioButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRadioButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRadioButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRadioButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRadioButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRadioButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRadioButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveRadioButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveRadioButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRadioButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRadioButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRadioButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveRadioButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRadioButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRadioButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRadioButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRadioButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRadioButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRadioButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveRadioButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveRadioButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveRadioButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRadioButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRadioButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRadioButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRadioButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRadioButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRadioButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioButtonMethod t RadioButton, MethodInfo info RadioButton p) => IsLabelProxy t (RadioButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioButtonMethod t RadioButton, MethodInfo info RadioButton p) => IsLabel t (RadioButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal RadioButton::group-changed -type RadioButtonGroupChangedCallback = - IO () - -noRadioButtonGroupChangedCallback :: Maybe RadioButtonGroupChangedCallback -noRadioButtonGroupChangedCallback = Nothing - -type RadioButtonGroupChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRadioButtonGroupChangedCallback :: RadioButtonGroupChangedCallbackC -> IO (FunPtr RadioButtonGroupChangedCallbackC) - -radioButtonGroupChangedClosure :: RadioButtonGroupChangedCallback -> IO Closure -radioButtonGroupChangedClosure cb = newCClosure =<< mkRadioButtonGroupChangedCallback wrapped - where wrapped = radioButtonGroupChangedCallbackWrapper cb - -radioButtonGroupChangedCallbackWrapper :: - RadioButtonGroupChangedCallback -> - Ptr () -> - Ptr () -> - IO () -radioButtonGroupChangedCallbackWrapper _cb _ _ = do - _cb - -onRadioButtonGroupChanged :: (GObject a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId -onRadioButtonGroupChanged obj cb = liftIO $ connectRadioButtonGroupChanged obj cb SignalConnectBefore -afterRadioButtonGroupChanged :: (GObject a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId -afterRadioButtonGroupChanged obj cb = connectRadioButtonGroupChanged obj cb SignalConnectAfter - -connectRadioButtonGroupChanged :: (GObject a, MonadIO m) => - a -> RadioButtonGroupChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRadioButtonGroupChanged obj cb after = liftIO $ do - cb' <- mkRadioButtonGroupChangedCallback (radioButtonGroupChangedCallbackWrapper cb) - connectSignalFunPtr obj "group-changed" cb' after - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioButton" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setRadioButtonGroup :: (MonadIO m, RadioButtonK o, RadioButtonK a) => o -> a -> m () -setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) - -constructRadioButtonGroup :: (RadioButtonK a) => a -> IO ([Char], GValue) -constructRadioButtonGroup val = constructObjectPropertyObject "group" (Just val) - -clearRadioButtonGroup :: (MonadIO m, RadioButtonK o) => o -> m () -clearRadioButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioButton) - -data RadioButtonGroupPropertyInfo -instance AttrInfo RadioButtonGroupPropertyInfo where - type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK - type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK - type AttrGetType RadioButtonGroupPropertyInfo = () - type AttrLabel RadioButtonGroupPropertyInfo = "group" - attrGet _ = undefined - attrSet _ = setRadioButtonGroup - attrConstruct _ = constructRadioButtonGroup - attrClear _ = clearRadioButtonGroup - -type instance AttributeList RadioButton = RadioButtonAttributeList -type RadioButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -radioButtonGroup :: AttrLabelProxy "group" -radioButtonGroup = AttrLabelProxy - -data RadioButtonGroupChangedSignalInfo -instance SignalInfo RadioButtonGroupChangedSignalInfo where - type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback - connectSignal _ = connectRadioButtonGroupChanged - -type instance SignalList RadioButton = RadioButtonSignalList -type RadioButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("groupChanged", RadioButtonGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method RadioButton::new --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new" gtk_radio_button_new :: - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - IO (Ptr RadioButton) - - -radioButtonNew :: - (MonadIO m, RadioButtonK a) => - [a] -- group - -> m RadioButton -- result -radioButtonNew group = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - result <- gtk_radio_button_new group'' - checkUnexpectedReturnNULL "gtk_radio_button_new" result - result' <- (newObject RadioButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - return result' - --- method RadioButton::new_from_widget --- method type : Constructor --- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new_from_widget" gtk_radio_button_new_from_widget :: - Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton" - IO (Ptr RadioButton) - - -radioButtonNewFromWidget :: - (MonadIO m, RadioButtonK a) => - Maybe (a) -- radioGroupMember - -> m RadioButton -- result -radioButtonNewFromWidget radioGroupMember = liftIO $ do - maybeRadioGroupMember <- case radioGroupMember of - Nothing -> return nullPtr - Just jRadioGroupMember -> do - let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember - return jRadioGroupMember' - result <- gtk_radio_button_new_from_widget maybeRadioGroupMember - checkUnexpectedReturnNULL "gtk_radio_button_new_from_widget" result - result' <- (newObject RadioButton) result - whenJust radioGroupMember touchManagedPtr - return result' - --- method RadioButton::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new_with_label" gtk_radio_button_new_with_label :: - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioButton) - - -radioButtonNewWithLabel :: - (MonadIO m, RadioButtonK a) => - [a] -- group - -> T.Text -- label - -> m RadioButton -- result -radioButtonNewWithLabel group label = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - label' <- textToCString label - result <- gtk_radio_button_new_with_label group'' label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_label" result - result' <- (newObject RadioButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem label' - return result' - --- method RadioButton::new_with_label_from_widget --- method type : Constructor --- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new_with_label_from_widget" gtk_radio_button_new_with_label_from_widget :: - Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton" - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioButton) - - -radioButtonNewWithLabelFromWidget :: - (MonadIO m, RadioButtonK a) => - Maybe (a) -- radioGroupMember - -> T.Text -- label - -> m RadioButton -- result -radioButtonNewWithLabelFromWidget radioGroupMember label = liftIO $ do - maybeRadioGroupMember <- case radioGroupMember of - Nothing -> return nullPtr - Just jRadioGroupMember -> do - let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember - return jRadioGroupMember' - label' <- textToCString label - result <- gtk_radio_button_new_with_label_from_widget maybeRadioGroupMember label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_label_from_widget" result - result' <- (newObject RadioButton) result - whenJust radioGroupMember touchManagedPtr - freeMem label' - return result' - --- method RadioButton::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new_with_mnemonic" gtk_radio_button_new_with_mnemonic :: - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioButton) - - -radioButtonNewWithMnemonic :: - (MonadIO m, RadioButtonK a) => - [a] -- group - -> T.Text -- label - -> m RadioButton -- result -radioButtonNewWithMnemonic group label = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - label' <- textToCString label - result <- gtk_radio_button_new_with_mnemonic group'' label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic" result - result' <- (newObject RadioButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem label' - return result' - --- method RadioButton::new_with_mnemonic_from_widget --- method type : Constructor --- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_new_with_mnemonic_from_widget" gtk_radio_button_new_with_mnemonic_from_widget :: - Ptr RadioButton -> -- radio_group_member : TInterface "Gtk" "RadioButton" - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioButton) - - -radioButtonNewWithMnemonicFromWidget :: - (MonadIO m, RadioButtonK a) => - Maybe (a) -- radioGroupMember - -> T.Text -- label - -> m RadioButton -- result -radioButtonNewWithMnemonicFromWidget radioGroupMember label = liftIO $ do - maybeRadioGroupMember <- case radioGroupMember of - Nothing -> return nullPtr - Just jRadioGroupMember -> do - let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember - return jRadioGroupMember' - label' <- textToCString label - result <- gtk_radio_button_new_with_mnemonic_from_widget maybeRadioGroupMember label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic_from_widget" result - result' <- (newObject RadioButton) result - whenJust radioGroupMember touchManagedPtr - freeMem label' - return result' - --- method RadioButton::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_get_group" gtk_radio_button_get_group :: - Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton" - IO (Ptr (GSList (Ptr RadioButton))) - - -radioButtonGetGroup :: - (MonadIO m, RadioButtonK a) => - a -- _obj - -> m [RadioButton] -- result -radioButtonGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_button_get_group _obj' - result' <- unpackGSList result - result'' <- mapM (newObject RadioButton) result' - touchManagedPtr _obj - return result'' - -data RadioButtonGetGroupMethodInfo -instance (signature ~ (m [RadioButton]), MonadIO m, RadioButtonK a) => MethodInfo RadioButtonGetGroupMethodInfo a signature where - overloadedMethod _ = radioButtonGetGroup - --- method RadioButton::join_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_join_group" gtk_radio_button_join_group :: - Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton" - Ptr RadioButton -> -- group_source : TInterface "Gtk" "RadioButton" - IO () - - -radioButtonJoinGroup :: - (MonadIO m, RadioButtonK a, RadioButtonK b) => - a -- _obj - -> Maybe (b) -- groupSource - -> m () -- result -radioButtonJoinGroup _obj groupSource = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroupSource <- case groupSource of - Nothing -> return nullPtr - Just jGroupSource -> do - let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource - return jGroupSource' - gtk_radio_button_join_group _obj' maybeGroupSource - touchManagedPtr _obj - whenJust groupSource touchManagedPtr - return () - -data RadioButtonJoinGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioButtonK a, RadioButtonK b) => MethodInfo RadioButtonJoinGroupMethodInfo a signature where - overloadedMethod _ = radioButtonJoinGroup - --- method RadioButton::set_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_button_set_group" gtk_radio_button_set_group :: - Ptr RadioButton -> -- _obj : TInterface "Gtk" "RadioButton" - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - IO () - - -radioButtonSetGroup :: - (MonadIO m, RadioButtonK a, RadioButtonK b) => - a -- _obj - -> [b] -- group - -> m () -- result -radioButtonSetGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - gtk_radio_button_set_group _obj' group'' - touchManagedPtr _obj - mapM_ touchManagedPtr group - g_slist_free group'' - return () - -data RadioButtonSetGroupMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, RadioButtonK a, RadioButtonK b) => MethodInfo RadioButtonSetGroupMethodInfo a signature where - overloadedMethod _ = radioButtonSetGroup - - diff --git a/GI/Gtk/Objects/RadioButton.hs-boot b/GI/Gtk/Objects/RadioButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioButton.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.RadioButton 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 RadioButton = RadioButton (ForeignPtr RadioButton) -instance GObject RadioButton where -class GObject o => RadioButtonK o -instance (GObject o, IsDescendantOf RadioButton o) => RadioButtonK o -data RadioButtonGroupPropertyInfo -data RadioButtonGroupChangedSignalInfo -data RadioButtonGetGroupMethodInfo -data RadioButtonJoinGroupMethodInfo -data RadioButtonSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioButtonAccessible.hs b/GI/Gtk/Objects/RadioButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioButtonAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.RadioButtonAccessible - ( - --- * Exported types - RadioButtonAccessible(..) , - RadioButtonAccessibleK , - toRadioButtonAccessible , - noRadioButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RadioButtonAccessible = RadioButtonAccessible (ForeignPtr RadioButtonAccessible) -foreign import ccall "gtk_radio_button_accessible_get_type" - c_gtk_radio_button_accessible_get_type :: IO GType - -type instance ParentTypes RadioButtonAccessible = RadioButtonAccessibleParentTypes -type RadioButtonAccessibleParentTypes = '[ToggleButtonAccessible, ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject RadioButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_radio_button_accessible_get_type - - -class GObject o => RadioButtonAccessibleK o -instance (GObject o, IsDescendantOf RadioButtonAccessible o) => RadioButtonAccessibleK o - -toRadioButtonAccessible :: RadioButtonAccessibleK o => o -> IO RadioButtonAccessible -toRadioButtonAccessible = unsafeCastTo RadioButtonAccessible - -noRadioButtonAccessible :: Maybe RadioButtonAccessible -noRadioButtonAccessible = Nothing - -type family ResolveRadioButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveRadioButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveRadioButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveRadioButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveRadioButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveRadioButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveRadioButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveRadioButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveRadioButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveRadioButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveRadioButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveRadioButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveRadioButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveRadioButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveRadioButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveRadioButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveRadioButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveRadioButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveRadioButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveRadioButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveRadioButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveRadioButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveRadioButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveRadioButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveRadioButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveRadioButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveRadioButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveRadioButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveRadioButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveRadioButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveRadioButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveRadioButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveRadioButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveRadioButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveRadioButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveRadioButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveRadioButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveRadioButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveRadioButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveRadioButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveRadioButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveRadioButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioButtonAccessibleMethod t RadioButtonAccessible, MethodInfo info RadioButtonAccessible p) => IsLabelProxy t (RadioButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioButtonAccessibleMethod t RadioButtonAccessible, MethodInfo info RadioButtonAccessible p) => IsLabel t (RadioButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RadioButtonAccessible = RadioButtonAccessibleAttributeList -type RadioButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RadioButtonAccessible = RadioButtonAccessibleSignalList -type RadioButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/RadioButtonAccessible.hs-boot b/GI/Gtk/Objects/RadioButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.RadioButtonAccessible 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 RadioButtonAccessible = RadioButtonAccessible (ForeignPtr RadioButtonAccessible) -instance GObject RadioButtonAccessible where -class GObject o => RadioButtonAccessibleK o -instance (GObject o, IsDescendantOf RadioButtonAccessible o) => RadioButtonAccessibleK o diff --git a/GI/Gtk/Objects/RadioMenuItem.hs b/GI/Gtk/Objects/RadioMenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioMenuItem.hs +++ /dev/null @@ -1,846 +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.Gtk.Objects.RadioMenuItem - ( - --- * Exported types - RadioMenuItem(..) , - RadioMenuItemK , - toRadioMenuItem , - noRadioMenuItem , - - - -- * Methods --- ** radioMenuItemGetGroup - RadioMenuItemGetGroupMethodInfo , - radioMenuItemGetGroup , - - --- ** radioMenuItemJoinGroup - RadioMenuItemJoinGroupMethodInfo , - radioMenuItemJoinGroup , - - --- ** radioMenuItemNew - radioMenuItemNew , - - --- ** radioMenuItemNewFromWidget - radioMenuItemNewFromWidget , - - --- ** radioMenuItemNewWithLabel - radioMenuItemNewWithLabel , - - --- ** radioMenuItemNewWithLabelFromWidget - radioMenuItemNewWithLabelFromWidget , - - --- ** radioMenuItemNewWithMnemonic - radioMenuItemNewWithMnemonic , - - --- ** radioMenuItemNewWithMnemonicFromWidget - radioMenuItemNewWithMnemonicFromWidget , - - --- ** radioMenuItemSetGroup - RadioMenuItemSetGroupMethodInfo , - radioMenuItemSetGroup , - - - - - -- * Properties --- ** Group - RadioMenuItemGroupPropertyInfo , - clearRadioMenuItemGroup , - constructRadioMenuItemGroup , - radioMenuItemGroup , - setRadioMenuItemGroup , - - - - - -- * Signals --- ** GroupChanged - RadioMenuItemGroupChangedCallback , - RadioMenuItemGroupChangedCallbackC , - RadioMenuItemGroupChangedSignalInfo , - afterRadioMenuItemGroupChanged , - mkRadioMenuItemGroupChangedCallback , - noRadioMenuItemGroupChangedCallback , - onRadioMenuItemGroupChanged , - radioMenuItemGroupChangedCallbackWrapper, - radioMenuItemGroupChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RadioMenuItem = RadioMenuItem (ForeignPtr RadioMenuItem) -foreign import ccall "gtk_radio_menu_item_get_type" - c_gtk_radio_menu_item_get_type :: IO GType - -type instance ParentTypes RadioMenuItem = RadioMenuItemParentTypes -type RadioMenuItemParentTypes = '[CheckMenuItem, MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject RadioMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_radio_menu_item_get_type - - -class GObject o => RadioMenuItemK o -instance (GObject o, IsDescendantOf RadioMenuItem o) => RadioMenuItemK o - -toRadioMenuItem :: RadioMenuItemK o => o -> IO RadioMenuItem -toRadioMenuItem = unsafeCastTo RadioMenuItem - -noRadioMenuItem :: Maybe RadioMenuItem -noRadioMenuItem = Nothing - -type family ResolveRadioMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveRadioMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRadioMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRadioMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRadioMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRadioMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRadioMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRadioMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRadioMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRadioMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRadioMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRadioMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRadioMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRadioMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRadioMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRadioMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRadioMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRadioMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRadioMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRadioMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRadioMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRadioMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRadioMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveRadioMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRadioMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRadioMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRadioMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveRadioMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRadioMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRadioMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRadioMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRadioMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRadioMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRadioMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRadioMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRadioMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRadioMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRadioMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRadioMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRadioMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRadioMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRadioMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRadioMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRadioMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRadioMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRadioMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRadioMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRadioMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRadioMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRadioMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRadioMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRadioMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRadioMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRadioMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRadioMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRadioMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveRadioMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRadioMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRadioMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveRadioMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveRadioMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveRadioMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRadioMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRadioMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRadioMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRadioMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRadioMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRadioMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRadioMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRadioMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRadioMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRadioMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRadioMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveRadioMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRadioMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRadioMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRadioMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRadioMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRadioMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRadioMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRadioMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRadioMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRadioMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRadioMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRadioMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRadioMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRadioMenuItemMethod "joinGroup" o = RadioMenuItemJoinGroupMethodInfo - ResolveRadioMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRadioMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRadioMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRadioMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRadioMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveRadioMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRadioMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRadioMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRadioMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRadioMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRadioMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRadioMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRadioMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRadioMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRadioMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRadioMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRadioMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRadioMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRadioMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRadioMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveRadioMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRadioMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRadioMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRadioMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRadioMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRadioMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRadioMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRadioMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveRadioMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRadioMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRadioMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveRadioMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRadioMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRadioMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRadioMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRadioMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRadioMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveRadioMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRadioMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRadioMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRadioMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveRadioMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRadioMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRadioMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRadioMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveRadioMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRadioMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRadioMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRadioMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRadioMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRadioMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRadioMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRadioMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveRadioMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRadioMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveRadioMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveRadioMenuItemMethod "toggled" o = CheckMenuItemToggledMethodInfo - ResolveRadioMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRadioMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRadioMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRadioMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRadioMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRadioMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRadioMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRadioMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRadioMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveRadioMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRadioMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRadioMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveRadioMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveRadioMenuItemMethod "getActive" o = CheckMenuItemGetActiveMethodInfo - ResolveRadioMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRadioMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRadioMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRadioMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRadioMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRadioMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRadioMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRadioMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRadioMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRadioMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveRadioMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRadioMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRadioMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRadioMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRadioMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRadioMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRadioMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRadioMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRadioMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRadioMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRadioMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRadioMenuItemMethod "getDrawAsRadio" o = CheckMenuItemGetDrawAsRadioMethodInfo - ResolveRadioMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRadioMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRadioMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRadioMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRadioMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRadioMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRadioMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRadioMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRadioMenuItemMethod "getGroup" o = RadioMenuItemGetGroupMethodInfo - ResolveRadioMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRadioMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRadioMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRadioMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRadioMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRadioMenuItemMethod "getInconsistent" o = CheckMenuItemGetInconsistentMethodInfo - ResolveRadioMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRadioMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveRadioMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRadioMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRadioMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRadioMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRadioMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRadioMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRadioMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRadioMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRadioMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRadioMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRadioMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRadioMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRadioMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRadioMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRadioMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRadioMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRadioMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRadioMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRadioMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRadioMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRadioMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRadioMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRadioMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRadioMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRadioMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRadioMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveRadioMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRadioMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRadioMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveRadioMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRadioMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveRadioMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRadioMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRadioMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRadioMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRadioMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRadioMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRadioMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveRadioMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRadioMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRadioMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRadioMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveRadioMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRadioMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRadioMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRadioMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRadioMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRadioMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRadioMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveRadioMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveRadioMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRadioMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRadioMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRadioMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRadioMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRadioMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRadioMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRadioMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveRadioMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveRadioMenuItemMethod "setActive" o = CheckMenuItemSetActiveMethodInfo - ResolveRadioMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRadioMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRadioMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRadioMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRadioMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRadioMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRadioMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRadioMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRadioMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRadioMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveRadioMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRadioMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRadioMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRadioMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRadioMenuItemMethod "setDrawAsRadio" o = CheckMenuItemSetDrawAsRadioMethodInfo - ResolveRadioMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRadioMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRadioMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRadioMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRadioMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRadioMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRadioMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRadioMenuItemMethod "setGroup" o = RadioMenuItemSetGroupMethodInfo - ResolveRadioMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRadioMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRadioMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRadioMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRadioMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRadioMenuItemMethod "setInconsistent" o = CheckMenuItemSetInconsistentMethodInfo - ResolveRadioMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveRadioMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRadioMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRadioMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRadioMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRadioMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRadioMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRadioMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRadioMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRadioMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRadioMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRadioMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRadioMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRadioMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRadioMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRadioMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRadioMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveRadioMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveRadioMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRadioMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveRadioMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRadioMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRadioMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveRadioMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRadioMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRadioMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveRadioMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRadioMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRadioMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRadioMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRadioMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveRadioMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveRadioMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRadioMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRadioMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRadioMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRadioMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRadioMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRadioMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioMenuItemMethod t RadioMenuItem, MethodInfo info RadioMenuItem p) => IsLabelProxy t (RadioMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioMenuItemMethod t RadioMenuItem, MethodInfo info RadioMenuItem p) => IsLabel t (RadioMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal RadioMenuItem::group-changed -type RadioMenuItemGroupChangedCallback = - IO () - -noRadioMenuItemGroupChangedCallback :: Maybe RadioMenuItemGroupChangedCallback -noRadioMenuItemGroupChangedCallback = Nothing - -type RadioMenuItemGroupChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRadioMenuItemGroupChangedCallback :: RadioMenuItemGroupChangedCallbackC -> IO (FunPtr RadioMenuItemGroupChangedCallbackC) - -radioMenuItemGroupChangedClosure :: RadioMenuItemGroupChangedCallback -> IO Closure -radioMenuItemGroupChangedClosure cb = newCClosure =<< mkRadioMenuItemGroupChangedCallback wrapped - where wrapped = radioMenuItemGroupChangedCallbackWrapper cb - -radioMenuItemGroupChangedCallbackWrapper :: - RadioMenuItemGroupChangedCallback -> - Ptr () -> - Ptr () -> - IO () -radioMenuItemGroupChangedCallbackWrapper _cb _ _ = do - _cb - -onRadioMenuItemGroupChanged :: (GObject a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId -onRadioMenuItemGroupChanged obj cb = liftIO $ connectRadioMenuItemGroupChanged obj cb SignalConnectBefore -afterRadioMenuItemGroupChanged :: (GObject a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId -afterRadioMenuItemGroupChanged obj cb = connectRadioMenuItemGroupChanged obj cb SignalConnectAfter - -connectRadioMenuItemGroupChanged :: (GObject a, MonadIO m) => - a -> RadioMenuItemGroupChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRadioMenuItemGroupChanged obj cb after = liftIO $ do - cb' <- mkRadioMenuItemGroupChangedCallback (radioMenuItemGroupChangedCallbackWrapper cb) - connectSignalFunPtr obj "group-changed" cb' after - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioMenuItem" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o, RadioMenuItemK a) => o -> a -> m () -setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) - -constructRadioMenuItemGroup :: (RadioMenuItemK a) => a -> IO ([Char], GValue) -constructRadioMenuItemGroup val = constructObjectPropertyObject "group" (Just val) - -clearRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o) => o -> m () -clearRadioMenuItemGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioMenuItem) - -data RadioMenuItemGroupPropertyInfo -instance AttrInfo RadioMenuItemGroupPropertyInfo where - type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK - type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK - type AttrGetType RadioMenuItemGroupPropertyInfo = () - type AttrLabel RadioMenuItemGroupPropertyInfo = "group" - attrGet _ = undefined - attrSet _ = setRadioMenuItemGroup - attrConstruct _ = constructRadioMenuItemGroup - attrClear _ = clearRadioMenuItemGroup - -type instance AttributeList RadioMenuItem = RadioMenuItemAttributeList -type RadioMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -radioMenuItemGroup :: AttrLabelProxy "group" -radioMenuItemGroup = AttrLabelProxy - -data RadioMenuItemGroupChangedSignalInfo -instance SignalInfo RadioMenuItemGroupChangedSignalInfo where - type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback - connectSignal _ = connectRadioMenuItemGroupChanged - -type instance SignalList RadioMenuItem = RadioMenuItemSignalList -type RadioMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("groupChanged", RadioMenuItemGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method RadioMenuItem::new --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new" gtk_radio_menu_item_new :: - Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem") - IO (Ptr RadioMenuItem) - - -radioMenuItemNew :: - (MonadIO m, RadioMenuItemK a) => - [a] -- group - -> m RadioMenuItem -- result -radioMenuItemNew group = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - result <- gtk_radio_menu_item_new group'' - checkUnexpectedReturnNULL "gtk_radio_menu_item_new" result - result' <- (newObject RadioMenuItem) result - mapM_ touchManagedPtr group - g_slist_free group'' - return result' - --- method RadioMenuItem::new_from_widget --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new_from_widget" gtk_radio_menu_item_new_from_widget :: - Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem" - IO (Ptr RadioMenuItem) - - -radioMenuItemNewFromWidget :: - (MonadIO m, RadioMenuItemK a) => - Maybe (a) -- group - -> m RadioMenuItem -- result -radioMenuItemNewFromWidget group = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - result <- gtk_radio_menu_item_new_from_widget maybeGroup - checkUnexpectedReturnNULL "gtk_radio_menu_item_new_from_widget" result - result' <- (newObject RadioMenuItem) result - whenJust group touchManagedPtr - return result' - --- method RadioMenuItem::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new_with_label" gtk_radio_menu_item_new_with_label :: - Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem") - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioMenuItem) - - -radioMenuItemNewWithLabel :: - (MonadIO m, RadioMenuItemK a) => - [a] -- group - -> T.Text -- label - -> m RadioMenuItem -- result -radioMenuItemNewWithLabel group label = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - label' <- textToCString label - result <- gtk_radio_menu_item_new_with_label group'' label' - checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_label" result - result' <- (newObject RadioMenuItem) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem label' - return result' - --- method RadioMenuItem::new_with_label_from_widget --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new_with_label_from_widget" gtk_radio_menu_item_new_with_label_from_widget :: - Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem" - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioMenuItem) - - -radioMenuItemNewWithLabelFromWidget :: - (MonadIO m, RadioMenuItemK a) => - Maybe (a) -- group - -> Maybe (T.Text) -- label - -> m RadioMenuItem -- result -radioMenuItemNewWithLabelFromWidget group label = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_radio_menu_item_new_with_label_from_widget maybeGroup maybeLabel - checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_label_from_widget" result - result' <- (newObject RadioMenuItem) result - whenJust group touchManagedPtr - freeMem maybeLabel - return result' - --- method RadioMenuItem::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new_with_mnemonic" gtk_radio_menu_item_new_with_mnemonic :: - Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem") - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioMenuItem) - - -radioMenuItemNewWithMnemonic :: - (MonadIO m, RadioMenuItemK a) => - [a] -- group - -> T.Text -- label - -> m RadioMenuItem -- result -radioMenuItemNewWithMnemonic group label = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - label' <- textToCString label - result <- gtk_radio_menu_item_new_with_mnemonic group'' label' - checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_mnemonic" result - result' <- (newObject RadioMenuItem) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem label' - return result' - --- method RadioMenuItem::new_with_mnemonic_from_widget --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_new_with_mnemonic_from_widget" gtk_radio_menu_item_new_with_mnemonic_from_widget :: - Ptr RadioMenuItem -> -- group : TInterface "Gtk" "RadioMenuItem" - CString -> -- label : TBasicType TUTF8 - IO (Ptr RadioMenuItem) - - -radioMenuItemNewWithMnemonicFromWidget :: - (MonadIO m, RadioMenuItemK a) => - Maybe (a) -- group - -> Maybe (T.Text) -- label - -> m RadioMenuItem -- result -radioMenuItemNewWithMnemonicFromWidget group label = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_radio_menu_item_new_with_mnemonic_from_widget maybeGroup maybeLabel - checkUnexpectedReturnNULL "gtk_radio_menu_item_new_with_mnemonic_from_widget" result - result' <- (newObject RadioMenuItem) result - whenJust group touchManagedPtr - freeMem maybeLabel - return result' - --- method RadioMenuItem::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "RadioMenuItem")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_get_group" gtk_radio_menu_item_get_group :: - Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem" - IO (Ptr (GSList (Ptr RadioMenuItem))) - - -radioMenuItemGetGroup :: - (MonadIO m, RadioMenuItemK a) => - a -- _obj - -> m [RadioMenuItem] -- result -radioMenuItemGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_menu_item_get_group _obj' - result' <- unpackGSList result - result'' <- mapM (newObject RadioMenuItem) result' - touchManagedPtr _obj - return result'' - -data RadioMenuItemGetGroupMethodInfo -instance (signature ~ (m [RadioMenuItem]), MonadIO m, RadioMenuItemK a) => MethodInfo RadioMenuItemGetGroupMethodInfo a signature where - overloadedMethod _ = radioMenuItemGetGroup - --- method RadioMenuItem::join_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_join_group" gtk_radio_menu_item_join_group :: - Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem" - Ptr RadioMenuItem -> -- group_source : TInterface "Gtk" "RadioMenuItem" - IO () - - -radioMenuItemJoinGroup :: - (MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => - a -- _obj - -> Maybe (b) -- groupSource - -> m () -- result -radioMenuItemJoinGroup _obj groupSource = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroupSource <- case groupSource of - Nothing -> return nullPtr - Just jGroupSource -> do - let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource - return jGroupSource' - gtk_radio_menu_item_join_group _obj' maybeGroupSource - touchManagedPtr _obj - whenJust groupSource touchManagedPtr - return () - -data RadioMenuItemJoinGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => MethodInfo RadioMenuItemJoinGroupMethodInfo a signature where - overloadedMethod _ = radioMenuItemJoinGroup - --- method RadioMenuItem::set_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_menu_item_set_group" gtk_radio_menu_item_set_group :: - Ptr RadioMenuItem -> -- _obj : TInterface "Gtk" "RadioMenuItem" - Ptr (GSList (Ptr RadioMenuItem)) -> -- group : TGSList (TInterface "Gtk" "RadioMenuItem") - IO () - - -radioMenuItemSetGroup :: - (MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => - a -- _obj - -> [b] -- group - -> m () -- result -radioMenuItemSetGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - gtk_radio_menu_item_set_group _obj' group'' - touchManagedPtr _obj - mapM_ touchManagedPtr group - g_slist_free group'' - return () - -data RadioMenuItemSetGroupMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => MethodInfo RadioMenuItemSetGroupMethodInfo a signature where - overloadedMethod _ = radioMenuItemSetGroup - - diff --git a/GI/Gtk/Objects/RadioMenuItem.hs-boot b/GI/Gtk/Objects/RadioMenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioMenuItem.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.RadioMenuItem 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 RadioMenuItem = RadioMenuItem (ForeignPtr RadioMenuItem) -instance GObject RadioMenuItem where -class GObject o => RadioMenuItemK o -instance (GObject o, IsDescendantOf RadioMenuItem o) => RadioMenuItemK o -data RadioMenuItemGroupPropertyInfo -data RadioMenuItemGroupChangedSignalInfo -data RadioMenuItemGetGroupMethodInfo -data RadioMenuItemJoinGroupMethodInfo -data RadioMenuItemSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioMenuItemAccessible.hs b/GI/Gtk/Objects/RadioMenuItemAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioMenuItemAccessible.hs +++ /dev/null @@ -1,136 +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.Gtk.Objects.RadioMenuItemAccessible - ( - --- * Exported types - RadioMenuItemAccessible(..) , - RadioMenuItemAccessibleK , - toRadioMenuItemAccessible , - noRadioMenuItemAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RadioMenuItemAccessible = RadioMenuItemAccessible (ForeignPtr RadioMenuItemAccessible) -foreign import ccall "gtk_radio_menu_item_accessible_get_type" - c_gtk_radio_menu_item_accessible_get_type :: IO GType - -type instance ParentTypes RadioMenuItemAccessible = RadioMenuItemAccessibleParentTypes -type RadioMenuItemAccessibleParentTypes = '[CheckMenuItemAccessible, MenuItemAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Selection] - -instance GObject RadioMenuItemAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_radio_menu_item_accessible_get_type - - -class GObject o => RadioMenuItemAccessibleK o -instance (GObject o, IsDescendantOf RadioMenuItemAccessible o) => RadioMenuItemAccessibleK o - -toRadioMenuItemAccessible :: RadioMenuItemAccessibleK o => o -> IO RadioMenuItemAccessible -toRadioMenuItemAccessible = unsafeCastTo RadioMenuItemAccessible - -noRadioMenuItemAccessible :: Maybe RadioMenuItemAccessible -noRadioMenuItemAccessible = Nothing - -type family ResolveRadioMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveRadioMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveRadioMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveRadioMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveRadioMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveRadioMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveRadioMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveRadioMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveRadioMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveRadioMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveRadioMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveRadioMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveRadioMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveRadioMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveRadioMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveRadioMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveRadioMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveRadioMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveRadioMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveRadioMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveRadioMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveRadioMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveRadioMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveRadioMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveRadioMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveRadioMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveRadioMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveRadioMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveRadioMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveRadioMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveRadioMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveRadioMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveRadioMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveRadioMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveRadioMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveRadioMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveRadioMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveRadioMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveRadioMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveRadioMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveRadioMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveRadioMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveRadioMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveRadioMenuItemAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioMenuItemAccessibleMethod t RadioMenuItemAccessible, MethodInfo info RadioMenuItemAccessible p) => IsLabelProxy t (RadioMenuItemAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioMenuItemAccessibleMethod t RadioMenuItemAccessible, MethodInfo info RadioMenuItemAccessible p) => IsLabel t (RadioMenuItemAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RadioMenuItemAccessible = RadioMenuItemAccessibleAttributeList -type RadioMenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RadioMenuItemAccessible = RadioMenuItemAccessibleSignalList -type RadioMenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot b/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.RadioMenuItemAccessible 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 RadioMenuItemAccessible = RadioMenuItemAccessible (ForeignPtr RadioMenuItemAccessible) -instance GObject RadioMenuItemAccessible where -class GObject o => RadioMenuItemAccessibleK o -instance (GObject o, IsDescendantOf RadioMenuItemAccessible o) => RadioMenuItemAccessibleK o diff --git a/GI/Gtk/Objects/RadioToolButton.hs b/GI/Gtk/Objects/RadioToolButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RadioToolButton.hs +++ /dev/null @@ -1,684 +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.Gtk.Objects.RadioToolButton - ( - --- * Exported types - RadioToolButton(..) , - RadioToolButtonK , - toRadioToolButton , - noRadioToolButton , - - - -- * Methods --- ** radioToolButtonGetGroup - RadioToolButtonGetGroupMethodInfo , - radioToolButtonGetGroup , - - --- ** radioToolButtonNew - radioToolButtonNew , - - --- ** radioToolButtonNewFromStock - radioToolButtonNewFromStock , - - --- ** radioToolButtonNewFromWidget - radioToolButtonNewFromWidget , - - --- ** radioToolButtonNewWithStockFromWidget - radioToolButtonNewWithStockFromWidget , - - --- ** radioToolButtonSetGroup - RadioToolButtonSetGroupMethodInfo , - radioToolButtonSetGroup , - - - - - -- * Properties --- ** Group - RadioToolButtonGroupPropertyInfo , - clearRadioToolButtonGroup , - constructRadioToolButtonGroup , - radioToolButtonGroup , - setRadioToolButtonGroup , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RadioToolButton = RadioToolButton (ForeignPtr RadioToolButton) -foreign import ccall "gtk_radio_tool_button_get_type" - c_gtk_radio_tool_button_get_type :: IO GType - -type instance ParentTypes RadioToolButton = RadioToolButtonParentTypes -type RadioToolButtonParentTypes = '[ToggleToolButton, ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject RadioToolButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_radio_tool_button_get_type - - -class GObject o => RadioToolButtonK o -instance (GObject o, IsDescendantOf RadioToolButton o) => RadioToolButtonK o - -toRadioToolButton :: RadioToolButtonK o => o -> IO RadioToolButton -toRadioToolButton = unsafeCastTo RadioToolButton - -noRadioToolButton :: Maybe RadioToolButton -noRadioToolButton = Nothing - -type family ResolveRadioToolButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioToolButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveRadioToolButtonMethod "add" o = ContainerAddMethodInfo - ResolveRadioToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRadioToolButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRadioToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRadioToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRadioToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRadioToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRadioToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRadioToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRadioToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRadioToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRadioToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRadioToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRadioToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRadioToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRadioToolButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRadioToolButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRadioToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRadioToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRadioToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRadioToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRadioToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRadioToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRadioToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRadioToolButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRadioToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRadioToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRadioToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveRadioToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRadioToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRadioToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRadioToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRadioToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRadioToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRadioToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRadioToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRadioToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRadioToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRadioToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRadioToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRadioToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRadioToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRadioToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRadioToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRadioToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRadioToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRadioToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRadioToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRadioToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRadioToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRadioToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRadioToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRadioToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRadioToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRadioToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRadioToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRadioToolButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveRadioToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRadioToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRadioToolButtonMethod "event" o = WidgetEventMethodInfo - ResolveRadioToolButtonMethod "forall" o = ContainerForallMethodInfo - ResolveRadioToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRadioToolButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveRadioToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRadioToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRadioToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRadioToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRadioToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRadioToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRadioToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRadioToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRadioToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRadioToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRadioToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRadioToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRadioToolButtonMethod "hide" o = WidgetHideMethodInfo - ResolveRadioToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRadioToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRadioToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRadioToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRadioToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRadioToolButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRadioToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRadioToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRadioToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRadioToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRadioToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRadioToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRadioToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRadioToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRadioToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRadioToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRadioToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRadioToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRadioToolButtonMethod "map" o = WidgetMapMethodInfo - ResolveRadioToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRadioToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRadioToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRadioToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRadioToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRadioToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRadioToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRadioToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRadioToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRadioToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRadioToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRadioToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRadioToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRadioToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRadioToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRadioToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRadioToolButtonMethod "path" o = WidgetPathMethodInfo - ResolveRadioToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRadioToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRadioToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRadioToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRadioToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRadioToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRadioToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRadioToolButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveRadioToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveRadioToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRadioToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRadioToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRadioToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRadioToolButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveRadioToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRadioToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRadioToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRadioToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRadioToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRadioToolButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveRadioToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRadioToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRadioToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRadioToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRadioToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRadioToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveRadioToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRadioToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRadioToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRadioToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRadioToolButtonMethod "show" o = WidgetShowMethodInfo - ResolveRadioToolButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRadioToolButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRadioToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRadioToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRadioToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRadioToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRadioToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRadioToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRadioToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRadioToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveRadioToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRadioToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRadioToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveRadioToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRadioToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRadioToolButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRadioToolButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRadioToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRadioToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRadioToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRadioToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRadioToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRadioToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRadioToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRadioToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRadioToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveRadioToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveRadioToolButtonMethod "getActive" o = ToggleToolButtonGetActiveMethodInfo - ResolveRadioToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRadioToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRadioToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRadioToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRadioToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRadioToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRadioToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRadioToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRadioToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRadioToolButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveRadioToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRadioToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRadioToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRadioToolButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRadioToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRadioToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRadioToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRadioToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRadioToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRadioToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRadioToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRadioToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRadioToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveRadioToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRadioToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveRadioToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRadioToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRadioToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRadioToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRadioToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRadioToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRadioToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRadioToolButtonMethod "getGroup" o = RadioToolButtonGetGroupMethodInfo - ResolveRadioToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRadioToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRadioToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRadioToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRadioToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRadioToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveRadioToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo - ResolveRadioToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveRadioToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo - ResolveRadioToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRadioToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveRadioToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo - ResolveRadioToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo - ResolveRadioToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRadioToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRadioToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRadioToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRadioToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRadioToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRadioToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRadioToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRadioToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRadioToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRadioToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRadioToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveRadioToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRadioToolButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRadioToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRadioToolButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRadioToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRadioToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRadioToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRadioToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRadioToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRadioToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRadioToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRadioToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRadioToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRadioToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveRadioToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRadioToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRadioToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRadioToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveRadioToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveRadioToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRadioToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRadioToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRadioToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRadioToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRadioToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRadioToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRadioToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRadioToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRadioToolButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveRadioToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRadioToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo - ResolveRadioToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRadioToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRadioToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRadioToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRadioToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveRadioToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveRadioToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveRadioToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveRadioToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRadioToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRadioToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRadioToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRadioToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveRadioToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveRadioToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo - ResolveRadioToolButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRadioToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRadioToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRadioToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRadioToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRadioToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveRadioToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveRadioToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRadioToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRadioToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRadioToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveRadioToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveRadioToolButtonMethod "setActive" o = ToggleToolButtonSetActiveMethodInfo - ResolveRadioToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRadioToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRadioToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRadioToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRadioToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRadioToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRadioToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRadioToolButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRadioToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRadioToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRadioToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveRadioToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRadioToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRadioToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRadioToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRadioToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRadioToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveRadioToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRadioToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRadioToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRadioToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRadioToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRadioToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRadioToolButtonMethod "setGroup" o = RadioToolButtonSetGroupMethodInfo - ResolveRadioToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRadioToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRadioToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRadioToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRadioToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRadioToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveRadioToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo - ResolveRadioToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo - ResolveRadioToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveRadioToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo - ResolveRadioToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo - ResolveRadioToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRadioToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRadioToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRadioToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRadioToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRadioToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRadioToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRadioToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRadioToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRadioToolButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRadioToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRadioToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRadioToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveRadioToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRadioToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRadioToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRadioToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRadioToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveRadioToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRadioToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRadioToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRadioToolButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveRadioToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRadioToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo - ResolveRadioToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRadioToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRadioToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRadioToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveRadioToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveRadioToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo - ResolveRadioToolButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRadioToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRadioToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRadioToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRadioToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveRadioToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveRadioToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRadioToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRadioToolButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioToolButtonMethod t RadioToolButton, MethodInfo info RadioToolButton p) => IsLabelProxy t (RadioToolButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioToolButtonMethod t RadioToolButton, MethodInfo info RadioToolButton p) => IsLabel t (RadioToolButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioToolButton" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o, RadioToolButtonK a) => o -> a -> m () -setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) - -constructRadioToolButtonGroup :: (RadioToolButtonK a) => a -> IO ([Char], GValue) -constructRadioToolButtonGroup val = constructObjectPropertyObject "group" (Just val) - -clearRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o) => o -> m () -clearRadioToolButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioToolButton) - -data RadioToolButtonGroupPropertyInfo -instance AttrInfo RadioToolButtonGroupPropertyInfo where - type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK - type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK - type AttrGetType RadioToolButtonGroupPropertyInfo = () - type AttrLabel RadioToolButtonGroupPropertyInfo = "group" - attrGet _ = undefined - attrSet _ = setRadioToolButtonGroup - attrConstruct _ = constructRadioToolButtonGroup - attrClear _ = clearRadioToolButtonGroup - -type instance AttributeList RadioToolButton = RadioToolButtonAttributeList -type RadioToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -radioToolButtonGroup :: AttrLabelProxy "group" -radioToolButtonGroup = AttrLabelProxy - -type instance SignalList RadioToolButton = RadioToolButtonSignalList -type RadioToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method RadioToolButton::new --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_new" gtk_radio_tool_button_new :: - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - IO (Ptr RadioToolButton) - - -radioToolButtonNew :: - (MonadIO m, RadioButtonK a) => - [a] -- group - -> m RadioToolButton -- result -radioToolButtonNew group = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - result <- gtk_radio_tool_button_new group'' - checkUnexpectedReturnNULL "gtk_radio_tool_button_new" result - result' <- (newObject RadioToolButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - return result' - --- method RadioToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_new_from_stock" gtk_radio_tool_button_new_from_stock :: - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr RadioToolButton) - -{-# DEPRECATED radioToolButtonNewFromStock ["(Since version 3.10)","Use gtk_radio_tool_button_new() instead."]#-} -radioToolButtonNewFromStock :: - (MonadIO m, RadioButtonK a) => - [a] -- group - -> T.Text -- stockId - -> m RadioToolButton -- result -radioToolButtonNewFromStock group stockId = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - stockId' <- textToCString stockId - result <- gtk_radio_tool_button_new_from_stock group'' stockId' - checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_stock" result - result' <- (newObject RadioToolButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem stockId' - return result' - --- method RadioToolButton::new_from_widget --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_new_from_widget" gtk_radio_tool_button_new_from_widget :: - Ptr RadioToolButton -> -- group : TInterface "Gtk" "RadioToolButton" - IO (Ptr RadioToolButton) - - -radioToolButtonNewFromWidget :: - (MonadIO m, RadioToolButtonK a) => - Maybe (a) -- group - -> m RadioToolButton -- result -radioToolButtonNewFromWidget group = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - result <- gtk_radio_tool_button_new_from_widget maybeGroup - checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_widget" result - result' <- (newObject RadioToolButton) result - whenJust group touchManagedPtr - return result' - --- method RadioToolButton::new_with_stock_from_widget --- method type : Constructor --- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RadioToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_new_with_stock_from_widget" gtk_radio_tool_button_new_with_stock_from_widget :: - Ptr RadioToolButton -> -- group : TInterface "Gtk" "RadioToolButton" - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr RadioToolButton) - -{-# DEPRECATED radioToolButtonNewWithStockFromWidget ["(Since version 3.10)","gtk_radio_tool_button_new_from_widget"]#-} -radioToolButtonNewWithStockFromWidget :: - (MonadIO m, RadioToolButtonK a) => - Maybe (a) -- group - -> T.Text -- stockId - -> m RadioToolButton -- result -radioToolButtonNewWithStockFromWidget group stockId = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - stockId' <- textToCString stockId - result <- gtk_radio_tool_button_new_with_stock_from_widget maybeGroup stockId' - checkUnexpectedReturnNULL "gtk_radio_tool_button_new_with_stock_from_widget" result - result' <- (newObject RadioToolButton) result - whenJust group touchManagedPtr - freeMem stockId' - return result' - --- method RadioToolButton::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_get_group" gtk_radio_tool_button_get_group :: - Ptr RadioToolButton -> -- _obj : TInterface "Gtk" "RadioToolButton" - IO (Ptr (GSList (Ptr RadioButton))) - - -radioToolButtonGetGroup :: - (MonadIO m, RadioToolButtonK a) => - a -- _obj - -> m [RadioButton] -- result -radioToolButtonGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_tool_button_get_group _obj' - result' <- unpackGSList result - result'' <- mapM (newObject RadioButton) result' - touchManagedPtr _obj - return result'' - -data RadioToolButtonGetGroupMethodInfo -instance (signature ~ (m [RadioButton]), MonadIO m, RadioToolButtonK a) => MethodInfo RadioToolButtonGetGroupMethodInfo a signature where - overloadedMethod _ = radioToolButtonGetGroup - --- method RadioToolButton::set_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_tool_button_set_group" gtk_radio_tool_button_set_group :: - Ptr RadioToolButton -> -- _obj : TInterface "Gtk" "RadioToolButton" - Ptr (GSList (Ptr RadioButton)) -> -- group : TGSList (TInterface "Gtk" "RadioButton") - IO () - - -radioToolButtonSetGroup :: - (MonadIO m, RadioToolButtonK a, RadioButtonK b) => - a -- _obj - -> [b] -- group - -> m () -- result -radioToolButtonSetGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - gtk_radio_tool_button_set_group _obj' group'' - touchManagedPtr _obj - mapM_ touchManagedPtr group - g_slist_free group'' - return () - -data RadioToolButtonSetGroupMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, RadioToolButtonK a, RadioButtonK b) => MethodInfo RadioToolButtonSetGroupMethodInfo a signature where - overloadedMethod _ = radioToolButtonSetGroup - - diff --git a/GI/Gtk/Objects/RadioToolButton.hs-boot b/GI/Gtk/Objects/RadioToolButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RadioToolButton.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.RadioToolButton 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 RadioToolButton = RadioToolButton (ForeignPtr RadioToolButton) -instance GObject RadioToolButton where -class GObject o => RadioToolButtonK o -instance (GObject o, IsDescendantOf RadioToolButton o) => RadioToolButtonK o -data RadioToolButtonGroupPropertyInfo -data RadioToolButtonGetGroupMethodInfo -data RadioToolButtonSetGroupMethodInfo diff --git a/GI/Gtk/Objects/Range.hs b/GI/Gtk/Objects/Range.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Range.hs +++ /dev/null @@ -1,1895 +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.Gtk.Objects.Range - ( - --- * Exported types - Range(..) , - RangeK , - toRange , - noRange , - - - -- * Methods --- ** rangeGetAdjustment - RangeGetAdjustmentMethodInfo , - rangeGetAdjustment , - - --- ** rangeGetFillLevel - RangeGetFillLevelMethodInfo , - rangeGetFillLevel , - - --- ** rangeGetFlippable - RangeGetFlippableMethodInfo , - rangeGetFlippable , - - --- ** rangeGetInverted - RangeGetInvertedMethodInfo , - rangeGetInverted , - - --- ** rangeGetLowerStepperSensitivity - RangeGetLowerStepperSensitivityMethodInfo, - rangeGetLowerStepperSensitivity , - - --- ** rangeGetMinSliderSize - RangeGetMinSliderSizeMethodInfo , - rangeGetMinSliderSize , - - --- ** rangeGetRangeRect - RangeGetRangeRectMethodInfo , - rangeGetRangeRect , - - --- ** rangeGetRestrictToFillLevel - RangeGetRestrictToFillLevelMethodInfo , - rangeGetRestrictToFillLevel , - - --- ** rangeGetRoundDigits - RangeGetRoundDigitsMethodInfo , - rangeGetRoundDigits , - - --- ** rangeGetShowFillLevel - RangeGetShowFillLevelMethodInfo , - rangeGetShowFillLevel , - - --- ** rangeGetSliderRange - RangeGetSliderRangeMethodInfo , - rangeGetSliderRange , - - --- ** rangeGetSliderSizeFixed - RangeGetSliderSizeFixedMethodInfo , - rangeGetSliderSizeFixed , - - --- ** rangeGetUpperStepperSensitivity - RangeGetUpperStepperSensitivityMethodInfo, - rangeGetUpperStepperSensitivity , - - --- ** rangeGetValue - RangeGetValueMethodInfo , - rangeGetValue , - - --- ** rangeSetAdjustment - RangeSetAdjustmentMethodInfo , - rangeSetAdjustment , - - --- ** rangeSetFillLevel - RangeSetFillLevelMethodInfo , - rangeSetFillLevel , - - --- ** rangeSetFlippable - RangeSetFlippableMethodInfo , - rangeSetFlippable , - - --- ** rangeSetIncrements - RangeSetIncrementsMethodInfo , - rangeSetIncrements , - - --- ** rangeSetInverted - RangeSetInvertedMethodInfo , - rangeSetInverted , - - --- ** rangeSetLowerStepperSensitivity - RangeSetLowerStepperSensitivityMethodInfo, - rangeSetLowerStepperSensitivity , - - --- ** rangeSetMinSliderSize - RangeSetMinSliderSizeMethodInfo , - rangeSetMinSliderSize , - - --- ** rangeSetRange - RangeSetRangeMethodInfo , - rangeSetRange , - - --- ** rangeSetRestrictToFillLevel - RangeSetRestrictToFillLevelMethodInfo , - rangeSetRestrictToFillLevel , - - --- ** rangeSetRoundDigits - RangeSetRoundDigitsMethodInfo , - rangeSetRoundDigits , - - --- ** rangeSetShowFillLevel - RangeSetShowFillLevelMethodInfo , - rangeSetShowFillLevel , - - --- ** rangeSetSliderSizeFixed - RangeSetSliderSizeFixedMethodInfo , - rangeSetSliderSizeFixed , - - --- ** rangeSetUpperStepperSensitivity - RangeSetUpperStepperSensitivityMethodInfo, - rangeSetUpperStepperSensitivity , - - --- ** rangeSetValue - RangeSetValueMethodInfo , - rangeSetValue , - - - - - -- * Properties --- ** Adjustment - RangeAdjustmentPropertyInfo , - constructRangeAdjustment , - getRangeAdjustment , - rangeAdjustment , - setRangeAdjustment , - - --- ** FillLevel - RangeFillLevelPropertyInfo , - constructRangeFillLevel , - getRangeFillLevel , - rangeFillLevel , - setRangeFillLevel , - - --- ** Inverted - RangeInvertedPropertyInfo , - constructRangeInverted , - getRangeInverted , - rangeInverted , - setRangeInverted , - - --- ** LowerStepperSensitivity - RangeLowerStepperSensitivityPropertyInfo, - constructRangeLowerStepperSensitivity , - getRangeLowerStepperSensitivity , - rangeLowerStepperSensitivity , - setRangeLowerStepperSensitivity , - - --- ** RestrictToFillLevel - RangeRestrictToFillLevelPropertyInfo , - constructRangeRestrictToFillLevel , - getRangeRestrictToFillLevel , - rangeRestrictToFillLevel , - setRangeRestrictToFillLevel , - - --- ** RoundDigits - RangeRoundDigitsPropertyInfo , - constructRangeRoundDigits , - getRangeRoundDigits , - rangeRoundDigits , - setRangeRoundDigits , - - --- ** ShowFillLevel - RangeShowFillLevelPropertyInfo , - constructRangeShowFillLevel , - getRangeShowFillLevel , - rangeShowFillLevel , - setRangeShowFillLevel , - - --- ** UpperStepperSensitivity - RangeUpperStepperSensitivityPropertyInfo, - constructRangeUpperStepperSensitivity , - getRangeUpperStepperSensitivity , - rangeUpperStepperSensitivity , - setRangeUpperStepperSensitivity , - - - - - -- * Signals --- ** AdjustBounds - RangeAdjustBoundsCallback , - RangeAdjustBoundsCallbackC , - RangeAdjustBoundsSignalInfo , - afterRangeAdjustBounds , - mkRangeAdjustBoundsCallback , - noRangeAdjustBoundsCallback , - onRangeAdjustBounds , - rangeAdjustBoundsCallbackWrapper , - rangeAdjustBoundsClosure , - - --- ** ChangeValue - RangeChangeValueCallback , - RangeChangeValueCallbackC , - RangeChangeValueSignalInfo , - afterRangeChangeValue , - mkRangeChangeValueCallback , - noRangeChangeValueCallback , - onRangeChangeValue , - rangeChangeValueCallbackWrapper , - rangeChangeValueClosure , - - --- ** MoveSlider - RangeMoveSliderCallback , - RangeMoveSliderCallbackC , - RangeMoveSliderSignalInfo , - afterRangeMoveSlider , - mkRangeMoveSliderCallback , - noRangeMoveSliderCallback , - onRangeMoveSlider , - rangeMoveSliderCallbackWrapper , - rangeMoveSliderClosure , - - --- ** ValueChanged - RangeValueChangedCallback , - RangeValueChangedCallbackC , - RangeValueChangedSignalInfo , - afterRangeValueChanged , - mkRangeValueChangedCallback , - noRangeValueChangedCallback , - onRangeValueChanged , - rangeValueChangedCallbackWrapper , - rangeValueChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Range = Range (ForeignPtr Range) -foreign import ccall "gtk_range_get_type" - c_gtk_range_get_type :: IO GType - -type instance ParentTypes Range = RangeParentTypes -type RangeParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Range where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_range_get_type - - -class GObject o => RangeK o -instance (GObject o, IsDescendantOf Range o) => RangeK o - -toRange :: RangeK o => o -> IO Range -toRange = unsafeCastTo Range - -noRange :: Maybe Range -noRange = Nothing - -type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where - ResolveRangeMethod "activate" o = WidgetActivateMethodInfo - ResolveRangeMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRangeMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRangeMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRangeMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRangeMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRangeMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRangeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRangeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRangeMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRangeMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRangeMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveRangeMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRangeMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRangeMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRangeMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRangeMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRangeMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRangeMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRangeMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRangeMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRangeMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRangeMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRangeMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRangeMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRangeMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRangeMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRangeMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRangeMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRangeMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRangeMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRangeMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRangeMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRangeMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRangeMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRangeMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRangeMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRangeMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRangeMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRangeMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRangeMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRangeMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRangeMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRangeMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRangeMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRangeMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRangeMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRangeMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRangeMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRangeMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRangeMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRangeMethod "draw" o = WidgetDrawMethodInfo - ResolveRangeMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRangeMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRangeMethod "event" o = WidgetEventMethodInfo - ResolveRangeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRangeMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRangeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRangeMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRangeMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRangeMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRangeMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRangeMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRangeMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRangeMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRangeMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRangeMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRangeMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRangeMethod "hide" o = WidgetHideMethodInfo - ResolveRangeMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRangeMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRangeMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRangeMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRangeMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRangeMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRangeMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRangeMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRangeMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRangeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRangeMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRangeMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRangeMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRangeMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRangeMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRangeMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRangeMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRangeMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRangeMethod "map" o = WidgetMapMethodInfo - ResolveRangeMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRangeMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRangeMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRangeMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRangeMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRangeMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRangeMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRangeMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRangeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRangeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRangeMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRangeMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRangeMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRangeMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRangeMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRangeMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRangeMethod "path" o = WidgetPathMethodInfo - ResolveRangeMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRangeMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRangeMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRangeMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRangeMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRangeMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRangeMethod "realize" o = WidgetRealizeMethodInfo - ResolveRangeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRangeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRangeMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRangeMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRangeMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRangeMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRangeMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRangeMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRangeMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRangeMethod "reparent" o = WidgetReparentMethodInfo - ResolveRangeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRangeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRangeMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRangeMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRangeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRangeMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRangeMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRangeMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRangeMethod "show" o = WidgetShowMethodInfo - ResolveRangeMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRangeMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRangeMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRangeMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRangeMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRangeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRangeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRangeMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRangeMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRangeMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRangeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRangeMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRangeMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRangeMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRangeMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRangeMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRangeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRangeMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRangeMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRangeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRangeMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRangeMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRangeMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveRangeMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRangeMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRangeMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRangeMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRangeMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRangeMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRangeMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRangeMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRangeMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRangeMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRangeMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRangeMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRangeMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRangeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRangeMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRangeMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRangeMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRangeMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRangeMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRangeMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRangeMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveRangeMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveRangeMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRangeMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRangeMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRangeMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRangeMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRangeMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRangeMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRangeMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRangeMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRangeMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveRangeMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveRangeMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRangeMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRangeMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRangeMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRangeMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRangeMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRangeMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRangeMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveRangeMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRangeMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRangeMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRangeMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRangeMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveRangeMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRangeMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRangeMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRangeMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRangeMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRangeMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRangeMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRangeMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRangeMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRangeMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRangeMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRangeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRangeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRangeMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveRangeMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRangeMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRangeMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRangeMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRangeMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveRangeMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRangeMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveRangeMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRangeMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRangeMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRangeMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRangeMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveRangeMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRangeMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveRangeMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveRangeMethod "getState" o = WidgetGetStateMethodInfo - ResolveRangeMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRangeMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRangeMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRangeMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRangeMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRangeMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRangeMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRangeMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRangeMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRangeMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveRangeMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRangeMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRangeMethod "getValue" o = RangeGetValueMethodInfo - ResolveRangeMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRangeMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRangeMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRangeMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRangeMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRangeMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRangeMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveRangeMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRangeMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRangeMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRangeMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRangeMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRangeMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRangeMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRangeMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRangeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRangeMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRangeMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRangeMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRangeMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRangeMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRangeMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveRangeMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveRangeMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRangeMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRangeMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRangeMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRangeMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRangeMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRangeMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRangeMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveRangeMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveRangeMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveRangeMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRangeMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRangeMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRangeMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRangeMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRangeMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRangeMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRangeMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveRangeMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRangeMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRangeMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveRangeMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRangeMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRangeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRangeMethod "setRange" o = RangeSetRangeMethodInfo - ResolveRangeMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRangeMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRangeMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRangeMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveRangeMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveRangeMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRangeMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveRangeMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRangeMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveRangeMethod "setState" o = WidgetSetStateMethodInfo - ResolveRangeMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRangeMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRangeMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRangeMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRangeMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRangeMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRangeMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveRangeMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRangeMethod "setValue" o = RangeSetValueMethodInfo - ResolveRangeMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRangeMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRangeMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRangeMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRangeMethod "setWindow" o = WidgetSetWindowMethodInfo - 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 - --- signal Range::adjust-bounds -type RangeAdjustBoundsCallback = - Double -> - IO () - -noRangeAdjustBoundsCallback :: Maybe RangeAdjustBoundsCallback -noRangeAdjustBoundsCallback = Nothing - -type RangeAdjustBoundsCallbackC = - Ptr () -> -- object - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRangeAdjustBoundsCallback :: RangeAdjustBoundsCallbackC -> IO (FunPtr RangeAdjustBoundsCallbackC) - -rangeAdjustBoundsClosure :: RangeAdjustBoundsCallback -> IO Closure -rangeAdjustBoundsClosure cb = newCClosure =<< mkRangeAdjustBoundsCallback wrapped - where wrapped = rangeAdjustBoundsCallbackWrapper cb - -rangeAdjustBoundsCallbackWrapper :: - RangeAdjustBoundsCallback -> - Ptr () -> - CDouble -> - Ptr () -> - IO () -rangeAdjustBoundsCallbackWrapper _cb _ value _ = do - let value' = realToFrac value - _cb value' - -onRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId -onRangeAdjustBounds obj cb = liftIO $ connectRangeAdjustBounds obj cb SignalConnectBefore -afterRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId -afterRangeAdjustBounds obj cb = connectRangeAdjustBounds obj cb SignalConnectAfter - -connectRangeAdjustBounds :: (GObject a, MonadIO m) => - a -> RangeAdjustBoundsCallback -> SignalConnectMode -> m SignalHandlerId -connectRangeAdjustBounds obj cb after = liftIO $ do - cb' <- mkRangeAdjustBoundsCallback (rangeAdjustBoundsCallbackWrapper cb) - connectSignalFunPtr obj "adjust-bounds" cb' after - --- signal Range::change-value -type RangeChangeValueCallback = - ScrollType -> - Double -> - IO Bool - -noRangeChangeValueCallback :: Maybe RangeChangeValueCallback -noRangeChangeValueCallback = Nothing - -type RangeChangeValueCallbackC = - Ptr () -> -- object - CUInt -> - CDouble -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkRangeChangeValueCallback :: RangeChangeValueCallbackC -> IO (FunPtr RangeChangeValueCallbackC) - -rangeChangeValueClosure :: RangeChangeValueCallback -> IO Closure -rangeChangeValueClosure cb = newCClosure =<< mkRangeChangeValueCallback wrapped - where wrapped = rangeChangeValueCallbackWrapper cb - -rangeChangeValueCallbackWrapper :: - RangeChangeValueCallback -> - Ptr () -> - CUInt -> - CDouble -> - Ptr () -> - IO CInt -rangeChangeValueCallbackWrapper _cb _ scroll value _ = do - let scroll' = (toEnum . fromIntegral) scroll - let value' = realToFrac value - result <- _cb scroll' value' - let result' = (fromIntegral . fromEnum) result - return result' - -onRangeChangeValue :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId -onRangeChangeValue obj cb = liftIO $ connectRangeChangeValue obj cb SignalConnectBefore -afterRangeChangeValue :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId -afterRangeChangeValue obj cb = connectRangeChangeValue obj cb SignalConnectAfter - -connectRangeChangeValue :: (GObject a, MonadIO m) => - a -> RangeChangeValueCallback -> SignalConnectMode -> m SignalHandlerId -connectRangeChangeValue obj cb after = liftIO $ do - cb' <- mkRangeChangeValueCallback (rangeChangeValueCallbackWrapper cb) - connectSignalFunPtr obj "change-value" cb' after - --- signal Range::move-slider -type RangeMoveSliderCallback = - ScrollType -> - IO () - -noRangeMoveSliderCallback :: Maybe RangeMoveSliderCallback -noRangeMoveSliderCallback = Nothing - -type RangeMoveSliderCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRangeMoveSliderCallback :: RangeMoveSliderCallbackC -> IO (FunPtr RangeMoveSliderCallbackC) - -rangeMoveSliderClosure :: RangeMoveSliderCallback -> IO Closure -rangeMoveSliderClosure cb = newCClosure =<< mkRangeMoveSliderCallback wrapped - where wrapped = rangeMoveSliderCallbackWrapper cb - -rangeMoveSliderCallbackWrapper :: - RangeMoveSliderCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -rangeMoveSliderCallbackWrapper _cb _ step _ = do - let step' = (toEnum . fromIntegral) step - _cb step' - -onRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId -onRangeMoveSlider obj cb = liftIO $ connectRangeMoveSlider obj cb SignalConnectBefore -afterRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId -afterRangeMoveSlider obj cb = connectRangeMoveSlider obj cb SignalConnectAfter - -connectRangeMoveSlider :: (GObject a, MonadIO m) => - a -> RangeMoveSliderCallback -> SignalConnectMode -> m SignalHandlerId -connectRangeMoveSlider obj cb after = liftIO $ do - cb' <- mkRangeMoveSliderCallback (rangeMoveSliderCallbackWrapper cb) - connectSignalFunPtr obj "move-slider" cb' after - --- signal Range::value-changed -type RangeValueChangedCallback = - IO () - -noRangeValueChangedCallback :: Maybe RangeValueChangedCallback -noRangeValueChangedCallback = Nothing - -type RangeValueChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRangeValueChangedCallback :: RangeValueChangedCallbackC -> IO (FunPtr RangeValueChangedCallbackC) - -rangeValueChangedClosure :: RangeValueChangedCallback -> IO Closure -rangeValueChangedClosure cb = newCClosure =<< mkRangeValueChangedCallback wrapped - where wrapped = rangeValueChangedCallbackWrapper cb - -rangeValueChangedCallbackWrapper :: - RangeValueChangedCallback -> - Ptr () -> - Ptr () -> - IO () -rangeValueChangedCallbackWrapper _cb _ _ = do - _cb - -onRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId -onRangeValueChanged obj cb = liftIO $ connectRangeValueChanged obj cb SignalConnectBefore -afterRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId -afterRangeValueChanged obj cb = connectRangeValueChanged obj cb SignalConnectAfter - -connectRangeValueChanged :: (GObject a, MonadIO m) => - a -> RangeValueChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRangeValueChanged obj cb after = liftIO $ do - cb' <- mkRangeValueChangedCallback (rangeValueChangedCallbackWrapper cb) - connectSignalFunPtr obj "value-changed" cb' after - --- VVV Prop "adjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment -getRangeAdjustment obj = liftIO $ checkUnexpectedNothing "getRangeAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment - -setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m () -setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) - -constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructRangeAdjustment val = constructObjectPropertyObject "adjustment" (Just val) - -data RangeAdjustmentPropertyInfo -instance AttrInfo RangeAdjustmentPropertyInfo where - type AttrAllowedOps RangeAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = RangeK - type AttrGetType RangeAdjustmentPropertyInfo = Adjustment - type AttrLabel RangeAdjustmentPropertyInfo = "adjustment" - attrGet _ = getRangeAdjustment - attrSet _ = setRangeAdjustment - attrConstruct _ = constructRangeAdjustment - attrClear _ = undefined - --- VVV Prop "fill-level" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeFillLevel :: (MonadIO m, RangeK o) => o -> m Double -getRangeFillLevel obj = liftIO $ getObjectPropertyDouble obj "fill-level" - -setRangeFillLevel :: (MonadIO m, RangeK o) => o -> Double -> m () -setRangeFillLevel obj val = liftIO $ setObjectPropertyDouble obj "fill-level" val - -constructRangeFillLevel :: Double -> IO ([Char], GValue) -constructRangeFillLevel val = constructObjectPropertyDouble "fill-level" val - -data RangeFillLevelPropertyInfo -instance AttrInfo RangeFillLevelPropertyInfo where - type AttrAllowedOps RangeFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double - type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = RangeK - type AttrGetType RangeFillLevelPropertyInfo = Double - type AttrLabel RangeFillLevelPropertyInfo = "fill-level" - attrGet _ = getRangeFillLevel - attrSet _ = setRangeFillLevel - attrConstruct _ = constructRangeFillLevel - attrClear _ = undefined - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeInverted :: (MonadIO m, RangeK o) => o -> m Bool -getRangeInverted obj = liftIO $ getObjectPropertyBool obj "inverted" - -setRangeInverted :: (MonadIO m, RangeK o) => o -> Bool -> m () -setRangeInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val - -constructRangeInverted :: Bool -> IO ([Char], GValue) -constructRangeInverted val = constructObjectPropertyBool "inverted" val - -data RangeInvertedPropertyInfo -instance AttrInfo RangeInvertedPropertyInfo where - type AttrAllowedOps RangeInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RangeInvertedPropertyInfo = RangeK - type AttrGetType RangeInvertedPropertyInfo = Bool - type AttrLabel RangeInvertedPropertyInfo = "inverted" - attrGet _ = getRangeInverted - attrSet _ = setRangeInverted - attrConstruct _ = constructRangeInverted - attrClear _ = undefined - --- VVV Prop "lower-stepper-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType -getRangeLowerStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "lower-stepper-sensitivity" - -setRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> SensitivityType -> m () -setRangeLowerStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "lower-stepper-sensitivity" val - -constructRangeLowerStepperSensitivity :: SensitivityType -> IO ([Char], GValue) -constructRangeLowerStepperSensitivity val = constructObjectPropertyEnum "lower-stepper-sensitivity" val - -data RangeLowerStepperSensitivityPropertyInfo -instance AttrInfo RangeLowerStepperSensitivityPropertyInfo where - type AttrAllowedOps RangeLowerStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) SensitivityType - type AttrBaseTypeConstraint RangeLowerStepperSensitivityPropertyInfo = RangeK - type AttrGetType RangeLowerStepperSensitivityPropertyInfo = SensitivityType - type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "lower-stepper-sensitivity" - attrGet _ = getRangeLowerStepperSensitivity - attrSet _ = setRangeLowerStepperSensitivity - attrConstruct _ = constructRangeLowerStepperSensitivity - attrClear _ = undefined - --- VVV Prop "restrict-to-fill-level" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> m Bool -getRangeRestrictToFillLevel obj = liftIO $ getObjectPropertyBool obj "restrict-to-fill-level" - -setRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> Bool -> m () -setRangeRestrictToFillLevel obj val = liftIO $ setObjectPropertyBool obj "restrict-to-fill-level" val - -constructRangeRestrictToFillLevel :: Bool -> IO ([Char], GValue) -constructRangeRestrictToFillLevel val = constructObjectPropertyBool "restrict-to-fill-level" val - -data RangeRestrictToFillLevelPropertyInfo -instance AttrInfo RangeRestrictToFillLevelPropertyInfo where - type AttrAllowedOps RangeRestrictToFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = RangeK - type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool - type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level" - attrGet _ = getRangeRestrictToFillLevel - attrSet _ = setRangeRestrictToFillLevel - attrConstruct _ = constructRangeRestrictToFillLevel - attrClear _ = undefined - --- VVV Prop "round-digits" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32 -getRangeRoundDigits obj = liftIO $ getObjectPropertyInt32 obj "round-digits" - -setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m () -setRangeRoundDigits obj val = liftIO $ setObjectPropertyInt32 obj "round-digits" val - -constructRangeRoundDigits :: Int32 -> IO ([Char], GValue) -constructRangeRoundDigits val = constructObjectPropertyInt32 "round-digits" val - -data RangeRoundDigitsPropertyInfo -instance AttrInfo RangeRoundDigitsPropertyInfo where - type AttrAllowedOps RangeRoundDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = RangeK - type AttrGetType RangeRoundDigitsPropertyInfo = Int32 - type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits" - attrGet _ = getRangeRoundDigits - attrSet _ = setRangeRoundDigits - attrConstruct _ = constructRangeRoundDigits - attrClear _ = undefined - --- VVV Prop "show-fill-level" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> m Bool -getRangeShowFillLevel obj = liftIO $ getObjectPropertyBool obj "show-fill-level" - -setRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> Bool -> m () -setRangeShowFillLevel obj val = liftIO $ setObjectPropertyBool obj "show-fill-level" val - -constructRangeShowFillLevel :: Bool -> IO ([Char], GValue) -constructRangeShowFillLevel val = constructObjectPropertyBool "show-fill-level" val - -data RangeShowFillLevelPropertyInfo -instance AttrInfo RangeShowFillLevelPropertyInfo where - type AttrAllowedOps RangeShowFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = RangeK - type AttrGetType RangeShowFillLevelPropertyInfo = Bool - type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level" - attrGet _ = getRangeShowFillLevel - attrSet _ = setRangeShowFillLevel - attrConstruct _ = constructRangeShowFillLevel - attrClear _ = undefined - --- VVV Prop "upper-stepper-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType -getRangeUpperStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "upper-stepper-sensitivity" - -setRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> SensitivityType -> m () -setRangeUpperStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "upper-stepper-sensitivity" val - -constructRangeUpperStepperSensitivity :: SensitivityType -> IO ([Char], GValue) -constructRangeUpperStepperSensitivity val = constructObjectPropertyEnum "upper-stepper-sensitivity" val - -data RangeUpperStepperSensitivityPropertyInfo -instance AttrInfo RangeUpperStepperSensitivityPropertyInfo where - type AttrAllowedOps RangeUpperStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) SensitivityType - type AttrBaseTypeConstraint RangeUpperStepperSensitivityPropertyInfo = RangeK - type AttrGetType RangeUpperStepperSensitivityPropertyInfo = SensitivityType - type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "upper-stepper-sensitivity" - attrGet _ = getRangeUpperStepperSensitivity - attrSet _ = setRangeUpperStepperSensitivity - attrConstruct _ = constructRangeUpperStepperSensitivity - attrClear _ = undefined - -type instance AttributeList Range = RangeAttributeList -type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -rangeAdjustment :: AttrLabelProxy "adjustment" -rangeAdjustment = AttrLabelProxy - -rangeFillLevel :: AttrLabelProxy "fillLevel" -rangeFillLevel = AttrLabelProxy - -rangeInverted :: AttrLabelProxy "inverted" -rangeInverted = AttrLabelProxy - -rangeLowerStepperSensitivity :: AttrLabelProxy "lowerStepperSensitivity" -rangeLowerStepperSensitivity = AttrLabelProxy - -rangeRestrictToFillLevel :: AttrLabelProxy "restrictToFillLevel" -rangeRestrictToFillLevel = AttrLabelProxy - -rangeRoundDigits :: AttrLabelProxy "roundDigits" -rangeRoundDigits = AttrLabelProxy - -rangeShowFillLevel :: AttrLabelProxy "showFillLevel" -rangeShowFillLevel = AttrLabelProxy - -rangeUpperStepperSensitivity :: AttrLabelProxy "upperStepperSensitivity" -rangeUpperStepperSensitivity = AttrLabelProxy - -data RangeAdjustBoundsSignalInfo -instance SignalInfo RangeAdjustBoundsSignalInfo where - type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback - connectSignal _ = connectRangeAdjustBounds - -data RangeChangeValueSignalInfo -instance SignalInfo RangeChangeValueSignalInfo where - type HaskellCallbackType RangeChangeValueSignalInfo = RangeChangeValueCallback - connectSignal _ = connectRangeChangeValue - -data RangeMoveSliderSignalInfo -instance SignalInfo RangeMoveSliderSignalInfo where - type HaskellCallbackType RangeMoveSliderSignalInfo = RangeMoveSliderCallback - connectSignal _ = connectRangeMoveSlider - -data RangeValueChangedSignalInfo -instance SignalInfo RangeValueChangedSignalInfo where - type HaskellCallbackType RangeValueChangedSignalInfo = RangeValueChangedCallback - connectSignal _ = connectRangeValueChanged - -type instance SignalList Range = RangeSignalList -type RangeSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Range::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_get_adjustment" gtk_range_get_adjustment :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO (Ptr Adjustment) - - -rangeGetAdjustment :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Adjustment -- result -rangeGetAdjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_adjustment _obj' - checkUnexpectedReturnNULL "gtk_range_get_adjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data RangeGetAdjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, RangeK a) => MethodInfo RangeGetAdjustmentMethodInfo a signature where - overloadedMethod _ = rangeGetAdjustment - --- method Range::get_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 "gtk_range_get_fill_level" gtk_range_get_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CDouble - - -rangeGetFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Double -- result -rangeGetFillLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_fill_level _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data RangeGetFillLevelMethodInfo -instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetFillLevelMethodInfo a signature where - overloadedMethod _ = rangeGetFillLevel - --- method Range::get_flippable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_flippable" gtk_range_get_flippable :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CInt - - -rangeGetFlippable :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Bool -- result -rangeGetFlippable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_flippable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RangeGetFlippableMethodInfo -instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetFlippableMethodInfo a signature where - overloadedMethod _ = rangeGetFlippable - --- method Range::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_inverted" gtk_range_get_inverted :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CInt - - -rangeGetInverted :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Bool -- result -rangeGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RangeGetInvertedMethodInfo -instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetInvertedMethodInfo a signature where - overloadedMethod _ = rangeGetInverted - --- method Range::get_lower_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SensitivityType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_get_lower_stepper_sensitivity" gtk_range_get_lower_stepper_sensitivity :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CUInt - - -rangeGetLowerStepperSensitivity :: - (MonadIO m, RangeK a) => - a -- _obj - -> m SensitivityType -- result -rangeGetLowerStepperSensitivity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_lower_stepper_sensitivity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data RangeGetLowerStepperSensitivityMethodInfo -instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetLowerStepperSensitivityMethodInfo a signature where - overloadedMethod _ = rangeGetLowerStepperSensitivity - --- method Range::get_min_slider_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_min_slider_size" gtk_range_get_min_slider_size :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO Int32 - - -rangeGetMinSliderSize :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Int32 -- result -rangeGetMinSliderSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_min_slider_size _obj' - touchManagedPtr _obj - return result - -data RangeGetMinSliderSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetMinSliderSizeMethodInfo a signature where - overloadedMethod _ = rangeGetMinSliderSize - --- method Range::get_range_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_get_range_rect" gtk_range_get_range_rect :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Ptr Gdk.Rectangle -> -- range_rect : TInterface "Gdk" "Rectangle" - IO () - - -rangeGetRangeRect :: - (MonadIO m, RangeK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -rangeGetRangeRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rangeRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_range_get_range_rect _obj' rangeRect - rangeRect' <- (wrapBoxed Gdk.Rectangle) rangeRect - touchManagedPtr _obj - return rangeRect' - -data RangeGetRangeRectMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, RangeK a) => MethodInfo RangeGetRangeRectMethodInfo a signature where - overloadedMethod _ = rangeGetRangeRect - --- method Range::get_restrict_to_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CInt - - -rangeGetRestrictToFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Bool -- result -rangeGetRestrictToFillLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_restrict_to_fill_level _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RangeGetRestrictToFillLevelMethodInfo -instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetRestrictToFillLevelMethodInfo a signature where - overloadedMethod _ = rangeGetRestrictToFillLevel - --- method Range::get_round_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_round_digits" gtk_range_get_round_digits :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO Int32 - - -rangeGetRoundDigits :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Int32 -- result -rangeGetRoundDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_round_digits _obj' - touchManagedPtr _obj - return result - -data RangeGetRoundDigitsMethodInfo -instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetRoundDigitsMethodInfo a signature where - overloadedMethod _ = rangeGetRoundDigits - --- method Range::get_show_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CInt - - -rangeGetShowFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Bool -- result -rangeGetShowFillLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_show_fill_level _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RangeGetShowFillLevelMethodInfo -instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetShowFillLevelMethodInfo a signature where - overloadedMethod _ = rangeGetShowFillLevel - --- method Range::get_slider_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt, 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 "gtk_range_get_slider_range" gtk_range_get_slider_range :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Ptr Int32 -> -- slider_start : TBasicType TInt - Ptr Int32 -> -- slider_end : TBasicType TInt - IO () - - -rangeGetSliderRange :: - (MonadIO m, RangeK a) => - a -- _obj - -> m (Int32,Int32) -- result -rangeGetSliderRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sliderStart <- allocMem :: IO (Ptr Int32) - sliderEnd <- allocMem :: IO (Ptr Int32) - gtk_range_get_slider_range _obj' sliderStart sliderEnd - sliderStart' <- peek sliderStart - sliderEnd' <- peek sliderEnd - touchManagedPtr _obj - freeMem sliderStart - freeMem sliderEnd - return (sliderStart', sliderEnd') - -data RangeGetSliderRangeMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, RangeK a) => MethodInfo RangeGetSliderRangeMethodInfo a signature where - overloadedMethod _ = rangeGetSliderRange - --- method Range::get_slider_size_fixed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CInt - - -rangeGetSliderSizeFixed :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Bool -- result -rangeGetSliderSizeFixed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_slider_size_fixed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RangeGetSliderSizeFixedMethodInfo -instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetSliderSizeFixedMethodInfo a signature where - overloadedMethod _ = rangeGetSliderSizeFixed - --- method Range::get_upper_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SensitivityType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_get_upper_stepper_sensitivity" gtk_range_get_upper_stepper_sensitivity :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CUInt - - -rangeGetUpperStepperSensitivity :: - (MonadIO m, RangeK a) => - a -- _obj - -> m SensitivityType -- result -rangeGetUpperStepperSensitivity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_upper_stepper_sensitivity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data RangeGetUpperStepperSensitivityMethodInfo -instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetUpperStepperSensitivityMethodInfo a signature where - overloadedMethod _ = rangeGetUpperStepperSensitivity - --- method Range::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 "gtk_range_get_value" gtk_range_get_value :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - IO CDouble - - -rangeGetValue :: - (MonadIO m, RangeK a) => - a -- _obj - -> m Double -- result -rangeGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data RangeGetValueMethodInfo -instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetValueMethodInfo a signature where - overloadedMethod _ = rangeGetValue - --- method Range::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_range_set_adjustment" gtk_range_set_adjustment :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -rangeSetAdjustment :: - (MonadIO m, RangeK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -rangeSetAdjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_range_set_adjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data RangeSetAdjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, RangeK a, AdjustmentK b) => MethodInfo RangeSetAdjustmentMethodInfo a signature where - overloadedMethod _ = rangeSetAdjustment - --- method Range::set_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_level", 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 "gtk_range_set_fill_level" gtk_range_set_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CDouble -> -- fill_level : TBasicType TDouble - IO () - - -rangeSetFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> Double -- fillLevel - -> m () -- result -rangeSetFillLevel _obj fillLevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fillLevel' = realToFrac fillLevel - gtk_range_set_fill_level _obj' fillLevel' - touchManagedPtr _obj - return () - -data RangeSetFillLevelMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFillLevelMethodInfo a signature where - overloadedMethod _ = rangeSetFillLevel - --- method Range::set_flippable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flippable", 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 "gtk_range_set_flippable" gtk_range_set_flippable :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CInt -> -- flippable : TBasicType TBoolean - IO () - - -rangeSetFlippable :: - (MonadIO m, RangeK a) => - a -- _obj - -> Bool -- flippable - -> m () -- result -rangeSetFlippable _obj flippable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flippable' = (fromIntegral . fromEnum) flippable - gtk_range_set_flippable _obj' flippable' - touchManagedPtr _obj - return () - -data RangeSetFlippableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFlippableMethodInfo a signature where - overloadedMethod _ = rangeSetFlippable - --- method Range::set_increments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", 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 "gtk_range_set_increments" gtk_range_set_increments :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CDouble -> -- step : TBasicType TDouble - CDouble -> -- page : TBasicType TDouble - IO () - - -rangeSetIncrements :: - (MonadIO m, RangeK a) => - a -- _obj - -> Double -- step - -> Double -- page - -> m () -- result -rangeSetIncrements _obj step page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let step' = realToFrac step - let page' = realToFrac page - gtk_range_set_increments _obj' step' page' - touchManagedPtr _obj - return () - -data RangeSetIncrementsMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetIncrementsMethodInfo a signature where - overloadedMethod _ = rangeSetIncrements - --- method Range::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_range_set_inverted" gtk_range_set_inverted :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CInt -> -- setting : TBasicType TBoolean - IO () - - -rangeSetInverted :: - (MonadIO m, RangeK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -rangeSetInverted _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_range_set_inverted _obj' setting' - touchManagedPtr _obj - return () - -data RangeSetInvertedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetInvertedMethodInfo a signature where - overloadedMethod _ = rangeSetInverted - --- method Range::set_lower_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", 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 "gtk_range_set_lower_stepper_sensitivity" gtk_range_set_lower_stepper_sensitivity :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType" - IO () - - -rangeSetLowerStepperSensitivity :: - (MonadIO m, RangeK a) => - a -- _obj - -> SensitivityType -- sensitivity - -> m () -- result -rangeSetLowerStepperSensitivity _obj sensitivity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitivity' = (fromIntegral . fromEnum) sensitivity - gtk_range_set_lower_stepper_sensitivity _obj' sensitivity' - touchManagedPtr _obj - return () - -data RangeSetLowerStepperSensitivityMethodInfo -instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetLowerStepperSensitivityMethodInfo a signature where - overloadedMethod _ = rangeSetLowerStepperSensitivity - --- method Range::set_min_slider_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", 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 "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- min_size : TBasicType TInt - IO () - - -rangeSetMinSliderSize :: - (MonadIO m, RangeK a) => - a -- _obj - -> Int32 -- minSize - -> m () -- result -rangeSetMinSliderSize _obj minSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_min_slider_size _obj' minSize - touchManagedPtr _obj - return () - -data RangeSetMinSliderSizeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetMinSliderSizeMethodInfo a signature where - overloadedMethod _ = rangeSetMinSliderSize - --- method Range::set_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", 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 "gtk_range_set_range" gtk_range_set_range :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - IO () - - -rangeSetRange :: - (MonadIO m, RangeK a) => - a -- _obj - -> Double -- min - -> Double -- max - -> m () -- result -rangeSetRange _obj min max = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let min' = realToFrac min - let max' = realToFrac max - gtk_range_set_range _obj' min' max' - touchManagedPtr _obj - return () - -data RangeSetRangeMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRangeMethodInfo a signature where - overloadedMethod _ = rangeSetRange - --- method Range::set_restrict_to_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restrict_to_fill_level", 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 "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CInt -> -- restrict_to_fill_level : TBasicType TBoolean - IO () - - -rangeSetRestrictToFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> Bool -- restrictToFillLevel - -> m () -- result -rangeSetRestrictToFillLevel _obj restrictToFillLevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let restrictToFillLevel' = (fromIntegral . fromEnum) restrictToFillLevel - gtk_range_set_restrict_to_fill_level _obj' restrictToFillLevel' - touchManagedPtr _obj - return () - -data RangeSetRestrictToFillLevelMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRestrictToFillLevelMethodInfo a signature where - overloadedMethod _ = rangeSetRestrictToFillLevel - --- method Range::set_round_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", 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 "gtk_range_set_round_digits" gtk_range_set_round_digits :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- round_digits : TBasicType TInt - IO () - - -rangeSetRoundDigits :: - (MonadIO m, RangeK a) => - a -- _obj - -> Int32 -- roundDigits - -> m () -- result -rangeSetRoundDigits _obj roundDigits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_round_digits _obj' roundDigits - touchManagedPtr _obj - return () - -data RangeSetRoundDigitsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRoundDigitsMethodInfo a signature where - overloadedMethod _ = rangeSetRoundDigits - --- method Range::set_show_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_fill_level", 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 "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CInt -> -- show_fill_level : TBasicType TBoolean - IO () - - -rangeSetShowFillLevel :: - (MonadIO m, RangeK a) => - a -- _obj - -> Bool -- showFillLevel - -> m () -- result -rangeSetShowFillLevel _obj showFillLevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showFillLevel' = (fromIntegral . fromEnum) showFillLevel - gtk_range_set_show_fill_level _obj' showFillLevel' - touchManagedPtr _obj - return () - -data RangeSetShowFillLevelMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetShowFillLevelMethodInfo a signature where - overloadedMethod _ = rangeSetShowFillLevel - --- method Range::set_slider_size_fixed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size_fixed", 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 "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CInt -> -- size_fixed : TBasicType TBoolean - IO () - - -rangeSetSliderSizeFixed :: - (MonadIO m, RangeK a) => - a -- _obj - -> Bool -- sizeFixed - -> m () -- result -rangeSetSliderSizeFixed _obj sizeFixed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sizeFixed' = (fromIntegral . fromEnum) sizeFixed - gtk_range_set_slider_size_fixed _obj' sizeFixed' - touchManagedPtr _obj - return () - -data RangeSetSliderSizeFixedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetSliderSizeFixedMethodInfo a signature where - overloadedMethod _ = rangeSetSliderSizeFixed - --- method Range::set_upper_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", 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 "gtk_range_set_upper_stepper_sensitivity" gtk_range_set_upper_stepper_sensitivity :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType" - IO () - - -rangeSetUpperStepperSensitivity :: - (MonadIO m, RangeK a) => - a -- _obj - -> SensitivityType -- sensitivity - -> m () -- result -rangeSetUpperStepperSensitivity _obj sensitivity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitivity' = (fromIntegral . fromEnum) sensitivity - gtk_range_set_upper_stepper_sensitivity _obj' sensitivity' - touchManagedPtr _obj - return () - -data RangeSetUpperStepperSensitivityMethodInfo -instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetUpperStepperSensitivityMethodInfo a signature where - overloadedMethod _ = rangeSetUpperStepperSensitivity - --- method Range::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_range_set_value" gtk_range_set_value :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - CDouble -> -- value : TBasicType TDouble - IO () - - -rangeSetValue :: - (MonadIO m, RangeK a) => - a -- _obj - -> Double -- value - -> m () -- result -rangeSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_range_set_value _obj' value' - touchManagedPtr _obj - return () - -data RangeSetValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetValueMethodInfo a signature where - overloadedMethod _ = rangeSetValue - - diff --git a/GI/Gtk/Objects/Range.hs-boot b/GI/Gtk/Objects/Range.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Range.hs-boot +++ /dev/null @@ -1,53 +0,0 @@ -module GI.Gtk.Objects.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 GObject Range where -class GObject o => RangeK o -instance (GObject o, IsDescendantOf Range o) => RangeK o -data RangeAdjustmentPropertyInfo -data RangeFillLevelPropertyInfo -data RangeInvertedPropertyInfo -data RangeLowerStepperSensitivityPropertyInfo -data RangeRestrictToFillLevelPropertyInfo -data RangeRoundDigitsPropertyInfo -data RangeShowFillLevelPropertyInfo -data RangeUpperStepperSensitivityPropertyInfo -data RangeAdjustBoundsSignalInfo -data RangeChangeValueSignalInfo -data RangeMoveSliderSignalInfo -data RangeValueChangedSignalInfo -data RangeGetAdjustmentMethodInfo -data RangeGetFillLevelMethodInfo -data RangeGetFlippableMethodInfo -data RangeGetInvertedMethodInfo -data RangeGetLowerStepperSensitivityMethodInfo -data RangeGetMinSliderSizeMethodInfo -data RangeGetRangeRectMethodInfo -data RangeGetRestrictToFillLevelMethodInfo -data RangeGetRoundDigitsMethodInfo -data RangeGetShowFillLevelMethodInfo -data RangeGetSliderRangeMethodInfo -data RangeGetSliderSizeFixedMethodInfo -data RangeGetUpperStepperSensitivityMethodInfo -data RangeGetValueMethodInfo -data RangeSetAdjustmentMethodInfo -data RangeSetFillLevelMethodInfo -data RangeSetFlippableMethodInfo -data RangeSetIncrementsMethodInfo -data RangeSetInvertedMethodInfo -data RangeSetLowerStepperSensitivityMethodInfo -data RangeSetMinSliderSizeMethodInfo -data RangeSetRangeMethodInfo -data RangeSetRestrictToFillLevelMethodInfo -data RangeSetRoundDigitsMethodInfo -data RangeSetShowFillLevelMethodInfo -data RangeSetSliderSizeFixedMethodInfo -data RangeSetUpperStepperSensitivityMethodInfo -data RangeSetValueMethodInfo diff --git a/GI/Gtk/Objects/RangeAccessible.hs b/GI/Gtk/Objects/RangeAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RangeAccessible.hs +++ /dev/null @@ -1,138 +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.Gtk.Objects.RangeAccessible - ( - --- * Exported types - RangeAccessible(..) , - RangeAccessibleK , - toRangeAccessible , - noRangeAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RangeAccessible = RangeAccessible (ForeignPtr RangeAccessible) -foreign import ccall "gtk_range_accessible_get_type" - c_gtk_range_accessible_get_type :: IO GType - -type instance ParentTypes RangeAccessible = RangeAccessibleParentTypes -type RangeAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value] - -instance GObject RangeAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_range_accessible_get_type - - -class GObject o => RangeAccessibleK o -instance (GObject o, IsDescendantOf RangeAccessible o) => RangeAccessibleK o - -toRangeAccessible :: RangeAccessibleK o => o -> IO RangeAccessible -toRangeAccessible = unsafeCastTo RangeAccessible - -noRangeAccessible :: Maybe RangeAccessible -noRangeAccessible = Nothing - -type family ResolveRangeAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveRangeAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveRangeAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRangeAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRangeAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveRangeAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveRangeAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRangeAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRangeAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveRangeAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveRangeAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRangeAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRangeAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRangeAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveRangeAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveRangeAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRangeAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveRangeAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveRangeAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveRangeAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRangeAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveRangeAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveRangeAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveRangeAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveRangeAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRangeAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRangeAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRangeAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRangeAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRangeAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRangeAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRangeAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRangeAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveRangeAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveRangeAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveRangeAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRangeAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveRangeAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveRangeAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveRangeAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveRangeAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveRangeAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveRangeAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveRangeAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveRangeAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveRangeAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveRangeAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveRangeAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveRangeAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRangeAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRangeAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveRangeAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveRangeAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveRangeAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveRangeAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveRangeAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveRangeAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveRangeAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRangeAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveRangeAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveRangeAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveRangeAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveRangeAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveRangeAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRangeAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveRangeAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveRangeAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveRangeAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveRangeAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRangeAccessibleMethod t RangeAccessible, MethodInfo info RangeAccessible p) => IsLabelProxy t (RangeAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRangeAccessibleMethod t RangeAccessible, MethodInfo info RangeAccessible p) => IsLabel t (RangeAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RangeAccessible = RangeAccessibleAttributeList -type RangeAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RangeAccessible = RangeAccessibleSignalList -type RangeAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/RangeAccessible.hs-boot b/GI/Gtk/Objects/RangeAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RangeAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.RangeAccessible 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 RangeAccessible = RangeAccessible (ForeignPtr RangeAccessible) -instance GObject RangeAccessible where -class GObject o => RangeAccessibleK o -instance (GObject o, IsDescendantOf RangeAccessible o) => RangeAccessibleK o diff --git a/GI/Gtk/Objects/RcStyle.hs b/GI/Gtk/Objects/RcStyle.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RcStyle.hs +++ /dev/null @@ -1,155 +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.Gtk.Objects.RcStyle - ( - --- * Exported types - RcStyle(..) , - RcStyleK , - toRcStyle , - noRcStyle , - - - -- * Methods --- ** rcStyleCopy - RcStyleCopyMethodInfo , - rcStyleCopy , - - --- ** rcStyleNew - rcStyleNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype RcStyle = RcStyle (ForeignPtr RcStyle) -foreign import ccall "gtk_rc_style_get_type" - c_gtk_rc_style_get_type :: IO GType - -type instance ParentTypes RcStyle = RcStyleParentTypes -type RcStyleParentTypes = '[GObject.Object] - -instance GObject RcStyle where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_rc_style_get_type - - -class GObject o => RcStyleK o -instance (GObject o, IsDescendantOf RcStyle o) => RcStyleK o - -toRcStyle :: RcStyleK o => o -> IO RcStyle -toRcStyle = unsafeCastTo RcStyle - -noRcStyle :: Maybe RcStyle -noRcStyle = Nothing - -type family ResolveRcStyleMethod (t :: Symbol) (o :: *) :: * where - ResolveRcStyleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRcStyleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRcStyleMethod "copy" o = RcStyleCopyMethodInfo - ResolveRcStyleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRcStyleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRcStyleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRcStyleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRcStyleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRcStyleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRcStyleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRcStyleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRcStyleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRcStyleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRcStyleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRcStyleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRcStyleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRcStyleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRcStyleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRcStyleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRcStyleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRcStyleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRcStyleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRcStyleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRcStyleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRcStyleMethod t RcStyle, MethodInfo info RcStyle p) => IsLabelProxy t (RcStyle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRcStyleMethod t RcStyle, MethodInfo info RcStyle p) => IsLabel t (RcStyle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RcStyle = RcStyleAttributeList -type RcStyleAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList RcStyle = RcStyleSignalList -type RcStyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RcStyle::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RcStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_style_new" gtk_rc_style_new :: - IO (Ptr RcStyle) - -{-# DEPRECATED rcStyleNew ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcStyleNew :: - (MonadIO m) => - m RcStyle -- result -rcStyleNew = liftIO $ do - result <- gtk_rc_style_new - checkUnexpectedReturnNULL "gtk_rc_style_new" result - result' <- (wrapObject RcStyle) result - return result' - --- method RcStyle::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RcStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_rc_style_copy" gtk_rc_style_copy :: - Ptr RcStyle -> -- _obj : TInterface "Gtk" "RcStyle" - IO (Ptr RcStyle) - -{-# DEPRECATED rcStyleCopy ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} -rcStyleCopy :: - (MonadIO m, RcStyleK a) => - a -- _obj - -> m RcStyle -- result -rcStyleCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_rc_style_copy _obj' - checkUnexpectedReturnNULL "gtk_rc_style_copy" result - result' <- (wrapObject RcStyle) result - touchManagedPtr _obj - return result' - -data RcStyleCopyMethodInfo -instance (signature ~ (m RcStyle), MonadIO m, RcStyleK a) => MethodInfo RcStyleCopyMethodInfo a signature where - overloadedMethod _ = rcStyleCopy - - diff --git a/GI/Gtk/Objects/RcStyle.hs-boot b/GI/Gtk/Objects/RcStyle.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RcStyle.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.RcStyle 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 RcStyle = RcStyle (ForeignPtr RcStyle) -instance GObject RcStyle where -class GObject o => RcStyleK o -instance (GObject o, IsDescendantOf RcStyle o) => RcStyleK o -data RcStyleCopyMethodInfo diff --git a/GI/Gtk/Objects/RecentAction.hs b/GI/Gtk/Objects/RecentAction.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentAction.hs +++ /dev/null @@ -1,399 +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.Gtk.Objects.RecentAction - ( - --- * Exported types - RecentAction(..) , - RecentActionK , - toRecentAction , - noRecentAction , - - - -- * Methods --- ** recentActionGetShowNumbers - RecentActionGetShowNumbersMethodInfo , - recentActionGetShowNumbers , - - --- ** recentActionNew - recentActionNew , - - --- ** recentActionNewForManager - recentActionNewForManager , - - --- ** recentActionSetShowNumbers - RecentActionSetShowNumbersMethodInfo , - recentActionSetShowNumbers , - - - - - -- * Properties --- ** ShowNumbers - RecentActionShowNumbersPropertyInfo , - constructRecentActionShowNumbers , - getRecentActionShowNumbers , - recentActionShowNumbers , - setRecentActionShowNumbers , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype RecentAction = RecentAction (ForeignPtr RecentAction) -foreign import ccall "gtk_recent_action_get_type" - c_gtk_recent_action_get_type :: IO GType - -type instance ParentTypes RecentAction = RecentActionParentTypes -type RecentActionParentTypes = '[Action, GObject.Object, Buildable, RecentChooser] - -instance GObject RecentAction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_recent_action_get_type - - -class GObject o => RecentActionK o -instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o - -toRecentAction :: RecentActionK o => o -> IO RecentAction -toRecentAction = unsafeCastTo RecentAction - -noRecentAction :: Maybe RecentAction -noRecentAction = Nothing - -type family ResolveRecentActionMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentActionMethod "activate" o = ActionActivateMethodInfo - ResolveRecentActionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRecentActionMethod "addFilter" o = RecentChooserAddFilterMethodInfo - ResolveRecentActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentActionMethod "blockActivate" o = ActionBlockActivateMethodInfo - ResolveRecentActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo - ResolveRecentActionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRecentActionMethod "createIcon" o = ActionCreateIconMethodInfo - ResolveRecentActionMethod "createMenu" o = ActionCreateMenuMethodInfo - ResolveRecentActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo - ResolveRecentActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo - ResolveRecentActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRecentActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRecentActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRecentActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo - ResolveRecentActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo - ResolveRecentActionMethod "isVisible" o = ActionIsVisibleMethodInfo - ResolveRecentActionMethod "listFilters" o = RecentChooserListFiltersMethodInfo - ResolveRecentActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRecentActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentActionMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo - ResolveRecentActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentActionMethod "selectAll" o = RecentChooserSelectAllMethodInfo - ResolveRecentActionMethod "selectUri" o = RecentChooserSelectUriMethodInfo - ResolveRecentActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo - ResolveRecentActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentActionMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo - ResolveRecentActionMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo - ResolveRecentActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo - ResolveRecentActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo - ResolveRecentActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo - ResolveRecentActionMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo - ResolveRecentActionMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo - ResolveRecentActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentActionMethod "getFilter" o = RecentChooserGetFilterMethodInfo - ResolveRecentActionMethod "getGicon" o = ActionGetGiconMethodInfo - ResolveRecentActionMethod "getIconName" o = ActionGetIconNameMethodInfo - ResolveRecentActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRecentActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo - ResolveRecentActionMethod "getItems" o = RecentChooserGetItemsMethodInfo - ResolveRecentActionMethod "getLabel" o = ActionGetLabelMethodInfo - ResolveRecentActionMethod "getLimit" o = RecentChooserGetLimitMethodInfo - ResolveRecentActionMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo - ResolveRecentActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentActionMethod "getProxies" o = ActionGetProxiesMethodInfo - ResolveRecentActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentActionMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo - ResolveRecentActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo - ResolveRecentActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo - ResolveRecentActionMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo - ResolveRecentActionMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo - ResolveRecentActionMethod "getShowNumbers" o = RecentActionGetShowNumbersMethodInfo - ResolveRecentActionMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo - ResolveRecentActionMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo - ResolveRecentActionMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo - ResolveRecentActionMethod "getStockId" o = ActionGetStockIdMethodInfo - ResolveRecentActionMethod "getTooltip" o = ActionGetTooltipMethodInfo - ResolveRecentActionMethod "getUris" o = RecentChooserGetUrisMethodInfo - ResolveRecentActionMethod "getVisible" o = ActionGetVisibleMethodInfo - ResolveRecentActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo - ResolveRecentActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo - ResolveRecentActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo - ResolveRecentActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo - ResolveRecentActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo - ResolveRecentActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRecentActionMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo - ResolveRecentActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentActionMethod "setFilter" o = RecentChooserSetFilterMethodInfo - ResolveRecentActionMethod "setGicon" o = ActionSetGiconMethodInfo - ResolveRecentActionMethod "setIconName" o = ActionSetIconNameMethodInfo - ResolveRecentActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo - ResolveRecentActionMethod "setLabel" o = ActionSetLabelMethodInfo - ResolveRecentActionMethod "setLimit" o = RecentChooserSetLimitMethodInfo - ResolveRecentActionMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo - ResolveRecentActionMethod "setName" o = BuildableSetNameMethodInfo - ResolveRecentActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentActionMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo - ResolveRecentActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo - ResolveRecentActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo - ResolveRecentActionMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo - ResolveRecentActionMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo - ResolveRecentActionMethod "setShowNumbers" o = RecentActionSetShowNumbersMethodInfo - ResolveRecentActionMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo - ResolveRecentActionMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo - ResolveRecentActionMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo - ResolveRecentActionMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo - ResolveRecentActionMethod "setStockId" o = ActionSetStockIdMethodInfo - ResolveRecentActionMethod "setTooltip" o = ActionSetTooltipMethodInfo - ResolveRecentActionMethod "setVisible" o = ActionSetVisibleMethodInfo - ResolveRecentActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo - ResolveRecentActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo - ResolveRecentActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabelProxy t (RecentAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabel t (RecentAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "show-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> m Bool -getRecentActionShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers" - -setRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> Bool -> m () -setRecentActionShowNumbers obj val = liftIO $ setObjectPropertyBool obj "show-numbers" val - -constructRecentActionShowNumbers :: Bool -> IO ([Char], GValue) -constructRecentActionShowNumbers val = constructObjectPropertyBool "show-numbers" val - -data RecentActionShowNumbersPropertyInfo -instance AttrInfo RecentActionShowNumbersPropertyInfo where - type AttrAllowedOps RecentActionShowNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentActionShowNumbersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentActionShowNumbersPropertyInfo = RecentActionK - type AttrGetType RecentActionShowNumbersPropertyInfo = Bool - type AttrLabel RecentActionShowNumbersPropertyInfo = "show-numbers" - attrGet _ = getRecentActionShowNumbers - attrSet _ = setRecentActionShowNumbers - attrConstruct _ = constructRecentActionShowNumbers - attrClear _ = undefined - -type instance AttributeList RecentAction = RecentActionAttributeList -type RecentActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentActionShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -recentActionShowNumbers :: AttrLabelProxy "showNumbers" -recentActionShowNumbers = AttrLabelProxy - -type instance SignalList RecentAction = RecentActionSignalList -type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) - --- method RecentAction::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentAction") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_action_new" gtk_recent_action_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - CString -> -- tooltip : TBasicType TUTF8 - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr RecentAction) - -{-# DEPRECATED recentActionNew ["(Since version 3.10)"]#-} -recentActionNew :: - (MonadIO m) => - T.Text -- name - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- tooltip - -> Maybe (T.Text) -- stockId - -> m RecentAction -- result -recentActionNew name label tooltip stockId = liftIO $ do - name' <- textToCString name - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - result <- gtk_recent_action_new name' maybeLabel maybeTooltip maybeStockId - checkUnexpectedReturnNULL "gtk_recent_action_new" result - result' <- (wrapObject RecentAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStockId - return result' - --- method RecentAction::new_for_manager --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentAction") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_action_new_for_manager" gtk_recent_action_new_for_manager :: - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - CString -> -- tooltip : TBasicType TUTF8 - CString -> -- stock_id : TBasicType TUTF8 - Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager" - IO (Ptr RecentAction) - -{-# DEPRECATED recentActionNewForManager ["(Since version 3.10)"]#-} -recentActionNewForManager :: - (MonadIO m, RecentManagerK a) => - T.Text -- name - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- tooltip - -> Maybe (T.Text) -- stockId - -> Maybe (a) -- manager - -> m RecentAction -- result -recentActionNewForManager name label tooltip stockId manager = liftIO $ do - name' <- textToCString name - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - maybeManager <- case manager of - Nothing -> return nullPtr - Just jManager -> do - let jManager' = unsafeManagedPtrCastPtr jManager - return jManager' - result <- gtk_recent_action_new_for_manager name' maybeLabel maybeTooltip maybeStockId maybeManager - checkUnexpectedReturnNULL "gtk_recent_action_new_for_manager" result - result' <- (wrapObject RecentAction) result - whenJust manager touchManagedPtr - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStockId - return result' - --- method RecentAction::get_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", 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 "gtk_recent_action_get_show_numbers" gtk_recent_action_get_show_numbers :: - Ptr RecentAction -> -- _obj : TInterface "Gtk" "RecentAction" - IO CInt - -{-# DEPRECATED recentActionGetShowNumbers ["(Since version 3.10)"]#-} -recentActionGetShowNumbers :: - (MonadIO m, RecentActionK a) => - a -- _obj - -> m Bool -- result -recentActionGetShowNumbers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_action_get_show_numbers _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentActionGetShowNumbersMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentActionK a) => MethodInfo RecentActionGetShowNumbersMethodInfo a signature where - overloadedMethod _ = recentActionGetShowNumbers - --- method RecentAction::set_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", 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 "gtk_recent_action_set_show_numbers" gtk_recent_action_set_show_numbers :: - Ptr RecentAction -> -- _obj : TInterface "Gtk" "RecentAction" - CInt -> -- show_numbers : TBasicType TBoolean - IO () - -{-# DEPRECATED recentActionSetShowNumbers ["(Since version 3.10)"]#-} -recentActionSetShowNumbers :: - (MonadIO m, RecentActionK a) => - a -- _obj - -> Bool -- showNumbers - -> m () -- result -recentActionSetShowNumbers _obj showNumbers = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showNumbers' = (fromIntegral . fromEnum) showNumbers - gtk_recent_action_set_show_numbers _obj' showNumbers' - touchManagedPtr _obj - return () - -data RecentActionSetShowNumbersMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentActionK a) => MethodInfo RecentActionSetShowNumbersMethodInfo a signature where - overloadedMethod _ = recentActionSetShowNumbers - - diff --git a/GI/Gtk/Objects/RecentAction.hs-boot b/GI/Gtk/Objects/RecentAction.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentAction.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.RecentAction 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 RecentAction = RecentAction (ForeignPtr RecentAction) -instance GObject RecentAction where -class GObject o => RecentActionK o -instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o -data RecentActionShowNumbersPropertyInfo -data RecentActionGetShowNumbersMethodInfo -data RecentActionSetShowNumbersMethodInfo diff --git a/GI/Gtk/Objects/RecentChooserDialog.hs b/GI/Gtk/Objects/RecentChooserDialog.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserDialog.hs +++ /dev/null @@ -1,527 +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.Gtk.Objects.RecentChooserDialog - ( - --- * Exported types - RecentChooserDialog(..) , - RecentChooserDialogK , - toRecentChooserDialog , - noRecentChooserDialog , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RecentChooserDialog = RecentChooserDialog (ForeignPtr RecentChooserDialog) -foreign import ccall "gtk_recent_chooser_dialog_get_type" - c_gtk_recent_chooser_dialog_get_type :: IO GType - -type instance ParentTypes RecentChooserDialog = RecentChooserDialogParentTypes -type RecentChooserDialogParentTypes = '[Dialog, Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, RecentChooser] - -instance GObject RecentChooserDialog where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_recent_chooser_dialog_get_type - - -class GObject o => RecentChooserDialogK o -instance (GObject o, IsDescendantOf RecentChooserDialog o) => RecentChooserDialogK o - -toRecentChooserDialog :: RecentChooserDialogK o => o -> IO RecentChooserDialog -toRecentChooserDialog = unsafeCastTo RecentChooserDialog - -noRecentChooserDialog :: Maybe RecentChooserDialog -noRecentChooserDialog = Nothing - -type family ResolveRecentChooserDialogMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentChooserDialogMethod "activate" o = WidgetActivateMethodInfo - ResolveRecentChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveRecentChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveRecentChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveRecentChooserDialogMethod "add" o = ContainerAddMethodInfo - ResolveRecentChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveRecentChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRecentChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo - ResolveRecentChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo - ResolveRecentChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRecentChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRecentChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRecentChooserDialogMethod "addFilter" o = RecentChooserAddFilterMethodInfo - ResolveRecentChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveRecentChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRecentChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRecentChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveRecentChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveRecentChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRecentChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRecentChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRecentChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRecentChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRecentChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRecentChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRecentChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRecentChooserDialogMethod "close" o = WindowCloseMethodInfo - ResolveRecentChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRecentChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRecentChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRecentChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRecentChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRecentChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRecentChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRecentChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveRecentChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRecentChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRecentChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRecentChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRecentChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRecentChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRecentChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRecentChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRecentChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRecentChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRecentChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRecentChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRecentChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRecentChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRecentChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRecentChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRecentChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRecentChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRecentChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRecentChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRecentChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRecentChooserDialogMethod "draw" o = WidgetDrawMethodInfo - ResolveRecentChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRecentChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRecentChooserDialogMethod "event" o = WidgetEventMethodInfo - ResolveRecentChooserDialogMethod "forall" o = ContainerForallMethodInfo - ResolveRecentChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentChooserDialogMethod "foreach" o = ContainerForeachMethodInfo - ResolveRecentChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRecentChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveRecentChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveRecentChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRecentChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRecentChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRecentChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRecentChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRecentChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRecentChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRecentChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveRecentChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRecentChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRecentChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveRecentChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRecentChooserDialogMethod "hide" o = WidgetHideMethodInfo - ResolveRecentChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRecentChooserDialogMethod "iconify" o = WindowIconifyMethodInfo - ResolveRecentChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRecentChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRecentChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRecentChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRecentChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRecentChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo - ResolveRecentChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRecentChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRecentChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRecentChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRecentChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveRecentChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRecentChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRecentChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRecentChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRecentChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRecentChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRecentChooserDialogMethod "listFilters" o = RecentChooserListFiltersMethodInfo - ResolveRecentChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRecentChooserDialogMethod "map" o = WidgetMapMethodInfo - ResolveRecentChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo - ResolveRecentChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRecentChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRecentChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRecentChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRecentChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRecentChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRecentChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRecentChooserDialogMethod "move" o = WindowMoveMethodInfo - ResolveRecentChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRecentChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRecentChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRecentChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRecentChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRecentChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveRecentChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRecentChooserDialogMethod "path" o = WidgetPathMethodInfo - ResolveRecentChooserDialogMethod "present" o = WindowPresentMethodInfo - ResolveRecentChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveRecentChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRecentChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveRecentChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRecentChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRecentChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRecentChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRecentChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRecentChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRecentChooserDialogMethod "realize" o = WidgetRealizeMethodInfo - ResolveRecentChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRecentChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRecentChooserDialogMethod "remove" o = ContainerRemoveMethodInfo - ResolveRecentChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveRecentChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRecentChooserDialogMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo - ResolveRecentChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveRecentChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRecentChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRecentChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRecentChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRecentChooserDialogMethod "reparent" o = WidgetReparentMethodInfo - ResolveRecentChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRecentChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRecentChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveRecentChooserDialogMethod "resize" o = WindowResizeMethodInfo - ResolveRecentChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRecentChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveRecentChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveRecentChooserDialogMethod "response" o = DialogResponseMethodInfo - ResolveRecentChooserDialogMethod "run" o = DialogRunMethodInfo - ResolveRecentChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentChooserDialogMethod "selectAll" o = RecentChooserSelectAllMethodInfo - ResolveRecentChooserDialogMethod "selectUri" o = RecentChooserSelectUriMethodInfo - ResolveRecentChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRecentChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRecentChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRecentChooserDialogMethod "show" o = WidgetShowMethodInfo - ResolveRecentChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRecentChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRecentChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRecentChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRecentChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRecentChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentChooserDialogMethod "stick" o = WindowStickMethodInfo - ResolveRecentChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRecentChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRecentChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRecentChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRecentChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRecentChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveRecentChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRecentChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveRecentChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRecentChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRecentChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRecentChooserDialogMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo - ResolveRecentChooserDialogMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo - ResolveRecentChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRecentChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRecentChooserDialogMethod "unstick" o = WindowUnstickMethodInfo - ResolveRecentChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveRecentChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRecentChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo - ResolveRecentChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRecentChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRecentChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRecentChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRecentChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRecentChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRecentChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRecentChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveRecentChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveRecentChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRecentChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRecentChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRecentChooserDialogMethod "getChild" o = BinGetChildMethodInfo - ResolveRecentChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRecentChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRecentChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRecentChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRecentChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRecentChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRecentChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo - ResolveRecentChooserDialogMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo - ResolveRecentChooserDialogMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo - ResolveRecentChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveRecentChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveRecentChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveRecentChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveRecentChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveRecentChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRecentChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRecentChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRecentChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRecentChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRecentChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRecentChooserDialogMethod "getFilter" o = RecentChooserGetFilterMethodInfo - ResolveRecentChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveRecentChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRecentChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRecentChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRecentChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveRecentChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRecentChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveRecentChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRecentChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRecentChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRecentChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveRecentChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveRecentChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRecentChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveRecentChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRecentChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRecentChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo - ResolveRecentChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRecentChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRecentChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveRecentChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo - ResolveRecentChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveRecentChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveRecentChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRecentChooserDialogMethod "getItems" o = RecentChooserGetItemsMethodInfo - ResolveRecentChooserDialogMethod "getLimit" o = RecentChooserGetLimitMethodInfo - ResolveRecentChooserDialogMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo - ResolveRecentChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRecentChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRecentChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRecentChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRecentChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRecentChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRecentChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRecentChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveRecentChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveRecentChooserDialogMethod "getModal" o = WindowGetModalMethodInfo - ResolveRecentChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRecentChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRecentChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRecentChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRecentChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRecentChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRecentChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRecentChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRecentChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRecentChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveRecentChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRecentChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRecentChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRecentChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRecentChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRecentChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRecentChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRecentChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRecentChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRecentChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRecentChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveRecentChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveRecentChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRecentChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo - ResolveRecentChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo - ResolveRecentChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRecentChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRecentChooserDialogMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo - ResolveRecentChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRecentChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRecentChooserDialogMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo - ResolveRecentChooserDialogMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo - ResolveRecentChooserDialogMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo - ResolveRecentChooserDialogMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo - ResolveRecentChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo - ResolveRecentChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRecentChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveRecentChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveRecentChooserDialogMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo - ResolveRecentChooserDialogMethod "getState" o = WidgetGetStateMethodInfo - ResolveRecentChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRecentChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRecentChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRecentChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRecentChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRecentChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveRecentChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveRecentChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRecentChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRecentChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRecentChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRecentChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveRecentChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveRecentChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveRecentChooserDialogMethod "getUris" o = RecentChooserGetUrisMethodInfo - ResolveRecentChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRecentChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRecentChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRecentChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRecentChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRecentChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRecentChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo - ResolveRecentChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRecentChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveRecentChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRecentChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveRecentChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRecentChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo - ResolveRecentChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRecentChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveRecentChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveRecentChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRecentChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRecentChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRecentChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRecentChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRecentChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRecentChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRecentChooserDialogMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo - ResolveRecentChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveRecentChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveRecentChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveRecentChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo - ResolveRecentChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveRecentChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveRecentChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveRecentChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRecentChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRecentChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRecentChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRecentChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRecentChooserDialogMethod "setFilter" o = RecentChooserSetFilterMethodInfo - ResolveRecentChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveRecentChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRecentChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRecentChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRecentChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveRecentChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRecentChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveRecentChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRecentChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRecentChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveRecentChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveRecentChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRecentChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveRecentChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRecentChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveRecentChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRecentChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRecentChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRecentChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveRecentChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo - ResolveRecentChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveRecentChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveRecentChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveRecentChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveRecentChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveRecentChooserDialogMethod "setLimit" o = RecentChooserSetLimitMethodInfo - ResolveRecentChooserDialogMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo - ResolveRecentChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRecentChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRecentChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRecentChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRecentChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRecentChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRecentChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRecentChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveRecentChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveRecentChooserDialogMethod "setModal" o = WindowSetModalMethodInfo - ResolveRecentChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRecentChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRecentChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRecentChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveRecentChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRecentChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRecentChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRecentChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRecentChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveRecentChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRecentChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo - ResolveRecentChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo - ResolveRecentChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveRecentChooserDialogMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo - ResolveRecentChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRecentChooserDialogMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo - ResolveRecentChooserDialogMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo - ResolveRecentChooserDialogMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo - ResolveRecentChooserDialogMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo - ResolveRecentChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRecentChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveRecentChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveRecentChooserDialogMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo - ResolveRecentChooserDialogMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo - ResolveRecentChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveRecentChooserDialogMethod "setState" o = WidgetSetStateMethodInfo - ResolveRecentChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRecentChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRecentChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRecentChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveRecentChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveRecentChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRecentChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRecentChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRecentChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveRecentChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveRecentChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveRecentChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRecentChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRecentChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRecentChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRecentChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRecentChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRecentChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo - ResolveRecentChooserDialogMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentChooserDialogMethod t RecentChooserDialog, MethodInfo info RecentChooserDialog p) => IsLabelProxy t (RecentChooserDialog -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentChooserDialogMethod t RecentChooserDialog, MethodInfo info RecentChooserDialog p) => IsLabel t (RecentChooserDialog -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RecentChooserDialog = RecentChooserDialogAttributeList -type RecentChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentChooserDialog = RecentChooserDialogSignalList -type RecentChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/RecentChooserDialog.hs-boot b/GI/Gtk/Objects/RecentChooserDialog.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserDialog.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.RecentChooserDialog 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 RecentChooserDialog = RecentChooserDialog (ForeignPtr RecentChooserDialog) -instance GObject RecentChooserDialog where -class GObject o => RecentChooserDialogK o -instance (GObject o, IsDescendantOf RecentChooserDialog o) => RecentChooserDialogK o diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs b/GI/Gtk/Objects/RecentChooserMenu.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserMenu.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.Gtk.Objects.RecentChooserMenu - ( - --- * Exported types - RecentChooserMenu(..) , - RecentChooserMenuK , - toRecentChooserMenu , - noRecentChooserMenu , - - - -- * Methods --- ** recentChooserMenuGetShowNumbers - RecentChooserMenuGetShowNumbersMethodInfo, - recentChooserMenuGetShowNumbers , - - --- ** recentChooserMenuNew - recentChooserMenuNew , - - --- ** recentChooserMenuNewForManager - recentChooserMenuNewForManager , - - --- ** recentChooserMenuSetShowNumbers - RecentChooserMenuSetShowNumbersMethodInfo, - recentChooserMenuSetShowNumbers , - - - - - -- * Properties --- ** ShowNumbers - RecentChooserMenuShowNumbersPropertyInfo, - constructRecentChooserMenuShowNumbers , - getRecentChooserMenuShowNumbers , - recentChooserMenuShowNumbers , - setRecentChooserMenuShowNumbers , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RecentChooserMenu = RecentChooserMenu (ForeignPtr RecentChooserMenu) -foreign import ccall "gtk_recent_chooser_menu_get_type" - c_gtk_recent_chooser_menu_get_type :: IO GType - -type instance ParentTypes RecentChooserMenu = RecentChooserMenuParentTypes -type RecentChooserMenuParentTypes = '[Menu, MenuShell, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable, RecentChooser] - -instance GObject RecentChooserMenu where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_recent_chooser_menu_get_type - - -class GObject o => RecentChooserMenuK o -instance (GObject o, IsDescendantOf RecentChooserMenu o) => RecentChooserMenuK o - -toRecentChooserMenu :: RecentChooserMenuK o => o -> IO RecentChooserMenu -toRecentChooserMenu = unsafeCastTo RecentChooserMenu - -noRecentChooserMenu :: Maybe RecentChooserMenu -noRecentChooserMenu = Nothing - -type family ResolveRecentChooserMenuMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentChooserMenuMethod "activate" o = WidgetActivateMethodInfo - ResolveRecentChooserMenuMethod "activateItem" o = MenuShellActivateItemMethodInfo - ResolveRecentChooserMenuMethod "add" o = ContainerAddMethodInfo - ResolveRecentChooserMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRecentChooserMenuMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRecentChooserMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRecentChooserMenuMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRecentChooserMenuMethod "addFilter" o = RecentChooserAddFilterMethodInfo - ResolveRecentChooserMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRecentChooserMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRecentChooserMenuMethod "append" o = MenuShellAppendMethodInfo - ResolveRecentChooserMenuMethod "attach" o = MenuAttachMethodInfo - ResolveRecentChooserMenuMethod "attachToWidget" o = MenuAttachToWidgetMethodInfo - ResolveRecentChooserMenuMethod "bindModel" o = MenuShellBindModelMethodInfo - ResolveRecentChooserMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentChooserMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentChooserMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRecentChooserMenuMethod "cancel" o = MenuShellCancelMethodInfo - ResolveRecentChooserMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRecentChooserMenuMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRecentChooserMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRecentChooserMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRecentChooserMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRecentChooserMenuMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRecentChooserMenuMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRecentChooserMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRecentChooserMenuMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRecentChooserMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRecentChooserMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRecentChooserMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRecentChooserMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRecentChooserMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRecentChooserMenuMethod "deactivate" o = MenuShellDeactivateMethodInfo - ResolveRecentChooserMenuMethod "deselect" o = MenuShellDeselectMethodInfo - ResolveRecentChooserMenuMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRecentChooserMenuMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRecentChooserMenuMethod "detach" o = MenuDetachMethodInfo - ResolveRecentChooserMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRecentChooserMenuMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveRecentChooserMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRecentChooserMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRecentChooserMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRecentChooserMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRecentChooserMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRecentChooserMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRecentChooserMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRecentChooserMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRecentChooserMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRecentChooserMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRecentChooserMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRecentChooserMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRecentChooserMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRecentChooserMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRecentChooserMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRecentChooserMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRecentChooserMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRecentChooserMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRecentChooserMenuMethod "draw" o = WidgetDrawMethodInfo - ResolveRecentChooserMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRecentChooserMenuMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRecentChooserMenuMethod "event" o = WidgetEventMethodInfo - ResolveRecentChooserMenuMethod "forall" o = ContainerForallMethodInfo - ResolveRecentChooserMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentChooserMenuMethod "foreach" o = ContainerForeachMethodInfo - ResolveRecentChooserMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRecentChooserMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentChooserMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRecentChooserMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRecentChooserMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRecentChooserMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRecentChooserMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRecentChooserMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRecentChooserMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRecentChooserMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRecentChooserMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRecentChooserMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRecentChooserMenuMethod "hide" o = WidgetHideMethodInfo - ResolveRecentChooserMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRecentChooserMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRecentChooserMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRecentChooserMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRecentChooserMenuMethod "insert" o = MenuShellInsertMethodInfo - ResolveRecentChooserMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRecentChooserMenuMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRecentChooserMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRecentChooserMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRecentChooserMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRecentChooserMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentChooserMenuMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRecentChooserMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRecentChooserMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRecentChooserMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRecentChooserMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRecentChooserMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRecentChooserMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRecentChooserMenuMethod "listFilters" o = RecentChooserListFiltersMethodInfo - ResolveRecentChooserMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRecentChooserMenuMethod "map" o = WidgetMapMethodInfo - ResolveRecentChooserMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRecentChooserMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRecentChooserMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRecentChooserMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRecentChooserMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRecentChooserMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRecentChooserMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRecentChooserMenuMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRecentChooserMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentChooserMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentChooserMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRecentChooserMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRecentChooserMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRecentChooserMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRecentChooserMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRecentChooserMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRecentChooserMenuMethod "path" o = WidgetPathMethodInfo - ResolveRecentChooserMenuMethod "popdown" o = MenuPopdownMethodInfo - ResolveRecentChooserMenuMethod "popup" o = MenuPopupMethodInfo - ResolveRecentChooserMenuMethod "popupForDevice" o = MenuPopupForDeviceMethodInfo - ResolveRecentChooserMenuMethod "prepend" o = MenuShellPrependMethodInfo - ResolveRecentChooserMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRecentChooserMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRecentChooserMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRecentChooserMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRecentChooserMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRecentChooserMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRecentChooserMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRecentChooserMenuMethod "realize" o = WidgetRealizeMethodInfo - ResolveRecentChooserMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentChooserMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentChooserMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRecentChooserMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRecentChooserMenuMethod "remove" o = ContainerRemoveMethodInfo - ResolveRecentChooserMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRecentChooserMenuMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo - ResolveRecentChooserMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRecentChooserMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRecentChooserMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRecentChooserMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRecentChooserMenuMethod "reorderChild" o = MenuReorderChildMethodInfo - ResolveRecentChooserMenuMethod "reparent" o = WidgetReparentMethodInfo - ResolveRecentChooserMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentChooserMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentChooserMenuMethod "reposition" o = MenuRepositionMethodInfo - ResolveRecentChooserMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRecentChooserMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRecentChooserMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRecentChooserMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentChooserMenuMethod "selectAll" o = RecentChooserSelectAllMethodInfo - ResolveRecentChooserMenuMethod "selectFirst" o = MenuShellSelectFirstMethodInfo - ResolveRecentChooserMenuMethod "selectItem" o = MenuShellSelectItemMethodInfo - ResolveRecentChooserMenuMethod "selectUri" o = RecentChooserSelectUriMethodInfo - ResolveRecentChooserMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRecentChooserMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRecentChooserMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRecentChooserMenuMethod "show" o = WidgetShowMethodInfo - ResolveRecentChooserMenuMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRecentChooserMenuMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRecentChooserMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRecentChooserMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRecentChooserMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRecentChooserMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentChooserMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentChooserMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRecentChooserMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRecentChooserMenuMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveRecentChooserMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRecentChooserMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentChooserMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRecentChooserMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRecentChooserMenuMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRecentChooserMenuMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRecentChooserMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRecentChooserMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentChooserMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRecentChooserMenuMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo - ResolveRecentChooserMenuMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo - ResolveRecentChooserMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRecentChooserMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRecentChooserMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentChooserMenuMethod "getAccelGroup" o = MenuGetAccelGroupMethodInfo - ResolveRecentChooserMenuMethod "getAccelPath" o = MenuGetAccelPathMethodInfo - ResolveRecentChooserMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRecentChooserMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRecentChooserMenuMethod "getActive" o = MenuGetActiveMethodInfo - ResolveRecentChooserMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRecentChooserMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRecentChooserMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRecentChooserMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRecentChooserMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRecentChooserMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRecentChooserMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo - ResolveRecentChooserMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRecentChooserMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRecentChooserMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRecentChooserMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRecentChooserMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRecentChooserMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRecentChooserMenuMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRecentChooserMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRecentChooserMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRecentChooserMenuMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo - ResolveRecentChooserMenuMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo - ResolveRecentChooserMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentChooserMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRecentChooserMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRecentChooserMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRecentChooserMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRecentChooserMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRecentChooserMenuMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRecentChooserMenuMethod "getFilter" o = RecentChooserGetFilterMethodInfo - ResolveRecentChooserMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRecentChooserMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRecentChooserMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRecentChooserMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRecentChooserMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRecentChooserMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRecentChooserMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRecentChooserMenuMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRecentChooserMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRecentChooserMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRecentChooserMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRecentChooserMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRecentChooserMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRecentChooserMenuMethod "getItems" o = RecentChooserGetItemsMethodInfo - ResolveRecentChooserMenuMethod "getLimit" o = RecentChooserGetLimitMethodInfo - ResolveRecentChooserMenuMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo - ResolveRecentChooserMenuMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRecentChooserMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRecentChooserMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRecentChooserMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRecentChooserMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRecentChooserMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRecentChooserMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRecentChooserMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRecentChooserMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRecentChooserMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo - ResolveRecentChooserMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRecentChooserMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRecentChooserMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRecentChooserMenuMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRecentChooserMenuMethod "getParentShell" o = MenuShellGetParentShellMethodInfo - ResolveRecentChooserMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRecentChooserMenuMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRecentChooserMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRecentChooserMenuMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRecentChooserMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRecentChooserMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRecentChooserMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRecentChooserMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRecentChooserMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRecentChooserMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRecentChooserMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentChooserMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentChooserMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRecentChooserMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRecentChooserMenuMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveRecentChooserMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRecentChooserMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRecentChooserMenuMethod "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo - ResolveRecentChooserMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRecentChooserMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRecentChooserMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRecentChooserMenuMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRecentChooserMenuMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo - ResolveRecentChooserMenuMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo - ResolveRecentChooserMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRecentChooserMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRecentChooserMenuMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo - ResolveRecentChooserMenuMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo - ResolveRecentChooserMenuMethod "getShowNumbers" o = RecentChooserMenuGetShowNumbersMethodInfo - ResolveRecentChooserMenuMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo - ResolveRecentChooserMenuMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo - ResolveRecentChooserMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRecentChooserMenuMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo - ResolveRecentChooserMenuMethod "getState" o = WidgetGetStateMethodInfo - ResolveRecentChooserMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRecentChooserMenuMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRecentChooserMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRecentChooserMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRecentChooserMenuMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo - ResolveRecentChooserMenuMethod "getTearoffState" o = MenuGetTearoffStateMethodInfo - ResolveRecentChooserMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRecentChooserMenuMethod "getTitle" o = MenuGetTitleMethodInfo - ResolveRecentChooserMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRecentChooserMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRecentChooserMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRecentChooserMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRecentChooserMenuMethod "getUris" o = RecentChooserGetUrisMethodInfo - ResolveRecentChooserMenuMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveRecentChooserMenuMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRecentChooserMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRecentChooserMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRecentChooserMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRecentChooserMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRecentChooserMenuMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRecentChooserMenuMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRecentChooserMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo - ResolveRecentChooserMenuMethod "setActive" o = MenuSetActiveMethodInfo - ResolveRecentChooserMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRecentChooserMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRecentChooserMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRecentChooserMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRecentChooserMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRecentChooserMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRecentChooserMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRecentChooserMenuMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRecentChooserMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRecentChooserMenuMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo - ResolveRecentChooserMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentChooserMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRecentChooserMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRecentChooserMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRecentChooserMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRecentChooserMenuMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRecentChooserMenuMethod "setFilter" o = RecentChooserSetFilterMethodInfo - ResolveRecentChooserMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRecentChooserMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRecentChooserMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRecentChooserMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRecentChooserMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRecentChooserMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRecentChooserMenuMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRecentChooserMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRecentChooserMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRecentChooserMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRecentChooserMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRecentChooserMenuMethod "setLimit" o = RecentChooserSetLimitMethodInfo - ResolveRecentChooserMenuMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo - ResolveRecentChooserMenuMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRecentChooserMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRecentChooserMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRecentChooserMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRecentChooserMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRecentChooserMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRecentChooserMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRecentChooserMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo - ResolveRecentChooserMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRecentChooserMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRecentChooserMenuMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRecentChooserMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRecentChooserMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentChooserMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRecentChooserMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRecentChooserMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRecentChooserMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRecentChooserMenuMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveRecentChooserMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo - ResolveRecentChooserMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRecentChooserMenuMethod "setScreen" o = MenuSetScreenMethodInfo - ResolveRecentChooserMenuMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo - ResolveRecentChooserMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRecentChooserMenuMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo - ResolveRecentChooserMenuMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo - ResolveRecentChooserMenuMethod "setShowNumbers" o = RecentChooserMenuSetShowNumbersMethodInfo - ResolveRecentChooserMenuMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo - ResolveRecentChooserMenuMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo - ResolveRecentChooserMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRecentChooserMenuMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo - ResolveRecentChooserMenuMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo - ResolveRecentChooserMenuMethod "setState" o = WidgetSetStateMethodInfo - ResolveRecentChooserMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRecentChooserMenuMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRecentChooserMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRecentChooserMenuMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo - ResolveRecentChooserMenuMethod "setTearoffState" o = MenuSetTearoffStateMethodInfo - ResolveRecentChooserMenuMethod "setTitle" o = MenuSetTitleMethodInfo - ResolveRecentChooserMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRecentChooserMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRecentChooserMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRecentChooserMenuMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveRecentChooserMenuMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRecentChooserMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRecentChooserMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRecentChooserMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRecentChooserMenuMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRecentChooserMenuMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRecentChooserMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentChooserMenuMethod t RecentChooserMenu, MethodInfo info RecentChooserMenu p) => IsLabelProxy t (RecentChooserMenu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentChooserMenuMethod t RecentChooserMenu, MethodInfo info RecentChooserMenu p) => IsLabel t (RecentChooserMenu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "show-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getRecentChooserMenuShowNumbers :: (MonadIO m, RecentChooserMenuK o) => o -> m Bool -getRecentChooserMenuShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers" - -setRecentChooserMenuShowNumbers :: (MonadIO m, RecentChooserMenuK o) => o -> Bool -> m () -setRecentChooserMenuShowNumbers obj val = liftIO $ setObjectPropertyBool obj "show-numbers" val - -constructRecentChooserMenuShowNumbers :: Bool -> IO ([Char], GValue) -constructRecentChooserMenuShowNumbers val = constructObjectPropertyBool "show-numbers" val - -data RecentChooserMenuShowNumbersPropertyInfo -instance AttrInfo RecentChooserMenuShowNumbersPropertyInfo where - type AttrAllowedOps RecentChooserMenuShowNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserMenuShowNumbersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RecentChooserMenuShowNumbersPropertyInfo = RecentChooserMenuK - type AttrGetType RecentChooserMenuShowNumbersPropertyInfo = Bool - type AttrLabel RecentChooserMenuShowNumbersPropertyInfo = "show-numbers" - attrGet _ = getRecentChooserMenuShowNumbers - attrSet _ = setRecentChooserMenuShowNumbers - attrConstruct _ = constructRecentChooserMenuShowNumbers - attrClear _ = undefined - -type instance AttributeList RecentChooserMenu = RecentChooserMenuAttributeList -type RecentChooserMenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentChooserMenuShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -recentChooserMenuShowNumbers :: AttrLabelProxy "showNumbers" -recentChooserMenuShowNumbers = AttrLabelProxy - -type instance SignalList RecentChooserMenu = RecentChooserMenuSignalList -type RecentChooserMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method RecentChooserMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentChooserMenu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_menu_new" gtk_recent_chooser_menu_new :: - IO (Ptr RecentChooserMenu) - - -recentChooserMenuNew :: - (MonadIO m) => - m RecentChooserMenu -- result -recentChooserMenuNew = liftIO $ do - result <- gtk_recent_chooser_menu_new - checkUnexpectedReturnNULL "gtk_recent_chooser_menu_new" result - result' <- (newObject RecentChooserMenu) result - return result' - --- method RecentChooserMenu::new_for_manager --- method type : Constructor --- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentChooserMenu") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_menu_new_for_manager" gtk_recent_chooser_menu_new_for_manager :: - Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager" - IO (Ptr RecentChooserMenu) - - -recentChooserMenuNewForManager :: - (MonadIO m, RecentManagerK a) => - a -- manager - -> m RecentChooserMenu -- result -recentChooserMenuNewForManager manager = liftIO $ do - let manager' = unsafeManagedPtrCastPtr manager - result <- gtk_recent_chooser_menu_new_for_manager manager' - checkUnexpectedReturnNULL "gtk_recent_chooser_menu_new_for_manager" result - result' <- (newObject RecentChooserMenu) result - touchManagedPtr manager - return result' - --- method RecentChooserMenu::get_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", 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 "gtk_recent_chooser_menu_get_show_numbers" gtk_recent_chooser_menu_get_show_numbers :: - Ptr RecentChooserMenu -> -- _obj : TInterface "Gtk" "RecentChooserMenu" - IO CInt - - -recentChooserMenuGetShowNumbers :: - (MonadIO m, RecentChooserMenuK a) => - a -- _obj - -> m Bool -- result -recentChooserMenuGetShowNumbers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_menu_get_show_numbers _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentChooserMenuGetShowNumbersMethodInfo -instance (signature ~ (m Bool), MonadIO m, RecentChooserMenuK a) => MethodInfo RecentChooserMenuGetShowNumbersMethodInfo a signature where - overloadedMethod _ = recentChooserMenuGetShowNumbers - --- method RecentChooserMenu::set_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", 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 "gtk_recent_chooser_menu_set_show_numbers" gtk_recent_chooser_menu_set_show_numbers :: - Ptr RecentChooserMenu -> -- _obj : TInterface "Gtk" "RecentChooserMenu" - CInt -> -- show_numbers : TBasicType TBoolean - IO () - - -recentChooserMenuSetShowNumbers :: - (MonadIO m, RecentChooserMenuK a) => - a -- _obj - -> Bool -- showNumbers - -> m () -- result -recentChooserMenuSetShowNumbers _obj showNumbers = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showNumbers' = (fromIntegral . fromEnum) showNumbers - gtk_recent_chooser_menu_set_show_numbers _obj' showNumbers' - touchManagedPtr _obj - return () - -data RecentChooserMenuSetShowNumbersMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserMenuK a) => MethodInfo RecentChooserMenuSetShowNumbersMethodInfo a signature where - overloadedMethod _ = recentChooserMenuSetShowNumbers - - diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs-boot b/GI/Gtk/Objects/RecentChooserMenu.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserMenu.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.RecentChooserMenu 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 RecentChooserMenu = RecentChooserMenu (ForeignPtr RecentChooserMenu) -instance GObject RecentChooserMenu where -class GObject o => RecentChooserMenuK o -instance (GObject o, IsDescendantOf RecentChooserMenu o) => RecentChooserMenuK o -data RecentChooserMenuShowNumbersPropertyInfo -data RecentChooserMenuGetShowNumbersMethodInfo -data RecentChooserMenuSetShowNumbersMethodInfo diff --git a/GI/Gtk/Objects/RecentChooserWidget.hs b/GI/Gtk/Objects/RecentChooserWidget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserWidget.hs +++ /dev/null @@ -1,485 +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.Gtk.Objects.RecentChooserWidget - ( - --- * Exported types - RecentChooserWidget(..) , - RecentChooserWidgetK , - toRecentChooserWidget , - noRecentChooserWidget , - - - -- * Methods --- ** recentChooserWidgetNew - recentChooserWidgetNew , - - --- ** recentChooserWidgetNewForManager - recentChooserWidgetNewForManager , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RecentChooserWidget = RecentChooserWidget (ForeignPtr RecentChooserWidget) -foreign import ccall "gtk_recent_chooser_widget_get_type" - c_gtk_recent_chooser_widget_get_type :: IO GType - -type instance ParentTypes RecentChooserWidget = RecentChooserWidgetParentTypes -type RecentChooserWidgetParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, RecentChooser] - -instance GObject RecentChooserWidget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_recent_chooser_widget_get_type - - -class GObject o => RecentChooserWidgetK o -instance (GObject o, IsDescendantOf RecentChooserWidget o) => RecentChooserWidgetK o - -toRecentChooserWidget :: RecentChooserWidgetK o => o -> IO RecentChooserWidget -toRecentChooserWidget = unsafeCastTo RecentChooserWidget - -noRecentChooserWidget :: Maybe RecentChooserWidget -noRecentChooserWidget = Nothing - -type family ResolveRecentChooserWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentChooserWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveRecentChooserWidgetMethod "add" o = ContainerAddMethodInfo - ResolveRecentChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRecentChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRecentChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRecentChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRecentChooserWidgetMethod "addFilter" o = RecentChooserAddFilterMethodInfo - ResolveRecentChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRecentChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRecentChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRecentChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRecentChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRecentChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRecentChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRecentChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRecentChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRecentChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRecentChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRecentChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRecentChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRecentChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRecentChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRecentChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRecentChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRecentChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRecentChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRecentChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRecentChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRecentChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRecentChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRecentChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRecentChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRecentChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRecentChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRecentChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRecentChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRecentChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRecentChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRecentChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRecentChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRecentChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRecentChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRecentChooserWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveRecentChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRecentChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRecentChooserWidgetMethod "event" o = WidgetEventMethodInfo - ResolveRecentChooserWidgetMethod "forall" o = ContainerForallMethodInfo - ResolveRecentChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo - ResolveRecentChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRecentChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRecentChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRecentChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRecentChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRecentChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRecentChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRecentChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRecentChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRecentChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRecentChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRecentChooserWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveRecentChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRecentChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRecentChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRecentChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRecentChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRecentChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRecentChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRecentChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRecentChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRecentChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRecentChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRecentChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRecentChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRecentChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRecentChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRecentChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRecentChooserWidgetMethod "listFilters" o = RecentChooserListFiltersMethodInfo - ResolveRecentChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRecentChooserWidgetMethod "map" o = WidgetMapMethodInfo - ResolveRecentChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRecentChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRecentChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRecentChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRecentChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRecentChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRecentChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRecentChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRecentChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRecentChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRecentChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRecentChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRecentChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRecentChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo - ResolveRecentChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo - ResolveRecentChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRecentChooserWidgetMethod "path" o = WidgetPathMethodInfo - ResolveRecentChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRecentChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveRecentChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRecentChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRecentChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRecentChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRecentChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRecentChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRecentChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveRecentChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRecentChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRecentChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo - ResolveRecentChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRecentChooserWidgetMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo - ResolveRecentChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRecentChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRecentChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRecentChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRecentChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveRecentChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveRecentChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRecentChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRecentChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRecentChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentChooserWidgetMethod "selectAll" o = RecentChooserSelectAllMethodInfo - ResolveRecentChooserWidgetMethod "selectUri" o = RecentChooserSelectUriMethodInfo - ResolveRecentChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRecentChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRecentChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRecentChooserWidgetMethod "show" o = WidgetShowMethodInfo - ResolveRecentChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRecentChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRecentChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRecentChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRecentChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRecentChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRecentChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRecentChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRecentChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRecentChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRecentChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRecentChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRecentChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRecentChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRecentChooserWidgetMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo - ResolveRecentChooserWidgetMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo - ResolveRecentChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRecentChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRecentChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRecentChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRecentChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRecentChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRecentChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRecentChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRecentChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRecentChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRecentChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveRecentChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRecentChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRecentChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRecentChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveRecentChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRecentChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRecentChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRecentChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRecentChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRecentChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRecentChooserWidgetMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo - ResolveRecentChooserWidgetMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo - ResolveRecentChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRecentChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRecentChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRecentChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRecentChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRecentChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRecentChooserWidgetMethod "getFilter" o = RecentChooserGetFilterMethodInfo - ResolveRecentChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRecentChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRecentChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRecentChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRecentChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRecentChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRecentChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRecentChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRecentChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRecentChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRecentChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRecentChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRecentChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveRecentChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRecentChooserWidgetMethod "getItems" o = RecentChooserGetItemsMethodInfo - ResolveRecentChooserWidgetMethod "getLimit" o = RecentChooserGetLimitMethodInfo - ResolveRecentChooserWidgetMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo - ResolveRecentChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRecentChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRecentChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRecentChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRecentChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRecentChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRecentChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRecentChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRecentChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRecentChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRecentChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRecentChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveRecentChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRecentChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRecentChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRecentChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRecentChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRecentChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRecentChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRecentChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRecentChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRecentChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRecentChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRecentChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRecentChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRecentChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRecentChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRecentChooserWidgetMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo - ResolveRecentChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRecentChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRecentChooserWidgetMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo - ResolveRecentChooserWidgetMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo - ResolveRecentChooserWidgetMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo - ResolveRecentChooserWidgetMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo - ResolveRecentChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRecentChooserWidgetMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo - ResolveRecentChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveRecentChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveRecentChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRecentChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRecentChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRecentChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRecentChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRecentChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRecentChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRecentChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRecentChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRecentChooserWidgetMethod "getUris" o = RecentChooserGetUrisMethodInfo - ResolveRecentChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRecentChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRecentChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRecentChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRecentChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRecentChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRecentChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRecentChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRecentChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRecentChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRecentChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveRecentChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRecentChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRecentChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRecentChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRecentChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveRecentChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveRecentChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRecentChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRecentChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRecentChooserWidgetMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo - ResolveRecentChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRecentChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRecentChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRecentChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRecentChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRecentChooserWidgetMethod "setFilter" o = RecentChooserSetFilterMethodInfo - ResolveRecentChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRecentChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRecentChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRecentChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRecentChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRecentChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRecentChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRecentChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRecentChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRecentChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRecentChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRecentChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveRecentChooserWidgetMethod "setLimit" o = RecentChooserSetLimitMethodInfo - ResolveRecentChooserWidgetMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo - ResolveRecentChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRecentChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRecentChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRecentChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRecentChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRecentChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRecentChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRecentChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRecentChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRecentChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveRecentChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRecentChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRecentChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRecentChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRecentChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRecentChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRecentChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRecentChooserWidgetMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo - ResolveRecentChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRecentChooserWidgetMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo - ResolveRecentChooserWidgetMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo - ResolveRecentChooserWidgetMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo - ResolveRecentChooserWidgetMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo - ResolveRecentChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRecentChooserWidgetMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo - ResolveRecentChooserWidgetMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo - ResolveRecentChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveRecentChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveRecentChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRecentChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRecentChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRecentChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRecentChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRecentChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRecentChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRecentChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRecentChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRecentChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRecentChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRecentChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRecentChooserWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentChooserWidgetMethod t RecentChooserWidget, MethodInfo info RecentChooserWidget p) => IsLabelProxy t (RecentChooserWidget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentChooserWidgetMethod t RecentChooserWidget, MethodInfo info RecentChooserWidget p) => IsLabel t (RecentChooserWidget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RecentChooserWidget = RecentChooserWidgetAttributeList -type RecentChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentChooserWidget = RecentChooserWidgetSignalList -type RecentChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method RecentChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_widget_new" gtk_recent_chooser_widget_new :: - IO (Ptr RecentChooserWidget) - - -recentChooserWidgetNew :: - (MonadIO m) => - m RecentChooserWidget -- result -recentChooserWidgetNew = liftIO $ do - result <- gtk_recent_chooser_widget_new - checkUnexpectedReturnNULL "gtk_recent_chooser_widget_new" result - result' <- (newObject RecentChooserWidget) result - return result' - --- method RecentChooserWidget::new_for_manager --- method type : Constructor --- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentChooserWidget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_widget_new_for_manager" gtk_recent_chooser_widget_new_for_manager :: - Ptr RecentManager -> -- manager : TInterface "Gtk" "RecentManager" - IO (Ptr RecentChooserWidget) - - -recentChooserWidgetNewForManager :: - (MonadIO m, RecentManagerK a) => - a -- manager - -> m RecentChooserWidget -- result -recentChooserWidgetNewForManager manager = liftIO $ do - let manager' = unsafeManagedPtrCastPtr manager - result <- gtk_recent_chooser_widget_new_for_manager manager' - checkUnexpectedReturnNULL "gtk_recent_chooser_widget_new_for_manager" result - result' <- (newObject RecentChooserWidget) result - touchManagedPtr manager - return result' - - diff --git a/GI/Gtk/Objects/RecentChooserWidget.hs-boot b/GI/Gtk/Objects/RecentChooserWidget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentChooserWidget.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.RecentChooserWidget 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 RecentChooserWidget = RecentChooserWidget (ForeignPtr RecentChooserWidget) -instance GObject RecentChooserWidget where -class GObject o => RecentChooserWidgetK o -instance (GObject o, IsDescendantOf RecentChooserWidget o) => RecentChooserWidgetK o diff --git a/GI/Gtk/Objects/RecentFilter.hs b/GI/Gtk/Objects/RecentFilter.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentFilter.hs +++ /dev/null @@ -1,530 +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.Gtk.Objects.RecentFilter - ( - --- * Exported types - RecentFilter(..) , - RecentFilterK , - toRecentFilter , - noRecentFilter , - - - -- * Methods --- ** recentFilterAddAge - RecentFilterAddAgeMethodInfo , - recentFilterAddAge , - - --- ** recentFilterAddApplication - RecentFilterAddApplicationMethodInfo , - recentFilterAddApplication , - - --- ** recentFilterAddCustom - RecentFilterAddCustomMethodInfo , - recentFilterAddCustom , - - --- ** recentFilterAddGroup - RecentFilterAddGroupMethodInfo , - recentFilterAddGroup , - - --- ** recentFilterAddMimeType - RecentFilterAddMimeTypeMethodInfo , - recentFilterAddMimeType , - - --- ** recentFilterAddPattern - RecentFilterAddPatternMethodInfo , - recentFilterAddPattern , - - --- ** recentFilterAddPixbufFormats - RecentFilterAddPixbufFormatsMethodInfo , - recentFilterAddPixbufFormats , - - --- ** recentFilterFilter - RecentFilterFilterMethodInfo , - recentFilterFilter , - - --- ** recentFilterGetName - RecentFilterGetNameMethodInfo , - recentFilterGetName , - - --- ** recentFilterGetNeeded - RecentFilterGetNeededMethodInfo , - recentFilterGetNeeded , - - --- ** recentFilterNew - recentFilterNew , - - --- ** recentFilterSetName - RecentFilterSetNameMethodInfo , - recentFilterSetName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype RecentFilter = RecentFilter (ForeignPtr RecentFilter) -foreign import ccall "gtk_recent_filter_get_type" - c_gtk_recent_filter_get_type :: IO GType - -type instance ParentTypes RecentFilter = RecentFilterParentTypes -type RecentFilterParentTypes = '[GObject.Object, Buildable] - -instance GObject RecentFilter where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_recent_filter_get_type - - -class GObject o => RecentFilterK o -instance (GObject o, IsDescendantOf RecentFilter o) => RecentFilterK o - -toRecentFilter :: RecentFilterK o => o -> IO RecentFilter -toRecentFilter = unsafeCastTo RecentFilter - -noRecentFilter :: Maybe RecentFilter -noRecentFilter = Nothing - -type family ResolveRecentFilterMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentFilterMethod "addAge" o = RecentFilterAddAgeMethodInfo - ResolveRecentFilterMethod "addApplication" o = RecentFilterAddApplicationMethodInfo - ResolveRecentFilterMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRecentFilterMethod "addCustom" o = RecentFilterAddCustomMethodInfo - ResolveRecentFilterMethod "addGroup" o = RecentFilterAddGroupMethodInfo - ResolveRecentFilterMethod "addMimeType" o = RecentFilterAddMimeTypeMethodInfo - ResolveRecentFilterMethod "addPattern" o = RecentFilterAddPatternMethodInfo - ResolveRecentFilterMethod "addPixbufFormats" o = RecentFilterAddPixbufFormatsMethodInfo - ResolveRecentFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentFilterMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRecentFilterMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRecentFilterMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRecentFilterMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRecentFilterMethod "filter" o = RecentFilterFilterMethodInfo - ResolveRecentFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentFilterMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRecentFilterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentFilterMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRecentFilterMethod "getNeeded" o = RecentFilterGetNeededMethodInfo - ResolveRecentFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentFilterMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRecentFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentFilterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentFilterMethod t RecentFilter, MethodInfo info RecentFilter p) => IsLabelProxy t (RecentFilter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentFilterMethod t RecentFilter, MethodInfo info RecentFilter p) => IsLabel t (RecentFilter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RecentFilter = RecentFilterAttributeList -type RecentFilterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList RecentFilter = RecentFilterSignalList -type RecentFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentFilter::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentFilter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_filter_new" gtk_recent_filter_new :: - IO (Ptr RecentFilter) - - -recentFilterNew :: - (MonadIO m) => - m RecentFilter -- result -recentFilterNew = liftIO $ do - result <- gtk_recent_filter_new - checkUnexpectedReturnNULL "gtk_recent_filter_new" result - result' <- (newObject RecentFilter) result - return result' - --- method RecentFilter::add_age --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", 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 "gtk_recent_filter_add_age" gtk_recent_filter_add_age :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - Int32 -> -- days : TBasicType TInt - IO () - - -recentFilterAddAge :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> Int32 -- days - -> m () -- result -recentFilterAddAge _obj days = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_filter_add_age _obj' days - touchManagedPtr _obj - return () - -data RecentFilterAddAgeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddAgeMethodInfo a signature where - overloadedMethod _ = recentFilterAddAge - --- method RecentFilter::add_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", 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 "gtk_recent_filter_add_application" gtk_recent_filter_add_application :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CString -> -- application : TBasicType TUTF8 - IO () - - -recentFilterAddApplication :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> T.Text -- application - -> m () -- result -recentFilterAddApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - application' <- textToCString application - gtk_recent_filter_add_application _obj' application' - touchManagedPtr _obj - freeMem application' - return () - -data RecentFilterAddApplicationMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddApplicationMethodInfo a signature where - overloadedMethod _ = recentFilterAddApplication - --- method RecentFilter::add_custom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_filter_add_custom" gtk_recent_filter_add_custom :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CUInt -> -- needed : TInterface "Gtk" "RecentFilterFlags" - FunPtr RecentFilterFuncC -> -- func : TInterface "Gtk" "RecentFilterFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -recentFilterAddCustom :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> [RecentFilterFlags] -- needed - -> RecentFilterFunc -- func - -> m () -- result -recentFilterAddCustom _obj needed func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let needed' = gflagsToWord needed - func' <- mkRecentFilterFunc (recentFilterFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let dataDestroy = safeFreeFunPtrPtr - gtk_recent_filter_add_custom _obj' needed' func' data_ dataDestroy - touchManagedPtr _obj - return () - -data RecentFilterAddCustomMethodInfo -instance (signature ~ ([RecentFilterFlags] -> RecentFilterFunc -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddCustomMethodInfo a signature where - overloadedMethod _ = recentFilterAddCustom - --- method RecentFilter::add_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", 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 "gtk_recent_filter_add_group" gtk_recent_filter_add_group :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CString -> -- group : TBasicType TUTF8 - IO () - - -recentFilterAddGroup :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> T.Text -- group - -> m () -- result -recentFilterAddGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - group' <- textToCString group - gtk_recent_filter_add_group _obj' group' - touchManagedPtr _obj - freeMem group' - return () - -data RecentFilterAddGroupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddGroupMethodInfo a signature where - overloadedMethod _ = recentFilterAddGroup - --- method RecentFilter::add_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_filter_add_mime_type" gtk_recent_filter_add_mime_type :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CString -> -- mime_type : TBasicType TUTF8 - IO () - - -recentFilterAddMimeType :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> T.Text -- mimeType - -> m () -- result -recentFilterAddMimeType _obj mimeType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mimeType' <- textToCString mimeType - gtk_recent_filter_add_mime_type _obj' mimeType' - touchManagedPtr _obj - freeMem mimeType' - return () - -data RecentFilterAddMimeTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddMimeTypeMethodInfo a signature where - overloadedMethod _ = recentFilterAddMimeType - --- method RecentFilter::add_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", 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 "gtk_recent_filter_add_pattern" gtk_recent_filter_add_pattern :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CString -> -- pattern : TBasicType TUTF8 - IO () - - -recentFilterAddPattern :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> T.Text -- pattern - -> m () -- result -recentFilterAddPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_recent_filter_add_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - -data RecentFilterAddPatternMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddPatternMethodInfo a signature where - overloadedMethod _ = recentFilterAddPattern - --- method RecentFilter::add_pixbuf_formats --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", 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 "gtk_recent_filter_add_pixbuf_formats" gtk_recent_filter_add_pixbuf_formats :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - IO () - - -recentFilterAddPixbufFormats :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> m () -- result -recentFilterAddPixbufFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_filter_add_pixbuf_formats _obj' - touchManagedPtr _obj - return () - -data RecentFilterAddPixbufFormatsMethodInfo -instance (signature ~ (m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddPixbufFormatsMethodInfo a signature where - overloadedMethod _ = recentFilterAddPixbufFormats - --- method RecentFilter::filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", 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 "gtk_recent_filter_filter" gtk_recent_filter_filter :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - Ptr RecentFilterInfo -> -- filter_info : TInterface "Gtk" "RecentFilterInfo" - IO CInt - - -recentFilterFilter :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> RecentFilterInfo -- filterInfo - -> m Bool -- result -recentFilterFilter _obj filterInfo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filterInfo' = unsafeManagedPtrGetPtr filterInfo - result <- gtk_recent_filter_filter _obj' filterInfo' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr filterInfo - return result' - -data RecentFilterFilterMethodInfo -instance (signature ~ (RecentFilterInfo -> m Bool), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterFilterMethodInfo a signature where - overloadedMethod _ = recentFilterFilter - --- method RecentFilter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", 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 "gtk_recent_filter_get_name" gtk_recent_filter_get_name :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - IO CString - - -recentFilterGetName :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> m T.Text -- result -recentFilterGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_filter_get_name _obj' - checkUnexpectedReturnNULL "gtk_recent_filter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data RecentFilterGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterGetNameMethodInfo a signature where - overloadedMethod _ = recentFilterGetName - --- method RecentFilter::get_needed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentFilterFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_filter_get_needed" gtk_recent_filter_get_needed :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - IO CUInt - - -recentFilterGetNeeded :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> m [RecentFilterFlags] -- result -recentFilterGetNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_filter_get_needed _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data RecentFilterGetNeededMethodInfo -instance (signature ~ (m [RecentFilterFlags]), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterGetNeededMethodInfo a signature where - overloadedMethod _ = recentFilterGetNeeded - --- method RecentFilter::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", 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 "gtk_recent_filter_set_name" gtk_recent_filter_set_name :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - CString -> -- name : TBasicType TUTF8 - IO () - - -recentFilterSetName :: - (MonadIO m, RecentFilterK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -recentFilterSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_recent_filter_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data RecentFilterSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterSetNameMethodInfo a signature where - overloadedMethod _ = recentFilterSetName - - diff --git a/GI/Gtk/Objects/RecentFilter.hs-boot b/GI/Gtk/Objects/RecentFilter.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentFilter.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.RecentFilter 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 RecentFilter = RecentFilter (ForeignPtr RecentFilter) -instance GObject RecentFilter where -class GObject o => RecentFilterK o -instance (GObject o, IsDescendantOf RecentFilter o) => RecentFilterK o -data RecentFilterAddAgeMethodInfo -data RecentFilterAddApplicationMethodInfo -data RecentFilterAddCustomMethodInfo -data RecentFilterAddGroupMethodInfo -data RecentFilterAddMimeTypeMethodInfo -data RecentFilterAddPatternMethodInfo -data RecentFilterAddPixbufFormatsMethodInfo -data RecentFilterFilterMethodInfo -data RecentFilterGetNameMethodInfo -data RecentFilterGetNeededMethodInfo -data RecentFilterSetNameMethodInfo diff --git a/GI/Gtk/Objects/RecentManager.hs b/GI/Gtk/Objects/RecentManager.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RecentManager.hs +++ /dev/null @@ -1,597 +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.Gtk.Objects.RecentManager - ( - --- * Exported types - RecentManager(..) , - RecentManagerK , - toRecentManager , - noRecentManager , - - - -- * Methods --- ** recentManagerAddFull - RecentManagerAddFullMethodInfo , - recentManagerAddFull , - - --- ** recentManagerAddItem - RecentManagerAddItemMethodInfo , - recentManagerAddItem , - - --- ** recentManagerGetDefault - recentManagerGetDefault , - - --- ** recentManagerGetItems - RecentManagerGetItemsMethodInfo , - recentManagerGetItems , - - --- ** recentManagerHasItem - RecentManagerHasItemMethodInfo , - recentManagerHasItem , - - --- ** recentManagerLookupItem - RecentManagerLookupItemMethodInfo , - recentManagerLookupItem , - - --- ** recentManagerMoveItem - RecentManagerMoveItemMethodInfo , - recentManagerMoveItem , - - --- ** recentManagerNew - recentManagerNew , - - --- ** recentManagerPurgeItems - RecentManagerPurgeItemsMethodInfo , - recentManagerPurgeItems , - - --- ** recentManagerRemoveItem - RecentManagerRemoveItemMethodInfo , - recentManagerRemoveItem , - - - - - -- * Properties --- ** Filename - RecentManagerFilenamePropertyInfo , - constructRecentManagerFilename , - getRecentManagerFilename , - recentManagerFilename , - - --- ** Size - RecentManagerSizePropertyInfo , - getRecentManagerSize , - recentManagerSize , - - - - - -- * Signals --- ** Changed - RecentManagerChangedCallback , - RecentManagerChangedCallbackC , - RecentManagerChangedSignalInfo , - afterRecentManagerChanged , - mkRecentManagerChangedCallback , - noRecentManagerChangedCallback , - onRecentManagerChanged , - recentManagerChangedCallbackWrapper , - recentManagerChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype RecentManager = RecentManager (ForeignPtr RecentManager) -foreign import ccall "gtk_recent_manager_get_type" - c_gtk_recent_manager_get_type :: IO GType - -type instance ParentTypes RecentManager = RecentManagerParentTypes -type RecentManagerParentTypes = '[GObject.Object] - -instance GObject RecentManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_recent_manager_get_type - - -class GObject o => RecentManagerK o -instance (GObject o, IsDescendantOf RecentManager o) => RecentManagerK o - -toRecentManager :: RecentManagerK o => o -> IO RecentManager -toRecentManager = unsafeCastTo RecentManager - -noRecentManager :: Maybe RecentManager -noRecentManager = Nothing - -type family ResolveRecentManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentManagerMethod "addFull" o = RecentManagerAddFullMethodInfo - ResolveRecentManagerMethod "addItem" o = RecentManagerAddItemMethodInfo - ResolveRecentManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRecentManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRecentManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRecentManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRecentManagerMethod "hasItem" o = RecentManagerHasItemMethodInfo - ResolveRecentManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRecentManagerMethod "lookupItem" o = RecentManagerLookupItemMethodInfo - ResolveRecentManagerMethod "moveItem" o = RecentManagerMoveItemMethodInfo - ResolveRecentManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRecentManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRecentManagerMethod "purgeItems" o = RecentManagerPurgeItemsMethodInfo - ResolveRecentManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRecentManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRecentManagerMethod "removeItem" o = RecentManagerRemoveItemMethodInfo - ResolveRecentManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRecentManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRecentManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRecentManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRecentManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRecentManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRecentManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRecentManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRecentManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRecentManagerMethod "getItems" o = RecentManagerGetItemsMethodInfo - ResolveRecentManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRecentManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRecentManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRecentManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRecentManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentManagerMethod t RecentManager, MethodInfo info RecentManager p) => IsLabelProxy t (RecentManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentManagerMethod t RecentManager, MethodInfo info RecentManager p) => IsLabel t (RecentManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal RecentManager::changed -type RecentManagerChangedCallback = - IO () - -noRecentManagerChangedCallback :: Maybe RecentManagerChangedCallback -noRecentManagerChangedCallback = Nothing - -type RecentManagerChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkRecentManagerChangedCallback :: RecentManagerChangedCallbackC -> IO (FunPtr RecentManagerChangedCallbackC) - -recentManagerChangedClosure :: RecentManagerChangedCallback -> IO Closure -recentManagerChangedClosure cb = newCClosure =<< mkRecentManagerChangedCallback wrapped - where wrapped = recentManagerChangedCallbackWrapper cb - -recentManagerChangedCallbackWrapper :: - RecentManagerChangedCallback -> - Ptr () -> - Ptr () -> - IO () -recentManagerChangedCallbackWrapper _cb _ _ = do - _cb - -onRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId -onRecentManagerChanged obj cb = liftIO $ connectRecentManagerChanged obj cb SignalConnectBefore -afterRecentManagerChanged :: (GObject a, MonadIO m) => a -> RecentManagerChangedCallback -> m SignalHandlerId -afterRecentManagerChanged obj cb = connectRecentManagerChanged obj cb SignalConnectAfter - -connectRecentManagerChanged :: (GObject a, MonadIO m) => - a -> RecentManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectRecentManagerChanged obj cb after = liftIO $ do - cb' <- mkRecentManagerChangedCallback (recentManagerChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m (Maybe T.Text) -getRecentManagerFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructRecentManagerFilename :: T.Text -> IO ([Char], GValue) -constructRecentManagerFilename val = constructObjectPropertyString "filename" (Just val) - -data RecentManagerFilenamePropertyInfo -instance AttrInfo RecentManagerFilenamePropertyInfo where - type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK - type AttrGetType RecentManagerFilenamePropertyInfo = (Maybe T.Text) - type AttrLabel RecentManagerFilenamePropertyInfo = "filename" - attrGet _ = getRecentManagerFilename - attrSet _ = undefined - attrConstruct _ = constructRecentManagerFilename - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getRecentManagerSize :: (MonadIO m, RecentManagerK o) => o -> m Int32 -getRecentManagerSize obj = liftIO $ getObjectPropertyInt32 obj "size" - -data RecentManagerSizePropertyInfo -instance AttrInfo RecentManagerSizePropertyInfo where - type AttrAllowedOps RecentManagerSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint RecentManagerSizePropertyInfo = (~) () - type AttrBaseTypeConstraint RecentManagerSizePropertyInfo = RecentManagerK - type AttrGetType RecentManagerSizePropertyInfo = Int32 - type AttrLabel RecentManagerSizePropertyInfo = "size" - attrGet _ = getRecentManagerSize - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList RecentManager = RecentManagerAttributeList -type RecentManagerAttributeList = ('[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] :: [(Symbol, *)]) - -recentManagerFilename :: AttrLabelProxy "filename" -recentManagerFilename = AttrLabelProxy - -recentManagerSize :: AttrLabelProxy "size" -recentManagerSize = AttrLabelProxy - -data RecentManagerChangedSignalInfo -instance SignalInfo RecentManagerChangedSignalInfo where - type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback - connectSignal _ = connectRecentManagerChanged - -type instance SignalList RecentManager = RecentManagerSignalList -type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentManager::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentManager") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_manager_new" gtk_recent_manager_new :: - IO (Ptr RecentManager) - - -recentManagerNew :: - (MonadIO m) => - m RecentManager -- result -recentManagerNew = liftIO $ do - result <- gtk_recent_manager_new - checkUnexpectedReturnNULL "gtk_recent_manager_new" result - result' <- (wrapObject RecentManager) result - return result' - --- method RecentManager::add_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recent_data", argType = TInterface "Gtk" "RecentData", 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 "gtk_recent_manager_add_full" gtk_recent_manager_add_full :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - Ptr RecentData -> -- recent_data : TInterface "Gtk" "RecentData" - IO CInt - - -recentManagerAddFull :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> RecentData -- recentData - -> m Bool -- result -recentManagerAddFull _obj uri recentData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - let recentData' = unsafeManagedPtrGetPtr recentData - result <- gtk_recent_manager_add_full _obj' uri' recentData' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr recentData - freeMem uri' - return result' - -data RecentManagerAddFullMethodInfo -instance (signature ~ (T.Text -> RecentData -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerAddFullMethodInfo a signature where - overloadedMethod _ = recentManagerAddFull - --- method RecentManager::add_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_recent_manager_add_item" gtk_recent_manager_add_item :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -recentManagerAddItem :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> m Bool -- result -recentManagerAddItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_recent_manager_add_item _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - -data RecentManagerAddItemMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerAddItemMethodInfo a signature where - overloadedMethod _ = recentManagerAddItem - --- method RecentManager::get_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "RecentInfo")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_manager_get_items" gtk_recent_manager_get_items :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - IO (Ptr (GList (Ptr RecentInfo))) - - -recentManagerGetItems :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> m [RecentInfo] -- result -recentManagerGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_manager_get_items _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed RecentInfo) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data RecentManagerGetItemsMethodInfo -instance (signature ~ (m [RecentInfo]), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerGetItemsMethodInfo a signature where - overloadedMethod _ = recentManagerGetItems - --- method RecentManager::has_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 "gtk_recent_manager_has_item" gtk_recent_manager_has_item :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -recentManagerHasItem :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> m Bool -- result -recentManagerHasItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_recent_manager_has_item _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - -data RecentManagerHasItemMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerHasItemMethodInfo a signature where - overloadedMethod _ = recentManagerHasItem - --- method RecentManager::lookup_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentInfo") --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_manager_lookup_item" gtk_recent_manager_lookup_item :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr RecentInfo) - - -recentManagerLookupItem :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> m RecentInfo -- result -recentManagerLookupItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ gtk_recent_manager_lookup_item _obj' uri' - checkUnexpectedReturnNULL "gtk_recent_manager_lookup_item" result - result' <- (wrapBoxed RecentInfo) result - touchManagedPtr _obj - freeMem uri' - return result' - ) (do - freeMem uri' - ) - -data RecentManagerLookupItemMethodInfo -instance (signature ~ (T.Text -> m RecentInfo), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerLookupItemMethodInfo a signature where - overloadedMethod _ = recentManagerLookupItem - --- method RecentManager::move_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_manager_move_item" gtk_recent_manager_move_item :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - CString -> -- new_uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -recentManagerMoveItem :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> Maybe (T.Text) -- newUri - -> m () -- result -recentManagerMoveItem _obj uri newUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - maybeNewUri <- case newUri of - Nothing -> return nullPtr - Just jNewUri -> do - jNewUri' <- textToCString jNewUri - return jNewUri' - onException (do - _ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNewUri - touchManagedPtr _obj - freeMem uri' - freeMem maybeNewUri - return () - ) (do - freeMem uri' - freeMem maybeNewUri - ) - -data RecentManagerMoveItemMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerMoveItemMethodInfo a signature where - overloadedMethod _ = recentManagerMoveItem - --- method RecentManager::purge_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_manager_purge_items" gtk_recent_manager_purge_items :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - Ptr (Ptr GError) -> -- error - IO Int32 - - -recentManagerPurgeItems :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> m Int32 -- result -recentManagerPurgeItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ gtk_recent_manager_purge_items _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - -data RecentManagerPurgeItemsMethodInfo -instance (signature ~ (m Int32), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerPurgeItemsMethodInfo a signature where - overloadedMethod _ = recentManagerPurgeItems - --- method RecentManager::remove_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_manager_remove_item" gtk_recent_manager_remove_item :: - Ptr RecentManager -> -- _obj : TInterface "Gtk" "RecentManager" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -recentManagerRemoveItem :: - (MonadIO m, RecentManagerK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -recentManagerRemoveItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_recent_manager_remove_item _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data RecentManagerRemoveItemMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerRemoveItemMethodInfo a signature where - overloadedMethod _ = recentManagerRemoveItem - --- method RecentManager::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentManager") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_manager_get_default" gtk_recent_manager_get_default :: - IO (Ptr RecentManager) - - -recentManagerGetDefault :: - (MonadIO m) => - m RecentManager -- result -recentManagerGetDefault = liftIO $ do - result <- gtk_recent_manager_get_default - checkUnexpectedReturnNULL "gtk_recent_manager_get_default" result - result' <- (newObject RecentManager) result - return result' - - diff --git a/GI/Gtk/Objects/RecentManager.hs-boot b/GI/Gtk/Objects/RecentManager.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RecentManager.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.RecentManager 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 RecentManager = RecentManager (ForeignPtr RecentManager) -instance GObject RecentManager where -class GObject o => RecentManagerK o -instance (GObject o, IsDescendantOf RecentManager o) => RecentManagerK o -data RecentManagerFilenamePropertyInfo -data RecentManagerSizePropertyInfo -data RecentManagerChangedSignalInfo -data RecentManagerAddFullMethodInfo -data RecentManagerAddItemMethodInfo -data RecentManagerGetItemsMethodInfo -data RecentManagerHasItemMethodInfo -data RecentManagerLookupItemMethodInfo -data RecentManagerMoveItemMethodInfo -data RecentManagerPurgeItemsMethodInfo -data RecentManagerRemoveItemMethodInfo diff --git a/GI/Gtk/Objects/RendererCellAccessible.hs b/GI/Gtk/Objects/RendererCellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/RendererCellAccessible.hs +++ /dev/null @@ -1,197 +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.Gtk.Objects.RendererCellAccessible - ( - --- * Exported types - RendererCellAccessible(..) , - RendererCellAccessibleK , - toRendererCellAccessible , - noRendererCellAccessible , - - - -- * Methods --- ** rendererCellAccessibleNew - rendererCellAccessibleNew , - - - - - -- * Properties --- ** Renderer - RendererCellAccessibleRendererPropertyInfo, - constructRendererCellAccessibleRenderer , - getRendererCellAccessibleRenderer , - rendererCellAccessibleRenderer , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype RendererCellAccessible = RendererCellAccessible (ForeignPtr RendererCellAccessible) -foreign import ccall "gtk_renderer_cell_accessible_get_type" - c_gtk_renderer_cell_accessible_get_type :: IO GType - -type instance ParentTypes RendererCellAccessible = RendererCellAccessibleParentTypes -type RendererCellAccessibleParentTypes = '[CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject RendererCellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_renderer_cell_accessible_get_type - - -class GObject o => RendererCellAccessibleK o -instance (GObject o, IsDescendantOf RendererCellAccessible o) => RendererCellAccessibleK o - -toRendererCellAccessible :: RendererCellAccessibleK o => o -> IO RendererCellAccessible -toRendererCellAccessible = unsafeCastTo RendererCellAccessible - -noRendererCellAccessible :: Maybe RendererCellAccessible -noRendererCellAccessible = Nothing - -type family ResolveRendererCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveRendererCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveRendererCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRendererCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRendererCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveRendererCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveRendererCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveRendererCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRendererCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRendererCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveRendererCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveRendererCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRendererCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRendererCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRendererCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveRendererCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveRendererCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRendererCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveRendererCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveRendererCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveRendererCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRendererCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveRendererCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveRendererCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveRendererCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveRendererCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRendererCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRendererCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRendererCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRendererCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRendererCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRendererCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRendererCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRendererCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveRendererCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveRendererCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRendererCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveRendererCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveRendererCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveRendererCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveRendererCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveRendererCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveRendererCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveRendererCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveRendererCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveRendererCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRendererCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRendererCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveRendererCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveRendererCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveRendererCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRendererCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveRendererCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveRendererCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveRendererCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveRendererCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRendererCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveRendererCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveRendererCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveRendererCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRendererCellAccessibleMethod t RendererCellAccessible, MethodInfo info RendererCellAccessible p) => IsLabelProxy t (RendererCellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRendererCellAccessibleMethod t RendererCellAccessible, MethodInfo info RendererCellAccessible p) => IsLabel t (RendererCellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "renderer" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getRendererCellAccessibleRenderer :: (MonadIO m, RendererCellAccessibleK o) => o -> m (Maybe CellRenderer) -getRendererCellAccessibleRenderer obj = liftIO $ getObjectPropertyObject obj "renderer" CellRenderer - -constructRendererCellAccessibleRenderer :: (CellRendererK a) => a -> IO ([Char], GValue) -constructRendererCellAccessibleRenderer val = constructObjectPropertyObject "renderer" (Just val) - -data RendererCellAccessibleRendererPropertyInfo -instance AttrInfo RendererCellAccessibleRendererPropertyInfo where - type AttrAllowedOps RendererCellAccessibleRendererPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RendererCellAccessibleRendererPropertyInfo = CellRendererK - type AttrBaseTypeConstraint RendererCellAccessibleRendererPropertyInfo = RendererCellAccessibleK - type AttrGetType RendererCellAccessibleRendererPropertyInfo = (Maybe CellRenderer) - type AttrLabel RendererCellAccessibleRendererPropertyInfo = "renderer" - attrGet _ = getRendererCellAccessibleRenderer - attrSet _ = undefined - attrConstruct _ = constructRendererCellAccessibleRenderer - attrClear _ = undefined - -type instance AttributeList RendererCellAccessible = RendererCellAccessibleAttributeList -type RendererCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -rendererCellAccessibleRenderer :: AttrLabelProxy "renderer" -rendererCellAccessibleRenderer = AttrLabelProxy - -type instance SignalList RendererCellAccessible = RendererCellAccessibleSignalList -type RendererCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - --- method RendererCellAccessible::new --- method type : Constructor --- Args : [Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RendererCellAccessible") --- throws : False --- Skip return : False - -foreign import ccall "gtk_renderer_cell_accessible_new" gtk_renderer_cell_accessible_new :: - Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" - IO (Ptr RendererCellAccessible) - - -rendererCellAccessibleNew :: - (MonadIO m, CellRendererK a) => - a -- renderer - -> m RendererCellAccessible -- result -rendererCellAccessibleNew renderer = liftIO $ do - let renderer' = unsafeManagedPtrCastPtr renderer - result <- gtk_renderer_cell_accessible_new renderer' - checkUnexpectedReturnNULL "gtk_renderer_cell_accessible_new" result - result' <- (wrapObject RendererCellAccessible) result - touchManagedPtr renderer - return result' - - diff --git a/GI/Gtk/Objects/RendererCellAccessible.hs-boot b/GI/Gtk/Objects/RendererCellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/RendererCellAccessible.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.RendererCellAccessible 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 RendererCellAccessible = RendererCellAccessible (ForeignPtr RendererCellAccessible) -instance GObject RendererCellAccessible where -class GObject o => RendererCellAccessibleK o -instance (GObject o, IsDescendantOf RendererCellAccessible o) => RendererCellAccessibleK o -data RendererCellAccessibleRendererPropertyInfo diff --git a/GI/Gtk/Objects/Revealer.hs b/GI/Gtk/Objects/Revealer.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Revealer.hs +++ /dev/null @@ -1,796 +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.Gtk.Objects.Revealer - ( - --- * Exported types - Revealer(..) , - RevealerK , - toRevealer , - noRevealer , - - - -- * Methods --- ** revealerGetChildRevealed - RevealerGetChildRevealedMethodInfo , - revealerGetChildRevealed , - - --- ** revealerGetRevealChild - RevealerGetRevealChildMethodInfo , - revealerGetRevealChild , - - --- ** revealerGetTransitionDuration - RevealerGetTransitionDurationMethodInfo , - revealerGetTransitionDuration , - - --- ** revealerGetTransitionType - RevealerGetTransitionTypeMethodInfo , - revealerGetTransitionType , - - --- ** revealerNew - revealerNew , - - --- ** revealerSetRevealChild - RevealerSetRevealChildMethodInfo , - revealerSetRevealChild , - - --- ** revealerSetTransitionDuration - RevealerSetTransitionDurationMethodInfo , - revealerSetTransitionDuration , - - --- ** revealerSetTransitionType - RevealerSetTransitionTypeMethodInfo , - revealerSetTransitionType , - - - - - -- * Properties --- ** ChildRevealed - RevealerChildRevealedPropertyInfo , - getRevealerChildRevealed , - revealerChildRevealed , - - --- ** RevealChild - RevealerRevealChildPropertyInfo , - constructRevealerRevealChild , - getRevealerRevealChild , - revealerRevealChild , - setRevealerRevealChild , - - --- ** TransitionDuration - RevealerTransitionDurationPropertyInfo , - constructRevealerTransitionDuration , - getRevealerTransitionDuration , - revealerTransitionDuration , - setRevealerTransitionDuration , - - --- ** TransitionType - RevealerTransitionTypePropertyInfo , - constructRevealerTransitionType , - getRevealerTransitionType , - revealerTransitionType , - setRevealerTransitionType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Revealer = Revealer (ForeignPtr Revealer) -foreign import ccall "gtk_revealer_get_type" - c_gtk_revealer_get_type :: IO GType - -type instance ParentTypes Revealer = RevealerParentTypes -type RevealerParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Revealer where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_revealer_get_type - - -class GObject o => RevealerK o -instance (GObject o, IsDescendantOf Revealer o) => RevealerK o - -toRevealer :: RevealerK o => o -> IO Revealer -toRevealer = unsafeCastTo Revealer - -noRevealer :: Maybe Revealer -noRevealer = Nothing - -type family ResolveRevealerMethod (t :: Symbol) (o :: *) :: * where - ResolveRevealerMethod "activate" o = WidgetActivateMethodInfo - ResolveRevealerMethod "add" o = ContainerAddMethodInfo - ResolveRevealerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveRevealerMethod "addChild" o = BuildableAddChildMethodInfo - ResolveRevealerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveRevealerMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveRevealerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveRevealerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveRevealerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRevealerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRevealerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveRevealerMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveRevealerMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveRevealerMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveRevealerMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveRevealerMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveRevealerMethod "childType" o = ContainerChildTypeMethodInfo - ResolveRevealerMethod "classPath" o = WidgetClassPathMethodInfo - ResolveRevealerMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveRevealerMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveRevealerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveRevealerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveRevealerMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveRevealerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveRevealerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveRevealerMethod "destroy" o = WidgetDestroyMethodInfo - ResolveRevealerMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveRevealerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveRevealerMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveRevealerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveRevealerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveRevealerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveRevealerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveRevealerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveRevealerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveRevealerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveRevealerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveRevealerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveRevealerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveRevealerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveRevealerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveRevealerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveRevealerMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveRevealerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveRevealerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveRevealerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveRevealerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveRevealerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveRevealerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveRevealerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveRevealerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveRevealerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveRevealerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveRevealerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveRevealerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveRevealerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveRevealerMethod "draw" o = WidgetDrawMethodInfo - ResolveRevealerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveRevealerMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveRevealerMethod "event" o = WidgetEventMethodInfo - ResolveRevealerMethod "forall" o = ContainerForallMethodInfo - ResolveRevealerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRevealerMethod "foreach" o = ContainerForeachMethodInfo - ResolveRevealerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveRevealerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRevealerMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveRevealerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveRevealerMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveRevealerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveRevealerMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveRevealerMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveRevealerMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveRevealerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveRevealerMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveRevealerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveRevealerMethod "hide" o = WidgetHideMethodInfo - ResolveRevealerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveRevealerMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveRevealerMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveRevealerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveRevealerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveRevealerMethod "intersect" o = WidgetIntersectMethodInfo - ResolveRevealerMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveRevealerMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveRevealerMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveRevealerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRevealerMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveRevealerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveRevealerMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveRevealerMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveRevealerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveRevealerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveRevealerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveRevealerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveRevealerMethod "map" o = WidgetMapMethodInfo - ResolveRevealerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveRevealerMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveRevealerMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveRevealerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveRevealerMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveRevealerMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveRevealerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveRevealerMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveRevealerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRevealerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRevealerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveRevealerMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveRevealerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveRevealerMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveRevealerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveRevealerMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveRevealerMethod "path" o = WidgetPathMethodInfo - ResolveRevealerMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveRevealerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveRevealerMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveRevealerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveRevealerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveRevealerMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveRevealerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveRevealerMethod "realize" o = WidgetRealizeMethodInfo - ResolveRevealerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRevealerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRevealerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveRevealerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveRevealerMethod "remove" o = ContainerRemoveMethodInfo - ResolveRevealerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveRevealerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveRevealerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveRevealerMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveRevealerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveRevealerMethod "reparent" o = WidgetReparentMethodInfo - ResolveRevealerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRevealerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRevealerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveRevealerMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveRevealerMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveRevealerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRevealerMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveRevealerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveRevealerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveRevealerMethod "show" o = WidgetShowMethodInfo - ResolveRevealerMethod "showAll" o = WidgetShowAllMethodInfo - ResolveRevealerMethod "showNow" o = WidgetShowNowMethodInfo - ResolveRevealerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveRevealerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveRevealerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveRevealerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRevealerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRevealerMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveRevealerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveRevealerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveRevealerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRevealerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveRevealerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveRevealerMethod "unmap" o = WidgetUnmapMethodInfo - ResolveRevealerMethod "unparent" o = WidgetUnparentMethodInfo - ResolveRevealerMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveRevealerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRevealerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveRevealerMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveRevealerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveRevealerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRevealerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveRevealerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveRevealerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveRevealerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveRevealerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveRevealerMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveRevealerMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveRevealerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveRevealerMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveRevealerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveRevealerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveRevealerMethod "getChild" o = BinGetChildMethodInfo - ResolveRevealerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveRevealerMethod "getChildRevealed" o = RevealerGetChildRevealedMethodInfo - ResolveRevealerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveRevealerMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveRevealerMethod "getClip" o = WidgetGetClipMethodInfo - ResolveRevealerMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveRevealerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveRevealerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRevealerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveRevealerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveRevealerMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveRevealerMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveRevealerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveRevealerMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveRevealerMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveRevealerMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveRevealerMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveRevealerMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveRevealerMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveRevealerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveRevealerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveRevealerMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveRevealerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveRevealerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveRevealerMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveRevealerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveRevealerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveRevealerMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveRevealerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveRevealerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveRevealerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveRevealerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveRevealerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveRevealerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveRevealerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveRevealerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveRevealerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveRevealerMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveRevealerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveRevealerMethod "getParent" o = WidgetGetParentMethodInfo - ResolveRevealerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveRevealerMethod "getPath" o = WidgetGetPathMethodInfo - ResolveRevealerMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveRevealerMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveRevealerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveRevealerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveRevealerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveRevealerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveRevealerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveRevealerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveRevealerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRevealerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRevealerMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveRevealerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveRevealerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveRevealerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveRevealerMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveRevealerMethod "getRevealChild" o = RevealerGetRevealChildMethodInfo - ResolveRevealerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveRevealerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveRevealerMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveRevealerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveRevealerMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveRevealerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveRevealerMethod "getState" o = WidgetGetStateMethodInfo - ResolveRevealerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveRevealerMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveRevealerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveRevealerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveRevealerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveRevealerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveRevealerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveRevealerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveRevealerMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveRevealerMethod "getTransitionDuration" o = RevealerGetTransitionDurationMethodInfo - ResolveRevealerMethod "getTransitionType" o = RevealerGetTransitionTypeMethodInfo - ResolveRevealerMethod "getValign" o = WidgetGetValignMethodInfo - ResolveRevealerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveRevealerMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveRevealerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveRevealerMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveRevealerMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveRevealerMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveRevealerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveRevealerMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveRevealerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveRevealerMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveRevealerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveRevealerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveRevealerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveRevealerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveRevealerMethod "setClip" o = WidgetSetClipMethodInfo - ResolveRevealerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveRevealerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRevealerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveRevealerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveRevealerMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveRevealerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveRevealerMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveRevealerMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveRevealerMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveRevealerMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveRevealerMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveRevealerMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveRevealerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveRevealerMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveRevealerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveRevealerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveRevealerMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveRevealerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveRevealerMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveRevealerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveRevealerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveRevealerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveRevealerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveRevealerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveRevealerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveRevealerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveRevealerMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveRevealerMethod "setParent" o = WidgetSetParentMethodInfo - ResolveRevealerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveRevealerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRevealerMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveRevealerMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveRevealerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveRevealerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveRevealerMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveRevealerMethod "setRevealChild" o = RevealerSetRevealChildMethodInfo - ResolveRevealerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveRevealerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveRevealerMethod "setState" o = WidgetSetStateMethodInfo - ResolveRevealerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveRevealerMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveRevealerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveRevealerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveRevealerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveRevealerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveRevealerMethod "setTransitionDuration" o = RevealerSetTransitionDurationMethodInfo - ResolveRevealerMethod "setTransitionType" o = RevealerSetTransitionTypeMethodInfo - ResolveRevealerMethod "setValign" o = WidgetSetValignMethodInfo - ResolveRevealerMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveRevealerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveRevealerMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveRevealerMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveRevealerMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveRevealerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRevealerMethod t Revealer, MethodInfo info Revealer p) => IsLabelProxy t (Revealer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRevealerMethod t Revealer, MethodInfo info Revealer p) => IsLabel t (Revealer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "child-revealed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getRevealerChildRevealed :: (MonadIO m, RevealerK o) => o -> m Bool -getRevealerChildRevealed obj = liftIO $ getObjectPropertyBool obj "child-revealed" - -data RevealerChildRevealedPropertyInfo -instance AttrInfo RevealerChildRevealedPropertyInfo where - type AttrAllowedOps RevealerChildRevealedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint RevealerChildRevealedPropertyInfo = (~) () - type AttrBaseTypeConstraint RevealerChildRevealedPropertyInfo = RevealerK - type AttrGetType RevealerChildRevealedPropertyInfo = Bool - type AttrLabel RevealerChildRevealedPropertyInfo = "child-revealed" - attrGet _ = getRevealerChildRevealed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "reveal-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getRevealerRevealChild :: (MonadIO m, RevealerK o) => o -> m Bool -getRevealerRevealChild obj = liftIO $ getObjectPropertyBool obj "reveal-child" - -setRevealerRevealChild :: (MonadIO m, RevealerK o) => o -> Bool -> m () -setRevealerRevealChild obj val = liftIO $ setObjectPropertyBool obj "reveal-child" val - -constructRevealerRevealChild :: Bool -> IO ([Char], GValue) -constructRevealerRevealChild val = constructObjectPropertyBool "reveal-child" val - -data RevealerRevealChildPropertyInfo -instance AttrInfo RevealerRevealChildPropertyInfo where - type AttrAllowedOps RevealerRevealChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RevealerRevealChildPropertyInfo = (~) Bool - type AttrBaseTypeConstraint RevealerRevealChildPropertyInfo = RevealerK - type AttrGetType RevealerRevealChildPropertyInfo = Bool - type AttrLabel RevealerRevealChildPropertyInfo = "reveal-child" - attrGet _ = getRevealerRevealChild - attrSet _ = setRevealerRevealChild - attrConstruct _ = constructRevealerRevealChild - attrClear _ = undefined - --- VVV Prop "transition-duration" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> m Word32 -getRevealerTransitionDuration obj = liftIO $ getObjectPropertyUInt32 obj "transition-duration" - -setRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> Word32 -> m () -setRevealerTransitionDuration obj val = liftIO $ setObjectPropertyUInt32 obj "transition-duration" val - -constructRevealerTransitionDuration :: Word32 -> IO ([Char], GValue) -constructRevealerTransitionDuration val = constructObjectPropertyUInt32 "transition-duration" val - -data RevealerTransitionDurationPropertyInfo -instance AttrInfo RevealerTransitionDurationPropertyInfo where - type AttrAllowedOps RevealerTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RevealerTransitionDurationPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint RevealerTransitionDurationPropertyInfo = RevealerK - type AttrGetType RevealerTransitionDurationPropertyInfo = Word32 - type AttrLabel RevealerTransitionDurationPropertyInfo = "transition-duration" - attrGet _ = getRevealerTransitionDuration - attrSet _ = setRevealerTransitionDuration - attrConstruct _ = constructRevealerTransitionDuration - attrClear _ = undefined - --- VVV Prop "transition-type" - -- Type: TInterface "Gtk" "RevealerTransitionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getRevealerTransitionType :: (MonadIO m, RevealerK o) => o -> m RevealerTransitionType -getRevealerTransitionType obj = liftIO $ getObjectPropertyEnum obj "transition-type" - -setRevealerTransitionType :: (MonadIO m, RevealerK o) => o -> RevealerTransitionType -> m () -setRevealerTransitionType obj val = liftIO $ setObjectPropertyEnum obj "transition-type" val - -constructRevealerTransitionType :: RevealerTransitionType -> IO ([Char], GValue) -constructRevealerTransitionType val = constructObjectPropertyEnum "transition-type" val - -data RevealerTransitionTypePropertyInfo -instance AttrInfo RevealerTransitionTypePropertyInfo where - type AttrAllowedOps RevealerTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RevealerTransitionTypePropertyInfo = (~) RevealerTransitionType - type AttrBaseTypeConstraint RevealerTransitionTypePropertyInfo = RevealerK - type AttrGetType RevealerTransitionTypePropertyInfo = RevealerTransitionType - type AttrLabel RevealerTransitionTypePropertyInfo = "transition-type" - attrGet _ = getRevealerTransitionType - attrSet _ = setRevealerTransitionType - attrConstruct _ = constructRevealerTransitionType - attrClear _ = undefined - -type instance AttributeList Revealer = RevealerAttributeList -type RevealerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childRevealed", RevealerChildRevealedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("revealChild", RevealerRevealChildPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", RevealerTransitionDurationPropertyInfo), '("transitionType", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -revealerChildRevealed :: AttrLabelProxy "childRevealed" -revealerChildRevealed = AttrLabelProxy - -revealerRevealChild :: AttrLabelProxy "revealChild" -revealerRevealChild = AttrLabelProxy - -revealerTransitionDuration :: AttrLabelProxy "transitionDuration" -revealerTransitionDuration = AttrLabelProxy - -revealerTransitionType :: AttrLabelProxy "transitionType" -revealerTransitionType = AttrLabelProxy - -type instance SignalList Revealer = RevealerSignalList -type RevealerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Revealer::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Revealer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_revealer_new" gtk_revealer_new :: - IO (Ptr Revealer) - - -revealerNew :: - (MonadIO m) => - m Revealer -- result -revealerNew = liftIO $ do - result <- gtk_revealer_new - checkUnexpectedReturnNULL "gtk_revealer_new" result - result' <- (newObject Revealer) result - return result' - --- method Revealer::get_child_revealed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", 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 "gtk_revealer_get_child_revealed" gtk_revealer_get_child_revealed :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - IO CInt - - -revealerGetChildRevealed :: - (MonadIO m, RevealerK a) => - a -- _obj - -> m Bool -- result -revealerGetChildRevealed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_child_revealed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RevealerGetChildRevealedMethodInfo -instance (signature ~ (m Bool), MonadIO m, RevealerK a) => MethodInfo RevealerGetChildRevealedMethodInfo a signature where - overloadedMethod _ = revealerGetChildRevealed - --- method Revealer::get_reveal_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", 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 "gtk_revealer_get_reveal_child" gtk_revealer_get_reveal_child :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - IO CInt - - -revealerGetRevealChild :: - (MonadIO m, RevealerK a) => - a -- _obj - -> m Bool -- result -revealerGetRevealChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_reveal_child _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RevealerGetRevealChildMethodInfo -instance (signature ~ (m Bool), MonadIO m, RevealerK a) => MethodInfo RevealerGetRevealChildMethodInfo a signature where - overloadedMethod _ = revealerGetRevealChild - --- method Revealer::get_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_revealer_get_transition_duration" gtk_revealer_get_transition_duration :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - IO Word32 - - -revealerGetTransitionDuration :: - (MonadIO m, RevealerK a) => - a -- _obj - -> m Word32 -- result -revealerGetTransitionDuration _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_transition_duration _obj' - touchManagedPtr _obj - return result - -data RevealerGetTransitionDurationMethodInfo -instance (signature ~ (m Word32), MonadIO m, RevealerK a) => MethodInfo RevealerGetTransitionDurationMethodInfo a signature where - overloadedMethod _ = revealerGetTransitionDuration - --- method Revealer::get_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RevealerTransitionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_revealer_get_transition_type" gtk_revealer_get_transition_type :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - IO CUInt - - -revealerGetTransitionType :: - (MonadIO m, RevealerK a) => - a -- _obj - -> m RevealerTransitionType -- result -revealerGetTransitionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_transition_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data RevealerGetTransitionTypeMethodInfo -instance (signature ~ (m RevealerTransitionType), MonadIO m, RevealerK a) => MethodInfo RevealerGetTransitionTypeMethodInfo a signature where - overloadedMethod _ = revealerGetTransitionType - --- method Revealer::set_reveal_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reveal_child", 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 "gtk_revealer_set_reveal_child" gtk_revealer_set_reveal_child :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - CInt -> -- reveal_child : TBasicType TBoolean - IO () - - -revealerSetRevealChild :: - (MonadIO m, RevealerK a) => - a -- _obj - -> Bool -- revealChild - -> m () -- result -revealerSetRevealChild _obj revealChild = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let revealChild' = (fromIntegral . fromEnum) revealChild - gtk_revealer_set_reveal_child _obj' revealChild' - touchManagedPtr _obj - return () - -data RevealerSetRevealChildMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetRevealChildMethodInfo a signature where - overloadedMethod _ = revealerSetRevealChild - --- method Revealer::set_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", 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 "gtk_revealer_set_transition_duration" gtk_revealer_set_transition_duration :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - Word32 -> -- duration : TBasicType TUInt - IO () - - -revealerSetTransitionDuration :: - (MonadIO m, RevealerK a) => - a -- _obj - -> Word32 -- duration - -> m () -- result -revealerSetTransitionDuration _obj duration = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_revealer_set_transition_duration _obj' duration - touchManagedPtr _obj - return () - -data RevealerSetTransitionDurationMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetTransitionDurationMethodInfo a signature where - overloadedMethod _ = revealerSetTransitionDuration - --- method Revealer::set_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", 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 "gtk_revealer_set_transition_type" gtk_revealer_set_transition_type :: - Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - CUInt -> -- transition : TInterface "Gtk" "RevealerTransitionType" - IO () - - -revealerSetTransitionType :: - (MonadIO m, RevealerK a) => - a -- _obj - -> RevealerTransitionType -- transition - -> m () -- result -revealerSetTransitionType _obj transition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transition' = (fromIntegral . fromEnum) transition - gtk_revealer_set_transition_type _obj' transition' - touchManagedPtr _obj - return () - -data RevealerSetTransitionTypeMethodInfo -instance (signature ~ (RevealerTransitionType -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetTransitionTypeMethodInfo a signature where - overloadedMethod _ = revealerSetTransitionType - - diff --git a/GI/Gtk/Objects/Revealer.hs-boot b/GI/Gtk/Objects/Revealer.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Revealer.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.Revealer 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 Revealer = Revealer (ForeignPtr Revealer) -instance GObject Revealer where -class GObject o => RevealerK o -instance (GObject o, IsDescendantOf Revealer o) => RevealerK o -data RevealerChildRevealedPropertyInfo -data RevealerRevealChildPropertyInfo -data RevealerTransitionDurationPropertyInfo -data RevealerTransitionTypePropertyInfo -data RevealerGetChildRevealedMethodInfo -data RevealerGetRevealChildMethodInfo -data RevealerGetTransitionDurationMethodInfo -data RevealerGetTransitionTypeMethodInfo -data RevealerSetRevealChildMethodInfo -data RevealerSetTransitionDurationMethodInfo -data RevealerSetTransitionTypeMethodInfo diff --git a/GI/Gtk/Objects/Scale.hs b/GI/Gtk/Objects/Scale.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Scale.hs +++ /dev/null @@ -1,1112 +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.Gtk.Objects.Scale - ( - --- * Exported types - Scale(..) , - ScaleK , - toScale , - noScale , - - - -- * Methods --- ** scaleAddMark - ScaleAddMarkMethodInfo , - scaleAddMark , - - --- ** scaleClearMarks - ScaleClearMarksMethodInfo , - scaleClearMarks , - - --- ** scaleGetDigits - ScaleGetDigitsMethodInfo , - scaleGetDigits , - - --- ** scaleGetDrawValue - ScaleGetDrawValueMethodInfo , - scaleGetDrawValue , - - --- ** scaleGetHasOrigin - ScaleGetHasOriginMethodInfo , - scaleGetHasOrigin , - - --- ** scaleGetLayout - ScaleGetLayoutMethodInfo , - scaleGetLayout , - - --- ** scaleGetLayoutOffsets - ScaleGetLayoutOffsetsMethodInfo , - scaleGetLayoutOffsets , - - --- ** scaleGetValuePos - ScaleGetValuePosMethodInfo , - scaleGetValuePos , - - --- ** scaleNew - scaleNew , - - --- ** scaleNewWithRange - scaleNewWithRange , - - --- ** scaleSetDigits - ScaleSetDigitsMethodInfo , - scaleSetDigits , - - --- ** scaleSetDrawValue - ScaleSetDrawValueMethodInfo , - scaleSetDrawValue , - - --- ** scaleSetHasOrigin - ScaleSetHasOriginMethodInfo , - scaleSetHasOrigin , - - --- ** scaleSetValuePos - ScaleSetValuePosMethodInfo , - scaleSetValuePos , - - - - - -- * Properties --- ** Digits - ScaleDigitsPropertyInfo , - constructScaleDigits , - getScaleDigits , - scaleDigits , - setScaleDigits , - - --- ** DrawValue - ScaleDrawValuePropertyInfo , - constructScaleDrawValue , - getScaleDrawValue , - scaleDrawValue , - setScaleDrawValue , - - --- ** HasOrigin - ScaleHasOriginPropertyInfo , - constructScaleHasOrigin , - getScaleHasOrigin , - scaleHasOrigin , - setScaleHasOrigin , - - --- ** ValuePos - ScaleValuePosPropertyInfo , - constructScaleValuePos , - getScaleValuePos , - scaleValuePos , - setScaleValuePos , - - - - - -- * Signals --- ** FormatValue - ScaleFormatValueCallback , - ScaleFormatValueCallbackC , - ScaleFormatValueSignalInfo , - afterScaleFormatValue , - mkScaleFormatValueCallback , - noScaleFormatValueCallback , - onScaleFormatValue , - scaleFormatValueCallbackWrapper , - scaleFormatValueClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype Scale = Scale (ForeignPtr Scale) -foreign import ccall "gtk_scale_get_type" - c_gtk_scale_get_type :: IO GType - -type instance ParentTypes Scale = ScaleParentTypes -type ScaleParentTypes = '[Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Scale where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_scale_get_type - - -class GObject o => ScaleK o -instance (GObject o, IsDescendantOf Scale o) => ScaleK o - -toScale :: ScaleK o => o -> IO Scale -toScale = unsafeCastTo Scale - -noScale :: Maybe Scale -noScale = Nothing - -type family ResolveScaleMethod (t :: Symbol) (o :: *) :: * where - ResolveScaleMethod "activate" o = WidgetActivateMethodInfo - ResolveScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveScaleMethod "addChild" o = BuildableAddChildMethodInfo - ResolveScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveScaleMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveScaleMethod "addMark" o = ScaleAddMarkMethodInfo - ResolveScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveScaleMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveScaleMethod "classPath" o = WidgetClassPathMethodInfo - ResolveScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo - ResolveScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveScaleMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveScaleMethod "destroy" o = WidgetDestroyMethodInfo - ResolveScaleMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveScaleMethod "draw" o = WidgetDrawMethodInfo - ResolveScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveScaleMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveScaleMethod "event" o = WidgetEventMethodInfo - ResolveScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveScaleMethod "hide" o = WidgetHideMethodInfo - ResolveScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveScaleMethod "intersect" o = WidgetIntersectMethodInfo - ResolveScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScaleMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveScaleMethod "map" o = WidgetMapMethodInfo - ResolveScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveScaleMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveScaleMethod "path" o = WidgetPathMethodInfo - ResolveScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveScaleMethod "realize" o = WidgetRealizeMethodInfo - ResolveScaleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveScaleMethod "reparent" o = WidgetReparentMethodInfo - ResolveScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveScaleMethod "show" o = WidgetShowMethodInfo - ResolveScaleMethod "showAll" o = WidgetShowAllMethodInfo - ResolveScaleMethod "showNow" o = WidgetShowNowMethodInfo - ResolveScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveScaleMethod "unmap" o = WidgetUnmapMethodInfo - ResolveScaleMethod "unparent" o = WidgetUnparentMethodInfo - ResolveScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveScaleMethod "getClip" o = WidgetGetClipMethodInfo - ResolveScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo - ResolveScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo - ResolveScaleMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveScaleMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo - ResolveScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveScaleMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo - ResolveScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo - ResolveScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveScaleMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveScaleMethod "getParent" o = WidgetGetParentMethodInfo - ResolveScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveScaleMethod "getPath" o = WidgetGetPathMethodInfo - ResolveScaleMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveScaleMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveScaleMethod "getState" o = WidgetGetStateMethodInfo - ResolveScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveScaleMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveScaleMethod "getValign" o = WidgetGetValignMethodInfo - ResolveScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveScaleMethod "getValue" o = RangeGetValueMethodInfo - ResolveScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo - ResolveScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveScaleMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveScaleMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveScaleMethod "setClip" o = WidgetSetClipMethodInfo - ResolveScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo - ResolveScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo - ResolveScaleMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveScaleMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo - ResolveScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveScaleMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveScaleMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveScaleMethod "setParent" o = WidgetSetParentMethodInfo - ResolveScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScaleMethod "setRange" o = RangeSetRangeMethodInfo - ResolveScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveScaleMethod "setState" o = WidgetSetStateMethodInfo - ResolveScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveScaleMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveScaleMethod "setValign" o = WidgetSetValignMethodInfo - ResolveScaleMethod "setValue" o = RangeSetValueMethodInfo - ResolveScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo - ResolveScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveScaleMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveScaleMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveScaleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScaleMethod t Scale, MethodInfo info Scale p) => IsLabelProxy t (Scale -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScaleMethod t Scale, MethodInfo info Scale p) => IsLabel t (Scale -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Scale::format-value -type ScaleFormatValueCallback = - Double -> - IO T.Text - -noScaleFormatValueCallback :: Maybe ScaleFormatValueCallback -noScaleFormatValueCallback = Nothing - -type ScaleFormatValueCallbackC = - Ptr () -> -- object - CDouble -> - Ptr () -> -- user_data - IO CString - -foreign import ccall "wrapper" - mkScaleFormatValueCallback :: ScaleFormatValueCallbackC -> IO (FunPtr ScaleFormatValueCallbackC) - -scaleFormatValueClosure :: ScaleFormatValueCallback -> IO Closure -scaleFormatValueClosure cb = newCClosure =<< mkScaleFormatValueCallback wrapped - where wrapped = scaleFormatValueCallbackWrapper cb - -scaleFormatValueCallbackWrapper :: - ScaleFormatValueCallback -> - Ptr () -> - CDouble -> - Ptr () -> - IO CString -scaleFormatValueCallbackWrapper _cb _ value _ = do - let value' = realToFrac value - result <- _cb value' - result' <- textToCString result - return result' - -onScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId -onScaleFormatValue obj cb = liftIO $ connectScaleFormatValue obj cb SignalConnectBefore -afterScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId -afterScaleFormatValue obj cb = connectScaleFormatValue obj cb SignalConnectAfter - -connectScaleFormatValue :: (GObject a, MonadIO m) => - a -> ScaleFormatValueCallback -> SignalConnectMode -> m SignalHandlerId -connectScaleFormatValue obj cb after = liftIO $ do - cb' <- mkScaleFormatValueCallback (scaleFormatValueCallbackWrapper cb) - connectSignalFunPtr obj "format-value" cb' after - --- VVV Prop "digits" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleDigits :: (MonadIO m, ScaleK o) => o -> m Int32 -getScaleDigits obj = liftIO $ getObjectPropertyInt32 obj "digits" - -setScaleDigits :: (MonadIO m, ScaleK o) => o -> Int32 -> m () -setScaleDigits obj val = liftIO $ setObjectPropertyInt32 obj "digits" val - -constructScaleDigits :: Int32 -> IO ([Char], GValue) -constructScaleDigits val = constructObjectPropertyInt32 "digits" val - -data ScaleDigitsPropertyInfo -instance AttrInfo ScaleDigitsPropertyInfo where - type AttrAllowedOps ScaleDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleDigitsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ScaleDigitsPropertyInfo = ScaleK - type AttrGetType ScaleDigitsPropertyInfo = Int32 - type AttrLabel ScaleDigitsPropertyInfo = "digits" - attrGet _ = getScaleDigits - attrSet _ = setScaleDigits - attrConstruct _ = constructScaleDigits - attrClear _ = undefined - --- VVV Prop "draw-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleDrawValue :: (MonadIO m, ScaleK o) => o -> m Bool -getScaleDrawValue obj = liftIO $ getObjectPropertyBool obj "draw-value" - -setScaleDrawValue :: (MonadIO m, ScaleK o) => o -> Bool -> m () -setScaleDrawValue obj val = liftIO $ setObjectPropertyBool obj "draw-value" val - -constructScaleDrawValue :: Bool -> IO ([Char], GValue) -constructScaleDrawValue val = constructObjectPropertyBool "draw-value" val - -data ScaleDrawValuePropertyInfo -instance AttrInfo ScaleDrawValuePropertyInfo where - type AttrAllowedOps ScaleDrawValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleDrawValuePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ScaleDrawValuePropertyInfo = ScaleK - type AttrGetType ScaleDrawValuePropertyInfo = Bool - type AttrLabel ScaleDrawValuePropertyInfo = "draw-value" - attrGet _ = getScaleDrawValue - attrSet _ = setScaleDrawValue - attrConstruct _ = constructScaleDrawValue - attrClear _ = undefined - --- VVV Prop "has-origin" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleHasOrigin :: (MonadIO m, ScaleK o) => o -> m Bool -getScaleHasOrigin obj = liftIO $ getObjectPropertyBool obj "has-origin" - -setScaleHasOrigin :: (MonadIO m, ScaleK o) => o -> Bool -> m () -setScaleHasOrigin obj val = liftIO $ setObjectPropertyBool obj "has-origin" val - -constructScaleHasOrigin :: Bool -> IO ([Char], GValue) -constructScaleHasOrigin val = constructObjectPropertyBool "has-origin" val - -data ScaleHasOriginPropertyInfo -instance AttrInfo ScaleHasOriginPropertyInfo where - type AttrAllowedOps ScaleHasOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleHasOriginPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ScaleHasOriginPropertyInfo = ScaleK - type AttrGetType ScaleHasOriginPropertyInfo = Bool - type AttrLabel ScaleHasOriginPropertyInfo = "has-origin" - attrGet _ = getScaleHasOrigin - attrSet _ = setScaleHasOrigin - attrConstruct _ = constructScaleHasOrigin - attrClear _ = undefined - --- VVV Prop "value-pos" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleValuePos :: (MonadIO m, ScaleK o) => o -> m PositionType -getScaleValuePos obj = liftIO $ getObjectPropertyEnum obj "value-pos" - -setScaleValuePos :: (MonadIO m, ScaleK o) => o -> PositionType -> m () -setScaleValuePos obj val = liftIO $ setObjectPropertyEnum obj "value-pos" val - -constructScaleValuePos :: PositionType -> IO ([Char], GValue) -constructScaleValuePos val = constructObjectPropertyEnum "value-pos" val - -data ScaleValuePosPropertyInfo -instance AttrInfo ScaleValuePosPropertyInfo where - type AttrAllowedOps ScaleValuePosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleValuePosPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint ScaleValuePosPropertyInfo = ScaleK - type AttrGetType ScaleValuePosPropertyInfo = PositionType - type AttrLabel ScaleValuePosPropertyInfo = "value-pos" - attrGet _ = getScaleValuePos - attrSet _ = setScaleValuePos - attrConstruct _ = constructScaleValuePos - attrClear _ = undefined - -type instance AttributeList Scale = ScaleAttributeList -type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -scaleDigits :: AttrLabelProxy "digits" -scaleDigits = AttrLabelProxy - -scaleDrawValue :: AttrLabelProxy "drawValue" -scaleDrawValue = AttrLabelProxy - -scaleHasOrigin :: AttrLabelProxy "hasOrigin" -scaleHasOrigin = AttrLabelProxy - -scaleValuePos :: AttrLabelProxy "valuePos" -scaleValuePos = AttrLabelProxy - -data ScaleFormatValueSignalInfo -instance SignalInfo ScaleFormatValueSignalInfo where - type HaskellCallbackType ScaleFormatValueSignalInfo = ScaleFormatValueCallback - connectSignal _ = connectScaleFormatValue - -type instance SignalList Scale = ScaleSignalList -type ScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Scale::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Scale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_new" gtk_scale_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr Scale) - - -scaleNew :: - (MonadIO m, AdjustmentK a) => - Orientation -- orientation - -> Maybe (a) -- adjustment - -> m Scale -- result -scaleNew orientation adjustment = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - result <- gtk_scale_new orientation' maybeAdjustment - checkUnexpectedReturnNULL "gtk_scale_new" result - result' <- (newObject Scale) result - whenJust adjustment touchManagedPtr - return result' - --- method Scale::new_with_range --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Scale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_new_with_range" gtk_scale_new_with_range :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - CDouble -> -- step : TBasicType TDouble - IO (Ptr Scale) - - -scaleNewWithRange :: - (MonadIO m) => - Orientation -- orientation - -> Double -- min - -> Double -- max - -> Double -- step - -> m Scale -- result -scaleNewWithRange orientation min max step = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - let min' = realToFrac min - let max' = realToFrac max - let step' = realToFrac step - result <- gtk_scale_new_with_range orientation' min' max' step' - checkUnexpectedReturnNULL "gtk_scale_new_with_range" result - result' <- (newObject Scale) result - return result' - --- method Scale::add_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_add_mark" gtk_scale_add_mark :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - CDouble -> -- value : TBasicType TDouble - CUInt -> -- position : TInterface "Gtk" "PositionType" - CString -> -- markup : TBasicType TUTF8 - IO () - - -scaleAddMark :: - (MonadIO m, ScaleK a) => - a -- _obj - -> Double -- value - -> PositionType -- position - -> Maybe (T.Text) -- markup - -> m () -- result -scaleAddMark _obj value position markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - let position' = (fromIntegral . fromEnum) position - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_scale_add_mark _obj' value' position' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - -data ScaleAddMarkMethodInfo -instance (signature ~ (Double -> PositionType -> Maybe (T.Text) -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleAddMarkMethodInfo a signature where - overloadedMethod _ = scaleAddMark - --- method Scale::clear_marks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", 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 "gtk_scale_clear_marks" gtk_scale_clear_marks :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO () - - -scaleClearMarks :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m () -- result -scaleClearMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scale_clear_marks _obj' - touchManagedPtr _obj - return () - -data ScaleClearMarksMethodInfo -instance (signature ~ (m ()), MonadIO m, ScaleK a) => MethodInfo ScaleClearMarksMethodInfo a signature where - overloadedMethod _ = scaleClearMarks - --- method Scale::get_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", 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 "gtk_scale_get_digits" gtk_scale_get_digits :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO Int32 - - -scaleGetDigits :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m Int32 -- result -scaleGetDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_digits _obj' - touchManagedPtr _obj - return result - -data ScaleGetDigitsMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScaleK a) => MethodInfo ScaleGetDigitsMethodInfo a signature where - overloadedMethod _ = scaleGetDigits - --- method Scale::get_draw_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", 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 "gtk_scale_get_draw_value" gtk_scale_get_draw_value :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO CInt - - -scaleGetDrawValue :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m Bool -- result -scaleGetDrawValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_draw_value _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScaleGetDrawValueMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScaleK a) => MethodInfo ScaleGetDrawValueMethodInfo a signature where - overloadedMethod _ = scaleGetDrawValue - --- method Scale::get_has_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", 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 "gtk_scale_get_has_origin" gtk_scale_get_has_origin :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO CInt - - -scaleGetHasOrigin :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m Bool -- result -scaleGetHasOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_has_origin _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScaleGetHasOriginMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScaleK a) => MethodInfo ScaleGetHasOriginMethodInfo a signature where - overloadedMethod _ = scaleGetHasOrigin - --- method Scale::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_get_layout" gtk_scale_get_layout :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO (Ptr Pango.Layout) - - -scaleGetLayout :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m Pango.Layout -- result -scaleGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_layout _obj' - checkUnexpectedReturnNULL "gtk_scale_get_layout" result - result' <- (newObject Pango.Layout) result - touchManagedPtr _obj - return result' - -data ScaleGetLayoutMethodInfo -instance (signature ~ (m Pango.Layout), MonadIO m, ScaleK a) => MethodInfo ScaleGetLayoutMethodInfo a signature where - overloadedMethod _ = scaleGetLayout - --- method Scale::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, 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 "gtk_scale_get_layout_offsets" gtk_scale_get_layout_offsets :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -scaleGetLayoutOffsets :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m (Int32,Int32) -- result -scaleGetLayoutOffsets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_scale_get_layout_offsets _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data ScaleGetLayoutOffsetsMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, ScaleK a) => MethodInfo ScaleGetLayoutOffsetsMethodInfo a signature where - overloadedMethod _ = scaleGetLayoutOffsets - --- method Scale::get_value_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PositionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_get_value_pos" gtk_scale_get_value_pos :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - IO CUInt - - -scaleGetValuePos :: - (MonadIO m, ScaleK a) => - a -- _obj - -> m PositionType -- result -scaleGetValuePos _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_value_pos _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScaleGetValuePosMethodInfo -instance (signature ~ (m PositionType), MonadIO m, ScaleK a) => MethodInfo ScaleGetValuePosMethodInfo a signature where - overloadedMethod _ = scaleGetValuePos - --- method Scale::set_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", 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 "gtk_scale_set_digits" gtk_scale_set_digits :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - Int32 -> -- digits : TBasicType TInt - IO () - - -scaleSetDigits :: - (MonadIO m, ScaleK a) => - a -- _obj - -> Int32 -- digits - -> m () -- result -scaleSetDigits _obj digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scale_set_digits _obj' digits - touchManagedPtr _obj - return () - -data ScaleSetDigitsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetDigitsMethodInfo a signature where - overloadedMethod _ = scaleSetDigits - --- method Scale::set_draw_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_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 "gtk_scale_set_draw_value" gtk_scale_set_draw_value :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - CInt -> -- draw_value : TBasicType TBoolean - IO () - - -scaleSetDrawValue :: - (MonadIO m, ScaleK a) => - a -- _obj - -> Bool -- drawValue - -> m () -- result -scaleSetDrawValue _obj drawValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let drawValue' = (fromIntegral . fromEnum) drawValue - gtk_scale_set_draw_value _obj' drawValue' - touchManagedPtr _obj - return () - -data ScaleSetDrawValueMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetDrawValueMethodInfo a signature where - overloadedMethod _ = scaleSetDrawValue - --- method Scale::set_has_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_origin", 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 "gtk_scale_set_has_origin" gtk_scale_set_has_origin :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - CInt -> -- has_origin : TBasicType TBoolean - IO () - - -scaleSetHasOrigin :: - (MonadIO m, ScaleK a) => - a -- _obj - -> Bool -- hasOrigin - -> m () -- result -scaleSetHasOrigin _obj hasOrigin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasOrigin' = (fromIntegral . fromEnum) hasOrigin - gtk_scale_set_has_origin _obj' hasOrigin' - touchManagedPtr _obj - return () - -data ScaleSetHasOriginMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetHasOriginMethodInfo a signature where - overloadedMethod _ = scaleSetHasOrigin - --- method Scale::set_value_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", 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 "gtk_scale_set_value_pos" gtk_scale_set_value_pos :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - CUInt -> -- pos : TInterface "Gtk" "PositionType" - IO () - - -scaleSetValuePos :: - (MonadIO m, ScaleK a) => - a -- _obj - -> PositionType -- pos - -> m () -- result -scaleSetValuePos _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_scale_set_value_pos _obj' pos' - touchManagedPtr _obj - return () - -data ScaleSetValuePosMethodInfo -instance (signature ~ (PositionType -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetValuePosMethodInfo a signature where - overloadedMethod _ = scaleSetValuePos - - diff --git a/GI/Gtk/Objects/Scale.hs-boot b/GI/Gtk/Objects/Scale.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Scale.hs-boot +++ /dev/null @@ -1,30 +0,0 @@ -module GI.Gtk.Objects.Scale 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 Scale = Scale (ForeignPtr Scale) -instance GObject Scale where -class GObject o => ScaleK o -instance (GObject o, IsDescendantOf Scale o) => ScaleK o -data ScaleDigitsPropertyInfo -data ScaleDrawValuePropertyInfo -data ScaleHasOriginPropertyInfo -data ScaleValuePosPropertyInfo -data ScaleFormatValueSignalInfo -data ScaleAddMarkMethodInfo -data ScaleClearMarksMethodInfo -data ScaleGetDigitsMethodInfo -data ScaleGetDrawValueMethodInfo -data ScaleGetHasOriginMethodInfo -data ScaleGetLayoutMethodInfo -data ScaleGetLayoutOffsetsMethodInfo -data ScaleGetValuePosMethodInfo -data ScaleSetDigitsMethodInfo -data ScaleSetDrawValueMethodInfo -data ScaleSetHasOriginMethodInfo -data ScaleSetValuePosMethodInfo diff --git a/GI/Gtk/Objects/ScaleAccessible.hs b/GI/Gtk/Objects/ScaleAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleAccessible.hs +++ /dev/null @@ -1,138 +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.Gtk.Objects.ScaleAccessible - ( - --- * Exported types - ScaleAccessible(..) , - ScaleAccessibleK , - toScaleAccessible , - noScaleAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ScaleAccessible = ScaleAccessible (ForeignPtr ScaleAccessible) -foreign import ccall "gtk_scale_accessible_get_type" - c_gtk_scale_accessible_get_type :: IO GType - -type instance ParentTypes ScaleAccessible = ScaleAccessibleParentTypes -type ScaleAccessibleParentTypes = '[RangeAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Value] - -instance GObject ScaleAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_scale_accessible_get_type - - -class GObject o => ScaleAccessibleK o -instance (GObject o, IsDescendantOf ScaleAccessible o) => ScaleAccessibleK o - -toScaleAccessible :: ScaleAccessibleK o => o -> IO ScaleAccessible -toScaleAccessible = unsafeCastTo ScaleAccessible - -noScaleAccessible :: Maybe ScaleAccessible -noScaleAccessible = Nothing - -type family ResolveScaleAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveScaleAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveScaleAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScaleAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScaleAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveScaleAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveScaleAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScaleAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScaleAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveScaleAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveScaleAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScaleAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScaleAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScaleAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveScaleAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveScaleAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScaleAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveScaleAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveScaleAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveScaleAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScaleAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveScaleAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveScaleAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveScaleAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveScaleAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScaleAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScaleAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScaleAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScaleAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScaleAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScaleAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScaleAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScaleAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveScaleAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveScaleAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveScaleAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScaleAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveScaleAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveScaleAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveScaleAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveScaleAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveScaleAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveScaleAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveScaleAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveScaleAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveScaleAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveScaleAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveScaleAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveScaleAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScaleAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScaleAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveScaleAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveScaleAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveScaleAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveScaleAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveScaleAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveScaleAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveScaleAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScaleAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveScaleAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveScaleAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveScaleAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveScaleAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveScaleAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScaleAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveScaleAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveScaleAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveScaleAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveScaleAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScaleAccessibleMethod t ScaleAccessible, MethodInfo info ScaleAccessible p) => IsLabelProxy t (ScaleAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScaleAccessibleMethod t ScaleAccessible, MethodInfo info ScaleAccessible p) => IsLabel t (ScaleAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ScaleAccessible = ScaleAccessibleAttributeList -type ScaleAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScaleAccessible = ScaleAccessibleSignalList -type ScaleAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ScaleAccessible.hs-boot b/GI/Gtk/Objects/ScaleAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ScaleAccessible 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 ScaleAccessible = ScaleAccessible (ForeignPtr ScaleAccessible) -instance GObject ScaleAccessible where -class GObject o => ScaleAccessibleK o -instance (GObject o, IsDescendantOf ScaleAccessible o) => ScaleAccessibleK o diff --git a/GI/Gtk/Objects/ScaleButton.hs b/GI/Gtk/Objects/ScaleButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleButton.hs +++ /dev/null @@ -1,1076 +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.Gtk.Objects.ScaleButton - ( - --- * Exported types - ScaleButton(..) , - ScaleButtonK , - toScaleButton , - noScaleButton , - - - -- * Methods --- ** scaleButtonGetAdjustment - ScaleButtonGetAdjustmentMethodInfo , - scaleButtonGetAdjustment , - - --- ** scaleButtonGetMinusButton - ScaleButtonGetMinusButtonMethodInfo , - scaleButtonGetMinusButton , - - --- ** scaleButtonGetPlusButton - ScaleButtonGetPlusButtonMethodInfo , - scaleButtonGetPlusButton , - - --- ** scaleButtonGetPopup - ScaleButtonGetPopupMethodInfo , - scaleButtonGetPopup , - - --- ** scaleButtonGetValue - ScaleButtonGetValueMethodInfo , - scaleButtonGetValue , - - --- ** scaleButtonNew - scaleButtonNew , - - --- ** scaleButtonSetAdjustment - ScaleButtonSetAdjustmentMethodInfo , - scaleButtonSetAdjustment , - - --- ** scaleButtonSetIcons - ScaleButtonSetIconsMethodInfo , - scaleButtonSetIcons , - - --- ** scaleButtonSetValue - ScaleButtonSetValueMethodInfo , - scaleButtonSetValue , - - - - - -- * Properties --- ** Adjustment - ScaleButtonAdjustmentPropertyInfo , - constructScaleButtonAdjustment , - getScaleButtonAdjustment , - scaleButtonAdjustment , - setScaleButtonAdjustment , - - --- ** Icons - ScaleButtonIconsPropertyInfo , - constructScaleButtonIcons , - getScaleButtonIcons , - scaleButtonIcons , - setScaleButtonIcons , - - --- ** Size - ScaleButtonSizePropertyInfo , - constructScaleButtonSize , - getScaleButtonSize , - scaleButtonSize , - setScaleButtonSize , - - --- ** Value - ScaleButtonValuePropertyInfo , - constructScaleButtonValue , - getScaleButtonValue , - scaleButtonValue , - setScaleButtonValue , - - - - - -- * Signals --- ** Popdown - ScaleButtonPopdownCallback , - ScaleButtonPopdownCallbackC , - ScaleButtonPopdownSignalInfo , - afterScaleButtonPopdown , - mkScaleButtonPopdownCallback , - noScaleButtonPopdownCallback , - onScaleButtonPopdown , - scaleButtonPopdownCallbackWrapper , - scaleButtonPopdownClosure , - - --- ** Popup - ScaleButtonPopupCallback , - ScaleButtonPopupCallbackC , - ScaleButtonPopupSignalInfo , - afterScaleButtonPopup , - mkScaleButtonPopupCallback , - noScaleButtonPopupCallback , - onScaleButtonPopup , - scaleButtonPopupCallbackWrapper , - scaleButtonPopupClosure , - - --- ** ValueChanged - ScaleButtonValueChangedCallback , - ScaleButtonValueChangedCallbackC , - ScaleButtonValueChangedSignalInfo , - afterScaleButtonValueChanged , - mkScaleButtonValueChangedCallback , - noScaleButtonValueChangedCallback , - onScaleButtonValueChanged , - scaleButtonValueChangedCallbackWrapper , - scaleButtonValueChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ScaleButton = ScaleButton (ForeignPtr ScaleButton) -foreign import ccall "gtk_scale_button_get_type" - c_gtk_scale_button_get_type :: IO GType - -type instance ParentTypes ScaleButton = ScaleButtonParentTypes -type ScaleButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, Orientable] - -instance GObject ScaleButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_scale_button_get_type - - -class GObject o => ScaleButtonK o -instance (GObject o, IsDescendantOf ScaleButton o) => ScaleButtonK o - -toScaleButton :: ScaleButtonK o => o -> IO ScaleButton -toScaleButton = unsafeCastTo ScaleButton - -noScaleButton :: Maybe ScaleButton -noScaleButton = Nothing - -type family ResolveScaleButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveScaleButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveScaleButtonMethod "add" o = ContainerAddMethodInfo - ResolveScaleButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveScaleButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveScaleButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveScaleButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveScaleButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveScaleButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveScaleButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScaleButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScaleButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveScaleButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveScaleButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveScaleButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveScaleButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveScaleButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveScaleButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveScaleButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveScaleButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveScaleButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveScaleButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveScaleButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveScaleButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveScaleButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveScaleButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveScaleButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveScaleButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveScaleButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveScaleButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveScaleButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveScaleButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveScaleButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveScaleButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveScaleButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveScaleButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveScaleButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveScaleButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveScaleButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveScaleButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveScaleButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveScaleButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveScaleButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveScaleButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveScaleButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveScaleButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveScaleButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveScaleButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveScaleButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveScaleButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveScaleButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveScaleButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveScaleButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveScaleButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveScaleButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveScaleButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveScaleButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveScaleButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveScaleButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveScaleButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveScaleButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveScaleButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveScaleButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveScaleButtonMethod "event" o = WidgetEventMethodInfo - ResolveScaleButtonMethod "forall" o = ContainerForallMethodInfo - ResolveScaleButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScaleButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveScaleButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveScaleButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScaleButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveScaleButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveScaleButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveScaleButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveScaleButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveScaleButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveScaleButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveScaleButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveScaleButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveScaleButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveScaleButtonMethod "hide" o = WidgetHideMethodInfo - ResolveScaleButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveScaleButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveScaleButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveScaleButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveScaleButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveScaleButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveScaleButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveScaleButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveScaleButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveScaleButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScaleButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveScaleButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveScaleButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveScaleButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveScaleButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveScaleButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveScaleButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveScaleButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveScaleButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveScaleButtonMethod "map" o = WidgetMapMethodInfo - ResolveScaleButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveScaleButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveScaleButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveScaleButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveScaleButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveScaleButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveScaleButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveScaleButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveScaleButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScaleButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScaleButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveScaleButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveScaleButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveScaleButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveScaleButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveScaleButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveScaleButtonMethod "path" o = WidgetPathMethodInfo - ResolveScaleButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveScaleButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveScaleButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveScaleButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveScaleButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveScaleButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveScaleButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveScaleButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveScaleButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveScaleButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScaleButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScaleButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveScaleButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveScaleButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveScaleButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveScaleButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveScaleButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveScaleButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveScaleButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveScaleButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveScaleButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveScaleButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScaleButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScaleButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveScaleButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveScaleButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveScaleButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScaleButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveScaleButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveScaleButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveScaleButtonMethod "show" o = WidgetShowMethodInfo - ResolveScaleButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveScaleButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveScaleButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveScaleButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveScaleButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveScaleButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScaleButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScaleButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveScaleButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveScaleButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveScaleButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveScaleButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScaleButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveScaleButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveScaleButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveScaleButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveScaleButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveScaleButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScaleButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveScaleButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveScaleButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveScaleButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScaleButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveScaleButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveScaleButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveScaleButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveScaleButtonMethod "getAdjustment" o = ScaleButtonGetAdjustmentMethodInfo - ResolveScaleButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveScaleButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveScaleButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveScaleButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveScaleButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveScaleButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveScaleButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveScaleButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveScaleButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveScaleButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveScaleButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveScaleButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveScaleButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveScaleButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveScaleButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveScaleButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveScaleButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveScaleButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveScaleButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScaleButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveScaleButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveScaleButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveScaleButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveScaleButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveScaleButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveScaleButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveScaleButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveScaleButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveScaleButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveScaleButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveScaleButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveScaleButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveScaleButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveScaleButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveScaleButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveScaleButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveScaleButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveScaleButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveScaleButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveScaleButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveScaleButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveScaleButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveScaleButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveScaleButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveScaleButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveScaleButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveScaleButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveScaleButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveScaleButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveScaleButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveScaleButtonMethod "getMinusButton" o = ScaleButtonGetMinusButtonMethodInfo - ResolveScaleButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveScaleButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveScaleButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveScaleButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveScaleButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveScaleButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveScaleButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveScaleButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveScaleButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveScaleButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveScaleButtonMethod "getPlusButton" o = ScaleButtonGetPlusButtonMethodInfo - ResolveScaleButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveScaleButtonMethod "getPopup" o = ScaleButtonGetPopupMethodInfo - ResolveScaleButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveScaleButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveScaleButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveScaleButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveScaleButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveScaleButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveScaleButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScaleButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScaleButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveScaleButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveScaleButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveScaleButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveScaleButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveScaleButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveScaleButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveScaleButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveScaleButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveScaleButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveScaleButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveScaleButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveScaleButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveScaleButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveScaleButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveScaleButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveScaleButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveScaleButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveScaleButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveScaleButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveScaleButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveScaleButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveScaleButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveScaleButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveScaleButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveScaleButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveScaleButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveScaleButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveScaleButtonMethod "getValue" o = ScaleButtonGetValueMethodInfo - ResolveScaleButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveScaleButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveScaleButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveScaleButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveScaleButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveScaleButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveScaleButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveScaleButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveScaleButtonMethod "setAdjustment" o = ScaleButtonSetAdjustmentMethodInfo - ResolveScaleButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveScaleButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveScaleButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveScaleButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveScaleButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveScaleButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveScaleButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveScaleButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveScaleButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveScaleButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveScaleButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveScaleButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScaleButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveScaleButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveScaleButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveScaleButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveScaleButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveScaleButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveScaleButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveScaleButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveScaleButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveScaleButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveScaleButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveScaleButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveScaleButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveScaleButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveScaleButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveScaleButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveScaleButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveScaleButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveScaleButtonMethod "setIcons" o = ScaleButtonSetIconsMethodInfo - ResolveScaleButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveScaleButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveScaleButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveScaleButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveScaleButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveScaleButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveScaleButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveScaleButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveScaleButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveScaleButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveScaleButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveScaleButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveScaleButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveScaleButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveScaleButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveScaleButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScaleButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveScaleButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveScaleButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveScaleButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveScaleButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveScaleButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveScaleButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveScaleButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveScaleButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveScaleButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveScaleButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveScaleButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveScaleButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveScaleButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveScaleButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveScaleButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveScaleButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveScaleButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveScaleButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveScaleButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveScaleButtonMethod "setValue" o = ScaleButtonSetValueMethodInfo - ResolveScaleButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveScaleButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveScaleButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveScaleButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveScaleButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveScaleButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScaleButtonMethod t ScaleButton, MethodInfo info ScaleButton p) => IsLabelProxy t (ScaleButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScaleButtonMethod t ScaleButton, MethodInfo info ScaleButton p) => IsLabel t (ScaleButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ScaleButton::popdown -type ScaleButtonPopdownCallback = - IO () - -noScaleButtonPopdownCallback :: Maybe ScaleButtonPopdownCallback -noScaleButtonPopdownCallback = Nothing - -type ScaleButtonPopdownCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScaleButtonPopdownCallback :: ScaleButtonPopdownCallbackC -> IO (FunPtr ScaleButtonPopdownCallbackC) - -scaleButtonPopdownClosure :: ScaleButtonPopdownCallback -> IO Closure -scaleButtonPopdownClosure cb = newCClosure =<< mkScaleButtonPopdownCallback wrapped - where wrapped = scaleButtonPopdownCallbackWrapper cb - -scaleButtonPopdownCallbackWrapper :: - ScaleButtonPopdownCallback -> - Ptr () -> - Ptr () -> - IO () -scaleButtonPopdownCallbackWrapper _cb _ _ = do - _cb - -onScaleButtonPopdown :: (GObject a, MonadIO m) => a -> ScaleButtonPopdownCallback -> m SignalHandlerId -onScaleButtonPopdown obj cb = liftIO $ connectScaleButtonPopdown obj cb SignalConnectBefore -afterScaleButtonPopdown :: (GObject a, MonadIO m) => a -> ScaleButtonPopdownCallback -> m SignalHandlerId -afterScaleButtonPopdown obj cb = connectScaleButtonPopdown obj cb SignalConnectAfter - -connectScaleButtonPopdown :: (GObject a, MonadIO m) => - a -> ScaleButtonPopdownCallback -> SignalConnectMode -> m SignalHandlerId -connectScaleButtonPopdown obj cb after = liftIO $ do - cb' <- mkScaleButtonPopdownCallback (scaleButtonPopdownCallbackWrapper cb) - connectSignalFunPtr obj "popdown" cb' after - --- signal ScaleButton::popup -type ScaleButtonPopupCallback = - IO () - -noScaleButtonPopupCallback :: Maybe ScaleButtonPopupCallback -noScaleButtonPopupCallback = Nothing - -type ScaleButtonPopupCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScaleButtonPopupCallback :: ScaleButtonPopupCallbackC -> IO (FunPtr ScaleButtonPopupCallbackC) - -scaleButtonPopupClosure :: ScaleButtonPopupCallback -> IO Closure -scaleButtonPopupClosure cb = newCClosure =<< mkScaleButtonPopupCallback wrapped - where wrapped = scaleButtonPopupCallbackWrapper cb - -scaleButtonPopupCallbackWrapper :: - ScaleButtonPopupCallback -> - Ptr () -> - Ptr () -> - IO () -scaleButtonPopupCallbackWrapper _cb _ _ = do - _cb - -onScaleButtonPopup :: (GObject a, MonadIO m) => a -> ScaleButtonPopupCallback -> m SignalHandlerId -onScaleButtonPopup obj cb = liftIO $ connectScaleButtonPopup obj cb SignalConnectBefore -afterScaleButtonPopup :: (GObject a, MonadIO m) => a -> ScaleButtonPopupCallback -> m SignalHandlerId -afterScaleButtonPopup obj cb = connectScaleButtonPopup obj cb SignalConnectAfter - -connectScaleButtonPopup :: (GObject a, MonadIO m) => - a -> ScaleButtonPopupCallback -> SignalConnectMode -> m SignalHandlerId -connectScaleButtonPopup obj cb after = liftIO $ do - cb' <- mkScaleButtonPopupCallback (scaleButtonPopupCallbackWrapper cb) - connectSignalFunPtr obj "popup" cb' after - --- signal ScaleButton::value-changed -type ScaleButtonValueChangedCallback = - Double -> - IO () - -noScaleButtonValueChangedCallback :: Maybe ScaleButtonValueChangedCallback -noScaleButtonValueChangedCallback = Nothing - -type ScaleButtonValueChangedCallbackC = - Ptr () -> -- object - CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScaleButtonValueChangedCallback :: ScaleButtonValueChangedCallbackC -> IO (FunPtr ScaleButtonValueChangedCallbackC) - -scaleButtonValueChangedClosure :: ScaleButtonValueChangedCallback -> IO Closure -scaleButtonValueChangedClosure cb = newCClosure =<< mkScaleButtonValueChangedCallback wrapped - where wrapped = scaleButtonValueChangedCallbackWrapper cb - -scaleButtonValueChangedCallbackWrapper :: - ScaleButtonValueChangedCallback -> - Ptr () -> - CDouble -> - Ptr () -> - IO () -scaleButtonValueChangedCallbackWrapper _cb _ value _ = do - let value' = realToFrac value - _cb value' - -onScaleButtonValueChanged :: (GObject a, MonadIO m) => a -> ScaleButtonValueChangedCallback -> m SignalHandlerId -onScaleButtonValueChanged obj cb = liftIO $ connectScaleButtonValueChanged obj cb SignalConnectBefore -afterScaleButtonValueChanged :: (GObject a, MonadIO m) => a -> ScaleButtonValueChangedCallback -> m SignalHandlerId -afterScaleButtonValueChanged obj cb = connectScaleButtonValueChanged obj cb SignalConnectAfter - -connectScaleButtonValueChanged :: (GObject a, MonadIO m) => - a -> ScaleButtonValueChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectScaleButtonValueChanged obj cb after = liftIO $ do - cb' <- mkScaleButtonValueChangedCallback (scaleButtonValueChangedCallbackWrapper cb) - connectSignalFunPtr obj "value-changed" cb' after - --- VVV Prop "adjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o) => o -> m Adjustment -getScaleButtonAdjustment obj = liftIO $ checkUnexpectedNothing "getScaleButtonAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment - -setScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o, AdjustmentK a) => o -> a -> m () -setScaleButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) - -constructScaleButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScaleButtonAdjustment val = constructObjectPropertyObject "adjustment" (Just val) - -data ScaleButtonAdjustmentPropertyInfo -instance AttrInfo ScaleButtonAdjustmentPropertyInfo where - type AttrAllowedOps ScaleButtonAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleButtonAdjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScaleButtonAdjustmentPropertyInfo = ScaleButtonK - type AttrGetType ScaleButtonAdjustmentPropertyInfo = Adjustment - type AttrLabel ScaleButtonAdjustmentPropertyInfo = "adjustment" - attrGet _ = getScaleButtonAdjustment - attrSet _ = setScaleButtonAdjustment - attrConstruct _ = constructScaleButtonAdjustment - attrClear _ = undefined - --- VVV Prop "icons" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> m (Maybe [T.Text]) -getScaleButtonIcons obj = liftIO $ getObjectPropertyStringArray obj "icons" - -setScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> [T.Text] -> m () -setScaleButtonIcons obj val = liftIO $ setObjectPropertyStringArray obj "icons" (Just val) - -constructScaleButtonIcons :: [T.Text] -> IO ([Char], GValue) -constructScaleButtonIcons val = constructObjectPropertyStringArray "icons" (Just val) - -data ScaleButtonIconsPropertyInfo -instance AttrInfo ScaleButtonIconsPropertyInfo where - type AttrAllowedOps ScaleButtonIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleButtonIconsPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ScaleButtonIconsPropertyInfo = ScaleButtonK - type AttrGetType ScaleButtonIconsPropertyInfo = (Maybe [T.Text]) - type AttrLabel ScaleButtonIconsPropertyInfo = "icons" - attrGet _ = getScaleButtonIcons - attrSet _ = setScaleButtonIcons - attrConstruct _ = constructScaleButtonIcons - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScaleButtonSize :: (MonadIO m, ScaleButtonK o) => o -> m IconSize -getScaleButtonSize obj = liftIO $ getObjectPropertyEnum obj "size" - -setScaleButtonSize :: (MonadIO m, ScaleButtonK o) => o -> IconSize -> m () -setScaleButtonSize obj val = liftIO $ setObjectPropertyEnum obj "size" val - -constructScaleButtonSize :: IconSize -> IO ([Char], GValue) -constructScaleButtonSize val = constructObjectPropertyEnum "size" val - -data ScaleButtonSizePropertyInfo -instance AttrInfo ScaleButtonSizePropertyInfo where - type AttrAllowedOps ScaleButtonSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleButtonSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint ScaleButtonSizePropertyInfo = ScaleButtonK - type AttrGetType ScaleButtonSizePropertyInfo = IconSize - type AttrLabel ScaleButtonSizePropertyInfo = "size" - attrGet _ = getScaleButtonSize - attrSet _ = setScaleButtonSize - attrConstruct _ = constructScaleButtonSize - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScaleButtonValue :: (MonadIO m, ScaleButtonK o) => o -> m Double -getScaleButtonValue obj = liftIO $ getObjectPropertyDouble obj "value" - -setScaleButtonValue :: (MonadIO m, ScaleButtonK o) => o -> Double -> m () -setScaleButtonValue obj val = liftIO $ setObjectPropertyDouble obj "value" val - -constructScaleButtonValue :: Double -> IO ([Char], GValue) -constructScaleButtonValue val = constructObjectPropertyDouble "value" val - -data ScaleButtonValuePropertyInfo -instance AttrInfo ScaleButtonValuePropertyInfo where - type AttrAllowedOps ScaleButtonValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScaleButtonValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint ScaleButtonValuePropertyInfo = ScaleButtonK - type AttrGetType ScaleButtonValuePropertyInfo = Double - type AttrLabel ScaleButtonValuePropertyInfo = "value" - attrGet _ = getScaleButtonValue - attrSet _ = setScaleButtonValue - attrConstruct _ = constructScaleButtonValue - attrClear _ = undefined - -type instance AttributeList ScaleButton = ScaleButtonAttributeList -type ScaleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -scaleButtonAdjustment :: AttrLabelProxy "adjustment" -scaleButtonAdjustment = AttrLabelProxy - -scaleButtonIcons :: AttrLabelProxy "icons" -scaleButtonIcons = AttrLabelProxy - -scaleButtonSize :: AttrLabelProxy "size" -scaleButtonSize = AttrLabelProxy - -scaleButtonValue :: AttrLabelProxy "value" -scaleButtonValue = AttrLabelProxy - -data ScaleButtonPopdownSignalInfo -instance SignalInfo ScaleButtonPopdownSignalInfo where - type HaskellCallbackType ScaleButtonPopdownSignalInfo = ScaleButtonPopdownCallback - connectSignal _ = connectScaleButtonPopdown - -data ScaleButtonPopupSignalInfo -instance SignalInfo ScaleButtonPopupSignalInfo where - type HaskellCallbackType ScaleButtonPopupSignalInfo = ScaleButtonPopupCallback - connectSignal _ = connectScaleButtonPopup - -data ScaleButtonValueChangedSignalInfo -instance SignalInfo ScaleButtonValueChangedSignalInfo where - type HaskellCallbackType ScaleButtonValueChangedSignalInfo = ScaleButtonValueChangedCallback - connectSignal _ = connectScaleButtonValueChanged - -type instance SignalList ScaleButton = ScaleButtonSignalList -type ScaleButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", ScaleButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ScaleButton::new --- method type : Constructor --- Args : [Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ScaleButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_new" gtk_scale_button_new :: - Int32 -> -- size : TBasicType TInt - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - CDouble -> -- step : TBasicType TDouble - Ptr CString -> -- icons : TCArray True (-1) (-1) (TBasicType TUTF8) - IO (Ptr ScaleButton) - - -scaleButtonNew :: - (MonadIO m) => - Int32 -- size - -> Double -- min - -> Double -- max - -> Double -- step - -> Maybe ([T.Text]) -- icons - -> m ScaleButton -- result -scaleButtonNew size min max step icons = liftIO $ do - let min' = realToFrac min - let max' = realToFrac max - let step' = realToFrac step - maybeIcons <- case icons of - Nothing -> return nullPtr - Just jIcons -> do - jIcons' <- packZeroTerminatedUTF8CArray jIcons - return jIcons' - result <- gtk_scale_button_new size min' max' step' maybeIcons - checkUnexpectedReturnNULL "gtk_scale_button_new" result - result' <- (newObject ScaleButton) result - mapZeroTerminatedCArray freeMem maybeIcons - freeMem maybeIcons - return result' - --- method ScaleButton::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_get_adjustment" gtk_scale_button_get_adjustment :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - IO (Ptr Adjustment) - - -scaleButtonGetAdjustment :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> m Adjustment -- result -scaleButtonGetAdjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_adjustment _obj' - checkUnexpectedReturnNULL "gtk_scale_button_get_adjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ScaleButtonGetAdjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetAdjustmentMethodInfo a signature where - overloadedMethod _ = scaleButtonGetAdjustment - --- method ScaleButton::get_minus_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_get_minus_button" gtk_scale_button_get_minus_button :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - IO (Ptr Button) - - -scaleButtonGetMinusButton :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> m Button -- result -scaleButtonGetMinusButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_minus_button _obj' - checkUnexpectedReturnNULL "gtk_scale_button_get_minus_button" result - result' <- (newObject Button) result - touchManagedPtr _obj - return result' - -data ScaleButtonGetMinusButtonMethodInfo -instance (signature ~ (m Button), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetMinusButtonMethodInfo a signature where - overloadedMethod _ = scaleButtonGetMinusButton - --- method ScaleButton::get_plus_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Button") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_get_plus_button" gtk_scale_button_get_plus_button :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - IO (Ptr Button) - - -scaleButtonGetPlusButton :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> m Button -- result -scaleButtonGetPlusButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_plus_button _obj' - checkUnexpectedReturnNULL "gtk_scale_button_get_plus_button" result - result' <- (newObject Button) result - touchManagedPtr _obj - return result' - -data ScaleButtonGetPlusButtonMethodInfo -instance (signature ~ (m Button), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetPlusButtonMethodInfo a signature where - overloadedMethod _ = scaleButtonGetPlusButton - --- method ScaleButton::get_popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_get_popup" gtk_scale_button_get_popup :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - IO (Ptr Widget) - - -scaleButtonGetPopup :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> m Widget -- result -scaleButtonGetPopup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_popup _obj' - checkUnexpectedReturnNULL "gtk_scale_button_get_popup" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ScaleButtonGetPopupMethodInfo -instance (signature ~ (m Widget), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetPopupMethodInfo a signature where - overloadedMethod _ = scaleButtonGetPopup - --- method ScaleButton::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", 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 "gtk_scale_button_get_value" gtk_scale_button_get_value :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - IO CDouble - - -scaleButtonGetValue :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> m Double -- result -scaleButtonGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ScaleButtonGetValueMethodInfo -instance (signature ~ (m Double), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetValueMethodInfo a signature where - overloadedMethod _ = scaleButtonGetValue - --- method ScaleButton::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_scale_button_set_adjustment" gtk_scale_button_set_adjustment :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -scaleButtonSetAdjustment :: - (MonadIO m, ScaleButtonK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -scaleButtonSetAdjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_scale_button_set_adjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data ScaleButtonSetAdjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ScaleButtonK a, AdjustmentK b) => MethodInfo ScaleButtonSetAdjustmentMethodInfo a signature where - overloadedMethod _ = scaleButtonSetAdjustment - --- method ScaleButton::set_icons --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (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 "gtk_scale_button_set_icons" gtk_scale_button_set_icons :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - Ptr CString -> -- icons : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -scaleButtonSetIcons :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> [T.Text] -- icons - -> m () -- result -scaleButtonSetIcons _obj icons = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icons' <- packZeroTerminatedUTF8CArray icons - gtk_scale_button_set_icons _obj' icons' - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem icons' - freeMem icons' - return () - -data ScaleButtonSetIconsMethodInfo -instance (signature ~ ([T.Text] -> m ()), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonSetIconsMethodInfo a signature where - overloadedMethod _ = scaleButtonSetIcons - --- method ScaleButton::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_scale_button_set_value" gtk_scale_button_set_value :: - Ptr ScaleButton -> -- _obj : TInterface "Gtk" "ScaleButton" - CDouble -> -- value : TBasicType TDouble - IO () - - -scaleButtonSetValue :: - (MonadIO m, ScaleButtonK a) => - a -- _obj - -> Double -- value - -> m () -- result -scaleButtonSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_scale_button_set_value _obj' value' - touchManagedPtr _obj - return () - -data ScaleButtonSetValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonSetValueMethodInfo a signature where - overloadedMethod _ = scaleButtonSetValue - - diff --git a/GI/Gtk/Objects/ScaleButton.hs-boot b/GI/Gtk/Objects/ScaleButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleButton.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gtk.Objects.ScaleButton 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 ScaleButton = ScaleButton (ForeignPtr ScaleButton) -instance GObject ScaleButton where -class GObject o => ScaleButtonK o -instance (GObject o, IsDescendantOf ScaleButton o) => ScaleButtonK o -data ScaleButtonAdjustmentPropertyInfo -data ScaleButtonIconsPropertyInfo -data ScaleButtonSizePropertyInfo -data ScaleButtonValuePropertyInfo -data ScaleButtonPopdownSignalInfo -data ScaleButtonPopupSignalInfo -data ScaleButtonValueChangedSignalInfo -data ScaleButtonGetAdjustmentMethodInfo -data ScaleButtonGetMinusButtonMethodInfo -data ScaleButtonGetPlusButtonMethodInfo -data ScaleButtonGetPopupMethodInfo -data ScaleButtonGetValueMethodInfo -data ScaleButtonSetAdjustmentMethodInfo -data ScaleButtonSetIconsMethodInfo -data ScaleButtonSetValueMethodInfo diff --git a/GI/Gtk/Objects/ScaleButtonAccessible.hs b/GI/Gtk/Objects/ScaleButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleButtonAccessible.hs +++ /dev/null @@ -1,144 +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.Gtk.Objects.ScaleButtonAccessible - ( - --- * Exported types - ScaleButtonAccessible(..) , - ScaleButtonAccessibleK , - toScaleButtonAccessible , - noScaleButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ScaleButtonAccessible = ScaleButtonAccessible (ForeignPtr ScaleButtonAccessible) -foreign import ccall "gtk_scale_button_accessible_get_type" - c_gtk_scale_button_accessible_get_type :: IO GType - -type instance ParentTypes ScaleButtonAccessible = ScaleButtonAccessibleParentTypes -type ScaleButtonAccessibleParentTypes = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image, Atk.Value] - -instance GObject ScaleButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_scale_button_accessible_get_type - - -class GObject o => ScaleButtonAccessibleK o -instance (GObject o, IsDescendantOf ScaleButtonAccessible o) => ScaleButtonAccessibleK o - -toScaleButtonAccessible :: ScaleButtonAccessibleK o => o -> IO ScaleButtonAccessible -toScaleButtonAccessible = unsafeCastTo ScaleButtonAccessible - -noScaleButtonAccessible :: Maybe ScaleButtonAccessible -noScaleButtonAccessible = Nothing - -type family ResolveScaleButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveScaleButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveScaleButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScaleButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScaleButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveScaleButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveScaleButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveScaleButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScaleButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScaleButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveScaleButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveScaleButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScaleButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScaleButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScaleButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveScaleButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveScaleButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScaleButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveScaleButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveScaleButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveScaleButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScaleButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveScaleButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveScaleButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveScaleButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveScaleButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScaleButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScaleButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScaleButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScaleButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScaleButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScaleButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScaleButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScaleButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveScaleButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveScaleButtonAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveScaleButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScaleButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveScaleButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveScaleButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveScaleButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveScaleButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveScaleButtonAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveScaleButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveScaleButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveScaleButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveScaleButtonAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveScaleButtonAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveScaleButtonAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveScaleButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveScaleButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveScaleButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveScaleButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveScaleButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveScaleButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScaleButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScaleButtonAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveScaleButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveScaleButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveScaleButtonAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveScaleButtonAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveScaleButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveScaleButtonAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveScaleButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScaleButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveScaleButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveScaleButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveScaleButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveScaleButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveScaleButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScaleButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveScaleButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveScaleButtonAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveScaleButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveScaleButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, MethodInfo info ScaleButtonAccessible p) => IsLabelProxy t (ScaleButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, MethodInfo info ScaleButtonAccessible p) => IsLabel t (ScaleButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ScaleButtonAccessible = ScaleButtonAccessibleAttributeList -type ScaleButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScaleButtonAccessible = ScaleButtonAccessibleSignalList -type ScaleButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot b/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ScaleButtonAccessible 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 ScaleButtonAccessible = ScaleButtonAccessible (ForeignPtr ScaleButtonAccessible) -instance GObject ScaleButtonAccessible where -class GObject o => ScaleButtonAccessibleK o -instance (GObject o, IsDescendantOf ScaleButtonAccessible o) => ScaleButtonAccessibleK o diff --git a/GI/Gtk/Objects/Scrollbar.hs b/GI/Gtk/Objects/Scrollbar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Scrollbar.hs +++ /dev/null @@ -1,425 +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.Gtk.Objects.Scrollbar - ( - --- * Exported types - Scrollbar(..) , - ScrollbarK , - toScrollbar , - noScrollbar , - - - -- * Methods --- ** scrollbarNew - scrollbarNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Scrollbar = Scrollbar (ForeignPtr Scrollbar) -foreign import ccall "gtk_scrollbar_get_type" - c_gtk_scrollbar_get_type :: IO GType - -type instance ParentTypes Scrollbar = ScrollbarParentTypes -type ScrollbarParentTypes = '[Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Scrollbar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_scrollbar_get_type - - -class GObject o => ScrollbarK o -instance (GObject o, IsDescendantOf Scrollbar o) => ScrollbarK o - -toScrollbar :: ScrollbarK o => o -> IO Scrollbar -toScrollbar = unsafeCastTo Scrollbar - -noScrollbar :: Maybe Scrollbar -noScrollbar = Nothing - -type family ResolveScrollbarMethod (t :: Symbol) (o :: *) :: * where - ResolveScrollbarMethod "activate" o = WidgetActivateMethodInfo - ResolveScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveScrollbarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveScrollbarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveScrollbarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveScrollbarMethod "draw" o = WidgetDrawMethodInfo - ResolveScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveScrollbarMethod "event" o = WidgetEventMethodInfo - ResolveScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveScrollbarMethod "hide" o = WidgetHideMethodInfo - ResolveScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveScrollbarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveScrollbarMethod "map" o = WidgetMapMethodInfo - ResolveScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveScrollbarMethod "path" o = WidgetPathMethodInfo - ResolveScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveScrollbarMethod "realize" o = WidgetRealizeMethodInfo - ResolveScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveScrollbarMethod "reparent" o = WidgetReparentMethodInfo - ResolveScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveScrollbarMethod "show" o = WidgetShowMethodInfo - ResolveScrollbarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveScrollbarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveScrollbarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveScrollbarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveScrollbarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveScrollbarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveScrollbarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveScrollbarMethod "getState" o = WidgetGetStateMethodInfo - ResolveScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveScrollbarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveScrollbarMethod "getValue" o = RangeGetValueMethodInfo - ResolveScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveScrollbarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveScrollbarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScrollbarMethod "setRange" o = RangeSetRangeMethodInfo - ResolveScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveScrollbarMethod "setState" o = WidgetSetStateMethodInfo - ResolveScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveScrollbarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveScrollbarMethod "setValue" o = RangeSetValueMethodInfo - ResolveScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveScrollbarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScrollbarMethod t Scrollbar, MethodInfo info Scrollbar p) => IsLabelProxy t (Scrollbar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScrollbarMethod t Scrollbar, MethodInfo info Scrollbar p) => IsLabel t (Scrollbar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Scrollbar = ScrollbarAttributeList -type ScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Scrollbar = ScrollbarSignalList -type ScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Scrollbar::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Scrollbar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrollbar_new" gtk_scrollbar_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr Scrollbar) - - -scrollbarNew :: - (MonadIO m, AdjustmentK a) => - Orientation -- orientation - -> Maybe (a) -- adjustment - -> m Scrollbar -- result -scrollbarNew orientation adjustment = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - result <- gtk_scrollbar_new orientation' maybeAdjustment - checkUnexpectedReturnNULL "gtk_scrollbar_new" result - result' <- (newObject Scrollbar) result - whenJust adjustment touchManagedPtr - return result' - - diff --git a/GI/Gtk/Objects/Scrollbar.hs-boot b/GI/Gtk/Objects/Scrollbar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Scrollbar.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.Scrollbar 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 Scrollbar = Scrollbar (ForeignPtr Scrollbar) -instance GObject Scrollbar where -class GObject o => ScrollbarK o -instance (GObject o, IsDescendantOf Scrollbar o) => ScrollbarK o diff --git a/GI/Gtk/Objects/ScrolledWindow.hs b/GI/Gtk/Objects/ScrolledWindow.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ScrolledWindow.hs +++ /dev/null @@ -1,1934 +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.Gtk.Objects.ScrolledWindow - ( - --- * Exported types - ScrolledWindow(..) , - ScrolledWindowK , - toScrolledWindow , - noScrolledWindow , - - - -- * Methods --- ** scrolledWindowAddWithViewport - ScrolledWindowAddWithViewportMethodInfo , - scrolledWindowAddWithViewport , - - --- ** scrolledWindowGetCaptureButtonPress - ScrolledWindowGetCaptureButtonPressMethodInfo, - scrolledWindowGetCaptureButtonPress , - - --- ** scrolledWindowGetHadjustment - ScrolledWindowGetHadjustmentMethodInfo , - scrolledWindowGetHadjustment , - - --- ** scrolledWindowGetHscrollbar - ScrolledWindowGetHscrollbarMethodInfo , - scrolledWindowGetHscrollbar , - - --- ** scrolledWindowGetKineticScrolling - ScrolledWindowGetKineticScrollingMethodInfo, - scrolledWindowGetKineticScrolling , - - --- ** scrolledWindowGetMinContentHeight - ScrolledWindowGetMinContentHeightMethodInfo, - scrolledWindowGetMinContentHeight , - - --- ** scrolledWindowGetMinContentWidth - ScrolledWindowGetMinContentWidthMethodInfo, - scrolledWindowGetMinContentWidth , - - --- ** scrolledWindowGetOverlayScrolling - ScrolledWindowGetOverlayScrollingMethodInfo, - scrolledWindowGetOverlayScrolling , - - --- ** scrolledWindowGetPlacement - ScrolledWindowGetPlacementMethodInfo , - scrolledWindowGetPlacement , - - --- ** scrolledWindowGetPolicy - ScrolledWindowGetPolicyMethodInfo , - scrolledWindowGetPolicy , - - --- ** scrolledWindowGetShadowType - ScrolledWindowGetShadowTypeMethodInfo , - scrolledWindowGetShadowType , - - --- ** scrolledWindowGetVadjustment - ScrolledWindowGetVadjustmentMethodInfo , - scrolledWindowGetVadjustment , - - --- ** scrolledWindowGetVscrollbar - ScrolledWindowGetVscrollbarMethodInfo , - scrolledWindowGetVscrollbar , - - --- ** scrolledWindowNew - scrolledWindowNew , - - --- ** scrolledWindowSetCaptureButtonPress - ScrolledWindowSetCaptureButtonPressMethodInfo, - scrolledWindowSetCaptureButtonPress , - - --- ** scrolledWindowSetHadjustment - ScrolledWindowSetHadjustmentMethodInfo , - scrolledWindowSetHadjustment , - - --- ** scrolledWindowSetKineticScrolling - ScrolledWindowSetKineticScrollingMethodInfo, - scrolledWindowSetKineticScrolling , - - --- ** scrolledWindowSetMinContentHeight - ScrolledWindowSetMinContentHeightMethodInfo, - scrolledWindowSetMinContentHeight , - - --- ** scrolledWindowSetMinContentWidth - ScrolledWindowSetMinContentWidthMethodInfo, - scrolledWindowSetMinContentWidth , - - --- ** scrolledWindowSetOverlayScrolling - ScrolledWindowSetOverlayScrollingMethodInfo, - scrolledWindowSetOverlayScrolling , - - --- ** scrolledWindowSetPlacement - ScrolledWindowSetPlacementMethodInfo , - scrolledWindowSetPlacement , - - --- ** scrolledWindowSetPolicy - ScrolledWindowSetPolicyMethodInfo , - scrolledWindowSetPolicy , - - --- ** scrolledWindowSetShadowType - ScrolledWindowSetShadowTypeMethodInfo , - scrolledWindowSetShadowType , - - --- ** scrolledWindowSetVadjustment - ScrolledWindowSetVadjustmentMethodInfo , - scrolledWindowSetVadjustment , - - --- ** scrolledWindowUnsetPlacement - ScrolledWindowUnsetPlacementMethodInfo , - scrolledWindowUnsetPlacement , - - - - - -- * Properties --- ** Hadjustment - ScrolledWindowHadjustmentPropertyInfo , - constructScrolledWindowHadjustment , - getScrolledWindowHadjustment , - scrolledWindowHadjustment , - setScrolledWindowHadjustment , - - --- ** HscrollbarPolicy - ScrolledWindowHscrollbarPolicyPropertyInfo, - constructScrolledWindowHscrollbarPolicy , - getScrolledWindowHscrollbarPolicy , - scrolledWindowHscrollbarPolicy , - setScrolledWindowHscrollbarPolicy , - - --- ** KineticScrolling - ScrolledWindowKineticScrollingPropertyInfo, - constructScrolledWindowKineticScrolling , - getScrolledWindowKineticScrolling , - scrolledWindowKineticScrolling , - setScrolledWindowKineticScrolling , - - --- ** MinContentHeight - ScrolledWindowMinContentHeightPropertyInfo, - constructScrolledWindowMinContentHeight , - getScrolledWindowMinContentHeight , - scrolledWindowMinContentHeight , - setScrolledWindowMinContentHeight , - - --- ** MinContentWidth - ScrolledWindowMinContentWidthPropertyInfo, - constructScrolledWindowMinContentWidth , - getScrolledWindowMinContentWidth , - scrolledWindowMinContentWidth , - setScrolledWindowMinContentWidth , - - --- ** OverlayScrolling - ScrolledWindowOverlayScrollingPropertyInfo, - constructScrolledWindowOverlayScrolling , - getScrolledWindowOverlayScrolling , - scrolledWindowOverlayScrolling , - setScrolledWindowOverlayScrolling , - - --- ** ShadowType - ScrolledWindowShadowTypePropertyInfo , - constructScrolledWindowShadowType , - getScrolledWindowShadowType , - scrolledWindowShadowType , - setScrolledWindowShadowType , - - --- ** Vadjustment - ScrolledWindowVadjustmentPropertyInfo , - constructScrolledWindowVadjustment , - getScrolledWindowVadjustment , - scrolledWindowVadjustment , - setScrolledWindowVadjustment , - - --- ** VscrollbarPolicy - ScrolledWindowVscrollbarPolicyPropertyInfo, - constructScrolledWindowVscrollbarPolicy , - getScrolledWindowVscrollbarPolicy , - scrolledWindowVscrollbarPolicy , - setScrolledWindowVscrollbarPolicy , - - --- ** WindowPlacement - ScrolledWindowWindowPlacementPropertyInfo, - constructScrolledWindowWindowPlacement , - getScrolledWindowWindowPlacement , - scrolledWindowWindowPlacement , - setScrolledWindowWindowPlacement , - - --- ** WindowPlacementSet - ScrolledWindowWindowPlacementSetPropertyInfo, - constructScrolledWindowWindowPlacementSet, - getScrolledWindowWindowPlacementSet , - scrolledWindowWindowPlacementSet , - setScrolledWindowWindowPlacementSet , - - - - - -- * Signals --- ** EdgeOvershot - ScrolledWindowEdgeOvershotCallback , - ScrolledWindowEdgeOvershotCallbackC , - ScrolledWindowEdgeOvershotSignalInfo , - afterScrolledWindowEdgeOvershot , - mkScrolledWindowEdgeOvershotCallback , - noScrolledWindowEdgeOvershotCallback , - onScrolledWindowEdgeOvershot , - scrolledWindowEdgeOvershotCallbackWrapper, - scrolledWindowEdgeOvershotClosure , - - --- ** EdgeReached - ScrolledWindowEdgeReachedCallback , - ScrolledWindowEdgeReachedCallbackC , - ScrolledWindowEdgeReachedSignalInfo , - afterScrolledWindowEdgeReached , - mkScrolledWindowEdgeReachedCallback , - noScrolledWindowEdgeReachedCallback , - onScrolledWindowEdgeReached , - scrolledWindowEdgeReachedCallbackWrapper, - scrolledWindowEdgeReachedClosure , - - --- ** MoveFocusOut - ScrolledWindowMoveFocusOutCallback , - ScrolledWindowMoveFocusOutCallbackC , - ScrolledWindowMoveFocusOutSignalInfo , - afterScrolledWindowMoveFocusOut , - mkScrolledWindowMoveFocusOutCallback , - noScrolledWindowMoveFocusOutCallback , - onScrolledWindowMoveFocusOut , - scrolledWindowMoveFocusOutCallbackWrapper, - scrolledWindowMoveFocusOutClosure , - - --- ** ScrollChild - ScrolledWindowScrollChildCallback , - ScrolledWindowScrollChildCallbackC , - ScrolledWindowScrollChildSignalInfo , - afterScrolledWindowScrollChild , - mkScrolledWindowScrollChildCallback , - noScrolledWindowScrollChildCallback , - onScrolledWindowScrollChild , - scrolledWindowScrollChildCallbackWrapper, - scrolledWindowScrollChildClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ScrolledWindow = ScrolledWindow (ForeignPtr ScrolledWindow) -foreign import ccall "gtk_scrolled_window_get_type" - c_gtk_scrolled_window_get_type :: IO GType - -type instance ParentTypes ScrolledWindow = ScrolledWindowParentTypes -type ScrolledWindowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject ScrolledWindow where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_scrolled_window_get_type - - -class GObject o => ScrolledWindowK o -instance (GObject o, IsDescendantOf ScrolledWindow o) => ScrolledWindowK o - -toScrolledWindow :: ScrolledWindowK o => o -> IO ScrolledWindow -toScrolledWindow = unsafeCastTo ScrolledWindow - -noScrolledWindow :: Maybe ScrolledWindow -noScrolledWindow = Nothing - -type family ResolveScrolledWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveScrolledWindowMethod "activate" o = WidgetActivateMethodInfo - ResolveScrolledWindowMethod "add" o = ContainerAddMethodInfo - ResolveScrolledWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveScrolledWindowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveScrolledWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveScrolledWindowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveScrolledWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveScrolledWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveScrolledWindowMethod "addWithViewport" o = ScrolledWindowAddWithViewportMethodInfo - ResolveScrolledWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScrolledWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScrolledWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveScrolledWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveScrolledWindowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveScrolledWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveScrolledWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveScrolledWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveScrolledWindowMethod "childType" o = ContainerChildTypeMethodInfo - ResolveScrolledWindowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveScrolledWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveScrolledWindowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveScrolledWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveScrolledWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveScrolledWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveScrolledWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveScrolledWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveScrolledWindowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveScrolledWindowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveScrolledWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveScrolledWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveScrolledWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveScrolledWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveScrolledWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveScrolledWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveScrolledWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveScrolledWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveScrolledWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveScrolledWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveScrolledWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveScrolledWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveScrolledWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveScrolledWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveScrolledWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveScrolledWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveScrolledWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveScrolledWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveScrolledWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveScrolledWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveScrolledWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveScrolledWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveScrolledWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveScrolledWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveScrolledWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveScrolledWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveScrolledWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveScrolledWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveScrolledWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveScrolledWindowMethod "draw" o = WidgetDrawMethodInfo - ResolveScrolledWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveScrolledWindowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveScrolledWindowMethod "event" o = WidgetEventMethodInfo - ResolveScrolledWindowMethod "forall" o = ContainerForallMethodInfo - ResolveScrolledWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScrolledWindowMethod "foreach" o = ContainerForeachMethodInfo - ResolveScrolledWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveScrolledWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScrolledWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveScrolledWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveScrolledWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveScrolledWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveScrolledWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveScrolledWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveScrolledWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveScrolledWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveScrolledWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveScrolledWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveScrolledWindowMethod "hide" o = WidgetHideMethodInfo - ResolveScrolledWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveScrolledWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveScrolledWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveScrolledWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveScrolledWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveScrolledWindowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveScrolledWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveScrolledWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveScrolledWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveScrolledWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScrolledWindowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveScrolledWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveScrolledWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveScrolledWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveScrolledWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveScrolledWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveScrolledWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveScrolledWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveScrolledWindowMethod "map" o = WidgetMapMethodInfo - ResolveScrolledWindowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveScrolledWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveScrolledWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveScrolledWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveScrolledWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveScrolledWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveScrolledWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveScrolledWindowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveScrolledWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScrolledWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScrolledWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveScrolledWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveScrolledWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveScrolledWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveScrolledWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveScrolledWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveScrolledWindowMethod "path" o = WidgetPathMethodInfo - ResolveScrolledWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveScrolledWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveScrolledWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveScrolledWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveScrolledWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveScrolledWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveScrolledWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveScrolledWindowMethod "realize" o = WidgetRealizeMethodInfo - ResolveScrolledWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScrolledWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScrolledWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveScrolledWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveScrolledWindowMethod "remove" o = ContainerRemoveMethodInfo - ResolveScrolledWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveScrolledWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveScrolledWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveScrolledWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveScrolledWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveScrolledWindowMethod "reparent" o = WidgetReparentMethodInfo - ResolveScrolledWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScrolledWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScrolledWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveScrolledWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveScrolledWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveScrolledWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScrolledWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveScrolledWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveScrolledWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveScrolledWindowMethod "show" o = WidgetShowMethodInfo - ResolveScrolledWindowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveScrolledWindowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveScrolledWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveScrolledWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveScrolledWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveScrolledWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScrolledWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScrolledWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveScrolledWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveScrolledWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveScrolledWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScrolledWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveScrolledWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveScrolledWindowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveScrolledWindowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveScrolledWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveScrolledWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScrolledWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveScrolledWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveScrolledWindowMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo - ResolveScrolledWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveScrolledWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScrolledWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveScrolledWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveScrolledWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveScrolledWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveScrolledWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveScrolledWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveScrolledWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveScrolledWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveScrolledWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveScrolledWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveScrolledWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveScrolledWindowMethod "getCaptureButtonPress" o = ScrolledWindowGetCaptureButtonPressMethodInfo - ResolveScrolledWindowMethod "getChild" o = BinGetChildMethodInfo - ResolveScrolledWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveScrolledWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveScrolledWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveScrolledWindowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveScrolledWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveScrolledWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveScrolledWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScrolledWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveScrolledWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveScrolledWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveScrolledWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveScrolledWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveScrolledWindowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveScrolledWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveScrolledWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveScrolledWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveScrolledWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveScrolledWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveScrolledWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveScrolledWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveScrolledWindowMethod "getHadjustment" o = ScrolledWindowGetHadjustmentMethodInfo - ResolveScrolledWindowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveScrolledWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveScrolledWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveScrolledWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveScrolledWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveScrolledWindowMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo - ResolveScrolledWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveScrolledWindowMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo - ResolveScrolledWindowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveScrolledWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveScrolledWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveScrolledWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveScrolledWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveScrolledWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveScrolledWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveScrolledWindowMethod "getMinContentHeight" o = ScrolledWindowGetMinContentHeightMethodInfo - ResolveScrolledWindowMethod "getMinContentWidth" o = ScrolledWindowGetMinContentWidthMethodInfo - ResolveScrolledWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveScrolledWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveScrolledWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveScrolledWindowMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveScrolledWindowMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo - ResolveScrolledWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveScrolledWindowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveScrolledWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveScrolledWindowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveScrolledWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveScrolledWindowMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo - ResolveScrolledWindowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveScrolledWindowMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo - ResolveScrolledWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveScrolledWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveScrolledWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveScrolledWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveScrolledWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveScrolledWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveScrolledWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScrolledWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScrolledWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveScrolledWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveScrolledWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveScrolledWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveScrolledWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveScrolledWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveScrolledWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveScrolledWindowMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveScrolledWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveScrolledWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveScrolledWindowMethod "getShadowType" o = ScrolledWindowGetShadowTypeMethodInfo - ResolveScrolledWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveScrolledWindowMethod "getState" o = WidgetGetStateMethodInfo - ResolveScrolledWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveScrolledWindowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveScrolledWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveScrolledWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveScrolledWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveScrolledWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveScrolledWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveScrolledWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveScrolledWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveScrolledWindowMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo - ResolveScrolledWindowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveScrolledWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveScrolledWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveScrolledWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveScrolledWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveScrolledWindowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveScrolledWindowMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo - ResolveScrolledWindowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveScrolledWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveScrolledWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveScrolledWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveScrolledWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveScrolledWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveScrolledWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveScrolledWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveScrolledWindowMethod "setCaptureButtonPress" o = ScrolledWindowSetCaptureButtonPressMethodInfo - ResolveScrolledWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveScrolledWindowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveScrolledWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveScrolledWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScrolledWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveScrolledWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveScrolledWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveScrolledWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveScrolledWindowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveScrolledWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveScrolledWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveScrolledWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveScrolledWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveScrolledWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveScrolledWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveScrolledWindowMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo - ResolveScrolledWindowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveScrolledWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveScrolledWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveScrolledWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveScrolledWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveScrolledWindowMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo - ResolveScrolledWindowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveScrolledWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveScrolledWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveScrolledWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveScrolledWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveScrolledWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveScrolledWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveScrolledWindowMethod "setMinContentHeight" o = ScrolledWindowSetMinContentHeightMethodInfo - ResolveScrolledWindowMethod "setMinContentWidth" o = ScrolledWindowSetMinContentWidthMethodInfo - ResolveScrolledWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveScrolledWindowMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveScrolledWindowMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo - ResolveScrolledWindowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveScrolledWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveScrolledWindowMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo - ResolveScrolledWindowMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo - ResolveScrolledWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScrolledWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveScrolledWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveScrolledWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveScrolledWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveScrolledWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveScrolledWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveScrolledWindowMethod "setShadowType" o = ScrolledWindowSetShadowTypeMethodInfo - ResolveScrolledWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveScrolledWindowMethod "setState" o = WidgetSetStateMethodInfo - ResolveScrolledWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveScrolledWindowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveScrolledWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveScrolledWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveScrolledWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveScrolledWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveScrolledWindowMethod "setVadjustment" o = ScrolledWindowSetVadjustmentMethodInfo - ResolveScrolledWindowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveScrolledWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveScrolledWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveScrolledWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveScrolledWindowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveScrolledWindowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveScrolledWindowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, MethodInfo info ScrolledWindow p) => IsLabelProxy t (ScrolledWindow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, MethodInfo info ScrolledWindow p) => IsLabel t (ScrolledWindow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ScrolledWindow::edge-overshot -type ScrolledWindowEdgeOvershotCallback = - PositionType -> - IO () - -noScrolledWindowEdgeOvershotCallback :: Maybe ScrolledWindowEdgeOvershotCallback -noScrolledWindowEdgeOvershotCallback = Nothing - -type ScrolledWindowEdgeOvershotCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScrolledWindowEdgeOvershotCallback :: ScrolledWindowEdgeOvershotCallbackC -> IO (FunPtr ScrolledWindowEdgeOvershotCallbackC) - -scrolledWindowEdgeOvershotClosure :: ScrolledWindowEdgeOvershotCallback -> IO Closure -scrolledWindowEdgeOvershotClosure cb = newCClosure =<< mkScrolledWindowEdgeOvershotCallback wrapped - where wrapped = scrolledWindowEdgeOvershotCallbackWrapper cb - -scrolledWindowEdgeOvershotCallbackWrapper :: - ScrolledWindowEdgeOvershotCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -scrolledWindowEdgeOvershotCallbackWrapper _cb _ pos _ = do - let pos' = (toEnum . fromIntegral) pos - _cb pos' - -onScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId -onScrolledWindowEdgeOvershot obj cb = liftIO $ connectScrolledWindowEdgeOvershot obj cb SignalConnectBefore -afterScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId -afterScrolledWindowEdgeOvershot obj cb = connectScrolledWindowEdgeOvershot obj cb SignalConnectAfter - -connectScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => - a -> ScrolledWindowEdgeOvershotCallback -> SignalConnectMode -> m SignalHandlerId -connectScrolledWindowEdgeOvershot obj cb after = liftIO $ do - cb' <- mkScrolledWindowEdgeOvershotCallback (scrolledWindowEdgeOvershotCallbackWrapper cb) - connectSignalFunPtr obj "edge-overshot" cb' after - --- signal ScrolledWindow::edge-reached -type ScrolledWindowEdgeReachedCallback = - PositionType -> - IO () - -noScrolledWindowEdgeReachedCallback :: Maybe ScrolledWindowEdgeReachedCallback -noScrolledWindowEdgeReachedCallback = Nothing - -type ScrolledWindowEdgeReachedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScrolledWindowEdgeReachedCallback :: ScrolledWindowEdgeReachedCallbackC -> IO (FunPtr ScrolledWindowEdgeReachedCallbackC) - -scrolledWindowEdgeReachedClosure :: ScrolledWindowEdgeReachedCallback -> IO Closure -scrolledWindowEdgeReachedClosure cb = newCClosure =<< mkScrolledWindowEdgeReachedCallback wrapped - where wrapped = scrolledWindowEdgeReachedCallbackWrapper cb - -scrolledWindowEdgeReachedCallbackWrapper :: - ScrolledWindowEdgeReachedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -scrolledWindowEdgeReachedCallbackWrapper _cb _ pos _ = do - let pos' = (toEnum . fromIntegral) pos - _cb pos' - -onScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId -onScrolledWindowEdgeReached obj cb = liftIO $ connectScrolledWindowEdgeReached obj cb SignalConnectBefore -afterScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId -afterScrolledWindowEdgeReached obj cb = connectScrolledWindowEdgeReached obj cb SignalConnectAfter - -connectScrolledWindowEdgeReached :: (GObject a, MonadIO m) => - a -> ScrolledWindowEdgeReachedCallback -> SignalConnectMode -> m SignalHandlerId -connectScrolledWindowEdgeReached obj cb after = liftIO $ do - cb' <- mkScrolledWindowEdgeReachedCallback (scrolledWindowEdgeReachedCallbackWrapper cb) - connectSignalFunPtr obj "edge-reached" cb' after - --- signal ScrolledWindow::move-focus-out -type ScrolledWindowMoveFocusOutCallback = - DirectionType -> - IO () - -noScrolledWindowMoveFocusOutCallback :: Maybe ScrolledWindowMoveFocusOutCallback -noScrolledWindowMoveFocusOutCallback = Nothing - -type ScrolledWindowMoveFocusOutCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScrolledWindowMoveFocusOutCallback :: ScrolledWindowMoveFocusOutCallbackC -> IO (FunPtr ScrolledWindowMoveFocusOutCallbackC) - -scrolledWindowMoveFocusOutClosure :: ScrolledWindowMoveFocusOutCallback -> IO Closure -scrolledWindowMoveFocusOutClosure cb = newCClosure =<< mkScrolledWindowMoveFocusOutCallback wrapped - where wrapped = scrolledWindowMoveFocusOutCallbackWrapper cb - -scrolledWindowMoveFocusOutCallbackWrapper :: - ScrolledWindowMoveFocusOutCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -scrolledWindowMoveFocusOutCallbackWrapper _cb _ directionType _ = do - let directionType' = (toEnum . fromIntegral) directionType - _cb directionType' - -onScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId -onScrolledWindowMoveFocusOut obj cb = liftIO $ connectScrolledWindowMoveFocusOut obj cb SignalConnectBefore -afterScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId -afterScrolledWindowMoveFocusOut obj cb = connectScrolledWindowMoveFocusOut obj cb SignalConnectAfter - -connectScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => - a -> ScrolledWindowMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId -connectScrolledWindowMoveFocusOut obj cb after = liftIO $ do - cb' <- mkScrolledWindowMoveFocusOutCallback (scrolledWindowMoveFocusOutCallbackWrapper cb) - connectSignalFunPtr obj "move-focus-out" cb' after - --- signal ScrolledWindow::scroll-child -type ScrolledWindowScrollChildCallback = - ScrollType -> - Bool -> - IO Bool - -noScrolledWindowScrollChildCallback :: Maybe ScrolledWindowScrollChildCallback -noScrolledWindowScrollChildCallback = Nothing - -type ScrolledWindowScrollChildCallbackC = - Ptr () -> -- object - CUInt -> - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkScrolledWindowScrollChildCallback :: ScrolledWindowScrollChildCallbackC -> IO (FunPtr ScrolledWindowScrollChildCallbackC) - -scrolledWindowScrollChildClosure :: ScrolledWindowScrollChildCallback -> IO Closure -scrolledWindowScrollChildClosure cb = newCClosure =<< mkScrolledWindowScrollChildCallback wrapped - where wrapped = scrolledWindowScrollChildCallbackWrapper cb - -scrolledWindowScrollChildCallbackWrapper :: - ScrolledWindowScrollChildCallback -> - Ptr () -> - CUInt -> - CInt -> - Ptr () -> - IO CInt -scrolledWindowScrollChildCallbackWrapper _cb _ scroll horizontal _ = do - let scroll' = (toEnum . fromIntegral) scroll - let horizontal' = (/= 0) horizontal - result <- _cb scroll' horizontal' - let result' = (fromIntegral . fromEnum) result - return result' - -onScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId -onScrolledWindowScrollChild obj cb = liftIO $ connectScrolledWindowScrollChild obj cb SignalConnectBefore -afterScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId -afterScrolledWindowScrollChild obj cb = connectScrolledWindowScrollChild obj cb SignalConnectAfter - -connectScrolledWindowScrollChild :: (GObject a, MonadIO m) => - a -> ScrolledWindowScrollChildCallback -> SignalConnectMode -> m SignalHandlerId -connectScrolledWindowScrollChild obj cb after = liftIO $ do - cb' <- mkScrolledWindowScrollChildCallback (scrolledWindowScrollChildCallbackWrapper cb) - connectSignalFunPtr obj "scroll-child" cb' after - --- VVV Prop "hadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowHadjustment obj = liftIO $ checkUnexpectedNothing "getScrolledWindowHadjustment" $ getObjectPropertyObject obj "hadjustment" Adjustment - -setScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" (Just val) - -constructScrolledWindowHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" (Just val) - -data ScrolledWindowHadjustmentPropertyInfo -instance AttrInfo ScrolledWindowHadjustmentPropertyInfo where - type AttrAllowedOps ScrolledWindowHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowHadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrolledWindowHadjustmentPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowHadjustmentPropertyInfo = Adjustment - type AttrLabel ScrolledWindowHadjustmentPropertyInfo = "hadjustment" - attrGet _ = getScrolledWindowHadjustment - attrSet _ = setScrolledWindowHadjustment - attrConstruct _ = constructScrolledWindowHadjustment - attrClear _ = undefined - --- VVV Prop "hscrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScrolledWindowHscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType -getScrolledWindowHscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "hscrollbar-policy" - -setScrolledWindowHscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> PolicyType -> m () -setScrolledWindowHscrollbarPolicy obj val = liftIO $ setObjectPropertyEnum obj "hscrollbar-policy" val - -constructScrolledWindowHscrollbarPolicy :: PolicyType -> IO ([Char], GValue) -constructScrolledWindowHscrollbarPolicy val = constructObjectPropertyEnum "hscrollbar-policy" val - -data ScrolledWindowHscrollbarPolicyPropertyInfo -instance AttrInfo ScrolledWindowHscrollbarPolicyPropertyInfo where - type AttrAllowedOps ScrolledWindowHscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = (~) PolicyType - type AttrBaseTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowHscrollbarPolicyPropertyInfo = PolicyType - type AttrLabel ScrolledWindowHscrollbarPolicyPropertyInfo = "hscrollbar-policy" - attrGet _ = getScrolledWindowHscrollbarPolicy - attrSet _ = setScrolledWindowHscrollbarPolicy - attrConstruct _ = constructScrolledWindowHscrollbarPolicy - attrClear _ = undefined - --- VVV Prop "kinetic-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrolledWindowKineticScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool -getScrolledWindowKineticScrolling obj = liftIO $ getObjectPropertyBool obj "kinetic-scrolling" - -setScrolledWindowKineticScrolling :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m () -setScrolledWindowKineticScrolling obj val = liftIO $ setObjectPropertyBool obj "kinetic-scrolling" val - -constructScrolledWindowKineticScrolling :: Bool -> IO ([Char], GValue) -constructScrolledWindowKineticScrolling val = constructObjectPropertyBool "kinetic-scrolling" val - -data ScrolledWindowKineticScrollingPropertyInfo -instance AttrInfo ScrolledWindowKineticScrollingPropertyInfo where - type AttrAllowedOps ScrolledWindowKineticScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowKineticScrollingPropertyInfo = Bool - type AttrLabel ScrolledWindowKineticScrollingPropertyInfo = "kinetic-scrolling" - attrGet _ = getScrolledWindowKineticScrolling - attrSet _ = setScrolledWindowKineticScrolling - attrConstruct _ = constructScrolledWindowKineticScrolling - attrClear _ = undefined - --- VVV Prop "min-content-height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyInt32 obj "min-content-height" - -setScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyInt32 obj "min-content-height" val - -constructScrolledWindowMinContentHeight :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentHeight val = constructObjectPropertyInt32 "min-content-height" val - -data ScrolledWindowMinContentHeightPropertyInfo -instance AttrInfo ScrolledWindowMinContentHeightPropertyInfo where - type AttrAllowedOps ScrolledWindowMinContentHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowMinContentHeightPropertyInfo = Int32 - type AttrLabel ScrolledWindowMinContentHeightPropertyInfo = "min-content-height" - attrGet _ = getScrolledWindowMinContentHeight - attrSet _ = setScrolledWindowMinContentHeight - attrConstruct _ = constructScrolledWindowMinContentHeight - attrClear _ = undefined - --- VVV Prop "min-content-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyInt32 obj "min-content-width" - -setScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-content-width" val - -constructScrolledWindowMinContentWidth :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentWidth val = constructObjectPropertyInt32 "min-content-width" val - -data ScrolledWindowMinContentWidthPropertyInfo -instance AttrInfo ScrolledWindowMinContentWidthPropertyInfo where - type AttrAllowedOps ScrolledWindowMinContentWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowMinContentWidthPropertyInfo = Int32 - type AttrLabel ScrolledWindowMinContentWidthPropertyInfo = "min-content-width" - attrGet _ = getScrolledWindowMinContentWidth - attrSet _ = setScrolledWindowMinContentWidth - attrConstruct _ = constructScrolledWindowMinContentWidth - attrClear _ = undefined - --- VVV Prop "overlay-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrolledWindowOverlayScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool -getScrolledWindowOverlayScrolling obj = liftIO $ getObjectPropertyBool obj "overlay-scrolling" - -setScrolledWindowOverlayScrolling :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m () -setScrolledWindowOverlayScrolling obj val = liftIO $ setObjectPropertyBool obj "overlay-scrolling" val - -constructScrolledWindowOverlayScrolling :: Bool -> IO ([Char], GValue) -constructScrolledWindowOverlayScrolling val = constructObjectPropertyBool "overlay-scrolling" val - -data ScrolledWindowOverlayScrollingPropertyInfo -instance AttrInfo ScrolledWindowOverlayScrollingPropertyInfo where - type AttrAllowedOps ScrolledWindowOverlayScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowOverlayScrollingPropertyInfo = Bool - type AttrLabel ScrolledWindowOverlayScrollingPropertyInfo = "overlay-scrolling" - attrGet _ = getScrolledWindowOverlayScrolling - attrSet _ = setScrolledWindowOverlayScrolling - attrConstruct _ = constructScrolledWindowOverlayScrolling - attrClear _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScrolledWindowShadowType :: (MonadIO m, ScrolledWindowK o) => o -> m ShadowType -getScrolledWindowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setScrolledWindowShadowType :: (MonadIO m, ScrolledWindowK o) => o -> ShadowType -> m () -setScrolledWindowShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructScrolledWindowShadowType :: ShadowType -> IO ([Char], GValue) -constructScrolledWindowShadowType val = constructObjectPropertyEnum "shadow-type" val - -data ScrolledWindowShadowTypePropertyInfo -instance AttrInfo ScrolledWindowShadowTypePropertyInfo where - type AttrAllowedOps ScrolledWindowShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint ScrolledWindowShadowTypePropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowShadowTypePropertyInfo = ShadowType - type AttrLabel ScrolledWindowShadowTypePropertyInfo = "shadow-type" - attrGet _ = getScrolledWindowShadowType - attrSet _ = setScrolledWindowShadowType - attrConstruct _ = constructScrolledWindowShadowType - attrClear _ = undefined - --- VVV Prop "vadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowVadjustment obj = liftIO $ checkUnexpectedNothing "getScrolledWindowVadjustment" $ getObjectPropertyObject obj "vadjustment" Adjustment - -setScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" (Just val) - -constructScrolledWindowVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" (Just val) - -data ScrolledWindowVadjustmentPropertyInfo -instance AttrInfo ScrolledWindowVadjustmentPropertyInfo where - type AttrAllowedOps ScrolledWindowVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowVadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrolledWindowVadjustmentPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowVadjustmentPropertyInfo = Adjustment - type AttrLabel ScrolledWindowVadjustmentPropertyInfo = "vadjustment" - attrGet _ = getScrolledWindowVadjustment - attrSet _ = setScrolledWindowVadjustment - attrConstruct _ = constructScrolledWindowVadjustment - attrClear _ = undefined - --- VVV Prop "vscrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScrolledWindowVscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType -getScrolledWindowVscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vscrollbar-policy" - -setScrolledWindowVscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> PolicyType -> m () -setScrolledWindowVscrollbarPolicy obj val = liftIO $ setObjectPropertyEnum obj "vscrollbar-policy" val - -constructScrolledWindowVscrollbarPolicy :: PolicyType -> IO ([Char], GValue) -constructScrolledWindowVscrollbarPolicy val = constructObjectPropertyEnum "vscrollbar-policy" val - -data ScrolledWindowVscrollbarPolicyPropertyInfo -instance AttrInfo ScrolledWindowVscrollbarPolicyPropertyInfo where - type AttrAllowedOps ScrolledWindowVscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = (~) PolicyType - type AttrBaseTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowVscrollbarPolicyPropertyInfo = PolicyType - type AttrLabel ScrolledWindowVscrollbarPolicyPropertyInfo = "vscrollbar-policy" - attrGet _ = getScrolledWindowVscrollbarPolicy - attrSet _ = setScrolledWindowVscrollbarPolicy - attrConstruct _ = constructScrolledWindowVscrollbarPolicy - attrClear _ = undefined - --- VVV Prop "window-placement" - -- Type: TInterface "Gtk" "CornerType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScrolledWindowWindowPlacement :: (MonadIO m, ScrolledWindowK o) => o -> m CornerType -getScrolledWindowWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "window-placement" - -setScrolledWindowWindowPlacement :: (MonadIO m, ScrolledWindowK o) => o -> CornerType -> m () -setScrolledWindowWindowPlacement obj val = liftIO $ setObjectPropertyEnum obj "window-placement" val - -constructScrolledWindowWindowPlacement :: CornerType -> IO ([Char], GValue) -constructScrolledWindowWindowPlacement val = constructObjectPropertyEnum "window-placement" val - -data ScrolledWindowWindowPlacementPropertyInfo -instance AttrInfo ScrolledWindowWindowPlacementPropertyInfo where - type AttrAllowedOps ScrolledWindowWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = (~) CornerType - type AttrBaseTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowWindowPlacementPropertyInfo = CornerType - type AttrLabel ScrolledWindowWindowPlacementPropertyInfo = "window-placement" - attrGet _ = getScrolledWindowWindowPlacement - attrSet _ = setScrolledWindowWindowPlacement - attrConstruct _ = constructScrolledWindowWindowPlacement - attrClear _ = undefined - --- VVV Prop "window-placement-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScrolledWindowWindowPlacementSet :: (MonadIO m, ScrolledWindowK o) => o -> m Bool -getScrolledWindowWindowPlacementSet obj = liftIO $ getObjectPropertyBool obj "window-placement-set" - -setScrolledWindowWindowPlacementSet :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m () -setScrolledWindowWindowPlacementSet obj val = liftIO $ setObjectPropertyBool obj "window-placement-set" val - -constructScrolledWindowWindowPlacementSet :: Bool -> IO ([Char], GValue) -constructScrolledWindowWindowPlacementSet val = constructObjectPropertyBool "window-placement-set" val - -data ScrolledWindowWindowPlacementSetPropertyInfo -instance AttrInfo ScrolledWindowWindowPlacementSetPropertyInfo where - type AttrAllowedOps ScrolledWindowWindowPlacementSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = ScrolledWindowK - type AttrGetType ScrolledWindowWindowPlacementSetPropertyInfo = Bool - type AttrLabel ScrolledWindowWindowPlacementSetPropertyInfo = "window-placement-set" - attrGet _ = getScrolledWindowWindowPlacementSet - attrSet _ = setScrolledWindowWindowPlacementSet - attrConstruct _ = constructScrolledWindowWindowPlacementSet - attrClear _ = undefined - -type instance AttributeList ScrolledWindow = ScrolledWindowAttributeList -type ScrolledWindowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) - -scrolledWindowHadjustment :: AttrLabelProxy "hadjustment" -scrolledWindowHadjustment = AttrLabelProxy - -scrolledWindowHscrollbarPolicy :: AttrLabelProxy "hscrollbarPolicy" -scrolledWindowHscrollbarPolicy = AttrLabelProxy - -scrolledWindowKineticScrolling :: AttrLabelProxy "kineticScrolling" -scrolledWindowKineticScrolling = AttrLabelProxy - -scrolledWindowMinContentHeight :: AttrLabelProxy "minContentHeight" -scrolledWindowMinContentHeight = AttrLabelProxy - -scrolledWindowMinContentWidth :: AttrLabelProxy "minContentWidth" -scrolledWindowMinContentWidth = AttrLabelProxy - -scrolledWindowOverlayScrolling :: AttrLabelProxy "overlayScrolling" -scrolledWindowOverlayScrolling = AttrLabelProxy - -scrolledWindowShadowType :: AttrLabelProxy "shadowType" -scrolledWindowShadowType = AttrLabelProxy - -scrolledWindowVadjustment :: AttrLabelProxy "vadjustment" -scrolledWindowVadjustment = AttrLabelProxy - -scrolledWindowVscrollbarPolicy :: AttrLabelProxy "vscrollbarPolicy" -scrolledWindowVscrollbarPolicy = AttrLabelProxy - -scrolledWindowWindowPlacement :: AttrLabelProxy "windowPlacement" -scrolledWindowWindowPlacement = AttrLabelProxy - -scrolledWindowWindowPlacementSet :: AttrLabelProxy "windowPlacementSet" -scrolledWindowWindowPlacementSet = AttrLabelProxy - -data ScrolledWindowEdgeOvershotSignalInfo -instance SignalInfo ScrolledWindowEdgeOvershotSignalInfo where - type HaskellCallbackType ScrolledWindowEdgeOvershotSignalInfo = ScrolledWindowEdgeOvershotCallback - connectSignal _ = connectScrolledWindowEdgeOvershot - -data ScrolledWindowEdgeReachedSignalInfo -instance SignalInfo ScrolledWindowEdgeReachedSignalInfo where - type HaskellCallbackType ScrolledWindowEdgeReachedSignalInfo = ScrolledWindowEdgeReachedCallback - connectSignal _ = connectScrolledWindowEdgeReached - -data ScrolledWindowMoveFocusOutSignalInfo -instance SignalInfo ScrolledWindowMoveFocusOutSignalInfo where - type HaskellCallbackType ScrolledWindowMoveFocusOutSignalInfo = ScrolledWindowMoveFocusOutCallback - connectSignal _ = connectScrolledWindowMoveFocusOut - -data ScrolledWindowScrollChildSignalInfo -instance SignalInfo ScrolledWindowScrollChildSignalInfo where - type HaskellCallbackType ScrolledWindowScrollChildSignalInfo = ScrolledWindowScrollChildCallback - connectSignal _ = connectScrolledWindowScrollChild - -type instance SignalList ScrolledWindow = ScrolledWindowSignalList -type ScrolledWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ScrolledWindow::new --- method type : Constructor --- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ScrolledWindow") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_new" gtk_scrolled_window_new :: - Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment" - Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment" - IO (Ptr ScrolledWindow) - - -scrolledWindowNew :: - (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -- hadjustment - -> Maybe (b) -- vadjustment - -> m ScrolledWindow -- result -scrolledWindowNew hadjustment vadjustment = liftIO $ do - maybeHadjustment <- case hadjustment of - Nothing -> return nullPtr - Just jHadjustment -> do - let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment - return jHadjustment' - maybeVadjustment <- case vadjustment of - Nothing -> return nullPtr - Just jVadjustment -> do - let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment - return jVadjustment' - result <- gtk_scrolled_window_new maybeHadjustment maybeVadjustment - checkUnexpectedReturnNULL "gtk_scrolled_window_new" result - result' <- (newObject ScrolledWindow) result - whenJust hadjustment touchManagedPtr - whenJust vadjustment touchManagedPtr - return result' - --- method ScrolledWindow::add_with_viewport --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_scrolled_window_add_with_viewport" gtk_scrolled_window_add_with_viewport :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED scrolledWindowAddWithViewport ["(Since version 3.8)","gtk_container_add() will automatically add","a #GtkViewport if the child doesn\8217t implement #GtkScrollable."]#-} -scrolledWindowAddWithViewport :: - (MonadIO m, ScrolledWindowK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -scrolledWindowAddWithViewport _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_scrolled_window_add_with_viewport _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data ScrolledWindowAddWithViewportMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, WidgetK b) => MethodInfo ScrolledWindowAddWithViewportMethodInfo a signature where - overloadedMethod _ = scrolledWindowAddWithViewport - --- method ScrolledWindow::get_capture_button_press --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_get_capture_button_press" gtk_scrolled_window_get_capture_button_press :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO CInt - - -scrolledWindowGetCaptureButtonPress :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Bool -- result -scrolledWindowGetCaptureButtonPress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_capture_button_press _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetCaptureButtonPressMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetCaptureButtonPressMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetCaptureButtonPress - --- method ScrolledWindow::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_hadjustment" gtk_scrolled_window_get_hadjustment :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO (Ptr Adjustment) - - -scrolledWindowGetHadjustment :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Adjustment -- result -scrolledWindowGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_scrolled_window_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetHadjustmentMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetHadjustment - --- method ScrolledWindow::get_hscrollbar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_hscrollbar" gtk_scrolled_window_get_hscrollbar :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO (Ptr Widget) - - -scrolledWindowGetHscrollbar :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Widget -- result -scrolledWindowGetHscrollbar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_hscrollbar _obj' - checkUnexpectedReturnNULL "gtk_scrolled_window_get_hscrollbar" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetHscrollbarMethodInfo -instance (signature ~ (m Widget), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetHscrollbarMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetHscrollbar - --- method ScrolledWindow::get_kinetic_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_get_kinetic_scrolling" gtk_scrolled_window_get_kinetic_scrolling :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO CInt - - -scrolledWindowGetKineticScrolling :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Bool -- result -scrolledWindowGetKineticScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_kinetic_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetKineticScrollingMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetKineticScrollingMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetKineticScrolling - --- method ScrolledWindow::get_min_content_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_get_min_content_height" gtk_scrolled_window_get_min_content_height :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO Int32 - - -scrolledWindowGetMinContentHeight :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Int32 -- result -scrolledWindowGetMinContentHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_min_content_height _obj' - touchManagedPtr _obj - return result - -data ScrolledWindowGetMinContentHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetMinContentHeightMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetMinContentHeight - --- method ScrolledWindow::get_min_content_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_get_min_content_width" gtk_scrolled_window_get_min_content_width :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO Int32 - - -scrolledWindowGetMinContentWidth :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Int32 -- result -scrolledWindowGetMinContentWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_min_content_width _obj' - touchManagedPtr _obj - return result - -data ScrolledWindowGetMinContentWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetMinContentWidthMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetMinContentWidth - --- method ScrolledWindow::get_overlay_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_get_overlay_scrolling" gtk_scrolled_window_get_overlay_scrolling :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO CInt - - -scrolledWindowGetOverlayScrolling :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Bool -- result -scrolledWindowGetOverlayScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_overlay_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetOverlayScrollingMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetOverlayScrollingMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetOverlayScrolling - --- method ScrolledWindow::get_placement --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CornerType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_placement" gtk_scrolled_window_get_placement :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO CUInt - - -scrolledWindowGetPlacement :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m CornerType -- result -scrolledWindowGetPlacement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_placement _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetPlacementMethodInfo -instance (signature ~ (m CornerType), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetPlacementMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetPlacement - --- method ScrolledWindow::get_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", 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 "gtk_scrolled_window_get_policy" gtk_scrolled_window_get_policy :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Ptr CUInt -> -- hscrollbar_policy : TInterface "Gtk" "PolicyType" - Ptr CUInt -> -- vscrollbar_policy : TInterface "Gtk" "PolicyType" - IO () - - -scrolledWindowGetPolicy :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m (PolicyType,PolicyType) -- result -scrolledWindowGetPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hscrollbarPolicy <- allocMem :: IO (Ptr CUInt) - vscrollbarPolicy <- allocMem :: IO (Ptr CUInt) - gtk_scrolled_window_get_policy _obj' hscrollbarPolicy vscrollbarPolicy - hscrollbarPolicy' <- peek hscrollbarPolicy - let hscrollbarPolicy'' = (toEnum . fromIntegral) hscrollbarPolicy' - vscrollbarPolicy' <- peek vscrollbarPolicy - let vscrollbarPolicy'' = (toEnum . fromIntegral) vscrollbarPolicy' - touchManagedPtr _obj - freeMem hscrollbarPolicy - freeMem vscrollbarPolicy - return (hscrollbarPolicy'', vscrollbarPolicy'') - -data ScrolledWindowGetPolicyMethodInfo -instance (signature ~ (m (PolicyType,PolicyType)), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetPolicyMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetPolicy - --- method ScrolledWindow::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ShadowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_shadow_type" gtk_scrolled_window_get_shadow_type :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO CUInt - - -scrolledWindowGetShadowType :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m ShadowType -- result -scrolledWindowGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetShadowTypeMethodInfo -instance (signature ~ (m ShadowType), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetShadowTypeMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetShadowType - --- method ScrolledWindow::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_vadjustment" gtk_scrolled_window_get_vadjustment :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO (Ptr Adjustment) - - -scrolledWindowGetVadjustment :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Adjustment -- result -scrolledWindowGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_scrolled_window_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetVadjustmentMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetVadjustment - --- method ScrolledWindow::get_vscrollbar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_get_vscrollbar" gtk_scrolled_window_get_vscrollbar :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO (Ptr Widget) - - -scrolledWindowGetVscrollbar :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m Widget -- result -scrolledWindowGetVscrollbar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_vscrollbar _obj' - checkUnexpectedReturnNULL "gtk_scrolled_window_get_vscrollbar" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ScrolledWindowGetVscrollbarMethodInfo -instance (signature ~ (m Widget), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetVscrollbarMethodInfo a signature where - overloadedMethod _ = scrolledWindowGetVscrollbar - --- method ScrolledWindow::set_capture_button_press --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capture_button_press", 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 "gtk_scrolled_window_set_capture_button_press" gtk_scrolled_window_set_capture_button_press :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CInt -> -- capture_button_press : TBasicType TBoolean - IO () - - -scrolledWindowSetCaptureButtonPress :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> Bool -- captureButtonPress - -> m () -- result -scrolledWindowSetCaptureButtonPress _obj captureButtonPress = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let captureButtonPress' = (fromIntegral . fromEnum) captureButtonPress - gtk_scrolled_window_set_capture_button_press _obj' captureButtonPress' - touchManagedPtr _obj - return () - -data ScrolledWindowSetCaptureButtonPressMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetCaptureButtonPressMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetCaptureButtonPress - --- method ScrolledWindow::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_scrolled_window_set_hadjustment" gtk_scrolled_window_set_hadjustment :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment" - IO () - - -scrolledWindowSetHadjustment :: - (MonadIO m, ScrolledWindowK a, AdjustmentK b) => - a -- _obj - -> b -- hadjustment - -> m () -- result -scrolledWindowSetHadjustment _obj hadjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hadjustment' = unsafeManagedPtrCastPtr hadjustment - gtk_scrolled_window_set_hadjustment _obj' hadjustment' - touchManagedPtr _obj - touchManagedPtr hadjustment - return () - -data ScrolledWindowSetHadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, AdjustmentK b) => MethodInfo ScrolledWindowSetHadjustmentMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetHadjustment - --- method ScrolledWindow::set_kinetic_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kinetic_scrolling", 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 "gtk_scrolled_window_set_kinetic_scrolling" gtk_scrolled_window_set_kinetic_scrolling :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CInt -> -- kinetic_scrolling : TBasicType TBoolean - IO () - - -scrolledWindowSetKineticScrolling :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> Bool -- kineticScrolling - -> m () -- result -scrolledWindowSetKineticScrolling _obj kineticScrolling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let kineticScrolling' = (fromIntegral . fromEnum) kineticScrolling - gtk_scrolled_window_set_kinetic_scrolling _obj' kineticScrolling' - touchManagedPtr _obj - return () - -data ScrolledWindowSetKineticScrollingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetKineticScrollingMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetKineticScrolling - --- method ScrolledWindow::set_min_content_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_set_min_content_height" gtk_scrolled_window_set_min_content_height :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Int32 -> -- height : TBasicType TInt - IO () - - -scrolledWindowSetMinContentHeight :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> Int32 -- height - -> m () -- result -scrolledWindowSetMinContentHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_set_min_content_height _obj' height - touchManagedPtr _obj - return () - -data ScrolledWindowSetMinContentHeightMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetMinContentHeightMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetMinContentHeight - --- method ScrolledWindow::set_min_content_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_scrolled_window_set_min_content_width" gtk_scrolled_window_set_min_content_width :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Int32 -> -- width : TBasicType TInt - IO () - - -scrolledWindowSetMinContentWidth :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> Int32 -- width - -> m () -- result -scrolledWindowSetMinContentWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_set_min_content_width _obj' width - touchManagedPtr _obj - return () - -data ScrolledWindowSetMinContentWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetMinContentWidthMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetMinContentWidth - --- method ScrolledWindow::set_overlay_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overlay_scrolling", 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 "gtk_scrolled_window_set_overlay_scrolling" gtk_scrolled_window_set_overlay_scrolling :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CInt -> -- overlay_scrolling : TBasicType TBoolean - IO () - - -scrolledWindowSetOverlayScrolling :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> Bool -- overlayScrolling - -> m () -- result -scrolledWindowSetOverlayScrolling _obj overlayScrolling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overlayScrolling' = (fromIntegral . fromEnum) overlayScrolling - gtk_scrolled_window_set_overlay_scrolling _obj' overlayScrolling' - touchManagedPtr _obj - return () - -data ScrolledWindowSetOverlayScrollingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetOverlayScrollingMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetOverlayScrolling - --- method ScrolledWindow::set_placement --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_placement", argType = TInterface "Gtk" "CornerType", 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 "gtk_scrolled_window_set_placement" gtk_scrolled_window_set_placement :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CUInt -> -- window_placement : TInterface "Gtk" "CornerType" - IO () - - -scrolledWindowSetPlacement :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> CornerType -- windowPlacement - -> m () -- result -scrolledWindowSetPlacement _obj windowPlacement = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let windowPlacement' = (fromIntegral . fromEnum) windowPlacement - gtk_scrolled_window_set_placement _obj' windowPlacement' - touchManagedPtr _obj - return () - -data ScrolledWindowSetPlacementMethodInfo -instance (signature ~ (CornerType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetPlacementMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetPlacement - --- method ScrolledWindow::set_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", 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 "gtk_scrolled_window_set_policy" gtk_scrolled_window_set_policy :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CUInt -> -- hscrollbar_policy : TInterface "Gtk" "PolicyType" - CUInt -> -- vscrollbar_policy : TInterface "Gtk" "PolicyType" - IO () - - -scrolledWindowSetPolicy :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> PolicyType -- hscrollbarPolicy - -> PolicyType -- vscrollbarPolicy - -> m () -- result -scrolledWindowSetPolicy _obj hscrollbarPolicy vscrollbarPolicy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hscrollbarPolicy' = (fromIntegral . fromEnum) hscrollbarPolicy - let vscrollbarPolicy' = (fromIntegral . fromEnum) vscrollbarPolicy - gtk_scrolled_window_set_policy _obj' hscrollbarPolicy' vscrollbarPolicy' - touchManagedPtr _obj - return () - -data ScrolledWindowSetPolicyMethodInfo -instance (signature ~ (PolicyType -> PolicyType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetPolicyMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetPolicy - --- method ScrolledWindow::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", 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 "gtk_scrolled_window_set_shadow_type" gtk_scrolled_window_set_shadow_type :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - CUInt -> -- type : TInterface "Gtk" "ShadowType" - IO () - - -scrolledWindowSetShadowType :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> ShadowType -- type_ - -> m () -- result -scrolledWindowSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_scrolled_window_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - -data ScrolledWindowSetShadowTypeMethodInfo -instance (signature ~ (ShadowType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetShadowTypeMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetShadowType - --- method ScrolledWindow::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_scrolled_window_set_vadjustment" gtk_scrolled_window_set_vadjustment :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment" - IO () - - -scrolledWindowSetVadjustment :: - (MonadIO m, ScrolledWindowK a, AdjustmentK b) => - a -- _obj - -> b -- vadjustment - -> m () -- result -scrolledWindowSetVadjustment _obj vadjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let vadjustment' = unsafeManagedPtrCastPtr vadjustment - gtk_scrolled_window_set_vadjustment _obj' vadjustment' - touchManagedPtr _obj - touchManagedPtr vadjustment - return () - -data ScrolledWindowSetVadjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, AdjustmentK b) => MethodInfo ScrolledWindowSetVadjustmentMethodInfo a signature where - overloadedMethod _ = scrolledWindowSetVadjustment - --- method ScrolledWindow::unset_placement --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 "gtk_scrolled_window_unset_placement" gtk_scrolled_window_unset_placement :: - Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - IO () - - -scrolledWindowUnsetPlacement :: - (MonadIO m, ScrolledWindowK a) => - a -- _obj - -> m () -- result -scrolledWindowUnsetPlacement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_unset_placement _obj' - touchManagedPtr _obj - return () - -data ScrolledWindowUnsetPlacementMethodInfo -instance (signature ~ (m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowUnsetPlacementMethodInfo a signature where - overloadedMethod _ = scrolledWindowUnsetPlacement - - diff --git a/GI/Gtk/Objects/ScrolledWindow.hs-boot b/GI/Gtk/Objects/ScrolledWindow.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ScrolledWindow.hs-boot +++ /dev/null @@ -1,52 +0,0 @@ -module GI.Gtk.Objects.ScrolledWindow 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 ScrolledWindow = ScrolledWindow (ForeignPtr ScrolledWindow) -instance GObject ScrolledWindow where -class GObject o => ScrolledWindowK o -instance (GObject o, IsDescendantOf ScrolledWindow o) => ScrolledWindowK o -data ScrolledWindowHadjustmentPropertyInfo -data ScrolledWindowHscrollbarPolicyPropertyInfo -data ScrolledWindowKineticScrollingPropertyInfo -data ScrolledWindowMinContentHeightPropertyInfo -data ScrolledWindowMinContentWidthPropertyInfo -data ScrolledWindowOverlayScrollingPropertyInfo -data ScrolledWindowShadowTypePropertyInfo -data ScrolledWindowVadjustmentPropertyInfo -data ScrolledWindowVscrollbarPolicyPropertyInfo -data ScrolledWindowWindowPlacementPropertyInfo -data ScrolledWindowWindowPlacementSetPropertyInfo -data ScrolledWindowEdgeOvershotSignalInfo -data ScrolledWindowEdgeReachedSignalInfo -data ScrolledWindowMoveFocusOutSignalInfo -data ScrolledWindowScrollChildSignalInfo -data ScrolledWindowAddWithViewportMethodInfo -data ScrolledWindowGetCaptureButtonPressMethodInfo -data ScrolledWindowGetHadjustmentMethodInfo -data ScrolledWindowGetHscrollbarMethodInfo -data ScrolledWindowGetKineticScrollingMethodInfo -data ScrolledWindowGetMinContentHeightMethodInfo -data ScrolledWindowGetMinContentWidthMethodInfo -data ScrolledWindowGetOverlayScrollingMethodInfo -data ScrolledWindowGetPlacementMethodInfo -data ScrolledWindowGetPolicyMethodInfo -data ScrolledWindowGetShadowTypeMethodInfo -data ScrolledWindowGetVadjustmentMethodInfo -data ScrolledWindowGetVscrollbarMethodInfo -data ScrolledWindowSetCaptureButtonPressMethodInfo -data ScrolledWindowSetHadjustmentMethodInfo -data ScrolledWindowSetKineticScrollingMethodInfo -data ScrolledWindowSetMinContentHeightMethodInfo -data ScrolledWindowSetMinContentWidthMethodInfo -data ScrolledWindowSetOverlayScrollingMethodInfo -data ScrolledWindowSetPlacementMethodInfo -data ScrolledWindowSetPolicyMethodInfo -data ScrolledWindowSetShadowTypeMethodInfo -data ScrolledWindowSetVadjustmentMethodInfo -data ScrolledWindowUnsetPlacementMethodInfo diff --git a/GI/Gtk/Objects/ScrolledWindowAccessible.hs b/GI/Gtk/Objects/ScrolledWindowAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ScrolledWindowAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.ScrolledWindowAccessible - ( - --- * Exported types - ScrolledWindowAccessible(..) , - ScrolledWindowAccessibleK , - toScrolledWindowAccessible , - noScrolledWindowAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ScrolledWindowAccessible = ScrolledWindowAccessible (ForeignPtr ScrolledWindowAccessible) -foreign import ccall "gtk_scrolled_window_accessible_get_type" - c_gtk_scrolled_window_accessible_get_type :: IO GType - -type instance ParentTypes ScrolledWindowAccessible = ScrolledWindowAccessibleParentTypes -type ScrolledWindowAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject ScrolledWindowAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_scrolled_window_accessible_get_type - - -class GObject o => ScrolledWindowAccessibleK o -instance (GObject o, IsDescendantOf ScrolledWindowAccessible o) => ScrolledWindowAccessibleK o - -toScrolledWindowAccessible :: ScrolledWindowAccessibleK o => o -> IO ScrolledWindowAccessible -toScrolledWindowAccessible = unsafeCastTo ScrolledWindowAccessible - -noScrolledWindowAccessible :: Maybe ScrolledWindowAccessible -noScrolledWindowAccessible = Nothing - -type family ResolveScrolledWindowAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveScrolledWindowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveScrolledWindowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScrolledWindowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScrolledWindowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveScrolledWindowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveScrolledWindowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScrolledWindowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScrolledWindowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveScrolledWindowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveScrolledWindowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScrolledWindowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScrolledWindowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScrolledWindowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveScrolledWindowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveScrolledWindowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScrolledWindowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveScrolledWindowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveScrolledWindowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveScrolledWindowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScrolledWindowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveScrolledWindowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveScrolledWindowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveScrolledWindowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveScrolledWindowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScrolledWindowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScrolledWindowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScrolledWindowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScrolledWindowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScrolledWindowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScrolledWindowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScrolledWindowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScrolledWindowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveScrolledWindowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveScrolledWindowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScrolledWindowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveScrolledWindowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveScrolledWindowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveScrolledWindowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveScrolledWindowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveScrolledWindowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveScrolledWindowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveScrolledWindowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveScrolledWindowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScrolledWindowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScrolledWindowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveScrolledWindowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveScrolledWindowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveScrolledWindowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScrolledWindowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveScrolledWindowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveScrolledWindowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveScrolledWindowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveScrolledWindowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveScrolledWindowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScrolledWindowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveScrolledWindowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveScrolledWindowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveScrolledWindowAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScrolledWindowAccessibleMethod t ScrolledWindowAccessible, MethodInfo info ScrolledWindowAccessible p) => IsLabelProxy t (ScrolledWindowAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScrolledWindowAccessibleMethod t ScrolledWindowAccessible, MethodInfo info ScrolledWindowAccessible p) => IsLabel t (ScrolledWindowAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ScrolledWindowAccessible = ScrolledWindowAccessibleAttributeList -type ScrolledWindowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScrolledWindowAccessible = ScrolledWindowAccessibleSignalList -type ScrolledWindowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot b/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ScrolledWindowAccessible 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 ScrolledWindowAccessible = ScrolledWindowAccessible (ForeignPtr ScrolledWindowAccessible) -instance GObject ScrolledWindowAccessible where -class GObject o => ScrolledWindowAccessibleK o -instance (GObject o, IsDescendantOf ScrolledWindowAccessible o) => ScrolledWindowAccessibleK o diff --git a/GI/Gtk/Objects/SearchBar.hs b/GI/Gtk/Objects/SearchBar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SearchBar.hs +++ /dev/null @@ -1,704 +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.Gtk.Objects.SearchBar - ( - --- * Exported types - SearchBar(..) , - SearchBarK , - toSearchBar , - noSearchBar , - - - -- * Methods --- ** searchBarConnectEntry - SearchBarConnectEntryMethodInfo , - searchBarConnectEntry , - - --- ** searchBarGetSearchMode - SearchBarGetSearchModeMethodInfo , - searchBarGetSearchMode , - - --- ** searchBarGetShowCloseButton - SearchBarGetShowCloseButtonMethodInfo , - searchBarGetShowCloseButton , - - --- ** searchBarHandleEvent - SearchBarHandleEventMethodInfo , - searchBarHandleEvent , - - --- ** searchBarNew - searchBarNew , - - --- ** searchBarSetSearchMode - SearchBarSetSearchModeMethodInfo , - searchBarSetSearchMode , - - --- ** searchBarSetShowCloseButton - SearchBarSetShowCloseButtonMethodInfo , - searchBarSetShowCloseButton , - - - - - -- * Properties --- ** SearchModeEnabled - SearchBarSearchModeEnabledPropertyInfo , - constructSearchBarSearchModeEnabled , - getSearchBarSearchModeEnabled , - searchBarSearchModeEnabled , - setSearchBarSearchModeEnabled , - - --- ** ShowCloseButton - SearchBarShowCloseButtonPropertyInfo , - constructSearchBarShowCloseButton , - getSearchBarShowCloseButton , - searchBarShowCloseButton , - setSearchBarShowCloseButton , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype SearchBar = SearchBar (ForeignPtr SearchBar) -foreign import ccall "gtk_search_bar_get_type" - c_gtk_search_bar_get_type :: IO GType - -type instance ParentTypes SearchBar = SearchBarParentTypes -type SearchBarParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject SearchBar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_search_bar_get_type - - -class GObject o => SearchBarK o -instance (GObject o, IsDescendantOf SearchBar o) => SearchBarK o - -toSearchBar :: SearchBarK o => o -> IO SearchBar -toSearchBar = unsafeCastTo SearchBar - -noSearchBar :: Maybe SearchBar -noSearchBar = Nothing - -type family ResolveSearchBarMethod (t :: Symbol) (o :: *) :: * where - ResolveSearchBarMethod "activate" o = WidgetActivateMethodInfo - ResolveSearchBarMethod "add" o = ContainerAddMethodInfo - ResolveSearchBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSearchBarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSearchBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSearchBarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSearchBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSearchBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSearchBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSearchBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSearchBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSearchBarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveSearchBarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSearchBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveSearchBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveSearchBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveSearchBarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveSearchBarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSearchBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSearchBarMethod "connectEntry" o = SearchBarConnectEntryMethodInfo - ResolveSearchBarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSearchBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSearchBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSearchBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSearchBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSearchBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSearchBarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSearchBarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSearchBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSearchBarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSearchBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSearchBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSearchBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSearchBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSearchBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSearchBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSearchBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSearchBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSearchBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSearchBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSearchBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSearchBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSearchBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSearchBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSearchBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSearchBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSearchBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSearchBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSearchBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSearchBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSearchBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSearchBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSearchBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSearchBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSearchBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSearchBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSearchBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSearchBarMethod "draw" o = WidgetDrawMethodInfo - ResolveSearchBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSearchBarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSearchBarMethod "event" o = WidgetEventMethodInfo - ResolveSearchBarMethod "forall" o = ContainerForallMethodInfo - ResolveSearchBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSearchBarMethod "foreach" o = ContainerForeachMethodInfo - ResolveSearchBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSearchBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSearchBarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSearchBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSearchBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSearchBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSearchBarMethod "handleEvent" o = SearchBarHandleEventMethodInfo - ResolveSearchBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSearchBarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSearchBarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSearchBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSearchBarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSearchBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSearchBarMethod "hide" o = WidgetHideMethodInfo - ResolveSearchBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSearchBarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSearchBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSearchBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSearchBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSearchBarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSearchBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSearchBarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSearchBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSearchBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSearchBarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSearchBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSearchBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSearchBarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSearchBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSearchBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSearchBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSearchBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSearchBarMethod "map" o = WidgetMapMethodInfo - ResolveSearchBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSearchBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSearchBarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSearchBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSearchBarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSearchBarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSearchBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSearchBarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSearchBarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSearchBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSearchBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSearchBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSearchBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSearchBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSearchBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSearchBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSearchBarMethod "path" o = WidgetPathMethodInfo - ResolveSearchBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveSearchBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSearchBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSearchBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSearchBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSearchBarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSearchBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSearchBarMethod "realize" o = WidgetRealizeMethodInfo - ResolveSearchBarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSearchBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSearchBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSearchBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSearchBarMethod "remove" o = ContainerRemoveMethodInfo - ResolveSearchBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSearchBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSearchBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSearchBarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSearchBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSearchBarMethod "reparent" o = WidgetReparentMethodInfo - ResolveSearchBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSearchBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSearchBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSearchBarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSearchBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveSearchBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSearchBarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSearchBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSearchBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSearchBarMethod "show" o = WidgetShowMethodInfo - ResolveSearchBarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSearchBarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSearchBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSearchBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSearchBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSearchBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSearchBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSearchBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSearchBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSearchBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSearchBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSearchBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSearchBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSearchBarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSearchBarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSearchBarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSearchBarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSearchBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSearchBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveSearchBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSearchBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSearchBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSearchBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSearchBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSearchBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSearchBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSearchBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSearchBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSearchBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSearchBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveSearchBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSearchBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSearchBarMethod "getChild" o = BinGetChildMethodInfo - ResolveSearchBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSearchBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSearchBarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveSearchBarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSearchBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSearchBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSearchBarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSearchBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSearchBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSearchBarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSearchBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSearchBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSearchBarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSearchBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveSearchBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveSearchBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveSearchBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveSearchBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSearchBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSearchBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSearchBarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSearchBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSearchBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSearchBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSearchBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSearchBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSearchBarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSearchBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSearchBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSearchBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSearchBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSearchBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSearchBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSearchBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSearchBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSearchBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSearchBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSearchBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSearchBarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSearchBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSearchBarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSearchBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveSearchBarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSearchBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSearchBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSearchBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSearchBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSearchBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSearchBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSearchBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSearchBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSearchBarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSearchBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSearchBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSearchBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSearchBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveSearchBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSearchBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSearchBarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSearchBarMethod "getSearchMode" o = SearchBarGetSearchModeMethodInfo - ResolveSearchBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSearchBarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSearchBarMethod "getShowCloseButton" o = SearchBarGetShowCloseButtonMethodInfo - ResolveSearchBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSearchBarMethod "getState" o = WidgetGetStateMethodInfo - ResolveSearchBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSearchBarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSearchBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSearchBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSearchBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSearchBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSearchBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSearchBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSearchBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSearchBarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSearchBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSearchBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSearchBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSearchBarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSearchBarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSearchBarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSearchBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSearchBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSearchBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSearchBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveSearchBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSearchBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSearchBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSearchBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSearchBarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSearchBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSearchBarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSearchBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSearchBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSearchBarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSearchBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSearchBarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSearchBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveSearchBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveSearchBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveSearchBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveSearchBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSearchBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSearchBarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSearchBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSearchBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSearchBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSearchBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSearchBarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSearchBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSearchBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSearchBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSearchBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSearchBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSearchBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSearchBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSearchBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSearchBarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSearchBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSearchBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSearchBarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSearchBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveSearchBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSearchBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSearchBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveSearchBarMethod "setSearchMode" o = SearchBarSetSearchModeMethodInfo - ResolveSearchBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSearchBarMethod "setShowCloseButton" o = SearchBarSetShowCloseButtonMethodInfo - ResolveSearchBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSearchBarMethod "setState" o = WidgetSetStateMethodInfo - ResolveSearchBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSearchBarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSearchBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSearchBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSearchBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSearchBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSearchBarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSearchBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSearchBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSearchBarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSearchBarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSearchBarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSearchBarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSearchBarMethod t SearchBar, MethodInfo info SearchBar p) => IsLabelProxy t (SearchBar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSearchBarMethod t SearchBar, MethodInfo info SearchBar p) => IsLabel t (SearchBar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "search-mode-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSearchBarSearchModeEnabled :: (MonadIO m, SearchBarK o) => o -> m Bool -getSearchBarSearchModeEnabled obj = liftIO $ getObjectPropertyBool obj "search-mode-enabled" - -setSearchBarSearchModeEnabled :: (MonadIO m, SearchBarK o) => o -> Bool -> m () -setSearchBarSearchModeEnabled obj val = liftIO $ setObjectPropertyBool obj "search-mode-enabled" val - -constructSearchBarSearchModeEnabled :: Bool -> IO ([Char], GValue) -constructSearchBarSearchModeEnabled val = constructObjectPropertyBool "search-mode-enabled" val - -data SearchBarSearchModeEnabledPropertyInfo -instance AttrInfo SearchBarSearchModeEnabledPropertyInfo where - type AttrAllowedOps SearchBarSearchModeEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SearchBarSearchModeEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SearchBarSearchModeEnabledPropertyInfo = SearchBarK - type AttrGetType SearchBarSearchModeEnabledPropertyInfo = Bool - type AttrLabel SearchBarSearchModeEnabledPropertyInfo = "search-mode-enabled" - attrGet _ = getSearchBarSearchModeEnabled - attrSet _ = setSearchBarSearchModeEnabled - attrConstruct _ = constructSearchBarSearchModeEnabled - attrClear _ = undefined - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSearchBarShowCloseButton :: (MonadIO m, SearchBarK o) => o -> m Bool -getSearchBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" - -setSearchBarShowCloseButton :: (MonadIO m, SearchBarK o) => o -> Bool -> m () -setSearchBarShowCloseButton obj val = liftIO $ setObjectPropertyBool obj "show-close-button" val - -constructSearchBarShowCloseButton :: Bool -> IO ([Char], GValue) -constructSearchBarShowCloseButton val = constructObjectPropertyBool "show-close-button" val - -data SearchBarShowCloseButtonPropertyInfo -instance AttrInfo SearchBarShowCloseButtonPropertyInfo where - type AttrAllowedOps SearchBarShowCloseButtonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SearchBarShowCloseButtonPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SearchBarShowCloseButtonPropertyInfo = SearchBarK - type AttrGetType SearchBarShowCloseButtonPropertyInfo = Bool - type AttrLabel SearchBarShowCloseButtonPropertyInfo = "show-close-button" - attrGet _ = getSearchBarShowCloseButton - attrSet _ = setSearchBarShowCloseButton - attrConstruct _ = constructSearchBarShowCloseButton - attrClear _ = undefined - -type instance AttributeList SearchBar = SearchBarAttributeList -type SearchBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchModeEnabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -searchBarSearchModeEnabled :: AttrLabelProxy "searchModeEnabled" -searchBarSearchModeEnabled = AttrLabelProxy - -searchBarShowCloseButton :: AttrLabelProxy "showCloseButton" -searchBarShowCloseButton = AttrLabelProxy - -type instance SignalList SearchBar = SearchBarSignalList -type SearchBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method SearchBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SearchBar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_search_bar_new" gtk_search_bar_new :: - IO (Ptr SearchBar) - - -searchBarNew :: - (MonadIO m) => - m SearchBar -- result -searchBarNew = liftIO $ do - result <- gtk_search_bar_new - checkUnexpectedReturnNULL "gtk_search_bar_new" result - result' <- (newObject SearchBar) result - return result' - --- method SearchBar::connect_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", 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 "gtk_search_bar_connect_entry" gtk_search_bar_connect_entry :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - Ptr Entry -> -- entry : TInterface "Gtk" "Entry" - IO () - - -searchBarConnectEntry :: - (MonadIO m, SearchBarK a, EntryK b) => - a -- _obj - -> b -- entry - -> m () -- result -searchBarConnectEntry _obj entry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let entry' = unsafeManagedPtrCastPtr entry - gtk_search_bar_connect_entry _obj' entry' - touchManagedPtr _obj - touchManagedPtr entry - return () - -data SearchBarConnectEntryMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SearchBarK a, EntryK b) => MethodInfo SearchBarConnectEntryMethodInfo a signature where - overloadedMethod _ = searchBarConnectEntry - --- method SearchBar::get_search_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", 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 "gtk_search_bar_get_search_mode" gtk_search_bar_get_search_mode :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - IO CInt - - -searchBarGetSearchMode :: - (MonadIO m, SearchBarK a) => - a -- _obj - -> m Bool -- result -searchBarGetSearchMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_search_bar_get_search_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SearchBarGetSearchModeMethodInfo -instance (signature ~ (m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarGetSearchModeMethodInfo a signature where - overloadedMethod _ = searchBarGetSearchMode - --- method SearchBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", 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 "gtk_search_bar_get_show_close_button" gtk_search_bar_get_show_close_button :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - IO CInt - - -searchBarGetShowCloseButton :: - (MonadIO m, SearchBarK a) => - a -- _obj - -> m Bool -- result -searchBarGetShowCloseButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_search_bar_get_show_close_button _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SearchBarGetShowCloseButtonMethodInfo -instance (signature ~ (m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarGetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = searchBarGetShowCloseButton - --- method SearchBar::handle_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_search_bar_handle_event" gtk_search_bar_handle_event :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -searchBarHandleEvent :: - (MonadIO m, SearchBarK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -searchBarHandleEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_search_bar_handle_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data SearchBarHandleEventMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarHandleEventMethodInfo a signature where - overloadedMethod _ = searchBarHandleEvent - --- method SearchBar::set_search_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_mode", 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 "gtk_search_bar_set_search_mode" gtk_search_bar_set_search_mode :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - CInt -> -- search_mode : TBasicType TBoolean - IO () - - -searchBarSetSearchMode :: - (MonadIO m, SearchBarK a) => - a -- _obj - -> Bool -- searchMode - -> m () -- result -searchBarSetSearchMode _obj searchMode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let searchMode' = (fromIntegral . fromEnum) searchMode - gtk_search_bar_set_search_mode _obj' searchMode' - touchManagedPtr _obj - return () - -data SearchBarSetSearchModeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SearchBarK a) => MethodInfo SearchBarSetSearchModeMethodInfo a signature where - overloadedMethod _ = searchBarSetSearchMode - --- method SearchBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_search_bar_set_show_close_button" gtk_search_bar_set_show_close_button :: - Ptr SearchBar -> -- _obj : TInterface "Gtk" "SearchBar" - CInt -> -- visible : TBasicType TBoolean - IO () - - -searchBarSetShowCloseButton :: - (MonadIO m, SearchBarK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -searchBarSetShowCloseButton _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_search_bar_set_show_close_button _obj' visible' - touchManagedPtr _obj - return () - -data SearchBarSetShowCloseButtonMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SearchBarK a) => MethodInfo SearchBarSetShowCloseButtonMethodInfo a signature where - overloadedMethod _ = searchBarSetShowCloseButton - - diff --git a/GI/Gtk/Objects/SearchBar.hs-boot b/GI/Gtk/Objects/SearchBar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SearchBar.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.SearchBar 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 SearchBar = SearchBar (ForeignPtr SearchBar) -instance GObject SearchBar where -class GObject o => SearchBarK o -instance (GObject o, IsDescendantOf SearchBar o) => SearchBarK o -data SearchBarSearchModeEnabledPropertyInfo -data SearchBarShowCloseButtonPropertyInfo -data SearchBarConnectEntryMethodInfo -data SearchBarGetSearchModeMethodInfo -data SearchBarGetShowCloseButtonMethodInfo -data SearchBarHandleEventMethodInfo -data SearchBarSetSearchModeMethodInfo -data SearchBarSetShowCloseButtonMethodInfo diff --git a/GI/Gtk/Objects/SearchEntry.hs b/GI/Gtk/Objects/SearchEntry.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SearchEntry.hs +++ /dev/null @@ -1,736 +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.Gtk.Objects.SearchEntry - ( - --- * Exported types - SearchEntry(..) , - SearchEntryK , - toSearchEntry , - noSearchEntry , - - - -- * Methods --- ** searchEntryHandleEvent - SearchEntryHandleEventMethodInfo , - searchEntryHandleEvent , - - --- ** searchEntryNew - searchEntryNew , - - - - - -- * Signals --- ** NextMatch - SearchEntryNextMatchCallback , - SearchEntryNextMatchCallbackC , - SearchEntryNextMatchSignalInfo , - afterSearchEntryNextMatch , - mkSearchEntryNextMatchCallback , - noSearchEntryNextMatchCallback , - onSearchEntryNextMatch , - searchEntryNextMatchCallbackWrapper , - searchEntryNextMatchClosure , - - --- ** PreviousMatch - SearchEntryPreviousMatchCallback , - SearchEntryPreviousMatchCallbackC , - SearchEntryPreviousMatchSignalInfo , - afterSearchEntryPreviousMatch , - mkSearchEntryPreviousMatchCallback , - noSearchEntryPreviousMatchCallback , - onSearchEntryPreviousMatch , - searchEntryPreviousMatchCallbackWrapper , - searchEntryPreviousMatchClosure , - - --- ** SearchChanged - SearchEntrySearchChangedCallback , - SearchEntrySearchChangedCallbackC , - SearchEntrySearchChangedSignalInfo , - afterSearchEntrySearchChanged , - mkSearchEntrySearchChangedCallback , - noSearchEntrySearchChangedCallback , - onSearchEntrySearchChanged , - searchEntrySearchChangedCallbackWrapper , - searchEntrySearchChangedClosure , - - --- ** StopSearch - SearchEntryStopSearchCallback , - SearchEntryStopSearchCallbackC , - SearchEntryStopSearchSignalInfo , - afterSearchEntryStopSearch , - mkSearchEntryStopSearchCallback , - noSearchEntryStopSearchCallback , - onSearchEntryStopSearch , - searchEntryStopSearchCallbackWrapper , - searchEntryStopSearchClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype SearchEntry = SearchEntry (ForeignPtr SearchEntry) -foreign import ccall "gtk_search_entry_get_type" - c_gtk_search_entry_get_type :: IO GType - -type instance ParentTypes SearchEntry = SearchEntryParentTypes -type SearchEntryParentTypes = '[Entry, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable] - -instance GObject SearchEntry where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_search_entry_get_type - - -class GObject o => SearchEntryK o -instance (GObject o, IsDescendantOf SearchEntry o) => SearchEntryK o - -toSearchEntry :: SearchEntryK o => o -> IO SearchEntry -toSearchEntry = unsafeCastTo SearchEntry - -noSearchEntry :: Maybe SearchEntry -noSearchEntry = Nothing - -type family ResolveSearchEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveSearchEntryMethod "activate" o = WidgetActivateMethodInfo - ResolveSearchEntryMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSearchEntryMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSearchEntryMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSearchEntryMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSearchEntryMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSearchEntryMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSearchEntryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSearchEntryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSearchEntryMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSearchEntryMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSearchEntryMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveSearchEntryMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSearchEntryMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSearchEntryMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSearchEntryMethod "copyClipboard" o = EditableCopyClipboardMethodInfo - ResolveSearchEntryMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSearchEntryMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSearchEntryMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSearchEntryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSearchEntryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSearchEntryMethod "cutClipboard" o = EditableCutClipboardMethodInfo - ResolveSearchEntryMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo - ResolveSearchEntryMethod "deleteText" o = EditableDeleteTextMethodInfo - ResolveSearchEntryMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSearchEntryMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSearchEntryMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSearchEntryMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSearchEntryMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSearchEntryMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSearchEntryMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSearchEntryMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSearchEntryMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSearchEntryMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSearchEntryMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSearchEntryMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSearchEntryMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSearchEntryMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSearchEntryMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSearchEntryMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSearchEntryMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSearchEntryMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSearchEntryMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSearchEntryMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSearchEntryMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSearchEntryMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSearchEntryMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSearchEntryMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSearchEntryMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSearchEntryMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSearchEntryMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSearchEntryMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSearchEntryMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSearchEntryMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSearchEntryMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSearchEntryMethod "draw" o = WidgetDrawMethodInfo - ResolveSearchEntryMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveSearchEntryMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSearchEntryMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSearchEntryMethod "event" o = WidgetEventMethodInfo - ResolveSearchEntryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSearchEntryMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSearchEntryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSearchEntryMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSearchEntryMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSearchEntryMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSearchEntryMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo - ResolveSearchEntryMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSearchEntryMethod "handleEvent" o = SearchEntryHandleEventMethodInfo - ResolveSearchEntryMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSearchEntryMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSearchEntryMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSearchEntryMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSearchEntryMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSearchEntryMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSearchEntryMethod "hide" o = WidgetHideMethodInfo - ResolveSearchEntryMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSearchEntryMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo - ResolveSearchEntryMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSearchEntryMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSearchEntryMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSearchEntryMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSearchEntryMethod "insertText" o = EditableInsertTextMethodInfo - ResolveSearchEntryMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSearchEntryMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSearchEntryMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSearchEntryMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSearchEntryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSearchEntryMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSearchEntryMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSearchEntryMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSearchEntryMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSearchEntryMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSearchEntryMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo - ResolveSearchEntryMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSearchEntryMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSearchEntryMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSearchEntryMethod "map" o = WidgetMapMethodInfo - ResolveSearchEntryMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSearchEntryMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSearchEntryMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSearchEntryMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSearchEntryMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSearchEntryMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSearchEntryMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSearchEntryMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSearchEntryMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSearchEntryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSearchEntryMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSearchEntryMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSearchEntryMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSearchEntryMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSearchEntryMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSearchEntryMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSearchEntryMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo - ResolveSearchEntryMethod "path" o = WidgetPathMethodInfo - ResolveSearchEntryMethod "progressPulse" o = EntryProgressPulseMethodInfo - ResolveSearchEntryMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSearchEntryMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSearchEntryMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSearchEntryMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSearchEntryMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSearchEntryMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSearchEntryMethod "realize" o = WidgetRealizeMethodInfo - ResolveSearchEntryMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSearchEntryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSearchEntryMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSearchEntryMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSearchEntryMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSearchEntryMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSearchEntryMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSearchEntryMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveSearchEntryMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSearchEntryMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSearchEntryMethod "reparent" o = WidgetReparentMethodInfo - ResolveSearchEntryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSearchEntryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSearchEntryMethod "resetImContext" o = EntryResetImContextMethodInfo - ResolveSearchEntryMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSearchEntryMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSearchEntryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSearchEntryMethod "selectRegion" o = EditableSelectRegionMethodInfo - ResolveSearchEntryMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSearchEntryMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSearchEntryMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSearchEntryMethod "show" o = WidgetShowMethodInfo - ResolveSearchEntryMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSearchEntryMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSearchEntryMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSearchEntryMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSearchEntryMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSearchEntryMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveSearchEntryMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSearchEntryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSearchEntryMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSearchEntryMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSearchEntryMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo - ResolveSearchEntryMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSearchEntryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSearchEntryMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSearchEntryMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSearchEntryMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSearchEntryMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSearchEntryMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSearchEntryMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSearchEntryMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSearchEntryMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo - ResolveSearchEntryMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSearchEntryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSearchEntryMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSearchEntryMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSearchEntryMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo - ResolveSearchEntryMethod "getAlignment" o = EntryGetAlignmentMethodInfo - ResolveSearchEntryMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSearchEntryMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSearchEntryMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSearchEntryMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSearchEntryMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSearchEntryMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSearchEntryMethod "getAttributes" o = EntryGetAttributesMethodInfo - ResolveSearchEntryMethod "getBuffer" o = EntryGetBufferMethodInfo - ResolveSearchEntryMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSearchEntryMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSearchEntryMethod "getChars" o = EditableGetCharsMethodInfo - ResolveSearchEntryMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSearchEntryMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSearchEntryMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSearchEntryMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSearchEntryMethod "getCompletion" o = EntryGetCompletionMethodInfo - ResolveSearchEntryMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSearchEntryMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo - ResolveSearchEntryMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo - ResolveSearchEntryMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSearchEntryMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSearchEntryMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSearchEntryMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSearchEntryMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSearchEntryMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSearchEntryMethod "getEditable" o = EditableGetEditableMethodInfo - ResolveSearchEntryMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSearchEntryMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSearchEntryMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSearchEntryMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSearchEntryMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSearchEntryMethod "getHasFrame" o = EntryGetHasFrameMethodInfo - ResolveSearchEntryMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSearchEntryMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSearchEntryMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSearchEntryMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSearchEntryMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo - ResolveSearchEntryMethod "getIconArea" o = EntryGetIconAreaMethodInfo - ResolveSearchEntryMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo - ResolveSearchEntryMethod "getIconGicon" o = EntryGetIconGiconMethodInfo - ResolveSearchEntryMethod "getIconName" o = EntryGetIconNameMethodInfo - ResolveSearchEntryMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo - ResolveSearchEntryMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo - ResolveSearchEntryMethod "getIconStock" o = EntryGetIconStockMethodInfo - ResolveSearchEntryMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo - ResolveSearchEntryMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo - ResolveSearchEntryMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo - ResolveSearchEntryMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo - ResolveSearchEntryMethod "getInputHints" o = EntryGetInputHintsMethodInfo - ResolveSearchEntryMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo - ResolveSearchEntryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSearchEntryMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo - ResolveSearchEntryMethod "getLayout" o = EntryGetLayoutMethodInfo - ResolveSearchEntryMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo - ResolveSearchEntryMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSearchEntryMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSearchEntryMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSearchEntryMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSearchEntryMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSearchEntryMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSearchEntryMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSearchEntryMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo - ResolveSearchEntryMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo - ResolveSearchEntryMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSearchEntryMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSearchEntryMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSearchEntryMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSearchEntryMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo - ResolveSearchEntryMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSearchEntryMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSearchEntryMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSearchEntryMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSearchEntryMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo - ResolveSearchEntryMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSearchEntryMethod "getPosition" o = EditableGetPositionMethodInfo - ResolveSearchEntryMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSearchEntryMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSearchEntryMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSearchEntryMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSearchEntryMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSearchEntryMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSearchEntryMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo - ResolveSearchEntryMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo - ResolveSearchEntryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSearchEntryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSearchEntryMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSearchEntryMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSearchEntryMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSearchEntryMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSearchEntryMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSearchEntryMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSearchEntryMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSearchEntryMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo - ResolveSearchEntryMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSearchEntryMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSearchEntryMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSearchEntryMethod "getState" o = WidgetGetStateMethodInfo - ResolveSearchEntryMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSearchEntryMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSearchEntryMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSearchEntryMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSearchEntryMethod "getTabs" o = EntryGetTabsMethodInfo - ResolveSearchEntryMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSearchEntryMethod "getText" o = EntryGetTextMethodInfo - ResolveSearchEntryMethod "getTextArea" o = EntryGetTextAreaMethodInfo - ResolveSearchEntryMethod "getTextLength" o = EntryGetTextLengthMethodInfo - ResolveSearchEntryMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSearchEntryMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSearchEntryMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSearchEntryMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSearchEntryMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSearchEntryMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSearchEntryMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSearchEntryMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSearchEntryMethod "getVisibility" o = EntryGetVisibilityMethodInfo - ResolveSearchEntryMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSearchEntryMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSearchEntryMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo - ResolveSearchEntryMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSearchEntryMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSearchEntryMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo - ResolveSearchEntryMethod "setAlignment" o = EntrySetAlignmentMethodInfo - ResolveSearchEntryMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSearchEntryMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSearchEntryMethod "setAttributes" o = EntrySetAttributesMethodInfo - ResolveSearchEntryMethod "setBuffer" o = EntrySetBufferMethodInfo - ResolveSearchEntryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSearchEntryMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSearchEntryMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSearchEntryMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSearchEntryMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSearchEntryMethod "setCompletion" o = EntrySetCompletionMethodInfo - ResolveSearchEntryMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSearchEntryMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo - ResolveSearchEntryMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSearchEntryMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSearchEntryMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSearchEntryMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSearchEntryMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSearchEntryMethod "setEditable" o = EditableSetEditableMethodInfo - ResolveSearchEntryMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSearchEntryMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSearchEntryMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSearchEntryMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSearchEntryMethod "setHasFrame" o = EntrySetHasFrameMethodInfo - ResolveSearchEntryMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSearchEntryMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSearchEntryMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSearchEntryMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSearchEntryMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo - ResolveSearchEntryMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo - ResolveSearchEntryMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo - ResolveSearchEntryMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo - ResolveSearchEntryMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo - ResolveSearchEntryMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo - ResolveSearchEntryMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo - ResolveSearchEntryMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo - ResolveSearchEntryMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo - ResolveSearchEntryMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo - ResolveSearchEntryMethod "setInputHints" o = EntrySetInputHintsMethodInfo - ResolveSearchEntryMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo - ResolveSearchEntryMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo - ResolveSearchEntryMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSearchEntryMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSearchEntryMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSearchEntryMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSearchEntryMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSearchEntryMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSearchEntryMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSearchEntryMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo - ResolveSearchEntryMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo - ResolveSearchEntryMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSearchEntryMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSearchEntryMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo - ResolveSearchEntryMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSearchEntryMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSearchEntryMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo - ResolveSearchEntryMethod "setPosition" o = EditableSetPositionMethodInfo - ResolveSearchEntryMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo - ResolveSearchEntryMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo - ResolveSearchEntryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSearchEntryMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSearchEntryMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSearchEntryMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSearchEntryMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSearchEntryMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSearchEntryMethod "setState" o = WidgetSetStateMethodInfo - ResolveSearchEntryMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSearchEntryMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSearchEntryMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSearchEntryMethod "setTabs" o = EntrySetTabsMethodInfo - ResolveSearchEntryMethod "setText" o = EntrySetTextMethodInfo - ResolveSearchEntryMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSearchEntryMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSearchEntryMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSearchEntryMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSearchEntryMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSearchEntryMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSearchEntryMethod "setVisibility" o = EntrySetVisibilityMethodInfo - ResolveSearchEntryMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSearchEntryMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSearchEntryMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo - ResolveSearchEntryMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSearchEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSearchEntryMethod t SearchEntry, MethodInfo info SearchEntry p) => IsLabelProxy t (SearchEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSearchEntryMethod t SearchEntry, MethodInfo info SearchEntry p) => IsLabel t (SearchEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SearchEntry::next-match -type SearchEntryNextMatchCallback = - IO () - -noSearchEntryNextMatchCallback :: Maybe SearchEntryNextMatchCallback -noSearchEntryNextMatchCallback = Nothing - -type SearchEntryNextMatchCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSearchEntryNextMatchCallback :: SearchEntryNextMatchCallbackC -> IO (FunPtr SearchEntryNextMatchCallbackC) - -searchEntryNextMatchClosure :: SearchEntryNextMatchCallback -> IO Closure -searchEntryNextMatchClosure cb = newCClosure =<< mkSearchEntryNextMatchCallback wrapped - where wrapped = searchEntryNextMatchCallbackWrapper cb - -searchEntryNextMatchCallbackWrapper :: - SearchEntryNextMatchCallback -> - Ptr () -> - Ptr () -> - IO () -searchEntryNextMatchCallbackWrapper _cb _ _ = do - _cb - -onSearchEntryNextMatch :: (GObject a, MonadIO m) => a -> SearchEntryNextMatchCallback -> m SignalHandlerId -onSearchEntryNextMatch obj cb = liftIO $ connectSearchEntryNextMatch obj cb SignalConnectBefore -afterSearchEntryNextMatch :: (GObject a, MonadIO m) => a -> SearchEntryNextMatchCallback -> m SignalHandlerId -afterSearchEntryNextMatch obj cb = connectSearchEntryNextMatch obj cb SignalConnectAfter - -connectSearchEntryNextMatch :: (GObject a, MonadIO m) => - a -> SearchEntryNextMatchCallback -> SignalConnectMode -> m SignalHandlerId -connectSearchEntryNextMatch obj cb after = liftIO $ do - cb' <- mkSearchEntryNextMatchCallback (searchEntryNextMatchCallbackWrapper cb) - connectSignalFunPtr obj "next-match" cb' after - --- signal SearchEntry::previous-match -type SearchEntryPreviousMatchCallback = - IO () - -noSearchEntryPreviousMatchCallback :: Maybe SearchEntryPreviousMatchCallback -noSearchEntryPreviousMatchCallback = Nothing - -type SearchEntryPreviousMatchCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSearchEntryPreviousMatchCallback :: SearchEntryPreviousMatchCallbackC -> IO (FunPtr SearchEntryPreviousMatchCallbackC) - -searchEntryPreviousMatchClosure :: SearchEntryPreviousMatchCallback -> IO Closure -searchEntryPreviousMatchClosure cb = newCClosure =<< mkSearchEntryPreviousMatchCallback wrapped - where wrapped = searchEntryPreviousMatchCallbackWrapper cb - -searchEntryPreviousMatchCallbackWrapper :: - SearchEntryPreviousMatchCallback -> - Ptr () -> - Ptr () -> - IO () -searchEntryPreviousMatchCallbackWrapper _cb _ _ = do - _cb - -onSearchEntryPreviousMatch :: (GObject a, MonadIO m) => a -> SearchEntryPreviousMatchCallback -> m SignalHandlerId -onSearchEntryPreviousMatch obj cb = liftIO $ connectSearchEntryPreviousMatch obj cb SignalConnectBefore -afterSearchEntryPreviousMatch :: (GObject a, MonadIO m) => a -> SearchEntryPreviousMatchCallback -> m SignalHandlerId -afterSearchEntryPreviousMatch obj cb = connectSearchEntryPreviousMatch obj cb SignalConnectAfter - -connectSearchEntryPreviousMatch :: (GObject a, MonadIO m) => - a -> SearchEntryPreviousMatchCallback -> SignalConnectMode -> m SignalHandlerId -connectSearchEntryPreviousMatch obj cb after = liftIO $ do - cb' <- mkSearchEntryPreviousMatchCallback (searchEntryPreviousMatchCallbackWrapper cb) - connectSignalFunPtr obj "previous-match" cb' after - --- signal SearchEntry::search-changed -type SearchEntrySearchChangedCallback = - IO () - -noSearchEntrySearchChangedCallback :: Maybe SearchEntrySearchChangedCallback -noSearchEntrySearchChangedCallback = Nothing - -type SearchEntrySearchChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSearchEntrySearchChangedCallback :: SearchEntrySearchChangedCallbackC -> IO (FunPtr SearchEntrySearchChangedCallbackC) - -searchEntrySearchChangedClosure :: SearchEntrySearchChangedCallback -> IO Closure -searchEntrySearchChangedClosure cb = newCClosure =<< mkSearchEntrySearchChangedCallback wrapped - where wrapped = searchEntrySearchChangedCallbackWrapper cb - -searchEntrySearchChangedCallbackWrapper :: - SearchEntrySearchChangedCallback -> - Ptr () -> - Ptr () -> - IO () -searchEntrySearchChangedCallbackWrapper _cb _ _ = do - _cb - -onSearchEntrySearchChanged :: (GObject a, MonadIO m) => a -> SearchEntrySearchChangedCallback -> m SignalHandlerId -onSearchEntrySearchChanged obj cb = liftIO $ connectSearchEntrySearchChanged obj cb SignalConnectBefore -afterSearchEntrySearchChanged :: (GObject a, MonadIO m) => a -> SearchEntrySearchChangedCallback -> m SignalHandlerId -afterSearchEntrySearchChanged obj cb = connectSearchEntrySearchChanged obj cb SignalConnectAfter - -connectSearchEntrySearchChanged :: (GObject a, MonadIO m) => - a -> SearchEntrySearchChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectSearchEntrySearchChanged obj cb after = liftIO $ do - cb' <- mkSearchEntrySearchChangedCallback (searchEntrySearchChangedCallbackWrapper cb) - connectSignalFunPtr obj "search-changed" cb' after - --- signal SearchEntry::stop-search -type SearchEntryStopSearchCallback = - IO () - -noSearchEntryStopSearchCallback :: Maybe SearchEntryStopSearchCallback -noSearchEntryStopSearchCallback = Nothing - -type SearchEntryStopSearchCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSearchEntryStopSearchCallback :: SearchEntryStopSearchCallbackC -> IO (FunPtr SearchEntryStopSearchCallbackC) - -searchEntryStopSearchClosure :: SearchEntryStopSearchCallback -> IO Closure -searchEntryStopSearchClosure cb = newCClosure =<< mkSearchEntryStopSearchCallback wrapped - where wrapped = searchEntryStopSearchCallbackWrapper cb - -searchEntryStopSearchCallbackWrapper :: - SearchEntryStopSearchCallback -> - Ptr () -> - Ptr () -> - IO () -searchEntryStopSearchCallbackWrapper _cb _ _ = do - _cb - -onSearchEntryStopSearch :: (GObject a, MonadIO m) => a -> SearchEntryStopSearchCallback -> m SignalHandlerId -onSearchEntryStopSearch obj cb = liftIO $ connectSearchEntryStopSearch obj cb SignalConnectBefore -afterSearchEntryStopSearch :: (GObject a, MonadIO m) => a -> SearchEntryStopSearchCallback -> m SignalHandlerId -afterSearchEntryStopSearch obj cb = connectSearchEntryStopSearch obj cb SignalConnectAfter - -connectSearchEntryStopSearch :: (GObject a, MonadIO m) => - a -> SearchEntryStopSearchCallback -> SignalConnectMode -> m SignalHandlerId -connectSearchEntryStopSearch obj cb after = liftIO $ do - cb' <- mkSearchEntryStopSearchCallback (searchEntryStopSearchCallbackWrapper cb) - connectSignalFunPtr obj "stop-search" cb' after - -type instance AttributeList SearchEntry = SearchEntryAttributeList -type SearchEntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -data SearchEntryNextMatchSignalInfo -instance SignalInfo SearchEntryNextMatchSignalInfo where - type HaskellCallbackType SearchEntryNextMatchSignalInfo = SearchEntryNextMatchCallback - connectSignal _ = connectSearchEntryNextMatch - -data SearchEntryPreviousMatchSignalInfo -instance SignalInfo SearchEntryPreviousMatchSignalInfo where - type HaskellCallbackType SearchEntryPreviousMatchSignalInfo = SearchEntryPreviousMatchCallback - connectSignal _ = connectSearchEntryPreviousMatch - -data SearchEntrySearchChangedSignalInfo -instance SignalInfo SearchEntrySearchChangedSignalInfo where - type HaskellCallbackType SearchEntrySearchChangedSignalInfo = SearchEntrySearchChangedCallback - connectSignal _ = connectSearchEntrySearchChanged - -data SearchEntryStopSearchSignalInfo -instance SignalInfo SearchEntryStopSearchSignalInfo where - type HaskellCallbackType SearchEntryStopSearchSignalInfo = SearchEntryStopSearchCallback - connectSignal _ = connectSearchEntryStopSearch - -type instance SignalList SearchEntry = SearchEntrySignalList -type SearchEntrySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("nextMatch", SearchEntryNextMatchSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("previousMatch", SearchEntryPreviousMatchSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("searchChanged", SearchEntrySearchChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("stopSearch", SearchEntryStopSearchSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method SearchEntry::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SearchEntry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_search_entry_new" gtk_search_entry_new :: - IO (Ptr SearchEntry) - - -searchEntryNew :: - (MonadIO m) => - m SearchEntry -- result -searchEntryNew = liftIO $ do - result <- gtk_search_entry_new - checkUnexpectedReturnNULL "gtk_search_entry_new" result - result' <- (newObject SearchEntry) result - return result' - --- method SearchEntry::handle_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_search_entry_handle_event" gtk_search_entry_handle_event :: - Ptr SearchEntry -> -- _obj : TInterface "Gtk" "SearchEntry" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -searchEntryHandleEvent :: - (MonadIO m, SearchEntryK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -searchEntryHandleEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_search_entry_handle_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data SearchEntryHandleEventMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, SearchEntryK a) => MethodInfo SearchEntryHandleEventMethodInfo a signature where - overloadedMethod _ = searchEntryHandleEvent - - diff --git a/GI/Gtk/Objects/SearchEntry.hs-boot b/GI/Gtk/Objects/SearchEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SearchEntry.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.SearchEntry 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 SearchEntry = SearchEntry (ForeignPtr SearchEntry) -instance GObject SearchEntry where -class GObject o => SearchEntryK o -instance (GObject o, IsDescendantOf SearchEntry o) => SearchEntryK o -data SearchEntryNextMatchSignalInfo -data SearchEntryPreviousMatchSignalInfo -data SearchEntrySearchChangedSignalInfo -data SearchEntryStopSearchSignalInfo -data SearchEntryHandleEventMethodInfo diff --git a/GI/Gtk/Objects/Separator.hs b/GI/Gtk/Objects/Separator.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Separator.hs +++ /dev/null @@ -1,389 +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.Gtk.Objects.Separator - ( - --- * Exported types - Separator(..) , - SeparatorK , - toSeparator , - noSeparator , - - - -- * Methods --- ** separatorNew - separatorNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Separator = Separator (ForeignPtr Separator) -foreign import ccall "gtk_separator_get_type" - c_gtk_separator_get_type :: IO GType - -type instance ParentTypes Separator = SeparatorParentTypes -type SeparatorParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Separator where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_separator_get_type - - -class GObject o => SeparatorK o -instance (GObject o, IsDescendantOf Separator o) => SeparatorK o - -toSeparator :: SeparatorK o => o -> IO Separator -toSeparator = unsafeCastTo Separator - -noSeparator :: Maybe Separator -noSeparator = Nothing - -type family ResolveSeparatorMethod (t :: Symbol) (o :: *) :: * where - ResolveSeparatorMethod "activate" o = WidgetActivateMethodInfo - ResolveSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSeparatorMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveSeparatorMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSeparatorMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSeparatorMethod "draw" o = WidgetDrawMethodInfo - ResolveSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSeparatorMethod "event" o = WidgetEventMethodInfo - ResolveSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSeparatorMethod "hide" o = WidgetHideMethodInfo - ResolveSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSeparatorMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSeparatorMethod "map" o = WidgetMapMethodInfo - ResolveSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSeparatorMethod "path" o = WidgetPathMethodInfo - ResolveSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSeparatorMethod "realize" o = WidgetRealizeMethodInfo - ResolveSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSeparatorMethod "reparent" o = WidgetReparentMethodInfo - ResolveSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSeparatorMethod "show" o = WidgetShowMethodInfo - ResolveSeparatorMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSeparatorMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSeparatorMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSeparatorMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSeparatorMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSeparatorMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSeparatorMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSeparatorMethod "getState" o = WidgetGetStateMethodInfo - ResolveSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSeparatorMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSeparatorMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveSeparatorMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSeparatorMethod "setState" o = WidgetSetStateMethodInfo - ResolveSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSeparatorMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSeparatorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSeparatorMethod t Separator, MethodInfo info Separator p) => IsLabelProxy t (Separator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSeparatorMethod t Separator, MethodInfo info Separator p) => IsLabel t (Separator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Separator = SeparatorAttributeList -type SeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Separator = SeparatorSignalList -type SeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Separator::new --- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Separator") --- throws : False --- Skip return : False - -foreign import ccall "gtk_separator_new" gtk_separator_new :: - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO (Ptr Separator) - - -separatorNew :: - (MonadIO m) => - Orientation -- orientation - -> m Separator -- result -separatorNew orientation = liftIO $ do - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_separator_new orientation' - checkUnexpectedReturnNULL "gtk_separator_new" result - result' <- (newObject Separator) result - return result' - - diff --git a/GI/Gtk/Objects/Separator.hs-boot b/GI/Gtk/Objects/Separator.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Separator.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.Separator 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 Separator = Separator (ForeignPtr Separator) -instance GObject Separator where -class GObject o => SeparatorK o -instance (GObject o, IsDescendantOf Separator o) => SeparatorK o diff --git a/GI/Gtk/Objects/SeparatorMenuItem.hs b/GI/Gtk/Objects/SeparatorMenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SeparatorMenuItem.hs +++ /dev/null @@ -1,435 +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.Gtk.Objects.SeparatorMenuItem - ( - --- * Exported types - SeparatorMenuItem(..) , - SeparatorMenuItemK , - toSeparatorMenuItem , - noSeparatorMenuItem , - - - -- * Methods --- ** separatorMenuItemNew - separatorMenuItemNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SeparatorMenuItem = SeparatorMenuItem (ForeignPtr SeparatorMenuItem) -foreign import ccall "gtk_separator_menu_item_get_type" - c_gtk_separator_menu_item_get_type :: IO GType - -type instance ParentTypes SeparatorMenuItem = SeparatorMenuItemParentTypes -type SeparatorMenuItemParentTypes = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject SeparatorMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_separator_menu_item_get_type - - -class GObject o => SeparatorMenuItemK o -instance (GObject o, IsDescendantOf SeparatorMenuItem o) => SeparatorMenuItemK o - -toSeparatorMenuItem :: SeparatorMenuItemK o => o -> IO SeparatorMenuItem -toSeparatorMenuItem = unsafeCastTo SeparatorMenuItem - -noSeparatorMenuItem :: Maybe SeparatorMenuItem -noSeparatorMenuItem = Nothing - -type family ResolveSeparatorMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveSeparatorMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveSeparatorMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSeparatorMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSeparatorMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSeparatorMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSeparatorMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSeparatorMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSeparatorMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSeparatorMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSeparatorMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSeparatorMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveSeparatorMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSeparatorMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveSeparatorMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveSeparatorMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveSeparatorMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveSeparatorMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSeparatorMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSeparatorMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSeparatorMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSeparatorMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSeparatorMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSeparatorMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSeparatorMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSeparatorMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveSeparatorMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSeparatorMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSeparatorMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSeparatorMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveSeparatorMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSeparatorMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSeparatorMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSeparatorMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSeparatorMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSeparatorMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSeparatorMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSeparatorMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSeparatorMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSeparatorMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSeparatorMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSeparatorMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSeparatorMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSeparatorMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSeparatorMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSeparatorMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveSeparatorMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSeparatorMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSeparatorMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveSeparatorMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveSeparatorMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSeparatorMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveSeparatorMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSeparatorMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSeparatorMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSeparatorMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSeparatorMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSeparatorMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSeparatorMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSeparatorMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSeparatorMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSeparatorMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSeparatorMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSeparatorMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSeparatorMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveSeparatorMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSeparatorMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSeparatorMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSeparatorMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSeparatorMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSeparatorMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSeparatorMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSeparatorMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSeparatorMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSeparatorMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSeparatorMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSeparatorMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSeparatorMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSeparatorMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSeparatorMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSeparatorMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSeparatorMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSeparatorMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSeparatorMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveSeparatorMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSeparatorMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSeparatorMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSeparatorMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSeparatorMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSeparatorMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSeparatorMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSeparatorMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSeparatorMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSeparatorMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSeparatorMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSeparatorMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSeparatorMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSeparatorMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSeparatorMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSeparatorMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSeparatorMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveSeparatorMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveSeparatorMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSeparatorMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSeparatorMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSeparatorMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSeparatorMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSeparatorMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSeparatorMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveSeparatorMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSeparatorMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSeparatorMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSeparatorMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSeparatorMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveSeparatorMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSeparatorMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSeparatorMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSeparatorMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSeparatorMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSeparatorMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveSeparatorMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSeparatorMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSeparatorMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSeparatorMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSeparatorMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveSeparatorMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSeparatorMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveSeparatorMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSeparatorMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSeparatorMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSeparatorMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveSeparatorMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSeparatorMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSeparatorMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSeparatorMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSeparatorMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSeparatorMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSeparatorMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSeparatorMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSeparatorMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSeparatorMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveSeparatorMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSeparatorMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSeparatorMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveSeparatorMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveSeparatorMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSeparatorMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSeparatorMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSeparatorMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSeparatorMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSeparatorMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSeparatorMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSeparatorMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveSeparatorMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSeparatorMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSeparatorMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveSeparatorMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSeparatorMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSeparatorMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveSeparatorMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveSeparatorMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSeparatorMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSeparatorMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSeparatorMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSeparatorMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSeparatorMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSeparatorMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveSeparatorMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSeparatorMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSeparatorMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveSeparatorMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSeparatorMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSeparatorMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveSeparatorMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSeparatorMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSeparatorMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSeparatorMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSeparatorMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSeparatorMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSeparatorMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSeparatorMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSeparatorMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSeparatorMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSeparatorMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveSeparatorMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveSeparatorMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveSeparatorMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveSeparatorMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSeparatorMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSeparatorMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSeparatorMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSeparatorMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSeparatorMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSeparatorMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSeparatorMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSeparatorMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSeparatorMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveSeparatorMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSeparatorMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSeparatorMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSeparatorMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSeparatorMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSeparatorMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSeparatorMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSeparatorMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSeparatorMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSeparatorMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSeparatorMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSeparatorMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSeparatorMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSeparatorMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSeparatorMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSeparatorMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveSeparatorMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSeparatorMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSeparatorMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSeparatorMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSeparatorMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSeparatorMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSeparatorMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveSeparatorMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSeparatorMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSeparatorMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveSeparatorMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveSeparatorMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveSeparatorMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSeparatorMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSeparatorMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSeparatorMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSeparatorMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSeparatorMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSeparatorMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveSeparatorMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSeparatorMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSeparatorMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSeparatorMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveSeparatorMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSeparatorMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSeparatorMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSeparatorMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSeparatorMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSeparatorMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSeparatorMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveSeparatorMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveSeparatorMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSeparatorMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSeparatorMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSeparatorMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSeparatorMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSeparatorMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSeparatorMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSeparatorMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveSeparatorMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveSeparatorMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSeparatorMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSeparatorMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveSeparatorMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSeparatorMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSeparatorMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSeparatorMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSeparatorMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSeparatorMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSeparatorMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSeparatorMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveSeparatorMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSeparatorMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSeparatorMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSeparatorMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSeparatorMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSeparatorMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveSeparatorMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveSeparatorMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveSeparatorMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveSeparatorMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSeparatorMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSeparatorMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSeparatorMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSeparatorMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSeparatorMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSeparatorMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSeparatorMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveSeparatorMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSeparatorMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSeparatorMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSeparatorMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSeparatorMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSeparatorMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSeparatorMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSeparatorMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSeparatorMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSeparatorMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSeparatorMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSeparatorMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSeparatorMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSeparatorMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveSeparatorMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSeparatorMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSeparatorMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveSeparatorMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveSeparatorMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveSeparatorMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveSeparatorMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSeparatorMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSeparatorMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveSeparatorMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSeparatorMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSeparatorMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveSeparatorMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSeparatorMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSeparatorMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSeparatorMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSeparatorMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveSeparatorMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveSeparatorMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSeparatorMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSeparatorMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSeparatorMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSeparatorMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSeparatorMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSeparatorMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSeparatorMenuItemMethod t SeparatorMenuItem, MethodInfo info SeparatorMenuItem p) => IsLabelProxy t (SeparatorMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSeparatorMenuItemMethod t SeparatorMenuItem, MethodInfo info SeparatorMenuItem p) => IsLabel t (SeparatorMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SeparatorMenuItem = SeparatorMenuItemAttributeList -type SeparatorMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SeparatorMenuItem = SeparatorMenuItemSignalList -type SeparatorMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method SeparatorMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SeparatorMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_separator_menu_item_new" gtk_separator_menu_item_new :: - IO (Ptr SeparatorMenuItem) - - -separatorMenuItemNew :: - (MonadIO m) => - m SeparatorMenuItem -- result -separatorMenuItemNew = liftIO $ do - result <- gtk_separator_menu_item_new - checkUnexpectedReturnNULL "gtk_separator_menu_item_new" result - result' <- (newObject SeparatorMenuItem) result - return result' - - diff --git a/GI/Gtk/Objects/SeparatorMenuItem.hs-boot b/GI/Gtk/Objects/SeparatorMenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SeparatorMenuItem.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.SeparatorMenuItem 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 SeparatorMenuItem = SeparatorMenuItem (ForeignPtr SeparatorMenuItem) -instance GObject SeparatorMenuItem where -class GObject o => SeparatorMenuItemK o -instance (GObject o, IsDescendantOf SeparatorMenuItem o) => SeparatorMenuItemK o diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs b/GI/Gtk/Objects/SeparatorToolItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SeparatorToolItem.hs +++ /dev/null @@ -1,550 +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.Gtk.Objects.SeparatorToolItem - ( - --- * Exported types - SeparatorToolItem(..) , - SeparatorToolItemK , - toSeparatorToolItem , - noSeparatorToolItem , - - - -- * Methods --- ** separatorToolItemGetDraw - SeparatorToolItemGetDrawMethodInfo , - separatorToolItemGetDraw , - - --- ** separatorToolItemNew - separatorToolItemNew , - - --- ** separatorToolItemSetDraw - SeparatorToolItemSetDrawMethodInfo , - separatorToolItemSetDraw , - - - - - -- * Properties --- ** Draw - SeparatorToolItemDrawPropertyInfo , - constructSeparatorToolItemDraw , - getSeparatorToolItemDraw , - separatorToolItemDraw , - setSeparatorToolItemDraw , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SeparatorToolItem = SeparatorToolItem (ForeignPtr SeparatorToolItem) -foreign import ccall "gtk_separator_tool_item_get_type" - c_gtk_separator_tool_item_get_type :: IO GType - -type instance ParentTypes SeparatorToolItem = SeparatorToolItemParentTypes -type SeparatorToolItemParentTypes = '[ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable] - -instance GObject SeparatorToolItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_separator_tool_item_get_type - - -class GObject o => SeparatorToolItemK o -instance (GObject o, IsDescendantOf SeparatorToolItem o) => SeparatorToolItemK o - -toSeparatorToolItem :: SeparatorToolItemK o => o -> IO SeparatorToolItem -toSeparatorToolItem = unsafeCastTo SeparatorToolItem - -noSeparatorToolItem :: Maybe SeparatorToolItem -noSeparatorToolItem = Nothing - -type family ResolveSeparatorToolItemMethod (t :: Symbol) (o :: *) :: * where - ResolveSeparatorToolItemMethod "activate" o = WidgetActivateMethodInfo - ResolveSeparatorToolItemMethod "add" o = ContainerAddMethodInfo - ResolveSeparatorToolItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSeparatorToolItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSeparatorToolItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSeparatorToolItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSeparatorToolItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSeparatorToolItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSeparatorToolItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSeparatorToolItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSeparatorToolItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSeparatorToolItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveSeparatorToolItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSeparatorToolItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveSeparatorToolItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveSeparatorToolItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveSeparatorToolItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveSeparatorToolItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSeparatorToolItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSeparatorToolItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSeparatorToolItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSeparatorToolItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSeparatorToolItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSeparatorToolItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSeparatorToolItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSeparatorToolItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSeparatorToolItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSeparatorToolItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSeparatorToolItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveSeparatorToolItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSeparatorToolItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSeparatorToolItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSeparatorToolItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSeparatorToolItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSeparatorToolItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSeparatorToolItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSeparatorToolItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSeparatorToolItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSeparatorToolItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSeparatorToolItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSeparatorToolItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSeparatorToolItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSeparatorToolItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSeparatorToolItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSeparatorToolItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSeparatorToolItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSeparatorToolItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSeparatorToolItemMethod "draw" o = WidgetDrawMethodInfo - ResolveSeparatorToolItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSeparatorToolItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSeparatorToolItemMethod "event" o = WidgetEventMethodInfo - ResolveSeparatorToolItemMethod "forall" o = ContainerForallMethodInfo - ResolveSeparatorToolItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSeparatorToolItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveSeparatorToolItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSeparatorToolItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSeparatorToolItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSeparatorToolItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSeparatorToolItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSeparatorToolItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSeparatorToolItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSeparatorToolItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSeparatorToolItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSeparatorToolItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSeparatorToolItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSeparatorToolItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSeparatorToolItemMethod "hide" o = WidgetHideMethodInfo - ResolveSeparatorToolItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSeparatorToolItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSeparatorToolItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSeparatorToolItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSeparatorToolItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSeparatorToolItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSeparatorToolItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSeparatorToolItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSeparatorToolItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSeparatorToolItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSeparatorToolItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSeparatorToolItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSeparatorToolItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSeparatorToolItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSeparatorToolItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSeparatorToolItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSeparatorToolItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSeparatorToolItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSeparatorToolItemMethod "map" o = WidgetMapMethodInfo - ResolveSeparatorToolItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSeparatorToolItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSeparatorToolItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSeparatorToolItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSeparatorToolItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSeparatorToolItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSeparatorToolItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSeparatorToolItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSeparatorToolItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSeparatorToolItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSeparatorToolItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSeparatorToolItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSeparatorToolItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSeparatorToolItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSeparatorToolItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSeparatorToolItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSeparatorToolItemMethod "path" o = WidgetPathMethodInfo - ResolveSeparatorToolItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveSeparatorToolItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSeparatorToolItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSeparatorToolItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSeparatorToolItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSeparatorToolItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSeparatorToolItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSeparatorToolItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveSeparatorToolItemMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveSeparatorToolItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSeparatorToolItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSeparatorToolItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSeparatorToolItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSeparatorToolItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveSeparatorToolItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSeparatorToolItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSeparatorToolItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSeparatorToolItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSeparatorToolItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSeparatorToolItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveSeparatorToolItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSeparatorToolItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSeparatorToolItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSeparatorToolItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSeparatorToolItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveSeparatorToolItemMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveSeparatorToolItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSeparatorToolItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSeparatorToolItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSeparatorToolItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSeparatorToolItemMethod "show" o = WidgetShowMethodInfo - ResolveSeparatorToolItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSeparatorToolItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSeparatorToolItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSeparatorToolItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSeparatorToolItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSeparatorToolItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSeparatorToolItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSeparatorToolItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSeparatorToolItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSeparatorToolItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveSeparatorToolItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSeparatorToolItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSeparatorToolItemMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveSeparatorToolItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSeparatorToolItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSeparatorToolItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSeparatorToolItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSeparatorToolItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSeparatorToolItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSeparatorToolItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSeparatorToolItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveSeparatorToolItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSeparatorToolItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSeparatorToolItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSeparatorToolItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSeparatorToolItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSeparatorToolItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSeparatorToolItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSeparatorToolItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSeparatorToolItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSeparatorToolItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSeparatorToolItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveSeparatorToolItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSeparatorToolItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSeparatorToolItemMethod "getChild" o = BinGetChildMethodInfo - ResolveSeparatorToolItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSeparatorToolItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSeparatorToolItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveSeparatorToolItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSeparatorToolItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSeparatorToolItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSeparatorToolItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSeparatorToolItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSeparatorToolItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSeparatorToolItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSeparatorToolItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSeparatorToolItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSeparatorToolItemMethod "getDraw" o = SeparatorToolItemGetDrawMethodInfo - ResolveSeparatorToolItemMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveSeparatorToolItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSeparatorToolItemMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveSeparatorToolItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveSeparatorToolItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveSeparatorToolItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveSeparatorToolItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveSeparatorToolItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSeparatorToolItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSeparatorToolItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSeparatorToolItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSeparatorToolItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSeparatorToolItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSeparatorToolItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSeparatorToolItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSeparatorToolItemMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveSeparatorToolItemMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveSeparatorToolItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSeparatorToolItemMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveSeparatorToolItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSeparatorToolItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSeparatorToolItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSeparatorToolItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSeparatorToolItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSeparatorToolItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSeparatorToolItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSeparatorToolItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSeparatorToolItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSeparatorToolItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSeparatorToolItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSeparatorToolItemMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveSeparatorToolItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSeparatorToolItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSeparatorToolItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSeparatorToolItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSeparatorToolItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveSeparatorToolItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSeparatorToolItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSeparatorToolItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSeparatorToolItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSeparatorToolItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSeparatorToolItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSeparatorToolItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSeparatorToolItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSeparatorToolItemMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveSeparatorToolItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSeparatorToolItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSeparatorToolItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSeparatorToolItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveSeparatorToolItemMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveSeparatorToolItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSeparatorToolItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSeparatorToolItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveSeparatorToolItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSeparatorToolItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSeparatorToolItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSeparatorToolItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSeparatorToolItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSeparatorToolItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSeparatorToolItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveSeparatorToolItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSeparatorToolItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSeparatorToolItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSeparatorToolItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSeparatorToolItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSeparatorToolItemMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveSeparatorToolItemMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveSeparatorToolItemMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveSeparatorToolItemMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveSeparatorToolItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSeparatorToolItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSeparatorToolItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSeparatorToolItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSeparatorToolItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveSeparatorToolItemMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveSeparatorToolItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSeparatorToolItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSeparatorToolItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSeparatorToolItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSeparatorToolItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSeparatorToolItemMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveSeparatorToolItemMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveSeparatorToolItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSeparatorToolItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSeparatorToolItemMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSeparatorToolItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSeparatorToolItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSeparatorToolItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveSeparatorToolItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSeparatorToolItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSeparatorToolItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSeparatorToolItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSeparatorToolItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSeparatorToolItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSeparatorToolItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSeparatorToolItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSeparatorToolItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSeparatorToolItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSeparatorToolItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSeparatorToolItemMethod "setDraw" o = SeparatorToolItemSetDrawMethodInfo - ResolveSeparatorToolItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSeparatorToolItemMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveSeparatorToolItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveSeparatorToolItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveSeparatorToolItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveSeparatorToolItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveSeparatorToolItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSeparatorToolItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSeparatorToolItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSeparatorToolItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSeparatorToolItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSeparatorToolItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSeparatorToolItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSeparatorToolItemMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveSeparatorToolItemMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveSeparatorToolItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSeparatorToolItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSeparatorToolItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSeparatorToolItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSeparatorToolItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSeparatorToolItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSeparatorToolItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSeparatorToolItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSeparatorToolItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSeparatorToolItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSeparatorToolItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSeparatorToolItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSeparatorToolItemMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveSeparatorToolItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSeparatorToolItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveSeparatorToolItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSeparatorToolItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSeparatorToolItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveSeparatorToolItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveSeparatorToolItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSeparatorToolItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSeparatorToolItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveSeparatorToolItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSeparatorToolItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSeparatorToolItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSeparatorToolItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSeparatorToolItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveSeparatorToolItemMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveSeparatorToolItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSeparatorToolItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSeparatorToolItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSeparatorToolItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSeparatorToolItemMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveSeparatorToolItemMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveSeparatorToolItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSeparatorToolItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSeparatorToolItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSeparatorToolItemMethod t SeparatorToolItem, MethodInfo info SeparatorToolItem p) => IsLabelProxy t (SeparatorToolItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSeparatorToolItemMethod t SeparatorToolItem, MethodInfo info SeparatorToolItem p) => IsLabel t (SeparatorToolItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "draw" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSeparatorToolItemDraw :: (MonadIO m, SeparatorToolItemK o) => o -> m Bool -getSeparatorToolItemDraw obj = liftIO $ getObjectPropertyBool obj "draw" - -setSeparatorToolItemDraw :: (MonadIO m, SeparatorToolItemK o) => o -> Bool -> m () -setSeparatorToolItemDraw obj val = liftIO $ setObjectPropertyBool obj "draw" val - -constructSeparatorToolItemDraw :: Bool -> IO ([Char], GValue) -constructSeparatorToolItemDraw val = constructObjectPropertyBool "draw" val - -data SeparatorToolItemDrawPropertyInfo -instance AttrInfo SeparatorToolItemDrawPropertyInfo where - type AttrAllowedOps SeparatorToolItemDrawPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SeparatorToolItemDrawPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SeparatorToolItemDrawPropertyInfo = SeparatorToolItemK - type AttrGetType SeparatorToolItemDrawPropertyInfo = Bool - type AttrLabel SeparatorToolItemDrawPropertyInfo = "draw" - attrGet _ = getSeparatorToolItemDraw - attrSet _ = setSeparatorToolItemDraw - attrConstruct _ = constructSeparatorToolItemDraw - attrClear _ = undefined - -type instance AttributeList SeparatorToolItem = SeparatorToolItemAttributeList -type SeparatorToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -separatorToolItemDraw :: AttrLabelProxy "draw" -separatorToolItemDraw = AttrLabelProxy - -type instance SignalList SeparatorToolItem = SeparatorToolItemSignalList -type SeparatorToolItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method SeparatorToolItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SeparatorToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_separator_tool_item_new" gtk_separator_tool_item_new :: - IO (Ptr SeparatorToolItem) - - -separatorToolItemNew :: - (MonadIO m) => - m SeparatorToolItem -- result -separatorToolItemNew = liftIO $ do - result <- gtk_separator_tool_item_new - checkUnexpectedReturnNULL "gtk_separator_tool_item_new" result - result' <- (newObject SeparatorToolItem) result - return result' - --- method SeparatorToolItem::get_draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", 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 "gtk_separator_tool_item_get_draw" gtk_separator_tool_item_get_draw :: - Ptr SeparatorToolItem -> -- _obj : TInterface "Gtk" "SeparatorToolItem" - IO CInt - - -separatorToolItemGetDraw :: - (MonadIO m, SeparatorToolItemK a) => - a -- _obj - -> m Bool -- result -separatorToolItemGetDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_separator_tool_item_get_draw _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SeparatorToolItemGetDrawMethodInfo -instance (signature ~ (m Bool), MonadIO m, SeparatorToolItemK a) => MethodInfo SeparatorToolItemGetDrawMethodInfo a signature where - overloadedMethod _ = separatorToolItemGetDraw - --- method SeparatorToolItem::set_draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw", 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 "gtk_separator_tool_item_set_draw" gtk_separator_tool_item_set_draw :: - Ptr SeparatorToolItem -> -- _obj : TInterface "Gtk" "SeparatorToolItem" - CInt -> -- draw : TBasicType TBoolean - IO () - - -separatorToolItemSetDraw :: - (MonadIO m, SeparatorToolItemK a) => - a -- _obj - -> Bool -- draw - -> m () -- result -separatorToolItemSetDraw _obj draw = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw' = (fromIntegral . fromEnum) draw - gtk_separator_tool_item_set_draw _obj' draw' - touchManagedPtr _obj - return () - -data SeparatorToolItemSetDrawMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SeparatorToolItemK a) => MethodInfo SeparatorToolItemSetDrawMethodInfo a signature where - overloadedMethod _ = separatorToolItemSetDraw - - diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs-boot b/GI/Gtk/Objects/SeparatorToolItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SeparatorToolItem.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.SeparatorToolItem 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 SeparatorToolItem = SeparatorToolItem (ForeignPtr SeparatorToolItem) -instance GObject SeparatorToolItem where -class GObject o => SeparatorToolItemK o -instance (GObject o, IsDescendantOf SeparatorToolItem o) => SeparatorToolItemK o -data SeparatorToolItemDrawPropertyInfo -data SeparatorToolItemGetDrawMethodInfo -data SeparatorToolItemSetDrawMethodInfo diff --git a/GI/Gtk/Objects/Settings.hs b/GI/Gtk/Objects/Settings.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Settings.hs +++ /dev/null @@ -1,3491 +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.Gtk.Objects.Settings - ( - --- * Exported types - Settings(..) , - SettingsK , - toSettings , - noSettings , - - - -- * Methods --- ** settingsGetDefault - settingsGetDefault , - - --- ** settingsGetForScreen - settingsGetForScreen , - - --- ** settingsInstallProperty - settingsInstallProperty , - - --- ** settingsInstallPropertyParser - settingsInstallPropertyParser , - - --- ** settingsSetDoubleProperty - SettingsSetDoublePropertyMethodInfo , - settingsSetDoubleProperty , - - --- ** settingsSetLongProperty - SettingsSetLongPropertyMethodInfo , - settingsSetLongProperty , - - --- ** settingsSetPropertyValue - SettingsSetPropertyValueMethodInfo , - settingsSetPropertyValue , - - --- ** settingsSetStringProperty - SettingsSetStringPropertyMethodInfo , - settingsSetStringProperty , - - - - - -- * Properties --- ** ColorHash - SettingsColorHashPropertyInfo , - settingsColorHash , - - --- ** GtkAlternativeButtonOrder - SettingsGtkAlternativeButtonOrderPropertyInfo, - constructSettingsGtkAlternativeButtonOrder, - getSettingsGtkAlternativeButtonOrder , - setSettingsGtkAlternativeButtonOrder , - settingsGtkAlternativeButtonOrder , - - --- ** GtkAlternativeSortArrows - SettingsGtkAlternativeSortArrowsPropertyInfo, - constructSettingsGtkAlternativeSortArrows, - getSettingsGtkAlternativeSortArrows , - setSettingsGtkAlternativeSortArrows , - settingsGtkAlternativeSortArrows , - - --- ** GtkApplicationPreferDarkTheme - SettingsGtkApplicationPreferDarkThemePropertyInfo, - constructSettingsGtkApplicationPreferDarkTheme, - getSettingsGtkApplicationPreferDarkTheme, - setSettingsGtkApplicationPreferDarkTheme, - settingsGtkApplicationPreferDarkTheme , - - --- ** GtkAutoMnemonics - SettingsGtkAutoMnemonicsPropertyInfo , - constructSettingsGtkAutoMnemonics , - getSettingsGtkAutoMnemonics , - setSettingsGtkAutoMnemonics , - settingsGtkAutoMnemonics , - - --- ** GtkButtonImages - SettingsGtkButtonImagesPropertyInfo , - constructSettingsGtkButtonImages , - getSettingsGtkButtonImages , - setSettingsGtkButtonImages , - settingsGtkButtonImages , - - --- ** GtkCanChangeAccels - SettingsGtkCanChangeAccelsPropertyInfo , - constructSettingsGtkCanChangeAccels , - getSettingsGtkCanChangeAccels , - setSettingsGtkCanChangeAccels , - settingsGtkCanChangeAccels , - - --- ** GtkColorPalette - SettingsGtkColorPalettePropertyInfo , - clearSettingsGtkColorPalette , - constructSettingsGtkColorPalette , - getSettingsGtkColorPalette , - setSettingsGtkColorPalette , - settingsGtkColorPalette , - - --- ** GtkColorScheme - SettingsGtkColorSchemePropertyInfo , - clearSettingsGtkColorScheme , - constructSettingsGtkColorScheme , - getSettingsGtkColorScheme , - setSettingsGtkColorScheme , - settingsGtkColorScheme , - - --- ** GtkCursorBlink - SettingsGtkCursorBlinkPropertyInfo , - constructSettingsGtkCursorBlink , - getSettingsGtkCursorBlink , - setSettingsGtkCursorBlink , - settingsGtkCursorBlink , - - --- ** GtkCursorBlinkTime - SettingsGtkCursorBlinkTimePropertyInfo , - constructSettingsGtkCursorBlinkTime , - getSettingsGtkCursorBlinkTime , - setSettingsGtkCursorBlinkTime , - settingsGtkCursorBlinkTime , - - --- ** GtkCursorBlinkTimeout - SettingsGtkCursorBlinkTimeoutPropertyInfo, - constructSettingsGtkCursorBlinkTimeout , - getSettingsGtkCursorBlinkTimeout , - setSettingsGtkCursorBlinkTimeout , - settingsGtkCursorBlinkTimeout , - - --- ** GtkCursorThemeName - SettingsGtkCursorThemeNamePropertyInfo , - clearSettingsGtkCursorThemeName , - constructSettingsGtkCursorThemeName , - getSettingsGtkCursorThemeName , - setSettingsGtkCursorThemeName , - settingsGtkCursorThemeName , - - --- ** GtkCursorThemeSize - SettingsGtkCursorThemeSizePropertyInfo , - constructSettingsGtkCursorThemeSize , - getSettingsGtkCursorThemeSize , - setSettingsGtkCursorThemeSize , - settingsGtkCursorThemeSize , - - --- ** GtkDecorationLayout - SettingsGtkDecorationLayoutPropertyInfo , - clearSettingsGtkDecorationLayout , - constructSettingsGtkDecorationLayout , - getSettingsGtkDecorationLayout , - setSettingsGtkDecorationLayout , - settingsGtkDecorationLayout , - - --- ** GtkDialogsUseHeader - SettingsGtkDialogsUseHeaderPropertyInfo , - constructSettingsGtkDialogsUseHeader , - getSettingsGtkDialogsUseHeader , - setSettingsGtkDialogsUseHeader , - settingsGtkDialogsUseHeader , - - --- ** GtkDndDragThreshold - SettingsGtkDndDragThresholdPropertyInfo , - constructSettingsGtkDndDragThreshold , - getSettingsGtkDndDragThreshold , - setSettingsGtkDndDragThreshold , - settingsGtkDndDragThreshold , - - --- ** GtkDoubleClickDistance - SettingsGtkDoubleClickDistancePropertyInfo, - constructSettingsGtkDoubleClickDistance , - getSettingsGtkDoubleClickDistance , - setSettingsGtkDoubleClickDistance , - settingsGtkDoubleClickDistance , - - --- ** GtkDoubleClickTime - SettingsGtkDoubleClickTimePropertyInfo , - constructSettingsGtkDoubleClickTime , - getSettingsGtkDoubleClickTime , - setSettingsGtkDoubleClickTime , - settingsGtkDoubleClickTime , - - --- ** GtkEnableAccels - SettingsGtkEnableAccelsPropertyInfo , - constructSettingsGtkEnableAccels , - getSettingsGtkEnableAccels , - setSettingsGtkEnableAccels , - settingsGtkEnableAccels , - - --- ** GtkEnableAnimations - SettingsGtkEnableAnimationsPropertyInfo , - constructSettingsGtkEnableAnimations , - getSettingsGtkEnableAnimations , - setSettingsGtkEnableAnimations , - settingsGtkEnableAnimations , - - --- ** GtkEnableEventSounds - SettingsGtkEnableEventSoundsPropertyInfo, - constructSettingsGtkEnableEventSounds , - getSettingsGtkEnableEventSounds , - setSettingsGtkEnableEventSounds , - settingsGtkEnableEventSounds , - - --- ** GtkEnableInputFeedbackSounds - SettingsGtkEnableInputFeedbackSoundsPropertyInfo, - constructSettingsGtkEnableInputFeedbackSounds, - getSettingsGtkEnableInputFeedbackSounds , - setSettingsGtkEnableInputFeedbackSounds , - settingsGtkEnableInputFeedbackSounds , - - --- ** GtkEnableMnemonics - SettingsGtkEnableMnemonicsPropertyInfo , - constructSettingsGtkEnableMnemonics , - getSettingsGtkEnableMnemonics , - setSettingsGtkEnableMnemonics , - settingsGtkEnableMnemonics , - - --- ** GtkEnablePrimaryPaste - SettingsGtkEnablePrimaryPastePropertyInfo, - constructSettingsGtkEnablePrimaryPaste , - getSettingsGtkEnablePrimaryPaste , - setSettingsGtkEnablePrimaryPaste , - settingsGtkEnablePrimaryPaste , - - --- ** GtkEnableTooltips - SettingsGtkEnableTooltipsPropertyInfo , - constructSettingsGtkEnableTooltips , - getSettingsGtkEnableTooltips , - setSettingsGtkEnableTooltips , - settingsGtkEnableTooltips , - - --- ** GtkEntryPasswordHintTimeout - SettingsGtkEntryPasswordHintTimeoutPropertyInfo, - constructSettingsGtkEntryPasswordHintTimeout, - getSettingsGtkEntryPasswordHintTimeout , - setSettingsGtkEntryPasswordHintTimeout , - settingsGtkEntryPasswordHintTimeout , - - --- ** GtkEntrySelectOnFocus - SettingsGtkEntrySelectOnFocusPropertyInfo, - constructSettingsGtkEntrySelectOnFocus , - getSettingsGtkEntrySelectOnFocus , - setSettingsGtkEntrySelectOnFocus , - settingsGtkEntrySelectOnFocus , - - --- ** GtkErrorBell - SettingsGtkErrorBellPropertyInfo , - constructSettingsGtkErrorBell , - getSettingsGtkErrorBell , - setSettingsGtkErrorBell , - settingsGtkErrorBell , - - --- ** GtkFallbackIconTheme - SettingsGtkFallbackIconThemePropertyInfo, - clearSettingsGtkFallbackIconTheme , - constructSettingsGtkFallbackIconTheme , - getSettingsGtkFallbackIconTheme , - setSettingsGtkFallbackIconTheme , - settingsGtkFallbackIconTheme , - - --- ** GtkFileChooserBackend - SettingsGtkFileChooserBackendPropertyInfo, - clearSettingsGtkFileChooserBackend , - constructSettingsGtkFileChooserBackend , - getSettingsGtkFileChooserBackend , - setSettingsGtkFileChooserBackend , - settingsGtkFileChooserBackend , - - --- ** GtkFontName - SettingsGtkFontNamePropertyInfo , - clearSettingsGtkFontName , - constructSettingsGtkFontName , - getSettingsGtkFontName , - setSettingsGtkFontName , - settingsGtkFontName , - - --- ** GtkFontconfigTimestamp - SettingsGtkFontconfigTimestampPropertyInfo, - constructSettingsGtkFontconfigTimestamp , - getSettingsGtkFontconfigTimestamp , - setSettingsGtkFontconfigTimestamp , - settingsGtkFontconfigTimestamp , - - --- ** GtkIconSizes - SettingsGtkIconSizesPropertyInfo , - clearSettingsGtkIconSizes , - constructSettingsGtkIconSizes , - getSettingsGtkIconSizes , - setSettingsGtkIconSizes , - settingsGtkIconSizes , - - --- ** GtkIconThemeName - SettingsGtkIconThemeNamePropertyInfo , - clearSettingsGtkIconThemeName , - constructSettingsGtkIconThemeName , - getSettingsGtkIconThemeName , - setSettingsGtkIconThemeName , - settingsGtkIconThemeName , - - --- ** GtkImModule - SettingsGtkImModulePropertyInfo , - clearSettingsGtkImModule , - constructSettingsGtkImModule , - getSettingsGtkImModule , - setSettingsGtkImModule , - settingsGtkImModule , - - --- ** GtkImPreeditStyle - SettingsGtkImPreeditStylePropertyInfo , - constructSettingsGtkImPreeditStyle , - getSettingsGtkImPreeditStyle , - setSettingsGtkImPreeditStyle , - settingsGtkImPreeditStyle , - - --- ** GtkImStatusStyle - SettingsGtkImStatusStylePropertyInfo , - constructSettingsGtkImStatusStyle , - getSettingsGtkImStatusStyle , - setSettingsGtkImStatusStyle , - settingsGtkImStatusStyle , - - --- ** GtkKeyThemeName - SettingsGtkKeyThemeNamePropertyInfo , - clearSettingsGtkKeyThemeName , - constructSettingsGtkKeyThemeName , - getSettingsGtkKeyThemeName , - setSettingsGtkKeyThemeName , - settingsGtkKeyThemeName , - - --- ** GtkKeynavCursorOnly - SettingsGtkKeynavCursorOnlyPropertyInfo , - constructSettingsGtkKeynavCursorOnly , - getSettingsGtkKeynavCursorOnly , - setSettingsGtkKeynavCursorOnly , - settingsGtkKeynavCursorOnly , - - --- ** GtkKeynavWrapAround - SettingsGtkKeynavWrapAroundPropertyInfo , - constructSettingsGtkKeynavWrapAround , - getSettingsGtkKeynavWrapAround , - setSettingsGtkKeynavWrapAround , - settingsGtkKeynavWrapAround , - - --- ** GtkLabelSelectOnFocus - SettingsGtkLabelSelectOnFocusPropertyInfo, - constructSettingsGtkLabelSelectOnFocus , - getSettingsGtkLabelSelectOnFocus , - setSettingsGtkLabelSelectOnFocus , - settingsGtkLabelSelectOnFocus , - - --- ** GtkLongPressTime - SettingsGtkLongPressTimePropertyInfo , - constructSettingsGtkLongPressTime , - getSettingsGtkLongPressTime , - setSettingsGtkLongPressTime , - settingsGtkLongPressTime , - - --- ** GtkMenuBarAccel - SettingsGtkMenuBarAccelPropertyInfo , - clearSettingsGtkMenuBarAccel , - constructSettingsGtkMenuBarAccel , - getSettingsGtkMenuBarAccel , - setSettingsGtkMenuBarAccel , - settingsGtkMenuBarAccel , - - --- ** GtkMenuBarPopupDelay - SettingsGtkMenuBarPopupDelayPropertyInfo, - constructSettingsGtkMenuBarPopupDelay , - getSettingsGtkMenuBarPopupDelay , - setSettingsGtkMenuBarPopupDelay , - settingsGtkMenuBarPopupDelay , - - --- ** GtkMenuImages - SettingsGtkMenuImagesPropertyInfo , - constructSettingsGtkMenuImages , - getSettingsGtkMenuImages , - setSettingsGtkMenuImages , - settingsGtkMenuImages , - - --- ** GtkMenuPopdownDelay - SettingsGtkMenuPopdownDelayPropertyInfo , - constructSettingsGtkMenuPopdownDelay , - getSettingsGtkMenuPopdownDelay , - setSettingsGtkMenuPopdownDelay , - settingsGtkMenuPopdownDelay , - - --- ** GtkMenuPopupDelay - SettingsGtkMenuPopupDelayPropertyInfo , - constructSettingsGtkMenuPopupDelay , - getSettingsGtkMenuPopupDelay , - setSettingsGtkMenuPopupDelay , - settingsGtkMenuPopupDelay , - - --- ** GtkModules - SettingsGtkModulesPropertyInfo , - clearSettingsGtkModules , - constructSettingsGtkModules , - getSettingsGtkModules , - setSettingsGtkModules , - settingsGtkModules , - - --- ** GtkPrimaryButtonWarpsSlider - SettingsGtkPrimaryButtonWarpsSliderPropertyInfo, - constructSettingsGtkPrimaryButtonWarpsSlider, - getSettingsGtkPrimaryButtonWarpsSlider , - setSettingsGtkPrimaryButtonWarpsSlider , - settingsGtkPrimaryButtonWarpsSlider , - - --- ** GtkPrintBackends - SettingsGtkPrintBackendsPropertyInfo , - clearSettingsGtkPrintBackends , - constructSettingsGtkPrintBackends , - getSettingsGtkPrintBackends , - setSettingsGtkPrintBackends , - settingsGtkPrintBackends , - - --- ** GtkPrintPreviewCommand - SettingsGtkPrintPreviewCommandPropertyInfo, - clearSettingsGtkPrintPreviewCommand , - constructSettingsGtkPrintPreviewCommand , - getSettingsGtkPrintPreviewCommand , - setSettingsGtkPrintPreviewCommand , - settingsGtkPrintPreviewCommand , - - --- ** GtkRecentFilesEnabled - SettingsGtkRecentFilesEnabledPropertyInfo, - constructSettingsGtkRecentFilesEnabled , - getSettingsGtkRecentFilesEnabled , - setSettingsGtkRecentFilesEnabled , - settingsGtkRecentFilesEnabled , - - --- ** GtkRecentFilesLimit - SettingsGtkRecentFilesLimitPropertyInfo , - constructSettingsGtkRecentFilesLimit , - getSettingsGtkRecentFilesLimit , - setSettingsGtkRecentFilesLimit , - settingsGtkRecentFilesLimit , - - --- ** GtkRecentFilesMaxAge - SettingsGtkRecentFilesMaxAgePropertyInfo, - constructSettingsGtkRecentFilesMaxAge , - getSettingsGtkRecentFilesMaxAge , - setSettingsGtkRecentFilesMaxAge , - settingsGtkRecentFilesMaxAge , - - --- ** GtkScrolledWindowPlacement - SettingsGtkScrolledWindowPlacementPropertyInfo, - constructSettingsGtkScrolledWindowPlacement, - getSettingsGtkScrolledWindowPlacement , - setSettingsGtkScrolledWindowPlacement , - settingsGtkScrolledWindowPlacement , - - --- ** GtkShellShowsAppMenu - SettingsGtkShellShowsAppMenuPropertyInfo, - constructSettingsGtkShellShowsAppMenu , - getSettingsGtkShellShowsAppMenu , - setSettingsGtkShellShowsAppMenu , - settingsGtkShellShowsAppMenu , - - --- ** GtkShellShowsDesktop - SettingsGtkShellShowsDesktopPropertyInfo, - constructSettingsGtkShellShowsDesktop , - getSettingsGtkShellShowsDesktop , - setSettingsGtkShellShowsDesktop , - settingsGtkShellShowsDesktop , - - --- ** GtkShellShowsMenubar - SettingsGtkShellShowsMenubarPropertyInfo, - constructSettingsGtkShellShowsMenubar , - getSettingsGtkShellShowsMenubar , - setSettingsGtkShellShowsMenubar , - settingsGtkShellShowsMenubar , - - --- ** GtkShowInputMethodMenu - SettingsGtkShowInputMethodMenuPropertyInfo, - constructSettingsGtkShowInputMethodMenu , - getSettingsGtkShowInputMethodMenu , - setSettingsGtkShowInputMethodMenu , - settingsGtkShowInputMethodMenu , - - --- ** GtkShowUnicodeMenu - SettingsGtkShowUnicodeMenuPropertyInfo , - constructSettingsGtkShowUnicodeMenu , - getSettingsGtkShowUnicodeMenu , - setSettingsGtkShowUnicodeMenu , - settingsGtkShowUnicodeMenu , - - --- ** GtkSoundThemeName - SettingsGtkSoundThemeNamePropertyInfo , - clearSettingsGtkSoundThemeName , - constructSettingsGtkSoundThemeName , - getSettingsGtkSoundThemeName , - setSettingsGtkSoundThemeName , - settingsGtkSoundThemeName , - - --- ** GtkSplitCursor - SettingsGtkSplitCursorPropertyInfo , - constructSettingsGtkSplitCursor , - getSettingsGtkSplitCursor , - setSettingsGtkSplitCursor , - settingsGtkSplitCursor , - - --- ** GtkThemeName - SettingsGtkThemeNamePropertyInfo , - clearSettingsGtkThemeName , - constructSettingsGtkThemeName , - getSettingsGtkThemeName , - setSettingsGtkThemeName , - settingsGtkThemeName , - - --- ** GtkTimeoutExpand - SettingsGtkTimeoutExpandPropertyInfo , - constructSettingsGtkTimeoutExpand , - getSettingsGtkTimeoutExpand , - setSettingsGtkTimeoutExpand , - settingsGtkTimeoutExpand , - - --- ** GtkTimeoutInitial - SettingsGtkTimeoutInitialPropertyInfo , - constructSettingsGtkTimeoutInitial , - getSettingsGtkTimeoutInitial , - setSettingsGtkTimeoutInitial , - settingsGtkTimeoutInitial , - - --- ** GtkTimeoutRepeat - SettingsGtkTimeoutRepeatPropertyInfo , - constructSettingsGtkTimeoutRepeat , - getSettingsGtkTimeoutRepeat , - setSettingsGtkTimeoutRepeat , - settingsGtkTimeoutRepeat , - - --- ** GtkTitlebarDoubleClick - SettingsGtkTitlebarDoubleClickPropertyInfo, - clearSettingsGtkTitlebarDoubleClick , - constructSettingsGtkTitlebarDoubleClick , - getSettingsGtkTitlebarDoubleClick , - setSettingsGtkTitlebarDoubleClick , - settingsGtkTitlebarDoubleClick , - - --- ** GtkTitlebarMiddleClick - SettingsGtkTitlebarMiddleClickPropertyInfo, - clearSettingsGtkTitlebarMiddleClick , - constructSettingsGtkTitlebarMiddleClick , - getSettingsGtkTitlebarMiddleClick , - setSettingsGtkTitlebarMiddleClick , - settingsGtkTitlebarMiddleClick , - - --- ** GtkTitlebarRightClick - SettingsGtkTitlebarRightClickPropertyInfo, - clearSettingsGtkTitlebarRightClick , - constructSettingsGtkTitlebarRightClick , - getSettingsGtkTitlebarRightClick , - setSettingsGtkTitlebarRightClick , - settingsGtkTitlebarRightClick , - - --- ** GtkToolbarIconSize - SettingsGtkToolbarIconSizePropertyInfo , - constructSettingsGtkToolbarIconSize , - getSettingsGtkToolbarIconSize , - setSettingsGtkToolbarIconSize , - settingsGtkToolbarIconSize , - - --- ** GtkToolbarStyle - SettingsGtkToolbarStylePropertyInfo , - constructSettingsGtkToolbarStyle , - getSettingsGtkToolbarStyle , - setSettingsGtkToolbarStyle , - settingsGtkToolbarStyle , - - --- ** GtkTooltipBrowseModeTimeout - SettingsGtkTooltipBrowseModeTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseModeTimeout, - getSettingsGtkTooltipBrowseModeTimeout , - setSettingsGtkTooltipBrowseModeTimeout , - settingsGtkTooltipBrowseModeTimeout , - - --- ** GtkTooltipBrowseTimeout - SettingsGtkTooltipBrowseTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseTimeout, - getSettingsGtkTooltipBrowseTimeout , - setSettingsGtkTooltipBrowseTimeout , - settingsGtkTooltipBrowseTimeout , - - --- ** GtkTooltipTimeout - SettingsGtkTooltipTimeoutPropertyInfo , - constructSettingsGtkTooltipTimeout , - getSettingsGtkTooltipTimeout , - setSettingsGtkTooltipTimeout , - settingsGtkTooltipTimeout , - - --- ** GtkTouchscreenMode - SettingsGtkTouchscreenModePropertyInfo , - constructSettingsGtkTouchscreenMode , - getSettingsGtkTouchscreenMode , - setSettingsGtkTouchscreenMode , - settingsGtkTouchscreenMode , - - --- ** GtkVisibleFocus - SettingsGtkVisibleFocusPropertyInfo , - constructSettingsGtkVisibleFocus , - getSettingsGtkVisibleFocus , - setSettingsGtkVisibleFocus , - settingsGtkVisibleFocus , - - --- ** GtkXftAntialias - SettingsGtkXftAntialiasPropertyInfo , - constructSettingsGtkXftAntialias , - getSettingsGtkXftAntialias , - setSettingsGtkXftAntialias , - settingsGtkXftAntialias , - - --- ** GtkXftDpi - SettingsGtkXftDpiPropertyInfo , - constructSettingsGtkXftDpi , - getSettingsGtkXftDpi , - setSettingsGtkXftDpi , - settingsGtkXftDpi , - - --- ** GtkXftHinting - SettingsGtkXftHintingPropertyInfo , - constructSettingsGtkXftHinting , - getSettingsGtkXftHinting , - setSettingsGtkXftHinting , - settingsGtkXftHinting , - - --- ** GtkXftHintstyle - SettingsGtkXftHintstylePropertyInfo , - clearSettingsGtkXftHintstyle , - constructSettingsGtkXftHintstyle , - getSettingsGtkXftHintstyle , - setSettingsGtkXftHintstyle , - settingsGtkXftHintstyle , - - --- ** GtkXftRgba - SettingsGtkXftRgbaPropertyInfo , - clearSettingsGtkXftRgba , - constructSettingsGtkXftRgba , - getSettingsGtkXftRgba , - setSettingsGtkXftRgba , - settingsGtkXftRgba , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Settings = Settings (ForeignPtr Settings) -foreign import ccall "gtk_settings_get_type" - c_gtk_settings_get_type :: IO GType - -type instance ParentTypes Settings = SettingsParentTypes -type SettingsParentTypes = '[GObject.Object, StyleProvider] - -instance GObject Settings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_settings_get_type - - -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o - -toSettings :: SettingsK o => o -> IO Settings -toSettings = unsafeCastTo Settings - -noSettings :: Maybe Settings -noSettings = Nothing - -type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSettingsMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo - ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSettingsMethod "getStyle" o = StyleProviderGetStyleMethodInfo - ResolveSettingsMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo - ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSettingsMethod "setDoubleProperty" o = SettingsSetDoublePropertyMethodInfo - ResolveSettingsMethod "setLongProperty" o = SettingsSetLongPropertyMethodInfo - ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSettingsMethod "setPropertyValue" o = SettingsSetPropertyValueMethodInfo - ResolveSettingsMethod "setStringProperty" o = SettingsSetStringPropertyMethodInfo - ResolveSettingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- XXX Generation of property "color-hash" of object "Settings" failed: Not implemented: "Property SettingsColorHash has unsupported transfer type TransferContainer" --- XXX Placeholder -data SettingsColorHashPropertyInfo -instance AttrInfo SettingsColorHashPropertyInfo where - type AttrAllowedOps SettingsColorHashPropertyInfo = '[] - type AttrSetTypeConstraint SettingsColorHashPropertyInfo = (~) () - type AttrBaseTypeConstraint SettingsColorHashPropertyInfo = (~) () - type AttrGetType SettingsColorHashPropertyInfo = () - type AttrLabel SettingsColorHashPropertyInfo = "" - attrGet = undefined - attrSet = undefined - attrConstruct = undefined - attrClear = undefined --- VVV Prop "gtk-alternative-button-order" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAlternativeButtonOrder obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-button-order" - -setSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAlternativeButtonOrder obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-button-order" val - -constructSettingsGtkAlternativeButtonOrder :: Bool -> IO ([Char], GValue) -constructSettingsGtkAlternativeButtonOrder val = constructObjectPropertyBool "gtk-alternative-button-order" val - -data SettingsGtkAlternativeButtonOrderPropertyInfo -instance AttrInfo SettingsGtkAlternativeButtonOrderPropertyInfo where - type AttrAllowedOps SettingsGtkAlternativeButtonOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = SettingsK - type AttrGetType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "gtk-alternative-button-order" - attrGet _ = getSettingsGtkAlternativeButtonOrder - attrSet _ = setSettingsGtkAlternativeButtonOrder - attrConstruct _ = constructSettingsGtkAlternativeButtonOrder - attrClear _ = undefined - --- VVV Prop "gtk-alternative-sort-arrows" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAlternativeSortArrows obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-sort-arrows" - -setSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAlternativeSortArrows obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-sort-arrows" val - -constructSettingsGtkAlternativeSortArrows :: Bool -> IO ([Char], GValue) -constructSettingsGtkAlternativeSortArrows val = constructObjectPropertyBool "gtk-alternative-sort-arrows" val - -data SettingsGtkAlternativeSortArrowsPropertyInfo -instance AttrInfo SettingsGtkAlternativeSortArrowsPropertyInfo where - type AttrAllowedOps SettingsGtkAlternativeSortArrowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = SettingsK - type AttrGetType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "gtk-alternative-sort-arrows" - attrGet _ = getSettingsGtkAlternativeSortArrows - attrSet _ = setSettingsGtkAlternativeSortArrows - attrConstruct _ = constructSettingsGtkAlternativeSortArrows - attrClear _ = undefined - --- VVV Prop "gtk-application-prefer-dark-theme" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkApplicationPreferDarkTheme obj = liftIO $ getObjectPropertyBool obj "gtk-application-prefer-dark-theme" - -setSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkApplicationPreferDarkTheme obj val = liftIO $ setObjectPropertyBool obj "gtk-application-prefer-dark-theme" val - -constructSettingsGtkApplicationPreferDarkTheme :: Bool -> IO ([Char], GValue) -constructSettingsGtkApplicationPreferDarkTheme val = constructObjectPropertyBool "gtk-application-prefer-dark-theme" val - -data SettingsGtkApplicationPreferDarkThemePropertyInfo -instance AttrInfo SettingsGtkApplicationPreferDarkThemePropertyInfo where - type AttrAllowedOps SettingsGtkApplicationPreferDarkThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = SettingsK - type AttrGetType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool - type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "gtk-application-prefer-dark-theme" - attrGet _ = getSettingsGtkApplicationPreferDarkTheme - attrSet _ = setSettingsGtkApplicationPreferDarkTheme - attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme - attrClear _ = undefined - --- VVV Prop "gtk-auto-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAutoMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-auto-mnemonics" - -setSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAutoMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-auto-mnemonics" val - -constructSettingsGtkAutoMnemonics :: Bool -> IO ([Char], GValue) -constructSettingsGtkAutoMnemonics val = constructObjectPropertyBool "gtk-auto-mnemonics" val - -data SettingsGtkAutoMnemonicsPropertyInfo -instance AttrInfo SettingsGtkAutoMnemonicsPropertyInfo where - type AttrAllowedOps SettingsGtkAutoMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = SettingsK - type AttrGetType SettingsGtkAutoMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "gtk-auto-mnemonics" - attrGet _ = getSettingsGtkAutoMnemonics - attrSet _ = setSettingsGtkAutoMnemonics - attrConstruct _ = constructSettingsGtkAutoMnemonics - attrClear _ = undefined - --- VVV Prop "gtk-button-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkButtonImages obj = liftIO $ getObjectPropertyBool obj "gtk-button-images" - -setSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkButtonImages obj val = liftIO $ setObjectPropertyBool obj "gtk-button-images" val - -constructSettingsGtkButtonImages :: Bool -> IO ([Char], GValue) -constructSettingsGtkButtonImages val = constructObjectPropertyBool "gtk-button-images" val - -data SettingsGtkButtonImagesPropertyInfo -instance AttrInfo SettingsGtkButtonImagesPropertyInfo where - type AttrAllowedOps SettingsGtkButtonImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkButtonImagesPropertyInfo = SettingsK - type AttrGetType SettingsGtkButtonImagesPropertyInfo = Bool - type AttrLabel SettingsGtkButtonImagesPropertyInfo = "gtk-button-images" - attrGet _ = getSettingsGtkButtonImages - attrSet _ = setSettingsGtkButtonImages - attrConstruct _ = constructSettingsGtkButtonImages - attrClear _ = undefined - --- VVV Prop "gtk-can-change-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkCanChangeAccels obj = liftIO $ getObjectPropertyBool obj "gtk-can-change-accels" - -setSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkCanChangeAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-can-change-accels" val - -constructSettingsGtkCanChangeAccels :: Bool -> IO ([Char], GValue) -constructSettingsGtkCanChangeAccels val = constructObjectPropertyBool "gtk-can-change-accels" val - -data SettingsGtkCanChangeAccelsPropertyInfo -instance AttrInfo SettingsGtkCanChangeAccelsPropertyInfo where - type AttrAllowedOps SettingsGtkCanChangeAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = SettingsK - type AttrGetType SettingsGtkCanChangeAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "gtk-can-change-accels" - attrGet _ = getSettingsGtkCanChangeAccels - attrSet _ = setSettingsGtkCanChangeAccels - attrConstruct _ = constructSettingsGtkCanChangeAccels - attrClear _ = undefined - --- VVV Prop "gtk-color-palette" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkColorPalette obj = liftIO $ getObjectPropertyString obj "gtk-color-palette" - -setSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkColorPalette obj val = liftIO $ setObjectPropertyString obj "gtk-color-palette" (Just val) - -constructSettingsGtkColorPalette :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorPalette val = constructObjectPropertyString "gtk-color-palette" (Just val) - -clearSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkColorPalette obj = liftIO $ setObjectPropertyString obj "gtk-color-palette" (Nothing :: Maybe T.Text) - -data SettingsGtkColorPalettePropertyInfo -instance AttrInfo SettingsGtkColorPalettePropertyInfo where - type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorPalettePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkColorPalettePropertyInfo = "gtk-color-palette" - attrGet _ = getSettingsGtkColorPalette - attrSet _ = setSettingsGtkColorPalette - attrConstruct _ = constructSettingsGtkColorPalette - attrClear _ = clearSettingsGtkColorPalette - --- VVV Prop "gtk-color-scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkColorScheme obj = liftIO $ getObjectPropertyString obj "gtk-color-scheme" - -setSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkColorScheme obj val = liftIO $ setObjectPropertyString obj "gtk-color-scheme" (Just val) - -constructSettingsGtkColorScheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorScheme val = constructObjectPropertyString "gtk-color-scheme" (Just val) - -clearSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkColorScheme obj = liftIO $ setObjectPropertyString obj "gtk-color-scheme" (Nothing :: Maybe T.Text) - -data SettingsGtkColorSchemePropertyInfo -instance AttrInfo SettingsGtkColorSchemePropertyInfo where - type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorSchemePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkColorSchemePropertyInfo = "gtk-color-scheme" - attrGet _ = getSettingsGtkColorScheme - attrSet _ = setSettingsGtkColorScheme - attrConstruct _ = constructSettingsGtkColorScheme - attrClear _ = clearSettingsGtkColorScheme - --- VVV Prop "gtk-cursor-blink" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkCursorBlink obj = liftIO $ getObjectPropertyBool obj "gtk-cursor-blink" - -setSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkCursorBlink obj val = liftIO $ setObjectPropertyBool obj "gtk-cursor-blink" val - -constructSettingsGtkCursorBlink :: Bool -> IO ([Char], GValue) -constructSettingsGtkCursorBlink val = constructObjectPropertyBool "gtk-cursor-blink" val - -data SettingsGtkCursorBlinkPropertyInfo -instance AttrInfo SettingsGtkCursorBlinkPropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkCursorBlinkPropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkPropertyInfo = Bool - type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "gtk-cursor-blink" - attrGet _ = getSettingsGtkCursorBlink - attrSet _ = setSettingsGtkCursorBlink - attrConstruct _ = constructSettingsGtkCursorBlink - attrClear _ = undefined - --- VVV Prop "gtk-cursor-blink-time" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTime obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-blink-time" - -setSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTime obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-blink-time" val - -constructSettingsGtkCursorBlinkTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTime val = constructObjectPropertyInt32 "gtk-cursor-blink-time" val - -data SettingsGtkCursorBlinkTimePropertyInfo -instance AttrInfo SettingsGtkCursorBlinkTimePropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkTimePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "gtk-cursor-blink-time" - attrGet _ = getSettingsGtkCursorBlinkTime - attrSet _ = setSettingsGtkCursorBlinkTime - attrConstruct _ = constructSettingsGtkCursorBlinkTime - attrClear _ = undefined - --- VVV Prop "gtk-cursor-blink-timeout" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-blink-timeout" - -setSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-blink-timeout" val - -constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTimeout val = constructObjectPropertyInt32 "gtk-cursor-blink-timeout" val - -data SettingsGtkCursorBlinkTimeoutPropertyInfo -instance AttrInfo SettingsGtkCursorBlinkTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "gtk-cursor-blink-timeout" - attrGet _ = getSettingsGtkCursorBlinkTimeout - attrSet _ = setSettingsGtkCursorBlinkTimeout - attrConstruct _ = constructSettingsGtkCursorBlinkTimeout - attrClear _ = undefined - --- VVV Prop "gtk-cursor-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkCursorThemeName obj = liftIO $ getObjectPropertyString obj "gtk-cursor-theme-name" - -setSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkCursorThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-cursor-theme-name" (Just val) - -constructSettingsGtkCursorThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkCursorThemeName val = constructObjectPropertyString "gtk-cursor-theme-name" (Just val) - -clearSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkCursorThemeName obj = liftIO $ setObjectPropertyString obj "gtk-cursor-theme-name" (Nothing :: Maybe T.Text) - -data SettingsGtkCursorThemeNamePropertyInfo -instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "gtk-cursor-theme-name" - attrGet _ = getSettingsGtkCursorThemeName - attrSet _ = setSettingsGtkCursorThemeName - attrConstruct _ = constructSettingsGtkCursorThemeName - attrClear _ = clearSettingsGtkCursorThemeName - --- VVV Prop "gtk-cursor-theme-size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorThemeSize obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-theme-size" - -setSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorThemeSize obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-theme-size" val - -constructSettingsGtkCursorThemeSize :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorThemeSize val = constructObjectPropertyInt32 "gtk-cursor-theme-size" val - -data SettingsGtkCursorThemeSizePropertyInfo -instance AttrInfo SettingsGtkCursorThemeSizePropertyInfo where - type AttrAllowedOps SettingsGtkCursorThemeSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorThemeSizePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "gtk-cursor-theme-size" - attrGet _ = getSettingsGtkCursorThemeSize - attrSet _ = setSettingsGtkCursorThemeSize - attrConstruct _ = constructSettingsGtkCursorThemeSize - attrClear _ = undefined - --- VVV Prop "gtk-decoration-layout" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkDecorationLayout obj = liftIO $ getObjectPropertyString obj "gtk-decoration-layout" - -setSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkDecorationLayout obj val = liftIO $ setObjectPropertyString obj "gtk-decoration-layout" (Just val) - -constructSettingsGtkDecorationLayout :: T.Text -> IO ([Char], GValue) -constructSettingsGtkDecorationLayout val = constructObjectPropertyString "gtk-decoration-layout" (Just val) - -clearSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkDecorationLayout obj = liftIO $ setObjectPropertyString obj "gtk-decoration-layout" (Nothing :: Maybe T.Text) - -data SettingsGtkDecorationLayoutPropertyInfo -instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where - type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "gtk-decoration-layout" - attrGet _ = getSettingsGtkDecorationLayout - attrSet _ = setSettingsGtkDecorationLayout - attrConstruct _ = constructSettingsGtkDecorationLayout - attrClear _ = clearSettingsGtkDecorationLayout - --- VVV Prop "gtk-dialogs-use-header" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkDialogsUseHeader obj = liftIO $ getObjectPropertyBool obj "gtk-dialogs-use-header" - -setSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkDialogsUseHeader obj val = liftIO $ setObjectPropertyBool obj "gtk-dialogs-use-header" val - -constructSettingsGtkDialogsUseHeader :: Bool -> IO ([Char], GValue) -constructSettingsGtkDialogsUseHeader val = constructObjectPropertyBool "gtk-dialogs-use-header" val - -data SettingsGtkDialogsUseHeaderPropertyInfo -instance AttrInfo SettingsGtkDialogsUseHeaderPropertyInfo where - type AttrAllowedOps SettingsGtkDialogsUseHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = SettingsK - type AttrGetType SettingsGtkDialogsUseHeaderPropertyInfo = Bool - type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "gtk-dialogs-use-header" - attrGet _ = getSettingsGtkDialogsUseHeader - attrSet _ = setSettingsGtkDialogsUseHeader - attrConstruct _ = constructSettingsGtkDialogsUseHeader - attrClear _ = undefined - --- VVV Prop "gtk-dnd-drag-threshold" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDndDragThreshold obj = liftIO $ getObjectPropertyInt32 obj "gtk-dnd-drag-threshold" - -setSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDndDragThreshold obj val = liftIO $ setObjectPropertyInt32 obj "gtk-dnd-drag-threshold" val - -constructSettingsGtkDndDragThreshold :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDndDragThreshold val = constructObjectPropertyInt32 "gtk-dnd-drag-threshold" val - -data SettingsGtkDndDragThresholdPropertyInfo -instance AttrInfo SettingsGtkDndDragThresholdPropertyInfo where - type AttrAllowedOps SettingsGtkDndDragThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = SettingsK - type AttrGetType SettingsGtkDndDragThresholdPropertyInfo = Int32 - type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "gtk-dnd-drag-threshold" - attrGet _ = getSettingsGtkDndDragThreshold - attrSet _ = setSettingsGtkDndDragThreshold - attrConstruct _ = constructSettingsGtkDndDragThreshold - attrClear _ = undefined - --- VVV Prop "gtk-double-click-distance" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickDistance obj = liftIO $ getObjectPropertyInt32 obj "gtk-double-click-distance" - -setSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickDistance obj val = liftIO $ setObjectPropertyInt32 obj "gtk-double-click-distance" val - -constructSettingsGtkDoubleClickDistance :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickDistance val = constructObjectPropertyInt32 "gtk-double-click-distance" val - -data SettingsGtkDoubleClickDistancePropertyInfo -instance AttrInfo SettingsGtkDoubleClickDistancePropertyInfo where - type AttrAllowedOps SettingsGtkDoubleClickDistancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = SettingsK - type AttrGetType SettingsGtkDoubleClickDistancePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "gtk-double-click-distance" - attrGet _ = getSettingsGtkDoubleClickDistance - attrSet _ = setSettingsGtkDoubleClickDistance - attrConstruct _ = constructSettingsGtkDoubleClickDistance - attrClear _ = undefined - --- VVV Prop "gtk-double-click-time" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickTime obj = liftIO $ getObjectPropertyInt32 obj "gtk-double-click-time" - -setSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickTime obj val = liftIO $ setObjectPropertyInt32 obj "gtk-double-click-time" val - -constructSettingsGtkDoubleClickTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickTime val = constructObjectPropertyInt32 "gtk-double-click-time" val - -data SettingsGtkDoubleClickTimePropertyInfo -instance AttrInfo SettingsGtkDoubleClickTimePropertyInfo where - type AttrAllowedOps SettingsGtkDoubleClickTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkDoubleClickTimePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "gtk-double-click-time" - attrGet _ = getSettingsGtkDoubleClickTime - attrSet _ = setSettingsGtkDoubleClickTime - attrConstruct _ = constructSettingsGtkDoubleClickTime - attrClear _ = undefined - --- VVV Prop "gtk-enable-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableAccels obj = liftIO $ getObjectPropertyBool obj "gtk-enable-accels" - -setSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-accels" val - -constructSettingsGtkEnableAccels :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableAccels val = constructObjectPropertyBool "gtk-enable-accels" val - -data SettingsGtkEnableAccelsPropertyInfo -instance AttrInfo SettingsGtkEnableAccelsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableAccelsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "gtk-enable-accels" - attrGet _ = getSettingsGtkEnableAccels - attrSet _ = setSettingsGtkEnableAccels - attrConstruct _ = constructSettingsGtkEnableAccels - attrClear _ = undefined - --- VVV Prop "gtk-enable-animations" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableAnimations obj = liftIO $ getObjectPropertyBool obj "gtk-enable-animations" - -setSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableAnimations obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-animations" val - -constructSettingsGtkEnableAnimations :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableAnimations val = constructObjectPropertyBool "gtk-enable-animations" val - -data SettingsGtkEnableAnimationsPropertyInfo -instance AttrInfo SettingsGtkEnableAnimationsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableAnimationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableAnimationsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "gtk-enable-animations" - attrGet _ = getSettingsGtkEnableAnimations - attrSet _ = setSettingsGtkEnableAnimations - attrConstruct _ = constructSettingsGtkEnableAnimations - attrClear _ = undefined - --- VVV Prop "gtk-enable-event-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableEventSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-event-sounds" - -setSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableEventSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-event-sounds" val - -constructSettingsGtkEnableEventSounds :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableEventSounds val = constructObjectPropertyBool "gtk-enable-event-sounds" val - -data SettingsGtkEnableEventSoundsPropertyInfo -instance AttrInfo SettingsGtkEnableEventSoundsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableEventSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableEventSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "gtk-enable-event-sounds" - attrGet _ = getSettingsGtkEnableEventSounds - attrSet _ = setSettingsGtkEnableEventSounds - attrConstruct _ = constructSettingsGtkEnableEventSounds - attrClear _ = undefined - --- VVV Prop "gtk-enable-input-feedback-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableInputFeedbackSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-input-feedback-sounds" - -setSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableInputFeedbackSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-input-feedback-sounds" val - -constructSettingsGtkEnableInputFeedbackSounds :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableInputFeedbackSounds val = constructObjectPropertyBool "gtk-enable-input-feedback-sounds" val - -data SettingsGtkEnableInputFeedbackSoundsPropertyInfo -instance AttrInfo SettingsGtkEnableInputFeedbackSoundsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableInputFeedbackSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "gtk-enable-input-feedback-sounds" - attrGet _ = getSettingsGtkEnableInputFeedbackSounds - attrSet _ = setSettingsGtkEnableInputFeedbackSounds - attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds - attrClear _ = undefined - --- VVV Prop "gtk-enable-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-enable-mnemonics" - -setSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-mnemonics" val - -constructSettingsGtkEnableMnemonics :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableMnemonics val = constructObjectPropertyBool "gtk-enable-mnemonics" val - -data SettingsGtkEnableMnemonicsPropertyInfo -instance AttrInfo SettingsGtkEnableMnemonicsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "gtk-enable-mnemonics" - attrGet _ = getSettingsGtkEnableMnemonics - attrSet _ = setSettingsGtkEnableMnemonics - attrConstruct _ = constructSettingsGtkEnableMnemonics - attrClear _ = undefined - --- VVV Prop "gtk-enable-primary-paste" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnablePrimaryPaste obj = liftIO $ getObjectPropertyBool obj "gtk-enable-primary-paste" - -setSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnablePrimaryPaste obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-primary-paste" val - -constructSettingsGtkEnablePrimaryPaste :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnablePrimaryPaste val = constructObjectPropertyBool "gtk-enable-primary-paste" val - -data SettingsGtkEnablePrimaryPastePropertyInfo -instance AttrInfo SettingsGtkEnablePrimaryPastePropertyInfo where - type AttrAllowedOps SettingsGtkEnablePrimaryPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = SettingsK - type AttrGetType SettingsGtkEnablePrimaryPastePropertyInfo = Bool - type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "gtk-enable-primary-paste" - attrGet _ = getSettingsGtkEnablePrimaryPaste - attrSet _ = setSettingsGtkEnablePrimaryPaste - attrConstruct _ = constructSettingsGtkEnablePrimaryPaste - attrClear _ = undefined - --- VVV Prop "gtk-enable-tooltips" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableTooltips obj = liftIO $ getObjectPropertyBool obj "gtk-enable-tooltips" - -setSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableTooltips obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-tooltips" val - -constructSettingsGtkEnableTooltips :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableTooltips val = constructObjectPropertyBool "gtk-enable-tooltips" val - -data SettingsGtkEnableTooltipsPropertyInfo -instance AttrInfo SettingsGtkEnableTooltipsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableTooltipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableTooltipsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "gtk-enable-tooltips" - attrGet _ = getSettingsGtkEnableTooltips - attrSet _ = setSettingsGtkEnableTooltips - attrConstruct _ = constructSettingsGtkEnableTooltips - attrClear _ = undefined - --- VVV Prop "gtk-entry-password-hint-timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkEntryPasswordHintTimeout obj = liftIO $ getObjectPropertyUInt32 obj "gtk-entry-password-hint-timeout" - -setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkEntryPasswordHintTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-entry-password-hint-timeout" val - -constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO ([Char], GValue) -constructSettingsGtkEntryPasswordHintTimeout val = constructObjectPropertyUInt32 "gtk-entry-password-hint-timeout" val - -data SettingsGtkEntryPasswordHintTimeoutPropertyInfo -instance AttrInfo SettingsGtkEntryPasswordHintTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkEntryPasswordHintTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32 - type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "gtk-entry-password-hint-timeout" - attrGet _ = getSettingsGtkEntryPasswordHintTimeout - attrSet _ = setSettingsGtkEntryPasswordHintTimeout - attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout - attrClear _ = undefined - --- VVV Prop "gtk-entry-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEntrySelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-entry-select-on-focus" - -setSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEntrySelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-entry-select-on-focus" val - -constructSettingsGtkEntrySelectOnFocus :: Bool -> IO ([Char], GValue) -constructSettingsGtkEntrySelectOnFocus val = constructObjectPropertyBool "gtk-entry-select-on-focus" val - -data SettingsGtkEntrySelectOnFocusPropertyInfo -instance AttrInfo SettingsGtkEntrySelectOnFocusPropertyInfo where - type AttrAllowedOps SettingsGtkEntrySelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "gtk-entry-select-on-focus" - attrGet _ = getSettingsGtkEntrySelectOnFocus - attrSet _ = setSettingsGtkEntrySelectOnFocus - attrConstruct _ = constructSettingsGtkEntrySelectOnFocus - attrClear _ = undefined - --- VVV Prop "gtk-error-bell" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkErrorBell obj = liftIO $ getObjectPropertyBool obj "gtk-error-bell" - -setSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkErrorBell obj val = liftIO $ setObjectPropertyBool obj "gtk-error-bell" val - -constructSettingsGtkErrorBell :: Bool -> IO ([Char], GValue) -constructSettingsGtkErrorBell val = constructObjectPropertyBool "gtk-error-bell" val - -data SettingsGtkErrorBellPropertyInfo -instance AttrInfo SettingsGtkErrorBellPropertyInfo where - type AttrAllowedOps SettingsGtkErrorBellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkErrorBellPropertyInfo = SettingsK - type AttrGetType SettingsGtkErrorBellPropertyInfo = Bool - type AttrLabel SettingsGtkErrorBellPropertyInfo = "gtk-error-bell" - attrGet _ = getSettingsGtkErrorBell - attrSet _ = setSettingsGtkErrorBell - attrConstruct _ = constructSettingsGtkErrorBell - attrClear _ = undefined - --- VVV Prop "gtk-fallback-icon-theme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkFallbackIconTheme obj = liftIO $ getObjectPropertyString obj "gtk-fallback-icon-theme" - -setSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFallbackIconTheme obj val = liftIO $ setObjectPropertyString obj "gtk-fallback-icon-theme" (Just val) - -constructSettingsGtkFallbackIconTheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFallbackIconTheme val = constructObjectPropertyString "gtk-fallback-icon-theme" (Just val) - -clearSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkFallbackIconTheme obj = liftIO $ setObjectPropertyString obj "gtk-fallback-icon-theme" (Nothing :: Maybe T.Text) - -data SettingsGtkFallbackIconThemePropertyInfo -instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where - type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK - type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "gtk-fallback-icon-theme" - attrGet _ = getSettingsGtkFallbackIconTheme - attrSet _ = setSettingsGtkFallbackIconTheme - attrConstruct _ = constructSettingsGtkFallbackIconTheme - attrClear _ = clearSettingsGtkFallbackIconTheme - --- VVV Prop "gtk-file-chooser-backend" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkFileChooserBackend obj = liftIO $ getObjectPropertyString obj "gtk-file-chooser-backend" - -setSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFileChooserBackend obj val = liftIO $ setObjectPropertyString obj "gtk-file-chooser-backend" (Just val) - -constructSettingsGtkFileChooserBackend :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFileChooserBackend val = constructObjectPropertyString "gtk-file-chooser-backend" (Just val) - -clearSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkFileChooserBackend obj = liftIO $ setObjectPropertyString obj "gtk-file-chooser-backend" (Nothing :: Maybe T.Text) - -data SettingsGtkFileChooserBackendPropertyInfo -instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where - type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK - type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "gtk-file-chooser-backend" - attrGet _ = getSettingsGtkFileChooserBackend - attrSet _ = setSettingsGtkFileChooserBackend - attrConstruct _ = constructSettingsGtkFileChooserBackend - attrClear _ = clearSettingsGtkFileChooserBackend - --- VVV Prop "gtk-font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkFontName obj = liftIO $ getObjectPropertyString obj "gtk-font-name" - -setSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFontName obj val = liftIO $ setObjectPropertyString obj "gtk-font-name" (Just val) - -constructSettingsGtkFontName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFontName val = constructObjectPropertyString "gtk-font-name" (Just val) - -clearSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkFontName obj = liftIO $ setObjectPropertyString obj "gtk-font-name" (Nothing :: Maybe T.Text) - -data SettingsGtkFontNamePropertyInfo -instance AttrInfo SettingsGtkFontNamePropertyInfo where - type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkFontNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkFontNamePropertyInfo = "gtk-font-name" - attrGet _ = getSettingsGtkFontName - attrSet _ = setSettingsGtkFontName - attrConstruct _ = constructSettingsGtkFontName - attrClear _ = clearSettingsGtkFontName - --- VVV Prop "gtk-fontconfig-timestamp" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkFontconfigTimestamp obj = liftIO $ getObjectPropertyUInt32 obj "gtk-fontconfig-timestamp" - -setSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkFontconfigTimestamp obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-fontconfig-timestamp" val - -constructSettingsGtkFontconfigTimestamp :: Word32 -> IO ([Char], GValue) -constructSettingsGtkFontconfigTimestamp val = constructObjectPropertyUInt32 "gtk-fontconfig-timestamp" val - -data SettingsGtkFontconfigTimestampPropertyInfo -instance AttrInfo SettingsGtkFontconfigTimestampPropertyInfo where - type AttrAllowedOps SettingsGtkFontconfigTimestampPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = SettingsK - type AttrGetType SettingsGtkFontconfigTimestampPropertyInfo = Word32 - type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "gtk-fontconfig-timestamp" - attrGet _ = getSettingsGtkFontconfigTimestamp - attrSet _ = setSettingsGtkFontconfigTimestamp - attrConstruct _ = constructSettingsGtkFontconfigTimestamp - attrClear _ = undefined - --- VVV Prop "gtk-icon-sizes" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkIconSizes obj = liftIO $ getObjectPropertyString obj "gtk-icon-sizes" - -setSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkIconSizes obj val = liftIO $ setObjectPropertyString obj "gtk-icon-sizes" (Just val) - -constructSettingsGtkIconSizes :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconSizes val = constructObjectPropertyString "gtk-icon-sizes" (Just val) - -clearSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkIconSizes obj = liftIO $ setObjectPropertyString obj "gtk-icon-sizes" (Nothing :: Maybe T.Text) - -data SettingsGtkIconSizesPropertyInfo -instance AttrInfo SettingsGtkIconSizesPropertyInfo where - type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK - type AttrGetType SettingsGtkIconSizesPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkIconSizesPropertyInfo = "gtk-icon-sizes" - attrGet _ = getSettingsGtkIconSizes - attrSet _ = setSettingsGtkIconSizes - attrConstruct _ = constructSettingsGtkIconSizes - attrClear _ = clearSettingsGtkIconSizes - --- VVV Prop "gtk-icon-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkIconThemeName obj = liftIO $ getObjectPropertyString obj "gtk-icon-theme-name" - -setSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkIconThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-icon-theme-name" (Just val) - -constructSettingsGtkIconThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconThemeName val = constructObjectPropertyString "gtk-icon-theme-name" (Just val) - -clearSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkIconThemeName obj = liftIO $ setObjectPropertyString obj "gtk-icon-theme-name" (Nothing :: Maybe T.Text) - -data SettingsGtkIconThemeNamePropertyInfo -instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkIconThemeNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "gtk-icon-theme-name" - attrGet _ = getSettingsGtkIconThemeName - attrSet _ = setSettingsGtkIconThemeName - attrConstruct _ = constructSettingsGtkIconThemeName - attrClear _ = clearSettingsGtkIconThemeName - --- VVV Prop "gtk-im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkImModule obj = liftIO $ getObjectPropertyString obj "gtk-im-module" - -setSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkImModule obj val = liftIO $ setObjectPropertyString obj "gtk-im-module" (Just val) - -constructSettingsGtkImModule :: T.Text -> IO ([Char], GValue) -constructSettingsGtkImModule val = constructObjectPropertyString "gtk-im-module" (Just val) - -clearSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkImModule obj = liftIO $ setObjectPropertyString obj "gtk-im-module" (Nothing :: Maybe T.Text) - -data SettingsGtkImModulePropertyInfo -instance AttrInfo SettingsGtkImModulePropertyInfo where - type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK - type AttrGetType SettingsGtkImModulePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkImModulePropertyInfo = "gtk-im-module" - attrGet _ = getSettingsGtkImModule - attrSet _ = setSettingsGtkImModule - attrConstruct _ = constructSettingsGtkImModule - attrClear _ = clearSettingsGtkImModule - --- VVV Prop "gtk-im-preedit-style" - -- Type: TInterface "Gtk" "IMPreeditStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> m IMPreeditStyle -getSettingsGtkImPreeditStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-preedit-style" - -setSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> IMPreeditStyle -> m () -setSettingsGtkImPreeditStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-preedit-style" val - -constructSettingsGtkImPreeditStyle :: IMPreeditStyle -> IO ([Char], GValue) -constructSettingsGtkImPreeditStyle val = constructObjectPropertyEnum "gtk-im-preedit-style" val - -data SettingsGtkImPreeditStylePropertyInfo -instance AttrInfo SettingsGtkImPreeditStylePropertyInfo where - type AttrAllowedOps SettingsGtkImPreeditStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) IMPreeditStyle - type AttrBaseTypeConstraint SettingsGtkImPreeditStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkImPreeditStylePropertyInfo = IMPreeditStyle - type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "gtk-im-preedit-style" - attrGet _ = getSettingsGtkImPreeditStyle - attrSet _ = setSettingsGtkImPreeditStyle - attrConstruct _ = constructSettingsGtkImPreeditStyle - attrClear _ = undefined - --- VVV Prop "gtk-im-status-style" - -- Type: TInterface "Gtk" "IMStatusStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> m IMStatusStyle -getSettingsGtkImStatusStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-status-style" - -setSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> IMStatusStyle -> m () -setSettingsGtkImStatusStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-status-style" val - -constructSettingsGtkImStatusStyle :: IMStatusStyle -> IO ([Char], GValue) -constructSettingsGtkImStatusStyle val = constructObjectPropertyEnum "gtk-im-status-style" val - -data SettingsGtkImStatusStylePropertyInfo -instance AttrInfo SettingsGtkImStatusStylePropertyInfo where - type AttrAllowedOps SettingsGtkImStatusStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) IMStatusStyle - type AttrBaseTypeConstraint SettingsGtkImStatusStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkImStatusStylePropertyInfo = IMStatusStyle - type AttrLabel SettingsGtkImStatusStylePropertyInfo = "gtk-im-status-style" - attrGet _ = getSettingsGtkImStatusStyle - attrSet _ = setSettingsGtkImStatusStyle - attrConstruct _ = constructSettingsGtkImStatusStyle - attrClear _ = undefined - --- VVV Prop "gtk-key-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkKeyThemeName obj = liftIO $ getObjectPropertyString obj "gtk-key-theme-name" - -setSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkKeyThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-key-theme-name" (Just val) - -constructSettingsGtkKeyThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkKeyThemeName val = constructObjectPropertyString "gtk-key-theme-name" (Just val) - -clearSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkKeyThemeName obj = liftIO $ setObjectPropertyString obj "gtk-key-theme-name" (Nothing :: Maybe T.Text) - -data SettingsGtkKeyThemeNamePropertyInfo -instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "gtk-key-theme-name" - attrGet _ = getSettingsGtkKeyThemeName - attrSet _ = setSettingsGtkKeyThemeName - attrConstruct _ = constructSettingsGtkKeyThemeName - attrClear _ = clearSettingsGtkKeyThemeName - --- VVV Prop "gtk-keynav-cursor-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkKeynavCursorOnly obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-cursor-only" - -setSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkKeynavCursorOnly obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-cursor-only" val - -constructSettingsGtkKeynavCursorOnly :: Bool -> IO ([Char], GValue) -constructSettingsGtkKeynavCursorOnly val = constructObjectPropertyBool "gtk-keynav-cursor-only" val - -data SettingsGtkKeynavCursorOnlyPropertyInfo -instance AttrInfo SettingsGtkKeynavCursorOnlyPropertyInfo where - type AttrAllowedOps SettingsGtkKeynavCursorOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = SettingsK - type AttrGetType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "gtk-keynav-cursor-only" - attrGet _ = getSettingsGtkKeynavCursorOnly - attrSet _ = setSettingsGtkKeynavCursorOnly - attrConstruct _ = constructSettingsGtkKeynavCursorOnly - attrClear _ = undefined - --- VVV Prop "gtk-keynav-wrap-around" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkKeynavWrapAround obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-wrap-around" - -setSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkKeynavWrapAround obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-wrap-around" val - -constructSettingsGtkKeynavWrapAround :: Bool -> IO ([Char], GValue) -constructSettingsGtkKeynavWrapAround val = constructObjectPropertyBool "gtk-keynav-wrap-around" val - -data SettingsGtkKeynavWrapAroundPropertyInfo -instance AttrInfo SettingsGtkKeynavWrapAroundPropertyInfo where - type AttrAllowedOps SettingsGtkKeynavWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = SettingsK - type AttrGetType SettingsGtkKeynavWrapAroundPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "gtk-keynav-wrap-around" - attrGet _ = getSettingsGtkKeynavWrapAround - attrSet _ = setSettingsGtkKeynavWrapAround - attrConstruct _ = constructSettingsGtkKeynavWrapAround - attrClear _ = undefined - --- VVV Prop "gtk-label-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkLabelSelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-label-select-on-focus" - -setSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkLabelSelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-label-select-on-focus" val - -constructSettingsGtkLabelSelectOnFocus :: Bool -> IO ([Char], GValue) -constructSettingsGtkLabelSelectOnFocus val = constructObjectPropertyBool "gtk-label-select-on-focus" val - -data SettingsGtkLabelSelectOnFocusPropertyInfo -instance AttrInfo SettingsGtkLabelSelectOnFocusPropertyInfo where - type AttrAllowedOps SettingsGtkLabelSelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "gtk-label-select-on-focus" - attrGet _ = getSettingsGtkLabelSelectOnFocus - attrSet _ = setSettingsGtkLabelSelectOnFocus - attrConstruct _ = constructSettingsGtkLabelSelectOnFocus - attrClear _ = undefined - --- VVV Prop "gtk-long-press-time" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkLongPressTime obj = liftIO $ getObjectPropertyUInt32 obj "gtk-long-press-time" - -setSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkLongPressTime obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-long-press-time" val - -constructSettingsGtkLongPressTime :: Word32 -> IO ([Char], GValue) -constructSettingsGtkLongPressTime val = constructObjectPropertyUInt32 "gtk-long-press-time" val - -data SettingsGtkLongPressTimePropertyInfo -instance AttrInfo SettingsGtkLongPressTimePropertyInfo where - type AttrAllowedOps SettingsGtkLongPressTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkLongPressTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkLongPressTimePropertyInfo = Word32 - type AttrLabel SettingsGtkLongPressTimePropertyInfo = "gtk-long-press-time" - attrGet _ = getSettingsGtkLongPressTime - attrSet _ = setSettingsGtkLongPressTime - attrConstruct _ = constructSettingsGtkLongPressTime - attrClear _ = undefined - --- VVV Prop "gtk-menu-bar-accel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkMenuBarAccel obj = liftIO $ getObjectPropertyString obj "gtk-menu-bar-accel" - -setSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkMenuBarAccel obj val = liftIO $ setObjectPropertyString obj "gtk-menu-bar-accel" (Just val) - -constructSettingsGtkMenuBarAccel :: T.Text -> IO ([Char], GValue) -constructSettingsGtkMenuBarAccel val = constructObjectPropertyString "gtk-menu-bar-accel" (Just val) - -clearSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkMenuBarAccel obj = liftIO $ setObjectPropertyString obj "gtk-menu-bar-accel" (Nothing :: Maybe T.Text) - -data SettingsGtkMenuBarAccelPropertyInfo -instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where - type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "gtk-menu-bar-accel" - attrGet _ = getSettingsGtkMenuBarAccel - attrSet _ = setSettingsGtkMenuBarAccel - attrConstruct _ = constructSettingsGtkMenuBarAccel - attrClear _ = clearSettingsGtkMenuBarAccel - --- VVV Prop "gtk-menu-bar-popup-delay" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuBarPopupDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-bar-popup-delay" - -setSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuBarPopupDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-bar-popup-delay" val - -constructSettingsGtkMenuBarPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuBarPopupDelay val = constructObjectPropertyInt32 "gtk-menu-bar-popup-delay" val - -data SettingsGtkMenuBarPopupDelayPropertyInfo -instance AttrInfo SettingsGtkMenuBarPopupDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuBarPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "gtk-menu-bar-popup-delay" - attrGet _ = getSettingsGtkMenuBarPopupDelay - attrSet _ = setSettingsGtkMenuBarPopupDelay - attrConstruct _ = constructSettingsGtkMenuBarPopupDelay - attrClear _ = undefined - --- VVV Prop "gtk-menu-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkMenuImages obj = liftIO $ getObjectPropertyBool obj "gtk-menu-images" - -setSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkMenuImages obj val = liftIO $ setObjectPropertyBool obj "gtk-menu-images" val - -constructSettingsGtkMenuImages :: Bool -> IO ([Char], GValue) -constructSettingsGtkMenuImages val = constructObjectPropertyBool "gtk-menu-images" val - -data SettingsGtkMenuImagesPropertyInfo -instance AttrInfo SettingsGtkMenuImagesPropertyInfo where - type AttrAllowedOps SettingsGtkMenuImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkMenuImagesPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuImagesPropertyInfo = Bool - type AttrLabel SettingsGtkMenuImagesPropertyInfo = "gtk-menu-images" - attrGet _ = getSettingsGtkMenuImages - attrSet _ = setSettingsGtkMenuImages - attrConstruct _ = constructSettingsGtkMenuImages - attrClear _ = undefined - --- VVV Prop "gtk-menu-popdown-delay" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopdownDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-popdown-delay" - -setSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopdownDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-popdown-delay" val - -constructSettingsGtkMenuPopdownDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopdownDelay val = constructObjectPropertyInt32 "gtk-menu-popdown-delay" val - -data SettingsGtkMenuPopdownDelayPropertyInfo -instance AttrInfo SettingsGtkMenuPopdownDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuPopdownDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuPopdownDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "gtk-menu-popdown-delay" - attrGet _ = getSettingsGtkMenuPopdownDelay - attrSet _ = setSettingsGtkMenuPopdownDelay - attrConstruct _ = constructSettingsGtkMenuPopdownDelay - attrClear _ = undefined - --- VVV Prop "gtk-menu-popup-delay" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopupDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-popup-delay" - -setSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopupDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-popup-delay" val - -constructSettingsGtkMenuPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopupDelay val = constructObjectPropertyInt32 "gtk-menu-popup-delay" val - -data SettingsGtkMenuPopupDelayPropertyInfo -instance AttrInfo SettingsGtkMenuPopupDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "gtk-menu-popup-delay" - attrGet _ = getSettingsGtkMenuPopupDelay - attrSet _ = setSettingsGtkMenuPopupDelay - attrConstruct _ = constructSettingsGtkMenuPopupDelay - attrClear _ = undefined - --- VVV Prop "gtk-modules" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkModules obj = liftIO $ getObjectPropertyString obj "gtk-modules" - -setSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkModules obj val = liftIO $ setObjectPropertyString obj "gtk-modules" (Just val) - -constructSettingsGtkModules :: T.Text -> IO ([Char], GValue) -constructSettingsGtkModules val = constructObjectPropertyString "gtk-modules" (Just val) - -clearSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkModules obj = liftIO $ setObjectPropertyString obj "gtk-modules" (Nothing :: Maybe T.Text) - -data SettingsGtkModulesPropertyInfo -instance AttrInfo SettingsGtkModulesPropertyInfo where - type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK - type AttrGetType SettingsGtkModulesPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkModulesPropertyInfo = "gtk-modules" - attrGet _ = getSettingsGtkModules - attrSet _ = setSettingsGtkModules - attrConstruct _ = constructSettingsGtkModules - attrClear _ = clearSettingsGtkModules - --- VVV Prop "gtk-primary-button-warps-slider" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkPrimaryButtonWarpsSlider obj = liftIO $ getObjectPropertyBool obj "gtk-primary-button-warps-slider" - -setSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkPrimaryButtonWarpsSlider obj val = liftIO $ setObjectPropertyBool obj "gtk-primary-button-warps-slider" val - -constructSettingsGtkPrimaryButtonWarpsSlider :: Bool -> IO ([Char], GValue) -constructSettingsGtkPrimaryButtonWarpsSlider val = constructObjectPropertyBool "gtk-primary-button-warps-slider" val - -data SettingsGtkPrimaryButtonWarpsSliderPropertyInfo -instance AttrInfo SettingsGtkPrimaryButtonWarpsSliderPropertyInfo where - type AttrAllowedOps SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool - type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "gtk-primary-button-warps-slider" - attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider - attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider - attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider - attrClear _ = undefined - --- VVV Prop "gtk-print-backends" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkPrintBackends obj = liftIO $ getObjectPropertyString obj "gtk-print-backends" - -setSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkPrintBackends obj val = liftIO $ setObjectPropertyString obj "gtk-print-backends" (Just val) - -constructSettingsGtkPrintBackends :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintBackends val = constructObjectPropertyString "gtk-print-backends" (Just val) - -clearSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkPrintBackends obj = liftIO $ setObjectPropertyString obj "gtk-print-backends" (Nothing :: Maybe T.Text) - -data SettingsGtkPrintBackendsPropertyInfo -instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where - type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintBackendsPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "gtk-print-backends" - attrGet _ = getSettingsGtkPrintBackends - attrSet _ = setSettingsGtkPrintBackends - attrConstruct _ = constructSettingsGtkPrintBackends - attrClear _ = clearSettingsGtkPrintBackends - --- VVV Prop "gtk-print-preview-command" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkPrintPreviewCommand obj = liftIO $ getObjectPropertyString obj "gtk-print-preview-command" - -setSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkPrintPreviewCommand obj val = liftIO $ setObjectPropertyString obj "gtk-print-preview-command" (Just val) - -constructSettingsGtkPrintPreviewCommand :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintPreviewCommand val = constructObjectPropertyString "gtk-print-preview-command" (Just val) - -clearSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkPrintPreviewCommand obj = liftIO $ setObjectPropertyString obj "gtk-print-preview-command" (Nothing :: Maybe T.Text) - -data SettingsGtkPrintPreviewCommandPropertyInfo -instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where - type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "gtk-print-preview-command" - attrGet _ = getSettingsGtkPrintPreviewCommand - attrSet _ = setSettingsGtkPrintPreviewCommand - attrConstruct _ = constructSettingsGtkPrintPreviewCommand - attrClear _ = clearSettingsGtkPrintPreviewCommand - --- VVV Prop "gtk-recent-files-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkRecentFilesEnabled obj = liftIO $ getObjectPropertyBool obj "gtk-recent-files-enabled" - -setSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkRecentFilesEnabled obj val = liftIO $ setObjectPropertyBool obj "gtk-recent-files-enabled" val - -constructSettingsGtkRecentFilesEnabled :: Bool -> IO ([Char], GValue) -constructSettingsGtkRecentFilesEnabled val = constructObjectPropertyBool "gtk-recent-files-enabled" val - -data SettingsGtkRecentFilesEnabledPropertyInfo -instance AttrInfo SettingsGtkRecentFilesEnabledPropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesEnabledPropertyInfo = Bool - type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "gtk-recent-files-enabled" - attrGet _ = getSettingsGtkRecentFilesEnabled - attrSet _ = setSettingsGtkRecentFilesEnabled - attrConstruct _ = constructSettingsGtkRecentFilesEnabled - attrClear _ = undefined - --- VVV Prop "gtk-recent-files-limit" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesLimit obj = liftIO $ getObjectPropertyInt32 obj "gtk-recent-files-limit" - -setSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesLimit obj val = liftIO $ setObjectPropertyInt32 obj "gtk-recent-files-limit" val - -constructSettingsGtkRecentFilesLimit :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesLimit val = constructObjectPropertyInt32 "gtk-recent-files-limit" val - -data SettingsGtkRecentFilesLimitPropertyInfo -instance AttrInfo SettingsGtkRecentFilesLimitPropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesLimitPropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "gtk-recent-files-limit" - attrGet _ = getSettingsGtkRecentFilesLimit - attrSet _ = setSettingsGtkRecentFilesLimit - attrConstruct _ = constructSettingsGtkRecentFilesLimit - attrClear _ = undefined - --- VVV Prop "gtk-recent-files-max-age" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesMaxAge obj = liftIO $ getObjectPropertyInt32 obj "gtk-recent-files-max-age" - -setSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesMaxAge obj val = liftIO $ setObjectPropertyInt32 obj "gtk-recent-files-max-age" val - -constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesMaxAge val = constructObjectPropertyInt32 "gtk-recent-files-max-age" val - -data SettingsGtkRecentFilesMaxAgePropertyInfo -instance AttrInfo SettingsGtkRecentFilesMaxAgePropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesMaxAgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "gtk-recent-files-max-age" - attrGet _ = getSettingsGtkRecentFilesMaxAge - attrSet _ = setSettingsGtkRecentFilesMaxAge - attrConstruct _ = constructSettingsGtkRecentFilesMaxAge - attrClear _ = undefined - --- VVV Prop "gtk-scrolled-window-placement" - -- Type: TInterface "Gtk" "CornerType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> m CornerType -getSettingsGtkScrolledWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "gtk-scrolled-window-placement" - -setSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> CornerType -> m () -setSettingsGtkScrolledWindowPlacement obj val = liftIO $ setObjectPropertyEnum obj "gtk-scrolled-window-placement" val - -constructSettingsGtkScrolledWindowPlacement :: CornerType -> IO ([Char], GValue) -constructSettingsGtkScrolledWindowPlacement val = constructObjectPropertyEnum "gtk-scrolled-window-placement" val - -data SettingsGtkScrolledWindowPlacementPropertyInfo -instance AttrInfo SettingsGtkScrolledWindowPlacementPropertyInfo where - type AttrAllowedOps SettingsGtkScrolledWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) CornerType - type AttrBaseTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = SettingsK - type AttrGetType SettingsGtkScrolledWindowPlacementPropertyInfo = CornerType - type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "gtk-scrolled-window-placement" - attrGet _ = getSettingsGtkScrolledWindowPlacement - attrSet _ = setSettingsGtkScrolledWindowPlacement - attrConstruct _ = constructSettingsGtkScrolledWindowPlacement - attrClear _ = undefined - --- VVV Prop "gtk-shell-shows-app-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsAppMenu obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-app-menu" - -setSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsAppMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-app-menu" val - -constructSettingsGtkShellShowsAppMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsAppMenu val = constructObjectPropertyBool "gtk-shell-shows-app-menu" val - -data SettingsGtkShellShowsAppMenuPropertyInfo -instance AttrInfo SettingsGtkShellShowsAppMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsAppMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "gtk-shell-shows-app-menu" - attrGet _ = getSettingsGtkShellShowsAppMenu - attrSet _ = setSettingsGtkShellShowsAppMenu - attrConstruct _ = constructSettingsGtkShellShowsAppMenu - attrClear _ = undefined - --- VVV Prop "gtk-shell-shows-desktop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsDesktop obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-desktop" - -setSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsDesktop obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-desktop" val - -constructSettingsGtkShellShowsDesktop :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsDesktop val = constructObjectPropertyBool "gtk-shell-shows-desktop" val - -data SettingsGtkShellShowsDesktopPropertyInfo -instance AttrInfo SettingsGtkShellShowsDesktopPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsDesktopPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "gtk-shell-shows-desktop" - attrGet _ = getSettingsGtkShellShowsDesktop - attrSet _ = setSettingsGtkShellShowsDesktop - attrConstruct _ = constructSettingsGtkShellShowsDesktop - attrClear _ = undefined - --- VVV Prop "gtk-shell-shows-menubar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsMenubar obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-menubar" - -setSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsMenubar obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-menubar" val - -constructSettingsGtkShellShowsMenubar :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsMenubar val = constructObjectPropertyBool "gtk-shell-shows-menubar" val - -data SettingsGtkShellShowsMenubarPropertyInfo -instance AttrInfo SettingsGtkShellShowsMenubarPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsMenubarPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "gtk-shell-shows-menubar" - attrGet _ = getSettingsGtkShellShowsMenubar - attrSet _ = setSettingsGtkShellShowsMenubar - attrConstruct _ = constructSettingsGtkShellShowsMenubar - attrClear _ = undefined - --- VVV Prop "gtk-show-input-method-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShowInputMethodMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-input-method-menu" - -setSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShowInputMethodMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-input-method-menu" val - -constructSettingsGtkShowInputMethodMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShowInputMethodMenu val = constructObjectPropertyBool "gtk-show-input-method-menu" val - -data SettingsGtkShowInputMethodMenuPropertyInfo -instance AttrInfo SettingsGtkShowInputMethodMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShowInputMethodMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShowInputMethodMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "gtk-show-input-method-menu" - attrGet _ = getSettingsGtkShowInputMethodMenu - attrSet _ = setSettingsGtkShowInputMethodMenu - attrConstruct _ = constructSettingsGtkShowInputMethodMenu - attrClear _ = undefined - --- VVV Prop "gtk-show-unicode-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShowUnicodeMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-unicode-menu" - -setSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShowUnicodeMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-unicode-menu" val - -constructSettingsGtkShowUnicodeMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShowUnicodeMenu val = constructObjectPropertyBool "gtk-show-unicode-menu" val - -data SettingsGtkShowUnicodeMenuPropertyInfo -instance AttrInfo SettingsGtkShowUnicodeMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShowUnicodeMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShowUnicodeMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "gtk-show-unicode-menu" - attrGet _ = getSettingsGtkShowUnicodeMenu - attrSet _ = setSettingsGtkShowUnicodeMenu - attrConstruct _ = constructSettingsGtkShowUnicodeMenu - attrClear _ = undefined - --- VVV Prop "gtk-sound-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkSoundThemeName obj = liftIO $ getObjectPropertyString obj "gtk-sound-theme-name" - -setSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkSoundThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-sound-theme-name" (Just val) - -constructSettingsGtkSoundThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkSoundThemeName val = constructObjectPropertyString "gtk-sound-theme-name" (Just val) - -clearSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkSoundThemeName obj = liftIO $ setObjectPropertyString obj "gtk-sound-theme-name" (Nothing :: Maybe T.Text) - -data SettingsGtkSoundThemeNamePropertyInfo -instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "gtk-sound-theme-name" - attrGet _ = getSettingsGtkSoundThemeName - attrSet _ = setSettingsGtkSoundThemeName - attrConstruct _ = constructSettingsGtkSoundThemeName - attrClear _ = clearSettingsGtkSoundThemeName - --- VVV Prop "gtk-split-cursor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkSplitCursor obj = liftIO $ getObjectPropertyBool obj "gtk-split-cursor" - -setSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkSplitCursor obj val = liftIO $ setObjectPropertyBool obj "gtk-split-cursor" val - -constructSettingsGtkSplitCursor :: Bool -> IO ([Char], GValue) -constructSettingsGtkSplitCursor val = constructObjectPropertyBool "gtk-split-cursor" val - -data SettingsGtkSplitCursorPropertyInfo -instance AttrInfo SettingsGtkSplitCursorPropertyInfo where - type AttrAllowedOps SettingsGtkSplitCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkSplitCursorPropertyInfo = SettingsK - type AttrGetType SettingsGtkSplitCursorPropertyInfo = Bool - type AttrLabel SettingsGtkSplitCursorPropertyInfo = "gtk-split-cursor" - attrGet _ = getSettingsGtkSplitCursor - attrSet _ = setSettingsGtkSplitCursor - attrConstruct _ = constructSettingsGtkSplitCursor - attrClear _ = undefined - --- VVV Prop "gtk-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkThemeName obj = liftIO $ getObjectPropertyString obj "gtk-theme-name" - -setSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-theme-name" (Just val) - -constructSettingsGtkThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkThemeName val = constructObjectPropertyString "gtk-theme-name" (Just val) - -clearSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkThemeName obj = liftIO $ setObjectPropertyString obj "gtk-theme-name" (Nothing :: Maybe T.Text) - -data SettingsGtkThemeNamePropertyInfo -instance AttrInfo SettingsGtkThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkThemeNamePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkThemeNamePropertyInfo = "gtk-theme-name" - attrGet _ = getSettingsGtkThemeName - attrSet _ = setSettingsGtkThemeName - attrConstruct _ = constructSettingsGtkThemeName - attrClear _ = clearSettingsGtkThemeName - --- VVV Prop "gtk-timeout-expand" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutExpand obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-expand" - -setSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutExpand obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-expand" val - -constructSettingsGtkTimeoutExpand :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutExpand val = constructObjectPropertyInt32 "gtk-timeout-expand" val - -data SettingsGtkTimeoutExpandPropertyInfo -instance AttrInfo SettingsGtkTimeoutExpandPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutExpandPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "gtk-timeout-expand" - attrGet _ = getSettingsGtkTimeoutExpand - attrSet _ = setSettingsGtkTimeoutExpand - attrConstruct _ = constructSettingsGtkTimeoutExpand - attrClear _ = undefined - --- VVV Prop "gtk-timeout-initial" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutInitial obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-initial" - -setSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutInitial obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-initial" val - -constructSettingsGtkTimeoutInitial :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutInitial val = constructObjectPropertyInt32 "gtk-timeout-initial" val - -data SettingsGtkTimeoutInitialPropertyInfo -instance AttrInfo SettingsGtkTimeoutInitialPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutInitialPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutInitialPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "gtk-timeout-initial" - attrGet _ = getSettingsGtkTimeoutInitial - attrSet _ = setSettingsGtkTimeoutInitial - attrConstruct _ = constructSettingsGtkTimeoutInitial - attrClear _ = undefined - --- VVV Prop "gtk-timeout-repeat" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutRepeat obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-repeat" - -setSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutRepeat obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-repeat" val - -constructSettingsGtkTimeoutRepeat :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutRepeat val = constructObjectPropertyInt32 "gtk-timeout-repeat" val - -data SettingsGtkTimeoutRepeatPropertyInfo -instance AttrInfo SettingsGtkTimeoutRepeatPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutRepeatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutRepeatPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "gtk-timeout-repeat" - attrGet _ = getSettingsGtkTimeoutRepeat - attrSet _ = setSettingsGtkTimeoutRepeat - attrConstruct _ = constructSettingsGtkTimeoutRepeat - attrClear _ = undefined - --- VVV Prop "gtk-titlebar-double-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkTitlebarDoubleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-double-click" - -setSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarDoubleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-double-click" (Just val) - -constructSettingsGtkTitlebarDoubleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarDoubleClick val = constructObjectPropertyString "gtk-titlebar-double-click" (Just val) - -clearSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkTitlebarDoubleClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-double-click" (Nothing :: Maybe T.Text) - -data SettingsGtkTitlebarDoubleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "gtk-titlebar-double-click" - attrGet _ = getSettingsGtkTitlebarDoubleClick - attrSet _ = setSettingsGtkTitlebarDoubleClick - attrConstruct _ = constructSettingsGtkTitlebarDoubleClick - attrClear _ = clearSettingsGtkTitlebarDoubleClick - --- VVV Prop "gtk-titlebar-middle-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkTitlebarMiddleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-middle-click" - -setSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarMiddleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-middle-click" (Just val) - -constructSettingsGtkTitlebarMiddleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarMiddleClick val = constructObjectPropertyString "gtk-titlebar-middle-click" (Just val) - -clearSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkTitlebarMiddleClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-middle-click" (Nothing :: Maybe T.Text) - -data SettingsGtkTitlebarMiddleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "gtk-titlebar-middle-click" - attrGet _ = getSettingsGtkTitlebarMiddleClick - attrSet _ = setSettingsGtkTitlebarMiddleClick - attrConstruct _ = constructSettingsGtkTitlebarMiddleClick - attrClear _ = clearSettingsGtkTitlebarMiddleClick - --- VVV Prop "gtk-titlebar-right-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkTitlebarRightClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-right-click" - -setSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarRightClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-right-click" (Just val) - -constructSettingsGtkTitlebarRightClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarRightClick val = constructObjectPropertyString "gtk-titlebar-right-click" (Just val) - -clearSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkTitlebarRightClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-right-click" (Nothing :: Maybe T.Text) - -data SettingsGtkTitlebarRightClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "gtk-titlebar-right-click" - attrGet _ = getSettingsGtkTitlebarRightClick - attrSet _ = setSettingsGtkTitlebarRightClick - attrConstruct _ = constructSettingsGtkTitlebarRightClick - attrClear _ = clearSettingsGtkTitlebarRightClick - --- VVV Prop "gtk-toolbar-icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> m IconSize -getSettingsGtkToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-icon-size" - -setSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> IconSize -> m () -setSettingsGtkToolbarIconSize obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-icon-size" val - -constructSettingsGtkToolbarIconSize :: IconSize -> IO ([Char], GValue) -constructSettingsGtkToolbarIconSize val = constructObjectPropertyEnum "gtk-toolbar-icon-size" val - -data SettingsGtkToolbarIconSizePropertyInfo -instance AttrInfo SettingsGtkToolbarIconSizePropertyInfo where - type AttrAllowedOps SettingsGtkToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = SettingsK - type AttrGetType SettingsGtkToolbarIconSizePropertyInfo = IconSize - type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "gtk-toolbar-icon-size" - attrGet _ = getSettingsGtkToolbarIconSize - attrSet _ = setSettingsGtkToolbarIconSize - attrConstruct _ = constructSettingsGtkToolbarIconSize - attrClear _ = undefined - --- VVV Prop "gtk-toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> m ToolbarStyle -getSettingsGtkToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-style" - -setSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> ToolbarStyle -> m () -setSettingsGtkToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-style" val - -constructSettingsGtkToolbarStyle :: ToolbarStyle -> IO ([Char], GValue) -constructSettingsGtkToolbarStyle val = constructObjectPropertyEnum "gtk-toolbar-style" val - -data SettingsGtkToolbarStylePropertyInfo -instance AttrInfo SettingsGtkToolbarStylePropertyInfo where - type AttrAllowedOps SettingsGtkToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) ToolbarStyle - type AttrBaseTypeConstraint SettingsGtkToolbarStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel SettingsGtkToolbarStylePropertyInfo = "gtk-toolbar-style" - attrGet _ = getSettingsGtkToolbarStyle - attrSet _ = setSettingsGtkToolbarStyle - attrConstruct _ = constructSettingsGtkToolbarStyle - attrClear _ = undefined - --- VVV Prop "gtk-tooltip-browse-mode-timeout" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseModeTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-browse-mode-timeout" - -setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseModeTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-browse-mode-timeout" val - -constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseModeTimeout val = constructObjectPropertyInt32 "gtk-tooltip-browse-mode-timeout" val - -data SettingsGtkTooltipBrowseModeTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipBrowseModeTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "gtk-tooltip-browse-mode-timeout" - attrGet _ = getSettingsGtkTooltipBrowseModeTimeout - attrSet _ = setSettingsGtkTooltipBrowseModeTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout - attrClear _ = undefined - --- VVV Prop "gtk-tooltip-browse-timeout" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-browse-timeout" - -setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-browse-timeout" val - -constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseTimeout val = constructObjectPropertyInt32 "gtk-tooltip-browse-timeout" val - -data SettingsGtkTooltipBrowseTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipBrowseTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipBrowseTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "gtk-tooltip-browse-timeout" - attrGet _ = getSettingsGtkTooltipBrowseTimeout - attrSet _ = setSettingsGtkTooltipBrowseTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout - attrClear _ = undefined - --- VVV Prop "gtk-tooltip-timeout" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-timeout" - -setSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-timeout" val - -constructSettingsGtkTooltipTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipTimeout val = constructObjectPropertyInt32 "gtk-tooltip-timeout" val - -data SettingsGtkTooltipTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "gtk-tooltip-timeout" - attrGet _ = getSettingsGtkTooltipTimeout - attrSet _ = setSettingsGtkTooltipTimeout - attrConstruct _ = constructSettingsGtkTooltipTimeout - attrClear _ = undefined - --- VVV Prop "gtk-touchscreen-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkTouchscreenMode obj = liftIO $ getObjectPropertyBool obj "gtk-touchscreen-mode" - -setSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkTouchscreenMode obj val = liftIO $ setObjectPropertyBool obj "gtk-touchscreen-mode" val - -constructSettingsGtkTouchscreenMode :: Bool -> IO ([Char], GValue) -constructSettingsGtkTouchscreenMode val = constructObjectPropertyBool "gtk-touchscreen-mode" val - -data SettingsGtkTouchscreenModePropertyInfo -instance AttrInfo SettingsGtkTouchscreenModePropertyInfo where - type AttrAllowedOps SettingsGtkTouchscreenModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkTouchscreenModePropertyInfo = SettingsK - type AttrGetType SettingsGtkTouchscreenModePropertyInfo = Bool - type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "gtk-touchscreen-mode" - attrGet _ = getSettingsGtkTouchscreenMode - attrSet _ = setSettingsGtkTouchscreenMode - attrConstruct _ = constructSettingsGtkTouchscreenMode - attrClear _ = undefined - --- VVV Prop "gtk-visible-focus" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> m PolicyType -getSettingsGtkVisibleFocus obj = liftIO $ getObjectPropertyEnum obj "gtk-visible-focus" - -setSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> PolicyType -> m () -setSettingsGtkVisibleFocus obj val = liftIO $ setObjectPropertyEnum obj "gtk-visible-focus" val - -constructSettingsGtkVisibleFocus :: PolicyType -> IO ([Char], GValue) -constructSettingsGtkVisibleFocus val = constructObjectPropertyEnum "gtk-visible-focus" val - -data SettingsGtkVisibleFocusPropertyInfo -instance AttrInfo SettingsGtkVisibleFocusPropertyInfo where - type AttrAllowedOps SettingsGtkVisibleFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) PolicyType - type AttrBaseTypeConstraint SettingsGtkVisibleFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkVisibleFocusPropertyInfo = PolicyType - type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "gtk-visible-focus" - attrGet _ = getSettingsGtkVisibleFocus - attrSet _ = setSettingsGtkVisibleFocus - attrConstruct _ = constructSettingsGtkVisibleFocus - attrClear _ = undefined - --- VVV Prop "gtk-xft-antialias" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftAntialias obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-antialias" - -setSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftAntialias obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-antialias" val - -constructSettingsGtkXftAntialias :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftAntialias val = constructObjectPropertyInt32 "gtk-xft-antialias" val - -data SettingsGtkXftAntialiasPropertyInfo -instance AttrInfo SettingsGtkXftAntialiasPropertyInfo where - type AttrAllowedOps SettingsGtkXftAntialiasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftAntialiasPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftAntialiasPropertyInfo = Int32 - type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "gtk-xft-antialias" - attrGet _ = getSettingsGtkXftAntialias - attrSet _ = setSettingsGtkXftAntialias - attrConstruct _ = constructSettingsGtkXftAntialias - attrClear _ = undefined - --- VVV Prop "gtk-xft-dpi" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftDpi obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-dpi" - -setSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftDpi obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-dpi" val - -constructSettingsGtkXftDpi :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftDpi val = constructObjectPropertyInt32 "gtk-xft-dpi" val - -data SettingsGtkXftDpiPropertyInfo -instance AttrInfo SettingsGtkXftDpiPropertyInfo where - type AttrAllowedOps SettingsGtkXftDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftDpiPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftDpiPropertyInfo = Int32 - type AttrLabel SettingsGtkXftDpiPropertyInfo = "gtk-xft-dpi" - attrGet _ = getSettingsGtkXftDpi - attrSet _ = setSettingsGtkXftDpi - attrConstruct _ = constructSettingsGtkXftDpi - attrClear _ = undefined - --- VVV Prop "gtk-xft-hinting" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftHinting obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-hinting" - -setSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftHinting obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-hinting" val - -constructSettingsGtkXftHinting :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftHinting val = constructObjectPropertyInt32 "gtk-xft-hinting" val - -data SettingsGtkXftHintingPropertyInfo -instance AttrInfo SettingsGtkXftHintingPropertyInfo where - type AttrAllowedOps SettingsGtkXftHintingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftHintingPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftHintingPropertyInfo = Int32 - type AttrLabel SettingsGtkXftHintingPropertyInfo = "gtk-xft-hinting" - attrGet _ = getSettingsGtkXftHinting - attrSet _ = setSettingsGtkXftHinting - attrConstruct _ = constructSettingsGtkXftHinting - attrClear _ = undefined - --- VVV Prop "gtk-xft-hintstyle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkXftHintstyle obj = liftIO $ getObjectPropertyString obj "gtk-xft-hintstyle" - -setSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkXftHintstyle obj val = liftIO $ setObjectPropertyString obj "gtk-xft-hintstyle" (Just val) - -constructSettingsGtkXftHintstyle :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftHintstyle val = constructObjectPropertyString "gtk-xft-hintstyle" (Just val) - -clearSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkXftHintstyle obj = liftIO $ setObjectPropertyString obj "gtk-xft-hintstyle" (Nothing :: Maybe T.Text) - -data SettingsGtkXftHintstylePropertyInfo -instance AttrInfo SettingsGtkXftHintstylePropertyInfo where - type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK - type AttrGetType SettingsGtkXftHintstylePropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkXftHintstylePropertyInfo = "gtk-xft-hintstyle" - attrGet _ = getSettingsGtkXftHintstyle - attrSet _ = setSettingsGtkXftHintstyle - attrConstruct _ = constructSettingsGtkXftHintstyle - attrClear _ = clearSettingsGtkXftHintstyle - --- VVV Prop "gtk-xft-rgba" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsGtkXftRgba obj = liftIO $ getObjectPropertyString obj "gtk-xft-rgba" - -setSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkXftRgba obj val = liftIO $ setObjectPropertyString obj "gtk-xft-rgba" (Just val) - -constructSettingsGtkXftRgba :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftRgba val = constructObjectPropertyString "gtk-xft-rgba" (Just val) - -clearSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m () -clearSettingsGtkXftRgba obj = liftIO $ setObjectPropertyString obj "gtk-xft-rgba" (Nothing :: Maybe T.Text) - -data SettingsGtkXftRgbaPropertyInfo -instance AttrInfo SettingsGtkXftRgbaPropertyInfo where - type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftRgbaPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsGtkXftRgbaPropertyInfo = "gtk-xft-rgba" - attrGet _ = getSettingsGtkXftRgba - attrSet _ = setSettingsGtkXftRgba - attrConstruct _ = constructSettingsGtkXftRgba - attrClear _ = clearSettingsGtkXftRgba - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("colorHash", SettingsColorHashPropertyInfo), '("gtkAlternativeButtonOrder", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtkAlternativeSortArrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtkApplicationPreferDarkTheme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtkAutoMnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtkButtonImages", SettingsGtkButtonImagesPropertyInfo), '("gtkCanChangeAccels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtkColorPalette", SettingsGtkColorPalettePropertyInfo), '("gtkColorScheme", SettingsGtkColorSchemePropertyInfo), '("gtkCursorBlink", SettingsGtkCursorBlinkPropertyInfo), '("gtkCursorBlinkTime", SettingsGtkCursorBlinkTimePropertyInfo), '("gtkCursorBlinkTimeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtkCursorThemeName", SettingsGtkCursorThemeNamePropertyInfo), '("gtkCursorThemeSize", SettingsGtkCursorThemeSizePropertyInfo), '("gtkDecorationLayout", SettingsGtkDecorationLayoutPropertyInfo), '("gtkDialogsUseHeader", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtkDndDragThreshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtkDoubleClickDistance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtkDoubleClickTime", SettingsGtkDoubleClickTimePropertyInfo), '("gtkEnableAccels", SettingsGtkEnableAccelsPropertyInfo), '("gtkEnableAnimations", SettingsGtkEnableAnimationsPropertyInfo), '("gtkEnableEventSounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtkEnableInputFeedbackSounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtkEnableMnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtkEnablePrimaryPaste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtkEnableTooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtkEntryPasswordHintTimeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtkEntrySelectOnFocus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtkErrorBell", SettingsGtkErrorBellPropertyInfo), '("gtkFallbackIconTheme", SettingsGtkFallbackIconThemePropertyInfo), '("gtkFileChooserBackend", SettingsGtkFileChooserBackendPropertyInfo), '("gtkFontName", SettingsGtkFontNamePropertyInfo), '("gtkFontconfigTimestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtkIconSizes", SettingsGtkIconSizesPropertyInfo), '("gtkIconThemeName", SettingsGtkIconThemeNamePropertyInfo), '("gtkImModule", SettingsGtkImModulePropertyInfo), '("gtkImPreeditStyle", SettingsGtkImPreeditStylePropertyInfo), '("gtkImStatusStyle", SettingsGtkImStatusStylePropertyInfo), '("gtkKeyThemeName", SettingsGtkKeyThemeNamePropertyInfo), '("gtkKeynavCursorOnly", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtkKeynavWrapAround", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtkLabelSelectOnFocus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtkLongPressTime", SettingsGtkLongPressTimePropertyInfo), '("gtkMenuBarAccel", SettingsGtkMenuBarAccelPropertyInfo), '("gtkMenuBarPopupDelay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtkMenuImages", SettingsGtkMenuImagesPropertyInfo), '("gtkMenuPopdownDelay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtkMenuPopupDelay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtkModules", SettingsGtkModulesPropertyInfo), '("gtkPrimaryButtonWarpsSlider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtkPrintBackends", SettingsGtkPrintBackendsPropertyInfo), '("gtkPrintPreviewCommand", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtkRecentFilesEnabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtkRecentFilesLimit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtkRecentFilesMaxAge", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtkScrolledWindowPlacement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtkShellShowsAppMenu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtkShellShowsDesktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtkShellShowsMenubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtkShowInputMethodMenu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtkShowUnicodeMenu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtkSoundThemeName", SettingsGtkSoundThemeNamePropertyInfo), '("gtkSplitCursor", SettingsGtkSplitCursorPropertyInfo), '("gtkThemeName", SettingsGtkThemeNamePropertyInfo), '("gtkTimeoutExpand", SettingsGtkTimeoutExpandPropertyInfo), '("gtkTimeoutInitial", SettingsGtkTimeoutInitialPropertyInfo), '("gtkTimeoutRepeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtkTitlebarDoubleClick", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtkTitlebarMiddleClick", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtkTitlebarRightClick", SettingsGtkTitlebarRightClickPropertyInfo), '("gtkToolbarIconSize", SettingsGtkToolbarIconSizePropertyInfo), '("gtkToolbarStyle", SettingsGtkToolbarStylePropertyInfo), '("gtkTooltipBrowseModeTimeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtkTooltipBrowseTimeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtkTooltipTimeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtkTouchscreenMode", SettingsGtkTouchscreenModePropertyInfo), '("gtkVisibleFocus", SettingsGtkVisibleFocusPropertyInfo), '("gtkXftAntialias", SettingsGtkXftAntialiasPropertyInfo), '("gtkXftDpi", SettingsGtkXftDpiPropertyInfo), '("gtkXftHinting", SettingsGtkXftHintingPropertyInfo), '("gtkXftHintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtkXftRgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) - -settingsColorHash :: AttrLabelProxy "colorHash" -settingsColorHash = AttrLabelProxy - -settingsGtkAlternativeButtonOrder :: AttrLabelProxy "gtkAlternativeButtonOrder" -settingsGtkAlternativeButtonOrder = AttrLabelProxy - -settingsGtkAlternativeSortArrows :: AttrLabelProxy "gtkAlternativeSortArrows" -settingsGtkAlternativeSortArrows = AttrLabelProxy - -settingsGtkApplicationPreferDarkTheme :: AttrLabelProxy "gtkApplicationPreferDarkTheme" -settingsGtkApplicationPreferDarkTheme = AttrLabelProxy - -settingsGtkAutoMnemonics :: AttrLabelProxy "gtkAutoMnemonics" -settingsGtkAutoMnemonics = AttrLabelProxy - -settingsGtkButtonImages :: AttrLabelProxy "gtkButtonImages" -settingsGtkButtonImages = AttrLabelProxy - -settingsGtkCanChangeAccels :: AttrLabelProxy "gtkCanChangeAccels" -settingsGtkCanChangeAccels = AttrLabelProxy - -settingsGtkColorPalette :: AttrLabelProxy "gtkColorPalette" -settingsGtkColorPalette = AttrLabelProxy - -settingsGtkColorScheme :: AttrLabelProxy "gtkColorScheme" -settingsGtkColorScheme = AttrLabelProxy - -settingsGtkCursorBlink :: AttrLabelProxy "gtkCursorBlink" -settingsGtkCursorBlink = AttrLabelProxy - -settingsGtkCursorBlinkTime :: AttrLabelProxy "gtkCursorBlinkTime" -settingsGtkCursorBlinkTime = AttrLabelProxy - -settingsGtkCursorBlinkTimeout :: AttrLabelProxy "gtkCursorBlinkTimeout" -settingsGtkCursorBlinkTimeout = AttrLabelProxy - -settingsGtkCursorThemeName :: AttrLabelProxy "gtkCursorThemeName" -settingsGtkCursorThemeName = AttrLabelProxy - -settingsGtkCursorThemeSize :: AttrLabelProxy "gtkCursorThemeSize" -settingsGtkCursorThemeSize = AttrLabelProxy - -settingsGtkDecorationLayout :: AttrLabelProxy "gtkDecorationLayout" -settingsGtkDecorationLayout = AttrLabelProxy - -settingsGtkDialogsUseHeader :: AttrLabelProxy "gtkDialogsUseHeader" -settingsGtkDialogsUseHeader = AttrLabelProxy - -settingsGtkDndDragThreshold :: AttrLabelProxy "gtkDndDragThreshold" -settingsGtkDndDragThreshold = AttrLabelProxy - -settingsGtkDoubleClickDistance :: AttrLabelProxy "gtkDoubleClickDistance" -settingsGtkDoubleClickDistance = AttrLabelProxy - -settingsGtkDoubleClickTime :: AttrLabelProxy "gtkDoubleClickTime" -settingsGtkDoubleClickTime = AttrLabelProxy - -settingsGtkEnableAccels :: AttrLabelProxy "gtkEnableAccels" -settingsGtkEnableAccels = AttrLabelProxy - -settingsGtkEnableAnimations :: AttrLabelProxy "gtkEnableAnimations" -settingsGtkEnableAnimations = AttrLabelProxy - -settingsGtkEnableEventSounds :: AttrLabelProxy "gtkEnableEventSounds" -settingsGtkEnableEventSounds = AttrLabelProxy - -settingsGtkEnableInputFeedbackSounds :: AttrLabelProxy "gtkEnableInputFeedbackSounds" -settingsGtkEnableInputFeedbackSounds = AttrLabelProxy - -settingsGtkEnableMnemonics :: AttrLabelProxy "gtkEnableMnemonics" -settingsGtkEnableMnemonics = AttrLabelProxy - -settingsGtkEnablePrimaryPaste :: AttrLabelProxy "gtkEnablePrimaryPaste" -settingsGtkEnablePrimaryPaste = AttrLabelProxy - -settingsGtkEnableTooltips :: AttrLabelProxy "gtkEnableTooltips" -settingsGtkEnableTooltips = AttrLabelProxy - -settingsGtkEntryPasswordHintTimeout :: AttrLabelProxy "gtkEntryPasswordHintTimeout" -settingsGtkEntryPasswordHintTimeout = AttrLabelProxy - -settingsGtkEntrySelectOnFocus :: AttrLabelProxy "gtkEntrySelectOnFocus" -settingsGtkEntrySelectOnFocus = AttrLabelProxy - -settingsGtkErrorBell :: AttrLabelProxy "gtkErrorBell" -settingsGtkErrorBell = AttrLabelProxy - -settingsGtkFallbackIconTheme :: AttrLabelProxy "gtkFallbackIconTheme" -settingsGtkFallbackIconTheme = AttrLabelProxy - -settingsGtkFileChooserBackend :: AttrLabelProxy "gtkFileChooserBackend" -settingsGtkFileChooserBackend = AttrLabelProxy - -settingsGtkFontName :: AttrLabelProxy "gtkFontName" -settingsGtkFontName = AttrLabelProxy - -settingsGtkFontconfigTimestamp :: AttrLabelProxy "gtkFontconfigTimestamp" -settingsGtkFontconfigTimestamp = AttrLabelProxy - -settingsGtkIconSizes :: AttrLabelProxy "gtkIconSizes" -settingsGtkIconSizes = AttrLabelProxy - -settingsGtkIconThemeName :: AttrLabelProxy "gtkIconThemeName" -settingsGtkIconThemeName = AttrLabelProxy - -settingsGtkImModule :: AttrLabelProxy "gtkImModule" -settingsGtkImModule = AttrLabelProxy - -settingsGtkImPreeditStyle :: AttrLabelProxy "gtkImPreeditStyle" -settingsGtkImPreeditStyle = AttrLabelProxy - -settingsGtkImStatusStyle :: AttrLabelProxy "gtkImStatusStyle" -settingsGtkImStatusStyle = AttrLabelProxy - -settingsGtkKeyThemeName :: AttrLabelProxy "gtkKeyThemeName" -settingsGtkKeyThemeName = AttrLabelProxy - -settingsGtkKeynavCursorOnly :: AttrLabelProxy "gtkKeynavCursorOnly" -settingsGtkKeynavCursorOnly = AttrLabelProxy - -settingsGtkKeynavWrapAround :: AttrLabelProxy "gtkKeynavWrapAround" -settingsGtkKeynavWrapAround = AttrLabelProxy - -settingsGtkLabelSelectOnFocus :: AttrLabelProxy "gtkLabelSelectOnFocus" -settingsGtkLabelSelectOnFocus = AttrLabelProxy - -settingsGtkLongPressTime :: AttrLabelProxy "gtkLongPressTime" -settingsGtkLongPressTime = AttrLabelProxy - -settingsGtkMenuBarAccel :: AttrLabelProxy "gtkMenuBarAccel" -settingsGtkMenuBarAccel = AttrLabelProxy - -settingsGtkMenuBarPopupDelay :: AttrLabelProxy "gtkMenuBarPopupDelay" -settingsGtkMenuBarPopupDelay = AttrLabelProxy - -settingsGtkMenuImages :: AttrLabelProxy "gtkMenuImages" -settingsGtkMenuImages = AttrLabelProxy - -settingsGtkMenuPopdownDelay :: AttrLabelProxy "gtkMenuPopdownDelay" -settingsGtkMenuPopdownDelay = AttrLabelProxy - -settingsGtkMenuPopupDelay :: AttrLabelProxy "gtkMenuPopupDelay" -settingsGtkMenuPopupDelay = AttrLabelProxy - -settingsGtkModules :: AttrLabelProxy "gtkModules" -settingsGtkModules = AttrLabelProxy - -settingsGtkPrimaryButtonWarpsSlider :: AttrLabelProxy "gtkPrimaryButtonWarpsSlider" -settingsGtkPrimaryButtonWarpsSlider = AttrLabelProxy - -settingsGtkPrintBackends :: AttrLabelProxy "gtkPrintBackends" -settingsGtkPrintBackends = AttrLabelProxy - -settingsGtkPrintPreviewCommand :: AttrLabelProxy "gtkPrintPreviewCommand" -settingsGtkPrintPreviewCommand = AttrLabelProxy - -settingsGtkRecentFilesEnabled :: AttrLabelProxy "gtkRecentFilesEnabled" -settingsGtkRecentFilesEnabled = AttrLabelProxy - -settingsGtkRecentFilesLimit :: AttrLabelProxy "gtkRecentFilesLimit" -settingsGtkRecentFilesLimit = AttrLabelProxy - -settingsGtkRecentFilesMaxAge :: AttrLabelProxy "gtkRecentFilesMaxAge" -settingsGtkRecentFilesMaxAge = AttrLabelProxy - -settingsGtkScrolledWindowPlacement :: AttrLabelProxy "gtkScrolledWindowPlacement" -settingsGtkScrolledWindowPlacement = AttrLabelProxy - -settingsGtkShellShowsAppMenu :: AttrLabelProxy "gtkShellShowsAppMenu" -settingsGtkShellShowsAppMenu = AttrLabelProxy - -settingsGtkShellShowsDesktop :: AttrLabelProxy "gtkShellShowsDesktop" -settingsGtkShellShowsDesktop = AttrLabelProxy - -settingsGtkShellShowsMenubar :: AttrLabelProxy "gtkShellShowsMenubar" -settingsGtkShellShowsMenubar = AttrLabelProxy - -settingsGtkShowInputMethodMenu :: AttrLabelProxy "gtkShowInputMethodMenu" -settingsGtkShowInputMethodMenu = AttrLabelProxy - -settingsGtkShowUnicodeMenu :: AttrLabelProxy "gtkShowUnicodeMenu" -settingsGtkShowUnicodeMenu = AttrLabelProxy - -settingsGtkSoundThemeName :: AttrLabelProxy "gtkSoundThemeName" -settingsGtkSoundThemeName = AttrLabelProxy - -settingsGtkSplitCursor :: AttrLabelProxy "gtkSplitCursor" -settingsGtkSplitCursor = AttrLabelProxy - -settingsGtkThemeName :: AttrLabelProxy "gtkThemeName" -settingsGtkThemeName = AttrLabelProxy - -settingsGtkTimeoutExpand :: AttrLabelProxy "gtkTimeoutExpand" -settingsGtkTimeoutExpand = AttrLabelProxy - -settingsGtkTimeoutInitial :: AttrLabelProxy "gtkTimeoutInitial" -settingsGtkTimeoutInitial = AttrLabelProxy - -settingsGtkTimeoutRepeat :: AttrLabelProxy "gtkTimeoutRepeat" -settingsGtkTimeoutRepeat = AttrLabelProxy - -settingsGtkTitlebarDoubleClick :: AttrLabelProxy "gtkTitlebarDoubleClick" -settingsGtkTitlebarDoubleClick = AttrLabelProxy - -settingsGtkTitlebarMiddleClick :: AttrLabelProxy "gtkTitlebarMiddleClick" -settingsGtkTitlebarMiddleClick = AttrLabelProxy - -settingsGtkTitlebarRightClick :: AttrLabelProxy "gtkTitlebarRightClick" -settingsGtkTitlebarRightClick = AttrLabelProxy - -settingsGtkToolbarIconSize :: AttrLabelProxy "gtkToolbarIconSize" -settingsGtkToolbarIconSize = AttrLabelProxy - -settingsGtkToolbarStyle :: AttrLabelProxy "gtkToolbarStyle" -settingsGtkToolbarStyle = AttrLabelProxy - -settingsGtkTooltipBrowseModeTimeout :: AttrLabelProxy "gtkTooltipBrowseModeTimeout" -settingsGtkTooltipBrowseModeTimeout = AttrLabelProxy - -settingsGtkTooltipBrowseTimeout :: AttrLabelProxy "gtkTooltipBrowseTimeout" -settingsGtkTooltipBrowseTimeout = AttrLabelProxy - -settingsGtkTooltipTimeout :: AttrLabelProxy "gtkTooltipTimeout" -settingsGtkTooltipTimeout = AttrLabelProxy - -settingsGtkTouchscreenMode :: AttrLabelProxy "gtkTouchscreenMode" -settingsGtkTouchscreenMode = AttrLabelProxy - -settingsGtkVisibleFocus :: AttrLabelProxy "gtkVisibleFocus" -settingsGtkVisibleFocus = AttrLabelProxy - -settingsGtkXftAntialias :: AttrLabelProxy "gtkXftAntialias" -settingsGtkXftAntialias = AttrLabelProxy - -settingsGtkXftDpi :: AttrLabelProxy "gtkXftDpi" -settingsGtkXftDpi = AttrLabelProxy - -settingsGtkXftHinting :: AttrLabelProxy "gtkXftHinting" -settingsGtkXftHinting = AttrLabelProxy - -settingsGtkXftHintstyle :: AttrLabelProxy "gtkXftHintstyle" -settingsGtkXftHintstyle = AttrLabelProxy - -settingsGtkXftRgba :: AttrLabelProxy "gtkXftRgba" -settingsGtkXftRgba = AttrLabelProxy - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Settings::set_double_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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},Arg {argCName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_double_property" gtk_settings_set_double_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - CDouble -> -- v_double : TBasicType TDouble - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetDoubleProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> Double -- vDouble - -> T.Text -- origin - -> m () -- result -settingsSetDoubleProperty _obj name vDouble origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let vDouble' = realToFrac vDouble - origin' <- textToCString origin - gtk_settings_set_double_property _obj' name' vDouble' origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - -data SettingsSetDoublePropertyMethodInfo -instance (signature ~ (T.Text -> Double -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoublePropertyMethodInfo a signature where - overloadedMethod _ = settingsSetDoubleProperty - --- method Settings::set_long_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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},Arg {argCName = "v_long", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_long_property" gtk_settings_set_long_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - CLong -> -- v_long : TBasicType TLong - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetLongProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> CLong -- vLong - -> T.Text -- origin - -> m () -- result -settingsSetLongProperty _obj name vLong origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - origin' <- textToCString origin - gtk_settings_set_long_property _obj' name' vLong origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - -data SettingsSetLongPropertyMethodInfo -instance (signature ~ (T.Text -> CLong -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLongPropertyMethodInfo a signature where - overloadedMethod _ = settingsSetLongProperty - --- method Settings::set_property_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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},Arg {argCName = "svalue", argType = TInterface "Gtk" "SettingsValue", 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 "gtk_settings_set_property_value" gtk_settings_set_property_value :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - Ptr SettingsValue -> -- svalue : TInterface "Gtk" "SettingsValue" - IO () - -{-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetPropertyValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> SettingsValue -- svalue - -> m () -- result -settingsSetPropertyValue _obj name svalue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let svalue' = unsafeManagedPtrGetPtr svalue - gtk_settings_set_property_value _obj' name' svalue' - touchManagedPtr _obj - touchManagedPtr svalue - freeMem name' - return () - -data SettingsSetPropertyValueMethodInfo -instance (signature ~ (T.Text -> SettingsValue -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPropertyValueMethodInfo a signature where - overloadedMethod _ = settingsSetPropertyValue - --- method Settings::set_string_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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},Arg {argCName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_string_property" gtk_settings_set_string_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - CString -> -- v_string : TBasicType TUTF8 - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetStringProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> T.Text -- vString - -> T.Text -- origin - -> m () -- result -settingsSetStringProperty _obj name vString origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - vString' <- textToCString vString - origin' <- textToCString origin - gtk_settings_set_string_property _obj' name' vString' origin' - touchManagedPtr _obj - freeMem name' - freeMem vString' - freeMem origin' - return () - -data SettingsSetStringPropertyMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringPropertyMethodInfo a signature where - overloadedMethod _ = settingsSetStringProperty - --- method Settings::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_get_default" gtk_settings_get_default :: - IO (Ptr Settings) - - -settingsGetDefault :: - (MonadIO m) => - m Settings -- result -settingsGetDefault = liftIO $ do - result <- gtk_settings_get_default - checkUnexpectedReturnNULL "gtk_settings_get_default" result - result' <- (newObject Settings) result - return result' - --- method Settings::get_for_screen --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_get_for_screen" gtk_settings_get_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO (Ptr Settings) - - -settingsGetForScreen :: - (MonadIO m, Gdk.ScreenK a) => - a -- screen - -> m Settings -- result -settingsGetForScreen screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - result <- gtk_settings_get_for_screen screen' - checkUnexpectedReturnNULL "gtk_settings_get_for_screen" result - result' <- (newObject Settings) result - touchManagedPtr screen - return result' - --- method Settings::install_property --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, 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 "gtk_settings_install_property" gtk_settings_install_property :: - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - -{-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."]#-} -settingsInstallProperty :: - (MonadIO m) => - GParamSpec -- pspec - -> m () -- result -settingsInstallProperty pspec = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - gtk_settings_install_property pspec' - return () - --- method Settings::install_property_parser --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_install_property_parser" gtk_settings_install_property_parser :: - Ptr GParamSpec -> -- pspec : TParamSpec - FunPtr RcPropertyParserC -> -- parser : TInterface "Gtk" "RcPropertyParser" - IO () - -{-# DEPRECATED settingsInstallPropertyParser ["(Since version 3.16)","This function is not useful outside GTK+."]#-} -settingsInstallPropertyParser :: - (MonadIO m) => - GParamSpec -- pspec - -> RcPropertyParser -- parser - -> m () -- result -settingsInstallPropertyParser pspec parser = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - parser' <- mkRcPropertyParser (rcPropertyParserWrapper Nothing parser) - gtk_settings_install_property_parser pspec' parser' - safeFreeFunPtr $ castFunPtrToPtr parser' - return () - - diff --git a/GI/Gtk/Objects/Settings.hs-boot b/GI/Gtk/Objects/Settings.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Settings.hs-boot +++ /dev/null @@ -1,98 +0,0 @@ -module GI.Gtk.Objects.Settings 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 Settings = Settings (ForeignPtr Settings) -instance GObject Settings where -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o -data SettingsGtkAlternativeButtonOrderPropertyInfo -data SettingsGtkAlternativeSortArrowsPropertyInfo -data SettingsGtkApplicationPreferDarkThemePropertyInfo -data SettingsGtkAutoMnemonicsPropertyInfo -data SettingsGtkButtonImagesPropertyInfo -data SettingsGtkCanChangeAccelsPropertyInfo -data SettingsGtkColorPalettePropertyInfo -data SettingsGtkColorSchemePropertyInfo -data SettingsGtkCursorBlinkPropertyInfo -data SettingsGtkCursorBlinkTimePropertyInfo -data SettingsGtkCursorBlinkTimeoutPropertyInfo -data SettingsGtkCursorThemeNamePropertyInfo -data SettingsGtkCursorThemeSizePropertyInfo -data SettingsGtkDecorationLayoutPropertyInfo -data SettingsGtkDialogsUseHeaderPropertyInfo -data SettingsGtkDndDragThresholdPropertyInfo -data SettingsGtkDoubleClickDistancePropertyInfo -data SettingsGtkDoubleClickTimePropertyInfo -data SettingsGtkEnableAccelsPropertyInfo -data SettingsGtkEnableAnimationsPropertyInfo -data SettingsGtkEnableEventSoundsPropertyInfo -data SettingsGtkEnableInputFeedbackSoundsPropertyInfo -data SettingsGtkEnableMnemonicsPropertyInfo -data SettingsGtkEnablePrimaryPastePropertyInfo -data SettingsGtkEnableTooltipsPropertyInfo -data SettingsGtkEntryPasswordHintTimeoutPropertyInfo -data SettingsGtkEntrySelectOnFocusPropertyInfo -data SettingsGtkErrorBellPropertyInfo -data SettingsGtkFallbackIconThemePropertyInfo -data SettingsGtkFileChooserBackendPropertyInfo -data SettingsGtkFontNamePropertyInfo -data SettingsGtkFontconfigTimestampPropertyInfo -data SettingsGtkIconSizesPropertyInfo -data SettingsGtkIconThemeNamePropertyInfo -data SettingsGtkImModulePropertyInfo -data SettingsGtkImPreeditStylePropertyInfo -data SettingsGtkImStatusStylePropertyInfo -data SettingsGtkKeyThemeNamePropertyInfo -data SettingsGtkKeynavCursorOnlyPropertyInfo -data SettingsGtkKeynavWrapAroundPropertyInfo -data SettingsGtkLabelSelectOnFocusPropertyInfo -data SettingsGtkLongPressTimePropertyInfo -data SettingsGtkMenuBarAccelPropertyInfo -data SettingsGtkMenuBarPopupDelayPropertyInfo -data SettingsGtkMenuImagesPropertyInfo -data SettingsGtkMenuPopdownDelayPropertyInfo -data SettingsGtkMenuPopupDelayPropertyInfo -data SettingsGtkModulesPropertyInfo -data SettingsGtkPrimaryButtonWarpsSliderPropertyInfo -data SettingsGtkPrintBackendsPropertyInfo -data SettingsGtkPrintPreviewCommandPropertyInfo -data SettingsGtkRecentFilesEnabledPropertyInfo -data SettingsGtkRecentFilesLimitPropertyInfo -data SettingsGtkRecentFilesMaxAgePropertyInfo -data SettingsGtkScrolledWindowPlacementPropertyInfo -data SettingsGtkShellShowsAppMenuPropertyInfo -data SettingsGtkShellShowsDesktopPropertyInfo -data SettingsGtkShellShowsMenubarPropertyInfo -data SettingsGtkShowInputMethodMenuPropertyInfo -data SettingsGtkShowUnicodeMenuPropertyInfo -data SettingsGtkSoundThemeNamePropertyInfo -data SettingsGtkSplitCursorPropertyInfo -data SettingsGtkThemeNamePropertyInfo -data SettingsGtkTimeoutExpandPropertyInfo -data SettingsGtkTimeoutInitialPropertyInfo -data SettingsGtkTimeoutRepeatPropertyInfo -data SettingsGtkTitlebarDoubleClickPropertyInfo -data SettingsGtkTitlebarMiddleClickPropertyInfo -data SettingsGtkTitlebarRightClickPropertyInfo -data SettingsGtkToolbarIconSizePropertyInfo -data SettingsGtkToolbarStylePropertyInfo -data SettingsGtkTooltipBrowseModeTimeoutPropertyInfo -data SettingsGtkTooltipBrowseTimeoutPropertyInfo -data SettingsGtkTooltipTimeoutPropertyInfo -data SettingsGtkTouchscreenModePropertyInfo -data SettingsGtkVisibleFocusPropertyInfo -data SettingsGtkXftAntialiasPropertyInfo -data SettingsGtkXftDpiPropertyInfo -data SettingsGtkXftHintingPropertyInfo -data SettingsGtkXftHintstylePropertyInfo -data SettingsGtkXftRgbaPropertyInfo -data SettingsSetDoublePropertyMethodInfo -data SettingsSetLongPropertyMethodInfo -data SettingsSetPropertyValueMethodInfo -data SettingsSetStringPropertyMethodInfo diff --git a/GI/Gtk/Objects/SizeGroup.hs b/GI/Gtk/Objects/SizeGroup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SizeGroup.hs +++ /dev/null @@ -1,459 +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.Gtk.Objects.SizeGroup - ( - --- * Exported types - SizeGroup(..) , - SizeGroupK , - toSizeGroup , - noSizeGroup , - - - -- * Methods --- ** sizeGroupAddWidget - SizeGroupAddWidgetMethodInfo , - sizeGroupAddWidget , - - --- ** sizeGroupGetIgnoreHidden - SizeGroupGetIgnoreHiddenMethodInfo , - sizeGroupGetIgnoreHidden , - - --- ** sizeGroupGetMode - SizeGroupGetModeMethodInfo , - sizeGroupGetMode , - - --- ** sizeGroupGetWidgets - SizeGroupGetWidgetsMethodInfo , - sizeGroupGetWidgets , - - --- ** sizeGroupNew - sizeGroupNew , - - --- ** sizeGroupRemoveWidget - SizeGroupRemoveWidgetMethodInfo , - sizeGroupRemoveWidget , - - --- ** sizeGroupSetIgnoreHidden - SizeGroupSetIgnoreHiddenMethodInfo , - sizeGroupSetIgnoreHidden , - - --- ** sizeGroupSetMode - SizeGroupSetModeMethodInfo , - sizeGroupSetMode , - - - - - -- * Properties --- ** IgnoreHidden - SizeGroupIgnoreHiddenPropertyInfo , - constructSizeGroupIgnoreHidden , - getSizeGroupIgnoreHidden , - setSizeGroupIgnoreHidden , - sizeGroupIgnoreHidden , - - --- ** Mode - SizeGroupModePropertyInfo , - constructSizeGroupMode , - getSizeGroupMode , - setSizeGroupMode , - sizeGroupMode , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype SizeGroup = SizeGroup (ForeignPtr SizeGroup) -foreign import ccall "gtk_size_group_get_type" - c_gtk_size_group_get_type :: IO GType - -type instance ParentTypes SizeGroup = SizeGroupParentTypes -type SizeGroupParentTypes = '[GObject.Object, Buildable] - -instance GObject SizeGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_size_group_get_type - - -class GObject o => SizeGroupK o -instance (GObject o, IsDescendantOf SizeGroup o) => SizeGroupK o - -toSizeGroup :: SizeGroupK o => o -> IO SizeGroup -toSizeGroup = unsafeCastTo SizeGroup - -noSizeGroup :: Maybe SizeGroup -noSizeGroup = Nothing - -type family ResolveSizeGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveSizeGroupMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSizeGroupMethod "addWidget" o = SizeGroupAddWidgetMethodInfo - ResolveSizeGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSizeGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSizeGroupMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSizeGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSizeGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSizeGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSizeGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSizeGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSizeGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSizeGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSizeGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSizeGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSizeGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSizeGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSizeGroupMethod "removeWidget" o = SizeGroupRemoveWidgetMethodInfo - ResolveSizeGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSizeGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSizeGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSizeGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSizeGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSizeGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSizeGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSizeGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSizeGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSizeGroupMethod "getIgnoreHidden" o = SizeGroupGetIgnoreHiddenMethodInfo - ResolveSizeGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSizeGroupMethod "getMode" o = SizeGroupGetModeMethodInfo - ResolveSizeGroupMethod "getName" o = BuildableGetNameMethodInfo - ResolveSizeGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSizeGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSizeGroupMethod "getWidgets" o = SizeGroupGetWidgetsMethodInfo - ResolveSizeGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSizeGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSizeGroupMethod "setIgnoreHidden" o = SizeGroupSetIgnoreHiddenMethodInfo - ResolveSizeGroupMethod "setMode" o = SizeGroupSetModeMethodInfo - ResolveSizeGroupMethod "setName" o = BuildableSetNameMethodInfo - ResolveSizeGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSizeGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSizeGroupMethod t SizeGroup, MethodInfo info SizeGroup p) => IsLabelProxy t (SizeGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSizeGroupMethod t SizeGroup, MethodInfo info SizeGroup p) => IsLabel t (SizeGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "ignore-hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSizeGroupIgnoreHidden :: (MonadIO m, SizeGroupK o) => o -> m Bool -getSizeGroupIgnoreHidden obj = liftIO $ getObjectPropertyBool obj "ignore-hidden" - -setSizeGroupIgnoreHidden :: (MonadIO m, SizeGroupK o) => o -> Bool -> m () -setSizeGroupIgnoreHidden obj val = liftIO $ setObjectPropertyBool obj "ignore-hidden" val - -constructSizeGroupIgnoreHidden :: Bool -> IO ([Char], GValue) -constructSizeGroupIgnoreHidden val = constructObjectPropertyBool "ignore-hidden" val - -data SizeGroupIgnoreHiddenPropertyInfo -instance AttrInfo SizeGroupIgnoreHiddenPropertyInfo where - type AttrAllowedOps SizeGroupIgnoreHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SizeGroupIgnoreHiddenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SizeGroupIgnoreHiddenPropertyInfo = SizeGroupK - type AttrGetType SizeGroupIgnoreHiddenPropertyInfo = Bool - type AttrLabel SizeGroupIgnoreHiddenPropertyInfo = "ignore-hidden" - attrGet _ = getSizeGroupIgnoreHidden - attrSet _ = setSizeGroupIgnoreHidden - attrConstruct _ = constructSizeGroupIgnoreHidden - attrClear _ = undefined - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "SizeGroupMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSizeGroupMode :: (MonadIO m, SizeGroupK o) => o -> m SizeGroupMode -getSizeGroupMode obj = liftIO $ getObjectPropertyEnum obj "mode" - -setSizeGroupMode :: (MonadIO m, SizeGroupK o) => o -> SizeGroupMode -> m () -setSizeGroupMode obj val = liftIO $ setObjectPropertyEnum obj "mode" val - -constructSizeGroupMode :: SizeGroupMode -> IO ([Char], GValue) -constructSizeGroupMode val = constructObjectPropertyEnum "mode" val - -data SizeGroupModePropertyInfo -instance AttrInfo SizeGroupModePropertyInfo where - type AttrAllowedOps SizeGroupModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SizeGroupModePropertyInfo = (~) SizeGroupMode - type AttrBaseTypeConstraint SizeGroupModePropertyInfo = SizeGroupK - type AttrGetType SizeGroupModePropertyInfo = SizeGroupMode - type AttrLabel SizeGroupModePropertyInfo = "mode" - attrGet _ = getSizeGroupMode - attrSet _ = setSizeGroupMode - attrConstruct _ = constructSizeGroupMode - attrClear _ = undefined - -type instance AttributeList SizeGroup = SizeGroupAttributeList -type SizeGroupAttributeList = ('[ '("ignoreHidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] :: [(Symbol, *)]) - -sizeGroupIgnoreHidden :: AttrLabelProxy "ignoreHidden" -sizeGroupIgnoreHidden = AttrLabelProxy - -sizeGroupMode :: AttrLabelProxy "mode" -sizeGroupMode = AttrLabelProxy - -type instance SignalList SizeGroup = SizeGroupSignalList -type SizeGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SizeGroup::new --- method type : Constructor --- Args : [Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_size_group_new" gtk_size_group_new :: - CUInt -> -- mode : TInterface "Gtk" "SizeGroupMode" - IO (Ptr SizeGroup) - - -sizeGroupNew :: - (MonadIO m) => - SizeGroupMode -- mode - -> m SizeGroup -- result -sizeGroupNew mode = liftIO $ do - let mode' = (fromIntegral . fromEnum) mode - result <- gtk_size_group_new mode' - checkUnexpectedReturnNULL "gtk_size_group_new" result - result' <- (wrapObject SizeGroup) result - return result' - --- method SizeGroup::add_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_size_group_add_widget" gtk_size_group_add_widget :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -sizeGroupAddWidget :: - (MonadIO m, SizeGroupK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m () -- result -sizeGroupAddWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_size_group_add_widget _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data SizeGroupAddWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SizeGroupK a, WidgetK b) => MethodInfo SizeGroupAddWidgetMethodInfo a signature where - overloadedMethod _ = sizeGroupAddWidget - --- method SizeGroup::get_ignore_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", 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 "gtk_size_group_get_ignore_hidden" gtk_size_group_get_ignore_hidden :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - IO CInt - - -sizeGroupGetIgnoreHidden :: - (MonadIO m, SizeGroupK a) => - a -- _obj - -> m Bool -- result -sizeGroupGetIgnoreHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_ignore_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SizeGroupGetIgnoreHiddenMethodInfo -instance (signature ~ (m Bool), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetIgnoreHiddenMethodInfo a signature where - overloadedMethod _ = sizeGroupGetIgnoreHidden - --- method SizeGroup::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeGroupMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_size_group_get_mode" gtk_size_group_get_mode :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - IO CUInt - - -sizeGroupGetMode :: - (MonadIO m, SizeGroupK a) => - a -- _obj - -> m SizeGroupMode -- result -sizeGroupGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SizeGroupGetModeMethodInfo -instance (signature ~ (m SizeGroupMode), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetModeMethodInfo a signature where - overloadedMethod _ = sizeGroupGetMode - --- method SizeGroup::get_widgets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_size_group_get_widgets" gtk_size_group_get_widgets :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - IO (Ptr (GSList (Ptr Widget))) - - -sizeGroupGetWidgets :: - (MonadIO m, SizeGroupK a) => - a -- _obj - -> m [Widget] -- result -sizeGroupGetWidgets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_widgets _obj' - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - touchManagedPtr _obj - return result'' - -data SizeGroupGetWidgetsMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetWidgetsMethodInfo a signature where - overloadedMethod _ = sizeGroupGetWidgets - --- method SizeGroup::remove_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_size_group_remove_widget" gtk_size_group_remove_widget :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -sizeGroupRemoveWidget :: - (MonadIO m, SizeGroupK a, WidgetK b) => - a -- _obj - -> b -- widget - -> m () -- result -sizeGroupRemoveWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_size_group_remove_widget _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data SizeGroupRemoveWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SizeGroupK a, WidgetK b) => MethodInfo SizeGroupRemoveWidgetMethodInfo a signature where - overloadedMethod _ = sizeGroupRemoveWidget - --- method SizeGroup::set_ignore_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hidden", 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 "gtk_size_group_set_ignore_hidden" gtk_size_group_set_ignore_hidden :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - CInt -> -- ignore_hidden : TBasicType TBoolean - IO () - - -sizeGroupSetIgnoreHidden :: - (MonadIO m, SizeGroupK a) => - a -- _obj - -> Bool -- ignoreHidden - -> m () -- result -sizeGroupSetIgnoreHidden _obj ignoreHidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ignoreHidden' = (fromIntegral . fromEnum) ignoreHidden - gtk_size_group_set_ignore_hidden _obj' ignoreHidden' - touchManagedPtr _obj - return () - -data SizeGroupSetIgnoreHiddenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupSetIgnoreHiddenMethodInfo a signature where - overloadedMethod _ = sizeGroupSetIgnoreHidden - --- method SizeGroup::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", 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 "gtk_size_group_set_mode" gtk_size_group_set_mode :: - Ptr SizeGroup -> -- _obj : TInterface "Gtk" "SizeGroup" - CUInt -> -- mode : TInterface "Gtk" "SizeGroupMode" - IO () - - -sizeGroupSetMode :: - (MonadIO m, SizeGroupK a) => - a -- _obj - -> SizeGroupMode -- mode - -> m () -- result -sizeGroupSetMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_size_group_set_mode _obj' mode' - touchManagedPtr _obj - return () - -data SizeGroupSetModeMethodInfo -instance (signature ~ (SizeGroupMode -> m ()), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupSetModeMethodInfo a signature where - overloadedMethod _ = sizeGroupSetMode - - diff --git a/GI/Gtk/Objects/SizeGroup.hs-boot b/GI/Gtk/Objects/SizeGroup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SizeGroup.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.SizeGroup 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 SizeGroup = SizeGroup (ForeignPtr SizeGroup) -instance GObject SizeGroup where -class GObject o => SizeGroupK o -instance (GObject o, IsDescendantOf SizeGroup o) => SizeGroupK o -data SizeGroupIgnoreHiddenPropertyInfo -data SizeGroupModePropertyInfo -data SizeGroupAddWidgetMethodInfo -data SizeGroupGetIgnoreHiddenMethodInfo -data SizeGroupGetModeMethodInfo -data SizeGroupGetWidgetsMethodInfo -data SizeGroupRemoveWidgetMethodInfo -data SizeGroupSetIgnoreHiddenMethodInfo -data SizeGroupSetModeMethodInfo diff --git a/GI/Gtk/Objects/Socket.hs b/GI/Gtk/Objects/Socket.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Socket.hs +++ /dev/null @@ -1,629 +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.Gtk.Objects.Socket - ( - --- * Exported types - Socket(..) , - SocketK , - toSocket , - noSocket , - - - -- * Methods --- ** socketAddId - SocketAddIdMethodInfo , - socketAddId , - - --- ** socketGetId - SocketGetIdMethodInfo , - socketGetId , - - --- ** socketGetPlugWindow - SocketGetPlugWindowMethodInfo , - socketGetPlugWindow , - - --- ** socketNew - socketNew , - - - - - -- * Signals --- ** PlugAdded - SocketPlugAddedCallback , - SocketPlugAddedCallbackC , - SocketPlugAddedSignalInfo , - afterSocketPlugAdded , - mkSocketPlugAddedCallback , - noSocketPlugAddedCallback , - onSocketPlugAdded , - socketPlugAddedCallbackWrapper , - socketPlugAddedClosure , - - --- ** PlugRemoved - SocketPlugRemovedCallback , - SocketPlugRemovedCallbackC , - SocketPlugRemovedSignalInfo , - afterSocketPlugRemoved , - mkSocketPlugRemovedCallback , - noSocketPlugRemovedCallback , - onSocketPlugRemoved , - socketPlugRemovedCallbackWrapper , - socketPlugRemovedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Socket = Socket (ForeignPtr Socket) -foreign import ccall "gtk_socket_get_type" - c_gtk_socket_get_type :: IO GType - -type instance ParentTypes Socket = SocketParentTypes -type SocketParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Socket where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_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 "activate" o = WidgetActivateMethodInfo - ResolveSocketMethod "add" o = ContainerAddMethodInfo - ResolveSocketMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSocketMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSocketMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSocketMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSocketMethod "addId" o = SocketAddIdMethodInfo - ResolveSocketMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSocketMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSocketMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveSocketMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSocketMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveSocketMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveSocketMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveSocketMethod "childType" o = ContainerChildTypeMethodInfo - ResolveSocketMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSocketMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSocketMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSocketMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSocketMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSocketMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSocketMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSocketMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSocketMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSocketMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSocketMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSocketMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSocketMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSocketMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSocketMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSocketMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSocketMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSocketMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSocketMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSocketMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSocketMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSocketMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSocketMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSocketMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSocketMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSocketMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSocketMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSocketMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSocketMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSocketMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSocketMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSocketMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSocketMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSocketMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSocketMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSocketMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSocketMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSocketMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSocketMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSocketMethod "draw" o = WidgetDrawMethodInfo - ResolveSocketMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSocketMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSocketMethod "event" o = WidgetEventMethodInfo - ResolveSocketMethod "forall" o = ContainerForallMethodInfo - ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketMethod "foreach" o = ContainerForeachMethodInfo - ResolveSocketMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSocketMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSocketMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSocketMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSocketMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSocketMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSocketMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSocketMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSocketMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSocketMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSocketMethod "hide" o = WidgetHideMethodInfo - ResolveSocketMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSocketMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSocketMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSocketMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSocketMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSocketMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSocketMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSocketMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSocketMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSocketMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSocketMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSocketMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSocketMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSocketMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSocketMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSocketMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSocketMethod "map" o = WidgetMapMethodInfo - ResolveSocketMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSocketMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSocketMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSocketMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSocketMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSocketMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSocketMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSocketMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSocketMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSocketMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSocketMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSocketMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSocketMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSocketMethod "path" o = WidgetPathMethodInfo - ResolveSocketMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveSocketMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSocketMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSocketMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSocketMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSocketMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSocketMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSocketMethod "realize" o = WidgetRealizeMethodInfo - ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSocketMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSocketMethod "remove" o = ContainerRemoveMethodInfo - ResolveSocketMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSocketMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSocketMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSocketMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSocketMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSocketMethod "reparent" o = WidgetReparentMethodInfo - ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSocketMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSocketMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSocketMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSocketMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSocketMethod "show" o = WidgetShowMethodInfo - ResolveSocketMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSocketMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSocketMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSocketMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSocketMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSocketMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSocketMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSocketMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSocketMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSocketMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSocketMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSocketMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveSocketMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSocketMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSocketMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSocketMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSocketMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSocketMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSocketMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSocketMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSocketMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveSocketMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSocketMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSocketMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSocketMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSocketMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveSocketMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSocketMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSocketMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSocketMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSocketMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSocketMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSocketMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSocketMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSocketMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveSocketMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveSocketMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveSocketMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveSocketMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSocketMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSocketMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSocketMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSocketMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSocketMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSocketMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSocketMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSocketMethod "getId" o = SocketGetIdMethodInfo - ResolveSocketMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSocketMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSocketMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSocketMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSocketMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSocketMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSocketMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSocketMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSocketMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSocketMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSocketMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSocketMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSocketMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSocketMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSocketMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSocketMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSocketMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveSocketMethod "getPlugWindow" o = SocketGetPlugWindowMethodInfo - ResolveSocketMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSocketMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSocketMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSocketMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSocketMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSocketMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSocketMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSocketMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSocketMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSocketMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSocketMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveSocketMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSocketMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSocketMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSocketMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSocketMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSocketMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSocketMethod "getState" o = WidgetGetStateMethodInfo - ResolveSocketMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSocketMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSocketMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSocketMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSocketMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSocketMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSocketMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSocketMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSocketMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSocketMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSocketMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSocketMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSocketMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSocketMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSocketMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSocketMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSocketMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSocketMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSocketMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSocketMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveSocketMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSocketMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSocketMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSocketMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSocketMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSocketMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSocketMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSocketMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSocketMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSocketMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSocketMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveSocketMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveSocketMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveSocketMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveSocketMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSocketMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSocketMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSocketMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSocketMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSocketMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSocketMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSocketMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSocketMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSocketMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSocketMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSocketMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSocketMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSocketMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSocketMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSocketMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSocketMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSocketMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSocketMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveSocketMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSocketMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSocketMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveSocketMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSocketMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSocketMethod "setState" o = WidgetSetStateMethodInfo - ResolveSocketMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSocketMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSocketMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSocketMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSocketMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSocketMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSocketMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSocketMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSocketMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSocketMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSocketMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSocketMethod "setWindow" o = WidgetSetWindowMethodInfo - 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 - --- signal Socket::plug-added -type SocketPlugAddedCallback = - IO () - -noSocketPlugAddedCallback :: Maybe SocketPlugAddedCallback -noSocketPlugAddedCallback = Nothing - -type SocketPlugAddedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketPlugAddedCallback :: SocketPlugAddedCallbackC -> IO (FunPtr SocketPlugAddedCallbackC) - -socketPlugAddedClosure :: SocketPlugAddedCallback -> IO Closure -socketPlugAddedClosure cb = newCClosure =<< mkSocketPlugAddedCallback wrapped - where wrapped = socketPlugAddedCallbackWrapper cb - -socketPlugAddedCallbackWrapper :: - SocketPlugAddedCallback -> - Ptr () -> - Ptr () -> - IO () -socketPlugAddedCallbackWrapper _cb _ _ = do - _cb - -onSocketPlugAdded :: (GObject a, MonadIO m) => a -> SocketPlugAddedCallback -> m SignalHandlerId -onSocketPlugAdded obj cb = liftIO $ connectSocketPlugAdded obj cb SignalConnectBefore -afterSocketPlugAdded :: (GObject a, MonadIO m) => a -> SocketPlugAddedCallback -> m SignalHandlerId -afterSocketPlugAdded obj cb = connectSocketPlugAdded obj cb SignalConnectAfter - -connectSocketPlugAdded :: (GObject a, MonadIO m) => - a -> SocketPlugAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketPlugAdded obj cb after = liftIO $ do - cb' <- mkSocketPlugAddedCallback (socketPlugAddedCallbackWrapper cb) - connectSignalFunPtr obj "plug-added" cb' after - --- signal Socket::plug-removed -type SocketPlugRemovedCallback = - IO Bool - -noSocketPlugRemovedCallback :: Maybe SocketPlugRemovedCallback -noSocketPlugRemovedCallback = Nothing - -type SocketPlugRemovedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSocketPlugRemovedCallback :: SocketPlugRemovedCallbackC -> IO (FunPtr SocketPlugRemovedCallbackC) - -socketPlugRemovedClosure :: SocketPlugRemovedCallback -> IO Closure -socketPlugRemovedClosure cb = newCClosure =<< mkSocketPlugRemovedCallback wrapped - where wrapped = socketPlugRemovedCallbackWrapper cb - -socketPlugRemovedCallbackWrapper :: - SocketPlugRemovedCallback -> - Ptr () -> - Ptr () -> - IO CInt -socketPlugRemovedCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onSocketPlugRemoved :: (GObject a, MonadIO m) => a -> SocketPlugRemovedCallback -> m SignalHandlerId -onSocketPlugRemoved obj cb = liftIO $ connectSocketPlugRemoved obj cb SignalConnectBefore -afterSocketPlugRemoved :: (GObject a, MonadIO m) => a -> SocketPlugRemovedCallback -> m SignalHandlerId -afterSocketPlugRemoved obj cb = connectSocketPlugRemoved obj cb SignalConnectAfter - -connectSocketPlugRemoved :: (GObject a, MonadIO m) => - a -> SocketPlugRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketPlugRemoved obj cb after = liftIO $ do - cb' <- mkSocketPlugRemovedCallback (socketPlugRemovedCallbackWrapper cb) - connectSignalFunPtr obj "plug-removed" cb' after - -type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data SocketPlugAddedSignalInfo -instance SignalInfo SocketPlugAddedSignalInfo where - type HaskellCallbackType SocketPlugAddedSignalInfo = SocketPlugAddedCallback - connectSignal _ = connectSocketPlugAdded - -data SocketPlugRemovedSignalInfo -instance SignalInfo SocketPlugRemovedSignalInfo where - type HaskellCallbackType SocketPlugRemovedSignalInfo = SocketPlugRemovedCallback - connectSignal _ = connectSocketPlugRemoved - -type instance SignalList Socket = SocketSignalList -type SocketSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("plugAdded", SocketPlugAddedSignalInfo), '("plugRemoved", SocketPlugRemovedSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Socket::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Socket") --- throws : False --- Skip return : False - -foreign import ccall "gtk_socket_new" gtk_socket_new :: - IO (Ptr Socket) - - -socketNew :: - (MonadIO m) => - m Socket -- result -socketNew = liftIO $ do - result <- gtk_socket_new - checkUnexpectedReturnNULL "gtk_socket_new" result - result' <- (newObject Socket) result - return result' - --- method Socket::add_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TBasicType TULong, 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 "gtk_socket_add_id" gtk_socket_add_id :: - Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - CULong -> -- window : TBasicType TULong - IO () - - -socketAddId :: - (MonadIO m, SocketK a) => - a -- _obj - -> CULong -- window - -> m () -- result -socketAddId _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_socket_add_id _obj' window - touchManagedPtr _obj - return () - -data SocketAddIdMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, SocketK a) => MethodInfo SocketAddIdMethodInfo a signature where - overloadedMethod _ = socketAddId - --- method Socket::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- throws : False --- Skip return : False - -foreign import ccall "gtk_socket_get_id" gtk_socket_get_id :: - Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - IO CULong - - -socketGetId :: - (MonadIO m, SocketK a) => - a -- _obj - -> m CULong -- result -socketGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_socket_get_id _obj' - touchManagedPtr _obj - return result - -data SocketGetIdMethodInfo -instance (signature ~ (m CULong), MonadIO m, SocketK a) => MethodInfo SocketGetIdMethodInfo a signature where - overloadedMethod _ = socketGetId - --- method Socket::get_plug_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_socket_get_plug_window" gtk_socket_get_plug_window :: - Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - IO (Ptr Gdk.Window) - - -socketGetPlugWindow :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Gdk.Window -- result -socketGetPlugWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_socket_get_plug_window _obj' - checkUnexpectedReturnNULL "gtk_socket_get_plug_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data SocketGetPlugWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, SocketK a) => MethodInfo SocketGetPlugWindowMethodInfo a signature where - overloadedMethod _ = socketGetPlugWindow - - diff --git a/GI/Gtk/Objects/Socket.hs-boot b/GI/Gtk/Objects/Socket.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Socket.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.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 SocketPlugAddedSignalInfo -data SocketPlugRemovedSignalInfo -data SocketAddIdMethodInfo -data SocketGetIdMethodInfo -data SocketGetPlugWindowMethodInfo diff --git a/GI/Gtk/Objects/SpinButton.hs b/GI/Gtk/Objects/SpinButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SpinButton.hs +++ /dev/null @@ -1,1916 +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.Gtk.Objects.SpinButton - ( - --- * Exported types - SpinButton(..) , - SpinButtonK , - toSpinButton , - noSpinButton , - - - -- * Methods --- ** spinButtonConfigure - SpinButtonConfigureMethodInfo , - spinButtonConfigure , - - --- ** spinButtonGetAdjustment - SpinButtonGetAdjustmentMethodInfo , - spinButtonGetAdjustment , - - --- ** spinButtonGetDigits - SpinButtonGetDigitsMethodInfo , - spinButtonGetDigits , - - --- ** spinButtonGetIncrements - SpinButtonGetIncrementsMethodInfo , - spinButtonGetIncrements , - - --- ** spinButtonGetNumeric - SpinButtonGetNumericMethodInfo , - spinButtonGetNumeric , - - --- ** spinButtonGetRange - SpinButtonGetRangeMethodInfo , - spinButtonGetRange , - - --- ** spinButtonGetSnapToTicks - SpinButtonGetSnapToTicksMethodInfo , - spinButtonGetSnapToTicks , - - --- ** spinButtonGetUpdatePolicy - SpinButtonGetUpdatePolicyMethodInfo , - spinButtonGetUpdatePolicy , - - --- ** spinButtonGetValue - SpinButtonGetValueMethodInfo , - spinButtonGetValue , - - --- ** spinButtonGetValueAsInt - SpinButtonGetValueAsIntMethodInfo , - spinButtonGetValueAsInt , - - --- ** spinButtonGetWrap - SpinButtonGetWrapMethodInfo , - spinButtonGetWrap , - - --- ** spinButtonNew - spinButtonNew , - - --- ** spinButtonNewWithRange - spinButtonNewWithRange , - - --- ** spinButtonSetAdjustment - SpinButtonSetAdjustmentMethodInfo , - spinButtonSetAdjustment , - - --- ** spinButtonSetDigits - SpinButtonSetDigitsMethodInfo , - spinButtonSetDigits , - - --- ** spinButtonSetIncrements - SpinButtonSetIncrementsMethodInfo , - spinButtonSetIncrements , - - --- ** spinButtonSetNumeric - SpinButtonSetNumericMethodInfo , - spinButtonSetNumeric , - - --- ** spinButtonSetRange - SpinButtonSetRangeMethodInfo , - spinButtonSetRange , - - --- ** spinButtonSetSnapToTicks - SpinButtonSetSnapToTicksMethodInfo , - spinButtonSetSnapToTicks , - - --- ** spinButtonSetUpdatePolicy - SpinButtonSetUpdatePolicyMethodInfo , - spinButtonSetUpdatePolicy , - - --- ** spinButtonSetValue - SpinButtonSetValueMethodInfo , - spinButtonSetValue , - - --- ** spinButtonSetWrap - SpinButtonSetWrapMethodInfo , - spinButtonSetWrap , - - --- ** spinButtonSpin - SpinButtonSpinMethodInfo , - spinButtonSpin , - - --- ** spinButtonUpdate - SpinButtonUpdateMethodInfo , - spinButtonUpdate , - - - - - -- * Properties --- ** Adjustment - SpinButtonAdjustmentPropertyInfo , - constructSpinButtonAdjustment , - getSpinButtonAdjustment , - setSpinButtonAdjustment , - spinButtonAdjustment , - - --- ** ClimbRate - SpinButtonClimbRatePropertyInfo , - constructSpinButtonClimbRate , - getSpinButtonClimbRate , - setSpinButtonClimbRate , - spinButtonClimbRate , - - --- ** Digits - SpinButtonDigitsPropertyInfo , - constructSpinButtonDigits , - getSpinButtonDigits , - setSpinButtonDigits , - spinButtonDigits , - - --- ** Numeric - SpinButtonNumericPropertyInfo , - constructSpinButtonNumeric , - getSpinButtonNumeric , - setSpinButtonNumeric , - spinButtonNumeric , - - --- ** SnapToTicks - SpinButtonSnapToTicksPropertyInfo , - constructSpinButtonSnapToTicks , - getSpinButtonSnapToTicks , - setSpinButtonSnapToTicks , - spinButtonSnapToTicks , - - --- ** UpdatePolicy - SpinButtonUpdatePolicyPropertyInfo , - constructSpinButtonUpdatePolicy , - getSpinButtonUpdatePolicy , - setSpinButtonUpdatePolicy , - spinButtonUpdatePolicy , - - --- ** Value - SpinButtonValuePropertyInfo , - constructSpinButtonValue , - getSpinButtonValue , - setSpinButtonValue , - spinButtonValue , - - --- ** Wrap - SpinButtonWrapPropertyInfo , - constructSpinButtonWrap , - getSpinButtonWrap , - setSpinButtonWrap , - spinButtonWrap , - - - - - -- * Signals --- ** ChangeValue - SpinButtonChangeValueCallback , - SpinButtonChangeValueCallbackC , - SpinButtonChangeValueSignalInfo , - afterSpinButtonChangeValue , - mkSpinButtonChangeValueCallback , - noSpinButtonChangeValueCallback , - onSpinButtonChangeValue , - spinButtonChangeValueCallbackWrapper , - spinButtonChangeValueClosure , - - --- ** Input - SpinButtonInputCallback , - SpinButtonInputCallbackC , - SpinButtonInputSignalInfo , - afterSpinButtonInput , - mkSpinButtonInputCallback , - noSpinButtonInputCallback , - onSpinButtonInput , - spinButtonInputCallbackWrapper , - spinButtonInputClosure , - - --- ** Output - SpinButtonOutputCallback , - SpinButtonOutputCallbackC , - SpinButtonOutputSignalInfo , - afterSpinButtonOutput , - mkSpinButtonOutputCallback , - noSpinButtonOutputCallback , - onSpinButtonOutput , - spinButtonOutputCallbackWrapper , - spinButtonOutputClosure , - - --- ** ValueChanged - SpinButtonValueChangedCallback , - SpinButtonValueChangedCallbackC , - SpinButtonValueChangedSignalInfo , - afterSpinButtonValueChanged , - mkSpinButtonValueChangedCallback , - noSpinButtonValueChangedCallback , - onSpinButtonValueChanged , - spinButtonValueChangedCallbackWrapper , - spinButtonValueChangedClosure , - - --- ** Wrapped - SpinButtonWrappedCallback , - SpinButtonWrappedCallbackC , - SpinButtonWrappedSignalInfo , - afterSpinButtonWrapped , - mkSpinButtonWrappedCallback , - noSpinButtonWrappedCallback , - onSpinButtonWrapped , - spinButtonWrappedCallbackWrapper , - spinButtonWrappedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SpinButton = SpinButton (ForeignPtr SpinButton) -foreign import ccall "gtk_spin_button_get_type" - c_gtk_spin_button_get_type :: IO GType - -type instance ParentTypes SpinButton = SpinButtonParentTypes -type SpinButtonParentTypes = '[Entry, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable, Orientable] - -instance GObject SpinButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_spin_button_get_type - - -class GObject o => SpinButtonK o -instance (GObject o, IsDescendantOf SpinButton o) => SpinButtonK o - -toSpinButton :: SpinButtonK o => o -> IO SpinButton -toSpinButton = unsafeCastTo SpinButton - -noSpinButton :: Maybe SpinButton -noSpinButton = Nothing - -type family ResolveSpinButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveSpinButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveSpinButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSpinButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSpinButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSpinButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSpinButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSpinButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSpinButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSpinButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSpinButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSpinButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSpinButtonMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveSpinButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSpinButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSpinButtonMethod "configure" o = SpinButtonConfigureMethodInfo - ResolveSpinButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSpinButtonMethod "copyClipboard" o = EditableCopyClipboardMethodInfo - ResolveSpinButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSpinButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSpinButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSpinButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSpinButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSpinButtonMethod "cutClipboard" o = EditableCutClipboardMethodInfo - ResolveSpinButtonMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo - ResolveSpinButtonMethod "deleteText" o = EditableDeleteTextMethodInfo - ResolveSpinButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSpinButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSpinButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSpinButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSpinButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSpinButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSpinButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSpinButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSpinButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSpinButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSpinButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSpinButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSpinButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSpinButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSpinButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSpinButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSpinButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSpinButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSpinButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSpinButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSpinButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSpinButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSpinButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSpinButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSpinButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSpinButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSpinButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSpinButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSpinButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSpinButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSpinButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSpinButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveSpinButtonMethod "editingDone" o = CellEditableEditingDoneMethodInfo - ResolveSpinButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSpinButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSpinButtonMethod "event" o = WidgetEventMethodInfo - ResolveSpinButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSpinButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSpinButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSpinButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSpinButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSpinButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSpinButtonMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo - ResolveSpinButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSpinButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSpinButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSpinButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSpinButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSpinButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSpinButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSpinButtonMethod "hide" o = WidgetHideMethodInfo - ResolveSpinButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSpinButtonMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo - ResolveSpinButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSpinButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSpinButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSpinButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSpinButtonMethod "insertText" o = EditableInsertTextMethodInfo - ResolveSpinButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSpinButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSpinButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSpinButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSpinButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSpinButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSpinButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSpinButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSpinButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSpinButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSpinButtonMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo - ResolveSpinButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSpinButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSpinButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSpinButtonMethod "map" o = WidgetMapMethodInfo - ResolveSpinButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSpinButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSpinButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSpinButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSpinButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSpinButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSpinButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSpinButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSpinButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSpinButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSpinButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSpinButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSpinButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSpinButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSpinButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSpinButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSpinButtonMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo - ResolveSpinButtonMethod "path" o = WidgetPathMethodInfo - ResolveSpinButtonMethod "progressPulse" o = EntryProgressPulseMethodInfo - ResolveSpinButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSpinButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSpinButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSpinButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSpinButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSpinButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSpinButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveSpinButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSpinButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSpinButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSpinButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSpinButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSpinButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSpinButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSpinButtonMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo - ResolveSpinButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSpinButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSpinButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveSpinButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSpinButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSpinButtonMethod "resetImContext" o = EntryResetImContextMethodInfo - ResolveSpinButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSpinButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSpinButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSpinButtonMethod "selectRegion" o = EditableSelectRegionMethodInfo - ResolveSpinButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSpinButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSpinButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSpinButtonMethod "show" o = WidgetShowMethodInfo - ResolveSpinButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSpinButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSpinButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSpinButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSpinButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSpinButtonMethod "spin" o = SpinButtonSpinMethodInfo - ResolveSpinButtonMethod "startEditing" o = CellEditableStartEditingMethodInfo - ResolveSpinButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSpinButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSpinButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSpinButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSpinButtonMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo - ResolveSpinButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSpinButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSpinButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSpinButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSpinButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSpinButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSpinButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSpinButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSpinButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSpinButtonMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo - ResolveSpinButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSpinButtonMethod "update" o = SpinButtonUpdateMethodInfo - ResolveSpinButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSpinButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSpinButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSpinButtonMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo - ResolveSpinButtonMethod "getAdjustment" o = SpinButtonGetAdjustmentMethodInfo - ResolveSpinButtonMethod "getAlignment" o = EntryGetAlignmentMethodInfo - ResolveSpinButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSpinButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSpinButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSpinButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSpinButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSpinButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSpinButtonMethod "getAttributes" o = EntryGetAttributesMethodInfo - ResolveSpinButtonMethod "getBuffer" o = EntryGetBufferMethodInfo - ResolveSpinButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSpinButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSpinButtonMethod "getChars" o = EditableGetCharsMethodInfo - ResolveSpinButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSpinButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSpinButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSpinButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSpinButtonMethod "getCompletion" o = EntryGetCompletionMethodInfo - ResolveSpinButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSpinButtonMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo - ResolveSpinButtonMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo - ResolveSpinButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSpinButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSpinButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSpinButtonMethod "getDigits" o = SpinButtonGetDigitsMethodInfo - ResolveSpinButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSpinButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSpinButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSpinButtonMethod "getEditable" o = EditableGetEditableMethodInfo - ResolveSpinButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSpinButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSpinButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSpinButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSpinButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSpinButtonMethod "getHasFrame" o = EntryGetHasFrameMethodInfo - ResolveSpinButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSpinButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSpinButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSpinButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSpinButtonMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo - ResolveSpinButtonMethod "getIconArea" o = EntryGetIconAreaMethodInfo - ResolveSpinButtonMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo - ResolveSpinButtonMethod "getIconGicon" o = EntryGetIconGiconMethodInfo - ResolveSpinButtonMethod "getIconName" o = EntryGetIconNameMethodInfo - ResolveSpinButtonMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo - ResolveSpinButtonMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo - ResolveSpinButtonMethod "getIconStock" o = EntryGetIconStockMethodInfo - ResolveSpinButtonMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo - ResolveSpinButtonMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo - ResolveSpinButtonMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo - ResolveSpinButtonMethod "getIncrements" o = SpinButtonGetIncrementsMethodInfo - ResolveSpinButtonMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo - ResolveSpinButtonMethod "getInputHints" o = EntryGetInputHintsMethodInfo - ResolveSpinButtonMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo - ResolveSpinButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSpinButtonMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo - ResolveSpinButtonMethod "getLayout" o = EntryGetLayoutMethodInfo - ResolveSpinButtonMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo - ResolveSpinButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSpinButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSpinButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSpinButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSpinButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSpinButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSpinButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSpinButtonMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo - ResolveSpinButtonMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo - ResolveSpinButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSpinButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSpinButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSpinButtonMethod "getNumeric" o = SpinButtonGetNumericMethodInfo - ResolveSpinButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSpinButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveSpinButtonMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo - ResolveSpinButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSpinButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSpinButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSpinButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSpinButtonMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo - ResolveSpinButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSpinButtonMethod "getPosition" o = EditableGetPositionMethodInfo - ResolveSpinButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSpinButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSpinButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSpinButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSpinButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSpinButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSpinButtonMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo - ResolveSpinButtonMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo - ResolveSpinButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSpinButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSpinButtonMethod "getRange" o = SpinButtonGetRangeMethodInfo - ResolveSpinButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSpinButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSpinButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSpinButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSpinButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSpinButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSpinButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSpinButtonMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo - ResolveSpinButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSpinButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSpinButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSpinButtonMethod "getSnapToTicks" o = SpinButtonGetSnapToTicksMethodInfo - ResolveSpinButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveSpinButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSpinButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSpinButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSpinButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSpinButtonMethod "getTabs" o = EntryGetTabsMethodInfo - ResolveSpinButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSpinButtonMethod "getText" o = EntryGetTextMethodInfo - ResolveSpinButtonMethod "getTextArea" o = EntryGetTextAreaMethodInfo - ResolveSpinButtonMethod "getTextLength" o = EntryGetTextLengthMethodInfo - ResolveSpinButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSpinButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSpinButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSpinButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSpinButtonMethod "getUpdatePolicy" o = SpinButtonGetUpdatePolicyMethodInfo - ResolveSpinButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSpinButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSpinButtonMethod "getValue" o = SpinButtonGetValueMethodInfo - ResolveSpinButtonMethod "getValueAsInt" o = SpinButtonGetValueAsIntMethodInfo - ResolveSpinButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSpinButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSpinButtonMethod "getVisibility" o = EntryGetVisibilityMethodInfo - ResolveSpinButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSpinButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSpinButtonMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo - ResolveSpinButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSpinButtonMethod "getWrap" o = SpinButtonGetWrapMethodInfo - ResolveSpinButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSpinButtonMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo - ResolveSpinButtonMethod "setAdjustment" o = SpinButtonSetAdjustmentMethodInfo - ResolveSpinButtonMethod "setAlignment" o = EntrySetAlignmentMethodInfo - ResolveSpinButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSpinButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSpinButtonMethod "setAttributes" o = EntrySetAttributesMethodInfo - ResolveSpinButtonMethod "setBuffer" o = EntrySetBufferMethodInfo - ResolveSpinButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSpinButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSpinButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSpinButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSpinButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSpinButtonMethod "setCompletion" o = EntrySetCompletionMethodInfo - ResolveSpinButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSpinButtonMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo - ResolveSpinButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSpinButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSpinButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSpinButtonMethod "setDigits" o = SpinButtonSetDigitsMethodInfo - ResolveSpinButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSpinButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSpinButtonMethod "setEditable" o = EditableSetEditableMethodInfo - ResolveSpinButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSpinButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSpinButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSpinButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSpinButtonMethod "setHasFrame" o = EntrySetHasFrameMethodInfo - ResolveSpinButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSpinButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSpinButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSpinButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSpinButtonMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo - ResolveSpinButtonMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo - ResolveSpinButtonMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo - ResolveSpinButtonMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo - ResolveSpinButtonMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo - ResolveSpinButtonMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo - ResolveSpinButtonMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo - ResolveSpinButtonMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo - ResolveSpinButtonMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo - ResolveSpinButtonMethod "setIncrements" o = SpinButtonSetIncrementsMethodInfo - ResolveSpinButtonMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo - ResolveSpinButtonMethod "setInputHints" o = EntrySetInputHintsMethodInfo - ResolveSpinButtonMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo - ResolveSpinButtonMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo - ResolveSpinButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSpinButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSpinButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSpinButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSpinButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSpinButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSpinButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSpinButtonMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo - ResolveSpinButtonMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo - ResolveSpinButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSpinButtonMethod "setNumeric" o = SpinButtonSetNumericMethodInfo - ResolveSpinButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSpinButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveSpinButtonMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo - ResolveSpinButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSpinButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSpinButtonMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo - ResolveSpinButtonMethod "setPosition" o = EditableSetPositionMethodInfo - ResolveSpinButtonMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo - ResolveSpinButtonMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo - ResolveSpinButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSpinButtonMethod "setRange" o = SpinButtonSetRangeMethodInfo - ResolveSpinButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSpinButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSpinButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSpinButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSpinButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSpinButtonMethod "setSnapToTicks" o = SpinButtonSetSnapToTicksMethodInfo - ResolveSpinButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveSpinButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSpinButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSpinButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSpinButtonMethod "setTabs" o = EntrySetTabsMethodInfo - ResolveSpinButtonMethod "setText" o = EntrySetTextMethodInfo - ResolveSpinButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSpinButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSpinButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSpinButtonMethod "setUpdatePolicy" o = SpinButtonSetUpdatePolicyMethodInfo - ResolveSpinButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSpinButtonMethod "setValue" o = SpinButtonSetValueMethodInfo - ResolveSpinButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSpinButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSpinButtonMethod "setVisibility" o = EntrySetVisibilityMethodInfo - ResolveSpinButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSpinButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSpinButtonMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo - ResolveSpinButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSpinButtonMethod "setWrap" o = SpinButtonSetWrapMethodInfo - ResolveSpinButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSpinButtonMethod t SpinButton, MethodInfo info SpinButton p) => IsLabelProxy t (SpinButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSpinButtonMethod t SpinButton, MethodInfo info SpinButton p) => IsLabel t (SpinButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SpinButton::change-value -type SpinButtonChangeValueCallback = - ScrollType -> - IO () - -noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback -noSpinButtonChangeValueCallback = Nothing - -type SpinButtonChangeValueCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSpinButtonChangeValueCallback :: SpinButtonChangeValueCallbackC -> IO (FunPtr SpinButtonChangeValueCallbackC) - -spinButtonChangeValueClosure :: SpinButtonChangeValueCallback -> IO Closure -spinButtonChangeValueClosure cb = newCClosure =<< mkSpinButtonChangeValueCallback wrapped - where wrapped = spinButtonChangeValueCallbackWrapper cb - -spinButtonChangeValueCallbackWrapper :: - SpinButtonChangeValueCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -spinButtonChangeValueCallbackWrapper _cb _ scroll _ = do - let scroll' = (toEnum . fromIntegral) scroll - _cb scroll' - -onSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId -onSpinButtonChangeValue obj cb = liftIO $ connectSpinButtonChangeValue obj cb SignalConnectBefore -afterSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId -afterSpinButtonChangeValue obj cb = connectSpinButtonChangeValue obj cb SignalConnectAfter - -connectSpinButtonChangeValue :: (GObject a, MonadIO m) => - a -> SpinButtonChangeValueCallback -> SignalConnectMode -> m SignalHandlerId -connectSpinButtonChangeValue obj cb after = liftIO $ do - cb' <- mkSpinButtonChangeValueCallback (spinButtonChangeValueCallbackWrapper cb) - connectSignalFunPtr obj "change-value" cb' after - --- signal SpinButton::input -type SpinButtonInputCallback = - IO (Int32,Double) - -noSpinButtonInputCallback :: Maybe SpinButtonInputCallback -noSpinButtonInputCallback = Nothing - -type SpinButtonInputCallbackC = - Ptr () -> -- object - Ptr CDouble -> - Ptr () -> -- user_data - IO Int32 - -foreign import ccall "wrapper" - mkSpinButtonInputCallback :: SpinButtonInputCallbackC -> IO (FunPtr SpinButtonInputCallbackC) - -spinButtonInputClosure :: SpinButtonInputCallback -> IO Closure -spinButtonInputClosure cb = newCClosure =<< mkSpinButtonInputCallback wrapped - where wrapped = spinButtonInputCallbackWrapper cb - -spinButtonInputCallbackWrapper :: - SpinButtonInputCallback -> - Ptr () -> - Ptr CDouble -> - Ptr () -> - IO Int32 -spinButtonInputCallbackWrapper _cb _ newValue _ = do - (result, outnewValue) <- _cb - let outnewValue' = realToFrac outnewValue - poke newValue outnewValue' - return result - -onSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId -onSpinButtonInput obj cb = liftIO $ connectSpinButtonInput obj cb SignalConnectBefore -afterSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId -afterSpinButtonInput obj cb = connectSpinButtonInput obj cb SignalConnectAfter - -connectSpinButtonInput :: (GObject a, MonadIO m) => - a -> SpinButtonInputCallback -> SignalConnectMode -> m SignalHandlerId -connectSpinButtonInput obj cb after = liftIO $ do - cb' <- mkSpinButtonInputCallback (spinButtonInputCallbackWrapper cb) - connectSignalFunPtr obj "input" cb' after - --- signal SpinButton::output -type SpinButtonOutputCallback = - IO Bool - -noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback -noSpinButtonOutputCallback = Nothing - -type SpinButtonOutputCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSpinButtonOutputCallback :: SpinButtonOutputCallbackC -> IO (FunPtr SpinButtonOutputCallbackC) - -spinButtonOutputClosure :: SpinButtonOutputCallback -> IO Closure -spinButtonOutputClosure cb = newCClosure =<< mkSpinButtonOutputCallback wrapped - where wrapped = spinButtonOutputCallbackWrapper cb - -spinButtonOutputCallbackWrapper :: - SpinButtonOutputCallback -> - Ptr () -> - Ptr () -> - IO CInt -spinButtonOutputCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId -onSpinButtonOutput obj cb = liftIO $ connectSpinButtonOutput obj cb SignalConnectBefore -afterSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId -afterSpinButtonOutput obj cb = connectSpinButtonOutput obj cb SignalConnectAfter - -connectSpinButtonOutput :: (GObject a, MonadIO m) => - a -> SpinButtonOutputCallback -> SignalConnectMode -> m SignalHandlerId -connectSpinButtonOutput obj cb after = liftIO $ do - cb' <- mkSpinButtonOutputCallback (spinButtonOutputCallbackWrapper cb) - connectSignalFunPtr obj "output" cb' after - --- signal SpinButton::value-changed -type SpinButtonValueChangedCallback = - IO () - -noSpinButtonValueChangedCallback :: Maybe SpinButtonValueChangedCallback -noSpinButtonValueChangedCallback = Nothing - -type SpinButtonValueChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSpinButtonValueChangedCallback :: SpinButtonValueChangedCallbackC -> IO (FunPtr SpinButtonValueChangedCallbackC) - -spinButtonValueChangedClosure :: SpinButtonValueChangedCallback -> IO Closure -spinButtonValueChangedClosure cb = newCClosure =<< mkSpinButtonValueChangedCallback wrapped - where wrapped = spinButtonValueChangedCallbackWrapper cb - -spinButtonValueChangedCallbackWrapper :: - SpinButtonValueChangedCallback -> - Ptr () -> - Ptr () -> - IO () -spinButtonValueChangedCallbackWrapper _cb _ _ = do - _cb - -onSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId -onSpinButtonValueChanged obj cb = liftIO $ connectSpinButtonValueChanged obj cb SignalConnectBefore -afterSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId -afterSpinButtonValueChanged obj cb = connectSpinButtonValueChanged obj cb SignalConnectAfter - -connectSpinButtonValueChanged :: (GObject a, MonadIO m) => - a -> SpinButtonValueChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectSpinButtonValueChanged obj cb after = liftIO $ do - cb' <- mkSpinButtonValueChangedCallback (spinButtonValueChangedCallbackWrapper cb) - connectSignalFunPtr obj "value-changed" cb' after - --- signal SpinButton::wrapped -type SpinButtonWrappedCallback = - IO () - -noSpinButtonWrappedCallback :: Maybe SpinButtonWrappedCallback -noSpinButtonWrappedCallback = Nothing - -type SpinButtonWrappedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSpinButtonWrappedCallback :: SpinButtonWrappedCallbackC -> IO (FunPtr SpinButtonWrappedCallbackC) - -spinButtonWrappedClosure :: SpinButtonWrappedCallback -> IO Closure -spinButtonWrappedClosure cb = newCClosure =<< mkSpinButtonWrappedCallback wrapped - where wrapped = spinButtonWrappedCallbackWrapper cb - -spinButtonWrappedCallbackWrapper :: - SpinButtonWrappedCallback -> - Ptr () -> - Ptr () -> - IO () -spinButtonWrappedCallbackWrapper _cb _ _ = do - _cb - -onSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId -onSpinButtonWrapped obj cb = liftIO $ connectSpinButtonWrapped obj cb SignalConnectBefore -afterSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId -afterSpinButtonWrapped obj cb = connectSpinButtonWrapped obj cb SignalConnectAfter - -connectSpinButtonWrapped :: (GObject a, MonadIO m) => - a -> SpinButtonWrappedCallback -> SignalConnectMode -> m SignalHandlerId -connectSpinButtonWrapped obj cb after = liftIO $ do - cb' <- mkSpinButtonWrappedCallback (spinButtonWrappedCallbackWrapper cb) - connectSignalFunPtr obj "wrapped" cb' after - --- VVV Prop "adjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonAdjustment :: (MonadIO m, SpinButtonK o) => o -> m Adjustment -getSpinButtonAdjustment obj = liftIO $ checkUnexpectedNothing "getSpinButtonAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment - -setSpinButtonAdjustment :: (MonadIO m, SpinButtonK o, AdjustmentK a) => o -> a -> m () -setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) - -constructSpinButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" (Just val) - -data SpinButtonAdjustmentPropertyInfo -instance AttrInfo SpinButtonAdjustmentPropertyInfo where - type AttrAllowedOps SpinButtonAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonAdjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint SpinButtonAdjustmentPropertyInfo = SpinButtonK - type AttrGetType SpinButtonAdjustmentPropertyInfo = Adjustment - type AttrLabel SpinButtonAdjustmentPropertyInfo = "adjustment" - attrGet _ = getSpinButtonAdjustment - attrSet _ = setSpinButtonAdjustment - attrConstruct _ = constructSpinButtonAdjustment - attrClear _ = undefined - --- VVV Prop "climb-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSpinButtonClimbRate :: (MonadIO m, SpinButtonK o) => o -> m Double -getSpinButtonClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate" - -setSpinButtonClimbRate :: (MonadIO m, SpinButtonK o) => o -> Double -> m () -setSpinButtonClimbRate obj val = liftIO $ setObjectPropertyDouble obj "climb-rate" val - -constructSpinButtonClimbRate :: Double -> IO ([Char], GValue) -constructSpinButtonClimbRate val = constructObjectPropertyDouble "climb-rate" val - -data SpinButtonClimbRatePropertyInfo -instance AttrInfo SpinButtonClimbRatePropertyInfo where - type AttrAllowedOps SpinButtonClimbRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonClimbRatePropertyInfo = (~) Double - type AttrBaseTypeConstraint SpinButtonClimbRatePropertyInfo = SpinButtonK - type AttrGetType SpinButtonClimbRatePropertyInfo = Double - type AttrLabel SpinButtonClimbRatePropertyInfo = "climb-rate" - attrGet _ = getSpinButtonClimbRate - attrSet _ = setSpinButtonClimbRate - attrConstruct _ = constructSpinButtonClimbRate - attrClear _ = undefined - --- VVV Prop "digits" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> m Word32 -getSpinButtonDigits obj = liftIO $ getObjectPropertyUInt32 obj "digits" - -setSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> Word32 -> m () -setSpinButtonDigits obj val = liftIO $ setObjectPropertyUInt32 obj "digits" val - -constructSpinButtonDigits :: Word32 -> IO ([Char], GValue) -constructSpinButtonDigits val = constructObjectPropertyUInt32 "digits" val - -data SpinButtonDigitsPropertyInfo -instance AttrInfo SpinButtonDigitsPropertyInfo where - type AttrAllowedOps SpinButtonDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonDigitsPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SpinButtonDigitsPropertyInfo = SpinButtonK - type AttrGetType SpinButtonDigitsPropertyInfo = Word32 - type AttrLabel SpinButtonDigitsPropertyInfo = "digits" - attrGet _ = getSpinButtonDigits - attrSet _ = setSpinButtonDigits - attrConstruct _ = constructSpinButtonDigits - attrClear _ = undefined - --- VVV Prop "numeric" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonNumeric :: (MonadIO m, SpinButtonK o) => o -> m Bool -getSpinButtonNumeric obj = liftIO $ getObjectPropertyBool obj "numeric" - -setSpinButtonNumeric :: (MonadIO m, SpinButtonK o) => o -> Bool -> m () -setSpinButtonNumeric obj val = liftIO $ setObjectPropertyBool obj "numeric" val - -constructSpinButtonNumeric :: Bool -> IO ([Char], GValue) -constructSpinButtonNumeric val = constructObjectPropertyBool "numeric" val - -data SpinButtonNumericPropertyInfo -instance AttrInfo SpinButtonNumericPropertyInfo where - type AttrAllowedOps SpinButtonNumericPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonNumericPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SpinButtonNumericPropertyInfo = SpinButtonK - type AttrGetType SpinButtonNumericPropertyInfo = Bool - type AttrLabel SpinButtonNumericPropertyInfo = "numeric" - attrGet _ = getSpinButtonNumeric - attrSet _ = setSpinButtonNumeric - attrConstruct _ = constructSpinButtonNumeric - attrClear _ = undefined - --- VVV Prop "snap-to-ticks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonSnapToTicks :: (MonadIO m, SpinButtonK o) => o -> m Bool -getSpinButtonSnapToTicks obj = liftIO $ getObjectPropertyBool obj "snap-to-ticks" - -setSpinButtonSnapToTicks :: (MonadIO m, SpinButtonK o) => o -> Bool -> m () -setSpinButtonSnapToTicks obj val = liftIO $ setObjectPropertyBool obj "snap-to-ticks" val - -constructSpinButtonSnapToTicks :: Bool -> IO ([Char], GValue) -constructSpinButtonSnapToTicks val = constructObjectPropertyBool "snap-to-ticks" val - -data SpinButtonSnapToTicksPropertyInfo -instance AttrInfo SpinButtonSnapToTicksPropertyInfo where - type AttrAllowedOps SpinButtonSnapToTicksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonSnapToTicksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SpinButtonSnapToTicksPropertyInfo = SpinButtonK - type AttrGetType SpinButtonSnapToTicksPropertyInfo = Bool - type AttrLabel SpinButtonSnapToTicksPropertyInfo = "snap-to-ticks" - attrGet _ = getSpinButtonSnapToTicks - attrSet _ = setSpinButtonSnapToTicks - attrConstruct _ = constructSpinButtonSnapToTicks - attrClear _ = undefined - --- VVV Prop "update-policy" - -- Type: TInterface "Gtk" "SpinButtonUpdatePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonUpdatePolicy :: (MonadIO m, SpinButtonK o) => o -> m SpinButtonUpdatePolicy -getSpinButtonUpdatePolicy obj = liftIO $ getObjectPropertyEnum obj "update-policy" - -setSpinButtonUpdatePolicy :: (MonadIO m, SpinButtonK o) => o -> SpinButtonUpdatePolicy -> m () -setSpinButtonUpdatePolicy obj val = liftIO $ setObjectPropertyEnum obj "update-policy" val - -constructSpinButtonUpdatePolicy :: SpinButtonUpdatePolicy -> IO ([Char], GValue) -constructSpinButtonUpdatePolicy val = constructObjectPropertyEnum "update-policy" val - -data SpinButtonUpdatePolicyPropertyInfo -instance AttrInfo SpinButtonUpdatePolicyPropertyInfo where - type AttrAllowedOps SpinButtonUpdatePolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonUpdatePolicyPropertyInfo = (~) SpinButtonUpdatePolicy - type AttrBaseTypeConstraint SpinButtonUpdatePolicyPropertyInfo = SpinButtonK - type AttrGetType SpinButtonUpdatePolicyPropertyInfo = SpinButtonUpdatePolicy - type AttrLabel SpinButtonUpdatePolicyPropertyInfo = "update-policy" - attrGet _ = getSpinButtonUpdatePolicy - attrSet _ = setSpinButtonUpdatePolicy - attrConstruct _ = constructSpinButtonUpdatePolicy - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonValue :: (MonadIO m, SpinButtonK o) => o -> m Double -getSpinButtonValue obj = liftIO $ getObjectPropertyDouble obj "value" - -setSpinButtonValue :: (MonadIO m, SpinButtonK o) => o -> Double -> m () -setSpinButtonValue obj val = liftIO $ setObjectPropertyDouble obj "value" val - -constructSpinButtonValue :: Double -> IO ([Char], GValue) -constructSpinButtonValue val = constructObjectPropertyDouble "value" val - -data SpinButtonValuePropertyInfo -instance AttrInfo SpinButtonValuePropertyInfo where - type AttrAllowedOps SpinButtonValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint SpinButtonValuePropertyInfo = SpinButtonK - type AttrGetType SpinButtonValuePropertyInfo = Double - type AttrLabel SpinButtonValuePropertyInfo = "value" - attrGet _ = getSpinButtonValue - attrSet _ = setSpinButtonValue - attrConstruct _ = constructSpinButtonValue - attrClear _ = undefined - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSpinButtonWrap :: (MonadIO m, SpinButtonK o) => o -> m Bool -getSpinButtonWrap obj = liftIO $ getObjectPropertyBool obj "wrap" - -setSpinButtonWrap :: (MonadIO m, SpinButtonK o) => o -> Bool -> m () -setSpinButtonWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val - -constructSpinButtonWrap :: Bool -> IO ([Char], GValue) -constructSpinButtonWrap val = constructObjectPropertyBool "wrap" val - -data SpinButtonWrapPropertyInfo -instance AttrInfo SpinButtonWrapPropertyInfo where - type AttrAllowedOps SpinButtonWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinButtonWrapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SpinButtonWrapPropertyInfo = SpinButtonK - type AttrGetType SpinButtonWrapPropertyInfo = Bool - type AttrLabel SpinButtonWrapPropertyInfo = "wrap" - attrGet _ = getSpinButtonWrap - attrSet _ = setSpinButtonWrap - attrConstruct _ = constructSpinButtonWrap - attrClear _ = undefined - -type instance AttributeList SpinButton = SpinButtonAttributeList -type SpinButtonAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("climbRate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("snapToTicks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("updatePolicy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -spinButtonAdjustment :: AttrLabelProxy "adjustment" -spinButtonAdjustment = AttrLabelProxy - -spinButtonClimbRate :: AttrLabelProxy "climbRate" -spinButtonClimbRate = AttrLabelProxy - -spinButtonDigits :: AttrLabelProxy "digits" -spinButtonDigits = AttrLabelProxy - -spinButtonNumeric :: AttrLabelProxy "numeric" -spinButtonNumeric = AttrLabelProxy - -spinButtonSnapToTicks :: AttrLabelProxy "snapToTicks" -spinButtonSnapToTicks = AttrLabelProxy - -spinButtonUpdatePolicy :: AttrLabelProxy "updatePolicy" -spinButtonUpdatePolicy = AttrLabelProxy - -spinButtonValue :: AttrLabelProxy "value" -spinButtonValue = AttrLabelProxy - -spinButtonWrap :: AttrLabelProxy "wrap" -spinButtonWrap = AttrLabelProxy - -data SpinButtonChangeValueSignalInfo -instance SignalInfo SpinButtonChangeValueSignalInfo where - type HaskellCallbackType SpinButtonChangeValueSignalInfo = SpinButtonChangeValueCallback - connectSignal _ = connectSpinButtonChangeValue - -data SpinButtonInputSignalInfo -instance SignalInfo SpinButtonInputSignalInfo where - type HaskellCallbackType SpinButtonInputSignalInfo = SpinButtonInputCallback - connectSignal _ = connectSpinButtonInput - -data SpinButtonOutputSignalInfo -instance SignalInfo SpinButtonOutputSignalInfo where - type HaskellCallbackType SpinButtonOutputSignalInfo = SpinButtonOutputCallback - connectSignal _ = connectSpinButtonOutput - -data SpinButtonValueChangedSignalInfo -instance SignalInfo SpinButtonValueChangedSignalInfo where - type HaskellCallbackType SpinButtonValueChangedSignalInfo = SpinButtonValueChangedCallback - connectSignal _ = connectSpinButtonValueChanged - -data SpinButtonWrappedSignalInfo -instance SignalInfo SpinButtonWrappedSignalInfo where - type HaskellCallbackType SpinButtonWrappedSignalInfo = SpinButtonWrappedCallback - connectSignal _ = connectSpinButtonWrapped - -type instance SignalList SpinButton = SpinButtonSignalList -type SpinButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", SpinButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo)] :: [(Symbol, *)]) - --- method SpinButton::new --- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SpinButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_spin_button_new" gtk_spin_button_new :: - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - CDouble -> -- climb_rate : TBasicType TDouble - Word32 -> -- digits : TBasicType TUInt - IO (Ptr SpinButton) - - -spinButtonNew :: - (MonadIO m, AdjustmentK a) => - Maybe (a) -- adjustment - -> Double -- climbRate - -> Word32 -- digits - -> m SpinButton -- result -spinButtonNew adjustment climbRate digits = liftIO $ do - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - let climbRate' = realToFrac climbRate - result <- gtk_spin_button_new maybeAdjustment climbRate' digits - checkUnexpectedReturnNULL "gtk_spin_button_new" result - result' <- (newObject SpinButton) result - whenJust adjustment touchManagedPtr - return result' - --- method SpinButton::new_with_range --- method type : Constructor --- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SpinButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_spin_button_new_with_range" gtk_spin_button_new_with_range :: - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - CDouble -> -- step : TBasicType TDouble - IO (Ptr SpinButton) - - -spinButtonNewWithRange :: - (MonadIO m) => - Double -- min - -> Double -- max - -> Double -- step - -> m SpinButton -- result -spinButtonNewWithRange min max step = liftIO $ do - let min' = realToFrac min - let max' = realToFrac max - let step' = realToFrac step - result <- gtk_spin_button_new_with_range min' max' step' - checkUnexpectedReturnNULL "gtk_spin_button_new_with_range" result - result' <- (newObject SpinButton) result - return result' - --- method SpinButton::configure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", 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 "gtk_spin_button_configure" gtk_spin_button_configure :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - CDouble -> -- climb_rate : TBasicType TDouble - Word32 -> -- digits : TBasicType TUInt - IO () - - -spinButtonConfigure :: - (MonadIO m, SpinButtonK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> Double -- climbRate - -> Word32 -- digits - -> m () -- result -spinButtonConfigure _obj adjustment climbRate digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - let climbRate' = realToFrac climbRate - gtk_spin_button_configure _obj' maybeAdjustment climbRate' digits - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data SpinButtonConfigureMethodInfo -instance (signature ~ (Maybe (b) -> Double -> Word32 -> m ()), MonadIO m, SpinButtonK a, AdjustmentK b) => MethodInfo SpinButtonConfigureMethodInfo a signature where - overloadedMethod _ = spinButtonConfigure - --- method SpinButton::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_spin_button_get_adjustment" gtk_spin_button_get_adjustment :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO (Ptr Adjustment) - - -spinButtonGetAdjustment :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Adjustment -- result -spinButtonGetAdjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_adjustment _obj' - checkUnexpectedReturnNULL "gtk_spin_button_get_adjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data SpinButtonGetAdjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetAdjustmentMethodInfo a signature where - overloadedMethod _ = spinButtonGetAdjustment - --- method SpinButton::get_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_spin_button_get_digits" gtk_spin_button_get_digits :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO Word32 - - -spinButtonGetDigits :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Word32 -- result -spinButtonGetDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_digits _obj' - touchManagedPtr _obj - return result - -data SpinButtonGetDigitsMethodInfo -instance (signature ~ (m Word32), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetDigitsMethodInfo a signature where - overloadedMethod _ = spinButtonGetDigits - --- method SpinButton::get_increments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "page", argType = TBasicType TDouble, 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 "gtk_spin_button_get_increments" gtk_spin_button_get_increments :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Ptr CDouble -> -- step : TBasicType TDouble - Ptr CDouble -> -- page : TBasicType TDouble - IO () - - -spinButtonGetIncrements :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m (Double,Double) -- result -spinButtonGetIncrements _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - step <- allocMem :: IO (Ptr CDouble) - page <- allocMem :: IO (Ptr CDouble) - gtk_spin_button_get_increments _obj' step page - step' <- peek step - let step'' = realToFrac step' - page' <- peek page - let page'' = realToFrac page' - touchManagedPtr _obj - freeMem step - freeMem page - return (step'', page'') - -data SpinButtonGetIncrementsMethodInfo -instance (signature ~ (m (Double,Double)), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetIncrementsMethodInfo a signature where - overloadedMethod _ = spinButtonGetIncrements - --- method SpinButton::get_numeric --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_get_numeric" gtk_spin_button_get_numeric :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO CInt - - -spinButtonGetNumeric :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Bool -- result -spinButtonGetNumeric _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_numeric _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SpinButtonGetNumericMethodInfo -instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetNumericMethodInfo a signature where - overloadedMethod _ = spinButtonGetNumeric - --- method SpinButton::get_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max", argType = TBasicType TDouble, 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 "gtk_spin_button_get_range" gtk_spin_button_get_range :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Ptr CDouble -> -- min : TBasicType TDouble - Ptr CDouble -> -- max : TBasicType TDouble - IO () - - -spinButtonGetRange :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m (Double,Double) -- result -spinButtonGetRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - min <- allocMem :: IO (Ptr CDouble) - max <- allocMem :: IO (Ptr CDouble) - gtk_spin_button_get_range _obj' min max - min' <- peek min - let min'' = realToFrac min' - max' <- peek max - let max'' = realToFrac max' - touchManagedPtr _obj - freeMem min - freeMem max - return (min'', max'') - -data SpinButtonGetRangeMethodInfo -instance (signature ~ (m (Double,Double)), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetRangeMethodInfo a signature where - overloadedMethod _ = spinButtonGetRange - --- method SpinButton::get_snap_to_ticks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_get_snap_to_ticks" gtk_spin_button_get_snap_to_ticks :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO CInt - - -spinButtonGetSnapToTicks :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Bool -- result -spinButtonGetSnapToTicks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_snap_to_ticks _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SpinButtonGetSnapToTicksMethodInfo -instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetSnapToTicksMethodInfo a signature where - overloadedMethod _ = spinButtonGetSnapToTicks - --- method SpinButton::get_update_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SpinButtonUpdatePolicy") --- throws : False --- Skip return : False - -foreign import ccall "gtk_spin_button_get_update_policy" gtk_spin_button_get_update_policy :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO CUInt - - -spinButtonGetUpdatePolicy :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m SpinButtonUpdatePolicy -- result -spinButtonGetUpdatePolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_update_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SpinButtonGetUpdatePolicyMethodInfo -instance (signature ~ (m SpinButtonUpdatePolicy), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetUpdatePolicyMethodInfo a signature where - overloadedMethod _ = spinButtonGetUpdatePolicy - --- method SpinButton::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_get_value" gtk_spin_button_get_value :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO CDouble - - -spinButtonGetValue :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Double -- result -spinButtonGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data SpinButtonGetValueMethodInfo -instance (signature ~ (m Double), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetValueMethodInfo a signature where - overloadedMethod _ = spinButtonGetValue - --- method SpinButton::get_value_as_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_get_value_as_int" gtk_spin_button_get_value_as_int :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO Int32 - - -spinButtonGetValueAsInt :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Int32 -- result -spinButtonGetValueAsInt _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_value_as_int _obj' - touchManagedPtr _obj - return result - -data SpinButtonGetValueAsIntMethodInfo -instance (signature ~ (m Int32), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetValueAsIntMethodInfo a signature where - overloadedMethod _ = spinButtonGetValueAsInt - --- method SpinButton::get_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_get_wrap" gtk_spin_button_get_wrap :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO CInt - - -spinButtonGetWrap :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m Bool -- result -spinButtonGetWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_wrap _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SpinButtonGetWrapMethodInfo -instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetWrapMethodInfo a signature where - overloadedMethod _ = spinButtonGetWrap - --- method SpinButton::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", 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 "gtk_spin_button_set_adjustment" gtk_spin_button_set_adjustment :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -spinButtonSetAdjustment :: - (MonadIO m, SpinButtonK a, AdjustmentK b) => - a -- _obj - -> b -- adjustment - -> m () -- result -spinButtonSetAdjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_spin_button_set_adjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - -data SpinButtonSetAdjustmentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SpinButtonK a, AdjustmentK b) => MethodInfo SpinButtonSetAdjustmentMethodInfo a signature where - overloadedMethod _ = spinButtonSetAdjustment - --- method SpinButton::set_digits --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", 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 "gtk_spin_button_set_digits" gtk_spin_button_set_digits :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Word32 -> -- digits : TBasicType TUInt - IO () - - -spinButtonSetDigits :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Word32 -- digits - -> m () -- result -spinButtonSetDigits _obj digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spin_button_set_digits _obj' digits - touchManagedPtr _obj - return () - -data SpinButtonSetDigitsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetDigitsMethodInfo a signature where - overloadedMethod _ = spinButtonSetDigits - --- method SpinButton::set_increments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", 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 "gtk_spin_button_set_increments" gtk_spin_button_set_increments :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CDouble -> -- step : TBasicType TDouble - CDouble -> -- page : TBasicType TDouble - IO () - - -spinButtonSetIncrements :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Double -- step - -> Double -- page - -> m () -- result -spinButtonSetIncrements _obj step page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let step' = realToFrac step - let page' = realToFrac page - gtk_spin_button_set_increments _obj' step' page' - touchManagedPtr _obj - return () - -data SpinButtonSetIncrementsMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetIncrementsMethodInfo a signature where - overloadedMethod _ = spinButtonSetIncrements - --- method SpinButton::set_numeric --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numeric", 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 "gtk_spin_button_set_numeric" gtk_spin_button_set_numeric :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CInt -> -- numeric : TBasicType TBoolean - IO () - - -spinButtonSetNumeric :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Bool -- numeric - -> m () -- result -spinButtonSetNumeric _obj numeric = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let numeric' = (fromIntegral . fromEnum) numeric - gtk_spin_button_set_numeric _obj' numeric' - touchManagedPtr _obj - return () - -data SpinButtonSetNumericMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetNumericMethodInfo a signature where - overloadedMethod _ = spinButtonSetNumeric - --- method SpinButton::set_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", 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 "gtk_spin_button_set_range" gtk_spin_button_set_range :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - IO () - - -spinButtonSetRange :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Double -- min - -> Double -- max - -> m () -- result -spinButtonSetRange _obj min max = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let min' = realToFrac min - let max' = realToFrac max - gtk_spin_button_set_range _obj' min' max' - touchManagedPtr _obj - return () - -data SpinButtonSetRangeMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetRangeMethodInfo a signature where - overloadedMethod _ = spinButtonSetRange - --- method SpinButton::set_snap_to_ticks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "snap_to_ticks", 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 "gtk_spin_button_set_snap_to_ticks" gtk_spin_button_set_snap_to_ticks :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CInt -> -- snap_to_ticks : TBasicType TBoolean - IO () - - -spinButtonSetSnapToTicks :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Bool -- snapToTicks - -> m () -- result -spinButtonSetSnapToTicks _obj snapToTicks = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let snapToTicks' = (fromIntegral . fromEnum) snapToTicks - gtk_spin_button_set_snap_to_ticks _obj' snapToTicks' - touchManagedPtr _obj - return () - -data SpinButtonSetSnapToTicksMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetSnapToTicksMethodInfo a signature where - overloadedMethod _ = spinButtonSetSnapToTicks - --- method SpinButton::set_update_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", 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 "gtk_spin_button_set_update_policy" gtk_spin_button_set_update_policy :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CUInt -> -- policy : TInterface "Gtk" "SpinButtonUpdatePolicy" - IO () - - -spinButtonSetUpdatePolicy :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> SpinButtonUpdatePolicy -- policy - -> m () -- result -spinButtonSetUpdatePolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - gtk_spin_button_set_update_policy _obj' policy' - touchManagedPtr _obj - return () - -data SpinButtonSetUpdatePolicyMethodInfo -instance (signature ~ (SpinButtonUpdatePolicy -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetUpdatePolicyMethodInfo a signature where - overloadedMethod _ = spinButtonSetUpdatePolicy - --- method SpinButton::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_spin_button_set_value" gtk_spin_button_set_value :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CDouble -> -- value : TBasicType TDouble - IO () - - -spinButtonSetValue :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Double -- value - -> m () -- result -spinButtonSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_spin_button_set_value _obj' value' - touchManagedPtr _obj - return () - -data SpinButtonSetValueMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetValueMethodInfo a signature where - overloadedMethod _ = spinButtonSetValue - --- method SpinButton::set_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", 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 "gtk_spin_button_set_wrap" gtk_spin_button_set_wrap :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CInt -> -- wrap : TBasicType TBoolean - IO () - - -spinButtonSetWrap :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> Bool -- wrap - -> m () -- result -spinButtonSetWrap _obj wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap' = (fromIntegral . fromEnum) wrap - gtk_spin_button_set_wrap _obj' wrap' - touchManagedPtr _obj - return () - -data SpinButtonSetWrapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetWrapMethodInfo a signature where - overloadedMethod _ = spinButtonSetWrap - --- method SpinButton::spin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "increment", 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 "gtk_spin_button_spin" gtk_spin_button_spin :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - CUInt -> -- direction : TInterface "Gtk" "SpinType" - CDouble -> -- increment : TBasicType TDouble - IO () - - -spinButtonSpin :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> SpinType -- direction - -> Double -- increment - -> m () -- result -spinButtonSpin _obj direction increment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - let increment' = realToFrac increment - gtk_spin_button_spin _obj' direction' increment' - touchManagedPtr _obj - return () - -data SpinButtonSpinMethodInfo -instance (signature ~ (SpinType -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSpinMethodInfo a signature where - overloadedMethod _ = spinButtonSpin - --- method SpinButton::update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", 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 "gtk_spin_button_update" gtk_spin_button_update :: - Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - IO () - - -spinButtonUpdate :: - (MonadIO m, SpinButtonK a) => - a -- _obj - -> m () -- result -spinButtonUpdate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spin_button_update _obj' - touchManagedPtr _obj - return () - -data SpinButtonUpdateMethodInfo -instance (signature ~ (m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonUpdateMethodInfo a signature where - overloadedMethod _ = spinButtonUpdate - - diff --git a/GI/Gtk/Objects/SpinButton.hs-boot b/GI/Gtk/Objects/SpinButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SpinButton.hs-boot +++ /dev/null @@ -1,48 +0,0 @@ -module GI.Gtk.Objects.SpinButton 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 SpinButton = SpinButton (ForeignPtr SpinButton) -instance GObject SpinButton where -class GObject o => SpinButtonK o -instance (GObject o, IsDescendantOf SpinButton o) => SpinButtonK o -data SpinButtonAdjustmentPropertyInfo -data SpinButtonClimbRatePropertyInfo -data SpinButtonDigitsPropertyInfo -data SpinButtonNumericPropertyInfo -data SpinButtonSnapToTicksPropertyInfo -data SpinButtonUpdatePolicyPropertyInfo -data SpinButtonValuePropertyInfo -data SpinButtonWrapPropertyInfo -data SpinButtonChangeValueSignalInfo -data SpinButtonInputSignalInfo -data SpinButtonOutputSignalInfo -data SpinButtonValueChangedSignalInfo -data SpinButtonWrappedSignalInfo -data SpinButtonConfigureMethodInfo -data SpinButtonGetAdjustmentMethodInfo -data SpinButtonGetDigitsMethodInfo -data SpinButtonGetIncrementsMethodInfo -data SpinButtonGetNumericMethodInfo -data SpinButtonGetRangeMethodInfo -data SpinButtonGetSnapToTicksMethodInfo -data SpinButtonGetUpdatePolicyMethodInfo -data SpinButtonGetValueMethodInfo -data SpinButtonGetValueAsIntMethodInfo -data SpinButtonGetWrapMethodInfo -data SpinButtonSetAdjustmentMethodInfo -data SpinButtonSetDigitsMethodInfo -data SpinButtonSetIncrementsMethodInfo -data SpinButtonSetNumericMethodInfo -data SpinButtonSetRangeMethodInfo -data SpinButtonSetSnapToTicksMethodInfo -data SpinButtonSetUpdatePolicyMethodInfo -data SpinButtonSetValueMethodInfo -data SpinButtonSetWrapMethodInfo -data SpinButtonSpinMethodInfo -data SpinButtonUpdateMethodInfo diff --git a/GI/Gtk/Objects/SpinButtonAccessible.hs b/GI/Gtk/Objects/SpinButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SpinButtonAccessible.hs +++ /dev/null @@ -1,166 +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.Gtk.Objects.SpinButtonAccessible - ( - --- * Exported types - SpinButtonAccessible(..) , - SpinButtonAccessibleK , - toSpinButtonAccessible , - noSpinButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SpinButtonAccessible = SpinButtonAccessible (ForeignPtr SpinButtonAccessible) -foreign import ccall "gtk_spin_button_accessible_get_type" - c_gtk_spin_button_accessible_get_type :: IO GType - -type instance ParentTypes SpinButtonAccessible = SpinButtonAccessibleParentTypes -type SpinButtonAccessibleParentTypes = '[EntryAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.EditableText, Atk.Text, Atk.Value] - -instance GObject SpinButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_spin_button_accessible_get_type - - -class GObject o => SpinButtonAccessibleK o -instance (GObject o, IsDescendantOf SpinButtonAccessible o) => SpinButtonAccessibleK o - -toSpinButtonAccessible :: SpinButtonAccessibleK o => o -> IO SpinButtonAccessible -toSpinButtonAccessible = unsafeCastTo SpinButtonAccessible - -noSpinButtonAccessible :: Maybe SpinButtonAccessible -noSpinButtonAccessible = Nothing - -type family ResolveSpinButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveSpinButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveSpinButtonAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo - ResolveSpinButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSpinButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSpinButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveSpinButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveSpinButtonAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo - ResolveSpinButtonAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo - ResolveSpinButtonAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo - ResolveSpinButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveSpinButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSpinButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSpinButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveSpinButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveSpinButtonAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo - ResolveSpinButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSpinButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSpinButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSpinButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveSpinButtonAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo - ResolveSpinButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveSpinButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSpinButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveSpinButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveSpinButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveSpinButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSpinButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveSpinButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveSpinButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveSpinButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveSpinButtonAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo - ResolveSpinButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSpinButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSpinButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSpinButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSpinButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSpinButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSpinButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSpinButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSpinButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveSpinButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveSpinButtonAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo - ResolveSpinButtonAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo - ResolveSpinButtonAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo - ResolveSpinButtonAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo - ResolveSpinButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSpinButtonAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo - ResolveSpinButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveSpinButtonAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo - ResolveSpinButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveSpinButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveSpinButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveSpinButtonAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo - ResolveSpinButtonAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo - ResolveSpinButtonAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo - ResolveSpinButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveSpinButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveSpinButtonAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo - ResolveSpinButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveSpinButtonAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo - ResolveSpinButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveSpinButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveSpinButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSpinButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSpinButtonAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo - ResolveSpinButtonAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo - ResolveSpinButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveSpinButtonAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo - ResolveSpinButtonAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo - ResolveSpinButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveSpinButtonAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo - ResolveSpinButtonAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo - ResolveSpinButtonAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo - ResolveSpinButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveSpinButtonAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo - ResolveSpinButtonAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo - ResolveSpinButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSpinButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveSpinButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveSpinButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveSpinButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveSpinButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSpinButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveSpinButtonAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo - ResolveSpinButtonAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo - ResolveSpinButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveSpinButtonAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo - ResolveSpinButtonAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo - ResolveSpinButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveSpinButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSpinButtonAccessibleMethod t SpinButtonAccessible, MethodInfo info SpinButtonAccessible p) => IsLabelProxy t (SpinButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSpinButtonAccessibleMethod t SpinButtonAccessible, MethodInfo info SpinButtonAccessible p) => IsLabel t (SpinButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SpinButtonAccessible = SpinButtonAccessibleAttributeList -type SpinButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SpinButtonAccessible = SpinButtonAccessibleSignalList -type SpinButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/SpinButtonAccessible.hs-boot b/GI/Gtk/Objects/SpinButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SpinButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.SpinButtonAccessible 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 SpinButtonAccessible = SpinButtonAccessible (ForeignPtr SpinButtonAccessible) -instance GObject SpinButtonAccessible where -class GObject o => SpinButtonAccessibleK o -instance (GObject o, IsDescendantOf SpinButtonAccessible o) => SpinButtonAccessibleK o diff --git a/GI/Gtk/Objects/Spinner.hs b/GI/Gtk/Objects/Spinner.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Spinner.hs +++ /dev/null @@ -1,490 +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.Gtk.Objects.Spinner - ( - --- * Exported types - Spinner(..) , - SpinnerK , - toSpinner , - noSpinner , - - - -- * Methods --- ** spinnerNew - spinnerNew , - - --- ** spinnerStart - SpinnerStartMethodInfo , - spinnerStart , - - --- ** spinnerStop - SpinnerStopMethodInfo , - spinnerStop , - - - - - -- * Properties --- ** Active - SpinnerActivePropertyInfo , - constructSpinnerActive , - getSpinnerActive , - setSpinnerActive , - spinnerActive , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Spinner = Spinner (ForeignPtr Spinner) -foreign import ccall "gtk_spinner_get_type" - c_gtk_spinner_get_type :: IO GType - -type instance ParentTypes Spinner = SpinnerParentTypes -type SpinnerParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Spinner where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_spinner_get_type - - -class GObject o => SpinnerK o -instance (GObject o, IsDescendantOf Spinner o) => SpinnerK o - -toSpinner :: SpinnerK o => o -> IO Spinner -toSpinner = unsafeCastTo Spinner - -noSpinner :: Maybe Spinner -noSpinner = Nothing - -type family ResolveSpinnerMethod (t :: Symbol) (o :: *) :: * where - ResolveSpinnerMethod "activate" o = WidgetActivateMethodInfo - ResolveSpinnerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSpinnerMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSpinnerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSpinnerMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSpinnerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSpinnerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSpinnerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSpinnerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSpinnerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSpinnerMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSpinnerMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveSpinnerMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSpinnerMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSpinnerMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSpinnerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSpinnerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSpinnerMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSpinnerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSpinnerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSpinnerMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSpinnerMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSpinnerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSpinnerMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSpinnerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSpinnerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSpinnerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSpinnerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSpinnerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSpinnerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSpinnerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSpinnerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSpinnerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSpinnerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSpinnerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSpinnerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSpinnerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSpinnerMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSpinnerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSpinnerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSpinnerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSpinnerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSpinnerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSpinnerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSpinnerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSpinnerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSpinnerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSpinnerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSpinnerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSpinnerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSpinnerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSpinnerMethod "draw" o = WidgetDrawMethodInfo - ResolveSpinnerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSpinnerMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSpinnerMethod "event" o = WidgetEventMethodInfo - ResolveSpinnerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSpinnerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSpinnerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSpinnerMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSpinnerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSpinnerMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSpinnerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSpinnerMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSpinnerMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSpinnerMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSpinnerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSpinnerMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSpinnerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSpinnerMethod "hide" o = WidgetHideMethodInfo - ResolveSpinnerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSpinnerMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSpinnerMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSpinnerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSpinnerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSpinnerMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSpinnerMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSpinnerMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSpinnerMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSpinnerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSpinnerMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSpinnerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSpinnerMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSpinnerMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSpinnerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSpinnerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSpinnerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSpinnerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSpinnerMethod "map" o = WidgetMapMethodInfo - ResolveSpinnerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSpinnerMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSpinnerMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSpinnerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSpinnerMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSpinnerMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSpinnerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSpinnerMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSpinnerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSpinnerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSpinnerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSpinnerMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSpinnerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSpinnerMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSpinnerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSpinnerMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSpinnerMethod "path" o = WidgetPathMethodInfo - ResolveSpinnerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSpinnerMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSpinnerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSpinnerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSpinnerMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSpinnerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSpinnerMethod "realize" o = WidgetRealizeMethodInfo - ResolveSpinnerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSpinnerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSpinnerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSpinnerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSpinnerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSpinnerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSpinnerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSpinnerMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSpinnerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSpinnerMethod "reparent" o = WidgetReparentMethodInfo - ResolveSpinnerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSpinnerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSpinnerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSpinnerMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSpinnerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSpinnerMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSpinnerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSpinnerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSpinnerMethod "show" o = WidgetShowMethodInfo - ResolveSpinnerMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSpinnerMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSpinnerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSpinnerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSpinnerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSpinnerMethod "start" o = SpinnerStartMethodInfo - ResolveSpinnerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSpinnerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSpinnerMethod "stop" o = SpinnerStopMethodInfo - ResolveSpinnerMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSpinnerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSpinnerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSpinnerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSpinnerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSpinnerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSpinnerMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSpinnerMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSpinnerMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSpinnerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSpinnerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSpinnerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSpinnerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSpinnerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSpinnerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSpinnerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSpinnerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSpinnerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSpinnerMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSpinnerMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSpinnerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSpinnerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSpinnerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSpinnerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSpinnerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSpinnerMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSpinnerMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSpinnerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSpinnerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSpinnerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSpinnerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSpinnerMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSpinnerMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSpinnerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSpinnerMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSpinnerMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSpinnerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSpinnerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSpinnerMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSpinnerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSpinnerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSpinnerMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSpinnerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSpinnerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSpinnerMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSpinnerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSpinnerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSpinnerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSpinnerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSpinnerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSpinnerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSpinnerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSpinnerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSpinnerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSpinnerMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSpinnerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSpinnerMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSpinnerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSpinnerMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSpinnerMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSpinnerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSpinnerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSpinnerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSpinnerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSpinnerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSpinnerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSpinnerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSpinnerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSpinnerMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSpinnerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSpinnerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSpinnerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSpinnerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSpinnerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSpinnerMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSpinnerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSpinnerMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSpinnerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSpinnerMethod "getState" o = WidgetGetStateMethodInfo - ResolveSpinnerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSpinnerMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSpinnerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSpinnerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSpinnerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSpinnerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSpinnerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSpinnerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSpinnerMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSpinnerMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSpinnerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSpinnerMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSpinnerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSpinnerMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSpinnerMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSpinnerMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSpinnerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSpinnerMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSpinnerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSpinnerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSpinnerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSpinnerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSpinnerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSpinnerMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSpinnerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSpinnerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSpinnerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSpinnerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSpinnerMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSpinnerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSpinnerMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSpinnerMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSpinnerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSpinnerMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSpinnerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSpinnerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSpinnerMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSpinnerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSpinnerMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSpinnerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSpinnerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSpinnerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSpinnerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSpinnerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSpinnerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSpinnerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSpinnerMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSpinnerMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSpinnerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSpinnerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSpinnerMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSpinnerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSpinnerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSpinnerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSpinnerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSpinnerMethod "setState" o = WidgetSetStateMethodInfo - ResolveSpinnerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSpinnerMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSpinnerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSpinnerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSpinnerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSpinnerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSpinnerMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSpinnerMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSpinnerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSpinnerMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSpinnerMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSpinnerMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSpinnerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSpinnerMethod t Spinner, MethodInfo info Spinner p) => IsLabelProxy t (Spinner -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSpinnerMethod t Spinner, MethodInfo info Spinner p) => IsLabel t (Spinner -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSpinnerActive :: (MonadIO m, SpinnerK o) => o -> m Bool -getSpinnerActive obj = liftIO $ getObjectPropertyBool obj "active" - -setSpinnerActive :: (MonadIO m, SpinnerK o) => o -> Bool -> m () -setSpinnerActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructSpinnerActive :: Bool -> IO ([Char], GValue) -constructSpinnerActive val = constructObjectPropertyBool "active" val - -data SpinnerActivePropertyInfo -instance AttrInfo SpinnerActivePropertyInfo where - type AttrAllowedOps SpinnerActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SpinnerActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SpinnerActivePropertyInfo = SpinnerK - type AttrGetType SpinnerActivePropertyInfo = Bool - type AttrLabel SpinnerActivePropertyInfo = "active" - attrGet _ = getSpinnerActive - attrSet _ = setSpinnerActive - attrConstruct _ = constructSpinnerActive - attrClear _ = undefined - -type instance AttributeList Spinner = SpinnerAttributeList -type SpinnerAttributeList = ('[ '("active", SpinnerActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -spinnerActive :: AttrLabelProxy "active" -spinnerActive = AttrLabelProxy - -type instance SignalList Spinner = SpinnerSignalList -type SpinnerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Spinner::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Spinner") --- throws : False --- Skip return : False - -foreign import ccall "gtk_spinner_new" gtk_spinner_new :: - IO (Ptr Spinner) - - -spinnerNew :: - (MonadIO m) => - m Spinner -- result -spinnerNew = liftIO $ do - result <- gtk_spinner_new - checkUnexpectedReturnNULL "gtk_spinner_new" result - result' <- (newObject Spinner) result - return result' - --- method Spinner::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", 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 "gtk_spinner_start" gtk_spinner_start :: - Ptr Spinner -> -- _obj : TInterface "Gtk" "Spinner" - IO () - - -spinnerStart :: - (MonadIO m, SpinnerK a) => - a -- _obj - -> m () -- result -spinnerStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spinner_start _obj' - touchManagedPtr _obj - return () - -data SpinnerStartMethodInfo -instance (signature ~ (m ()), MonadIO m, SpinnerK a) => MethodInfo SpinnerStartMethodInfo a signature where - overloadedMethod _ = spinnerStart - --- method Spinner::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", 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 "gtk_spinner_stop" gtk_spinner_stop :: - Ptr Spinner -> -- _obj : TInterface "Gtk" "Spinner" - IO () - - -spinnerStop :: - (MonadIO m, SpinnerK a) => - a -- _obj - -> m () -- result -spinnerStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spinner_stop _obj' - touchManagedPtr _obj - return () - -data SpinnerStopMethodInfo -instance (signature ~ (m ()), MonadIO m, SpinnerK a) => MethodInfo SpinnerStopMethodInfo a signature where - overloadedMethod _ = spinnerStop - - diff --git a/GI/Gtk/Objects/Spinner.hs-boot b/GI/Gtk/Objects/Spinner.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Spinner.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.Spinner 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 Spinner = Spinner (ForeignPtr Spinner) -instance GObject Spinner where -class GObject o => SpinnerK o -instance (GObject o, IsDescendantOf Spinner o) => SpinnerK o -data SpinnerActivePropertyInfo -data SpinnerStartMethodInfo -data SpinnerStopMethodInfo diff --git a/GI/Gtk/Objects/SpinnerAccessible.hs b/GI/Gtk/Objects/SpinnerAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SpinnerAccessible.hs +++ /dev/null @@ -1,133 +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.Gtk.Objects.SpinnerAccessible - ( - --- * Exported types - SpinnerAccessible(..) , - SpinnerAccessibleK , - toSpinnerAccessible , - noSpinnerAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SpinnerAccessible = SpinnerAccessible (ForeignPtr SpinnerAccessible) -foreign import ccall "gtk_spinner_accessible_get_type" - c_gtk_spinner_accessible_get_type :: IO GType - -type instance ParentTypes SpinnerAccessible = SpinnerAccessibleParentTypes -type SpinnerAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Image] - -instance GObject SpinnerAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_spinner_accessible_get_type - - -class GObject o => SpinnerAccessibleK o -instance (GObject o, IsDescendantOf SpinnerAccessible o) => SpinnerAccessibleK o - -toSpinnerAccessible :: SpinnerAccessibleK o => o -> IO SpinnerAccessible -toSpinnerAccessible = unsafeCastTo SpinnerAccessible - -noSpinnerAccessible :: Maybe SpinnerAccessible -noSpinnerAccessible = Nothing - -type family ResolveSpinnerAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveSpinnerAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveSpinnerAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSpinnerAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSpinnerAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveSpinnerAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveSpinnerAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSpinnerAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSpinnerAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveSpinnerAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveSpinnerAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSpinnerAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSpinnerAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSpinnerAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveSpinnerAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveSpinnerAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSpinnerAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveSpinnerAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveSpinnerAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveSpinnerAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSpinnerAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveSpinnerAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveSpinnerAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveSpinnerAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveSpinnerAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSpinnerAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSpinnerAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSpinnerAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSpinnerAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSpinnerAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSpinnerAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSpinnerAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSpinnerAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveSpinnerAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveSpinnerAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSpinnerAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveSpinnerAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveSpinnerAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveSpinnerAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveSpinnerAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveSpinnerAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveSpinnerAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveSpinnerAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveSpinnerAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveSpinnerAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveSpinnerAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveSpinnerAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveSpinnerAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSpinnerAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSpinnerAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveSpinnerAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveSpinnerAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveSpinnerAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSpinnerAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveSpinnerAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveSpinnerAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveSpinnerAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveSpinnerAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveSpinnerAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveSpinnerAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSpinnerAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveSpinnerAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveSpinnerAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveSpinnerAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSpinnerAccessibleMethod t SpinnerAccessible, MethodInfo info SpinnerAccessible p) => IsLabelProxy t (SpinnerAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSpinnerAccessibleMethod t SpinnerAccessible, MethodInfo info SpinnerAccessible p) => IsLabel t (SpinnerAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SpinnerAccessible = SpinnerAccessibleAttributeList -type SpinnerAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SpinnerAccessible = SpinnerAccessibleSignalList -type SpinnerAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/SpinnerAccessible.hs-boot b/GI/Gtk/Objects/SpinnerAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SpinnerAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.SpinnerAccessible 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 SpinnerAccessible = SpinnerAccessible (ForeignPtr SpinnerAccessible) -instance GObject SpinnerAccessible where -class GObject o => SpinnerAccessibleK o -instance (GObject o, IsDescendantOf SpinnerAccessible o) => SpinnerAccessibleK o diff --git a/GI/Gtk/Objects/Stack.hs b/GI/Gtk/Objects/Stack.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Stack.hs +++ /dev/null @@ -1,1499 +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.Gtk.Objects.Stack - ( - --- * Exported types - Stack(..) , - StackK , - toStack , - noStack , - - - -- * Methods --- ** stackAddNamed - StackAddNamedMethodInfo , - stackAddNamed , - - --- ** stackAddTitled - StackAddTitledMethodInfo , - stackAddTitled , - - --- ** stackGetChildByName - StackGetChildByNameMethodInfo , - stackGetChildByName , - - --- ** stackGetHhomogeneous - StackGetHhomogeneousMethodInfo , - stackGetHhomogeneous , - - --- ** stackGetHomogeneous - StackGetHomogeneousMethodInfo , - stackGetHomogeneous , - - --- ** stackGetInterpolateSize - StackGetInterpolateSizeMethodInfo , - stackGetInterpolateSize , - - --- ** stackGetTransitionDuration - StackGetTransitionDurationMethodInfo , - stackGetTransitionDuration , - - --- ** stackGetTransitionRunning - StackGetTransitionRunningMethodInfo , - stackGetTransitionRunning , - - --- ** stackGetTransitionType - StackGetTransitionTypeMethodInfo , - stackGetTransitionType , - - --- ** stackGetVhomogeneous - StackGetVhomogeneousMethodInfo , - stackGetVhomogeneous , - - --- ** stackGetVisibleChild - StackGetVisibleChildMethodInfo , - stackGetVisibleChild , - - --- ** stackGetVisibleChildName - StackGetVisibleChildNameMethodInfo , - stackGetVisibleChildName , - - --- ** stackNew - stackNew , - - --- ** stackSetHhomogeneous - StackSetHhomogeneousMethodInfo , - stackSetHhomogeneous , - - --- ** stackSetHomogeneous - StackSetHomogeneousMethodInfo , - stackSetHomogeneous , - - --- ** stackSetInterpolateSize - StackSetInterpolateSizeMethodInfo , - stackSetInterpolateSize , - - --- ** stackSetTransitionDuration - StackSetTransitionDurationMethodInfo , - stackSetTransitionDuration , - - --- ** stackSetTransitionType - StackSetTransitionTypeMethodInfo , - stackSetTransitionType , - - --- ** stackSetVhomogeneous - StackSetVhomogeneousMethodInfo , - stackSetVhomogeneous , - - --- ** stackSetVisibleChild - StackSetVisibleChildMethodInfo , - stackSetVisibleChild , - - --- ** stackSetVisibleChildFull - StackSetVisibleChildFullMethodInfo , - stackSetVisibleChildFull , - - --- ** stackSetVisibleChildName - StackSetVisibleChildNameMethodInfo , - stackSetVisibleChildName , - - - - - -- * Properties --- ** Hhomogeneous - StackHhomogeneousPropertyInfo , - constructStackHhomogeneous , - getStackHhomogeneous , - setStackHhomogeneous , - stackHhomogeneous , - - --- ** Homogeneous - StackHomogeneousPropertyInfo , - constructStackHomogeneous , - getStackHomogeneous , - setStackHomogeneous , - stackHomogeneous , - - --- ** InterpolateSize - StackInterpolateSizePropertyInfo , - constructStackInterpolateSize , - getStackInterpolateSize , - setStackInterpolateSize , - stackInterpolateSize , - - --- ** TransitionDuration - StackTransitionDurationPropertyInfo , - constructStackTransitionDuration , - getStackTransitionDuration , - setStackTransitionDuration , - stackTransitionDuration , - - --- ** TransitionRunning - StackTransitionRunningPropertyInfo , - getStackTransitionRunning , - stackTransitionRunning , - - --- ** TransitionType - StackTransitionTypePropertyInfo , - constructStackTransitionType , - getStackTransitionType , - setStackTransitionType , - stackTransitionType , - - --- ** Vhomogeneous - StackVhomogeneousPropertyInfo , - constructStackVhomogeneous , - getStackVhomogeneous , - setStackVhomogeneous , - stackVhomogeneous , - - --- ** VisibleChild - StackVisibleChildPropertyInfo , - constructStackVisibleChild , - getStackVisibleChild , - setStackVisibleChild , - stackVisibleChild , - - --- ** VisibleChildName - StackVisibleChildNamePropertyInfo , - constructStackVisibleChildName , - getStackVisibleChildName , - setStackVisibleChildName , - stackVisibleChildName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Stack = Stack (ForeignPtr Stack) -foreign import ccall "gtk_stack_get_type" - c_gtk_stack_get_type :: IO GType - -type instance ParentTypes Stack = StackParentTypes -type StackParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Stack where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_stack_get_type - - -class GObject o => StackK o -instance (GObject o, IsDescendantOf Stack o) => StackK o - -toStack :: StackK o => o -> IO Stack -toStack = unsafeCastTo Stack - -noStack :: Maybe Stack -noStack = Nothing - -type family ResolveStackMethod (t :: Symbol) (o :: *) :: * where - ResolveStackMethod "activate" o = WidgetActivateMethodInfo - ResolveStackMethod "add" o = ContainerAddMethodInfo - ResolveStackMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveStackMethod "addChild" o = BuildableAddChildMethodInfo - ResolveStackMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveStackMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveStackMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveStackMethod "addNamed" o = StackAddNamedMethodInfo - ResolveStackMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveStackMethod "addTitled" o = StackAddTitledMethodInfo - ResolveStackMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStackMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStackMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveStackMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveStackMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveStackMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveStackMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveStackMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveStackMethod "childType" o = ContainerChildTypeMethodInfo - ResolveStackMethod "classPath" o = WidgetClassPathMethodInfo - ResolveStackMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveStackMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveStackMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveStackMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveStackMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveStackMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveStackMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveStackMethod "destroy" o = WidgetDestroyMethodInfo - ResolveStackMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveStackMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveStackMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveStackMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveStackMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveStackMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveStackMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveStackMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveStackMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveStackMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveStackMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveStackMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveStackMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveStackMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveStackMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveStackMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveStackMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveStackMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveStackMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveStackMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveStackMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveStackMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveStackMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveStackMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveStackMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveStackMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveStackMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveStackMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveStackMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveStackMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveStackMethod "draw" o = WidgetDrawMethodInfo - ResolveStackMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveStackMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveStackMethod "event" o = WidgetEventMethodInfo - ResolveStackMethod "forall" o = ContainerForallMethodInfo - ResolveStackMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStackMethod "foreach" o = ContainerForeachMethodInfo - ResolveStackMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveStackMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStackMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveStackMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveStackMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveStackMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveStackMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveStackMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveStackMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveStackMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveStackMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveStackMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveStackMethod "hide" o = WidgetHideMethodInfo - ResolveStackMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveStackMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveStackMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveStackMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveStackMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveStackMethod "intersect" o = WidgetIntersectMethodInfo - ResolveStackMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveStackMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveStackMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveStackMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStackMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveStackMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveStackMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveStackMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveStackMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveStackMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveStackMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveStackMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveStackMethod "map" o = WidgetMapMethodInfo - ResolveStackMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveStackMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveStackMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveStackMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveStackMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveStackMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveStackMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveStackMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveStackMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStackMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStackMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveStackMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveStackMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveStackMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveStackMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveStackMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveStackMethod "path" o = WidgetPathMethodInfo - ResolveStackMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveStackMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveStackMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveStackMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveStackMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveStackMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveStackMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveStackMethod "realize" o = WidgetRealizeMethodInfo - ResolveStackMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStackMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStackMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveStackMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveStackMethod "remove" o = ContainerRemoveMethodInfo - ResolveStackMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveStackMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveStackMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveStackMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveStackMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveStackMethod "reparent" o = WidgetReparentMethodInfo - ResolveStackMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStackMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStackMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveStackMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveStackMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveStackMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStackMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveStackMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveStackMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveStackMethod "show" o = WidgetShowMethodInfo - ResolveStackMethod "showAll" o = WidgetShowAllMethodInfo - ResolveStackMethod "showNow" o = WidgetShowNowMethodInfo - ResolveStackMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveStackMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveStackMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveStackMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStackMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStackMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveStackMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveStackMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveStackMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStackMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveStackMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveStackMethod "unmap" o = WidgetUnmapMethodInfo - ResolveStackMethod "unparent" o = WidgetUnparentMethodInfo - ResolveStackMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveStackMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStackMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveStackMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveStackMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveStackMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStackMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveStackMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveStackMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveStackMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveStackMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveStackMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveStackMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveStackMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveStackMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveStackMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveStackMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveStackMethod "getChildByName" o = StackGetChildByNameMethodInfo - ResolveStackMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveStackMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveStackMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveStackMethod "getClip" o = WidgetGetClipMethodInfo - ResolveStackMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveStackMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveStackMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStackMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveStackMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveStackMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveStackMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveStackMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveStackMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveStackMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveStackMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveStackMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveStackMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveStackMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveStackMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveStackMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveStackMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveStackMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveStackMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveStackMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveStackMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveStackMethod "getHhomogeneous" o = StackGetHhomogeneousMethodInfo - ResolveStackMethod "getHomogeneous" o = StackGetHomogeneousMethodInfo - ResolveStackMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveStackMethod "getInterpolateSize" o = StackGetInterpolateSizeMethodInfo - ResolveStackMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveStackMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveStackMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveStackMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveStackMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveStackMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveStackMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveStackMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveStackMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveStackMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveStackMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveStackMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveStackMethod "getParent" o = WidgetGetParentMethodInfo - ResolveStackMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveStackMethod "getPath" o = WidgetGetPathMethodInfo - ResolveStackMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveStackMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveStackMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveStackMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveStackMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveStackMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveStackMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveStackMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveStackMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStackMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStackMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveStackMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveStackMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveStackMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveStackMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveStackMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveStackMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveStackMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveStackMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveStackMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveStackMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveStackMethod "getState" o = WidgetGetStateMethodInfo - ResolveStackMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveStackMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveStackMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveStackMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveStackMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveStackMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveStackMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveStackMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveStackMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveStackMethod "getTransitionDuration" o = StackGetTransitionDurationMethodInfo - ResolveStackMethod "getTransitionRunning" o = StackGetTransitionRunningMethodInfo - ResolveStackMethod "getTransitionType" o = StackGetTransitionTypeMethodInfo - ResolveStackMethod "getValign" o = WidgetGetValignMethodInfo - ResolveStackMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveStackMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveStackMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveStackMethod "getVhomogeneous" o = StackGetVhomogeneousMethodInfo - ResolveStackMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveStackMethod "getVisibleChild" o = StackGetVisibleChildMethodInfo - ResolveStackMethod "getVisibleChildName" o = StackGetVisibleChildNameMethodInfo - ResolveStackMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveStackMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveStackMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveStackMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveStackMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveStackMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveStackMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveStackMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveStackMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveStackMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveStackMethod "setClip" o = WidgetSetClipMethodInfo - ResolveStackMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveStackMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStackMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveStackMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveStackMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveStackMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveStackMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveStackMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveStackMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveStackMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveStackMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveStackMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveStackMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveStackMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveStackMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveStackMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveStackMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveStackMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveStackMethod "setHhomogeneous" o = StackSetHhomogeneousMethodInfo - ResolveStackMethod "setHomogeneous" o = StackSetHomogeneousMethodInfo - ResolveStackMethod "setInterpolateSize" o = StackSetInterpolateSizeMethodInfo - ResolveStackMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveStackMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveStackMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveStackMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveStackMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveStackMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveStackMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveStackMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveStackMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveStackMethod "setParent" o = WidgetSetParentMethodInfo - ResolveStackMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveStackMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStackMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveStackMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveStackMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveStackMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveStackMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveStackMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveStackMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveStackMethod "setState" o = WidgetSetStateMethodInfo - ResolveStackMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveStackMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveStackMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveStackMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveStackMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveStackMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveStackMethod "setTransitionDuration" o = StackSetTransitionDurationMethodInfo - ResolveStackMethod "setTransitionType" o = StackSetTransitionTypeMethodInfo - ResolveStackMethod "setValign" o = WidgetSetValignMethodInfo - ResolveStackMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveStackMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveStackMethod "setVhomogeneous" o = StackSetVhomogeneousMethodInfo - ResolveStackMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveStackMethod "setVisibleChild" o = StackSetVisibleChildMethodInfo - ResolveStackMethod "setVisibleChildFull" o = StackSetVisibleChildFullMethodInfo - ResolveStackMethod "setVisibleChildName" o = StackSetVisibleChildNameMethodInfo - ResolveStackMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveStackMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveStackMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStackMethod t Stack, MethodInfo info Stack p) => IsLabelProxy t (Stack -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStackMethod t Stack, MethodInfo info Stack p) => IsLabel t (Stack -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "hhomogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getStackHhomogeneous :: (MonadIO m, StackK o) => o -> m Bool -getStackHhomogeneous obj = liftIO $ getObjectPropertyBool obj "hhomogeneous" - -setStackHhomogeneous :: (MonadIO m, StackK o) => o -> Bool -> m () -setStackHhomogeneous obj val = liftIO $ setObjectPropertyBool obj "hhomogeneous" val - -constructStackHhomogeneous :: Bool -> IO ([Char], GValue) -constructStackHhomogeneous val = constructObjectPropertyBool "hhomogeneous" val - -data StackHhomogeneousPropertyInfo -instance AttrInfo StackHhomogeneousPropertyInfo where - type AttrAllowedOps StackHhomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackHhomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint StackHhomogeneousPropertyInfo = StackK - type AttrGetType StackHhomogeneousPropertyInfo = Bool - type AttrLabel StackHhomogeneousPropertyInfo = "hhomogeneous" - attrGet _ = getStackHhomogeneous - attrSet _ = setStackHhomogeneous - attrConstruct _ = constructStackHhomogeneous - attrClear _ = undefined - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStackHomogeneous :: (MonadIO m, StackK o) => o -> m Bool -getStackHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" - -setStackHomogeneous :: (MonadIO m, StackK o) => o -> Bool -> m () -setStackHomogeneous obj val = liftIO $ setObjectPropertyBool obj "homogeneous" val - -constructStackHomogeneous :: Bool -> IO ([Char], GValue) -constructStackHomogeneous val = constructObjectPropertyBool "homogeneous" val - -data StackHomogeneousPropertyInfo -instance AttrInfo StackHomogeneousPropertyInfo where - type AttrAllowedOps StackHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint StackHomogeneousPropertyInfo = StackK - type AttrGetType StackHomogeneousPropertyInfo = Bool - type AttrLabel StackHomogeneousPropertyInfo = "homogeneous" - attrGet _ = getStackHomogeneous - attrSet _ = setStackHomogeneous - attrConstruct _ = constructStackHomogeneous - attrClear _ = undefined - --- VVV Prop "interpolate-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStackInterpolateSize :: (MonadIO m, StackK o) => o -> m Bool -getStackInterpolateSize obj = liftIO $ getObjectPropertyBool obj "interpolate-size" - -setStackInterpolateSize :: (MonadIO m, StackK o) => o -> Bool -> m () -setStackInterpolateSize obj val = liftIO $ setObjectPropertyBool obj "interpolate-size" val - -constructStackInterpolateSize :: Bool -> IO ([Char], GValue) -constructStackInterpolateSize val = constructObjectPropertyBool "interpolate-size" val - -data StackInterpolateSizePropertyInfo -instance AttrInfo StackInterpolateSizePropertyInfo where - type AttrAllowedOps StackInterpolateSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackInterpolateSizePropertyInfo = (~) Bool - type AttrBaseTypeConstraint StackInterpolateSizePropertyInfo = StackK - type AttrGetType StackInterpolateSizePropertyInfo = Bool - type AttrLabel StackInterpolateSizePropertyInfo = "interpolate-size" - attrGet _ = getStackInterpolateSize - attrSet _ = setStackInterpolateSize - attrConstruct _ = constructStackInterpolateSize - attrClear _ = undefined - --- VVV Prop "transition-duration" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getStackTransitionDuration :: (MonadIO m, StackK o) => o -> m Word32 -getStackTransitionDuration obj = liftIO $ getObjectPropertyUInt32 obj "transition-duration" - -setStackTransitionDuration :: (MonadIO m, StackK o) => o -> Word32 -> m () -setStackTransitionDuration obj val = liftIO $ setObjectPropertyUInt32 obj "transition-duration" val - -constructStackTransitionDuration :: Word32 -> IO ([Char], GValue) -constructStackTransitionDuration val = constructObjectPropertyUInt32 "transition-duration" val - -data StackTransitionDurationPropertyInfo -instance AttrInfo StackTransitionDurationPropertyInfo where - type AttrAllowedOps StackTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackTransitionDurationPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint StackTransitionDurationPropertyInfo = StackK - type AttrGetType StackTransitionDurationPropertyInfo = Word32 - type AttrLabel StackTransitionDurationPropertyInfo = "transition-duration" - attrGet _ = getStackTransitionDuration - attrSet _ = setStackTransitionDuration - attrConstruct _ = constructStackTransitionDuration - attrClear _ = undefined - --- VVV Prop "transition-running" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getStackTransitionRunning :: (MonadIO m, StackK o) => o -> m Bool -getStackTransitionRunning obj = liftIO $ getObjectPropertyBool obj "transition-running" - -data StackTransitionRunningPropertyInfo -instance AttrInfo StackTransitionRunningPropertyInfo where - type AttrAllowedOps StackTransitionRunningPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint StackTransitionRunningPropertyInfo = (~) () - type AttrBaseTypeConstraint StackTransitionRunningPropertyInfo = StackK - type AttrGetType StackTransitionRunningPropertyInfo = Bool - type AttrLabel StackTransitionRunningPropertyInfo = "transition-running" - attrGet _ = getStackTransitionRunning - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "transition-type" - -- Type: TInterface "Gtk" "StackTransitionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getStackTransitionType :: (MonadIO m, StackK o) => o -> m StackTransitionType -getStackTransitionType obj = liftIO $ getObjectPropertyEnum obj "transition-type" - -setStackTransitionType :: (MonadIO m, StackK o) => o -> StackTransitionType -> m () -setStackTransitionType obj val = liftIO $ setObjectPropertyEnum obj "transition-type" val - -constructStackTransitionType :: StackTransitionType -> IO ([Char], GValue) -constructStackTransitionType val = constructObjectPropertyEnum "transition-type" val - -data StackTransitionTypePropertyInfo -instance AttrInfo StackTransitionTypePropertyInfo where - type AttrAllowedOps StackTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackTransitionTypePropertyInfo = (~) StackTransitionType - type AttrBaseTypeConstraint StackTransitionTypePropertyInfo = StackK - type AttrGetType StackTransitionTypePropertyInfo = StackTransitionType - type AttrLabel StackTransitionTypePropertyInfo = "transition-type" - attrGet _ = getStackTransitionType - attrSet _ = setStackTransitionType - attrConstruct _ = constructStackTransitionType - attrClear _ = undefined - --- VVV Prop "vhomogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getStackVhomogeneous :: (MonadIO m, StackK o) => o -> m Bool -getStackVhomogeneous obj = liftIO $ getObjectPropertyBool obj "vhomogeneous" - -setStackVhomogeneous :: (MonadIO m, StackK o) => o -> Bool -> m () -setStackVhomogeneous obj val = liftIO $ setObjectPropertyBool obj "vhomogeneous" val - -constructStackVhomogeneous :: Bool -> IO ([Char], GValue) -constructStackVhomogeneous val = constructObjectPropertyBool "vhomogeneous" val - -data StackVhomogeneousPropertyInfo -instance AttrInfo StackVhomogeneousPropertyInfo where - type AttrAllowedOps StackVhomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackVhomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint StackVhomogeneousPropertyInfo = StackK - type AttrGetType StackVhomogeneousPropertyInfo = Bool - type AttrLabel StackVhomogeneousPropertyInfo = "vhomogeneous" - attrGet _ = getStackVhomogeneous - attrSet _ = setStackVhomogeneous - attrConstruct _ = constructStackVhomogeneous - attrClear _ = undefined - --- VVV Prop "visible-child" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStackVisibleChild :: (MonadIO m, StackK o) => o -> m Widget -getStackVisibleChild obj = liftIO $ checkUnexpectedNothing "getStackVisibleChild" $ getObjectPropertyObject obj "visible-child" Widget - -setStackVisibleChild :: (MonadIO m, StackK o, WidgetK a) => o -> a -> m () -setStackVisibleChild obj val = liftIO $ setObjectPropertyObject obj "visible-child" (Just val) - -constructStackVisibleChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructStackVisibleChild val = constructObjectPropertyObject "visible-child" (Just val) - -data StackVisibleChildPropertyInfo -instance AttrInfo StackVisibleChildPropertyInfo where - type AttrAllowedOps StackVisibleChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackVisibleChildPropertyInfo = WidgetK - type AttrBaseTypeConstraint StackVisibleChildPropertyInfo = StackK - type AttrGetType StackVisibleChildPropertyInfo = Widget - type AttrLabel StackVisibleChildPropertyInfo = "visible-child" - attrGet _ = getStackVisibleChild - attrSet _ = setStackVisibleChild - attrConstruct _ = constructStackVisibleChild - attrClear _ = undefined - --- VVV Prop "visible-child-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStackVisibleChildName :: (MonadIO m, StackK o) => o -> m T.Text -getStackVisibleChildName obj = liftIO $ checkUnexpectedNothing "getStackVisibleChildName" $ getObjectPropertyString obj "visible-child-name" - -setStackVisibleChildName :: (MonadIO m, StackK o) => o -> T.Text -> m () -setStackVisibleChildName obj val = liftIO $ setObjectPropertyString obj "visible-child-name" (Just val) - -constructStackVisibleChildName :: T.Text -> IO ([Char], GValue) -constructStackVisibleChildName val = constructObjectPropertyString "visible-child-name" (Just val) - -data StackVisibleChildNamePropertyInfo -instance AttrInfo StackVisibleChildNamePropertyInfo where - type AttrAllowedOps StackVisibleChildNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackVisibleChildNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StackVisibleChildNamePropertyInfo = StackK - type AttrGetType StackVisibleChildNamePropertyInfo = T.Text - type AttrLabel StackVisibleChildNamePropertyInfo = "visible-child-name" - attrGet _ = getStackVisibleChildName - attrSet _ = setStackVisibleChildName - attrConstruct _ = constructStackVisibleChildName - attrClear _ = undefined - -type instance AttributeList Stack = StackAttributeList -type StackAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolateSize", StackInterpolateSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", StackTransitionDurationPropertyInfo), '("transitionRunning", StackTransitionRunningPropertyInfo), '("transitionType", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleChild", StackVisibleChildPropertyInfo), '("visibleChildName", StackVisibleChildNamePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -stackHhomogeneous :: AttrLabelProxy "hhomogeneous" -stackHhomogeneous = AttrLabelProxy - -stackHomogeneous :: AttrLabelProxy "homogeneous" -stackHomogeneous = AttrLabelProxy - -stackInterpolateSize :: AttrLabelProxy "interpolateSize" -stackInterpolateSize = AttrLabelProxy - -stackTransitionDuration :: AttrLabelProxy "transitionDuration" -stackTransitionDuration = AttrLabelProxy - -stackTransitionRunning :: AttrLabelProxy "transitionRunning" -stackTransitionRunning = AttrLabelProxy - -stackTransitionType :: AttrLabelProxy "transitionType" -stackTransitionType = AttrLabelProxy - -stackVhomogeneous :: AttrLabelProxy "vhomogeneous" -stackVhomogeneous = AttrLabelProxy - -stackVisibleChild :: AttrLabelProxy "visibleChild" -stackVisibleChild = AttrLabelProxy - -stackVisibleChildName :: AttrLabelProxy "visibleChildName" -stackVisibleChildName = AttrLabelProxy - -type instance SignalList Stack = StackSignalList -type StackSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Stack::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Stack") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_new" gtk_stack_new :: - IO (Ptr Stack) - - -stackNew :: - (MonadIO m) => - m Stack -- result -stackNew = liftIO $ do - result <- gtk_stack_new - checkUnexpectedReturnNULL "gtk_stack_new" result - result' <- (newObject Stack) result - return result' - --- method Stack::add_named --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_stack_add_named" gtk_stack_add_named :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - - -stackAddNamed :: - (MonadIO m, StackK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- name - -> m () -- result -stackAddNamed _obj child name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - name' <- textToCString name - gtk_stack_add_named _obj' child' name' - touchManagedPtr _obj - touchManagedPtr child - freeMem name' - return () - -data StackAddNamedMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackAddNamedMethodInfo a signature where - overloadedMethod _ = stackAddNamed - --- method Stack::add_titled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "title", 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 "gtk_stack_add_titled" gtk_stack_add_titled :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - CString -> -- title : TBasicType TUTF8 - IO () - - -stackAddTitled :: - (MonadIO m, StackK a, WidgetK b) => - a -- _obj - -> b -- child - -> T.Text -- name - -> T.Text -- title - -> m () -- result -stackAddTitled _obj child name title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - name' <- textToCString name - title' <- textToCString title - gtk_stack_add_titled _obj' child' name' title' - touchManagedPtr _obj - touchManagedPtr child - freeMem name' - freeMem title' - return () - -data StackAddTitledMethodInfo -instance (signature ~ (b -> T.Text -> T.Text -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackAddTitledMethodInfo a signature where - overloadedMethod _ = stackAddTitled - --- method Stack::get_child_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_get_child_by_name" gtk_stack_get_child_by_name :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CString -> -- name : TBasicType TUTF8 - IO (Ptr Widget) - - -stackGetChildByName :: - (MonadIO m, StackK a) => - a -- _obj - -> T.Text -- name - -> m Widget -- result -stackGetChildByName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_stack_get_child_by_name _obj' name' - checkUnexpectedReturnNULL "gtk_stack_get_child_by_name" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem name' - return result' - -data StackGetChildByNameMethodInfo -instance (signature ~ (T.Text -> m Widget), MonadIO m, StackK a) => MethodInfo StackGetChildByNameMethodInfo a signature where - overloadedMethod _ = stackGetChildByName - --- method Stack::get_hhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_hhomogeneous" gtk_stack_get_hhomogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CInt - - -stackGetHhomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> m Bool -- result -stackGetHhomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_hhomogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StackGetHhomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetHhomogeneousMethodInfo a signature where - overloadedMethod _ = stackGetHhomogeneous - --- method Stack::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_homogeneous" gtk_stack_get_homogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CInt - - -stackGetHomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> m Bool -- result -stackGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StackGetHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetHomogeneousMethodInfo a signature where - overloadedMethod _ = stackGetHomogeneous - --- method Stack::get_interpolate_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_interpolate_size" gtk_stack_get_interpolate_size :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CInt - - -stackGetInterpolateSize :: - (MonadIO m, StackK a) => - a -- _obj - -> m Bool -- result -stackGetInterpolateSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_interpolate_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StackGetInterpolateSizeMethodInfo -instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetInterpolateSizeMethodInfo a signature where - overloadedMethod _ = stackGetInterpolateSize - --- method Stack::get_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_get_transition_duration" gtk_stack_get_transition_duration :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO Word32 - - -stackGetTransitionDuration :: - (MonadIO m, StackK a) => - a -- _obj - -> m Word32 -- result -stackGetTransitionDuration _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_duration _obj' - touchManagedPtr _obj - return result - -data StackGetTransitionDurationMethodInfo -instance (signature ~ (m Word32), MonadIO m, StackK a) => MethodInfo StackGetTransitionDurationMethodInfo a signature where - overloadedMethod _ = stackGetTransitionDuration - --- method Stack::get_transition_running --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_transition_running" gtk_stack_get_transition_running :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CInt - - -stackGetTransitionRunning :: - (MonadIO m, StackK a) => - a -- _obj - -> m Bool -- result -stackGetTransitionRunning _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_running _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StackGetTransitionRunningMethodInfo -instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetTransitionRunningMethodInfo a signature where - overloadedMethod _ = stackGetTransitionRunning - --- method Stack::get_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StackTransitionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_get_transition_type" gtk_stack_get_transition_type :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CUInt - - -stackGetTransitionType :: - (MonadIO m, StackK a) => - a -- _obj - -> m StackTransitionType -- result -stackGetTransitionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data StackGetTransitionTypeMethodInfo -instance (signature ~ (m StackTransitionType), MonadIO m, StackK a) => MethodInfo StackGetTransitionTypeMethodInfo a signature where - overloadedMethod _ = stackGetTransitionType - --- method Stack::get_vhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_vhomogeneous" gtk_stack_get_vhomogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CInt - - -stackGetVhomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> m Bool -- result -stackGetVhomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_vhomogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StackGetVhomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetVhomogeneousMethodInfo a signature where - overloadedMethod _ = stackGetVhomogeneous - --- method Stack::get_visible_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_get_visible_child" gtk_stack_get_visible_child :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO (Ptr Widget) - - -stackGetVisibleChild :: - (MonadIO m, StackK a) => - a -- _obj - -> m Widget -- result -stackGetVisibleChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_visible_child _obj' - checkUnexpectedReturnNULL "gtk_stack_get_visible_child" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data StackGetVisibleChildMethodInfo -instance (signature ~ (m Widget), MonadIO m, StackK a) => MethodInfo StackGetVisibleChildMethodInfo a signature where - overloadedMethod _ = stackGetVisibleChild - --- method Stack::get_visible_child_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_get_visible_child_name" gtk_stack_get_visible_child_name :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - IO CString - - -stackGetVisibleChildName :: - (MonadIO m, StackK a) => - a -- _obj - -> m T.Text -- result -stackGetVisibleChildName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_visible_child_name _obj' - checkUnexpectedReturnNULL "gtk_stack_get_visible_child_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data StackGetVisibleChildNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StackK a) => MethodInfo StackGetVisibleChildNameMethodInfo a signature where - overloadedMethod _ = stackGetVisibleChildName - --- method Stack::set_hhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hhomogeneous", 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 "gtk_stack_set_hhomogeneous" gtk_stack_set_hhomogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CInt -> -- hhomogeneous : TBasicType TBoolean - IO () - - -stackSetHhomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> Bool -- hhomogeneous - -> m () -- result -stackSetHhomogeneous _obj hhomogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hhomogeneous' = (fromIntegral . fromEnum) hhomogeneous - gtk_stack_set_hhomogeneous _obj' hhomogeneous' - touchManagedPtr _obj - return () - -data StackSetHhomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetHhomogeneousMethodInfo a signature where - overloadedMethod _ = stackSetHhomogeneous - --- method Stack::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_stack_set_homogeneous" gtk_stack_set_homogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -stackSetHomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -stackSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_stack_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data StackSetHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetHomogeneousMethodInfo a signature where - overloadedMethod _ = stackSetHomogeneous - --- method Stack::set_interpolate_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interpolate_size", 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 "gtk_stack_set_interpolate_size" gtk_stack_set_interpolate_size :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CInt -> -- interpolate_size : TBasicType TBoolean - IO () - - -stackSetInterpolateSize :: - (MonadIO m, StackK a) => - a -- _obj - -> Bool -- interpolateSize - -> m () -- result -stackSetInterpolateSize _obj interpolateSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interpolateSize' = (fromIntegral . fromEnum) interpolateSize - gtk_stack_set_interpolate_size _obj' interpolateSize' - touchManagedPtr _obj - return () - -data StackSetInterpolateSizeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetInterpolateSizeMethodInfo a signature where - overloadedMethod _ = stackSetInterpolateSize - --- method Stack::set_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", 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 "gtk_stack_set_transition_duration" gtk_stack_set_transition_duration :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - Word32 -> -- duration : TBasicType TUInt - IO () - - -stackSetTransitionDuration :: - (MonadIO m, StackK a) => - a -- _obj - -> Word32 -- duration - -> m () -- result -stackSetTransitionDuration _obj duration = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_stack_set_transition_duration _obj' duration - touchManagedPtr _obj - return () - -data StackSetTransitionDurationMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, StackK a) => MethodInfo StackSetTransitionDurationMethodInfo a signature where - overloadedMethod _ = stackSetTransitionDuration - --- method Stack::set_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "StackTransitionType", 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 "gtk_stack_set_transition_type" gtk_stack_set_transition_type :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CUInt -> -- transition : TInterface "Gtk" "StackTransitionType" - IO () - - -stackSetTransitionType :: - (MonadIO m, StackK a) => - a -- _obj - -> StackTransitionType -- transition - -> m () -- result -stackSetTransitionType _obj transition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transition' = (fromIntegral . fromEnum) transition - gtk_stack_set_transition_type _obj' transition' - touchManagedPtr _obj - return () - -data StackSetTransitionTypeMethodInfo -instance (signature ~ (StackTransitionType -> m ()), MonadIO m, StackK a) => MethodInfo StackSetTransitionTypeMethodInfo a signature where - overloadedMethod _ = stackSetTransitionType - --- method Stack::set_vhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vhomogeneous", 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 "gtk_stack_set_vhomogeneous" gtk_stack_set_vhomogeneous :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CInt -> -- vhomogeneous : TBasicType TBoolean - IO () - - -stackSetVhomogeneous :: - (MonadIO m, StackK a) => - a -- _obj - -> Bool -- vhomogeneous - -> m () -- result -stackSetVhomogeneous _obj vhomogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let vhomogeneous' = (fromIntegral . fromEnum) vhomogeneous - gtk_stack_set_vhomogeneous _obj' vhomogeneous' - touchManagedPtr _obj - return () - -data StackSetVhomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVhomogeneousMethodInfo a signature where - overloadedMethod _ = stackSetVhomogeneous - --- method Stack::set_visible_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 "gtk_stack_set_visible_child" gtk_stack_set_visible_child :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -stackSetVisibleChild :: - (MonadIO m, StackK a, WidgetK b) => - a -- _obj - -> b -- child - -> m () -- result -stackSetVisibleChild _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_stack_set_visible_child _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - -data StackSetVisibleChildMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackSetVisibleChildMethodInfo a signature where - overloadedMethod _ = stackSetVisibleChild - --- method Stack::set_visible_child_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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},Arg {argCName = "transition", argType = TInterface "Gtk" "StackTransitionType", 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 "gtk_stack_set_visible_child_full" gtk_stack_set_visible_child_full :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- transition : TInterface "Gtk" "StackTransitionType" - IO () - - -stackSetVisibleChildFull :: - (MonadIO m, StackK a) => - a -- _obj - -> T.Text -- name - -> StackTransitionType -- transition - -> m () -- result -stackSetVisibleChildFull _obj name transition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let transition' = (fromIntegral . fromEnum) transition - gtk_stack_set_visible_child_full _obj' name' transition' - touchManagedPtr _obj - freeMem name' - return () - -data StackSetVisibleChildFullMethodInfo -instance (signature ~ (T.Text -> StackTransitionType -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVisibleChildFullMethodInfo a signature where - overloadedMethod _ = stackSetVisibleChildFull - --- method Stack::set_visible_child_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_set_visible_child_name" gtk_stack_set_visible_child_name :: - Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - CString -> -- name : TBasicType TUTF8 - IO () - - -stackSetVisibleChildName :: - (MonadIO m, StackK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -stackSetVisibleChildName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_stack_set_visible_child_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data StackSetVisibleChildNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVisibleChildNameMethodInfo a signature where - overloadedMethod _ = stackSetVisibleChildName - - diff --git a/GI/Gtk/Objects/Stack.hs-boot b/GI/Gtk/Objects/Stack.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Stack.hs-boot +++ /dev/null @@ -1,43 +0,0 @@ -module GI.Gtk.Objects.Stack 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 Stack = Stack (ForeignPtr Stack) -instance GObject Stack where -class GObject o => StackK o -instance (GObject o, IsDescendantOf Stack o) => StackK o -data StackHhomogeneousPropertyInfo -data StackHomogeneousPropertyInfo -data StackInterpolateSizePropertyInfo -data StackTransitionDurationPropertyInfo -data StackTransitionRunningPropertyInfo -data StackTransitionTypePropertyInfo -data StackVhomogeneousPropertyInfo -data StackVisibleChildPropertyInfo -data StackVisibleChildNamePropertyInfo -data StackAddNamedMethodInfo -data StackAddTitledMethodInfo -data StackGetChildByNameMethodInfo -data StackGetHhomogeneousMethodInfo -data StackGetHomogeneousMethodInfo -data StackGetInterpolateSizeMethodInfo -data StackGetTransitionDurationMethodInfo -data StackGetTransitionRunningMethodInfo -data StackGetTransitionTypeMethodInfo -data StackGetVhomogeneousMethodInfo -data StackGetVisibleChildMethodInfo -data StackGetVisibleChildNameMethodInfo -data StackSetHhomogeneousMethodInfo -data StackSetHomogeneousMethodInfo -data StackSetInterpolateSizeMethodInfo -data StackSetTransitionDurationMethodInfo -data StackSetTransitionTypeMethodInfo -data StackSetVhomogeneousMethodInfo -data StackSetVisibleChildMethodInfo -data StackSetVisibleChildFullMethodInfo -data StackSetVisibleChildNameMethodInfo diff --git a/GI/Gtk/Objects/StackSidebar.hs b/GI/Gtk/Objects/StackSidebar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StackSidebar.hs +++ /dev/null @@ -1,523 +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.Gtk.Objects.StackSidebar - ( - --- * Exported types - StackSidebar(..) , - StackSidebarK , - toStackSidebar , - noStackSidebar , - - - -- * Methods --- ** stackSidebarGetStack - StackSidebarGetStackMethodInfo , - stackSidebarGetStack , - - --- ** stackSidebarNew - stackSidebarNew , - - --- ** stackSidebarSetStack - StackSidebarSetStackMethodInfo , - stackSidebarSetStack , - - - - - -- * Properties --- ** Stack - StackSidebarStackPropertyInfo , - constructStackSidebarStack , - getStackSidebarStack , - setStackSidebarStack , - stackSidebarStack , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype StackSidebar = StackSidebar (ForeignPtr StackSidebar) -foreign import ccall "gtk_stack_sidebar_get_type" - c_gtk_stack_sidebar_get_type :: IO GType - -type instance ParentTypes StackSidebar = StackSidebarParentTypes -type StackSidebarParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject StackSidebar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_stack_sidebar_get_type - - -class GObject o => StackSidebarK o -instance (GObject o, IsDescendantOf StackSidebar o) => StackSidebarK o - -toStackSidebar :: StackSidebarK o => o -> IO StackSidebar -toStackSidebar = unsafeCastTo StackSidebar - -noStackSidebar :: Maybe StackSidebar -noStackSidebar = Nothing - -type family ResolveStackSidebarMethod (t :: Symbol) (o :: *) :: * where - ResolveStackSidebarMethod "activate" o = WidgetActivateMethodInfo - ResolveStackSidebarMethod "add" o = ContainerAddMethodInfo - ResolveStackSidebarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveStackSidebarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveStackSidebarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveStackSidebarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveStackSidebarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveStackSidebarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveStackSidebarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStackSidebarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStackSidebarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveStackSidebarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveStackSidebarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveStackSidebarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveStackSidebarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveStackSidebarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveStackSidebarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveStackSidebarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveStackSidebarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveStackSidebarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveStackSidebarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveStackSidebarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveStackSidebarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveStackSidebarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveStackSidebarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveStackSidebarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveStackSidebarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveStackSidebarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveStackSidebarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveStackSidebarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveStackSidebarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveStackSidebarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveStackSidebarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveStackSidebarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveStackSidebarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveStackSidebarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveStackSidebarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveStackSidebarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveStackSidebarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveStackSidebarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveStackSidebarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveStackSidebarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveStackSidebarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveStackSidebarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveStackSidebarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveStackSidebarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveStackSidebarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveStackSidebarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveStackSidebarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveStackSidebarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveStackSidebarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveStackSidebarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveStackSidebarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveStackSidebarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveStackSidebarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveStackSidebarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveStackSidebarMethod "draw" o = WidgetDrawMethodInfo - ResolveStackSidebarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveStackSidebarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveStackSidebarMethod "event" o = WidgetEventMethodInfo - ResolveStackSidebarMethod "forall" o = ContainerForallMethodInfo - ResolveStackSidebarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStackSidebarMethod "foreach" o = ContainerForeachMethodInfo - ResolveStackSidebarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveStackSidebarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStackSidebarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveStackSidebarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveStackSidebarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveStackSidebarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveStackSidebarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveStackSidebarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveStackSidebarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveStackSidebarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveStackSidebarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveStackSidebarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveStackSidebarMethod "hide" o = WidgetHideMethodInfo - ResolveStackSidebarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveStackSidebarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveStackSidebarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveStackSidebarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveStackSidebarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveStackSidebarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveStackSidebarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveStackSidebarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveStackSidebarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveStackSidebarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStackSidebarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveStackSidebarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveStackSidebarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveStackSidebarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveStackSidebarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveStackSidebarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveStackSidebarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveStackSidebarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveStackSidebarMethod "map" o = WidgetMapMethodInfo - ResolveStackSidebarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveStackSidebarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveStackSidebarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveStackSidebarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveStackSidebarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveStackSidebarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveStackSidebarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveStackSidebarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveStackSidebarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStackSidebarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStackSidebarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveStackSidebarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveStackSidebarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveStackSidebarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveStackSidebarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveStackSidebarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveStackSidebarMethod "path" o = WidgetPathMethodInfo - ResolveStackSidebarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveStackSidebarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveStackSidebarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveStackSidebarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveStackSidebarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveStackSidebarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveStackSidebarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveStackSidebarMethod "realize" o = WidgetRealizeMethodInfo - ResolveStackSidebarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStackSidebarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStackSidebarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveStackSidebarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveStackSidebarMethod "remove" o = ContainerRemoveMethodInfo - ResolveStackSidebarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveStackSidebarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveStackSidebarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveStackSidebarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveStackSidebarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveStackSidebarMethod "reparent" o = WidgetReparentMethodInfo - ResolveStackSidebarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStackSidebarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStackSidebarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveStackSidebarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveStackSidebarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveStackSidebarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStackSidebarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveStackSidebarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveStackSidebarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveStackSidebarMethod "show" o = WidgetShowMethodInfo - ResolveStackSidebarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveStackSidebarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveStackSidebarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveStackSidebarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveStackSidebarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveStackSidebarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStackSidebarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStackSidebarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveStackSidebarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveStackSidebarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveStackSidebarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStackSidebarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveStackSidebarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveStackSidebarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveStackSidebarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveStackSidebarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveStackSidebarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStackSidebarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveStackSidebarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveStackSidebarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveStackSidebarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStackSidebarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveStackSidebarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveStackSidebarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveStackSidebarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveStackSidebarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveStackSidebarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveStackSidebarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveStackSidebarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveStackSidebarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveStackSidebarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveStackSidebarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveStackSidebarMethod "getChild" o = BinGetChildMethodInfo - ResolveStackSidebarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveStackSidebarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveStackSidebarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveStackSidebarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveStackSidebarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveStackSidebarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveStackSidebarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStackSidebarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveStackSidebarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveStackSidebarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveStackSidebarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveStackSidebarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveStackSidebarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveStackSidebarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveStackSidebarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveStackSidebarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveStackSidebarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveStackSidebarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveStackSidebarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveStackSidebarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveStackSidebarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveStackSidebarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveStackSidebarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveStackSidebarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveStackSidebarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveStackSidebarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveStackSidebarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveStackSidebarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveStackSidebarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveStackSidebarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveStackSidebarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveStackSidebarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveStackSidebarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveStackSidebarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveStackSidebarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveStackSidebarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveStackSidebarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveStackSidebarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveStackSidebarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveStackSidebarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveStackSidebarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveStackSidebarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveStackSidebarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveStackSidebarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveStackSidebarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveStackSidebarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveStackSidebarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveStackSidebarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveStackSidebarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveStackSidebarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStackSidebarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStackSidebarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveStackSidebarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveStackSidebarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveStackSidebarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveStackSidebarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveStackSidebarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveStackSidebarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveStackSidebarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveStackSidebarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveStackSidebarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveStackSidebarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveStackSidebarMethod "getStack" o = StackSidebarGetStackMethodInfo - ResolveStackSidebarMethod "getState" o = WidgetGetStateMethodInfo - ResolveStackSidebarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveStackSidebarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveStackSidebarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveStackSidebarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveStackSidebarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveStackSidebarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveStackSidebarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveStackSidebarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveStackSidebarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveStackSidebarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveStackSidebarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveStackSidebarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveStackSidebarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveStackSidebarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveStackSidebarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveStackSidebarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveStackSidebarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveStackSidebarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveStackSidebarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveStackSidebarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveStackSidebarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveStackSidebarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveStackSidebarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveStackSidebarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveStackSidebarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveStackSidebarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveStackSidebarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStackSidebarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveStackSidebarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveStackSidebarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveStackSidebarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveStackSidebarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveStackSidebarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveStackSidebarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveStackSidebarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveStackSidebarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveStackSidebarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveStackSidebarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveStackSidebarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveStackSidebarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveStackSidebarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveStackSidebarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveStackSidebarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveStackSidebarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveStackSidebarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveStackSidebarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveStackSidebarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveStackSidebarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveStackSidebarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveStackSidebarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveStackSidebarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveStackSidebarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveStackSidebarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveStackSidebarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveStackSidebarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStackSidebarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveStackSidebarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveStackSidebarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveStackSidebarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveStackSidebarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveStackSidebarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveStackSidebarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveStackSidebarMethod "setStack" o = StackSidebarSetStackMethodInfo - ResolveStackSidebarMethod "setState" o = WidgetSetStateMethodInfo - ResolveStackSidebarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveStackSidebarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveStackSidebarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveStackSidebarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveStackSidebarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveStackSidebarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveStackSidebarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveStackSidebarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveStackSidebarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveStackSidebarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveStackSidebarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveStackSidebarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveStackSidebarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStackSidebarMethod t StackSidebar, MethodInfo info StackSidebar p) => IsLabelProxy t (StackSidebar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStackSidebarMethod t StackSidebar, MethodInfo info StackSidebar p) => IsLabel t (StackSidebar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "stack" - -- Type: TInterface "Gtk" "Stack" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getStackSidebarStack :: (MonadIO m, StackSidebarK o) => o -> m (Maybe Stack) -getStackSidebarStack obj = liftIO $ getObjectPropertyObject obj "stack" Stack - -setStackSidebarStack :: (MonadIO m, StackSidebarK o, StackK a) => o -> a -> m () -setStackSidebarStack obj val = liftIO $ setObjectPropertyObject obj "stack" (Just val) - -constructStackSidebarStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSidebarStack val = constructObjectPropertyObject "stack" (Just val) - -data StackSidebarStackPropertyInfo -instance AttrInfo StackSidebarStackPropertyInfo where - type AttrAllowedOps StackSidebarStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackSidebarStackPropertyInfo = StackK - type AttrBaseTypeConstraint StackSidebarStackPropertyInfo = StackSidebarK - type AttrGetType StackSidebarStackPropertyInfo = (Maybe Stack) - type AttrLabel StackSidebarStackPropertyInfo = "stack" - attrGet _ = getStackSidebarStack - attrSet _ = setStackSidebarStack - attrConstruct _ = constructStackSidebarStack - attrClear _ = undefined - -type instance AttributeList StackSidebar = StackSidebarAttributeList -type StackSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -stackSidebarStack :: AttrLabelProxy "stack" -stackSidebarStack = AttrLabelProxy - -type instance SignalList StackSidebar = StackSidebarSignalList -type StackSidebarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method StackSidebar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StackSidebar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_sidebar_new" gtk_stack_sidebar_new :: - IO (Ptr StackSidebar) - - -stackSidebarNew :: - (MonadIO m) => - m StackSidebar -- result -stackSidebarNew = liftIO $ do - result <- gtk_stack_sidebar_new - checkUnexpectedReturnNULL "gtk_stack_sidebar_new" result - result' <- (newObject StackSidebar) result - return result' - --- method StackSidebar::get_stack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Stack") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_sidebar_get_stack" gtk_stack_sidebar_get_stack :: - Ptr StackSidebar -> -- _obj : TInterface "Gtk" "StackSidebar" - IO (Ptr Stack) - - -stackSidebarGetStack :: - (MonadIO m, StackSidebarK a) => - a -- _obj - -> m Stack -- result -stackSidebarGetStack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_sidebar_get_stack _obj' - checkUnexpectedReturnNULL "gtk_stack_sidebar_get_stack" result - result' <- (wrapObject Stack) result - touchManagedPtr _obj - return result' - -data StackSidebarGetStackMethodInfo -instance (signature ~ (m Stack), MonadIO m, StackSidebarK a) => MethodInfo StackSidebarGetStackMethodInfo a signature where - overloadedMethod _ = stackSidebarGetStack - --- method StackSidebar::set_stack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", 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 "gtk_stack_sidebar_set_stack" gtk_stack_sidebar_set_stack :: - Ptr StackSidebar -> -- _obj : TInterface "Gtk" "StackSidebar" - Ptr Stack -> -- stack : TInterface "Gtk" "Stack" - IO () - - -stackSidebarSetStack :: - (MonadIO m, StackSidebarK a, StackK b) => - a -- _obj - -> b -- stack - -> m () -- result -stackSidebarSetStack _obj stack = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stack' = unsafeManagedPtrCastPtr stack - gtk_stack_sidebar_set_stack _obj' stack' - touchManagedPtr _obj - touchManagedPtr stack - return () - -data StackSidebarSetStackMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StackSidebarK a, StackK b) => MethodInfo StackSidebarSetStackMethodInfo a signature where - overloadedMethod _ = stackSidebarSetStack - - diff --git a/GI/Gtk/Objects/StackSidebar.hs-boot b/GI/Gtk/Objects/StackSidebar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StackSidebar.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.StackSidebar 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 StackSidebar = StackSidebar (ForeignPtr StackSidebar) -instance GObject StackSidebar where -class GObject o => StackSidebarK o -instance (GObject o, IsDescendantOf StackSidebar o) => StackSidebarK o -data StackSidebarStackPropertyInfo -data StackSidebarGetStackMethodInfo -data StackSidebarSetStackMethodInfo diff --git a/GI/Gtk/Objects/StackSwitcher.hs b/GI/Gtk/Objects/StackSwitcher.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StackSwitcher.hs +++ /dev/null @@ -1,545 +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.Gtk.Objects.StackSwitcher - ( - --- * Exported types - StackSwitcher(..) , - StackSwitcherK , - toStackSwitcher , - noStackSwitcher , - - - -- * Methods --- ** stackSwitcherGetStack - StackSwitcherGetStackMethodInfo , - stackSwitcherGetStack , - - --- ** stackSwitcherNew - stackSwitcherNew , - - --- ** stackSwitcherSetStack - StackSwitcherSetStackMethodInfo , - stackSwitcherSetStack , - - - - - -- * Properties --- ** Stack - StackSwitcherStackPropertyInfo , - clearStackSwitcherStack , - constructStackSwitcherStack , - getStackSwitcherStack , - setStackSwitcherStack , - stackSwitcherStack , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype StackSwitcher = StackSwitcher (ForeignPtr StackSwitcher) -foreign import ccall "gtk_stack_switcher_get_type" - c_gtk_stack_switcher_get_type :: IO GType - -type instance ParentTypes StackSwitcher = StackSwitcherParentTypes -type StackSwitcherParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject StackSwitcher where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_stack_switcher_get_type - - -class GObject o => StackSwitcherK o -instance (GObject o, IsDescendantOf StackSwitcher o) => StackSwitcherK o - -toStackSwitcher :: StackSwitcherK o => o -> IO StackSwitcher -toStackSwitcher = unsafeCastTo StackSwitcher - -noStackSwitcher :: Maybe StackSwitcher -noStackSwitcher = Nothing - -type family ResolveStackSwitcherMethod (t :: Symbol) (o :: *) :: * where - ResolveStackSwitcherMethod "activate" o = WidgetActivateMethodInfo - ResolveStackSwitcherMethod "add" o = ContainerAddMethodInfo - ResolveStackSwitcherMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveStackSwitcherMethod "addChild" o = BuildableAddChildMethodInfo - ResolveStackSwitcherMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveStackSwitcherMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveStackSwitcherMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveStackSwitcherMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveStackSwitcherMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStackSwitcherMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStackSwitcherMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveStackSwitcherMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveStackSwitcherMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveStackSwitcherMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveStackSwitcherMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveStackSwitcherMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveStackSwitcherMethod "childType" o = ContainerChildTypeMethodInfo - ResolveStackSwitcherMethod "classPath" o = WidgetClassPathMethodInfo - ResolveStackSwitcherMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveStackSwitcherMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveStackSwitcherMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveStackSwitcherMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveStackSwitcherMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveStackSwitcherMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveStackSwitcherMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveStackSwitcherMethod "destroy" o = WidgetDestroyMethodInfo - ResolveStackSwitcherMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveStackSwitcherMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveStackSwitcherMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveStackSwitcherMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveStackSwitcherMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveStackSwitcherMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveStackSwitcherMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveStackSwitcherMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveStackSwitcherMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveStackSwitcherMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveStackSwitcherMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveStackSwitcherMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveStackSwitcherMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveStackSwitcherMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveStackSwitcherMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveStackSwitcherMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveStackSwitcherMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveStackSwitcherMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveStackSwitcherMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveStackSwitcherMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveStackSwitcherMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveStackSwitcherMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveStackSwitcherMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveStackSwitcherMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveStackSwitcherMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveStackSwitcherMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveStackSwitcherMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveStackSwitcherMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveStackSwitcherMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveStackSwitcherMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveStackSwitcherMethod "draw" o = WidgetDrawMethodInfo - ResolveStackSwitcherMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveStackSwitcherMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveStackSwitcherMethod "event" o = WidgetEventMethodInfo - ResolveStackSwitcherMethod "forall" o = ContainerForallMethodInfo - ResolveStackSwitcherMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStackSwitcherMethod "foreach" o = ContainerForeachMethodInfo - ResolveStackSwitcherMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveStackSwitcherMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStackSwitcherMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveStackSwitcherMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveStackSwitcherMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveStackSwitcherMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveStackSwitcherMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveStackSwitcherMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveStackSwitcherMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveStackSwitcherMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveStackSwitcherMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveStackSwitcherMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveStackSwitcherMethod "hide" o = WidgetHideMethodInfo - ResolveStackSwitcherMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveStackSwitcherMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveStackSwitcherMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveStackSwitcherMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveStackSwitcherMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveStackSwitcherMethod "intersect" o = WidgetIntersectMethodInfo - ResolveStackSwitcherMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveStackSwitcherMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveStackSwitcherMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveStackSwitcherMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStackSwitcherMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveStackSwitcherMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveStackSwitcherMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveStackSwitcherMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveStackSwitcherMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveStackSwitcherMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveStackSwitcherMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveStackSwitcherMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveStackSwitcherMethod "map" o = WidgetMapMethodInfo - ResolveStackSwitcherMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveStackSwitcherMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveStackSwitcherMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveStackSwitcherMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveStackSwitcherMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveStackSwitcherMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveStackSwitcherMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveStackSwitcherMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveStackSwitcherMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStackSwitcherMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStackSwitcherMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveStackSwitcherMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveStackSwitcherMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveStackSwitcherMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveStackSwitcherMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveStackSwitcherMethod "packEnd" o = BoxPackEndMethodInfo - ResolveStackSwitcherMethod "packStart" o = BoxPackStartMethodInfo - ResolveStackSwitcherMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveStackSwitcherMethod "path" o = WidgetPathMethodInfo - ResolveStackSwitcherMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveStackSwitcherMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveStackSwitcherMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveStackSwitcherMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveStackSwitcherMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveStackSwitcherMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveStackSwitcherMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveStackSwitcherMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveStackSwitcherMethod "realize" o = WidgetRealizeMethodInfo - ResolveStackSwitcherMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStackSwitcherMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStackSwitcherMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveStackSwitcherMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveStackSwitcherMethod "remove" o = ContainerRemoveMethodInfo - ResolveStackSwitcherMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveStackSwitcherMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveStackSwitcherMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveStackSwitcherMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveStackSwitcherMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveStackSwitcherMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveStackSwitcherMethod "reparent" o = WidgetReparentMethodInfo - ResolveStackSwitcherMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStackSwitcherMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStackSwitcherMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveStackSwitcherMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveStackSwitcherMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveStackSwitcherMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStackSwitcherMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveStackSwitcherMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveStackSwitcherMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveStackSwitcherMethod "show" o = WidgetShowMethodInfo - ResolveStackSwitcherMethod "showAll" o = WidgetShowAllMethodInfo - ResolveStackSwitcherMethod "showNow" o = WidgetShowNowMethodInfo - ResolveStackSwitcherMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveStackSwitcherMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveStackSwitcherMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveStackSwitcherMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStackSwitcherMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStackSwitcherMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveStackSwitcherMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveStackSwitcherMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveStackSwitcherMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStackSwitcherMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveStackSwitcherMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveStackSwitcherMethod "unmap" o = WidgetUnmapMethodInfo - ResolveStackSwitcherMethod "unparent" o = WidgetUnparentMethodInfo - ResolveStackSwitcherMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveStackSwitcherMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStackSwitcherMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveStackSwitcherMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveStackSwitcherMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveStackSwitcherMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStackSwitcherMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveStackSwitcherMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveStackSwitcherMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveStackSwitcherMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveStackSwitcherMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveStackSwitcherMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveStackSwitcherMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveStackSwitcherMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveStackSwitcherMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveStackSwitcherMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveStackSwitcherMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveStackSwitcherMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveStackSwitcherMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveStackSwitcherMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveStackSwitcherMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveStackSwitcherMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveStackSwitcherMethod "getClip" o = WidgetGetClipMethodInfo - ResolveStackSwitcherMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveStackSwitcherMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveStackSwitcherMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStackSwitcherMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveStackSwitcherMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveStackSwitcherMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveStackSwitcherMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveStackSwitcherMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveStackSwitcherMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveStackSwitcherMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveStackSwitcherMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveStackSwitcherMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveStackSwitcherMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveStackSwitcherMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveStackSwitcherMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveStackSwitcherMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveStackSwitcherMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveStackSwitcherMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveStackSwitcherMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveStackSwitcherMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveStackSwitcherMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveStackSwitcherMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveStackSwitcherMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveStackSwitcherMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveStackSwitcherMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveStackSwitcherMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveStackSwitcherMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveStackSwitcherMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveStackSwitcherMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveStackSwitcherMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveStackSwitcherMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveStackSwitcherMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveStackSwitcherMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveStackSwitcherMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveStackSwitcherMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveStackSwitcherMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveStackSwitcherMethod "getParent" o = WidgetGetParentMethodInfo - ResolveStackSwitcherMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveStackSwitcherMethod "getPath" o = WidgetGetPathMethodInfo - ResolveStackSwitcherMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveStackSwitcherMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveStackSwitcherMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveStackSwitcherMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveStackSwitcherMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveStackSwitcherMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveStackSwitcherMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveStackSwitcherMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveStackSwitcherMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStackSwitcherMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStackSwitcherMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveStackSwitcherMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveStackSwitcherMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveStackSwitcherMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveStackSwitcherMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveStackSwitcherMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveStackSwitcherMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveStackSwitcherMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveStackSwitcherMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveStackSwitcherMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveStackSwitcherMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveStackSwitcherMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveStackSwitcherMethod "getStack" o = StackSwitcherGetStackMethodInfo - ResolveStackSwitcherMethod "getState" o = WidgetGetStateMethodInfo - ResolveStackSwitcherMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveStackSwitcherMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveStackSwitcherMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveStackSwitcherMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveStackSwitcherMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveStackSwitcherMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveStackSwitcherMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveStackSwitcherMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveStackSwitcherMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveStackSwitcherMethod "getValign" o = WidgetGetValignMethodInfo - ResolveStackSwitcherMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveStackSwitcherMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveStackSwitcherMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveStackSwitcherMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveStackSwitcherMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveStackSwitcherMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveStackSwitcherMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveStackSwitcherMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveStackSwitcherMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveStackSwitcherMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveStackSwitcherMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveStackSwitcherMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveStackSwitcherMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveStackSwitcherMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveStackSwitcherMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveStackSwitcherMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveStackSwitcherMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveStackSwitcherMethod "setClip" o = WidgetSetClipMethodInfo - ResolveStackSwitcherMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveStackSwitcherMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStackSwitcherMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveStackSwitcherMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveStackSwitcherMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveStackSwitcherMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveStackSwitcherMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveStackSwitcherMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveStackSwitcherMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveStackSwitcherMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveStackSwitcherMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveStackSwitcherMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveStackSwitcherMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveStackSwitcherMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveStackSwitcherMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveStackSwitcherMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveStackSwitcherMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveStackSwitcherMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveStackSwitcherMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveStackSwitcherMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveStackSwitcherMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveStackSwitcherMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveStackSwitcherMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveStackSwitcherMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveStackSwitcherMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveStackSwitcherMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveStackSwitcherMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveStackSwitcherMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveStackSwitcherMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveStackSwitcherMethod "setParent" o = WidgetSetParentMethodInfo - ResolveStackSwitcherMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveStackSwitcherMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStackSwitcherMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveStackSwitcherMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveStackSwitcherMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveStackSwitcherMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveStackSwitcherMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveStackSwitcherMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveStackSwitcherMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveStackSwitcherMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveStackSwitcherMethod "setStack" o = StackSwitcherSetStackMethodInfo - ResolveStackSwitcherMethod "setState" o = WidgetSetStateMethodInfo - ResolveStackSwitcherMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveStackSwitcherMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveStackSwitcherMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveStackSwitcherMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveStackSwitcherMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveStackSwitcherMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveStackSwitcherMethod "setValign" o = WidgetSetValignMethodInfo - ResolveStackSwitcherMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveStackSwitcherMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveStackSwitcherMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveStackSwitcherMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveStackSwitcherMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveStackSwitcherMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStackSwitcherMethod t StackSwitcher, MethodInfo info StackSwitcher p) => IsLabelProxy t (StackSwitcher -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStackSwitcherMethod t StackSwitcher, MethodInfo info StackSwitcher p) => IsLabel t (StackSwitcher -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "stack" - -- Type: TInterface "Gtk" "Stack" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m Stack -getStackSwitcherStack obj = liftIO $ checkUnexpectedNothing "getStackSwitcherStack" $ getObjectPropertyObject obj "stack" Stack - -setStackSwitcherStack :: (MonadIO m, StackSwitcherK o, StackK a) => o -> a -> m () -setStackSwitcherStack obj val = liftIO $ setObjectPropertyObject obj "stack" (Just val) - -constructStackSwitcherStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSwitcherStack val = constructObjectPropertyObject "stack" (Just val) - -clearStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m () -clearStackSwitcherStack obj = liftIO $ setObjectPropertyObject obj "stack" (Nothing :: Maybe Stack) - -data StackSwitcherStackPropertyInfo -instance AttrInfo StackSwitcherStackPropertyInfo where - type AttrAllowedOps StackSwitcherStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StackSwitcherStackPropertyInfo = StackK - type AttrBaseTypeConstraint StackSwitcherStackPropertyInfo = StackSwitcherK - type AttrGetType StackSwitcherStackPropertyInfo = Stack - type AttrLabel StackSwitcherStackPropertyInfo = "stack" - attrGet _ = getStackSwitcherStack - attrSet _ = setStackSwitcherStack - attrConstruct _ = constructStackSwitcherStack - attrClear _ = clearStackSwitcherStack - -type instance AttributeList StackSwitcher = StackSwitcherAttributeList -type StackSwitcherAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -stackSwitcherStack :: AttrLabelProxy "stack" -stackSwitcherStack = AttrLabelProxy - -type instance SignalList StackSwitcher = StackSwitcherSignalList -type StackSwitcherSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method StackSwitcher::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StackSwitcher") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_switcher_new" gtk_stack_switcher_new :: - IO (Ptr StackSwitcher) - - -stackSwitcherNew :: - (MonadIO m) => - m StackSwitcher -- result -stackSwitcherNew = liftIO $ do - result <- gtk_stack_switcher_new - checkUnexpectedReturnNULL "gtk_stack_switcher_new" result - result' <- (newObject StackSwitcher) result - return result' - --- method StackSwitcher::get_stack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Stack") --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_switcher_get_stack" gtk_stack_switcher_get_stack :: - Ptr StackSwitcher -> -- _obj : TInterface "Gtk" "StackSwitcher" - IO (Ptr Stack) - - -stackSwitcherGetStack :: - (MonadIO m, StackSwitcherK a) => - a -- _obj - -> m Stack -- result -stackSwitcherGetStack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_switcher_get_stack _obj' - checkUnexpectedReturnNULL "gtk_stack_switcher_get_stack" result - result' <- (newObject Stack) result - touchManagedPtr _obj - return result' - -data StackSwitcherGetStackMethodInfo -instance (signature ~ (m Stack), MonadIO m, StackSwitcherK a) => MethodInfo StackSwitcherGetStackMethodInfo a signature where - overloadedMethod _ = stackSwitcherGetStack - --- method StackSwitcher::set_stack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_stack_switcher_set_stack" gtk_stack_switcher_set_stack :: - Ptr StackSwitcher -> -- _obj : TInterface "Gtk" "StackSwitcher" - Ptr Stack -> -- stack : TInterface "Gtk" "Stack" - IO () - - -stackSwitcherSetStack :: - (MonadIO m, StackSwitcherK a, StackK b) => - a -- _obj - -> Maybe (b) -- stack - -> m () -- result -stackSwitcherSetStack _obj stack = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStack <- case stack of - Nothing -> return nullPtr - Just jStack -> do - let jStack' = unsafeManagedPtrCastPtr jStack - return jStack' - gtk_stack_switcher_set_stack _obj' maybeStack - touchManagedPtr _obj - whenJust stack touchManagedPtr - return () - -data StackSwitcherSetStackMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StackSwitcherK a, StackK b) => MethodInfo StackSwitcherSetStackMethodInfo a signature where - overloadedMethod _ = stackSwitcherSetStack - - diff --git a/GI/Gtk/Objects/StackSwitcher.hs-boot b/GI/Gtk/Objects/StackSwitcher.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StackSwitcher.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Objects.StackSwitcher 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 StackSwitcher = StackSwitcher (ForeignPtr StackSwitcher) -instance GObject StackSwitcher where -class GObject o => StackSwitcherK o -instance (GObject o, IsDescendantOf StackSwitcher o) => StackSwitcherK o -data StackSwitcherStackPropertyInfo -data StackSwitcherGetStackMethodInfo -data StackSwitcherSetStackMethodInfo diff --git a/GI/Gtk/Objects/StatusIcon.hs b/GI/Gtk/Objects/StatusIcon.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StatusIcon.hs +++ /dev/null @@ -1,2276 +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.Gtk.Objects.StatusIcon - ( - --- * Exported types - StatusIcon(..) , - StatusIconK , - toStatusIcon , - noStatusIcon , - - - -- * Methods --- ** statusIconGetGeometry - StatusIconGetGeometryMethodInfo , - statusIconGetGeometry , - - --- ** statusIconGetGicon - StatusIconGetGiconMethodInfo , - statusIconGetGicon , - - --- ** statusIconGetHasTooltip - StatusIconGetHasTooltipMethodInfo , - statusIconGetHasTooltip , - - --- ** statusIconGetIconName - StatusIconGetIconNameMethodInfo , - statusIconGetIconName , - - --- ** statusIconGetPixbuf - StatusIconGetPixbufMethodInfo , - statusIconGetPixbuf , - - --- ** statusIconGetScreen - StatusIconGetScreenMethodInfo , - statusIconGetScreen , - - --- ** statusIconGetSize - StatusIconGetSizeMethodInfo , - statusIconGetSize , - - --- ** statusIconGetStock - StatusIconGetStockMethodInfo , - statusIconGetStock , - - --- ** statusIconGetStorageType - StatusIconGetStorageTypeMethodInfo , - statusIconGetStorageType , - - --- ** statusIconGetTitle - StatusIconGetTitleMethodInfo , - statusIconGetTitle , - - --- ** statusIconGetTooltipMarkup - StatusIconGetTooltipMarkupMethodInfo , - statusIconGetTooltipMarkup , - - --- ** statusIconGetTooltipText - StatusIconGetTooltipTextMethodInfo , - statusIconGetTooltipText , - - --- ** statusIconGetVisible - StatusIconGetVisibleMethodInfo , - statusIconGetVisible , - - --- ** statusIconGetX11WindowId - StatusIconGetX11WindowIdMethodInfo , - statusIconGetX11WindowId , - - --- ** statusIconIsEmbedded - StatusIconIsEmbeddedMethodInfo , - statusIconIsEmbedded , - - --- ** statusIconNew - statusIconNew , - - --- ** statusIconNewFromFile - statusIconNewFromFile , - - --- ** statusIconNewFromGicon - statusIconNewFromGicon , - - --- ** statusIconNewFromIconName - statusIconNewFromIconName , - - --- ** statusIconNewFromPixbuf - statusIconNewFromPixbuf , - - --- ** statusIconNewFromStock - statusIconNewFromStock , - - --- ** statusIconPositionMenu - statusIconPositionMenu , - - --- ** statusIconSetFromFile - StatusIconSetFromFileMethodInfo , - statusIconSetFromFile , - - --- ** statusIconSetFromGicon - StatusIconSetFromGiconMethodInfo , - statusIconSetFromGicon , - - --- ** statusIconSetFromIconName - StatusIconSetFromIconNameMethodInfo , - statusIconSetFromIconName , - - --- ** statusIconSetFromPixbuf - StatusIconSetFromPixbufMethodInfo , - statusIconSetFromPixbuf , - - --- ** statusIconSetFromStock - StatusIconSetFromStockMethodInfo , - statusIconSetFromStock , - - --- ** statusIconSetHasTooltip - StatusIconSetHasTooltipMethodInfo , - statusIconSetHasTooltip , - - --- ** statusIconSetName - StatusIconSetNameMethodInfo , - statusIconSetName , - - --- ** statusIconSetScreen - StatusIconSetScreenMethodInfo , - statusIconSetScreen , - - --- ** statusIconSetTitle - StatusIconSetTitleMethodInfo , - statusIconSetTitle , - - --- ** statusIconSetTooltipMarkup - StatusIconSetTooltipMarkupMethodInfo , - statusIconSetTooltipMarkup , - - --- ** statusIconSetTooltipText - StatusIconSetTooltipTextMethodInfo , - statusIconSetTooltipText , - - --- ** statusIconSetVisible - StatusIconSetVisibleMethodInfo , - statusIconSetVisible , - - - - - -- * Properties --- ** Embedded - StatusIconEmbeddedPropertyInfo , - getStatusIconEmbedded , - statusIconEmbedded , - - --- ** File - StatusIconFilePropertyInfo , - clearStatusIconFile , - constructStatusIconFile , - setStatusIconFile , - statusIconFile , - - --- ** Gicon - StatusIconGiconPropertyInfo , - clearStatusIconGicon , - constructStatusIconGicon , - getStatusIconGicon , - setStatusIconGicon , - statusIconGicon , - - --- ** HasTooltip - StatusIconHasTooltipPropertyInfo , - constructStatusIconHasTooltip , - getStatusIconHasTooltip , - setStatusIconHasTooltip , - statusIconHasTooltip , - - --- ** IconName - StatusIconIconNamePropertyInfo , - clearStatusIconIconName , - constructStatusIconIconName , - getStatusIconIconName , - setStatusIconIconName , - statusIconIconName , - - --- ** Orientation - StatusIconOrientationPropertyInfo , - getStatusIconOrientation , - statusIconOrientation , - - --- ** Pixbuf - StatusIconPixbufPropertyInfo , - clearStatusIconPixbuf , - constructStatusIconPixbuf , - getStatusIconPixbuf , - setStatusIconPixbuf , - statusIconPixbuf , - - --- ** Screen - StatusIconScreenPropertyInfo , - constructStatusIconScreen , - getStatusIconScreen , - setStatusIconScreen , - statusIconScreen , - - --- ** Size - StatusIconSizePropertyInfo , - getStatusIconSize , - statusIconSize , - - --- ** Stock - StatusIconStockPropertyInfo , - clearStatusIconStock , - constructStatusIconStock , - getStatusIconStock , - setStatusIconStock , - statusIconStock , - - --- ** StorageType - StatusIconStorageTypePropertyInfo , - getStatusIconStorageType , - statusIconStorageType , - - --- ** Title - StatusIconTitlePropertyInfo , - constructStatusIconTitle , - getStatusIconTitle , - setStatusIconTitle , - statusIconTitle , - - --- ** TooltipMarkup - StatusIconTooltipMarkupPropertyInfo , - clearStatusIconTooltipMarkup , - constructStatusIconTooltipMarkup , - getStatusIconTooltipMarkup , - setStatusIconTooltipMarkup , - statusIconTooltipMarkup , - - --- ** TooltipText - StatusIconTooltipTextPropertyInfo , - constructStatusIconTooltipText , - getStatusIconTooltipText , - setStatusIconTooltipText , - statusIconTooltipText , - - --- ** Visible - StatusIconVisiblePropertyInfo , - constructStatusIconVisible , - getStatusIconVisible , - setStatusIconVisible , - statusIconVisible , - - - - - -- * Signals --- ** Activate - StatusIconActivateCallback , - StatusIconActivateCallbackC , - StatusIconActivateSignalInfo , - afterStatusIconActivate , - mkStatusIconActivateCallback , - noStatusIconActivateCallback , - onStatusIconActivate , - statusIconActivateCallbackWrapper , - statusIconActivateClosure , - - --- ** ButtonPressEvent - StatusIconButtonPressEventCallback , - StatusIconButtonPressEventCallbackC , - StatusIconButtonPressEventSignalInfo , - afterStatusIconButtonPressEvent , - mkStatusIconButtonPressEventCallback , - noStatusIconButtonPressEventCallback , - onStatusIconButtonPressEvent , - statusIconButtonPressEventCallbackWrapper, - statusIconButtonPressEventClosure , - - --- ** ButtonReleaseEvent - StatusIconButtonReleaseEventCallback , - StatusIconButtonReleaseEventCallbackC , - StatusIconButtonReleaseEventSignalInfo , - afterStatusIconButtonReleaseEvent , - mkStatusIconButtonReleaseEventCallback , - noStatusIconButtonReleaseEventCallback , - onStatusIconButtonReleaseEvent , - statusIconButtonReleaseEventCallbackWrapper, - statusIconButtonReleaseEventClosure , - - --- ** PopupMenu - StatusIconPopupMenuCallback , - StatusIconPopupMenuCallbackC , - StatusIconPopupMenuSignalInfo , - afterStatusIconPopupMenu , - mkStatusIconPopupMenuCallback , - noStatusIconPopupMenuCallback , - onStatusIconPopupMenu , - statusIconPopupMenuCallbackWrapper , - statusIconPopupMenuClosure , - - --- ** QueryTooltip - StatusIconQueryTooltipCallback , - StatusIconQueryTooltipCallbackC , - StatusIconQueryTooltipSignalInfo , - afterStatusIconQueryTooltip , - mkStatusIconQueryTooltipCallback , - noStatusIconQueryTooltipCallback , - onStatusIconQueryTooltip , - statusIconQueryTooltipCallbackWrapper , - statusIconQueryTooltipClosure , - - --- ** ScrollEvent - StatusIconScrollEventCallback , - StatusIconScrollEventCallbackC , - StatusIconScrollEventSignalInfo , - afterStatusIconScrollEvent , - mkStatusIconScrollEventCallback , - noStatusIconScrollEventCallback , - onStatusIconScrollEvent , - statusIconScrollEventCallbackWrapper , - statusIconScrollEventClosure , - - --- ** SizeChanged - StatusIconSizeChangedCallback , - StatusIconSizeChangedCallbackC , - StatusIconSizeChangedSignalInfo , - afterStatusIconSizeChanged , - mkStatusIconSizeChangedCallback , - noStatusIconSizeChangedCallback , - onStatusIconSizeChanged , - statusIconSizeChangedCallbackWrapper , - statusIconSizeChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio - -newtype StatusIcon = StatusIcon (ForeignPtr StatusIcon) -foreign import ccall "gtk_status_icon_get_type" - c_gtk_status_icon_get_type :: IO GType - -type instance ParentTypes StatusIcon = StatusIconParentTypes -type StatusIconParentTypes = '[GObject.Object] - -instance GObject StatusIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_status_icon_get_type - - -class GObject o => StatusIconK o -instance (GObject o, IsDescendantOf StatusIcon o) => StatusIconK o - -toStatusIcon :: StatusIconK o => o -> IO StatusIcon -toStatusIcon = unsafeCastTo StatusIcon - -noStatusIcon :: Maybe StatusIcon -noStatusIcon = Nothing - -type family ResolveStatusIconMethod (t :: Symbol) (o :: *) :: * where - ResolveStatusIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStatusIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStatusIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStatusIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStatusIconMethod "isEmbedded" o = StatusIconIsEmbeddedMethodInfo - ResolveStatusIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStatusIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStatusIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStatusIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStatusIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStatusIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStatusIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStatusIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStatusIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStatusIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStatusIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStatusIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStatusIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStatusIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStatusIconMethod "getGeometry" o = StatusIconGetGeometryMethodInfo - ResolveStatusIconMethod "getGicon" o = StatusIconGetGiconMethodInfo - ResolveStatusIconMethod "getHasTooltip" o = StatusIconGetHasTooltipMethodInfo - ResolveStatusIconMethod "getIconName" o = StatusIconGetIconNameMethodInfo - ResolveStatusIconMethod "getPixbuf" o = StatusIconGetPixbufMethodInfo - ResolveStatusIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStatusIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStatusIconMethod "getScreen" o = StatusIconGetScreenMethodInfo - ResolveStatusIconMethod "getSize" o = StatusIconGetSizeMethodInfo - ResolveStatusIconMethod "getStock" o = StatusIconGetStockMethodInfo - ResolveStatusIconMethod "getStorageType" o = StatusIconGetStorageTypeMethodInfo - ResolveStatusIconMethod "getTitle" o = StatusIconGetTitleMethodInfo - ResolveStatusIconMethod "getTooltipMarkup" o = StatusIconGetTooltipMarkupMethodInfo - ResolveStatusIconMethod "getTooltipText" o = StatusIconGetTooltipTextMethodInfo - ResolveStatusIconMethod "getVisible" o = StatusIconGetVisibleMethodInfo - ResolveStatusIconMethod "getX11WindowId" o = StatusIconGetX11WindowIdMethodInfo - ResolveStatusIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStatusIconMethod "setFromFile" o = StatusIconSetFromFileMethodInfo - ResolveStatusIconMethod "setFromGicon" o = StatusIconSetFromGiconMethodInfo - ResolveStatusIconMethod "setFromIconName" o = StatusIconSetFromIconNameMethodInfo - ResolveStatusIconMethod "setFromPixbuf" o = StatusIconSetFromPixbufMethodInfo - ResolveStatusIconMethod "setFromStock" o = StatusIconSetFromStockMethodInfo - ResolveStatusIconMethod "setHasTooltip" o = StatusIconSetHasTooltipMethodInfo - ResolveStatusIconMethod "setName" o = StatusIconSetNameMethodInfo - ResolveStatusIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStatusIconMethod "setScreen" o = StatusIconSetScreenMethodInfo - ResolveStatusIconMethod "setTitle" o = StatusIconSetTitleMethodInfo - ResolveStatusIconMethod "setTooltipMarkup" o = StatusIconSetTooltipMarkupMethodInfo - ResolveStatusIconMethod "setTooltipText" o = StatusIconSetTooltipTextMethodInfo - ResolveStatusIconMethod "setVisible" o = StatusIconSetVisibleMethodInfo - ResolveStatusIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStatusIconMethod t StatusIcon, MethodInfo info StatusIcon p) => IsLabelProxy t (StatusIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStatusIconMethod t StatusIcon, MethodInfo info StatusIcon p) => IsLabel t (StatusIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal StatusIcon::activate -type StatusIconActivateCallback = - IO () - -noStatusIconActivateCallback :: Maybe StatusIconActivateCallback -noStatusIconActivateCallback = Nothing - -type StatusIconActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStatusIconActivateCallback :: StatusIconActivateCallbackC -> IO (FunPtr StatusIconActivateCallbackC) - -statusIconActivateClosure :: StatusIconActivateCallback -> IO Closure -statusIconActivateClosure cb = newCClosure =<< mkStatusIconActivateCallback wrapped - where wrapped = statusIconActivateCallbackWrapper cb - -statusIconActivateCallbackWrapper :: - StatusIconActivateCallback -> - Ptr () -> - Ptr () -> - IO () -statusIconActivateCallbackWrapper _cb _ _ = do - _cb - -onStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId -onStatusIconActivate obj cb = liftIO $ connectStatusIconActivate obj cb SignalConnectBefore -afterStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId -afterStatusIconActivate obj cb = connectStatusIconActivate obj cb SignalConnectAfter - -connectStatusIconActivate :: (GObject a, MonadIO m) => - a -> StatusIconActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconActivate obj cb after = liftIO $ do - cb' <- mkStatusIconActivateCallback (statusIconActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal StatusIcon::button-press-event -type StatusIconButtonPressEventCallback = - Gdk.EventButton -> - IO Bool - -noStatusIconButtonPressEventCallback :: Maybe StatusIconButtonPressEventCallback -noStatusIconButtonPressEventCallback = Nothing - -type StatusIconButtonPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkStatusIconButtonPressEventCallback :: StatusIconButtonPressEventCallbackC -> IO (FunPtr StatusIconButtonPressEventCallbackC) - -statusIconButtonPressEventClosure :: StatusIconButtonPressEventCallback -> IO Closure -statusIconButtonPressEventClosure cb = newCClosure =<< mkStatusIconButtonPressEventCallback wrapped - where wrapped = statusIconButtonPressEventCallbackWrapper cb - -statusIconButtonPressEventCallbackWrapper :: - StatusIconButtonPressEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -statusIconButtonPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId -onStatusIconButtonPressEvent obj cb = liftIO $ connectStatusIconButtonPressEvent obj cb SignalConnectBefore -afterStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId -afterStatusIconButtonPressEvent obj cb = connectStatusIconButtonPressEvent obj cb SignalConnectAfter - -connectStatusIconButtonPressEvent :: (GObject a, MonadIO m) => - a -> StatusIconButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconButtonPressEvent obj cb after = liftIO $ do - cb' <- mkStatusIconButtonPressEventCallback (statusIconButtonPressEventCallbackWrapper cb) - connectSignalFunPtr obj "button-press-event" cb' after - --- signal StatusIcon::button-release-event -type StatusIconButtonReleaseEventCallback = - Gdk.EventButton -> - IO Bool - -noStatusIconButtonReleaseEventCallback :: Maybe StatusIconButtonReleaseEventCallback -noStatusIconButtonReleaseEventCallback = Nothing - -type StatusIconButtonReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkStatusIconButtonReleaseEventCallback :: StatusIconButtonReleaseEventCallbackC -> IO (FunPtr StatusIconButtonReleaseEventCallbackC) - -statusIconButtonReleaseEventClosure :: StatusIconButtonReleaseEventCallback -> IO Closure -statusIconButtonReleaseEventClosure cb = newCClosure =<< mkStatusIconButtonReleaseEventCallback wrapped - where wrapped = statusIconButtonReleaseEventCallbackWrapper cb - -statusIconButtonReleaseEventCallbackWrapper :: - StatusIconButtonReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -statusIconButtonReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId -onStatusIconButtonReleaseEvent obj cb = liftIO $ connectStatusIconButtonReleaseEvent obj cb SignalConnectBefore -afterStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId -afterStatusIconButtonReleaseEvent obj cb = connectStatusIconButtonReleaseEvent obj cb SignalConnectAfter - -connectStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => - a -> StatusIconButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconButtonReleaseEvent obj cb after = liftIO $ do - cb' <- mkStatusIconButtonReleaseEventCallback (statusIconButtonReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "button-release-event" cb' after - --- signal StatusIcon::popup-menu -type StatusIconPopupMenuCallback = - Word32 -> - Word32 -> - IO () - -noStatusIconPopupMenuCallback :: Maybe StatusIconPopupMenuCallback -noStatusIconPopupMenuCallback = Nothing - -type StatusIconPopupMenuCallbackC = - Ptr () -> -- object - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStatusIconPopupMenuCallback :: StatusIconPopupMenuCallbackC -> IO (FunPtr StatusIconPopupMenuCallbackC) - -statusIconPopupMenuClosure :: StatusIconPopupMenuCallback -> IO Closure -statusIconPopupMenuClosure cb = newCClosure =<< mkStatusIconPopupMenuCallback wrapped - where wrapped = statusIconPopupMenuCallbackWrapper cb - -statusIconPopupMenuCallbackWrapper :: - StatusIconPopupMenuCallback -> - Ptr () -> - Word32 -> - Word32 -> - Ptr () -> - IO () -statusIconPopupMenuCallbackWrapper _cb _ button activateTime _ = do - _cb button activateTime - -onStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId -onStatusIconPopupMenu obj cb = liftIO $ connectStatusIconPopupMenu obj cb SignalConnectBefore -afterStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId -afterStatusIconPopupMenu obj cb = connectStatusIconPopupMenu obj cb SignalConnectAfter - -connectStatusIconPopupMenu :: (GObject a, MonadIO m) => - a -> StatusIconPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconPopupMenu obj cb after = liftIO $ do - cb' <- mkStatusIconPopupMenuCallback (statusIconPopupMenuCallbackWrapper cb) - connectSignalFunPtr obj "popup-menu" cb' after - --- signal StatusIcon::query-tooltip -type StatusIconQueryTooltipCallback = - Int32 -> - Int32 -> - Bool -> - Tooltip -> - IO Bool - -noStatusIconQueryTooltipCallback :: Maybe StatusIconQueryTooltipCallback -noStatusIconQueryTooltipCallback = Nothing - -type StatusIconQueryTooltipCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkStatusIconQueryTooltipCallback :: StatusIconQueryTooltipCallbackC -> IO (FunPtr StatusIconQueryTooltipCallbackC) - -statusIconQueryTooltipClosure :: StatusIconQueryTooltipCallback -> IO Closure -statusIconQueryTooltipClosure cb = newCClosure =<< mkStatusIconQueryTooltipCallback wrapped - where wrapped = statusIconQueryTooltipCallbackWrapper cb - -statusIconQueryTooltipCallbackWrapper :: - StatusIconQueryTooltipCallback -> - Ptr () -> - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> - IO CInt -statusIconQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do - let keyboardMode' = (/= 0) keyboardMode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboardMode' tooltip' - let result' = (fromIntegral . fromEnum) result - return result' - -onStatusIconQueryTooltip :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId -onStatusIconQueryTooltip obj cb = liftIO $ connectStatusIconQueryTooltip obj cb SignalConnectBefore -afterStatusIconQueryTooltip :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId -afterStatusIconQueryTooltip obj cb = connectStatusIconQueryTooltip obj cb SignalConnectAfter - -connectStatusIconQueryTooltip :: (GObject a, MonadIO m) => - a -> StatusIconQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconQueryTooltip obj cb after = liftIO $ do - cb' <- mkStatusIconQueryTooltipCallback (statusIconQueryTooltipCallbackWrapper cb) - connectSignalFunPtr obj "query-tooltip" cb' after - --- signal StatusIcon::scroll-event -type StatusIconScrollEventCallback = - Gdk.EventScroll -> - IO Bool - -noStatusIconScrollEventCallback :: Maybe StatusIconScrollEventCallback -noStatusIconScrollEventCallback = Nothing - -type StatusIconScrollEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventScroll -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkStatusIconScrollEventCallback :: StatusIconScrollEventCallbackC -> IO (FunPtr StatusIconScrollEventCallbackC) - -statusIconScrollEventClosure :: StatusIconScrollEventCallback -> IO Closure -statusIconScrollEventClosure cb = newCClosure =<< mkStatusIconScrollEventCallback wrapped - where wrapped = statusIconScrollEventCallbackWrapper cb - -statusIconScrollEventCallbackWrapper :: - StatusIconScrollEventCallback -> - Ptr () -> - Ptr Gdk.EventScroll -> - Ptr () -> - IO CInt -statusIconScrollEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventScroll) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId -onStatusIconScrollEvent obj cb = liftIO $ connectStatusIconScrollEvent obj cb SignalConnectBefore -afterStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId -afterStatusIconScrollEvent obj cb = connectStatusIconScrollEvent obj cb SignalConnectAfter - -connectStatusIconScrollEvent :: (GObject a, MonadIO m) => - a -> StatusIconScrollEventCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconScrollEvent obj cb after = liftIO $ do - cb' <- mkStatusIconScrollEventCallback (statusIconScrollEventCallbackWrapper cb) - connectSignalFunPtr obj "scroll-event" cb' after - --- signal StatusIcon::size-changed -type StatusIconSizeChangedCallback = - Int32 -> - IO Bool - -noStatusIconSizeChangedCallback :: Maybe StatusIconSizeChangedCallback -noStatusIconSizeChangedCallback = Nothing - -type StatusIconSizeChangedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkStatusIconSizeChangedCallback :: StatusIconSizeChangedCallbackC -> IO (FunPtr StatusIconSizeChangedCallbackC) - -statusIconSizeChangedClosure :: StatusIconSizeChangedCallback -> IO Closure -statusIconSizeChangedClosure cb = newCClosure =<< mkStatusIconSizeChangedCallback wrapped - where wrapped = statusIconSizeChangedCallbackWrapper cb - -statusIconSizeChangedCallbackWrapper :: - StatusIconSizeChangedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO CInt -statusIconSizeChangedCallbackWrapper _cb _ size _ = do - result <- _cb size - let result' = (fromIntegral . fromEnum) result - return result' - -onStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId -onStatusIconSizeChanged obj cb = liftIO $ connectStatusIconSizeChanged obj cb SignalConnectBefore -afterStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId -afterStatusIconSizeChanged obj cb = connectStatusIconSizeChanged obj cb SignalConnectAfter - -connectStatusIconSizeChanged :: (GObject a, MonadIO m) => - a -> StatusIconSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusIconSizeChanged obj cb after = liftIO $ do - cb' <- mkStatusIconSizeChangedCallback (statusIconSizeChangedCallbackWrapper cb) - connectSignalFunPtr obj "size-changed" cb' after - --- VVV Prop "embedded" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getStatusIconEmbedded :: (MonadIO m, StatusIconK o) => o -> m Bool -getStatusIconEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded" - -data StatusIconEmbeddedPropertyInfo -instance AttrInfo StatusIconEmbeddedPropertyInfo where - type AttrAllowedOps StatusIconEmbeddedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint StatusIconEmbeddedPropertyInfo = (~) () - type AttrBaseTypeConstraint StatusIconEmbeddedPropertyInfo = StatusIconK - type AttrGetType StatusIconEmbeddedPropertyInfo = Bool - type AttrLabel StatusIconEmbeddedPropertyInfo = "embedded" - attrGet _ = getStatusIconEmbedded - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setStatusIconFile :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val) - -constructStatusIconFile :: T.Text -> IO ([Char], GValue) -constructStatusIconFile val = constructObjectPropertyString "file" (Just val) - -clearStatusIconFile :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) - -data StatusIconFilePropertyInfo -instance AttrInfo StatusIconFilePropertyInfo where - type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconFilePropertyInfo = StatusIconK - type AttrGetType StatusIconFilePropertyInfo = () - type AttrLabel StatusIconFilePropertyInfo = "file" - attrGet _ = undefined - attrSet _ = setStatusIconFile - attrConstruct _ = constructStatusIconFile - attrClear _ = clearStatusIconFile - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m Gio.Icon -getStatusIconGicon obj = liftIO $ checkUnexpectedNothing "getStatusIconGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon - -setStatusIconGicon :: (MonadIO m, StatusIconK o, Gio.IconK a) => o -> a -> m () -setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) - -constructStatusIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructStatusIconGicon val = constructObjectPropertyObject "gicon" (Just val) - -clearStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) - -data StatusIconGiconPropertyInfo -instance AttrInfo StatusIconGiconPropertyInfo where - type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = StatusIconK - type AttrGetType StatusIconGiconPropertyInfo = Gio.Icon - type AttrLabel StatusIconGiconPropertyInfo = "gicon" - attrGet _ = getStatusIconGicon - attrSet _ = setStatusIconGicon - attrConstruct _ = constructStatusIconGicon - attrClear _ = clearStatusIconGicon - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStatusIconHasTooltip :: (MonadIO m, StatusIconK o) => o -> m Bool -getStatusIconHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" - -setStatusIconHasTooltip :: (MonadIO m, StatusIconK o) => o -> Bool -> m () -setStatusIconHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val - -constructStatusIconHasTooltip :: Bool -> IO ([Char], GValue) -constructStatusIconHasTooltip val = constructObjectPropertyBool "has-tooltip" val - -data StatusIconHasTooltipPropertyInfo -instance AttrInfo StatusIconHasTooltipPropertyInfo where - type AttrAllowedOps StatusIconHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconHasTooltipPropertyInfo = (~) Bool - type AttrBaseTypeConstraint StatusIconHasTooltipPropertyInfo = StatusIconK - type AttrGetType StatusIconHasTooltipPropertyInfo = Bool - type AttrLabel StatusIconHasTooltipPropertyInfo = "has-tooltip" - attrGet _ = getStatusIconHasTooltip - attrSet _ = setStatusIconHasTooltip - attrConstruct _ = constructStatusIconHasTooltip - attrClear _ = undefined - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconIconName obj = liftIO $ checkUnexpectedNothing "getStatusIconIconName" $ getObjectPropertyString obj "icon-name" - -setStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructStatusIconIconName :: T.Text -> IO ([Char], GValue) -constructStatusIconIconName val = constructObjectPropertyString "icon-name" (Just val) - -clearStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) - -data StatusIconIconNamePropertyInfo -instance AttrInfo StatusIconIconNamePropertyInfo where - type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = StatusIconK - type AttrGetType StatusIconIconNamePropertyInfo = T.Text - type AttrLabel StatusIconIconNamePropertyInfo = "icon-name" - attrGet _ = getStatusIconIconName - attrSet _ = setStatusIconIconName - attrConstruct _ = constructStatusIconIconName - attrClear _ = clearStatusIconIconName - --- VVV Prop "orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getStatusIconOrientation :: (MonadIO m, StatusIconK o) => o -> m Orientation -getStatusIconOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" - -data StatusIconOrientationPropertyInfo -instance AttrInfo StatusIconOrientationPropertyInfo where - type AttrAllowedOps StatusIconOrientationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint StatusIconOrientationPropertyInfo = (~) () - type AttrBaseTypeConstraint StatusIconOrientationPropertyInfo = StatusIconK - type AttrGetType StatusIconOrientationPropertyInfo = Orientation - type AttrLabel StatusIconOrientationPropertyInfo = "orientation" - attrGet _ = getStatusIconOrientation - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m GdkPixbuf.Pixbuf -getStatusIconPixbuf obj = liftIO $ checkUnexpectedNothing "getStatusIconPixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf - -setStatusIconPixbuf :: (MonadIO m, StatusIconK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) - -constructStatusIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) - -clearStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data StatusIconPixbufPropertyInfo -instance AttrInfo StatusIconPixbufPropertyInfo where - type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = StatusIconK - type AttrGetType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel StatusIconPixbufPropertyInfo = "pixbuf" - attrGet _ = getStatusIconPixbuf - attrSet _ = setStatusIconPixbuf - attrConstruct _ = constructStatusIconPixbuf - attrClear _ = clearStatusIconPixbuf - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStatusIconScreen :: (MonadIO m, StatusIconK o) => o -> m Gdk.Screen -getStatusIconScreen obj = liftIO $ checkUnexpectedNothing "getStatusIconScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen - -setStatusIconScreen :: (MonadIO m, StatusIconK o, Gdk.ScreenK a) => o -> a -> m () -setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) - -constructStatusIconScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStatusIconScreen val = constructObjectPropertyObject "screen" (Just val) - -data StatusIconScreenPropertyInfo -instance AttrInfo StatusIconScreenPropertyInfo where - type AttrAllowedOps StatusIconScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint StatusIconScreenPropertyInfo = StatusIconK - type AttrGetType StatusIconScreenPropertyInfo = Gdk.Screen - type AttrLabel StatusIconScreenPropertyInfo = "screen" - attrGet _ = getStatusIconScreen - attrSet _ = setStatusIconScreen - attrConstruct _ = constructStatusIconScreen - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getStatusIconSize :: (MonadIO m, StatusIconK o) => o -> m Int32 -getStatusIconSize obj = liftIO $ getObjectPropertyInt32 obj "size" - -data StatusIconSizePropertyInfo -instance AttrInfo StatusIconSizePropertyInfo where - type AttrAllowedOps StatusIconSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint StatusIconSizePropertyInfo = (~) () - type AttrBaseTypeConstraint StatusIconSizePropertyInfo = StatusIconK - type AttrGetType StatusIconSizePropertyInfo = Int32 - type AttrLabel StatusIconSizePropertyInfo = "size" - attrGet _ = getStatusIconSize - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconStock obj = liftIO $ checkUnexpectedNothing "getStatusIconStock" $ getObjectPropertyString obj "stock" - -setStatusIconStock :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val) - -constructStatusIconStock :: T.Text -> IO ([Char], GValue) -constructStatusIconStock val = constructObjectPropertyString "stock" (Just val) - -clearStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) - -data StatusIconStockPropertyInfo -instance AttrInfo StatusIconStockPropertyInfo where - type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconStockPropertyInfo = StatusIconK - type AttrGetType StatusIconStockPropertyInfo = T.Text - type AttrLabel StatusIconStockPropertyInfo = "stock" - attrGet _ = getStatusIconStock - attrSet _ = setStatusIconStock - attrConstruct _ = constructStatusIconStock - attrClear _ = clearStatusIconStock - --- VVV Prop "storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getStatusIconStorageType :: (MonadIO m, StatusIconK o) => o -> m ImageType -getStatusIconStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type" - -data StatusIconStorageTypePropertyInfo -instance AttrInfo StatusIconStorageTypePropertyInfo where - type AttrAllowedOps StatusIconStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint StatusIconStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint StatusIconStorageTypePropertyInfo = StatusIconK - type AttrGetType StatusIconStorageTypePropertyInfo = ImageType - type AttrLabel StatusIconStorageTypePropertyInfo = "storage-type" - attrGet _ = getStatusIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconTitle obj = liftIO $ checkUnexpectedNothing "getStatusIconTitle" $ getObjectPropertyString obj "title" - -setStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructStatusIconTitle :: T.Text -> IO ([Char], GValue) -constructStatusIconTitle val = constructObjectPropertyString "title" (Just val) - -data StatusIconTitlePropertyInfo -instance AttrInfo StatusIconTitlePropertyInfo where - type AttrAllowedOps StatusIconTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconTitlePropertyInfo = StatusIconK - type AttrGetType StatusIconTitlePropertyInfo = T.Text - type AttrLabel StatusIconTitlePropertyInfo = "title" - attrGet _ = getStatusIconTitle - attrSet _ = setStatusIconTitle - attrConstruct _ = constructStatusIconTitle - attrClear _ = undefined - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m (Maybe T.Text) -getStatusIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" - -setStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" (Just val) - -constructStatusIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" (Just val) - -clearStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m () -clearStatusIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text) - -data StatusIconTooltipMarkupPropertyInfo -instance AttrInfo StatusIconTooltipMarkupPropertyInfo where - type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = StatusIconK - type AttrGetType StatusIconTooltipMarkupPropertyInfo = (Maybe T.Text) - type AttrLabel StatusIconTooltipMarkupPropertyInfo = "tooltip-markup" - attrGet _ = getStatusIconTooltipMarkup - attrSet _ = setStatusIconTooltipMarkup - attrConstruct _ = constructStatusIconTooltipMarkup - attrClear _ = clearStatusIconTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> m (Maybe T.Text) -getStatusIconTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" - -setStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" (Just val) - -constructStatusIconTooltipText :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" (Just val) - -data StatusIconTooltipTextPropertyInfo -instance AttrInfo StatusIconTooltipTextPropertyInfo where - type AttrAllowedOps StatusIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconTooltipTextPropertyInfo = StatusIconK - type AttrGetType StatusIconTooltipTextPropertyInfo = (Maybe T.Text) - type AttrLabel StatusIconTooltipTextPropertyInfo = "tooltip-text" - attrGet _ = getStatusIconTooltipText - attrSet _ = setStatusIconTooltipText - attrConstruct _ = constructStatusIconTooltipText - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStatusIconVisible :: (MonadIO m, StatusIconK o) => o -> m Bool -getStatusIconVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setStatusIconVisible :: (MonadIO m, StatusIconK o) => o -> Bool -> m () -setStatusIconVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructStatusIconVisible :: Bool -> IO ([Char], GValue) -constructStatusIconVisible val = constructObjectPropertyBool "visible" val - -data StatusIconVisiblePropertyInfo -instance AttrInfo StatusIconVisiblePropertyInfo where - type AttrAllowedOps StatusIconVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint StatusIconVisiblePropertyInfo = StatusIconK - type AttrGetType StatusIconVisiblePropertyInfo = Bool - type AttrLabel StatusIconVisiblePropertyInfo = "visible" - attrGet _ = getStatusIconVisible - attrSet _ = setStatusIconVisible - attrConstruct _ = constructStatusIconVisible - attrClear _ = undefined - -type instance AttributeList StatusIcon = StatusIconAttributeList -type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("hasTooltip", StatusIconHasTooltipPropertyInfo), '("iconName", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storageType", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltipMarkup", StatusIconTooltipMarkupPropertyInfo), '("tooltipText", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, *)]) - -statusIconEmbedded :: AttrLabelProxy "embedded" -statusIconEmbedded = AttrLabelProxy - -statusIconFile :: AttrLabelProxy "file" -statusIconFile = AttrLabelProxy - -statusIconGicon :: AttrLabelProxy "gicon" -statusIconGicon = AttrLabelProxy - -statusIconHasTooltip :: AttrLabelProxy "hasTooltip" -statusIconHasTooltip = AttrLabelProxy - -statusIconIconName :: AttrLabelProxy "iconName" -statusIconIconName = AttrLabelProxy - -statusIconOrientation :: AttrLabelProxy "orientation" -statusIconOrientation = AttrLabelProxy - -statusIconPixbuf :: AttrLabelProxy "pixbuf" -statusIconPixbuf = AttrLabelProxy - -statusIconScreen :: AttrLabelProxy "screen" -statusIconScreen = AttrLabelProxy - -statusIconSize :: AttrLabelProxy "size" -statusIconSize = AttrLabelProxy - -statusIconStock :: AttrLabelProxy "stock" -statusIconStock = AttrLabelProxy - -statusIconStorageType :: AttrLabelProxy "storageType" -statusIconStorageType = AttrLabelProxy - -statusIconTitle :: AttrLabelProxy "title" -statusIconTitle = AttrLabelProxy - -statusIconTooltipMarkup :: AttrLabelProxy "tooltipMarkup" -statusIconTooltipMarkup = AttrLabelProxy - -statusIconTooltipText :: AttrLabelProxy "tooltipText" -statusIconTooltipText = AttrLabelProxy - -statusIconVisible :: AttrLabelProxy "visible" -statusIconVisible = AttrLabelProxy - -data StatusIconActivateSignalInfo -instance SignalInfo StatusIconActivateSignalInfo where - type HaskellCallbackType StatusIconActivateSignalInfo = StatusIconActivateCallback - connectSignal _ = connectStatusIconActivate - -data StatusIconButtonPressEventSignalInfo -instance SignalInfo StatusIconButtonPressEventSignalInfo where - type HaskellCallbackType StatusIconButtonPressEventSignalInfo = StatusIconButtonPressEventCallback - connectSignal _ = connectStatusIconButtonPressEvent - -data StatusIconButtonReleaseEventSignalInfo -instance SignalInfo StatusIconButtonReleaseEventSignalInfo where - type HaskellCallbackType StatusIconButtonReleaseEventSignalInfo = StatusIconButtonReleaseEventCallback - connectSignal _ = connectStatusIconButtonReleaseEvent - -data StatusIconPopupMenuSignalInfo -instance SignalInfo StatusIconPopupMenuSignalInfo where - type HaskellCallbackType StatusIconPopupMenuSignalInfo = StatusIconPopupMenuCallback - connectSignal _ = connectStatusIconPopupMenu - -data StatusIconQueryTooltipSignalInfo -instance SignalInfo StatusIconQueryTooltipSignalInfo where - type HaskellCallbackType StatusIconQueryTooltipSignalInfo = StatusIconQueryTooltipCallback - connectSignal _ = connectStatusIconQueryTooltip - -data StatusIconScrollEventSignalInfo -instance SignalInfo StatusIconScrollEventSignalInfo where - type HaskellCallbackType StatusIconScrollEventSignalInfo = StatusIconScrollEventCallback - connectSignal _ = connectStatusIconScrollEvent - -data StatusIconSizeChangedSignalInfo -instance SignalInfo StatusIconSizeChangedSignalInfo where - type HaskellCallbackType StatusIconSizeChangedSignalInfo = StatusIconSizeChangedCallback - connectSignal _ = connectStatusIconSizeChanged - -type instance SignalList StatusIcon = StatusIconSignalList -type StatusIconSignalList = ('[ '("activate", StatusIconActivateSignalInfo), '("buttonPressEvent", StatusIconButtonPressEventSignalInfo), '("buttonReleaseEvent", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("popupMenu", StatusIconPopupMenuSignalInfo), '("queryTooltip", StatusIconQueryTooltipSignalInfo), '("scrollEvent", StatusIconScrollEventSignalInfo), '("sizeChanged", StatusIconSizeChangedSignalInfo)] :: [(Symbol, *)]) - --- method StatusIcon::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new" gtk_status_icon_new :: - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNew ["(Since version 3.14)","Use notifications"]#-} -statusIconNew :: - (MonadIO m) => - m StatusIcon -- result -statusIconNew = liftIO $ do - result <- gtk_status_icon_new - checkUnexpectedReturnNULL "gtk_status_icon_new" result - result' <- (wrapObject StatusIcon) result - return result' - --- method StatusIcon::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new_from_file" gtk_status_icon_new_from_file :: - CString -> -- filename : TBasicType TFileName - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNewFromFile ["(Since version 3.14)","Use notifications"]#-} -statusIconNewFromFile :: - (MonadIO m) => - [Char] -- filename - -> m StatusIcon -- result -statusIconNewFromFile filename = liftIO $ do - filename' <- stringToCString filename - result <- gtk_status_icon_new_from_file filename' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_file" result - result' <- (wrapObject StatusIcon) result - freeMem filename' - return result' - --- method StatusIcon::new_from_gicon --- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new_from_gicon" gtk_status_icon_new_from_gicon :: - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNewFromGicon ["(Since version 3.14)","Use notifications"]#-} -statusIconNewFromGicon :: - (MonadIO m, Gio.IconK a) => - a -- icon - -> m StatusIcon -- result -statusIconNewFromGicon icon = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - result <- gtk_status_icon_new_from_gicon icon' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_gicon" result - result' <- (wrapObject StatusIcon) result - touchManagedPtr icon - return result' - --- method StatusIcon::new_from_icon_name --- method type : Constructor --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new_from_icon_name" gtk_status_icon_new_from_icon_name :: - CString -> -- icon_name : TBasicType TUTF8 - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNewFromIconName ["(Since version 3.14)","Use notifications"]#-} -statusIconNewFromIconName :: - (MonadIO m) => - T.Text -- iconName - -> m StatusIcon -- result -statusIconNewFromIconName iconName = liftIO $ do - iconName' <- textToCString iconName - result <- gtk_status_icon_new_from_icon_name iconName' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_icon_name" result - result' <- (wrapObject StatusIcon) result - freeMem iconName' - return result' - --- method StatusIcon::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new_from_pixbuf" gtk_status_icon_new_from_pixbuf :: - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNewFromPixbuf ["(Since version 3.14)","Use notifications"]#-} -statusIconNewFromPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - a -- pixbuf - -> m StatusIcon -- result -statusIconNewFromPixbuf pixbuf = liftIO $ do - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_status_icon_new_from_pixbuf pixbuf' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_pixbuf" result - result' <- (wrapObject StatusIcon) result - touchManagedPtr pixbuf - return result' - --- method StatusIcon::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StatusIcon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_new_from_stock" gtk_status_icon_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr StatusIcon) - -{-# DEPRECATED statusIconNewFromStock ["(Since version 3.10)","Use gtk_status_icon_new_from_icon_name() instead."]#-} -statusIconNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> m StatusIcon -- result -statusIconNewFromStock stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_status_icon_new_from_stock stockId' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_stock" result - result' <- (wrapObject StatusIcon) result - freeMem stockId' - return result' - --- method StatusIcon::get_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_status_icon_get_geometry" gtk_status_icon_get_geometry :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - Ptr (Ptr Gdk.Screen) -> -- screen : TInterface "Gdk" "Screen" - Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" - Ptr CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO CInt - -{-# DEPRECATED statusIconGetGeometry ["(Since version 3.14)","Use notifications"]#-} -statusIconGetGeometry :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation)-- result -statusIconGetGeometry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - screen <- allocMem :: IO (Ptr (Ptr Gdk.Screen)) - area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - orientation <- allocMem :: IO (Ptr CUInt) - result <- gtk_status_icon_get_geometry _obj' screen area orientation - let result' = (/= 0) result - screen' <- peek screen - screen'' <- (newObject Gdk.Screen) screen' - area' <- (wrapBoxed Gdk.Rectangle) area - orientation' <- peek orientation - let orientation'' = (toEnum . fromIntegral) orientation' - touchManagedPtr _obj - freeMem screen - freeMem orientation - return (result', screen'', area', orientation'') - -data StatusIconGetGeometryMethodInfo -instance (signature ~ (m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation)), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetGeometryMethodInfo a signature where - overloadedMethod _ = statusIconGetGeometry - --- method StatusIcon::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_get_gicon" gtk_status_icon_get_gicon :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO (Ptr Gio.Icon) - -{-# DEPRECATED statusIconGetGicon ["(Since version 3.14)","Use notifications"]#-} -statusIconGetGicon :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Gio.Icon -- result -statusIconGetGicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_gicon _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_gicon" result - result' <- (newObject Gio.Icon) result - touchManagedPtr _obj - return result' - -data StatusIconGetGiconMethodInfo -instance (signature ~ (m Gio.Icon), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetGiconMethodInfo a signature where - overloadedMethod _ = statusIconGetGicon - --- method StatusIcon::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_has_tooltip" gtk_status_icon_get_has_tooltip :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CInt - -{-# DEPRECATED statusIconGetHasTooltip ["(Since version 3.14)","Use notifications"]#-} -statusIconGetHasTooltip :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Bool -- result -statusIconGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StatusIconGetHasTooltipMethodInfo -instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetHasTooltipMethodInfo a signature where - overloadedMethod _ = statusIconGetHasTooltip - --- method StatusIcon::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_icon_name" gtk_status_icon_get_icon_name :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CString - -{-# DEPRECATED statusIconGetIconName ["(Since version 3.14)","Use notifications"]#-} -statusIconGetIconName :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m T.Text -- result -statusIconGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data StatusIconGetIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetIconNameMethodInfo a signature where - overloadedMethod _ = statusIconGetIconName - --- method StatusIcon::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_get_pixbuf" gtk_status_icon_get_pixbuf :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED statusIconGetPixbuf ["(Since version 3.14)","Use notifications"]#-} -statusIconGetPixbuf :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -statusIconGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data StatusIconGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetPixbufMethodInfo a signature where - overloadedMethod _ = statusIconGetPixbuf - --- method StatusIcon::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_get_screen" gtk_status_icon_get_screen :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO (Ptr Gdk.Screen) - -{-# DEPRECATED statusIconGetScreen ["(Since version 3.14)","Use notifications"]#-} -statusIconGetScreen :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Gdk.Screen -- result -statusIconGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_screen _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data StatusIconGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetScreenMethodInfo a signature where - overloadedMethod _ = statusIconGetScreen - --- method StatusIcon::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_size" gtk_status_icon_get_size :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO Int32 - -{-# DEPRECATED statusIconGetSize ["(Since version 3.14)","Use notifications"]#-} -statusIconGetSize :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Int32 -- result -statusIconGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_size _obj' - touchManagedPtr _obj - return result - -data StatusIconGetSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetSizeMethodInfo a signature where - overloadedMethod _ = statusIconGetSize - --- method StatusIcon::get_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_stock" gtk_status_icon_get_stock :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CString - -{-# DEPRECATED statusIconGetStock ["(Since version 3.10)","Use gtk_status_icon_get_icon_name() instead."]#-} -statusIconGetStock :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m T.Text -- result -statusIconGetStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_stock _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_stock" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data StatusIconGetStockMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetStockMethodInfo a signature where - overloadedMethod _ = statusIconGetStock - --- method StatusIcon::get_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ImageType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_get_storage_type" gtk_status_icon_get_storage_type :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CUInt - -{-# DEPRECATED statusIconGetStorageType ["(Since version 3.14)","Use notifications"]#-} -statusIconGetStorageType :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m ImageType -- result -statusIconGetStorageType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_storage_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data StatusIconGetStorageTypeMethodInfo -instance (signature ~ (m ImageType), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetStorageTypeMethodInfo a signature where - overloadedMethod _ = statusIconGetStorageType - --- method StatusIcon::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_title" gtk_status_icon_get_title :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CString - -{-# DEPRECATED statusIconGetTitle ["(Since version 3.14)","Use notifications"]#-} -statusIconGetTitle :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m T.Text -- result -statusIconGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_title _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data StatusIconGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTitleMethodInfo a signature where - overloadedMethod _ = statusIconGetTitle - --- method StatusIcon::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_tooltip_markup" gtk_status_icon_get_tooltip_markup :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CString - -{-# DEPRECATED statusIconGetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-} -statusIconGetTooltipMarkup :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m T.Text -- result -statusIconGetTooltipMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_tooltip_markup _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data StatusIconGetTooltipMarkupMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = statusIconGetTooltipMarkup - --- method StatusIcon::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_tooltip_text" gtk_status_icon_get_tooltip_text :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CString - -{-# DEPRECATED statusIconGetTooltipText ["(Since version 3.14)","Use notifications"]#-} -statusIconGetTooltipText :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m T.Text -- result -statusIconGetTooltipText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_tooltip_text _obj' - checkUnexpectedReturnNULL "gtk_status_icon_get_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data StatusIconGetTooltipTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTooltipTextMethodInfo a signature where - overloadedMethod _ = statusIconGetTooltipText - --- method StatusIcon::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_get_visible" gtk_status_icon_get_visible :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CInt - -{-# DEPRECATED statusIconGetVisible ["(Since version 3.14)","Use notifications"]#-} -statusIconGetVisible :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Bool -- result -statusIconGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StatusIconGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetVisibleMethodInfo a signature where - overloadedMethod _ = statusIconGetVisible - --- method StatusIcon::get_x11_window_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_get_x11_window_id" gtk_status_icon_get_x11_window_id :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO Word32 - -{-# DEPRECATED statusIconGetX11WindowId ["(Since version 3.14)","Use notifications"]#-} -statusIconGetX11WindowId :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Word32 -- result -statusIconGetX11WindowId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_x11_window_id _obj' - touchManagedPtr _obj - return result - -data StatusIconGetX11WindowIdMethodInfo -instance (signature ~ (m Word32), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetX11WindowIdMethodInfo a signature where - overloadedMethod _ = statusIconGetX11WindowId - --- method StatusIcon::is_embedded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_is_embedded" gtk_status_icon_is_embedded :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - IO CInt - -{-# DEPRECATED statusIconIsEmbedded ["(Since version 3.14)","Use notifications"]#-} -statusIconIsEmbedded :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> m Bool -- result -statusIconIsEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_is_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StatusIconIsEmbeddedMethodInfo -instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconIsEmbeddedMethodInfo a signature where - overloadedMethod _ = statusIconIsEmbedded - --- method StatusIcon::set_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_status_icon_set_from_file" gtk_status_icon_set_from_file :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- filename : TBasicType TFileName - IO () - -{-# DEPRECATED statusIconSetFromFile ["(Since version 3.14)","Use notifications"]#-} -statusIconSetFromFile :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> [Char] -- filename - -> m () -- result -statusIconSetFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - gtk_status_icon_set_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - -data StatusIconSetFromFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromFileMethodInfo a signature where - overloadedMethod _ = statusIconSetFromFile - --- method StatusIcon::set_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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 "gtk_status_icon_set_from_gicon" gtk_status_icon_set_from_gicon :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - -{-# DEPRECATED statusIconSetFromGicon ["(Since version 3.14)","Use notifications"]#-} -statusIconSetFromGicon :: - (MonadIO m, StatusIconK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -statusIconSetFromGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_status_icon_set_from_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data StatusIconSetFromGiconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StatusIconK a, Gio.IconK b) => MethodInfo StatusIconSetFromGiconMethodInfo a signature where - overloadedMethod _ = statusIconSetFromGicon - --- method StatusIcon::set_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_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 "gtk_status_icon_set_from_icon_name" gtk_status_icon_set_from_icon_name :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- icon_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetFromIconName ["(Since version 3.14)","Use notifications"]#-} -statusIconSetFromIconName :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> T.Text -- iconName - -> m () -- result -statusIconSetFromIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - gtk_status_icon_set_from_icon_name _obj' iconName' - touchManagedPtr _obj - freeMem iconName' - return () - -data StatusIconSetFromIconNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromIconNameMethodInfo a signature where - overloadedMethod _ = statusIconSetFromIconName - --- method StatusIcon::set_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_set_from_pixbuf" gtk_status_icon_set_from_pixbuf :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - -{-# DEPRECATED statusIconSetFromPixbuf ["(Since version 3.14)","Use notifications"]#-} -statusIconSetFromPixbuf :: - (MonadIO m, StatusIconK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> Maybe (b) -- pixbuf - -> m () -- result -statusIconSetFromPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_status_icon_set_from_pixbuf _obj' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - -data StatusIconSetFromPixbufMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StatusIconK a, GdkPixbuf.PixbufK b) => MethodInfo StatusIconSetFromPixbufMethodInfo a signature where - overloadedMethod _ = statusIconSetFromPixbuf - --- method StatusIcon::set_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_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 "gtk_status_icon_set_from_stock" gtk_status_icon_set_from_stock :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetFromStock ["(Since version 3.10)","Use gtk_status_icon_set_from_icon_name() instead."]#-} -statusIconSetFromStock :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> T.Text -- stockId - -> m () -- result -statusIconSetFromStock _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - gtk_status_icon_set_from_stock _obj' stockId' - touchManagedPtr _obj - freeMem stockId' - return () - -data StatusIconSetFromStockMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromStockMethodInfo a signature where - overloadedMethod _ = statusIconSetFromStock - --- method StatusIcon::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", 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 "gtk_status_icon_set_has_tooltip" gtk_status_icon_set_has_tooltip :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CInt -> -- has_tooltip : TBasicType TBoolean - IO () - -{-# DEPRECATED statusIconSetHasTooltip ["(Since version 3.14)","Use notifications"]#-} -statusIconSetHasTooltip :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> Bool -- hasTooltip - -> m () -- result -statusIconSetHasTooltip _obj hasTooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasTooltip' = (fromIntegral . fromEnum) hasTooltip - gtk_status_icon_set_has_tooltip _obj' hasTooltip' - touchManagedPtr _obj - return () - -data StatusIconSetHasTooltipMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetHasTooltipMethodInfo a signature where - overloadedMethod _ = statusIconSetHasTooltip - --- method StatusIcon::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_set_name" gtk_status_icon_set_name :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetName ["(Since version 3.14)","Use notifications"]#-} -statusIconSetName :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -statusIconSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_status_icon_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data StatusIconSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetNameMethodInfo a signature where - overloadedMethod _ = statusIconSetName - --- method StatusIcon::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_status_icon_set_screen" gtk_status_icon_set_screen :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - -{-# DEPRECATED statusIconSetScreen ["(Since version 3.14)","Use notifications"]#-} -statusIconSetScreen :: - (MonadIO m, StatusIconK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -statusIconSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_status_icon_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data StatusIconSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StatusIconK a, Gdk.ScreenK b) => MethodInfo StatusIconSetScreenMethodInfo a signature where - overloadedMethod _ = statusIconSetScreen - --- method StatusIcon::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_status_icon_set_title" gtk_status_icon_set_title :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- title : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetTitle ["(Since version 3.14)","Use notifications"]#-} -statusIconSetTitle :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -statusIconSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_status_icon_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data StatusIconSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTitleMethodInfo a signature where - overloadedMethod _ = statusIconSetTitle - --- method StatusIcon::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_status_icon_set_tooltip_markup" gtk_status_icon_set_tooltip_markup :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- markup : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-} -statusIconSetTooltipMarkup :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> Maybe (T.Text) -- markup - -> m () -- result -statusIconSetTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_status_icon_set_tooltip_markup _obj' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - -data StatusIconSetTooltipMarkupMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = statusIconSetTooltipMarkup - --- method StatusIcon::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_status_icon_set_tooltip_text" gtk_status_icon_set_tooltip_text :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CString -> -- text : TBasicType TUTF8 - IO () - -{-# DEPRECATED statusIconSetTooltipText ["(Since version 3.14)","Use notifications"]#-} -statusIconSetTooltipText :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -statusIconSetTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_status_icon_set_tooltip_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data StatusIconSetTooltipTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTooltipTextMethodInfo a signature where - overloadedMethod _ = statusIconSetTooltipText - --- method StatusIcon::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_status_icon_set_visible" gtk_status_icon_set_visible :: - Ptr StatusIcon -> -- _obj : TInterface "Gtk" "StatusIcon" - CInt -> -- visible : TBasicType TBoolean - IO () - -{-# DEPRECATED statusIconSetVisible ["(Since version 3.14)","Use notifications"]#-} -statusIconSetVisible :: - (MonadIO m, StatusIconK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -statusIconSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_status_icon_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data StatusIconSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetVisibleMethodInfo a signature where - overloadedMethod _ = statusIconSetVisible - --- method StatusIcon::position_menu --- method type : MemberFunction --- Args : [Arg {argCName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TInterface "Gtk" "StatusIcon", 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 "gtk_status_icon_position_menu" gtk_status_icon_position_menu :: - Ptr Menu -> -- menu : TInterface "Gtk" "Menu" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - Ptr CInt -> -- push_in : TBasicType TBoolean - Ptr StatusIcon -> -- user_data : TInterface "Gtk" "StatusIcon" - IO () - -{-# DEPRECATED statusIconPositionMenu ["(Since version 3.14)","Use notifications"]#-} -statusIconPositionMenu :: - (MonadIO m, MenuK a, StatusIconK b) => - a -- menu - -> Int32 -- x - -> Int32 -- y - -> b -- userData - -> m (Int32,Int32,Bool) -- result -statusIconPositionMenu menu x y userData = liftIO $ do - let menu' = unsafeManagedPtrCastPtr menu - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - pushIn <- allocMem :: IO (Ptr CInt) - let userData' = unsafeManagedPtrCastPtr userData - gtk_status_icon_position_menu menu' x' y' pushIn userData' - x'' <- peek x' - y'' <- peek y' - pushIn' <- peek pushIn - let pushIn'' = (/= 0) pushIn' - touchManagedPtr menu - touchManagedPtr userData - freeMem x' - freeMem y' - freeMem pushIn - return (x'', y'', pushIn'') - - diff --git a/GI/Gtk/Objects/StatusIcon.hs-boot b/GI/Gtk/Objects/StatusIcon.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StatusIcon.hs-boot +++ /dev/null @@ -1,62 +0,0 @@ -module GI.Gtk.Objects.StatusIcon 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 StatusIcon = StatusIcon (ForeignPtr StatusIcon) -instance GObject StatusIcon where -class GObject o => StatusIconK o -instance (GObject o, IsDescendantOf StatusIcon o) => StatusIconK o -data StatusIconEmbeddedPropertyInfo -data StatusIconFilePropertyInfo -data StatusIconGiconPropertyInfo -data StatusIconHasTooltipPropertyInfo -data StatusIconIconNamePropertyInfo -data StatusIconOrientationPropertyInfo -data StatusIconPixbufPropertyInfo -data StatusIconScreenPropertyInfo -data StatusIconSizePropertyInfo -data StatusIconStockPropertyInfo -data StatusIconStorageTypePropertyInfo -data StatusIconTitlePropertyInfo -data StatusIconTooltipMarkupPropertyInfo -data StatusIconTooltipTextPropertyInfo -data StatusIconVisiblePropertyInfo -data StatusIconActivateSignalInfo -data StatusIconButtonPressEventSignalInfo -data StatusIconButtonReleaseEventSignalInfo -data StatusIconPopupMenuSignalInfo -data StatusIconQueryTooltipSignalInfo -data StatusIconScrollEventSignalInfo -data StatusIconSizeChangedSignalInfo -data StatusIconGetGeometryMethodInfo -data StatusIconGetGiconMethodInfo -data StatusIconGetHasTooltipMethodInfo -data StatusIconGetIconNameMethodInfo -data StatusIconGetPixbufMethodInfo -data StatusIconGetScreenMethodInfo -data StatusIconGetSizeMethodInfo -data StatusIconGetStockMethodInfo -data StatusIconGetStorageTypeMethodInfo -data StatusIconGetTitleMethodInfo -data StatusIconGetTooltipMarkupMethodInfo -data StatusIconGetTooltipTextMethodInfo -data StatusIconGetVisibleMethodInfo -data StatusIconGetX11WindowIdMethodInfo -data StatusIconIsEmbeddedMethodInfo -data StatusIconSetFromFileMethodInfo -data StatusIconSetFromGiconMethodInfo -data StatusIconSetFromIconNameMethodInfo -data StatusIconSetFromPixbufMethodInfo -data StatusIconSetFromStockMethodInfo -data StatusIconSetHasTooltipMethodInfo -data StatusIconSetNameMethodInfo -data StatusIconSetScreenMethodInfo -data StatusIconSetTitleMethodInfo -data StatusIconSetTooltipMarkupMethodInfo -data StatusIconSetTooltipTextMethodInfo -data StatusIconSetVisibleMethodInfo diff --git a/GI/Gtk/Objects/Statusbar.hs b/GI/Gtk/Objects/Statusbar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Statusbar.hs +++ /dev/null @@ -1,768 +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.Gtk.Objects.Statusbar - ( - --- * Exported types - Statusbar(..) , - StatusbarK , - toStatusbar , - noStatusbar , - - - -- * Methods --- ** statusbarGetContextId - StatusbarGetContextIdMethodInfo , - statusbarGetContextId , - - --- ** statusbarGetMessageArea - StatusbarGetMessageAreaMethodInfo , - statusbarGetMessageArea , - - --- ** statusbarNew - statusbarNew , - - --- ** statusbarPop - StatusbarPopMethodInfo , - statusbarPop , - - --- ** statusbarPush - StatusbarPushMethodInfo , - statusbarPush , - - --- ** statusbarRemove - StatusbarRemoveMethodInfo , - statusbarRemove , - - --- ** statusbarRemoveAll - StatusbarRemoveAllMethodInfo , - statusbarRemoveAll , - - - - - -- * Signals --- ** TextPopped - StatusbarTextPoppedCallback , - StatusbarTextPoppedCallbackC , - StatusbarTextPoppedSignalInfo , - afterStatusbarTextPopped , - mkStatusbarTextPoppedCallback , - noStatusbarTextPoppedCallback , - onStatusbarTextPopped , - statusbarTextPoppedCallbackWrapper , - statusbarTextPoppedClosure , - - --- ** TextPushed - StatusbarTextPushedCallback , - StatusbarTextPushedCallbackC , - StatusbarTextPushedSignalInfo , - afterStatusbarTextPushed , - mkStatusbarTextPushedCallback , - noStatusbarTextPushedCallback , - onStatusbarTextPushed , - statusbarTextPushedCallbackWrapper , - statusbarTextPushedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Statusbar = Statusbar (ForeignPtr Statusbar) -foreign import ccall "gtk_statusbar_get_type" - c_gtk_statusbar_get_type :: IO GType - -type instance ParentTypes Statusbar = StatusbarParentTypes -type StatusbarParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject Statusbar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_statusbar_get_type - - -class GObject o => StatusbarK o -instance (GObject o, IsDescendantOf Statusbar o) => StatusbarK o - -toStatusbar :: StatusbarK o => o -> IO Statusbar -toStatusbar = unsafeCastTo Statusbar - -noStatusbar :: Maybe Statusbar -noStatusbar = Nothing - -type family ResolveStatusbarMethod (t :: Symbol) (o :: *) :: * where - ResolveStatusbarMethod "activate" o = WidgetActivateMethodInfo - ResolveStatusbarMethod "add" o = ContainerAddMethodInfo - ResolveStatusbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveStatusbarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveStatusbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveStatusbarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveStatusbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveStatusbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveStatusbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStatusbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStatusbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveStatusbarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveStatusbarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveStatusbarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveStatusbarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveStatusbarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveStatusbarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveStatusbarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveStatusbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveStatusbarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveStatusbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveStatusbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveStatusbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveStatusbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveStatusbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveStatusbarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveStatusbarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveStatusbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveStatusbarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveStatusbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveStatusbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveStatusbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveStatusbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveStatusbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveStatusbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveStatusbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveStatusbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveStatusbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveStatusbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveStatusbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveStatusbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveStatusbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveStatusbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveStatusbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveStatusbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveStatusbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveStatusbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveStatusbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveStatusbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveStatusbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveStatusbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveStatusbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveStatusbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveStatusbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveStatusbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveStatusbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveStatusbarMethod "draw" o = WidgetDrawMethodInfo - ResolveStatusbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveStatusbarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveStatusbarMethod "event" o = WidgetEventMethodInfo - ResolveStatusbarMethod "forall" o = ContainerForallMethodInfo - ResolveStatusbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStatusbarMethod "foreach" o = ContainerForeachMethodInfo - ResolveStatusbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveStatusbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStatusbarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveStatusbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveStatusbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveStatusbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveStatusbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveStatusbarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveStatusbarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveStatusbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveStatusbarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveStatusbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveStatusbarMethod "hide" o = WidgetHideMethodInfo - ResolveStatusbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveStatusbarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveStatusbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveStatusbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveStatusbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveStatusbarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveStatusbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveStatusbarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveStatusbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveStatusbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStatusbarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveStatusbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveStatusbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveStatusbarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveStatusbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveStatusbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveStatusbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveStatusbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveStatusbarMethod "map" o = WidgetMapMethodInfo - ResolveStatusbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveStatusbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveStatusbarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveStatusbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveStatusbarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveStatusbarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveStatusbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveStatusbarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveStatusbarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStatusbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStatusbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveStatusbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveStatusbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveStatusbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveStatusbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveStatusbarMethod "packEnd" o = BoxPackEndMethodInfo - ResolveStatusbarMethod "packStart" o = BoxPackStartMethodInfo - ResolveStatusbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveStatusbarMethod "path" o = WidgetPathMethodInfo - ResolveStatusbarMethod "pop" o = StatusbarPopMethodInfo - ResolveStatusbarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveStatusbarMethod "push" o = StatusbarPushMethodInfo - ResolveStatusbarMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveStatusbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveStatusbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveStatusbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveStatusbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveStatusbarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveStatusbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveStatusbarMethod "realize" o = WidgetRealizeMethodInfo - ResolveStatusbarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStatusbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStatusbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveStatusbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveStatusbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveStatusbarMethod "removeAll" o = StatusbarRemoveAllMethodInfo - ResolveStatusbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveStatusbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveStatusbarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveStatusbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveStatusbarMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveStatusbarMethod "reparent" o = WidgetReparentMethodInfo - ResolveStatusbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStatusbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStatusbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveStatusbarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveStatusbarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveStatusbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStatusbarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveStatusbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveStatusbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveStatusbarMethod "show" o = WidgetShowMethodInfo - ResolveStatusbarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveStatusbarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveStatusbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveStatusbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveStatusbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveStatusbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStatusbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStatusbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveStatusbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveStatusbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveStatusbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStatusbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveStatusbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveStatusbarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveStatusbarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveStatusbarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveStatusbarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStatusbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveStatusbarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveStatusbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveStatusbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStatusbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveStatusbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveStatusbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveStatusbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveStatusbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveStatusbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveStatusbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveStatusbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveStatusbarMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveStatusbarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveStatusbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveStatusbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveStatusbarMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveStatusbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveStatusbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveStatusbarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveStatusbarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveStatusbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveStatusbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveStatusbarMethod "getContextId" o = StatusbarGetContextIdMethodInfo - ResolveStatusbarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStatusbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveStatusbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveStatusbarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveStatusbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveStatusbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveStatusbarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveStatusbarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveStatusbarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveStatusbarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveStatusbarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveStatusbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveStatusbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveStatusbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveStatusbarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveStatusbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveStatusbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveStatusbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveStatusbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveStatusbarMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveStatusbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveStatusbarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveStatusbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveStatusbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveStatusbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveStatusbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveStatusbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveStatusbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveStatusbarMethod "getMessageArea" o = StatusbarGetMessageAreaMethodInfo - ResolveStatusbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveStatusbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveStatusbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveStatusbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveStatusbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveStatusbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveStatusbarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveStatusbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveStatusbarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveStatusbarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveStatusbarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveStatusbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveStatusbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveStatusbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveStatusbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveStatusbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveStatusbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveStatusbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStatusbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStatusbarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveStatusbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveStatusbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveStatusbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveStatusbarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveStatusbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveStatusbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveStatusbarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveStatusbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveStatusbarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveStatusbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveStatusbarMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveStatusbarMethod "getState" o = WidgetGetStateMethodInfo - ResolveStatusbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveStatusbarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveStatusbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveStatusbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveStatusbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveStatusbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveStatusbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveStatusbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveStatusbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveStatusbarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveStatusbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveStatusbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveStatusbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveStatusbarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveStatusbarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveStatusbarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveStatusbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveStatusbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveStatusbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveStatusbarMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveStatusbarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveStatusbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveStatusbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveStatusbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveStatusbarMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveStatusbarMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveStatusbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveStatusbarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveStatusbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveStatusbarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStatusbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveStatusbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveStatusbarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveStatusbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveStatusbarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveStatusbarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveStatusbarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveStatusbarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveStatusbarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveStatusbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveStatusbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveStatusbarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveStatusbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveStatusbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveStatusbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveStatusbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveStatusbarMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveStatusbarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveStatusbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveStatusbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveStatusbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveStatusbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveStatusbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveStatusbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveStatusbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveStatusbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveStatusbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveStatusbarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveStatusbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveStatusbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStatusbarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveStatusbarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveStatusbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveStatusbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveStatusbarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveStatusbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveStatusbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveStatusbarMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveStatusbarMethod "setState" o = WidgetSetStateMethodInfo - ResolveStatusbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveStatusbarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveStatusbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveStatusbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveStatusbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveStatusbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveStatusbarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveStatusbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveStatusbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveStatusbarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveStatusbarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveStatusbarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveStatusbarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStatusbarMethod t Statusbar, MethodInfo info Statusbar p) => IsLabelProxy t (Statusbar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStatusbarMethod t Statusbar, MethodInfo info Statusbar p) => IsLabel t (Statusbar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Statusbar::text-popped -type StatusbarTextPoppedCallback = - Word32 -> - T.Text -> - IO () - -noStatusbarTextPoppedCallback :: Maybe StatusbarTextPoppedCallback -noStatusbarTextPoppedCallback = Nothing - -type StatusbarTextPoppedCallbackC = - Ptr () -> -- object - Word32 -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStatusbarTextPoppedCallback :: StatusbarTextPoppedCallbackC -> IO (FunPtr StatusbarTextPoppedCallbackC) - -statusbarTextPoppedClosure :: StatusbarTextPoppedCallback -> IO Closure -statusbarTextPoppedClosure cb = newCClosure =<< mkStatusbarTextPoppedCallback wrapped - where wrapped = statusbarTextPoppedCallbackWrapper cb - -statusbarTextPoppedCallbackWrapper :: - StatusbarTextPoppedCallback -> - Ptr () -> - Word32 -> - CString -> - Ptr () -> - IO () -statusbarTextPoppedCallbackWrapper _cb _ contextId text _ = do - text' <- cstringToText text - _cb contextId text' - -onStatusbarTextPopped :: (GObject a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId -onStatusbarTextPopped obj cb = liftIO $ connectStatusbarTextPopped obj cb SignalConnectBefore -afterStatusbarTextPopped :: (GObject a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId -afterStatusbarTextPopped obj cb = connectStatusbarTextPopped obj cb SignalConnectAfter - -connectStatusbarTextPopped :: (GObject a, MonadIO m) => - a -> StatusbarTextPoppedCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusbarTextPopped obj cb after = liftIO $ do - cb' <- mkStatusbarTextPoppedCallback (statusbarTextPoppedCallbackWrapper cb) - connectSignalFunPtr obj "text-popped" cb' after - --- signal Statusbar::text-pushed -type StatusbarTextPushedCallback = - Word32 -> - T.Text -> - IO () - -noStatusbarTextPushedCallback :: Maybe StatusbarTextPushedCallback -noStatusbarTextPushedCallback = Nothing - -type StatusbarTextPushedCallbackC = - Ptr () -> -- object - Word32 -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStatusbarTextPushedCallback :: StatusbarTextPushedCallbackC -> IO (FunPtr StatusbarTextPushedCallbackC) - -statusbarTextPushedClosure :: StatusbarTextPushedCallback -> IO Closure -statusbarTextPushedClosure cb = newCClosure =<< mkStatusbarTextPushedCallback wrapped - where wrapped = statusbarTextPushedCallbackWrapper cb - -statusbarTextPushedCallbackWrapper :: - StatusbarTextPushedCallback -> - Ptr () -> - Word32 -> - CString -> - Ptr () -> - IO () -statusbarTextPushedCallbackWrapper _cb _ contextId text _ = do - text' <- cstringToText text - _cb contextId text' - -onStatusbarTextPushed :: (GObject a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId -onStatusbarTextPushed obj cb = liftIO $ connectStatusbarTextPushed obj cb SignalConnectBefore -afterStatusbarTextPushed :: (GObject a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId -afterStatusbarTextPushed obj cb = connectStatusbarTextPushed obj cb SignalConnectAfter - -connectStatusbarTextPushed :: (GObject a, MonadIO m) => - a -> StatusbarTextPushedCallback -> SignalConnectMode -> m SignalHandlerId -connectStatusbarTextPushed obj cb after = liftIO $ do - cb' <- mkStatusbarTextPushedCallback (statusbarTextPushedCallbackWrapper cb) - connectSignalFunPtr obj "text-pushed" cb' after - -type instance AttributeList Statusbar = StatusbarAttributeList -type StatusbarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data StatusbarTextPoppedSignalInfo -instance SignalInfo StatusbarTextPoppedSignalInfo where - type HaskellCallbackType StatusbarTextPoppedSignalInfo = StatusbarTextPoppedCallback - connectSignal _ = connectStatusbarTextPopped - -data StatusbarTextPushedSignalInfo -instance SignalInfo StatusbarTextPushedSignalInfo where - type HaskellCallbackType StatusbarTextPushedSignalInfo = StatusbarTextPushedCallback - connectSignal _ = connectStatusbarTextPushed - -type instance SignalList Statusbar = StatusbarSignalList -type StatusbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("textPopped", StatusbarTextPoppedSignalInfo), '("textPushed", StatusbarTextPushedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Statusbar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Statusbar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_new" gtk_statusbar_new :: - IO (Ptr Statusbar) - - -statusbarNew :: - (MonadIO m) => - m Statusbar -- result -statusbarNew = liftIO $ do - result <- gtk_statusbar_new - checkUnexpectedReturnNULL "gtk_statusbar_new" result - result' <- (newObject Statusbar) result - return result' - --- method Statusbar::get_context_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_get_context_id" gtk_statusbar_get_context_id :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - CString -> -- context_description : TBasicType TUTF8 - IO Word32 - - -statusbarGetContextId :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> T.Text -- contextDescription - -> m Word32 -- result -statusbarGetContextId _obj contextDescription = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contextDescription' <- textToCString contextDescription - result <- gtk_statusbar_get_context_id _obj' contextDescription' - touchManagedPtr _obj - freeMem contextDescription' - return result - -data StatusbarGetContextIdMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, StatusbarK a) => MethodInfo StatusbarGetContextIdMethodInfo a signature where - overloadedMethod _ = statusbarGetContextId - --- method Statusbar::get_message_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Box") --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_get_message_area" gtk_statusbar_get_message_area :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - IO (Ptr Box) - - -statusbarGetMessageArea :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> m Box -- result -statusbarGetMessageArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_statusbar_get_message_area _obj' - checkUnexpectedReturnNULL "gtk_statusbar_get_message_area" result - result' <- (newObject Box) result - touchManagedPtr _obj - return result' - -data StatusbarGetMessageAreaMethodInfo -instance (signature ~ (m Box), MonadIO m, StatusbarK a) => MethodInfo StatusbarGetMessageAreaMethodInfo a signature where - overloadedMethod _ = statusbarGetMessageArea - --- method Statusbar::pop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_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 "gtk_statusbar_pop" gtk_statusbar_pop :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt - IO () - - -statusbarPop :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> Word32 -- contextId - -> m () -- result -statusbarPop _obj contextId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_pop _obj' contextId - touchManagedPtr _obj - return () - -data StatusbarPopMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarPopMethodInfo a signature where - overloadedMethod _ = statusbarPop - --- method Statusbar::push --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_push" gtk_statusbar_push :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt - CString -> -- text : TBasicType TUTF8 - IO Word32 - - -statusbarPush :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> Word32 -- contextId - -> T.Text -- text - -> m Word32 -- result -statusbarPush _obj contextId text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - result <- gtk_statusbar_push _obj' contextId text' - touchManagedPtr _obj - freeMem text' - return result - -data StatusbarPushMethodInfo -instance (signature ~ (Word32 -> T.Text -> m Word32), MonadIO m, StatusbarK a) => MethodInfo StatusbarPushMethodInfo a signature where - overloadedMethod _ = statusbarPush - --- method Statusbar::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_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 "gtk_statusbar_remove" gtk_statusbar_remove :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt - Word32 -> -- message_id : TBasicType TUInt - IO () - - -statusbarRemove :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> Word32 -- contextId - -> Word32 -- messageId - -> m () -- result -statusbarRemove _obj contextId messageId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove _obj' contextId messageId - touchManagedPtr _obj - return () - -data StatusbarRemoveMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarRemoveMethodInfo a signature where - overloadedMethod _ = statusbarRemove - --- method Statusbar::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_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 "gtk_statusbar_remove_all" gtk_statusbar_remove_all :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt - IO () - - -statusbarRemoveAll :: - (MonadIO m, StatusbarK a) => - a -- _obj - -> Word32 -- contextId - -> m () -- result -statusbarRemoveAll _obj contextId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove_all _obj' contextId - touchManagedPtr _obj - return () - -data StatusbarRemoveAllMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarRemoveAllMethodInfo a signature where - overloadedMethod _ = statusbarRemoveAll - - diff --git a/GI/Gtk/Objects/Statusbar.hs-boot b/GI/Gtk/Objects/Statusbar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Statusbar.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.Statusbar 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 Statusbar = Statusbar (ForeignPtr Statusbar) -instance GObject Statusbar where -class GObject o => StatusbarK o -instance (GObject o, IsDescendantOf Statusbar o) => StatusbarK o -data StatusbarTextPoppedSignalInfo -data StatusbarTextPushedSignalInfo -data StatusbarGetContextIdMethodInfo -data StatusbarGetMessageAreaMethodInfo -data StatusbarPopMethodInfo -data StatusbarPushMethodInfo -data StatusbarRemoveMethodInfo -data StatusbarRemoveAllMethodInfo diff --git a/GI/Gtk/Objects/StatusbarAccessible.hs b/GI/Gtk/Objects/StatusbarAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StatusbarAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.StatusbarAccessible - ( - --- * Exported types - StatusbarAccessible(..) , - StatusbarAccessibleK , - toStatusbarAccessible , - noStatusbarAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype StatusbarAccessible = StatusbarAccessible (ForeignPtr StatusbarAccessible) -foreign import ccall "gtk_statusbar_accessible_get_type" - c_gtk_statusbar_accessible_get_type :: IO GType - -type instance ParentTypes StatusbarAccessible = StatusbarAccessibleParentTypes -type StatusbarAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject StatusbarAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_statusbar_accessible_get_type - - -class GObject o => StatusbarAccessibleK o -instance (GObject o, IsDescendantOf StatusbarAccessible o) => StatusbarAccessibleK o - -toStatusbarAccessible :: StatusbarAccessibleK o => o -> IO StatusbarAccessible -toStatusbarAccessible = unsafeCastTo StatusbarAccessible - -noStatusbarAccessible :: Maybe StatusbarAccessible -noStatusbarAccessible = Nothing - -type family ResolveStatusbarAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveStatusbarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveStatusbarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStatusbarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStatusbarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveStatusbarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveStatusbarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStatusbarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStatusbarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveStatusbarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveStatusbarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStatusbarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStatusbarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStatusbarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveStatusbarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveStatusbarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStatusbarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveStatusbarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveStatusbarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveStatusbarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStatusbarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveStatusbarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveStatusbarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveStatusbarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveStatusbarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStatusbarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStatusbarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStatusbarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStatusbarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStatusbarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStatusbarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStatusbarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStatusbarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveStatusbarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveStatusbarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStatusbarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveStatusbarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveStatusbarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveStatusbarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveStatusbarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveStatusbarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveStatusbarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveStatusbarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveStatusbarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStatusbarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStatusbarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveStatusbarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveStatusbarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveStatusbarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStatusbarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveStatusbarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveStatusbarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveStatusbarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveStatusbarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveStatusbarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStatusbarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveStatusbarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveStatusbarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveStatusbarAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStatusbarAccessibleMethod t StatusbarAccessible, MethodInfo info StatusbarAccessible p) => IsLabelProxy t (StatusbarAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStatusbarAccessibleMethod t StatusbarAccessible, MethodInfo info StatusbarAccessible p) => IsLabel t (StatusbarAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList StatusbarAccessible = StatusbarAccessibleAttributeList -type StatusbarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList StatusbarAccessible = StatusbarAccessibleSignalList -type StatusbarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/StatusbarAccessible.hs-boot b/GI/Gtk/Objects/StatusbarAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StatusbarAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.StatusbarAccessible 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 StatusbarAccessible = StatusbarAccessible (ForeignPtr StatusbarAccessible) -instance GObject StatusbarAccessible where -class GObject o => StatusbarAccessibleK o -instance (GObject o, IsDescendantOf StatusbarAccessible o) => StatusbarAccessibleK o diff --git a/GI/Gtk/Objects/Style.hs b/GI/Gtk/Objects/Style.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Style.hs +++ /dev/null @@ -1,652 +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.Gtk.Objects.Style - ( - --- * Exported types - Style(..) , - StyleK , - toStyle , - noStyle , - - - -- * Methods --- ** styleApplyDefaultBackground - StyleApplyDefaultBackgroundMethodInfo , - styleApplyDefaultBackground , - - --- ** styleCopy - StyleCopyMethodInfo , - styleCopy , - - --- ** styleDetach - StyleDetachMethodInfo , - styleDetach , - - --- ** styleGetStyleProperty - StyleGetStylePropertyMethodInfo , - styleGetStyleProperty , - - --- ** styleHasContext - StyleHasContextMethodInfo , - styleHasContext , - - --- ** styleLookupColor - StyleLookupColorMethodInfo , - styleLookupColor , - - --- ** styleLookupIconSet - StyleLookupIconSetMethodInfo , - styleLookupIconSet , - - --- ** styleNew - styleNew , - - --- ** styleRenderIcon - StyleRenderIconMethodInfo , - styleRenderIcon , - - --- ** styleSetBackground - StyleSetBackgroundMethodInfo , - styleSetBackground , - - - - - -- * Properties --- ** Context - StyleContextPropertyInfo , - constructStyleContext , - getStyleContext , - styleContext , - - - - - -- * Signals --- ** Realize - StyleRealizeCallback , - StyleRealizeCallbackC , - StyleRealizeSignalInfo , - afterStyleRealize , - mkStyleRealizeCallback , - noStyleRealizeCallback , - onStyleRealize , - styleRealizeCallbackWrapper , - styleRealizeClosure , - - --- ** Unrealize - StyleUnrealizeCallback , - StyleUnrealizeCallbackC , - StyleUnrealizeSignalInfo , - afterStyleUnrealize , - mkStyleUnrealizeCallback , - noStyleUnrealizeCallback , - onStyleUnrealize , - styleUnrealizeCallbackWrapper , - styleUnrealizeClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Cairo as Cairo - -newtype Style = Style (ForeignPtr Style) -foreign import ccall "gtk_style_get_type" - c_gtk_style_get_type :: IO GType - -type instance ParentTypes Style = StyleParentTypes -type StyleParentTypes = '[GObject.Object] - -instance GObject Style where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_style_get_type - - -class GObject o => StyleK o -instance (GObject o, IsDescendantOf Style o) => StyleK o - -toStyle :: StyleK o => o -> IO Style -toStyle = unsafeCastTo Style - -noStyle :: Maybe Style -noStyle = Nothing - -type family ResolveStyleMethod (t :: Symbol) (o :: *) :: * where - ResolveStyleMethod "applyDefaultBackground" o = StyleApplyDefaultBackgroundMethodInfo - ResolveStyleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStyleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStyleMethod "copy" o = StyleCopyMethodInfo - ResolveStyleMethod "detach" o = StyleDetachMethodInfo - ResolveStyleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStyleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStyleMethod "hasContext" o = StyleHasContextMethodInfo - ResolveStyleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStyleMethod "lookupColor" o = StyleLookupColorMethodInfo - ResolveStyleMethod "lookupIconSet" o = StyleLookupIconSetMethodInfo - ResolveStyleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStyleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStyleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStyleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStyleMethod "renderIcon" o = StyleRenderIconMethodInfo - ResolveStyleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStyleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStyleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStyleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStyleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStyleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStyleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStyleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStyleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStyleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveStyleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStyleMethod "getStyleProperty" o = StyleGetStylePropertyMethodInfo - ResolveStyleMethod "setBackground" o = StyleSetBackgroundMethodInfo - ResolveStyleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStyleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStyleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStyleMethod t Style, MethodInfo info Style p) => IsLabelProxy t (Style -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStyleMethod t Style, MethodInfo info Style p) => IsLabel t (Style -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Style::realize -type StyleRealizeCallback = - IO () - -noStyleRealizeCallback :: Maybe StyleRealizeCallback -noStyleRealizeCallback = Nothing - -type StyleRealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStyleRealizeCallback :: StyleRealizeCallbackC -> IO (FunPtr StyleRealizeCallbackC) - -styleRealizeClosure :: StyleRealizeCallback -> IO Closure -styleRealizeClosure cb = newCClosure =<< mkStyleRealizeCallback wrapped - where wrapped = styleRealizeCallbackWrapper cb - -styleRealizeCallbackWrapper :: - StyleRealizeCallback -> - Ptr () -> - Ptr () -> - IO () -styleRealizeCallbackWrapper _cb _ _ = do - _cb - -onStyleRealize :: (GObject a, MonadIO m) => a -> StyleRealizeCallback -> m SignalHandlerId -onStyleRealize obj cb = liftIO $ connectStyleRealize obj cb SignalConnectBefore -afterStyleRealize :: (GObject a, MonadIO m) => a -> StyleRealizeCallback -> m SignalHandlerId -afterStyleRealize obj cb = connectStyleRealize obj cb SignalConnectAfter - -connectStyleRealize :: (GObject a, MonadIO m) => - a -> StyleRealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectStyleRealize obj cb after = liftIO $ do - cb' <- mkStyleRealizeCallback (styleRealizeCallbackWrapper cb) - connectSignalFunPtr obj "realize" cb' after - --- signal Style::unrealize -type StyleUnrealizeCallback = - IO () - -noStyleUnrealizeCallback :: Maybe StyleUnrealizeCallback -noStyleUnrealizeCallback = Nothing - -type StyleUnrealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStyleUnrealizeCallback :: StyleUnrealizeCallbackC -> IO (FunPtr StyleUnrealizeCallbackC) - -styleUnrealizeClosure :: StyleUnrealizeCallback -> IO Closure -styleUnrealizeClosure cb = newCClosure =<< mkStyleUnrealizeCallback wrapped - where wrapped = styleUnrealizeCallbackWrapper cb - -styleUnrealizeCallbackWrapper :: - StyleUnrealizeCallback -> - Ptr () -> - Ptr () -> - IO () -styleUnrealizeCallbackWrapper _cb _ _ = do - _cb - -onStyleUnrealize :: (GObject a, MonadIO m) => a -> StyleUnrealizeCallback -> m SignalHandlerId -onStyleUnrealize obj cb = liftIO $ connectStyleUnrealize obj cb SignalConnectBefore -afterStyleUnrealize :: (GObject a, MonadIO m) => a -> StyleUnrealizeCallback -> m SignalHandlerId -afterStyleUnrealize obj cb = connectStyleUnrealize obj cb SignalConnectAfter - -connectStyleUnrealize :: (GObject a, MonadIO m) => - a -> StyleUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectStyleUnrealize obj cb after = liftIO $ do - cb' <- mkStyleUnrealizeCallback (styleUnrealizeCallbackWrapper cb) - connectSignalFunPtr obj "unrealize" cb' after - --- VVV Prop "context" - -- Type: TInterface "Gtk" "StyleContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getStyleContext :: (MonadIO m, StyleK o) => o -> m (Maybe StyleContext) -getStyleContext obj = liftIO $ getObjectPropertyObject obj "context" StyleContext - -constructStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContext val = constructObjectPropertyObject "context" (Just val) - -data StyleContextPropertyInfo -instance AttrInfo StyleContextPropertyInfo where - type AttrAllowedOps StyleContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StyleContextPropertyInfo = StyleContextK - type AttrBaseTypeConstraint StyleContextPropertyInfo = StyleK - type AttrGetType StyleContextPropertyInfo = (Maybe StyleContext) - type AttrLabel StyleContextPropertyInfo = "context" - attrGet _ = getStyleContext - attrSet _ = undefined - attrConstruct _ = constructStyleContext - attrClear _ = undefined - -type instance AttributeList Style = StyleAttributeList -type StyleAttributeList = ('[ '("context", StyleContextPropertyInfo)] :: [(Symbol, *)]) - -styleContext :: AttrLabelProxy "context" -styleContext = AttrLabelProxy - -data StyleRealizeSignalInfo -instance SignalInfo StyleRealizeSignalInfo where - type HaskellCallbackType StyleRealizeSignalInfo = StyleRealizeCallback - connectSignal _ = connectStyleRealize - -data StyleUnrealizeSignalInfo -instance SignalInfo StyleUnrealizeSignalInfo where - type HaskellCallbackType StyleUnrealizeSignalInfo = StyleUnrealizeCallback - connectSignal _ = connectStyleUnrealize - -type instance SignalList Style = StyleSignalList -type StyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("realize", StyleRealizeSignalInfo), '("unrealize", StyleUnrealizeSignalInfo)] :: [(Symbol, *)]) - --- method Style::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_new" gtk_style_new :: - IO (Ptr Style) - -{-# DEPRECATED styleNew ["(Since version 3.0)","Use #GtkStyleContext"]#-} -styleNew :: - (MonadIO m) => - m Style -- result -styleNew = liftIO $ do - result <- gtk_style_new - checkUnexpectedReturnNULL "gtk_style_new" result - result' <- (wrapObject Style) result - return result' - --- method Style::apply_default_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_apply_default_background" gtk_style_apply_default_background :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - -{-# DEPRECATED styleApplyDefaultBackground ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -styleApplyDefaultBackground :: - (MonadIO m, StyleK a, Gdk.WindowK b) => - a -- _obj - -> Cairo.Context -- cr - -> b -- window - -> StateType -- stateType - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -styleApplyDefaultBackground _obj cr window stateType x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let window' = unsafeManagedPtrCastPtr window - let stateType' = (fromIntegral . fromEnum) stateType - gtk_style_apply_default_background _obj' cr' window' stateType' x y width height - touchManagedPtr _obj - touchManagedPtr cr - touchManagedPtr window - return () - -data StyleApplyDefaultBackgroundMethodInfo -instance (signature ~ (Cairo.Context -> b -> StateType -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, StyleK a, Gdk.WindowK b) => MethodInfo StyleApplyDefaultBackgroundMethodInfo a signature where - overloadedMethod _ = styleApplyDefaultBackground - --- method Style::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_copy" gtk_style_copy :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - IO (Ptr Style) - -{-# DEPRECATED styleCopy ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -styleCopy :: - (MonadIO m, StyleK a) => - a -- _obj - -> m Style -- result -styleCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_copy _obj' - checkUnexpectedReturnNULL "gtk_style_copy" result - result' <- (wrapObject Style) result - touchManagedPtr _obj - return result' - -data StyleCopyMethodInfo -instance (signature ~ (m Style), MonadIO m, StyleK a) => MethodInfo StyleCopyMethodInfo a signature where - overloadedMethod _ = styleCopy - --- method Style::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", 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 "gtk_style_detach" gtk_style_detach :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - IO () - -{-# DEPRECATED styleDetach ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -styleDetach :: - (MonadIO m, StyleK a) => - a -- _obj - -> m () -- result -styleDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_detach _obj' - touchManagedPtr _obj - return () - -data StyleDetachMethodInfo -instance (signature ~ (m ()), MonadIO m, StyleK a) => MethodInfo StyleDetachMethodInfo a signature where - overloadedMethod _ = styleDetach - --- method Style::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_get_style_property" gtk_style_get_style_property :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - CGType -> -- widget_type : TBasicType TGType - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -styleGetStyleProperty :: - (MonadIO m, StyleK a) => - a -- _obj - -> GType -- widgetType - -> T.Text -- propertyName - -> m (GValue) -- result -styleGetStyleProperty _obj widgetType propertyName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetType' = gtypeToCGType widgetType - propertyName' <- textToCString propertyName - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_style_get_style_property _obj' widgetType' propertyName' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem propertyName' - return value' - -data StyleGetStylePropertyMethodInfo -instance (signature ~ (GType -> T.Text -> m (GValue)), MonadIO m, StyleK a) => MethodInfo StyleGetStylePropertyMethodInfo a signature where - overloadedMethod _ = styleGetStyleProperty - --- method Style::has_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", 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 "gtk_style_has_context" gtk_style_has_context :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - IO CInt - - -styleHasContext :: - (MonadIO m, StyleK a) => - a -- _obj - -> m Bool -- result -styleHasContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_has_context _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StyleHasContextMethodInfo -instance (signature ~ (m Bool), MonadIO m, StyleK a) => MethodInfo StyleHasContextMethodInfo a signature where - overloadedMethod _ = styleHasContext - --- method Style::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_lookup_color" gtk_style_lookup_color :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - CString -> -- color_name : TBasicType TUTF8 - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO CInt - -{-# DEPRECATED styleLookupColor ["(Since version 3.0)","Use gtk_style_context_lookup_color() instead"]#-} -styleLookupColor :: - (MonadIO m, StyleK a) => - a -- _obj - -> T.Text -- colorName - -> m (Bool,Gdk.Color) -- result -styleLookupColor _obj colorName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - colorName' <- textToCString colorName - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - result <- gtk_style_lookup_color _obj' colorName' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr _obj - freeMem colorName' - return (result', color') - -data StyleLookupColorMethodInfo -instance (signature ~ (T.Text -> m (Bool,Gdk.Color)), MonadIO m, StyleK a) => MethodInfo StyleLookupColorMethodInfo a signature where - overloadedMethod _ = styleLookupColor - --- method Style::lookup_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_lookup_icon_set" gtk_style_lookup_icon_set :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr IconSet) - -{-# DEPRECATED styleLookupIconSet ["(Since version 3.0)","Use gtk_style_context_lookup_icon_set() instead"]#-} -styleLookupIconSet :: - (MonadIO m, StyleK a) => - a -- _obj - -> T.Text -- stockId - -> m IconSet -- result -styleLookupIconSet _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - result <- gtk_style_lookup_icon_set _obj' stockId' - checkUnexpectedReturnNULL "gtk_style_lookup_icon_set" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stockId' - return result' - -data StyleLookupIconSetMethodInfo -instance (signature ~ (T.Text -> m IconSet), MonadIO m, StyleK a) => MethodInfo StyleLookupIconSetMethodInfo a signature where - overloadedMethod _ = styleLookupIconSet - --- method Style::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_render_icon" gtk_style_render_icon :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - Ptr IconSource -> -- source : TInterface "Gtk" "IconSource" - CUInt -> -- direction : TInterface "Gtk" "TextDirection" - CUInt -> -- state : TInterface "Gtk" "StateType" - Int32 -> -- size : TBasicType TInt - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED styleRenderIcon ["(Since version 3.0)","Use gtk_render_icon_pixbuf() instead"]#-} -styleRenderIcon :: - (MonadIO m, StyleK a, WidgetK b) => - a -- _obj - -> IconSource -- source - -> TextDirection -- direction - -> StateType -- state - -> Int32 -- size - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> m GdkPixbuf.Pixbuf -- result -styleRenderIcon _obj source direction state size widget detail = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = unsafeManagedPtrGetPtr source - let direction' = (fromIntegral . fromEnum) direction - let state' = (fromIntegral . fromEnum) state - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_style_render_icon _obj' source' direction' state' size maybeWidget maybeDetail - checkUnexpectedReturnNULL "gtk_style_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - touchManagedPtr source - whenJust widget touchManagedPtr - freeMem maybeDetail - return result' - -data StyleRenderIconMethodInfo -instance (signature ~ (IconSource -> TextDirection -> StateType -> Int32 -> Maybe (b) -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, StyleK a, WidgetK b) => MethodInfo StyleRenderIconMethodInfo a signature where - overloadedMethod _ = styleRenderIcon - --- method Style::set_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", 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 "gtk_style_set_background" gtk_style_set_background :: - Ptr Style -> -- _obj : TInterface "Gtk" "Style" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - CUInt -> -- state_type : TInterface "Gtk" "StateType" - IO () - -{-# DEPRECATED styleSetBackground ["(Since version 3.0)","Use gtk_style_context_set_background() instead"]#-} -styleSetBackground :: - (MonadIO m, StyleK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> StateType -- stateType - -> m () -- result -styleSetBackground _obj window stateType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - let stateType' = (fromIntegral . fromEnum) stateType - gtk_style_set_background _obj' window' stateType' - touchManagedPtr _obj - touchManagedPtr window - return () - -data StyleSetBackgroundMethodInfo -instance (signature ~ (b -> StateType -> m ()), MonadIO m, StyleK a, Gdk.WindowK b) => MethodInfo StyleSetBackgroundMethodInfo a signature where - overloadedMethod _ = styleSetBackground - - diff --git a/GI/Gtk/Objects/Style.hs-boot b/GI/Gtk/Objects/Style.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Style.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gtk.Objects.Style 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 Style = Style (ForeignPtr Style) -instance GObject Style where -class GObject o => StyleK o -instance (GObject o, IsDescendantOf Style o) => StyleK o -data StyleContextPropertyInfo -data StyleRealizeSignalInfo -data StyleUnrealizeSignalInfo -data StyleApplyDefaultBackgroundMethodInfo -data StyleCopyMethodInfo -data StyleDetachMethodInfo -data StyleGetStylePropertyMethodInfo -data StyleHasContextMethodInfo -data StyleLookupColorMethodInfo -data StyleLookupIconSetMethodInfo -data StyleRenderIconMethodInfo -data StyleSetBackgroundMethodInfo diff --git a/GI/Gtk/Objects/StyleContext.hs b/GI/Gtk/Objects/StyleContext.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StyleContext.hs +++ /dev/null @@ -1,2220 +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.Gtk.Objects.StyleContext - ( - --- * Exported types - StyleContext(..) , - StyleContextK , - toStyleContext , - noStyleContext , - - - -- * Methods --- ** styleContextAddClass - StyleContextAddClassMethodInfo , - styleContextAddClass , - - --- ** styleContextAddProvider - StyleContextAddProviderMethodInfo , - styleContextAddProvider , - - --- ** styleContextAddProviderForScreen - styleContextAddProviderForScreen , - - --- ** styleContextAddRegion - StyleContextAddRegionMethodInfo , - styleContextAddRegion , - - --- ** styleContextCancelAnimations - StyleContextCancelAnimationsMethodInfo , - styleContextCancelAnimations , - - --- ** styleContextGetBackgroundColor - StyleContextGetBackgroundColorMethodInfo, - styleContextGetBackgroundColor , - - --- ** styleContextGetBorder - StyleContextGetBorderMethodInfo , - styleContextGetBorder , - - --- ** styleContextGetBorderColor - StyleContextGetBorderColorMethodInfo , - styleContextGetBorderColor , - - --- ** styleContextGetColor - StyleContextGetColorMethodInfo , - styleContextGetColor , - - --- ** styleContextGetDirection - StyleContextGetDirectionMethodInfo , - styleContextGetDirection , - - --- ** styleContextGetFont - StyleContextGetFontMethodInfo , - styleContextGetFont , - - --- ** styleContextGetFrameClock - StyleContextGetFrameClockMethodInfo , - styleContextGetFrameClock , - - --- ** styleContextGetJunctionSides - StyleContextGetJunctionSidesMethodInfo , - styleContextGetJunctionSides , - - --- ** styleContextGetMargin - StyleContextGetMarginMethodInfo , - styleContextGetMargin , - - --- ** styleContextGetPadding - StyleContextGetPaddingMethodInfo , - styleContextGetPadding , - - --- ** styleContextGetParent - StyleContextGetParentMethodInfo , - styleContextGetParent , - - --- ** styleContextGetPath - StyleContextGetPathMethodInfo , - styleContextGetPath , - - --- ** styleContextGetProperty - StyleContextGetPropertyMethodInfo , - styleContextGetProperty , - - --- ** styleContextGetScale - StyleContextGetScaleMethodInfo , - styleContextGetScale , - - --- ** styleContextGetScreen - StyleContextGetScreenMethodInfo , - styleContextGetScreen , - - --- ** styleContextGetSection - StyleContextGetSectionMethodInfo , - styleContextGetSection , - - --- ** styleContextGetState - StyleContextGetStateMethodInfo , - styleContextGetState , - - --- ** styleContextGetStyleProperty - StyleContextGetStylePropertyMethodInfo , - styleContextGetStyleProperty , - - --- ** styleContextHasClass - StyleContextHasClassMethodInfo , - styleContextHasClass , - - --- ** styleContextHasRegion - StyleContextHasRegionMethodInfo , - styleContextHasRegion , - - --- ** styleContextInvalidate - StyleContextInvalidateMethodInfo , - styleContextInvalidate , - - --- ** styleContextListClasses - StyleContextListClassesMethodInfo , - styleContextListClasses , - - --- ** styleContextListRegions - StyleContextListRegionsMethodInfo , - styleContextListRegions , - - --- ** styleContextLookupColor - StyleContextLookupColorMethodInfo , - styleContextLookupColor , - - --- ** styleContextLookupIconSet - StyleContextLookupIconSetMethodInfo , - styleContextLookupIconSet , - - --- ** styleContextNew - styleContextNew , - - --- ** styleContextNotifyStateChange - StyleContextNotifyStateChangeMethodInfo , - styleContextNotifyStateChange , - - --- ** styleContextPopAnimatableRegion - StyleContextPopAnimatableRegionMethodInfo, - styleContextPopAnimatableRegion , - - --- ** styleContextPushAnimatableRegion - StyleContextPushAnimatableRegionMethodInfo, - styleContextPushAnimatableRegion , - - --- ** styleContextRemoveClass - StyleContextRemoveClassMethodInfo , - styleContextRemoveClass , - - --- ** styleContextRemoveProvider - StyleContextRemoveProviderMethodInfo , - styleContextRemoveProvider , - - --- ** styleContextRemoveProviderForScreen - styleContextRemoveProviderForScreen , - - --- ** styleContextRemoveRegion - StyleContextRemoveRegionMethodInfo , - styleContextRemoveRegion , - - --- ** styleContextResetWidgets - styleContextResetWidgets , - - --- ** styleContextRestore - StyleContextRestoreMethodInfo , - styleContextRestore , - - --- ** styleContextSave - StyleContextSaveMethodInfo , - styleContextSave , - - --- ** styleContextScrollAnimations - StyleContextScrollAnimationsMethodInfo , - styleContextScrollAnimations , - - --- ** styleContextSetBackground - StyleContextSetBackgroundMethodInfo , - styleContextSetBackground , - - --- ** styleContextSetDirection - StyleContextSetDirectionMethodInfo , - styleContextSetDirection , - - --- ** styleContextSetFrameClock - StyleContextSetFrameClockMethodInfo , - styleContextSetFrameClock , - - --- ** styleContextSetJunctionSides - StyleContextSetJunctionSidesMethodInfo , - styleContextSetJunctionSides , - - --- ** styleContextSetParent - StyleContextSetParentMethodInfo , - styleContextSetParent , - - --- ** styleContextSetPath - StyleContextSetPathMethodInfo , - styleContextSetPath , - - --- ** styleContextSetScale - StyleContextSetScaleMethodInfo , - styleContextSetScale , - - --- ** styleContextSetScreen - StyleContextSetScreenMethodInfo , - styleContextSetScreen , - - --- ** styleContextSetState - StyleContextSetStateMethodInfo , - styleContextSetState , - - --- ** styleContextStateIsRunning - StyleContextStateIsRunningMethodInfo , - styleContextStateIsRunning , - - - - - -- * Properties --- ** Direction - StyleContextDirectionPropertyInfo , - constructStyleContextDirection , - getStyleContextDirection , - setStyleContextDirection , - styleContextDirection , - - --- ** PaintClock - StyleContextPaintClockPropertyInfo , - clearStyleContextPaintClock , - constructStyleContextPaintClock , - getStyleContextPaintClock , - setStyleContextPaintClock , - styleContextPaintClock , - - --- ** Parent - StyleContextParentPropertyInfo , - clearStyleContextParent , - constructStyleContextParent , - getStyleContextParent , - setStyleContextParent , - styleContextParent , - - --- ** Screen - StyleContextScreenPropertyInfo , - constructStyleContextScreen , - getStyleContextScreen , - setStyleContextScreen , - styleContextScreen , - - - - - -- * Signals --- ** Changed - StyleContextChangedCallback , - StyleContextChangedCallbackC , - StyleContextChangedSignalInfo , - afterStyleContextChanged , - mkStyleContextChangedCallback , - noStyleContextChangedCallback , - onStyleContextChanged , - styleContextChangedCallbackWrapper , - styleContextChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype StyleContext = StyleContext (ForeignPtr StyleContext) -foreign import ccall "gtk_style_context_get_type" - c_gtk_style_context_get_type :: IO GType - -type instance ParentTypes StyleContext = StyleContextParentTypes -type StyleContextParentTypes = '[GObject.Object] - -instance GObject StyleContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_style_context_get_type - - -class GObject o => StyleContextK o -instance (GObject o, IsDescendantOf StyleContext o) => StyleContextK o - -toStyleContext :: StyleContextK o => o -> IO StyleContext -toStyleContext = unsafeCastTo StyleContext - -noStyleContext :: Maybe StyleContext -noStyleContext = Nothing - -type family ResolveStyleContextMethod (t :: Symbol) (o :: *) :: * where - ResolveStyleContextMethod "addClass" o = StyleContextAddClassMethodInfo - ResolveStyleContextMethod "addProvider" o = StyleContextAddProviderMethodInfo - ResolveStyleContextMethod "addRegion" o = StyleContextAddRegionMethodInfo - ResolveStyleContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStyleContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStyleContextMethod "cancelAnimations" o = StyleContextCancelAnimationsMethodInfo - ResolveStyleContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStyleContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStyleContextMethod "hasClass" o = StyleContextHasClassMethodInfo - ResolveStyleContextMethod "hasRegion" o = StyleContextHasRegionMethodInfo - ResolveStyleContextMethod "invalidate" o = StyleContextInvalidateMethodInfo - ResolveStyleContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStyleContextMethod "listClasses" o = StyleContextListClassesMethodInfo - ResolveStyleContextMethod "listRegions" o = StyleContextListRegionsMethodInfo - ResolveStyleContextMethod "lookupColor" o = StyleContextLookupColorMethodInfo - ResolveStyleContextMethod "lookupIconSet" o = StyleContextLookupIconSetMethodInfo - ResolveStyleContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStyleContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStyleContextMethod "notifyStateChange" o = StyleContextNotifyStateChangeMethodInfo - ResolveStyleContextMethod "popAnimatableRegion" o = StyleContextPopAnimatableRegionMethodInfo - ResolveStyleContextMethod "pushAnimatableRegion" o = StyleContextPushAnimatableRegionMethodInfo - ResolveStyleContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStyleContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStyleContextMethod "removeClass" o = StyleContextRemoveClassMethodInfo - ResolveStyleContextMethod "removeProvider" o = StyleContextRemoveProviderMethodInfo - ResolveStyleContextMethod "removeRegion" o = StyleContextRemoveRegionMethodInfo - ResolveStyleContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStyleContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStyleContextMethod "restore" o = StyleContextRestoreMethodInfo - ResolveStyleContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStyleContextMethod "save" o = StyleContextSaveMethodInfo - ResolveStyleContextMethod "scrollAnimations" o = StyleContextScrollAnimationsMethodInfo - ResolveStyleContextMethod "stateIsRunning" o = StyleContextStateIsRunningMethodInfo - ResolveStyleContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStyleContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStyleContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStyleContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStyleContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStyleContextMethod "getBackgroundColor" o = StyleContextGetBackgroundColorMethodInfo - ResolveStyleContextMethod "getBorder" o = StyleContextGetBorderMethodInfo - ResolveStyleContextMethod "getBorderColor" o = StyleContextGetBorderColorMethodInfo - ResolveStyleContextMethod "getColor" o = StyleContextGetColorMethodInfo - ResolveStyleContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStyleContextMethod "getDirection" o = StyleContextGetDirectionMethodInfo - ResolveStyleContextMethod "getFont" o = StyleContextGetFontMethodInfo - ResolveStyleContextMethod "getFrameClock" o = StyleContextGetFrameClockMethodInfo - ResolveStyleContextMethod "getJunctionSides" o = StyleContextGetJunctionSidesMethodInfo - ResolveStyleContextMethod "getMargin" o = StyleContextGetMarginMethodInfo - ResolveStyleContextMethod "getPadding" o = StyleContextGetPaddingMethodInfo - ResolveStyleContextMethod "getParent" o = StyleContextGetParentMethodInfo - ResolveStyleContextMethod "getPath" o = StyleContextGetPathMethodInfo - ResolveStyleContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStyleContextMethod "getScale" o = StyleContextGetScaleMethodInfo - ResolveStyleContextMethod "getScreen" o = StyleContextGetScreenMethodInfo - ResolveStyleContextMethod "getSection" o = StyleContextGetSectionMethodInfo - ResolveStyleContextMethod "getState" o = StyleContextGetStateMethodInfo - ResolveStyleContextMethod "getStyleProperty" o = StyleContextGetStylePropertyMethodInfo - ResolveStyleContextMethod "setBackground" o = StyleContextSetBackgroundMethodInfo - ResolveStyleContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStyleContextMethod "setDirection" o = StyleContextSetDirectionMethodInfo - ResolveStyleContextMethod "setFrameClock" o = StyleContextSetFrameClockMethodInfo - ResolveStyleContextMethod "setJunctionSides" o = StyleContextSetJunctionSidesMethodInfo - ResolveStyleContextMethod "setParent" o = StyleContextSetParentMethodInfo - ResolveStyleContextMethod "setPath" o = StyleContextSetPathMethodInfo - ResolveStyleContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveStyleContextMethod "setScale" o = StyleContextSetScaleMethodInfo - ResolveStyleContextMethod "setScreen" o = StyleContextSetScreenMethodInfo - ResolveStyleContextMethod "setState" o = StyleContextSetStateMethodInfo - ResolveStyleContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStyleContextMethod t StyleContext, MethodInfo info StyleContext p) => IsLabelProxy t (StyleContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStyleContextMethod t StyleContext, MethodInfo info StyleContext p) => IsLabel t (StyleContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal StyleContext::changed -type StyleContextChangedCallback = - IO () - -noStyleContextChangedCallback :: Maybe StyleContextChangedCallback -noStyleContextChangedCallback = Nothing - -type StyleContextChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkStyleContextChangedCallback :: StyleContextChangedCallbackC -> IO (FunPtr StyleContextChangedCallbackC) - -styleContextChangedClosure :: StyleContextChangedCallback -> IO Closure -styleContextChangedClosure cb = newCClosure =<< mkStyleContextChangedCallback wrapped - where wrapped = styleContextChangedCallbackWrapper cb - -styleContextChangedCallbackWrapper :: - StyleContextChangedCallback -> - Ptr () -> - Ptr () -> - IO () -styleContextChangedCallbackWrapper _cb _ _ = do - _cb - -onStyleContextChanged :: (GObject a, MonadIO m) => a -> StyleContextChangedCallback -> m SignalHandlerId -onStyleContextChanged obj cb = liftIO $ connectStyleContextChanged obj cb SignalConnectBefore -afterStyleContextChanged :: (GObject a, MonadIO m) => a -> StyleContextChangedCallback -> m SignalHandlerId -afterStyleContextChanged obj cb = connectStyleContextChanged obj cb SignalConnectAfter - -connectStyleContextChanged :: (GObject a, MonadIO m) => - a -> StyleContextChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectStyleContextChanged obj cb after = liftIO $ do - cb' <- mkStyleContextChangedCallback (styleContextChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "direction" - -- Type: TInterface "Gtk" "TextDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStyleContextDirection :: (MonadIO m, StyleContextK o) => o -> m TextDirection -getStyleContextDirection obj = liftIO $ getObjectPropertyEnum obj "direction" - -setStyleContextDirection :: (MonadIO m, StyleContextK o) => o -> TextDirection -> m () -setStyleContextDirection obj val = liftIO $ setObjectPropertyEnum obj "direction" val - -constructStyleContextDirection :: TextDirection -> IO ([Char], GValue) -constructStyleContextDirection val = constructObjectPropertyEnum "direction" val - -data StyleContextDirectionPropertyInfo -instance AttrInfo StyleContextDirectionPropertyInfo where - type AttrAllowedOps StyleContextDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StyleContextDirectionPropertyInfo = (~) TextDirection - type AttrBaseTypeConstraint StyleContextDirectionPropertyInfo = StyleContextK - type AttrGetType StyleContextDirectionPropertyInfo = TextDirection - type AttrLabel StyleContextDirectionPropertyInfo = "direction" - attrGet _ = getStyleContextDirection - attrSet _ = setStyleContextDirection - attrConstruct _ = constructStyleContextDirection - attrClear _ = undefined - --- VVV Prop "paint-clock" - -- Type: TInterface "Gdk" "FrameClock" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m (Maybe Gdk.FrameClock) -getStyleContextPaintClock obj = liftIO $ getObjectPropertyObject obj "paint-clock" Gdk.FrameClock - -setStyleContextPaintClock :: (MonadIO m, StyleContextK o, Gdk.FrameClockK a) => o -> a -> m () -setStyleContextPaintClock obj val = liftIO $ setObjectPropertyObject obj "paint-clock" (Just val) - -constructStyleContextPaintClock :: (Gdk.FrameClockK a) => a -> IO ([Char], GValue) -constructStyleContextPaintClock val = constructObjectPropertyObject "paint-clock" (Just val) - -clearStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m () -clearStyleContextPaintClock obj = liftIO $ setObjectPropertyObject obj "paint-clock" (Nothing :: Maybe Gdk.FrameClock) - -data StyleContextPaintClockPropertyInfo -instance AttrInfo StyleContextPaintClockPropertyInfo where - type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClockK - type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = StyleContextK - type AttrGetType StyleContextPaintClockPropertyInfo = (Maybe Gdk.FrameClock) - type AttrLabel StyleContextPaintClockPropertyInfo = "paint-clock" - attrGet _ = getStyleContextPaintClock - attrSet _ = setStyleContextPaintClock - attrConstruct _ = constructStyleContextPaintClock - attrClear _ = clearStyleContextPaintClock - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "StyleContext" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m StyleContext -getStyleContextParent obj = liftIO $ checkUnexpectedNothing "getStyleContextParent" $ getObjectPropertyObject obj "parent" StyleContext - -setStyleContextParent :: (MonadIO m, StyleContextK o, StyleContextK a) => o -> a -> m () -setStyleContextParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) - -constructStyleContextParent :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContextParent val = constructObjectPropertyObject "parent" (Just val) - -clearStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m () -clearStyleContextParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe StyleContext) - -data StyleContextParentPropertyInfo -instance AttrInfo StyleContextParentPropertyInfo where - type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StyleContextParentPropertyInfo = StyleContextK - type AttrBaseTypeConstraint StyleContextParentPropertyInfo = StyleContextK - type AttrGetType StyleContextParentPropertyInfo = StyleContext - type AttrLabel StyleContextParentPropertyInfo = "parent" - attrGet _ = getStyleContextParent - attrSet _ = setStyleContextParent - attrConstruct _ = constructStyleContextParent - attrClear _ = clearStyleContextParent - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getStyleContextScreen :: (MonadIO m, StyleContextK o) => o -> m Gdk.Screen -getStyleContextScreen obj = liftIO $ checkUnexpectedNothing "getStyleContextScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen - -setStyleContextScreen :: (MonadIO m, StyleContextK o, Gdk.ScreenK a) => o -> a -> m () -setStyleContextScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) - -constructStyleContextScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStyleContextScreen val = constructObjectPropertyObject "screen" (Just val) - -data StyleContextScreenPropertyInfo -instance AttrInfo StyleContextScreenPropertyInfo where - type AttrAllowedOps StyleContextScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StyleContextScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint StyleContextScreenPropertyInfo = StyleContextK - type AttrGetType StyleContextScreenPropertyInfo = Gdk.Screen - type AttrLabel StyleContextScreenPropertyInfo = "screen" - attrGet _ = getStyleContextScreen - attrSet _ = setStyleContextScreen - attrConstruct _ = constructStyleContextScreen - attrClear _ = undefined - -type instance AttributeList StyleContext = StyleContextAttributeList -type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paintClock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, *)]) - -styleContextDirection :: AttrLabelProxy "direction" -styleContextDirection = AttrLabelProxy - -styleContextPaintClock :: AttrLabelProxy "paintClock" -styleContextPaintClock = AttrLabelProxy - -styleContextParent :: AttrLabelProxy "parent" -styleContextParent = AttrLabelProxy - -styleContextScreen :: AttrLabelProxy "screen" -styleContextScreen = AttrLabelProxy - -data StyleContextChangedSignalInfo -instance SignalInfo StyleContextChangedSignalInfo where - type HaskellCallbackType StyleContextChangedSignalInfo = StyleContextChangedCallback - connectSignal _ = connectStyleContextChanged - -type instance SignalList StyleContext = StyleContextSignalList -type StyleContextSignalList = ('[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StyleContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_new" gtk_style_context_new :: - IO (Ptr StyleContext) - - -styleContextNew :: - (MonadIO m) => - m StyleContext -- result -styleContextNew = liftIO $ do - result <- gtk_style_context_new - checkUnexpectedReturnNULL "gtk_style_context_new" result - result' <- (wrapObject StyleContext) result - return result' - --- method StyleContext::add_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_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 "gtk_style_context_add_class" gtk_style_context_add_class :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- class_name : TBasicType TUTF8 - IO () - - -styleContextAddClass :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- className - -> m () -- result -styleContextAddClass _obj className = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - className' <- textToCString className - gtk_style_context_add_class _obj' className' - touchManagedPtr _obj - freeMem className' - return () - -data StyleContextAddClassMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextAddClassMethodInfo a signature where - overloadedMethod _ = styleContextAddClass - --- method StyleContext::add_provider --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", 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 "gtk_style_context_add_provider" gtk_style_context_add_provider :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - Word32 -> -- priority : TBasicType TUInt - IO () - - -styleContextAddProvider :: - (MonadIO m, StyleContextK a, StyleProviderK b) => - a -- _obj - -> b -- provider - -> Word32 -- priority - -> m () -- result -styleContextAddProvider _obj provider priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let provider' = unsafeManagedPtrCastPtr provider - gtk_style_context_add_provider _obj' provider' priority - touchManagedPtr _obj - touchManagedPtr provider - return () - -data StyleContextAddProviderMethodInfo -instance (signature ~ (b -> Word32 -> m ()), MonadIO m, StyleContextK a, StyleProviderK b) => MethodInfo StyleContextAddProviderMethodInfo a signature where - overloadedMethod _ = styleContextAddProvider - --- method StyleContext::add_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_style_context_add_region" gtk_style_context_add_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- region_name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO () - -{-# DEPRECATED styleContextAddRegion ["(Since version 3.14)"]#-} -styleContextAddRegion :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- regionName - -> [RegionFlags] -- flags - -> m () -- result -styleContextAddRegion _obj regionName flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - regionName' <- textToCString regionName - let flags' = gflagsToWord flags - gtk_style_context_add_region _obj' regionName' flags' - touchManagedPtr _obj - freeMem regionName' - return () - -data StyleContextAddRegionMethodInfo -instance (signature ~ (T.Text -> [RegionFlags] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextAddRegionMethodInfo a signature where - overloadedMethod _ = styleContextAddRegion - --- method StyleContext::cancel_animations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_cancel_animations" gtk_style_context_cancel_animations :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr () -> -- region_id : TBasicType TPtr - IO () - -{-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."]#-} -styleContextCancelAnimations :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> Ptr () -- regionId - -> m () -- result -styleContextCancelAnimations _obj regionId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_cancel_animations _obj' regionId - touchManagedPtr _obj - return () - -data StyleContextCancelAnimationsMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextCancelAnimationsMethodInfo a signature where - overloadedMethod _ = styleContextCancelAnimations - --- method StyleContext::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_background_color" gtk_style_context_get_background_color :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED styleContextGetBackgroundColor ["(Since version 3.16)","Use gtk_render_background() instead."]#-} -styleContextGetBackgroundColor :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -styleContextGetBackgroundColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_style_context_get_background_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data StyleContextGetBackgroundColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBackgroundColorMethodInfo a signature where - overloadedMethod _ = styleContextGetBackgroundColor - --- method StyleContext::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_border" gtk_style_context_get_border :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- border : TInterface "Gtk" "Border" - IO () - - -styleContextGetBorder :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -styleContextGetBorder _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - border <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_style_context_get_border _obj' state' border - border' <- (wrapBoxed Border) border - touchManagedPtr _obj - return border' - -data StyleContextGetBorderMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBorderMethodInfo a signature where - overloadedMethod _ = styleContextGetBorder - --- method StyleContext::get_border_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_border_color" gtk_style_context_get_border_color :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED styleContextGetBorderColor ["(Since version 3.16)","Use gtk_render_border() instead."]#-} -styleContextGetBorderColor :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -styleContextGetBorderColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_style_context_get_border_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data StyleContextGetBorderColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBorderColorMethodInfo a signature where - overloadedMethod _ = styleContextGetBorderColor - --- method StyleContext::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_color" gtk_style_context_get_color :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - - -styleContextGetColor :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -styleContextGetColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_style_context_get_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data StyleContextGetColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetColorMethodInfo a signature where - overloadedMethod _ = styleContextGetColor - --- method StyleContext::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_direction" gtk_style_context_get_direction :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO CUInt - -{-# DEPRECATED styleContextGetDirection ["(Since version 3.8)","Use gtk_style_context_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-} -styleContextGetDirection :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m TextDirection -- result -styleContextGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data StyleContextGetDirectionMethodInfo -instance (signature ~ (m TextDirection), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetDirectionMethodInfo a signature where - overloadedMethod _ = styleContextGetDirection - --- method StyleContext::get_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontDescription") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_font" gtk_style_context_get_font :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - IO (Ptr Pango.FontDescription) - -{-# DEPRECATED styleContextGetFont ["(Since version 3.8)","Use gtk_style_context_get() for \"font\" or"," subproperties instead."]#-} -styleContextGetFont :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m Pango.FontDescription -- result -styleContextGetFont _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - result <- gtk_style_context_get_font _obj' state' - checkUnexpectedReturnNULL "gtk_style_context_get_font" result - result' <- (newBoxed Pango.FontDescription) result - touchManagedPtr _obj - return result' - -data StyleContextGetFontMethodInfo -instance (signature ~ ([StateFlags] -> m Pango.FontDescription), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetFontMethodInfo a signature where - overloadedMethod _ = styleContextGetFont - --- method StyleContext::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameClock") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_frame_clock" gtk_style_context_get_frame_clock :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr Gdk.FrameClock) - - -styleContextGetFrameClock :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m Gdk.FrameClock -- result -styleContextGetFrameClock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_frame_clock _obj' - checkUnexpectedReturnNULL "gtk_style_context_get_frame_clock" result - result' <- (newObject Gdk.FrameClock) result - touchManagedPtr _obj - return result' - -data StyleContextGetFrameClockMethodInfo -instance (signature ~ (m Gdk.FrameClock), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetFrameClockMethodInfo a signature where - overloadedMethod _ = styleContextGetFrameClock - --- method StyleContext::get_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "JunctionSides") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_junction_sides" gtk_style_context_get_junction_sides :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO CUInt - - -styleContextGetJunctionSides :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m [JunctionSides] -- result -styleContextGetJunctionSides _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_junction_sides _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data StyleContextGetJunctionSidesMethodInfo -instance (signature ~ (m [JunctionSides]), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetJunctionSidesMethodInfo a signature where - overloadedMethod _ = styleContextGetJunctionSides - --- method StyleContext::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_margin" gtk_style_context_get_margin :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- margin : TInterface "Gtk" "Border" - IO () - - -styleContextGetMargin :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -styleContextGetMargin _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - margin <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_style_context_get_margin _obj' state' margin - margin' <- (wrapBoxed Border) margin - touchManagedPtr _obj - return margin' - -data StyleContextGetMarginMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetMarginMethodInfo a signature where - overloadedMethod _ = styleContextGetMargin - --- method StyleContext::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_padding" gtk_style_context_get_padding :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- padding : TInterface "Gtk" "Border" - IO () - - -styleContextGetPadding :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -styleContextGetPadding _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - padding <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_style_context_get_padding _obj' state' padding - padding' <- (wrapBoxed Border) padding - touchManagedPtr _obj - return padding' - -data StyleContextGetPaddingMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPaddingMethodInfo a signature where - overloadedMethod _ = styleContextGetPadding - --- method StyleContext::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_parent" gtk_style_context_get_parent :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr StyleContext) - - -styleContextGetParent :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m StyleContext -- result -styleContextGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_parent _obj' - checkUnexpectedReturnNULL "gtk_style_context_get_parent" result - result' <- (newObject StyleContext) result - touchManagedPtr _obj - return result' - -data StyleContextGetParentMethodInfo -instance (signature ~ (m StyleContext), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetParentMethodInfo a signature where - overloadedMethod _ = styleContextGetParent - --- method StyleContext::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_path" gtk_style_context_get_path :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr WidgetPath) - - -styleContextGetPath :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m WidgetPath -- result -styleContextGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_path _obj' - checkUnexpectedReturnNULL "gtk_style_context_get_path" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data StyleContextGetPathMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPathMethodInfo a signature where - overloadedMethod _ = styleContextGetPath - --- method StyleContext::get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_property" gtk_style_context_get_property :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -styleContextGetProperty :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- property - -> [StateFlags] -- state - -> m (GValue) -- result -styleContextGetProperty _obj property state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - let state' = gflagsToWord state - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_style_context_get_property _obj' property' state' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem property' - return value' - -data StyleContextGetPropertyMethodInfo -instance (signature ~ (T.Text -> [StateFlags] -> m (GValue)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPropertyMethodInfo a signature where - overloadedMethod _ = styleContextGetProperty - --- method StyleContext::get_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 "gtk_style_context_get_scale" gtk_style_context_get_scale :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO Int32 - - -styleContextGetScale :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m Int32 -- result -styleContextGetScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_scale _obj' - touchManagedPtr _obj - return result - -data StyleContextGetScaleMethodInfo -instance (signature ~ (m Int32), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetScaleMethodInfo a signature where - overloadedMethod _ = styleContextGetScale - --- method StyleContext::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_screen" gtk_style_context_get_screen :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr Gdk.Screen) - - -styleContextGetScreen :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m Gdk.Screen -- result -styleContextGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_screen _obj' - checkUnexpectedReturnNULL "gtk_style_context_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data StyleContextGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetScreenMethodInfo a signature where - overloadedMethod _ = styleContextGetScreen - --- method StyleContext::get_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssSection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_section" gtk_style_context_get_section :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- property : TBasicType TUTF8 - IO (Ptr CssSection) - - -styleContextGetSection :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- property - -> m CssSection -- result -styleContextGetSection _obj property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - result <- gtk_style_context_get_section _obj' property' - checkUnexpectedReturnNULL "gtk_style_context_get_section" result - result' <- (wrapBoxed CssSection) result - touchManagedPtr _obj - freeMem property' - return result' - -data StyleContextGetSectionMethodInfo -instance (signature ~ (T.Text -> m CssSection), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetSectionMethodInfo a signature where - overloadedMethod _ = styleContextGetSection - --- method StyleContext::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_get_state" gtk_style_context_get_state :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO CUInt - - -styleContextGetState :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m [StateFlags] -- result -styleContextGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_state _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data StyleContextGetStateMethodInfo -instance (signature ~ (m [StateFlags]), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetStateMethodInfo a signature where - overloadedMethod _ = styleContextGetState - --- method StyleContext::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_style_context_get_style_property" gtk_style_context_get_style_property :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -styleContextGetStyleProperty :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -styleContextGetStyleProperty _obj propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_style_context_get_style_property _obj' propertyName' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem propertyName' - return () - -data StyleContextGetStylePropertyMethodInfo -instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetStylePropertyMethodInfo a signature where - overloadedMethod _ = styleContextGetStyleProperty - --- method StyleContext::has_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", 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 "gtk_style_context_has_class" gtk_style_context_has_class :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- class_name : TBasicType TUTF8 - IO CInt - - -styleContextHasClass :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- className - -> m Bool -- result -styleContextHasClass _obj className = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - className' <- textToCString className - result <- gtk_style_context_has_class _obj' className' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem className' - return result' - -data StyleContextHasClassMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, StyleContextK a) => MethodInfo StyleContextHasClassMethodInfo a signature where - overloadedMethod _ = styleContextHasClass - --- method StyleContext::has_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags_return", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_style_context_has_region" gtk_style_context_has_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- region_name : TBasicType TUTF8 - Ptr CUInt -> -- flags_return : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED styleContextHasRegion ["(Since version 3.14)"]#-} -styleContextHasRegion :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- regionName - -> m (Bool,[RegionFlags]) -- result -styleContextHasRegion _obj regionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - regionName' <- textToCString regionName - flagsReturn <- allocMem :: IO (Ptr CUInt) - result <- gtk_style_context_has_region _obj' regionName' flagsReturn - let result' = (/= 0) result - flagsReturn' <- peek flagsReturn - let flagsReturn'' = wordToGFlags flagsReturn' - touchManagedPtr _obj - freeMem regionName' - freeMem flagsReturn - return (result', flagsReturn'') - -data StyleContextHasRegionMethodInfo -instance (signature ~ (T.Text -> m (Bool,[RegionFlags])), MonadIO m, StyleContextK a) => MethodInfo StyleContextHasRegionMethodInfo a signature where - overloadedMethod _ = styleContextHasRegion - --- method StyleContext::invalidate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 "gtk_style_context_invalidate" gtk_style_context_invalidate :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO () - -{-# DEPRECATED styleContextInvalidate ["(Since version 3.12)","Style contexts are invalidated automatically."]#-} -styleContextInvalidate :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m () -- result -styleContextInvalidate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_invalidate _obj' - touchManagedPtr _obj - return () - -data StyleContextInvalidateMethodInfo -instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextInvalidateMethodInfo a signature where - overloadedMethod _ = styleContextInvalidate - --- method StyleContext::list_classes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_list_classes" gtk_style_context_list_classes :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr (GList CString)) - - -styleContextListClasses :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m [T.Text] -- result -styleContextListClasses _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_list_classes _obj' - result' <- unpackGList result - result'' <- mapM cstringToText result' - g_list_free result - touchManagedPtr _obj - return result'' - -data StyleContextListClassesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, StyleContextK a) => MethodInfo StyleContextListClassesMethodInfo a signature where - overloadedMethod _ = styleContextListClasses - --- method StyleContext::list_regions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_list_regions" gtk_style_context_list_regions :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO (Ptr (GList CString)) - -{-# DEPRECATED styleContextListRegions ["(Since version 3.14)"]#-} -styleContextListRegions :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m [T.Text] -- result -styleContextListRegions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_list_regions _obj' - result' <- unpackGList result - result'' <- mapM cstringToText result' - g_list_free result - touchManagedPtr _obj - return result'' - -data StyleContextListRegionsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, StyleContextK a) => MethodInfo StyleContextListRegionsMethodInfo a signature where - overloadedMethod _ = styleContextListRegions - --- method StyleContext::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_lookup_color" gtk_style_context_lookup_color :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- color_name : TBasicType TUTF8 - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO CInt - - -styleContextLookupColor :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- colorName - -> m (Bool,Gdk.RGBA) -- result -styleContextLookupColor _obj colorName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - colorName' <- textToCString colorName - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_style_context_lookup_color _obj' colorName' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - freeMem colorName' - return (result', color') - -data StyleContextLookupColorMethodInfo -instance (signature ~ (T.Text -> m (Bool,Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextLookupColorMethodInfo a signature where - overloadedMethod _ = styleContextLookupColor - --- method StyleContext::lookup_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_lookup_icon_set" gtk_style_context_lookup_icon_set :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr IconSet) - -{-# DEPRECATED styleContextLookupIconSet ["(Since version 3.10)","Use gtk_icon_theme_lookup_icon() instead."]#-} -styleContextLookupIconSet :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- stockId - -> m IconSet -- result -styleContextLookupIconSet _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - result <- gtk_style_context_lookup_icon_set _obj' stockId' - checkUnexpectedReturnNULL "gtk_style_context_lookup_icon_set" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stockId' - return result' - -data StyleContextLookupIconSetMethodInfo -instance (signature ~ (T.Text -> m IconSet), MonadIO m, StyleContextK a) => MethodInfo StyleContextLookupIconSetMethodInfo a signature where - overloadedMethod _ = styleContextLookupIconSet - --- method StyleContext::notify_state_change --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_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 "gtk_style_context_notify_state_change" gtk_style_context_notify_state_change :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - Ptr () -> -- region_id : TBasicType TPtr - CUInt -> -- state : TInterface "Gtk" "StateType" - CInt -> -- state_value : TBasicType TBoolean - IO () - -{-# DEPRECATED styleContextNotifyStateChange ["(Since version 3.6)","This function does nothing."]#-} -styleContextNotifyStateChange :: - (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> Ptr () -- regionId - -> StateType -- state - -> Bool -- stateValue - -> m () -- result -styleContextNotifyStateChange _obj window regionId state stateValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - let state' = (fromIntegral . fromEnum) state - let stateValue' = (fromIntegral . fromEnum) stateValue - gtk_style_context_notify_state_change _obj' window' regionId state' stateValue' - touchManagedPtr _obj - touchManagedPtr window - return () - -data StyleContextNotifyStateChangeMethodInfo -instance (signature ~ (b -> Ptr () -> StateType -> Bool -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextNotifyStateChangeMethodInfo a signature where - overloadedMethod _ = styleContextNotifyStateChange - --- method StyleContext::pop_animatable_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 "gtk_style_context_pop_animatable_region" gtk_style_context_pop_animatable_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO () - -{-# DEPRECATED styleContextPopAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} -styleContextPopAnimatableRegion :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m () -- result -styleContextPopAnimatableRegion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_pop_animatable_region _obj' - touchManagedPtr _obj - return () - -data StyleContextPopAnimatableRegionMethodInfo -instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextPopAnimatableRegionMethodInfo a signature where - overloadedMethod _ = styleContextPopAnimatableRegion - --- method StyleContext::push_animatable_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", 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 "gtk_style_context_push_animatable_region" gtk_style_context_push_animatable_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr () -> -- region_id : TBasicType TPtr - IO () - -{-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} -styleContextPushAnimatableRegion :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> Ptr () -- regionId - -> m () -- result -styleContextPushAnimatableRegion _obj regionId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_push_animatable_region _obj' regionId - touchManagedPtr _obj - return () - -data StyleContextPushAnimatableRegionMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextPushAnimatableRegionMethodInfo a signature where - overloadedMethod _ = styleContextPushAnimatableRegion - --- method StyleContext::remove_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_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 "gtk_style_context_remove_class" gtk_style_context_remove_class :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- class_name : TBasicType TUTF8 - IO () - - -styleContextRemoveClass :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- className - -> m () -- result -styleContextRemoveClass _obj className = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - className' <- textToCString className - gtk_style_context_remove_class _obj' className' - touchManagedPtr _obj - freeMem className' - return () - -data StyleContextRemoveClassMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRemoveClassMethodInfo a signature where - overloadedMethod _ = styleContextRemoveClass - --- method StyleContext::remove_provider --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", 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 "gtk_style_context_remove_provider" gtk_style_context_remove_provider :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - IO () - - -styleContextRemoveProvider :: - (MonadIO m, StyleContextK a, StyleProviderK b) => - a -- _obj - -> b -- provider - -> m () -- result -styleContextRemoveProvider _obj provider = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let provider' = unsafeManagedPtrCastPtr provider - gtk_style_context_remove_provider _obj' provider' - touchManagedPtr _obj - touchManagedPtr provider - return () - -data StyleContextRemoveProviderMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, StyleProviderK b) => MethodInfo StyleContextRemoveProviderMethodInfo a signature where - overloadedMethod _ = styleContextRemoveProvider - --- method StyleContext::remove_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_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 "gtk_style_context_remove_region" gtk_style_context_remove_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CString -> -- region_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED styleContextRemoveRegion ["(Since version 3.14)"]#-} -styleContextRemoveRegion :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> T.Text -- regionName - -> m () -- result -styleContextRemoveRegion _obj regionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - regionName' <- textToCString regionName - gtk_style_context_remove_region _obj' regionName' - touchManagedPtr _obj - freeMem regionName' - return () - -data StyleContextRemoveRegionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRemoveRegionMethodInfo a signature where - overloadedMethod _ = styleContextRemoveRegion - --- method StyleContext::restore --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 "gtk_style_context_restore" gtk_style_context_restore :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO () - - -styleContextRestore :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m () -- result -styleContextRestore _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_restore _obj' - touchManagedPtr _obj - return () - -data StyleContextRestoreMethodInfo -instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRestoreMethodInfo a signature where - overloadedMethod _ = styleContextRestore - --- method StyleContext::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 "gtk_style_context_save" gtk_style_context_save :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - IO () - - -styleContextSave :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> m () -- result -styleContextSave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_save _obj' - touchManagedPtr _obj - return () - -data StyleContextSaveMethodInfo -instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSaveMethodInfo a signature where - overloadedMethod _ = styleContextSave - --- method StyleContext::scroll_animations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", 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 "gtk_style_context_scroll_animations" gtk_style_context_scroll_animations :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- dx : TBasicType TInt - Int32 -> -- dy : TBasicType TInt - IO () - -{-# DEPRECATED styleContextScrollAnimations ["(Since version 3.6)","This function does nothing."]#-} -styleContextScrollAnimations :: - (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> Int32 -- dx - -> Int32 -- dy - -> m () -- result -styleContextScrollAnimations _obj window dx dy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_style_context_scroll_animations _obj' window' dx dy - touchManagedPtr _obj - touchManagedPtr window - return () - -data StyleContextScrollAnimationsMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextScrollAnimationsMethodInfo a signature where - overloadedMethod _ = styleContextScrollAnimations - --- method StyleContext::set_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", 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 "gtk_style_context_set_background" gtk_style_context_set_background :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED styleContextSetBackground ["(Since version 3.18)","Use gtk_render_background() instead."," Note that clients still using this function are now responsible"," for calling this function again whenever @context is invalidated."]#-} -styleContextSetBackground :: - (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -styleContextSetBackground _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_style_context_set_background _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data StyleContextSetBackgroundMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextSetBackgroundMethodInfo a signature where - overloadedMethod _ = styleContextSetBackground - --- method StyleContext::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", 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 "gtk_style_context_set_direction" gtk_style_context_set_direction :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- direction : TInterface "Gtk" "TextDirection" - IO () - -{-# DEPRECATED styleContextSetDirection ["(Since version 3.8)","Use gtk_style_context_set_state() with"," #GTK_STATE_FLAG_DIR_LTR and #GTK_STATE_FLAG_DIR_RTL"," instead."]#-} -styleContextSetDirection :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> TextDirection -- direction - -> m () -- result -styleContextSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_style_context_set_direction _obj' direction' - touchManagedPtr _obj - return () - -data StyleContextSetDirectionMethodInfo -instance (signature ~ (TextDirection -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetDirectionMethodInfo a signature where - overloadedMethod _ = styleContextSetDirection - --- method StyleContext::set_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_clock", argType = TInterface "Gdk" "FrameClock", 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 "gtk_style_context_set_frame_clock" gtk_style_context_set_frame_clock :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr Gdk.FrameClock -> -- frame_clock : TInterface "Gdk" "FrameClock" - IO () - - -styleContextSetFrameClock :: - (MonadIO m, StyleContextK a, Gdk.FrameClockK b) => - a -- _obj - -> b -- frameClock - -> m () -- result -styleContextSetFrameClock _obj frameClock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let frameClock' = unsafeManagedPtrCastPtr frameClock - gtk_style_context_set_frame_clock _obj' frameClock' - touchManagedPtr _obj - touchManagedPtr frameClock - return () - -data StyleContextSetFrameClockMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.FrameClockK b) => MethodInfo StyleContextSetFrameClockMethodInfo a signature where - overloadedMethod _ = styleContextSetFrameClock - --- method StyleContext::set_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sides", argType = TInterface "Gtk" "JunctionSides", 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 "gtk_style_context_set_junction_sides" gtk_style_context_set_junction_sides :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- sides : TInterface "Gtk" "JunctionSides" - IO () - - -styleContextSetJunctionSides :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [JunctionSides] -- sides - -> m () -- result -styleContextSetJunctionSides _obj sides = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sides' = gflagsToWord sides - gtk_style_context_set_junction_sides _obj' sides' - touchManagedPtr _obj - return () - -data StyleContextSetJunctionSidesMethodInfo -instance (signature ~ ([JunctionSides] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetJunctionSidesMethodInfo a signature where - overloadedMethod _ = styleContextSetJunctionSides - --- method StyleContext::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_set_parent" gtk_style_context_set_parent :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr StyleContext -> -- parent : TInterface "Gtk" "StyleContext" - IO () - - -styleContextSetParent :: - (MonadIO m, StyleContextK a, StyleContextK b) => - a -- _obj - -> Maybe (b) -- parent - -> m () -- result -styleContextSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - gtk_style_context_set_parent _obj' maybeParent - touchManagedPtr _obj - whenJust parent touchManagedPtr - return () - -data StyleContextSetParentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StyleContextK a, StyleContextK b) => MethodInfo StyleContextSetParentMethodInfo a signature where - overloadedMethod _ = styleContextSetParent - --- method StyleContext::set_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_style_context_set_path" gtk_style_context_set_path :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr WidgetPath -> -- path : TInterface "Gtk" "WidgetPath" - IO () - - -styleContextSetPath :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> WidgetPath -- path - -> m () -- result -styleContextSetPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_style_context_set_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data StyleContextSetPathMethodInfo -instance (signature ~ (WidgetPath -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetPathMethodInfo a signature where - overloadedMethod _ = styleContextSetPath - --- method StyleContext::set_scale --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", 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 "gtk_style_context_set_scale" gtk_style_context_set_scale :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Int32 -> -- scale : TBasicType TInt - IO () - - -styleContextSetScale :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> Int32 -- scale - -> m () -- result -styleContextSetScale _obj scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_set_scale _obj' scale - touchManagedPtr _obj - return () - -data StyleContextSetScaleMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetScaleMethodInfo a signature where - overloadedMethod _ = styleContextSetScale - --- method StyleContext::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_style_context_set_screen" gtk_style_context_set_screen :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -styleContextSetScreen :: - (MonadIO m, StyleContextK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -styleContextSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_style_context_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data StyleContextSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.ScreenK b) => MethodInfo StyleContextSetScreenMethodInfo a signature where - overloadedMethod _ = styleContextSetScreen - --- method StyleContext::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", 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 "gtk_style_context_set_state" gtk_style_context_set_state :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - IO () - - -styleContextSetState :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> [StateFlags] -- flags - -> m () -- result -styleContextSetState _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_style_context_set_state _obj' flags' - touchManagedPtr _obj - return () - -data StyleContextSetStateMethodInfo -instance (signature ~ ([StateFlags] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetStateMethodInfo a signature where - overloadedMethod _ = styleContextSetState - --- method StyleContext::state_is_running --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, 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 "gtk_style_context_state_is_running" gtk_style_context_state_is_running :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr CDouble -> -- progress : TBasicType TDouble - IO CInt - -{-# DEPRECATED styleContextStateIsRunning ["(Since version 3.6)","This function always returns %FALSE"]#-} -styleContextStateIsRunning :: - (MonadIO m, StyleContextK a) => - a -- _obj - -> StateType -- state - -> m (Bool,Double) -- result -styleContextStateIsRunning _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - progress <- allocMem :: IO (Ptr CDouble) - result <- gtk_style_context_state_is_running _obj' state' progress - let result' = (/= 0) result - progress' <- peek progress - let progress'' = realToFrac progress' - touchManagedPtr _obj - freeMem progress - return (result', progress'') - -data StyleContextStateIsRunningMethodInfo -instance (signature ~ (StateType -> m (Bool,Double)), MonadIO m, StyleContextK a) => MethodInfo StyleContextStateIsRunningMethodInfo a signature where - overloadedMethod _ = styleContextStateIsRunning - --- method StyleContext::add_provider_for_screen --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", 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 "gtk_style_context_add_provider_for_screen" gtk_style_context_add_provider_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - Word32 -> -- priority : TBasicType TUInt - IO () - - -styleContextAddProviderForScreen :: - (MonadIO m, Gdk.ScreenK a, StyleProviderK b) => - a -- screen - -> b -- provider - -> Word32 -- priority - -> m () -- result -styleContextAddProviderForScreen screen provider priority = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - let provider' = unsafeManagedPtrCastPtr provider - gtk_style_context_add_provider_for_screen screen' provider' priority - touchManagedPtr screen - touchManagedPtr provider - return () - --- method StyleContext::remove_provider_for_screen --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", 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 "gtk_style_context_remove_provider_for_screen" gtk_style_context_remove_provider_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - IO () - - -styleContextRemoveProviderForScreen :: - (MonadIO m, Gdk.ScreenK a, StyleProviderK b) => - a -- screen - -> b -- provider - -> m () -- result -styleContextRemoveProviderForScreen screen provider = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - let provider' = unsafeManagedPtrCastPtr provider - gtk_style_context_remove_provider_for_screen screen' provider' - touchManagedPtr screen - touchManagedPtr provider - return () - --- method StyleContext::reset_widgets --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_style_context_reset_widgets" gtk_style_context_reset_widgets :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -styleContextResetWidgets :: - (MonadIO m, Gdk.ScreenK a) => - a -- screen - -> m () -- result -styleContextResetWidgets screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - gtk_style_context_reset_widgets screen' - touchManagedPtr screen - return () - - diff --git a/GI/Gtk/Objects/StyleContext.hs-boot b/GI/Gtk/Objects/StyleContext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StyleContext.hs-boot +++ /dev/null @@ -1,66 +0,0 @@ -module GI.Gtk.Objects.StyleContext 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 StyleContext = StyleContext (ForeignPtr StyleContext) -instance GObject StyleContext where -class GObject o => StyleContextK o -instance (GObject o, IsDescendantOf StyleContext o) => StyleContextK o -data StyleContextDirectionPropertyInfo -data StyleContextPaintClockPropertyInfo -data StyleContextParentPropertyInfo -data StyleContextScreenPropertyInfo -data StyleContextChangedSignalInfo -data StyleContextAddClassMethodInfo -data StyleContextAddProviderMethodInfo -data StyleContextAddRegionMethodInfo -data StyleContextCancelAnimationsMethodInfo -data StyleContextGetBackgroundColorMethodInfo -data StyleContextGetBorderMethodInfo -data StyleContextGetBorderColorMethodInfo -data StyleContextGetColorMethodInfo -data StyleContextGetDirectionMethodInfo -data StyleContextGetFontMethodInfo -data StyleContextGetFrameClockMethodInfo -data StyleContextGetJunctionSidesMethodInfo -data StyleContextGetMarginMethodInfo -data StyleContextGetPaddingMethodInfo -data StyleContextGetParentMethodInfo -data StyleContextGetPathMethodInfo -data StyleContextGetPropertyMethodInfo -data StyleContextGetScaleMethodInfo -data StyleContextGetScreenMethodInfo -data StyleContextGetSectionMethodInfo -data StyleContextGetStateMethodInfo -data StyleContextGetStylePropertyMethodInfo -data StyleContextHasClassMethodInfo -data StyleContextHasRegionMethodInfo -data StyleContextInvalidateMethodInfo -data StyleContextListClassesMethodInfo -data StyleContextListRegionsMethodInfo -data StyleContextLookupColorMethodInfo -data StyleContextLookupIconSetMethodInfo -data StyleContextNotifyStateChangeMethodInfo -data StyleContextPopAnimatableRegionMethodInfo -data StyleContextPushAnimatableRegionMethodInfo -data StyleContextRemoveClassMethodInfo -data StyleContextRemoveProviderMethodInfo -data StyleContextRemoveRegionMethodInfo -data StyleContextRestoreMethodInfo -data StyleContextSaveMethodInfo -data StyleContextScrollAnimationsMethodInfo -data StyleContextSetBackgroundMethodInfo -data StyleContextSetDirectionMethodInfo -data StyleContextSetFrameClockMethodInfo -data StyleContextSetJunctionSidesMethodInfo -data StyleContextSetParentMethodInfo -data StyleContextSetPathMethodInfo -data StyleContextSetScaleMethodInfo -data StyleContextSetScreenMethodInfo -data StyleContextSetStateMethodInfo -data StyleContextStateIsRunningMethodInfo diff --git a/GI/Gtk/Objects/StyleProperties.hs b/GI/Gtk/Objects/StyleProperties.hs deleted file mode 100644 --- a/GI/Gtk/Objects/StyleProperties.hs +++ /dev/null @@ -1,400 +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.Gtk.Objects.StyleProperties - ( - --- * Exported types - StyleProperties(..) , - StylePropertiesK , - toStyleProperties , - noStyleProperties , - - - -- * Methods --- ** stylePropertiesClear - StylePropertiesClearMethodInfo , - stylePropertiesClear , - - --- ** stylePropertiesGetProperty - StylePropertiesGetPropertyMethodInfo , - stylePropertiesGetProperty , - - --- ** stylePropertiesLookupColor - StylePropertiesLookupColorMethodInfo , - stylePropertiesLookupColor , - - --- ** stylePropertiesMapColor - StylePropertiesMapColorMethodInfo , - stylePropertiesMapColor , - - --- ** stylePropertiesMerge - StylePropertiesMergeMethodInfo , - stylePropertiesMerge , - - --- ** stylePropertiesNew - stylePropertiesNew , - - --- ** stylePropertiesSetProperty - StylePropertiesSetPropertyMethodInfo , - stylePropertiesSetProperty , - - --- ** stylePropertiesUnsetProperty - StylePropertiesUnsetPropertyMethodInfo , - stylePropertiesUnsetProperty , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype StyleProperties = StyleProperties (ForeignPtr StyleProperties) -foreign import ccall "gtk_style_properties_get_type" - c_gtk_style_properties_get_type :: IO GType - -type instance ParentTypes StyleProperties = StylePropertiesParentTypes -type StylePropertiesParentTypes = '[GObject.Object, StyleProvider] - -instance GObject StyleProperties where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_style_properties_get_type - - -class GObject o => StylePropertiesK o -instance (GObject o, IsDescendantOf StyleProperties o) => StylePropertiesK o - -toStyleProperties :: StylePropertiesK o => o -> IO StyleProperties -toStyleProperties = unsafeCastTo StyleProperties - -noStyleProperties :: Maybe StyleProperties -noStyleProperties = Nothing - -type family ResolveStylePropertiesMethod (t :: Symbol) (o :: *) :: * where - ResolveStylePropertiesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveStylePropertiesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveStylePropertiesMethod "clear" o = StylePropertiesClearMethodInfo - ResolveStylePropertiesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveStylePropertiesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveStylePropertiesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveStylePropertiesMethod "lookupColor" o = StylePropertiesLookupColorMethodInfo - ResolveStylePropertiesMethod "mapColor" o = StylePropertiesMapColorMethodInfo - ResolveStylePropertiesMethod "merge" o = StylePropertiesMergeMethodInfo - ResolveStylePropertiesMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveStylePropertiesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveStylePropertiesMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveStylePropertiesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveStylePropertiesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveStylePropertiesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveStylePropertiesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveStylePropertiesMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveStylePropertiesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveStylePropertiesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveStylePropertiesMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveStylePropertiesMethod "unsetProperty" o = StylePropertiesUnsetPropertyMethodInfo - ResolveStylePropertiesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveStylePropertiesMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveStylePropertiesMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo - ResolveStylePropertiesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveStylePropertiesMethod "getStyle" o = StyleProviderGetStyleMethodInfo - ResolveStylePropertiesMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo - ResolveStylePropertiesMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveStylePropertiesMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStylePropertiesMethod t StyleProperties, MethodInfo info StyleProperties p) => IsLabelProxy t (StyleProperties -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStylePropertiesMethod t StyleProperties, MethodInfo info StyleProperties p) => IsLabel t (StyleProperties -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList StyleProperties = StylePropertiesAttributeList -type StylePropertiesAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList StyleProperties = StylePropertiesSignalList -type StylePropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StyleProperties::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleProperties") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_properties_new" gtk_style_properties_new :: - IO (Ptr StyleProperties) - -{-# DEPRECATED stylePropertiesNew ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesNew :: - (MonadIO m) => - m StyleProperties -- result -stylePropertiesNew = liftIO $ do - result <- gtk_style_properties_new - checkUnexpectedReturnNULL "gtk_style_properties_new" result - result' <- (wrapObject StyleProperties) result - return result' - --- method StyleProperties::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", 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 "gtk_style_properties_clear" gtk_style_properties_clear :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - IO () - -{-# DEPRECATED stylePropertiesClear ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesClear :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> m () -- result -stylePropertiesClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_properties_clear _obj' - touchManagedPtr _obj - return () - -data StylePropertiesClearMethodInfo -instance (signature ~ (m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesClearMethodInfo a signature where - overloadedMethod _ = stylePropertiesClear - --- method StyleProperties::get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_properties_get_property" gtk_style_properties_get_property :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CInt - -{-# DEPRECATED stylePropertiesGetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesGetProperty :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> T.Text -- property - -> [StateFlags] -- state - -> m (Bool,GValue) -- result -stylePropertiesGetProperty _obj property state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - let state' = gflagsToWord state - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - result <- gtk_style_properties_get_property _obj' property' state' value - let result' = (/= 0) result - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem property' - return (result', value') - -data StylePropertiesGetPropertyMethodInfo -instance (signature ~ (T.Text -> [StateFlags] -> m (Bool,GValue)), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesGetPropertyMethodInfo a signature where - overloadedMethod _ = stylePropertiesGetProperty - --- method StyleProperties::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", 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 : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_properties_lookup_color" gtk_style_properties_lookup_color :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - CString -> -- name : TBasicType TUTF8 - IO (Ptr SymbolicColor) - -{-# DEPRECATED stylePropertiesLookupColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -stylePropertiesLookupColor :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> T.Text -- name - -> m SymbolicColor -- result -stylePropertiesLookupColor _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_style_properties_lookup_color _obj' name' - checkUnexpectedReturnNULL "gtk_style_properties_lookup_color" result - result' <- (newBoxed SymbolicColor) result - touchManagedPtr _obj - freeMem name' - return result' - -data StylePropertiesLookupColorMethodInfo -instance (signature ~ (T.Text -> m SymbolicColor), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesLookupColorMethodInfo a signature where - overloadedMethod _ = stylePropertiesLookupColor - --- method StyleProperties::map_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", 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},Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", 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 "gtk_style_properties_map_color" gtk_style_properties_map_color :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - CString -> -- name : TBasicType TUTF8 - Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor" - IO () - -{-# DEPRECATED stylePropertiesMapColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -stylePropertiesMapColor :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> T.Text -- name - -> SymbolicColor -- color - -> m () -- result -stylePropertiesMapColor _obj name color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let color' = unsafeManagedPtrGetPtr color - gtk_style_properties_map_color _obj' name' color' - touchManagedPtr _obj - touchManagedPtr color - freeMem name' - return () - -data StylePropertiesMapColorMethodInfo -instance (signature ~ (T.Text -> SymbolicColor -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesMapColorMethodInfo a signature where - overloadedMethod _ = stylePropertiesMapColor - --- method StyleProperties::merge --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", 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 "gtk_style_properties_merge" gtk_style_properties_merge :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - Ptr StyleProperties -> -- props_to_merge : TInterface "Gtk" "StyleProperties" - CInt -> -- replace : TBasicType TBoolean - IO () - -{-# DEPRECATED stylePropertiesMerge ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesMerge :: - (MonadIO m, StylePropertiesK a, StylePropertiesK b) => - a -- _obj - -> b -- propsToMerge - -> Bool -- replace - -> m () -- result -stylePropertiesMerge _obj propsToMerge replace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let propsToMerge' = unsafeManagedPtrCastPtr propsToMerge - let replace' = (fromIntegral . fromEnum) replace - gtk_style_properties_merge _obj' propsToMerge' replace' - touchManagedPtr _obj - touchManagedPtr propsToMerge - return () - -data StylePropertiesMergeMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, StylePropertiesK a, StylePropertiesK b) => MethodInfo StylePropertiesMergeMethodInfo a signature where - overloadedMethod _ = stylePropertiesMerge - --- method StyleProperties::set_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", 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 "gtk_style_properties_set_property" gtk_style_properties_set_property :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED stylePropertiesSetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesSetProperty :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> T.Text -- property - -> [StateFlags] -- state - -> GValue -- value - -> m () -- result -stylePropertiesSetProperty _obj property state value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - let state' = gflagsToWord state - let value' = unsafeManagedPtrGetPtr value - gtk_style_properties_set_property _obj' property' state' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property' - return () - -data StylePropertiesSetPropertyMethodInfo -instance (signature ~ (T.Text -> [StateFlags] -> GValue -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesSetPropertyMethodInfo a signature where - overloadedMethod _ = stylePropertiesSetProperty - --- method StyleProperties::unset_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", 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 "gtk_style_properties_unset_property" gtk_style_properties_unset_property :: - Ptr StyleProperties -> -- _obj : TInterface "Gtk" "StyleProperties" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - IO () - -{-# DEPRECATED stylePropertiesUnsetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} -stylePropertiesUnsetProperty :: - (MonadIO m, StylePropertiesK a) => - a -- _obj - -> T.Text -- property - -> [StateFlags] -- state - -> m () -- result -stylePropertiesUnsetProperty _obj property state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - let state' = gflagsToWord state - gtk_style_properties_unset_property _obj' property' state' - touchManagedPtr _obj - freeMem property' - return () - -data StylePropertiesUnsetPropertyMethodInfo -instance (signature ~ (T.Text -> [StateFlags] -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesUnsetPropertyMethodInfo a signature where - overloadedMethod _ = stylePropertiesUnsetProperty - - diff --git a/GI/Gtk/Objects/StyleProperties.hs-boot b/GI/Gtk/Objects/StyleProperties.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/StyleProperties.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Objects.StyleProperties 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 StyleProperties = StyleProperties (ForeignPtr StyleProperties) -instance GObject StyleProperties where -class GObject o => StylePropertiesK o -instance (GObject o, IsDescendantOf StyleProperties o) => StylePropertiesK o -data StylePropertiesClearMethodInfo -data StylePropertiesGetPropertyMethodInfo -data StylePropertiesLookupColorMethodInfo -data StylePropertiesMapColorMethodInfo -data StylePropertiesMergeMethodInfo -data StylePropertiesSetPropertyMethodInfo -data StylePropertiesUnsetPropertyMethodInfo diff --git a/GI/Gtk/Objects/Switch.hs b/GI/Gtk/Objects/Switch.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Switch.hs +++ /dev/null @@ -1,727 +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.Gtk.Objects.Switch - ( - --- * Exported types - Switch(..) , - SwitchK , - toSwitch , - noSwitch , - - - -- * Methods --- ** switchGetActive - SwitchGetActiveMethodInfo , - switchGetActive , - - --- ** switchGetState - SwitchGetStateMethodInfo , - switchGetState , - - --- ** switchNew - switchNew , - - --- ** switchSetActive - SwitchSetActiveMethodInfo , - switchSetActive , - - --- ** switchSetState - SwitchSetStateMethodInfo , - switchSetState , - - - - - -- * Properties --- ** Active - SwitchActivePropertyInfo , - constructSwitchActive , - getSwitchActive , - setSwitchActive , - switchActive , - - --- ** State - SwitchStatePropertyInfo , - constructSwitchState , - getSwitchState , - setSwitchState , - switchState , - - - - - -- * Signals --- ** Activate - SwitchActivateCallback , - SwitchActivateCallbackC , - SwitchActivateSignalInfo , - afterSwitchActivate , - mkSwitchActivateCallback , - noSwitchActivateCallback , - onSwitchActivate , - switchActivateCallbackWrapper , - switchActivateClosure , - - --- ** StateSet - SwitchStateSetCallback , - SwitchStateSetCallbackC , - SwitchStateSetSignalInfo , - afterSwitchStateSet , - mkSwitchStateSetCallback , - noSwitchStateSetCallback , - onSwitchStateSet , - switchStateSetCallbackWrapper , - switchStateSetClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Switch = Switch (ForeignPtr Switch) -foreign import ccall "gtk_switch_get_type" - c_gtk_switch_get_type :: IO GType - -type instance ParentTypes Switch = SwitchParentTypes -type SwitchParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject Switch where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_switch_get_type - - -class GObject o => SwitchK o -instance (GObject o, IsDescendantOf Switch o) => SwitchK o - -toSwitch :: SwitchK o => o -> IO Switch -toSwitch = unsafeCastTo Switch - -noSwitch :: Maybe Switch -noSwitch = Nothing - -type family ResolveSwitchMethod (t :: Symbol) (o :: *) :: * where - ResolveSwitchMethod "activate" o = WidgetActivateMethodInfo - ResolveSwitchMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveSwitchMethod "addChild" o = BuildableAddChildMethodInfo - ResolveSwitchMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveSwitchMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveSwitchMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveSwitchMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveSwitchMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSwitchMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSwitchMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveSwitchMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveSwitchMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveSwitchMethod "classPath" o = WidgetClassPathMethodInfo - ResolveSwitchMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveSwitchMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveSwitchMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveSwitchMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveSwitchMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveSwitchMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveSwitchMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveSwitchMethod "destroy" o = WidgetDestroyMethodInfo - ResolveSwitchMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveSwitchMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveSwitchMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveSwitchMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveSwitchMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveSwitchMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveSwitchMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveSwitchMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveSwitchMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveSwitchMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveSwitchMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveSwitchMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveSwitchMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveSwitchMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveSwitchMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveSwitchMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveSwitchMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveSwitchMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveSwitchMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveSwitchMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveSwitchMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveSwitchMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveSwitchMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveSwitchMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveSwitchMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveSwitchMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveSwitchMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveSwitchMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveSwitchMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveSwitchMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveSwitchMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveSwitchMethod "draw" o = WidgetDrawMethodInfo - ResolveSwitchMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveSwitchMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveSwitchMethod "event" o = WidgetEventMethodInfo - ResolveSwitchMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSwitchMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveSwitchMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSwitchMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveSwitchMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveSwitchMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveSwitchMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveSwitchMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveSwitchMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveSwitchMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveSwitchMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveSwitchMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveSwitchMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveSwitchMethod "hide" o = WidgetHideMethodInfo - ResolveSwitchMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveSwitchMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveSwitchMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveSwitchMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveSwitchMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveSwitchMethod "intersect" o = WidgetIntersectMethodInfo - ResolveSwitchMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveSwitchMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveSwitchMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveSwitchMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSwitchMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveSwitchMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveSwitchMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveSwitchMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveSwitchMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveSwitchMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveSwitchMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveSwitchMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveSwitchMethod "map" o = WidgetMapMethodInfo - ResolveSwitchMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveSwitchMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveSwitchMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveSwitchMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveSwitchMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveSwitchMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveSwitchMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveSwitchMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveSwitchMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSwitchMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSwitchMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveSwitchMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveSwitchMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveSwitchMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveSwitchMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveSwitchMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveSwitchMethod "path" o = WidgetPathMethodInfo - ResolveSwitchMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveSwitchMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveSwitchMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveSwitchMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveSwitchMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveSwitchMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveSwitchMethod "realize" o = WidgetRealizeMethodInfo - ResolveSwitchMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSwitchMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSwitchMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveSwitchMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveSwitchMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveSwitchMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveSwitchMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveSwitchMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveSwitchMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveSwitchMethod "reparent" o = WidgetReparentMethodInfo - ResolveSwitchMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSwitchMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSwitchMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveSwitchMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveSwitchMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSwitchMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveSwitchMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveSwitchMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveSwitchMethod "show" o = WidgetShowMethodInfo - ResolveSwitchMethod "showAll" o = WidgetShowAllMethodInfo - ResolveSwitchMethod "showNow" o = WidgetShowNowMethodInfo - ResolveSwitchMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveSwitchMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveSwitchMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveSwitchMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSwitchMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSwitchMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveSwitchMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveSwitchMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveSwitchMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveSwitchMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSwitchMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveSwitchMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveSwitchMethod "unmap" o = WidgetUnmapMethodInfo - ResolveSwitchMethod "unparent" o = WidgetUnparentMethodInfo - ResolveSwitchMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveSwitchMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSwitchMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveSwitchMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveSwitchMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSwitchMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveSwitchMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveSwitchMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveSwitchMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveSwitchMethod "getActive" o = SwitchGetActiveMethodInfo - ResolveSwitchMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveSwitchMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveSwitchMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveSwitchMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveSwitchMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveSwitchMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveSwitchMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveSwitchMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveSwitchMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveSwitchMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveSwitchMethod "getClip" o = WidgetGetClipMethodInfo - ResolveSwitchMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveSwitchMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveSwitchMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSwitchMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveSwitchMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveSwitchMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveSwitchMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveSwitchMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveSwitchMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveSwitchMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveSwitchMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveSwitchMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveSwitchMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveSwitchMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveSwitchMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveSwitchMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveSwitchMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveSwitchMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveSwitchMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveSwitchMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveSwitchMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveSwitchMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveSwitchMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveSwitchMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveSwitchMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveSwitchMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveSwitchMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveSwitchMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveSwitchMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveSwitchMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveSwitchMethod "getParent" o = WidgetGetParentMethodInfo - ResolveSwitchMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveSwitchMethod "getPath" o = WidgetGetPathMethodInfo - ResolveSwitchMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveSwitchMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveSwitchMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveSwitchMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveSwitchMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveSwitchMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveSwitchMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveSwitchMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSwitchMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSwitchMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveSwitchMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveSwitchMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveSwitchMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveSwitchMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveSwitchMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveSwitchMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveSwitchMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveSwitchMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveSwitchMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveSwitchMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveSwitchMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveSwitchMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveSwitchMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveSwitchMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveSwitchMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveSwitchMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveSwitchMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveSwitchMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveSwitchMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveSwitchMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveSwitchMethod "getValign" o = WidgetGetValignMethodInfo - ResolveSwitchMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveSwitchMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveSwitchMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveSwitchMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveSwitchMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveSwitchMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveSwitchMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveSwitchMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveSwitchMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveSwitchMethod "setActive" o = SwitchSetActiveMethodInfo - ResolveSwitchMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveSwitchMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveSwitchMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveSwitchMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveSwitchMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveSwitchMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveSwitchMethod "setClip" o = WidgetSetClipMethodInfo - ResolveSwitchMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveSwitchMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSwitchMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveSwitchMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveSwitchMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveSwitchMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveSwitchMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveSwitchMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveSwitchMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveSwitchMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveSwitchMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveSwitchMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveSwitchMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveSwitchMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveSwitchMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveSwitchMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveSwitchMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveSwitchMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveSwitchMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveSwitchMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveSwitchMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveSwitchMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveSwitchMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveSwitchMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveSwitchMethod "setParent" o = WidgetSetParentMethodInfo - ResolveSwitchMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveSwitchMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSwitchMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveSwitchMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveSwitchMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveSwitchMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveSwitchMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveSwitchMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveSwitchMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveSwitchMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveSwitchMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveSwitchMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveSwitchMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveSwitchMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveSwitchMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveSwitchMethod "setValign" o = WidgetSetValignMethodInfo - ResolveSwitchMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveSwitchMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveSwitchMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveSwitchMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveSwitchMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveSwitchMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabelProxy t (Switch -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabel t (Switch -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Switch::activate -type SwitchActivateCallback = - IO () - -noSwitchActivateCallback :: Maybe SwitchActivateCallback -noSwitchActivateCallback = Nothing - -type SwitchActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSwitchActivateCallback :: SwitchActivateCallbackC -> IO (FunPtr SwitchActivateCallbackC) - -switchActivateClosure :: SwitchActivateCallback -> IO Closure -switchActivateClosure cb = newCClosure =<< mkSwitchActivateCallback wrapped - where wrapped = switchActivateCallbackWrapper cb - -switchActivateCallbackWrapper :: - SwitchActivateCallback -> - Ptr () -> - Ptr () -> - IO () -switchActivateCallbackWrapper _cb _ _ = do - _cb - -onSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId -onSwitchActivate obj cb = liftIO $ connectSwitchActivate obj cb SignalConnectBefore -afterSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId -afterSwitchActivate obj cb = connectSwitchActivate obj cb SignalConnectAfter - -connectSwitchActivate :: (GObject a, MonadIO m) => - a -> SwitchActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectSwitchActivate obj cb after = liftIO $ do - cb' <- mkSwitchActivateCallback (switchActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Switch::state-set -type SwitchStateSetCallback = - Bool -> - IO Bool - -noSwitchStateSetCallback :: Maybe SwitchStateSetCallback -noSwitchStateSetCallback = Nothing - -type SwitchStateSetCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSwitchStateSetCallback :: SwitchStateSetCallbackC -> IO (FunPtr SwitchStateSetCallbackC) - -switchStateSetClosure :: SwitchStateSetCallback -> IO Closure -switchStateSetClosure cb = newCClosure =<< mkSwitchStateSetCallback wrapped - where wrapped = switchStateSetCallbackWrapper cb - -switchStateSetCallbackWrapper :: - SwitchStateSetCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -switchStateSetCallbackWrapper _cb _ state _ = do - let state' = (/= 0) state - result <- _cb state' - let result' = (fromIntegral . fromEnum) result - return result' - -onSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId -onSwitchStateSet obj cb = liftIO $ connectSwitchStateSet obj cb SignalConnectBefore -afterSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId -afterSwitchStateSet obj cb = connectSwitchStateSet obj cb SignalConnectAfter - -connectSwitchStateSet :: (GObject a, MonadIO m) => - a -> SwitchStateSetCallback -> SignalConnectMode -> m SignalHandlerId -connectSwitchStateSet obj cb after = liftIO $ do - cb' <- mkSwitchStateSetCallback (switchStateSetCallbackWrapper cb) - connectSignalFunPtr obj "state-set" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSwitchActive :: (MonadIO m, SwitchK o) => o -> m Bool -getSwitchActive obj = liftIO $ getObjectPropertyBool obj "active" - -setSwitchActive :: (MonadIO m, SwitchK o) => o -> Bool -> m () -setSwitchActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructSwitchActive :: Bool -> IO ([Char], GValue) -constructSwitchActive val = constructObjectPropertyBool "active" val - -data SwitchActivePropertyInfo -instance AttrInfo SwitchActivePropertyInfo where - type AttrAllowedOps SwitchActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SwitchActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SwitchActivePropertyInfo = SwitchK - type AttrGetType SwitchActivePropertyInfo = Bool - type AttrLabel SwitchActivePropertyInfo = "active" - attrGet _ = getSwitchActive - attrSet _ = setSwitchActive - attrConstruct _ = constructSwitchActive - attrClear _ = undefined - --- VVV Prop "state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSwitchState :: (MonadIO m, SwitchK o) => o -> m Bool -getSwitchState obj = liftIO $ getObjectPropertyBool obj "state" - -setSwitchState :: (MonadIO m, SwitchK o) => o -> Bool -> m () -setSwitchState obj val = liftIO $ setObjectPropertyBool obj "state" val - -constructSwitchState :: Bool -> IO ([Char], GValue) -constructSwitchState val = constructObjectPropertyBool "state" val - -data SwitchStatePropertyInfo -instance AttrInfo SwitchStatePropertyInfo where - type AttrAllowedOps SwitchStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SwitchStatePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SwitchStatePropertyInfo = SwitchK - type AttrGetType SwitchStatePropertyInfo = Bool - type AttrLabel SwitchStatePropertyInfo = "state" - attrGet _ = getSwitchState - attrSet _ = setSwitchState - attrConstruct _ = constructSwitchState - attrClear _ = undefined - -type instance AttributeList Switch = SwitchAttributeList -type SwitchAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -switchActive :: AttrLabelProxy "active" -switchActive = AttrLabelProxy - -switchState :: AttrLabelProxy "state" -switchState = AttrLabelProxy - -data SwitchActivateSignalInfo -instance SignalInfo SwitchActivateSignalInfo where - type HaskellCallbackType SwitchActivateSignalInfo = SwitchActivateCallback - connectSignal _ = connectSwitchActivate - -data SwitchStateSetSignalInfo -instance SignalInfo SwitchStateSetSignalInfo where - type HaskellCallbackType SwitchStateSetSignalInfo = SwitchStateSetCallback - connectSignal _ = connectSwitchStateSet - -type instance SignalList Switch = SwitchSignalList -type SwitchSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("stateSet", SwitchStateSetSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Switch::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Switch") --- throws : False --- Skip return : False - -foreign import ccall "gtk_switch_new" gtk_switch_new :: - IO (Ptr Switch) - - -switchNew :: - (MonadIO m) => - m Switch -- result -switchNew = liftIO $ do - result <- gtk_switch_new - checkUnexpectedReturnNULL "gtk_switch_new" result - result' <- (newObject Switch) result - return result' - --- method Switch::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", 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 "gtk_switch_get_active" gtk_switch_get_active :: - Ptr Switch -> -- _obj : TInterface "Gtk" "Switch" - IO CInt - - -switchGetActive :: - (MonadIO m, SwitchK a) => - a -- _obj - -> m Bool -- result -switchGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_switch_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SwitchGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetActiveMethodInfo a signature where - overloadedMethod _ = switchGetActive - --- method Switch::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", 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 "gtk_switch_get_state" gtk_switch_get_state :: - Ptr Switch -> -- _obj : TInterface "Gtk" "Switch" - IO CInt - - -switchGetState :: - (MonadIO m, SwitchK a) => - a -- _obj - -> m Bool -- result -switchGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_switch_get_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SwitchGetStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetStateMethodInfo a signature where - overloadedMethod _ = switchGetState - --- method Switch::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", 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 "gtk_switch_set_active" gtk_switch_set_active :: - Ptr Switch -> -- _obj : TInterface "Gtk" "Switch" - CInt -> -- is_active : TBasicType TBoolean - IO () - - -switchSetActive :: - (MonadIO m, SwitchK a) => - a -- _obj - -> Bool -- isActive - -> m () -- result -switchSetActive _obj isActive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isActive' = (fromIntegral . fromEnum) isActive - gtk_switch_set_active _obj' isActive' - touchManagedPtr _obj - return () - -data SwitchSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetActiveMethodInfo a signature where - overloadedMethod _ = switchSetActive - --- method Switch::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", 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 "gtk_switch_set_state" gtk_switch_set_state :: - Ptr Switch -> -- _obj : TInterface "Gtk" "Switch" - CInt -> -- state : TBasicType TBoolean - IO () - - -switchSetState :: - (MonadIO m, SwitchK a) => - a -- _obj - -> Bool -- state - -> m () -- result -switchSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_switch_set_state _obj' state' - touchManagedPtr _obj - return () - -data SwitchSetStateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetStateMethodInfo a signature where - overloadedMethod _ = switchSetState - - diff --git a/GI/Gtk/Objects/Switch.hs-boot b/GI/Gtk/Objects/Switch.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Switch.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.Switch 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 Switch = Switch (ForeignPtr Switch) -instance GObject Switch where -class GObject o => SwitchK o -instance (GObject o, IsDescendantOf Switch o) => SwitchK o -data SwitchActivePropertyInfo -data SwitchStatePropertyInfo -data SwitchActivateSignalInfo -data SwitchStateSetSignalInfo -data SwitchGetActiveMethodInfo -data SwitchGetStateMethodInfo -data SwitchSetActiveMethodInfo -data SwitchSetStateMethodInfo diff --git a/GI/Gtk/Objects/SwitchAccessible.hs b/GI/Gtk/Objects/SwitchAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/SwitchAccessible.hs +++ /dev/null @@ -1,129 +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.Gtk.Objects.SwitchAccessible - ( - --- * Exported types - SwitchAccessible(..) , - SwitchAccessibleK , - toSwitchAccessible , - noSwitchAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype SwitchAccessible = SwitchAccessible (ForeignPtr SwitchAccessible) -foreign import ccall "gtk_switch_accessible_get_type" - c_gtk_switch_accessible_get_type :: IO GType - -type instance ParentTypes SwitchAccessible = SwitchAccessibleParentTypes -type SwitchAccessibleParentTypes = '[WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component] - -instance GObject SwitchAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_switch_accessible_get_type - - -class GObject o => SwitchAccessibleK o -instance (GObject o, IsDescendantOf SwitchAccessible o) => SwitchAccessibleK o - -toSwitchAccessible :: SwitchAccessibleK o => o -> IO SwitchAccessible -toSwitchAccessible = unsafeCastTo SwitchAccessible - -noSwitchAccessible :: Maybe SwitchAccessible -noSwitchAccessible = Nothing - -type family ResolveSwitchAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveSwitchAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveSwitchAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSwitchAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSwitchAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveSwitchAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveSwitchAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveSwitchAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSwitchAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSwitchAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveSwitchAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveSwitchAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSwitchAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSwitchAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSwitchAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveSwitchAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveSwitchAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSwitchAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveSwitchAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveSwitchAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveSwitchAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSwitchAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveSwitchAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveSwitchAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveSwitchAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveSwitchAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSwitchAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSwitchAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSwitchAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSwitchAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSwitchAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSwitchAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSwitchAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSwitchAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveSwitchAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveSwitchAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSwitchAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveSwitchAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveSwitchAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveSwitchAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveSwitchAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveSwitchAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveSwitchAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveSwitchAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveSwitchAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveSwitchAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSwitchAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSwitchAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveSwitchAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveSwitchAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveSwitchAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSwitchAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveSwitchAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveSwitchAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveSwitchAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveSwitchAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSwitchAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveSwitchAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveSwitchAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveSwitchAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSwitchAccessibleMethod t SwitchAccessible, MethodInfo info SwitchAccessible p) => IsLabelProxy t (SwitchAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSwitchAccessibleMethod t SwitchAccessible, MethodInfo info SwitchAccessible p) => IsLabel t (SwitchAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SwitchAccessible = SwitchAccessibleAttributeList -type SwitchAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SwitchAccessible = SwitchAccessibleSignalList -type SwitchAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/SwitchAccessible.hs-boot b/GI/Gtk/Objects/SwitchAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/SwitchAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.SwitchAccessible 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 SwitchAccessible = SwitchAccessible (ForeignPtr SwitchAccessible) -instance GObject SwitchAccessible where -class GObject o => SwitchAccessibleK o -instance (GObject o, IsDescendantOf SwitchAccessible o) => SwitchAccessibleK o diff --git a/GI/Gtk/Objects/Table.hs b/GI/Gtk/Objects/Table.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Table.hs +++ /dev/null @@ -1,1133 +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.Gtk.Objects.Table - ( - --- * Exported types - Table(..) , - TableK , - toTable , - noTable , - - - -- * Methods --- ** tableAttach - TableAttachMethodInfo , - tableAttach , - - --- ** tableAttachDefaults - TableAttachDefaultsMethodInfo , - tableAttachDefaults , - - --- ** tableGetColSpacing - TableGetColSpacingMethodInfo , - tableGetColSpacing , - - --- ** tableGetDefaultColSpacing - TableGetDefaultColSpacingMethodInfo , - tableGetDefaultColSpacing , - - --- ** tableGetDefaultRowSpacing - TableGetDefaultRowSpacingMethodInfo , - tableGetDefaultRowSpacing , - - --- ** tableGetHomogeneous - TableGetHomogeneousMethodInfo , - tableGetHomogeneous , - - --- ** tableGetRowSpacing - TableGetRowSpacingMethodInfo , - tableGetRowSpacing , - - --- ** tableGetSize - TableGetSizeMethodInfo , - tableGetSize , - - --- ** tableNew - tableNew , - - --- ** tableResize - TableResizeMethodInfo , - tableResize , - - --- ** tableSetColSpacing - TableSetColSpacingMethodInfo , - tableSetColSpacing , - - --- ** tableSetColSpacings - TableSetColSpacingsMethodInfo , - tableSetColSpacings , - - --- ** tableSetHomogeneous - TableSetHomogeneousMethodInfo , - tableSetHomogeneous , - - --- ** tableSetRowSpacing - TableSetRowSpacingMethodInfo , - tableSetRowSpacing , - - --- ** tableSetRowSpacings - TableSetRowSpacingsMethodInfo , - tableSetRowSpacings , - - - - - -- * Properties --- ** ColumnSpacing - TableColumnSpacingPropertyInfo , - constructTableColumnSpacing , - getTableColumnSpacing , - setTableColumnSpacing , - tableColumnSpacing , - - --- ** Homogeneous - TableHomogeneousPropertyInfo , - constructTableHomogeneous , - getTableHomogeneous , - setTableHomogeneous , - tableHomogeneous , - - --- ** NColumns - TableNColumnsPropertyInfo , - constructTableNColumns , - getTableNColumns , - setTableNColumns , - tableNColumns , - - --- ** NRows - TableNRowsPropertyInfo , - constructTableNRows , - getTableNRows , - setTableNRows , - tableNRows , - - --- ** RowSpacing - TableRowSpacingPropertyInfo , - constructTableRowSpacing , - getTableRowSpacing , - setTableRowSpacing , - tableRowSpacing , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Table = Table (ForeignPtr Table) -foreign import ccall "gtk_table_get_type" - c_gtk_table_get_type :: IO GType - -type instance ParentTypes Table = TableParentTypes -type TableParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Table where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_table_get_type - - -class GObject o => TableK o -instance (GObject o, IsDescendantOf Table o) => TableK o - -toTable :: TableK o => o -> IO Table -toTable = unsafeCastTo Table - -noTable :: Maybe Table -noTable = Nothing - -type family ResolveTableMethod (t :: Symbol) (o :: *) :: * where - ResolveTableMethod "activate" o = WidgetActivateMethodInfo - ResolveTableMethod "add" o = ContainerAddMethodInfo - ResolveTableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveTableMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveTableMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveTableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveTableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveTableMethod "attach" o = TableAttachMethodInfo - ResolveTableMethod "attachDefaults" o = TableAttachDefaultsMethodInfo - ResolveTableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveTableMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveTableMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveTableMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveTableMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveTableMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveTableMethod "childType" o = ContainerChildTypeMethodInfo - ResolveTableMethod "classPath" o = WidgetClassPathMethodInfo - ResolveTableMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveTableMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveTableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveTableMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTableMethod "destroy" o = WidgetDestroyMethodInfo - ResolveTableMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveTableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveTableMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveTableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveTableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveTableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveTableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveTableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveTableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveTableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveTableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveTableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveTableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveTableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveTableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveTableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveTableMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveTableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveTableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveTableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveTableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveTableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveTableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveTableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveTableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveTableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveTableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveTableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveTableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveTableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveTableMethod "draw" o = WidgetDrawMethodInfo - ResolveTableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveTableMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveTableMethod "event" o = WidgetEventMethodInfo - ResolveTableMethod "forall" o = ContainerForallMethodInfo - ResolveTableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTableMethod "foreach" o = ContainerForeachMethodInfo - ResolveTableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveTableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTableMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveTableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveTableMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveTableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveTableMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveTableMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveTableMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveTableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveTableMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveTableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveTableMethod "hide" o = WidgetHideMethodInfo - ResolveTableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveTableMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveTableMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveTableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveTableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveTableMethod "intersect" o = WidgetIntersectMethodInfo - ResolveTableMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveTableMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveTableMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveTableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTableMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveTableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveTableMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveTableMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveTableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveTableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveTableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveTableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveTableMethod "map" o = WidgetMapMethodInfo - ResolveTableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveTableMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveTableMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveTableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveTableMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveTableMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveTableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveTableMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveTableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveTableMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveTableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveTableMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveTableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveTableMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTableMethod "path" o = WidgetPathMethodInfo - ResolveTableMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveTableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveTableMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveTableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveTableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveTableMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveTableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveTableMethod "realize" o = WidgetRealizeMethodInfo - ResolveTableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveTableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveTableMethod "remove" o = ContainerRemoveMethodInfo - ResolveTableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveTableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveTableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveTableMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveTableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveTableMethod "reparent" o = WidgetReparentMethodInfo - ResolveTableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveTableMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveTableMethod "resize" o = TableResizeMethodInfo - ResolveTableMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveTableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTableMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveTableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveTableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveTableMethod "show" o = WidgetShowMethodInfo - ResolveTableMethod "showAll" o = WidgetShowAllMethodInfo - ResolveTableMethod "showNow" o = WidgetShowNowMethodInfo - ResolveTableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveTableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveTableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveTableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTableMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveTableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveTableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveTableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveTableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveTableMethod "unmap" o = WidgetUnmapMethodInfo - ResolveTableMethod "unparent" o = WidgetUnparentMethodInfo - ResolveTableMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveTableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveTableMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveTableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveTableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveTableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveTableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveTableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveTableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveTableMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveTableMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveTableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveTableMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveTableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveTableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveTableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveTableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveTableMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveTableMethod "getClip" o = WidgetGetClipMethodInfo - ResolveTableMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveTableMethod "getColSpacing" o = TableGetColSpacingMethodInfo - ResolveTableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveTableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTableMethod "getDefaultColSpacing" o = TableGetDefaultColSpacingMethodInfo - ResolveTableMethod "getDefaultRowSpacing" o = TableGetDefaultRowSpacingMethodInfo - ResolveTableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveTableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveTableMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveTableMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveTableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveTableMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveTableMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveTableMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveTableMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveTableMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveTableMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveTableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveTableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveTableMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveTableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveTableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveTableMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveTableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveTableMethod "getHomogeneous" o = TableGetHomogeneousMethodInfo - ResolveTableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTableMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveTableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveTableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveTableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveTableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveTableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveTableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveTableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveTableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveTableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveTableMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveTableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveTableMethod "getParent" o = WidgetGetParentMethodInfo - ResolveTableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveTableMethod "getPath" o = WidgetGetPathMethodInfo - ResolveTableMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveTableMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveTableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveTableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveTableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveTableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveTableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveTableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveTableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTableMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveTableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveTableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveTableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveTableMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveTableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveTableMethod "getRowSpacing" o = TableGetRowSpacingMethodInfo - ResolveTableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveTableMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveTableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveTableMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveTableMethod "getSize" o = TableGetSizeMethodInfo - ResolveTableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveTableMethod "getState" o = WidgetGetStateMethodInfo - ResolveTableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveTableMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveTableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveTableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveTableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveTableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveTableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveTableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveTableMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveTableMethod "getValign" o = WidgetGetValignMethodInfo - ResolveTableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveTableMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveTableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveTableMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveTableMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveTableMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveTableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveTableMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveTableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveTableMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveTableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveTableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveTableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveTableMethod "setClip" o = WidgetSetClipMethodInfo - ResolveTableMethod "setColSpacing" o = TableSetColSpacingMethodInfo - ResolveTableMethod "setColSpacings" o = TableSetColSpacingsMethodInfo - ResolveTableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveTableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveTableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveTableMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveTableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveTableMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveTableMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveTableMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveTableMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveTableMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveTableMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveTableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveTableMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveTableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveTableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveTableMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveTableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveTableMethod "setHomogeneous" o = TableSetHomogeneousMethodInfo - ResolveTableMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveTableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveTableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveTableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveTableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveTableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveTableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveTableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveTableMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveTableMethod "setParent" o = WidgetSetParentMethodInfo - ResolveTableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveTableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTableMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveTableMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveTableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveTableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveTableMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveTableMethod "setRowSpacing" o = TableSetRowSpacingMethodInfo - ResolveTableMethod "setRowSpacings" o = TableSetRowSpacingsMethodInfo - ResolveTableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveTableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveTableMethod "setState" o = WidgetSetStateMethodInfo - ResolveTableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveTableMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveTableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveTableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveTableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveTableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveTableMethod "setValign" o = WidgetSetValignMethodInfo - ResolveTableMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveTableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveTableMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveTableMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveTableMethod "setWindow" o = WidgetSetWindowMethodInfo - 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 - --- VVV Prop "column-spacing" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTableColumnSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableColumnSpacing obj = liftIO $ getObjectPropertyUInt32 obj "column-spacing" - -setTableColumnSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableColumnSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "column-spacing" val - -constructTableColumnSpacing :: Word32 -> IO ([Char], GValue) -constructTableColumnSpacing val = constructObjectPropertyUInt32 "column-spacing" val - -data TableColumnSpacingPropertyInfo -instance AttrInfo TableColumnSpacingPropertyInfo where - type AttrAllowedOps TableColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TableColumnSpacingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint TableColumnSpacingPropertyInfo = TableK - type AttrGetType TableColumnSpacingPropertyInfo = Word32 - type AttrLabel TableColumnSpacingPropertyInfo = "column-spacing" - attrGet _ = getTableColumnSpacing - attrSet _ = setTableColumnSpacing - attrConstruct _ = constructTableColumnSpacing - attrClear _ = undefined - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTableHomogeneous :: (MonadIO m, TableK o) => o -> m Bool -getTableHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" - -setTableHomogeneous :: (MonadIO m, TableK o) => o -> Bool -> m () -setTableHomogeneous obj val = liftIO $ setObjectPropertyBool obj "homogeneous" val - -constructTableHomogeneous :: Bool -> IO ([Char], GValue) -constructTableHomogeneous val = constructObjectPropertyBool "homogeneous" val - -data TableHomogeneousPropertyInfo -instance AttrInfo TableHomogeneousPropertyInfo where - type AttrAllowedOps TableHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TableHomogeneousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TableHomogeneousPropertyInfo = TableK - type AttrGetType TableHomogeneousPropertyInfo = Bool - type AttrLabel TableHomogeneousPropertyInfo = "homogeneous" - attrGet _ = getTableHomogeneous - attrSet _ = setTableHomogeneous - attrConstruct _ = constructTableHomogeneous - attrClear _ = undefined - --- VVV Prop "n-columns" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTableNColumns :: (MonadIO m, TableK o) => o -> m Word32 -getTableNColumns obj = liftIO $ getObjectPropertyUInt32 obj "n-columns" - -setTableNColumns :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNColumns obj val = liftIO $ setObjectPropertyUInt32 obj "n-columns" val - -constructTableNColumns :: Word32 -> IO ([Char], GValue) -constructTableNColumns val = constructObjectPropertyUInt32 "n-columns" val - -data TableNColumnsPropertyInfo -instance AttrInfo TableNColumnsPropertyInfo where - type AttrAllowedOps TableNColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TableNColumnsPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint TableNColumnsPropertyInfo = TableK - type AttrGetType TableNColumnsPropertyInfo = Word32 - type AttrLabel TableNColumnsPropertyInfo = "n-columns" - attrGet _ = getTableNColumns - attrSet _ = setTableNColumns - attrConstruct _ = constructTableNColumns - attrClear _ = undefined - --- VVV Prop "n-rows" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTableNRows :: (MonadIO m, TableK o) => o -> m Word32 -getTableNRows obj = liftIO $ getObjectPropertyUInt32 obj "n-rows" - -setTableNRows :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNRows obj val = liftIO $ setObjectPropertyUInt32 obj "n-rows" val - -constructTableNRows :: Word32 -> IO ([Char], GValue) -constructTableNRows val = constructObjectPropertyUInt32 "n-rows" val - -data TableNRowsPropertyInfo -instance AttrInfo TableNRowsPropertyInfo where - type AttrAllowedOps TableNRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TableNRowsPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint TableNRowsPropertyInfo = TableK - type AttrGetType TableNRowsPropertyInfo = Word32 - type AttrLabel TableNRowsPropertyInfo = "n-rows" - attrGet _ = getTableNRows - attrSet _ = setTableNRows - attrConstruct _ = constructTableNRows - attrClear _ = undefined - --- VVV Prop "row-spacing" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTableRowSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableRowSpacing obj = liftIO $ getObjectPropertyUInt32 obj "row-spacing" - -setTableRowSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableRowSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "row-spacing" val - -constructTableRowSpacing :: Word32 -> IO ([Char], GValue) -constructTableRowSpacing val = constructObjectPropertyUInt32 "row-spacing" val - -data TableRowSpacingPropertyInfo -instance AttrInfo TableRowSpacingPropertyInfo where - type AttrAllowedOps TableRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TableRowSpacingPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowSpacingPropertyInfo = TableK - type AttrGetType TableRowSpacingPropertyInfo = Word32 - type AttrLabel TableRowSpacingPropertyInfo = "row-spacing" - attrGet _ = getTableRowSpacing - attrSet _ = setTableRowSpacing - attrConstruct _ = constructTableRowSpacing - attrClear _ = undefined - -type instance AttributeList Table = TableAttributeList -type TableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", TableColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("nColumns", TableNColumnsPropertyInfo), '("nRows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", TableRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -tableColumnSpacing :: AttrLabelProxy "columnSpacing" -tableColumnSpacing = AttrLabelProxy - -tableHomogeneous :: AttrLabelProxy "homogeneous" -tableHomogeneous = AttrLabelProxy - -tableNColumns :: AttrLabelProxy "nColumns" -tableNColumns = AttrLabelProxy - -tableNRows :: AttrLabelProxy "nRows" -tableNRows = AttrLabelProxy - -tableRowSpacing :: AttrLabelProxy "rowSpacing" -tableRowSpacing = AttrLabelProxy - -type instance SignalList Table = TableSignalList -type TableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Table::new --- method type : Constructor --- Args : [Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Table") --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_new" gtk_table_new :: - Word32 -> -- rows : TBasicType TUInt - Word32 -> -- columns : TBasicType TUInt - CInt -> -- homogeneous : TBasicType TBoolean - IO (Ptr Table) - -{-# DEPRECATED tableNew ["(Since version 3.4)","Use gtk_grid_new()."]#-} -tableNew :: - (MonadIO m) => - Word32 -- rows - -> Word32 -- columns - -> Bool -- homogeneous - -> m Table -- result -tableNew rows columns homogeneous = liftIO $ do - let homogeneous' = (fromIntegral . fromEnum) homogeneous - result <- gtk_table_new rows columns homogeneous' - checkUnexpectedReturnNULL "gtk_table_new" result - result' <- (newObject Table) result - return result' - --- method Table::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpadding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypadding", 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 "gtk_table_attach" gtk_table_attach :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt - Word32 -> -- right_attach : TBasicType TUInt - Word32 -> -- top_attach : TBasicType TUInt - Word32 -> -- bottom_attach : TBasicType TUInt - CUInt -> -- xoptions : TInterface "Gtk" "AttachOptions" - CUInt -> -- yoptions : TInterface "Gtk" "AttachOptions" - Word32 -> -- xpadding : TBasicType TUInt - Word32 -> -- ypadding : TBasicType TUInt - IO () - -{-# DEPRECATED tableAttach ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} -tableAttach :: - (MonadIO m, TableK a, WidgetK b) => - a -- _obj - -> b -- child - -> Word32 -- leftAttach - -> Word32 -- rightAttach - -> Word32 -- topAttach - -> Word32 -- bottomAttach - -> [AttachOptions] -- xoptions - -> [AttachOptions] -- yoptions - -> Word32 -- xpadding - -> Word32 -- ypadding - -> m () -- result -tableAttach _obj child leftAttach rightAttach topAttach bottomAttach xoptions yoptions xpadding ypadding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let xoptions' = gflagsToWord xoptions - let yoptions' = gflagsToWord yoptions - gtk_table_attach _obj' child' leftAttach rightAttach topAttach bottomAttach xoptions' yoptions' xpadding ypadding - touchManagedPtr _obj - touchManagedPtr child - return () - -data TableAttachMethodInfo -instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> [AttachOptions] -> [AttachOptions] -> Word32 -> Word32 -> m ()), MonadIO m, TableK a, WidgetK b) => MethodInfo TableAttachMethodInfo a signature where - overloadedMethod _ = tableAttach - --- method Table::attach_defaults --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", 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 "gtk_table_attach_defaults" gtk_table_attach_defaults :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt - Word32 -> -- right_attach : TBasicType TUInt - Word32 -> -- top_attach : TBasicType TUInt - Word32 -> -- bottom_attach : TBasicType TUInt - IO () - -{-# DEPRECATED tableAttachDefaults ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} -tableAttachDefaults :: - (MonadIO m, TableK a, WidgetK b) => - a -- _obj - -> b -- widget - -> Word32 -- leftAttach - -> Word32 -- rightAttach - -> Word32 -- topAttach - -> Word32 -- bottomAttach - -> m () -- result -tableAttachDefaults _obj widget leftAttach rightAttach topAttach bottomAttach = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_table_attach_defaults _obj' widget' leftAttach rightAttach topAttach bottomAttach - touchManagedPtr _obj - touchManagedPtr widget - return () - -data TableAttachDefaultsMethodInfo -instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, TableK a, WidgetK b) => MethodInfo TableAttachDefaultsMethodInfo a signature where - overloadedMethod _ = tableAttachDefaults - --- method Table::get_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_get_col_spacing" gtk_table_get_col_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- column : TBasicType TUInt - IO Word32 - -{-# DEPRECATED tableGetColSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} -tableGetColSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- column - -> m Word32 -- result -tableGetColSpacing _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_col_spacing _obj' column - touchManagedPtr _obj - return result - -data TableGetColSpacingMethodInfo -instance (signature ~ (Word32 -> m Word32), MonadIO m, TableK a) => MethodInfo TableGetColSpacingMethodInfo a signature where - overloadedMethod _ = tableGetColSpacing - --- method Table::get_default_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_get_default_col_spacing" gtk_table_get_default_col_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - IO Word32 - -{-# DEPRECATED tableGetDefaultColSpacing ["(Since version 3.4)","Use gtk_grid_get_column_spacing() with #GtkGrid."]#-} -tableGetDefaultColSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> m Word32 -- result -tableGetDefaultColSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_default_col_spacing _obj' - touchManagedPtr _obj - return result - -data TableGetDefaultColSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, TableK a) => MethodInfo TableGetDefaultColSpacingMethodInfo a signature where - overloadedMethod _ = tableGetDefaultColSpacing - --- method Table::get_default_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_get_default_row_spacing" gtk_table_get_default_row_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - IO Word32 - -{-# DEPRECATED tableGetDefaultRowSpacing ["(Since version 3.4)","Use gtk_grid_get_row_spacing() with #GtkGrid."]#-} -tableGetDefaultRowSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> m Word32 -- result -tableGetDefaultRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_default_row_spacing _obj' - touchManagedPtr _obj - return result - -data TableGetDefaultRowSpacingMethodInfo -instance (signature ~ (m Word32), MonadIO m, TableK a) => MethodInfo TableGetDefaultRowSpacingMethodInfo a signature where - overloadedMethod _ = tableGetDefaultRowSpacing - --- method Table::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", 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 "gtk_table_get_homogeneous" gtk_table_get_homogeneous :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - IO CInt - -{-# DEPRECATED tableGetHomogeneous ["(Since version 3.4)","Use gtk_grid_get_row_homogeneous() and"," gtk_grid_get_column_homogeneous() with #GtkGrid."]#-} -tableGetHomogeneous :: - (MonadIO m, TableK a) => - a -- _obj - -> m Bool -- result -tableGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TableGetHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, TableK a) => MethodInfo TableGetHomogeneousMethodInfo a signature where - overloadedMethod _ = tableGetHomogeneous - --- method Table::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_get_row_spacing" gtk_table_get_row_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- row : TBasicType TUInt - IO Word32 - -{-# DEPRECATED tableGetRowSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} -tableGetRowSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- row - -> m Word32 -- result -tableGetRowSpacing _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_row_spacing _obj' row - touchManagedPtr _obj - return result - -data TableGetRowSpacingMethodInfo -instance (signature ~ (Word32 -> m Word32), MonadIO m, TableK a) => MethodInfo TableGetRowSpacingMethodInfo a signature where - overloadedMethod _ = tableGetRowSpacing - --- method Table::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "columns", argType = TBasicType TUInt, 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 "gtk_table_get_size" gtk_table_get_size :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Ptr Word32 -> -- rows : TBasicType TUInt - Ptr Word32 -> -- columns : TBasicType TUInt - IO () - -{-# DEPRECATED tableGetSize ["(Since version 3.4)","#GtkGrid does not expose the number of columns and"," rows."]#-} -tableGetSize :: - (MonadIO m, TableK a) => - a -- _obj - -> m (Word32,Word32) -- result -tableGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rows <- allocMem :: IO (Ptr Word32) - columns <- allocMem :: IO (Ptr Word32) - gtk_table_get_size _obj' rows columns - rows' <- peek rows - columns' <- peek columns - touchManagedPtr _obj - freeMem rows - freeMem columns - return (rows', columns') - -data TableGetSizeMethodInfo -instance (signature ~ (m (Word32,Word32)), MonadIO m, TableK a) => MethodInfo TableGetSizeMethodInfo a signature where - overloadedMethod _ = tableGetSize - --- method Table::resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", 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 "gtk_table_resize" gtk_table_resize :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- rows : TBasicType TUInt - Word32 -> -- columns : TBasicType TUInt - IO () - -{-# DEPRECATED tableResize ["(Since version 3.4)","#GtkGrid resizes automatically."]#-} -tableResize :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- rows - -> Word32 -- columns - -> m () -- result -tableResize _obj rows columns = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_resize _obj' rows columns - touchManagedPtr _obj - return () - -data TableResizeMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableResizeMethodInfo a signature where - overloadedMethod _ = tableResize - --- method Table::set_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_table_set_col_spacing" gtk_table_set_col_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- column : TBasicType TUInt - Word32 -> -- spacing : TBasicType TUInt - IO () - -{-# DEPRECATED tableSetColSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_start() and"," gtk_widget_set_margin_end() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} -tableSetColSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- column - -> Word32 -- spacing - -> m () -- result -tableSetColSpacing _obj column spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_col_spacing _obj' column spacing - touchManagedPtr _obj - return () - -data TableSetColSpacingMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetColSpacingMethodInfo a signature where - overloadedMethod _ = tableSetColSpacing - --- method Table::set_col_spacings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_table_set_col_spacings" gtk_table_set_col_spacings :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- spacing : TBasicType TUInt - IO () - -{-# DEPRECATED tableSetColSpacings ["(Since version 3.4)","Use gtk_grid_set_column_spacing() with #GtkGrid."]#-} -tableSetColSpacings :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -tableSetColSpacings _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_col_spacings _obj' spacing - touchManagedPtr _obj - return () - -data TableSetColSpacingsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetColSpacingsMethodInfo a signature where - overloadedMethod _ = tableSetColSpacings - --- method Table::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_table_set_homogeneous" gtk_table_set_homogeneous :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - -{-# DEPRECATED tableSetHomogeneous ["(Since version 3.4)","Use gtk_grid_set_row_homogeneous() and"," gtk_grid_set_column_homogeneous() with #GtkGrid."]#-} -tableSetHomogeneous :: - (MonadIO m, TableK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -tableSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_table_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data TableSetHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TableK a) => MethodInfo TableSetHomogeneousMethodInfo a signature where - overloadedMethod _ = tableSetHomogeneous - --- method Table::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_table_set_row_spacing" gtk_table_set_row_spacing :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- row : TBasicType TUInt - Word32 -> -- spacing : TBasicType TUInt - IO () - -{-# DEPRECATED tableSetRowSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_top() and"," gtk_widget_set_margin_bottom() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} -tableSetRowSpacing :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- row - -> Word32 -- spacing - -> m () -- result -tableSetRowSpacing _obj row spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_row_spacing _obj' row spacing - touchManagedPtr _obj - return () - -data TableSetRowSpacingMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetRowSpacingMethodInfo a signature where - overloadedMethod _ = tableSetRowSpacing - --- method Table::set_row_spacings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_table_set_row_spacings" gtk_table_set_row_spacings :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- spacing : TBasicType TUInt - IO () - -{-# DEPRECATED tableSetRowSpacings ["(Since version 3.4)","Use gtk_grid_set_row_spacing() with #GtkGrid."]#-} -tableSetRowSpacings :: - (MonadIO m, TableK a) => - a -- _obj - -> Word32 -- spacing - -> m () -- result -tableSetRowSpacings _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_row_spacings _obj' spacing - touchManagedPtr _obj - return () - -data TableSetRowSpacingsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetRowSpacingsMethodInfo a signature where - overloadedMethod _ = tableSetRowSpacings - - diff --git a/GI/Gtk/Objects/Table.hs-boot b/GI/Gtk/Objects/Table.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Table.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.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) -instance GObject Table where -class GObject o => TableK o -instance (GObject o, IsDescendantOf Table o) => TableK o -data TableColumnSpacingPropertyInfo -data TableHomogeneousPropertyInfo -data TableNColumnsPropertyInfo -data TableNRowsPropertyInfo -data TableRowSpacingPropertyInfo -data TableAttachMethodInfo -data TableAttachDefaultsMethodInfo -data TableGetColSpacingMethodInfo -data TableGetDefaultColSpacingMethodInfo -data TableGetDefaultRowSpacingMethodInfo -data TableGetHomogeneousMethodInfo -data TableGetRowSpacingMethodInfo -data TableGetSizeMethodInfo -data TableResizeMethodInfo -data TableSetColSpacingMethodInfo -data TableSetColSpacingsMethodInfo -data TableSetHomogeneousMethodInfo -data TableSetRowSpacingMethodInfo -data TableSetRowSpacingsMethodInfo diff --git a/GI/Gtk/Objects/TearoffMenuItem.hs b/GI/Gtk/Objects/TearoffMenuItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TearoffMenuItem.hs +++ /dev/null @@ -1,435 +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.Gtk.Objects.TearoffMenuItem - ( - --- * Exported types - TearoffMenuItem(..) , - TearoffMenuItemK , - toTearoffMenuItem , - noTearoffMenuItem , - - - -- * Methods --- ** tearoffMenuItemNew - tearoffMenuItemNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype TearoffMenuItem = TearoffMenuItem (ForeignPtr TearoffMenuItem) -foreign import ccall "gtk_tearoff_menu_item_get_type" - c_gtk_tearoff_menu_item_get_type :: IO GType - -type instance ParentTypes TearoffMenuItem = TearoffMenuItemParentTypes -type TearoffMenuItemParentTypes = '[MenuItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject TearoffMenuItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tearoff_menu_item_get_type - - -class GObject o => TearoffMenuItemK o -instance (GObject o, IsDescendantOf TearoffMenuItem o) => TearoffMenuItemK o - -toTearoffMenuItem :: TearoffMenuItemK o => o -> IO TearoffMenuItem -toTearoffMenuItem = unsafeCastTo TearoffMenuItem - -noTearoffMenuItem :: Maybe TearoffMenuItem -noTearoffMenuItem = Nothing - -type family ResolveTearoffMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveTearoffMenuItemMethod "add" o = ContainerAddMethodInfo - ResolveTearoffMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveTearoffMenuItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTearoffMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveTearoffMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveTearoffMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveTearoffMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveTearoffMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTearoffMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTearoffMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveTearoffMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveTearoffMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveTearoffMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveTearoffMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveTearoffMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveTearoffMenuItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveTearoffMenuItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveTearoffMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveTearoffMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTearoffMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveTearoffMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveTearoffMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTearoffMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTearoffMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTearoffMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo - ResolveTearoffMenuItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveTearoffMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveTearoffMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveTearoffMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveTearoffMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveTearoffMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveTearoffMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveTearoffMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveTearoffMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveTearoffMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveTearoffMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveTearoffMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveTearoffMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveTearoffMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveTearoffMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveTearoffMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveTearoffMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveTearoffMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveTearoffMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveTearoffMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveTearoffMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveTearoffMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveTearoffMenuItemMethod "draw" o = WidgetDrawMethodInfo - ResolveTearoffMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveTearoffMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveTearoffMenuItemMethod "event" o = WidgetEventMethodInfo - ResolveTearoffMenuItemMethod "forall" o = ContainerForallMethodInfo - ResolveTearoffMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTearoffMenuItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveTearoffMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveTearoffMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTearoffMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveTearoffMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveTearoffMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveTearoffMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveTearoffMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveTearoffMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveTearoffMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveTearoffMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveTearoffMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveTearoffMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveTearoffMenuItemMethod "hide" o = WidgetHideMethodInfo - ResolveTearoffMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveTearoffMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveTearoffMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveTearoffMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveTearoffMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveTearoffMenuItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveTearoffMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveTearoffMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveTearoffMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveTearoffMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTearoffMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveTearoffMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveTearoffMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveTearoffMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveTearoffMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveTearoffMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveTearoffMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveTearoffMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveTearoffMenuItemMethod "map" o = WidgetMapMethodInfo - ResolveTearoffMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveTearoffMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveTearoffMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveTearoffMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveTearoffMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveTearoffMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveTearoffMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveTearoffMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveTearoffMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTearoffMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTearoffMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveTearoffMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveTearoffMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveTearoffMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveTearoffMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveTearoffMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTearoffMenuItemMethod "path" o = WidgetPathMethodInfo - ResolveTearoffMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveTearoffMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveTearoffMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveTearoffMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveTearoffMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveTearoffMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveTearoffMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveTearoffMenuItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveTearoffMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTearoffMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTearoffMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveTearoffMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveTearoffMenuItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveTearoffMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveTearoffMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveTearoffMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveTearoffMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveTearoffMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveTearoffMenuItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveTearoffMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTearoffMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTearoffMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveTearoffMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveTearoffMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveTearoffMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTearoffMenuItemMethod "select" o = MenuItemSelectMethodInfo - ResolveTearoffMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveTearoffMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveTearoffMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveTearoffMenuItemMethod "show" o = WidgetShowMethodInfo - ResolveTearoffMenuItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveTearoffMenuItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveTearoffMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveTearoffMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveTearoffMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveTearoffMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTearoffMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTearoffMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveTearoffMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveTearoffMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveTearoffMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveTearoffMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTearoffMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo - ResolveTearoffMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo - ResolveTearoffMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveTearoffMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveTearoffMenuItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveTearoffMenuItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveTearoffMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveTearoffMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTearoffMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveTearoffMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveTearoffMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveTearoffMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTearoffMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo - ResolveTearoffMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveTearoffMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveTearoffMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveTearoffMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveTearoffMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveTearoffMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveTearoffMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveTearoffMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveTearoffMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveTearoffMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveTearoffMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveTearoffMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveTearoffMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveTearoffMenuItemMethod "getChild" o = BinGetChildMethodInfo - ResolveTearoffMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveTearoffMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveTearoffMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveTearoffMenuItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveTearoffMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveTearoffMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveTearoffMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTearoffMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveTearoffMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveTearoffMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveTearoffMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveTearoffMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveTearoffMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveTearoffMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveTearoffMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveTearoffMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveTearoffMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveTearoffMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveTearoffMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveTearoffMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveTearoffMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveTearoffMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveTearoffMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveTearoffMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveTearoffMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveTearoffMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTearoffMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo - ResolveTearoffMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveTearoffMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveTearoffMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveTearoffMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveTearoffMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveTearoffMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveTearoffMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveTearoffMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveTearoffMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveTearoffMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveTearoffMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveTearoffMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveTearoffMenuItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveTearoffMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveTearoffMenuItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveTearoffMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveTearoffMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveTearoffMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveTearoffMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveTearoffMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveTearoffMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveTearoffMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveTearoffMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveTearoffMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTearoffMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTearoffMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveTearoffMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveTearoffMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveTearoffMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveTearoffMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveTearoffMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo - ResolveTearoffMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveTearoffMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo - ResolveTearoffMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveTearoffMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveTearoffMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveTearoffMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveTearoffMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveTearoffMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveTearoffMenuItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveTearoffMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveTearoffMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveTearoffMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveTearoffMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo - ResolveTearoffMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveTearoffMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveTearoffMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveTearoffMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveTearoffMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveTearoffMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveTearoffMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveTearoffMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo - ResolveTearoffMenuItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveTearoffMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveTearoffMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveTearoffMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveTearoffMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveTearoffMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveTearoffMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveTearoffMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveTearoffMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveTearoffMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveTearoffMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveTearoffMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveTearoffMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTearoffMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveTearoffMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveTearoffMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveTearoffMenuItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveTearoffMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveTearoffMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTearoffMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveTearoffMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveTearoffMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveTearoffMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveTearoffMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveTearoffMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveTearoffMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveTearoffMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveTearoffMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveTearoffMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveTearoffMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveTearoffMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveTearoffMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveTearoffMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveTearoffMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveTearoffMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveTearoffMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveTearoffMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveTearoffMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveTearoffMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveTearoffMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveTearoffMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveTearoffMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveTearoffMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveTearoffMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveTearoffMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveTearoffMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveTearoffMenuItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveTearoffMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveTearoffMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTearoffMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveTearoffMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveTearoffMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveTearoffMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveTearoffMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveTearoffMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo - ResolveTearoffMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveTearoffMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo - ResolveTearoffMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveTearoffMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveTearoffMenuItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveTearoffMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveTearoffMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveTearoffMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveTearoffMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveTearoffMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveTearoffMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveTearoffMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveTearoffMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveTearoffMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo - ResolveTearoffMenuItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveTearoffMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveTearoffMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveTearoffMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveTearoffMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveTearoffMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveTearoffMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTearoffMenuItemMethod t TearoffMenuItem, MethodInfo info TearoffMenuItem p) => IsLabelProxy t (TearoffMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTearoffMenuItemMethod t TearoffMenuItem, MethodInfo info TearoffMenuItem p) => IsLabel t (TearoffMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TearoffMenuItem = TearoffMenuItemAttributeList -type TearoffMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TearoffMenuItem = TearoffMenuItemSignalList -type TearoffMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method TearoffMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TearoffMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tearoff_menu_item_new" gtk_tearoff_menu_item_new :: - IO (Ptr TearoffMenuItem) - -{-# DEPRECATED tearoffMenuItemNew ["(Since version 3.4)","#GtkTearoffMenuItem is deprecated and should not be"," used in newly written code."]#-} -tearoffMenuItemNew :: - (MonadIO m) => - m TearoffMenuItem -- result -tearoffMenuItemNew = liftIO $ do - result <- gtk_tearoff_menu_item_new - checkUnexpectedReturnNULL "gtk_tearoff_menu_item_new" result - result' <- (newObject TearoffMenuItem) result - return result' - - diff --git a/GI/Gtk/Objects/TearoffMenuItem.hs-boot b/GI/Gtk/Objects/TearoffMenuItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TearoffMenuItem.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.TearoffMenuItem 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 TearoffMenuItem = TearoffMenuItem (ForeignPtr TearoffMenuItem) -instance GObject TearoffMenuItem where -class GObject o => TearoffMenuItemK o -instance (GObject o, IsDescendantOf TearoffMenuItem o) => TearoffMenuItemK o diff --git a/GI/Gtk/Objects/TextBuffer.hs b/GI/Gtk/Objects/TextBuffer.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextBuffer.hs +++ /dev/null @@ -1,3956 +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.Gtk.Objects.TextBuffer - ( - --- * Exported types - TextBuffer(..) , - TextBufferK , - toTextBuffer , - noTextBuffer , - - - -- * Methods --- ** textBufferAddMark - TextBufferAddMarkMethodInfo , - textBufferAddMark , - - --- ** textBufferAddSelectionClipboard - TextBufferAddSelectionClipboardMethodInfo, - textBufferAddSelectionClipboard , - - --- ** textBufferApplyTag - TextBufferApplyTagMethodInfo , - textBufferApplyTag , - - --- ** textBufferApplyTagByName - TextBufferApplyTagByNameMethodInfo , - textBufferApplyTagByName , - - --- ** textBufferBackspace - TextBufferBackspaceMethodInfo , - textBufferBackspace , - - --- ** textBufferBeginUserAction - TextBufferBeginUserActionMethodInfo , - textBufferBeginUserAction , - - --- ** textBufferCopyClipboard - TextBufferCopyClipboardMethodInfo , - textBufferCopyClipboard , - - --- ** textBufferCreateChildAnchor - TextBufferCreateChildAnchorMethodInfo , - textBufferCreateChildAnchor , - - --- ** textBufferCreateMark - TextBufferCreateMarkMethodInfo , - textBufferCreateMark , - - --- ** textBufferCutClipboard - TextBufferCutClipboardMethodInfo , - textBufferCutClipboard , - - --- ** textBufferDelete - TextBufferDeleteMethodInfo , - textBufferDelete , - - --- ** textBufferDeleteInteractive - TextBufferDeleteInteractiveMethodInfo , - textBufferDeleteInteractive , - - --- ** textBufferDeleteMark - TextBufferDeleteMarkMethodInfo , - textBufferDeleteMark , - - --- ** textBufferDeleteMarkByName - TextBufferDeleteMarkByNameMethodInfo , - textBufferDeleteMarkByName , - - --- ** textBufferDeleteSelection - TextBufferDeleteSelectionMethodInfo , - textBufferDeleteSelection , - - --- ** textBufferDeserialize - TextBufferDeserializeMethodInfo , - textBufferDeserialize , - - --- ** textBufferDeserializeGetCanCreateTags - TextBufferDeserializeGetCanCreateTagsMethodInfo, - textBufferDeserializeGetCanCreateTags , - - --- ** textBufferDeserializeSetCanCreateTags - TextBufferDeserializeSetCanCreateTagsMethodInfo, - textBufferDeserializeSetCanCreateTags , - - --- ** textBufferEndUserAction - TextBufferEndUserActionMethodInfo , - textBufferEndUserAction , - - --- ** textBufferGetBounds - TextBufferGetBoundsMethodInfo , - textBufferGetBounds , - - --- ** textBufferGetCharCount - TextBufferGetCharCountMethodInfo , - textBufferGetCharCount , - - --- ** textBufferGetCopyTargetList - TextBufferGetCopyTargetListMethodInfo , - textBufferGetCopyTargetList , - - --- ** textBufferGetDeserializeFormats - TextBufferGetDeserializeFormatsMethodInfo, - textBufferGetDeserializeFormats , - - --- ** textBufferGetEndIter - TextBufferGetEndIterMethodInfo , - textBufferGetEndIter , - - --- ** textBufferGetHasSelection - TextBufferGetHasSelectionMethodInfo , - textBufferGetHasSelection , - - --- ** textBufferGetInsert - TextBufferGetInsertMethodInfo , - textBufferGetInsert , - - --- ** textBufferGetIterAtChildAnchor - TextBufferGetIterAtChildAnchorMethodInfo, - textBufferGetIterAtChildAnchor , - - --- ** textBufferGetIterAtLine - TextBufferGetIterAtLineMethodInfo , - textBufferGetIterAtLine , - - --- ** textBufferGetIterAtLineIndex - TextBufferGetIterAtLineIndexMethodInfo , - textBufferGetIterAtLineIndex , - - --- ** textBufferGetIterAtLineOffset - TextBufferGetIterAtLineOffsetMethodInfo , - textBufferGetIterAtLineOffset , - - --- ** textBufferGetIterAtMark - TextBufferGetIterAtMarkMethodInfo , - textBufferGetIterAtMark , - - --- ** textBufferGetIterAtOffset - TextBufferGetIterAtOffsetMethodInfo , - textBufferGetIterAtOffset , - - --- ** textBufferGetLineCount - TextBufferGetLineCountMethodInfo , - textBufferGetLineCount , - - --- ** textBufferGetMark - TextBufferGetMarkMethodInfo , - textBufferGetMark , - - --- ** textBufferGetModified - TextBufferGetModifiedMethodInfo , - textBufferGetModified , - - --- ** textBufferGetPasteTargetList - TextBufferGetPasteTargetListMethodInfo , - textBufferGetPasteTargetList , - - --- ** textBufferGetSelectionBound - TextBufferGetSelectionBoundMethodInfo , - textBufferGetSelectionBound , - - --- ** textBufferGetSelectionBounds - TextBufferGetSelectionBoundsMethodInfo , - textBufferGetSelectionBounds , - - --- ** textBufferGetSerializeFormats - TextBufferGetSerializeFormatsMethodInfo , - textBufferGetSerializeFormats , - - --- ** textBufferGetSlice - TextBufferGetSliceMethodInfo , - textBufferGetSlice , - - --- ** textBufferGetStartIter - TextBufferGetStartIterMethodInfo , - textBufferGetStartIter , - - --- ** textBufferGetTagTable - TextBufferGetTagTableMethodInfo , - textBufferGetTagTable , - - --- ** textBufferGetText - TextBufferGetTextMethodInfo , - textBufferGetText , - - --- ** textBufferInsert - TextBufferInsertMethodInfo , - textBufferInsert , - - --- ** textBufferInsertAtCursor - TextBufferInsertAtCursorMethodInfo , - textBufferInsertAtCursor , - - --- ** textBufferInsertChildAnchor - TextBufferInsertChildAnchorMethodInfo , - textBufferInsertChildAnchor , - - --- ** textBufferInsertInteractive - TextBufferInsertInteractiveMethodInfo , - textBufferInsertInteractive , - - --- ** textBufferInsertInteractiveAtCursor - TextBufferInsertInteractiveAtCursorMethodInfo, - textBufferInsertInteractiveAtCursor , - - --- ** textBufferInsertMarkup - TextBufferInsertMarkupMethodInfo , - textBufferInsertMarkup , - - --- ** textBufferInsertPixbuf - TextBufferInsertPixbufMethodInfo , - textBufferInsertPixbuf , - - --- ** textBufferInsertRange - TextBufferInsertRangeMethodInfo , - textBufferInsertRange , - - --- ** textBufferInsertRangeInteractive - TextBufferInsertRangeInteractiveMethodInfo, - textBufferInsertRangeInteractive , - - --- ** textBufferMoveMark - TextBufferMoveMarkMethodInfo , - textBufferMoveMark , - - --- ** textBufferMoveMarkByName - TextBufferMoveMarkByNameMethodInfo , - textBufferMoveMarkByName , - - --- ** textBufferNew - textBufferNew , - - --- ** textBufferPasteClipboard - TextBufferPasteClipboardMethodInfo , - textBufferPasteClipboard , - - --- ** textBufferPlaceCursor - TextBufferPlaceCursorMethodInfo , - textBufferPlaceCursor , - - --- ** textBufferRegisterDeserializeFormat - TextBufferRegisterDeserializeFormatMethodInfo, - textBufferRegisterDeserializeFormat , - - --- ** textBufferRegisterDeserializeTagset - TextBufferRegisterDeserializeTagsetMethodInfo, - textBufferRegisterDeserializeTagset , - - --- ** textBufferRegisterSerializeFormat - TextBufferRegisterSerializeFormatMethodInfo, - textBufferRegisterSerializeFormat , - - --- ** textBufferRegisterSerializeTagset - TextBufferRegisterSerializeTagsetMethodInfo, - textBufferRegisterSerializeTagset , - - --- ** textBufferRemoveAllTags - TextBufferRemoveAllTagsMethodInfo , - textBufferRemoveAllTags , - - --- ** textBufferRemoveSelectionClipboard - TextBufferRemoveSelectionClipboardMethodInfo, - textBufferRemoveSelectionClipboard , - - --- ** textBufferRemoveTag - TextBufferRemoveTagMethodInfo , - textBufferRemoveTag , - - --- ** textBufferRemoveTagByName - TextBufferRemoveTagByNameMethodInfo , - textBufferRemoveTagByName , - - --- ** textBufferSelectRange - TextBufferSelectRangeMethodInfo , - textBufferSelectRange , - - --- ** textBufferSerialize - TextBufferSerializeMethodInfo , - textBufferSerialize , - - --- ** textBufferSetModified - TextBufferSetModifiedMethodInfo , - textBufferSetModified , - - --- ** textBufferSetText - TextBufferSetTextMethodInfo , - textBufferSetText , - - --- ** textBufferUnregisterDeserializeFormat - TextBufferUnregisterDeserializeFormatMethodInfo, - textBufferUnregisterDeserializeFormat , - - --- ** textBufferUnregisterSerializeFormat - TextBufferUnregisterSerializeFormatMethodInfo, - textBufferUnregisterSerializeFormat , - - - - - -- * Properties --- ** CopyTargetList - TextBufferCopyTargetListPropertyInfo , - getTextBufferCopyTargetList , - textBufferCopyTargetList , - - --- ** CursorPosition - TextBufferCursorPositionPropertyInfo , - getTextBufferCursorPosition , - textBufferCursorPosition , - - --- ** HasSelection - TextBufferHasSelectionPropertyInfo , - getTextBufferHasSelection , - textBufferHasSelection , - - --- ** PasteTargetList - TextBufferPasteTargetListPropertyInfo , - getTextBufferPasteTargetList , - textBufferPasteTargetList , - - --- ** TagTable - TextBufferTagTablePropertyInfo , - constructTextBufferTagTable , - getTextBufferTagTable , - textBufferTagTable , - - --- ** Text - TextBufferTextPropertyInfo , - clearTextBufferText , - constructTextBufferText , - getTextBufferText , - setTextBufferText , - textBufferText , - - - - - -- * Signals --- ** ApplyTag - TextBufferApplyTagCallback , - TextBufferApplyTagCallbackC , - TextBufferApplyTagSignalInfo , - afterTextBufferApplyTag , - mkTextBufferApplyTagCallback , - noTextBufferApplyTagCallback , - onTextBufferApplyTag , - textBufferApplyTagCallbackWrapper , - textBufferApplyTagClosure , - - --- ** BeginUserAction - TextBufferBeginUserActionCallback , - TextBufferBeginUserActionCallbackC , - TextBufferBeginUserActionSignalInfo , - afterTextBufferBeginUserAction , - mkTextBufferBeginUserActionCallback , - noTextBufferBeginUserActionCallback , - onTextBufferBeginUserAction , - textBufferBeginUserActionCallbackWrapper, - textBufferBeginUserActionClosure , - - --- ** Changed - TextBufferChangedCallback , - TextBufferChangedCallbackC , - TextBufferChangedSignalInfo , - afterTextBufferChanged , - mkTextBufferChangedCallback , - noTextBufferChangedCallback , - onTextBufferChanged , - textBufferChangedCallbackWrapper , - textBufferChangedClosure , - - --- ** DeleteRange - TextBufferDeleteRangeCallback , - TextBufferDeleteRangeCallbackC , - TextBufferDeleteRangeSignalInfo , - afterTextBufferDeleteRange , - mkTextBufferDeleteRangeCallback , - noTextBufferDeleteRangeCallback , - onTextBufferDeleteRange , - textBufferDeleteRangeCallbackWrapper , - textBufferDeleteRangeClosure , - - --- ** EndUserAction - TextBufferEndUserActionCallback , - TextBufferEndUserActionCallbackC , - TextBufferEndUserActionSignalInfo , - afterTextBufferEndUserAction , - mkTextBufferEndUserActionCallback , - noTextBufferEndUserActionCallback , - onTextBufferEndUserAction , - textBufferEndUserActionCallbackWrapper , - textBufferEndUserActionClosure , - - --- ** InsertChildAnchor - TextBufferInsertChildAnchorCallback , - TextBufferInsertChildAnchorCallbackC , - TextBufferInsertChildAnchorSignalInfo , - afterTextBufferInsertChildAnchor , - mkTextBufferInsertChildAnchorCallback , - noTextBufferInsertChildAnchorCallback , - onTextBufferInsertChildAnchor , - textBufferInsertChildAnchorCallbackWrapper, - textBufferInsertChildAnchorClosure , - - --- ** InsertPixbuf - TextBufferInsertPixbufCallback , - TextBufferInsertPixbufCallbackC , - TextBufferInsertPixbufSignalInfo , - afterTextBufferInsertPixbuf , - mkTextBufferInsertPixbufCallback , - noTextBufferInsertPixbufCallback , - onTextBufferInsertPixbuf , - textBufferInsertPixbufCallbackWrapper , - textBufferInsertPixbufClosure , - - --- ** InsertText - TextBufferInsertTextCallback , - TextBufferInsertTextCallbackC , - TextBufferInsertTextSignalInfo , - afterTextBufferInsertText , - mkTextBufferInsertTextCallback , - noTextBufferInsertTextCallback , - onTextBufferInsertText , - textBufferInsertTextCallbackWrapper , - textBufferInsertTextClosure , - - --- ** MarkDeleted - TextBufferMarkDeletedCallback , - TextBufferMarkDeletedCallbackC , - TextBufferMarkDeletedSignalInfo , - afterTextBufferMarkDeleted , - mkTextBufferMarkDeletedCallback , - noTextBufferMarkDeletedCallback , - onTextBufferMarkDeleted , - textBufferMarkDeletedCallbackWrapper , - textBufferMarkDeletedClosure , - - --- ** MarkSet - TextBufferMarkSetCallback , - TextBufferMarkSetCallbackC , - TextBufferMarkSetSignalInfo , - afterTextBufferMarkSet , - mkTextBufferMarkSetCallback , - noTextBufferMarkSetCallback , - onTextBufferMarkSet , - textBufferMarkSetCallbackWrapper , - textBufferMarkSetClosure , - - --- ** ModifiedChanged - TextBufferModifiedChangedCallback , - TextBufferModifiedChangedCallbackC , - TextBufferModifiedChangedSignalInfo , - afterTextBufferModifiedChanged , - mkTextBufferModifiedChangedCallback , - noTextBufferModifiedChangedCallback , - onTextBufferModifiedChanged , - textBufferModifiedChangedCallbackWrapper, - textBufferModifiedChangedClosure , - - --- ** PasteDone - TextBufferPasteDoneCallback , - TextBufferPasteDoneCallbackC , - TextBufferPasteDoneSignalInfo , - afterTextBufferPasteDone , - mkTextBufferPasteDoneCallback , - noTextBufferPasteDoneCallback , - onTextBufferPasteDone , - textBufferPasteDoneCallbackWrapper , - textBufferPasteDoneClosure , - - --- ** RemoveTag - TextBufferRemoveTagCallback , - TextBufferRemoveTagCallbackC , - TextBufferRemoveTagSignalInfo , - afterTextBufferRemoveTag , - mkTextBufferRemoveTagCallback , - noTextBufferRemoveTagCallback , - onTextBufferRemoveTag , - textBufferRemoveTagCallbackWrapper , - textBufferRemoveTagClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype TextBuffer = TextBuffer (ForeignPtr TextBuffer) -foreign import ccall "gtk_text_buffer_get_type" - c_gtk_text_buffer_get_type :: IO GType - -type instance ParentTypes TextBuffer = TextBufferParentTypes -type TextBufferParentTypes = '[GObject.Object] - -instance GObject TextBuffer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_buffer_get_type - - -class GObject o => TextBufferK o -instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o - -toTextBuffer :: TextBufferK o => o -> IO TextBuffer -toTextBuffer = unsafeCastTo TextBuffer - -noTextBuffer :: Maybe TextBuffer -noTextBuffer = Nothing - -type family ResolveTextBufferMethod (t :: Symbol) (o :: *) :: * where - ResolveTextBufferMethod "addMark" o = TextBufferAddMarkMethodInfo - ResolveTextBufferMethod "addSelectionClipboard" o = TextBufferAddSelectionClipboardMethodInfo - ResolveTextBufferMethod "applyTag" o = TextBufferApplyTagMethodInfo - ResolveTextBufferMethod "applyTagByName" o = TextBufferApplyTagByNameMethodInfo - ResolveTextBufferMethod "backspace" o = TextBufferBackspaceMethodInfo - ResolveTextBufferMethod "beginUserAction" o = TextBufferBeginUserActionMethodInfo - ResolveTextBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextBufferMethod "copyClipboard" o = TextBufferCopyClipboardMethodInfo - ResolveTextBufferMethod "createChildAnchor" o = TextBufferCreateChildAnchorMethodInfo - ResolveTextBufferMethod "createMark" o = TextBufferCreateMarkMethodInfo - ResolveTextBufferMethod "cutClipboard" o = TextBufferCutClipboardMethodInfo - ResolveTextBufferMethod "delete" o = TextBufferDeleteMethodInfo - ResolveTextBufferMethod "deleteInteractive" o = TextBufferDeleteInteractiveMethodInfo - ResolveTextBufferMethod "deleteMark" o = TextBufferDeleteMarkMethodInfo - ResolveTextBufferMethod "deleteMarkByName" o = TextBufferDeleteMarkByNameMethodInfo - ResolveTextBufferMethod "deleteSelection" o = TextBufferDeleteSelectionMethodInfo - ResolveTextBufferMethod "deserialize" o = TextBufferDeserializeMethodInfo - ResolveTextBufferMethod "deserializeGetCanCreateTags" o = TextBufferDeserializeGetCanCreateTagsMethodInfo - ResolveTextBufferMethod "deserializeSetCanCreateTags" o = TextBufferDeserializeSetCanCreateTagsMethodInfo - ResolveTextBufferMethod "endUserAction" o = TextBufferEndUserActionMethodInfo - ResolveTextBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextBufferMethod "insert" o = TextBufferInsertMethodInfo - ResolveTextBufferMethod "insertAtCursor" o = TextBufferInsertAtCursorMethodInfo - ResolveTextBufferMethod "insertChildAnchor" o = TextBufferInsertChildAnchorMethodInfo - ResolveTextBufferMethod "insertInteractive" o = TextBufferInsertInteractiveMethodInfo - ResolveTextBufferMethod "insertInteractiveAtCursor" o = TextBufferInsertInteractiveAtCursorMethodInfo - ResolveTextBufferMethod "insertMarkup" o = TextBufferInsertMarkupMethodInfo - ResolveTextBufferMethod "insertPixbuf" o = TextBufferInsertPixbufMethodInfo - ResolveTextBufferMethod "insertRange" o = TextBufferInsertRangeMethodInfo - ResolveTextBufferMethod "insertRangeInteractive" o = TextBufferInsertRangeInteractiveMethodInfo - ResolveTextBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextBufferMethod "moveMark" o = TextBufferMoveMarkMethodInfo - ResolveTextBufferMethod "moveMarkByName" o = TextBufferMoveMarkByNameMethodInfo - ResolveTextBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextBufferMethod "pasteClipboard" o = TextBufferPasteClipboardMethodInfo - ResolveTextBufferMethod "placeCursor" o = TextBufferPlaceCursorMethodInfo - ResolveTextBufferMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextBufferMethod "registerDeserializeFormat" o = TextBufferRegisterDeserializeFormatMethodInfo - ResolveTextBufferMethod "registerDeserializeTagset" o = TextBufferRegisterDeserializeTagsetMethodInfo - ResolveTextBufferMethod "registerSerializeFormat" o = TextBufferRegisterSerializeFormatMethodInfo - ResolveTextBufferMethod "registerSerializeTagset" o = TextBufferRegisterSerializeTagsetMethodInfo - ResolveTextBufferMethod "removeAllTags" o = TextBufferRemoveAllTagsMethodInfo - ResolveTextBufferMethod "removeSelectionClipboard" o = TextBufferRemoveSelectionClipboardMethodInfo - ResolveTextBufferMethod "removeTag" o = TextBufferRemoveTagMethodInfo - ResolveTextBufferMethod "removeTagByName" o = TextBufferRemoveTagByNameMethodInfo - ResolveTextBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextBufferMethod "selectRange" o = TextBufferSelectRangeMethodInfo - ResolveTextBufferMethod "serialize" o = TextBufferSerializeMethodInfo - ResolveTextBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextBufferMethod "unregisterDeserializeFormat" o = TextBufferUnregisterDeserializeFormatMethodInfo - ResolveTextBufferMethod "unregisterSerializeFormat" o = TextBufferUnregisterSerializeFormatMethodInfo - ResolveTextBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextBufferMethod "getBounds" o = TextBufferGetBoundsMethodInfo - ResolveTextBufferMethod "getCharCount" o = TextBufferGetCharCountMethodInfo - ResolveTextBufferMethod "getCopyTargetList" o = TextBufferGetCopyTargetListMethodInfo - ResolveTextBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextBufferMethod "getDeserializeFormats" o = TextBufferGetDeserializeFormatsMethodInfo - ResolveTextBufferMethod "getEndIter" o = TextBufferGetEndIterMethodInfo - ResolveTextBufferMethod "getHasSelection" o = TextBufferGetHasSelectionMethodInfo - ResolveTextBufferMethod "getInsert" o = TextBufferGetInsertMethodInfo - ResolveTextBufferMethod "getIterAtChildAnchor" o = TextBufferGetIterAtChildAnchorMethodInfo - ResolveTextBufferMethod "getIterAtLine" o = TextBufferGetIterAtLineMethodInfo - ResolveTextBufferMethod "getIterAtLineIndex" o = TextBufferGetIterAtLineIndexMethodInfo - ResolveTextBufferMethod "getIterAtLineOffset" o = TextBufferGetIterAtLineOffsetMethodInfo - ResolveTextBufferMethod "getIterAtMark" o = TextBufferGetIterAtMarkMethodInfo - ResolveTextBufferMethod "getIterAtOffset" o = TextBufferGetIterAtOffsetMethodInfo - ResolveTextBufferMethod "getLineCount" o = TextBufferGetLineCountMethodInfo - ResolveTextBufferMethod "getMark" o = TextBufferGetMarkMethodInfo - ResolveTextBufferMethod "getModified" o = TextBufferGetModifiedMethodInfo - ResolveTextBufferMethod "getPasteTargetList" o = TextBufferGetPasteTargetListMethodInfo - ResolveTextBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextBufferMethod "getSelectionBound" o = TextBufferGetSelectionBoundMethodInfo - ResolveTextBufferMethod "getSelectionBounds" o = TextBufferGetSelectionBoundsMethodInfo - ResolveTextBufferMethod "getSerializeFormats" o = TextBufferGetSerializeFormatsMethodInfo - ResolveTextBufferMethod "getSlice" o = TextBufferGetSliceMethodInfo - ResolveTextBufferMethod "getStartIter" o = TextBufferGetStartIterMethodInfo - ResolveTextBufferMethod "getTagTable" o = TextBufferGetTagTableMethodInfo - ResolveTextBufferMethod "getText" o = TextBufferGetTextMethodInfo - ResolveTextBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextBufferMethod "setModified" o = TextBufferSetModifiedMethodInfo - ResolveTextBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextBufferMethod "setText" o = TextBufferSetTextMethodInfo - ResolveTextBufferMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabelProxy t (TextBuffer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabel t (TextBuffer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TextBuffer::apply-tag -type TextBufferApplyTagCallback = - TextTag -> - TextIter -> - TextIter -> - IO () - -noTextBufferApplyTagCallback :: Maybe TextBufferApplyTagCallback -noTextBufferApplyTagCallback = Nothing - -type TextBufferApplyTagCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferApplyTagCallback :: TextBufferApplyTagCallbackC -> IO (FunPtr TextBufferApplyTagCallbackC) - -textBufferApplyTagClosure :: TextBufferApplyTagCallback -> IO Closure -textBufferApplyTagClosure cb = newCClosure =<< mkTextBufferApplyTagCallback wrapped - where wrapped = textBufferApplyTagCallbackWrapper cb - -textBufferApplyTagCallbackWrapper :: - TextBufferApplyTagCallback -> - Ptr () -> - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferApplyTagCallbackWrapper _cb _ tag start end _ = do - tag' <- (newObject TextTag) tag - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb tag' start' end' - -onTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId -onTextBufferApplyTag obj cb = liftIO $ connectTextBufferApplyTag obj cb SignalConnectBefore -afterTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId -afterTextBufferApplyTag obj cb = connectTextBufferApplyTag obj cb SignalConnectAfter - -connectTextBufferApplyTag :: (GObject a, MonadIO m) => - a -> TextBufferApplyTagCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferApplyTag obj cb after = liftIO $ do - cb' <- mkTextBufferApplyTagCallback (textBufferApplyTagCallbackWrapper cb) - connectSignalFunPtr obj "apply-tag" cb' after - --- signal TextBuffer::begin-user-action -type TextBufferBeginUserActionCallback = - IO () - -noTextBufferBeginUserActionCallback :: Maybe TextBufferBeginUserActionCallback -noTextBufferBeginUserActionCallback = Nothing - -type TextBufferBeginUserActionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferBeginUserActionCallback :: TextBufferBeginUserActionCallbackC -> IO (FunPtr TextBufferBeginUserActionCallbackC) - -textBufferBeginUserActionClosure :: TextBufferBeginUserActionCallback -> IO Closure -textBufferBeginUserActionClosure cb = newCClosure =<< mkTextBufferBeginUserActionCallback wrapped - where wrapped = textBufferBeginUserActionCallbackWrapper cb - -textBufferBeginUserActionCallbackWrapper :: - TextBufferBeginUserActionCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferBeginUserActionCallbackWrapper _cb _ _ = do - _cb - -onTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId -onTextBufferBeginUserAction obj cb = liftIO $ connectTextBufferBeginUserAction obj cb SignalConnectBefore -afterTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId -afterTextBufferBeginUserAction obj cb = connectTextBufferBeginUserAction obj cb SignalConnectAfter - -connectTextBufferBeginUserAction :: (GObject a, MonadIO m) => - a -> TextBufferBeginUserActionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferBeginUserAction obj cb after = liftIO $ do - cb' <- mkTextBufferBeginUserActionCallback (textBufferBeginUserActionCallbackWrapper cb) - connectSignalFunPtr obj "begin-user-action" cb' after - --- signal TextBuffer::changed -type TextBufferChangedCallback = - IO () - -noTextBufferChangedCallback :: Maybe TextBufferChangedCallback -noTextBufferChangedCallback = Nothing - -type TextBufferChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferChangedCallback :: TextBufferChangedCallbackC -> IO (FunPtr TextBufferChangedCallbackC) - -textBufferChangedClosure :: TextBufferChangedCallback -> IO Closure -textBufferChangedClosure cb = newCClosure =<< mkTextBufferChangedCallback wrapped - where wrapped = textBufferChangedCallbackWrapper cb - -textBufferChangedCallbackWrapper :: - TextBufferChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferChangedCallbackWrapper _cb _ _ = do - _cb - -onTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId -onTextBufferChanged obj cb = liftIO $ connectTextBufferChanged obj cb SignalConnectBefore -afterTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId -afterTextBufferChanged obj cb = connectTextBufferChanged obj cb SignalConnectAfter - -connectTextBufferChanged :: (GObject a, MonadIO m) => - a -> TextBufferChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferChanged obj cb after = liftIO $ do - cb' <- mkTextBufferChangedCallback (textBufferChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal TextBuffer::delete-range -type TextBufferDeleteRangeCallback = - TextIter -> - TextIter -> - IO () - -noTextBufferDeleteRangeCallback :: Maybe TextBufferDeleteRangeCallback -noTextBufferDeleteRangeCallback = Nothing - -type TextBufferDeleteRangeCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferDeleteRangeCallback :: TextBufferDeleteRangeCallbackC -> IO (FunPtr TextBufferDeleteRangeCallbackC) - -textBufferDeleteRangeClosure :: TextBufferDeleteRangeCallback -> IO Closure -textBufferDeleteRangeClosure cb = newCClosure =<< mkTextBufferDeleteRangeCallback wrapped - where wrapped = textBufferDeleteRangeCallbackWrapper cb - -textBufferDeleteRangeCallbackWrapper :: - TextBufferDeleteRangeCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferDeleteRangeCallbackWrapper _cb _ start end _ = do - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb start' end' - -onTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId -onTextBufferDeleteRange obj cb = liftIO $ connectTextBufferDeleteRange obj cb SignalConnectBefore -afterTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId -afterTextBufferDeleteRange obj cb = connectTextBufferDeleteRange obj cb SignalConnectAfter - -connectTextBufferDeleteRange :: (GObject a, MonadIO m) => - a -> TextBufferDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferDeleteRange obj cb after = liftIO $ do - cb' <- mkTextBufferDeleteRangeCallback (textBufferDeleteRangeCallbackWrapper cb) - connectSignalFunPtr obj "delete-range" cb' after - --- signal TextBuffer::end-user-action -type TextBufferEndUserActionCallback = - IO () - -noTextBufferEndUserActionCallback :: Maybe TextBufferEndUserActionCallback -noTextBufferEndUserActionCallback = Nothing - -type TextBufferEndUserActionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferEndUserActionCallback :: TextBufferEndUserActionCallbackC -> IO (FunPtr TextBufferEndUserActionCallbackC) - -textBufferEndUserActionClosure :: TextBufferEndUserActionCallback -> IO Closure -textBufferEndUserActionClosure cb = newCClosure =<< mkTextBufferEndUserActionCallback wrapped - where wrapped = textBufferEndUserActionCallbackWrapper cb - -textBufferEndUserActionCallbackWrapper :: - TextBufferEndUserActionCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferEndUserActionCallbackWrapper _cb _ _ = do - _cb - -onTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId -onTextBufferEndUserAction obj cb = liftIO $ connectTextBufferEndUserAction obj cb SignalConnectBefore -afterTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId -afterTextBufferEndUserAction obj cb = connectTextBufferEndUserAction obj cb SignalConnectAfter - -connectTextBufferEndUserAction :: (GObject a, MonadIO m) => - a -> TextBufferEndUserActionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferEndUserAction obj cb after = liftIO $ do - cb' <- mkTextBufferEndUserActionCallback (textBufferEndUserActionCallbackWrapper cb) - connectSignalFunPtr obj "end-user-action" cb' after - --- signal TextBuffer::insert-child-anchor -type TextBufferInsertChildAnchorCallback = - TextIter -> - TextChildAnchor -> - IO () - -noTextBufferInsertChildAnchorCallback :: Maybe TextBufferInsertChildAnchorCallback -noTextBufferInsertChildAnchorCallback = Nothing - -type TextBufferInsertChildAnchorCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextChildAnchor -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertChildAnchorCallback :: TextBufferInsertChildAnchorCallbackC -> IO (FunPtr TextBufferInsertChildAnchorCallbackC) - -textBufferInsertChildAnchorClosure :: TextBufferInsertChildAnchorCallback -> IO Closure -textBufferInsertChildAnchorClosure cb = newCClosure =<< mkTextBufferInsertChildAnchorCallback wrapped - where wrapped = textBufferInsertChildAnchorCallbackWrapper cb - -textBufferInsertChildAnchorCallbackWrapper :: - TextBufferInsertChildAnchorCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextChildAnchor -> - Ptr () -> - IO () -textBufferInsertChildAnchorCallbackWrapper _cb _ location anchor _ = do - location' <- (newBoxed TextIter) location - anchor' <- (newObject TextChildAnchor) anchor - _cb location' anchor' - -onTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId -onTextBufferInsertChildAnchor obj cb = liftIO $ connectTextBufferInsertChildAnchor obj cb SignalConnectBefore -afterTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId -afterTextBufferInsertChildAnchor obj cb = connectTextBufferInsertChildAnchor obj cb SignalConnectAfter - -connectTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => - a -> TextBufferInsertChildAnchorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertChildAnchor obj cb after = liftIO $ do - cb' <- mkTextBufferInsertChildAnchorCallback (textBufferInsertChildAnchorCallbackWrapper cb) - connectSignalFunPtr obj "insert-child-anchor" cb' after - --- signal TextBuffer::insert-pixbuf -type TextBufferInsertPixbufCallback = - TextIter -> - GdkPixbuf.Pixbuf -> - IO () - -noTextBufferInsertPixbufCallback :: Maybe TextBufferInsertPixbufCallback -noTextBufferInsertPixbufCallback = Nothing - -type TextBufferInsertPixbufCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertPixbufCallback :: TextBufferInsertPixbufCallbackC -> IO (FunPtr TextBufferInsertPixbufCallbackC) - -textBufferInsertPixbufClosure :: TextBufferInsertPixbufCallback -> IO Closure -textBufferInsertPixbufClosure cb = newCClosure =<< mkTextBufferInsertPixbufCallback wrapped - where wrapped = textBufferInsertPixbufCallbackWrapper cb - -textBufferInsertPixbufCallbackWrapper :: - TextBufferInsertPixbufCallback -> - Ptr () -> - Ptr TextIter -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> - IO () -textBufferInsertPixbufCallbackWrapper _cb _ location pixbuf _ = do - location' <- (newBoxed TextIter) location - pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf - _cb location' pixbuf' - -onTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId -onTextBufferInsertPixbuf obj cb = liftIO $ connectTextBufferInsertPixbuf obj cb SignalConnectBefore -afterTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId -afterTextBufferInsertPixbuf obj cb = connectTextBufferInsertPixbuf obj cb SignalConnectAfter - -connectTextBufferInsertPixbuf :: (GObject a, MonadIO m) => - a -> TextBufferInsertPixbufCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertPixbuf obj cb after = liftIO $ do - cb' <- mkTextBufferInsertPixbufCallback (textBufferInsertPixbufCallbackWrapper cb) - connectSignalFunPtr obj "insert-pixbuf" cb' after - --- signal TextBuffer::insert-text -type TextBufferInsertTextCallback = - TextIter -> - T.Text -> - Int32 -> - IO () - -noTextBufferInsertTextCallback :: Maybe TextBufferInsertTextCallback -noTextBufferInsertTextCallback = Nothing - -type TextBufferInsertTextCallbackC = - Ptr () -> -- object - Ptr TextIter -> - CString -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertTextCallback :: TextBufferInsertTextCallbackC -> IO (FunPtr TextBufferInsertTextCallbackC) - -textBufferInsertTextClosure :: TextBufferInsertTextCallback -> IO Closure -textBufferInsertTextClosure cb = newCClosure =<< mkTextBufferInsertTextCallback wrapped - where wrapped = textBufferInsertTextCallbackWrapper cb - -textBufferInsertTextCallbackWrapper :: - TextBufferInsertTextCallback -> - Ptr () -> - Ptr TextIter -> - CString -> - Int32 -> - Ptr () -> - IO () -textBufferInsertTextCallbackWrapper _cb _ location text len _ = do - location' <- (newBoxed TextIter) location - text' <- cstringToText text - _cb location' text' len - -onTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId -onTextBufferInsertText obj cb = liftIO $ connectTextBufferInsertText obj cb SignalConnectBefore -afterTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId -afterTextBufferInsertText obj cb = connectTextBufferInsertText obj cb SignalConnectAfter - -connectTextBufferInsertText :: (GObject a, MonadIO m) => - a -> TextBufferInsertTextCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertText obj cb after = liftIO $ do - cb' <- mkTextBufferInsertTextCallback (textBufferInsertTextCallbackWrapper cb) - connectSignalFunPtr obj "insert-text" cb' after - --- signal TextBuffer::mark-deleted -type TextBufferMarkDeletedCallback = - TextMark -> - IO () - -noTextBufferMarkDeletedCallback :: Maybe TextBufferMarkDeletedCallback -noTextBufferMarkDeletedCallback = Nothing - -type TextBufferMarkDeletedCallbackC = - Ptr () -> -- object - Ptr TextMark -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferMarkDeletedCallback :: TextBufferMarkDeletedCallbackC -> IO (FunPtr TextBufferMarkDeletedCallbackC) - -textBufferMarkDeletedClosure :: TextBufferMarkDeletedCallback -> IO Closure -textBufferMarkDeletedClosure cb = newCClosure =<< mkTextBufferMarkDeletedCallback wrapped - where wrapped = textBufferMarkDeletedCallbackWrapper cb - -textBufferMarkDeletedCallbackWrapper :: - TextBufferMarkDeletedCallback -> - Ptr () -> - Ptr TextMark -> - Ptr () -> - IO () -textBufferMarkDeletedCallbackWrapper _cb _ mark _ = do - mark' <- (newObject TextMark) mark - _cb mark' - -onTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId -onTextBufferMarkDeleted obj cb = liftIO $ connectTextBufferMarkDeleted obj cb SignalConnectBefore -afterTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId -afterTextBufferMarkDeleted obj cb = connectTextBufferMarkDeleted obj cb SignalConnectAfter - -connectTextBufferMarkDeleted :: (GObject a, MonadIO m) => - a -> TextBufferMarkDeletedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferMarkDeleted obj cb after = liftIO $ do - cb' <- mkTextBufferMarkDeletedCallback (textBufferMarkDeletedCallbackWrapper cb) - connectSignalFunPtr obj "mark-deleted" cb' after - --- signal TextBuffer::mark-set -type TextBufferMarkSetCallback = - TextIter -> - TextMark -> - IO () - -noTextBufferMarkSetCallback :: Maybe TextBufferMarkSetCallback -noTextBufferMarkSetCallback = Nothing - -type TextBufferMarkSetCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextMark -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferMarkSetCallback :: TextBufferMarkSetCallbackC -> IO (FunPtr TextBufferMarkSetCallbackC) - -textBufferMarkSetClosure :: TextBufferMarkSetCallback -> IO Closure -textBufferMarkSetClosure cb = newCClosure =<< mkTextBufferMarkSetCallback wrapped - where wrapped = textBufferMarkSetCallbackWrapper cb - -textBufferMarkSetCallbackWrapper :: - TextBufferMarkSetCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextMark -> - Ptr () -> - IO () -textBufferMarkSetCallbackWrapper _cb _ location mark _ = do - location' <- (newBoxed TextIter) location - mark' <- (newObject TextMark) mark - _cb location' mark' - -onTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId -onTextBufferMarkSet obj cb = liftIO $ connectTextBufferMarkSet obj cb SignalConnectBefore -afterTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId -afterTextBufferMarkSet obj cb = connectTextBufferMarkSet obj cb SignalConnectAfter - -connectTextBufferMarkSet :: (GObject a, MonadIO m) => - a -> TextBufferMarkSetCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferMarkSet obj cb after = liftIO $ do - cb' <- mkTextBufferMarkSetCallback (textBufferMarkSetCallbackWrapper cb) - connectSignalFunPtr obj "mark-set" cb' after - --- signal TextBuffer::modified-changed -type TextBufferModifiedChangedCallback = - IO () - -noTextBufferModifiedChangedCallback :: Maybe TextBufferModifiedChangedCallback -noTextBufferModifiedChangedCallback = Nothing - -type TextBufferModifiedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferModifiedChangedCallback :: TextBufferModifiedChangedCallbackC -> IO (FunPtr TextBufferModifiedChangedCallbackC) - -textBufferModifiedChangedClosure :: TextBufferModifiedChangedCallback -> IO Closure -textBufferModifiedChangedClosure cb = newCClosure =<< mkTextBufferModifiedChangedCallback wrapped - where wrapped = textBufferModifiedChangedCallbackWrapper cb - -textBufferModifiedChangedCallbackWrapper :: - TextBufferModifiedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferModifiedChangedCallbackWrapper _cb _ _ = do - _cb - -onTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId -onTextBufferModifiedChanged obj cb = liftIO $ connectTextBufferModifiedChanged obj cb SignalConnectBefore -afterTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId -afterTextBufferModifiedChanged obj cb = connectTextBufferModifiedChanged obj cb SignalConnectAfter - -connectTextBufferModifiedChanged :: (GObject a, MonadIO m) => - a -> TextBufferModifiedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferModifiedChanged obj cb after = liftIO $ do - cb' <- mkTextBufferModifiedChangedCallback (textBufferModifiedChangedCallbackWrapper cb) - connectSignalFunPtr obj "modified-changed" cb' after - --- signal TextBuffer::paste-done -type TextBufferPasteDoneCallback = - Clipboard -> - IO () - -noTextBufferPasteDoneCallback :: Maybe TextBufferPasteDoneCallback -noTextBufferPasteDoneCallback = Nothing - -type TextBufferPasteDoneCallbackC = - Ptr () -> -- object - Ptr Clipboard -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferPasteDoneCallback :: TextBufferPasteDoneCallbackC -> IO (FunPtr TextBufferPasteDoneCallbackC) - -textBufferPasteDoneClosure :: TextBufferPasteDoneCallback -> IO Closure -textBufferPasteDoneClosure cb = newCClosure =<< mkTextBufferPasteDoneCallback wrapped - where wrapped = textBufferPasteDoneCallbackWrapper cb - -textBufferPasteDoneCallbackWrapper :: - TextBufferPasteDoneCallback -> - Ptr () -> - Ptr Clipboard -> - Ptr () -> - IO () -textBufferPasteDoneCallbackWrapper _cb _ clipboard _ = do - clipboard' <- (newObject Clipboard) clipboard - _cb clipboard' - -onTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId -onTextBufferPasteDone obj cb = liftIO $ connectTextBufferPasteDone obj cb SignalConnectBefore -afterTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId -afterTextBufferPasteDone obj cb = connectTextBufferPasteDone obj cb SignalConnectAfter - -connectTextBufferPasteDone :: (GObject a, MonadIO m) => - a -> TextBufferPasteDoneCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferPasteDone obj cb after = liftIO $ do - cb' <- mkTextBufferPasteDoneCallback (textBufferPasteDoneCallbackWrapper cb) - connectSignalFunPtr obj "paste-done" cb' after - --- signal TextBuffer::remove-tag -type TextBufferRemoveTagCallback = - TextTag -> - TextIter -> - TextIter -> - IO () - -noTextBufferRemoveTagCallback :: Maybe TextBufferRemoveTagCallback -noTextBufferRemoveTagCallback = Nothing - -type TextBufferRemoveTagCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferRemoveTagCallback :: TextBufferRemoveTagCallbackC -> IO (FunPtr TextBufferRemoveTagCallbackC) - -textBufferRemoveTagClosure :: TextBufferRemoveTagCallback -> IO Closure -textBufferRemoveTagClosure cb = newCClosure =<< mkTextBufferRemoveTagCallback wrapped - where wrapped = textBufferRemoveTagCallbackWrapper cb - -textBufferRemoveTagCallbackWrapper :: - TextBufferRemoveTagCallback -> - Ptr () -> - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferRemoveTagCallbackWrapper _cb _ tag start end _ = do - tag' <- (newObject TextTag) tag - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb tag' start' end' - -onTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId -onTextBufferRemoveTag obj cb = liftIO $ connectTextBufferRemoveTag obj cb SignalConnectBefore -afterTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId -afterTextBufferRemoveTag obj cb = connectTextBufferRemoveTag obj cb SignalConnectAfter - -connectTextBufferRemoveTag :: (GObject a, MonadIO m) => - a -> TextBufferRemoveTagCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferRemoveTag obj cb after = liftIO $ do - cb' <- mkTextBufferRemoveTagCallback (textBufferRemoveTagCallbackWrapper cb) - connectSignalFunPtr obj "remove-tag" cb' after - --- VVV Prop "copy-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferCopyTargetList obj = liftIO $ checkUnexpectedNothing "getTextBufferCopyTargetList" $ getObjectPropertyBoxed obj "copy-target-list" TargetList - -data TextBufferCopyTargetListPropertyInfo -instance AttrInfo TextBufferCopyTargetListPropertyInfo where - type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList - type AttrLabel TextBufferCopyTargetListPropertyInfo = "copy-target-list" - attrGet _ = getTextBufferCopyTargetList - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 -getTextBufferCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" - -data TextBufferCursorPositionPropertyInfo -instance AttrInfo TextBufferCursorPositionPropertyInfo where - type AttrAllowedOps TextBufferCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferCursorPositionPropertyInfo = TextBufferK - type AttrGetType TextBufferCursorPositionPropertyInfo = Int32 - type AttrLabel TextBufferCursorPositionPropertyInfo = "cursor-position" - attrGet _ = getTextBufferCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "has-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTextBufferHasSelection :: (MonadIO m, TextBufferK o) => o -> m Bool -getTextBufferHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" - -data TextBufferHasSelectionPropertyInfo -instance AttrInfo TextBufferHasSelectionPropertyInfo where - type AttrAllowedOps TextBufferHasSelectionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferHasSelectionPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferHasSelectionPropertyInfo = TextBufferK - type AttrGetType TextBufferHasSelectionPropertyInfo = Bool - type AttrLabel TextBufferHasSelectionPropertyInfo = "has-selection" - attrGet _ = getTextBufferHasSelection - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "paste-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferPasteTargetList obj = liftIO $ checkUnexpectedNothing "getTextBufferPasteTargetList" $ getObjectPropertyBoxed obj "paste-target-list" TargetList - -data TextBufferPasteTargetListPropertyInfo -instance AttrInfo TextBufferPasteTargetListPropertyInfo where - type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList - type AttrLabel TextBufferPasteTargetListPropertyInfo = "paste-target-list" - attrGet _ = getTextBufferPasteTargetList - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "tag-table" - -- Type: TInterface "Gtk" "TextTagTable" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable -getTextBufferTagTable obj = liftIO $ checkUnexpectedNothing "getTextBufferTagTable" $ getObjectPropertyObject obj "tag-table" TextTagTable - -constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) -constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" (Just val) - -data TextBufferTagTablePropertyInfo -instance AttrInfo TextBufferTagTablePropertyInfo where - type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK - type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK - type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable - type AttrLabel TextBufferTagTablePropertyInfo = "tag-table" - attrGet _ = getTextBufferTagTable - attrSet _ = undefined - attrConstruct _ = constructTextBufferTagTable - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m (Maybe T.Text) -getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" - -setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () -setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructTextBufferText :: T.Text -> IO ([Char], GValue) -constructTextBufferText val = constructObjectPropertyString "text" (Just val) - -clearTextBufferText :: (MonadIO m, TextBufferK o) => o -> m () -clearTextBufferText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data TextBufferTextPropertyInfo -instance AttrInfo TextBufferTextPropertyInfo where - type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK - type AttrGetType TextBufferTextPropertyInfo = (Maybe T.Text) - type AttrLabel TextBufferTextPropertyInfo = "text" - attrGet _ = getTextBufferText - attrSet _ = setTextBufferText - attrConstruct _ = constructTextBufferText - attrClear _ = clearTextBufferText - -type instance AttributeList TextBuffer = TextBufferAttributeList -type TextBufferAttributeList = ('[ '("copyTargetList", TextBufferCopyTargetListPropertyInfo), '("cursorPosition", TextBufferCursorPositionPropertyInfo), '("hasSelection", TextBufferHasSelectionPropertyInfo), '("pasteTargetList", TextBufferPasteTargetListPropertyInfo), '("tagTable", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)]) - -textBufferCopyTargetList :: AttrLabelProxy "copyTargetList" -textBufferCopyTargetList = AttrLabelProxy - -textBufferCursorPosition :: AttrLabelProxy "cursorPosition" -textBufferCursorPosition = AttrLabelProxy - -textBufferHasSelection :: AttrLabelProxy "hasSelection" -textBufferHasSelection = AttrLabelProxy - -textBufferPasteTargetList :: AttrLabelProxy "pasteTargetList" -textBufferPasteTargetList = AttrLabelProxy - -textBufferTagTable :: AttrLabelProxy "tagTable" -textBufferTagTable = AttrLabelProxy - -textBufferText :: AttrLabelProxy "text" -textBufferText = AttrLabelProxy - -data TextBufferApplyTagSignalInfo -instance SignalInfo TextBufferApplyTagSignalInfo where - type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback - connectSignal _ = connectTextBufferApplyTag - -data TextBufferBeginUserActionSignalInfo -instance SignalInfo TextBufferBeginUserActionSignalInfo where - type HaskellCallbackType TextBufferBeginUserActionSignalInfo = TextBufferBeginUserActionCallback - connectSignal _ = connectTextBufferBeginUserAction - -data TextBufferChangedSignalInfo -instance SignalInfo TextBufferChangedSignalInfo where - type HaskellCallbackType TextBufferChangedSignalInfo = TextBufferChangedCallback - connectSignal _ = connectTextBufferChanged - -data TextBufferDeleteRangeSignalInfo -instance SignalInfo TextBufferDeleteRangeSignalInfo where - type HaskellCallbackType TextBufferDeleteRangeSignalInfo = TextBufferDeleteRangeCallback - connectSignal _ = connectTextBufferDeleteRange - -data TextBufferEndUserActionSignalInfo -instance SignalInfo TextBufferEndUserActionSignalInfo where - type HaskellCallbackType TextBufferEndUserActionSignalInfo = TextBufferEndUserActionCallback - connectSignal _ = connectTextBufferEndUserAction - -data TextBufferInsertChildAnchorSignalInfo -instance SignalInfo TextBufferInsertChildAnchorSignalInfo where - type HaskellCallbackType TextBufferInsertChildAnchorSignalInfo = TextBufferInsertChildAnchorCallback - connectSignal _ = connectTextBufferInsertChildAnchor - -data TextBufferInsertPixbufSignalInfo -instance SignalInfo TextBufferInsertPixbufSignalInfo where - type HaskellCallbackType TextBufferInsertPixbufSignalInfo = TextBufferInsertPixbufCallback - connectSignal _ = connectTextBufferInsertPixbuf - -data TextBufferInsertTextSignalInfo -instance SignalInfo TextBufferInsertTextSignalInfo where - type HaskellCallbackType TextBufferInsertTextSignalInfo = TextBufferInsertTextCallback - connectSignal _ = connectTextBufferInsertText - -data TextBufferMarkDeletedSignalInfo -instance SignalInfo TextBufferMarkDeletedSignalInfo where - type HaskellCallbackType TextBufferMarkDeletedSignalInfo = TextBufferMarkDeletedCallback - connectSignal _ = connectTextBufferMarkDeleted - -data TextBufferMarkSetSignalInfo -instance SignalInfo TextBufferMarkSetSignalInfo where - type HaskellCallbackType TextBufferMarkSetSignalInfo = TextBufferMarkSetCallback - connectSignal _ = connectTextBufferMarkSet - -data TextBufferModifiedChangedSignalInfo -instance SignalInfo TextBufferModifiedChangedSignalInfo where - type HaskellCallbackType TextBufferModifiedChangedSignalInfo = TextBufferModifiedChangedCallback - connectSignal _ = connectTextBufferModifiedChanged - -data TextBufferPasteDoneSignalInfo -instance SignalInfo TextBufferPasteDoneSignalInfo where - type HaskellCallbackType TextBufferPasteDoneSignalInfo = TextBufferPasteDoneCallback - connectSignal _ = connectTextBufferPasteDone - -data TextBufferRemoveTagSignalInfo -instance SignalInfo TextBufferRemoveTagSignalInfo where - type HaskellCallbackType TextBufferRemoveTagSignalInfo = TextBufferRemoveTagCallback - connectSignal _ = connectTextBufferRemoveTag - -type instance SignalList TextBuffer = TextBufferSignalList -type TextBufferSignalList = ('[ '("applyTag", TextBufferApplyTagSignalInfo), '("beginUserAction", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("deleteRange", TextBufferDeleteRangeSignalInfo), '("endUserAction", TextBufferEndUserActionSignalInfo), '("insertChildAnchor", TextBufferInsertChildAnchorSignalInfo), '("insertPixbuf", TextBufferInsertPixbufSignalInfo), '("insertText", TextBufferInsertTextSignalInfo), '("markDeleted", TextBufferMarkDeletedSignalInfo), '("markSet", TextBufferMarkSetSignalInfo), '("modifiedChanged", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pasteDone", TextBufferPasteDoneSignalInfo), '("removeTag", TextBufferRemoveTagSignalInfo)] :: [(Symbol, *)]) - --- method TextBuffer::new --- method type : Constructor --- Args : [Arg {argCName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new :: - Ptr TextTagTable -> -- table : TInterface "Gtk" "TextTagTable" - IO (Ptr TextBuffer) - - -textBufferNew :: - (MonadIO m, TextTagTableK a) => - Maybe (a) -- table - -> m TextBuffer -- result -textBufferNew table = liftIO $ do - maybeTable <- case table of - Nothing -> return nullPtr - Just jTable -> do - let jTable' = unsafeManagedPtrCastPtr jTable - return jTable' - result <- gtk_text_buffer_new maybeTable - checkUnexpectedReturnNULL "gtk_text_buffer_new" result - result' <- (wrapObject TextBuffer) result - whenJust table touchManagedPtr - return result' - --- method TextBuffer::add_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferAddMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> TextIter -- where_ - -> m () -- result -textBufferAddMark _obj mark where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_add_mark _obj' mark' where_' - touchManagedPtr _obj - touchManagedPtr mark - touchManagedPtr where_ - return () - -data TextBufferAddMarkMethodInfo -instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferAddMarkMethodInfo a signature where - overloadedMethod _ = textBufferAddMark - --- method TextBuffer::add_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", 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 "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferAddSelectionClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -- _obj - -> b -- clipboard - -> m () -- result -textBufferAddSelectionClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_add_selection_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - -data TextBufferAddSelectionClipboardMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferAddSelectionClipboardMethodInfo a signature where - overloadedMethod _ = textBufferAddSelectionClipboard - --- method TextBuffer::apply_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferApplyTag :: - (MonadIO m, TextBufferK a, TextTagK b) => - a -- _obj - -> b -- tag - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferApplyTag _obj tag start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_apply_tag _obj' tag' start' end' - touchManagedPtr _obj - touchManagedPtr tag - touchManagedPtr start - touchManagedPtr end - return () - -data TextBufferApplyTagMethodInfo -instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferApplyTagMethodInfo a signature where - overloadedMethod _ = textBufferApplyTag - --- method TextBuffer::apply_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferApplyTagByName :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- name - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferApplyTagByName _obj name start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_apply_tag_by_name _obj' name' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - freeMem name' - return () - -data TextBufferApplyTagByNameMethodInfo -instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferApplyTagByNameMethodInfo a signature where - overloadedMethod _ = textBufferApplyTagByName - --- method TextBuffer::backspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_backspace" gtk_text_buffer_backspace :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CInt -> -- interactive : TBasicType TBoolean - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferBackspace :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> Bool -- interactive - -> Bool -- defaultEditable - -> m Bool -- result -textBufferBackspace _obj iter interactive defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let interactive' = (fromIntegral . fromEnum) interactive - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_backspace _obj' iter' interactive' defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextBufferBackspaceMethodInfo -instance (signature ~ (TextIter -> Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferBackspaceMethodInfo a signature where - overloadedMethod _ = textBufferBackspace - --- method TextBuffer::begin_user_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO () - - -textBufferBeginUserAction :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m () -- result -textBufferBeginUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_begin_user_action _obj' - touchManagedPtr _obj - return () - -data TextBufferBeginUserActionMethodInfo -instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferBeginUserActionMethodInfo a signature where - overloadedMethod _ = textBufferBeginUserAction - --- method TextBuffer::copy_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", 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 "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferCopyClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -- _obj - -> b -- clipboard - -> m () -- result -textBufferCopyClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_copy_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - -data TextBufferCopyClipboardMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCopyClipboardMethodInfo a signature where - overloadedMethod _ = textBufferCopyClipboard - --- method TextBuffer::create_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextChildAnchor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO (Ptr TextChildAnchor) - - -textBufferCreateChildAnchor :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> m TextChildAnchor -- result -textBufferCreateChildAnchor _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_buffer_create_child_anchor _obj' iter' - checkUnexpectedReturnNULL "gtk_text_buffer_create_child_anchor" result - result' <- (newObject TextChildAnchor) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextBufferCreateChildAnchorMethodInfo -instance (signature ~ (TextIter -> m TextChildAnchor), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateChildAnchorMethodInfo a signature where - overloadedMethod _ = textBufferCreateChildAnchor - --- method TextBuffer::create_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mark_name : TBasicType TUTF8 - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - CInt -> -- left_gravity : TBasicType TBoolean - IO (Ptr TextMark) - - -textBufferCreateMark :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Maybe (T.Text) -- markName - -> TextIter -- where_ - -> Bool -- leftGravity - -> m TextMark -- result -textBufferCreateMark _obj markName where_ leftGravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkName <- case markName of - Nothing -> return nullPtr - Just jMarkName -> do - jMarkName' <- textToCString jMarkName - return jMarkName' - let where_' = unsafeManagedPtrGetPtr where_ - let leftGravity' = (fromIntegral . fromEnum) leftGravity - result <- gtk_text_buffer_create_mark _obj' maybeMarkName where_' leftGravity' - checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - touchManagedPtr where_ - freeMem maybeMarkName - return result' - -data TextBufferCreateMarkMethodInfo -instance (signature ~ (Maybe (T.Text) -> TextIter -> Bool -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateMarkMethodInfo a signature where - overloadedMethod _ = textBufferCreateMark - --- method TextBuffer::cut_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", 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 "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - CInt -> -- default_editable : TBasicType TBoolean - IO () - - -textBufferCutClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -- _obj - -> b -- clipboard - -> Bool -- defaultEditable - -> m () -- result -textBufferCutClipboard _obj clipboard defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - gtk_text_buffer_cut_clipboard _obj' clipboard' defaultEditable' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - -data TextBufferCutClipboardMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCutClipboardMethodInfo a signature where - overloadedMethod _ = textBufferCutClipboard - --- method TextBuffer::delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_delete" gtk_text_buffer_delete :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferDelete :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferDelete _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_delete _obj' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return () - -data TextBufferDeleteMethodInfo -instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMethodInfo a signature where - overloadedMethod _ = textBufferDelete - --- method TextBuffer::delete_interactive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start_iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end_iter : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferDeleteInteractive :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- startIter - -> TextIter -- endIter - -> Bool -- defaultEditable - -> m Bool -- result -textBufferDeleteInteractive _obj startIter endIter defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let startIter' = unsafeManagedPtrGetPtr startIter - let endIter' = unsafeManagedPtrGetPtr endIter - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_delete_interactive _obj' startIter' endIter' defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr startIter - touchManagedPtr endIter - return result' - -data TextBufferDeleteInteractiveMethodInfo -instance (signature ~ (TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteInteractiveMethodInfo a signature where - overloadedMethod _ = textBufferDeleteInteractive - --- method TextBuffer::delete_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textBufferDeleteMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> m () -- result -textBufferDeleteMark _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_buffer_delete_mark _obj' mark' - touchManagedPtr _obj - touchManagedPtr mark - return () - -data TextBufferDeleteMarkMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferDeleteMarkMethodInfo a signature where - overloadedMethod _ = textBufferDeleteMark - --- method TextBuffer::delete_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - IO () - - -textBufferDeleteMarkByName :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -textBufferDeleteMarkByName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_text_buffer_delete_mark_by_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data TextBufferDeleteMarkByNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMarkByNameMethodInfo a signature where - overloadedMethod _ = textBufferDeleteMarkByName - --- method TextBuffer::delete_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CInt -> -- interactive : TBasicType TBoolean - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferDeleteSelection :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Bool -- interactive - -> Bool -- defaultEditable - -> m Bool -- result -textBufferDeleteSelection _obj interactive defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interactive' = (fromIntegral . fromEnum) interactive - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_delete_selection _obj' interactive' defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextBufferDeleteSelectionMethodInfo -instance (signature ~ (Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteSelectionMethodInfo a signature where - overloadedMethod _ = textBufferDeleteSelection - --- method TextBuffer::deserialize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Word8 -> -- data : TCArray False (-1) 5 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -textBufferDeserialize :: - (MonadIO m, TextBufferK a, TextBufferK b) => - a -- _obj - -> b -- contentBuffer - -> Gdk.Atom -- format - -> TextIter -- iter - -> ByteString -- data_ - -> m () -- result -textBufferDeserialize _obj contentBuffer format iter data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer - let format' = unsafeManagedPtrGetPtr format - let iter' = unsafeManagedPtrGetPtr iter - data_' <- packByteString data_ - onException (do - _ <- propagateGError $ gtk_text_buffer_deserialize _obj' contentBuffer' format' iter' data_' length_ - touchManagedPtr _obj - touchManagedPtr contentBuffer - touchManagedPtr format - touchManagedPtr iter - freeMem data_' - return () - ) (do - freeMem data_' - ) - -data TextBufferDeserializeMethodInfo -instance (signature ~ (b -> Gdk.Atom -> TextIter -> ByteString -> m ()), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferDeserializeMethodInfo a signature where - overloadedMethod _ = textBufferDeserialize - --- method TextBuffer::deserialize_get_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", 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 "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO CInt - - -textBufferDeserializeGetCanCreateTags :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Gdk.Atom -- format - -> m Bool -- result -textBufferDeserializeGetCanCreateTags _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - result <- gtk_text_buffer_deserialize_get_can_create_tags _obj' format' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr format - return result' - -data TextBufferDeserializeGetCanCreateTagsMethodInfo -instance (signature ~ (Gdk.Atom -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeGetCanCreateTagsMethodInfo a signature where - overloadedMethod _ = textBufferDeserializeGetCanCreateTags - --- method TextBuffer::deserialize_set_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_create_tags", 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 "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - CInt -> -- can_create_tags : TBasicType TBoolean - IO () - - -textBufferDeserializeSetCanCreateTags :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Gdk.Atom -- format - -> Bool -- canCreateTags - -> m () -- result -textBufferDeserializeSetCanCreateTags _obj format canCreateTags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - let canCreateTags' = (fromIntegral . fromEnum) canCreateTags - gtk_text_buffer_deserialize_set_can_create_tags _obj' format' canCreateTags' - touchManagedPtr _obj - touchManagedPtr format - return () - -data TextBufferDeserializeSetCanCreateTagsMethodInfo -instance (signature ~ (Gdk.Atom -> Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeSetCanCreateTagsMethodInfo a signature where - overloadedMethod _ = textBufferDeserializeSetCanCreateTags - --- method TextBuffer::end_user_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO () - - -textBufferEndUserAction :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m () -- result -textBufferEndUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_end_user_action _obj' - touchManagedPtr _obj - return () - -data TextBufferEndUserActionMethodInfo -instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferEndUserActionMethodInfo a signature where - overloadedMethod _ = textBufferEndUserAction - --- method TextBuffer::get_bounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetBounds :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m (TextIter,TextIter) -- result -textBufferGetBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_bounds _obj' start end - start' <- (wrapBoxed TextIter) start - end' <- (wrapBoxed TextIter) end - touchManagedPtr _obj - return (start', end') - -data TextBufferGetBoundsMethodInfo -instance (signature ~ (m (TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetBoundsMethodInfo a signature where - overloadedMethod _ = textBufferGetBounds - --- method TextBuffer::get_char_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO Int32 - - -textBufferGetCharCount :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m Int32 -- result -textBufferGetCharCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_char_count _obj' - touchManagedPtr _obj - return result - -data TextBufferGetCharCountMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCharCountMethodInfo a signature where - overloadedMethod _ = textBufferGetCharCount - --- method TextBuffer::get_copy_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TargetList) - - -textBufferGetCopyTargetList :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m TargetList -- result -textBufferGetCopyTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_copy_target_list _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_copy_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data TextBufferGetCopyTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCopyTargetListMethodInfo a signature where - overloadedMethod _ = textBufferGetCopyTargetList - --- method TextBuffer::get_deserialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TInterface "Gdk" "Atom")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetDeserializeFormats :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m [Gdk.Atom] -- result -textBufferGetDeserializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - nFormats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_deserialize_formats _obj' nFormats - nFormats' <- peek nFormats - checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result - result' <- (unpackPtrArrayWithLength nFormats') result - result'' <- mapM (newPtr Gdk.Atom) result' - freeMem result - touchManagedPtr _obj - freeMem nFormats - return result'' - -data TextBufferGetDeserializeFormatsMethodInfo -instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetDeserializeFormatsMethodInfo a signature where - overloadedMethod _ = textBufferGetDeserializeFormats - --- method TextBuffer::get_end_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetEndIter :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m (TextIter) -- result -textBufferGetEndIter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_end_iter _obj' iter - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetEndIterMethodInfo -instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetEndIterMethodInfo a signature where - overloadedMethod _ = textBufferGetEndIter - --- method TextBuffer::get_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO CInt - - -textBufferGetHasSelection :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m Bool -- result -textBufferGetHasSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_has_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextBufferGetHasSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetHasSelectionMethodInfo a signature where - overloadedMethod _ = textBufferGetHasSelection - --- method TextBuffer::get_insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextMark) - - -textBufferGetInsert :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m TextMark -- result -textBufferGetInsert _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_insert _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_insert" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - return result' - -data TextBufferGetInsertMethodInfo -instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetInsertMethodInfo a signature where - overloadedMethod _ = textBufferGetInsert - --- method TextBuffer::get_iter_at_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", 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 "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textBufferGetIterAtChildAnchor :: - (MonadIO m, TextBufferK a, TextChildAnchorK b) => - a -- _obj - -> b -- anchor - -> m (TextIter) -- result -textBufferGetIterAtChildAnchor _obj anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_buffer_get_iter_at_child_anchor _obj' iter anchor' - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - touchManagedPtr anchor - return iter' - -data TextBufferGetIterAtChildAnchorMethodInfo -instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferGetIterAtChildAnchorMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtChildAnchor - --- method TextBuffer::get_iter_at_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", 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 "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt - IO () - - -textBufferGetIterAtLine :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Int32 -- lineNumber - -> m (TextIter) -- result -textBufferGetIterAtLine _obj lineNumber = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line _obj' iter lineNumber - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetIterAtLineMethodInfo -instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtLine - --- method TextBuffer::get_iter_at_line_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_index", 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 "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt - Int32 -> -- byte_index : TBasicType TInt - IO () - - -textBufferGetIterAtLineIndex :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Int32 -- lineNumber - -> Int32 -- byteIndex - -> m (TextIter) -- result -textBufferGetIterAtLineIndex _obj lineNumber byteIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_index _obj' iter lineNumber byteIndex - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetIterAtLineIndexMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineIndexMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtLineIndex - --- method TextBuffer::get_iter_at_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", 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 "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt - Int32 -> -- char_offset : TBasicType TInt - IO () - - -textBufferGetIterAtLineOffset :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Int32 -- lineNumber - -> Int32 -- charOffset - -> m (TextIter) -- result -textBufferGetIterAtLineOffset _obj lineNumber charOffset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_offset _obj' iter lineNumber charOffset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetIterAtLineOffsetMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineOffsetMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtLineOffset - --- method TextBuffer::get_iter_at_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textBufferGetIterAtMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> m (TextIter) -- result -textBufferGetIterAtMark _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_buffer_get_iter_at_mark _obj' iter mark' - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - touchManagedPtr mark - return iter' - -data TextBufferGetIterAtMarkMethodInfo -instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferGetIterAtMarkMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtMark - --- method TextBuffer::get_iter_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "char_offset", 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 "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt - IO () - - -textBufferGetIterAtOffset :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Int32 -- charOffset - -> m (TextIter) -- result -textBufferGetIterAtOffset _obj charOffset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_offset _obj' iter charOffset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetIterAtOffsetMethodInfo -instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtOffsetMethodInfo a signature where - overloadedMethod _ = textBufferGetIterAtOffset - --- method TextBuffer::get_line_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO Int32 - - -textBufferGetLineCount :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m Int32 -- result -textBufferGetLineCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_line_count _obj' - touchManagedPtr _obj - return result - -data TextBufferGetLineCountMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetLineCountMethodInfo a signature where - overloadedMethod _ = textBufferGetLineCount - --- method TextBuffer::get_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 : Just (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - IO (Ptr TextMark) - - -textBufferGetMark :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- name - -> m TextMark -- result -textBufferGetMark _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_text_buffer_get_mark _obj' name' - checkUnexpectedReturnNULL "gtk_text_buffer_get_mark" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - freeMem name' - return result' - -data TextBufferGetMarkMethodInfo -instance (signature ~ (T.Text -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetMarkMethodInfo a signature where - overloadedMethod _ = textBufferGetMark - --- method TextBuffer::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO CInt - - -textBufferGetModified :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m Bool -- result -textBufferGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_modified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextBufferGetModifiedMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetModifiedMethodInfo a signature where - overloadedMethod _ = textBufferGetModified - --- method TextBuffer::get_paste_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TargetList) - - -textBufferGetPasteTargetList :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m TargetList -- result -textBufferGetPasteTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_paste_target_list _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_paste_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data TextBufferGetPasteTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetPasteTargetListMethodInfo a signature where - overloadedMethod _ = textBufferGetPasteTargetList - --- method TextBuffer::get_selection_bound --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextMark) - - -textBufferGetSelectionBound :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m TextMark -- result -textBufferGetSelectionBound _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_selection_bound _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_selection_bound" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - return result' - -data TextBufferGetSelectionBoundMethodInfo -instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundMethodInfo a signature where - overloadedMethod _ = textBufferGetSelectionBound - --- method TextBuffer::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CInt - - -textBufferGetSelectionBounds :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m (Bool,TextIter,TextIter) -- result -textBufferGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - result <- gtk_text_buffer_get_selection_bounds _obj' start end - let result' = (/= 0) result - start' <- (wrapBoxed TextIter) start - end' <- (wrapBoxed TextIter) end - touchManagedPtr _obj - return (result', start', end') - -data TextBufferGetSelectionBoundsMethodInfo -instance (signature ~ (m (Bool,TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundsMethodInfo a signature where - overloadedMethod _ = textBufferGetSelectionBounds - --- method TextBuffer::get_serialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TInterface "Gdk" "Atom")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetSerializeFormats :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m [Gdk.Atom] -- result -textBufferGetSerializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - nFormats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_serialize_formats _obj' nFormats - nFormats' <- peek nFormats - checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result - result' <- (unpackPtrArrayWithLength nFormats') result - result'' <- mapM (newPtr Gdk.Atom) result' - freeMem result - touchManagedPtr _obj - freeMem nFormats - return result'' - -data TextBufferGetSerializeFormatsMethodInfo -instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSerializeFormatsMethodInfo a signature where - overloadedMethod _ = textBufferGetSerializeFormats - --- method TextBuffer::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, 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 "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- include_hidden_chars : TBasicType TBoolean - IO CString - - -textBufferGetSlice :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- start - -> TextIter -- end - -> Bool -- includeHiddenChars - -> m T.Text -- result -textBufferGetSlice _obj start end includeHiddenChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars - result <- gtk_text_buffer_get_slice _obj' start' end' includeHiddenChars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - -data TextBufferGetSliceMethodInfo -instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSliceMethodInfo a signature where - overloadedMethod _ = textBufferGetSlice - --- method TextBuffer::get_start_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetStartIter :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m (TextIter) -- result -textBufferGetStartIter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_start_iter _obj' iter - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextBufferGetStartIterMethodInfo -instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetStartIterMethodInfo a signature where - overloadedMethod _ = textBufferGetStartIter - --- method TextBuffer::get_tag_table --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextTagTable") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextTagTable) - - -textBufferGetTagTable :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> m TextTagTable -- result -textBufferGetTagTable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_tag_table _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_tag_table" result - result' <- (newObject TextTagTable) result - touchManagedPtr _obj - return result' - -data TextBufferGetTagTableMethodInfo -instance (signature ~ (m TextTagTable), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTagTableMethodInfo a signature where - overloadedMethod _ = textBufferGetTagTable - --- method TextBuffer::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, 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 "gtk_text_buffer_get_text" gtk_text_buffer_get_text :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- include_hidden_chars : TBasicType TBoolean - IO CString - - -textBufferGetText :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- start - -> TextIter -- end - -> Bool -- includeHiddenChars - -> m T.Text -- result -textBufferGetText _obj start end includeHiddenChars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars - result <- gtk_text_buffer_get_text _obj' start' end' includeHiddenChars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - -data TextBufferGetTextMethodInfo -instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTextMethodInfo a signature where - overloadedMethod _ = textBufferGetText - --- method TextBuffer::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_text_buffer_insert" gtk_text_buffer_insert :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO () - - -textBufferInsert :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> T.Text -- text - -> Int32 -- len - -> m () -- result -textBufferInsert _obj iter text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - text' <- textToCString text - gtk_text_buffer_insert _obj' iter' text' len - touchManagedPtr _obj - touchManagedPtr iter - freeMem text' - return () - -data TextBufferInsertMethodInfo -instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMethodInfo a signature where - overloadedMethod _ = textBufferInsert - --- method TextBuffer::insert_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO () - - -textBufferInsertAtCursor :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- text - -> Int32 -- len - -> m () -- result -textBufferInsertAtCursor _obj text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_text_buffer_insert_at_cursor _obj' text' len - touchManagedPtr _obj - freeMem text' - return () - -data TextBufferInsertAtCursorMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertAtCursorMethodInfo a signature where - overloadedMethod _ = textBufferInsertAtCursor - --- method TextBuffer::insert_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", 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 "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textBufferInsertChildAnchor :: - (MonadIO m, TextBufferK a, TextChildAnchorK b) => - a -- _obj - -> TextIter -- iter - -> b -- anchor - -> m () -- result -textBufferInsertChildAnchor _obj iter anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_buffer_insert_child_anchor _obj' iter' anchor' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr anchor - return () - -data TextBufferInsertChildAnchorMethodInfo -instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferInsertChildAnchorMethodInfo a signature where - overloadedMethod _ = textBufferInsertChildAnchor - --- method TextBuffer::insert_interactive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractive :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> T.Text -- text - -> Int32 -- len - -> Bool -- defaultEditable - -> m Bool -- result -textBufferInsertInteractive _obj iter text len defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - text' <- textToCString text - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_insert_interactive _obj' iter' text' len defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - freeMem text' - return result' - -data TextBufferInsertInteractiveMethodInfo -instance (signature ~ (TextIter -> T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveMethodInfo a signature where - overloadedMethod _ = textBufferInsertInteractive - --- method TextBuffer::insert_interactive_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractiveAtCursor :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- text - -> Int32 -- len - -> Bool -- defaultEditable - -> m Bool -- result -textBufferInsertInteractiveAtCursor _obj text len defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem text' - return result' - -data TextBufferInsertInteractiveAtCursorMethodInfo -instance (signature ~ (T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveAtCursorMethodInfo a signature where - overloadedMethod _ = textBufferInsertInteractiveAtCursor - --- method TextBuffer::insert_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- markup : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO () - - -textBufferInsertMarkup :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> T.Text -- markup - -> Int32 -- len - -> m () -- result -textBufferInsertMarkup _obj iter markup len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - markup' <- textToCString markup - gtk_text_buffer_insert_markup _obj' iter' markup' len - touchManagedPtr _obj - touchManagedPtr iter - freeMem markup' - return () - -data TextBufferInsertMarkupMethodInfo -instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMarkupMethodInfo a signature where - overloadedMethod _ = textBufferInsertMarkup - --- method TextBuffer::insert_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -textBufferInsertPixbuf :: - (MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> TextIter -- iter - -> b -- pixbuf - -> m () -- result -textBufferInsertPixbuf _obj iter pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_text_buffer_insert_pixbuf _obj' iter' pixbuf' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr pixbuf - return () - -data TextBufferInsertPixbufMethodInfo -instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => MethodInfo TextBufferInsertPixbufMethodInfo a signature where - overloadedMethod _ = textBufferInsertPixbuf - --- method TextBuffer::insert_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferInsertRange :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferInsertRange _obj iter start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_insert_range _obj' iter' start' end' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr start - touchManagedPtr end - return () - -data TextBufferInsertRangeMethodInfo -instance (signature ~ (TextIter -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeMethodInfo a signature where - overloadedMethod _ = textBufferInsertRange - --- method TextBuffer::insert_range_interactive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, 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 "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertRangeInteractive :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- iter - -> TextIter -- start - -> TextIter -- end - -> Bool -- defaultEditable - -> m Bool -- result -textBufferInsertRangeInteractive _obj iter start end defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' defaultEditable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr start - touchManagedPtr end - return result' - -data TextBufferInsertRangeInteractiveMethodInfo -instance (signature ~ (TextIter -> TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeInteractiveMethodInfo a signature where - overloadedMethod _ = textBufferInsertRangeInteractive - --- method TextBuffer::move_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferMoveMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> TextIter -- where_ - -> m () -- result -textBufferMoveMark _obj mark where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_move_mark _obj' mark' where_' - touchManagedPtr _obj - touchManagedPtr mark - touchManagedPtr where_ - return () - -data TextBufferMoveMarkMethodInfo -instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferMoveMarkMethodInfo a signature where - overloadedMethod _ = textBufferMoveMark - --- method TextBuffer::move_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferMoveMarkByName :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- name - -> TextIter -- where_ - -> m () -- result -textBufferMoveMarkByName _obj name where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_move_mark_by_name _obj' name' where_' - touchManagedPtr _obj - touchManagedPtr where_ - freeMem name' - return () - -data TextBufferMoveMarkByNameMethodInfo -instance (signature ~ (T.Text -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferMoveMarkByNameMethodInfo a signature where - overloadedMethod _ = textBufferMoveMarkByName - --- method TextBuffer::paste_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", 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 "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - Ptr TextIter -> -- override_location : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO () - - -textBufferPasteClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -- _obj - -> b -- clipboard - -> Maybe (TextIter) -- overrideLocation - -> Bool -- defaultEditable - -> m () -- result -textBufferPasteClipboard _obj clipboard overrideLocation defaultEditable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - maybeOverrideLocation <- case overrideLocation of - Nothing -> return nullPtr - Just jOverrideLocation -> do - let jOverrideLocation' = unsafeManagedPtrGetPtr jOverrideLocation - return jOverrideLocation' - let defaultEditable' = (fromIntegral . fromEnum) defaultEditable - gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverrideLocation defaultEditable' - touchManagedPtr _obj - touchManagedPtr clipboard - whenJust overrideLocation touchManagedPtr - return () - -data TextBufferPasteClipboardMethodInfo -instance (signature ~ (b -> Maybe (TextIter) -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferPasteClipboardMethodInfo a signature where - overloadedMethod _ = textBufferPasteClipboard - --- method TextBuffer::place_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferPlaceCursor :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- where_ - -> m () -- result -textBufferPlaceCursor _obj where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_place_cursor _obj' where_' - touchManagedPtr _obj - touchManagedPtr where_ - return () - -data TextBufferPlaceCursorMethodInfo -instance (signature ~ (TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferPlaceCursorMethodInfo a signature where - overloadedMethod _ = textBufferPlaceCursor - --- method TextBuffer::register_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mime_type : TBasicType TUTF8 - FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterDeserializeFormat :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- mimeType - -> TextBufferDeserializeFunc -- function - -> m Gdk.Atom -- result -textBufferRegisterDeserializeFormat _obj mimeType function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mimeType' <- textToCString mimeType - function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function) - let userData = castFunPtrToPtr function' - let userDataDestroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_deserialize_format _obj' mimeType' function' userData userDataDestroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - freeMem mimeType' - return result' - -data TextBufferRegisterDeserializeFormatMethodInfo -instance (signature ~ (T.Text -> TextBufferDeserializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeFormatMethodInfo a signature where - overloadedMethod _ = textBufferRegisterDeserializeFormat - --- method TextBuffer::register_deserialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- tagset_name : TBasicType TUTF8 - IO (Ptr Gdk.Atom) - - -textBufferRegisterDeserializeTagset :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Maybe (T.Text) -- tagsetName - -> m Gdk.Atom -- result -textBufferRegisterDeserializeTagset _obj tagsetName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagsetName <- case tagsetName of - Nothing -> return nullPtr - Just jTagsetName -> do - jTagsetName' <- textToCString jTagsetName - return jTagsetName' - result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagsetName - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - freeMem maybeTagsetName - return result' - -data TextBufferRegisterDeserializeTagsetMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeTagsetMethodInfo a signature where - overloadedMethod _ = textBufferRegisterDeserializeTagset - --- method TextBuffer::register_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mime_type : TBasicType TUTF8 - FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterSerializeFormat :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- mimeType - -> TextBufferSerializeFunc -- function - -> m Gdk.Atom -- result -textBufferRegisterSerializeFormat _obj mimeType function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mimeType' <- textToCString mimeType - function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function) - let userData = castFunPtrToPtr function' - let userDataDestroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_serialize_format _obj' mimeType' function' userData userDataDestroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - freeMem mimeType' - return result' - -data TextBufferRegisterSerializeFormatMethodInfo -instance (signature ~ (T.Text -> TextBufferSerializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeFormatMethodInfo a signature where - overloadedMethod _ = textBufferRegisterSerializeFormat - --- method TextBuffer::register_serialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- tagset_name : TBasicType TUTF8 - IO (Ptr Gdk.Atom) - - -textBufferRegisterSerializeTagset :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Maybe (T.Text) -- tagsetName - -> m Gdk.Atom -- result -textBufferRegisterSerializeTagset _obj tagsetName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagsetName <- case tagsetName of - Nothing -> return nullPtr - Just jTagsetName -> do - jTagsetName' <- textToCString jTagsetName - return jTagsetName' - result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagsetName - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - freeMem maybeTagsetName - return result' - -data TextBufferRegisterSerializeTagsetMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeTagsetMethodInfo a signature where - overloadedMethod _ = textBufferRegisterSerializeTagset - --- method TextBuffer::remove_all_tags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveAllTags :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferRemoveAllTags _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_all_tags _obj' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return () - -data TextBufferRemoveAllTagsMethodInfo -instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveAllTagsMethodInfo a signature where - overloadedMethod _ = textBufferRemoveAllTags - --- method TextBuffer::remove_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", 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 "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferRemoveSelectionClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -- _obj - -> b -- clipboard - -> m () -- result -textBufferRemoveSelectionClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_remove_selection_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - -data TextBufferRemoveSelectionClipboardMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferRemoveSelectionClipboardMethodInfo a signature where - overloadedMethod _ = textBufferRemoveSelectionClipboard - --- method TextBuffer::remove_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveTag :: - (MonadIO m, TextBufferK a, TextTagK b) => - a -- _obj - -> b -- tag - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferRemoveTag _obj tag start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_tag _obj' tag' start' end' - touchManagedPtr _obj - touchManagedPtr tag - touchManagedPtr start - touchManagedPtr end - return () - -data TextBufferRemoveTagMethodInfo -instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferRemoveTagMethodInfo a signature where - overloadedMethod _ = textBufferRemoveTag - --- method TextBuffer::remove_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveTagByName :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- name - -> TextIter -- start - -> TextIter -- end - -> m () -- result -textBufferRemoveTagByName _obj name start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_tag_by_name _obj' name' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - freeMem name' - return () - -data TextBufferRemoveTagByNameMethodInfo -instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveTagByNameMethodInfo a signature where - overloadedMethod _ = textBufferRemoveTagByName - --- method TextBuffer::select_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bound", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_buffer_select_range" gtk_text_buffer_select_range :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- ins : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- bound : TInterface "Gtk" "TextIter" - IO () - - -textBufferSelectRange :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> TextIter -- ins - -> TextIter -- bound - -> m () -- result -textBufferSelectRange _obj ins bound = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ins' = unsafeManagedPtrGetPtr ins - let bound' = unsafeManagedPtrGetPtr bound - gtk_text_buffer_select_range _obj' ins' bound' - touchManagedPtr _obj - touchManagedPtr ins - touchManagedPtr bound - return () - -data TextBufferSelectRangeMethodInfo -instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSelectRangeMethodInfo a signature where - overloadedMethod _ = textBufferSelectRange - --- method TextBuffer::serialize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 5 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Word8) - - -textBufferSerialize :: - (MonadIO m, TextBufferK a, TextBufferK b) => - a -- _obj - -> b -- contentBuffer - -> Gdk.Atom -- format - -> TextIter -- start - -> TextIter -- end - -> m ByteString -- result -textBufferSerialize _obj contentBuffer format start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer - let format' = unsafeManagedPtrGetPtr format - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_text_buffer_serialize _obj' contentBuffer' format' start' end' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result - result' <- (unpackByteStringWithLength length_') result - freeMem result - touchManagedPtr _obj - touchManagedPtr contentBuffer - touchManagedPtr format - touchManagedPtr start - touchManagedPtr end - freeMem length_ - return result' - -data TextBufferSerializeMethodInfo -instance (signature ~ (b -> Gdk.Atom -> TextIter -> TextIter -> m ByteString), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferSerializeMethodInfo a signature where - overloadedMethod _ = textBufferSerialize - --- method TextBuffer::set_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textBufferSetModified :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -textBufferSetModified _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_buffer_set_modified _obj' setting' - touchManagedPtr _obj - return () - -data TextBufferSetModifiedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetModifiedMethodInfo a signature where - overloadedMethod _ = textBufferSetModified - --- method TextBuffer::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_text_buffer_set_text" gtk_text_buffer_set_text :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO () - - -textBufferSetText :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> T.Text -- text - -> Int32 -- len - -> m () -- result -textBufferSetText _obj text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_text_buffer_set_text _obj' text' len - touchManagedPtr _obj - freeMem text' - return () - -data TextBufferSetTextMethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetTextMethodInfo a signature where - overloadedMethod _ = textBufferSetText - --- method TextBuffer::unregister_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", 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 "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO () - - -textBufferUnregisterDeserializeFormat :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Gdk.Atom -- format - -> m () -- result -textBufferUnregisterDeserializeFormat _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - gtk_text_buffer_unregister_deserialize_format _obj' format' - touchManagedPtr _obj - touchManagedPtr format - return () - -data TextBufferUnregisterDeserializeFormatMethodInfo -instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterDeserializeFormatMethodInfo a signature where - overloadedMethod _ = textBufferUnregisterDeserializeFormat - --- method TextBuffer::unregister_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", 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 "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO () - - -textBufferUnregisterSerializeFormat :: - (MonadIO m, TextBufferK a) => - a -- _obj - -> Gdk.Atom -- format - -> m () -- result -textBufferUnregisterSerializeFormat _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - gtk_text_buffer_unregister_serialize_format _obj' format' - touchManagedPtr _obj - touchManagedPtr format - return () - -data TextBufferUnregisterSerializeFormatMethodInfo -instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterSerializeFormatMethodInfo a signature where - overloadedMethod _ = textBufferUnregisterSerializeFormat - - diff --git a/GI/Gtk/Objects/TextBuffer.hs-boot b/GI/Gtk/Objects/TextBuffer.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextBuffer.hs-boot +++ /dev/null @@ -1,102 +0,0 @@ -module GI.Gtk.Objects.TextBuffer 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 TextBuffer = TextBuffer (ForeignPtr TextBuffer) -instance GObject TextBuffer where -class GObject o => TextBufferK o -instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o -data TextBufferCopyTargetListPropertyInfo -data TextBufferCursorPositionPropertyInfo -data TextBufferHasSelectionPropertyInfo -data TextBufferPasteTargetListPropertyInfo -data TextBufferTagTablePropertyInfo -data TextBufferTextPropertyInfo -data TextBufferApplyTagSignalInfo -data TextBufferBeginUserActionSignalInfo -data TextBufferChangedSignalInfo -data TextBufferDeleteRangeSignalInfo -data TextBufferEndUserActionSignalInfo -data TextBufferInsertChildAnchorSignalInfo -data TextBufferInsertPixbufSignalInfo -data TextBufferInsertTextSignalInfo -data TextBufferMarkDeletedSignalInfo -data TextBufferMarkSetSignalInfo -data TextBufferModifiedChangedSignalInfo -data TextBufferPasteDoneSignalInfo -data TextBufferRemoveTagSignalInfo -data TextBufferAddMarkMethodInfo -data TextBufferAddSelectionClipboardMethodInfo -data TextBufferApplyTagMethodInfo -data TextBufferApplyTagByNameMethodInfo -data TextBufferBackspaceMethodInfo -data TextBufferBeginUserActionMethodInfo -data TextBufferCopyClipboardMethodInfo -data TextBufferCreateChildAnchorMethodInfo -data TextBufferCreateMarkMethodInfo -data TextBufferCutClipboardMethodInfo -data TextBufferDeleteMethodInfo -data TextBufferDeleteInteractiveMethodInfo -data TextBufferDeleteMarkMethodInfo -data TextBufferDeleteMarkByNameMethodInfo -data TextBufferDeleteSelectionMethodInfo -data TextBufferDeserializeMethodInfo -data TextBufferDeserializeGetCanCreateTagsMethodInfo -data TextBufferDeserializeSetCanCreateTagsMethodInfo -data TextBufferEndUserActionMethodInfo -data TextBufferGetBoundsMethodInfo -data TextBufferGetCharCountMethodInfo -data TextBufferGetCopyTargetListMethodInfo -data TextBufferGetDeserializeFormatsMethodInfo -data TextBufferGetEndIterMethodInfo -data TextBufferGetHasSelectionMethodInfo -data TextBufferGetInsertMethodInfo -data TextBufferGetIterAtChildAnchorMethodInfo -data TextBufferGetIterAtLineMethodInfo -data TextBufferGetIterAtLineIndexMethodInfo -data TextBufferGetIterAtLineOffsetMethodInfo -data TextBufferGetIterAtMarkMethodInfo -data TextBufferGetIterAtOffsetMethodInfo -data TextBufferGetLineCountMethodInfo -data TextBufferGetMarkMethodInfo -data TextBufferGetModifiedMethodInfo -data TextBufferGetPasteTargetListMethodInfo -data TextBufferGetSelectionBoundMethodInfo -data TextBufferGetSelectionBoundsMethodInfo -data TextBufferGetSerializeFormatsMethodInfo -data TextBufferGetSliceMethodInfo -data TextBufferGetStartIterMethodInfo -data TextBufferGetTagTableMethodInfo -data TextBufferGetTextMethodInfo -data TextBufferInsertMethodInfo -data TextBufferInsertAtCursorMethodInfo -data TextBufferInsertChildAnchorMethodInfo -data TextBufferInsertInteractiveMethodInfo -data TextBufferInsertInteractiveAtCursorMethodInfo -data TextBufferInsertMarkupMethodInfo -data TextBufferInsertPixbufMethodInfo -data TextBufferInsertRangeMethodInfo -data TextBufferInsertRangeInteractiveMethodInfo -data TextBufferMoveMarkMethodInfo -data TextBufferMoveMarkByNameMethodInfo -data TextBufferPasteClipboardMethodInfo -data TextBufferPlaceCursorMethodInfo -data TextBufferRegisterDeserializeFormatMethodInfo -data TextBufferRegisterDeserializeTagsetMethodInfo -data TextBufferRegisterSerializeFormatMethodInfo -data TextBufferRegisterSerializeTagsetMethodInfo -data TextBufferRemoveAllTagsMethodInfo -data TextBufferRemoveSelectionClipboardMethodInfo -data TextBufferRemoveTagMethodInfo -data TextBufferRemoveTagByNameMethodInfo -data TextBufferSelectRangeMethodInfo -data TextBufferSerializeMethodInfo -data TextBufferSetModifiedMethodInfo -data TextBufferSetTextMethodInfo -data TextBufferUnregisterDeserializeFormatMethodInfo -data TextBufferUnregisterSerializeFormatMethodInfo diff --git a/GI/Gtk/Objects/TextCellAccessible.hs b/GI/Gtk/Objects/TextCellAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextCellAccessible.hs +++ /dev/null @@ -1,149 +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.Gtk.Objects.TextCellAccessible - ( - --- * Exported types - TextCellAccessible(..) , - TextCellAccessibleK , - toTextCellAccessible , - noTextCellAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype TextCellAccessible = TextCellAccessible (ForeignPtr TextCellAccessible) -foreign import ccall "gtk_text_cell_accessible_get_type" - c_gtk_text_cell_accessible_get_type :: IO GType - -type instance ParentTypes TextCellAccessible = TextCellAccessibleParentTypes -type TextCellAccessibleParentTypes = '[RendererCellAccessible, CellAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Text] - -instance GObject TextCellAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_cell_accessible_get_type - - -class GObject o => TextCellAccessibleK o -instance (GObject o, IsDescendantOf TextCellAccessible o) => TextCellAccessibleK o - -toTextCellAccessible :: TextCellAccessibleK o => o -> IO TextCellAccessible -toTextCellAccessible = unsafeCastTo TextCellAccessible - -noTextCellAccessible :: Maybe TextCellAccessible -noTextCellAccessible = Nothing - -type family ResolveTextCellAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveTextCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveTextCellAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo - ResolveTextCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveTextCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveTextCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveTextCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveTextCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveTextCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveTextCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveTextCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveTextCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveTextCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveTextCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveTextCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveTextCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveTextCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveTextCellAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo - ResolveTextCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveTextCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveTextCellAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo - ResolveTextCellAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo - ResolveTextCellAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo - ResolveTextCellAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo - ResolveTextCellAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo - ResolveTextCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextCellAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo - ResolveTextCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveTextCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveTextCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveTextCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveTextCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveTextCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveTextCellAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo - ResolveTextCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveTextCellAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo - ResolveTextCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveTextCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveTextCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextCellAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo - ResolveTextCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveTextCellAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo - ResolveTextCellAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo - ResolveTextCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveTextCellAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo - ResolveTextCellAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo - ResolveTextCellAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo - ResolveTextCellAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo - ResolveTextCellAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo - ResolveTextCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveTextCellAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo - ResolveTextCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveTextCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveTextCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveTextCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveTextCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveTextCellAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo - ResolveTextCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveTextCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveTextCellAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextCellAccessibleMethod t TextCellAccessible, MethodInfo info TextCellAccessible p) => IsLabelProxy t (TextCellAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextCellAccessibleMethod t TextCellAccessible, MethodInfo info TextCellAccessible p) => IsLabel t (TextCellAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TextCellAccessible = TextCellAccessibleAttributeList -type TextCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TextCellAccessible = TextCellAccessibleSignalList -type TextCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/TextCellAccessible.hs-boot b/GI/Gtk/Objects/TextCellAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextCellAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.TextCellAccessible 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 TextCellAccessible = TextCellAccessible (ForeignPtr TextCellAccessible) -instance GObject TextCellAccessible where -class GObject o => TextCellAccessibleK o -instance (GObject o, IsDescendantOf TextCellAccessible o) => TextCellAccessibleK o diff --git a/GI/Gtk/Objects/TextChildAnchor.hs b/GI/Gtk/Objects/TextChildAnchor.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextChildAnchor.hs +++ /dev/null @@ -1,190 +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.Gtk.Objects.TextChildAnchor - ( - --- * Exported types - TextChildAnchor(..) , - TextChildAnchorK , - toTextChildAnchor , - noTextChildAnchor , - - - -- * Methods --- ** textChildAnchorGetDeleted - TextChildAnchorGetDeletedMethodInfo , - textChildAnchorGetDeleted , - - --- ** textChildAnchorGetWidgets - TextChildAnchorGetWidgetsMethodInfo , - textChildAnchorGetWidgets , - - --- ** textChildAnchorNew - textChildAnchorNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TextChildAnchor = TextChildAnchor (ForeignPtr TextChildAnchor) -foreign import ccall "gtk_text_child_anchor_get_type" - c_gtk_text_child_anchor_get_type :: IO GType - -type instance ParentTypes TextChildAnchor = TextChildAnchorParentTypes -type TextChildAnchorParentTypes = '[GObject.Object] - -instance GObject TextChildAnchor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_child_anchor_get_type - - -class GObject o => TextChildAnchorK o -instance (GObject o, IsDescendantOf TextChildAnchor o) => TextChildAnchorK o - -toTextChildAnchor :: TextChildAnchorK o => o -> IO TextChildAnchor -toTextChildAnchor = unsafeCastTo TextChildAnchor - -noTextChildAnchor :: Maybe TextChildAnchor -noTextChildAnchor = Nothing - -type family ResolveTextChildAnchorMethod (t :: Symbol) (o :: *) :: * where - ResolveTextChildAnchorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextChildAnchorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextChildAnchorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextChildAnchorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextChildAnchorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextChildAnchorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextChildAnchorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextChildAnchorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextChildAnchorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextChildAnchorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextChildAnchorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextChildAnchorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextChildAnchorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextChildAnchorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextChildAnchorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextChildAnchorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextChildAnchorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextChildAnchorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextChildAnchorMethod "getDeleted" o = TextChildAnchorGetDeletedMethodInfo - ResolveTextChildAnchorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextChildAnchorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextChildAnchorMethod "getWidgets" o = TextChildAnchorGetWidgetsMethodInfo - ResolveTextChildAnchorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextChildAnchorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextChildAnchorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, MethodInfo info TextChildAnchor p) => IsLabelProxy t (TextChildAnchor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, MethodInfo info TextChildAnchor p) => IsLabel t (TextChildAnchor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TextChildAnchor = TextChildAnchorAttributeList -type TextChildAnchorAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TextChildAnchor = TextChildAnchorSignalList -type TextChildAnchorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextChildAnchor::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextChildAnchor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_child_anchor_new" gtk_text_child_anchor_new :: - IO (Ptr TextChildAnchor) - - -textChildAnchorNew :: - (MonadIO m) => - m TextChildAnchor -- result -textChildAnchorNew = liftIO $ do - result <- gtk_text_child_anchor_new - checkUnexpectedReturnNULL "gtk_text_child_anchor_new" result - result' <- (wrapObject TextChildAnchor) result - return result' - --- method TextChildAnchor::get_deleted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", 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 "gtk_text_child_anchor_get_deleted" gtk_text_child_anchor_get_deleted :: - Ptr TextChildAnchor -> -- _obj : TInterface "Gtk" "TextChildAnchor" - IO CInt - - -textChildAnchorGetDeleted :: - (MonadIO m, TextChildAnchorK a) => - a -- _obj - -> m Bool -- result -textChildAnchorGetDeleted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_child_anchor_get_deleted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextChildAnchorGetDeletedMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextChildAnchorK a) => MethodInfo TextChildAnchorGetDeletedMethodInfo a signature where - overloadedMethod _ = textChildAnchorGetDeleted - --- method TextChildAnchor::get_widgets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_child_anchor_get_widgets" gtk_text_child_anchor_get_widgets :: - Ptr TextChildAnchor -> -- _obj : TInterface "Gtk" "TextChildAnchor" - IO (Ptr (GList (Ptr Widget))) - - -textChildAnchorGetWidgets :: - (MonadIO m, TextChildAnchorK a) => - a -- _obj - -> m [Widget] -- result -textChildAnchorGetWidgets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_child_anchor_get_widgets _obj' - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data TextChildAnchorGetWidgetsMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, TextChildAnchorK a) => MethodInfo TextChildAnchorGetWidgetsMethodInfo a signature where - overloadedMethod _ = textChildAnchorGetWidgets - - diff --git a/GI/Gtk/Objects/TextChildAnchor.hs-boot b/GI/Gtk/Objects/TextChildAnchor.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextChildAnchor.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Objects.TextChildAnchor 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 TextChildAnchor = TextChildAnchor (ForeignPtr TextChildAnchor) -instance GObject TextChildAnchor where -class GObject o => TextChildAnchorK o -instance (GObject o, IsDescendantOf TextChildAnchor o) => TextChildAnchorK o -data TextChildAnchorGetDeletedMethodInfo -data TextChildAnchorGetWidgetsMethodInfo diff --git a/GI/Gtk/Objects/TextMark.hs b/GI/Gtk/Objects/TextMark.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextMark.hs +++ /dev/null @@ -1,408 +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.Gtk.Objects.TextMark - ( - --- * Exported types - TextMark(..) , - TextMarkK , - toTextMark , - noTextMark , - - - -- * Methods --- ** textMarkGetBuffer - TextMarkGetBufferMethodInfo , - textMarkGetBuffer , - - --- ** textMarkGetDeleted - TextMarkGetDeletedMethodInfo , - textMarkGetDeleted , - - --- ** textMarkGetLeftGravity - TextMarkGetLeftGravityMethodInfo , - textMarkGetLeftGravity , - - --- ** textMarkGetName - TextMarkGetNameMethodInfo , - textMarkGetName , - - --- ** textMarkGetVisible - TextMarkGetVisibleMethodInfo , - textMarkGetVisible , - - --- ** textMarkNew - textMarkNew , - - --- ** textMarkSetVisible - TextMarkSetVisibleMethodInfo , - textMarkSetVisible , - - - - - -- * Properties --- ** LeftGravity - TextMarkLeftGravityPropertyInfo , - constructTextMarkLeftGravity , - getTextMarkLeftGravity , - textMarkLeftGravity , - - --- ** Name - TextMarkNamePropertyInfo , - constructTextMarkName , - getTextMarkName , - textMarkName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TextMark = TextMark (ForeignPtr TextMark) -foreign import ccall "gtk_text_mark_get_type" - c_gtk_text_mark_get_type :: IO GType - -type instance ParentTypes TextMark = TextMarkParentTypes -type TextMarkParentTypes = '[GObject.Object] - -instance GObject TextMark where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_mark_get_type - - -class GObject o => TextMarkK o -instance (GObject o, IsDescendantOf TextMark o) => TextMarkK o - -toTextMark :: TextMarkK o => o -> IO TextMark -toTextMark = unsafeCastTo TextMark - -noTextMark :: Maybe TextMark -noTextMark = Nothing - -type family ResolveTextMarkMethod (t :: Symbol) (o :: *) :: * where - ResolveTextMarkMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextMarkMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextMarkMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextMarkMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextMarkMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextMarkMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextMarkMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextMarkMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextMarkMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextMarkMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextMarkMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextMarkMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextMarkMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextMarkMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextMarkMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextMarkMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextMarkMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextMarkMethod "getBuffer" o = TextMarkGetBufferMethodInfo - ResolveTextMarkMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextMarkMethod "getDeleted" o = TextMarkGetDeletedMethodInfo - ResolveTextMarkMethod "getLeftGravity" o = TextMarkGetLeftGravityMethodInfo - ResolveTextMarkMethod "getName" o = TextMarkGetNameMethodInfo - ResolveTextMarkMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextMarkMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextMarkMethod "getVisible" o = TextMarkGetVisibleMethodInfo - ResolveTextMarkMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextMarkMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextMarkMethod "setVisible" o = TextMarkSetVisibleMethodInfo - ResolveTextMarkMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextMarkMethod t TextMark, MethodInfo info TextMark p) => IsLabelProxy t (TextMark -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextMarkMethod t TextMark, MethodInfo info TextMark p) => IsLabel t (TextMark -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "left-gravity" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTextMarkLeftGravity :: (MonadIO m, TextMarkK o) => o -> m Bool -getTextMarkLeftGravity obj = liftIO $ getObjectPropertyBool obj "left-gravity" - -constructTextMarkLeftGravity :: Bool -> IO ([Char], GValue) -constructTextMarkLeftGravity val = constructObjectPropertyBool "left-gravity" val - -data TextMarkLeftGravityPropertyInfo -instance AttrInfo TextMarkLeftGravityPropertyInfo where - type AttrAllowedOps TextMarkLeftGravityPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextMarkLeftGravityPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextMarkLeftGravityPropertyInfo = TextMarkK - type AttrGetType TextMarkLeftGravityPropertyInfo = Bool - type AttrLabel TextMarkLeftGravityPropertyInfo = "left-gravity" - attrGet _ = getTextMarkLeftGravity - attrSet _ = undefined - attrConstruct _ = constructTextMarkLeftGravity - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTextMarkName :: (MonadIO m, TextMarkK o) => o -> m T.Text -getTextMarkName obj = liftIO $ checkUnexpectedNothing "getTextMarkName" $ getObjectPropertyString obj "name" - -constructTextMarkName :: T.Text -> IO ([Char], GValue) -constructTextMarkName val = constructObjectPropertyString "name" (Just val) - -data TextMarkNamePropertyInfo -instance AttrInfo TextMarkNamePropertyInfo where - type AttrAllowedOps TextMarkNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextMarkNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextMarkNamePropertyInfo = TextMarkK - type AttrGetType TextMarkNamePropertyInfo = T.Text - type AttrLabel TextMarkNamePropertyInfo = "name" - attrGet _ = getTextMarkName - attrSet _ = undefined - attrConstruct _ = constructTextMarkName - attrClear _ = undefined - -type instance AttributeList TextMark = TextMarkAttributeList -type TextMarkAttributeList = ('[ '("leftGravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] :: [(Symbol, *)]) - -textMarkLeftGravity :: AttrLabelProxy "leftGravity" -textMarkLeftGravity = AttrLabelProxy - -textMarkName :: AttrLabelProxy "name" -textMarkName = AttrLabelProxy - -type instance SignalList TextMark = TextMarkSignalList -type TextMarkSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextMark::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_mark_new" gtk_text_mark_new :: - CString -> -- name : TBasicType TUTF8 - CInt -> -- left_gravity : TBasicType TBoolean - IO (Ptr TextMark) - - -textMarkNew :: - (MonadIO m) => - Maybe (T.Text) -- name - -> Bool -- leftGravity - -> m TextMark -- result -textMarkNew name leftGravity = liftIO $ do - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - let leftGravity' = (fromIntegral . fromEnum) leftGravity - result <- gtk_text_mark_new maybeName leftGravity' - checkUnexpectedReturnNULL "gtk_text_mark_new" result - result' <- (wrapObject TextMark) result - freeMem maybeName - return result' - --- method TextMark::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_mark_get_buffer" gtk_text_mark_get_buffer :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - IO (Ptr TextBuffer) - - -textMarkGetBuffer :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> m TextBuffer -- result -textMarkGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_text_mark_get_buffer" result - result' <- (newObject TextBuffer) result - touchManagedPtr _obj - return result' - -data TextMarkGetBufferMethodInfo -instance (signature ~ (m TextBuffer), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetBufferMethodInfo a signature where - overloadedMethod _ = textMarkGetBuffer - --- method TextMark::get_deleted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_mark_get_deleted" gtk_text_mark_get_deleted :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - IO CInt - - -textMarkGetDeleted :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> m Bool -- result -textMarkGetDeleted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_deleted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextMarkGetDeletedMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetDeletedMethodInfo a signature where - overloadedMethod _ = textMarkGetDeleted - --- method TextMark::get_left_gravity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_mark_get_left_gravity" gtk_text_mark_get_left_gravity :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - IO CInt - - -textMarkGetLeftGravity :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> m Bool -- result -textMarkGetLeftGravity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_left_gravity _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextMarkGetLeftGravityMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetLeftGravityMethodInfo a signature where - overloadedMethod _ = textMarkGetLeftGravity - --- method TextMark::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_mark_get_name" gtk_text_mark_get_name :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - IO CString - - -textMarkGetName :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> m T.Text -- result -textMarkGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_name _obj' - checkUnexpectedReturnNULL "gtk_text_mark_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TextMarkGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetNameMethodInfo a signature where - overloadedMethod _ = textMarkGetName - --- method TextMark::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_mark_get_visible" gtk_text_mark_get_visible :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - IO CInt - - -textMarkGetVisible :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> m Bool -- result -textMarkGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextMarkGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetVisibleMethodInfo a signature where - overloadedMethod _ = textMarkGetVisible - --- method TextMark::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_text_mark_set_visible" gtk_text_mark_set_visible :: - Ptr TextMark -> -- _obj : TInterface "Gtk" "TextMark" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textMarkSetVisible :: - (MonadIO m, TextMarkK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -textMarkSetVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_mark_set_visible _obj' setting' - touchManagedPtr _obj - return () - -data TextMarkSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextMarkK a) => MethodInfo TextMarkSetVisibleMethodInfo a signature where - overloadedMethod _ = textMarkSetVisible - - diff --git a/GI/Gtk/Objects/TextMark.hs-boot b/GI/Gtk/Objects/TextMark.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextMark.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.TextMark 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 TextMark = TextMark (ForeignPtr TextMark) -instance GObject TextMark where -class GObject o => TextMarkK o -instance (GObject o, IsDescendantOf TextMark o) => TextMarkK o -data TextMarkLeftGravityPropertyInfo -data TextMarkNamePropertyInfo -data TextMarkGetBufferMethodInfo -data TextMarkGetDeletedMethodInfo -data TextMarkGetLeftGravityMethodInfo -data TextMarkGetNameMethodInfo -data TextMarkGetVisibleMethodInfo -data TextMarkSetVisibleMethodInfo diff --git a/GI/Gtk/Objects/TextTag.hs b/GI/Gtk/Objects/TextTag.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextTag.hs +++ /dev/null @@ -1,3109 +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.Gtk.Objects.TextTag - ( - --- * Exported types - TextTag(..) , - TextTagK , - toTextTag , - noTextTag , - - - -- * Methods --- ** textTagEvent - TextTagEventMethodInfo , - textTagEvent , - - --- ** textTagGetPriority - TextTagGetPriorityMethodInfo , - textTagGetPriority , - - --- ** textTagNew - textTagNew , - - --- ** textTagSetPriority - TextTagSetPriorityMethodInfo , - textTagSetPriority , - - - - - -- * Properties --- ** AccumulativeMargin - TextTagAccumulativeMarginPropertyInfo , - constructTextTagAccumulativeMargin , - getTextTagAccumulativeMargin , - setTextTagAccumulativeMargin , - textTagAccumulativeMargin , - - --- ** Background - TextTagBackgroundPropertyInfo , - clearTextTagBackground , - constructTextTagBackground , - setTextTagBackground , - textTagBackground , - - --- ** BackgroundFullHeight - TextTagBackgroundFullHeightPropertyInfo , - constructTextTagBackgroundFullHeight , - getTextTagBackgroundFullHeight , - setTextTagBackgroundFullHeight , - textTagBackgroundFullHeight , - - --- ** BackgroundFullHeightSet - TextTagBackgroundFullHeightSetPropertyInfo, - constructTextTagBackgroundFullHeightSet , - getTextTagBackgroundFullHeightSet , - setTextTagBackgroundFullHeightSet , - textTagBackgroundFullHeightSet , - - --- ** BackgroundGdk - TextTagBackgroundGdkPropertyInfo , - clearTextTagBackgroundGdk , - constructTextTagBackgroundGdk , - getTextTagBackgroundGdk , - setTextTagBackgroundGdk , - textTagBackgroundGdk , - - --- ** BackgroundRgba - TextTagBackgroundRgbaPropertyInfo , - clearTextTagBackgroundRgba , - constructTextTagBackgroundRgba , - getTextTagBackgroundRgba , - setTextTagBackgroundRgba , - textTagBackgroundRgba , - - --- ** BackgroundSet - TextTagBackgroundSetPropertyInfo , - constructTextTagBackgroundSet , - getTextTagBackgroundSet , - setTextTagBackgroundSet , - textTagBackgroundSet , - - --- ** Direction - TextTagDirectionPropertyInfo , - constructTextTagDirection , - getTextTagDirection , - setTextTagDirection , - textTagDirection , - - --- ** Editable - TextTagEditablePropertyInfo , - constructTextTagEditable , - getTextTagEditable , - setTextTagEditable , - textTagEditable , - - --- ** EditableSet - TextTagEditableSetPropertyInfo , - constructTextTagEditableSet , - getTextTagEditableSet , - setTextTagEditableSet , - textTagEditableSet , - - --- ** Fallback - TextTagFallbackPropertyInfo , - constructTextTagFallback , - getTextTagFallback , - setTextTagFallback , - textTagFallback , - - --- ** FallbackSet - TextTagFallbackSetPropertyInfo , - constructTextTagFallbackSet , - getTextTagFallbackSet , - setTextTagFallbackSet , - textTagFallbackSet , - - --- ** Family - TextTagFamilyPropertyInfo , - clearTextTagFamily , - constructTextTagFamily , - getTextTagFamily , - setTextTagFamily , - textTagFamily , - - --- ** FamilySet - TextTagFamilySetPropertyInfo , - constructTextTagFamilySet , - getTextTagFamilySet , - setTextTagFamilySet , - textTagFamilySet , - - --- ** Font - TextTagFontPropertyInfo , - clearTextTagFont , - constructTextTagFont , - getTextTagFont , - setTextTagFont , - textTagFont , - - --- ** FontDesc - TextTagFontDescPropertyInfo , - clearTextTagFontDesc , - constructTextTagFontDesc , - getTextTagFontDesc , - setTextTagFontDesc , - textTagFontDesc , - - --- ** FontFeatures - TextTagFontFeaturesPropertyInfo , - clearTextTagFontFeatures , - constructTextTagFontFeatures , - getTextTagFontFeatures , - setTextTagFontFeatures , - textTagFontFeatures , - - --- ** FontFeaturesSet - TextTagFontFeaturesSetPropertyInfo , - constructTextTagFontFeaturesSet , - getTextTagFontFeaturesSet , - setTextTagFontFeaturesSet , - textTagFontFeaturesSet , - - --- ** Foreground - TextTagForegroundPropertyInfo , - clearTextTagForeground , - constructTextTagForeground , - setTextTagForeground , - textTagForeground , - - --- ** ForegroundGdk - TextTagForegroundGdkPropertyInfo , - clearTextTagForegroundGdk , - constructTextTagForegroundGdk , - getTextTagForegroundGdk , - setTextTagForegroundGdk , - textTagForegroundGdk , - - --- ** ForegroundRgba - TextTagForegroundRgbaPropertyInfo , - clearTextTagForegroundRgba , - constructTextTagForegroundRgba , - getTextTagForegroundRgba , - setTextTagForegroundRgba , - textTagForegroundRgba , - - --- ** ForegroundSet - TextTagForegroundSetPropertyInfo , - constructTextTagForegroundSet , - getTextTagForegroundSet , - setTextTagForegroundSet , - textTagForegroundSet , - - --- ** Indent - TextTagIndentPropertyInfo , - constructTextTagIndent , - getTextTagIndent , - setTextTagIndent , - textTagIndent , - - --- ** IndentSet - TextTagIndentSetPropertyInfo , - constructTextTagIndentSet , - getTextTagIndentSet , - setTextTagIndentSet , - textTagIndentSet , - - --- ** Invisible - TextTagInvisiblePropertyInfo , - constructTextTagInvisible , - getTextTagInvisible , - setTextTagInvisible , - textTagInvisible , - - --- ** InvisibleSet - TextTagInvisibleSetPropertyInfo , - constructTextTagInvisibleSet , - getTextTagInvisibleSet , - setTextTagInvisibleSet , - textTagInvisibleSet , - - --- ** Justification - TextTagJustificationPropertyInfo , - constructTextTagJustification , - getTextTagJustification , - setTextTagJustification , - textTagJustification , - - --- ** JustificationSet - TextTagJustificationSetPropertyInfo , - constructTextTagJustificationSet , - getTextTagJustificationSet , - setTextTagJustificationSet , - textTagJustificationSet , - - --- ** Language - TextTagLanguagePropertyInfo , - clearTextTagLanguage , - constructTextTagLanguage , - getTextTagLanguage , - setTextTagLanguage , - textTagLanguage , - - --- ** LanguageSet - TextTagLanguageSetPropertyInfo , - constructTextTagLanguageSet , - getTextTagLanguageSet , - setTextTagLanguageSet , - textTagLanguageSet , - - --- ** LeftMargin - TextTagLeftMarginPropertyInfo , - constructTextTagLeftMargin , - getTextTagLeftMargin , - setTextTagLeftMargin , - textTagLeftMargin , - - --- ** LeftMarginSet - TextTagLeftMarginSetPropertyInfo , - constructTextTagLeftMarginSet , - getTextTagLeftMarginSet , - setTextTagLeftMarginSet , - textTagLeftMarginSet , - - --- ** LetterSpacing - TextTagLetterSpacingPropertyInfo , - constructTextTagLetterSpacing , - getTextTagLetterSpacing , - setTextTagLetterSpacing , - textTagLetterSpacing , - - --- ** LetterSpacingSet - TextTagLetterSpacingSetPropertyInfo , - constructTextTagLetterSpacingSet , - getTextTagLetterSpacingSet , - setTextTagLetterSpacingSet , - textTagLetterSpacingSet , - - --- ** Name - TextTagNamePropertyInfo , - constructTextTagName , - getTextTagName , - textTagName , - - --- ** ParagraphBackground - TextTagParagraphBackgroundPropertyInfo , - clearTextTagParagraphBackground , - constructTextTagParagraphBackground , - setTextTagParagraphBackground , - textTagParagraphBackground , - - --- ** ParagraphBackgroundGdk - TextTagParagraphBackgroundGdkPropertyInfo, - clearTextTagParagraphBackgroundGdk , - constructTextTagParagraphBackgroundGdk , - getTextTagParagraphBackgroundGdk , - setTextTagParagraphBackgroundGdk , - textTagParagraphBackgroundGdk , - - --- ** ParagraphBackgroundRgba - TextTagParagraphBackgroundRgbaPropertyInfo, - clearTextTagParagraphBackgroundRgba , - constructTextTagParagraphBackgroundRgba , - getTextTagParagraphBackgroundRgba , - setTextTagParagraphBackgroundRgba , - textTagParagraphBackgroundRgba , - - --- ** ParagraphBackgroundSet - TextTagParagraphBackgroundSetPropertyInfo, - constructTextTagParagraphBackgroundSet , - getTextTagParagraphBackgroundSet , - setTextTagParagraphBackgroundSet , - textTagParagraphBackgroundSet , - - --- ** PixelsAboveLines - TextTagPixelsAboveLinesPropertyInfo , - constructTextTagPixelsAboveLines , - getTextTagPixelsAboveLines , - setTextTagPixelsAboveLines , - textTagPixelsAboveLines , - - --- ** PixelsAboveLinesSet - TextTagPixelsAboveLinesSetPropertyInfo , - constructTextTagPixelsAboveLinesSet , - getTextTagPixelsAboveLinesSet , - setTextTagPixelsAboveLinesSet , - textTagPixelsAboveLinesSet , - - --- ** PixelsBelowLines - TextTagPixelsBelowLinesPropertyInfo , - constructTextTagPixelsBelowLines , - getTextTagPixelsBelowLines , - setTextTagPixelsBelowLines , - textTagPixelsBelowLines , - - --- ** PixelsBelowLinesSet - TextTagPixelsBelowLinesSetPropertyInfo , - constructTextTagPixelsBelowLinesSet , - getTextTagPixelsBelowLinesSet , - setTextTagPixelsBelowLinesSet , - textTagPixelsBelowLinesSet , - - --- ** PixelsInsideWrap - TextTagPixelsInsideWrapPropertyInfo , - constructTextTagPixelsInsideWrap , - getTextTagPixelsInsideWrap , - setTextTagPixelsInsideWrap , - textTagPixelsInsideWrap , - - --- ** PixelsInsideWrapSet - TextTagPixelsInsideWrapSetPropertyInfo , - constructTextTagPixelsInsideWrapSet , - getTextTagPixelsInsideWrapSet , - setTextTagPixelsInsideWrapSet , - textTagPixelsInsideWrapSet , - - --- ** RightMargin - TextTagRightMarginPropertyInfo , - constructTextTagRightMargin , - getTextTagRightMargin , - setTextTagRightMargin , - textTagRightMargin , - - --- ** RightMarginSet - TextTagRightMarginSetPropertyInfo , - constructTextTagRightMarginSet , - getTextTagRightMarginSet , - setTextTagRightMarginSet , - textTagRightMarginSet , - - --- ** Rise - TextTagRisePropertyInfo , - constructTextTagRise , - getTextTagRise , - setTextTagRise , - textTagRise , - - --- ** RiseSet - TextTagRiseSetPropertyInfo , - constructTextTagRiseSet , - getTextTagRiseSet , - setTextTagRiseSet , - textTagRiseSet , - - --- ** Scale - TextTagScalePropertyInfo , - constructTextTagScale , - getTextTagScale , - setTextTagScale , - textTagScale , - - --- ** ScaleSet - TextTagScaleSetPropertyInfo , - constructTextTagScaleSet , - getTextTagScaleSet , - setTextTagScaleSet , - textTagScaleSet , - - --- ** Size - TextTagSizePropertyInfo , - constructTextTagSize , - getTextTagSize , - setTextTagSize , - textTagSize , - - --- ** SizePoints - TextTagSizePointsPropertyInfo , - constructTextTagSizePoints , - getTextTagSizePoints , - setTextTagSizePoints , - textTagSizePoints , - - --- ** SizeSet - TextTagSizeSetPropertyInfo , - constructTextTagSizeSet , - getTextTagSizeSet , - setTextTagSizeSet , - textTagSizeSet , - - --- ** Stretch - TextTagStretchPropertyInfo , - constructTextTagStretch , - getTextTagStretch , - setTextTagStretch , - textTagStretch , - - --- ** StretchSet - TextTagStretchSetPropertyInfo , - constructTextTagStretchSet , - getTextTagStretchSet , - setTextTagStretchSet , - textTagStretchSet , - - --- ** Strikethrough - TextTagStrikethroughPropertyInfo , - constructTextTagStrikethrough , - getTextTagStrikethrough , - setTextTagStrikethrough , - textTagStrikethrough , - - --- ** StrikethroughRgba - TextTagStrikethroughRgbaPropertyInfo , - clearTextTagStrikethroughRgba , - constructTextTagStrikethroughRgba , - getTextTagStrikethroughRgba , - setTextTagStrikethroughRgba , - textTagStrikethroughRgba , - - --- ** StrikethroughRgbaSet - TextTagStrikethroughRgbaSetPropertyInfo , - constructTextTagStrikethroughRgbaSet , - getTextTagStrikethroughRgbaSet , - setTextTagStrikethroughRgbaSet , - textTagStrikethroughRgbaSet , - - --- ** StrikethroughSet - TextTagStrikethroughSetPropertyInfo , - constructTextTagStrikethroughSet , - getTextTagStrikethroughSet , - setTextTagStrikethroughSet , - textTagStrikethroughSet , - - --- ** Style - TextTagStylePropertyInfo , - constructTextTagStyle , - getTextTagStyle , - setTextTagStyle , - textTagStyle , - - --- ** StyleSet - TextTagStyleSetPropertyInfo , - constructTextTagStyleSet , - getTextTagStyleSet , - setTextTagStyleSet , - textTagStyleSet , - - --- ** Tabs - TextTagTabsPropertyInfo , - clearTextTagTabs , - constructTextTagTabs , - getTextTagTabs , - setTextTagTabs , - textTagTabs , - - --- ** TabsSet - TextTagTabsSetPropertyInfo , - constructTextTagTabsSet , - getTextTagTabsSet , - setTextTagTabsSet , - textTagTabsSet , - - --- ** Underline - TextTagUnderlinePropertyInfo , - constructTextTagUnderline , - getTextTagUnderline , - setTextTagUnderline , - textTagUnderline , - - --- ** UnderlineRgba - TextTagUnderlineRgbaPropertyInfo , - clearTextTagUnderlineRgba , - constructTextTagUnderlineRgba , - getTextTagUnderlineRgba , - setTextTagUnderlineRgba , - textTagUnderlineRgba , - - --- ** UnderlineRgbaSet - TextTagUnderlineRgbaSetPropertyInfo , - constructTextTagUnderlineRgbaSet , - getTextTagUnderlineRgbaSet , - setTextTagUnderlineRgbaSet , - textTagUnderlineRgbaSet , - - --- ** UnderlineSet - TextTagUnderlineSetPropertyInfo , - constructTextTagUnderlineSet , - getTextTagUnderlineSet , - setTextTagUnderlineSet , - textTagUnderlineSet , - - --- ** Variant - TextTagVariantPropertyInfo , - constructTextTagVariant , - getTextTagVariant , - setTextTagVariant , - textTagVariant , - - --- ** VariantSet - TextTagVariantSetPropertyInfo , - constructTextTagVariantSet , - getTextTagVariantSet , - setTextTagVariantSet , - textTagVariantSet , - - --- ** Weight - TextTagWeightPropertyInfo , - constructTextTagWeight , - getTextTagWeight , - setTextTagWeight , - textTagWeight , - - --- ** WeightSet - TextTagWeightSetPropertyInfo , - constructTextTagWeightSet , - getTextTagWeightSet , - setTextTagWeightSet , - textTagWeightSet , - - --- ** WrapMode - TextTagWrapModePropertyInfo , - constructTextTagWrapMode , - getTextTagWrapMode , - setTextTagWrapMode , - textTagWrapMode , - - --- ** WrapModeSet - TextTagWrapModeSetPropertyInfo , - constructTextTagWrapModeSet , - getTextTagWrapModeSet , - setTextTagWrapModeSet , - textTagWrapModeSet , - - - - - -- * Signals --- ** Event - TextTagEventCallback , - TextTagEventCallbackC , - TextTagEventSignalInfo , - afterTextTagEvent , - mkTextTagEventCallback , - noTextTagEventCallback , - onTextTagEvent , - textTagEventCallbackWrapper , - textTagEventClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype TextTag = TextTag (ForeignPtr TextTag) -foreign import ccall "gtk_text_tag_get_type" - c_gtk_text_tag_get_type :: IO GType - -type instance ParentTypes TextTag = TextTagParentTypes -type TextTagParentTypes = '[GObject.Object] - -instance GObject TextTag where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_tag_get_type - - -class GObject o => TextTagK o -instance (GObject o, IsDescendantOf TextTag o) => TextTagK o - -toTextTag :: TextTagK o => o -> IO TextTag -toTextTag = unsafeCastTo TextTag - -noTextTag :: Maybe TextTag -noTextTag = Nothing - -type family ResolveTextTagMethod (t :: Symbol) (o :: *) :: * where - ResolveTextTagMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextTagMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextTagMethod "event" o = TextTagEventMethodInfo - ResolveTextTagMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextTagMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextTagMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextTagMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextTagMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextTagMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextTagMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextTagMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextTagMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextTagMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextTagMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextTagMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextTagMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextTagMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextTagMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextTagMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextTagMethod "getPriority" o = TextTagGetPriorityMethodInfo - ResolveTextTagMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextTagMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextTagMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextTagMethod "setPriority" o = TextTagSetPriorityMethodInfo - ResolveTextTagMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextTagMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextTagMethod t TextTag, MethodInfo info TextTag p) => IsLabelProxy t (TextTag -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextTagMethod t TextTag, MethodInfo info TextTag p) => IsLabel t (TextTag -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TextTag::event -type TextTagEventCallback = - GObject.Object -> - Gdk.Event -> - TextIter -> - IO Bool - -noTextTagEventCallback :: Maybe TextTagEventCallback -noTextTagEventCallback = Nothing - -type TextTagEventCallbackC = - Ptr () -> -- object - Ptr GObject.Object -> - Ptr Gdk.Event -> - Ptr TextIter -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTextTagEventCallback :: TextTagEventCallbackC -> IO (FunPtr TextTagEventCallbackC) - -textTagEventClosure :: TextTagEventCallback -> IO Closure -textTagEventClosure cb = newCClosure =<< mkTextTagEventCallback wrapped - where wrapped = textTagEventCallbackWrapper cb - -textTagEventCallbackWrapper :: - TextTagEventCallback -> - Ptr () -> - Ptr GObject.Object -> - Ptr Gdk.Event -> - Ptr TextIter -> - Ptr () -> - IO CInt -textTagEventCallbackWrapper _cb _ object event iter _ = do - object' <- (newObject GObject.Object) object - event' <- (newBoxed Gdk.Event) event - iter' <- (newBoxed TextIter) iter - result <- _cb object' event' iter' - let result' = (fromIntegral . fromEnum) result - return result' - -onTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId -onTextTagEvent obj cb = liftIO $ connectTextTagEvent obj cb SignalConnectBefore -afterTextTagEvent :: (GObject a, MonadIO m) => a -> TextTagEventCallback -> m SignalHandlerId -afterTextTagEvent obj cb = connectTextTagEvent obj cb SignalConnectAfter - -connectTextTagEvent :: (GObject a, MonadIO m) => - a -> TextTagEventCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTagEvent obj cb after = liftIO $ do - cb' <- mkTextTagEventCallback (textTagEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- VVV Prop "accumulative-margin" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagAccumulativeMargin :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagAccumulativeMargin obj = liftIO $ getObjectPropertyBool obj "accumulative-margin" - -setTextTagAccumulativeMargin :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagAccumulativeMargin obj val = liftIO $ setObjectPropertyBool obj "accumulative-margin" val - -constructTextTagAccumulativeMargin :: Bool -> IO ([Char], GValue) -constructTextTagAccumulativeMargin val = constructObjectPropertyBool "accumulative-margin" val - -data TextTagAccumulativeMarginPropertyInfo -instance AttrInfo TextTagAccumulativeMarginPropertyInfo where - type AttrAllowedOps TextTagAccumulativeMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagAccumulativeMarginPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagAccumulativeMarginPropertyInfo = TextTagK - type AttrGetType TextTagAccumulativeMarginPropertyInfo = Bool - type AttrLabel TextTagAccumulativeMarginPropertyInfo = "accumulative-margin" - attrGet _ = getTextTagAccumulativeMargin - attrSet _ = setTextTagAccumulativeMargin - attrConstruct _ = constructTextTagAccumulativeMargin - attrClear _ = undefined - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setTextTagBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) - -constructTextTagBackground :: T.Text -> IO ([Char], GValue) -constructTextTagBackground val = constructObjectPropertyString "background" (Just val) - -clearTextTagBackground :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) - -data TextTagBackgroundPropertyInfo -instance AttrInfo TextTagBackgroundPropertyInfo where - type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundPropertyInfo = () - type AttrLabel TextTagBackgroundPropertyInfo = "background" - attrGet _ = undefined - attrSet _ = setTextTagBackground - attrConstruct _ = constructTextTagBackground - attrClear _ = clearTextTagBackground - --- VVV Prop "background-full-height" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagBackgroundFullHeight :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagBackgroundFullHeight obj = liftIO $ getObjectPropertyBool obj "background-full-height" - -setTextTagBackgroundFullHeight :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagBackgroundFullHeight obj val = liftIO $ setObjectPropertyBool obj "background-full-height" val - -constructTextTagBackgroundFullHeight :: Bool -> IO ([Char], GValue) -constructTextTagBackgroundFullHeight val = constructObjectPropertyBool "background-full-height" val - -data TextTagBackgroundFullHeightPropertyInfo -instance AttrInfo TextTagBackgroundFullHeightPropertyInfo where - type AttrAllowedOps TextTagBackgroundFullHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagBackgroundFullHeightPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagBackgroundFullHeightPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundFullHeightPropertyInfo = Bool - type AttrLabel TextTagBackgroundFullHeightPropertyInfo = "background-full-height" - attrGet _ = getTextTagBackgroundFullHeight - attrSet _ = setTextTagBackgroundFullHeight - attrConstruct _ = constructTextTagBackgroundFullHeight - attrClear _ = undefined - --- VVV Prop "background-full-height-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagBackgroundFullHeightSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagBackgroundFullHeightSet obj = liftIO $ getObjectPropertyBool obj "background-full-height-set" - -setTextTagBackgroundFullHeightSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagBackgroundFullHeightSet obj val = liftIO $ setObjectPropertyBool obj "background-full-height-set" val - -constructTextTagBackgroundFullHeightSet :: Bool -> IO ([Char], GValue) -constructTextTagBackgroundFullHeightSet val = constructObjectPropertyBool "background-full-height-set" val - -data TextTagBackgroundFullHeightSetPropertyInfo -instance AttrInfo TextTagBackgroundFullHeightSetPropertyInfo where - type AttrAllowedOps TextTagBackgroundFullHeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundFullHeightSetPropertyInfo = Bool - type AttrLabel TextTagBackgroundFullHeightSetPropertyInfo = "background-full-height-set" - attrGet _ = getTextTagBackgroundFullHeightSet - attrSet _ = setTextTagBackgroundFullHeightSet - attrConstruct _ = constructTextTagBackgroundFullHeightSet - attrClear _ = undefined - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) -getTextTagBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color - -setTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) - -constructTextTagBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) - -clearTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) - -data TextTagBackgroundGdkPropertyInfo -instance AttrInfo TextTagBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel TextTagBackgroundGdkPropertyInfo = "background-gdk" - attrGet _ = getTextTagBackgroundGdk - attrSet _ = setTextTagBackgroundGdk - attrConstruct _ = constructTextTagBackgroundGdk - attrClear _ = clearTextTagBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) -getTextTagBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA - -setTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) - -constructTextTagBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) - -clearTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA) - -data TextTagBackgroundRgbaPropertyInfo -instance AttrInfo TextTagBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel TextTagBackgroundRgbaPropertyInfo = "background-rgba" - attrGet _ = getTextTagBackgroundRgba - attrSet _ = setTextTagBackgroundRgba - attrConstruct _ = constructTextTagBackgroundRgba - attrClear _ = clearTextTagBackgroundRgba - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" - -setTextTagBackgroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "background-set" val - -constructTextTagBackgroundSet :: Bool -> IO ([Char], GValue) -constructTextTagBackgroundSet val = constructObjectPropertyBool "background-set" val - -data TextTagBackgroundSetPropertyInfo -instance AttrInfo TextTagBackgroundSetPropertyInfo where - type AttrAllowedOps TextTagBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagBackgroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagBackgroundSetPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundSetPropertyInfo = Bool - type AttrLabel TextTagBackgroundSetPropertyInfo = "background-set" - attrGet _ = getTextTagBackgroundSet - attrSet _ = setTextTagBackgroundSet - attrConstruct _ = constructTextTagBackgroundSet - attrClear _ = undefined - --- VVV Prop "direction" - -- Type: TInterface "Gtk" "TextDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagDirection :: (MonadIO m, TextTagK o) => o -> m TextDirection -getTextTagDirection obj = liftIO $ getObjectPropertyEnum obj "direction" - -setTextTagDirection :: (MonadIO m, TextTagK o) => o -> TextDirection -> m () -setTextTagDirection obj val = liftIO $ setObjectPropertyEnum obj "direction" val - -constructTextTagDirection :: TextDirection -> IO ([Char], GValue) -constructTextTagDirection val = constructObjectPropertyEnum "direction" val - -data TextTagDirectionPropertyInfo -instance AttrInfo TextTagDirectionPropertyInfo where - type AttrAllowedOps TextTagDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagDirectionPropertyInfo = (~) TextDirection - type AttrBaseTypeConstraint TextTagDirectionPropertyInfo = TextTagK - type AttrGetType TextTagDirectionPropertyInfo = TextDirection - type AttrLabel TextTagDirectionPropertyInfo = "direction" - attrGet _ = getTextTagDirection - attrSet _ = setTextTagDirection - attrConstruct _ = constructTextTagDirection - attrClear _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagEditable :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setTextTagEditable :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructTextTagEditable :: Bool -> IO ([Char], GValue) -constructTextTagEditable val = constructObjectPropertyBool "editable" val - -data TextTagEditablePropertyInfo -instance AttrInfo TextTagEditablePropertyInfo where - type AttrAllowedOps TextTagEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagEditablePropertyInfo = TextTagK - type AttrGetType TextTagEditablePropertyInfo = Bool - type AttrLabel TextTagEditablePropertyInfo = "editable" - attrGet _ = getTextTagEditable - attrSet _ = setTextTagEditable - attrConstruct _ = constructTextTagEditable - attrClear _ = undefined - --- VVV Prop "editable-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagEditableSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set" - -setTextTagEditableSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagEditableSet obj val = liftIO $ setObjectPropertyBool obj "editable-set" val - -constructTextTagEditableSet :: Bool -> IO ([Char], GValue) -constructTextTagEditableSet val = constructObjectPropertyBool "editable-set" val - -data TextTagEditableSetPropertyInfo -instance AttrInfo TextTagEditableSetPropertyInfo where - type AttrAllowedOps TextTagEditableSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagEditableSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagEditableSetPropertyInfo = TextTagK - type AttrGetType TextTagEditableSetPropertyInfo = Bool - type AttrLabel TextTagEditableSetPropertyInfo = "editable-set" - attrGet _ = getTextTagEditableSet - attrSet _ = setTextTagEditableSet - attrConstruct _ = constructTextTagEditableSet - attrClear _ = undefined - --- VVV Prop "fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFallback :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagFallback obj = liftIO $ getObjectPropertyBool obj "fallback" - -setTextTagFallback :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagFallback obj val = liftIO $ setObjectPropertyBool obj "fallback" val - -constructTextTagFallback :: Bool -> IO ([Char], GValue) -constructTextTagFallback val = constructObjectPropertyBool "fallback" val - -data TextTagFallbackPropertyInfo -instance AttrInfo TextTagFallbackPropertyInfo where - type AttrAllowedOps TextTagFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFallbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagFallbackPropertyInfo = TextTagK - type AttrGetType TextTagFallbackPropertyInfo = Bool - type AttrLabel TextTagFallbackPropertyInfo = "fallback" - attrGet _ = getTextTagFallback - attrSet _ = setTextTagFallback - attrConstruct _ = constructTextTagFallback - attrClear _ = undefined - --- VVV Prop "fallback-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFallbackSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagFallbackSet obj = liftIO $ getObjectPropertyBool obj "fallback-set" - -setTextTagFallbackSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagFallbackSet obj val = liftIO $ setObjectPropertyBool obj "fallback-set" val - -constructTextTagFallbackSet :: Bool -> IO ([Char], GValue) -constructTextTagFallbackSet val = constructObjectPropertyBool "fallback-set" val - -data TextTagFallbackSetPropertyInfo -instance AttrInfo TextTagFallbackSetPropertyInfo where - type AttrAllowedOps TextTagFallbackSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFallbackSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagFallbackSetPropertyInfo = TextTagK - type AttrGetType TextTagFallbackSetPropertyInfo = Bool - type AttrLabel TextTagFallbackSetPropertyInfo = "fallback-set" - attrGet _ = getTextTagFallbackSet - attrSet _ = setTextTagFallbackSet - attrConstruct _ = constructTextTagFallbackSet - attrClear _ = undefined - --- VVV Prop "family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) -getTextTagFamily obj = liftIO $ getObjectPropertyString obj "family" - -setTextTagFamily :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" (Just val) - -constructTextTagFamily :: T.Text -> IO ([Char], GValue) -constructTextTagFamily val = constructObjectPropertyString "family" (Just val) - -clearTextTagFamily :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagFamily obj = liftIO $ setObjectPropertyString obj "family" (Nothing :: Maybe T.Text) - -data TextTagFamilyPropertyInfo -instance AttrInfo TextTagFamilyPropertyInfo where - type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK - type AttrGetType TextTagFamilyPropertyInfo = (Maybe T.Text) - type AttrLabel TextTagFamilyPropertyInfo = "family" - attrGet _ = getTextTagFamily - attrSet _ = setTextTagFamily - attrConstruct _ = constructTextTagFamily - attrClear _ = clearTextTagFamily - --- VVV Prop "family-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFamilySet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set" - -setTextTagFamilySet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagFamilySet obj val = liftIO $ setObjectPropertyBool obj "family-set" val - -constructTextTagFamilySet :: Bool -> IO ([Char], GValue) -constructTextTagFamilySet val = constructObjectPropertyBool "family-set" val - -data TextTagFamilySetPropertyInfo -instance AttrInfo TextTagFamilySetPropertyInfo where - type AttrAllowedOps TextTagFamilySetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFamilySetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagFamilySetPropertyInfo = TextTagK - type AttrGetType TextTagFamilySetPropertyInfo = Bool - type AttrLabel TextTagFamilySetPropertyInfo = "family-set" - attrGet _ = getTextTagFamilySet - attrSet _ = setTextTagFamilySet - attrConstruct _ = constructTextTagFamilySet - attrClear _ = undefined - --- VVV Prop "font" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFont :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) -getTextTagFont obj = liftIO $ getObjectPropertyString obj "font" - -setTextTagFont :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) - -constructTextTagFont :: T.Text -> IO ([Char], GValue) -constructTextTagFont val = constructObjectPropertyString "font" (Just val) - -clearTextTagFont :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagFont obj = liftIO $ setObjectPropertyString obj "font" (Nothing :: Maybe T.Text) - -data TextTagFontPropertyInfo -instance AttrInfo TextTagFontPropertyInfo where - type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK - type AttrGetType TextTagFontPropertyInfo = (Maybe T.Text) - type AttrLabel TextTagFontPropertyInfo = "font" - attrGet _ = getTextTagFont - attrSet _ = setTextTagFont - attrConstruct _ = constructTextTagFont - attrClear _ = clearTextTagFont - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m (Maybe Pango.FontDescription) -getTextTagFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription - -setTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> Pango.FontDescription -> m () -setTextTagFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) - -constructTextTagFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) - -clearTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagFontDesc obj = liftIO $ setObjectPropertyBoxed obj "font-desc" (Nothing :: Maybe Pango.FontDescription) - -data TextTagFontDescPropertyInfo -instance AttrInfo TextTagFontDescPropertyInfo where - type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription - type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK - type AttrGetType TextTagFontDescPropertyInfo = (Maybe Pango.FontDescription) - type AttrLabel TextTagFontDescPropertyInfo = "font-desc" - attrGet _ = getTextTagFontDesc - attrSet _ = setTextTagFontDesc - attrConstruct _ = constructTextTagFontDesc - attrClear _ = clearTextTagFontDesc - --- VVV Prop "font-features" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) -getTextTagFontFeatures obj = liftIO $ getObjectPropertyString obj "font-features" - -setTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFontFeatures obj val = liftIO $ setObjectPropertyString obj "font-features" (Just val) - -constructTextTagFontFeatures :: T.Text -> IO ([Char], GValue) -constructTextTagFontFeatures val = constructObjectPropertyString "font-features" (Just val) - -clearTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagFontFeatures obj = liftIO $ setObjectPropertyString obj "font-features" (Nothing :: Maybe T.Text) - -data TextTagFontFeaturesPropertyInfo -instance AttrInfo TextTagFontFeaturesPropertyInfo where - type AttrAllowedOps TextTagFontFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagFontFeaturesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagFontFeaturesPropertyInfo = TextTagK - type AttrGetType TextTagFontFeaturesPropertyInfo = (Maybe T.Text) - type AttrLabel TextTagFontFeaturesPropertyInfo = "font-features" - attrGet _ = getTextTagFontFeatures - attrSet _ = setTextTagFontFeatures - attrConstruct _ = constructTextTagFontFeatures - attrClear _ = clearTextTagFontFeatures - --- VVV Prop "font-features-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagFontFeaturesSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagFontFeaturesSet obj = liftIO $ getObjectPropertyBool obj "font-features-set" - -setTextTagFontFeaturesSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagFontFeaturesSet obj val = liftIO $ setObjectPropertyBool obj "font-features-set" val - -constructTextTagFontFeaturesSet :: Bool -> IO ([Char], GValue) -constructTextTagFontFeaturesSet val = constructObjectPropertyBool "font-features-set" val - -data TextTagFontFeaturesSetPropertyInfo -instance AttrInfo TextTagFontFeaturesSetPropertyInfo where - type AttrAllowedOps TextTagFontFeaturesSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFontFeaturesSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagFontFeaturesSetPropertyInfo = TextTagK - type AttrGetType TextTagFontFeaturesSetPropertyInfo = Bool - type AttrLabel TextTagFontFeaturesSetPropertyInfo = "font-features-set" - attrGet _ = getTextTagFontFeaturesSet - attrSet _ = setTextTagFontFeaturesSet - attrConstruct _ = constructTextTagFontFeaturesSet - attrClear _ = undefined - --- VVV Prop "foreground" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setTextTagForeground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" (Just val) - -constructTextTagForeground :: T.Text -> IO ([Char], GValue) -constructTextTagForeground val = constructObjectPropertyString "foreground" (Just val) - -clearTextTagForeground :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagForeground obj = liftIO $ setObjectPropertyString obj "foreground" (Nothing :: Maybe T.Text) - -data TextTagForegroundPropertyInfo -instance AttrInfo TextTagForegroundPropertyInfo where - type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK - type AttrGetType TextTagForegroundPropertyInfo = () - type AttrLabel TextTagForegroundPropertyInfo = "foreground" - attrGet _ = undefined - attrSet _ = setTextTagForeground - attrConstruct _ = constructTextTagForeground - attrClear _ = clearTextTagForeground - --- VVV Prop "foreground-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) -getTextTagForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color - -setTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Just val) - -constructTextTagForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" (Just val) - -clearTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagForegroundGdk obj = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Nothing :: Maybe Gdk.Color) - -data TextTagForegroundGdkPropertyInfo -instance AttrInfo TextTagForegroundGdkPropertyInfo where - type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagForegroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel TextTagForegroundGdkPropertyInfo = "foreground-gdk" - attrGet _ = getTextTagForegroundGdk - attrSet _ = setTextTagForegroundGdk - attrConstruct _ = constructTextTagForegroundGdk - attrClear _ = clearTextTagForegroundGdk - --- VVV Prop "foreground-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) -getTextTagForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA - -setTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Just val) - -constructTextTagForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" (Just val) - -clearTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagForegroundRgba obj = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Nothing :: Maybe Gdk.RGBA) - -data TextTagForegroundRgbaPropertyInfo -instance AttrInfo TextTagForegroundRgbaPropertyInfo where - type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel TextTagForegroundRgbaPropertyInfo = "foreground-rgba" - attrGet _ = getTextTagForegroundRgba - attrSet _ = setTextTagForegroundRgba - attrConstruct _ = constructTextTagForegroundRgba - attrClear _ = clearTextTagForegroundRgba - --- VVV Prop "foreground-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagForegroundSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set" - -setTextTagForegroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagForegroundSet obj val = liftIO $ setObjectPropertyBool obj "foreground-set" val - -constructTextTagForegroundSet :: Bool -> IO ([Char], GValue) -constructTextTagForegroundSet val = constructObjectPropertyBool "foreground-set" val - -data TextTagForegroundSetPropertyInfo -instance AttrInfo TextTagForegroundSetPropertyInfo where - type AttrAllowedOps TextTagForegroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagForegroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagForegroundSetPropertyInfo = TextTagK - type AttrGetType TextTagForegroundSetPropertyInfo = Bool - type AttrLabel TextTagForegroundSetPropertyInfo = "foreground-set" - attrGet _ = getTextTagForegroundSet - attrSet _ = setTextTagForegroundSet - attrConstruct _ = constructTextTagForegroundSet - attrClear _ = undefined - --- VVV Prop "indent" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagIndent :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagIndent obj = liftIO $ getObjectPropertyInt32 obj "indent" - -setTextTagIndent :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagIndent obj val = liftIO $ setObjectPropertyInt32 obj "indent" val - -constructTextTagIndent :: Int32 -> IO ([Char], GValue) -constructTextTagIndent val = constructObjectPropertyInt32 "indent" val - -data TextTagIndentPropertyInfo -instance AttrInfo TextTagIndentPropertyInfo where - type AttrAllowedOps TextTagIndentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagIndentPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagIndentPropertyInfo = TextTagK - type AttrGetType TextTagIndentPropertyInfo = Int32 - type AttrLabel TextTagIndentPropertyInfo = "indent" - attrGet _ = getTextTagIndent - attrSet _ = setTextTagIndent - attrConstruct _ = constructTextTagIndent - attrClear _ = undefined - --- VVV Prop "indent-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagIndentSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagIndentSet obj = liftIO $ getObjectPropertyBool obj "indent-set" - -setTextTagIndentSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagIndentSet obj val = liftIO $ setObjectPropertyBool obj "indent-set" val - -constructTextTagIndentSet :: Bool -> IO ([Char], GValue) -constructTextTagIndentSet val = constructObjectPropertyBool "indent-set" val - -data TextTagIndentSetPropertyInfo -instance AttrInfo TextTagIndentSetPropertyInfo where - type AttrAllowedOps TextTagIndentSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagIndentSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagIndentSetPropertyInfo = TextTagK - type AttrGetType TextTagIndentSetPropertyInfo = Bool - type AttrLabel TextTagIndentSetPropertyInfo = "indent-set" - attrGet _ = getTextTagIndentSet - attrSet _ = setTextTagIndentSet - attrConstruct _ = constructTextTagIndentSet - attrClear _ = undefined - --- VVV Prop "invisible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagInvisible :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagInvisible obj = liftIO $ getObjectPropertyBool obj "invisible" - -setTextTagInvisible :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagInvisible obj val = liftIO $ setObjectPropertyBool obj "invisible" val - -constructTextTagInvisible :: Bool -> IO ([Char], GValue) -constructTextTagInvisible val = constructObjectPropertyBool "invisible" val - -data TextTagInvisiblePropertyInfo -instance AttrInfo TextTagInvisiblePropertyInfo where - type AttrAllowedOps TextTagInvisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagInvisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagInvisiblePropertyInfo = TextTagK - type AttrGetType TextTagInvisiblePropertyInfo = Bool - type AttrLabel TextTagInvisiblePropertyInfo = "invisible" - attrGet _ = getTextTagInvisible - attrSet _ = setTextTagInvisible - attrConstruct _ = constructTextTagInvisible - attrClear _ = undefined - --- VVV Prop "invisible-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagInvisibleSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagInvisibleSet obj = liftIO $ getObjectPropertyBool obj "invisible-set" - -setTextTagInvisibleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagInvisibleSet obj val = liftIO $ setObjectPropertyBool obj "invisible-set" val - -constructTextTagInvisibleSet :: Bool -> IO ([Char], GValue) -constructTextTagInvisibleSet val = constructObjectPropertyBool "invisible-set" val - -data TextTagInvisibleSetPropertyInfo -instance AttrInfo TextTagInvisibleSetPropertyInfo where - type AttrAllowedOps TextTagInvisibleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagInvisibleSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagInvisibleSetPropertyInfo = TextTagK - type AttrGetType TextTagInvisibleSetPropertyInfo = Bool - type AttrLabel TextTagInvisibleSetPropertyInfo = "invisible-set" - attrGet _ = getTextTagInvisibleSet - attrSet _ = setTextTagInvisibleSet - attrConstruct _ = constructTextTagInvisibleSet - attrClear _ = undefined - --- VVV Prop "justification" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagJustification :: (MonadIO m, TextTagK o) => o -> m Justification -getTextTagJustification obj = liftIO $ getObjectPropertyEnum obj "justification" - -setTextTagJustification :: (MonadIO m, TextTagK o) => o -> Justification -> m () -setTextTagJustification obj val = liftIO $ setObjectPropertyEnum obj "justification" val - -constructTextTagJustification :: Justification -> IO ([Char], GValue) -constructTextTagJustification val = constructObjectPropertyEnum "justification" val - -data TextTagJustificationPropertyInfo -instance AttrInfo TextTagJustificationPropertyInfo where - type AttrAllowedOps TextTagJustificationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagJustificationPropertyInfo = (~) Justification - type AttrBaseTypeConstraint TextTagJustificationPropertyInfo = TextTagK - type AttrGetType TextTagJustificationPropertyInfo = Justification - type AttrLabel TextTagJustificationPropertyInfo = "justification" - attrGet _ = getTextTagJustification - attrSet _ = setTextTagJustification - attrConstruct _ = constructTextTagJustification - attrClear _ = undefined - --- VVV Prop "justification-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagJustificationSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagJustificationSet obj = liftIO $ getObjectPropertyBool obj "justification-set" - -setTextTagJustificationSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagJustificationSet obj val = liftIO $ setObjectPropertyBool obj "justification-set" val - -constructTextTagJustificationSet :: Bool -> IO ([Char], GValue) -constructTextTagJustificationSet val = constructObjectPropertyBool "justification-set" val - -data TextTagJustificationSetPropertyInfo -instance AttrInfo TextTagJustificationSetPropertyInfo where - type AttrAllowedOps TextTagJustificationSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagJustificationSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagJustificationSetPropertyInfo = TextTagK - type AttrGetType TextTagJustificationSetPropertyInfo = Bool - type AttrLabel TextTagJustificationSetPropertyInfo = "justification-set" - attrGet _ = getTextTagJustificationSet - attrSet _ = setTextTagJustificationSet - attrConstruct _ = constructTextTagJustificationSet - attrClear _ = undefined - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) -getTextTagLanguage obj = liftIO $ getObjectPropertyString obj "language" - -setTextTagLanguage :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" (Just val) - -constructTextTagLanguage :: T.Text -> IO ([Char], GValue) -constructTextTagLanguage val = constructObjectPropertyString "language" (Just val) - -clearTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagLanguage obj = liftIO $ setObjectPropertyString obj "language" (Nothing :: Maybe T.Text) - -data TextTagLanguagePropertyInfo -instance AttrInfo TextTagLanguagePropertyInfo where - type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK - type AttrGetType TextTagLanguagePropertyInfo = (Maybe T.Text) - type AttrLabel TextTagLanguagePropertyInfo = "language" - attrGet _ = getTextTagLanguage - attrSet _ = setTextTagLanguage - attrConstruct _ = constructTextTagLanguage - attrClear _ = clearTextTagLanguage - --- VVV Prop "language-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLanguageSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set" - -setTextTagLanguageSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagLanguageSet obj val = liftIO $ setObjectPropertyBool obj "language-set" val - -constructTextTagLanguageSet :: Bool -> IO ([Char], GValue) -constructTextTagLanguageSet val = constructObjectPropertyBool "language-set" val - -data TextTagLanguageSetPropertyInfo -instance AttrInfo TextTagLanguageSetPropertyInfo where - type AttrAllowedOps TextTagLanguageSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLanguageSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagLanguageSetPropertyInfo = TextTagK - type AttrGetType TextTagLanguageSetPropertyInfo = Bool - type AttrLabel TextTagLanguageSetPropertyInfo = "language-set" - attrGet _ = getTextTagLanguageSet - attrSet _ = setTextTagLanguageSet - attrConstruct _ = constructTextTagLanguageSet - attrClear _ = undefined - --- VVV Prop "left-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLeftMargin obj = liftIO $ getObjectPropertyInt32 obj "left-margin" - -setTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLeftMargin obj val = liftIO $ setObjectPropertyInt32 obj "left-margin" val - -constructTextTagLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextTagLeftMargin val = constructObjectPropertyInt32 "left-margin" val - -data TextTagLeftMarginPropertyInfo -instance AttrInfo TextTagLeftMarginPropertyInfo where - type AttrAllowedOps TextTagLeftMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLeftMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagLeftMarginPropertyInfo = TextTagK - type AttrGetType TextTagLeftMarginPropertyInfo = Int32 - type AttrLabel TextTagLeftMarginPropertyInfo = "left-margin" - attrGet _ = getTextTagLeftMargin - attrSet _ = setTextTagLeftMargin - attrConstruct _ = constructTextTagLeftMargin - attrClear _ = undefined - --- VVV Prop "left-margin-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLeftMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagLeftMarginSet obj = liftIO $ getObjectPropertyBool obj "left-margin-set" - -setTextTagLeftMarginSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagLeftMarginSet obj val = liftIO $ setObjectPropertyBool obj "left-margin-set" val - -constructTextTagLeftMarginSet :: Bool -> IO ([Char], GValue) -constructTextTagLeftMarginSet val = constructObjectPropertyBool "left-margin-set" val - -data TextTagLeftMarginSetPropertyInfo -instance AttrInfo TextTagLeftMarginSetPropertyInfo where - type AttrAllowedOps TextTagLeftMarginSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLeftMarginSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagLeftMarginSetPropertyInfo = TextTagK - type AttrGetType TextTagLeftMarginSetPropertyInfo = Bool - type AttrLabel TextTagLeftMarginSetPropertyInfo = "left-margin-set" - attrGet _ = getTextTagLeftMarginSet - attrSet _ = setTextTagLeftMarginSet - attrConstruct _ = constructTextTagLeftMarginSet - attrClear _ = undefined - --- VVV Prop "letter-spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLetterSpacing obj = liftIO $ getObjectPropertyInt32 obj "letter-spacing" - -setTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyInt32 obj "letter-spacing" val - -constructTextTagLetterSpacing :: Int32 -> IO ([Char], GValue) -constructTextTagLetterSpacing val = constructObjectPropertyInt32 "letter-spacing" val - -data TextTagLetterSpacingPropertyInfo -instance AttrInfo TextTagLetterSpacingPropertyInfo where - type AttrAllowedOps TextTagLetterSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLetterSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagLetterSpacingPropertyInfo = TextTagK - type AttrGetType TextTagLetterSpacingPropertyInfo = Int32 - type AttrLabel TextTagLetterSpacingPropertyInfo = "letter-spacing" - attrGet _ = getTextTagLetterSpacing - attrSet _ = setTextTagLetterSpacing - attrConstruct _ = constructTextTagLetterSpacing - attrClear _ = undefined - --- VVV Prop "letter-spacing-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagLetterSpacingSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagLetterSpacingSet obj = liftIO $ getObjectPropertyBool obj "letter-spacing-set" - -setTextTagLetterSpacingSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagLetterSpacingSet obj val = liftIO $ setObjectPropertyBool obj "letter-spacing-set" val - -constructTextTagLetterSpacingSet :: Bool -> IO ([Char], GValue) -constructTextTagLetterSpacingSet val = constructObjectPropertyBool "letter-spacing-set" val - -data TextTagLetterSpacingSetPropertyInfo -instance AttrInfo TextTagLetterSpacingSetPropertyInfo where - type AttrAllowedOps TextTagLetterSpacingSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLetterSpacingSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagLetterSpacingSetPropertyInfo = TextTagK - type AttrGetType TextTagLetterSpacingSetPropertyInfo = Bool - type AttrLabel TextTagLetterSpacingSetPropertyInfo = "letter-spacing-set" - attrGet _ = getTextTagLetterSpacingSet - attrSet _ = setTextTagLetterSpacingSet - attrConstruct _ = constructTextTagLetterSpacingSet - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTextTagName :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) -getTextTagName obj = liftIO $ getObjectPropertyString obj "name" - -constructTextTagName :: T.Text -> IO ([Char], GValue) -constructTextTagName val = constructObjectPropertyString "name" (Just val) - -data TextTagNamePropertyInfo -instance AttrInfo TextTagNamePropertyInfo where - type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK - type AttrGetType TextTagNamePropertyInfo = (Maybe T.Text) - type AttrLabel TextTagNamePropertyInfo = "name" - attrGet _ = getTextTagName - attrSet _ = undefined - attrConstruct _ = constructTextTagName - attrClear _ = undefined - --- VVV Prop "paragraph-background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" (Just val) - -constructTextTagParagraphBackground :: T.Text -> IO ([Char], GValue) -constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" (Just val) - -clearTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagParagraphBackground obj = liftIO $ setObjectPropertyString obj "paragraph-background" (Nothing :: Maybe T.Text) - -data TextTagParagraphBackgroundPropertyInfo -instance AttrInfo TextTagParagraphBackgroundPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundPropertyInfo = () - type AttrLabel TextTagParagraphBackgroundPropertyInfo = "paragraph-background" - attrGet _ = undefined - attrSet _ = setTextTagParagraphBackground - attrConstruct _ = constructTextTagParagraphBackground - attrClear _ = clearTextTagParagraphBackground - --- VVV Prop "paragraph-background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) -getTextTagParagraphBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-gdk" Gdk.Color - -setTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagParagraphBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" (Just val) - -constructTextTagParagraphBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" (Just val) - -clearTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagParagraphBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" (Nothing :: Maybe Gdk.Color) - -data TextTagParagraphBackgroundGdkPropertyInfo -instance AttrInfo TextTagParagraphBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = (Maybe Gdk.Color) - type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "paragraph-background-gdk" - attrGet _ = getTextTagParagraphBackgroundGdk - attrSet _ = setTextTagParagraphBackgroundGdk - attrConstruct _ = constructTextTagParagraphBackgroundGdk - attrClear _ = clearTextTagParagraphBackgroundGdk - --- VVV Prop "paragraph-background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) -getTextTagParagraphBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-rgba" Gdk.RGBA - -setTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagParagraphBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" (Just val) - -constructTextTagParagraphBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" (Just val) - -clearTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagParagraphBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" (Nothing :: Maybe Gdk.RGBA) - -data TextTagParagraphBackgroundRgbaPropertyInfo -instance AttrInfo TextTagParagraphBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "paragraph-background-rgba" - attrGet _ = getTextTagParagraphBackgroundRgba - attrSet _ = setTextTagParagraphBackgroundRgba - attrConstruct _ = constructTextTagParagraphBackgroundRgba - attrClear _ = clearTextTagParagraphBackgroundRgba - --- VVV Prop "paragraph-background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagParagraphBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagParagraphBackgroundSet obj = liftIO $ getObjectPropertyBool obj "paragraph-background-set" - -setTextTagParagraphBackgroundSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagParagraphBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "paragraph-background-set" val - -constructTextTagParagraphBackgroundSet :: Bool -> IO ([Char], GValue) -constructTextTagParagraphBackgroundSet val = constructObjectPropertyBool "paragraph-background-set" val - -data TextTagParagraphBackgroundSetPropertyInfo -instance AttrInfo TextTagParagraphBackgroundSetPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundSetPropertyInfo = Bool - type AttrLabel TextTagParagraphBackgroundSetPropertyInfo = "paragraph-background-set" - attrGet _ = getTextTagParagraphBackgroundSet - attrSet _ = setTextTagParagraphBackgroundSet - attrConstruct _ = constructTextTagParagraphBackgroundSet - attrClear _ = undefined - --- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-above-lines" - -setTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-above-lines" val - -constructTextTagPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsAboveLines val = constructObjectPropertyInt32 "pixels-above-lines" val - -data TextTagPixelsAboveLinesPropertyInfo -instance AttrInfo TextTagPixelsAboveLinesPropertyInfo where - type AttrAllowedOps TextTagPixelsAboveLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsAboveLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagPixelsAboveLinesPropertyInfo = TextTagK - type AttrGetType TextTagPixelsAboveLinesPropertyInfo = Int32 - type AttrLabel TextTagPixelsAboveLinesPropertyInfo = "pixels-above-lines" - attrGet _ = getTextTagPixelsAboveLines - attrSet _ = setTextTagPixelsAboveLines - attrConstruct _ = constructTextTagPixelsAboveLines - attrClear _ = undefined - --- VVV Prop "pixels-above-lines-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsAboveLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagPixelsAboveLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-above-lines-set" - -setTextTagPixelsAboveLinesSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagPixelsAboveLinesSet obj val = liftIO $ setObjectPropertyBool obj "pixels-above-lines-set" val - -constructTextTagPixelsAboveLinesSet :: Bool -> IO ([Char], GValue) -constructTextTagPixelsAboveLinesSet val = constructObjectPropertyBool "pixels-above-lines-set" val - -data TextTagPixelsAboveLinesSetPropertyInfo -instance AttrInfo TextTagPixelsAboveLinesSetPropertyInfo where - type AttrAllowedOps TextTagPixelsAboveLinesSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = TextTagK - type AttrGetType TextTagPixelsAboveLinesSetPropertyInfo = Bool - type AttrLabel TextTagPixelsAboveLinesSetPropertyInfo = "pixels-above-lines-set" - attrGet _ = getTextTagPixelsAboveLinesSet - attrSet _ = setTextTagPixelsAboveLinesSet - attrConstruct _ = constructTextTagPixelsAboveLinesSet - attrClear _ = undefined - --- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-below-lines" - -setTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-below-lines" val - -constructTextTagPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsBelowLines val = constructObjectPropertyInt32 "pixels-below-lines" val - -data TextTagPixelsBelowLinesPropertyInfo -instance AttrInfo TextTagPixelsBelowLinesPropertyInfo where - type AttrAllowedOps TextTagPixelsBelowLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsBelowLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagPixelsBelowLinesPropertyInfo = TextTagK - type AttrGetType TextTagPixelsBelowLinesPropertyInfo = Int32 - type AttrLabel TextTagPixelsBelowLinesPropertyInfo = "pixels-below-lines" - attrGet _ = getTextTagPixelsBelowLines - attrSet _ = setTextTagPixelsBelowLines - attrConstruct _ = constructTextTagPixelsBelowLines - attrClear _ = undefined - --- VVV Prop "pixels-below-lines-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsBelowLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagPixelsBelowLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-below-lines-set" - -setTextTagPixelsBelowLinesSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagPixelsBelowLinesSet obj val = liftIO $ setObjectPropertyBool obj "pixels-below-lines-set" val - -constructTextTagPixelsBelowLinesSet :: Bool -> IO ([Char], GValue) -constructTextTagPixelsBelowLinesSet val = constructObjectPropertyBool "pixels-below-lines-set" val - -data TextTagPixelsBelowLinesSetPropertyInfo -instance AttrInfo TextTagPixelsBelowLinesSetPropertyInfo where - type AttrAllowedOps TextTagPixelsBelowLinesSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = TextTagK - type AttrGetType TextTagPixelsBelowLinesSetPropertyInfo = Bool - type AttrLabel TextTagPixelsBelowLinesSetPropertyInfo = "pixels-below-lines-set" - attrGet _ = getTextTagPixelsBelowLinesSet - attrSet _ = setTextTagPixelsBelowLinesSet - attrConstruct _ = constructTextTagPixelsBelowLinesSet - attrClear _ = undefined - --- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyInt32 obj "pixels-inside-wrap" - -setTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyInt32 obj "pixels-inside-wrap" val - -constructTextTagPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsInsideWrap val = constructObjectPropertyInt32 "pixels-inside-wrap" val - -data TextTagPixelsInsideWrapPropertyInfo -instance AttrInfo TextTagPixelsInsideWrapPropertyInfo where - type AttrAllowedOps TextTagPixelsInsideWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsInsideWrapPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagPixelsInsideWrapPropertyInfo = TextTagK - type AttrGetType TextTagPixelsInsideWrapPropertyInfo = Int32 - type AttrLabel TextTagPixelsInsideWrapPropertyInfo = "pixels-inside-wrap" - attrGet _ = getTextTagPixelsInsideWrap - attrSet _ = setTextTagPixelsInsideWrap - attrConstruct _ = constructTextTagPixelsInsideWrap - attrClear _ = undefined - --- VVV Prop "pixels-inside-wrap-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagPixelsInsideWrapSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagPixelsInsideWrapSet obj = liftIO $ getObjectPropertyBool obj "pixels-inside-wrap-set" - -setTextTagPixelsInsideWrapSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagPixelsInsideWrapSet obj val = liftIO $ setObjectPropertyBool obj "pixels-inside-wrap-set" val - -constructTextTagPixelsInsideWrapSet :: Bool -> IO ([Char], GValue) -constructTextTagPixelsInsideWrapSet val = constructObjectPropertyBool "pixels-inside-wrap-set" val - -data TextTagPixelsInsideWrapSetPropertyInfo -instance AttrInfo TextTagPixelsInsideWrapSetPropertyInfo where - type AttrAllowedOps TextTagPixelsInsideWrapSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = TextTagK - type AttrGetType TextTagPixelsInsideWrapSetPropertyInfo = Bool - type AttrLabel TextTagPixelsInsideWrapSetPropertyInfo = "pixels-inside-wrap-set" - attrGet _ = getTextTagPixelsInsideWrapSet - attrSet _ = setTextTagPixelsInsideWrapSet - attrConstruct _ = constructTextTagPixelsInsideWrapSet - attrClear _ = undefined - --- VVV Prop "right-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRightMargin obj = liftIO $ getObjectPropertyInt32 obj "right-margin" - -setTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRightMargin obj val = liftIO $ setObjectPropertyInt32 obj "right-margin" val - -constructTextTagRightMargin :: Int32 -> IO ([Char], GValue) -constructTextTagRightMargin val = constructObjectPropertyInt32 "right-margin" val - -data TextTagRightMarginPropertyInfo -instance AttrInfo TextTagRightMarginPropertyInfo where - type AttrAllowedOps TextTagRightMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagRightMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagRightMarginPropertyInfo = TextTagK - type AttrGetType TextTagRightMarginPropertyInfo = Int32 - type AttrLabel TextTagRightMarginPropertyInfo = "right-margin" - attrGet _ = getTextTagRightMargin - attrSet _ = setTextTagRightMargin - attrConstruct _ = constructTextTagRightMargin - attrClear _ = undefined - --- VVV Prop "right-margin-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagRightMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagRightMarginSet obj = liftIO $ getObjectPropertyBool obj "right-margin-set" - -setTextTagRightMarginSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagRightMarginSet obj val = liftIO $ setObjectPropertyBool obj "right-margin-set" val - -constructTextTagRightMarginSet :: Bool -> IO ([Char], GValue) -constructTextTagRightMarginSet val = constructObjectPropertyBool "right-margin-set" val - -data TextTagRightMarginSetPropertyInfo -instance AttrInfo TextTagRightMarginSetPropertyInfo where - type AttrAllowedOps TextTagRightMarginSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagRightMarginSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagRightMarginSetPropertyInfo = TextTagK - type AttrGetType TextTagRightMarginSetPropertyInfo = Bool - type AttrLabel TextTagRightMarginSetPropertyInfo = "right-margin-set" - attrGet _ = getTextTagRightMarginSet - attrSet _ = setTextTagRightMarginSet - attrConstruct _ = constructTextTagRightMarginSet - attrClear _ = undefined - --- VVV Prop "rise" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagRise :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRise obj = liftIO $ getObjectPropertyInt32 obj "rise" - -setTextTagRise :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRise obj val = liftIO $ setObjectPropertyInt32 obj "rise" val - -constructTextTagRise :: Int32 -> IO ([Char], GValue) -constructTextTagRise val = constructObjectPropertyInt32 "rise" val - -data TextTagRisePropertyInfo -instance AttrInfo TextTagRisePropertyInfo where - type AttrAllowedOps TextTagRisePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagRisePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagRisePropertyInfo = TextTagK - type AttrGetType TextTagRisePropertyInfo = Int32 - type AttrLabel TextTagRisePropertyInfo = "rise" - attrGet _ = getTextTagRise - attrSet _ = setTextTagRise - attrConstruct _ = constructTextTagRise - attrClear _ = undefined - --- VVV Prop "rise-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagRiseSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set" - -setTextTagRiseSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagRiseSet obj val = liftIO $ setObjectPropertyBool obj "rise-set" val - -constructTextTagRiseSet :: Bool -> IO ([Char], GValue) -constructTextTagRiseSet val = constructObjectPropertyBool "rise-set" val - -data TextTagRiseSetPropertyInfo -instance AttrInfo TextTagRiseSetPropertyInfo where - type AttrAllowedOps TextTagRiseSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagRiseSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagRiseSetPropertyInfo = TextTagK - type AttrGetType TextTagRiseSetPropertyInfo = Bool - type AttrLabel TextTagRiseSetPropertyInfo = "rise-set" - attrGet _ = getTextTagRiseSet - attrSet _ = setTextTagRiseSet - attrConstruct _ = constructTextTagRiseSet - attrClear _ = undefined - --- VVV Prop "scale" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagScale :: (MonadIO m, TextTagK o) => o -> m Double -getTextTagScale obj = liftIO $ getObjectPropertyDouble obj "scale" - -setTextTagScale :: (MonadIO m, TextTagK o) => o -> Double -> m () -setTextTagScale obj val = liftIO $ setObjectPropertyDouble obj "scale" val - -constructTextTagScale :: Double -> IO ([Char], GValue) -constructTextTagScale val = constructObjectPropertyDouble "scale" val - -data TextTagScalePropertyInfo -instance AttrInfo TextTagScalePropertyInfo where - type AttrAllowedOps TextTagScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagScalePropertyInfo = (~) Double - type AttrBaseTypeConstraint TextTagScalePropertyInfo = TextTagK - type AttrGetType TextTagScalePropertyInfo = Double - type AttrLabel TextTagScalePropertyInfo = "scale" - attrGet _ = getTextTagScale - attrSet _ = setTextTagScale - attrConstruct _ = constructTextTagScale - attrClear _ = undefined - --- VVV Prop "scale-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagScaleSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set" - -setTextTagScaleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagScaleSet obj val = liftIO $ setObjectPropertyBool obj "scale-set" val - -constructTextTagScaleSet :: Bool -> IO ([Char], GValue) -constructTextTagScaleSet val = constructObjectPropertyBool "scale-set" val - -data TextTagScaleSetPropertyInfo -instance AttrInfo TextTagScaleSetPropertyInfo where - type AttrAllowedOps TextTagScaleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagScaleSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagScaleSetPropertyInfo = TextTagK - type AttrGetType TextTagScaleSetPropertyInfo = Bool - type AttrLabel TextTagScaleSetPropertyInfo = "scale-set" - attrGet _ = getTextTagScaleSet - attrSet _ = setTextTagScaleSet - attrConstruct _ = constructTextTagScaleSet - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagSize :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagSize obj = liftIO $ getObjectPropertyInt32 obj "size" - -setTextTagSize :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val - -constructTextTagSize :: Int32 -> IO ([Char], GValue) -constructTextTagSize val = constructObjectPropertyInt32 "size" val - -data TextTagSizePropertyInfo -instance AttrInfo TextTagSizePropertyInfo where - type AttrAllowedOps TextTagSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagSizePropertyInfo = TextTagK - type AttrGetType TextTagSizePropertyInfo = Int32 - type AttrLabel TextTagSizePropertyInfo = "size" - attrGet _ = getTextTagSize - attrSet _ = setTextTagSize - attrConstruct _ = constructTextTagSize - attrClear _ = undefined - --- VVV Prop "size-points" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagSizePoints :: (MonadIO m, TextTagK o) => o -> m Double -getTextTagSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points" - -setTextTagSizePoints :: (MonadIO m, TextTagK o) => o -> Double -> m () -setTextTagSizePoints obj val = liftIO $ setObjectPropertyDouble obj "size-points" val - -constructTextTagSizePoints :: Double -> IO ([Char], GValue) -constructTextTagSizePoints val = constructObjectPropertyDouble "size-points" val - -data TextTagSizePointsPropertyInfo -instance AttrInfo TextTagSizePointsPropertyInfo where - type AttrAllowedOps TextTagSizePointsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagSizePointsPropertyInfo = (~) Double - type AttrBaseTypeConstraint TextTagSizePointsPropertyInfo = TextTagK - type AttrGetType TextTagSizePointsPropertyInfo = Double - type AttrLabel TextTagSizePointsPropertyInfo = "size-points" - attrGet _ = getTextTagSizePoints - attrSet _ = setTextTagSizePoints - attrConstruct _ = constructTextTagSizePoints - attrClear _ = undefined - --- VVV Prop "size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagSizeSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set" - -setTextTagSizeSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagSizeSet obj val = liftIO $ setObjectPropertyBool obj "size-set" val - -constructTextTagSizeSet :: Bool -> IO ([Char], GValue) -constructTextTagSizeSet val = constructObjectPropertyBool "size-set" val - -data TextTagSizeSetPropertyInfo -instance AttrInfo TextTagSizeSetPropertyInfo where - type AttrAllowedOps TextTagSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagSizeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagSizeSetPropertyInfo = TextTagK - type AttrGetType TextTagSizeSetPropertyInfo = Bool - type AttrLabel TextTagSizeSetPropertyInfo = "size-set" - attrGet _ = getTextTagSizeSet - attrSet _ = setTextTagSizeSet - attrConstruct _ = constructTextTagSizeSet - attrClear _ = undefined - --- VVV Prop "stretch" - -- Type: TInterface "Pango" "Stretch" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStretch :: (MonadIO m, TextTagK o) => o -> m Pango.Stretch -getTextTagStretch obj = liftIO $ getObjectPropertyEnum obj "stretch" - -setTextTagStretch :: (MonadIO m, TextTagK o) => o -> Pango.Stretch -> m () -setTextTagStretch obj val = liftIO $ setObjectPropertyEnum obj "stretch" val - -constructTextTagStretch :: Pango.Stretch -> IO ([Char], GValue) -constructTextTagStretch val = constructObjectPropertyEnum "stretch" val - -data TextTagStretchPropertyInfo -instance AttrInfo TextTagStretchPropertyInfo where - type AttrAllowedOps TextTagStretchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStretchPropertyInfo = (~) Pango.Stretch - type AttrBaseTypeConstraint TextTagStretchPropertyInfo = TextTagK - type AttrGetType TextTagStretchPropertyInfo = Pango.Stretch - type AttrLabel TextTagStretchPropertyInfo = "stretch" - attrGet _ = getTextTagStretch - attrSet _ = setTextTagStretch - attrConstruct _ = constructTextTagStretch - attrClear _ = undefined - --- VVV Prop "stretch-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStretchSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set" - -setTextTagStretchSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagStretchSet obj val = liftIO $ setObjectPropertyBool obj "stretch-set" val - -constructTextTagStretchSet :: Bool -> IO ([Char], GValue) -constructTextTagStretchSet val = constructObjectPropertyBool "stretch-set" val - -data TextTagStretchSetPropertyInfo -instance AttrInfo TextTagStretchSetPropertyInfo where - type AttrAllowedOps TextTagStretchSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStretchSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagStretchSetPropertyInfo = TextTagK - type AttrGetType TextTagStretchSetPropertyInfo = Bool - type AttrLabel TextTagStretchSetPropertyInfo = "stretch-set" - attrGet _ = getTextTagStretchSet - attrSet _ = setTextTagStretchSet - attrConstruct _ = constructTextTagStretchSet - attrClear _ = undefined - --- VVV Prop "strikethrough" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStrikethrough :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough" - -setTextTagStrikethrough :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagStrikethrough obj val = liftIO $ setObjectPropertyBool obj "strikethrough" val - -constructTextTagStrikethrough :: Bool -> IO ([Char], GValue) -constructTextTagStrikethrough val = constructObjectPropertyBool "strikethrough" val - -data TextTagStrikethroughPropertyInfo -instance AttrInfo TextTagStrikethroughPropertyInfo where - type AttrAllowedOps TextTagStrikethroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStrikethroughPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagStrikethroughPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughPropertyInfo = Bool - type AttrLabel TextTagStrikethroughPropertyInfo = "strikethrough" - attrGet _ = getTextTagStrikethrough - attrSet _ = setTextTagStrikethrough - attrConstruct _ = constructTextTagStrikethrough - attrClear _ = undefined - --- VVV Prop "strikethrough-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) -getTextTagStrikethroughRgba obj = liftIO $ getObjectPropertyBoxed obj "strikethrough-rgba" Gdk.RGBA - -setTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagStrikethroughRgba obj val = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" (Just val) - -constructTextTagStrikethroughRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" (Just val) - -clearTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagStrikethroughRgba obj = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" (Nothing :: Maybe Gdk.RGBA) - -data TextTagStrikethroughRgbaPropertyInfo -instance AttrInfo TextTagStrikethroughRgbaPropertyInfo where - type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "strikethrough-rgba" - attrGet _ = getTextTagStrikethroughRgba - attrSet _ = setTextTagStrikethroughRgba - attrConstruct _ = constructTextTagStrikethroughRgba - attrClear _ = clearTextTagStrikethroughRgba - --- VVV Prop "strikethrough-rgba-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStrikethroughRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagStrikethroughRgbaSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-rgba-set" - -setTextTagStrikethroughRgbaSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagStrikethroughRgbaSet obj val = liftIO $ setObjectPropertyBool obj "strikethrough-rgba-set" val - -constructTextTagStrikethroughRgbaSet :: Bool -> IO ([Char], GValue) -constructTextTagStrikethroughRgbaSet val = constructObjectPropertyBool "strikethrough-rgba-set" val - -data TextTagStrikethroughRgbaSetPropertyInfo -instance AttrInfo TextTagStrikethroughRgbaSetPropertyInfo where - type AttrAllowedOps TextTagStrikethroughRgbaSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughRgbaSetPropertyInfo = Bool - type AttrLabel TextTagStrikethroughRgbaSetPropertyInfo = "strikethrough-rgba-set" - attrGet _ = getTextTagStrikethroughRgbaSet - attrSet _ = setTextTagStrikethroughRgbaSet - attrConstruct _ = constructTextTagStrikethroughRgbaSet - attrClear _ = undefined - --- VVV Prop "strikethrough-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStrikethroughSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set" - -setTextTagStrikethroughSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagStrikethroughSet obj val = liftIO $ setObjectPropertyBool obj "strikethrough-set" val - -constructTextTagStrikethroughSet :: Bool -> IO ([Char], GValue) -constructTextTagStrikethroughSet val = constructObjectPropertyBool "strikethrough-set" val - -data TextTagStrikethroughSetPropertyInfo -instance AttrInfo TextTagStrikethroughSetPropertyInfo where - type AttrAllowedOps TextTagStrikethroughSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStrikethroughSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagStrikethroughSetPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughSetPropertyInfo = Bool - type AttrLabel TextTagStrikethroughSetPropertyInfo = "strikethrough-set" - attrGet _ = getTextTagStrikethroughSet - attrSet _ = setTextTagStrikethroughSet - attrConstruct _ = constructTextTagStrikethroughSet - attrClear _ = undefined - --- VVV Prop "style" - -- Type: TInterface "Pango" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStyle :: (MonadIO m, TextTagK o) => o -> m Pango.Style -getTextTagStyle obj = liftIO $ getObjectPropertyEnum obj "style" - -setTextTagStyle :: (MonadIO m, TextTagK o) => o -> Pango.Style -> m () -setTextTagStyle obj val = liftIO $ setObjectPropertyEnum obj "style" val - -constructTextTagStyle :: Pango.Style -> IO ([Char], GValue) -constructTextTagStyle val = constructObjectPropertyEnum "style" val - -data TextTagStylePropertyInfo -instance AttrInfo TextTagStylePropertyInfo where - type AttrAllowedOps TextTagStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStylePropertyInfo = (~) Pango.Style - type AttrBaseTypeConstraint TextTagStylePropertyInfo = TextTagK - type AttrGetType TextTagStylePropertyInfo = Pango.Style - type AttrLabel TextTagStylePropertyInfo = "style" - attrGet _ = getTextTagStyle - attrSet _ = setTextTagStyle - attrConstruct _ = constructTextTagStyle - attrClear _ = undefined - --- VVV Prop "style-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagStyleSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set" - -setTextTagStyleSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagStyleSet obj val = liftIO $ setObjectPropertyBool obj "style-set" val - -constructTextTagStyleSet :: Bool -> IO ([Char], GValue) -constructTextTagStyleSet val = constructObjectPropertyBool "style-set" val - -data TextTagStyleSetPropertyInfo -instance AttrInfo TextTagStyleSetPropertyInfo where - type AttrAllowedOps TextTagStyleSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStyleSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagStyleSetPropertyInfo = TextTagK - type AttrGetType TextTagStyleSetPropertyInfo = Bool - type AttrLabel TextTagStyleSetPropertyInfo = "style-set" - attrGet _ = getTextTagStyleSet - attrSet _ = setTextTagStyleSet - attrConstruct _ = constructTextTagStyleSet - attrClear _ = undefined - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m (Maybe Pango.TabArray) -getTextTagTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray - -setTextTagTabs :: (MonadIO m, TextTagK o) => o -> Pango.TabArray -> m () -setTextTagTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) - -constructTextTagTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextTagTabs val = constructObjectPropertyBoxed "tabs" (Just val) - -clearTextTagTabs :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagTabs obj = liftIO $ setObjectPropertyBoxed obj "tabs" (Nothing :: Maybe Pango.TabArray) - -data TextTagTabsPropertyInfo -instance AttrInfo TextTagTabsPropertyInfo where - type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK - type AttrGetType TextTagTabsPropertyInfo = (Maybe Pango.TabArray) - type AttrLabel TextTagTabsPropertyInfo = "tabs" - attrGet _ = getTextTagTabs - attrSet _ = setTextTagTabs - attrConstruct _ = constructTextTagTabs - attrClear _ = clearTextTagTabs - --- VVV Prop "tabs-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagTabsSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagTabsSet obj = liftIO $ getObjectPropertyBool obj "tabs-set" - -setTextTagTabsSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagTabsSet obj val = liftIO $ setObjectPropertyBool obj "tabs-set" val - -constructTextTagTabsSet :: Bool -> IO ([Char], GValue) -constructTextTagTabsSet val = constructObjectPropertyBool "tabs-set" val - -data TextTagTabsSetPropertyInfo -instance AttrInfo TextTagTabsSetPropertyInfo where - type AttrAllowedOps TextTagTabsSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagTabsSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagTabsSetPropertyInfo = TextTagK - type AttrGetType TextTagTabsSetPropertyInfo = Bool - type AttrLabel TextTagTabsSetPropertyInfo = "tabs-set" - attrGet _ = getTextTagTabsSet - attrSet _ = setTextTagTabsSet - attrConstruct _ = constructTextTagTabsSet - attrClear _ = undefined - --- VVV Prop "underline" - -- Type: TInterface "Pango" "Underline" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagUnderline :: (MonadIO m, TextTagK o) => o -> m Pango.Underline -getTextTagUnderline obj = liftIO $ getObjectPropertyEnum obj "underline" - -setTextTagUnderline :: (MonadIO m, TextTagK o) => o -> Pango.Underline -> m () -setTextTagUnderline obj val = liftIO $ setObjectPropertyEnum obj "underline" val - -constructTextTagUnderline :: Pango.Underline -> IO ([Char], GValue) -constructTextTagUnderline val = constructObjectPropertyEnum "underline" val - -data TextTagUnderlinePropertyInfo -instance AttrInfo TextTagUnderlinePropertyInfo where - type AttrAllowedOps TextTagUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagUnderlinePropertyInfo = (~) Pango.Underline - type AttrBaseTypeConstraint TextTagUnderlinePropertyInfo = TextTagK - type AttrGetType TextTagUnderlinePropertyInfo = Pango.Underline - type AttrLabel TextTagUnderlinePropertyInfo = "underline" - attrGet _ = getTextTagUnderline - attrSet _ = setTextTagUnderline - attrConstruct _ = constructTextTagUnderline - attrClear _ = undefined - --- VVV Prop "underline-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) -getTextTagUnderlineRgba obj = liftIO $ getObjectPropertyBoxed obj "underline-rgba" Gdk.RGBA - -setTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagUnderlineRgba obj val = liftIO $ setObjectPropertyBoxed obj "underline-rgba" (Just val) - -constructTextTagUnderlineRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" (Just val) - -clearTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m () -clearTextTagUnderlineRgba obj = liftIO $ setObjectPropertyBoxed obj "underline-rgba" (Nothing :: Maybe Gdk.RGBA) - -data TextTagUnderlineRgbaPropertyInfo -instance AttrInfo TextTagUnderlineRgbaPropertyInfo where - type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK - type AttrGetType TextTagUnderlineRgbaPropertyInfo = (Maybe Gdk.RGBA) - type AttrLabel TextTagUnderlineRgbaPropertyInfo = "underline-rgba" - attrGet _ = getTextTagUnderlineRgba - attrSet _ = setTextTagUnderlineRgba - attrConstruct _ = constructTextTagUnderlineRgba - attrClear _ = clearTextTagUnderlineRgba - --- VVV Prop "underline-rgba-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagUnderlineRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagUnderlineRgbaSet obj = liftIO $ getObjectPropertyBool obj "underline-rgba-set" - -setTextTagUnderlineRgbaSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagUnderlineRgbaSet obj val = liftIO $ setObjectPropertyBool obj "underline-rgba-set" val - -constructTextTagUnderlineRgbaSet :: Bool -> IO ([Char], GValue) -constructTextTagUnderlineRgbaSet val = constructObjectPropertyBool "underline-rgba-set" val - -data TextTagUnderlineRgbaSetPropertyInfo -instance AttrInfo TextTagUnderlineRgbaSetPropertyInfo where - type AttrAllowedOps TextTagUnderlineRgbaSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = TextTagK - type AttrGetType TextTagUnderlineRgbaSetPropertyInfo = Bool - type AttrLabel TextTagUnderlineRgbaSetPropertyInfo = "underline-rgba-set" - attrGet _ = getTextTagUnderlineRgbaSet - attrSet _ = setTextTagUnderlineRgbaSet - attrConstruct _ = constructTextTagUnderlineRgbaSet - attrClear _ = undefined - --- VVV Prop "underline-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagUnderlineSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set" - -setTextTagUnderlineSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagUnderlineSet obj val = liftIO $ setObjectPropertyBool obj "underline-set" val - -constructTextTagUnderlineSet :: Bool -> IO ([Char], GValue) -constructTextTagUnderlineSet val = constructObjectPropertyBool "underline-set" val - -data TextTagUnderlineSetPropertyInfo -instance AttrInfo TextTagUnderlineSetPropertyInfo where - type AttrAllowedOps TextTagUnderlineSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagUnderlineSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagUnderlineSetPropertyInfo = TextTagK - type AttrGetType TextTagUnderlineSetPropertyInfo = Bool - type AttrLabel TextTagUnderlineSetPropertyInfo = "underline-set" - attrGet _ = getTextTagUnderlineSet - attrSet _ = setTextTagUnderlineSet - attrConstruct _ = constructTextTagUnderlineSet - attrClear _ = undefined - --- VVV Prop "variant" - -- Type: TInterface "Pango" "Variant" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagVariant :: (MonadIO m, TextTagK o) => o -> m Pango.Variant -getTextTagVariant obj = liftIO $ getObjectPropertyEnum obj "variant" - -setTextTagVariant :: (MonadIO m, TextTagK o) => o -> Pango.Variant -> m () -setTextTagVariant obj val = liftIO $ setObjectPropertyEnum obj "variant" val - -constructTextTagVariant :: Pango.Variant -> IO ([Char], GValue) -constructTextTagVariant val = constructObjectPropertyEnum "variant" val - -data TextTagVariantPropertyInfo -instance AttrInfo TextTagVariantPropertyInfo where - type AttrAllowedOps TextTagVariantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagVariantPropertyInfo = (~) Pango.Variant - type AttrBaseTypeConstraint TextTagVariantPropertyInfo = TextTagK - type AttrGetType TextTagVariantPropertyInfo = Pango.Variant - type AttrLabel TextTagVariantPropertyInfo = "variant" - attrGet _ = getTextTagVariant - attrSet _ = setTextTagVariant - attrConstruct _ = constructTextTagVariant - attrClear _ = undefined - --- VVV Prop "variant-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagVariantSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set" - -setTextTagVariantSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagVariantSet obj val = liftIO $ setObjectPropertyBool obj "variant-set" val - -constructTextTagVariantSet :: Bool -> IO ([Char], GValue) -constructTextTagVariantSet val = constructObjectPropertyBool "variant-set" val - -data TextTagVariantSetPropertyInfo -instance AttrInfo TextTagVariantSetPropertyInfo where - type AttrAllowedOps TextTagVariantSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagVariantSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagVariantSetPropertyInfo = TextTagK - type AttrGetType TextTagVariantSetPropertyInfo = Bool - type AttrLabel TextTagVariantSetPropertyInfo = "variant-set" - attrGet _ = getTextTagVariantSet - attrSet _ = setTextTagVariantSet - attrConstruct _ = constructTextTagVariantSet - attrClear _ = undefined - --- VVV Prop "weight" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagWeight :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagWeight obj = liftIO $ getObjectPropertyInt32 obj "weight" - -setTextTagWeight :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagWeight obj val = liftIO $ setObjectPropertyInt32 obj "weight" val - -constructTextTagWeight :: Int32 -> IO ([Char], GValue) -constructTextTagWeight val = constructObjectPropertyInt32 "weight" val - -data TextTagWeightPropertyInfo -instance AttrInfo TextTagWeightPropertyInfo where - type AttrAllowedOps TextTagWeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagWeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextTagWeightPropertyInfo = TextTagK - type AttrGetType TextTagWeightPropertyInfo = Int32 - type AttrLabel TextTagWeightPropertyInfo = "weight" - attrGet _ = getTextTagWeight - attrSet _ = setTextTagWeight - attrConstruct _ = constructTextTagWeight - attrClear _ = undefined - --- VVV Prop "weight-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagWeightSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set" - -setTextTagWeightSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagWeightSet obj val = liftIO $ setObjectPropertyBool obj "weight-set" val - -constructTextTagWeightSet :: Bool -> IO ([Char], GValue) -constructTextTagWeightSet val = constructObjectPropertyBool "weight-set" val - -data TextTagWeightSetPropertyInfo -instance AttrInfo TextTagWeightSetPropertyInfo where - type AttrAllowedOps TextTagWeightSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagWeightSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagWeightSetPropertyInfo = TextTagK - type AttrGetType TextTagWeightSetPropertyInfo = Bool - type AttrLabel TextTagWeightSetPropertyInfo = "weight-set" - attrGet _ = getTextTagWeightSet - attrSet _ = setTextTagWeightSet - attrConstruct _ = constructTextTagWeightSet - attrClear _ = undefined - --- VVV Prop "wrap-mode" - -- Type: TInterface "Gtk" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagWrapMode :: (MonadIO m, TextTagK o) => o -> m WrapMode -getTextTagWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setTextTagWrapMode :: (MonadIO m, TextTagK o) => o -> WrapMode -> m () -setTextTagWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructTextTagWrapMode :: WrapMode -> IO ([Char], GValue) -constructTextTagWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data TextTagWrapModePropertyInfo -instance AttrInfo TextTagWrapModePropertyInfo where - type AttrAllowedOps TextTagWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagWrapModePropertyInfo = (~) WrapMode - type AttrBaseTypeConstraint TextTagWrapModePropertyInfo = TextTagK - type AttrGetType TextTagWrapModePropertyInfo = WrapMode - type AttrLabel TextTagWrapModePropertyInfo = "wrap-mode" - attrGet _ = getTextTagWrapMode - attrSet _ = setTextTagWrapMode - attrConstruct _ = constructTextTagWrapMode - attrClear _ = undefined - --- VVV Prop "wrap-mode-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextTagWrapModeSet :: (MonadIO m, TextTagK o) => o -> m Bool -getTextTagWrapModeSet obj = liftIO $ getObjectPropertyBool obj "wrap-mode-set" - -setTextTagWrapModeSet :: (MonadIO m, TextTagK o) => o -> Bool -> m () -setTextTagWrapModeSet obj val = liftIO $ setObjectPropertyBool obj "wrap-mode-set" val - -constructTextTagWrapModeSet :: Bool -> IO ([Char], GValue) -constructTextTagWrapModeSet val = constructObjectPropertyBool "wrap-mode-set" val - -data TextTagWrapModeSetPropertyInfo -instance AttrInfo TextTagWrapModeSetPropertyInfo where - type AttrAllowedOps TextTagWrapModeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagWrapModeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextTagWrapModeSetPropertyInfo = TextTagK - type AttrGetType TextTagWrapModeSetPropertyInfo = Bool - type AttrLabel TextTagWrapModeSetPropertyInfo = "wrap-mode-set" - attrGet _ = getTextTagWrapModeSet - attrSet _ = setTextTagWrapModeSet - attrConstruct _ = constructTextTagWrapModeSet - attrClear _ = undefined - -type instance AttributeList TextTag = TextTagAttributeList -type TextTagAttributeList = ('[ '("accumulativeMargin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("backgroundFullHeight", TextTagBackgroundFullHeightPropertyInfo), '("backgroundFullHeightSet", TextTagBackgroundFullHeightSetPropertyInfo), '("backgroundGdk", TextTagBackgroundGdkPropertyInfo), '("backgroundRgba", TextTagBackgroundRgbaPropertyInfo), '("backgroundSet", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editableSet", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallbackSet", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("familySet", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("fontDesc", TextTagFontDescPropertyInfo), '("fontFeatures", TextTagFontFeaturesPropertyInfo), '("fontFeaturesSet", TextTagFontFeaturesSetPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foregroundGdk", TextTagForegroundGdkPropertyInfo), '("foregroundRgba", TextTagForegroundRgbaPropertyInfo), '("foregroundSet", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indentSet", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisibleSet", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justificationSet", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("languageSet", TextTagLanguageSetPropertyInfo), '("leftMargin", TextTagLeftMarginPropertyInfo), '("leftMarginSet", TextTagLeftMarginSetPropertyInfo), '("letterSpacing", TextTagLetterSpacingPropertyInfo), '("letterSpacingSet", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraphBackground", TextTagParagraphBackgroundPropertyInfo), '("paragraphBackgroundGdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraphBackgroundRgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraphBackgroundSet", TextTagParagraphBackgroundSetPropertyInfo), '("pixelsAboveLines", TextTagPixelsAboveLinesPropertyInfo), '("pixelsAboveLinesSet", TextTagPixelsAboveLinesSetPropertyInfo), '("pixelsBelowLines", TextTagPixelsBelowLinesPropertyInfo), '("pixelsBelowLinesSet", TextTagPixelsBelowLinesSetPropertyInfo), '("pixelsInsideWrap", TextTagPixelsInsideWrapPropertyInfo), '("pixelsInsideWrapSet", TextTagPixelsInsideWrapSetPropertyInfo), '("rightMargin", TextTagRightMarginPropertyInfo), '("rightMarginSet", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("riseSet", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scaleSet", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("sizePoints", TextTagSizePointsPropertyInfo), '("sizeSet", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretchSet", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethroughRgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethroughRgbaSet", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethroughSet", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("styleSet", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabsSet", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underlineRgba", TextTagUnderlineRgbaPropertyInfo), '("underlineRgbaSet", TextTagUnderlineRgbaSetPropertyInfo), '("underlineSet", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variantSet", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weightSet", TextTagWeightSetPropertyInfo), '("wrapMode", TextTagWrapModePropertyInfo), '("wrapModeSet", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)]) - -textTagAccumulativeMargin :: AttrLabelProxy "accumulativeMargin" -textTagAccumulativeMargin = AttrLabelProxy - -textTagBackground :: AttrLabelProxy "background" -textTagBackground = AttrLabelProxy - -textTagBackgroundFullHeight :: AttrLabelProxy "backgroundFullHeight" -textTagBackgroundFullHeight = AttrLabelProxy - -textTagBackgroundFullHeightSet :: AttrLabelProxy "backgroundFullHeightSet" -textTagBackgroundFullHeightSet = AttrLabelProxy - -textTagBackgroundGdk :: AttrLabelProxy "backgroundGdk" -textTagBackgroundGdk = AttrLabelProxy - -textTagBackgroundRgba :: AttrLabelProxy "backgroundRgba" -textTagBackgroundRgba = AttrLabelProxy - -textTagBackgroundSet :: AttrLabelProxy "backgroundSet" -textTagBackgroundSet = AttrLabelProxy - -textTagDirection :: AttrLabelProxy "direction" -textTagDirection = AttrLabelProxy - -textTagEditable :: AttrLabelProxy "editable" -textTagEditable = AttrLabelProxy - -textTagEditableSet :: AttrLabelProxy "editableSet" -textTagEditableSet = AttrLabelProxy - -textTagFallback :: AttrLabelProxy "fallback" -textTagFallback = AttrLabelProxy - -textTagFallbackSet :: AttrLabelProxy "fallbackSet" -textTagFallbackSet = AttrLabelProxy - -textTagFamily :: AttrLabelProxy "family" -textTagFamily = AttrLabelProxy - -textTagFamilySet :: AttrLabelProxy "familySet" -textTagFamilySet = AttrLabelProxy - -textTagFont :: AttrLabelProxy "font" -textTagFont = AttrLabelProxy - -textTagFontDesc :: AttrLabelProxy "fontDesc" -textTagFontDesc = AttrLabelProxy - -textTagFontFeatures :: AttrLabelProxy "fontFeatures" -textTagFontFeatures = AttrLabelProxy - -textTagFontFeaturesSet :: AttrLabelProxy "fontFeaturesSet" -textTagFontFeaturesSet = AttrLabelProxy - -textTagForeground :: AttrLabelProxy "foreground" -textTagForeground = AttrLabelProxy - -textTagForegroundGdk :: AttrLabelProxy "foregroundGdk" -textTagForegroundGdk = AttrLabelProxy - -textTagForegroundRgba :: AttrLabelProxy "foregroundRgba" -textTagForegroundRgba = AttrLabelProxy - -textTagForegroundSet :: AttrLabelProxy "foregroundSet" -textTagForegroundSet = AttrLabelProxy - -textTagIndent :: AttrLabelProxy "indent" -textTagIndent = AttrLabelProxy - -textTagIndentSet :: AttrLabelProxy "indentSet" -textTagIndentSet = AttrLabelProxy - -textTagInvisible :: AttrLabelProxy "invisible" -textTagInvisible = AttrLabelProxy - -textTagInvisibleSet :: AttrLabelProxy "invisibleSet" -textTagInvisibleSet = AttrLabelProxy - -textTagJustification :: AttrLabelProxy "justification" -textTagJustification = AttrLabelProxy - -textTagJustificationSet :: AttrLabelProxy "justificationSet" -textTagJustificationSet = AttrLabelProxy - -textTagLanguage :: AttrLabelProxy "language" -textTagLanguage = AttrLabelProxy - -textTagLanguageSet :: AttrLabelProxy "languageSet" -textTagLanguageSet = AttrLabelProxy - -textTagLeftMargin :: AttrLabelProxy "leftMargin" -textTagLeftMargin = AttrLabelProxy - -textTagLeftMarginSet :: AttrLabelProxy "leftMarginSet" -textTagLeftMarginSet = AttrLabelProxy - -textTagLetterSpacing :: AttrLabelProxy "letterSpacing" -textTagLetterSpacing = AttrLabelProxy - -textTagLetterSpacingSet :: AttrLabelProxy "letterSpacingSet" -textTagLetterSpacingSet = AttrLabelProxy - -textTagName :: AttrLabelProxy "name" -textTagName = AttrLabelProxy - -textTagParagraphBackground :: AttrLabelProxy "paragraphBackground" -textTagParagraphBackground = AttrLabelProxy - -textTagParagraphBackgroundGdk :: AttrLabelProxy "paragraphBackgroundGdk" -textTagParagraphBackgroundGdk = AttrLabelProxy - -textTagParagraphBackgroundRgba :: AttrLabelProxy "paragraphBackgroundRgba" -textTagParagraphBackgroundRgba = AttrLabelProxy - -textTagParagraphBackgroundSet :: AttrLabelProxy "paragraphBackgroundSet" -textTagParagraphBackgroundSet = AttrLabelProxy - -textTagPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" -textTagPixelsAboveLines = AttrLabelProxy - -textTagPixelsAboveLinesSet :: AttrLabelProxy "pixelsAboveLinesSet" -textTagPixelsAboveLinesSet = AttrLabelProxy - -textTagPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" -textTagPixelsBelowLines = AttrLabelProxy - -textTagPixelsBelowLinesSet :: AttrLabelProxy "pixelsBelowLinesSet" -textTagPixelsBelowLinesSet = AttrLabelProxy - -textTagPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" -textTagPixelsInsideWrap = AttrLabelProxy - -textTagPixelsInsideWrapSet :: AttrLabelProxy "pixelsInsideWrapSet" -textTagPixelsInsideWrapSet = AttrLabelProxy - -textTagRightMargin :: AttrLabelProxy "rightMargin" -textTagRightMargin = AttrLabelProxy - -textTagRightMarginSet :: AttrLabelProxy "rightMarginSet" -textTagRightMarginSet = AttrLabelProxy - -textTagRise :: AttrLabelProxy "rise" -textTagRise = AttrLabelProxy - -textTagRiseSet :: AttrLabelProxy "riseSet" -textTagRiseSet = AttrLabelProxy - -textTagScale :: AttrLabelProxy "scale" -textTagScale = AttrLabelProxy - -textTagScaleSet :: AttrLabelProxy "scaleSet" -textTagScaleSet = AttrLabelProxy - -textTagSize :: AttrLabelProxy "size" -textTagSize = AttrLabelProxy - -textTagSizePoints :: AttrLabelProxy "sizePoints" -textTagSizePoints = AttrLabelProxy - -textTagSizeSet :: AttrLabelProxy "sizeSet" -textTagSizeSet = AttrLabelProxy - -textTagStretch :: AttrLabelProxy "stretch" -textTagStretch = AttrLabelProxy - -textTagStretchSet :: AttrLabelProxy "stretchSet" -textTagStretchSet = AttrLabelProxy - -textTagStrikethrough :: AttrLabelProxy "strikethrough" -textTagStrikethrough = AttrLabelProxy - -textTagStrikethroughRgba :: AttrLabelProxy "strikethroughRgba" -textTagStrikethroughRgba = AttrLabelProxy - -textTagStrikethroughRgbaSet :: AttrLabelProxy "strikethroughRgbaSet" -textTagStrikethroughRgbaSet = AttrLabelProxy - -textTagStrikethroughSet :: AttrLabelProxy "strikethroughSet" -textTagStrikethroughSet = AttrLabelProxy - -textTagStyle :: AttrLabelProxy "style" -textTagStyle = AttrLabelProxy - -textTagStyleSet :: AttrLabelProxy "styleSet" -textTagStyleSet = AttrLabelProxy - -textTagTabs :: AttrLabelProxy "tabs" -textTagTabs = AttrLabelProxy - -textTagTabsSet :: AttrLabelProxy "tabsSet" -textTagTabsSet = AttrLabelProxy - -textTagUnderline :: AttrLabelProxy "underline" -textTagUnderline = AttrLabelProxy - -textTagUnderlineRgba :: AttrLabelProxy "underlineRgba" -textTagUnderlineRgba = AttrLabelProxy - -textTagUnderlineRgbaSet :: AttrLabelProxy "underlineRgbaSet" -textTagUnderlineRgbaSet = AttrLabelProxy - -textTagUnderlineSet :: AttrLabelProxy "underlineSet" -textTagUnderlineSet = AttrLabelProxy - -textTagVariant :: AttrLabelProxy "variant" -textTagVariant = AttrLabelProxy - -textTagVariantSet :: AttrLabelProxy "variantSet" -textTagVariantSet = AttrLabelProxy - -textTagWeight :: AttrLabelProxy "weight" -textTagWeight = AttrLabelProxy - -textTagWeightSet :: AttrLabelProxy "weightSet" -textTagWeightSet = AttrLabelProxy - -textTagWrapMode :: AttrLabelProxy "wrapMode" -textTagWrapMode = AttrLabelProxy - -textTagWrapModeSet :: AttrLabelProxy "wrapModeSet" -textTagWrapModeSet = AttrLabelProxy - -data TextTagEventSignalInfo -instance SignalInfo TextTagEventSignalInfo where - type HaskellCallbackType TextTagEventSignalInfo = TextTagEventCallback - connectSignal _ = connectTextTagEvent - -type instance SignalList TextTag = TextTagSignalList -type TextTagSignalList = ('[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextTag::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextTag") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_tag_new" gtk_text_tag_new :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr TextTag) - - -textTagNew :: - (MonadIO m) => - Maybe (T.Text) -- name - -> m TextTag -- result -textTagNew name = liftIO $ do - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - result <- gtk_text_tag_new maybeName - checkUnexpectedReturnNULL "gtk_text_tag_new" result - result' <- (wrapObject TextTag) result - freeMem maybeName - return result' - --- method TextTag::event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_tag_event" gtk_text_tag_event :: - Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag" - Ptr GObject.Object -> -- event_object : TInterface "GObject" "Object" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textTagEvent :: - (MonadIO m, TextTagK a, GObject.ObjectK b) => - a -- _obj - -> b -- eventObject - -> Gdk.Event -- event - -> TextIter -- iter - -> m Bool -- result -textTagEvent _obj eventObject event iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let eventObject' = unsafeManagedPtrCastPtr eventObject - let event' = unsafeManagedPtrGetPtr event - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_tag_event _obj' eventObject' event' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr eventObject - touchManagedPtr event - touchManagedPtr iter - return result' - -data TextTagEventMethodInfo -instance (signature ~ (b -> Gdk.Event -> TextIter -> m Bool), MonadIO m, TextTagK a, GObject.ObjectK b) => MethodInfo TextTagEventMethodInfo a signature where - overloadedMethod _ = textTagEvent - --- method TextTag::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", 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 "gtk_text_tag_get_priority" gtk_text_tag_get_priority :: - Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag" - IO Int32 - - -textTagGetPriority :: - (MonadIO m, TextTagK a) => - a -- _obj - -> m Int32 -- result -textTagGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_tag_get_priority _obj' - touchManagedPtr _obj - return result - -data TextTagGetPriorityMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextTagK a) => MethodInfo TextTagGetPriorityMethodInfo a signature where - overloadedMethod _ = textTagGetPriority - --- method TextTag::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", 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 "gtk_text_tag_set_priority" gtk_text_tag_set_priority :: - Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag" - Int32 -> -- priority : TBasicType TInt - IO () - - -textTagSetPriority :: - (MonadIO m, TextTagK a) => - a -- _obj - -> Int32 -- priority - -> m () -- result -textTagSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_tag_set_priority _obj' priority - touchManagedPtr _obj - return () - -data TextTagSetPriorityMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextTagK a) => MethodInfo TextTagSetPriorityMethodInfo a signature where - overloadedMethod _ = textTagSetPriority - - diff --git a/GI/Gtk/Objects/TextTag.hs-boot b/GI/Gtk/Objects/TextTag.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextTag.hs-boot +++ /dev/null @@ -1,91 +0,0 @@ -module GI.Gtk.Objects.TextTag 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 TextTag = TextTag (ForeignPtr TextTag) -instance GObject TextTag where -class GObject o => TextTagK o -instance (GObject o, IsDescendantOf TextTag o) => TextTagK o -data TextTagAccumulativeMarginPropertyInfo -data TextTagBackgroundPropertyInfo -data TextTagBackgroundFullHeightPropertyInfo -data TextTagBackgroundFullHeightSetPropertyInfo -data TextTagBackgroundGdkPropertyInfo -data TextTagBackgroundRgbaPropertyInfo -data TextTagBackgroundSetPropertyInfo -data TextTagDirectionPropertyInfo -data TextTagEditablePropertyInfo -data TextTagEditableSetPropertyInfo -data TextTagFallbackPropertyInfo -data TextTagFallbackSetPropertyInfo -data TextTagFamilyPropertyInfo -data TextTagFamilySetPropertyInfo -data TextTagFontPropertyInfo -data TextTagFontDescPropertyInfo -data TextTagFontFeaturesPropertyInfo -data TextTagFontFeaturesSetPropertyInfo -data TextTagForegroundPropertyInfo -data TextTagForegroundGdkPropertyInfo -data TextTagForegroundRgbaPropertyInfo -data TextTagForegroundSetPropertyInfo -data TextTagIndentPropertyInfo -data TextTagIndentSetPropertyInfo -data TextTagInvisiblePropertyInfo -data TextTagInvisibleSetPropertyInfo -data TextTagJustificationPropertyInfo -data TextTagJustificationSetPropertyInfo -data TextTagLanguagePropertyInfo -data TextTagLanguageSetPropertyInfo -data TextTagLeftMarginPropertyInfo -data TextTagLeftMarginSetPropertyInfo -data TextTagLetterSpacingPropertyInfo -data TextTagLetterSpacingSetPropertyInfo -data TextTagNamePropertyInfo -data TextTagParagraphBackgroundPropertyInfo -data TextTagParagraphBackgroundGdkPropertyInfo -data TextTagParagraphBackgroundRgbaPropertyInfo -data TextTagParagraphBackgroundSetPropertyInfo -data TextTagPixelsAboveLinesPropertyInfo -data TextTagPixelsAboveLinesSetPropertyInfo -data TextTagPixelsBelowLinesPropertyInfo -data TextTagPixelsBelowLinesSetPropertyInfo -data TextTagPixelsInsideWrapPropertyInfo -data TextTagPixelsInsideWrapSetPropertyInfo -data TextTagRightMarginPropertyInfo -data TextTagRightMarginSetPropertyInfo -data TextTagRisePropertyInfo -data TextTagRiseSetPropertyInfo -data TextTagScalePropertyInfo -data TextTagScaleSetPropertyInfo -data TextTagSizePropertyInfo -data TextTagSizePointsPropertyInfo -data TextTagSizeSetPropertyInfo -data TextTagStretchPropertyInfo -data TextTagStretchSetPropertyInfo -data TextTagStrikethroughPropertyInfo -data TextTagStrikethroughRgbaPropertyInfo -data TextTagStrikethroughRgbaSetPropertyInfo -data TextTagStrikethroughSetPropertyInfo -data TextTagStylePropertyInfo -data TextTagStyleSetPropertyInfo -data TextTagTabsPropertyInfo -data TextTagTabsSetPropertyInfo -data TextTagUnderlinePropertyInfo -data TextTagUnderlineRgbaPropertyInfo -data TextTagUnderlineRgbaSetPropertyInfo -data TextTagUnderlineSetPropertyInfo -data TextTagVariantPropertyInfo -data TextTagVariantSetPropertyInfo -data TextTagWeightPropertyInfo -data TextTagWeightSetPropertyInfo -data TextTagWrapModePropertyInfo -data TextTagWrapModeSetPropertyInfo -data TextTagEventSignalInfo -data TextTagEventMethodInfo -data TextTagGetPriorityMethodInfo -data TextTagSetPriorityMethodInfo diff --git a/GI/Gtk/Objects/TextTagTable.hs b/GI/Gtk/Objects/TextTagTable.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextTagTable.hs +++ /dev/null @@ -1,500 +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.Gtk.Objects.TextTagTable - ( - --- * Exported types - TextTagTable(..) , - TextTagTableK , - toTextTagTable , - noTextTagTable , - - - -- * Methods --- ** textTagTableAdd - TextTagTableAddMethodInfo , - textTagTableAdd , - - --- ** textTagTableForeach - TextTagTableForeachMethodInfo , - textTagTableForeach , - - --- ** textTagTableGetSize - TextTagTableGetSizeMethodInfo , - textTagTableGetSize , - - --- ** textTagTableLookup - TextTagTableLookupMethodInfo , - textTagTableLookup , - - --- ** textTagTableNew - textTagTableNew , - - --- ** textTagTableRemove - TextTagTableRemoveMethodInfo , - textTagTableRemove , - - - - - -- * Signals --- ** TagAdded - TextTagTableTagAddedCallback , - TextTagTableTagAddedCallbackC , - TextTagTableTagAddedSignalInfo , - afterTextTagTableTagAdded , - mkTextTagTableTagAddedCallback , - noTextTagTableTagAddedCallback , - onTextTagTableTagAdded , - textTagTableTagAddedCallbackWrapper , - textTagTableTagAddedClosure , - - --- ** TagChanged - TextTagTableTagChangedCallback , - TextTagTableTagChangedCallbackC , - TextTagTableTagChangedSignalInfo , - afterTextTagTableTagChanged , - mkTextTagTableTagChangedCallback , - noTextTagTableTagChangedCallback , - onTextTagTableTagChanged , - textTagTableTagChangedCallbackWrapper , - textTagTableTagChangedClosure , - - --- ** TagRemoved - TextTagTableTagRemovedCallback , - TextTagTableTagRemovedCallbackC , - TextTagTableTagRemovedSignalInfo , - afterTextTagTableTagRemoved , - mkTextTagTableTagRemovedCallback , - noTextTagTableTagRemovedCallback , - onTextTagTableTagRemoved , - textTagTableTagRemovedCallbackWrapper , - textTagTableTagRemovedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TextTagTable = TextTagTable (ForeignPtr TextTagTable) -foreign import ccall "gtk_text_tag_table_get_type" - c_gtk_text_tag_table_get_type :: IO GType - -type instance ParentTypes TextTagTable = TextTagTableParentTypes -type TextTagTableParentTypes = '[GObject.Object, Buildable] - -instance GObject TextTagTable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_tag_table_get_type - - -class GObject o => TextTagTableK o -instance (GObject o, IsDescendantOf TextTagTable o) => TextTagTableK o - -toTextTagTable :: TextTagTableK o => o -> IO TextTagTable -toTextTagTable = unsafeCastTo TextTagTable - -noTextTagTable :: Maybe TextTagTable -noTextTagTable = Nothing - -type family ResolveTextTagTableMethod (t :: Symbol) (o :: *) :: * where - ResolveTextTagTableMethod "add" o = TextTagTableAddMethodInfo - ResolveTextTagTableMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTextTagTableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextTagTableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextTagTableMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTextTagTableMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTextTagTableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTextTagTableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTextTagTableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextTagTableMethod "foreach" o = TextTagTableForeachMethodInfo - ResolveTextTagTableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextTagTableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextTagTableMethod "lookup" o = TextTagTableLookupMethodInfo - ResolveTextTagTableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextTagTableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextTagTableMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTextTagTableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextTagTableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextTagTableMethod "remove" o = TextTagTableRemoveMethodInfo - ResolveTextTagTableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextTagTableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextTagTableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextTagTableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextTagTableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextTagTableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextTagTableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextTagTableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextTagTableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextTagTableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTextTagTableMethod "getName" o = BuildableGetNameMethodInfo - ResolveTextTagTableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextTagTableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextTagTableMethod "getSize" o = TextTagTableGetSizeMethodInfo - ResolveTextTagTableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTextTagTableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextTagTableMethod "setName" o = BuildableSetNameMethodInfo - ResolveTextTagTableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextTagTableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextTagTableMethod t TextTagTable, MethodInfo info TextTagTable p) => IsLabelProxy t (TextTagTable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextTagTableMethod t TextTagTable, MethodInfo info TextTagTable p) => IsLabel t (TextTagTable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TextTagTable::tag-added -type TextTagTableTagAddedCallback = - TextTag -> - IO () - -noTextTagTableTagAddedCallback :: Maybe TextTagTableTagAddedCallback -noTextTagTableTagAddedCallback = Nothing - -type TextTagTableTagAddedCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTagTableTagAddedCallback :: TextTagTableTagAddedCallbackC -> IO (FunPtr TextTagTableTagAddedCallbackC) - -textTagTableTagAddedClosure :: TextTagTableTagAddedCallback -> IO Closure -textTagTableTagAddedClosure cb = newCClosure =<< mkTextTagTableTagAddedCallback wrapped - where wrapped = textTagTableTagAddedCallbackWrapper cb - -textTagTableTagAddedCallbackWrapper :: - TextTagTableTagAddedCallback -> - Ptr () -> - Ptr TextTag -> - Ptr () -> - IO () -textTagTableTagAddedCallbackWrapper _cb _ tag _ = do - tag' <- (newObject TextTag) tag - _cb tag' - -onTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId -onTextTagTableTagAdded obj cb = liftIO $ connectTextTagTableTagAdded obj cb SignalConnectBefore -afterTextTagTableTagAdded :: (GObject a, MonadIO m) => a -> TextTagTableTagAddedCallback -> m SignalHandlerId -afterTextTagTableTagAdded obj cb = connectTextTagTableTagAdded obj cb SignalConnectAfter - -connectTextTagTableTagAdded :: (GObject a, MonadIO m) => - a -> TextTagTableTagAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTagTableTagAdded obj cb after = liftIO $ do - cb' <- mkTextTagTableTagAddedCallback (textTagTableTagAddedCallbackWrapper cb) - connectSignalFunPtr obj "tag-added" cb' after - --- signal TextTagTable::tag-changed -type TextTagTableTagChangedCallback = - TextTag -> - Bool -> - IO () - -noTextTagTableTagChangedCallback :: Maybe TextTagTableTagChangedCallback -noTextTagTableTagChangedCallback = Nothing - -type TextTagTableTagChangedCallbackC = - Ptr () -> -- object - Ptr TextTag -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTagTableTagChangedCallback :: TextTagTableTagChangedCallbackC -> IO (FunPtr TextTagTableTagChangedCallbackC) - -textTagTableTagChangedClosure :: TextTagTableTagChangedCallback -> IO Closure -textTagTableTagChangedClosure cb = newCClosure =<< mkTextTagTableTagChangedCallback wrapped - where wrapped = textTagTableTagChangedCallbackWrapper cb - -textTagTableTagChangedCallbackWrapper :: - TextTagTableTagChangedCallback -> - Ptr () -> - Ptr TextTag -> - CInt -> - Ptr () -> - IO () -textTagTableTagChangedCallbackWrapper _cb _ tag sizeChanged _ = do - tag' <- (newObject TextTag) tag - let sizeChanged' = (/= 0) sizeChanged - _cb tag' sizeChanged' - -onTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId -onTextTagTableTagChanged obj cb = liftIO $ connectTextTagTableTagChanged obj cb SignalConnectBefore -afterTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId -afterTextTagTableTagChanged obj cb = connectTextTagTableTagChanged obj cb SignalConnectAfter - -connectTextTagTableTagChanged :: (GObject a, MonadIO m) => - a -> TextTagTableTagChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTagTableTagChanged obj cb after = liftIO $ do - cb' <- mkTextTagTableTagChangedCallback (textTagTableTagChangedCallbackWrapper cb) - connectSignalFunPtr obj "tag-changed" cb' after - --- signal TextTagTable::tag-removed -type TextTagTableTagRemovedCallback = - TextTag -> - IO () - -noTextTagTableTagRemovedCallback :: Maybe TextTagTableTagRemovedCallback -noTextTagTableTagRemovedCallback = Nothing - -type TextTagTableTagRemovedCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTagTableTagRemovedCallback :: TextTagTableTagRemovedCallbackC -> IO (FunPtr TextTagTableTagRemovedCallbackC) - -textTagTableTagRemovedClosure :: TextTagTableTagRemovedCallback -> IO Closure -textTagTableTagRemovedClosure cb = newCClosure =<< mkTextTagTableTagRemovedCallback wrapped - where wrapped = textTagTableTagRemovedCallbackWrapper cb - -textTagTableTagRemovedCallbackWrapper :: - TextTagTableTagRemovedCallback -> - Ptr () -> - Ptr TextTag -> - Ptr () -> - IO () -textTagTableTagRemovedCallbackWrapper _cb _ tag _ = do - tag' <- (newObject TextTag) tag - _cb tag' - -onTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId -onTextTagTableTagRemoved obj cb = liftIO $ connectTextTagTableTagRemoved obj cb SignalConnectBefore -afterTextTagTableTagRemoved :: (GObject a, MonadIO m) => a -> TextTagTableTagRemovedCallback -> m SignalHandlerId -afterTextTagTableTagRemoved obj cb = connectTextTagTableTagRemoved obj cb SignalConnectAfter - -connectTextTagTableTagRemoved :: (GObject a, MonadIO m) => - a -> TextTagTableTagRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTagTableTagRemoved obj cb after = liftIO $ do - cb' <- mkTextTagTableTagRemovedCallback (textTagTableTagRemovedCallbackWrapper cb) - connectSignalFunPtr obj "tag-removed" cb' after - -type instance AttributeList TextTagTable = TextTagTableAttributeList -type TextTagTableAttributeList = ('[ ] :: [(Symbol, *)]) - -data TextTagTableTagAddedSignalInfo -instance SignalInfo TextTagTableTagAddedSignalInfo where - type HaskellCallbackType TextTagTableTagAddedSignalInfo = TextTagTableTagAddedCallback - connectSignal _ = connectTextTagTableTagAdded - -data TextTagTableTagChangedSignalInfo -instance SignalInfo TextTagTableTagChangedSignalInfo where - type HaskellCallbackType TextTagTableTagChangedSignalInfo = TextTagTableTagChangedCallback - connectSignal _ = connectTextTagTableTagChanged - -data TextTagTableTagRemovedSignalInfo -instance SignalInfo TextTagTableTagRemovedSignalInfo where - type HaskellCallbackType TextTagTableTagRemovedSignalInfo = TextTagTableTagRemovedCallback - connectSignal _ = connectTextTagTableTagRemoved - -type instance SignalList TextTagTable = TextTagTableSignalList -type TextTagTableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("tagAdded", TextTagTableTagAddedSignalInfo), '("tagChanged", TextTagTableTagChangedSignalInfo), '("tagRemoved", TextTagTableTagRemovedSignalInfo)] :: [(Symbol, *)]) - --- method TextTagTable::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextTagTable") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_tag_table_new" gtk_text_tag_table_new :: - IO (Ptr TextTagTable) - - -textTagTableNew :: - (MonadIO m) => - m TextTagTable -- result -textTagTableNew = liftIO $ do - result <- gtk_text_tag_table_new - checkUnexpectedReturnNULL "gtk_text_tag_table_new" result - result' <- (wrapObject TextTagTable) result - return result' - --- method TextTagTable::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", 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 "gtk_text_tag_table_add" gtk_text_tag_table_add :: - Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textTagTableAdd :: - (MonadIO m, TextTagTableK a, TextTagK b) => - a -- _obj - -> b -- tag - -> m Bool -- result -textTagTableAdd _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - result <- gtk_text_tag_table_add _obj' tag' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr tag - return result' - -data TextTagTableAddMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, TextTagTableK a, TextTagK b) => MethodInfo TextTagTableAddMethodInfo a signature where - overloadedMethod _ = textTagTableAdd - --- method TextTagTable::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_text_tag_table_foreach" gtk_text_tag_table_foreach :: - Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" - FunPtr TextTagTableForeachC -> -- func : TInterface "Gtk" "TextTagTableForeach" - Ptr () -> -- data : TBasicType TPtr - IO () - - -textTagTableForeach :: - (MonadIO m, TextTagTableK a) => - a -- _obj - -> TextTagTableForeach -- func - -> m () -- result -textTagTableForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTextTagTableForeach (textTagTableForeachWrapper Nothing func) - let data_ = nullPtr - gtk_text_tag_table_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data TextTagTableForeachMethodInfo -instance (signature ~ (TextTagTableForeach -> m ()), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableForeachMethodInfo a signature where - overloadedMethod _ = textTagTableForeach - --- method TextTagTable::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", 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 "gtk_text_tag_table_get_size" gtk_text_tag_table_get_size :: - Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" - IO Int32 - - -textTagTableGetSize :: - (MonadIO m, TextTagTableK a) => - a -- _obj - -> m Int32 -- result -textTagTableGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_tag_table_get_size _obj' - touchManagedPtr _obj - return result - -data TextTagTableGetSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableGetSizeMethodInfo a signature where - overloadedMethod _ = textTagTableGetSize - --- method TextTagTable::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", 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 : Just (TInterface "Gtk" "TextTag") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_tag_table_lookup" gtk_text_tag_table_lookup :: - Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" - CString -> -- name : TBasicType TUTF8 - IO (Ptr TextTag) - - -textTagTableLookup :: - (MonadIO m, TextTagTableK a) => - a -- _obj - -> T.Text -- name - -> m TextTag -- result -textTagTableLookup _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_text_tag_table_lookup _obj' name' - checkUnexpectedReturnNULL "gtk_text_tag_table_lookup" result - result' <- (newObject TextTag) result - touchManagedPtr _obj - freeMem name' - return result' - -data TextTagTableLookupMethodInfo -instance (signature ~ (T.Text -> m TextTag), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableLookupMethodInfo a signature where - overloadedMethod _ = textTagTableLookup - --- method TextTagTable::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", 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 "gtk_text_tag_table_remove" gtk_text_tag_table_remove :: - Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO () - - -textTagTableRemove :: - (MonadIO m, TextTagTableK a, TextTagK b) => - a -- _obj - -> b -- tag - -> m () -- result -textTagTableRemove _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - gtk_text_tag_table_remove _obj' tag' - touchManagedPtr _obj - touchManagedPtr tag - return () - -data TextTagTableRemoveMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextTagTableK a, TextTagK b) => MethodInfo TextTagTableRemoveMethodInfo a signature where - overloadedMethod _ = textTagTableRemove - - diff --git a/GI/Gtk/Objects/TextTagTable.hs-boot b/GI/Gtk/Objects/TextTagTable.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextTagTable.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.TextTagTable 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 TextTagTable = TextTagTable (ForeignPtr TextTagTable) -instance GObject TextTagTable where -class GObject o => TextTagTableK o -instance (GObject o, IsDescendantOf TextTagTable o) => TextTagTableK o -data TextTagTableTagAddedSignalInfo -data TextTagTableTagChangedSignalInfo -data TextTagTableTagRemovedSignalInfo -data TextTagTableAddMethodInfo -data TextTagTableForeachMethodInfo -data TextTagTableGetSizeMethodInfo -data TextTagTableLookupMethodInfo -data TextTagTableRemoveMethodInfo diff --git a/GI/Gtk/Objects/TextView.hs b/GI/Gtk/Objects/TextView.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextView.hs +++ /dev/null @@ -1,4721 +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.Gtk.Objects.TextView - ( - --- * Exported types - TextView(..) , - TextViewK , - toTextView , - noTextView , - - - -- * Methods --- ** textViewAddChildAtAnchor - TextViewAddChildAtAnchorMethodInfo , - textViewAddChildAtAnchor , - - --- ** textViewAddChildInWindow - TextViewAddChildInWindowMethodInfo , - textViewAddChildInWindow , - - --- ** textViewBackwardDisplayLine - TextViewBackwardDisplayLineMethodInfo , - textViewBackwardDisplayLine , - - --- ** textViewBackwardDisplayLineStart - TextViewBackwardDisplayLineStartMethodInfo, - textViewBackwardDisplayLineStart , - - --- ** textViewBufferToWindowCoords - TextViewBufferToWindowCoordsMethodInfo , - textViewBufferToWindowCoords , - - --- ** textViewForwardDisplayLine - TextViewForwardDisplayLineMethodInfo , - textViewForwardDisplayLine , - - --- ** textViewForwardDisplayLineEnd - TextViewForwardDisplayLineEndMethodInfo , - textViewForwardDisplayLineEnd , - - --- ** textViewGetAcceptsTab - TextViewGetAcceptsTabMethodInfo , - textViewGetAcceptsTab , - - --- ** textViewGetBorderWindowSize - TextViewGetBorderWindowSizeMethodInfo , - textViewGetBorderWindowSize , - - --- ** textViewGetBottomMargin - TextViewGetBottomMarginMethodInfo , - textViewGetBottomMargin , - - --- ** textViewGetBuffer - TextViewGetBufferMethodInfo , - textViewGetBuffer , - - --- ** textViewGetCursorLocations - TextViewGetCursorLocationsMethodInfo , - textViewGetCursorLocations , - - --- ** textViewGetCursorVisible - TextViewGetCursorVisibleMethodInfo , - textViewGetCursorVisible , - - --- ** textViewGetDefaultAttributes - TextViewGetDefaultAttributesMethodInfo , - textViewGetDefaultAttributes , - - --- ** textViewGetEditable - TextViewGetEditableMethodInfo , - textViewGetEditable , - - --- ** textViewGetHadjustment - TextViewGetHadjustmentMethodInfo , - textViewGetHadjustment , - - --- ** textViewGetIndent - TextViewGetIndentMethodInfo , - textViewGetIndent , - - --- ** textViewGetInputHints - TextViewGetInputHintsMethodInfo , - textViewGetInputHints , - - --- ** textViewGetInputPurpose - TextViewGetInputPurposeMethodInfo , - textViewGetInputPurpose , - - --- ** textViewGetIterAtLocation - TextViewGetIterAtLocationMethodInfo , - textViewGetIterAtLocation , - - --- ** textViewGetIterAtPosition - TextViewGetIterAtPositionMethodInfo , - textViewGetIterAtPosition , - - --- ** textViewGetIterLocation - TextViewGetIterLocationMethodInfo , - textViewGetIterLocation , - - --- ** textViewGetJustification - TextViewGetJustificationMethodInfo , - textViewGetJustification , - - --- ** textViewGetLeftMargin - TextViewGetLeftMarginMethodInfo , - textViewGetLeftMargin , - - --- ** textViewGetLineAtY - TextViewGetLineAtYMethodInfo , - textViewGetLineAtY , - - --- ** textViewGetLineYrange - TextViewGetLineYrangeMethodInfo , - textViewGetLineYrange , - - --- ** textViewGetMonospace - TextViewGetMonospaceMethodInfo , - textViewGetMonospace , - - --- ** textViewGetOverwrite - TextViewGetOverwriteMethodInfo , - textViewGetOverwrite , - - --- ** textViewGetPixelsAboveLines - TextViewGetPixelsAboveLinesMethodInfo , - textViewGetPixelsAboveLines , - - --- ** textViewGetPixelsBelowLines - TextViewGetPixelsBelowLinesMethodInfo , - textViewGetPixelsBelowLines , - - --- ** textViewGetPixelsInsideWrap - TextViewGetPixelsInsideWrapMethodInfo , - textViewGetPixelsInsideWrap , - - --- ** textViewGetRightMargin - TextViewGetRightMarginMethodInfo , - textViewGetRightMargin , - - --- ** textViewGetTabs - TextViewGetTabsMethodInfo , - textViewGetTabs , - - --- ** textViewGetTopMargin - TextViewGetTopMarginMethodInfo , - textViewGetTopMargin , - - --- ** textViewGetVadjustment - TextViewGetVadjustmentMethodInfo , - textViewGetVadjustment , - - --- ** textViewGetVisibleRect - TextViewGetVisibleRectMethodInfo , - textViewGetVisibleRect , - - --- ** textViewGetWindow - TextViewGetWindowMethodInfo , - textViewGetWindow , - - --- ** textViewGetWindowType - TextViewGetWindowTypeMethodInfo , - textViewGetWindowType , - - --- ** textViewGetWrapMode - TextViewGetWrapModeMethodInfo , - textViewGetWrapMode , - - --- ** textViewImContextFilterKeypress - TextViewImContextFilterKeypressMethodInfo, - textViewImContextFilterKeypress , - - --- ** textViewMoveChild - TextViewMoveChildMethodInfo , - textViewMoveChild , - - --- ** textViewMoveMarkOnscreen - TextViewMoveMarkOnscreenMethodInfo , - textViewMoveMarkOnscreen , - - --- ** textViewMoveVisually - TextViewMoveVisuallyMethodInfo , - textViewMoveVisually , - - --- ** textViewNew - textViewNew , - - --- ** textViewNewWithBuffer - textViewNewWithBuffer , - - --- ** textViewPlaceCursorOnscreen - TextViewPlaceCursorOnscreenMethodInfo , - textViewPlaceCursorOnscreen , - - --- ** textViewResetImContext - TextViewResetImContextMethodInfo , - textViewResetImContext , - - --- ** textViewScrollMarkOnscreen - TextViewScrollMarkOnscreenMethodInfo , - textViewScrollMarkOnscreen , - - --- ** textViewScrollToIter - TextViewScrollToIterMethodInfo , - textViewScrollToIter , - - --- ** textViewScrollToMark - TextViewScrollToMarkMethodInfo , - textViewScrollToMark , - - --- ** textViewSetAcceptsTab - TextViewSetAcceptsTabMethodInfo , - textViewSetAcceptsTab , - - --- ** textViewSetBorderWindowSize - TextViewSetBorderWindowSizeMethodInfo , - textViewSetBorderWindowSize , - - --- ** textViewSetBottomMargin - TextViewSetBottomMarginMethodInfo , - textViewSetBottomMargin , - - --- ** textViewSetBuffer - TextViewSetBufferMethodInfo , - textViewSetBuffer , - - --- ** textViewSetCursorVisible - TextViewSetCursorVisibleMethodInfo , - textViewSetCursorVisible , - - --- ** textViewSetEditable - TextViewSetEditableMethodInfo , - textViewSetEditable , - - --- ** textViewSetIndent - TextViewSetIndentMethodInfo , - textViewSetIndent , - - --- ** textViewSetInputHints - TextViewSetInputHintsMethodInfo , - textViewSetInputHints , - - --- ** textViewSetInputPurpose - TextViewSetInputPurposeMethodInfo , - textViewSetInputPurpose , - - --- ** textViewSetJustification - TextViewSetJustificationMethodInfo , - textViewSetJustification , - - --- ** textViewSetLeftMargin - TextViewSetLeftMarginMethodInfo , - textViewSetLeftMargin , - - --- ** textViewSetMonospace - TextViewSetMonospaceMethodInfo , - textViewSetMonospace , - - --- ** textViewSetOverwrite - TextViewSetOverwriteMethodInfo , - textViewSetOverwrite , - - --- ** textViewSetPixelsAboveLines - TextViewSetPixelsAboveLinesMethodInfo , - textViewSetPixelsAboveLines , - - --- ** textViewSetPixelsBelowLines - TextViewSetPixelsBelowLinesMethodInfo , - textViewSetPixelsBelowLines , - - --- ** textViewSetPixelsInsideWrap - TextViewSetPixelsInsideWrapMethodInfo , - textViewSetPixelsInsideWrap , - - --- ** textViewSetRightMargin - TextViewSetRightMarginMethodInfo , - textViewSetRightMargin , - - --- ** textViewSetTabs - TextViewSetTabsMethodInfo , - textViewSetTabs , - - --- ** textViewSetTopMargin - TextViewSetTopMarginMethodInfo , - textViewSetTopMargin , - - --- ** textViewSetWrapMode - TextViewSetWrapModeMethodInfo , - textViewSetWrapMode , - - --- ** textViewStartsDisplayLine - TextViewStartsDisplayLineMethodInfo , - textViewStartsDisplayLine , - - --- ** textViewWindowToBufferCoords - TextViewWindowToBufferCoordsMethodInfo , - textViewWindowToBufferCoords , - - - - - -- * Properties --- ** AcceptsTab - TextViewAcceptsTabPropertyInfo , - constructTextViewAcceptsTab , - getTextViewAcceptsTab , - setTextViewAcceptsTab , - textViewAcceptsTab , - - --- ** BottomMargin - TextViewBottomMarginPropertyInfo , - constructTextViewBottomMargin , - getTextViewBottomMargin , - setTextViewBottomMargin , - textViewBottomMargin , - - --- ** Buffer - TextViewBufferPropertyInfo , - clearTextViewBuffer , - constructTextViewBuffer , - getTextViewBuffer , - setTextViewBuffer , - textViewBuffer , - - --- ** CursorVisible - TextViewCursorVisiblePropertyInfo , - constructTextViewCursorVisible , - getTextViewCursorVisible , - setTextViewCursorVisible , - textViewCursorVisible , - - --- ** Editable - TextViewEditablePropertyInfo , - constructTextViewEditable , - getTextViewEditable , - setTextViewEditable , - textViewEditable , - - --- ** ImModule - TextViewImModulePropertyInfo , - clearTextViewImModule , - constructTextViewImModule , - getTextViewImModule , - setTextViewImModule , - textViewImModule , - - --- ** Indent - TextViewIndentPropertyInfo , - constructTextViewIndent , - getTextViewIndent , - setTextViewIndent , - textViewIndent , - - --- ** InputHints - TextViewInputHintsPropertyInfo , - constructTextViewInputHints , - getTextViewInputHints , - setTextViewInputHints , - textViewInputHints , - - --- ** InputPurpose - TextViewInputPurposePropertyInfo , - constructTextViewInputPurpose , - getTextViewInputPurpose , - setTextViewInputPurpose , - textViewInputPurpose , - - --- ** Justification - TextViewJustificationPropertyInfo , - constructTextViewJustification , - getTextViewJustification , - setTextViewJustification , - textViewJustification , - - --- ** LeftMargin - TextViewLeftMarginPropertyInfo , - constructTextViewLeftMargin , - getTextViewLeftMargin , - setTextViewLeftMargin , - textViewLeftMargin , - - --- ** Monospace - TextViewMonospacePropertyInfo , - constructTextViewMonospace , - getTextViewMonospace , - setTextViewMonospace , - textViewMonospace , - - --- ** Overwrite - TextViewOverwritePropertyInfo , - constructTextViewOverwrite , - getTextViewOverwrite , - setTextViewOverwrite , - textViewOverwrite , - - --- ** PixelsAboveLines - TextViewPixelsAboveLinesPropertyInfo , - constructTextViewPixelsAboveLines , - getTextViewPixelsAboveLines , - setTextViewPixelsAboveLines , - textViewPixelsAboveLines , - - --- ** PixelsBelowLines - TextViewPixelsBelowLinesPropertyInfo , - constructTextViewPixelsBelowLines , - getTextViewPixelsBelowLines , - setTextViewPixelsBelowLines , - textViewPixelsBelowLines , - - --- ** PixelsInsideWrap - TextViewPixelsInsideWrapPropertyInfo , - constructTextViewPixelsInsideWrap , - getTextViewPixelsInsideWrap , - setTextViewPixelsInsideWrap , - textViewPixelsInsideWrap , - - --- ** PopulateAll - TextViewPopulateAllPropertyInfo , - constructTextViewPopulateAll , - getTextViewPopulateAll , - setTextViewPopulateAll , - textViewPopulateAll , - - --- ** RightMargin - TextViewRightMarginPropertyInfo , - constructTextViewRightMargin , - getTextViewRightMargin , - setTextViewRightMargin , - textViewRightMargin , - - --- ** Tabs - TextViewTabsPropertyInfo , - constructTextViewTabs , - getTextViewTabs , - setTextViewTabs , - textViewTabs , - - --- ** TopMargin - TextViewTopMarginPropertyInfo , - constructTextViewTopMargin , - getTextViewTopMargin , - setTextViewTopMargin , - textViewTopMargin , - - --- ** WrapMode - TextViewWrapModePropertyInfo , - constructTextViewWrapMode , - getTextViewWrapMode , - setTextViewWrapMode , - textViewWrapMode , - - - - - -- * Signals --- ** Backspace - TextViewBackspaceCallback , - TextViewBackspaceCallbackC , - TextViewBackspaceSignalInfo , - afterTextViewBackspace , - mkTextViewBackspaceCallback , - noTextViewBackspaceCallback , - onTextViewBackspace , - textViewBackspaceCallbackWrapper , - textViewBackspaceClosure , - - --- ** CopyClipboard - TextViewCopyClipboardCallback , - TextViewCopyClipboardCallbackC , - TextViewCopyClipboardSignalInfo , - afterTextViewCopyClipboard , - mkTextViewCopyClipboardCallback , - noTextViewCopyClipboardCallback , - onTextViewCopyClipboard , - textViewCopyClipboardCallbackWrapper , - textViewCopyClipboardClosure , - - --- ** CutClipboard - TextViewCutClipboardCallback , - TextViewCutClipboardCallbackC , - TextViewCutClipboardSignalInfo , - afterTextViewCutClipboard , - mkTextViewCutClipboardCallback , - noTextViewCutClipboardCallback , - onTextViewCutClipboard , - textViewCutClipboardCallbackWrapper , - textViewCutClipboardClosure , - - --- ** DeleteFromCursor - TextViewDeleteFromCursorCallback , - TextViewDeleteFromCursorCallbackC , - TextViewDeleteFromCursorSignalInfo , - afterTextViewDeleteFromCursor , - mkTextViewDeleteFromCursorCallback , - noTextViewDeleteFromCursorCallback , - onTextViewDeleteFromCursor , - textViewDeleteFromCursorCallbackWrapper , - textViewDeleteFromCursorClosure , - - --- ** ExtendSelection - TextViewExtendSelectionCallback , - TextViewExtendSelectionCallbackC , - TextViewExtendSelectionSignalInfo , - afterTextViewExtendSelection , - mkTextViewExtendSelectionCallback , - noTextViewExtendSelectionCallback , - onTextViewExtendSelection , - textViewExtendSelectionCallbackWrapper , - textViewExtendSelectionClosure , - - --- ** InsertAtCursor - TextViewInsertAtCursorCallback , - TextViewInsertAtCursorCallbackC , - TextViewInsertAtCursorSignalInfo , - afterTextViewInsertAtCursor , - mkTextViewInsertAtCursorCallback , - noTextViewInsertAtCursorCallback , - onTextViewInsertAtCursor , - textViewInsertAtCursorCallbackWrapper , - textViewInsertAtCursorClosure , - - --- ** MoveCursor - TextViewMoveCursorCallback , - TextViewMoveCursorCallbackC , - TextViewMoveCursorSignalInfo , - afterTextViewMoveCursor , - mkTextViewMoveCursorCallback , - noTextViewMoveCursorCallback , - onTextViewMoveCursor , - textViewMoveCursorCallbackWrapper , - textViewMoveCursorClosure , - - --- ** MoveViewport - TextViewMoveViewportCallback , - TextViewMoveViewportCallbackC , - TextViewMoveViewportSignalInfo , - afterTextViewMoveViewport , - mkTextViewMoveViewportCallback , - noTextViewMoveViewportCallback , - onTextViewMoveViewport , - textViewMoveViewportCallbackWrapper , - textViewMoveViewportClosure , - - --- ** PasteClipboard - TextViewPasteClipboardCallback , - TextViewPasteClipboardCallbackC , - TextViewPasteClipboardSignalInfo , - afterTextViewPasteClipboard , - mkTextViewPasteClipboardCallback , - noTextViewPasteClipboardCallback , - onTextViewPasteClipboard , - textViewPasteClipboardCallbackWrapper , - textViewPasteClipboardClosure , - - --- ** PopulatePopup - TextViewPopulatePopupCallback , - TextViewPopulatePopupCallbackC , - TextViewPopulatePopupSignalInfo , - afterTextViewPopulatePopup , - mkTextViewPopulatePopupCallback , - noTextViewPopulatePopupCallback , - onTextViewPopulatePopup , - textViewPopulatePopupCallbackWrapper , - textViewPopulatePopupClosure , - - --- ** PreeditChanged - TextViewPreeditChangedCallback , - TextViewPreeditChangedCallbackC , - TextViewPreeditChangedSignalInfo , - afterTextViewPreeditChanged , - mkTextViewPreeditChangedCallback , - noTextViewPreeditChangedCallback , - onTextViewPreeditChanged , - textViewPreeditChangedCallbackWrapper , - textViewPreeditChangedClosure , - - --- ** SelectAll - TextViewSelectAllCallback , - TextViewSelectAllCallbackC , - TextViewSelectAllSignalInfo , - afterTextViewSelectAll , - mkTextViewSelectAllCallback , - noTextViewSelectAllCallback , - onTextViewSelectAll , - textViewSelectAllCallbackWrapper , - textViewSelectAllClosure , - - --- ** SetAnchor - TextViewSetAnchorCallback , - TextViewSetAnchorCallbackC , - TextViewSetAnchorSignalInfo , - afterTextViewSetAnchor , - mkTextViewSetAnchorCallback , - noTextViewSetAnchorCallback , - onTextViewSetAnchor , - textViewSetAnchorCallbackWrapper , - textViewSetAnchorClosure , - - --- ** ToggleCursorVisible - TextViewToggleCursorVisibleCallback , - TextViewToggleCursorVisibleCallbackC , - TextViewToggleCursorVisibleSignalInfo , - afterTextViewToggleCursorVisible , - mkTextViewToggleCursorVisibleCallback , - noTextViewToggleCursorVisibleCallback , - onTextViewToggleCursorVisible , - textViewToggleCursorVisibleCallbackWrapper, - textViewToggleCursorVisibleClosure , - - --- ** ToggleOverwrite - TextViewToggleOverwriteCallback , - TextViewToggleOverwriteCallbackC , - TextViewToggleOverwriteSignalInfo , - afterTextViewToggleOverwrite , - mkTextViewToggleOverwriteCallback , - noTextViewToggleOverwriteCallback , - onTextViewToggleOverwrite , - textViewToggleOverwriteCallbackWrapper , - textViewToggleOverwriteClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype TextView = TextView (ForeignPtr TextView) -foreign import ccall "gtk_text_view_get_type" - c_gtk_text_view_get_type :: IO GType - -type instance ParentTypes TextView = TextViewParentTypes -type TextViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject TextView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_text_view_get_type - - -class GObject o => TextViewK o -instance (GObject o, IsDescendantOf TextView o) => TextViewK o - -toTextView :: TextViewK o => o -> IO TextView -toTextView = unsafeCastTo TextView - -noTextView :: Maybe TextView -noTextView = Nothing - -type family ResolveTextViewMethod (t :: Symbol) (o :: *) :: * where - ResolveTextViewMethod "activate" o = WidgetActivateMethodInfo - ResolveTextViewMethod "add" o = ContainerAddMethodInfo - ResolveTextViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveTextViewMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTextViewMethod "addChildAtAnchor" o = TextViewAddChildAtAnchorMethodInfo - ResolveTextViewMethod "addChildInWindow" o = TextViewAddChildInWindowMethodInfo - ResolveTextViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveTextViewMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveTextViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveTextViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveTextViewMethod "backwardDisplayLine" o = TextViewBackwardDisplayLineMethodInfo - ResolveTextViewMethod "backwardDisplayLineStart" o = TextViewBackwardDisplayLineStartMethodInfo - ResolveTextViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextViewMethod "bufferToWindowCoords" o = TextViewBufferToWindowCoordsMethodInfo - ResolveTextViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveTextViewMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveTextViewMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveTextViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveTextViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveTextViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveTextViewMethod "childType" o = ContainerChildTypeMethodInfo - ResolveTextViewMethod "classPath" o = WidgetClassPathMethodInfo - ResolveTextViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveTextViewMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTextViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveTextViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveTextViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTextViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTextViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTextViewMethod "destroy" o = WidgetDestroyMethodInfo - ResolveTextViewMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveTextViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveTextViewMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveTextViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveTextViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveTextViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveTextViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveTextViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveTextViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveTextViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveTextViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveTextViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveTextViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveTextViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveTextViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveTextViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveTextViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveTextViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveTextViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveTextViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveTextViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveTextViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveTextViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveTextViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveTextViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveTextViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveTextViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveTextViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveTextViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveTextViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveTextViewMethod "draw" o = WidgetDrawMethodInfo - ResolveTextViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveTextViewMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveTextViewMethod "event" o = WidgetEventMethodInfo - ResolveTextViewMethod "forall" o = ContainerForallMethodInfo - ResolveTextViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextViewMethod "foreach" o = ContainerForeachMethodInfo - ResolveTextViewMethod "forwardDisplayLine" o = TextViewForwardDisplayLineMethodInfo - ResolveTextViewMethod "forwardDisplayLineEnd" o = TextViewForwardDisplayLineEndMethodInfo - ResolveTextViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveTextViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextViewMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveTextViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveTextViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveTextViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveTextViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveTextViewMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveTextViewMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveTextViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveTextViewMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveTextViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveTextViewMethod "hide" o = WidgetHideMethodInfo - ResolveTextViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveTextViewMethod "imContextFilterKeypress" o = TextViewImContextFilterKeypressMethodInfo - ResolveTextViewMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveTextViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveTextViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveTextViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveTextViewMethod "intersect" o = WidgetIntersectMethodInfo - ResolveTextViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveTextViewMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveTextViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveTextViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextViewMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveTextViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveTextViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveTextViewMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveTextViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveTextViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveTextViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveTextViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveTextViewMethod "map" o = WidgetMapMethodInfo - ResolveTextViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveTextViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveTextViewMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveTextViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveTextViewMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveTextViewMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveTextViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveTextViewMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveTextViewMethod "moveChild" o = TextViewMoveChildMethodInfo - ResolveTextViewMethod "moveMarkOnscreen" o = TextViewMoveMarkOnscreenMethodInfo - ResolveTextViewMethod "moveVisually" o = TextViewMoveVisuallyMethodInfo - ResolveTextViewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveTextViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveTextViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveTextViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveTextViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveTextViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTextViewMethod "path" o = WidgetPathMethodInfo - ResolveTextViewMethod "placeCursorOnscreen" o = TextViewPlaceCursorOnscreenMethodInfo - ResolveTextViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveTextViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveTextViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveTextViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveTextViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveTextViewMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveTextViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveTextViewMethod "realize" o = WidgetRealizeMethodInfo - ResolveTextViewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveTextViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveTextViewMethod "remove" o = ContainerRemoveMethodInfo - ResolveTextViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveTextViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveTextViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveTextViewMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveTextViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveTextViewMethod "reparent" o = WidgetReparentMethodInfo - ResolveTextViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextViewMethod "resetImContext" o = TextViewResetImContextMethodInfo - ResolveTextViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveTextViewMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveTextViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveTextViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextViewMethod "scrollMarkOnscreen" o = TextViewScrollMarkOnscreenMethodInfo - ResolveTextViewMethod "scrollToIter" o = TextViewScrollToIterMethodInfo - ResolveTextViewMethod "scrollToMark" o = TextViewScrollToMarkMethodInfo - ResolveTextViewMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveTextViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveTextViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveTextViewMethod "show" o = WidgetShowMethodInfo - ResolveTextViewMethod "showAll" o = WidgetShowAllMethodInfo - ResolveTextViewMethod "showNow" o = WidgetShowNowMethodInfo - ResolveTextViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveTextViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveTextViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveTextViewMethod "startsDisplayLine" o = TextViewStartsDisplayLineMethodInfo - ResolveTextViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveTextViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveTextViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveTextViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveTextViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveTextViewMethod "unmap" o = WidgetUnmapMethodInfo - ResolveTextViewMethod "unparent" o = WidgetUnparentMethodInfo - ResolveTextViewMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveTextViewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveTextViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveTextViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveTextViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextViewMethod "windowToBufferCoords" o = TextViewWindowToBufferCoordsMethodInfo - ResolveTextViewMethod "getAcceptsTab" o = TextViewGetAcceptsTabMethodInfo - ResolveTextViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveTextViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveTextViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveTextViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveTextViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveTextViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveTextViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveTextViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveTextViewMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveTextViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveTextViewMethod "getBorderWindowSize" o = TextViewGetBorderWindowSizeMethodInfo - ResolveTextViewMethod "getBottomMargin" o = TextViewGetBottomMarginMethodInfo - ResolveTextViewMethod "getBuffer" o = TextViewGetBufferMethodInfo - ResolveTextViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveTextViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveTextViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveTextViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveTextViewMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveTextViewMethod "getClip" o = WidgetGetClipMethodInfo - ResolveTextViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveTextViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveTextViewMethod "getCursorLocations" o = TextViewGetCursorLocationsMethodInfo - ResolveTextViewMethod "getCursorVisible" o = TextViewGetCursorVisibleMethodInfo - ResolveTextViewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextViewMethod "getDefaultAttributes" o = TextViewGetDefaultAttributesMethodInfo - ResolveTextViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveTextViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveTextViewMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveTextViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveTextViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveTextViewMethod "getEditable" o = TextViewGetEditableMethodInfo - ResolveTextViewMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveTextViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveTextViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveTextViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveTextViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveTextViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveTextViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveTextViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveTextViewMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveTextViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveTextViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveTextViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveTextViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveTextViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveTextViewMethod "getIndent" o = TextViewGetIndentMethodInfo - ResolveTextViewMethod "getInputHints" o = TextViewGetInputHintsMethodInfo - ResolveTextViewMethod "getInputPurpose" o = TextViewGetInputPurposeMethodInfo - ResolveTextViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTextViewMethod "getIterAtLocation" o = TextViewGetIterAtLocationMethodInfo - ResolveTextViewMethod "getIterAtPosition" o = TextViewGetIterAtPositionMethodInfo - ResolveTextViewMethod "getIterLocation" o = TextViewGetIterLocationMethodInfo - ResolveTextViewMethod "getJustification" o = TextViewGetJustificationMethodInfo - ResolveTextViewMethod "getLeftMargin" o = TextViewGetLeftMarginMethodInfo - ResolveTextViewMethod "getLineAtY" o = TextViewGetLineAtYMethodInfo - ResolveTextViewMethod "getLineYrange" o = TextViewGetLineYrangeMethodInfo - ResolveTextViewMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveTextViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveTextViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveTextViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveTextViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveTextViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveTextViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveTextViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveTextViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveTextViewMethod "getMonospace" o = TextViewGetMonospaceMethodInfo - ResolveTextViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveTextViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveTextViewMethod "getOverwrite" o = TextViewGetOverwriteMethodInfo - ResolveTextViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveTextViewMethod "getParent" o = WidgetGetParentMethodInfo - ResolveTextViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveTextViewMethod "getPath" o = WidgetGetPathMethodInfo - ResolveTextViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveTextViewMethod "getPixelsAboveLines" o = TextViewGetPixelsAboveLinesMethodInfo - ResolveTextViewMethod "getPixelsBelowLines" o = TextViewGetPixelsBelowLinesMethodInfo - ResolveTextViewMethod "getPixelsInsideWrap" o = TextViewGetPixelsInsideWrapMethodInfo - ResolveTextViewMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveTextViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveTextViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveTextViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveTextViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveTextViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveTextViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveTextViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextViewMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveTextViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveTextViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveTextViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveTextViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveTextViewMethod "getRightMargin" o = TextViewGetRightMarginMethodInfo - ResolveTextViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveTextViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveTextViewMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveTextViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveTextViewMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveTextViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveTextViewMethod "getState" o = WidgetGetStateMethodInfo - ResolveTextViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveTextViewMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveTextViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveTextViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveTextViewMethod "getTabs" o = TextViewGetTabsMethodInfo - ResolveTextViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveTextViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveTextViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveTextViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveTextViewMethod "getTopMargin" o = TextViewGetTopMarginMethodInfo - ResolveTextViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveTextViewMethod "getValign" o = WidgetGetValignMethodInfo - ResolveTextViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveTextViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveTextViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveTextViewMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveTextViewMethod "getVisibleRect" o = TextViewGetVisibleRectMethodInfo - ResolveTextViewMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveTextViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveTextViewMethod "getWindowType" o = TextViewGetWindowTypeMethodInfo - ResolveTextViewMethod "getWrapMode" o = TextViewGetWrapModeMethodInfo - ResolveTextViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveTextViewMethod "setAcceptsTab" o = TextViewSetAcceptsTabMethodInfo - ResolveTextViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveTextViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveTextViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveTextViewMethod "setBorderWindowSize" o = TextViewSetBorderWindowSizeMethodInfo - ResolveTextViewMethod "setBottomMargin" o = TextViewSetBottomMarginMethodInfo - ResolveTextViewMethod "setBuffer" o = TextViewSetBufferMethodInfo - ResolveTextViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTextViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveTextViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveTextViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveTextViewMethod "setClip" o = WidgetSetClipMethodInfo - ResolveTextViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveTextViewMethod "setCursorVisible" o = TextViewSetCursorVisibleMethodInfo - ResolveTextViewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveTextViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveTextViewMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveTextViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveTextViewMethod "setEditable" o = TextViewSetEditableMethodInfo - ResolveTextViewMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveTextViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveTextViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveTextViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveTextViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveTextViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveTextViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveTextViewMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo - ResolveTextViewMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveTextViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveTextViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveTextViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveTextViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveTextViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveTextViewMethod "setIndent" o = TextViewSetIndentMethodInfo - ResolveTextViewMethod "setInputHints" o = TextViewSetInputHintsMethodInfo - ResolveTextViewMethod "setInputPurpose" o = TextViewSetInputPurposeMethodInfo - ResolveTextViewMethod "setJustification" o = TextViewSetJustificationMethodInfo - ResolveTextViewMethod "setLeftMargin" o = TextViewSetLeftMarginMethodInfo - ResolveTextViewMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveTextViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveTextViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveTextViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveTextViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveTextViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveTextViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveTextViewMethod "setMonospace" o = TextViewSetMonospaceMethodInfo - ResolveTextViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveTextViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveTextViewMethod "setOverwrite" o = TextViewSetOverwriteMethodInfo - ResolveTextViewMethod "setParent" o = WidgetSetParentMethodInfo - ResolveTextViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveTextViewMethod "setPixelsAboveLines" o = TextViewSetPixelsAboveLinesMethodInfo - ResolveTextViewMethod "setPixelsBelowLines" o = TextViewSetPixelsBelowLinesMethodInfo - ResolveTextViewMethod "setPixelsInsideWrap" o = TextViewSetPixelsInsideWrapMethodInfo - ResolveTextViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextViewMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveTextViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveTextViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveTextViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveTextViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveTextViewMethod "setRightMargin" o = TextViewSetRightMarginMethodInfo - ResolveTextViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveTextViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveTextViewMethod "setState" o = WidgetSetStateMethodInfo - ResolveTextViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveTextViewMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveTextViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveTextViewMethod "setTabs" o = TextViewSetTabsMethodInfo - ResolveTextViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveTextViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveTextViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveTextViewMethod "setTopMargin" o = TextViewSetTopMarginMethodInfo - ResolveTextViewMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo - ResolveTextViewMethod "setValign" o = WidgetSetValignMethodInfo - ResolveTextViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveTextViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveTextViewMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveTextViewMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveTextViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveTextViewMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveTextViewMethod "setWrapMode" o = TextViewSetWrapModeMethodInfo - ResolveTextViewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextViewMethod t TextView, MethodInfo info TextView p) => IsLabelProxy t (TextView -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextViewMethod t TextView, MethodInfo info TextView p) => IsLabel t (TextView -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TextView::backspace -type TextViewBackspaceCallback = - IO () - -noTextViewBackspaceCallback :: Maybe TextViewBackspaceCallback -noTextViewBackspaceCallback = Nothing - -type TextViewBackspaceCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewBackspaceCallback :: TextViewBackspaceCallbackC -> IO (FunPtr TextViewBackspaceCallbackC) - -textViewBackspaceClosure :: TextViewBackspaceCallback -> IO Closure -textViewBackspaceClosure cb = newCClosure =<< mkTextViewBackspaceCallback wrapped - where wrapped = textViewBackspaceCallbackWrapper cb - -textViewBackspaceCallbackWrapper :: - TextViewBackspaceCallback -> - Ptr () -> - Ptr () -> - IO () -textViewBackspaceCallbackWrapper _cb _ _ = do - _cb - -onTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId -onTextViewBackspace obj cb = liftIO $ connectTextViewBackspace obj cb SignalConnectBefore -afterTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId -afterTextViewBackspace obj cb = connectTextViewBackspace obj cb SignalConnectAfter - -connectTextViewBackspace :: (GObject a, MonadIO m) => - a -> TextViewBackspaceCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewBackspace obj cb after = liftIO $ do - cb' <- mkTextViewBackspaceCallback (textViewBackspaceCallbackWrapper cb) - connectSignalFunPtr obj "backspace" cb' after - --- signal TextView::copy-clipboard -type TextViewCopyClipboardCallback = - IO () - -noTextViewCopyClipboardCallback :: Maybe TextViewCopyClipboardCallback -noTextViewCopyClipboardCallback = Nothing - -type TextViewCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewCopyClipboardCallback :: TextViewCopyClipboardCallbackC -> IO (FunPtr TextViewCopyClipboardCallbackC) - -textViewCopyClipboardClosure :: TextViewCopyClipboardCallback -> IO Closure -textViewCopyClipboardClosure cb = newCClosure =<< mkTextViewCopyClipboardCallback wrapped - where wrapped = textViewCopyClipboardCallbackWrapper cb - -textViewCopyClipboardCallbackWrapper :: - TextViewCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId -onTextViewCopyClipboard obj cb = liftIO $ connectTextViewCopyClipboard obj cb SignalConnectBefore -afterTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId -afterTextViewCopyClipboard obj cb = connectTextViewCopyClipboard obj cb SignalConnectAfter - -connectTextViewCopyClipboard :: (GObject a, MonadIO m) => - a -> TextViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewCopyClipboard obj cb after = liftIO $ do - cb' <- mkTextViewCopyClipboardCallback (textViewCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal TextView::cut-clipboard -type TextViewCutClipboardCallback = - IO () - -noTextViewCutClipboardCallback :: Maybe TextViewCutClipboardCallback -noTextViewCutClipboardCallback = Nothing - -type TextViewCutClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewCutClipboardCallback :: TextViewCutClipboardCallbackC -> IO (FunPtr TextViewCutClipboardCallbackC) - -textViewCutClipboardClosure :: TextViewCutClipboardCallback -> IO Closure -textViewCutClipboardClosure cb = newCClosure =<< mkTextViewCutClipboardCallback wrapped - where wrapped = textViewCutClipboardCallbackWrapper cb - -textViewCutClipboardCallbackWrapper :: - TextViewCutClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewCutClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId -onTextViewCutClipboard obj cb = liftIO $ connectTextViewCutClipboard obj cb SignalConnectBefore -afterTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId -afterTextViewCutClipboard obj cb = connectTextViewCutClipboard obj cb SignalConnectAfter - -connectTextViewCutClipboard :: (GObject a, MonadIO m) => - a -> TextViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewCutClipboard obj cb after = liftIO $ do - cb' <- mkTextViewCutClipboardCallback (textViewCutClipboardCallbackWrapper cb) - connectSignalFunPtr obj "cut-clipboard" cb' after - --- signal TextView::delete-from-cursor -type TextViewDeleteFromCursorCallback = - DeleteType -> - Int32 -> - IO () - -noTextViewDeleteFromCursorCallback :: Maybe TextViewDeleteFromCursorCallback -noTextViewDeleteFromCursorCallback = Nothing - -type TextViewDeleteFromCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewDeleteFromCursorCallback :: TextViewDeleteFromCursorCallbackC -> IO (FunPtr TextViewDeleteFromCursorCallbackC) - -textViewDeleteFromCursorClosure :: TextViewDeleteFromCursorCallback -> IO Closure -textViewDeleteFromCursorClosure cb = newCClosure =<< mkTextViewDeleteFromCursorCallback wrapped - where wrapped = textViewDeleteFromCursorCallbackWrapper cb - -textViewDeleteFromCursorCallbackWrapper :: - TextViewDeleteFromCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -textViewDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do - let type_' = (toEnum . fromIntegral) type_ - _cb type_' count - -onTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId -onTextViewDeleteFromCursor obj cb = liftIO $ connectTextViewDeleteFromCursor obj cb SignalConnectBefore -afterTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId -afterTextViewDeleteFromCursor obj cb = connectTextViewDeleteFromCursor obj cb SignalConnectAfter - -connectTextViewDeleteFromCursor :: (GObject a, MonadIO m) => - a -> TextViewDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewDeleteFromCursor obj cb after = liftIO $ do - cb' <- mkTextViewDeleteFromCursorCallback (textViewDeleteFromCursorCallbackWrapper cb) - connectSignalFunPtr obj "delete-from-cursor" cb' after - --- signal TextView::extend-selection -type TextViewExtendSelectionCallback = - TextExtendSelection -> - TextIter -> - TextIter -> - TextIter -> - IO Bool - -noTextViewExtendSelectionCallback :: Maybe TextViewExtendSelectionCallback -noTextViewExtendSelectionCallback = Nothing - -type TextViewExtendSelectionCallbackC = - Ptr () -> -- object - CUInt -> - Ptr TextIter -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTextViewExtendSelectionCallback :: TextViewExtendSelectionCallbackC -> IO (FunPtr TextViewExtendSelectionCallbackC) - -textViewExtendSelectionClosure :: TextViewExtendSelectionCallback -> IO Closure -textViewExtendSelectionClosure cb = newCClosure =<< mkTextViewExtendSelectionCallback wrapped - where wrapped = textViewExtendSelectionCallbackWrapper cb - -textViewExtendSelectionCallbackWrapper :: - TextViewExtendSelectionCallback -> - Ptr () -> - CUInt -> - Ptr TextIter -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO CInt -textViewExtendSelectionCallbackWrapper _cb _ granularity location start end _ = do - let granularity' = (toEnum . fromIntegral) granularity - location' <- (newBoxed TextIter) location - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - result <- _cb granularity' location' start' end' - let result' = (fromIntegral . fromEnum) result - return result' - -onTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId -onTextViewExtendSelection obj cb = liftIO $ connectTextViewExtendSelection obj cb SignalConnectBefore -afterTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId -afterTextViewExtendSelection obj cb = connectTextViewExtendSelection obj cb SignalConnectAfter - -connectTextViewExtendSelection :: (GObject a, MonadIO m) => - a -> TextViewExtendSelectionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewExtendSelection obj cb after = liftIO $ do - cb' <- mkTextViewExtendSelectionCallback (textViewExtendSelectionCallbackWrapper cb) - connectSignalFunPtr obj "extend-selection" cb' after - --- signal TextView::insert-at-cursor -type TextViewInsertAtCursorCallback = - T.Text -> - IO () - -noTextViewInsertAtCursorCallback :: Maybe TextViewInsertAtCursorCallback -noTextViewInsertAtCursorCallback = Nothing - -type TextViewInsertAtCursorCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewInsertAtCursorCallback :: TextViewInsertAtCursorCallbackC -> IO (FunPtr TextViewInsertAtCursorCallbackC) - -textViewInsertAtCursorClosure :: TextViewInsertAtCursorCallback -> IO Closure -textViewInsertAtCursorClosure cb = newCClosure =<< mkTextViewInsertAtCursorCallback wrapped - where wrapped = textViewInsertAtCursorCallbackWrapper cb - -textViewInsertAtCursorCallbackWrapper :: - TextViewInsertAtCursorCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -textViewInsertAtCursorCallbackWrapper _cb _ string _ = do - string' <- cstringToText string - _cb string' - -onTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId -onTextViewInsertAtCursor obj cb = liftIO $ connectTextViewInsertAtCursor obj cb SignalConnectBefore -afterTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId -afterTextViewInsertAtCursor obj cb = connectTextViewInsertAtCursor obj cb SignalConnectAfter - -connectTextViewInsertAtCursor :: (GObject a, MonadIO m) => - a -> TextViewInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewInsertAtCursor obj cb after = liftIO $ do - cb' <- mkTextViewInsertAtCursorCallback (textViewInsertAtCursorCallbackWrapper cb) - connectSignalFunPtr obj "insert-at-cursor" cb' after - --- signal TextView::move-cursor -type TextViewMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noTextViewMoveCursorCallback :: Maybe TextViewMoveCursorCallback -noTextViewMoveCursorCallback = Nothing - -type TextViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewMoveCursorCallback :: TextViewMoveCursorCallbackC -> IO (FunPtr TextViewMoveCursorCallbackC) - -textViewMoveCursorClosure :: TextViewMoveCursorCallback -> IO Closure -textViewMoveCursorClosure cb = newCClosure =<< mkTextViewMoveCursorCallback wrapped - where wrapped = textViewMoveCursorCallbackWrapper cb - -textViewMoveCursorCallbackWrapper :: - TextViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -textViewMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do - let step' = (toEnum . fromIntegral) step - let extendSelection' = (/= 0) extendSelection - _cb step' count extendSelection' - -onTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId -onTextViewMoveCursor obj cb = liftIO $ connectTextViewMoveCursor obj cb SignalConnectBefore -afterTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId -afterTextViewMoveCursor obj cb = connectTextViewMoveCursor obj cb SignalConnectAfter - -connectTextViewMoveCursor :: (GObject a, MonadIO m) => - a -> TextViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewMoveCursor obj cb after = liftIO $ do - cb' <- mkTextViewMoveCursorCallback (textViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal TextView::move-viewport -type TextViewMoveViewportCallback = - ScrollStep -> - Int32 -> - IO () - -noTextViewMoveViewportCallback :: Maybe TextViewMoveViewportCallback -noTextViewMoveViewportCallback = Nothing - -type TextViewMoveViewportCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewMoveViewportCallback :: TextViewMoveViewportCallbackC -> IO (FunPtr TextViewMoveViewportCallbackC) - -textViewMoveViewportClosure :: TextViewMoveViewportCallback -> IO Closure -textViewMoveViewportClosure cb = newCClosure =<< mkTextViewMoveViewportCallback wrapped - where wrapped = textViewMoveViewportCallbackWrapper cb - -textViewMoveViewportCallbackWrapper :: - TextViewMoveViewportCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -textViewMoveViewportCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - _cb step' count - -onTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId -onTextViewMoveViewport obj cb = liftIO $ connectTextViewMoveViewport obj cb SignalConnectBefore -afterTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId -afterTextViewMoveViewport obj cb = connectTextViewMoveViewport obj cb SignalConnectAfter - -connectTextViewMoveViewport :: (GObject a, MonadIO m) => - a -> TextViewMoveViewportCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewMoveViewport obj cb after = liftIO $ do - cb' <- mkTextViewMoveViewportCallback (textViewMoveViewportCallbackWrapper cb) - connectSignalFunPtr obj "move-viewport" cb' after - --- signal TextView::paste-clipboard -type TextViewPasteClipboardCallback = - IO () - -noTextViewPasteClipboardCallback :: Maybe TextViewPasteClipboardCallback -noTextViewPasteClipboardCallback = Nothing - -type TextViewPasteClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPasteClipboardCallback :: TextViewPasteClipboardCallbackC -> IO (FunPtr TextViewPasteClipboardCallbackC) - -textViewPasteClipboardClosure :: TextViewPasteClipboardCallback -> IO Closure -textViewPasteClipboardClosure cb = newCClosure =<< mkTextViewPasteClipboardCallback wrapped - where wrapped = textViewPasteClipboardCallbackWrapper cb - -textViewPasteClipboardCallbackWrapper :: - TextViewPasteClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewPasteClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId -onTextViewPasteClipboard obj cb = liftIO $ connectTextViewPasteClipboard obj cb SignalConnectBefore -afterTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId -afterTextViewPasteClipboard obj cb = connectTextViewPasteClipboard obj cb SignalConnectAfter - -connectTextViewPasteClipboard :: (GObject a, MonadIO m) => - a -> TextViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPasteClipboard obj cb after = liftIO $ do - cb' <- mkTextViewPasteClipboardCallback (textViewPasteClipboardCallbackWrapper cb) - connectSignalFunPtr obj "paste-clipboard" cb' after - --- signal TextView::populate-popup -type TextViewPopulatePopupCallback = - Widget -> - IO () - -noTextViewPopulatePopupCallback :: Maybe TextViewPopulatePopupCallback -noTextViewPopulatePopupCallback = Nothing - -type TextViewPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPopulatePopupCallback :: TextViewPopulatePopupCallbackC -> IO (FunPtr TextViewPopulatePopupCallbackC) - -textViewPopulatePopupClosure :: TextViewPopulatePopupCallback -> IO Closure -textViewPopulatePopupClosure cb = newCClosure =<< mkTextViewPopulatePopupCallback wrapped - where wrapped = textViewPopulatePopupCallbackWrapper cb - -textViewPopulatePopupCallbackWrapper :: - TextViewPopulatePopupCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -textViewPopulatePopupCallbackWrapper _cb _ popup _ = do - popup' <- (newObject Widget) popup - _cb popup' - -onTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId -onTextViewPopulatePopup obj cb = liftIO $ connectTextViewPopulatePopup obj cb SignalConnectBefore -afterTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId -afterTextViewPopulatePopup obj cb = connectTextViewPopulatePopup obj cb SignalConnectAfter - -connectTextViewPopulatePopup :: (GObject a, MonadIO m) => - a -> TextViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPopulatePopup obj cb after = liftIO $ do - cb' <- mkTextViewPopulatePopupCallback (textViewPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- signal TextView::preedit-changed -type TextViewPreeditChangedCallback = - T.Text -> - IO () - -noTextViewPreeditChangedCallback :: Maybe TextViewPreeditChangedCallback -noTextViewPreeditChangedCallback = Nothing - -type TextViewPreeditChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPreeditChangedCallback :: TextViewPreeditChangedCallbackC -> IO (FunPtr TextViewPreeditChangedCallbackC) - -textViewPreeditChangedClosure :: TextViewPreeditChangedCallback -> IO Closure -textViewPreeditChangedClosure cb = newCClosure =<< mkTextViewPreeditChangedCallback wrapped - where wrapped = textViewPreeditChangedCallbackWrapper cb - -textViewPreeditChangedCallbackWrapper :: - TextViewPreeditChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -textViewPreeditChangedCallbackWrapper _cb _ preedit _ = do - preedit' <- cstringToText preedit - _cb preedit' - -onTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId -onTextViewPreeditChanged obj cb = liftIO $ connectTextViewPreeditChanged obj cb SignalConnectBefore -afterTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId -afterTextViewPreeditChanged obj cb = connectTextViewPreeditChanged obj cb SignalConnectAfter - -connectTextViewPreeditChanged :: (GObject a, MonadIO m) => - a -> TextViewPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPreeditChanged obj cb after = liftIO $ do - cb' <- mkTextViewPreeditChangedCallback (textViewPreeditChangedCallbackWrapper cb) - connectSignalFunPtr obj "preedit-changed" cb' after - --- signal TextView::select-all -type TextViewSelectAllCallback = - Bool -> - IO () - -noTextViewSelectAllCallback :: Maybe TextViewSelectAllCallback -noTextViewSelectAllCallback = Nothing - -type TextViewSelectAllCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewSelectAllCallback :: TextViewSelectAllCallbackC -> IO (FunPtr TextViewSelectAllCallbackC) - -textViewSelectAllClosure :: TextViewSelectAllCallback -> IO Closure -textViewSelectAllClosure cb = newCClosure =<< mkTextViewSelectAllCallback wrapped - where wrapped = textViewSelectAllCallbackWrapper cb - -textViewSelectAllCallbackWrapper :: - TextViewSelectAllCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -textViewSelectAllCallbackWrapper _cb _ select _ = do - let select' = (/= 0) select - _cb select' - -onTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId -onTextViewSelectAll obj cb = liftIO $ connectTextViewSelectAll obj cb SignalConnectBefore -afterTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId -afterTextViewSelectAll obj cb = connectTextViewSelectAll obj cb SignalConnectAfter - -connectTextViewSelectAll :: (GObject a, MonadIO m) => - a -> TextViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewSelectAll obj cb after = liftIO $ do - cb' <- mkTextViewSelectAllCallback (textViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal TextView::set-anchor -type TextViewSetAnchorCallback = - IO () - -noTextViewSetAnchorCallback :: Maybe TextViewSetAnchorCallback -noTextViewSetAnchorCallback = Nothing - -type TextViewSetAnchorCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewSetAnchorCallback :: TextViewSetAnchorCallbackC -> IO (FunPtr TextViewSetAnchorCallbackC) - -textViewSetAnchorClosure :: TextViewSetAnchorCallback -> IO Closure -textViewSetAnchorClosure cb = newCClosure =<< mkTextViewSetAnchorCallback wrapped - where wrapped = textViewSetAnchorCallbackWrapper cb - -textViewSetAnchorCallbackWrapper :: - TextViewSetAnchorCallback -> - Ptr () -> - Ptr () -> - IO () -textViewSetAnchorCallbackWrapper _cb _ _ = do - _cb - -onTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId -onTextViewSetAnchor obj cb = liftIO $ connectTextViewSetAnchor obj cb SignalConnectBefore -afterTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId -afterTextViewSetAnchor obj cb = connectTextViewSetAnchor obj cb SignalConnectAfter - -connectTextViewSetAnchor :: (GObject a, MonadIO m) => - a -> TextViewSetAnchorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewSetAnchor obj cb after = liftIO $ do - cb' <- mkTextViewSetAnchorCallback (textViewSetAnchorCallbackWrapper cb) - connectSignalFunPtr obj "set-anchor" cb' after - --- signal TextView::toggle-cursor-visible -type TextViewToggleCursorVisibleCallback = - IO () - -noTextViewToggleCursorVisibleCallback :: Maybe TextViewToggleCursorVisibleCallback -noTextViewToggleCursorVisibleCallback = Nothing - -type TextViewToggleCursorVisibleCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewToggleCursorVisibleCallback :: TextViewToggleCursorVisibleCallbackC -> IO (FunPtr TextViewToggleCursorVisibleCallbackC) - -textViewToggleCursorVisibleClosure :: TextViewToggleCursorVisibleCallback -> IO Closure -textViewToggleCursorVisibleClosure cb = newCClosure =<< mkTextViewToggleCursorVisibleCallback wrapped - where wrapped = textViewToggleCursorVisibleCallbackWrapper cb - -textViewToggleCursorVisibleCallbackWrapper :: - TextViewToggleCursorVisibleCallback -> - Ptr () -> - Ptr () -> - IO () -textViewToggleCursorVisibleCallbackWrapper _cb _ _ = do - _cb - -onTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId -onTextViewToggleCursorVisible obj cb = liftIO $ connectTextViewToggleCursorVisible obj cb SignalConnectBefore -afterTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId -afterTextViewToggleCursorVisible obj cb = connectTextViewToggleCursorVisible obj cb SignalConnectAfter - -connectTextViewToggleCursorVisible :: (GObject a, MonadIO m) => - a -> TextViewToggleCursorVisibleCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewToggleCursorVisible obj cb after = liftIO $ do - cb' <- mkTextViewToggleCursorVisibleCallback (textViewToggleCursorVisibleCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-visible" cb' after - --- signal TextView::toggle-overwrite -type TextViewToggleOverwriteCallback = - IO () - -noTextViewToggleOverwriteCallback :: Maybe TextViewToggleOverwriteCallback -noTextViewToggleOverwriteCallback = Nothing - -type TextViewToggleOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewToggleOverwriteCallback :: TextViewToggleOverwriteCallbackC -> IO (FunPtr TextViewToggleOverwriteCallbackC) - -textViewToggleOverwriteClosure :: TextViewToggleOverwriteCallback -> IO Closure -textViewToggleOverwriteClosure cb = newCClosure =<< mkTextViewToggleOverwriteCallback wrapped - where wrapped = textViewToggleOverwriteCallbackWrapper cb - -textViewToggleOverwriteCallbackWrapper :: - TextViewToggleOverwriteCallback -> - Ptr () -> - Ptr () -> - IO () -textViewToggleOverwriteCallbackWrapper _cb _ _ = do - _cb - -onTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId -onTextViewToggleOverwrite obj cb = liftIO $ connectTextViewToggleOverwrite obj cb SignalConnectBefore -afterTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId -afterTextViewToggleOverwrite obj cb = connectTextViewToggleOverwrite obj cb SignalConnectAfter - -connectTextViewToggleOverwrite :: (GObject a, MonadIO m) => - a -> TextViewToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewToggleOverwrite obj cb after = liftIO $ do - cb' <- mkTextViewToggleOverwriteCallback (textViewToggleOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "toggle-overwrite" cb' after - --- VVV Prop "accepts-tab" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewAcceptsTab obj = liftIO $ getObjectPropertyBool obj "accepts-tab" - -setTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewAcceptsTab obj val = liftIO $ setObjectPropertyBool obj "accepts-tab" val - -constructTextViewAcceptsTab :: Bool -> IO ([Char], GValue) -constructTextViewAcceptsTab val = constructObjectPropertyBool "accepts-tab" val - -data TextViewAcceptsTabPropertyInfo -instance AttrInfo TextViewAcceptsTabPropertyInfo where - type AttrAllowedOps TextViewAcceptsTabPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewAcceptsTabPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewAcceptsTabPropertyInfo = TextViewK - type AttrGetType TextViewAcceptsTabPropertyInfo = Bool - type AttrLabel TextViewAcceptsTabPropertyInfo = "accepts-tab" - attrGet _ = getTextViewAcceptsTab - attrSet _ = setTextViewAcceptsTab - attrConstruct _ = constructTextViewAcceptsTab - attrClear _ = undefined - --- VVV Prop "bottom-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewBottomMargin obj = liftIO $ getObjectPropertyInt32 obj "bottom-margin" - -setTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewBottomMargin obj val = liftIO $ setObjectPropertyInt32 obj "bottom-margin" val - -constructTextViewBottomMargin :: Int32 -> IO ([Char], GValue) -constructTextViewBottomMargin val = constructObjectPropertyInt32 "bottom-margin" val - -data TextViewBottomMarginPropertyInfo -instance AttrInfo TextViewBottomMarginPropertyInfo where - type AttrAllowedOps TextViewBottomMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewBottomMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewBottomMarginPropertyInfo = TextViewK - type AttrGetType TextViewBottomMarginPropertyInfo = Int32 - type AttrLabel TextViewBottomMarginPropertyInfo = "bottom-margin" - attrGet _ = getTextViewBottomMargin - attrSet _ = setTextViewBottomMargin - attrConstruct _ = constructTextViewBottomMargin - attrClear _ = undefined - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "TextBuffer" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer -getTextViewBuffer obj = liftIO $ checkUnexpectedNothing "getTextViewBuffer" $ getObjectPropertyObject obj "buffer" TextBuffer - -setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () -setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" (Just val) - -constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) -constructTextViewBuffer val = constructObjectPropertyObject "buffer" (Just val) - -clearTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m () -clearTextViewBuffer obj = liftIO $ setObjectPropertyObject obj "buffer" (Nothing :: Maybe TextBuffer) - -data TextViewBufferPropertyInfo -instance AttrInfo TextViewBufferPropertyInfo where - type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK - type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK - type AttrGetType TextViewBufferPropertyInfo = TextBuffer - type AttrLabel TextViewBufferPropertyInfo = "buffer" - attrGet _ = getTextViewBuffer - attrSet _ = setTextViewBuffer - attrConstruct _ = constructTextViewBuffer - attrClear _ = clearTextViewBuffer - --- VVV Prop "cursor-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewCursorVisible obj = liftIO $ getObjectPropertyBool obj "cursor-visible" - -setTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewCursorVisible obj val = liftIO $ setObjectPropertyBool obj "cursor-visible" val - -constructTextViewCursorVisible :: Bool -> IO ([Char], GValue) -constructTextViewCursorVisible val = constructObjectPropertyBool "cursor-visible" val - -data TextViewCursorVisiblePropertyInfo -instance AttrInfo TextViewCursorVisiblePropertyInfo where - type AttrAllowedOps TextViewCursorVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewCursorVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewCursorVisiblePropertyInfo = TextViewK - type AttrGetType TextViewCursorVisiblePropertyInfo = Bool - type AttrLabel TextViewCursorVisiblePropertyInfo = "cursor-visible" - attrGet _ = getTextViewCursorVisible - attrSet _ = setTextViewCursorVisible - attrConstruct _ = constructTextViewCursorVisible - attrClear _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewEditable :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setTextViewEditable :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructTextViewEditable :: Bool -> IO ([Char], GValue) -constructTextViewEditable val = constructObjectPropertyBool "editable" val - -data TextViewEditablePropertyInfo -instance AttrInfo TextViewEditablePropertyInfo where - type AttrAllowedOps TextViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewEditablePropertyInfo = TextViewK - type AttrGetType TextViewEditablePropertyInfo = Bool - type AttrLabel TextViewEditablePropertyInfo = "editable" - attrGet _ = getTextViewEditable - attrSet _ = setTextViewEditable - attrConstruct _ = constructTextViewEditable - attrClear _ = undefined - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m (Maybe T.Text) -getTextViewImModule obj = liftIO $ getObjectPropertyString obj "im-module" - -setTextViewImModule :: (MonadIO m, TextViewK o) => o -> T.Text -> m () -setTextViewImModule obj val = liftIO $ setObjectPropertyString obj "im-module" (Just val) - -constructTextViewImModule :: T.Text -> IO ([Char], GValue) -constructTextViewImModule val = constructObjectPropertyString "im-module" (Just val) - -clearTextViewImModule :: (MonadIO m, TextViewK o) => o -> m () -clearTextViewImModule obj = liftIO $ setObjectPropertyString obj "im-module" (Nothing :: Maybe T.Text) - -data TextViewImModulePropertyInfo -instance AttrInfo TextViewImModulePropertyInfo where - type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK - type AttrGetType TextViewImModulePropertyInfo = (Maybe T.Text) - type AttrLabel TextViewImModulePropertyInfo = "im-module" - attrGet _ = getTextViewImModule - attrSet _ = setTextViewImModule - attrConstruct _ = constructTextViewImModule - attrClear _ = clearTextViewImModule - --- VVV Prop "indent" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewIndent obj = liftIO $ getObjectPropertyInt32 obj "indent" - -setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewIndent obj val = liftIO $ setObjectPropertyInt32 obj "indent" val - -constructTextViewIndent :: Int32 -> IO ([Char], GValue) -constructTextViewIndent val = constructObjectPropertyInt32 "indent" val - -data TextViewIndentPropertyInfo -instance AttrInfo TextViewIndentPropertyInfo where - type AttrAllowedOps TextViewIndentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewIndentPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewIndentPropertyInfo = TextViewK - type AttrGetType TextViewIndentPropertyInfo = Int32 - type AttrLabel TextViewIndentPropertyInfo = "indent" - attrGet _ = getTextViewIndent - attrSet _ = setTextViewIndent - attrConstruct _ = constructTextViewIndent - attrClear _ = undefined - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewInputHints :: (MonadIO m, TextViewK o) => o -> m [InputHints] -getTextViewInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" - -setTextViewInputHints :: (MonadIO m, TextViewK o) => o -> [InputHints] -> m () -setTextViewInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val - -constructTextViewInputHints :: [InputHints] -> IO ([Char], GValue) -constructTextViewInputHints val = constructObjectPropertyFlags "input-hints" val - -data TextViewInputHintsPropertyInfo -instance AttrInfo TextViewInputHintsPropertyInfo where - type AttrAllowedOps TextViewInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewInputHintsPropertyInfo = (~) [InputHints] - type AttrBaseTypeConstraint TextViewInputHintsPropertyInfo = TextViewK - type AttrGetType TextViewInputHintsPropertyInfo = [InputHints] - type AttrLabel TextViewInputHintsPropertyInfo = "input-hints" - attrGet _ = getTextViewInputHints - attrSet _ = setTextViewInputHints - attrConstruct _ = constructTextViewInputHints - attrClear _ = undefined - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> m InputPurpose -getTextViewInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" - -setTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> InputPurpose -> m () -setTextViewInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val - -constructTextViewInputPurpose :: InputPurpose -> IO ([Char], GValue) -constructTextViewInputPurpose val = constructObjectPropertyEnum "input-purpose" val - -data TextViewInputPurposePropertyInfo -instance AttrInfo TextViewInputPurposePropertyInfo where - type AttrAllowedOps TextViewInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewInputPurposePropertyInfo = (~) InputPurpose - type AttrBaseTypeConstraint TextViewInputPurposePropertyInfo = TextViewK - type AttrGetType TextViewInputPurposePropertyInfo = InputPurpose - type AttrLabel TextViewInputPurposePropertyInfo = "input-purpose" - attrGet _ = getTextViewInputPurpose - attrSet _ = setTextViewInputPurpose - attrConstruct _ = constructTextViewInputPurpose - attrClear _ = undefined - --- VVV Prop "justification" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewJustification :: (MonadIO m, TextViewK o) => o -> m Justification -getTextViewJustification obj = liftIO $ getObjectPropertyEnum obj "justification" - -setTextViewJustification :: (MonadIO m, TextViewK o) => o -> Justification -> m () -setTextViewJustification obj val = liftIO $ setObjectPropertyEnum obj "justification" val - -constructTextViewJustification :: Justification -> IO ([Char], GValue) -constructTextViewJustification val = constructObjectPropertyEnum "justification" val - -data TextViewJustificationPropertyInfo -instance AttrInfo TextViewJustificationPropertyInfo where - type AttrAllowedOps TextViewJustificationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewJustificationPropertyInfo = (~) Justification - type AttrBaseTypeConstraint TextViewJustificationPropertyInfo = TextViewK - type AttrGetType TextViewJustificationPropertyInfo = Justification - type AttrLabel TextViewJustificationPropertyInfo = "justification" - attrGet _ = getTextViewJustification - attrSet _ = setTextViewJustification - attrConstruct _ = constructTextViewJustification - attrClear _ = undefined - --- VVV Prop "left-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewLeftMargin obj = liftIO $ getObjectPropertyInt32 obj "left-margin" - -setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewLeftMargin obj val = liftIO $ setObjectPropertyInt32 obj "left-margin" val - -constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextViewLeftMargin val = constructObjectPropertyInt32 "left-margin" val - -data TextViewLeftMarginPropertyInfo -instance AttrInfo TextViewLeftMarginPropertyInfo where - type AttrAllowedOps TextViewLeftMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewLeftMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewLeftMarginPropertyInfo = TextViewK - type AttrGetType TextViewLeftMarginPropertyInfo = Int32 - type AttrLabel TextViewLeftMarginPropertyInfo = "left-margin" - attrGet _ = getTextViewLeftMargin - attrSet _ = setTextViewLeftMargin - attrConstruct _ = constructTextViewLeftMargin - attrClear _ = undefined - --- VVV Prop "monospace" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewMonospace :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewMonospace obj = liftIO $ getObjectPropertyBool obj "monospace" - -setTextViewMonospace :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewMonospace obj val = liftIO $ setObjectPropertyBool obj "monospace" val - -constructTextViewMonospace :: Bool -> IO ([Char], GValue) -constructTextViewMonospace val = constructObjectPropertyBool "monospace" val - -data TextViewMonospacePropertyInfo -instance AttrInfo TextViewMonospacePropertyInfo where - type AttrAllowedOps TextViewMonospacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewMonospacePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewMonospacePropertyInfo = TextViewK - type AttrGetType TextViewMonospacePropertyInfo = Bool - type AttrLabel TextViewMonospacePropertyInfo = "monospace" - attrGet _ = getTextViewMonospace - attrSet _ = setTextViewMonospace - attrConstruct _ = constructTextViewMonospace - attrClear _ = undefined - --- VVV Prop "overwrite" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewOverwrite obj = liftIO $ getObjectPropertyBool obj "overwrite" - -setTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewOverwrite obj val = liftIO $ setObjectPropertyBool obj "overwrite" val - -constructTextViewOverwrite :: Bool -> IO ([Char], GValue) -constructTextViewOverwrite val = constructObjectPropertyBool "overwrite" val - -data TextViewOverwritePropertyInfo -instance AttrInfo TextViewOverwritePropertyInfo where - type AttrAllowedOps TextViewOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewOverwritePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewOverwritePropertyInfo = TextViewK - type AttrGetType TextViewOverwritePropertyInfo = Bool - type AttrLabel TextViewOverwritePropertyInfo = "overwrite" - attrGet _ = getTextViewOverwrite - attrSet _ = setTextViewOverwrite - attrConstruct _ = constructTextViewOverwrite - attrClear _ = undefined - --- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-above-lines" - -setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-above-lines" val - -constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsAboveLines val = constructObjectPropertyInt32 "pixels-above-lines" val - -data TextViewPixelsAboveLinesPropertyInfo -instance AttrInfo TextViewPixelsAboveLinesPropertyInfo where - type AttrAllowedOps TextViewPixelsAboveLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsAboveLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsAboveLinesPropertyInfo = TextViewK - type AttrGetType TextViewPixelsAboveLinesPropertyInfo = Int32 - type AttrLabel TextViewPixelsAboveLinesPropertyInfo = "pixels-above-lines" - attrGet _ = getTextViewPixelsAboveLines - attrSet _ = setTextViewPixelsAboveLines - attrConstruct _ = constructTextViewPixelsAboveLines - attrClear _ = undefined - --- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-below-lines" - -setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-below-lines" val - -constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsBelowLines val = constructObjectPropertyInt32 "pixels-below-lines" val - -data TextViewPixelsBelowLinesPropertyInfo -instance AttrInfo TextViewPixelsBelowLinesPropertyInfo where - type AttrAllowedOps TextViewPixelsBelowLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsBelowLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsBelowLinesPropertyInfo = TextViewK - type AttrGetType TextViewPixelsBelowLinesPropertyInfo = Int32 - type AttrLabel TextViewPixelsBelowLinesPropertyInfo = "pixels-below-lines" - attrGet _ = getTextViewPixelsBelowLines - attrSet _ = setTextViewPixelsBelowLines - attrConstruct _ = constructTextViewPixelsBelowLines - attrClear _ = undefined - --- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyInt32 obj "pixels-inside-wrap" - -setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyInt32 obj "pixels-inside-wrap" val - -constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsInsideWrap val = constructObjectPropertyInt32 "pixels-inside-wrap" val - -data TextViewPixelsInsideWrapPropertyInfo -instance AttrInfo TextViewPixelsInsideWrapPropertyInfo where - type AttrAllowedOps TextViewPixelsInsideWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsInsideWrapPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsInsideWrapPropertyInfo = TextViewK - type AttrGetType TextViewPixelsInsideWrapPropertyInfo = Int32 - type AttrLabel TextViewPixelsInsideWrapPropertyInfo = "pixels-inside-wrap" - attrGet _ = getTextViewPixelsInsideWrap - attrSet _ = setTextViewPixelsInsideWrap - attrConstruct _ = constructTextViewPixelsInsideWrap - attrClear _ = undefined - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" - -setTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val - -constructTextViewPopulateAll :: Bool -> IO ([Char], GValue) -constructTextViewPopulateAll val = constructObjectPropertyBool "populate-all" val - -data TextViewPopulateAllPropertyInfo -instance AttrInfo TextViewPopulateAllPropertyInfo where - type AttrAllowedOps TextViewPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPopulateAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewPopulateAllPropertyInfo = TextViewK - type AttrGetType TextViewPopulateAllPropertyInfo = Bool - type AttrLabel TextViewPopulateAllPropertyInfo = "populate-all" - attrGet _ = getTextViewPopulateAll - attrSet _ = setTextViewPopulateAll - attrConstruct _ = constructTextViewPopulateAll - attrClear _ = undefined - --- VVV Prop "right-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewRightMargin obj = liftIO $ getObjectPropertyInt32 obj "right-margin" - -setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewRightMargin obj val = liftIO $ setObjectPropertyInt32 obj "right-margin" val - -constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) -constructTextViewRightMargin val = constructObjectPropertyInt32 "right-margin" val - -data TextViewRightMarginPropertyInfo -instance AttrInfo TextViewRightMarginPropertyInfo where - type AttrAllowedOps TextViewRightMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewRightMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewRightMarginPropertyInfo = TextViewK - type AttrGetType TextViewRightMarginPropertyInfo = Int32 - type AttrLabel TextViewRightMarginPropertyInfo = "right-margin" - attrGet _ = getTextViewRightMargin - attrSet _ = setTextViewRightMargin - attrConstruct _ = constructTextViewRightMargin - attrClear _ = undefined - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m (Maybe Pango.TabArray) -getTextViewTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray - -setTextViewTabs :: (MonadIO m, TextViewK o) => o -> Pango.TabArray -> m () -setTextViewTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) - -constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextViewTabs val = constructObjectPropertyBoxed "tabs" (Just val) - -data TextViewTabsPropertyInfo -instance AttrInfo TextViewTabsPropertyInfo where - type AttrAllowedOps TextViewTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint TextViewTabsPropertyInfo = TextViewK - type AttrGetType TextViewTabsPropertyInfo = (Maybe Pango.TabArray) - type AttrLabel TextViewTabsPropertyInfo = "tabs" - attrGet _ = getTextViewTabs - attrSet _ = setTextViewTabs - attrConstruct _ = constructTextViewTabs - attrClear _ = undefined - --- VVV Prop "top-margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewTopMargin obj = liftIO $ getObjectPropertyInt32 obj "top-margin" - -setTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewTopMargin obj val = liftIO $ setObjectPropertyInt32 obj "top-margin" val - -constructTextViewTopMargin :: Int32 -> IO ([Char], GValue) -constructTextViewTopMargin val = constructObjectPropertyInt32 "top-margin" val - -data TextViewTopMarginPropertyInfo -instance AttrInfo TextViewTopMarginPropertyInfo where - type AttrAllowedOps TextViewTopMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewTopMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewTopMarginPropertyInfo = TextViewK - type AttrGetType TextViewTopMarginPropertyInfo = Int32 - type AttrLabel TextViewTopMarginPropertyInfo = "top-margin" - attrGet _ = getTextViewTopMargin - attrSet _ = setTextViewTopMargin - attrConstruct _ = constructTextViewTopMargin - attrClear _ = undefined - --- VVV Prop "wrap-mode" - -- Type: TInterface "Gtk" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> m WrapMode -getTextViewWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> WrapMode -> m () -setTextViewWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructTextViewWrapMode :: WrapMode -> IO ([Char], GValue) -constructTextViewWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data TextViewWrapModePropertyInfo -instance AttrInfo TextViewWrapModePropertyInfo where - type AttrAllowedOps TextViewWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewWrapModePropertyInfo = (~) WrapMode - type AttrBaseTypeConstraint TextViewWrapModePropertyInfo = TextViewK - type AttrGetType TextViewWrapModePropertyInfo = WrapMode - type AttrLabel TextViewWrapModePropertyInfo = "wrap-mode" - attrGet _ = getTextViewWrapMode - attrSet _ = setTextViewWrapMode - attrConstruct _ = constructTextViewWrapMode - attrClear _ = undefined - -type instance AttributeList TextView = TextViewAttributeList -type TextViewAttributeList = ('[ '("acceptsTab", TextViewAcceptsTabPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomMargin", TextViewBottomMarginPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorVisible", TextViewCursorVisiblePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("imModule", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("inputHints", TextViewInputHintsPropertyInfo), '("inputPurpose", TextViewInputPurposePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("leftMargin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixelsAboveLines", TextViewPixelsAboveLinesPropertyInfo), '("pixelsBelowLines", TextViewPixelsBelowLinesPropertyInfo), '("pixelsInsideWrap", TextViewPixelsInsideWrapPropertyInfo), '("populateAll", TextViewPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightMargin", TextViewRightMarginPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topMargin", TextViewTopMarginPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapMode", TextViewWrapModePropertyInfo)] :: [(Symbol, *)]) - -textViewAcceptsTab :: AttrLabelProxy "acceptsTab" -textViewAcceptsTab = AttrLabelProxy - -textViewBottomMargin :: AttrLabelProxy "bottomMargin" -textViewBottomMargin = AttrLabelProxy - -textViewBuffer :: AttrLabelProxy "buffer" -textViewBuffer = AttrLabelProxy - -textViewCursorVisible :: AttrLabelProxy "cursorVisible" -textViewCursorVisible = AttrLabelProxy - -textViewEditable :: AttrLabelProxy "editable" -textViewEditable = AttrLabelProxy - -textViewImModule :: AttrLabelProxy "imModule" -textViewImModule = AttrLabelProxy - -textViewIndent :: AttrLabelProxy "indent" -textViewIndent = AttrLabelProxy - -textViewInputHints :: AttrLabelProxy "inputHints" -textViewInputHints = AttrLabelProxy - -textViewInputPurpose :: AttrLabelProxy "inputPurpose" -textViewInputPurpose = AttrLabelProxy - -textViewJustification :: AttrLabelProxy "justification" -textViewJustification = AttrLabelProxy - -textViewLeftMargin :: AttrLabelProxy "leftMargin" -textViewLeftMargin = AttrLabelProxy - -textViewMonospace :: AttrLabelProxy "monospace" -textViewMonospace = AttrLabelProxy - -textViewOverwrite :: AttrLabelProxy "overwrite" -textViewOverwrite = AttrLabelProxy - -textViewPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" -textViewPixelsAboveLines = AttrLabelProxy - -textViewPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" -textViewPixelsBelowLines = AttrLabelProxy - -textViewPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" -textViewPixelsInsideWrap = AttrLabelProxy - -textViewPopulateAll :: AttrLabelProxy "populateAll" -textViewPopulateAll = AttrLabelProxy - -textViewRightMargin :: AttrLabelProxy "rightMargin" -textViewRightMargin = AttrLabelProxy - -textViewTabs :: AttrLabelProxy "tabs" -textViewTabs = AttrLabelProxy - -textViewTopMargin :: AttrLabelProxy "topMargin" -textViewTopMargin = AttrLabelProxy - -textViewWrapMode :: AttrLabelProxy "wrapMode" -textViewWrapMode = AttrLabelProxy - -data TextViewBackspaceSignalInfo -instance SignalInfo TextViewBackspaceSignalInfo where - type HaskellCallbackType TextViewBackspaceSignalInfo = TextViewBackspaceCallback - connectSignal _ = connectTextViewBackspace - -data TextViewCopyClipboardSignalInfo -instance SignalInfo TextViewCopyClipboardSignalInfo where - type HaskellCallbackType TextViewCopyClipboardSignalInfo = TextViewCopyClipboardCallback - connectSignal _ = connectTextViewCopyClipboard - -data TextViewCutClipboardSignalInfo -instance SignalInfo TextViewCutClipboardSignalInfo where - type HaskellCallbackType TextViewCutClipboardSignalInfo = TextViewCutClipboardCallback - connectSignal _ = connectTextViewCutClipboard - -data TextViewDeleteFromCursorSignalInfo -instance SignalInfo TextViewDeleteFromCursorSignalInfo where - type HaskellCallbackType TextViewDeleteFromCursorSignalInfo = TextViewDeleteFromCursorCallback - connectSignal _ = connectTextViewDeleteFromCursor - -data TextViewExtendSelectionSignalInfo -instance SignalInfo TextViewExtendSelectionSignalInfo where - type HaskellCallbackType TextViewExtendSelectionSignalInfo = TextViewExtendSelectionCallback - connectSignal _ = connectTextViewExtendSelection - -data TextViewInsertAtCursorSignalInfo -instance SignalInfo TextViewInsertAtCursorSignalInfo where - type HaskellCallbackType TextViewInsertAtCursorSignalInfo = TextViewInsertAtCursorCallback - connectSignal _ = connectTextViewInsertAtCursor - -data TextViewMoveCursorSignalInfo -instance SignalInfo TextViewMoveCursorSignalInfo where - type HaskellCallbackType TextViewMoveCursorSignalInfo = TextViewMoveCursorCallback - connectSignal _ = connectTextViewMoveCursor - -data TextViewMoveViewportSignalInfo -instance SignalInfo TextViewMoveViewportSignalInfo where - type HaskellCallbackType TextViewMoveViewportSignalInfo = TextViewMoveViewportCallback - connectSignal _ = connectTextViewMoveViewport - -data TextViewPasteClipboardSignalInfo -instance SignalInfo TextViewPasteClipboardSignalInfo where - type HaskellCallbackType TextViewPasteClipboardSignalInfo = TextViewPasteClipboardCallback - connectSignal _ = connectTextViewPasteClipboard - -data TextViewPopulatePopupSignalInfo -instance SignalInfo TextViewPopulatePopupSignalInfo where - type HaskellCallbackType TextViewPopulatePopupSignalInfo = TextViewPopulatePopupCallback - connectSignal _ = connectTextViewPopulatePopup - -data TextViewPreeditChangedSignalInfo -instance SignalInfo TextViewPreeditChangedSignalInfo where - type HaskellCallbackType TextViewPreeditChangedSignalInfo = TextViewPreeditChangedCallback - connectSignal _ = connectTextViewPreeditChanged - -data TextViewSelectAllSignalInfo -instance SignalInfo TextViewSelectAllSignalInfo where - type HaskellCallbackType TextViewSelectAllSignalInfo = TextViewSelectAllCallback - connectSignal _ = connectTextViewSelectAll - -data TextViewSetAnchorSignalInfo -instance SignalInfo TextViewSetAnchorSignalInfo where - type HaskellCallbackType TextViewSetAnchorSignalInfo = TextViewSetAnchorCallback - connectSignal _ = connectTextViewSetAnchor - -data TextViewToggleCursorVisibleSignalInfo -instance SignalInfo TextViewToggleCursorVisibleSignalInfo where - type HaskellCallbackType TextViewToggleCursorVisibleSignalInfo = TextViewToggleCursorVisibleCallback - connectSignal _ = connectTextViewToggleCursorVisible - -data TextViewToggleOverwriteSignalInfo -instance SignalInfo TextViewToggleOverwriteSignalInfo where - type HaskellCallbackType TextViewToggleOverwriteSignalInfo = TextViewToggleOverwriteCallback - connectSignal _ = connectTextViewToggleOverwrite - -type instance SignalList TextView = TextViewSignalList -type TextViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("backspace", TextViewBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", TextViewCopyClipboardSignalInfo), '("cutClipboard", TextViewCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", TextViewDeleteFromCursorSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("extendSelection", TextViewExtendSelectionSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insertAtCursor", TextViewInsertAtCursorSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", TextViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveViewport", TextViewMoveViewportSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", TextViewPasteClipboardSignalInfo), '("populatePopup", TextViewPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", TextViewPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", TextViewSelectAllSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setAnchor", TextViewSetAnchorSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorVisible", TextViewToggleCursorVisibleSignalInfo), '("toggleOverwrite", TextViewToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method TextView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_new" gtk_text_view_new :: - IO (Ptr TextView) - - -textViewNew :: - (MonadIO m) => - m TextView -- result -textViewNew = liftIO $ do - result <- gtk_text_view_new - checkUnexpectedReturnNULL "gtk_text_view_new" result - result' <- (newObject TextView) result - return result' - --- method TextView::new_with_buffer --- method type : Constructor --- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_new_with_buffer" gtk_text_view_new_with_buffer :: - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO (Ptr TextView) - - -textViewNewWithBuffer :: - (MonadIO m, TextBufferK a) => - a -- buffer - -> m TextView -- result -textViewNewWithBuffer buffer = liftIO $ do - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_text_view_new_with_buffer buffer' - checkUnexpectedReturnNULL "gtk_text_view_new_with_buffer" result - result' <- (newObject TextView) result - touchManagedPtr buffer - return result' - --- method TextView::add_child_at_anchor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", 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 "gtk_text_view_add_child_at_anchor" gtk_text_view_add_child_at_anchor :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textViewAddChildAtAnchor :: - (MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) => - a -- _obj - -> b -- child - -> c -- anchor - -> m () -- result -textViewAddChildAtAnchor _obj child anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_view_add_child_at_anchor _obj' child' anchor' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr anchor - return () - -data TextViewAddChildAtAnchorMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) => MethodInfo TextViewAddChildAtAnchorMethodInfo a signature where - overloadedMethod _ = textViewAddChildAtAnchor - --- method TextView::add_child_in_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", 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 "gtk_text_view_add_child_in_window" gtk_text_view_add_child_in_window :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CUInt -> -- which_window : TInterface "Gtk" "TextWindowType" - Int32 -> -- xpos : TBasicType TInt - Int32 -> -- ypos : TBasicType TInt - IO () - - -textViewAddChildInWindow :: - (MonadIO m, TextViewK a, WidgetK b) => - a -- _obj - -> b -- child - -> TextWindowType -- whichWindow - -> Int32 -- xpos - -> Int32 -- ypos - -> m () -- result -textViewAddChildInWindow _obj child whichWindow xpos ypos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let whichWindow' = (fromIntegral . fromEnum) whichWindow - gtk_text_view_add_child_in_window _obj' child' whichWindow' xpos ypos - touchManagedPtr _obj - touchManagedPtr child - return () - -data TextViewAddChildInWindowMethodInfo -instance (signature ~ (b -> TextWindowType -> Int32 -> Int32 -> m ()), MonadIO m, TextViewK a, WidgetK b) => MethodInfo TextViewAddChildInWindowMethodInfo a signature where - overloadedMethod _ = textViewAddChildInWindow - --- method TextView::backward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_view_backward_display_line" gtk_text_view_backward_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewBackwardDisplayLine :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m Bool -- result -textViewBackwardDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_backward_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewBackwardDisplayLineMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewBackwardDisplayLineMethodInfo a signature where - overloadedMethod _ = textViewBackwardDisplayLine - --- method TextView::backward_display_line_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_view_backward_display_line_start" gtk_text_view_backward_display_line_start :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewBackwardDisplayLineStart :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m Bool -- result -textViewBackwardDisplayLineStart _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_backward_display_line_start _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewBackwardDisplayLineStartMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewBackwardDisplayLineStartMethodInfo a signature where - overloadedMethod _ = textViewBackwardDisplayLineStart - --- method TextView::buffer_to_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "window_y", argType = TBasicType TInt, 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 "gtk_text_view_buffer_to_window_coords" gtk_text_view_buffer_to_window_coords :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- buffer_x : TBasicType TInt - Int32 -> -- buffer_y : TBasicType TInt - Ptr Int32 -> -- window_x : TBasicType TInt - Ptr Int32 -> -- window_y : TBasicType TInt - IO () - - -textViewBufferToWindowCoords :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextWindowType -- win - -> Int32 -- bufferX - -> Int32 -- bufferY - -> m (Int32,Int32) -- result -textViewBufferToWindowCoords _obj win bufferX bufferY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - windowX <- allocMem :: IO (Ptr Int32) - windowY <- allocMem :: IO (Ptr Int32) - gtk_text_view_buffer_to_window_coords _obj' win' bufferX bufferY windowX windowY - windowX' <- peek windowX - windowY' <- peek windowY - touchManagedPtr _obj - freeMem windowX - freeMem windowY - return (windowX', windowY') - -data TextViewBufferToWindowCoordsMethodInfo -instance (signature ~ (TextWindowType -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewBufferToWindowCoordsMethodInfo a signature where - overloadedMethod _ = textViewBufferToWindowCoords - --- method TextView::forward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_view_forward_display_line" gtk_text_view_forward_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewForwardDisplayLine :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m Bool -- result -textViewForwardDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_forward_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewForwardDisplayLineMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewForwardDisplayLineMethodInfo a signature where - overloadedMethod _ = textViewForwardDisplayLine - --- method TextView::forward_display_line_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_view_forward_display_line_end" gtk_text_view_forward_display_line_end :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewForwardDisplayLineEnd :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m Bool -- result -textViewForwardDisplayLineEnd _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_forward_display_line_end _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewForwardDisplayLineEndMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewForwardDisplayLineEndMethodInfo a signature where - overloadedMethod _ = textViewForwardDisplayLineEnd - --- method TextView::get_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_accepts_tab" gtk_text_view_get_accepts_tab :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetAcceptsTab :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewGetAcceptsTab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_accepts_tab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewGetAcceptsTabMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetAcceptsTabMethodInfo a signature where - overloadedMethod _ = textViewGetAcceptsTab - --- method TextView::get_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", 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 "gtk_text_view_get_border_window_size" gtk_text_view_get_border_window_size :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- type : TInterface "Gtk" "TextWindowType" - IO Int32 - - -textViewGetBorderWindowSize :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextWindowType -- type_ - -> m Int32 -- result -textViewGetBorderWindowSize _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- gtk_text_view_get_border_window_size _obj' type_' - touchManagedPtr _obj - return result - -data TextViewGetBorderWindowSizeMethodInfo -instance (signature ~ (TextWindowType -> m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetBorderWindowSizeMethodInfo a signature where - overloadedMethod _ = textViewGetBorderWindowSize - --- method TextView::get_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_bottom_margin" gtk_text_view_get_bottom_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetBottomMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetBottomMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_bottom_margin _obj' - touchManagedPtr _obj - return result - -data TextViewGetBottomMarginMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetBottomMarginMethodInfo a signature where - overloadedMethod _ = textViewGetBottomMargin - --- method TextView::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_buffer" gtk_text_view_get_buffer :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr TextBuffer) - - -textViewGetBuffer :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m TextBuffer -- result -textViewGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_buffer" result - result' <- (newObject TextBuffer) result - touchManagedPtr _obj - return result' - -data TextViewGetBufferMethodInfo -instance (signature ~ (m TextBuffer), MonadIO m, TextViewK a) => MethodInfo TextViewGetBufferMethodInfo a signature where - overloadedMethod _ = textViewGetBuffer - --- method TextView::get_cursor_locations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "weak", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_cursor_locations" gtk_text_view_get_cursor_locations :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Gdk.Rectangle -> -- strong : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- weak : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetCursorLocations :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Maybe (TextIter) -- iter - -> m (Gdk.Rectangle,Gdk.Rectangle) -- result -textViewGetCursorLocations _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - strong <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - weak <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_cursor_locations _obj' maybeIter strong weak - strong' <- (wrapBoxed Gdk.Rectangle) strong - weak' <- (wrapBoxed Gdk.Rectangle) weak - touchManagedPtr _obj - whenJust iter touchManagedPtr - return (strong', weak') - -data TextViewGetCursorLocationsMethodInfo -instance (signature ~ (Maybe (TextIter) -> m (Gdk.Rectangle,Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetCursorLocationsMethodInfo a signature where - overloadedMethod _ = textViewGetCursorLocations - --- method TextView::get_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_cursor_visible" gtk_text_view_get_cursor_visible :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetCursorVisible :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewGetCursorVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_cursor_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewGetCursorVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetCursorVisibleMethodInfo a signature where - overloadedMethod _ = textViewGetCursorVisible - --- method TextView::get_default_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_default_attributes" gtk_text_view_get_default_attributes :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr TextAttributes) - - -textViewGetDefaultAttributes :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m TextAttributes -- result -textViewGetDefaultAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_default_attributes _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_default_attributes" result - result' <- (wrapBoxed TextAttributes) result - touchManagedPtr _obj - return result' - -data TextViewGetDefaultAttributesMethodInfo -instance (signature ~ (m TextAttributes), MonadIO m, TextViewK a) => MethodInfo TextViewGetDefaultAttributesMethodInfo a signature where - overloadedMethod _ = textViewGetDefaultAttributes - --- method TextView::get_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_editable" gtk_text_view_get_editable :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetEditable :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewGetEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewGetEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetEditableMethodInfo a signature where - overloadedMethod _ = textViewGetEditable - --- method TextView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_hadjustment" gtk_text_view_get_hadjustment :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Adjustment) - -{-# DEPRECATED textViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -textViewGetHadjustment :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Adjustment -- result -textViewGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data TextViewGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, TextViewK a) => MethodInfo TextViewGetHadjustmentMethodInfo a signature where - overloadedMethod _ = textViewGetHadjustment - --- method TextView::get_indent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_indent" gtk_text_view_get_indent :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetIndent :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetIndent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_indent _obj' - touchManagedPtr _obj - return result - -data TextViewGetIndentMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetIndentMethodInfo a signature where - overloadedMethod _ = textViewGetIndent - --- method TextView::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "InputHints") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_input_hints" gtk_text_view_get_input_hints :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetInputHints :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m [InputHints] -- result -textViewGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TextViewGetInputHintsMethodInfo -instance (signature ~ (m [InputHints]), MonadIO m, TextViewK a) => MethodInfo TextViewGetInputHintsMethodInfo a signature where - overloadedMethod _ = textViewGetInputHints - --- method TextView::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "InputPurpose") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_input_purpose" gtk_text_view_get_input_purpose :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetInputPurpose :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m InputPurpose -- result -textViewGetInputPurpose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_input_purpose _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TextViewGetInputPurposeMethodInfo -instance (signature ~ (m InputPurpose), MonadIO m, TextViewK a) => MethodInfo TextViewGetInputPurposeMethodInfo a signature where - overloadedMethod _ = textViewGetInputPurpose - --- method TextView::get_iter_at_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_at_location" gtk_text_view_get_iter_at_location :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -textViewGetIterAtLocation :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (TextIter) -- result -textViewGetIterAtLocation _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_view_get_iter_at_location _obj' iter x y - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - -data TextViewGetIterAtLocationMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterAtLocationMethodInfo a signature where - overloadedMethod _ = textViewGetIterAtLocation - --- method TextView::get_iter_at_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_at_position" gtk_text_view_get_iter_at_position :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- trailing : TBasicType TInt - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -textViewGetIterAtPosition :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (TextIter,Int32) -- result -textViewGetIterAtPosition _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - trailing <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_iter_at_position _obj' iter trailing x y - iter' <- (wrapBoxed TextIter) iter - trailing' <- peek trailing - touchManagedPtr _obj - freeMem trailing - return (iter', trailing') - -data TextViewGetIterAtPositionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (TextIter,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterAtPositionMethodInfo a signature where - overloadedMethod _ = textViewGetIterAtPosition - --- method TextView::get_iter_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_location" gtk_text_view_get_iter_location :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetIterLocation :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m (Gdk.Rectangle) -- result -textViewGetIterLocation _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - location <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_iter_location _obj' iter' location - location' <- (wrapBoxed Gdk.Rectangle) location - touchManagedPtr _obj - touchManagedPtr iter - return location' - -data TextViewGetIterLocationMethodInfo -instance (signature ~ (TextIter -> m (Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterLocationMethodInfo a signature where - overloadedMethod _ = textViewGetIterLocation - --- method TextView::get_justification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Justification") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_justification" gtk_text_view_get_justification :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetJustification :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Justification -- result -textViewGetJustification _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_justification _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TextViewGetJustificationMethodInfo -instance (signature ~ (m Justification), MonadIO m, TextViewK a) => MethodInfo TextViewGetJustificationMethodInfo a signature where - overloadedMethod _ = textViewGetJustification - --- method TextView::get_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_left_margin" gtk_text_view_get_left_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetLeftMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetLeftMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_left_margin _obj' - touchManagedPtr _obj - return result - -data TextViewGetLeftMarginMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetLeftMarginMethodInfo a signature where - overloadedMethod _ = textViewGetLeftMargin - --- method TextView::get_line_at_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_top", argType = TBasicType TInt, 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 "gtk_text_view_get_line_at_y" gtk_text_view_get_line_at_y :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- target_iter : TInterface "Gtk" "TextIter" - Int32 -> -- y : TBasicType TInt - Ptr Int32 -> -- line_top : TBasicType TInt - IO () - - -textViewGetLineAtY :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- y - -> m (TextIter,Int32) -- result -textViewGetLineAtY _obj y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - targetIter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - lineTop <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_line_at_y _obj' targetIter y lineTop - targetIter' <- (wrapBoxed TextIter) targetIter - lineTop' <- peek lineTop - touchManagedPtr _obj - freeMem lineTop - return (targetIter', lineTop') - -data TextViewGetLineAtYMethodInfo -instance (signature ~ (Int32 -> m (TextIter,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetLineAtYMethodInfo a signature where - overloadedMethod _ = textViewGetLineAtY - --- method TextView::get_line_yrange --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_text_view_get_line_yrange" gtk_text_view_get_line_yrange :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- y : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -textViewGetLineYrange :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m (Int32,Int32) -- result -textViewGetLineYrange _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - y <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_line_yrange _obj' iter' y height - y' <- peek y - height' <- peek height - touchManagedPtr _obj - touchManagedPtr iter - freeMem y - freeMem height - return (y', height') - -data TextViewGetLineYrangeMethodInfo -instance (signature ~ (TextIter -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetLineYrangeMethodInfo a signature where - overloadedMethod _ = textViewGetLineYrange - --- method TextView::get_monospace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_monospace" gtk_text_view_get_monospace :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetMonospace :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewGetMonospace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_monospace _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewGetMonospaceMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetMonospaceMethodInfo a signature where - overloadedMethod _ = textViewGetMonospace - --- method TextView::get_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_overwrite" gtk_text_view_get_overwrite :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetOverwrite :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewGetOverwrite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_overwrite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewGetOverwriteMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetOverwriteMethodInfo a signature where - overloadedMethod _ = textViewGetOverwrite - --- method TextView::get_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_pixels_above_lines" gtk_text_view_get_pixels_above_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsAboveLines :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetPixelsAboveLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_above_lines _obj' - touchManagedPtr _obj - return result - -data TextViewGetPixelsAboveLinesMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsAboveLinesMethodInfo a signature where - overloadedMethod _ = textViewGetPixelsAboveLines - --- method TextView::get_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_pixels_below_lines" gtk_text_view_get_pixels_below_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsBelowLines :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetPixelsBelowLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_below_lines _obj' - touchManagedPtr _obj - return result - -data TextViewGetPixelsBelowLinesMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsBelowLinesMethodInfo a signature where - overloadedMethod _ = textViewGetPixelsBelowLines - --- method TextView::get_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_pixels_inside_wrap" gtk_text_view_get_pixels_inside_wrap :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsInsideWrap :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetPixelsInsideWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_inside_wrap _obj' - touchManagedPtr _obj - return result - -data TextViewGetPixelsInsideWrapMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsInsideWrapMethodInfo a signature where - overloadedMethod _ = textViewGetPixelsInsideWrap - --- method TextView::get_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_right_margin" gtk_text_view_get_right_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetRightMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetRightMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_right_margin _obj' - touchManagedPtr _obj - return result - -data TextViewGetRightMarginMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetRightMarginMethodInfo a signature where - overloadedMethod _ = textViewGetRightMargin - --- method TextView::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "TabArray") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_tabs" gtk_text_view_get_tabs :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Pango.TabArray) - - -textViewGetTabs :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Pango.TabArray -- result -textViewGetTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_tabs _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_tabs" result - result' <- (wrapBoxed Pango.TabArray) result - touchManagedPtr _obj - return result' - -data TextViewGetTabsMethodInfo -instance (signature ~ (m Pango.TabArray), MonadIO m, TextViewK a) => MethodInfo TextViewGetTabsMethodInfo a signature where - overloadedMethod _ = textViewGetTabs - --- method TextView::get_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_get_top_margin" gtk_text_view_get_top_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetTopMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Int32 -- result -textViewGetTopMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_top_margin _obj' - touchManagedPtr _obj - return result - -data TextViewGetTopMarginMethodInfo -instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetTopMarginMethodInfo a signature where - overloadedMethod _ = textViewGetTopMargin - --- method TextView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_vadjustment" gtk_text_view_get_vadjustment :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Adjustment) - -{-# DEPRECATED textViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -textViewGetVadjustment :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Adjustment -- result -textViewGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data TextViewGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, TextViewK a) => MethodInfo TextViewGetVadjustmentMethodInfo a signature where - overloadedMethod _ = textViewGetVadjustment - --- method TextView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_visible_rect" gtk_text_view_get_visible_rect :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetVisibleRect :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -textViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visibleRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_visible_rect _obj' visibleRect - visibleRect' <- (wrapBoxed Gdk.Rectangle) visibleRect - touchManagedPtr _obj - return visibleRect' - -data TextViewGetVisibleRectMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetVisibleRectMethodInfo a signature where - overloadedMethod _ = textViewGetVisibleRect - --- method TextView::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_window" gtk_text_view_get_window :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - IO (Ptr Gdk.Window) - - -textViewGetWindow :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextWindowType -- win - -> m Gdk.Window -- result -textViewGetWindow _obj win = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - result <- gtk_text_view_get_window _obj' win' - checkUnexpectedReturnNULL "gtk_text_view_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data TextViewGetWindowMethodInfo -instance (signature ~ (TextWindowType -> m Gdk.Window), MonadIO m, TextViewK a) => MethodInfo TextViewGetWindowMethodInfo a signature where - overloadedMethod _ = textViewGetWindow - --- method TextView::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextWindowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_window_type" gtk_text_view_get_window_type :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO CUInt - - -textViewGetWindowType :: - (MonadIO m, TextViewK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m TextWindowType -- result -textViewGetWindowType _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - result <- gtk_text_view_get_window_type _obj' window' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr window - return result' - -data TextViewGetWindowTypeMethodInfo -instance (signature ~ (b -> m TextWindowType), MonadIO m, TextViewK a, Gdk.WindowK b) => MethodInfo TextViewGetWindowTypeMethodInfo a signature where - overloadedMethod _ = textViewGetWindowType - --- method TextView::get_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WrapMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_wrap_mode" gtk_text_view_get_wrap_mode :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetWrapMode :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m WrapMode -- result -textViewGetWrapMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_wrap_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TextViewGetWrapModeMethodInfo -instance (signature ~ (m WrapMode), MonadIO m, TextViewK a) => MethodInfo TextViewGetWrapModeMethodInfo a signature where - overloadedMethod _ = textViewGetWrapMode - --- method TextView::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_text_view_im_context_filter_keypress" gtk_text_view_im_context_filter_keypress :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -textViewImContextFilterKeypress :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Gdk.EventKey -- event - -> m Bool -- result -textViewImContextFilterKeypress _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_text_view_im_context_filter_keypress _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data TextViewImContextFilterKeypressMethodInfo -instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewImContextFilterKeypressMethodInfo a signature where - overloadedMethod _ = textViewImContextFilterKeypress - --- method TextView::move_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", 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 "gtk_text_view_move_child" gtk_text_view_move_child :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- xpos : TBasicType TInt - Int32 -> -- ypos : TBasicType TInt - IO () - - -textViewMoveChild :: - (MonadIO m, TextViewK a, WidgetK b) => - a -- _obj - -> b -- child - -> Int32 -- xpos - -> Int32 -- ypos - -> m () -- result -textViewMoveChild _obj child xpos ypos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_text_view_move_child _obj' child' xpos ypos - touchManagedPtr _obj - touchManagedPtr child - return () - -data TextViewMoveChildMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, TextViewK a, WidgetK b) => MethodInfo TextViewMoveChildMethodInfo a signature where - overloadedMethod _ = textViewMoveChild - --- method TextView::move_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_view_move_mark_onscreen" gtk_text_view_move_mark_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO CInt - - -textViewMoveMarkOnscreen :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> m Bool -- result -textViewMoveMarkOnscreen _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - result <- gtk_text_view_move_mark_onscreen _obj' mark' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr mark - return result' - -data TextViewMoveMarkOnscreenMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewMoveMarkOnscreenMethodInfo a signature where - overloadedMethod _ = textViewMoveMarkOnscreen - --- method TextView::move_visually --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_view_move_visually" gtk_text_view_move_visually :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textViewMoveVisually :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> Int32 -- count - -> m Bool -- result -textViewMoveVisually _obj iter count = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_move_visually _obj' iter' count - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewMoveVisuallyMethodInfo -instance (signature ~ (TextIter -> Int32 -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewMoveVisuallyMethodInfo a signature where - overloadedMethod _ = textViewMoveVisually - --- method TextView::place_cursor_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_place_cursor_onscreen" gtk_text_view_place_cursor_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewPlaceCursorOnscreen :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m Bool -- result -textViewPlaceCursorOnscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_place_cursor_onscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextViewPlaceCursorOnscreenMethodInfo -instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewPlaceCursorOnscreenMethodInfo a signature where - overloadedMethod _ = textViewPlaceCursorOnscreen - --- method TextView::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 "gtk_text_view_reset_im_context" gtk_text_view_reset_im_context :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO () - - -textViewResetImContext :: - (MonadIO m, TextViewK a) => - a -- _obj - -> m () -- result -textViewResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_reset_im_context _obj' - touchManagedPtr _obj - return () - -data TextViewResetImContextMethodInfo -instance (signature ~ (m ()), MonadIO m, TextViewK a) => MethodInfo TextViewResetImContextMethodInfo a signature where - overloadedMethod _ = textViewResetImContext - --- method TextView::scroll_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", 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 "gtk_text_view_scroll_mark_onscreen" gtk_text_view_scroll_mark_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textViewScrollMarkOnscreen :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> m () -- result -textViewScrollMarkOnscreen _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_view_scroll_mark_onscreen _obj' mark' - touchManagedPtr _obj - touchManagedPtr mark - return () - -data TextViewScrollMarkOnscreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewScrollMarkOnscreenMethodInfo a signature where - overloadedMethod _ = textViewScrollMarkOnscreen - --- method TextView::scroll_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TDouble, 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 "gtk_text_view_scroll_to_iter" gtk_text_view_scroll_to_iter :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CDouble -> -- within_margin : TBasicType TDouble - CInt -> -- use_align : TBasicType TBoolean - CDouble -> -- xalign : TBasicType TDouble - CDouble -> -- yalign : TBasicType TDouble - IO CInt - - -textViewScrollToIter :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> Double -- withinMargin - -> Bool -- useAlign - -> Double -- xalign - -> Double -- yalign - -> m Bool -- result -textViewScrollToIter _obj iter withinMargin useAlign xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let withinMargin' = realToFrac withinMargin - let useAlign' = (fromIntegral . fromEnum) useAlign - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - result <- gtk_text_view_scroll_to_iter _obj' iter' withinMargin' useAlign' xalign' yalign' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewScrollToIterMethodInfo -instance (signature ~ (TextIter -> Double -> Bool -> Double -> Double -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewScrollToIterMethodInfo a signature where - overloadedMethod _ = textViewScrollToIter - --- method TextView::scroll_to_mark --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", 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 "gtk_text_view_scroll_to_mark" gtk_text_view_scroll_to_mark :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - CDouble -> -- within_margin : TBasicType TDouble - CInt -> -- use_align : TBasicType TBoolean - CDouble -> -- xalign : TBasicType TDouble - CDouble -> -- yalign : TBasicType TDouble - IO () - - -textViewScrollToMark :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -- _obj - -> b -- mark - -> Double -- withinMargin - -> Bool -- useAlign - -> Double -- xalign - -> Double -- yalign - -> m () -- result -textViewScrollToMark _obj mark withinMargin useAlign xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let withinMargin' = realToFrac withinMargin - let useAlign' = (fromIntegral . fromEnum) useAlign - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_text_view_scroll_to_mark _obj' mark' withinMargin' useAlign' xalign' yalign' - touchManagedPtr _obj - touchManagedPtr mark - return () - -data TextViewScrollToMarkMethodInfo -instance (signature ~ (b -> Double -> Bool -> Double -> Double -> m ()), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewScrollToMarkMethodInfo a signature where - overloadedMethod _ = textViewScrollToMark - --- method TextView::set_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepts_tab", 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 "gtk_text_view_set_accepts_tab" gtk_text_view_set_accepts_tab :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- accepts_tab : TBasicType TBoolean - IO () - - -textViewSetAcceptsTab :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Bool -- acceptsTab - -> m () -- result -textViewSetAcceptsTab _obj acceptsTab = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let acceptsTab' = (fromIntegral . fromEnum) acceptsTab - gtk_text_view_set_accepts_tab _obj' acceptsTab' - touchManagedPtr _obj - return () - -data TextViewSetAcceptsTabMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetAcceptsTabMethodInfo a signature where - overloadedMethod _ = textViewSetAcceptsTab - --- method TextView::set_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_text_view_set_border_window_size" gtk_text_view_set_border_window_size :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- type : TInterface "Gtk" "TextWindowType" - Int32 -> -- size : TBasicType TInt - IO () - - -textViewSetBorderWindowSize :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextWindowType -- type_ - -> Int32 -- size - -> m () -- result -textViewSetBorderWindowSize _obj type_ size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_text_view_set_border_window_size _obj' type_' size - touchManagedPtr _obj - return () - -data TextViewSetBorderWindowSizeMethodInfo -instance (signature ~ (TextWindowType -> Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetBorderWindowSizeMethodInfo a signature where - overloadedMethod _ = textViewSetBorderWindowSize - --- method TextView::set_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_margin", 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 "gtk_text_view_set_bottom_margin" gtk_text_view_set_bottom_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- bottom_margin : TBasicType TInt - IO () - - -textViewSetBottomMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- bottomMargin - -> m () -- result -textViewSetBottomMargin _obj bottomMargin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_bottom_margin _obj' bottomMargin - touchManagedPtr _obj - return () - -data TextViewSetBottomMarginMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetBottomMarginMethodInfo a signature where - overloadedMethod _ = textViewSetBottomMargin - --- method TextView::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_buffer" gtk_text_view_set_buffer :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO () - - -textViewSetBuffer :: - (MonadIO m, TextViewK a, TextBufferK b) => - a -- _obj - -> Maybe (b) -- buffer - -> m () -- result -textViewSetBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBuffer <- case buffer of - Nothing -> return nullPtr - Just jBuffer -> do - let jBuffer' = unsafeManagedPtrCastPtr jBuffer - return jBuffer' - gtk_text_view_set_buffer _obj' maybeBuffer - touchManagedPtr _obj - whenJust buffer touchManagedPtr - return () - -data TextViewSetBufferMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TextViewK a, TextBufferK b) => MethodInfo TextViewSetBufferMethodInfo a signature where - overloadedMethod _ = textViewSetBuffer - --- method TextView::set_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_text_view_set_cursor_visible" gtk_text_view_set_cursor_visible :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textViewSetCursorVisible :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -textViewSetCursorVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_view_set_cursor_visible _obj' setting' - touchManagedPtr _obj - return () - -data TextViewSetCursorVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetCursorVisibleMethodInfo a signature where - overloadedMethod _ = textViewSetCursorVisible - --- method TextView::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_text_view_set_editable" gtk_text_view_set_editable :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textViewSetEditable :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -textViewSetEditable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_view_set_editable _obj' setting' - touchManagedPtr _obj - return () - -data TextViewSetEditableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetEditableMethodInfo a signature where - overloadedMethod _ = textViewSetEditable - --- method TextView::set_indent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", 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 "gtk_text_view_set_indent" gtk_text_view_set_indent :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- indent : TBasicType TInt - IO () - - -textViewSetIndent :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- indent - -> m () -- result -textViewSetIndent _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_indent _obj' indent - touchManagedPtr _obj - return () - -data TextViewSetIndentMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetIndentMethodInfo a signature where - overloadedMethod _ = textViewSetIndent - --- method TextView::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", 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 "gtk_text_view_set_input_hints" gtk_text_view_set_input_hints :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- hints : TInterface "Gtk" "InputHints" - IO () - - -textViewSetInputHints :: - (MonadIO m, TextViewK a) => - a -- _obj - -> [InputHints] -- hints - -> m () -- result -textViewSetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_text_view_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - -data TextViewSetInputHintsMethodInfo -instance (signature ~ ([InputHints] -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetInputHintsMethodInfo a signature where - overloadedMethod _ = textViewSetInputHints - --- method TextView::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", 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 "gtk_text_view_set_input_purpose" gtk_text_view_set_input_purpose :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" - IO () - - -textViewSetInputPurpose :: - (MonadIO m, TextViewK a) => - a -- _obj - -> InputPurpose -- purpose - -> m () -- result -textViewSetInputPurpose _obj purpose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let purpose' = (fromIntegral . fromEnum) purpose - gtk_text_view_set_input_purpose _obj' purpose' - touchManagedPtr _obj - return () - -data TextViewSetInputPurposeMethodInfo -instance (signature ~ (InputPurpose -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetInputPurposeMethodInfo a signature where - overloadedMethod _ = textViewSetInputPurpose - --- method TextView::set_justification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "justification", argType = TInterface "Gtk" "Justification", 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 "gtk_text_view_set_justification" gtk_text_view_set_justification :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- justification : TInterface "Gtk" "Justification" - IO () - - -textViewSetJustification :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Justification -- justification - -> m () -- result -textViewSetJustification _obj justification = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let justification' = (fromIntegral . fromEnum) justification - gtk_text_view_set_justification _obj' justification' - touchManagedPtr _obj - return () - -data TextViewSetJustificationMethodInfo -instance (signature ~ (Justification -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetJustificationMethodInfo a signature where - overloadedMethod _ = textViewSetJustification - --- method TextView::set_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_margin", 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 "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- left_margin : TBasicType TInt - IO () - - -textViewSetLeftMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- leftMargin - -> m () -- result -textViewSetLeftMargin _obj leftMargin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_left_margin _obj' leftMargin - touchManagedPtr _obj - return () - -data TextViewSetLeftMarginMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetLeftMarginMethodInfo a signature where - overloadedMethod _ = textViewSetLeftMargin - --- method TextView::set_monospace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace", 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 "gtk_text_view_set_monospace" gtk_text_view_set_monospace :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- monospace : TBasicType TBoolean - IO () - - -textViewSetMonospace :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Bool -- monospace - -> m () -- result -textViewSetMonospace _obj monospace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let monospace' = (fromIntegral . fromEnum) monospace - gtk_text_view_set_monospace _obj' monospace' - touchManagedPtr _obj - return () - -data TextViewSetMonospaceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetMonospaceMethodInfo a signature where - overloadedMethod _ = textViewSetMonospace - --- method TextView::set_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", 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 "gtk_text_view_set_overwrite" gtk_text_view_set_overwrite :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- overwrite : TBasicType TBoolean - IO () - - -textViewSetOverwrite :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Bool -- overwrite - -> m () -- result -textViewSetOverwrite _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_text_view_set_overwrite _obj' overwrite' - touchManagedPtr _obj - return () - -data TextViewSetOverwriteMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetOverwriteMethodInfo a signature where - overloadedMethod _ = textViewSetOverwrite - --- method TextView::set_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_above_lines", 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 "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_above_lines : TBasicType TInt - IO () - - -textViewSetPixelsAboveLines :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- pixelsAboveLines - -> m () -- result -textViewSetPixelsAboveLines _obj pixelsAboveLines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_above_lines _obj' pixelsAboveLines - touchManagedPtr _obj - return () - -data TextViewSetPixelsAboveLinesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsAboveLinesMethodInfo a signature where - overloadedMethod _ = textViewSetPixelsAboveLines - --- method TextView::set_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_below_lines", 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 "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_below_lines : TBasicType TInt - IO () - - -textViewSetPixelsBelowLines :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- pixelsBelowLines - -> m () -- result -textViewSetPixelsBelowLines _obj pixelsBelowLines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_below_lines _obj' pixelsBelowLines - touchManagedPtr _obj - return () - -data TextViewSetPixelsBelowLinesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsBelowLinesMethodInfo a signature where - overloadedMethod _ = textViewSetPixelsBelowLines - --- method TextView::set_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_inside_wrap", 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 "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_inside_wrap : TBasicType TInt - IO () - - -textViewSetPixelsInsideWrap :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- pixelsInsideWrap - -> m () -- result -textViewSetPixelsInsideWrap _obj pixelsInsideWrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_inside_wrap _obj' pixelsInsideWrap - touchManagedPtr _obj - return () - -data TextViewSetPixelsInsideWrapMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsInsideWrapMethodInfo a signature where - overloadedMethod _ = textViewSetPixelsInsideWrap - --- method TextView::set_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_margin", 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 "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- right_margin : TBasicType TInt - IO () - - -textViewSetRightMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- rightMargin - -> m () -- result -textViewSetRightMargin _obj rightMargin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_right_margin _obj' rightMargin - touchManagedPtr _obj - return () - -data TextViewSetRightMarginMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetRightMarginMethodInfo a signature where - overloadedMethod _ = textViewSetRightMargin - --- method TextView::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", 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 "gtk_text_view_set_tabs" gtk_text_view_set_tabs :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" - IO () - - -textViewSetTabs :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Pango.TabArray -- tabs - -> m () -- result -textViewSetTabs _obj tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tabs' = unsafeManagedPtrGetPtr tabs - gtk_text_view_set_tabs _obj' tabs' - touchManagedPtr _obj - touchManagedPtr tabs - return () - -data TextViewSetTabsMethodInfo -instance (signature ~ (Pango.TabArray -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetTabsMethodInfo a signature where - overloadedMethod _ = textViewSetTabs - --- method TextView::set_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_margin", 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 "gtk_text_view_set_top_margin" gtk_text_view_set_top_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- top_margin : TBasicType TInt - IO () - - -textViewSetTopMargin :: - (MonadIO m, TextViewK a) => - a -- _obj - -> Int32 -- topMargin - -> m () -- result -textViewSetTopMargin _obj topMargin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_top_margin _obj' topMargin - touchManagedPtr _obj - return () - -data TextViewSetTopMarginMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetTopMarginMethodInfo a signature where - overloadedMethod _ = textViewSetTopMargin - --- method TextView::set_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", 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 "gtk_text_view_set_wrap_mode" gtk_text_view_set_wrap_mode :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- wrap_mode : TInterface "Gtk" "WrapMode" - IO () - - -textViewSetWrapMode :: - (MonadIO m, TextViewK a) => - a -- _obj - -> WrapMode -- wrapMode - -> m () -- result -textViewSetWrapMode _obj wrapMode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrapMode' = (fromIntegral . fromEnum) wrapMode - gtk_text_view_set_wrap_mode _obj' wrapMode' - touchManagedPtr _obj - return () - -data TextViewSetWrapModeMethodInfo -instance (signature ~ (WrapMode -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetWrapModeMethodInfo a signature where - overloadedMethod _ = textViewSetWrapMode - --- method TextView::starts_display_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_view_starts_display_line" gtk_text_view_starts_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewStartsDisplayLine :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextIter -- iter - -> m Bool -- result -textViewStartsDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_starts_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TextViewStartsDisplayLineMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewStartsDisplayLineMethodInfo a signature where - overloadedMethod _ = textViewStartsDisplayLine - --- method TextView::window_to_buffer_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_y", argType = TBasicType TInt, 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 "gtk_text_view_window_to_buffer_coords" gtk_text_view_window_to_buffer_coords :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- window_x : TBasicType TInt - Int32 -> -- window_y : TBasicType TInt - Ptr Int32 -> -- buffer_x : TBasicType TInt - Ptr Int32 -> -- buffer_y : TBasicType TInt - IO () - - -textViewWindowToBufferCoords :: - (MonadIO m, TextViewK a) => - a -- _obj - -> TextWindowType -- win - -> Int32 -- windowX - -> Int32 -- windowY - -> m (Int32,Int32) -- result -textViewWindowToBufferCoords _obj win windowX windowY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - bufferX <- allocMem :: IO (Ptr Int32) - bufferY <- allocMem :: IO (Ptr Int32) - gtk_text_view_window_to_buffer_coords _obj' win' windowX windowY bufferX bufferY - bufferX' <- peek bufferX - bufferY' <- peek bufferY - touchManagedPtr _obj - freeMem bufferX - freeMem bufferY - return (bufferX', bufferY') - -data TextViewWindowToBufferCoordsMethodInfo -instance (signature ~ (TextWindowType -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewWindowToBufferCoordsMethodInfo a signature where - overloadedMethod _ = textViewWindowToBufferCoords - - diff --git a/GI/Gtk/Objects/TextView.hs-boot b/GI/Gtk/Objects/TextView.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextView.hs-boot +++ /dev/null @@ -1,119 +0,0 @@ -module GI.Gtk.Objects.TextView 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 TextView = TextView (ForeignPtr TextView) -instance GObject TextView where -class GObject o => TextViewK o -instance (GObject o, IsDescendantOf TextView o) => TextViewK o -data TextViewAcceptsTabPropertyInfo -data TextViewBottomMarginPropertyInfo -data TextViewBufferPropertyInfo -data TextViewCursorVisiblePropertyInfo -data TextViewEditablePropertyInfo -data TextViewImModulePropertyInfo -data TextViewIndentPropertyInfo -data TextViewInputHintsPropertyInfo -data TextViewInputPurposePropertyInfo -data TextViewJustificationPropertyInfo -data TextViewLeftMarginPropertyInfo -data TextViewMonospacePropertyInfo -data TextViewOverwritePropertyInfo -data TextViewPixelsAboveLinesPropertyInfo -data TextViewPixelsBelowLinesPropertyInfo -data TextViewPixelsInsideWrapPropertyInfo -data TextViewPopulateAllPropertyInfo -data TextViewRightMarginPropertyInfo -data TextViewTabsPropertyInfo -data TextViewTopMarginPropertyInfo -data TextViewWrapModePropertyInfo -data TextViewBackspaceSignalInfo -data TextViewCopyClipboardSignalInfo -data TextViewCutClipboardSignalInfo -data TextViewDeleteFromCursorSignalInfo -data TextViewExtendSelectionSignalInfo -data TextViewInsertAtCursorSignalInfo -data TextViewMoveCursorSignalInfo -data TextViewMoveViewportSignalInfo -data TextViewPasteClipboardSignalInfo -data TextViewPopulatePopupSignalInfo -data TextViewPreeditChangedSignalInfo -data TextViewSelectAllSignalInfo -data TextViewSetAnchorSignalInfo -data TextViewToggleCursorVisibleSignalInfo -data TextViewToggleOverwriteSignalInfo -data TextViewAddChildAtAnchorMethodInfo -data TextViewAddChildInWindowMethodInfo -data TextViewBackwardDisplayLineMethodInfo -data TextViewBackwardDisplayLineStartMethodInfo -data TextViewBufferToWindowCoordsMethodInfo -data TextViewForwardDisplayLineMethodInfo -data TextViewForwardDisplayLineEndMethodInfo -data TextViewGetAcceptsTabMethodInfo -data TextViewGetBorderWindowSizeMethodInfo -data TextViewGetBottomMarginMethodInfo -data TextViewGetBufferMethodInfo -data TextViewGetCursorLocationsMethodInfo -data TextViewGetCursorVisibleMethodInfo -data TextViewGetDefaultAttributesMethodInfo -data TextViewGetEditableMethodInfo -data TextViewGetHadjustmentMethodInfo -data TextViewGetIndentMethodInfo -data TextViewGetInputHintsMethodInfo -data TextViewGetInputPurposeMethodInfo -data TextViewGetIterAtLocationMethodInfo -data TextViewGetIterAtPositionMethodInfo -data TextViewGetIterLocationMethodInfo -data TextViewGetJustificationMethodInfo -data TextViewGetLeftMarginMethodInfo -data TextViewGetLineAtYMethodInfo -data TextViewGetLineYrangeMethodInfo -data TextViewGetMonospaceMethodInfo -data TextViewGetOverwriteMethodInfo -data TextViewGetPixelsAboveLinesMethodInfo -data TextViewGetPixelsBelowLinesMethodInfo -data TextViewGetPixelsInsideWrapMethodInfo -data TextViewGetRightMarginMethodInfo -data TextViewGetTabsMethodInfo -data TextViewGetTopMarginMethodInfo -data TextViewGetVadjustmentMethodInfo -data TextViewGetVisibleRectMethodInfo -data TextViewGetWindowMethodInfo -data TextViewGetWindowTypeMethodInfo -data TextViewGetWrapModeMethodInfo -data TextViewImContextFilterKeypressMethodInfo -data TextViewMoveChildMethodInfo -data TextViewMoveMarkOnscreenMethodInfo -data TextViewMoveVisuallyMethodInfo -data TextViewPlaceCursorOnscreenMethodInfo -data TextViewResetImContextMethodInfo -data TextViewScrollMarkOnscreenMethodInfo -data TextViewScrollToIterMethodInfo -data TextViewScrollToMarkMethodInfo -data TextViewSetAcceptsTabMethodInfo -data TextViewSetBorderWindowSizeMethodInfo -data TextViewSetBottomMarginMethodInfo -data TextViewSetBufferMethodInfo -data TextViewSetCursorVisibleMethodInfo -data TextViewSetEditableMethodInfo -data TextViewSetIndentMethodInfo -data TextViewSetInputHintsMethodInfo -data TextViewSetInputPurposeMethodInfo -data TextViewSetJustificationMethodInfo -data TextViewSetLeftMarginMethodInfo -data TextViewSetMonospaceMethodInfo -data TextViewSetOverwriteMethodInfo -data TextViewSetPixelsAboveLinesMethodInfo -data TextViewSetPixelsBelowLinesMethodInfo -data TextViewSetPixelsInsideWrapMethodInfo -data TextViewSetRightMarginMethodInfo -data TextViewSetTabsMethodInfo -data TextViewSetTopMarginMethodInfo -data TextViewSetWrapModeMethodInfo -data TextViewStartsDisplayLineMethodInfo -data TextViewWindowToBufferCoordsMethodInfo diff --git a/GI/Gtk/Objects/TextViewAccessible.hs b/GI/Gtk/Objects/TextViewAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TextViewAccessible.hs +++ /dev/null @@ -1,159 +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.Gtk.Objects.TextViewAccessible - ( - --- * Exported types - TextViewAccessible(..) , - TextViewAccessibleK , - toTextViewAccessible , - noTextViewAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype TextViewAccessible = TextViewAccessible (ForeignPtr TextViewAccessible) -foreign import ccall "gtk_text_view_accessible_get_type" - c_gtk_text_view_accessible_get_type :: IO GType - -type instance ParentTypes TextViewAccessible = TextViewAccessibleParentTypes -type TextViewAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.EditableText, Atk.StreamableContent, Atk.Text] - -instance GObject TextViewAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_view_accessible_get_type - - -class GObject o => TextViewAccessibleK o -instance (GObject o, IsDescendantOf TextViewAccessible o) => TextViewAccessibleK o - -toTextViewAccessible :: TextViewAccessibleK o => o -> IO TextViewAccessible -toTextViewAccessible = unsafeCastTo TextViewAccessible - -noTextViewAccessible :: Maybe TextViewAccessible -noTextViewAccessible = Nothing - -type family ResolveTextViewAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveTextViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveTextViewAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo - ResolveTextViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTextViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTextViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveTextViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveTextViewAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo - ResolveTextViewAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo - ResolveTextViewAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo - ResolveTextViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTextViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTextViewAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveTextViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveTextViewAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo - ResolveTextViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTextViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTextViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTextViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveTextViewAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo - ResolveTextViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveTextViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTextViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveTextViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveTextViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveTextViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTextViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveTextViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveTextViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveTextViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveTextViewAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo - ResolveTextViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTextViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTextViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTextViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTextViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTextViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTextViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTextViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTextViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveTextViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveTextViewAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo - ResolveTextViewAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo - ResolveTextViewAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo - ResolveTextViewAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo - ResolveTextViewAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo - ResolveTextViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTextViewAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo - ResolveTextViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveTextViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveTextViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveTextViewAccessibleMethod "getMimeType" o = Atk.StreamableContentGetMimeTypeMethodInfo - ResolveTextViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveTextViewAccessibleMethod "getNMimeTypes" o = Atk.StreamableContentGetNMimeTypesMethodInfo - ResolveTextViewAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo - ResolveTextViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveTextViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveTextViewAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo - ResolveTextViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveTextViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveTextViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTextViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTextViewAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo - ResolveTextViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveTextViewAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo - ResolveTextViewAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo - ResolveTextViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveTextViewAccessibleMethod "getStream" o = Atk.StreamableContentGetStreamMethodInfo - ResolveTextViewAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo - ResolveTextViewAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo - ResolveTextViewAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo - ResolveTextViewAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo - ResolveTextViewAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo - ResolveTextViewAccessibleMethod "getUri" o = Atk.StreamableContentGetUriMethodInfo - ResolveTextViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveTextViewAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo - ResolveTextViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTextViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveTextViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveTextViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveTextViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveTextViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveTextViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTextViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveTextViewAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo - ResolveTextViewAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo - ResolveTextViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveTextViewAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo - ResolveTextViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveTextViewAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextViewAccessibleMethod t TextViewAccessible, MethodInfo info TextViewAccessible p) => IsLabelProxy t (TextViewAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextViewAccessibleMethod t TextViewAccessible, MethodInfo info TextViewAccessible p) => IsLabel t (TextViewAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TextViewAccessible = TextViewAccessibleAttributeList -type TextViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TextViewAccessible = TextViewAccessibleSignalList -type TextViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/TextViewAccessible.hs-boot b/GI/Gtk/Objects/TextViewAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TextViewAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.TextViewAccessible 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 TextViewAccessible = TextViewAccessible (ForeignPtr TextViewAccessible) -instance GObject TextViewAccessible where -class GObject o => TextViewAccessibleK o -instance (GObject o, IsDescendantOf TextViewAccessible o) => TextViewAccessibleK o diff --git a/GI/Gtk/Objects/ThemingEngine.hs b/GI/Gtk/Objects/ThemingEngine.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ThemingEngine.hs +++ /dev/null @@ -1,851 +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.Gtk.Objects.ThemingEngine - ( - --- * Exported types - ThemingEngine(..) , - ThemingEngineK , - toThemingEngine , - noThemingEngine , - - - -- * Methods --- ** themingEngineGetBackgroundColor - ThemingEngineGetBackgroundColorMethodInfo, - themingEngineGetBackgroundColor , - - --- ** themingEngineGetBorder - ThemingEngineGetBorderMethodInfo , - themingEngineGetBorder , - - --- ** themingEngineGetBorderColor - ThemingEngineGetBorderColorMethodInfo , - themingEngineGetBorderColor , - - --- ** themingEngineGetColor - ThemingEngineGetColorMethodInfo , - themingEngineGetColor , - - --- ** themingEngineGetDirection - ThemingEngineGetDirectionMethodInfo , - themingEngineGetDirection , - - --- ** themingEngineGetFont - ThemingEngineGetFontMethodInfo , - themingEngineGetFont , - - --- ** themingEngineGetJunctionSides - ThemingEngineGetJunctionSidesMethodInfo , - themingEngineGetJunctionSides , - - --- ** themingEngineGetMargin - ThemingEngineGetMarginMethodInfo , - themingEngineGetMargin , - - --- ** themingEngineGetPadding - ThemingEngineGetPaddingMethodInfo , - themingEngineGetPadding , - - --- ** themingEngineGetPath - ThemingEngineGetPathMethodInfo , - themingEngineGetPath , - - --- ** themingEngineGetProperty - ThemingEngineGetPropertyMethodInfo , - themingEngineGetProperty , - - --- ** themingEngineGetScreen - ThemingEngineGetScreenMethodInfo , - themingEngineGetScreen , - - --- ** themingEngineGetState - ThemingEngineGetStateMethodInfo , - themingEngineGetState , - - --- ** themingEngineGetStyleProperty - ThemingEngineGetStylePropertyMethodInfo , - themingEngineGetStyleProperty , - - --- ** themingEngineHasClass - ThemingEngineHasClassMethodInfo , - themingEngineHasClass , - - --- ** themingEngineHasRegion - ThemingEngineHasRegionMethodInfo , - themingEngineHasRegion , - - --- ** themingEngineLoad - themingEngineLoad , - - --- ** themingEngineLookupColor - ThemingEngineLookupColorMethodInfo , - themingEngineLookupColor , - - --- ** themingEngineStateIsRunning - ThemingEngineStateIsRunningMethodInfo , - themingEngineStateIsRunning , - - - - - -- * Properties --- ** Name - ThemingEngineNamePropertyInfo , - constructThemingEngineName , - getThemingEngineName , - themingEngineName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype ThemingEngine = ThemingEngine (ForeignPtr ThemingEngine) -foreign import ccall "gtk_theming_engine_get_type" - c_gtk_theming_engine_get_type :: IO GType - -type instance ParentTypes ThemingEngine = ThemingEngineParentTypes -type ThemingEngineParentTypes = '[GObject.Object] - -instance GObject ThemingEngine where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_theming_engine_get_type - - -class GObject o => ThemingEngineK o -instance (GObject o, IsDescendantOf ThemingEngine o) => ThemingEngineK o - -toThemingEngine :: ThemingEngineK o => o -> IO ThemingEngine -toThemingEngine = unsafeCastTo ThemingEngine - -noThemingEngine :: Maybe ThemingEngine -noThemingEngine = Nothing - -type family ResolveThemingEngineMethod (t :: Symbol) (o :: *) :: * where - ResolveThemingEngineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveThemingEngineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveThemingEngineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveThemingEngineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveThemingEngineMethod "hasClass" o = ThemingEngineHasClassMethodInfo - ResolveThemingEngineMethod "hasRegion" o = ThemingEngineHasRegionMethodInfo - ResolveThemingEngineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveThemingEngineMethod "lookupColor" o = ThemingEngineLookupColorMethodInfo - ResolveThemingEngineMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveThemingEngineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveThemingEngineMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveThemingEngineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveThemingEngineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveThemingEngineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveThemingEngineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveThemingEngineMethod "stateIsRunning" o = ThemingEngineStateIsRunningMethodInfo - ResolveThemingEngineMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveThemingEngineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveThemingEngineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveThemingEngineMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveThemingEngineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveThemingEngineMethod "getBackgroundColor" o = ThemingEngineGetBackgroundColorMethodInfo - ResolveThemingEngineMethod "getBorder" o = ThemingEngineGetBorderMethodInfo - ResolveThemingEngineMethod "getBorderColor" o = ThemingEngineGetBorderColorMethodInfo - ResolveThemingEngineMethod "getColor" o = ThemingEngineGetColorMethodInfo - ResolveThemingEngineMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveThemingEngineMethod "getDirection" o = ThemingEngineGetDirectionMethodInfo - ResolveThemingEngineMethod "getFont" o = ThemingEngineGetFontMethodInfo - ResolveThemingEngineMethod "getJunctionSides" o = ThemingEngineGetJunctionSidesMethodInfo - ResolveThemingEngineMethod "getMargin" o = ThemingEngineGetMarginMethodInfo - ResolveThemingEngineMethod "getPadding" o = ThemingEngineGetPaddingMethodInfo - ResolveThemingEngineMethod "getPath" o = ThemingEngineGetPathMethodInfo - ResolveThemingEngineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveThemingEngineMethod "getScreen" o = ThemingEngineGetScreenMethodInfo - ResolveThemingEngineMethod "getState" o = ThemingEngineGetStateMethodInfo - ResolveThemingEngineMethod "getStyleProperty" o = ThemingEngineGetStylePropertyMethodInfo - ResolveThemingEngineMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveThemingEngineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveThemingEngineMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThemingEngineMethod t ThemingEngine, MethodInfo info ThemingEngine p) => IsLabelProxy t (ThemingEngine -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThemingEngineMethod t ThemingEngine, MethodInfo info ThemingEngine p) => IsLabel t (ThemingEngine -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getThemingEngineName :: (MonadIO m, ThemingEngineK o) => o -> m (Maybe T.Text) -getThemingEngineName obj = liftIO $ getObjectPropertyString obj "name" - -constructThemingEngineName :: T.Text -> IO ([Char], GValue) -constructThemingEngineName val = constructObjectPropertyString "name" (Just val) - -data ThemingEngineNamePropertyInfo -instance AttrInfo ThemingEngineNamePropertyInfo where - type AttrAllowedOps ThemingEngineNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ThemingEngineNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ThemingEngineNamePropertyInfo = ThemingEngineK - type AttrGetType ThemingEngineNamePropertyInfo = (Maybe T.Text) - type AttrLabel ThemingEngineNamePropertyInfo = "name" - attrGet _ = getThemingEngineName - attrSet _ = undefined - attrConstruct _ = constructThemingEngineName - attrClear _ = undefined - -type instance AttributeList ThemingEngine = ThemingEngineAttributeList -type ThemingEngineAttributeList = ('[ '("name", ThemingEngineNamePropertyInfo)] :: [(Symbol, *)]) - -themingEngineName :: AttrLabelProxy "name" -themingEngineName = AttrLabelProxy - -type instance SignalList ThemingEngine = ThemingEngineSignalList -type ThemingEngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ThemingEngine::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_background_color" gtk_theming_engine_get_background_color :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED themingEngineGetBackgroundColor ["(Since version 3.14)"]#-} -themingEngineGetBackgroundColor :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -themingEngineGetBackgroundColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_theming_engine_get_background_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data ThemingEngineGetBackgroundColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBackgroundColorMethodInfo a signature where - overloadedMethod _ = themingEngineGetBackgroundColor - --- method ThemingEngine::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_border" gtk_theming_engine_get_border :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- border : TInterface "Gtk" "Border" - IO () - -{-# DEPRECATED themingEngineGetBorder ["(Since version 3.14)"]#-} -themingEngineGetBorder :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -themingEngineGetBorder _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - border <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_theming_engine_get_border _obj' state' border - border' <- (wrapBoxed Border) border - touchManagedPtr _obj - return border' - -data ThemingEngineGetBorderMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBorderMethodInfo a signature where - overloadedMethod _ = themingEngineGetBorder - --- method ThemingEngine::get_border_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_border_color" gtk_theming_engine_get_border_color :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED themingEngineGetBorderColor ["(Since version 3.14)"]#-} -themingEngineGetBorderColor :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -themingEngineGetBorderColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_theming_engine_get_border_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data ThemingEngineGetBorderColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBorderColorMethodInfo a signature where - overloadedMethod _ = themingEngineGetBorderColor - --- method ThemingEngine::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_color" gtk_theming_engine_get_color :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED themingEngineGetColor ["(Since version 3.14)"]#-} -themingEngineGetColor :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Gdk.RGBA) -- result -themingEngineGetColor _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - gtk_theming_engine_get_color _obj' state' color - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - return color' - -data ThemingEngineGetColorMethodInfo -instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetColorMethodInfo a signature where - overloadedMethod _ = themingEngineGetColor - --- method ThemingEngine::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_direction" gtk_theming_engine_get_direction :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - IO CUInt - -{-# DEPRECATED themingEngineGetDirection ["(Since version 3.8)","Use gtk_theming_engine_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-} -themingEngineGetDirection :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> m TextDirection -- result -themingEngineGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ThemingEngineGetDirectionMethodInfo -instance (signature ~ (m TextDirection), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetDirectionMethodInfo a signature where - overloadedMethod _ = themingEngineGetDirection - --- method ThemingEngine::get_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontDescription") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_font" gtk_theming_engine_get_font :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - IO (Ptr Pango.FontDescription) - -{-# DEPRECATED themingEngineGetFont ["(Since version 3.8)","Use gtk_theming_engine_get()"]#-} -themingEngineGetFont :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m Pango.FontDescription -- result -themingEngineGetFont _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - result <- gtk_theming_engine_get_font _obj' state' - checkUnexpectedReturnNULL "gtk_theming_engine_get_font" result - result' <- (newBoxed Pango.FontDescription) result - touchManagedPtr _obj - return result' - -data ThemingEngineGetFontMethodInfo -instance (signature ~ ([StateFlags] -> m Pango.FontDescription), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetFontMethodInfo a signature where - overloadedMethod _ = themingEngineGetFont - --- method ThemingEngine::get_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "JunctionSides") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_junction_sides" gtk_theming_engine_get_junction_sides :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - IO CUInt - -{-# DEPRECATED themingEngineGetJunctionSides ["(Since version 3.14)"]#-} -themingEngineGetJunctionSides :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> m [JunctionSides] -- result -themingEngineGetJunctionSides _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_junction_sides _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data ThemingEngineGetJunctionSidesMethodInfo -instance (signature ~ (m [JunctionSides]), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetJunctionSidesMethodInfo a signature where - overloadedMethod _ = themingEngineGetJunctionSides - --- method ThemingEngine::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_margin" gtk_theming_engine_get_margin :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- margin : TInterface "Gtk" "Border" - IO () - -{-# DEPRECATED themingEngineGetMargin ["(Since version 3.14)"]#-} -themingEngineGetMargin :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -themingEngineGetMargin _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - margin <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_theming_engine_get_margin _obj' state' margin - margin' <- (wrapBoxed Border) margin - touchManagedPtr _obj - return margin' - -data ThemingEngineGetMarginMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetMarginMethodInfo a signature where - overloadedMethod _ = themingEngineGetMargin - --- method ThemingEngine::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_padding" gtk_theming_engine_get_padding :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Border -> -- padding : TInterface "Gtk" "Border" - IO () - -{-# DEPRECATED themingEngineGetPadding ["(Since version 3.14)"]#-} -themingEngineGetPadding :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> [StateFlags] -- state - -> m (Border) -- result -themingEngineGetPadding _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - padding <- callocBoxedBytes 8 :: IO (Ptr Border) - gtk_theming_engine_get_padding _obj' state' padding - padding' <- (wrapBoxed Border) padding - touchManagedPtr _obj - return padding' - -data ThemingEngineGetPaddingMethodInfo -instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPaddingMethodInfo a signature where - overloadedMethod _ = themingEngineGetPadding - --- method ThemingEngine::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_path" gtk_theming_engine_get_path :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - IO (Ptr WidgetPath) - -{-# DEPRECATED themingEngineGetPath ["(Since version 3.14)"]#-} -themingEngineGetPath :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> m WidgetPath -- result -themingEngineGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_path _obj' - checkUnexpectedReturnNULL "gtk_theming_engine_get_path" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data ThemingEngineGetPathMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPathMethodInfo a signature where - overloadedMethod _ = themingEngineGetPath - --- method ThemingEngine::get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_property" gtk_theming_engine_get_property :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED themingEngineGetProperty ["(Since version 3.14)"]#-} -themingEngineGetProperty :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> T.Text -- property - -> [StateFlags] -- state - -> m (GValue) -- result -themingEngineGetProperty _obj property state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property' <- textToCString property - let state' = gflagsToWord state - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_theming_engine_get_property _obj' property' state' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem property' - return value' - -data ThemingEngineGetPropertyMethodInfo -instance (signature ~ (T.Text -> [StateFlags] -> m (GValue)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPropertyMethodInfo a signature where - overloadedMethod _ = themingEngineGetProperty - --- method ThemingEngine::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_screen" gtk_theming_engine_get_screen :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - IO (Ptr Gdk.Screen) - -{-# DEPRECATED themingEngineGetScreen ["(Since version 3.14)"]#-} -themingEngineGetScreen :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> m Gdk.Screen -- result -themingEngineGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_screen _obj' - checkUnexpectedReturnNULL "gtk_theming_engine_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data ThemingEngineGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetScreenMethodInfo a signature where - overloadedMethod _ = themingEngineGetScreen - --- method ThemingEngine::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_state" gtk_theming_engine_get_state :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - IO CUInt - -{-# DEPRECATED themingEngineGetState ["(Since version 3.14)"]#-} -themingEngineGetState :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> m [StateFlags] -- result -themingEngineGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_state _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data ThemingEngineGetStateMethodInfo -instance (signature ~ (m [StateFlags]), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetStateMethodInfo a signature where - overloadedMethod _ = themingEngineGetState - --- method ThemingEngine::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_get_style_property" gtk_theming_engine_get_style_property :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED themingEngineGetStyleProperty ["(Since version 3.14)"]#-} -themingEngineGetStyleProperty :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> T.Text -- propertyName - -> m (GValue) -- result -themingEngineGetStyleProperty _obj propertyName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_theming_engine_get_style_property _obj' propertyName' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem propertyName' - return value' - -data ThemingEngineGetStylePropertyMethodInfo -instance (signature ~ (T.Text -> m (GValue)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetStylePropertyMethodInfo a signature where - overloadedMethod _ = themingEngineGetStyleProperty - --- method ThemingEngine::has_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_class", 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 "gtk_theming_engine_has_class" gtk_theming_engine_has_class :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CString -> -- style_class : TBasicType TUTF8 - IO CInt - -{-# DEPRECATED themingEngineHasClass ["(Since version 3.14)"]#-} -themingEngineHasClass :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> T.Text -- styleClass - -> m Bool -- result -themingEngineHasClass _obj styleClass = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - styleClass' <- textToCString styleClass - result <- gtk_theming_engine_has_class _obj' styleClass' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem styleClass' - return result' - -data ThemingEngineHasClassMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineHasClassMethodInfo a signature where - overloadedMethod _ = themingEngineHasClass - --- method ThemingEngine::has_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_theming_engine_has_region" gtk_theming_engine_has_region :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CString -> -- style_region : TBasicType TUTF8 - Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED themingEngineHasRegion ["(Since version 3.14)"]#-} -themingEngineHasRegion :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> T.Text -- styleRegion - -> m (Bool,[RegionFlags]) -- result -themingEngineHasRegion _obj styleRegion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - styleRegion' <- textToCString styleRegion - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_theming_engine_has_region _obj' styleRegion' flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem styleRegion' - freeMem flags - return (result', flags'') - -data ThemingEngineHasRegionMethodInfo -instance (signature ~ (T.Text -> m (Bool,[RegionFlags])), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineHasRegionMethodInfo a signature where - overloadedMethod _ = themingEngineHasRegion - --- method ThemingEngine::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_lookup_color" gtk_theming_engine_lookup_color :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CString -> -- color_name : TBasicType TUTF8 - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO CInt - -{-# DEPRECATED themingEngineLookupColor ["(Since version 3.14)"]#-} -themingEngineLookupColor :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> T.Text -- colorName - -> m (Bool,Gdk.RGBA) -- result -themingEngineLookupColor _obj colorName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - colorName' <- textToCString colorName - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_theming_engine_lookup_color _obj' colorName' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - freeMem colorName' - return (result', color') - -data ThemingEngineLookupColorMethodInfo -instance (signature ~ (T.Text -> m (Bool,Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineLookupColorMethodInfo a signature where - overloadedMethod _ = themingEngineLookupColor - --- method ThemingEngine::state_is_running --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, 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 "gtk_theming_engine_state_is_running" gtk_theming_engine_state_is_running :: - Ptr ThemingEngine -> -- _obj : TInterface "Gtk" "ThemingEngine" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr CDouble -> -- progress : TBasicType TDouble - IO CInt - -{-# DEPRECATED themingEngineStateIsRunning ["(Since version 3.6)","Always returns %FALSE"]#-} -themingEngineStateIsRunning :: - (MonadIO m, ThemingEngineK a) => - a -- _obj - -> StateType -- state - -> m (Bool,Double) -- result -themingEngineStateIsRunning _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - progress <- allocMem :: IO (Ptr CDouble) - result <- gtk_theming_engine_state_is_running _obj' state' progress - let result' = (/= 0) result - progress' <- peek progress - let progress'' = realToFrac progress' - touchManagedPtr _obj - freeMem progress - return (result', progress'') - -data ThemingEngineStateIsRunningMethodInfo -instance (signature ~ (StateType -> m (Bool,Double)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineStateIsRunningMethodInfo a signature where - overloadedMethod _ = themingEngineStateIsRunning - --- method ThemingEngine::load --- method type : MemberFunction --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ThemingEngine") --- throws : False --- Skip return : False - -foreign import ccall "gtk_theming_engine_load" gtk_theming_engine_load :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr ThemingEngine) - -{-# DEPRECATED themingEngineLoad ["(Since version 3.14)"]#-} -themingEngineLoad :: - (MonadIO m) => - T.Text -- name - -> m ThemingEngine -- result -themingEngineLoad name = liftIO $ do - name' <- textToCString name - result <- gtk_theming_engine_load name' - checkUnexpectedReturnNULL "gtk_theming_engine_load" result - result' <- (newObject ThemingEngine) result - freeMem name' - return result' - - diff --git a/GI/Gtk/Objects/ThemingEngine.hs-boot b/GI/Gtk/Objects/ThemingEngine.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ThemingEngine.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.ThemingEngine 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 ThemingEngine = ThemingEngine (ForeignPtr ThemingEngine) -instance GObject ThemingEngine where -class GObject o => ThemingEngineK o -instance (GObject o, IsDescendantOf ThemingEngine o) => ThemingEngineK o -data ThemingEngineNamePropertyInfo -data ThemingEngineGetBackgroundColorMethodInfo -data ThemingEngineGetBorderMethodInfo -data ThemingEngineGetBorderColorMethodInfo -data ThemingEngineGetColorMethodInfo -data ThemingEngineGetDirectionMethodInfo -data ThemingEngineGetFontMethodInfo -data ThemingEngineGetJunctionSidesMethodInfo -data ThemingEngineGetMarginMethodInfo -data ThemingEngineGetPaddingMethodInfo -data ThemingEngineGetPathMethodInfo -data ThemingEngineGetPropertyMethodInfo -data ThemingEngineGetScreenMethodInfo -data ThemingEngineGetStateMethodInfo -data ThemingEngineGetStylePropertyMethodInfo -data ThemingEngineHasClassMethodInfo -data ThemingEngineHasRegionMethodInfo -data ThemingEngineLookupColorMethodInfo -data ThemingEngineStateIsRunningMethodInfo diff --git a/GI/Gtk/Objects/ToggleAction.hs b/GI/Gtk/Objects/ToggleAction.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleAction.hs +++ /dev/null @@ -1,505 +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.Gtk.Objects.ToggleAction - ( - --- * Exported types - ToggleAction(..) , - ToggleActionK , - toToggleAction , - noToggleAction , - - - -- * Methods --- ** toggleActionGetActive - ToggleActionGetActiveMethodInfo , - toggleActionGetActive , - - --- ** toggleActionGetDrawAsRadio - ToggleActionGetDrawAsRadioMethodInfo , - toggleActionGetDrawAsRadio , - - --- ** toggleActionNew - toggleActionNew , - - --- ** toggleActionSetActive - ToggleActionSetActiveMethodInfo , - toggleActionSetActive , - - --- ** toggleActionSetDrawAsRadio - ToggleActionSetDrawAsRadioMethodInfo , - toggleActionSetDrawAsRadio , - - --- ** toggleActionToggled - ToggleActionToggledMethodInfo , - toggleActionToggled , - - - - - -- * Properties --- ** Active - ToggleActionActivePropertyInfo , - constructToggleActionActive , - getToggleActionActive , - setToggleActionActive , - toggleActionActive , - - --- ** DrawAsRadio - ToggleActionDrawAsRadioPropertyInfo , - constructToggleActionDrawAsRadio , - getToggleActionDrawAsRadio , - setToggleActionDrawAsRadio , - toggleActionDrawAsRadio , - - - - - -- * Signals --- ** Toggled - ToggleActionToggledCallback , - ToggleActionToggledCallbackC , - ToggleActionToggledSignalInfo , - afterToggleActionToggled , - mkToggleActionToggledCallback , - noToggleActionToggledCallback , - onToggleActionToggled , - toggleActionToggledCallbackWrapper , - toggleActionToggledClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype ToggleAction = ToggleAction (ForeignPtr ToggleAction) -foreign import ccall "gtk_toggle_action_get_type" - c_gtk_toggle_action_get_type :: IO GType - -type instance ParentTypes ToggleAction = ToggleActionParentTypes -type ToggleActionParentTypes = '[Action, GObject.Object, Buildable] - -instance GObject ToggleAction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_toggle_action_get_type - - -class GObject o => ToggleActionK o -instance (GObject o, IsDescendantOf ToggleAction o) => ToggleActionK o - -toToggleAction :: ToggleActionK o => o -> IO ToggleAction -toToggleAction = unsafeCastTo ToggleAction - -noToggleAction :: Maybe ToggleAction -noToggleAction = Nothing - -type family ResolveToggleActionMethod (t :: Symbol) (o :: *) :: * where - ResolveToggleActionMethod "activate" o = ActionActivateMethodInfo - ResolveToggleActionMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToggleActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToggleActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToggleActionMethod "blockActivate" o = ActionBlockActivateMethodInfo - ResolveToggleActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo - ResolveToggleActionMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToggleActionMethod "createIcon" o = ActionCreateIconMethodInfo - ResolveToggleActionMethod "createMenu" o = ActionCreateMenuMethodInfo - ResolveToggleActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo - ResolveToggleActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo - ResolveToggleActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToggleActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToggleActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToggleActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo - ResolveToggleActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToggleActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToggleActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToggleActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo - ResolveToggleActionMethod "isVisible" o = ActionIsVisibleMethodInfo - ResolveToggleActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToggleActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToggleActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToggleActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToggleActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToggleActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToggleActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToggleActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToggleActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToggleActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToggleActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToggleActionMethod "toggled" o = ToggleActionToggledMethodInfo - ResolveToggleActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo - ResolveToggleActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToggleActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToggleActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo - ResolveToggleActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo - ResolveToggleActionMethod "getActive" o = ToggleActionGetActiveMethodInfo - ResolveToggleActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo - ResolveToggleActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToggleActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo - ResolveToggleActionMethod "getGicon" o = ActionGetGiconMethodInfo - ResolveToggleActionMethod "getIconName" o = ActionGetIconNameMethodInfo - ResolveToggleActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToggleActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo - ResolveToggleActionMethod "getLabel" o = ActionGetLabelMethodInfo - ResolveToggleActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToggleActionMethod "getProxies" o = ActionGetProxiesMethodInfo - ResolveToggleActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToggleActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo - ResolveToggleActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo - ResolveToggleActionMethod "getStockId" o = ActionGetStockIdMethodInfo - ResolveToggleActionMethod "getTooltip" o = ActionGetTooltipMethodInfo - ResolveToggleActionMethod "getVisible" o = ActionGetVisibleMethodInfo - ResolveToggleActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo - ResolveToggleActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo - ResolveToggleActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo - ResolveToggleActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo - ResolveToggleActionMethod "setActive" o = ToggleActionSetActiveMethodInfo - ResolveToggleActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo - ResolveToggleActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToggleActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToggleActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo - ResolveToggleActionMethod "setGicon" o = ActionSetGiconMethodInfo - ResolveToggleActionMethod "setIconName" o = ActionSetIconNameMethodInfo - ResolveToggleActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo - ResolveToggleActionMethod "setLabel" o = ActionSetLabelMethodInfo - ResolveToggleActionMethod "setName" o = BuildableSetNameMethodInfo - ResolveToggleActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToggleActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo - ResolveToggleActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo - ResolveToggleActionMethod "setStockId" o = ActionSetStockIdMethodInfo - ResolveToggleActionMethod "setTooltip" o = ActionSetTooltipMethodInfo - ResolveToggleActionMethod "setVisible" o = ActionSetVisibleMethodInfo - ResolveToggleActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo - ResolveToggleActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo - ResolveToggleActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabelProxy t (ToggleAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabel t (ToggleAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ToggleAction::toggled -type ToggleActionToggledCallback = - IO () - -noToggleActionToggledCallback :: Maybe ToggleActionToggledCallback -noToggleActionToggledCallback = Nothing - -type ToggleActionToggledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToggleActionToggledCallback :: ToggleActionToggledCallbackC -> IO (FunPtr ToggleActionToggledCallbackC) - -toggleActionToggledClosure :: ToggleActionToggledCallback -> IO Closure -toggleActionToggledClosure cb = newCClosure =<< mkToggleActionToggledCallback wrapped - where wrapped = toggleActionToggledCallbackWrapper cb - -toggleActionToggledCallbackWrapper :: - ToggleActionToggledCallback -> - Ptr () -> - Ptr () -> - IO () -toggleActionToggledCallbackWrapper _cb _ _ = do - _cb - -onToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId -onToggleActionToggled obj cb = liftIO $ connectToggleActionToggled obj cb SignalConnectBefore -afterToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId -afterToggleActionToggled obj cb = connectToggleActionToggled obj cb SignalConnectAfter - -connectToggleActionToggled :: (GObject a, MonadIO m) => - a -> ToggleActionToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectToggleActionToggled obj cb after = liftIO $ do - cb' <- mkToggleActionToggledCallback (toggleActionToggledCallbackWrapper cb) - connectSignalFunPtr obj "toggled" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToggleActionActive :: (MonadIO m, ToggleActionK o) => o -> m Bool -getToggleActionActive obj = liftIO $ getObjectPropertyBool obj "active" - -setToggleActionActive :: (MonadIO m, ToggleActionK o) => o -> Bool -> m () -setToggleActionActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructToggleActionActive :: Bool -> IO ([Char], GValue) -constructToggleActionActive val = constructObjectPropertyBool "active" val - -data ToggleActionActivePropertyInfo -instance AttrInfo ToggleActionActivePropertyInfo where - type AttrAllowedOps ToggleActionActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleActionActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleActionActivePropertyInfo = ToggleActionK - type AttrGetType ToggleActionActivePropertyInfo = Bool - type AttrLabel ToggleActionActivePropertyInfo = "active" - attrGet _ = getToggleActionActive - attrSet _ = setToggleActionActive - attrConstruct _ = constructToggleActionActive - attrClear _ = undefined - --- VVV Prop "draw-as-radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToggleActionDrawAsRadio :: (MonadIO m, ToggleActionK o) => o -> m Bool -getToggleActionDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio" - -setToggleActionDrawAsRadio :: (MonadIO m, ToggleActionK o) => o -> Bool -> m () -setToggleActionDrawAsRadio obj val = liftIO $ setObjectPropertyBool obj "draw-as-radio" val - -constructToggleActionDrawAsRadio :: Bool -> IO ([Char], GValue) -constructToggleActionDrawAsRadio val = constructObjectPropertyBool "draw-as-radio" val - -data ToggleActionDrawAsRadioPropertyInfo -instance AttrInfo ToggleActionDrawAsRadioPropertyInfo where - type AttrAllowedOps ToggleActionDrawAsRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleActionDrawAsRadioPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleActionDrawAsRadioPropertyInfo = ToggleActionK - type AttrGetType ToggleActionDrawAsRadioPropertyInfo = Bool - type AttrLabel ToggleActionDrawAsRadioPropertyInfo = "draw-as-radio" - attrGet _ = getToggleActionDrawAsRadio - attrSet _ = setToggleActionDrawAsRadio - attrConstruct _ = constructToggleActionDrawAsRadio - attrClear _ = undefined - -type instance AttributeList ToggleAction = ToggleActionAttributeList -type ToggleActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -toggleActionActive :: AttrLabelProxy "active" -toggleActionActive = AttrLabelProxy - -toggleActionDrawAsRadio :: AttrLabelProxy "drawAsRadio" -toggleActionDrawAsRadio = AttrLabelProxy - -data ToggleActionToggledSignalInfo -instance SignalInfo ToggleActionToggledSignalInfo where - type HaskellCallbackType ToggleActionToggledSignalInfo = ToggleActionToggledCallback - connectSignal _ = connectToggleActionToggled - -type instance SignalList ToggleAction = ToggleActionSignalList -type ToggleActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)]) - --- method ToggleAction::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleAction") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_action_new" gtk_toggle_action_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- label : TBasicType TUTF8 - CString -> -- tooltip : TBasicType TUTF8 - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr ToggleAction) - -{-# DEPRECATED toggleActionNew ["(Since version 3.10)"]#-} -toggleActionNew :: - (MonadIO m) => - T.Text -- name - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- tooltip - -> Maybe (T.Text) -- stockId - -> m ToggleAction -- result -toggleActionNew name label tooltip stockId = liftIO $ do - name' <- textToCString name - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - result <- gtk_toggle_action_new name' maybeLabel maybeTooltip maybeStockId - checkUnexpectedReturnNULL "gtk_toggle_action_new" result - result' <- (wrapObject ToggleAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStockId - return result' - --- method ToggleAction::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", 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 "gtk_toggle_action_get_active" gtk_toggle_action_get_active :: - Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction" - IO CInt - -{-# DEPRECATED toggleActionGetActive ["(Since version 3.10)"]#-} -toggleActionGetActive :: - (MonadIO m, ToggleActionK a) => - a -- _obj - -> m Bool -- result -toggleActionGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_action_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleActionGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetActiveMethodInfo a signature where - overloadedMethod _ = toggleActionGetActive - --- method ToggleAction::get_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", 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 "gtk_toggle_action_get_draw_as_radio" gtk_toggle_action_get_draw_as_radio :: - Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction" - IO CInt - -{-# DEPRECATED toggleActionGetDrawAsRadio ["(Since version 3.10)"]#-} -toggleActionGetDrawAsRadio :: - (MonadIO m, ToggleActionK a) => - a -- _obj - -> m Bool -- result -toggleActionGetDrawAsRadio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_action_get_draw_as_radio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleActionGetDrawAsRadioMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetDrawAsRadioMethodInfo a signature where - overloadedMethod _ = toggleActionGetDrawAsRadio - --- method ToggleAction::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", 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 "gtk_toggle_action_set_active" gtk_toggle_action_set_active :: - Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction" - CInt -> -- is_active : TBasicType TBoolean - IO () - -{-# DEPRECATED toggleActionSetActive ["(Since version 3.10)"]#-} -toggleActionSetActive :: - (MonadIO m, ToggleActionK a) => - a -- _obj - -> Bool -- isActive - -> m () -- result -toggleActionSetActive _obj isActive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isActive' = (fromIntegral . fromEnum) isActive - gtk_toggle_action_set_active _obj' isActive' - touchManagedPtr _obj - return () - -data ToggleActionSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetActiveMethodInfo a signature where - overloadedMethod _ = toggleActionSetActive - --- method ToggleAction::set_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", 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 "gtk_toggle_action_set_draw_as_radio" gtk_toggle_action_set_draw_as_radio :: - Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction" - CInt -> -- draw_as_radio : TBasicType TBoolean - IO () - -{-# DEPRECATED toggleActionSetDrawAsRadio ["(Since version 3.10)"]#-} -toggleActionSetDrawAsRadio :: - (MonadIO m, ToggleActionK a) => - a -- _obj - -> Bool -- drawAsRadio - -> m () -- result -toggleActionSetDrawAsRadio _obj drawAsRadio = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let drawAsRadio' = (fromIntegral . fromEnum) drawAsRadio - gtk_toggle_action_set_draw_as_radio _obj' drawAsRadio' - touchManagedPtr _obj - return () - -data ToggleActionSetDrawAsRadioMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetDrawAsRadioMethodInfo a signature where - overloadedMethod _ = toggleActionSetDrawAsRadio - --- method ToggleAction::toggled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", 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 "gtk_toggle_action_toggled" gtk_toggle_action_toggled :: - Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction" - IO () - -{-# DEPRECATED toggleActionToggled ["(Since version 3.10)"]#-} -toggleActionToggled :: - (MonadIO m, ToggleActionK a) => - a -- _obj - -> m () -- result -toggleActionToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toggle_action_toggled _obj' - touchManagedPtr _obj - return () - -data ToggleActionToggledMethodInfo -instance (signature ~ (m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionToggledMethodInfo a signature where - overloadedMethod _ = toggleActionToggled - - diff --git a/GI/Gtk/Objects/ToggleAction.hs-boot b/GI/Gtk/Objects/ToggleAction.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleAction.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.ToggleAction 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 ToggleAction = ToggleAction (ForeignPtr ToggleAction) -instance GObject ToggleAction where -class GObject o => ToggleActionK o -instance (GObject o, IsDescendantOf ToggleAction o) => ToggleActionK o -data ToggleActionActivePropertyInfo -data ToggleActionDrawAsRadioPropertyInfo -data ToggleActionToggledSignalInfo -data ToggleActionGetActiveMethodInfo -data ToggleActionGetDrawAsRadioMethodInfo -data ToggleActionSetActiveMethodInfo -data ToggleActionSetDrawAsRadioMethodInfo -data ToggleActionToggledMethodInfo diff --git a/GI/Gtk/Objects/ToggleButton.hs b/GI/Gtk/Objects/ToggleButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleButton.hs +++ /dev/null @@ -1,919 +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.Gtk.Objects.ToggleButton - ( - --- * Exported types - ToggleButton(..) , - ToggleButtonK , - toToggleButton , - noToggleButton , - - - -- * Methods --- ** toggleButtonGetActive - ToggleButtonGetActiveMethodInfo , - toggleButtonGetActive , - - --- ** toggleButtonGetInconsistent - ToggleButtonGetInconsistentMethodInfo , - toggleButtonGetInconsistent , - - --- ** toggleButtonGetMode - ToggleButtonGetModeMethodInfo , - toggleButtonGetMode , - - --- ** toggleButtonNew - toggleButtonNew , - - --- ** toggleButtonNewWithLabel - toggleButtonNewWithLabel , - - --- ** toggleButtonNewWithMnemonic - toggleButtonNewWithMnemonic , - - --- ** toggleButtonSetActive - ToggleButtonSetActiveMethodInfo , - toggleButtonSetActive , - - --- ** toggleButtonSetInconsistent - ToggleButtonSetInconsistentMethodInfo , - toggleButtonSetInconsistent , - - --- ** toggleButtonSetMode - ToggleButtonSetModeMethodInfo , - toggleButtonSetMode , - - --- ** toggleButtonToggled - ToggleButtonToggledMethodInfo , - toggleButtonToggled , - - - - - -- * Properties --- ** Active - ToggleButtonActivePropertyInfo , - constructToggleButtonActive , - getToggleButtonActive , - setToggleButtonActive , - toggleButtonActive , - - --- ** DrawIndicator - ToggleButtonDrawIndicatorPropertyInfo , - constructToggleButtonDrawIndicator , - getToggleButtonDrawIndicator , - setToggleButtonDrawIndicator , - toggleButtonDrawIndicator , - - --- ** Inconsistent - ToggleButtonInconsistentPropertyInfo , - constructToggleButtonInconsistent , - getToggleButtonInconsistent , - setToggleButtonInconsistent , - toggleButtonInconsistent , - - - - - -- * Signals --- ** Toggled - ToggleButtonToggledCallback , - ToggleButtonToggledCallbackC , - ToggleButtonToggledSignalInfo , - afterToggleButtonToggled , - mkToggleButtonToggledCallback , - noToggleButtonToggledCallback , - onToggleButtonToggled , - toggleButtonToggledCallbackWrapper , - toggleButtonToggledClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ToggleButton = ToggleButton (ForeignPtr ToggleButton) -foreign import ccall "gtk_toggle_button_get_type" - c_gtk_toggle_button_get_type :: IO GType - -type instance ParentTypes ToggleButton = ToggleButtonParentTypes -type ToggleButtonParentTypes = '[Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject ToggleButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_toggle_button_get_type - - -class GObject o => ToggleButtonK o -instance (GObject o, IsDescendantOf ToggleButton o) => ToggleButtonK o - -toToggleButton :: ToggleButtonK o => o -> IO ToggleButton -toToggleButton = unsafeCastTo ToggleButton - -noToggleButton :: Maybe ToggleButton -noToggleButton = Nothing - -type family ResolveToggleButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveToggleButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveToggleButtonMethod "add" o = ContainerAddMethodInfo - ResolveToggleButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToggleButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToggleButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToggleButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToggleButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToggleButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToggleButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToggleButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToggleButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToggleButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToggleButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToggleButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToggleButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToggleButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToggleButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToggleButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToggleButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveToggleButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToggleButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToggleButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToggleButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToggleButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToggleButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToggleButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToggleButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToggleButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToggleButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToggleButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveToggleButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToggleButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToggleButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToggleButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToggleButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToggleButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToggleButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToggleButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToggleButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToggleButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToggleButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToggleButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToggleButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToggleButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToggleButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToggleButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToggleButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToggleButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToggleButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToggleButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToggleButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToggleButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToggleButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToggleButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToggleButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToggleButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToggleButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToggleButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToggleButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveToggleButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToggleButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveToggleButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToggleButtonMethod "event" o = WidgetEventMethodInfo - ResolveToggleButtonMethod "forall" o = ContainerForallMethodInfo - ResolveToggleButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToggleButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveToggleButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToggleButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToggleButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToggleButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToggleButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToggleButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToggleButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToggleButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToggleButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToggleButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToggleButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToggleButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToggleButtonMethod "hide" o = WidgetHideMethodInfo - ResolveToggleButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToggleButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToggleButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToggleButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToggleButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToggleButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToggleButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToggleButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToggleButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToggleButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToggleButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToggleButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToggleButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToggleButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToggleButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToggleButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveToggleButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToggleButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToggleButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToggleButtonMethod "map" o = WidgetMapMethodInfo - ResolveToggleButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToggleButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToggleButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToggleButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToggleButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToggleButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToggleButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToggleButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToggleButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToggleButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToggleButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToggleButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToggleButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToggleButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToggleButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToggleButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToggleButtonMethod "path" o = WidgetPathMethodInfo - ResolveToggleButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveToggleButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToggleButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToggleButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToggleButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToggleButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToggleButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToggleButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToggleButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveToggleButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToggleButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToggleButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToggleButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToggleButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveToggleButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveToggleButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToggleButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToggleButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToggleButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToggleButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToggleButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveToggleButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToggleButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToggleButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToggleButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToggleButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToggleButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToggleButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToggleButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToggleButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToggleButtonMethod "show" o = WidgetShowMethodInfo - ResolveToggleButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToggleButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToggleButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToggleButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToggleButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToggleButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToggleButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToggleButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToggleButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToggleButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveToggleButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToggleButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToggleButtonMethod "toggled" o = ToggleButtonToggledMethodInfo - ResolveToggleButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToggleButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToggleButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToggleButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToggleButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToggleButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToggleButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToggleButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToggleButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToggleButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToggleButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToggleButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToggleButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveToggleButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveToggleButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo - ResolveToggleButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveToggleButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToggleButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToggleButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToggleButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToggleButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveToggleButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToggleButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToggleButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToggleButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToggleButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToggleButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveToggleButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToggleButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToggleButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToggleButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToggleButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToggleButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToggleButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToggleButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToggleButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToggleButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToggleButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToggleButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToggleButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveToggleButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToggleButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToggleButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToggleButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToggleButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveToggleButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToggleButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToggleButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToggleButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToggleButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToggleButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToggleButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToggleButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToggleButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToggleButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveToggleButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveToggleButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo - ResolveToggleButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToggleButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveToggleButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToggleButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToggleButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToggleButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToggleButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToggleButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToggleButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToggleButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo - ResolveToggleButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToggleButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToggleButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToggleButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToggleButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToggleButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToggleButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToggleButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToggleButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToggleButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToggleButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToggleButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToggleButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToggleButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToggleButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToggleButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToggleButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToggleButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToggleButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToggleButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToggleButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveToggleButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveToggleButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToggleButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToggleButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToggleButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToggleButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToggleButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToggleButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToggleButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToggleButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToggleButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveToggleButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToggleButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveToggleButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToggleButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToggleButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToggleButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToggleButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToggleButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToggleButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToggleButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveToggleButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveToggleButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveToggleButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToggleButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToggleButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToggleButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToggleButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToggleButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToggleButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToggleButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToggleButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveToggleButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveToggleButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo - ResolveToggleButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveToggleButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToggleButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveToggleButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToggleButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToggleButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToggleButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToggleButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToggleButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToggleButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToggleButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToggleButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToggleButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveToggleButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToggleButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToggleButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToggleButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToggleButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToggleButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToggleButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToggleButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToggleButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveToggleButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToggleButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToggleButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToggleButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToggleButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToggleButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToggleButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToggleButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToggleButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveToggleButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveToggleButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo - ResolveToggleButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveToggleButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToggleButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToggleButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToggleButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToggleButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToggleButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToggleButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToggleButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo - ResolveToggleButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToggleButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToggleButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToggleButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToggleButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToggleButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToggleButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToggleButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToggleButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToggleButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveToggleButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveToggleButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToggleButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToggleButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToggleButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveToggleButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToggleButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToggleButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToggleButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveToggleButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveToggleButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToggleButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveToggleButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveToggleButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveToggleButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToggleButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToggleButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToggleButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToggleButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToggleButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToggleButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToggleButtonMethod t ToggleButton, MethodInfo info ToggleButton p) => IsLabelProxy t (ToggleButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToggleButtonMethod t ToggleButton, MethodInfo info ToggleButton p) => IsLabel t (ToggleButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ToggleButton::toggled -type ToggleButtonToggledCallback = - IO () - -noToggleButtonToggledCallback :: Maybe ToggleButtonToggledCallback -noToggleButtonToggledCallback = Nothing - -type ToggleButtonToggledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToggleButtonToggledCallback :: ToggleButtonToggledCallbackC -> IO (FunPtr ToggleButtonToggledCallbackC) - -toggleButtonToggledClosure :: ToggleButtonToggledCallback -> IO Closure -toggleButtonToggledClosure cb = newCClosure =<< mkToggleButtonToggledCallback wrapped - where wrapped = toggleButtonToggledCallbackWrapper cb - -toggleButtonToggledCallbackWrapper :: - ToggleButtonToggledCallback -> - Ptr () -> - Ptr () -> - IO () -toggleButtonToggledCallbackWrapper _cb _ _ = do - _cb - -onToggleButtonToggled :: (GObject a, MonadIO m) => a -> ToggleButtonToggledCallback -> m SignalHandlerId -onToggleButtonToggled obj cb = liftIO $ connectToggleButtonToggled obj cb SignalConnectBefore -afterToggleButtonToggled :: (GObject a, MonadIO m) => a -> ToggleButtonToggledCallback -> m SignalHandlerId -afterToggleButtonToggled obj cb = connectToggleButtonToggled obj cb SignalConnectAfter - -connectToggleButtonToggled :: (GObject a, MonadIO m) => - a -> ToggleButtonToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectToggleButtonToggled obj cb after = liftIO $ do - cb' <- mkToggleButtonToggledCallback (toggleButtonToggledCallbackWrapper cb) - connectSignalFunPtr obj "toggled" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToggleButtonActive :: (MonadIO m, ToggleButtonK o) => o -> m Bool -getToggleButtonActive obj = liftIO $ getObjectPropertyBool obj "active" - -setToggleButtonActive :: (MonadIO m, ToggleButtonK o) => o -> Bool -> m () -setToggleButtonActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructToggleButtonActive :: Bool -> IO ([Char], GValue) -constructToggleButtonActive val = constructObjectPropertyBool "active" val - -data ToggleButtonActivePropertyInfo -instance AttrInfo ToggleButtonActivePropertyInfo where - type AttrAllowedOps ToggleButtonActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleButtonActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleButtonActivePropertyInfo = ToggleButtonK - type AttrGetType ToggleButtonActivePropertyInfo = Bool - type AttrLabel ToggleButtonActivePropertyInfo = "active" - attrGet _ = getToggleButtonActive - attrSet _ = setToggleButtonActive - attrConstruct _ = constructToggleButtonActive - attrClear _ = undefined - --- VVV Prop "draw-indicator" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToggleButtonDrawIndicator :: (MonadIO m, ToggleButtonK o) => o -> m Bool -getToggleButtonDrawIndicator obj = liftIO $ getObjectPropertyBool obj "draw-indicator" - -setToggleButtonDrawIndicator :: (MonadIO m, ToggleButtonK o) => o -> Bool -> m () -setToggleButtonDrawIndicator obj val = liftIO $ setObjectPropertyBool obj "draw-indicator" val - -constructToggleButtonDrawIndicator :: Bool -> IO ([Char], GValue) -constructToggleButtonDrawIndicator val = constructObjectPropertyBool "draw-indicator" val - -data ToggleButtonDrawIndicatorPropertyInfo -instance AttrInfo ToggleButtonDrawIndicatorPropertyInfo where - type AttrAllowedOps ToggleButtonDrawIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleButtonDrawIndicatorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleButtonDrawIndicatorPropertyInfo = ToggleButtonK - type AttrGetType ToggleButtonDrawIndicatorPropertyInfo = Bool - type AttrLabel ToggleButtonDrawIndicatorPropertyInfo = "draw-indicator" - attrGet _ = getToggleButtonDrawIndicator - attrSet _ = setToggleButtonDrawIndicator - attrConstruct _ = constructToggleButtonDrawIndicator - attrClear _ = undefined - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToggleButtonInconsistent :: (MonadIO m, ToggleButtonK o) => o -> m Bool -getToggleButtonInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" - -setToggleButtonInconsistent :: (MonadIO m, ToggleButtonK o) => o -> Bool -> m () -setToggleButtonInconsistent obj val = liftIO $ setObjectPropertyBool obj "inconsistent" val - -constructToggleButtonInconsistent :: Bool -> IO ([Char], GValue) -constructToggleButtonInconsistent val = constructObjectPropertyBool "inconsistent" val - -data ToggleButtonInconsistentPropertyInfo -instance AttrInfo ToggleButtonInconsistentPropertyInfo where - type AttrAllowedOps ToggleButtonInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleButtonInconsistentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleButtonInconsistentPropertyInfo = ToggleButtonK - type AttrGetType ToggleButtonInconsistentPropertyInfo = Bool - type AttrLabel ToggleButtonInconsistentPropertyInfo = "inconsistent" - attrGet _ = getToggleButtonInconsistent - attrSet _ = setToggleButtonInconsistent - attrConstruct _ = constructToggleButtonInconsistent - attrClear _ = undefined - -type instance AttributeList ToggleButton = ToggleButtonAttributeList -type ToggleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -toggleButtonActive :: AttrLabelProxy "active" -toggleButtonActive = AttrLabelProxy - -toggleButtonDrawIndicator :: AttrLabelProxy "drawIndicator" -toggleButtonDrawIndicator = AttrLabelProxy - -toggleButtonInconsistent :: AttrLabelProxy "inconsistent" -toggleButtonInconsistent = AttrLabelProxy - -data ToggleButtonToggledSignalInfo -instance SignalInfo ToggleButtonToggledSignalInfo where - type HaskellCallbackType ToggleButtonToggledSignalInfo = ToggleButtonToggledCallback - connectSignal _ = connectToggleButtonToggled - -type instance SignalList ToggleButton = ToggleButtonSignalList -type ToggleButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToggleButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_button_new" gtk_toggle_button_new :: - IO (Ptr ToggleButton) - - -toggleButtonNew :: - (MonadIO m) => - m ToggleButton -- result -toggleButtonNew = liftIO $ do - result <- gtk_toggle_button_new - checkUnexpectedReturnNULL "gtk_toggle_button_new" result - result' <- (newObject ToggleButton) result - return result' - --- method ToggleButton::new_with_label --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_button_new_with_label" gtk_toggle_button_new_with_label :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr ToggleButton) - - -toggleButtonNewWithLabel :: - (MonadIO m) => - T.Text -- label - -> m ToggleButton -- result -toggleButtonNewWithLabel label = liftIO $ do - label' <- textToCString label - result <- gtk_toggle_button_new_with_label label' - checkUnexpectedReturnNULL "gtk_toggle_button_new_with_label" result - result' <- (newObject ToggleButton) result - freeMem label' - return result' - --- method ToggleButton::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_button_new_with_mnemonic" gtk_toggle_button_new_with_mnemonic :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr ToggleButton) - - -toggleButtonNewWithMnemonic :: - (MonadIO m) => - T.Text -- label - -> m ToggleButton -- result -toggleButtonNewWithMnemonic label = liftIO $ do - label' <- textToCString label - result <- gtk_toggle_button_new_with_mnemonic label' - checkUnexpectedReturnNULL "gtk_toggle_button_new_with_mnemonic" result - result' <- (newObject ToggleButton) result - freeMem label' - return result' - --- method ToggleButton::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", 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 "gtk_toggle_button_get_active" gtk_toggle_button_get_active :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - IO CInt - - -toggleButtonGetActive :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> m Bool -- result -toggleButtonGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleButtonGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetActiveMethodInfo a signature where - overloadedMethod _ = toggleButtonGetActive - --- method ToggleButton::get_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", 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 "gtk_toggle_button_get_inconsistent" gtk_toggle_button_get_inconsistent :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - IO CInt - - -toggleButtonGetInconsistent :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> m Bool -- result -toggleButtonGetInconsistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_inconsistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleButtonGetInconsistentMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetInconsistentMethodInfo a signature where - overloadedMethod _ = toggleButtonGetInconsistent - --- method ToggleButton::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", 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 "gtk_toggle_button_get_mode" gtk_toggle_button_get_mode :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - IO CInt - - -toggleButtonGetMode :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> m Bool -- result -toggleButtonGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleButtonGetModeMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetModeMethodInfo a signature where - overloadedMethod _ = toggleButtonGetMode - --- method ToggleButton::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", 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 "gtk_toggle_button_set_active" gtk_toggle_button_set_active :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - CInt -> -- is_active : TBasicType TBoolean - IO () - - -toggleButtonSetActive :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> Bool -- isActive - -> m () -- result -toggleButtonSetActive _obj isActive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isActive' = (fromIntegral . fromEnum) isActive - gtk_toggle_button_set_active _obj' isActive' - touchManagedPtr _obj - return () - -data ToggleButtonSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetActiveMethodInfo a signature where - overloadedMethod _ = toggleButtonSetActive - --- method ToggleButton::set_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_toggle_button_set_inconsistent" gtk_toggle_button_set_inconsistent :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - CInt -> -- setting : TBasicType TBoolean - IO () - - -toggleButtonSetInconsistent :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -toggleButtonSetInconsistent _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_toggle_button_set_inconsistent _obj' setting' - touchManagedPtr _obj - return () - -data ToggleButtonSetInconsistentMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetInconsistentMethodInfo a signature where - overloadedMethod _ = toggleButtonSetInconsistent - --- method ToggleButton::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_indicator", 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 "gtk_toggle_button_set_mode" gtk_toggle_button_set_mode :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - CInt -> -- draw_indicator : TBasicType TBoolean - IO () - - -toggleButtonSetMode :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> Bool -- drawIndicator - -> m () -- result -toggleButtonSetMode _obj drawIndicator = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let drawIndicator' = (fromIntegral . fromEnum) drawIndicator - gtk_toggle_button_set_mode _obj' drawIndicator' - touchManagedPtr _obj - return () - -data ToggleButtonSetModeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetModeMethodInfo a signature where - overloadedMethod _ = toggleButtonSetMode - --- method ToggleButton::toggled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", 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 "gtk_toggle_button_toggled" gtk_toggle_button_toggled :: - Ptr ToggleButton -> -- _obj : TInterface "Gtk" "ToggleButton" - IO () - - -toggleButtonToggled :: - (MonadIO m, ToggleButtonK a) => - a -- _obj - -> m () -- result -toggleButtonToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toggle_button_toggled _obj' - touchManagedPtr _obj - return () - -data ToggleButtonToggledMethodInfo -instance (signature ~ (m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonToggledMethodInfo a signature where - overloadedMethod _ = toggleButtonToggled - - diff --git a/GI/Gtk/Objects/ToggleButton.hs-boot b/GI/Gtk/Objects/ToggleButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleButton.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.ToggleButton 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 ToggleButton = ToggleButton (ForeignPtr ToggleButton) -instance GObject ToggleButton where -class GObject o => ToggleButtonK o -instance (GObject o, IsDescendantOf ToggleButton o) => ToggleButtonK o -data ToggleButtonActivePropertyInfo -data ToggleButtonDrawIndicatorPropertyInfo -data ToggleButtonInconsistentPropertyInfo -data ToggleButtonToggledSignalInfo -data ToggleButtonGetActiveMethodInfo -data ToggleButtonGetInconsistentMethodInfo -data ToggleButtonGetModeMethodInfo -data ToggleButtonSetActiveMethodInfo -data ToggleButtonSetInconsistentMethodInfo -data ToggleButtonSetModeMethodInfo -data ToggleButtonToggledMethodInfo diff --git a/GI/Gtk/Objects/ToggleButtonAccessible.hs b/GI/Gtk/Objects/ToggleButtonAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleButtonAccessible.hs +++ /dev/null @@ -1,134 +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.Gtk.Objects.ToggleButtonAccessible - ( - --- * Exported types - ToggleButtonAccessible(..) , - ToggleButtonAccessibleK , - toToggleButtonAccessible , - noToggleButtonAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ToggleButtonAccessible = ToggleButtonAccessible (ForeignPtr ToggleButtonAccessible) -foreign import ccall "gtk_toggle_button_accessible_get_type" - c_gtk_toggle_button_accessible_get_type :: IO GType - -type instance ParentTypes ToggleButtonAccessible = ToggleButtonAccessibleParentTypes -type ToggleButtonAccessibleParentTypes = '[ButtonAccessible, ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Action, Atk.Component, Atk.Image] - -instance GObject ToggleButtonAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_toggle_button_accessible_get_type - - -class GObject o => ToggleButtonAccessibleK o -instance (GObject o, IsDescendantOf ToggleButtonAccessible o) => ToggleButtonAccessibleK o - -toToggleButtonAccessible :: ToggleButtonAccessibleK o => o -> IO ToggleButtonAccessible -toToggleButtonAccessible = unsafeCastTo ToggleButtonAccessible - -noToggleButtonAccessible :: Maybe ToggleButtonAccessible -noToggleButtonAccessible = Nothing - -type family ResolveToggleButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveToggleButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveToggleButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToggleButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToggleButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveToggleButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveToggleButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo - ResolveToggleButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToggleButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToggleButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveToggleButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveToggleButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToggleButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToggleButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToggleButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveToggleButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveToggleButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToggleButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveToggleButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveToggleButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveToggleButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToggleButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveToggleButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveToggleButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveToggleButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveToggleButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToggleButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToggleButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToggleButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToggleButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToggleButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToggleButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToggleButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToggleButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveToggleButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveToggleButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToggleButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveToggleButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo - ResolveToggleButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo - ResolveToggleButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo - ResolveToggleButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo - ResolveToggleButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveToggleButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo - ResolveToggleButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo - ResolveToggleButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveToggleButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo - ResolveToggleButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveToggleButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveToggleButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveToggleButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToggleButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToggleButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveToggleButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveToggleButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveToggleButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToggleButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveToggleButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo - ResolveToggleButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveToggleButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveToggleButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveToggleButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToggleButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveToggleButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveToggleButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveToggleButtonAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToggleButtonAccessibleMethod t ToggleButtonAccessible, MethodInfo info ToggleButtonAccessible p) => IsLabelProxy t (ToggleButtonAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToggleButtonAccessibleMethod t ToggleButtonAccessible, MethodInfo info ToggleButtonAccessible p) => IsLabel t (ToggleButtonAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ToggleButtonAccessible = ToggleButtonAccessibleAttributeList -type ToggleButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToggleButtonAccessible = ToggleButtonAccessibleSignalList -type ToggleButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot b/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.ToggleButtonAccessible 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 ToggleButtonAccessible = ToggleButtonAccessible (ForeignPtr ToggleButtonAccessible) -instance GObject ToggleButtonAccessible where -class GObject o => ToggleButtonAccessibleK o -instance (GObject o, IsDescendantOf ToggleButtonAccessible o) => ToggleButtonAccessibleK o diff --git a/GI/Gtk/Objects/ToggleToolButton.hs b/GI/Gtk/Objects/ToggleToolButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleToolButton.hs +++ /dev/null @@ -1,654 +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.Gtk.Objects.ToggleToolButton - ( - --- * Exported types - ToggleToolButton(..) , - ToggleToolButtonK , - toToggleToolButton , - noToggleToolButton , - - - -- * Methods --- ** toggleToolButtonGetActive - ToggleToolButtonGetActiveMethodInfo , - toggleToolButtonGetActive , - - --- ** toggleToolButtonNew - toggleToolButtonNew , - - --- ** toggleToolButtonNewFromStock - toggleToolButtonNewFromStock , - - --- ** toggleToolButtonSetActive - ToggleToolButtonSetActiveMethodInfo , - toggleToolButtonSetActive , - - - - - -- * Properties --- ** Active - ToggleToolButtonActivePropertyInfo , - constructToggleToolButtonActive , - getToggleToolButtonActive , - setToggleToolButtonActive , - toggleToolButtonActive , - - - - - -- * Signals --- ** Toggled - ToggleToolButtonToggledCallback , - ToggleToolButtonToggledCallbackC , - ToggleToolButtonToggledSignalInfo , - afterToggleToolButtonToggled , - mkToggleToolButtonToggledCallback , - noToggleToolButtonToggledCallback , - onToggleToolButtonToggled , - toggleToolButtonToggledCallbackWrapper , - toggleToolButtonToggledClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ToggleToolButton = ToggleToolButton (ForeignPtr ToggleToolButton) -foreign import ccall "gtk_toggle_tool_button_get_type" - c_gtk_toggle_tool_button_get_type :: IO GType - -type instance ParentTypes ToggleToolButton = ToggleToolButtonParentTypes -type ToggleToolButtonParentTypes = '[ToolButton, ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject ToggleToolButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_toggle_tool_button_get_type - - -class GObject o => ToggleToolButtonK o -instance (GObject o, IsDescendantOf ToggleToolButton o) => ToggleToolButtonK o - -toToggleToolButton :: ToggleToolButtonK o => o -> IO ToggleToolButton -toToggleToolButton = unsafeCastTo ToggleToolButton - -noToggleToolButton :: Maybe ToggleToolButton -noToggleToolButton = Nothing - -type family ResolveToggleToolButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveToggleToolButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveToggleToolButtonMethod "add" o = ContainerAddMethodInfo - ResolveToggleToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToggleToolButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToggleToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToggleToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToggleToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToggleToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToggleToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToggleToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToggleToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToggleToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToggleToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToggleToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToggleToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToggleToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToggleToolButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToggleToolButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToggleToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToggleToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToggleToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToggleToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToggleToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToggleToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToggleToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToggleToolButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToggleToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToggleToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToggleToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveToggleToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToggleToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToggleToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToggleToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToggleToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToggleToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToggleToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToggleToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToggleToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToggleToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToggleToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToggleToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToggleToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToggleToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToggleToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToggleToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToggleToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToggleToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToggleToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToggleToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToggleToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToggleToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToggleToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToggleToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToggleToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToggleToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToggleToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToggleToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToggleToolButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveToggleToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToggleToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToggleToolButtonMethod "event" o = WidgetEventMethodInfo - ResolveToggleToolButtonMethod "forall" o = ContainerForallMethodInfo - ResolveToggleToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToggleToolButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveToggleToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToggleToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToggleToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToggleToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToggleToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToggleToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToggleToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToggleToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToggleToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToggleToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToggleToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToggleToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToggleToolButtonMethod "hide" o = WidgetHideMethodInfo - ResolveToggleToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToggleToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToggleToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToggleToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToggleToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToggleToolButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToggleToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToggleToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToggleToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToggleToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToggleToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToggleToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToggleToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToggleToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToggleToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToggleToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToggleToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToggleToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToggleToolButtonMethod "map" o = WidgetMapMethodInfo - ResolveToggleToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToggleToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToggleToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToggleToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToggleToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToggleToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToggleToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToggleToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToggleToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToggleToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToggleToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToggleToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToggleToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToggleToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToggleToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToggleToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToggleToolButtonMethod "path" o = WidgetPathMethodInfo - ResolveToggleToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToggleToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToggleToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToggleToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToggleToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToggleToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToggleToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToggleToolButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveToggleToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveToggleToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToggleToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToggleToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToggleToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToggleToolButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveToggleToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToggleToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToggleToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToggleToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToggleToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToggleToolButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveToggleToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToggleToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToggleToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToggleToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToggleToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToggleToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveToggleToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToggleToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToggleToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToggleToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToggleToolButtonMethod "show" o = WidgetShowMethodInfo - ResolveToggleToolButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToggleToolButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToggleToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToggleToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToggleToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToggleToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToggleToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToggleToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToggleToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToggleToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveToggleToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToggleToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToggleToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveToggleToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToggleToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToggleToolButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToggleToolButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToggleToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToggleToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToggleToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToggleToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToggleToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToggleToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToggleToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToggleToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToggleToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveToggleToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveToggleToolButtonMethod "getActive" o = ToggleToolButtonGetActiveMethodInfo - ResolveToggleToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToggleToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToggleToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToggleToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToggleToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToggleToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToggleToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToggleToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToggleToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToggleToolButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveToggleToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToggleToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToggleToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToggleToolButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToggleToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToggleToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToggleToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToggleToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToggleToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToggleToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToggleToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToggleToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToggleToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveToggleToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToggleToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveToggleToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToggleToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToggleToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToggleToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToggleToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToggleToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToggleToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToggleToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToggleToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToggleToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToggleToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToggleToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToggleToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveToggleToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo - ResolveToggleToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveToggleToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo - ResolveToggleToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToggleToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveToggleToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo - ResolveToggleToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo - ResolveToggleToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToggleToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToggleToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToggleToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToggleToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToggleToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToggleToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToggleToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToggleToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToggleToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToggleToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToggleToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveToggleToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToggleToolButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToggleToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToggleToolButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToggleToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToggleToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToggleToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToggleToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToggleToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToggleToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToggleToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToggleToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToggleToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToggleToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveToggleToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToggleToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToggleToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToggleToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveToggleToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveToggleToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToggleToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToggleToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToggleToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToggleToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToggleToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToggleToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToggleToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToggleToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToggleToolButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveToggleToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToggleToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo - ResolveToggleToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveToggleToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToggleToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToggleToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToggleToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveToggleToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveToggleToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveToggleToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveToggleToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToggleToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToggleToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToggleToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToggleToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveToggleToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveToggleToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo - ResolveToggleToolButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToggleToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToggleToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToggleToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToggleToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToggleToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveToggleToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveToggleToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToggleToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToggleToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToggleToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveToggleToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveToggleToolButtonMethod "setActive" o = ToggleToolButtonSetActiveMethodInfo - ResolveToggleToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToggleToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToggleToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToggleToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToggleToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToggleToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToggleToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToggleToolButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToggleToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToggleToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToggleToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveToggleToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToggleToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToggleToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToggleToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToggleToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToggleToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveToggleToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToggleToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToggleToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToggleToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToggleToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToggleToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToggleToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToggleToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToggleToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToggleToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToggleToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToggleToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveToggleToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo - ResolveToggleToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo - ResolveToggleToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveToggleToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo - ResolveToggleToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo - ResolveToggleToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToggleToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToggleToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToggleToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToggleToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToggleToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToggleToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToggleToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToggleToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToggleToolButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToggleToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToggleToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToggleToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveToggleToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToggleToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToggleToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToggleToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToggleToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveToggleToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToggleToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToggleToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToggleToolButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveToggleToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToggleToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo - ResolveToggleToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToggleToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToggleToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToggleToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveToggleToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveToggleToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo - ResolveToggleToolButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToggleToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToggleToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToggleToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToggleToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveToggleToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveToggleToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToggleToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToggleToolButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToggleToolButtonMethod t ToggleToolButton, MethodInfo info ToggleToolButton p) => IsLabelProxy t (ToggleToolButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToggleToolButtonMethod t ToggleToolButton, MethodInfo info ToggleToolButton p) => IsLabel t (ToggleToolButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ToggleToolButton::toggled -type ToggleToolButtonToggledCallback = - IO () - -noToggleToolButtonToggledCallback :: Maybe ToggleToolButtonToggledCallback -noToggleToolButtonToggledCallback = Nothing - -type ToggleToolButtonToggledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToggleToolButtonToggledCallback :: ToggleToolButtonToggledCallbackC -> IO (FunPtr ToggleToolButtonToggledCallbackC) - -toggleToolButtonToggledClosure :: ToggleToolButtonToggledCallback -> IO Closure -toggleToolButtonToggledClosure cb = newCClosure =<< mkToggleToolButtonToggledCallback wrapped - where wrapped = toggleToolButtonToggledCallbackWrapper cb - -toggleToolButtonToggledCallbackWrapper :: - ToggleToolButtonToggledCallback -> - Ptr () -> - Ptr () -> - IO () -toggleToolButtonToggledCallbackWrapper _cb _ _ = do - _cb - -onToggleToolButtonToggled :: (GObject a, MonadIO m) => a -> ToggleToolButtonToggledCallback -> m SignalHandlerId -onToggleToolButtonToggled obj cb = liftIO $ connectToggleToolButtonToggled obj cb SignalConnectBefore -afterToggleToolButtonToggled :: (GObject a, MonadIO m) => a -> ToggleToolButtonToggledCallback -> m SignalHandlerId -afterToggleToolButtonToggled obj cb = connectToggleToolButtonToggled obj cb SignalConnectAfter - -connectToggleToolButtonToggled :: (GObject a, MonadIO m) => - a -> ToggleToolButtonToggledCallback -> SignalConnectMode -> m SignalHandlerId -connectToggleToolButtonToggled obj cb after = liftIO $ do - cb' <- mkToggleToolButtonToggledCallback (toggleToolButtonToggledCallbackWrapper cb) - connectSignalFunPtr obj "toggled" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToggleToolButtonActive :: (MonadIO m, ToggleToolButtonK o) => o -> m Bool -getToggleToolButtonActive obj = liftIO $ getObjectPropertyBool obj "active" - -setToggleToolButtonActive :: (MonadIO m, ToggleToolButtonK o) => o -> Bool -> m () -setToggleToolButtonActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructToggleToolButtonActive :: Bool -> IO ([Char], GValue) -constructToggleToolButtonActive val = constructObjectPropertyBool "active" val - -data ToggleToolButtonActivePropertyInfo -instance AttrInfo ToggleToolButtonActivePropertyInfo where - type AttrAllowedOps ToggleToolButtonActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToggleToolButtonActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToggleToolButtonActivePropertyInfo = ToggleToolButtonK - type AttrGetType ToggleToolButtonActivePropertyInfo = Bool - type AttrLabel ToggleToolButtonActivePropertyInfo = "active" - attrGet _ = getToggleToolButtonActive - attrSet _ = setToggleToolButtonActive - attrConstruct _ = constructToggleToolButtonActive - attrClear _ = undefined - -type instance AttributeList ToggleToolButton = ToggleToolButtonAttributeList -type ToggleToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toggleToolButtonActive :: AttrLabelProxy "active" -toggleToolButtonActive = AttrLabelProxy - -data ToggleToolButtonToggledSignalInfo -instance SignalInfo ToggleToolButtonToggledSignalInfo where - type HaskellCallbackType ToggleToolButtonToggledSignalInfo = ToggleToolButtonToggledCallback - connectSignal _ = connectToggleToolButtonToggled - -type instance SignalList ToggleToolButton = ToggleToolButtonSignalList -type ToggleToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToggleToolButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_tool_button_new" gtk_toggle_tool_button_new :: - IO (Ptr ToggleToolButton) - - -toggleToolButtonNew :: - (MonadIO m) => - m ToggleToolButton -- result -toggleToolButtonNew = liftIO $ do - result <- gtk_toggle_tool_button_new - checkUnexpectedReturnNULL "gtk_toggle_tool_button_new" result - result' <- (newObject ToggleToolButton) result - return result' - --- method ToggleToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToggleToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toggle_tool_button_new_from_stock" gtk_toggle_tool_button_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr ToggleToolButton) - -{-# DEPRECATED toggleToolButtonNewFromStock ["(Since version 3.10)","Use gtk_toggle_tool_button_new() instead."]#-} -toggleToolButtonNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> m ToggleToolButton -- result -toggleToolButtonNewFromStock stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_toggle_tool_button_new_from_stock stockId' - checkUnexpectedReturnNULL "gtk_toggle_tool_button_new_from_stock" result - result' <- (newObject ToggleToolButton) result - freeMem stockId' - return result' - --- method ToggleToolButton::get_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", 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 "gtk_toggle_tool_button_get_active" gtk_toggle_tool_button_get_active :: - Ptr ToggleToolButton -> -- _obj : TInterface "Gtk" "ToggleToolButton" - IO CInt - - -toggleToolButtonGetActive :: - (MonadIO m, ToggleToolButtonK a) => - a -- _obj - -> m Bool -- result -toggleToolButtonGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_tool_button_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToggleToolButtonGetActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToggleToolButtonK a) => MethodInfo ToggleToolButtonGetActiveMethodInfo a signature where - overloadedMethod _ = toggleToolButtonGetActive - --- method ToggleToolButton::set_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", 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 "gtk_toggle_tool_button_set_active" gtk_toggle_tool_button_set_active :: - Ptr ToggleToolButton -> -- _obj : TInterface "Gtk" "ToggleToolButton" - CInt -> -- is_active : TBasicType TBoolean - IO () - - -toggleToolButtonSetActive :: - (MonadIO m, ToggleToolButtonK a) => - a -- _obj - -> Bool -- isActive - -> m () -- result -toggleToolButtonSetActive _obj isActive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isActive' = (fromIntegral . fromEnum) isActive - gtk_toggle_tool_button_set_active _obj' isActive' - touchManagedPtr _obj - return () - -data ToggleToolButtonSetActiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToggleToolButtonK a) => MethodInfo ToggleToolButtonSetActiveMethodInfo a signature where - overloadedMethod _ = toggleToolButtonSetActive - - diff --git a/GI/Gtk/Objects/ToggleToolButton.hs-boot b/GI/Gtk/Objects/ToggleToolButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToggleToolButton.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Objects.ToggleToolButton 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 ToggleToolButton = ToggleToolButton (ForeignPtr ToggleToolButton) -instance GObject ToggleToolButton where -class GObject o => ToggleToolButtonK o -instance (GObject o, IsDescendantOf ToggleToolButton o) => ToggleToolButtonK o -data ToggleToolButtonActivePropertyInfo -data ToggleToolButtonToggledSignalInfo -data ToggleToolButtonGetActiveMethodInfo -data ToggleToolButtonSetActiveMethodInfo diff --git a/GI/Gtk/Objects/ToolButton.hs b/GI/Gtk/Objects/ToolButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToolButton.hs +++ /dev/null @@ -1,1243 +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.Gtk.Objects.ToolButton - ( - --- * Exported types - ToolButton(..) , - ToolButtonK , - toToolButton , - noToolButton , - - - -- * Methods --- ** toolButtonGetIconName - ToolButtonGetIconNameMethodInfo , - toolButtonGetIconName , - - --- ** toolButtonGetIconWidget - ToolButtonGetIconWidgetMethodInfo , - toolButtonGetIconWidget , - - --- ** toolButtonGetLabel - ToolButtonGetLabelMethodInfo , - toolButtonGetLabel , - - --- ** toolButtonGetLabelWidget - ToolButtonGetLabelWidgetMethodInfo , - toolButtonGetLabelWidget , - - --- ** toolButtonGetStockId - ToolButtonGetStockIdMethodInfo , - toolButtonGetStockId , - - --- ** toolButtonGetUseUnderline - ToolButtonGetUseUnderlineMethodInfo , - toolButtonGetUseUnderline , - - --- ** toolButtonNew - toolButtonNew , - - --- ** toolButtonNewFromStock - toolButtonNewFromStock , - - --- ** toolButtonSetIconName - ToolButtonSetIconNameMethodInfo , - toolButtonSetIconName , - - --- ** toolButtonSetIconWidget - ToolButtonSetIconWidgetMethodInfo , - toolButtonSetIconWidget , - - --- ** toolButtonSetLabel - ToolButtonSetLabelMethodInfo , - toolButtonSetLabel , - - --- ** toolButtonSetLabelWidget - ToolButtonSetLabelWidgetMethodInfo , - toolButtonSetLabelWidget , - - --- ** toolButtonSetStockId - ToolButtonSetStockIdMethodInfo , - toolButtonSetStockId , - - --- ** toolButtonSetUseUnderline - ToolButtonSetUseUnderlineMethodInfo , - toolButtonSetUseUnderline , - - - - - -- * Properties --- ** IconName - ToolButtonIconNamePropertyInfo , - clearToolButtonIconName , - constructToolButtonIconName , - getToolButtonIconName , - setToolButtonIconName , - toolButtonIconName , - - --- ** IconWidget - ToolButtonIconWidgetPropertyInfo , - clearToolButtonIconWidget , - constructToolButtonIconWidget , - getToolButtonIconWidget , - setToolButtonIconWidget , - toolButtonIconWidget , - - --- ** Label - ToolButtonLabelPropertyInfo , - clearToolButtonLabel , - constructToolButtonLabel , - getToolButtonLabel , - setToolButtonLabel , - toolButtonLabel , - - --- ** LabelWidget - ToolButtonLabelWidgetPropertyInfo , - clearToolButtonLabelWidget , - constructToolButtonLabelWidget , - getToolButtonLabelWidget , - setToolButtonLabelWidget , - toolButtonLabelWidget , - - --- ** StockId - ToolButtonStockIdPropertyInfo , - clearToolButtonStockId , - constructToolButtonStockId , - getToolButtonStockId , - setToolButtonStockId , - toolButtonStockId , - - --- ** UseUnderline - ToolButtonUseUnderlinePropertyInfo , - constructToolButtonUseUnderline , - getToolButtonUseUnderline , - setToolButtonUseUnderline , - toolButtonUseUnderline , - - - - - -- * Signals --- ** Clicked - ToolButtonClickedCallback , - ToolButtonClickedCallbackC , - ToolButtonClickedSignalInfo , - afterToolButtonClicked , - mkToolButtonClickedCallback , - noToolButtonClickedCallback , - onToolButtonClicked , - toolButtonClickedCallbackWrapper , - toolButtonClickedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ToolButton = ToolButton (ForeignPtr ToolButton) -foreign import ccall "gtk_tool_button_get_type" - c_gtk_tool_button_get_type :: IO GType - -type instance ParentTypes ToolButton = ToolButtonParentTypes -type ToolButtonParentTypes = '[ToolItem, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable] - -instance GObject ToolButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tool_button_get_type - - -class GObject o => ToolButtonK o -instance (GObject o, IsDescendantOf ToolButton o) => ToolButtonK o - -toToolButton :: ToolButtonK o => o -> IO ToolButton -toToolButton = unsafeCastTo ToolButton - -noToolButton :: Maybe ToolButton -noToolButton = Nothing - -type family ResolveToolButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveToolButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveToolButtonMethod "add" o = ContainerAddMethodInfo - ResolveToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToolButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToolButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolButtonMethod "event" o = WidgetEventMethodInfo - ResolveToolButtonMethod "forall" o = ContainerForallMethodInfo - ResolveToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolButtonMethod "hide" o = WidgetHideMethodInfo - ResolveToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolButtonMethod "map" o = WidgetMapMethodInfo - ResolveToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolButtonMethod "path" o = WidgetPathMethodInfo - ResolveToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolButtonMethod "show" o = WidgetShowMethodInfo - ResolveToolButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToolButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo - ResolveToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo - ResolveToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo - ResolveToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo - ResolveToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo - ResolveToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo - ResolveToolButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo - ResolveToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo - ResolveToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo - ResolveToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo - ResolveToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo - ResolveToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo - ResolveToolButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolButtonMethod t ToolButton, MethodInfo info ToolButton p) => IsLabelProxy t (ToolButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolButtonMethod t ToolButton, MethodInfo info ToolButton p) => IsLabel t (ToolButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ToolButton::clicked -type ToolButtonClickedCallback = - IO () - -noToolButtonClickedCallback :: Maybe ToolButtonClickedCallback -noToolButtonClickedCallback = Nothing - -type ToolButtonClickedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToolButtonClickedCallback :: ToolButtonClickedCallbackC -> IO (FunPtr ToolButtonClickedCallbackC) - -toolButtonClickedClosure :: ToolButtonClickedCallback -> IO Closure -toolButtonClickedClosure cb = newCClosure =<< mkToolButtonClickedCallback wrapped - where wrapped = toolButtonClickedCallbackWrapper cb - -toolButtonClickedCallbackWrapper :: - ToolButtonClickedCallback -> - Ptr () -> - Ptr () -> - IO () -toolButtonClickedCallbackWrapper _cb _ _ = do - _cb - -onToolButtonClicked :: (GObject a, MonadIO m) => a -> ToolButtonClickedCallback -> m SignalHandlerId -onToolButtonClicked obj cb = liftIO $ connectToolButtonClicked obj cb SignalConnectBefore -afterToolButtonClicked :: (GObject a, MonadIO m) => a -> ToolButtonClickedCallback -> m SignalHandlerId -afterToolButtonClicked obj cb = connectToolButtonClicked obj cb SignalConnectAfter - -connectToolButtonClicked :: (GObject a, MonadIO m) => - a -> ToolButtonClickedCallback -> SignalConnectMode -> m SignalHandlerId -connectToolButtonClicked obj cb after = liftIO $ do - cb' <- mkToolButtonClickedCallback (toolButtonClickedCallbackWrapper cb) - connectSignalFunPtr obj "clicked" cb' after - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonIconName obj = liftIO $ checkUnexpectedNothing "getToolButtonIconName" $ getObjectPropertyString obj "icon-name" - -setToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructToolButtonIconName :: T.Text -> IO ([Char], GValue) -constructToolButtonIconName val = constructObjectPropertyString "icon-name" (Just val) - -clearToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m () -clearToolButtonIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) - -data ToolButtonIconNamePropertyInfo -instance AttrInfo ToolButtonIconNamePropertyInfo where - type AttrAllowedOps ToolButtonIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToolButtonIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonIconNamePropertyInfo = ToolButtonK - type AttrGetType ToolButtonIconNamePropertyInfo = T.Text - type AttrLabel ToolButtonIconNamePropertyInfo = "icon-name" - attrGet _ = getToolButtonIconName - attrSet _ = setToolButtonIconName - attrConstruct _ = constructToolButtonIconName - attrClear _ = clearToolButtonIconName - --- VVV Prop "icon-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonIconWidget obj = liftIO $ checkUnexpectedNothing "getToolButtonIconWidget" $ getObjectPropertyObject obj "icon-widget" Widget - -setToolButtonIconWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonIconWidget obj val = liftIO $ setObjectPropertyObject obj "icon-widget" (Just val) - -constructToolButtonIconWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonIconWidget val = constructObjectPropertyObject "icon-widget" (Just val) - -clearToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m () -clearToolButtonIconWidget obj = liftIO $ setObjectPropertyObject obj "icon-widget" (Nothing :: Maybe Widget) - -data ToolButtonIconWidgetPropertyInfo -instance AttrInfo ToolButtonIconWidgetPropertyInfo where - type AttrAllowedOps ToolButtonIconWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToolButtonIconWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ToolButtonIconWidgetPropertyInfo = ToolButtonK - type AttrGetType ToolButtonIconWidgetPropertyInfo = Widget - type AttrLabel ToolButtonIconWidgetPropertyInfo = "icon-widget" - attrGet _ = getToolButtonIconWidget - attrSet _ = setToolButtonIconWidget - attrConstruct _ = constructToolButtonIconWidget - attrClear _ = clearToolButtonIconWidget - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonLabel obj = liftIO $ checkUnexpectedNothing "getToolButtonLabel" $ getObjectPropertyString obj "label" - -setToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructToolButtonLabel :: T.Text -> IO ([Char], GValue) -constructToolButtonLabel val = constructObjectPropertyString "label" (Just val) - -clearToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m () -clearToolButtonLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) - -data ToolButtonLabelPropertyInfo -instance AttrInfo ToolButtonLabelPropertyInfo where - type AttrAllowedOps ToolButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToolButtonLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonLabelPropertyInfo = ToolButtonK - type AttrGetType ToolButtonLabelPropertyInfo = T.Text - type AttrLabel ToolButtonLabelPropertyInfo = "label" - attrGet _ = getToolButtonLabel - attrSet _ = setToolButtonLabel - attrConstruct _ = constructToolButtonLabel - attrClear _ = clearToolButtonLabel - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonLabelWidget obj = liftIO $ checkUnexpectedNothing "getToolButtonLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget - -setToolButtonLabelWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) - -constructToolButtonLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) - -clearToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m () -clearToolButtonLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) - -data ToolButtonLabelWidgetPropertyInfo -instance AttrInfo ToolButtonLabelWidgetPropertyInfo where - type AttrAllowedOps ToolButtonLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToolButtonLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ToolButtonLabelWidgetPropertyInfo = ToolButtonK - type AttrGetType ToolButtonLabelWidgetPropertyInfo = Widget - type AttrLabel ToolButtonLabelWidgetPropertyInfo = "label-widget" - attrGet _ = getToolButtonLabelWidget - attrSet _ = setToolButtonLabelWidget - attrConstruct _ = constructToolButtonLabelWidget - attrClear _ = clearToolButtonLabelWidget - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonStockId obj = liftIO $ checkUnexpectedNothing "getToolButtonStockId" $ getObjectPropertyString obj "stock-id" - -setToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) - -constructToolButtonStockId :: T.Text -> IO ([Char], GValue) -constructToolButtonStockId val = constructObjectPropertyString "stock-id" (Just val) - -clearToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m () -clearToolButtonStockId obj = liftIO $ setObjectPropertyString obj "stock-id" (Nothing :: Maybe T.Text) - -data ToolButtonStockIdPropertyInfo -instance AttrInfo ToolButtonStockIdPropertyInfo where - type AttrAllowedOps ToolButtonStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToolButtonStockIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonStockIdPropertyInfo = ToolButtonK - type AttrGetType ToolButtonStockIdPropertyInfo = T.Text - type AttrLabel ToolButtonStockIdPropertyInfo = "stock-id" - attrGet _ = getToolButtonStockId - attrSet _ = setToolButtonStockId - attrConstruct _ = constructToolButtonStockId - attrClear _ = clearToolButtonStockId - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolButtonUseUnderline :: (MonadIO m, ToolButtonK o) => o -> m Bool -getToolButtonUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setToolButtonUseUnderline :: (MonadIO m, ToolButtonK o) => o -> Bool -> m () -setToolButtonUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructToolButtonUseUnderline :: Bool -> IO ([Char], GValue) -constructToolButtonUseUnderline val = constructObjectPropertyBool "use-underline" val - -data ToolButtonUseUnderlinePropertyInfo -instance AttrInfo ToolButtonUseUnderlinePropertyInfo where - type AttrAllowedOps ToolButtonUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolButtonUseUnderlinePropertyInfo = ToolButtonK - type AttrGetType ToolButtonUseUnderlinePropertyInfo = Bool - type AttrLabel ToolButtonUseUnderlinePropertyInfo = "use-underline" - attrGet _ = getToolButtonUseUnderline - attrSet _ = setToolButtonUseUnderline - attrConstruct _ = constructToolButtonUseUnderline - attrClear _ = undefined - -type instance AttributeList ToolButton = ToolButtonAttributeList -type ToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toolButtonIconName :: AttrLabelProxy "iconName" -toolButtonIconName = AttrLabelProxy - -toolButtonIconWidget :: AttrLabelProxy "iconWidget" -toolButtonIconWidget = AttrLabelProxy - -toolButtonLabel :: AttrLabelProxy "label" -toolButtonLabel = AttrLabelProxy - -toolButtonLabelWidget :: AttrLabelProxy "labelWidget" -toolButtonLabelWidget = AttrLabelProxy - -toolButtonStockId :: AttrLabelProxy "stockId" -toolButtonStockId = AttrLabelProxy - -toolButtonUseUnderline :: AttrLabelProxy "useUnderline" -toolButtonUseUnderline = AttrLabelProxy - -data ToolButtonClickedSignalInfo -instance SignalInfo ToolButtonClickedSignalInfo where - type HaskellCallbackType ToolButtonClickedSignalInfo = ToolButtonClickedCallback - connectSignal _ = connectToolButtonClicked - -type instance SignalList ToolButton = ToolButtonSignalList -type ToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToolButton::new --- method type : Constructor --- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_new" gtk_tool_button_new :: - Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget" - CString -> -- label : TBasicType TUTF8 - IO (Ptr ToolButton) - - -toolButtonNew :: - (MonadIO m, WidgetK a) => - Maybe (a) -- iconWidget - -> Maybe (T.Text) -- label - -> m ToolButton -- result -toolButtonNew iconWidget label = liftIO $ do - maybeIconWidget <- case iconWidget of - Nothing -> return nullPtr - Just jIconWidget -> do - let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget - return jIconWidget' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_tool_button_new maybeIconWidget maybeLabel - checkUnexpectedReturnNULL "gtk_tool_button_new" result - result' <- (newObject ToolButton) result - whenJust iconWidget touchManagedPtr - freeMem maybeLabel - return result' - --- method ToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_new_from_stock" gtk_tool_button_new_from_stock :: - CString -> -- stock_id : TBasicType TUTF8 - IO (Ptr ToolButton) - -{-# DEPRECATED toolButtonNewFromStock ["(Since version 3.10)","Use gtk_tool_button_new() together with","gtk_image_new_from_icon_name() instead."]#-} -toolButtonNewFromStock :: - (MonadIO m) => - T.Text -- stockId - -> m ToolButton -- result -toolButtonNewFromStock stockId = liftIO $ do - stockId' <- textToCString stockId - result <- gtk_tool_button_new_from_stock stockId' - checkUnexpectedReturnNULL "gtk_tool_button_new_from_stock" result - result' <- (newObject ToolButton) result - freeMem stockId' - return result' - --- method ToolButton::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", 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 "gtk_tool_button_get_icon_name" gtk_tool_button_get_icon_name :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO CString - - -toolButtonGetIconName :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m T.Text -- result -toolButtonGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_tool_button_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ToolButtonGetIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetIconNameMethodInfo a signature where - overloadedMethod _ = toolButtonGetIconName - --- method ToolButton::get_icon_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_get_icon_widget" gtk_tool_button_get_icon_widget :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO (Ptr Widget) - - -toolButtonGetIconWidget :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m Widget -- result -toolButtonGetIconWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_icon_widget _obj' - checkUnexpectedReturnNULL "gtk_tool_button_get_icon_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ToolButtonGetIconWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetIconWidgetMethodInfo a signature where - overloadedMethod _ = toolButtonGetIconWidget - --- method ToolButton::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", 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 "gtk_tool_button_get_label" gtk_tool_button_get_label :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO CString - - -toolButtonGetLabel :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m T.Text -- result -toolButtonGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_label _obj' - checkUnexpectedReturnNULL "gtk_tool_button_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ToolButtonGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetLabelMethodInfo a signature where - overloadedMethod _ = toolButtonGetLabel - --- method ToolButton::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_get_label_widget" gtk_tool_button_get_label_widget :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO (Ptr Widget) - - -toolButtonGetLabelWidget :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m Widget -- result -toolButtonGetLabelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_label_widget _obj' - checkUnexpectedReturnNULL "gtk_tool_button_get_label_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ToolButtonGetLabelWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetLabelWidgetMethodInfo a signature where - overloadedMethod _ = toolButtonGetLabelWidget - --- method ToolButton::get_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", 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 "gtk_tool_button_get_stock_id" gtk_tool_button_get_stock_id :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO CString - -{-# DEPRECATED toolButtonGetStockId ["(Since version 3.10)","Use gtk_tool_button_get_icon_name() instead."]#-} -toolButtonGetStockId :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m T.Text -- result -toolButtonGetStockId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_stock_id _obj' - checkUnexpectedReturnNULL "gtk_tool_button_get_stock_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ToolButtonGetStockIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetStockIdMethodInfo a signature where - overloadedMethod _ = toolButtonGetStockId - --- method ToolButton::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", 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 "gtk_tool_button_get_use_underline" gtk_tool_button_get_use_underline :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - IO CInt - - -toolButtonGetUseUnderline :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> m Bool -- result -toolButtonGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolButtonGetUseUnderlineMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetUseUnderlineMethodInfo a signature where - overloadedMethod _ = toolButtonGetUseUnderline - --- method ToolButton::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_set_icon_name" gtk_tool_button_set_icon_name :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -toolButtonSetIconName :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> Maybe (T.Text) -- iconName - -> m () -- result -toolButtonSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_tool_button_set_icon_name _obj' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data ToolButtonSetIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetIconNameMethodInfo a signature where - overloadedMethod _ = toolButtonSetIconName - --- method ToolButton::set_icon_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_set_icon_widget" gtk_tool_button_set_icon_widget :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - Ptr Widget -> -- icon_widget : TInterface "Gtk" "Widget" - IO () - - -toolButtonSetIconWidget :: - (MonadIO m, ToolButtonK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- iconWidget - -> m () -- result -toolButtonSetIconWidget _obj iconWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconWidget <- case iconWidget of - Nothing -> return nullPtr - Just jIconWidget -> do - let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget - return jIconWidget' - gtk_tool_button_set_icon_widget _obj' maybeIconWidget - touchManagedPtr _obj - whenJust iconWidget touchManagedPtr - return () - -data ToolButtonSetIconWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ToolButtonK a, WidgetK b) => MethodInfo ToolButtonSetIconWidgetMethodInfo a signature where - overloadedMethod _ = toolButtonSetIconWidget - --- method ToolButton::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_set_label" gtk_tool_button_set_label :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - CString -> -- label : TBasicType TUTF8 - IO () - - -toolButtonSetLabel :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -toolButtonSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - gtk_tool_button_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data ToolButtonSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetLabelMethodInfo a signature where - overloadedMethod _ = toolButtonSetLabel - --- method ToolButton::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_set_label_widget" gtk_tool_button_set_label_widget :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget" - IO () - - -toolButtonSetLabelWidget :: - (MonadIO m, ToolButtonK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- labelWidget - -> m () -- result -toolButtonSetLabelWidget _obj labelWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabelWidget <- case labelWidget of - Nothing -> return nullPtr - Just jLabelWidget -> do - let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget - return jLabelWidget' - gtk_tool_button_set_label_widget _obj' maybeLabelWidget - touchManagedPtr _obj - whenJust labelWidget touchManagedPtr - return () - -data ToolButtonSetLabelWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ToolButtonK a, WidgetK b) => MethodInfo ToolButtonSetLabelWidgetMethodInfo a signature where - overloadedMethod _ = toolButtonSetLabelWidget - --- method ToolButton::set_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_button_set_stock_id" gtk_tool_button_set_stock_id :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED toolButtonSetStockId ["(Since version 3.10)","Use gtk_tool_button_set_icon_name() instead."]#-} -toolButtonSetStockId :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> Maybe (T.Text) -- stockId - -> m () -- result -toolButtonSetStockId _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - gtk_tool_button_set_stock_id _obj' maybeStockId - touchManagedPtr _obj - freeMem maybeStockId - return () - -data ToolButtonSetStockIdMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetStockIdMethodInfo a signature where - overloadedMethod _ = toolButtonSetStockId - --- method ToolButton::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", 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 "gtk_tool_button_set_use_underline" gtk_tool_button_set_use_underline :: - Ptr ToolButton -> -- _obj : TInterface "Gtk" "ToolButton" - CInt -> -- use_underline : TBasicType TBoolean - IO () - - -toolButtonSetUseUnderline :: - (MonadIO m, ToolButtonK a) => - a -- _obj - -> Bool -- useUnderline - -> m () -- result -toolButtonSetUseUnderline _obj useUnderline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useUnderline' = (fromIntegral . fromEnum) useUnderline - gtk_tool_button_set_use_underline _obj' useUnderline' - touchManagedPtr _obj - return () - -data ToolButtonSetUseUnderlineMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetUseUnderlineMethodInfo a signature where - overloadedMethod _ = toolButtonSetUseUnderline - - diff --git a/GI/Gtk/Objects/ToolButton.hs-boot b/GI/Gtk/Objects/ToolButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToolButton.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Objects.ToolButton 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 ToolButton = ToolButton (ForeignPtr ToolButton) -instance GObject ToolButton where -class GObject o => ToolButtonK o -instance (GObject o, IsDescendantOf ToolButton o) => ToolButtonK o -data ToolButtonIconNamePropertyInfo -data ToolButtonIconWidgetPropertyInfo -data ToolButtonLabelPropertyInfo -data ToolButtonLabelWidgetPropertyInfo -data ToolButtonStockIdPropertyInfo -data ToolButtonUseUnderlinePropertyInfo -data ToolButtonClickedSignalInfo -data ToolButtonGetIconNameMethodInfo -data ToolButtonGetIconWidgetMethodInfo -data ToolButtonGetLabelMethodInfo -data ToolButtonGetLabelWidgetMethodInfo -data ToolButtonGetStockIdMethodInfo -data ToolButtonGetUseUnderlineMethodInfo -data ToolButtonSetIconNameMethodInfo -data ToolButtonSetIconWidgetMethodInfo -data ToolButtonSetLabelMethodInfo -data ToolButtonSetLabelWidgetMethodInfo -data ToolButtonSetStockIdMethodInfo -data ToolButtonSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ToolItem.hs b/GI/Gtk/Objects/ToolItem.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToolItem.hs +++ /dev/null @@ -1,1590 +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.Gtk.Objects.ToolItem - ( - --- * Exported types - ToolItem(..) , - ToolItemK , - toToolItem , - noToolItem , - - - -- * Methods --- ** toolItemGetEllipsizeMode - ToolItemGetEllipsizeModeMethodInfo , - toolItemGetEllipsizeMode , - - --- ** toolItemGetExpand - ToolItemGetExpandMethodInfo , - toolItemGetExpand , - - --- ** toolItemGetHomogeneous - ToolItemGetHomogeneousMethodInfo , - toolItemGetHomogeneous , - - --- ** toolItemGetIconSize - ToolItemGetIconSizeMethodInfo , - toolItemGetIconSize , - - --- ** toolItemGetIsImportant - ToolItemGetIsImportantMethodInfo , - toolItemGetIsImportant , - - --- ** toolItemGetOrientation - ToolItemGetOrientationMethodInfo , - toolItemGetOrientation , - - --- ** toolItemGetProxyMenuItem - ToolItemGetProxyMenuItemMethodInfo , - toolItemGetProxyMenuItem , - - --- ** toolItemGetReliefStyle - ToolItemGetReliefStyleMethodInfo , - toolItemGetReliefStyle , - - --- ** toolItemGetTextAlignment - ToolItemGetTextAlignmentMethodInfo , - toolItemGetTextAlignment , - - --- ** toolItemGetTextOrientation - ToolItemGetTextOrientationMethodInfo , - toolItemGetTextOrientation , - - --- ** toolItemGetTextSizeGroup - ToolItemGetTextSizeGroupMethodInfo , - toolItemGetTextSizeGroup , - - --- ** toolItemGetToolbarStyle - ToolItemGetToolbarStyleMethodInfo , - toolItemGetToolbarStyle , - - --- ** toolItemGetUseDragWindow - ToolItemGetUseDragWindowMethodInfo , - toolItemGetUseDragWindow , - - --- ** toolItemGetVisibleHorizontal - ToolItemGetVisibleHorizontalMethodInfo , - toolItemGetVisibleHorizontal , - - --- ** toolItemGetVisibleVertical - ToolItemGetVisibleVerticalMethodInfo , - toolItemGetVisibleVertical , - - --- ** toolItemNew - toolItemNew , - - --- ** toolItemRebuildMenu - ToolItemRebuildMenuMethodInfo , - toolItemRebuildMenu , - - --- ** toolItemRetrieveProxyMenuItem - ToolItemRetrieveProxyMenuItemMethodInfo , - toolItemRetrieveProxyMenuItem , - - --- ** toolItemSetExpand - ToolItemSetExpandMethodInfo , - toolItemSetExpand , - - --- ** toolItemSetHomogeneous - ToolItemSetHomogeneousMethodInfo , - toolItemSetHomogeneous , - - --- ** toolItemSetIsImportant - ToolItemSetIsImportantMethodInfo , - toolItemSetIsImportant , - - --- ** toolItemSetProxyMenuItem - ToolItemSetProxyMenuItemMethodInfo , - toolItemSetProxyMenuItem , - - --- ** toolItemSetTooltipMarkup - ToolItemSetTooltipMarkupMethodInfo , - toolItemSetTooltipMarkup , - - --- ** toolItemSetTooltipText - ToolItemSetTooltipTextMethodInfo , - toolItemSetTooltipText , - - --- ** toolItemSetUseDragWindow - ToolItemSetUseDragWindowMethodInfo , - toolItemSetUseDragWindow , - - --- ** toolItemSetVisibleHorizontal - ToolItemSetVisibleHorizontalMethodInfo , - toolItemSetVisibleHorizontal , - - --- ** toolItemSetVisibleVertical - ToolItemSetVisibleVerticalMethodInfo , - toolItemSetVisibleVertical , - - --- ** toolItemToolbarReconfigured - ToolItemToolbarReconfiguredMethodInfo , - toolItemToolbarReconfigured , - - - - - -- * Properties --- ** IsImportant - ToolItemIsImportantPropertyInfo , - constructToolItemIsImportant , - getToolItemIsImportant , - setToolItemIsImportant , - toolItemIsImportant , - - --- ** VisibleHorizontal - ToolItemVisibleHorizontalPropertyInfo , - constructToolItemVisibleHorizontal , - getToolItemVisibleHorizontal , - setToolItemVisibleHorizontal , - toolItemVisibleHorizontal , - - --- ** VisibleVertical - ToolItemVisibleVerticalPropertyInfo , - constructToolItemVisibleVertical , - getToolItemVisibleVertical , - setToolItemVisibleVertical , - toolItemVisibleVertical , - - - - - -- * Signals --- ** CreateMenuProxy - ToolItemCreateMenuProxyCallback , - ToolItemCreateMenuProxyCallbackC , - ToolItemCreateMenuProxySignalInfo , - afterToolItemCreateMenuProxy , - mkToolItemCreateMenuProxyCallback , - noToolItemCreateMenuProxyCallback , - onToolItemCreateMenuProxy , - toolItemCreateMenuProxyCallbackWrapper , - toolItemCreateMenuProxyClosure , - - --- ** ToolbarReconfigured - ToolItemToolbarReconfiguredCallback , - ToolItemToolbarReconfiguredCallbackC , - ToolItemToolbarReconfiguredSignalInfo , - afterToolItemToolbarReconfigured , - mkToolItemToolbarReconfiguredCallback , - noToolItemToolbarReconfiguredCallback , - onToolItemToolbarReconfigured , - toolItemToolbarReconfiguredCallbackWrapper, - toolItemToolbarReconfiguredClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype ToolItem = ToolItem (ForeignPtr ToolItem) -foreign import ccall "gtk_tool_item_get_type" - c_gtk_tool_item_get_type :: IO GType - -type instance ParentTypes ToolItem = ToolItemParentTypes -type ToolItemParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Activatable, Buildable] - -instance GObject ToolItem where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tool_item_get_type - - -class GObject o => ToolItemK o -instance (GObject o, IsDescendantOf ToolItem o) => ToolItemK o - -toToolItem :: ToolItemK o => o -> IO ToolItem -toToolItem = unsafeCastTo ToolItem - -noToolItem :: Maybe ToolItem -noToolItem = Nothing - -type family ResolveToolItemMethod (t :: Symbol) (o :: *) :: * where - ResolveToolItemMethod "activate" o = WidgetActivateMethodInfo - ResolveToolItemMethod "add" o = ContainerAddMethodInfo - ResolveToolItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolItemMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolItemMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolItemMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToolItemMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToolItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToolItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToolItemMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToolItemMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolItemMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolItemMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolItemMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveToolItemMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolItemMethod "draw" o = WidgetDrawMethodInfo - ResolveToolItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolItemMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolItemMethod "event" o = WidgetEventMethodInfo - ResolveToolItemMethod "forall" o = ContainerForallMethodInfo - ResolveToolItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolItemMethod "foreach" o = ContainerForeachMethodInfo - ResolveToolItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolItemMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolItemMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolItemMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolItemMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolItemMethod "hide" o = WidgetHideMethodInfo - ResolveToolItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolItemMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolItemMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolItemMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolItemMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolItemMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolItemMethod "map" o = WidgetMapMethodInfo - ResolveToolItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolItemMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolItemMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolItemMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolItemMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolItemMethod "path" o = WidgetPathMethodInfo - ResolveToolItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToolItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolItemMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolItemMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolItemMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo - ResolveToolItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolItemMethod "remove" o = ContainerRemoveMethodInfo - ResolveToolItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolItemMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolItemMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolItemMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToolItemMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo - ResolveToolItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolItemMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolItemMethod "show" o = WidgetShowMethodInfo - ResolveToolItemMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolItemMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveToolItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolItemMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo - ResolveToolItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolItemMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolItemMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolItemMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToolItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToolItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolItemMethod "getChild" o = BinGetChildMethodInfo - ResolveToolItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolItemMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToolItemMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolItemMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolItemMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo - ResolveToolItemMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolItemMethod "getExpand" o = ToolItemGetExpandMethodInfo - ResolveToolItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToolItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToolItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToolItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToolItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolItemMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolItemMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo - ResolveToolItemMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo - ResolveToolItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolItemMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo - ResolveToolItemMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolItemMethod "getOrientation" o = ToolItemGetOrientationMethodInfo - ResolveToolItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolItemMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolItemMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToolItemMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolItemMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo - ResolveToolItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolItemMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveToolItemMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo - ResolveToolItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToolItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolItemMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolItemMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolItemMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolItemMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveToolItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolItemMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo - ResolveToolItemMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo - ResolveToolItemMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo - ResolveToolItemMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo - ResolveToolItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveToolItemMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo - ResolveToolItemMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolItemMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolItemMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo - ResolveToolItemMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo - ResolveToolItemMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolItemMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolItemMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToolItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolItemMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolItemMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolItemMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolItemMethod "setExpand" o = ToolItemSetExpandMethodInfo - ResolveToolItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToolItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToolItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToolItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToolItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolItemMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolItemMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo - ResolveToolItemMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo - ResolveToolItemMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolItemMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolItemMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo - ResolveToolItemMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToolItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveToolItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToolItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolItemMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolItemMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToolItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveToolItemMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo - ResolveToolItemMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolItemMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolItemMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo - ResolveToolItemMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo - ResolveToolItemMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolItemMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolItemMethod t ToolItem, MethodInfo info ToolItem p) => IsLabelProxy t (ToolItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolItemMethod t ToolItem, MethodInfo info ToolItem p) => IsLabel t (ToolItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ToolItem::create-menu-proxy -type ToolItemCreateMenuProxyCallback = - IO Bool - -noToolItemCreateMenuProxyCallback :: Maybe ToolItemCreateMenuProxyCallback -noToolItemCreateMenuProxyCallback = Nothing - -type ToolItemCreateMenuProxyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkToolItemCreateMenuProxyCallback :: ToolItemCreateMenuProxyCallbackC -> IO (FunPtr ToolItemCreateMenuProxyCallbackC) - -toolItemCreateMenuProxyClosure :: ToolItemCreateMenuProxyCallback -> IO Closure -toolItemCreateMenuProxyClosure cb = newCClosure =<< mkToolItemCreateMenuProxyCallback wrapped - where wrapped = toolItemCreateMenuProxyCallbackWrapper cb - -toolItemCreateMenuProxyCallbackWrapper :: - ToolItemCreateMenuProxyCallback -> - Ptr () -> - Ptr () -> - IO CInt -toolItemCreateMenuProxyCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onToolItemCreateMenuProxy :: (GObject a, MonadIO m) => a -> ToolItemCreateMenuProxyCallback -> m SignalHandlerId -onToolItemCreateMenuProxy obj cb = liftIO $ connectToolItemCreateMenuProxy obj cb SignalConnectBefore -afterToolItemCreateMenuProxy :: (GObject a, MonadIO m) => a -> ToolItemCreateMenuProxyCallback -> m SignalHandlerId -afterToolItemCreateMenuProxy obj cb = connectToolItemCreateMenuProxy obj cb SignalConnectAfter - -connectToolItemCreateMenuProxy :: (GObject a, MonadIO m) => - a -> ToolItemCreateMenuProxyCallback -> SignalConnectMode -> m SignalHandlerId -connectToolItemCreateMenuProxy obj cb after = liftIO $ do - cb' <- mkToolItemCreateMenuProxyCallback (toolItemCreateMenuProxyCallbackWrapper cb) - connectSignalFunPtr obj "create-menu-proxy" cb' after - --- signal ToolItem::toolbar-reconfigured -type ToolItemToolbarReconfiguredCallback = - IO () - -noToolItemToolbarReconfiguredCallback :: Maybe ToolItemToolbarReconfiguredCallback -noToolItemToolbarReconfiguredCallback = Nothing - -type ToolItemToolbarReconfiguredCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToolItemToolbarReconfiguredCallback :: ToolItemToolbarReconfiguredCallbackC -> IO (FunPtr ToolItemToolbarReconfiguredCallbackC) - -toolItemToolbarReconfiguredClosure :: ToolItemToolbarReconfiguredCallback -> IO Closure -toolItemToolbarReconfiguredClosure cb = newCClosure =<< mkToolItemToolbarReconfiguredCallback wrapped - where wrapped = toolItemToolbarReconfiguredCallbackWrapper cb - -toolItemToolbarReconfiguredCallbackWrapper :: - ToolItemToolbarReconfiguredCallback -> - Ptr () -> - Ptr () -> - IO () -toolItemToolbarReconfiguredCallbackWrapper _cb _ _ = do - _cb - -onToolItemToolbarReconfigured :: (GObject a, MonadIO m) => a -> ToolItemToolbarReconfiguredCallback -> m SignalHandlerId -onToolItemToolbarReconfigured obj cb = liftIO $ connectToolItemToolbarReconfigured obj cb SignalConnectBefore -afterToolItemToolbarReconfigured :: (GObject a, MonadIO m) => a -> ToolItemToolbarReconfiguredCallback -> m SignalHandlerId -afterToolItemToolbarReconfigured obj cb = connectToolItemToolbarReconfigured obj cb SignalConnectAfter - -connectToolItemToolbarReconfigured :: (GObject a, MonadIO m) => - a -> ToolItemToolbarReconfiguredCallback -> SignalConnectMode -> m SignalHandlerId -connectToolItemToolbarReconfigured obj cb after = liftIO $ do - cb' <- mkToolItemToolbarReconfiguredCallback (toolItemToolbarReconfiguredCallbackWrapper cb) - connectSignalFunPtr obj "toolbar-reconfigured" cb' after - --- VVV Prop "is-important" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemIsImportant :: (MonadIO m, ToolItemK o) => o -> m Bool -getToolItemIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important" - -setToolItemIsImportant :: (MonadIO m, ToolItemK o) => o -> Bool -> m () -setToolItemIsImportant obj val = liftIO $ setObjectPropertyBool obj "is-important" val - -constructToolItemIsImportant :: Bool -> IO ([Char], GValue) -constructToolItemIsImportant val = constructObjectPropertyBool "is-important" val - -data ToolItemIsImportantPropertyInfo -instance AttrInfo ToolItemIsImportantPropertyInfo where - type AttrAllowedOps ToolItemIsImportantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemIsImportantPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolItemIsImportantPropertyInfo = ToolItemK - type AttrGetType ToolItemIsImportantPropertyInfo = Bool - type AttrLabel ToolItemIsImportantPropertyInfo = "is-important" - attrGet _ = getToolItemIsImportant - attrSet _ = setToolItemIsImportant - attrConstruct _ = constructToolItemIsImportant - attrClear _ = undefined - --- VVV Prop "visible-horizontal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemVisibleHorizontal :: (MonadIO m, ToolItemK o) => o -> m Bool -getToolItemVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal" - -setToolItemVisibleHorizontal :: (MonadIO m, ToolItemK o) => o -> Bool -> m () -setToolItemVisibleHorizontal obj val = liftIO $ setObjectPropertyBool obj "visible-horizontal" val - -constructToolItemVisibleHorizontal :: Bool -> IO ([Char], GValue) -constructToolItemVisibleHorizontal val = constructObjectPropertyBool "visible-horizontal" val - -data ToolItemVisibleHorizontalPropertyInfo -instance AttrInfo ToolItemVisibleHorizontalPropertyInfo where - type AttrAllowedOps ToolItemVisibleHorizontalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemVisibleHorizontalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolItemVisibleHorizontalPropertyInfo = ToolItemK - type AttrGetType ToolItemVisibleHorizontalPropertyInfo = Bool - type AttrLabel ToolItemVisibleHorizontalPropertyInfo = "visible-horizontal" - attrGet _ = getToolItemVisibleHorizontal - attrSet _ = setToolItemVisibleHorizontal - attrConstruct _ = constructToolItemVisibleHorizontal - attrClear _ = undefined - --- VVV Prop "visible-vertical" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemVisibleVertical :: (MonadIO m, ToolItemK o) => o -> m Bool -getToolItemVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical" - -setToolItemVisibleVertical :: (MonadIO m, ToolItemK o) => o -> Bool -> m () -setToolItemVisibleVertical obj val = liftIO $ setObjectPropertyBool obj "visible-vertical" val - -constructToolItemVisibleVertical :: Bool -> IO ([Char], GValue) -constructToolItemVisibleVertical val = constructObjectPropertyBool "visible-vertical" val - -data ToolItemVisibleVerticalPropertyInfo -instance AttrInfo ToolItemVisibleVerticalPropertyInfo where - type AttrAllowedOps ToolItemVisibleVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemVisibleVerticalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolItemVisibleVerticalPropertyInfo = ToolItemK - type AttrGetType ToolItemVisibleVerticalPropertyInfo = Bool - type AttrLabel ToolItemVisibleVerticalPropertyInfo = "visible-vertical" - attrGet _ = getToolItemVisibleVertical - attrSet _ = setToolItemVisibleVertical - attrConstruct _ = constructToolItemVisibleVertical - attrClear _ = undefined - -type instance AttributeList ToolItem = ToolItemAttributeList -type ToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toolItemIsImportant :: AttrLabelProxy "isImportant" -toolItemIsImportant = AttrLabelProxy - -toolItemVisibleHorizontal :: AttrLabelProxy "visibleHorizontal" -toolItemVisibleHorizontal = AttrLabelProxy - -toolItemVisibleVertical :: AttrLabelProxy "visibleVertical" -toolItemVisibleVertical = AttrLabelProxy - -data ToolItemCreateMenuProxySignalInfo -instance SignalInfo ToolItemCreateMenuProxySignalInfo where - type HaskellCallbackType ToolItemCreateMenuProxySignalInfo = ToolItemCreateMenuProxyCallback - connectSignal _ = connectToolItemCreateMenuProxy - -data ToolItemToolbarReconfiguredSignalInfo -instance SignalInfo ToolItemToolbarReconfiguredSignalInfo where - type HaskellCallbackType ToolItemToolbarReconfiguredSignalInfo = ToolItemToolbarReconfiguredCallback - connectSignal _ = connectToolItemToolbarReconfigured - -type instance SignalList ToolItem = ToolItemSignalList -type ToolItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToolItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_new" gtk_tool_item_new :: - IO (Ptr ToolItem) - - -toolItemNew :: - (MonadIO m) => - m ToolItem -- result -toolItemNew = liftIO $ do - result <- gtk_tool_item_new - checkUnexpectedReturnNULL "gtk_tool_item_new" result - result' <- (newObject ToolItem) result - return result' - --- method ToolItem::get_ellipsize_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "EllipsizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_ellipsize_mode" gtk_tool_item_get_ellipsize_mode :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CUInt - - -toolItemGetEllipsizeMode :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Pango.EllipsizeMode -- result -toolItemGetEllipsizeMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_ellipsize_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGetEllipsizeModeMethodInfo -instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetEllipsizeModeMethodInfo a signature where - overloadedMethod _ = toolItemGetEllipsizeMode - --- method ToolItem::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_expand" gtk_tool_item_get_expand :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetExpand :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetExpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetExpandMethodInfo a signature where - overloadedMethod _ = toolItemGetExpand - --- method ToolItem::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_homogeneous" gtk_tool_item_get_homogeneous :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetHomogeneous :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetHomogeneousMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetHomogeneousMethodInfo a signature where - overloadedMethod _ = toolItemGetHomogeneous - --- method ToolItem::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_icon_size" gtk_tool_item_get_icon_size :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO Int32 - - -toolItemGetIconSize :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Int32 -- result -toolItemGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_icon_size _obj' - touchManagedPtr _obj - return result - -data ToolItemGetIconSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetIconSizeMethodInfo a signature where - overloadedMethod _ = toolItemGetIconSize - --- method ToolItem::get_is_important --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_is_important" gtk_tool_item_get_is_important :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetIsImportant :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetIsImportant _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_is_important _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetIsImportantMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetIsImportantMethodInfo a signature where - overloadedMethod _ = toolItemGetIsImportant - --- method ToolItem::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_orientation" gtk_tool_item_get_orientation :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CUInt - - -toolItemGetOrientation :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Orientation -- result -toolItemGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGetOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetOrientationMethodInfo a signature where - overloadedMethod _ = toolItemGetOrientation - --- method ToolItem::get_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_proxy_menu_item" gtk_tool_item_get_proxy_menu_item :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CString -> -- menu_item_id : TBasicType TUTF8 - IO (Ptr Widget) - - -toolItemGetProxyMenuItem :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> T.Text -- menuItemId - -> m Widget -- result -toolItemGetProxyMenuItem _obj menuItemId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - menuItemId' <- textToCString menuItemId - result <- gtk_tool_item_get_proxy_menu_item _obj' menuItemId' - checkUnexpectedReturnNULL "gtk_tool_item_get_proxy_menu_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem menuItemId' - return result' - -data ToolItemGetProxyMenuItemMethodInfo -instance (signature ~ (T.Text -> m Widget), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetProxyMenuItemMethodInfo a signature where - overloadedMethod _ = toolItemGetProxyMenuItem - --- method ToolItem::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ReliefStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_relief_style" gtk_tool_item_get_relief_style :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CUInt - - -toolItemGetReliefStyle :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m ReliefStyle -- result -toolItemGetReliefStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_relief_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGetReliefStyleMethodInfo -instance (signature ~ (m ReliefStyle), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetReliefStyleMethodInfo a signature where - overloadedMethod _ = toolItemGetReliefStyle - --- method ToolItem::get_text_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_text_alignment" gtk_tool_item_get_text_alignment :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CFloat - - -toolItemGetTextAlignment :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Float -- result -toolItemGetTextAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_text_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ToolItemGetTextAlignmentMethodInfo -instance (signature ~ (m Float), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextAlignmentMethodInfo a signature where - overloadedMethod _ = toolItemGetTextAlignment - --- method ToolItem::get_text_orientation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Orientation") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_text_orientation" gtk_tool_item_get_text_orientation :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CUInt - - -toolItemGetTextOrientation :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Orientation -- result -toolItemGetTextOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_text_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGetTextOrientationMethodInfo -instance (signature ~ (m Orientation), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextOrientationMethodInfo a signature where - overloadedMethod _ = toolItemGetTextOrientation - --- method ToolItem::get_text_size_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_text_size_group" gtk_tool_item_get_text_size_group :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO (Ptr SizeGroup) - - -toolItemGetTextSizeGroup :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m SizeGroup -- result -toolItemGetTextSizeGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_text_size_group _obj' - checkUnexpectedReturnNULL "gtk_tool_item_get_text_size_group" result - result' <- (newObject SizeGroup) result - touchManagedPtr _obj - return result' - -data ToolItemGetTextSizeGroupMethodInfo -instance (signature ~ (m SizeGroup), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextSizeGroupMethodInfo a signature where - overloadedMethod _ = toolItemGetTextSizeGroup - --- method ToolItem::get_toolbar_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolbarStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_get_toolbar_style" gtk_tool_item_get_toolbar_style :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CUInt - - -toolItemGetToolbarStyle :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m ToolbarStyle -- result -toolItemGetToolbarStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_toolbar_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGetToolbarStyleMethodInfo -instance (signature ~ (m ToolbarStyle), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetToolbarStyleMethodInfo a signature where - overloadedMethod _ = toolItemGetToolbarStyle - --- method ToolItem::get_use_drag_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_use_drag_window" gtk_tool_item_get_use_drag_window :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetUseDragWindow :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetUseDragWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_use_drag_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetUseDragWindowMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetUseDragWindowMethodInfo a signature where - overloadedMethod _ = toolItemGetUseDragWindow - --- method ToolItem::get_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_visible_horizontal" gtk_tool_item_get_visible_horizontal :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetVisibleHorizontal :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetVisibleHorizontal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_visible_horizontal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetVisibleHorizontalMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetVisibleHorizontalMethodInfo a signature where - overloadedMethod _ = toolItemGetVisibleHorizontal - --- method ToolItem::get_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_get_visible_vertical" gtk_tool_item_get_visible_vertical :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO CInt - - -toolItemGetVisibleVertical :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Bool -- result -toolItemGetVisibleVertical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_visible_vertical _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGetVisibleVerticalMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetVisibleVerticalMethodInfo a signature where - overloadedMethod _ = toolItemGetVisibleVertical - --- method ToolItem::rebuild_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_rebuild_menu" gtk_tool_item_rebuild_menu :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO () - - -toolItemRebuildMenu :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m () -- result -toolItemRebuildMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_item_rebuild_menu _obj' - touchManagedPtr _obj - return () - -data ToolItemRebuildMenuMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemRebuildMenuMethodInfo a signature where - overloadedMethod _ = toolItemRebuildMenu - --- method ToolItem::retrieve_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_retrieve_proxy_menu_item" gtk_tool_item_retrieve_proxy_menu_item :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO (Ptr Widget) - - -toolItemRetrieveProxyMenuItem :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m Widget -- result -toolItemRetrieveProxyMenuItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_retrieve_proxy_menu_item _obj' - checkUnexpectedReturnNULL "gtk_tool_item_retrieve_proxy_menu_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ToolItemRetrieveProxyMenuItemMethodInfo -instance (signature ~ (m Widget), MonadIO m, ToolItemK a) => MethodInfo ToolItemRetrieveProxyMenuItemMethodInfo a signature where - overloadedMethod _ = toolItemRetrieveProxyMenuItem - --- method ToolItem::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tool_item_set_expand" gtk_tool_item_set_expand :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- expand : TBasicType TBoolean - IO () - - -toolItemSetExpand :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -toolItemSetExpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_tool_item_set_expand _obj' expand' - touchManagedPtr _obj - return () - -data ToolItemSetExpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetExpandMethodInfo a signature where - overloadedMethod _ = toolItemSetExpand - --- method ToolItem::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", 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 "gtk_tool_item_set_homogeneous" gtk_tool_item_set_homogeneous :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- homogeneous : TBasicType TBoolean - IO () - - -toolItemSetHomogeneous :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- homogeneous - -> m () -- result -toolItemSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_tool_item_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - -data ToolItemSetHomogeneousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetHomogeneousMethodInfo a signature where - overloadedMethod _ = toolItemSetHomogeneous - --- method ToolItem::set_is_important --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", 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 "gtk_tool_item_set_is_important" gtk_tool_item_set_is_important :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- is_important : TBasicType TBoolean - IO () - - -toolItemSetIsImportant :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- isImportant - -> m () -- result -toolItemSetIsImportant _obj isImportant = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isImportant' = (fromIntegral . fromEnum) isImportant - gtk_tool_item_set_is_important _obj' isImportant' - touchManagedPtr _obj - return () - -data ToolItemSetIsImportantMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetIsImportantMethodInfo a signature where - overloadedMethod _ = toolItemSetIsImportant - --- method ToolItem::set_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", 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 "gtk_tool_item_set_proxy_menu_item" gtk_tool_item_set_proxy_menu_item :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CString -> -- menu_item_id : TBasicType TUTF8 - Ptr Widget -> -- menu_item : TInterface "Gtk" "Widget" - IO () - - -toolItemSetProxyMenuItem :: - (MonadIO m, ToolItemK a, WidgetK b) => - a -- _obj - -> T.Text -- menuItemId - -> b -- menuItem - -> m () -- result -toolItemSetProxyMenuItem _obj menuItemId menuItem = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - menuItemId' <- textToCString menuItemId - let menuItem' = unsafeManagedPtrCastPtr menuItem - gtk_tool_item_set_proxy_menu_item _obj' menuItemId' menuItem' - touchManagedPtr _obj - touchManagedPtr menuItem - freeMem menuItemId' - return () - -data ToolItemSetProxyMenuItemMethodInfo -instance (signature ~ (T.Text -> b -> m ()), MonadIO m, ToolItemK a, WidgetK b) => MethodInfo ToolItemSetProxyMenuItemMethodInfo a signature where - overloadedMethod _ = toolItemSetProxyMenuItem - --- method ToolItem::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", 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 "gtk_tool_item_set_tooltip_markup" gtk_tool_item_set_tooltip_markup :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CString -> -- markup : TBasicType TUTF8 - IO () - - -toolItemSetTooltipMarkup :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> T.Text -- markup - -> m () -- result -toolItemSetTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - markup' <- textToCString markup - gtk_tool_item_set_tooltip_markup _obj' markup' - touchManagedPtr _obj - freeMem markup' - return () - -data ToolItemSetTooltipMarkupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = toolItemSetTooltipMarkup - --- method ToolItem::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_tool_item_set_tooltip_text" gtk_tool_item_set_tooltip_text :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CString -> -- text : TBasicType TUTF8 - IO () - - -toolItemSetTooltipText :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -toolItemSetTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_tool_item_set_tooltip_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data ToolItemSetTooltipTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetTooltipTextMethodInfo a signature where - overloadedMethod _ = toolItemSetTooltipText - --- method ToolItem::set_use_drag_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_drag_window", 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 "gtk_tool_item_set_use_drag_window" gtk_tool_item_set_use_drag_window :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- use_drag_window : TBasicType TBoolean - IO () - - -toolItemSetUseDragWindow :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- useDragWindow - -> m () -- result -toolItemSetUseDragWindow _obj useDragWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useDragWindow' = (fromIntegral . fromEnum) useDragWindow - gtk_tool_item_set_use_drag_window _obj' useDragWindow' - touchManagedPtr _obj - return () - -data ToolItemSetUseDragWindowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetUseDragWindowMethodInfo a signature where - overloadedMethod _ = toolItemSetUseDragWindow - --- method ToolItem::set_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", 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 "gtk_tool_item_set_visible_horizontal" gtk_tool_item_set_visible_horizontal :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- visible_horizontal : TBasicType TBoolean - IO () - - -toolItemSetVisibleHorizontal :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- visibleHorizontal - -> m () -- result -toolItemSetVisibleHorizontal _obj visibleHorizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal - gtk_tool_item_set_visible_horizontal _obj' visibleHorizontal' - touchManagedPtr _obj - return () - -data ToolItemSetVisibleHorizontalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetVisibleHorizontalMethodInfo a signature where - overloadedMethod _ = toolItemSetVisibleHorizontal - --- method ToolItem::set_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", 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 "gtk_tool_item_set_visible_vertical" gtk_tool_item_set_visible_vertical :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - CInt -> -- visible_vertical : TBasicType TBoolean - IO () - - -toolItemSetVisibleVertical :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> Bool -- visibleVertical - -> m () -- result -toolItemSetVisibleVertical _obj visibleVertical = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visibleVertical' = (fromIntegral . fromEnum) visibleVertical - gtk_tool_item_set_visible_vertical _obj' visibleVertical' - touchManagedPtr _obj - return () - -data ToolItemSetVisibleVerticalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetVisibleVerticalMethodInfo a signature where - overloadedMethod _ = toolItemSetVisibleVertical - --- method ToolItem::toolbar_reconfigured --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_toolbar_reconfigured" gtk_tool_item_toolbar_reconfigured :: - Ptr ToolItem -> -- _obj : TInterface "Gtk" "ToolItem" - IO () - - -toolItemToolbarReconfigured :: - (MonadIO m, ToolItemK a) => - a -- _obj - -> m () -- result -toolItemToolbarReconfigured _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_item_toolbar_reconfigured _obj' - touchManagedPtr _obj - return () - -data ToolItemToolbarReconfiguredMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemToolbarReconfiguredMethodInfo a signature where - overloadedMethod _ = toolItemToolbarReconfigured - - diff --git a/GI/Gtk/Objects/ToolItem.hs-boot b/GI/Gtk/Objects/ToolItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToolItem.hs-boot +++ /dev/null @@ -1,45 +0,0 @@ -module GI.Gtk.Objects.ToolItem 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 ToolItem = ToolItem (ForeignPtr ToolItem) -instance GObject ToolItem where -class GObject o => ToolItemK o -instance (GObject o, IsDescendantOf ToolItem o) => ToolItemK o -data ToolItemIsImportantPropertyInfo -data ToolItemVisibleHorizontalPropertyInfo -data ToolItemVisibleVerticalPropertyInfo -data ToolItemCreateMenuProxySignalInfo -data ToolItemToolbarReconfiguredSignalInfo -data ToolItemGetEllipsizeModeMethodInfo -data ToolItemGetExpandMethodInfo -data ToolItemGetHomogeneousMethodInfo -data ToolItemGetIconSizeMethodInfo -data ToolItemGetIsImportantMethodInfo -data ToolItemGetOrientationMethodInfo -data ToolItemGetProxyMenuItemMethodInfo -data ToolItemGetReliefStyleMethodInfo -data ToolItemGetTextAlignmentMethodInfo -data ToolItemGetTextOrientationMethodInfo -data ToolItemGetTextSizeGroupMethodInfo -data ToolItemGetToolbarStyleMethodInfo -data ToolItemGetUseDragWindowMethodInfo -data ToolItemGetVisibleHorizontalMethodInfo -data ToolItemGetVisibleVerticalMethodInfo -data ToolItemRebuildMenuMethodInfo -data ToolItemRetrieveProxyMenuItemMethodInfo -data ToolItemSetExpandMethodInfo -data ToolItemSetHomogeneousMethodInfo -data ToolItemSetIsImportantMethodInfo -data ToolItemSetProxyMenuItemMethodInfo -data ToolItemSetTooltipMarkupMethodInfo -data ToolItemSetTooltipTextMethodInfo -data ToolItemSetUseDragWindowMethodInfo -data ToolItemSetVisibleHorizontalMethodInfo -data ToolItemSetVisibleVerticalMethodInfo -data ToolItemToolbarReconfiguredMethodInfo diff --git a/GI/Gtk/Objects/ToolItemGroup.hs b/GI/Gtk/Objects/ToolItemGroup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToolItemGroup.hs +++ /dev/null @@ -1,1188 +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.Gtk.Objects.ToolItemGroup - ( - --- * Exported types - ToolItemGroup(..) , - ToolItemGroupK , - toToolItemGroup , - noToolItemGroup , - - - -- * Methods --- ** toolItemGroupGetCollapsed - ToolItemGroupGetCollapsedMethodInfo , - toolItemGroupGetCollapsed , - - --- ** toolItemGroupGetDropItem - ToolItemGroupGetDropItemMethodInfo , - toolItemGroupGetDropItem , - - --- ** toolItemGroupGetEllipsize - ToolItemGroupGetEllipsizeMethodInfo , - toolItemGroupGetEllipsize , - - --- ** toolItemGroupGetHeaderRelief - ToolItemGroupGetHeaderReliefMethodInfo , - toolItemGroupGetHeaderRelief , - - --- ** toolItemGroupGetItemPosition - ToolItemGroupGetItemPositionMethodInfo , - toolItemGroupGetItemPosition , - - --- ** toolItemGroupGetLabel - ToolItemGroupGetLabelMethodInfo , - toolItemGroupGetLabel , - - --- ** toolItemGroupGetLabelWidget - ToolItemGroupGetLabelWidgetMethodInfo , - toolItemGroupGetLabelWidget , - - --- ** toolItemGroupGetNItems - ToolItemGroupGetNItemsMethodInfo , - toolItemGroupGetNItems , - - --- ** toolItemGroupGetNthItem - ToolItemGroupGetNthItemMethodInfo , - toolItemGroupGetNthItem , - - --- ** toolItemGroupInsert - ToolItemGroupInsertMethodInfo , - toolItemGroupInsert , - - --- ** toolItemGroupNew - toolItemGroupNew , - - --- ** toolItemGroupSetCollapsed - ToolItemGroupSetCollapsedMethodInfo , - toolItemGroupSetCollapsed , - - --- ** toolItemGroupSetEllipsize - ToolItemGroupSetEllipsizeMethodInfo , - toolItemGroupSetEllipsize , - - --- ** toolItemGroupSetHeaderRelief - ToolItemGroupSetHeaderReliefMethodInfo , - toolItemGroupSetHeaderRelief , - - --- ** toolItemGroupSetItemPosition - ToolItemGroupSetItemPositionMethodInfo , - toolItemGroupSetItemPosition , - - --- ** toolItemGroupSetLabel - ToolItemGroupSetLabelMethodInfo , - toolItemGroupSetLabel , - - --- ** toolItemGroupSetLabelWidget - ToolItemGroupSetLabelWidgetMethodInfo , - toolItemGroupSetLabelWidget , - - - - - -- * Properties --- ** Collapsed - ToolItemGroupCollapsedPropertyInfo , - constructToolItemGroupCollapsed , - getToolItemGroupCollapsed , - setToolItemGroupCollapsed , - toolItemGroupCollapsed , - - --- ** Ellipsize - ToolItemGroupEllipsizePropertyInfo , - constructToolItemGroupEllipsize , - getToolItemGroupEllipsize , - setToolItemGroupEllipsize , - toolItemGroupEllipsize , - - --- ** HeaderRelief - ToolItemGroupHeaderReliefPropertyInfo , - constructToolItemGroupHeaderRelief , - getToolItemGroupHeaderRelief , - setToolItemGroupHeaderRelief , - toolItemGroupHeaderRelief , - - --- ** Label - ToolItemGroupLabelPropertyInfo , - constructToolItemGroupLabel , - getToolItemGroupLabel , - setToolItemGroupLabel , - toolItemGroupLabel , - - --- ** LabelWidget - ToolItemGroupLabelWidgetPropertyInfo , - constructToolItemGroupLabelWidget , - getToolItemGroupLabelWidget , - setToolItemGroupLabelWidget , - toolItemGroupLabelWidget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype ToolItemGroup = ToolItemGroup (ForeignPtr ToolItemGroup) -foreign import ccall "gtk_tool_item_group_get_type" - c_gtk_tool_item_group_get_type :: IO GType - -type instance ParentTypes ToolItemGroup = ToolItemGroupParentTypes -type ToolItemGroupParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, ToolShell] - -instance GObject ToolItemGroup where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tool_item_group_get_type - - -class GObject o => ToolItemGroupK o -instance (GObject o, IsDescendantOf ToolItemGroup o) => ToolItemGroupK o - -toToolItemGroup :: ToolItemGroupK o => o -> IO ToolItemGroup -toToolItemGroup = unsafeCastTo ToolItemGroup - -noToolItemGroup :: Maybe ToolItemGroup -noToolItemGroup = Nothing - -type family ResolveToolItemGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveToolItemGroupMethod "activate" o = WidgetActivateMethodInfo - ResolveToolItemGroupMethod "add" o = ContainerAddMethodInfo - ResolveToolItemGroupMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolItemGroupMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolItemGroupMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolItemGroupMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolItemGroupMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolItemGroupMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolItemGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolItemGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolItemGroupMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolItemGroupMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToolItemGroupMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolItemGroupMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToolItemGroupMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToolItemGroupMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToolItemGroupMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToolItemGroupMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolItemGroupMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolItemGroupMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolItemGroupMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolItemGroupMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolItemGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolItemGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolItemGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolItemGroupMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolItemGroupMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolItemGroupMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolItemGroupMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolItemGroupMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolItemGroupMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolItemGroupMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolItemGroupMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolItemGroupMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolItemGroupMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolItemGroupMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolItemGroupMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolItemGroupMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolItemGroupMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolItemGroupMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolItemGroupMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolItemGroupMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolItemGroupMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolItemGroupMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolItemGroupMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolItemGroupMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolItemGroupMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolItemGroupMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolItemGroupMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolItemGroupMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolItemGroupMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolItemGroupMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolItemGroupMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolItemGroupMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolItemGroupMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolItemGroupMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolItemGroupMethod "draw" o = WidgetDrawMethodInfo - ResolveToolItemGroupMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolItemGroupMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolItemGroupMethod "event" o = WidgetEventMethodInfo - ResolveToolItemGroupMethod "forall" o = ContainerForallMethodInfo - ResolveToolItemGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolItemGroupMethod "foreach" o = ContainerForeachMethodInfo - ResolveToolItemGroupMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolItemGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolItemGroupMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolItemGroupMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolItemGroupMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolItemGroupMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolItemGroupMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolItemGroupMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolItemGroupMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolItemGroupMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolItemGroupMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolItemGroupMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolItemGroupMethod "hide" o = WidgetHideMethodInfo - ResolveToolItemGroupMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolItemGroupMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolItemGroupMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolItemGroupMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolItemGroupMethod "insert" o = ToolItemGroupInsertMethodInfo - ResolveToolItemGroupMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolItemGroupMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolItemGroupMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolItemGroupMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolItemGroupMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolItemGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolItemGroupMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolItemGroupMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolItemGroupMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolItemGroupMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolItemGroupMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolItemGroupMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolItemGroupMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolItemGroupMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolItemGroupMethod "map" o = WidgetMapMethodInfo - ResolveToolItemGroupMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolItemGroupMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolItemGroupMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolItemGroupMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolItemGroupMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolItemGroupMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolItemGroupMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolItemGroupMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolItemGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolItemGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolItemGroupMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolItemGroupMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolItemGroupMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolItemGroupMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolItemGroupMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolItemGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolItemGroupMethod "path" o = WidgetPathMethodInfo - ResolveToolItemGroupMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToolItemGroupMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolItemGroupMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolItemGroupMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolItemGroupMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolItemGroupMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolItemGroupMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolItemGroupMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolItemGroupMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo - ResolveToolItemGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolItemGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolItemGroupMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolItemGroupMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolItemGroupMethod "remove" o = ContainerRemoveMethodInfo - ResolveToolItemGroupMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolItemGroupMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolItemGroupMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolItemGroupMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolItemGroupMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolItemGroupMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolItemGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolItemGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolItemGroupMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolItemGroupMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolItemGroupMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToolItemGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolItemGroupMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolItemGroupMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolItemGroupMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolItemGroupMethod "show" o = WidgetShowMethodInfo - ResolveToolItemGroupMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolItemGroupMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolItemGroupMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolItemGroupMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolItemGroupMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolItemGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolItemGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolItemGroupMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolItemGroupMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolItemGroupMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolItemGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolItemGroupMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolItemGroupMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolItemGroupMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolItemGroupMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolItemGroupMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolItemGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolItemGroupMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolItemGroupMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToolItemGroupMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolItemGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolItemGroupMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolItemGroupMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolItemGroupMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolItemGroupMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolItemGroupMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolItemGroupMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolItemGroupMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolItemGroupMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolItemGroupMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToolItemGroupMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolItemGroupMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolItemGroupMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolItemGroupMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolItemGroupMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToolItemGroupMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolItemGroupMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolItemGroupMethod "getCollapsed" o = ToolItemGroupGetCollapsedMethodInfo - ResolveToolItemGroupMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolItemGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolItemGroupMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolItemGroupMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolItemGroupMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolItemGroupMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolItemGroupMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolItemGroupMethod "getDropItem" o = ToolItemGroupGetDropItemMethodInfo - ResolveToolItemGroupMethod "getEllipsize" o = ToolItemGroupGetEllipsizeMethodInfo - ResolveToolItemGroupMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo - ResolveToolItemGroupMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolItemGroupMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToolItemGroupMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToolItemGroupMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToolItemGroupMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToolItemGroupMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolItemGroupMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolItemGroupMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolItemGroupMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolItemGroupMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolItemGroupMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolItemGroupMethod "getHeaderRelief" o = ToolItemGroupGetHeaderReliefMethodInfo - ResolveToolItemGroupMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolItemGroupMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolItemGroupMethod "getIconSize" o = ToolShellGetIconSizeMethodInfo - ResolveToolItemGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolItemGroupMethod "getItemPosition" o = ToolItemGroupGetItemPositionMethodInfo - ResolveToolItemGroupMethod "getLabel" o = ToolItemGroupGetLabelMethodInfo - ResolveToolItemGroupMethod "getLabelWidget" o = ToolItemGroupGetLabelWidgetMethodInfo - ResolveToolItemGroupMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolItemGroupMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolItemGroupMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolItemGroupMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolItemGroupMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolItemGroupMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolItemGroupMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolItemGroupMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolItemGroupMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolItemGroupMethod "getNItems" o = ToolItemGroupGetNItemsMethodInfo - ResolveToolItemGroupMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolItemGroupMethod "getNthItem" o = ToolItemGroupGetNthItemMethodInfo - ResolveToolItemGroupMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolItemGroupMethod "getOrientation" o = ToolShellGetOrientationMethodInfo - ResolveToolItemGroupMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolItemGroupMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolItemGroupMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolItemGroupMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolItemGroupMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToolItemGroupMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolItemGroupMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolItemGroupMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolItemGroupMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolItemGroupMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolItemGroupMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolItemGroupMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolItemGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolItemGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolItemGroupMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolItemGroupMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolItemGroupMethod "getReliefStyle" o = ToolShellGetReliefStyleMethodInfo - ResolveToolItemGroupMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolItemGroupMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolItemGroupMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToolItemGroupMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolItemGroupMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolItemGroupMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolItemGroupMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolItemGroupMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolItemGroupMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolItemGroupMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolItemGroupMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolItemGroupMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolItemGroupMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolItemGroupMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolItemGroupMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo - ResolveToolItemGroupMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo - ResolveToolItemGroupMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo - ResolveToolItemGroupMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolItemGroupMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolItemGroupMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolItemGroupMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolItemGroupMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolItemGroupMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolItemGroupMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolItemGroupMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolItemGroupMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolItemGroupMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolItemGroupMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolItemGroupMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolItemGroupMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolItemGroupMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolItemGroupMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToolItemGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolItemGroupMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolItemGroupMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolItemGroupMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolItemGroupMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolItemGroupMethod "setCollapsed" o = ToolItemGroupSetCollapsedMethodInfo - ResolveToolItemGroupMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolItemGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolItemGroupMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolItemGroupMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolItemGroupMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolItemGroupMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolItemGroupMethod "setEllipsize" o = ToolItemGroupSetEllipsizeMethodInfo - ResolveToolItemGroupMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolItemGroupMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToolItemGroupMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToolItemGroupMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToolItemGroupMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToolItemGroupMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolItemGroupMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolItemGroupMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolItemGroupMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolItemGroupMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolItemGroupMethod "setHeaderRelief" o = ToolItemGroupSetHeaderReliefMethodInfo - ResolveToolItemGroupMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolItemGroupMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolItemGroupMethod "setItemPosition" o = ToolItemGroupSetItemPositionMethodInfo - ResolveToolItemGroupMethod "setLabel" o = ToolItemGroupSetLabelMethodInfo - ResolveToolItemGroupMethod "setLabelWidget" o = ToolItemGroupSetLabelWidgetMethodInfo - ResolveToolItemGroupMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolItemGroupMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolItemGroupMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolItemGroupMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolItemGroupMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolItemGroupMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolItemGroupMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolItemGroupMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolItemGroupMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolItemGroupMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolItemGroupMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolItemGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolItemGroupMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolItemGroupMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToolItemGroupMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolItemGroupMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolItemGroupMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToolItemGroupMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolItemGroupMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolItemGroupMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolItemGroupMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolItemGroupMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveToolItemGroupMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolItemGroupMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveToolItemGroupMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveToolItemGroupMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolItemGroupMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolItemGroupMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolItemGroupMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolItemGroupMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolItemGroupMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolItemGroupMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolItemGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolItemGroupMethod t ToolItemGroup, MethodInfo info ToolItemGroup p) => IsLabelProxy t (ToolItemGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolItemGroupMethod t ToolItemGroup, MethodInfo info ToolItemGroup p) => IsLabel t (ToolItemGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "collapsed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemGroupCollapsed :: (MonadIO m, ToolItemGroupK o) => o -> m Bool -getToolItemGroupCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" - -setToolItemGroupCollapsed :: (MonadIO m, ToolItemGroupK o) => o -> Bool -> m () -setToolItemGroupCollapsed obj val = liftIO $ setObjectPropertyBool obj "collapsed" val - -constructToolItemGroupCollapsed :: Bool -> IO ([Char], GValue) -constructToolItemGroupCollapsed val = constructObjectPropertyBool "collapsed" val - -data ToolItemGroupCollapsedPropertyInfo -instance AttrInfo ToolItemGroupCollapsedPropertyInfo where - type AttrAllowedOps ToolItemGroupCollapsedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemGroupCollapsedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolItemGroupCollapsedPropertyInfo = ToolItemGroupK - type AttrGetType ToolItemGroupCollapsedPropertyInfo = Bool - type AttrLabel ToolItemGroupCollapsedPropertyInfo = "collapsed" - attrGet _ = getToolItemGroupCollapsed - attrSet _ = setToolItemGroupCollapsed - attrConstruct _ = constructToolItemGroupCollapsed - attrClear _ = undefined - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemGroupEllipsize :: (MonadIO m, ToolItemGroupK o) => o -> m Pango.EllipsizeMode -getToolItemGroupEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" - -setToolItemGroupEllipsize :: (MonadIO m, ToolItemGroupK o) => o -> Pango.EllipsizeMode -> m () -setToolItemGroupEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val - -constructToolItemGroupEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) -constructToolItemGroupEllipsize val = constructObjectPropertyEnum "ellipsize" val - -data ToolItemGroupEllipsizePropertyInfo -instance AttrInfo ToolItemGroupEllipsizePropertyInfo where - type AttrAllowedOps ToolItemGroupEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemGroupEllipsizePropertyInfo = (~) Pango.EllipsizeMode - type AttrBaseTypeConstraint ToolItemGroupEllipsizePropertyInfo = ToolItemGroupK - type AttrGetType ToolItemGroupEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel ToolItemGroupEllipsizePropertyInfo = "ellipsize" - attrGet _ = getToolItemGroupEllipsize - attrSet _ = setToolItemGroupEllipsize - attrConstruct _ = constructToolItemGroupEllipsize - attrClear _ = undefined - --- VVV Prop "header-relief" - -- Type: TInterface "Gtk" "ReliefStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemGroupHeaderRelief :: (MonadIO m, ToolItemGroupK o) => o -> m ReliefStyle -getToolItemGroupHeaderRelief obj = liftIO $ getObjectPropertyEnum obj "header-relief" - -setToolItemGroupHeaderRelief :: (MonadIO m, ToolItemGroupK o) => o -> ReliefStyle -> m () -setToolItemGroupHeaderRelief obj val = liftIO $ setObjectPropertyEnum obj "header-relief" val - -constructToolItemGroupHeaderRelief :: ReliefStyle -> IO ([Char], GValue) -constructToolItemGroupHeaderRelief val = constructObjectPropertyEnum "header-relief" val - -data ToolItemGroupHeaderReliefPropertyInfo -instance AttrInfo ToolItemGroupHeaderReliefPropertyInfo where - type AttrAllowedOps ToolItemGroupHeaderReliefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemGroupHeaderReliefPropertyInfo = (~) ReliefStyle - type AttrBaseTypeConstraint ToolItemGroupHeaderReliefPropertyInfo = ToolItemGroupK - type AttrGetType ToolItemGroupHeaderReliefPropertyInfo = ReliefStyle - type AttrLabel ToolItemGroupHeaderReliefPropertyInfo = "header-relief" - attrGet _ = getToolItemGroupHeaderRelief - attrSet _ = setToolItemGroupHeaderRelief - attrConstruct _ = constructToolItemGroupHeaderRelief - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> m T.Text -getToolItemGroupLabel obj = liftIO $ checkUnexpectedNothing "getToolItemGroupLabel" $ getObjectPropertyString obj "label" - -setToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> T.Text -> m () -setToolItemGroupLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructToolItemGroupLabel :: T.Text -> IO ([Char], GValue) -constructToolItemGroupLabel val = constructObjectPropertyString "label" (Just val) - -data ToolItemGroupLabelPropertyInfo -instance AttrInfo ToolItemGroupLabelPropertyInfo where - type AttrAllowedOps ToolItemGroupLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemGroupLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolItemGroupLabelPropertyInfo = ToolItemGroupK - type AttrGetType ToolItemGroupLabelPropertyInfo = T.Text - type AttrLabel ToolItemGroupLabelPropertyInfo = "label" - attrGet _ = getToolItemGroupLabel - attrSet _ = setToolItemGroupLabel - attrConstruct _ = constructToolItemGroupLabel - attrClear _ = undefined - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o) => o -> m Widget -getToolItemGroupLabelWidget obj = liftIO $ checkUnexpectedNothing "getToolItemGroupLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget - -setToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o, WidgetK a) => o -> a -> m () -setToolItemGroupLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) - -constructToolItemGroupLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolItemGroupLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) - -data ToolItemGroupLabelWidgetPropertyInfo -instance AttrInfo ToolItemGroupLabelWidgetPropertyInfo where - type AttrAllowedOps ToolItemGroupLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolItemGroupLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ToolItemGroupLabelWidgetPropertyInfo = ToolItemGroupK - type AttrGetType ToolItemGroupLabelWidgetPropertyInfo = Widget - type AttrLabel ToolItemGroupLabelWidgetPropertyInfo = "label-widget" - attrGet _ = getToolItemGroupLabelWidget - attrSet _ = setToolItemGroupLabelWidget - attrConstruct _ = constructToolItemGroupLabelWidget - attrClear _ = undefined - -type instance AttributeList ToolItemGroup = ToolItemGroupAttributeList -type ToolItemGroupAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headerRelief", ToolItemGroupHeaderReliefPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("labelWidget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toolItemGroupCollapsed :: AttrLabelProxy "collapsed" -toolItemGroupCollapsed = AttrLabelProxy - -toolItemGroupEllipsize :: AttrLabelProxy "ellipsize" -toolItemGroupEllipsize = AttrLabelProxy - -toolItemGroupHeaderRelief :: AttrLabelProxy "headerRelief" -toolItemGroupHeaderRelief = AttrLabelProxy - -toolItemGroupLabel :: AttrLabelProxy "label" -toolItemGroupLabel = AttrLabelProxy - -toolItemGroupLabelWidget :: AttrLabelProxy "labelWidget" -toolItemGroupLabelWidget = AttrLabelProxy - -type instance SignalList ToolItemGroup = ToolItemGroupSignalList -type ToolItemGroupSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToolItemGroup::new --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItemGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_new" gtk_tool_item_group_new :: - CString -> -- label : TBasicType TUTF8 - IO (Ptr ToolItemGroup) - - -toolItemGroupNew :: - (MonadIO m) => - T.Text -- label - -> m ToolItemGroup -- result -toolItemGroupNew label = liftIO $ do - label' <- textToCString label - result <- gtk_tool_item_group_new label' - checkUnexpectedReturnNULL "gtk_tool_item_group_new" result - result' <- (newObject ToolItemGroup) result - freeMem label' - return result' - --- method ToolItemGroup::get_collapsed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_item_group_get_collapsed" gtk_tool_item_group_get_collapsed :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO CInt - - -toolItemGroupGetCollapsed :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m Bool -- result -toolItemGroupGetCollapsed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_collapsed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetCollapsedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetCollapsedMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetCollapsed - --- method ToolItemGroup::get_drop_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_drop_item" gtk_tool_item_group_get_drop_item :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr ToolItem) - - -toolItemGroupGetDropItem :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m ToolItem -- result -toolItemGroupGetDropItem _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_drop_item _obj' x y - checkUnexpectedReturnNULL "gtk_tool_item_group_get_drop_item" result - result' <- (newObject ToolItem) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetDropItemMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ToolItem), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetDropItemMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetDropItem - --- method ToolItemGroup::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "EllipsizeMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_ellipsize" gtk_tool_item_group_get_ellipsize :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO CUInt - - -toolItemGroupGetEllipsize :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m Pango.EllipsizeMode -- result -toolItemGroupGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetEllipsizeMethodInfo -instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetEllipsizeMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetEllipsize - --- method ToolItemGroup::get_header_relief --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ReliefStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_header_relief" gtk_tool_item_group_get_header_relief :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO CUInt - - -toolItemGroupGetHeaderRelief :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m ReliefStyle -- result -toolItemGroupGetHeaderRelief _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_header_relief _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetHeaderReliefMethodInfo -instance (signature ~ (m ReliefStyle), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetHeaderReliefMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetHeaderRelief - --- method ToolItemGroup::get_item_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_group_get_item_position" gtk_tool_item_group_get_item_position :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - IO Int32 - - -toolItemGroupGetItemPosition :: - (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -- _obj - -> b -- item - -> m Int32 -- result -toolItemGroupGetItemPosition _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - result <- gtk_tool_item_group_get_item_position _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return result - -data ToolItemGroupGetItemPositionMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupGetItemPositionMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetItemPosition - --- method ToolItemGroup::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_item_group_get_label" gtk_tool_item_group_get_label :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO CString - - -toolItemGroupGetLabel :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m T.Text -- result -toolItemGroupGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_label _obj' - checkUnexpectedReturnNULL "gtk_tool_item_group_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetLabelMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetLabel - --- method ToolItemGroup::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_label_widget" gtk_tool_item_group_get_label_widget :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO (Ptr Widget) - - -toolItemGroupGetLabelWidget :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m Widget -- result -toolItemGroupGetLabelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_label_widget _obj' - checkUnexpectedReturnNULL "gtk_tool_item_group_get_label_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetLabelWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetLabelWidgetMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetLabelWidget - --- method ToolItemGroup::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_n_items" gtk_tool_item_group_get_n_items :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - IO Word32 - - -toolItemGroupGetNItems :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> m Word32 -- result -toolItemGroupGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_n_items _obj' - touchManagedPtr _obj - return result - -data ToolItemGroupGetNItemsMethodInfo -instance (signature ~ (m Word32), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetNItemsMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetNItems - --- method ToolItemGroup::get_nth_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_item_group_get_nth_item" gtk_tool_item_group_get_nth_item :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Word32 -> -- index : TBasicType TUInt - IO (Ptr ToolItem) - - -toolItemGroupGetNthItem :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> Word32 -- index - -> m ToolItem -- result -toolItemGroupGetNthItem _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_nth_item _obj' index - checkUnexpectedReturnNULL "gtk_tool_item_group_get_nth_item" result - result' <- (newObject ToolItem) result - touchManagedPtr _obj - return result' - -data ToolItemGroupGetNthItemMethodInfo -instance (signature ~ (Word32 -> m ToolItem), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetNthItemMethodInfo a signature where - overloadedMethod _ = toolItemGroupGetNthItem - --- method ToolItemGroup::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_group_insert" gtk_tool_item_group_insert :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- position : TBasicType TInt - IO () - - -toolItemGroupInsert :: - (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -toolItemGroupInsert _obj item position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - gtk_tool_item_group_insert _obj' item' position - touchManagedPtr _obj - touchManagedPtr item - return () - -data ToolItemGroupInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupInsertMethodInfo a signature where - overloadedMethod _ = toolItemGroupInsert - --- method ToolItemGroup::set_collapsed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collapsed", 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 "gtk_tool_item_group_set_collapsed" gtk_tool_item_group_set_collapsed :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - CInt -> -- collapsed : TBasicType TBoolean - IO () - - -toolItemGroupSetCollapsed :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> Bool -- collapsed - -> m () -- result -toolItemGroupSetCollapsed _obj collapsed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let collapsed' = (fromIntegral . fromEnum) collapsed - gtk_tool_item_group_set_collapsed _obj' collapsed' - touchManagedPtr _obj - return () - -data ToolItemGroupSetCollapsedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetCollapsedMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetCollapsed - --- method ToolItemGroup::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", 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 "gtk_tool_item_group_set_ellipsize" gtk_tool_item_group_set_ellipsize :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - CUInt -> -- ellipsize : TInterface "Pango" "EllipsizeMode" - IO () - - -toolItemGroupSetEllipsize :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> Pango.EllipsizeMode -- ellipsize - -> m () -- result -toolItemGroupSetEllipsize _obj ellipsize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ellipsize' = (fromIntegral . fromEnum) ellipsize - gtk_tool_item_group_set_ellipsize _obj' ellipsize' - touchManagedPtr _obj - return () - -data ToolItemGroupSetEllipsizeMethodInfo -instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetEllipsizeMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetEllipsize - --- method ToolItemGroup::set_header_relief --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ReliefStyle", 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 "gtk_tool_item_group_set_header_relief" gtk_tool_item_group_set_header_relief :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - CUInt -> -- style : TInterface "Gtk" "ReliefStyle" - IO () - - -toolItemGroupSetHeaderRelief :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> ReliefStyle -- style - -> m () -- result -toolItemGroupSetHeaderRelief _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - gtk_tool_item_group_set_header_relief _obj' style' - touchManagedPtr _obj - return () - -data ToolItemGroupSetHeaderReliefMethodInfo -instance (signature ~ (ReliefStyle -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetHeaderReliefMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetHeaderRelief - --- method ToolItemGroup::set_item_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", 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 "gtk_tool_item_group_set_item_position" gtk_tool_item_group_set_item_position :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- position : TBasicType TInt - IO () - - -toolItemGroupSetItemPosition :: - (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -toolItemGroupSetItemPosition _obj item position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - gtk_tool_item_group_set_item_position _obj' item' position - touchManagedPtr _obj - touchManagedPtr item - return () - -data ToolItemGroupSetItemPositionMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupSetItemPositionMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetItemPosition - --- method ToolItemGroup::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", 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 "gtk_tool_item_group_set_label" gtk_tool_item_group_set_label :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - CString -> -- label : TBasicType TUTF8 - IO () - - -toolItemGroupSetLabel :: - (MonadIO m, ToolItemGroupK a) => - a -- _obj - -> T.Text -- label - -> m () -- result -toolItemGroupSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_tool_item_group_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - -data ToolItemGroupSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetLabelMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetLabel - --- method ToolItemGroup::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", 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 "gtk_tool_item_group_set_label_widget" gtk_tool_item_group_set_label_widget :: - Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Ptr Widget -> -- label_widget : TInterface "Gtk" "Widget" - IO () - - -toolItemGroupSetLabelWidget :: - (MonadIO m, ToolItemGroupK a, WidgetK b) => - a -- _obj - -> b -- labelWidget - -> m () -- result -toolItemGroupSetLabelWidget _obj labelWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let labelWidget' = unsafeManagedPtrCastPtr labelWidget - gtk_tool_item_group_set_label_widget _obj' labelWidget' - touchManagedPtr _obj - touchManagedPtr labelWidget - return () - -data ToolItemGroupSetLabelWidgetMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ToolItemGroupK a, WidgetK b) => MethodInfo ToolItemGroupSetLabelWidgetMethodInfo a signature where - overloadedMethod _ = toolItemGroupSetLabelWidget - - diff --git a/GI/Gtk/Objects/ToolItemGroup.hs-boot b/GI/Gtk/Objects/ToolItemGroup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToolItemGroup.hs-boot +++ /dev/null @@ -1,34 +0,0 @@ -module GI.Gtk.Objects.ToolItemGroup 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 ToolItemGroup = ToolItemGroup (ForeignPtr ToolItemGroup) -instance GObject ToolItemGroup where -class GObject o => ToolItemGroupK o -instance (GObject o, IsDescendantOf ToolItemGroup o) => ToolItemGroupK o -data ToolItemGroupCollapsedPropertyInfo -data ToolItemGroupEllipsizePropertyInfo -data ToolItemGroupHeaderReliefPropertyInfo -data ToolItemGroupLabelPropertyInfo -data ToolItemGroupLabelWidgetPropertyInfo -data ToolItemGroupGetCollapsedMethodInfo -data ToolItemGroupGetDropItemMethodInfo -data ToolItemGroupGetEllipsizeMethodInfo -data ToolItemGroupGetHeaderReliefMethodInfo -data ToolItemGroupGetItemPositionMethodInfo -data ToolItemGroupGetLabelMethodInfo -data ToolItemGroupGetLabelWidgetMethodInfo -data ToolItemGroupGetNItemsMethodInfo -data ToolItemGroupGetNthItemMethodInfo -data ToolItemGroupInsertMethodInfo -data ToolItemGroupSetCollapsedMethodInfo -data ToolItemGroupSetEllipsizeMethodInfo -data ToolItemGroupSetHeaderReliefMethodInfo -data ToolItemGroupSetItemPositionMethodInfo -data ToolItemGroupSetLabelMethodInfo -data ToolItemGroupSetLabelWidgetMethodInfo diff --git a/GI/Gtk/Objects/ToolPalette.hs b/GI/Gtk/Objects/ToolPalette.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToolPalette.hs +++ /dev/null @@ -1,1283 +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.Gtk.Objects.ToolPalette - ( - --- * Exported types - ToolPalette(..) , - ToolPaletteK , - toToolPalette , - noToolPalette , - - - -- * Methods --- ** toolPaletteAddDragDest - ToolPaletteAddDragDestMethodInfo , - toolPaletteAddDragDest , - - --- ** toolPaletteGetDragItem - ToolPaletteGetDragItemMethodInfo , - toolPaletteGetDragItem , - - --- ** toolPaletteGetDragTargetGroup - toolPaletteGetDragTargetGroup , - - --- ** toolPaletteGetDragTargetItem - toolPaletteGetDragTargetItem , - - --- ** toolPaletteGetDropGroup - ToolPaletteGetDropGroupMethodInfo , - toolPaletteGetDropGroup , - - --- ** toolPaletteGetDropItem - ToolPaletteGetDropItemMethodInfo , - toolPaletteGetDropItem , - - --- ** toolPaletteGetExclusive - ToolPaletteGetExclusiveMethodInfo , - toolPaletteGetExclusive , - - --- ** toolPaletteGetExpand - ToolPaletteGetExpandMethodInfo , - toolPaletteGetExpand , - - --- ** toolPaletteGetGroupPosition - ToolPaletteGetGroupPositionMethodInfo , - toolPaletteGetGroupPosition , - - --- ** toolPaletteGetHadjustment - ToolPaletteGetHadjustmentMethodInfo , - toolPaletteGetHadjustment , - - --- ** toolPaletteGetIconSize - ToolPaletteGetIconSizeMethodInfo , - toolPaletteGetIconSize , - - --- ** toolPaletteGetStyle - ToolPaletteGetStyleMethodInfo , - toolPaletteGetStyle , - - --- ** toolPaletteGetVadjustment - ToolPaletteGetVadjustmentMethodInfo , - toolPaletteGetVadjustment , - - --- ** toolPaletteNew - toolPaletteNew , - - --- ** toolPaletteSetDragSource - ToolPaletteSetDragSourceMethodInfo , - toolPaletteSetDragSource , - - --- ** toolPaletteSetExclusive - ToolPaletteSetExclusiveMethodInfo , - toolPaletteSetExclusive , - - --- ** toolPaletteSetExpand - ToolPaletteSetExpandMethodInfo , - toolPaletteSetExpand , - - --- ** toolPaletteSetGroupPosition - ToolPaletteSetGroupPositionMethodInfo , - toolPaletteSetGroupPosition , - - --- ** toolPaletteSetIconSize - ToolPaletteSetIconSizeMethodInfo , - toolPaletteSetIconSize , - - --- ** toolPaletteSetStyle - ToolPaletteSetStyleMethodInfo , - toolPaletteSetStyle , - - --- ** toolPaletteUnsetIconSize - ToolPaletteUnsetIconSizeMethodInfo , - toolPaletteUnsetIconSize , - - --- ** toolPaletteUnsetStyle - ToolPaletteUnsetStyleMethodInfo , - toolPaletteUnsetStyle , - - - - - -- * Properties --- ** IconSize - ToolPaletteIconSizePropertyInfo , - constructToolPaletteIconSize , - getToolPaletteIconSize , - setToolPaletteIconSize , - toolPaletteIconSize , - - --- ** IconSizeSet - ToolPaletteIconSizeSetPropertyInfo , - constructToolPaletteIconSizeSet , - getToolPaletteIconSizeSet , - setToolPaletteIconSizeSet , - toolPaletteIconSizeSet , - - --- ** ToolbarStyle - ToolPaletteToolbarStylePropertyInfo , - constructToolPaletteToolbarStyle , - getToolPaletteToolbarStyle , - setToolPaletteToolbarStyle , - toolPaletteToolbarStyle , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype ToolPalette = ToolPalette (ForeignPtr ToolPalette) -foreign import ccall "gtk_tool_palette_get_type" - c_gtk_tool_palette_get_type :: IO GType - -type instance ParentTypes ToolPalette = ToolPaletteParentTypes -type ToolPaletteParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, Scrollable] - -instance GObject ToolPalette where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tool_palette_get_type - - -class GObject o => ToolPaletteK o -instance (GObject o, IsDescendantOf ToolPalette o) => ToolPaletteK o - -toToolPalette :: ToolPaletteK o => o -> IO ToolPalette -toToolPalette = unsafeCastTo ToolPalette - -noToolPalette :: Maybe ToolPalette -noToolPalette = Nothing - -type family ResolveToolPaletteMethod (t :: Symbol) (o :: *) :: * where - ResolveToolPaletteMethod "activate" o = WidgetActivateMethodInfo - ResolveToolPaletteMethod "add" o = ContainerAddMethodInfo - ResolveToolPaletteMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolPaletteMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolPaletteMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolPaletteMethod "addDragDest" o = ToolPaletteAddDragDestMethodInfo - ResolveToolPaletteMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolPaletteMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolPaletteMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolPaletteMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolPaletteMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolPaletteMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolPaletteMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToolPaletteMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolPaletteMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToolPaletteMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToolPaletteMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToolPaletteMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToolPaletteMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolPaletteMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolPaletteMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolPaletteMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolPaletteMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolPaletteMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolPaletteMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolPaletteMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolPaletteMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolPaletteMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolPaletteMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolPaletteMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolPaletteMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolPaletteMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolPaletteMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolPaletteMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolPaletteMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolPaletteMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolPaletteMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolPaletteMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolPaletteMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolPaletteMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolPaletteMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolPaletteMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolPaletteMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolPaletteMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolPaletteMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolPaletteMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolPaletteMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolPaletteMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolPaletteMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolPaletteMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolPaletteMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolPaletteMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolPaletteMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolPaletteMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolPaletteMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolPaletteMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolPaletteMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolPaletteMethod "draw" o = WidgetDrawMethodInfo - ResolveToolPaletteMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolPaletteMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolPaletteMethod "event" o = WidgetEventMethodInfo - ResolveToolPaletteMethod "forall" o = ContainerForallMethodInfo - ResolveToolPaletteMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolPaletteMethod "foreach" o = ContainerForeachMethodInfo - ResolveToolPaletteMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolPaletteMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolPaletteMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolPaletteMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolPaletteMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolPaletteMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolPaletteMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolPaletteMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolPaletteMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolPaletteMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolPaletteMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolPaletteMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolPaletteMethod "hide" o = WidgetHideMethodInfo - ResolveToolPaletteMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolPaletteMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolPaletteMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolPaletteMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolPaletteMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolPaletteMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolPaletteMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolPaletteMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolPaletteMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolPaletteMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolPaletteMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolPaletteMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolPaletteMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolPaletteMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolPaletteMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolPaletteMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolPaletteMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolPaletteMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolPaletteMethod "map" o = WidgetMapMethodInfo - ResolveToolPaletteMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolPaletteMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolPaletteMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolPaletteMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolPaletteMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolPaletteMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolPaletteMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolPaletteMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolPaletteMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolPaletteMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolPaletteMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolPaletteMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolPaletteMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolPaletteMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolPaletteMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolPaletteMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolPaletteMethod "path" o = WidgetPathMethodInfo - ResolveToolPaletteMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToolPaletteMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolPaletteMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolPaletteMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolPaletteMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolPaletteMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolPaletteMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolPaletteMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolPaletteMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolPaletteMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolPaletteMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolPaletteMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolPaletteMethod "remove" o = ContainerRemoveMethodInfo - ResolveToolPaletteMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolPaletteMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolPaletteMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolPaletteMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolPaletteMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolPaletteMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolPaletteMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolPaletteMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolPaletteMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolPaletteMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolPaletteMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToolPaletteMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolPaletteMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolPaletteMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolPaletteMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolPaletteMethod "show" o = WidgetShowMethodInfo - ResolveToolPaletteMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolPaletteMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolPaletteMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolPaletteMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolPaletteMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolPaletteMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolPaletteMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolPaletteMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolPaletteMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolPaletteMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolPaletteMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolPaletteMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolPaletteMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolPaletteMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolPaletteMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolPaletteMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolPaletteMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolPaletteMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolPaletteMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToolPaletteMethod "unsetIconSize" o = ToolPaletteUnsetIconSizeMethodInfo - ResolveToolPaletteMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolPaletteMethod "unsetStyle" o = ToolPaletteUnsetStyleMethodInfo - ResolveToolPaletteMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolPaletteMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolPaletteMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolPaletteMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolPaletteMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolPaletteMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolPaletteMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolPaletteMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolPaletteMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolPaletteMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveToolPaletteMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToolPaletteMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolPaletteMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolPaletteMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolPaletteMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolPaletteMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToolPaletteMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolPaletteMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolPaletteMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolPaletteMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolPaletteMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolPaletteMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolPaletteMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolPaletteMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolPaletteMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolPaletteMethod "getDragItem" o = ToolPaletteGetDragItemMethodInfo - ResolveToolPaletteMethod "getDropGroup" o = ToolPaletteGetDropGroupMethodInfo - ResolveToolPaletteMethod "getDropItem" o = ToolPaletteGetDropItemMethodInfo - ResolveToolPaletteMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolPaletteMethod "getExclusive" o = ToolPaletteGetExclusiveMethodInfo - ResolveToolPaletteMethod "getExpand" o = ToolPaletteGetExpandMethodInfo - ResolveToolPaletteMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToolPaletteMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToolPaletteMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToolPaletteMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToolPaletteMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolPaletteMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolPaletteMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolPaletteMethod "getGroupPosition" o = ToolPaletteGetGroupPositionMethodInfo - ResolveToolPaletteMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolPaletteMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolPaletteMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolPaletteMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolPaletteMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolPaletteMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveToolPaletteMethod "getIconSize" o = ToolPaletteGetIconSizeMethodInfo - ResolveToolPaletteMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolPaletteMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolPaletteMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolPaletteMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolPaletteMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolPaletteMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolPaletteMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolPaletteMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolPaletteMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolPaletteMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolPaletteMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolPaletteMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolPaletteMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveToolPaletteMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolPaletteMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolPaletteMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolPaletteMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolPaletteMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToolPaletteMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolPaletteMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolPaletteMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolPaletteMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolPaletteMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolPaletteMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolPaletteMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolPaletteMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolPaletteMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolPaletteMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolPaletteMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolPaletteMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolPaletteMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolPaletteMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToolPaletteMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolPaletteMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolPaletteMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolPaletteMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolPaletteMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolPaletteMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolPaletteMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolPaletteMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolPaletteMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolPaletteMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolPaletteMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolPaletteMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolPaletteMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolPaletteMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolPaletteMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolPaletteMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolPaletteMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolPaletteMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolPaletteMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolPaletteMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolPaletteMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolPaletteMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveToolPaletteMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolPaletteMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolPaletteMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolPaletteMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolPaletteMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToolPaletteMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolPaletteMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolPaletteMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolPaletteMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolPaletteMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolPaletteMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolPaletteMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolPaletteMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolPaletteMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolPaletteMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolPaletteMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolPaletteMethod "setDragSource" o = ToolPaletteSetDragSourceMethodInfo - ResolveToolPaletteMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolPaletteMethod "setExclusive" o = ToolPaletteSetExclusiveMethodInfo - ResolveToolPaletteMethod "setExpand" o = ToolPaletteSetExpandMethodInfo - ResolveToolPaletteMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToolPaletteMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToolPaletteMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToolPaletteMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToolPaletteMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolPaletteMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolPaletteMethod "setGroupPosition" o = ToolPaletteSetGroupPositionMethodInfo - ResolveToolPaletteMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo - ResolveToolPaletteMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolPaletteMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolPaletteMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolPaletteMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolPaletteMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolPaletteMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveToolPaletteMethod "setIconSize" o = ToolPaletteSetIconSizeMethodInfo - ResolveToolPaletteMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolPaletteMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolPaletteMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolPaletteMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolPaletteMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolPaletteMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolPaletteMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolPaletteMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolPaletteMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolPaletteMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveToolPaletteMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolPaletteMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolPaletteMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolPaletteMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolPaletteMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToolPaletteMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolPaletteMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolPaletteMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToolPaletteMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolPaletteMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolPaletteMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolPaletteMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolPaletteMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolPaletteMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveToolPaletteMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveToolPaletteMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolPaletteMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo - ResolveToolPaletteMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolPaletteMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolPaletteMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolPaletteMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolPaletteMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolPaletteMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveToolPaletteMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolPaletteMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolPaletteMethod t ToolPalette, MethodInfo info ToolPalette p) => IsLabelProxy t (ToolPalette -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolPaletteMethod t ToolPalette, MethodInfo info ToolPalette p) => IsLabel t (ToolPalette -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToolPaletteIconSize :: (MonadIO m, ToolPaletteK o) => o -> m IconSize -getToolPaletteIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size" - -setToolPaletteIconSize :: (MonadIO m, ToolPaletteK o) => o -> IconSize -> m () -setToolPaletteIconSize obj val = liftIO $ setObjectPropertyEnum obj "icon-size" val - -constructToolPaletteIconSize :: IconSize -> IO ([Char], GValue) -constructToolPaletteIconSize val = constructObjectPropertyEnum "icon-size" val - -data ToolPaletteIconSizePropertyInfo -instance AttrInfo ToolPaletteIconSizePropertyInfo where - type AttrAllowedOps ToolPaletteIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolPaletteIconSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint ToolPaletteIconSizePropertyInfo = ToolPaletteK - type AttrGetType ToolPaletteIconSizePropertyInfo = IconSize - type AttrLabel ToolPaletteIconSizePropertyInfo = "icon-size" - attrGet _ = getToolPaletteIconSize - attrSet _ = setToolPaletteIconSize - attrConstruct _ = constructToolPaletteIconSize - attrClear _ = undefined - --- VVV Prop "icon-size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToolPaletteIconSizeSet :: (MonadIO m, ToolPaletteK o) => o -> m Bool -getToolPaletteIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set" - -setToolPaletteIconSizeSet :: (MonadIO m, ToolPaletteK o) => o -> Bool -> m () -setToolPaletteIconSizeSet obj val = liftIO $ setObjectPropertyBool obj "icon-size-set" val - -constructToolPaletteIconSizeSet :: Bool -> IO ([Char], GValue) -constructToolPaletteIconSizeSet val = constructObjectPropertyBool "icon-size-set" val - -data ToolPaletteIconSizeSetPropertyInfo -instance AttrInfo ToolPaletteIconSizeSetPropertyInfo where - type AttrAllowedOps ToolPaletteIconSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolPaletteIconSizeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolPaletteIconSizeSetPropertyInfo = ToolPaletteK - type AttrGetType ToolPaletteIconSizeSetPropertyInfo = Bool - type AttrLabel ToolPaletteIconSizeSetPropertyInfo = "icon-size-set" - attrGet _ = getToolPaletteIconSizeSet - attrSet _ = setToolPaletteIconSizeSet - attrConstruct _ = constructToolPaletteIconSizeSet - attrClear _ = undefined - --- VVV Prop "toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToolPaletteToolbarStyle :: (MonadIO m, ToolPaletteK o) => o -> m ToolbarStyle -getToolPaletteToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style" - -setToolPaletteToolbarStyle :: (MonadIO m, ToolPaletteK o) => o -> ToolbarStyle -> m () -setToolPaletteToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "toolbar-style" val - -constructToolPaletteToolbarStyle :: ToolbarStyle -> IO ([Char], GValue) -constructToolPaletteToolbarStyle val = constructObjectPropertyEnum "toolbar-style" val - -data ToolPaletteToolbarStylePropertyInfo -instance AttrInfo ToolPaletteToolbarStylePropertyInfo where - type AttrAllowedOps ToolPaletteToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolPaletteToolbarStylePropertyInfo = (~) ToolbarStyle - type AttrBaseTypeConstraint ToolPaletteToolbarStylePropertyInfo = ToolPaletteK - type AttrGetType ToolPaletteToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel ToolPaletteToolbarStylePropertyInfo = "toolbar-style" - attrGet _ = getToolPaletteToolbarStyle - attrSet _ = setToolPaletteToolbarStyle - attrConstruct _ = constructToolPaletteToolbarStyle - attrClear _ = undefined - -type instance AttributeList ToolPalette = ToolPaletteAttributeList -type ToolPaletteAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("iconSize", ToolPaletteIconSizePropertyInfo), '("iconSizeSet", ToolPaletteIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolPaletteToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toolPaletteIconSize :: AttrLabelProxy "iconSize" -toolPaletteIconSize = AttrLabelProxy - -toolPaletteIconSizeSet :: AttrLabelProxy "iconSizeSet" -toolPaletteIconSizeSet = AttrLabelProxy - -toolPaletteToolbarStyle :: AttrLabelProxy "toolbarStyle" -toolPaletteToolbarStyle = AttrLabelProxy - -type instance SignalList ToolPalette = ToolPaletteSignalList -type ToolPaletteSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method ToolPalette::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolPalette") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_new" gtk_tool_palette_new :: - IO (Ptr ToolPalette) - - -toolPaletteNew :: - (MonadIO m) => - m ToolPalette -- result -toolPaletteNew = liftIO $ do - result <- gtk_tool_palette_new - checkUnexpectedReturnNULL "gtk_tool_palette_new" result - result' <- (newObject ToolPalette) result - return result' - --- method ToolPalette::add_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_tool_palette_add_drag_dest" gtk_tool_palette_add_drag_dest :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "DestDefaults" - CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -toolPaletteAddDragDest :: - (MonadIO m, ToolPaletteK a, WidgetK b) => - a -- _obj - -> b -- widget - -> [DestDefaults] -- flags - -> [ToolPaletteDragTargets] -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -toolPaletteAddDragDest _obj widget flags targets actions = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let flags' = gflagsToWord flags - let targets' = gflagsToWord targets - let actions' = gflagsToWord actions - gtk_tool_palette_add_drag_dest _obj' widget' flags' targets' actions' - touchManagedPtr _obj - touchManagedPtr widget - return () - -data ToolPaletteAddDragDestMethodInfo -instance (signature ~ (b -> [DestDefaults] -> [ToolPaletteDragTargets] -> [Gdk.DragAction] -> m ()), MonadIO m, ToolPaletteK a, WidgetK b) => MethodInfo ToolPaletteAddDragDestMethodInfo a signature where - overloadedMethod _ = toolPaletteAddDragDest - --- method ToolPalette::get_drag_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_drag_item" gtk_tool_palette_get_drag_item :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr SelectionData -> -- selection : TInterface "Gtk" "SelectionData" - IO (Ptr Widget) - - -toolPaletteGetDragItem :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> SelectionData -- selection - -> m Widget -- result -toolPaletteGetDragItem _obj selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_tool_palette_get_drag_item _obj' selection' - checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data ToolPaletteGetDragItemMethodInfo -instance (signature ~ (SelectionData -> m Widget), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDragItemMethodInfo a signature where - overloadedMethod _ = toolPaletteGetDragItem - --- method ToolPalette::get_drop_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItemGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_drop_group" gtk_tool_palette_get_drop_group :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr ToolItemGroup) - - -toolPaletteGetDropGroup :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m ToolItemGroup -- result -toolPaletteGetDropGroup _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_drop_group _obj' x y - checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_group" result - result' <- (newObject ToolItemGroup) result - touchManagedPtr _obj - return result' - -data ToolPaletteGetDropGroupMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ToolItemGroup), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDropGroupMethodInfo a signature where - overloadedMethod _ = toolPaletteGetDropGroup - --- method ToolPalette::get_drop_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_drop_item" gtk_tool_palette_get_drop_item :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr ToolItem) - - -toolPaletteGetDropItem :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m ToolItem -- result -toolPaletteGetDropItem _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_drop_item _obj' x y - checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_item" result - result' <- (newObject ToolItem) result - touchManagedPtr _obj - return result' - -data ToolPaletteGetDropItemMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ToolItem), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDropItemMethodInfo a signature where - overloadedMethod _ = toolPaletteGetDropItem - --- method ToolPalette::get_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_palette_get_exclusive" gtk_tool_palette_get_exclusive :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - IO CInt - - -toolPaletteGetExclusive :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> m Bool -- result -toolPaletteGetExclusive _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - result <- gtk_tool_palette_get_exclusive _obj' group' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr group - return result' - -data ToolPaletteGetExclusiveMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetExclusiveMethodInfo a signature where - overloadedMethod _ = toolPaletteGetExclusive - --- method ToolPalette::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_palette_get_expand" gtk_tool_palette_get_expand :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - IO CInt - - -toolPaletteGetExpand :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> m Bool -- result -toolPaletteGetExpand _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - result <- gtk_tool_palette_get_expand _obj' group' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr group - return result' - -data ToolPaletteGetExpandMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetExpandMethodInfo a signature where - overloadedMethod _ = toolPaletteGetExpand - --- method ToolPalette::get_group_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_palette_get_group_position" gtk_tool_palette_get_group_position :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - IO Int32 - - -toolPaletteGetGroupPosition :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> m Int32 -- result -toolPaletteGetGroupPosition _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - result <- gtk_tool_palette_get_group_position _obj' group' - touchManagedPtr _obj - touchManagedPtr group - return result - -data ToolPaletteGetGroupPositionMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetGroupPositionMethodInfo a signature where - overloadedMethod _ = toolPaletteGetGroupPosition - --- method ToolPalette::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_hadjustment" gtk_tool_palette_get_hadjustment :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO (Ptr Adjustment) - -{-# DEPRECATED toolPaletteGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -toolPaletteGetHadjustment :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m Adjustment -- result -toolPaletteGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_tool_palette_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ToolPaletteGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetHadjustmentMethodInfo a signature where - overloadedMethod _ = toolPaletteGetHadjustment - --- method ToolPalette::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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 "gtk_tool_palette_get_icon_size" gtk_tool_palette_get_icon_size :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO Int32 - - -toolPaletteGetIconSize :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m Int32 -- result -toolPaletteGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_icon_size _obj' - touchManagedPtr _obj - return result - -data ToolPaletteGetIconSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetIconSizeMethodInfo a signature where - overloadedMethod _ = toolPaletteGetIconSize - --- method ToolPalette::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolbarStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_style" gtk_tool_palette_get_style :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO CUInt - - -toolPaletteGetStyle :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m ToolbarStyle -- result -toolPaletteGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolPaletteGetStyleMethodInfo -instance (signature ~ (m ToolbarStyle), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetStyleMethodInfo a signature where - overloadedMethod _ = toolPaletteGetStyle - --- method ToolPalette::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_vadjustment" gtk_tool_palette_get_vadjustment :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO (Ptr Adjustment) - -{-# DEPRECATED toolPaletteGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -toolPaletteGetVadjustment :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m Adjustment -- result -toolPaletteGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_tool_palette_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ToolPaletteGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetVadjustmentMethodInfo a signature where - overloadedMethod _ = toolPaletteGetVadjustment - --- method ToolPalette::set_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", 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 "gtk_tool_palette_set_drag_source" gtk_tool_palette_set_drag_source :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets" - IO () - - -toolPaletteSetDragSource :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> [ToolPaletteDragTargets] -- targets - -> m () -- result -toolPaletteSetDragSource _obj targets = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = gflagsToWord targets - gtk_tool_palette_set_drag_source _obj' targets' - touchManagedPtr _obj - return () - -data ToolPaletteSetDragSourceMethodInfo -instance (signature ~ ([ToolPaletteDragTargets] -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetDragSourceMethodInfo a signature where - overloadedMethod _ = toolPaletteSetDragSource - --- method ToolPalette::set_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", 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 "gtk_tool_palette_set_exclusive" gtk_tool_palette_set_exclusive :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - CInt -> -- exclusive : TBasicType TBoolean - IO () - - -toolPaletteSetExclusive :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> Bool -- exclusive - -> m () -- result -toolPaletteSetExclusive _obj group exclusive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - let exclusive' = (fromIntegral . fromEnum) exclusive - gtk_tool_palette_set_exclusive _obj' group' exclusive' - touchManagedPtr _obj - touchManagedPtr group - return () - -data ToolPaletteSetExclusiveMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetExclusiveMethodInfo a signature where - overloadedMethod _ = toolPaletteSetExclusive - --- method ToolPalette::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tool_palette_set_expand" gtk_tool_palette_set_expand :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - CInt -> -- expand : TBasicType TBoolean - IO () - - -toolPaletteSetExpand :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> Bool -- expand - -> m () -- result -toolPaletteSetExpand _obj group expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - let expand' = (fromIntegral . fromEnum) expand - gtk_tool_palette_set_expand _obj' group' expand' - touchManagedPtr _obj - touchManagedPtr group - return () - -data ToolPaletteSetExpandMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetExpandMethodInfo a signature where - overloadedMethod _ = toolPaletteSetExpand - --- method ToolPalette::set_group_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", 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 "gtk_tool_palette_set_group_position" gtk_tool_palette_set_group_position :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - Int32 -> -- position : TBasicType TInt - IO () - - -toolPaletteSetGroupPosition :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -- _obj - -> b -- group - -> Int32 -- position - -> m () -- result -toolPaletteSetGroupPosition _obj group position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - gtk_tool_palette_set_group_position _obj' group' position - touchManagedPtr _obj - touchManagedPtr group - return () - -data ToolPaletteSetGroupPositionMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetGroupPositionMethodInfo a signature where - overloadedMethod _ = toolPaletteSetGroupPosition - --- method ToolPalette::set_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", 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 "gtk_tool_palette_set_icon_size" gtk_tool_palette_set_icon_size :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- icon_size : TBasicType TInt - IO () - - -toolPaletteSetIconSize :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> Int32 -- iconSize - -> m () -- result -toolPaletteSetIconSize _obj iconSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_set_icon_size _obj' iconSize - touchManagedPtr _obj - return () - -data ToolPaletteSetIconSizeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetIconSizeMethodInfo a signature where - overloadedMethod _ = toolPaletteSetIconSize - --- method ToolPalette::set_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", 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 "gtk_tool_palette_set_style" gtk_tool_palette_set_style :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - CUInt -> -- style : TInterface "Gtk" "ToolbarStyle" - IO () - - -toolPaletteSetStyle :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> ToolbarStyle -- style - -> m () -- result -toolPaletteSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - gtk_tool_palette_set_style _obj' style' - touchManagedPtr _obj - return () - -data ToolPaletteSetStyleMethodInfo -instance (signature ~ (ToolbarStyle -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetStyleMethodInfo a signature where - overloadedMethod _ = toolPaletteSetStyle - --- method ToolPalette::unset_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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 "gtk_tool_palette_unset_icon_size" gtk_tool_palette_unset_icon_size :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO () - - -toolPaletteUnsetIconSize :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m () -- result -toolPaletteUnsetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_unset_icon_size _obj' - touchManagedPtr _obj - return () - -data ToolPaletteUnsetIconSizeMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteUnsetIconSizeMethodInfo a signature where - overloadedMethod _ = toolPaletteUnsetIconSize - --- method ToolPalette::unset_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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 "gtk_tool_palette_unset_style" gtk_tool_palette_unset_style :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - IO () - - -toolPaletteUnsetStyle :: - (MonadIO m, ToolPaletteK a) => - a -- _obj - -> m () -- result -toolPaletteUnsetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_unset_style _obj' - touchManagedPtr _obj - return () - -data ToolPaletteUnsetStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteUnsetStyleMethodInfo a signature where - overloadedMethod _ = toolPaletteUnsetStyle - --- method ToolPalette::get_drag_target_group --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetEntry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_drag_target_group" gtk_tool_palette_get_drag_target_group :: - IO (Ptr TargetEntry) - - -toolPaletteGetDragTargetGroup :: - (MonadIO m) => - m TargetEntry -- result -toolPaletteGetDragTargetGroup = liftIO $ do - result <- gtk_tool_palette_get_drag_target_group - checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_group" result - result' <- (newBoxed TargetEntry) result - return result' - --- method ToolPalette::get_drag_target_item --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetEntry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_get_drag_target_item" gtk_tool_palette_get_drag_target_item :: - IO (Ptr TargetEntry) - - -toolPaletteGetDragTargetItem :: - (MonadIO m) => - m TargetEntry -- result -toolPaletteGetDragTargetItem = liftIO $ do - result <- gtk_tool_palette_get_drag_target_item - checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_item" result - result' <- (newBoxed TargetEntry) result - return result' - - diff --git a/GI/Gtk/Objects/ToolPalette.hs-boot b/GI/Gtk/Objects/ToolPalette.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToolPalette.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Gtk.Objects.ToolPalette 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 ToolPalette = ToolPalette (ForeignPtr ToolPalette) -instance GObject ToolPalette where -class GObject o => ToolPaletteK o -instance (GObject o, IsDescendantOf ToolPalette o) => ToolPaletteK o -data ToolPaletteIconSizePropertyInfo -data ToolPaletteIconSizeSetPropertyInfo -data ToolPaletteToolbarStylePropertyInfo -data ToolPaletteAddDragDestMethodInfo -data ToolPaletteGetDragItemMethodInfo -data ToolPaletteGetDropGroupMethodInfo -data ToolPaletteGetDropItemMethodInfo -data ToolPaletteGetExclusiveMethodInfo -data ToolPaletteGetExpandMethodInfo -data ToolPaletteGetGroupPositionMethodInfo -data ToolPaletteGetHadjustmentMethodInfo -data ToolPaletteGetIconSizeMethodInfo -data ToolPaletteGetStyleMethodInfo -data ToolPaletteGetVadjustmentMethodInfo -data ToolPaletteSetDragSourceMethodInfo -data ToolPaletteSetExclusiveMethodInfo -data ToolPaletteSetExpandMethodInfo -data ToolPaletteSetGroupPositionMethodInfo -data ToolPaletteSetIconSizeMethodInfo -data ToolPaletteSetStyleMethodInfo -data ToolPaletteUnsetIconSizeMethodInfo -data ToolPaletteUnsetStyleMethodInfo diff --git a/GI/Gtk/Objects/Toolbar.hs b/GI/Gtk/Objects/Toolbar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Toolbar.hs +++ /dev/null @@ -1,1345 +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.Gtk.Objects.Toolbar - ( - --- * Exported types - Toolbar(..) , - ToolbarK , - toToolbar , - noToolbar , - - - -- * Methods --- ** toolbarGetDropIndex - ToolbarGetDropIndexMethodInfo , - toolbarGetDropIndex , - - --- ** toolbarGetIconSize - ToolbarGetIconSizeMethodInfo , - toolbarGetIconSize , - - --- ** toolbarGetItemIndex - ToolbarGetItemIndexMethodInfo , - toolbarGetItemIndex , - - --- ** toolbarGetNItems - ToolbarGetNItemsMethodInfo , - toolbarGetNItems , - - --- ** toolbarGetNthItem - ToolbarGetNthItemMethodInfo , - toolbarGetNthItem , - - --- ** toolbarGetReliefStyle - ToolbarGetReliefStyleMethodInfo , - toolbarGetReliefStyle , - - --- ** toolbarGetShowArrow - ToolbarGetShowArrowMethodInfo , - toolbarGetShowArrow , - - --- ** toolbarGetStyle - ToolbarGetStyleMethodInfo , - toolbarGetStyle , - - --- ** toolbarInsert - ToolbarInsertMethodInfo , - toolbarInsert , - - --- ** toolbarNew - toolbarNew , - - --- ** toolbarSetDropHighlightItem - ToolbarSetDropHighlightItemMethodInfo , - toolbarSetDropHighlightItem , - - --- ** toolbarSetIconSize - ToolbarSetIconSizeMethodInfo , - toolbarSetIconSize , - - --- ** toolbarSetShowArrow - ToolbarSetShowArrowMethodInfo , - toolbarSetShowArrow , - - --- ** toolbarSetStyle - ToolbarSetStyleMethodInfo , - toolbarSetStyle , - - --- ** toolbarUnsetIconSize - ToolbarUnsetIconSizeMethodInfo , - toolbarUnsetIconSize , - - --- ** toolbarUnsetStyle - ToolbarUnsetStyleMethodInfo , - toolbarUnsetStyle , - - - - - -- * Properties --- ** IconSize - ToolbarIconSizePropertyInfo , - constructToolbarIconSize , - getToolbarIconSize , - setToolbarIconSize , - toolbarIconSize , - - --- ** IconSizeSet - ToolbarIconSizeSetPropertyInfo , - constructToolbarIconSizeSet , - getToolbarIconSizeSet , - setToolbarIconSizeSet , - toolbarIconSizeSet , - - --- ** ShowArrow - ToolbarShowArrowPropertyInfo , - constructToolbarShowArrow , - getToolbarShowArrow , - setToolbarShowArrow , - toolbarShowArrow , - - --- ** ToolbarStyle - ToolbarToolbarStylePropertyInfo , - constructToolbarToolbarStyle , - getToolbarToolbarStyle , - setToolbarToolbarStyle , - toolbarToolbarStyle , - - - - - -- * Signals --- ** FocusHomeOrEnd - ToolbarFocusHomeOrEndCallback , - ToolbarFocusHomeOrEndCallbackC , - ToolbarFocusHomeOrEndSignalInfo , - afterToolbarFocusHomeOrEnd , - mkToolbarFocusHomeOrEndCallback , - noToolbarFocusHomeOrEndCallback , - onToolbarFocusHomeOrEnd , - toolbarFocusHomeOrEndCallbackWrapper , - toolbarFocusHomeOrEndClosure , - - --- ** OrientationChanged - ToolbarOrientationChangedCallback , - ToolbarOrientationChangedCallbackC , - ToolbarOrientationChangedSignalInfo , - afterToolbarOrientationChanged , - mkToolbarOrientationChangedCallback , - noToolbarOrientationChangedCallback , - onToolbarOrientationChanged , - toolbarOrientationChangedCallbackWrapper, - toolbarOrientationChangedClosure , - - --- ** PopupContextMenu - ToolbarPopupContextMenuCallback , - ToolbarPopupContextMenuCallbackC , - ToolbarPopupContextMenuSignalInfo , - afterToolbarPopupContextMenu , - mkToolbarPopupContextMenuCallback , - noToolbarPopupContextMenuCallback , - onToolbarPopupContextMenu , - toolbarPopupContextMenuCallbackWrapper , - toolbarPopupContextMenuClosure , - - --- ** StyleChanged - ToolbarStyleChangedCallback , - ToolbarStyleChangedCallbackC , - ToolbarStyleChangedSignalInfo , - afterToolbarStyleChanged , - mkToolbarStyleChangedCallback , - noToolbarStyleChangedCallback , - onToolbarStyleChanged , - toolbarStyleChangedCallbackWrapper , - toolbarStyleChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype Toolbar = Toolbar (ForeignPtr Toolbar) -foreign import ccall "gtk_toolbar_get_type" - c_gtk_toolbar_get_type :: IO GType - -type instance ParentTypes Toolbar = ToolbarParentTypes -type ToolbarParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, ToolShell] - -instance GObject Toolbar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_toolbar_get_type - - -class GObject o => ToolbarK o -instance (GObject o, IsDescendantOf Toolbar o) => ToolbarK o - -toToolbar :: ToolbarK o => o -> IO Toolbar -toToolbar = unsafeCastTo Toolbar - -noToolbar :: Maybe Toolbar -noToolbar = Nothing - -type family ResolveToolbarMethod (t :: Symbol) (o :: *) :: * where - ResolveToolbarMethod "activate" o = WidgetActivateMethodInfo - ResolveToolbarMethod "add" o = ContainerAddMethodInfo - ResolveToolbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveToolbarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveToolbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveToolbarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveToolbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveToolbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveToolbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToolbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToolbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveToolbarMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveToolbarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveToolbarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveToolbarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveToolbarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveToolbarMethod "childType" o = ContainerChildTypeMethodInfo - ResolveToolbarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveToolbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveToolbarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveToolbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveToolbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveToolbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveToolbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveToolbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveToolbarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveToolbarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveToolbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveToolbarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveToolbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveToolbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveToolbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveToolbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveToolbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveToolbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveToolbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveToolbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveToolbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveToolbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveToolbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveToolbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveToolbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveToolbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveToolbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveToolbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveToolbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveToolbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveToolbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveToolbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveToolbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveToolbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveToolbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveToolbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveToolbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveToolbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveToolbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveToolbarMethod "draw" o = WidgetDrawMethodInfo - ResolveToolbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveToolbarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveToolbarMethod "event" o = WidgetEventMethodInfo - ResolveToolbarMethod "forall" o = ContainerForallMethodInfo - ResolveToolbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToolbarMethod "foreach" o = ContainerForeachMethodInfo - ResolveToolbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveToolbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToolbarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveToolbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveToolbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveToolbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveToolbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveToolbarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveToolbarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveToolbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveToolbarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveToolbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveToolbarMethod "hide" o = WidgetHideMethodInfo - ResolveToolbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveToolbarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveToolbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveToolbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveToolbarMethod "insert" o = ToolbarInsertMethodInfo - ResolveToolbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveToolbarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveToolbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveToolbarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveToolbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveToolbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToolbarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveToolbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveToolbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveToolbarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveToolbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveToolbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveToolbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveToolbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveToolbarMethod "map" o = WidgetMapMethodInfo - ResolveToolbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveToolbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveToolbarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveToolbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveToolbarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveToolbarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveToolbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveToolbarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveToolbarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToolbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToolbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveToolbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveToolbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveToolbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveToolbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveToolbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveToolbarMethod "path" o = WidgetPathMethodInfo - ResolveToolbarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveToolbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveToolbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveToolbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveToolbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveToolbarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveToolbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveToolbarMethod "realize" o = WidgetRealizeMethodInfo - ResolveToolbarMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo - ResolveToolbarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToolbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToolbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveToolbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveToolbarMethod "remove" o = ContainerRemoveMethodInfo - ResolveToolbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveToolbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveToolbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveToolbarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveToolbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveToolbarMethod "reparent" o = WidgetReparentMethodInfo - ResolveToolbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToolbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToolbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveToolbarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveToolbarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveToolbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToolbarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveToolbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveToolbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveToolbarMethod "show" o = WidgetShowMethodInfo - ResolveToolbarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveToolbarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveToolbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveToolbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveToolbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveToolbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToolbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToolbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveToolbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveToolbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveToolbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToolbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveToolbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveToolbarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveToolbarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveToolbarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveToolbarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToolbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveToolbarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveToolbarMethod "unsetIconSize" o = ToolbarUnsetIconSizeMethodInfo - ResolveToolbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveToolbarMethod "unsetStyle" o = ToolbarUnsetStyleMethodInfo - ResolveToolbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToolbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveToolbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveToolbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveToolbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveToolbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveToolbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveToolbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveToolbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveToolbarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveToolbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveToolbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveToolbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveToolbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveToolbarMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveToolbarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveToolbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveToolbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveToolbarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToolbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveToolbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveToolbarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveToolbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveToolbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveToolbarMethod "getDropIndex" o = ToolbarGetDropIndexMethodInfo - ResolveToolbarMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo - ResolveToolbarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveToolbarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveToolbarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveToolbarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveToolbarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveToolbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveToolbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveToolbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveToolbarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveToolbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveToolbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveToolbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveToolbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveToolbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveToolbarMethod "getItemIndex" o = ToolbarGetItemIndexMethodInfo - ResolveToolbarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveToolbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveToolbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveToolbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveToolbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveToolbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveToolbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveToolbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveToolbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveToolbarMethod "getNItems" o = ToolbarGetNItemsMethodInfo - ResolveToolbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveToolbarMethod "getNthItem" o = ToolbarGetNthItemMethodInfo - ResolveToolbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveToolbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveToolbarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveToolbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveToolbarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveToolbarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveToolbarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveToolbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveToolbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveToolbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveToolbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveToolbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveToolbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveToolbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToolbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToolbarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveToolbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveToolbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveToolbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveToolbarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveToolbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveToolbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveToolbarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveToolbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveToolbarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveToolbarMethod "getShowArrow" o = ToolbarGetShowArrowMethodInfo - ResolveToolbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveToolbarMethod "getState" o = WidgetGetStateMethodInfo - ResolveToolbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveToolbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveToolbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveToolbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveToolbarMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo - ResolveToolbarMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo - ResolveToolbarMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo - ResolveToolbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveToolbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveToolbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveToolbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveToolbarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveToolbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveToolbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveToolbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveToolbarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveToolbarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveToolbarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveToolbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveToolbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveToolbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveToolbarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveToolbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveToolbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveToolbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveToolbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveToolbarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveToolbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveToolbarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToolbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveToolbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveToolbarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveToolbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveToolbarMethod "setDropHighlightItem" o = ToolbarSetDropHighlightItemMethodInfo - ResolveToolbarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveToolbarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveToolbarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveToolbarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveToolbarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveToolbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveToolbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveToolbarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveToolbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveToolbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveToolbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveToolbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveToolbarMethod "setIconSize" o = ToolbarSetIconSizeMethodInfo - ResolveToolbarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveToolbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveToolbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveToolbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveToolbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveToolbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveToolbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveToolbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveToolbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveToolbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveToolbarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveToolbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveToolbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToolbarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveToolbarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveToolbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveToolbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveToolbarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveToolbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveToolbarMethod "setShowArrow" o = ToolbarSetShowArrowMethodInfo - ResolveToolbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveToolbarMethod "setState" o = WidgetSetStateMethodInfo - ResolveToolbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveToolbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveToolbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveToolbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveToolbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveToolbarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveToolbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveToolbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveToolbarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveToolbarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveToolbarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveToolbarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToolbarMethod t Toolbar, MethodInfo info Toolbar p) => IsLabelProxy t (Toolbar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToolbarMethod t Toolbar, MethodInfo info Toolbar p) => IsLabel t (Toolbar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Toolbar::focus-home-or-end -type ToolbarFocusHomeOrEndCallback = - Bool -> - IO Bool - -noToolbarFocusHomeOrEndCallback :: Maybe ToolbarFocusHomeOrEndCallback -noToolbarFocusHomeOrEndCallback = Nothing - -type ToolbarFocusHomeOrEndCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkToolbarFocusHomeOrEndCallback :: ToolbarFocusHomeOrEndCallbackC -> IO (FunPtr ToolbarFocusHomeOrEndCallbackC) - -toolbarFocusHomeOrEndClosure :: ToolbarFocusHomeOrEndCallback -> IO Closure -toolbarFocusHomeOrEndClosure cb = newCClosure =<< mkToolbarFocusHomeOrEndCallback wrapped - where wrapped = toolbarFocusHomeOrEndCallbackWrapper cb - -toolbarFocusHomeOrEndCallbackWrapper :: - ToolbarFocusHomeOrEndCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -toolbarFocusHomeOrEndCallbackWrapper _cb _ focusHome _ = do - let focusHome' = (/= 0) focusHome - result <- _cb focusHome' - let result' = (fromIntegral . fromEnum) result - return result' - -onToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId -onToolbarFocusHomeOrEnd obj cb = liftIO $ connectToolbarFocusHomeOrEnd obj cb SignalConnectBefore -afterToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId -afterToolbarFocusHomeOrEnd obj cb = connectToolbarFocusHomeOrEnd obj cb SignalConnectAfter - -connectToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => - a -> ToolbarFocusHomeOrEndCallback -> SignalConnectMode -> m SignalHandlerId -connectToolbarFocusHomeOrEnd obj cb after = liftIO $ do - cb' <- mkToolbarFocusHomeOrEndCallback (toolbarFocusHomeOrEndCallbackWrapper cb) - connectSignalFunPtr obj "focus-home-or-end" cb' after - --- signal Toolbar::orientation-changed -type ToolbarOrientationChangedCallback = - Orientation -> - IO () - -noToolbarOrientationChangedCallback :: Maybe ToolbarOrientationChangedCallback -noToolbarOrientationChangedCallback = Nothing - -type ToolbarOrientationChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToolbarOrientationChangedCallback :: ToolbarOrientationChangedCallbackC -> IO (FunPtr ToolbarOrientationChangedCallbackC) - -toolbarOrientationChangedClosure :: ToolbarOrientationChangedCallback -> IO Closure -toolbarOrientationChangedClosure cb = newCClosure =<< mkToolbarOrientationChangedCallback wrapped - where wrapped = toolbarOrientationChangedCallbackWrapper cb - -toolbarOrientationChangedCallbackWrapper :: - ToolbarOrientationChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -toolbarOrientationChangedCallbackWrapper _cb _ orientation _ = do - let orientation' = (toEnum . fromIntegral) orientation - _cb orientation' - -onToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId -onToolbarOrientationChanged obj cb = liftIO $ connectToolbarOrientationChanged obj cb SignalConnectBefore -afterToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId -afterToolbarOrientationChanged obj cb = connectToolbarOrientationChanged obj cb SignalConnectAfter - -connectToolbarOrientationChanged :: (GObject a, MonadIO m) => - a -> ToolbarOrientationChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectToolbarOrientationChanged obj cb after = liftIO $ do - cb' <- mkToolbarOrientationChangedCallback (toolbarOrientationChangedCallbackWrapper cb) - connectSignalFunPtr obj "orientation-changed" cb' after - --- signal Toolbar::popup-context-menu -type ToolbarPopupContextMenuCallback = - Int32 -> - Int32 -> - Int32 -> - IO Bool - -noToolbarPopupContextMenuCallback :: Maybe ToolbarPopupContextMenuCallback -noToolbarPopupContextMenuCallback = Nothing - -type ToolbarPopupContextMenuCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkToolbarPopupContextMenuCallback :: ToolbarPopupContextMenuCallbackC -> IO (FunPtr ToolbarPopupContextMenuCallbackC) - -toolbarPopupContextMenuClosure :: ToolbarPopupContextMenuCallback -> IO Closure -toolbarPopupContextMenuClosure cb = newCClosure =<< mkToolbarPopupContextMenuCallback wrapped - where wrapped = toolbarPopupContextMenuCallbackWrapper cb - -toolbarPopupContextMenuCallbackWrapper :: - ToolbarPopupContextMenuCallback -> - Ptr () -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> - IO CInt -toolbarPopupContextMenuCallbackWrapper _cb _ x y button _ = do - result <- _cb x y button - let result' = (fromIntegral . fromEnum) result - return result' - -onToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId -onToolbarPopupContextMenu obj cb = liftIO $ connectToolbarPopupContextMenu obj cb SignalConnectBefore -afterToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId -afterToolbarPopupContextMenu obj cb = connectToolbarPopupContextMenu obj cb SignalConnectAfter - -connectToolbarPopupContextMenu :: (GObject a, MonadIO m) => - a -> ToolbarPopupContextMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectToolbarPopupContextMenu obj cb after = liftIO $ do - cb' <- mkToolbarPopupContextMenuCallback (toolbarPopupContextMenuCallbackWrapper cb) - connectSignalFunPtr obj "popup-context-menu" cb' after - --- signal Toolbar::style-changed -type ToolbarStyleChangedCallback = - ToolbarStyle -> - IO () - -noToolbarStyleChangedCallback :: Maybe ToolbarStyleChangedCallback -noToolbarStyleChangedCallback = Nothing - -type ToolbarStyleChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkToolbarStyleChangedCallback :: ToolbarStyleChangedCallbackC -> IO (FunPtr ToolbarStyleChangedCallbackC) - -toolbarStyleChangedClosure :: ToolbarStyleChangedCallback -> IO Closure -toolbarStyleChangedClosure cb = newCClosure =<< mkToolbarStyleChangedCallback wrapped - where wrapped = toolbarStyleChangedCallbackWrapper cb - -toolbarStyleChangedCallbackWrapper :: - ToolbarStyleChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -toolbarStyleChangedCallbackWrapper _cb _ style _ = do - let style' = (toEnum . fromIntegral) style - _cb style' - -onToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId -onToolbarStyleChanged obj cb = liftIO $ connectToolbarStyleChanged obj cb SignalConnectBefore -afterToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId -afterToolbarStyleChanged obj cb = connectToolbarStyleChanged obj cb SignalConnectAfter - -connectToolbarStyleChanged :: (GObject a, MonadIO m) => - a -> ToolbarStyleChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectToolbarStyleChanged obj cb after = liftIO $ do - cb' <- mkToolbarStyleChangedCallback (toolbarStyleChangedCallbackWrapper cb) - connectSignalFunPtr obj "style-changed" cb' after - --- VVV Prop "icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolbarIconSize :: (MonadIO m, ToolbarK o) => o -> m IconSize -getToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size" - -setToolbarIconSize :: (MonadIO m, ToolbarK o) => o -> IconSize -> m () -setToolbarIconSize obj val = liftIO $ setObjectPropertyEnum obj "icon-size" val - -constructToolbarIconSize :: IconSize -> IO ([Char], GValue) -constructToolbarIconSize val = constructObjectPropertyEnum "icon-size" val - -data ToolbarIconSizePropertyInfo -instance AttrInfo ToolbarIconSizePropertyInfo where - type AttrAllowedOps ToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolbarIconSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint ToolbarIconSizePropertyInfo = ToolbarK - type AttrGetType ToolbarIconSizePropertyInfo = IconSize - type AttrLabel ToolbarIconSizePropertyInfo = "icon-size" - attrGet _ = getToolbarIconSize - attrSet _ = setToolbarIconSize - attrConstruct _ = constructToolbarIconSize - attrClear _ = undefined - --- VVV Prop "icon-size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToolbarIconSizeSet :: (MonadIO m, ToolbarK o) => o -> m Bool -getToolbarIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set" - -setToolbarIconSizeSet :: (MonadIO m, ToolbarK o) => o -> Bool -> m () -setToolbarIconSizeSet obj val = liftIO $ setObjectPropertyBool obj "icon-size-set" val - -constructToolbarIconSizeSet :: Bool -> IO ([Char], GValue) -constructToolbarIconSizeSet val = constructObjectPropertyBool "icon-size-set" val - -data ToolbarIconSizeSetPropertyInfo -instance AttrInfo ToolbarIconSizeSetPropertyInfo where - type AttrAllowedOps ToolbarIconSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolbarIconSizeSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolbarIconSizeSetPropertyInfo = ToolbarK - type AttrGetType ToolbarIconSizeSetPropertyInfo = Bool - type AttrLabel ToolbarIconSizeSetPropertyInfo = "icon-size-set" - attrGet _ = getToolbarIconSizeSet - attrSet _ = setToolbarIconSizeSet - attrConstruct _ = constructToolbarIconSizeSet - attrClear _ = undefined - --- VVV Prop "show-arrow" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getToolbarShowArrow :: (MonadIO m, ToolbarK o) => o -> m Bool -getToolbarShowArrow obj = liftIO $ getObjectPropertyBool obj "show-arrow" - -setToolbarShowArrow :: (MonadIO m, ToolbarK o) => o -> Bool -> m () -setToolbarShowArrow obj val = liftIO $ setObjectPropertyBool obj "show-arrow" val - -constructToolbarShowArrow :: Bool -> IO ([Char], GValue) -constructToolbarShowArrow val = constructObjectPropertyBool "show-arrow" val - -data ToolbarShowArrowPropertyInfo -instance AttrInfo ToolbarShowArrowPropertyInfo where - type AttrAllowedOps ToolbarShowArrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolbarShowArrowPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ToolbarShowArrowPropertyInfo = ToolbarK - type AttrGetType ToolbarShowArrowPropertyInfo = Bool - type AttrLabel ToolbarShowArrowPropertyInfo = "show-arrow" - attrGet _ = getToolbarShowArrow - attrSet _ = setToolbarShowArrow - attrConstruct _ = constructToolbarShowArrow - attrClear _ = undefined - --- VVV Prop "toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getToolbarToolbarStyle :: (MonadIO m, ToolbarK o) => o -> m ToolbarStyle -getToolbarToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style" - -setToolbarToolbarStyle :: (MonadIO m, ToolbarK o) => o -> ToolbarStyle -> m () -setToolbarToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "toolbar-style" val - -constructToolbarToolbarStyle :: ToolbarStyle -> IO ([Char], GValue) -constructToolbarToolbarStyle val = constructObjectPropertyEnum "toolbar-style" val - -data ToolbarToolbarStylePropertyInfo -instance AttrInfo ToolbarToolbarStylePropertyInfo where - type AttrAllowedOps ToolbarToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolbarToolbarStylePropertyInfo = (~) ToolbarStyle - type AttrBaseTypeConstraint ToolbarToolbarStylePropertyInfo = ToolbarK - type AttrGetType ToolbarToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel ToolbarToolbarStylePropertyInfo = "toolbar-style" - attrGet _ = getToolbarToolbarStyle - attrSet _ = setToolbarToolbarStyle - attrConstruct _ = constructToolbarToolbarStyle - attrClear _ = undefined - -type instance AttributeList Toolbar = ToolbarAttributeList -type ToolbarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconSize", ToolbarIconSizePropertyInfo), '("iconSizeSet", ToolbarIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showArrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolbarToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -toolbarIconSize :: AttrLabelProxy "iconSize" -toolbarIconSize = AttrLabelProxy - -toolbarIconSizeSet :: AttrLabelProxy "iconSizeSet" -toolbarIconSizeSet = AttrLabelProxy - -toolbarShowArrow :: AttrLabelProxy "showArrow" -toolbarShowArrow = AttrLabelProxy - -toolbarToolbarStyle :: AttrLabelProxy "toolbarStyle" -toolbarToolbarStyle = AttrLabelProxy - -data ToolbarFocusHomeOrEndSignalInfo -instance SignalInfo ToolbarFocusHomeOrEndSignalInfo where - type HaskellCallbackType ToolbarFocusHomeOrEndSignalInfo = ToolbarFocusHomeOrEndCallback - connectSignal _ = connectToolbarFocusHomeOrEnd - -data ToolbarOrientationChangedSignalInfo -instance SignalInfo ToolbarOrientationChangedSignalInfo where - type HaskellCallbackType ToolbarOrientationChangedSignalInfo = ToolbarOrientationChangedCallback - connectSignal _ = connectToolbarOrientationChanged - -data ToolbarPopupContextMenuSignalInfo -instance SignalInfo ToolbarPopupContextMenuSignalInfo where - type HaskellCallbackType ToolbarPopupContextMenuSignalInfo = ToolbarPopupContextMenuCallback - connectSignal _ = connectToolbarPopupContextMenu - -data ToolbarStyleChangedSignalInfo -instance SignalInfo ToolbarStyleChangedSignalInfo where - type HaskellCallbackType ToolbarStyleChangedSignalInfo = ToolbarStyleChangedCallback - connectSignal _ = connectToolbarStyleChanged - -type instance SignalList Toolbar = ToolbarSignalList -type ToolbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusHomeOrEnd", ToolbarFocusHomeOrEndSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientationChanged", ToolbarOrientationChangedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupContextMenu", ToolbarPopupContextMenuSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleChanged", ToolbarStyleChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Toolbar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Toolbar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_new" gtk_toolbar_new :: - IO (Ptr Toolbar) - - -toolbarNew :: - (MonadIO m) => - m Toolbar -- result -toolbarNew = liftIO $ do - result <- gtk_toolbar_new - checkUnexpectedReturnNULL "gtk_toolbar_new" result - result' <- (newObject Toolbar) result - return result' - --- method Toolbar::get_drop_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_get_drop_index" gtk_toolbar_get_drop_index :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO Int32 - - -toolbarGetDropIndex :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m Int32 -- result -toolbarGetDropIndex _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_drop_index _obj' x y - touchManagedPtr _obj - return result - -data ToolbarGetDropIndexMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetDropIndexMethodInfo a signature where - overloadedMethod _ = toolbarGetDropIndex - --- method Toolbar::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_get_icon_size" gtk_toolbar_get_icon_size :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO CUInt - - -toolbarGetIconSize :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m IconSize -- result -toolbarGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_icon_size _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolbarGetIconSizeMethodInfo -instance (signature ~ (m IconSize), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetIconSizeMethodInfo a signature where - overloadedMethod _ = toolbarGetIconSize - --- method Toolbar::get_item_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", 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 "gtk_toolbar_get_item_index" gtk_toolbar_get_item_index :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - IO Int32 - - -toolbarGetItemIndex :: - (MonadIO m, ToolbarK a, ToolItemK b) => - a -- _obj - -> b -- item - -> m Int32 -- result -toolbarGetItemIndex _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - result <- gtk_toolbar_get_item_index _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return result - -data ToolbarGetItemIndexMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarGetItemIndexMethodInfo a signature where - overloadedMethod _ = toolbarGetItemIndex - --- method Toolbar::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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 "gtk_toolbar_get_n_items" gtk_toolbar_get_n_items :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO Int32 - - -toolbarGetNItems :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m Int32 -- result -toolbarGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_n_items _obj' - touchManagedPtr _obj - return result - -data ToolbarGetNItemsMethodInfo -instance (signature ~ (m Int32), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetNItemsMethodInfo a signature where - overloadedMethod _ = toolbarGetNItems - --- method Toolbar::get_nth_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolItem") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_get_nth_item" gtk_toolbar_get_nth_item :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Int32 -> -- n : TBasicType TInt - IO (Ptr ToolItem) - - -toolbarGetNthItem :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> Int32 -- n - -> m ToolItem -- result -toolbarGetNthItem _obj n = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_nth_item _obj' n - checkUnexpectedReturnNULL "gtk_toolbar_get_nth_item" result - result' <- (newObject ToolItem) result - touchManagedPtr _obj - return result' - -data ToolbarGetNthItemMethodInfo -instance (signature ~ (Int32 -> m ToolItem), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetNthItemMethodInfo a signature where - overloadedMethod _ = toolbarGetNthItem - --- method Toolbar::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ReliefStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_get_relief_style" gtk_toolbar_get_relief_style :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO CUInt - - -toolbarGetReliefStyle :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m ReliefStyle -- result -toolbarGetReliefStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_relief_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolbarGetReliefStyleMethodInfo -instance (signature ~ (m ReliefStyle), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetReliefStyleMethodInfo a signature where - overloadedMethod _ = toolbarGetReliefStyle - --- method Toolbar::get_show_arrow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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 "gtk_toolbar_get_show_arrow" gtk_toolbar_get_show_arrow :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO CInt - - -toolbarGetShowArrow :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m Bool -- result -toolbarGetShowArrow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_show_arrow _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ToolbarGetShowArrowMethodInfo -instance (signature ~ (m Bool), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetShowArrowMethodInfo a signature where - overloadedMethod _ = toolbarGetShowArrow - --- method Toolbar::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ToolbarStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_get_style" gtk_toolbar_get_style :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO CUInt - - -toolbarGetStyle :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m ToolbarStyle -- result -toolbarGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ToolbarGetStyleMethodInfo -instance (signature ~ (m ToolbarStyle), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetStyleMethodInfo a signature where - overloadedMethod _ = toolbarGetStyle - --- method Toolbar::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_toolbar_insert" gtk_toolbar_insert :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- pos : TBasicType TInt - IO () - - -toolbarInsert :: - (MonadIO m, ToolbarK a, ToolItemK b) => - a -- _obj - -> b -- item - -> Int32 -- pos - -> m () -- result -toolbarInsert _obj item pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - gtk_toolbar_insert _obj' item' pos - touchManagedPtr _obj - touchManagedPtr item - return () - -data ToolbarInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarInsertMethodInfo a signature where - overloadedMethod _ = toolbarInsert - --- method Toolbar::set_drop_highlight_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_set_drop_highlight_item" gtk_toolbar_set_drop_highlight_item :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Ptr ToolItem -> -- tool_item : TInterface "Gtk" "ToolItem" - Int32 -> -- index_ : TBasicType TInt - IO () - - -toolbarSetDropHighlightItem :: - (MonadIO m, ToolbarK a, ToolItemK b) => - a -- _obj - -> Maybe (b) -- toolItem - -> Int32 -- index_ - -> m () -- result -toolbarSetDropHighlightItem _obj toolItem index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeToolItem <- case toolItem of - Nothing -> return nullPtr - Just jToolItem -> do - let jToolItem' = unsafeManagedPtrCastPtr jToolItem - return jToolItem' - gtk_toolbar_set_drop_highlight_item _obj' maybeToolItem index_ - touchManagedPtr _obj - whenJust toolItem touchManagedPtr - return () - -data ToolbarSetDropHighlightItemMethodInfo -instance (signature ~ (Maybe (b) -> Int32 -> m ()), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarSetDropHighlightItemMethodInfo a signature where - overloadedMethod _ = toolbarSetDropHighlightItem - --- method Toolbar::set_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TInterface "Gtk" "IconSize", 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 "gtk_toolbar_set_icon_size" gtk_toolbar_set_icon_size :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - CUInt -> -- icon_size : TInterface "Gtk" "IconSize" - IO () - - -toolbarSetIconSize :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> IconSize -- iconSize - -> m () -- result -toolbarSetIconSize _obj iconSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iconSize' = (fromIntegral . fromEnum) iconSize - gtk_toolbar_set_icon_size _obj' iconSize' - touchManagedPtr _obj - return () - -data ToolbarSetIconSizeMethodInfo -instance (signature ~ (IconSize -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetIconSizeMethodInfo a signature where - overloadedMethod _ = toolbarSetIconSize - --- method Toolbar::set_show_arrow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_arrow", 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 "gtk_toolbar_set_show_arrow" gtk_toolbar_set_show_arrow :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - CInt -> -- show_arrow : TBasicType TBoolean - IO () - - -toolbarSetShowArrow :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> Bool -- showArrow - -> m () -- result -toolbarSetShowArrow _obj showArrow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let showArrow' = (fromIntegral . fromEnum) showArrow - gtk_toolbar_set_show_arrow _obj' showArrow' - touchManagedPtr _obj - return () - -data ToolbarSetShowArrowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetShowArrowMethodInfo a signature where - overloadedMethod _ = toolbarSetShowArrow - --- method Toolbar::set_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", 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 "gtk_toolbar_set_style" gtk_toolbar_set_style :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - CUInt -> -- style : TInterface "Gtk" "ToolbarStyle" - IO () - - -toolbarSetStyle :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> ToolbarStyle -- style - -> m () -- result -toolbarSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - gtk_toolbar_set_style _obj' style' - touchManagedPtr _obj - return () - -data ToolbarSetStyleMethodInfo -instance (signature ~ (ToolbarStyle -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetStyleMethodInfo a signature where - overloadedMethod _ = toolbarSetStyle - --- method Toolbar::unset_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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 "gtk_toolbar_unset_icon_size" gtk_toolbar_unset_icon_size :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO () - - -toolbarUnsetIconSize :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m () -- result -toolbarUnsetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toolbar_unset_icon_size _obj' - touchManagedPtr _obj - return () - -data ToolbarUnsetIconSizeMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarUnsetIconSizeMethodInfo a signature where - overloadedMethod _ = toolbarUnsetIconSize - --- method Toolbar::unset_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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 "gtk_toolbar_unset_style" gtk_toolbar_unset_style :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - IO () - - -toolbarUnsetStyle :: - (MonadIO m, ToolbarK a) => - a -- _obj - -> m () -- result -toolbarUnsetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toolbar_unset_style _obj' - touchManagedPtr _obj - return () - -data ToolbarUnsetStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarUnsetStyleMethodInfo a signature where - overloadedMethod _ = toolbarUnsetStyle - - diff --git a/GI/Gtk/Objects/Toolbar.hs-boot b/GI/Gtk/Objects/Toolbar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Toolbar.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Objects.Toolbar 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 Toolbar = Toolbar (ForeignPtr Toolbar) -instance GObject Toolbar where -class GObject o => ToolbarK o -instance (GObject o, IsDescendantOf Toolbar o) => ToolbarK o -data ToolbarIconSizePropertyInfo -data ToolbarIconSizeSetPropertyInfo -data ToolbarShowArrowPropertyInfo -data ToolbarToolbarStylePropertyInfo -data ToolbarFocusHomeOrEndSignalInfo -data ToolbarOrientationChangedSignalInfo -data ToolbarPopupContextMenuSignalInfo -data ToolbarStyleChangedSignalInfo -data ToolbarGetDropIndexMethodInfo -data ToolbarGetIconSizeMethodInfo -data ToolbarGetItemIndexMethodInfo -data ToolbarGetNItemsMethodInfo -data ToolbarGetNthItemMethodInfo -data ToolbarGetReliefStyleMethodInfo -data ToolbarGetShowArrowMethodInfo -data ToolbarGetStyleMethodInfo -data ToolbarInsertMethodInfo -data ToolbarSetDropHighlightItemMethodInfo -data ToolbarSetIconSizeMethodInfo -data ToolbarSetShowArrowMethodInfo -data ToolbarSetStyleMethodInfo -data ToolbarUnsetIconSizeMethodInfo -data ToolbarUnsetStyleMethodInfo diff --git a/GI/Gtk/Objects/Tooltip.hs b/GI/Gtk/Objects/Tooltip.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Tooltip.hs +++ /dev/null @@ -1,455 +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.Gtk.Objects.Tooltip - ( - --- * Exported types - Tooltip(..) , - TooltipK , - toTooltip , - noTooltip , - - - -- * Methods --- ** tooltipSetCustom - TooltipSetCustomMethodInfo , - tooltipSetCustom , - - --- ** tooltipSetIcon - TooltipSetIconMethodInfo , - tooltipSetIcon , - - --- ** tooltipSetIconFromGicon - TooltipSetIconFromGiconMethodInfo , - tooltipSetIconFromGicon , - - --- ** tooltipSetIconFromIconName - TooltipSetIconFromIconNameMethodInfo , - tooltipSetIconFromIconName , - - --- ** tooltipSetIconFromStock - TooltipSetIconFromStockMethodInfo , - tooltipSetIconFromStock , - - --- ** tooltipSetMarkup - TooltipSetMarkupMethodInfo , - tooltipSetMarkup , - - --- ** tooltipSetText - TooltipSetTextMethodInfo , - tooltipSetText , - - --- ** tooltipSetTipArea - TooltipSetTipAreaMethodInfo , - tooltipSetTipArea , - - --- ** tooltipTriggerTooltipQuery - tooltipTriggerTooltipQuery , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio - -newtype Tooltip = Tooltip (ForeignPtr Tooltip) -foreign import ccall "gtk_tooltip_get_type" - c_gtk_tooltip_get_type :: IO GType - -type instance ParentTypes Tooltip = TooltipParentTypes -type TooltipParentTypes = '[GObject.Object] - -instance GObject Tooltip where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tooltip_get_type - - -class GObject o => TooltipK o -instance (GObject o, IsDescendantOf Tooltip o) => TooltipK o - -toTooltip :: TooltipK o => o -> IO Tooltip -toTooltip = unsafeCastTo Tooltip - -noTooltip :: Maybe Tooltip -noTooltip = Nothing - -type family ResolveTooltipMethod (t :: Symbol) (o :: *) :: * where - ResolveTooltipMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTooltipMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTooltipMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTooltipMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTooltipMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTooltipMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTooltipMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTooltipMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTooltipMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTooltipMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTooltipMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTooltipMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTooltipMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTooltipMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTooltipMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTooltipMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTooltipMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTooltipMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTooltipMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTooltipMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTooltipMethod "setCustom" o = TooltipSetCustomMethodInfo - ResolveTooltipMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTooltipMethod "setIcon" o = TooltipSetIconMethodInfo - ResolveTooltipMethod "setIconFromGicon" o = TooltipSetIconFromGiconMethodInfo - ResolveTooltipMethod "setIconFromIconName" o = TooltipSetIconFromIconNameMethodInfo - ResolveTooltipMethod "setIconFromStock" o = TooltipSetIconFromStockMethodInfo - ResolveTooltipMethod "setMarkup" o = TooltipSetMarkupMethodInfo - ResolveTooltipMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTooltipMethod "setText" o = TooltipSetTextMethodInfo - ResolveTooltipMethod "setTipArea" o = TooltipSetTipAreaMethodInfo - ResolveTooltipMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTooltipMethod t Tooltip, MethodInfo info Tooltip p) => IsLabelProxy t (Tooltip -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTooltipMethod t Tooltip, MethodInfo info Tooltip p) => IsLabel t (Tooltip -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Tooltip = TooltipAttributeList -type TooltipAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Tooltip = TooltipSignalList -type TooltipSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Tooltip::set_custom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tooltip_set_custom" gtk_tooltip_set_custom :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - Ptr Widget -> -- custom_widget : TInterface "Gtk" "Widget" - IO () - - -tooltipSetCustom :: - (MonadIO m, TooltipK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- customWidget - -> m () -- result -tooltipSetCustom _obj customWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustomWidget <- case customWidget of - Nothing -> return nullPtr - Just jCustomWidget -> do - let jCustomWidget' = unsafeManagedPtrCastPtr jCustomWidget - return jCustomWidget' - gtk_tooltip_set_custom _obj' maybeCustomWidget - touchManagedPtr _obj - whenJust customWidget touchManagedPtr - return () - -data TooltipSetCustomMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TooltipK a, WidgetK b) => MethodInfo TooltipSetCustomMethodInfo a signature where - overloadedMethod _ = tooltipSetCustom - --- method Tooltip::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tooltip_set_icon" gtk_tooltip_set_icon :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -tooltipSetIcon :: - (MonadIO m, TooltipK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> Maybe (b) -- pixbuf - -> m () -- result -tooltipSetIcon _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_tooltip_set_icon _obj' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - -data TooltipSetIconMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TooltipK a, GdkPixbuf.PixbufK b) => MethodInfo TooltipSetIconMethodInfo a signature where - overloadedMethod _ = tooltipSetIcon - --- method Tooltip::set_icon_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_tooltip_set_icon_from_gicon" gtk_tooltip_set_icon_from_gicon :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - Ptr Gio.Icon -> -- gicon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt - IO () - - -tooltipSetIconFromGicon :: - (MonadIO m, TooltipK a, Gio.IconK b) => - a -- _obj - -> Maybe (b) -- gicon - -> Int32 -- size - -> m () -- result -tooltipSetIconFromGicon _obj gicon size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGicon <- case gicon of - Nothing -> return nullPtr - Just jGicon -> do - let jGicon' = unsafeManagedPtrCastPtr jGicon - return jGicon' - gtk_tooltip_set_icon_from_gicon _obj' maybeGicon size - touchManagedPtr _obj - whenJust gicon touchManagedPtr - return () - -data TooltipSetIconFromGiconMethodInfo -instance (signature ~ (Maybe (b) -> Int32 -> m ()), MonadIO m, TooltipK a, Gio.IconK b) => MethodInfo TooltipSetIconFromGiconMethodInfo a signature where - overloadedMethod _ = tooltipSetIconFromGicon - --- method Tooltip::set_icon_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_tooltip_set_icon_from_icon_name" gtk_tooltip_set_icon_from_icon_name :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO () - - -tooltipSetIconFromIconName :: - (MonadIO m, TooltipK a) => - a -- _obj - -> Maybe (T.Text) -- iconName - -> Int32 -- size - -> m () -- result -tooltipSetIconFromIconName _obj iconName size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_tooltip_set_icon_from_icon_name _obj' maybeIconName size - touchManagedPtr _obj - freeMem maybeIconName - return () - -data TooltipSetIconFromIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetIconFromIconNameMethodInfo a signature where - overloadedMethod _ = tooltipSetIconFromIconName - --- method Tooltip::set_icon_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_tooltip_set_icon_from_stock" gtk_tooltip_set_icon_from_stock :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED tooltipSetIconFromStock ["(Since version 3.10)","Use gtk_tooltip_set_icon_from_icon_name() instead."]#-} -tooltipSetIconFromStock :: - (MonadIO m, TooltipK a) => - a -- _obj - -> Maybe (T.Text) -- stockId - -> Int32 -- size - -> m () -- result -tooltipSetIconFromStock _obj stockId size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStockId <- case stockId of - Nothing -> return nullPtr - Just jStockId -> do - jStockId' <- textToCString jStockId - return jStockId' - gtk_tooltip_set_icon_from_stock _obj' maybeStockId size - touchManagedPtr _obj - freeMem maybeStockId - return () - -data TooltipSetIconFromStockMethodInfo -instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetIconFromStockMethodInfo a signature where - overloadedMethod _ = tooltipSetIconFromStock - --- method Tooltip::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tooltip_set_markup" gtk_tooltip_set_markup :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - CString -> -- markup : TBasicType TUTF8 - IO () - - -tooltipSetMarkup :: - (MonadIO m, TooltipK a) => - a -- _obj - -> Maybe (T.Text) -- markup - -> m () -- result -tooltipSetMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_tooltip_set_markup _obj' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - -data TooltipSetMarkupMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetMarkupMethodInfo a signature where - overloadedMethod _ = tooltipSetMarkup - --- method Tooltip::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tooltip_set_text" gtk_tooltip_set_text :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - CString -> -- text : TBasicType TUTF8 - IO () - - -tooltipSetText :: - (MonadIO m, TooltipK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m () -- result -tooltipSetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_tooltip_set_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - -data TooltipSetTextMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetTextMethodInfo a signature where - overloadedMethod _ = tooltipSetText - --- method Tooltip::set_tip_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", 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 "gtk_tooltip_set_tip_area" gtk_tooltip_set_tip_area :: - Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -tooltipSetTipArea :: - (MonadIO m, TooltipK a) => - a -- _obj - -> Gdk.Rectangle -- rect - -> m () -- result -tooltipSetTipArea _obj rect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rect' = unsafeManagedPtrGetPtr rect - gtk_tooltip_set_tip_area _obj' rect' - touchManagedPtr _obj - touchManagedPtr rect - return () - -data TooltipSetTipAreaMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetTipAreaMethodInfo a signature where - overloadedMethod _ = tooltipSetTipArea - --- method Tooltip::trigger_tooltip_query --- method type : MemberFunction --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", 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 "gtk_tooltip_trigger_tooltip_query" gtk_tooltip_trigger_tooltip_query :: - Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - IO () - - -tooltipTriggerTooltipQuery :: - (MonadIO m, Gdk.DisplayK a) => - a -- display - -> m () -- result -tooltipTriggerTooltipQuery display = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - gtk_tooltip_trigger_tooltip_query display' - touchManagedPtr display - return () - - diff --git a/GI/Gtk/Objects/Tooltip.hs-boot b/GI/Gtk/Objects/Tooltip.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Tooltip.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Objects.Tooltip 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 Tooltip = Tooltip (ForeignPtr Tooltip) -instance GObject Tooltip where -class GObject o => TooltipK o -instance (GObject o, IsDescendantOf Tooltip o) => TooltipK o -data TooltipSetCustomMethodInfo -data TooltipSetIconMethodInfo -data TooltipSetIconFromGiconMethodInfo -data TooltipSetIconFromIconNameMethodInfo -data TooltipSetIconFromStockMethodInfo -data TooltipSetMarkupMethodInfo -data TooltipSetTextMethodInfo -data TooltipSetTipAreaMethodInfo diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs b/GI/Gtk/Objects/ToplevelAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/ToplevelAccessible.hs +++ /dev/null @@ -1,154 +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.Gtk.Objects.ToplevelAccessible - ( - --- * Exported types - ToplevelAccessible(..) , - ToplevelAccessibleK , - toToplevelAccessible , - noToplevelAccessible , - - - -- * Methods --- ** toplevelAccessibleGetChildren - ToplevelAccessibleGetChildrenMethodInfo , - toplevelAccessibleGetChildren , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype ToplevelAccessible = ToplevelAccessible (ForeignPtr ToplevelAccessible) -foreign import ccall "gtk_toplevel_accessible_get_type" - c_gtk_toplevel_accessible_get_type :: IO GType - -type instance ParentTypes ToplevelAccessible = ToplevelAccessibleParentTypes -type ToplevelAccessibleParentTypes = '[Atk.Object, GObject.Object] - -instance GObject ToplevelAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_toplevel_accessible_get_type - - -class GObject o => ToplevelAccessibleK o -instance (GObject o, IsDescendantOf ToplevelAccessible o) => ToplevelAccessibleK o - -toToplevelAccessible :: ToplevelAccessibleK o => o -> IO ToplevelAccessible -toToplevelAccessible = unsafeCastTo ToplevelAccessible - -noToplevelAccessible :: Maybe ToplevelAccessible -noToplevelAccessible = Nothing - -type family ResolveToplevelAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveToplevelAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveToplevelAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveToplevelAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveToplevelAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveToplevelAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveToplevelAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveToplevelAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveToplevelAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveToplevelAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveToplevelAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveToplevelAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveToplevelAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveToplevelAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveToplevelAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveToplevelAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveToplevelAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveToplevelAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveToplevelAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveToplevelAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveToplevelAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveToplevelAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveToplevelAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveToplevelAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveToplevelAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveToplevelAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveToplevelAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveToplevelAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveToplevelAccessibleMethod "getChildren" o = ToplevelAccessibleGetChildrenMethodInfo - ResolveToplevelAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveToplevelAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveToplevelAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveToplevelAccessibleMethod "getLayer" o = Atk.ObjectGetLayerMethodInfo - ResolveToplevelAccessibleMethod "getMdiZorder" o = Atk.ObjectGetMdiZorderMethodInfo - ResolveToplevelAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveToplevelAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveToplevelAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveToplevelAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveToplevelAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveToplevelAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveToplevelAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveToplevelAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveToplevelAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveToplevelAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveToplevelAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveToplevelAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveToplevelAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveToplevelAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToplevelAccessibleMethod t ToplevelAccessible, MethodInfo info ToplevelAccessible p) => IsLabelProxy t (ToplevelAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToplevelAccessibleMethod t ToplevelAccessible, MethodInfo info ToplevelAccessible p) => IsLabel t (ToplevelAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ToplevelAccessible = ToplevelAccessibleAttributeList -type ToplevelAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToplevelAccessible = ToplevelAccessibleSignalList -type ToplevelAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - --- method ToplevelAccessible::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_toplevel_accessible_get_children" gtk_toplevel_accessible_get_children :: - Ptr ToplevelAccessible -> -- _obj : TInterface "Gtk" "ToplevelAccessible" - IO (Ptr (GList (Ptr Window))) - - -toplevelAccessibleGetChildren :: - (MonadIO m, ToplevelAccessibleK a) => - a -- _obj - -> m [Window] -- result -toplevelAccessibleGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toplevel_accessible_get_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - touchManagedPtr _obj - return result'' - -data ToplevelAccessibleGetChildrenMethodInfo -instance (signature ~ (m [Window]), MonadIO m, ToplevelAccessibleK a) => MethodInfo ToplevelAccessibleGetChildrenMethodInfo a signature where - overloadedMethod _ = toplevelAccessibleGetChildren - - diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs-boot b/GI/Gtk/Objects/ToplevelAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/ToplevelAccessible.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.ToplevelAccessible 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 ToplevelAccessible = ToplevelAccessible (ForeignPtr ToplevelAccessible) -instance GObject ToplevelAccessible where -class GObject o => ToplevelAccessibleK o -instance (GObject o, IsDescendantOf ToplevelAccessible o) => ToplevelAccessibleK o -data ToplevelAccessibleGetChildrenMethodInfo diff --git a/GI/Gtk/Objects/TreeModelFilter.hs b/GI/Gtk/Objects/TreeModelFilter.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeModelFilter.hs +++ /dev/null @@ -1,529 +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.Gtk.Objects.TreeModelFilter - ( - --- * Exported types - TreeModelFilter(..) , - TreeModelFilterK , - toTreeModelFilter , - noTreeModelFilter , - - - -- * Methods --- ** treeModelFilterClearCache - TreeModelFilterClearCacheMethodInfo , - treeModelFilterClearCache , - - --- ** treeModelFilterConvertChildIterToIter - TreeModelFilterConvertChildIterToIterMethodInfo, - treeModelFilterConvertChildIterToIter , - - --- ** treeModelFilterConvertChildPathToPath - TreeModelFilterConvertChildPathToPathMethodInfo, - treeModelFilterConvertChildPathToPath , - - --- ** treeModelFilterConvertIterToChildIter - TreeModelFilterConvertIterToChildIterMethodInfo, - treeModelFilterConvertIterToChildIter , - - --- ** treeModelFilterConvertPathToChildPath - TreeModelFilterConvertPathToChildPathMethodInfo, - treeModelFilterConvertPathToChildPath , - - --- ** treeModelFilterGetModel - TreeModelFilterGetModelMethodInfo , - treeModelFilterGetModel , - - --- ** treeModelFilterRefilter - TreeModelFilterRefilterMethodInfo , - treeModelFilterRefilter , - - --- ** treeModelFilterSetVisibleColumn - TreeModelFilterSetVisibleColumnMethodInfo, - treeModelFilterSetVisibleColumn , - - --- ** treeModelFilterSetVisibleFunc - TreeModelFilterSetVisibleFuncMethodInfo , - treeModelFilterSetVisibleFunc , - - - - - -- * Properties --- ** ChildModel - TreeModelFilterChildModelPropertyInfo , - constructTreeModelFilterChildModel , - getTreeModelFilterChildModel , - treeModelFilterChildModel , - - --- ** VirtualRoot - TreeModelFilterVirtualRootPropertyInfo , - constructTreeModelFilterVirtualRoot , - getTreeModelFilterVirtualRoot , - treeModelFilterVirtualRoot , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype TreeModelFilter = TreeModelFilter (ForeignPtr TreeModelFilter) -foreign import ccall "gtk_tree_model_filter_get_type" - c_gtk_tree_model_filter_get_type :: IO GType - -type instance ParentTypes TreeModelFilter = TreeModelFilterParentTypes -type TreeModelFilterParentTypes = '[GObject.Object, TreeDragSource, TreeModel] - -instance GObject TreeModelFilter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_model_filter_get_type - - -class GObject o => TreeModelFilterK o -instance (GObject o, IsDescendantOf TreeModelFilter o) => TreeModelFilterK o - -toTreeModelFilter :: TreeModelFilterK o => o -> IO TreeModelFilter -toTreeModelFilter = unsafeCastTo TreeModelFilter - -noTreeModelFilter :: Maybe TreeModelFilter -noTreeModelFilter = Nothing - -type family ResolveTreeModelFilterMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeModelFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeModelFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeModelFilterMethod "clearCache" o = TreeModelFilterClearCacheMethodInfo - ResolveTreeModelFilterMethod "convertChildIterToIter" o = TreeModelFilterConvertChildIterToIterMethodInfo - ResolveTreeModelFilterMethod "convertChildPathToPath" o = TreeModelFilterConvertChildPathToPathMethodInfo - ResolveTreeModelFilterMethod "convertIterToChildIter" o = TreeModelFilterConvertIterToChildIterMethodInfo - ResolveTreeModelFilterMethod "convertPathToChildPath" o = TreeModelFilterConvertPathToChildPathMethodInfo - ResolveTreeModelFilterMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo - ResolveTreeModelFilterMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo - ResolveTreeModelFilterMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveTreeModelFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeModelFilterMethod "foreach" o = TreeModelForeachMethodInfo - ResolveTreeModelFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeModelFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeModelFilterMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveTreeModelFilterMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveTreeModelFilterMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveTreeModelFilterMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveTreeModelFilterMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveTreeModelFilterMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveTreeModelFilterMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveTreeModelFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeModelFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeModelFilterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeModelFilterMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveTreeModelFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeModelFilterMethod "refilter" o = TreeModelFilterRefilterMethodInfo - ResolveTreeModelFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeModelFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeModelFilterMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveTreeModelFilterMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveTreeModelFilterMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo - ResolveTreeModelFilterMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveTreeModelFilterMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveTreeModelFilterMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveTreeModelFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeModelFilterMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveTreeModelFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeModelFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeModelFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeModelFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeModelFilterMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveTreeModelFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeModelFilterMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveTreeModelFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeModelFilterMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveTreeModelFilterMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveTreeModelFilterMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveTreeModelFilterMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveTreeModelFilterMethod "getModel" o = TreeModelFilterGetModelMethodInfo - ResolveTreeModelFilterMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveTreeModelFilterMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveTreeModelFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeModelFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeModelFilterMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveTreeModelFilterMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveTreeModelFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeModelFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeModelFilterMethod "setVisibleColumn" o = TreeModelFilterSetVisibleColumnMethodInfo - ResolveTreeModelFilterMethod "setVisibleFunc" o = TreeModelFilterSetVisibleFuncMethodInfo - ResolveTreeModelFilterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, MethodInfo info TreeModelFilter p) => IsLabelProxy t (TreeModelFilter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, MethodInfo info TreeModelFilter p) => IsLabel t (TreeModelFilter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "child-model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTreeModelFilterChildModel :: (MonadIO m, TreeModelFilterK o) => o -> m (Maybe TreeModel) -getTreeModelFilterChildModel obj = liftIO $ getObjectPropertyObject obj "child-model" TreeModel - -constructTreeModelFilterChildModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" (Just val) - -data TreeModelFilterChildModelPropertyInfo -instance AttrInfo TreeModelFilterChildModelPropertyInfo where - type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterChildModelPropertyInfo = (Maybe TreeModel) - type AttrLabel TreeModelFilterChildModelPropertyInfo = "child-model" - attrGet _ = getTreeModelFilterChildModel - attrSet _ = undefined - attrConstruct _ = constructTreeModelFilterChildModel - attrClear _ = undefined - --- VVV Prop "virtual-root" - -- Type: TInterface "Gtk" "TreePath" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTreeModelFilterVirtualRoot :: (MonadIO m, TreeModelFilterK o) => o -> m (Maybe TreePath) -getTreeModelFilterVirtualRoot obj = liftIO $ getObjectPropertyBoxed obj "virtual-root" TreePath - -constructTreeModelFilterVirtualRoot :: TreePath -> IO ([Char], GValue) -constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" (Just val) - -data TreeModelFilterVirtualRootPropertyInfo -instance AttrInfo TreeModelFilterVirtualRootPropertyInfo where - type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) TreePath - type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterVirtualRootPropertyInfo = (Maybe TreePath) - type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "virtual-root" - attrGet _ = getTreeModelFilterVirtualRoot - attrSet _ = undefined - attrConstruct _ = constructTreeModelFilterVirtualRoot - attrClear _ = undefined - -type instance AttributeList TreeModelFilter = TreeModelFilterAttributeList -type TreeModelFilterAttributeList = ('[ '("childModel", TreeModelFilterChildModelPropertyInfo), '("virtualRoot", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)]) - -treeModelFilterChildModel :: AttrLabelProxy "childModel" -treeModelFilterChildModel = AttrLabelProxy - -treeModelFilterVirtualRoot :: AttrLabelProxy "virtualRoot" -treeModelFilterVirtualRoot = AttrLabelProxy - -type instance SignalList TreeModelFilter = TreeModelFilterSignalList -type TreeModelFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) - --- method TreeModelFilter::clear_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", 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 "gtk_tree_model_filter_clear_cache" gtk_tree_model_filter_clear_cache :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - IO () - - -treeModelFilterClearCache :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> m () -- result -treeModelFilterClearCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_clear_cache _obj' - touchManagedPtr _obj - return () - -data TreeModelFilterClearCacheMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterClearCacheMethodInfo a signature where - overloadedMethod _ = treeModelFilterClearCache - --- method TreeModelFilter::convert_child_iter_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_filter_convert_child_iter_to_iter" gtk_tree_model_filter_convert_child_iter_to_iter :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Ptr TreeIter -> -- filter_iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelFilterConvertChildIterToIter :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> TreeIter -- childIter - -> m (Bool,TreeIter) -- result -treeModelFilterConvertChildIterToIter _obj childIter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filterIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let childIter' = unsafeManagedPtrGetPtr childIter - result <- gtk_tree_model_filter_convert_child_iter_to_iter _obj' filterIter childIter' - let result' = (/= 0) result - filterIter' <- (wrapBoxed TreeIter) filterIter - touchManagedPtr _obj - touchManagedPtr childIter - return (result', filterIter') - -data TreeModelFilterConvertChildIterToIterMethodInfo -instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertChildIterToIterMethodInfo a signature where - overloadedMethod _ = treeModelFilterConvertChildIterToIter - --- method TreeModelFilter::convert_child_path_to_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_convert_child_path_to_path" gtk_tree_model_filter_convert_child_path_to_path :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Ptr TreePath -> -- child_path : TInterface "Gtk" "TreePath" - IO (Ptr TreePath) - - -treeModelFilterConvertChildPathToPath :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> TreePath -- childPath - -> m TreePath -- result -treeModelFilterConvertChildPathToPath _obj childPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let childPath' = unsafeManagedPtrGetPtr childPath - result <- gtk_tree_model_filter_convert_child_path_to_path _obj' childPath' - checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_child_path_to_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr childPath - return result' - -data TreeModelFilterConvertChildPathToPathMethodInfo -instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertChildPathToPathMethodInfo a signature where - overloadedMethod _ = treeModelFilterConvertChildPathToPath - --- method TreeModelFilter::convert_iter_to_child_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_filter_convert_iter_to_child_iter" gtk_tree_model_filter_convert_iter_to_child_iter :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- filter_iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelFilterConvertIterToChildIter :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> TreeIter -- filterIter - -> m (TreeIter) -- result -treeModelFilterConvertIterToChildIter _obj filterIter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - childIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let filterIter' = unsafeManagedPtrGetPtr filterIter - gtk_tree_model_filter_convert_iter_to_child_iter _obj' childIter filterIter' - childIter' <- (wrapBoxed TreeIter) childIter - touchManagedPtr _obj - touchManagedPtr filterIter - return childIter' - -data TreeModelFilterConvertIterToChildIterMethodInfo -instance (signature ~ (TreeIter -> m (TreeIter)), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertIterToChildIterMethodInfo a signature where - overloadedMethod _ = treeModelFilterConvertIterToChildIter - --- method TreeModelFilter::convert_path_to_child_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_convert_path_to_child_path" gtk_tree_model_filter_convert_path_to_child_path :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Ptr TreePath -> -- filter_path : TInterface "Gtk" "TreePath" - IO (Ptr TreePath) - - -treeModelFilterConvertPathToChildPath :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> TreePath -- filterPath - -> m TreePath -- result -treeModelFilterConvertPathToChildPath _obj filterPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filterPath' = unsafeManagedPtrGetPtr filterPath - result <- gtk_tree_model_filter_convert_path_to_child_path _obj' filterPath' - checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_path_to_child_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr filterPath - return result' - -data TreeModelFilterConvertPathToChildPathMethodInfo -instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertPathToChildPathMethodInfo a signature where - overloadedMethod _ = treeModelFilterConvertPathToChildPath - --- method TreeModelFilter::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_get_model" gtk_tree_model_filter_get_model :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - IO (Ptr TreeModel) - - -treeModelFilterGetModel :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> m TreeModel -- result -treeModelFilterGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_filter_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_model_filter_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data TreeModelFilterGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterGetModelMethodInfo a signature where - overloadedMethod _ = treeModelFilterGetModel - --- method TreeModelFilter::refilter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", 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 "gtk_tree_model_filter_refilter" gtk_tree_model_filter_refilter :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - IO () - - -treeModelFilterRefilter :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> m () -- result -treeModelFilterRefilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_refilter _obj' - touchManagedPtr _obj - return () - -data TreeModelFilterRefilterMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterRefilterMethodInfo a signature where - overloadedMethod _ = treeModelFilterRefilter - --- method TreeModelFilter::set_visible_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_set_visible_column" gtk_tree_model_filter_set_visible_column :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Int32 -> -- column : TBasicType TInt - IO () - - -treeModelFilterSetVisibleColumn :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -treeModelFilterSetVisibleColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_set_visible_column _obj' column - touchManagedPtr _obj - return () - -data TreeModelFilterSetVisibleColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterSetVisibleColumnMethodInfo a signature where - overloadedMethod _ = treeModelFilterSetVisibleColumn - --- method TreeModelFilter::set_visible_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_filter_set_visible_func" gtk_tree_model_filter_set_visible_func :: - Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - FunPtr TreeModelFilterVisibleFuncC -> -- func : TInterface "Gtk" "TreeModelFilterVisibleFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeModelFilterSetVisibleFunc :: - (MonadIO m, TreeModelFilterK a) => - a -- _obj - -> TreeModelFilterVisibleFunc -- func - -> m () -- result -treeModelFilterSetVisibleFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeModelFilterVisibleFunc (treeModelFilterVisibleFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let destroy = safeFreeFunPtrPtr - gtk_tree_model_filter_set_visible_func _obj' func' data_ destroy - touchManagedPtr _obj - return () - -data TreeModelFilterSetVisibleFuncMethodInfo -instance (signature ~ (TreeModelFilterVisibleFunc -> m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterSetVisibleFuncMethodInfo a signature where - overloadedMethod _ = treeModelFilterSetVisibleFunc - - diff --git a/GI/Gtk/Objects/TreeModelFilter.hs-boot b/GI/Gtk/Objects/TreeModelFilter.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeModelFilter.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gtk.Objects.TreeModelFilter 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 TreeModelFilter = TreeModelFilter (ForeignPtr TreeModelFilter) -instance GObject TreeModelFilter where -class GObject o => TreeModelFilterK o -instance (GObject o, IsDescendantOf TreeModelFilter o) => TreeModelFilterK o -data TreeModelFilterChildModelPropertyInfo -data TreeModelFilterVirtualRootPropertyInfo -data TreeModelFilterClearCacheMethodInfo -data TreeModelFilterConvertChildIterToIterMethodInfo -data TreeModelFilterConvertChildPathToPathMethodInfo -data TreeModelFilterConvertIterToChildIterMethodInfo -data TreeModelFilterConvertPathToChildPathMethodInfo -data TreeModelFilterGetModelMethodInfo -data TreeModelFilterRefilterMethodInfo -data TreeModelFilterSetVisibleColumnMethodInfo -data TreeModelFilterSetVisibleFuncMethodInfo diff --git a/GI/Gtk/Objects/TreeModelSort.hs b/GI/Gtk/Objects/TreeModelSort.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeModelSort.hs +++ /dev/null @@ -1,464 +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.Gtk.Objects.TreeModelSort - ( - --- * Exported types - TreeModelSort(..) , - TreeModelSortK , - toTreeModelSort , - noTreeModelSort , - - - -- * Methods --- ** treeModelSortClearCache - TreeModelSortClearCacheMethodInfo , - treeModelSortClearCache , - - --- ** treeModelSortConvertChildIterToIter - TreeModelSortConvertChildIterToIterMethodInfo, - treeModelSortConvertChildIterToIter , - - --- ** treeModelSortConvertChildPathToPath - TreeModelSortConvertChildPathToPathMethodInfo, - treeModelSortConvertChildPathToPath , - - --- ** treeModelSortConvertIterToChildIter - TreeModelSortConvertIterToChildIterMethodInfo, - treeModelSortConvertIterToChildIter , - - --- ** treeModelSortConvertPathToChildPath - TreeModelSortConvertPathToChildPathMethodInfo, - treeModelSortConvertPathToChildPath , - - --- ** treeModelSortGetModel - TreeModelSortGetModelMethodInfo , - treeModelSortGetModel , - - --- ** treeModelSortIterIsValid - TreeModelSortIterIsValidMethodInfo , - treeModelSortIterIsValid , - - --- ** treeModelSortResetDefaultSortFunc - TreeModelSortResetDefaultSortFuncMethodInfo, - treeModelSortResetDefaultSortFunc , - - - - - -- * Properties --- ** Model - TreeModelSortModelPropertyInfo , - constructTreeModelSortModel , - getTreeModelSortModel , - treeModelSortModel , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TreeModelSort = TreeModelSort (ForeignPtr TreeModelSort) -foreign import ccall "gtk_tree_model_sort_get_type" - c_gtk_tree_model_sort_get_type :: IO GType - -type instance ParentTypes TreeModelSort = TreeModelSortParentTypes -type TreeModelSortParentTypes = '[GObject.Object, TreeDragSource, TreeModel, TreeSortable] - -instance GObject TreeModelSort where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_model_sort_get_type - - -class GObject o => TreeModelSortK o -instance (GObject o, IsDescendantOf TreeModelSort o) => TreeModelSortK o - -toTreeModelSort :: TreeModelSortK o => o -> IO TreeModelSort -toTreeModelSort = unsafeCastTo TreeModelSort - -noTreeModelSort :: Maybe TreeModelSort -noTreeModelSort = Nothing - -type family ResolveTreeModelSortMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeModelSortMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeModelSortMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeModelSortMethod "clearCache" o = TreeModelSortClearCacheMethodInfo - ResolveTreeModelSortMethod "convertChildIterToIter" o = TreeModelSortConvertChildIterToIterMethodInfo - ResolveTreeModelSortMethod "convertChildPathToPath" o = TreeModelSortConvertChildPathToPathMethodInfo - ResolveTreeModelSortMethod "convertIterToChildIter" o = TreeModelSortConvertIterToChildIterMethodInfo - ResolveTreeModelSortMethod "convertPathToChildPath" o = TreeModelSortConvertPathToChildPathMethodInfo - ResolveTreeModelSortMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo - ResolveTreeModelSortMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo - ResolveTreeModelSortMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveTreeModelSortMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeModelSortMethod "foreach" o = TreeModelForeachMethodInfo - ResolveTreeModelSortMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeModelSortMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo - ResolveTreeModelSortMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeModelSortMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveTreeModelSortMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveTreeModelSortMethod "iterIsValid" o = TreeModelSortIterIsValidMethodInfo - ResolveTreeModelSortMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveTreeModelSortMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveTreeModelSortMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveTreeModelSortMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveTreeModelSortMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveTreeModelSortMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeModelSortMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeModelSortMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeModelSortMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveTreeModelSortMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeModelSortMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeModelSortMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeModelSortMethod "resetDefaultSortFunc" o = TreeModelSortResetDefaultSortFuncMethodInfo - ResolveTreeModelSortMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveTreeModelSortMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveTreeModelSortMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo - ResolveTreeModelSortMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveTreeModelSortMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveTreeModelSortMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveTreeModelSortMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeModelSortMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo - ResolveTreeModelSortMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveTreeModelSortMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeModelSortMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeModelSortMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeModelSortMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeModelSortMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveTreeModelSortMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeModelSortMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveTreeModelSortMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeModelSortMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveTreeModelSortMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveTreeModelSortMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveTreeModelSortMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveTreeModelSortMethod "getModel" o = TreeModelSortGetModelMethodInfo - ResolveTreeModelSortMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveTreeModelSortMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveTreeModelSortMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeModelSortMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeModelSortMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo - ResolveTreeModelSortMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveTreeModelSortMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveTreeModelSortMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeModelSortMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo - ResolveTreeModelSortMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeModelSortMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo - ResolveTreeModelSortMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo - ResolveTreeModelSortMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeModelSortMethod t TreeModelSort, MethodInfo info TreeModelSort p) => IsLabelProxy t (TreeModelSort -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeModelSortMethod t TreeModelSort, MethodInfo info TreeModelSort p) => IsLabel t (TreeModelSort -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTreeModelSortModel :: (MonadIO m, TreeModelSortK o) => o -> m TreeModel -getTreeModelSortModel obj = liftIO $ checkUnexpectedNothing "getTreeModelSortModel" $ getObjectPropertyObject obj "model" TreeModel - -constructTreeModelSortModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelSortModel val = constructObjectPropertyObject "model" (Just val) - -data TreeModelSortModelPropertyInfo -instance AttrInfo TreeModelSortModelPropertyInfo where - type AttrAllowedOps TreeModelSortModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeModelSortModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeModelSortModelPropertyInfo = TreeModelSortK - type AttrGetType TreeModelSortModelPropertyInfo = TreeModel - type AttrLabel TreeModelSortModelPropertyInfo = "model" - attrGet _ = getTreeModelSortModel - attrSet _ = undefined - attrConstruct _ = constructTreeModelSortModel - attrClear _ = undefined - -type instance AttributeList TreeModelSort = TreeModelSortAttributeList -type TreeModelSortAttributeList = ('[ '("model", TreeModelSortModelPropertyInfo)] :: [(Symbol, *)]) - -treeModelSortModel :: AttrLabelProxy "model" -treeModelSortModel = AttrLabelProxy - -type instance SignalList TreeModelSort = TreeModelSortSignalList -type TreeModelSortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) - --- method TreeModelSort::clear_cache --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", 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 "gtk_tree_model_sort_clear_cache" gtk_tree_model_sort_clear_cache :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - IO () - - -treeModelSortClearCache :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> m () -- result -treeModelSortClearCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_sort_clear_cache _obj' - touchManagedPtr _obj - return () - -data TreeModelSortClearCacheMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortClearCacheMethodInfo a signature where - overloadedMethod _ = treeModelSortClearCache - --- method TreeModelSort::convert_child_iter_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_sort_convert_child_iter_to_iter" gtk_tree_model_sort_convert_child_iter_to_iter :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - Ptr TreeIter -> -- sort_iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelSortConvertChildIterToIter :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> TreeIter -- childIter - -> m (Bool,TreeIter) -- result -treeModelSortConvertChildIterToIter _obj childIter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sortIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let childIter' = unsafeManagedPtrGetPtr childIter - result <- gtk_tree_model_sort_convert_child_iter_to_iter _obj' sortIter childIter' - let result' = (/= 0) result - sortIter' <- (wrapBoxed TreeIter) sortIter - touchManagedPtr _obj - touchManagedPtr childIter - return (result', sortIter') - -data TreeModelSortConvertChildIterToIterMethodInfo -instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertChildIterToIterMethodInfo a signature where - overloadedMethod _ = treeModelSortConvertChildIterToIter - --- method TreeModelSort::convert_child_path_to_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_sort_convert_child_path_to_path" gtk_tree_model_sort_convert_child_path_to_path :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - Ptr TreePath -> -- child_path : TInterface "Gtk" "TreePath" - IO (Ptr TreePath) - - -treeModelSortConvertChildPathToPath :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> TreePath -- childPath - -> m TreePath -- result -treeModelSortConvertChildPathToPath _obj childPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let childPath' = unsafeManagedPtrGetPtr childPath - result <- gtk_tree_model_sort_convert_child_path_to_path _obj' childPath' - checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_child_path_to_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr childPath - return result' - -data TreeModelSortConvertChildPathToPathMethodInfo -instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertChildPathToPathMethodInfo a signature where - overloadedMethod _ = treeModelSortConvertChildPathToPath - --- method TreeModelSort::convert_iter_to_child_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_sort_convert_iter_to_child_iter" gtk_tree_model_sort_convert_iter_to_child_iter :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - Ptr TreeIter -> -- child_iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- sorted_iter : TInterface "Gtk" "TreeIter" - IO () - - -treeModelSortConvertIterToChildIter :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> TreeIter -- sortedIter - -> m (TreeIter) -- result -treeModelSortConvertIterToChildIter _obj sortedIter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - childIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let sortedIter' = unsafeManagedPtrGetPtr sortedIter - gtk_tree_model_sort_convert_iter_to_child_iter _obj' childIter sortedIter' - childIter' <- (wrapBoxed TreeIter) childIter - touchManagedPtr _obj - touchManagedPtr sortedIter - return childIter' - -data TreeModelSortConvertIterToChildIterMethodInfo -instance (signature ~ (TreeIter -> m (TreeIter)), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertIterToChildIterMethodInfo a signature where - overloadedMethod _ = treeModelSortConvertIterToChildIter - --- method TreeModelSort::convert_path_to_child_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_sort_convert_path_to_child_path" gtk_tree_model_sort_convert_path_to_child_path :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - Ptr TreePath -> -- sorted_path : TInterface "Gtk" "TreePath" - IO (Ptr TreePath) - - -treeModelSortConvertPathToChildPath :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> TreePath -- sortedPath - -> m TreePath -- result -treeModelSortConvertPathToChildPath _obj sortedPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sortedPath' = unsafeManagedPtrGetPtr sortedPath - result <- gtk_tree_model_sort_convert_path_to_child_path _obj' sortedPath' - checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_path_to_child_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr sortedPath - return result' - -data TreeModelSortConvertPathToChildPathMethodInfo -instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertPathToChildPathMethodInfo a signature where - overloadedMethod _ = treeModelSortConvertPathToChildPath - --- method TreeModelSort::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_model_sort_get_model" gtk_tree_model_sort_get_model :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - IO (Ptr TreeModel) - - -treeModelSortGetModel :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> m TreeModel -- result -treeModelSortGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_sort_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_model_sort_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data TreeModelSortGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortGetModelMethodInfo a signature where - overloadedMethod _ = treeModelSortGetModel - --- method TreeModelSort::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_model_sort_iter_is_valid" gtk_tree_model_sort_iter_is_valid :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeModelSortIterIsValid :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeModelSortIterIsValid _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_model_sort_iter_is_valid _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeModelSortIterIsValidMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortIterIsValidMethodInfo a signature where - overloadedMethod _ = treeModelSortIterIsValid - --- method TreeModelSort::reset_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", 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 "gtk_tree_model_sort_reset_default_sort_func" gtk_tree_model_sort_reset_default_sort_func :: - Ptr TreeModelSort -> -- _obj : TInterface "Gtk" "TreeModelSort" - IO () - - -treeModelSortResetDefaultSortFunc :: - (MonadIO m, TreeModelSortK a) => - a -- _obj - -> m () -- result -treeModelSortResetDefaultSortFunc _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_sort_reset_default_sort_func _obj' - touchManagedPtr _obj - return () - -data TreeModelSortResetDefaultSortFuncMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortResetDefaultSortFuncMethodInfo a signature where - overloadedMethod _ = treeModelSortResetDefaultSortFunc - - diff --git a/GI/Gtk/Objects/TreeModelSort.hs-boot b/GI/Gtk/Objects/TreeModelSort.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeModelSort.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.TreeModelSort 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 TreeModelSort = TreeModelSort (ForeignPtr TreeModelSort) -instance GObject TreeModelSort where -class GObject o => TreeModelSortK o -instance (GObject o, IsDescendantOf TreeModelSort o) => TreeModelSortK o -data TreeModelSortModelPropertyInfo -data TreeModelSortClearCacheMethodInfo -data TreeModelSortConvertChildIterToIterMethodInfo -data TreeModelSortConvertChildPathToPathMethodInfo -data TreeModelSortConvertIterToChildIterMethodInfo -data TreeModelSortConvertPathToChildPathMethodInfo -data TreeModelSortGetModelMethodInfo -data TreeModelSortIterIsValidMethodInfo -data TreeModelSortResetDefaultSortFuncMethodInfo diff --git a/GI/Gtk/Objects/TreeSelection.hs b/GI/Gtk/Objects/TreeSelection.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeSelection.hs +++ /dev/null @@ -1,866 +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.Gtk.Objects.TreeSelection - ( - --- * Exported types - TreeSelection(..) , - TreeSelectionK , - toTreeSelection , - noTreeSelection , - - - -- * Methods --- ** treeSelectionCountSelectedRows - TreeSelectionCountSelectedRowsMethodInfo, - treeSelectionCountSelectedRows , - - --- ** treeSelectionGetMode - TreeSelectionGetModeMethodInfo , - treeSelectionGetMode , - - --- ** treeSelectionGetSelected - TreeSelectionGetSelectedMethodInfo , - treeSelectionGetSelected , - - --- ** treeSelectionGetSelectedRows - TreeSelectionGetSelectedRowsMethodInfo , - treeSelectionGetSelectedRows , - - --- ** treeSelectionGetTreeView - TreeSelectionGetTreeViewMethodInfo , - treeSelectionGetTreeView , - - --- ** treeSelectionIterIsSelected - TreeSelectionIterIsSelectedMethodInfo , - treeSelectionIterIsSelected , - - --- ** treeSelectionPathIsSelected - TreeSelectionPathIsSelectedMethodInfo , - treeSelectionPathIsSelected , - - --- ** treeSelectionSelectAll - TreeSelectionSelectAllMethodInfo , - treeSelectionSelectAll , - - --- ** treeSelectionSelectIter - TreeSelectionSelectIterMethodInfo , - treeSelectionSelectIter , - - --- ** treeSelectionSelectPath - TreeSelectionSelectPathMethodInfo , - treeSelectionSelectPath , - - --- ** treeSelectionSelectRange - TreeSelectionSelectRangeMethodInfo , - treeSelectionSelectRange , - - --- ** treeSelectionSelectedForeach - TreeSelectionSelectedForeachMethodInfo , - treeSelectionSelectedForeach , - - --- ** treeSelectionSetMode - TreeSelectionSetModeMethodInfo , - treeSelectionSetMode , - - --- ** treeSelectionSetSelectFunction - TreeSelectionSetSelectFunctionMethodInfo, - treeSelectionSetSelectFunction , - - --- ** treeSelectionUnselectAll - TreeSelectionUnselectAllMethodInfo , - treeSelectionUnselectAll , - - --- ** treeSelectionUnselectIter - TreeSelectionUnselectIterMethodInfo , - treeSelectionUnselectIter , - - --- ** treeSelectionUnselectPath - TreeSelectionUnselectPathMethodInfo , - treeSelectionUnselectPath , - - --- ** treeSelectionUnselectRange - TreeSelectionUnselectRangeMethodInfo , - treeSelectionUnselectRange , - - - - - -- * Properties --- ** Mode - TreeSelectionModePropertyInfo , - constructTreeSelectionMode , - getTreeSelectionMode , - setTreeSelectionMode , - treeSelectionMode , - - - - - -- * Signals --- ** Changed - TreeSelectionChangedCallback , - TreeSelectionChangedCallbackC , - TreeSelectionChangedSignalInfo , - afterTreeSelectionChanged , - mkTreeSelectionChangedCallback , - noTreeSelectionChangedCallback , - onTreeSelectionChanged , - treeSelectionChangedCallbackWrapper , - treeSelectionChangedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype TreeSelection = TreeSelection (ForeignPtr TreeSelection) -foreign import ccall "gtk_tree_selection_get_type" - c_gtk_tree_selection_get_type :: IO GType - -type instance ParentTypes TreeSelection = TreeSelectionParentTypes -type TreeSelectionParentTypes = '[GObject.Object] - -instance GObject TreeSelection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_selection_get_type - - -class GObject o => TreeSelectionK o -instance (GObject o, IsDescendantOf TreeSelection o) => TreeSelectionK o - -toTreeSelection :: TreeSelectionK o => o -> IO TreeSelection -toTreeSelection = unsafeCastTo TreeSelection - -noTreeSelection :: Maybe TreeSelection -noTreeSelection = Nothing - -type family ResolveTreeSelectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeSelectionMethod "countSelectedRows" o = TreeSelectionCountSelectedRowsMethodInfo - ResolveTreeSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeSelectionMethod "iterIsSelected" o = TreeSelectionIterIsSelectedMethodInfo - ResolveTreeSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeSelectionMethod "pathIsSelected" o = TreeSelectionPathIsSelectedMethodInfo - ResolveTreeSelectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeSelectionMethod "selectAll" o = TreeSelectionSelectAllMethodInfo - ResolveTreeSelectionMethod "selectIter" o = TreeSelectionSelectIterMethodInfo - ResolveTreeSelectionMethod "selectPath" o = TreeSelectionSelectPathMethodInfo - ResolveTreeSelectionMethod "selectRange" o = TreeSelectionSelectRangeMethodInfo - ResolveTreeSelectionMethod "selectedForeach" o = TreeSelectionSelectedForeachMethodInfo - ResolveTreeSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeSelectionMethod "unselectAll" o = TreeSelectionUnselectAllMethodInfo - ResolveTreeSelectionMethod "unselectIter" o = TreeSelectionUnselectIterMethodInfo - ResolveTreeSelectionMethod "unselectPath" o = TreeSelectionUnselectPathMethodInfo - ResolveTreeSelectionMethod "unselectRange" o = TreeSelectionUnselectRangeMethodInfo - ResolveTreeSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeSelectionMethod "getMode" o = TreeSelectionGetModeMethodInfo - ResolveTreeSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeSelectionMethod "getSelected" o = TreeSelectionGetSelectedMethodInfo - ResolveTreeSelectionMethod "getSelectedRows" o = TreeSelectionGetSelectedRowsMethodInfo - ResolveTreeSelectionMethod "getTreeView" o = TreeSelectionGetTreeViewMethodInfo - ResolveTreeSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeSelectionMethod "setMode" o = TreeSelectionSetModeMethodInfo - ResolveTreeSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeSelectionMethod "setSelectFunction" o = TreeSelectionSetSelectFunctionMethodInfo - ResolveTreeSelectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeSelectionMethod t TreeSelection, MethodInfo info TreeSelection p) => IsLabelProxy t (TreeSelection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeSelectionMethod t TreeSelection, MethodInfo info TreeSelection p) => IsLabel t (TreeSelection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TreeSelection::changed -type TreeSelectionChangedCallback = - IO () - -noTreeSelectionChangedCallback :: Maybe TreeSelectionChangedCallback -noTreeSelectionChangedCallback = Nothing - -type TreeSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeSelectionChangedCallback :: TreeSelectionChangedCallbackC -> IO (FunPtr TreeSelectionChangedCallbackC) - -treeSelectionChangedClosure :: TreeSelectionChangedCallback -> IO Closure -treeSelectionChangedClosure cb = newCClosure =<< mkTreeSelectionChangedCallback wrapped - where wrapped = treeSelectionChangedCallbackWrapper cb - -treeSelectionChangedCallbackWrapper :: - TreeSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeSelectionChanged :: (GObject a, MonadIO m) => a -> TreeSelectionChangedCallback -> m SignalHandlerId -onTreeSelectionChanged obj cb = liftIO $ connectTreeSelectionChanged obj cb SignalConnectBefore -afterTreeSelectionChanged :: (GObject a, MonadIO m) => a -> TreeSelectionChangedCallback -> m SignalHandlerId -afterTreeSelectionChanged obj cb = connectTreeSelectionChanged obj cb SignalConnectAfter - -connectTreeSelectionChanged :: (GObject a, MonadIO m) => - a -> TreeSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeSelectionChanged obj cb after = liftIO $ do - cb' <- mkTreeSelectionChangedCallback (treeSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeSelectionMode :: (MonadIO m, TreeSelectionK o) => o -> m SelectionMode -getTreeSelectionMode obj = liftIO $ getObjectPropertyEnum obj "mode" - -setTreeSelectionMode :: (MonadIO m, TreeSelectionK o) => o -> SelectionMode -> m () -setTreeSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "mode" val - -constructTreeSelectionMode :: SelectionMode -> IO ([Char], GValue) -constructTreeSelectionMode val = constructObjectPropertyEnum "mode" val - -data TreeSelectionModePropertyInfo -instance AttrInfo TreeSelectionModePropertyInfo where - type AttrAllowedOps TreeSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeSelectionModePropertyInfo = (~) SelectionMode - type AttrBaseTypeConstraint TreeSelectionModePropertyInfo = TreeSelectionK - type AttrGetType TreeSelectionModePropertyInfo = SelectionMode - type AttrLabel TreeSelectionModePropertyInfo = "mode" - attrGet _ = getTreeSelectionMode - attrSet _ = setTreeSelectionMode - attrConstruct _ = constructTreeSelectionMode - attrClear _ = undefined - -type instance AttributeList TreeSelection = TreeSelectionAttributeList -type TreeSelectionAttributeList = ('[ '("mode", TreeSelectionModePropertyInfo)] :: [(Symbol, *)]) - -treeSelectionMode :: AttrLabelProxy "mode" -treeSelectionMode = AttrLabelProxy - -data TreeSelectionChangedSignalInfo -instance SignalInfo TreeSelectionChangedSignalInfo where - type HaskellCallbackType TreeSelectionChangedSignalInfo = TreeSelectionChangedCallback - connectSignal _ = connectTreeSelectionChanged - -type instance SignalList TreeSelection = TreeSelectionSignalList -type TreeSelectionSignalList = ('[ '("changed", TreeSelectionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeSelection::count_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", 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 "gtk_tree_selection_count_selected_rows" gtk_tree_selection_count_selected_rows :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - IO Int32 - - -treeSelectionCountSelectedRows :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m Int32 -- result -treeSelectionCountSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_selection_count_selected_rows _obj' - touchManagedPtr _obj - return result - -data TreeSelectionCountSelectedRowsMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionCountSelectedRowsMethodInfo a signature where - overloadedMethod _ = treeSelectionCountSelectedRows - --- method TreeSelection::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_selection_get_mode" gtk_tree_selection_get_mode :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - IO CUInt - - -treeSelectionGetMode :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m SelectionMode -- result -treeSelectionGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_selection_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TreeSelectionGetModeMethodInfo -instance (signature ~ (m SelectionMode), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetModeMethodInfo a signature where - overloadedMethod _ = treeSelectionGetMode - --- method TreeSelection::get_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_selection_get_selected" gtk_tree_selection_get_selected :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeSelectionGetSelected :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m (Bool,TreeModel,TreeIter) -- result -treeSelectionGetSelected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_tree_selection_get_selected _obj' model iter - let result' = (/= 0) result - model' <- peek model - model'' <- (newObject TreeModel) model' - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem model - return (result', model'', iter') - -data TreeSelectionGetSelectedMethodInfo -instance (signature ~ (m (Bool,TreeModel,TreeIter)), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetSelectedMethodInfo a signature where - overloadedMethod _ = treeSelectionGetSelected - --- method TreeSelection::get_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "TreePath")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_selection_get_selected_rows" gtk_tree_selection_get_selected_rows :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr (GList (Ptr TreePath))) - - -treeSelectionGetSelectedRows :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m ([TreePath],TreeModel) -- result -treeSelectionGetSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - result <- gtk_tree_selection_get_selected_rows _obj' model - result' <- unpackGList result - result'' <- mapM (wrapBoxed TreePath) result' - g_list_free result - model' <- peek model - model'' <- (newObject TreeModel) model' - touchManagedPtr _obj - freeMem model - return (result'', model'') - -data TreeSelectionGetSelectedRowsMethodInfo -instance (signature ~ (m ([TreePath],TreeModel)), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetSelectedRowsMethodInfo a signature where - overloadedMethod _ = treeSelectionGetSelectedRows - --- method TreeSelection::get_tree_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_selection_get_tree_view" gtk_tree_selection_get_tree_view :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - IO (Ptr TreeView) - - -treeSelectionGetTreeView :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m TreeView -- result -treeSelectionGetTreeView _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_selection_get_tree_view _obj' - checkUnexpectedReturnNULL "gtk_tree_selection_get_tree_view" result - result' <- (newObject TreeView) result - touchManagedPtr _obj - return result' - -data TreeSelectionGetTreeViewMethodInfo -instance (signature ~ (m TreeView), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetTreeViewMethodInfo a signature where - overloadedMethod _ = treeSelectionGetTreeView - --- method TreeSelection::iter_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_selection_iter_is_selected" gtk_tree_selection_iter_is_selected :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeSelectionIterIsSelected :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeSelectionIterIsSelected _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_selection_iter_is_selected _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeSelectionIterIsSelectedMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionIterIsSelectedMethodInfo a signature where - overloadedMethod _ = treeSelectionIterIsSelected - --- method TreeSelection::path_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_selection_path_is_selected" gtk_tree_selection_path_is_selected :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeSelectionPathIsSelected :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -treeSelectionPathIsSelected _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_selection_path_is_selected _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeSelectionPathIsSelectedMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionPathIsSelectedMethodInfo a signature where - overloadedMethod _ = treeSelectionPathIsSelected - --- method TreeSelection::select_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", 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 "gtk_tree_selection_select_all" gtk_tree_selection_select_all :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - IO () - - -treeSelectionSelectAll :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m () -- result -treeSelectionSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_selection_select_all _obj' - touchManagedPtr _obj - return () - -data TreeSelectionSelectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectAllMethodInfo a signature where - overloadedMethod _ = treeSelectionSelectAll - --- method TreeSelection::select_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_selection_select_iter" gtk_tree_selection_select_iter :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeSelectionSelectIter :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreeIter -- iter - -> m () -- result -treeSelectionSelectIter _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_selection_select_iter _obj' iter' - touchManagedPtr _obj - touchManagedPtr iter - return () - -data TreeSelectionSelectIterMethodInfo -instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectIterMethodInfo a signature where - overloadedMethod _ = treeSelectionSelectIter - --- method TreeSelection::select_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_selection_select_path" gtk_tree_selection_select_path :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeSelectionSelectPath :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -treeSelectionSelectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_tree_selection_select_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data TreeSelectionSelectPathMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectPathMethodInfo a signature where - overloadedMethod _ = treeSelectionSelectPath - --- method TreeSelection::select_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_selection_select_range" gtk_tree_selection_select_range :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreePath -> -- start_path : TInterface "Gtk" "TreePath" - Ptr TreePath -> -- end_path : TInterface "Gtk" "TreePath" - IO () - - -treeSelectionSelectRange :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreePath -- startPath - -> TreePath -- endPath - -> m () -- result -treeSelectionSelectRange _obj startPath endPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let startPath' = unsafeManagedPtrGetPtr startPath - let endPath' = unsafeManagedPtrGetPtr endPath - gtk_tree_selection_select_range _obj' startPath' endPath' - touchManagedPtr _obj - touchManagedPtr startPath - touchManagedPtr endPath - return () - -data TreeSelectionSelectRangeMethodInfo -instance (signature ~ (TreePath -> TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectRangeMethodInfo a signature where - overloadedMethod _ = treeSelectionSelectRange - --- method TreeSelection::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_tree_selection_selected_foreach" gtk_tree_selection_selected_foreach :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - FunPtr TreeSelectionForeachFuncC -> -- func : TInterface "Gtk" "TreeSelectionForeachFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -treeSelectionSelectedForeach :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreeSelectionForeachFunc -- func - -> m () -- result -treeSelectionSelectedForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeSelectionForeachFunc (treeSelectionForeachFuncWrapper Nothing func) - let data_ = nullPtr - gtk_tree_selection_selected_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data TreeSelectionSelectedForeachMethodInfo -instance (signature ~ (TreeSelectionForeachFunc -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectedForeachMethodInfo a signature where - overloadedMethod _ = treeSelectionSelectedForeach - --- method TreeSelection::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "SelectionMode", 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 "gtk_tree_selection_set_mode" gtk_tree_selection_set_mode :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - CUInt -> -- type : TInterface "Gtk" "SelectionMode" - IO () - - -treeSelectionSetMode :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> SelectionMode -- type_ - -> m () -- result -treeSelectionSetMode _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_tree_selection_set_mode _obj' type_' - touchManagedPtr _obj - return () - -data TreeSelectionSetModeMethodInfo -instance (signature ~ (SelectionMode -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSetModeMethodInfo a signature where - overloadedMethod _ = treeSelectionSetMode - --- method TreeSelection::set_select_function --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_selection_set_select_function" gtk_tree_selection_set_select_function :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - FunPtr TreeSelectionFuncC -> -- func : TInterface "Gtk" "TreeSelectionFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSelectionSetSelectFunction :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreeSelectionFunc -- func - -> m () -- result -treeSelectionSetSelectFunction _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeSelectionFunc (treeSelectionFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let destroy = safeFreeFunPtrPtr - gtk_tree_selection_set_select_function _obj' func' data_ destroy - touchManagedPtr _obj - return () - -data TreeSelectionSetSelectFunctionMethodInfo -instance (signature ~ (TreeSelectionFunc -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSetSelectFunctionMethodInfo a signature where - overloadedMethod _ = treeSelectionSetSelectFunction - --- method TreeSelection::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", 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 "gtk_tree_selection_unselect_all" gtk_tree_selection_unselect_all :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - IO () - - -treeSelectionUnselectAll :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> m () -- result -treeSelectionUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_selection_unselect_all _obj' - touchManagedPtr _obj - return () - -data TreeSelectionUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectAllMethodInfo a signature where - overloadedMethod _ = treeSelectionUnselectAll - --- method TreeSelection::unselect_iter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_selection_unselect_iter" gtk_tree_selection_unselect_iter :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO () - - -treeSelectionUnselectIter :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreeIter -- iter - -> m () -- result -treeSelectionUnselectIter _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - gtk_tree_selection_unselect_iter _obj' iter' - touchManagedPtr _obj - touchManagedPtr iter - return () - -data TreeSelectionUnselectIterMethodInfo -instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectIterMethodInfo a signature where - overloadedMethod _ = treeSelectionUnselectIter - --- method TreeSelection::unselect_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_selection_unselect_path" gtk_tree_selection_unselect_path :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeSelectionUnselectPath :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -treeSelectionUnselectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_tree_selection_unselect_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data TreeSelectionUnselectPathMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectPathMethodInfo a signature where - overloadedMethod _ = treeSelectionUnselectPath - --- method TreeSelection::unselect_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_selection_unselect_range" gtk_tree_selection_unselect_range :: - Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" - Ptr TreePath -> -- start_path : TInterface "Gtk" "TreePath" - Ptr TreePath -> -- end_path : TInterface "Gtk" "TreePath" - IO () - - -treeSelectionUnselectRange :: - (MonadIO m, TreeSelectionK a) => - a -- _obj - -> TreePath -- startPath - -> TreePath -- endPath - -> m () -- result -treeSelectionUnselectRange _obj startPath endPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let startPath' = unsafeManagedPtrGetPtr startPath - let endPath' = unsafeManagedPtrGetPtr endPath - gtk_tree_selection_unselect_range _obj' startPath' endPath' - touchManagedPtr _obj - touchManagedPtr startPath - touchManagedPtr endPath - return () - -data TreeSelectionUnselectRangeMethodInfo -instance (signature ~ (TreePath -> TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectRangeMethodInfo a signature where - overloadedMethod _ = treeSelectionUnselectRange - - diff --git a/GI/Gtk/Objects/TreeSelection.hs-boot b/GI/Gtk/Objects/TreeSelection.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeSelection.hs-boot +++ /dev/null @@ -1,33 +0,0 @@ -module GI.Gtk.Objects.TreeSelection 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 TreeSelection = TreeSelection (ForeignPtr TreeSelection) -instance GObject TreeSelection where -class GObject o => TreeSelectionK o -instance (GObject o, IsDescendantOf TreeSelection o) => TreeSelectionK o -data TreeSelectionModePropertyInfo -data TreeSelectionChangedSignalInfo -data TreeSelectionCountSelectedRowsMethodInfo -data TreeSelectionGetModeMethodInfo -data TreeSelectionGetSelectedMethodInfo -data TreeSelectionGetSelectedRowsMethodInfo -data TreeSelectionGetTreeViewMethodInfo -data TreeSelectionIterIsSelectedMethodInfo -data TreeSelectionPathIsSelectedMethodInfo -data TreeSelectionSelectAllMethodInfo -data TreeSelectionSelectIterMethodInfo -data TreeSelectionSelectPathMethodInfo -data TreeSelectionSelectRangeMethodInfo -data TreeSelectionSelectedForeachMethodInfo -data TreeSelectionSetModeMethodInfo -data TreeSelectionSetSelectFunctionMethodInfo -data TreeSelectionUnselectAllMethodInfo -data TreeSelectionUnselectIterMethodInfo -data TreeSelectionUnselectPathMethodInfo -data TreeSelectionUnselectRangeMethodInfo diff --git a/GI/Gtk/Objects/TreeStore.hs b/GI/Gtk/Objects/TreeStore.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeStore.hs +++ /dev/null @@ -1,925 +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.Gtk.Objects.TreeStore - ( - --- * Exported types - TreeStore(..) , - TreeStoreK , - toTreeStore , - noTreeStore , - - - -- * Methods --- ** treeStoreAppend - TreeStoreAppendMethodInfo , - treeStoreAppend , - - --- ** treeStoreClear - TreeStoreClearMethodInfo , - treeStoreClear , - - --- ** treeStoreInsert - TreeStoreInsertMethodInfo , - treeStoreInsert , - - --- ** treeStoreInsertAfter - TreeStoreInsertAfterMethodInfo , - treeStoreInsertAfter , - - --- ** treeStoreInsertBefore - TreeStoreInsertBeforeMethodInfo , - treeStoreInsertBefore , - - --- ** treeStoreInsertWithValues - TreeStoreInsertWithValuesMethodInfo , - treeStoreInsertWithValues , - - --- ** treeStoreIsAncestor - TreeStoreIsAncestorMethodInfo , - treeStoreIsAncestor , - - --- ** treeStoreIterDepth - TreeStoreIterDepthMethodInfo , - treeStoreIterDepth , - - --- ** treeStoreIterIsValid - TreeStoreIterIsValidMethodInfo , - treeStoreIterIsValid , - - --- ** treeStoreMoveAfter - TreeStoreMoveAfterMethodInfo , - treeStoreMoveAfter , - - --- ** treeStoreMoveBefore - TreeStoreMoveBeforeMethodInfo , - treeStoreMoveBefore , - - --- ** treeStoreNew - treeStoreNew , - - --- ** treeStorePrepend - TreeStorePrependMethodInfo , - treeStorePrepend , - - --- ** treeStoreRemove - TreeStoreRemoveMethodInfo , - treeStoreRemove , - - --- ** treeStoreSet - TreeStoreSetMethodInfo , - treeStoreSet , - - --- ** treeStoreSetColumnTypes - TreeStoreSetColumnTypesMethodInfo , - treeStoreSetColumnTypes , - - --- ** treeStoreSetValue - TreeStoreSetValueMethodInfo , - treeStoreSetValue , - - --- ** treeStoreSwap - TreeStoreSwapMethodInfo , - treeStoreSwap , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TreeStore = TreeStore (ForeignPtr TreeStore) -foreign import ccall "gtk_tree_store_get_type" - c_gtk_tree_store_get_type :: IO GType - -type instance ParentTypes TreeStore = TreeStoreParentTypes -type TreeStoreParentTypes = '[GObject.Object, Buildable, TreeDragDest, TreeDragSource, TreeModel, TreeSortable] - -instance GObject TreeStore where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_store_get_type - - -class GObject o => TreeStoreK o -instance (GObject o, IsDescendantOf TreeStore o) => TreeStoreK o - -toTreeStore :: TreeStoreK o => o -> IO TreeStore -toTreeStore = unsafeCastTo TreeStore - -noTreeStore :: Maybe TreeStore -noTreeStore = Nothing - -type family ResolveTreeStoreMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeStoreMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTreeStoreMethod "append" o = TreeStoreAppendMethodInfo - ResolveTreeStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeStoreMethod "clear" o = TreeStoreClearMethodInfo - ResolveTreeStoreMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTreeStoreMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTreeStoreMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTreeStoreMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTreeStoreMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo - ResolveTreeStoreMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo - ResolveTreeStoreMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo - ResolveTreeStoreMethod "filterNew" o = TreeModelFilterNewMethodInfo - ResolveTreeStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeStoreMethod "foreach" o = TreeModelForeachMethodInfo - ResolveTreeStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeStoreMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo - ResolveTreeStoreMethod "insert" o = TreeStoreInsertMethodInfo - ResolveTreeStoreMethod "insertAfter" o = TreeStoreInsertAfterMethodInfo - ResolveTreeStoreMethod "insertBefore" o = TreeStoreInsertBeforeMethodInfo - ResolveTreeStoreMethod "insertWithValues" o = TreeStoreInsertWithValuesMethodInfo - ResolveTreeStoreMethod "isAncestor" o = TreeStoreIsAncestorMethodInfo - ResolveTreeStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeStoreMethod "iterChildren" o = TreeModelIterChildrenMethodInfo - ResolveTreeStoreMethod "iterDepth" o = TreeStoreIterDepthMethodInfo - ResolveTreeStoreMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo - ResolveTreeStoreMethod "iterIsValid" o = TreeStoreIterIsValidMethodInfo - ResolveTreeStoreMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo - ResolveTreeStoreMethod "iterNext" o = TreeModelIterNextMethodInfo - ResolveTreeStoreMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo - ResolveTreeStoreMethod "iterParent" o = TreeModelIterParentMethodInfo - ResolveTreeStoreMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo - ResolveTreeStoreMethod "moveAfter" o = TreeStoreMoveAfterMethodInfo - ResolveTreeStoreMethod "moveBefore" o = TreeStoreMoveBeforeMethodInfo - ResolveTreeStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeStoreMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTreeStoreMethod "prepend" o = TreeStorePrependMethodInfo - ResolveTreeStoreMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeStoreMethod "refNode" o = TreeModelRefNodeMethodInfo - ResolveTreeStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeStoreMethod "remove" o = TreeStoreRemoveMethodInfo - ResolveTreeStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeStoreMethod "rowChanged" o = TreeModelRowChangedMethodInfo - ResolveTreeStoreMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo - ResolveTreeStoreMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo - ResolveTreeStoreMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo - ResolveTreeStoreMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo - ResolveTreeStoreMethod "rowInserted" o = TreeModelRowInsertedMethodInfo - ResolveTreeStoreMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo - ResolveTreeStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeStoreMethod "set" o = TreeStoreSetMethodInfo - ResolveTreeStoreMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo - ResolveTreeStoreMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo - ResolveTreeStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeStoreMethod "swap" o = TreeStoreSwapMethodInfo - ResolveTreeStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeStoreMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo - ResolveTreeStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeStoreMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo - ResolveTreeStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeStoreMethod "getFlags" o = TreeModelGetFlagsMethodInfo - ResolveTreeStoreMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTreeStoreMethod "getIter" o = TreeModelGetIterMethodInfo - ResolveTreeStoreMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo - ResolveTreeStoreMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo - ResolveTreeStoreMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo - ResolveTreeStoreMethod "getName" o = BuildableGetNameMethodInfo - ResolveTreeStoreMethod "getPath" o = TreeModelGetPathMethodInfo - ResolveTreeStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeStoreMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo - ResolveTreeStoreMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo - ResolveTreeStoreMethod "getValue" o = TreeModelGetValueMethodInfo - ResolveTreeStoreMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTreeStoreMethod "setColumnTypes" o = TreeStoreSetColumnTypesMethodInfo - ResolveTreeStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeStoreMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo - ResolveTreeStoreMethod "setName" o = BuildableSetNameMethodInfo - ResolveTreeStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeStoreMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo - ResolveTreeStoreMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo - ResolveTreeStoreMethod "setValue" o = TreeStoreSetValueMethodInfo - ResolveTreeStoreMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeStoreMethod t TreeStore, MethodInfo info TreeStore p) => IsLabelProxy t (TreeStore -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeStoreMethod t TreeStore, MethodInfo info TreeStore p) => IsLabel t (TreeStore -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TreeStore = TreeStoreAttributeList -type TreeStoreAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TreeStore = TreeStoreSignalList -type TreeStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) - --- method TreeStore::new --- method type : Constructor --- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gtk" "TreeStore") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_newv" gtk_tree_store_newv :: - Int32 -> -- n_columns : TBasicType TInt - Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) - IO (Ptr TreeStore) - - -treeStoreNew :: - (MonadIO m) => - [GType] -- types - -> m TreeStore -- result -treeStoreNew types = liftIO $ do - let nColumns = fromIntegral $ length types - types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_tree_store_newv nColumns types' - checkUnexpectedReturnNULL "gtk_tree_store_newv" result - result' <- (wrapObject TreeStore) result - freeMem types' - return result' - --- method TreeStore::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_append" gtk_tree_store_append :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreAppend :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> m (TreeIter) -- result -treeStoreAppend _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - gtk_tree_store_append _obj' iter maybeParent - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - return iter' - -data TreeStoreAppendMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreAppendMethodInfo a signature where - overloadedMethod _ = treeStoreAppend - --- method TreeStore::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", 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 "gtk_tree_store_clear" gtk_tree_store_clear :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - IO () - - -treeStoreClear :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> m () -- result -treeStoreClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_store_clear _obj' - touchManagedPtr _obj - return () - -data TreeStoreClearMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreClearMethodInfo a signature where - overloadedMethod _ = treeStoreClear - --- method TreeStore::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, 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 "gtk_tree_store_insert" gtk_tree_store_insert :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt - IO () - - -treeStoreInsert :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> Int32 -- position - -> m (TreeIter) -- result -treeStoreInsert _obj parent position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - gtk_tree_store_insert _obj' iter maybeParent position - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - return iter' - -data TreeStoreInsertMethodInfo -instance (signature ~ (Maybe (TreeIter) -> Int32 -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertMethodInfo a signature where - overloadedMethod _ = treeStoreInsert - --- method TreeStore::insert_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_insert_after" gtk_tree_store_insert_after :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreInsertAfter :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> Maybe (TreeIter) -- sibling - -> m (TreeIter) -- result -treeStoreInsertAfter _obj parent sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrGetPtr jSibling - return jSibling' - gtk_tree_store_insert_after _obj' iter maybeParent maybeSibling - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - whenJust sibling touchManagedPtr - return iter' - -data TreeStoreInsertAfterMethodInfo -instance (signature ~ (Maybe (TreeIter) -> Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertAfterMethodInfo a signature where - overloadedMethod _ = treeStoreInsertAfter - --- method TreeStore::insert_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_insert_before" gtk_tree_store_insert_before :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- sibling : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreInsertBefore :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> Maybe (TreeIter) -- sibling - -> m (TreeIter) -- result -treeStoreInsertBefore _obj parent sibling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrGetPtr jSibling - return jSibling' - gtk_tree_store_insert_before _obj' iter maybeParent maybeSibling - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - whenJust sibling touchManagedPtr - return iter' - -data TreeStoreInsertBeforeMethodInfo -instance (signature ~ (Maybe (TreeIter) -> Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertBeforeMethodInfo a signature where - overloadedMethod _ = treeStoreInsertBefore - --- method TreeStore::insert_with_values --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_tree_store_insert_with_valuesv" gtk_tree_store_insert_with_valuesv :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt - Ptr Int32 -> -- columns : TCArray False (-1) 6 (TBasicType TInt) - Ptr GValue -> -- values : TCArray False (-1) 6 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt - IO () - - -treeStoreInsertWithValues :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> Int32 -- position - -> [Int32] -- columns - -> [GValue] -- values - -> m (TreeIter) -- result -treeStoreInsertWithValues _obj parent position columns values = liftIO $ do - let nValues = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= nValues) $ - error "Gtk.treeStoreInsertWithValues : length of 'columns' does not agree with that of 'values'." - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - columns' <- packStorableArray columns - let values' = map unsafeManagedPtrGetPtr values - values'' <- packBlockArray 24 values' - gtk_tree_store_insert_with_valuesv _obj' iter maybeParent position columns' values'' nValues - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return iter' - -data TreeStoreInsertWithValuesMethodInfo -instance (signature ~ (Maybe (TreeIter) -> Int32 -> [Int32] -> [GValue] -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertWithValuesMethodInfo a signature where - overloadedMethod _ = treeStoreInsertWithValues - --- method TreeStore::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_store_is_ancestor" gtk_tree_store_is_ancestor :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- descendant : TInterface "Gtk" "TreeIter" - IO CInt - - -treeStoreIsAncestor :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> TreeIter -- descendant - -> m Bool -- result -treeStoreIsAncestor _obj iter descendant = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let descendant' = unsafeManagedPtrGetPtr descendant - result <- gtk_tree_store_is_ancestor _obj' iter' descendant' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr descendant - return result' - -data TreeStoreIsAncestorMethodInfo -instance (signature ~ (TreeIter -> TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIsAncestorMethodInfo a signature where - overloadedMethod _ = treeStoreIsAncestor - --- method TreeStore::iter_depth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_store_iter_depth" gtk_tree_store_iter_depth :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO Int32 - - -treeStoreIterDepth :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> m Int32 -- result -treeStoreIterDepth _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_store_iter_depth _obj' iter' - touchManagedPtr _obj - touchManagedPtr iter - return result - -data TreeStoreIterDepthMethodInfo -instance (signature ~ (TreeIter -> m Int32), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIterDepthMethodInfo a signature where - overloadedMethod _ = treeStoreIterDepth - --- method TreeStore::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_store_iter_is_valid" gtk_tree_store_iter_is_valid :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeStoreIterIsValid :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeStoreIterIsValid _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_store_iter_is_valid _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeStoreIterIsValidMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIterIsValidMethodInfo a signature where - overloadedMethod _ = treeStoreIterIsValid - --- method TreeStore::move_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_move_after" gtk_tree_store_move_after :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreMoveAfter :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Maybe (TreeIter) -- position - -> m () -- result -treeStoreMoveAfter _obj iter position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - maybePosition <- case position of - Nothing -> return nullPtr - Just jPosition -> do - let jPosition' = unsafeManagedPtrGetPtr jPosition - return jPosition' - gtk_tree_store_move_after _obj' iter' maybePosition - touchManagedPtr _obj - touchManagedPtr iter - whenJust position touchManagedPtr - return () - -data TreeStoreMoveAfterMethodInfo -instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreMoveAfterMethodInfo a signature where - overloadedMethod _ = treeStoreMoveAfter - --- method TreeStore::move_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_move_before" gtk_tree_store_move_before :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- position : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreMoveBefore :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Maybe (TreeIter) -- position - -> m () -- result -treeStoreMoveBefore _obj iter position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - maybePosition <- case position of - Nothing -> return nullPtr - Just jPosition -> do - let jPosition' = unsafeManagedPtrGetPtr jPosition - return jPosition' - gtk_tree_store_move_before _obj' iter' maybePosition - touchManagedPtr _obj - touchManagedPtr iter - whenJust position touchManagedPtr - return () - -data TreeStoreMoveBeforeMethodInfo -instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreMoveBeforeMethodInfo a signature where - overloadedMethod _ = treeStoreMoveBefore - --- method TreeStore::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_prepend" gtk_tree_store_prepend :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - IO () - - -treeStorePrepend :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> Maybe (TreeIter) -- parent - -> m (TreeIter) -- result -treeStorePrepend _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - gtk_tree_store_prepend _obj' iter maybeParent - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - return iter' - -data TreeStorePrependMethodInfo -instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStorePrependMethodInfo a signature where - overloadedMethod _ = treeStorePrepend - --- method TreeStore::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_store_remove" gtk_tree_store_remove :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeStoreRemove :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> m Bool -- result -treeStoreRemove _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_tree_store_remove _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - -data TreeStoreRemoveMethodInfo -instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreRemoveMethodInfo a signature where - overloadedMethod _ = treeStoreRemove - --- method TreeStore::set_column_types --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", 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 "gtk_tree_store_set_column_types" gtk_tree_store_set_column_types :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Int32 -> -- n_columns : TBasicType TInt - Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) - IO () - - -treeStoreSetColumnTypes :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> [GType] -- types - -> m () -- result -treeStoreSetColumnTypes _obj types = liftIO $ do - let nColumns = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - types' <- (packMapStorableArray gtypeToCGType) types - gtk_tree_store_set_column_types _obj' nColumns types' - touchManagedPtr _obj - freeMem types' - return () - -data TreeStoreSetColumnTypesMethodInfo -instance (signature ~ ([GType] -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetColumnTypesMethodInfo a signature where - overloadedMethod _ = treeStoreSetColumnTypes - --- method TreeStore::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", 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 = "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 "gtk_tree_store_set_value" gtk_tree_store_set_value :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -treeStoreSetValue :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> Int32 -- column - -> GValue -- value - -> m () -- result -treeStoreSetValue _obj iter column value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let value' = unsafeManagedPtrGetPtr value - gtk_tree_store_set_value _obj' iter' column value' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr value - return () - -data TreeStoreSetValueMethodInfo -instance (signature ~ (TreeIter -> Int32 -> GValue -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetValueMethodInfo a signature where - overloadedMethod _ = treeStoreSetValue - --- method TreeStore::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_tree_store_set_valuesv" gtk_tree_store_set_valuesv :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt) - Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt - IO () - - -treeStoreSet :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- iter - -> [Int32] -- columns - -> [GValue] -- values - -> m () -- result -treeStoreSet _obj iter columns values = liftIO $ do - let nValues = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= nValues) $ - error "Gtk.treeStoreSet : length of 'columns' does not agree with that of 'values'." - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - columns' <- packStorableArray columns - let values' = map unsafeManagedPtrGetPtr values - values'' <- packBlockArray 24 values' - gtk_tree_store_set_valuesv _obj' iter' columns' values'' nValues - touchManagedPtr _obj - touchManagedPtr iter - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return () - -data TreeStoreSetMethodInfo -instance (signature ~ (TreeIter -> [Int32] -> [GValue] -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetMethodInfo a signature where - overloadedMethod _ = treeStoreSet - --- method TreeStore::swap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_store_swap" gtk_tree_store_swap :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Ptr TreeIter -> -- a : TInterface "Gtk" "TreeIter" - Ptr TreeIter -> -- b : TInterface "Gtk" "TreeIter" - IO () - - -treeStoreSwap :: - (MonadIO m, TreeStoreK a) => - a -- _obj - -> TreeIter -- a - -> TreeIter -- b - -> m () -- result -treeStoreSwap _obj a b = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let a' = unsafeManagedPtrGetPtr a - let b' = unsafeManagedPtrGetPtr b - gtk_tree_store_swap _obj' a' b' - touchManagedPtr _obj - touchManagedPtr a - touchManagedPtr b - return () - -data TreeStoreSwapMethodInfo -instance (signature ~ (TreeIter -> TreeIter -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSwapMethodInfo a signature where - overloadedMethod _ = treeStoreSwap - - diff --git a/GI/Gtk/Objects/TreeStore.hs-boot b/GI/Gtk/Objects/TreeStore.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeStore.hs-boot +++ /dev/null @@ -1,30 +0,0 @@ -module GI.Gtk.Objects.TreeStore 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 TreeStore = TreeStore (ForeignPtr TreeStore) -instance GObject TreeStore where -class GObject o => TreeStoreK o -instance (GObject o, IsDescendantOf TreeStore o) => TreeStoreK o -data TreeStoreAppendMethodInfo -data TreeStoreClearMethodInfo -data TreeStoreInsertMethodInfo -data TreeStoreInsertAfterMethodInfo -data TreeStoreInsertBeforeMethodInfo -data TreeStoreInsertWithValuesMethodInfo -data TreeStoreIsAncestorMethodInfo -data TreeStoreIterDepthMethodInfo -data TreeStoreIterIsValidMethodInfo -data TreeStoreMoveAfterMethodInfo -data TreeStoreMoveBeforeMethodInfo -data TreeStorePrependMethodInfo -data TreeStoreRemoveMethodInfo -data TreeStoreSetColumnTypesMethodInfo -data TreeStoreSetValueMethodInfo -data TreeStoreSetMethodInfo -data TreeStoreSwapMethodInfo diff --git a/GI/Gtk/Objects/TreeView.hs b/GI/Gtk/Objects/TreeView.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeView.hs +++ /dev/null @@ -1,5802 +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.Gtk.Objects.TreeView - ( - --- * Exported types - TreeView(..) , - TreeViewK , - toTreeView , - noTreeView , - - - -- * Methods --- ** treeViewAppendColumn - TreeViewAppendColumnMethodInfo , - treeViewAppendColumn , - - --- ** treeViewCollapseAll - TreeViewCollapseAllMethodInfo , - treeViewCollapseAll , - - --- ** treeViewCollapseRow - TreeViewCollapseRowMethodInfo , - treeViewCollapseRow , - - --- ** treeViewColumnsAutosize - TreeViewColumnsAutosizeMethodInfo , - treeViewColumnsAutosize , - - --- ** treeViewConvertBinWindowToTreeCoords - TreeViewConvertBinWindowToTreeCoordsMethodInfo, - treeViewConvertBinWindowToTreeCoords , - - --- ** treeViewConvertBinWindowToWidgetCoords - TreeViewConvertBinWindowToWidgetCoordsMethodInfo, - treeViewConvertBinWindowToWidgetCoords , - - --- ** treeViewConvertTreeToBinWindowCoords - TreeViewConvertTreeToBinWindowCoordsMethodInfo, - treeViewConvertTreeToBinWindowCoords , - - --- ** treeViewConvertTreeToWidgetCoords - TreeViewConvertTreeToWidgetCoordsMethodInfo, - treeViewConvertTreeToWidgetCoords , - - --- ** treeViewConvertWidgetToBinWindowCoords - TreeViewConvertWidgetToBinWindowCoordsMethodInfo, - treeViewConvertWidgetToBinWindowCoords , - - --- ** treeViewConvertWidgetToTreeCoords - TreeViewConvertWidgetToTreeCoordsMethodInfo, - treeViewConvertWidgetToTreeCoords , - - --- ** treeViewCreateRowDragIcon - TreeViewCreateRowDragIconMethodInfo , - treeViewCreateRowDragIcon , - - --- ** treeViewEnableModelDragDest - TreeViewEnableModelDragDestMethodInfo , - treeViewEnableModelDragDest , - - --- ** treeViewEnableModelDragSource - TreeViewEnableModelDragSourceMethodInfo , - treeViewEnableModelDragSource , - - --- ** treeViewExpandAll - TreeViewExpandAllMethodInfo , - treeViewExpandAll , - - --- ** treeViewExpandRow - TreeViewExpandRowMethodInfo , - treeViewExpandRow , - - --- ** treeViewExpandToPath - TreeViewExpandToPathMethodInfo , - treeViewExpandToPath , - - --- ** treeViewGetActivateOnSingleClick - TreeViewGetActivateOnSingleClickMethodInfo, - treeViewGetActivateOnSingleClick , - - --- ** treeViewGetBackgroundArea - TreeViewGetBackgroundAreaMethodInfo , - treeViewGetBackgroundArea , - - --- ** treeViewGetBinWindow - TreeViewGetBinWindowMethodInfo , - treeViewGetBinWindow , - - --- ** treeViewGetCellArea - TreeViewGetCellAreaMethodInfo , - treeViewGetCellArea , - - --- ** treeViewGetColumn - TreeViewGetColumnMethodInfo , - treeViewGetColumn , - - --- ** treeViewGetColumns - TreeViewGetColumnsMethodInfo , - treeViewGetColumns , - - --- ** treeViewGetCursor - TreeViewGetCursorMethodInfo , - treeViewGetCursor , - - --- ** treeViewGetDestRowAtPos - TreeViewGetDestRowAtPosMethodInfo , - treeViewGetDestRowAtPos , - - --- ** treeViewGetDragDestRow - TreeViewGetDragDestRowMethodInfo , - treeViewGetDragDestRow , - - --- ** treeViewGetEnableSearch - TreeViewGetEnableSearchMethodInfo , - treeViewGetEnableSearch , - - --- ** treeViewGetEnableTreeLines - TreeViewGetEnableTreeLinesMethodInfo , - treeViewGetEnableTreeLines , - - --- ** treeViewGetExpanderColumn - TreeViewGetExpanderColumnMethodInfo , - treeViewGetExpanderColumn , - - --- ** treeViewGetFixedHeightMode - TreeViewGetFixedHeightModeMethodInfo , - treeViewGetFixedHeightMode , - - --- ** treeViewGetGridLines - TreeViewGetGridLinesMethodInfo , - treeViewGetGridLines , - - --- ** treeViewGetHadjustment - TreeViewGetHadjustmentMethodInfo , - treeViewGetHadjustment , - - --- ** treeViewGetHeadersClickable - TreeViewGetHeadersClickableMethodInfo , - treeViewGetHeadersClickable , - - --- ** treeViewGetHeadersVisible - TreeViewGetHeadersVisibleMethodInfo , - treeViewGetHeadersVisible , - - --- ** treeViewGetHoverExpand - TreeViewGetHoverExpandMethodInfo , - treeViewGetHoverExpand , - - --- ** treeViewGetHoverSelection - TreeViewGetHoverSelectionMethodInfo , - treeViewGetHoverSelection , - - --- ** treeViewGetLevelIndentation - TreeViewGetLevelIndentationMethodInfo , - treeViewGetLevelIndentation , - - --- ** treeViewGetModel - TreeViewGetModelMethodInfo , - treeViewGetModel , - - --- ** treeViewGetNColumns - TreeViewGetNColumnsMethodInfo , - treeViewGetNColumns , - - --- ** treeViewGetPathAtPos - TreeViewGetPathAtPosMethodInfo , - treeViewGetPathAtPos , - - --- ** treeViewGetReorderable - TreeViewGetReorderableMethodInfo , - treeViewGetReorderable , - - --- ** treeViewGetRubberBanding - TreeViewGetRubberBandingMethodInfo , - treeViewGetRubberBanding , - - --- ** treeViewGetRulesHint - TreeViewGetRulesHintMethodInfo , - treeViewGetRulesHint , - - --- ** treeViewGetSearchColumn - TreeViewGetSearchColumnMethodInfo , - treeViewGetSearchColumn , - - --- ** treeViewGetSearchEntry - TreeViewGetSearchEntryMethodInfo , - treeViewGetSearchEntry , - - --- ** treeViewGetSelection - TreeViewGetSelectionMethodInfo , - treeViewGetSelection , - - --- ** treeViewGetShowExpanders - TreeViewGetShowExpandersMethodInfo , - treeViewGetShowExpanders , - - --- ** treeViewGetTooltipColumn - TreeViewGetTooltipColumnMethodInfo , - treeViewGetTooltipColumn , - - --- ** treeViewGetTooltipContext - TreeViewGetTooltipContextMethodInfo , - treeViewGetTooltipContext , - - --- ** treeViewGetVadjustment - TreeViewGetVadjustmentMethodInfo , - treeViewGetVadjustment , - - --- ** treeViewGetVisibleRange - TreeViewGetVisibleRangeMethodInfo , - treeViewGetVisibleRange , - - --- ** treeViewGetVisibleRect - TreeViewGetVisibleRectMethodInfo , - treeViewGetVisibleRect , - - --- ** treeViewInsertColumn - TreeViewInsertColumnMethodInfo , - treeViewInsertColumn , - - --- ** treeViewInsertColumnWithDataFunc - TreeViewInsertColumnWithDataFuncMethodInfo, - treeViewInsertColumnWithDataFunc , - - --- ** treeViewIsBlankAtPos - TreeViewIsBlankAtPosMethodInfo , - treeViewIsBlankAtPos , - - --- ** treeViewIsRubberBandingActive - TreeViewIsRubberBandingActiveMethodInfo , - treeViewIsRubberBandingActive , - - --- ** treeViewMapExpandedRows - TreeViewMapExpandedRowsMethodInfo , - treeViewMapExpandedRows , - - --- ** treeViewMoveColumnAfter - TreeViewMoveColumnAfterMethodInfo , - treeViewMoveColumnAfter , - - --- ** treeViewNew - treeViewNew , - - --- ** treeViewNewWithModel - treeViewNewWithModel , - - --- ** treeViewRemoveColumn - TreeViewRemoveColumnMethodInfo , - treeViewRemoveColumn , - - --- ** treeViewRowActivated - TreeViewRowActivatedMethodInfo , - treeViewRowActivated , - - --- ** treeViewRowExpanded - TreeViewRowExpandedMethodInfo , - treeViewRowExpanded , - - --- ** treeViewScrollToCell - TreeViewScrollToCellMethodInfo , - treeViewScrollToCell , - - --- ** treeViewScrollToPoint - TreeViewScrollToPointMethodInfo , - treeViewScrollToPoint , - - --- ** treeViewSetActivateOnSingleClick - TreeViewSetActivateOnSingleClickMethodInfo, - treeViewSetActivateOnSingleClick , - - --- ** treeViewSetColumnDragFunction - TreeViewSetColumnDragFunctionMethodInfo , - treeViewSetColumnDragFunction , - - --- ** treeViewSetCursor - TreeViewSetCursorMethodInfo , - treeViewSetCursor , - - --- ** treeViewSetCursorOnCell - TreeViewSetCursorOnCellMethodInfo , - treeViewSetCursorOnCell , - - --- ** treeViewSetDestroyCountFunc - TreeViewSetDestroyCountFuncMethodInfo , - treeViewSetDestroyCountFunc , - - --- ** treeViewSetDragDestRow - TreeViewSetDragDestRowMethodInfo , - treeViewSetDragDestRow , - - --- ** treeViewSetEnableSearch - TreeViewSetEnableSearchMethodInfo , - treeViewSetEnableSearch , - - --- ** treeViewSetEnableTreeLines - TreeViewSetEnableTreeLinesMethodInfo , - treeViewSetEnableTreeLines , - - --- ** treeViewSetExpanderColumn - TreeViewSetExpanderColumnMethodInfo , - treeViewSetExpanderColumn , - - --- ** treeViewSetFixedHeightMode - TreeViewSetFixedHeightModeMethodInfo , - treeViewSetFixedHeightMode , - - --- ** treeViewSetGridLines - TreeViewSetGridLinesMethodInfo , - treeViewSetGridLines , - - --- ** treeViewSetHadjustment - TreeViewSetHadjustmentMethodInfo , - treeViewSetHadjustment , - - --- ** treeViewSetHeadersClickable - TreeViewSetHeadersClickableMethodInfo , - treeViewSetHeadersClickable , - - --- ** treeViewSetHeadersVisible - TreeViewSetHeadersVisibleMethodInfo , - treeViewSetHeadersVisible , - - --- ** treeViewSetHoverExpand - TreeViewSetHoverExpandMethodInfo , - treeViewSetHoverExpand , - - --- ** treeViewSetHoverSelection - TreeViewSetHoverSelectionMethodInfo , - treeViewSetHoverSelection , - - --- ** treeViewSetLevelIndentation - TreeViewSetLevelIndentationMethodInfo , - treeViewSetLevelIndentation , - - --- ** treeViewSetModel - TreeViewSetModelMethodInfo , - treeViewSetModel , - - --- ** treeViewSetReorderable - TreeViewSetReorderableMethodInfo , - treeViewSetReorderable , - - --- ** treeViewSetRowSeparatorFunc - TreeViewSetRowSeparatorFuncMethodInfo , - treeViewSetRowSeparatorFunc , - - --- ** treeViewSetRubberBanding - TreeViewSetRubberBandingMethodInfo , - treeViewSetRubberBanding , - - --- ** treeViewSetRulesHint - TreeViewSetRulesHintMethodInfo , - treeViewSetRulesHint , - - --- ** treeViewSetSearchColumn - TreeViewSetSearchColumnMethodInfo , - treeViewSetSearchColumn , - - --- ** treeViewSetSearchEntry - TreeViewSetSearchEntryMethodInfo , - treeViewSetSearchEntry , - - --- ** treeViewSetSearchEqualFunc - TreeViewSetSearchEqualFuncMethodInfo , - treeViewSetSearchEqualFunc , - - --- ** treeViewSetSearchPositionFunc - TreeViewSetSearchPositionFuncMethodInfo , - treeViewSetSearchPositionFunc , - - --- ** treeViewSetShowExpanders - TreeViewSetShowExpandersMethodInfo , - treeViewSetShowExpanders , - - --- ** treeViewSetTooltipCell - TreeViewSetTooltipCellMethodInfo , - treeViewSetTooltipCell , - - --- ** treeViewSetTooltipColumn - TreeViewSetTooltipColumnMethodInfo , - treeViewSetTooltipColumn , - - --- ** treeViewSetTooltipRow - TreeViewSetTooltipRowMethodInfo , - treeViewSetTooltipRow , - - --- ** treeViewSetVadjustment - TreeViewSetVadjustmentMethodInfo , - treeViewSetVadjustment , - - --- ** treeViewUnsetRowsDragDest - TreeViewUnsetRowsDragDestMethodInfo , - treeViewUnsetRowsDragDest , - - --- ** treeViewUnsetRowsDragSource - TreeViewUnsetRowsDragSourceMethodInfo , - treeViewUnsetRowsDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - TreeViewActivateOnSingleClickPropertyInfo, - constructTreeViewActivateOnSingleClick , - getTreeViewActivateOnSingleClick , - setTreeViewActivateOnSingleClick , - treeViewActivateOnSingleClick , - - --- ** EnableGridLines - TreeViewEnableGridLinesPropertyInfo , - constructTreeViewEnableGridLines , - getTreeViewEnableGridLines , - setTreeViewEnableGridLines , - treeViewEnableGridLines , - - --- ** EnableSearch - TreeViewEnableSearchPropertyInfo , - constructTreeViewEnableSearch , - getTreeViewEnableSearch , - setTreeViewEnableSearch , - treeViewEnableSearch , - - --- ** EnableTreeLines - TreeViewEnableTreeLinesPropertyInfo , - constructTreeViewEnableTreeLines , - getTreeViewEnableTreeLines , - setTreeViewEnableTreeLines , - treeViewEnableTreeLines , - - --- ** ExpanderColumn - TreeViewExpanderColumnPropertyInfo , - constructTreeViewExpanderColumn , - getTreeViewExpanderColumn , - setTreeViewExpanderColumn , - treeViewExpanderColumn , - - --- ** FixedHeightMode - TreeViewFixedHeightModePropertyInfo , - constructTreeViewFixedHeightMode , - getTreeViewFixedHeightMode , - setTreeViewFixedHeightMode , - treeViewFixedHeightMode , - - --- ** HeadersClickable - TreeViewHeadersClickablePropertyInfo , - constructTreeViewHeadersClickable , - getTreeViewHeadersClickable , - setTreeViewHeadersClickable , - treeViewHeadersClickable , - - --- ** HeadersVisible - TreeViewHeadersVisiblePropertyInfo , - constructTreeViewHeadersVisible , - getTreeViewHeadersVisible , - setTreeViewHeadersVisible , - treeViewHeadersVisible , - - --- ** HoverExpand - TreeViewHoverExpandPropertyInfo , - constructTreeViewHoverExpand , - getTreeViewHoverExpand , - setTreeViewHoverExpand , - treeViewHoverExpand , - - --- ** HoverSelection - TreeViewHoverSelectionPropertyInfo , - constructTreeViewHoverSelection , - getTreeViewHoverSelection , - setTreeViewHoverSelection , - treeViewHoverSelection , - - --- ** LevelIndentation - TreeViewLevelIndentationPropertyInfo , - constructTreeViewLevelIndentation , - getTreeViewLevelIndentation , - setTreeViewLevelIndentation , - treeViewLevelIndentation , - - --- ** Model - TreeViewModelPropertyInfo , - clearTreeViewModel , - constructTreeViewModel , - getTreeViewModel , - setTreeViewModel , - treeViewModel , - - --- ** Reorderable - TreeViewReorderablePropertyInfo , - constructTreeViewReorderable , - getTreeViewReorderable , - setTreeViewReorderable , - treeViewReorderable , - - --- ** RubberBanding - TreeViewRubberBandingPropertyInfo , - constructTreeViewRubberBanding , - getTreeViewRubberBanding , - setTreeViewRubberBanding , - treeViewRubberBanding , - - --- ** RulesHint - TreeViewRulesHintPropertyInfo , - constructTreeViewRulesHint , - getTreeViewRulesHint , - setTreeViewRulesHint , - treeViewRulesHint , - - --- ** SearchColumn - TreeViewSearchColumnPropertyInfo , - constructTreeViewSearchColumn , - getTreeViewSearchColumn , - setTreeViewSearchColumn , - treeViewSearchColumn , - - --- ** ShowExpanders - TreeViewShowExpandersPropertyInfo , - constructTreeViewShowExpanders , - getTreeViewShowExpanders , - setTreeViewShowExpanders , - treeViewShowExpanders , - - --- ** TooltipColumn - TreeViewTooltipColumnPropertyInfo , - constructTreeViewTooltipColumn , - getTreeViewTooltipColumn , - setTreeViewTooltipColumn , - treeViewTooltipColumn , - - - - - -- * Signals --- ** ColumnsChanged - TreeViewColumnsChangedCallback , - TreeViewColumnsChangedCallbackC , - TreeViewColumnsChangedSignalInfo , - afterTreeViewColumnsChanged , - mkTreeViewColumnsChangedCallback , - noTreeViewColumnsChangedCallback , - onTreeViewColumnsChanged , - treeViewColumnsChangedCallbackWrapper , - treeViewColumnsChangedClosure , - - --- ** CursorChanged - TreeViewCursorChangedCallback , - TreeViewCursorChangedCallbackC , - TreeViewCursorChangedSignalInfo , - afterTreeViewCursorChanged , - mkTreeViewCursorChangedCallback , - noTreeViewCursorChangedCallback , - onTreeViewCursorChanged , - treeViewCursorChangedCallbackWrapper , - treeViewCursorChangedClosure , - - --- ** ExpandCollapseCursorRow - TreeViewExpandCollapseCursorRowCallback , - TreeViewExpandCollapseCursorRowCallbackC, - TreeViewExpandCollapseCursorRowSignalInfo, - afterTreeViewExpandCollapseCursorRow , - mkTreeViewExpandCollapseCursorRowCallback, - noTreeViewExpandCollapseCursorRowCallback, - onTreeViewExpandCollapseCursorRow , - treeViewExpandCollapseCursorRowCallbackWrapper, - treeViewExpandCollapseCursorRowClosure , - - --- ** MoveCursor - TreeViewMoveCursorCallback , - TreeViewMoveCursorCallbackC , - TreeViewMoveCursorSignalInfo , - afterTreeViewMoveCursor , - mkTreeViewMoveCursorCallback , - noTreeViewMoveCursorCallback , - onTreeViewMoveCursor , - treeViewMoveCursorCallbackWrapper , - treeViewMoveCursorClosure , - - --- ** RowActivated - TreeViewRowActivatedCallback , - TreeViewRowActivatedCallbackC , - TreeViewRowActivatedSignalInfo , - afterTreeViewRowActivated , - mkTreeViewRowActivatedCallback , - noTreeViewRowActivatedCallback , - onTreeViewRowActivated , - treeViewRowActivatedCallbackWrapper , - treeViewRowActivatedClosure , - - --- ** RowCollapsed - TreeViewRowCollapsedCallback , - TreeViewRowCollapsedCallbackC , - TreeViewRowCollapsedSignalInfo , - afterTreeViewRowCollapsed , - mkTreeViewRowCollapsedCallback , - noTreeViewRowCollapsedCallback , - onTreeViewRowCollapsed , - treeViewRowCollapsedCallbackWrapper , - treeViewRowCollapsedClosure , - - --- ** RowExpanded - TreeViewRowExpandedCallback , - TreeViewRowExpandedCallbackC , - TreeViewRowExpandedSignalInfo , - afterTreeViewRowExpanded , - mkTreeViewRowExpandedCallback , - noTreeViewRowExpandedCallback , - onTreeViewRowExpanded , - treeViewRowExpandedCallbackWrapper , - treeViewRowExpandedClosure , - - --- ** SelectAll - TreeViewSelectAllCallback , - TreeViewSelectAllCallbackC , - TreeViewSelectAllSignalInfo , - afterTreeViewSelectAll , - mkTreeViewSelectAllCallback , - noTreeViewSelectAllCallback , - onTreeViewSelectAll , - treeViewSelectAllCallbackWrapper , - treeViewSelectAllClosure , - - --- ** SelectCursorParent - TreeViewSelectCursorParentCallback , - TreeViewSelectCursorParentCallbackC , - TreeViewSelectCursorParentSignalInfo , - afterTreeViewSelectCursorParent , - mkTreeViewSelectCursorParentCallback , - noTreeViewSelectCursorParentCallback , - onTreeViewSelectCursorParent , - treeViewSelectCursorParentCallbackWrapper, - treeViewSelectCursorParentClosure , - - --- ** SelectCursorRow - TreeViewSelectCursorRowCallback , - TreeViewSelectCursorRowCallbackC , - TreeViewSelectCursorRowSignalInfo , - afterTreeViewSelectCursorRow , - mkTreeViewSelectCursorRowCallback , - noTreeViewSelectCursorRowCallback , - onTreeViewSelectCursorRow , - treeViewSelectCursorRowCallbackWrapper , - treeViewSelectCursorRowClosure , - - --- ** StartInteractiveSearch - TreeViewStartInteractiveSearchCallback , - TreeViewStartInteractiveSearchCallbackC , - TreeViewStartInteractiveSearchSignalInfo, - afterTreeViewStartInteractiveSearch , - mkTreeViewStartInteractiveSearchCallback, - noTreeViewStartInteractiveSearchCallback, - onTreeViewStartInteractiveSearch , - treeViewStartInteractiveSearchCallbackWrapper, - treeViewStartInteractiveSearchClosure , - - --- ** TestCollapseRow - TreeViewTestCollapseRowCallback , - TreeViewTestCollapseRowCallbackC , - TreeViewTestCollapseRowSignalInfo , - afterTreeViewTestCollapseRow , - mkTreeViewTestCollapseRowCallback , - noTreeViewTestCollapseRowCallback , - onTreeViewTestCollapseRow , - treeViewTestCollapseRowCallbackWrapper , - treeViewTestCollapseRowClosure , - - --- ** TestExpandRow - TreeViewTestExpandRowCallback , - TreeViewTestExpandRowCallbackC , - TreeViewTestExpandRowSignalInfo , - afterTreeViewTestExpandRow , - mkTreeViewTestExpandRowCallback , - noTreeViewTestExpandRowCallback , - onTreeViewTestExpandRow , - treeViewTestExpandRowCallbackWrapper , - treeViewTestExpandRowClosure , - - --- ** ToggleCursorRow - TreeViewToggleCursorRowCallback , - TreeViewToggleCursorRowCallbackC , - TreeViewToggleCursorRowSignalInfo , - afterTreeViewToggleCursorRow , - mkTreeViewToggleCursorRowCallback , - noTreeViewToggleCursorRowCallback , - onTreeViewToggleCursorRow , - treeViewToggleCursorRowCallbackWrapper , - treeViewToggleCursorRowClosure , - - --- ** UnselectAll - TreeViewUnselectAllCallback , - TreeViewUnselectAllCallbackC , - TreeViewUnselectAllSignalInfo , - afterTreeViewUnselectAll , - mkTreeViewUnselectAllCallback , - noTreeViewUnselectAllCallback , - onTreeViewUnselectAll , - treeViewUnselectAllCallbackWrapper , - treeViewUnselectAllClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype TreeView = TreeView (ForeignPtr TreeView) -foreign import ccall "gtk_tree_view_get_type" - c_gtk_tree_view_get_type :: IO GType - -type instance ParentTypes TreeView = TreeViewParentTypes -type TreeViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject TreeView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tree_view_get_type - - -class GObject o => TreeViewK o -instance (GObject o, IsDescendantOf TreeView o) => TreeViewK o - -toTreeView :: TreeViewK o => o -> IO TreeView -toTreeView = unsafeCastTo TreeView - -noTreeView :: Maybe TreeView -noTreeView = Nothing - -type family ResolveTreeViewMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeViewMethod "activate" o = WidgetActivateMethodInfo - ResolveTreeViewMethod "add" o = ContainerAddMethodInfo - ResolveTreeViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveTreeViewMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTreeViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveTreeViewMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveTreeViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveTreeViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveTreeViewMethod "appendColumn" o = TreeViewAppendColumnMethodInfo - ResolveTreeViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveTreeViewMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveTreeViewMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveTreeViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveTreeViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveTreeViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveTreeViewMethod "childType" o = ContainerChildTypeMethodInfo - ResolveTreeViewMethod "classPath" o = WidgetClassPathMethodInfo - ResolveTreeViewMethod "collapseAll" o = TreeViewCollapseAllMethodInfo - ResolveTreeViewMethod "collapseRow" o = TreeViewCollapseRowMethodInfo - ResolveTreeViewMethod "columnsAutosize" o = TreeViewColumnsAutosizeMethodInfo - ResolveTreeViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveTreeViewMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTreeViewMethod "convertBinWindowToTreeCoords" o = TreeViewConvertBinWindowToTreeCoordsMethodInfo - ResolveTreeViewMethod "convertBinWindowToWidgetCoords" o = TreeViewConvertBinWindowToWidgetCoordsMethodInfo - ResolveTreeViewMethod "convertTreeToBinWindowCoords" o = TreeViewConvertTreeToBinWindowCoordsMethodInfo - ResolveTreeViewMethod "convertTreeToWidgetCoords" o = TreeViewConvertTreeToWidgetCoordsMethodInfo - ResolveTreeViewMethod "convertWidgetToBinWindowCoords" o = TreeViewConvertWidgetToBinWindowCoordsMethodInfo - ResolveTreeViewMethod "convertWidgetToTreeCoords" o = TreeViewConvertWidgetToTreeCoordsMethodInfo - ResolveTreeViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveTreeViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveTreeViewMethod "createRowDragIcon" o = TreeViewCreateRowDragIconMethodInfo - ResolveTreeViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTreeViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTreeViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTreeViewMethod "destroy" o = WidgetDestroyMethodInfo - ResolveTreeViewMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveTreeViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveTreeViewMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveTreeViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveTreeViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveTreeViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveTreeViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveTreeViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveTreeViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveTreeViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveTreeViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveTreeViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveTreeViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveTreeViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveTreeViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveTreeViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveTreeViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveTreeViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveTreeViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveTreeViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveTreeViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveTreeViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveTreeViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveTreeViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveTreeViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveTreeViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveTreeViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveTreeViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveTreeViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveTreeViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveTreeViewMethod "draw" o = WidgetDrawMethodInfo - ResolveTreeViewMethod "enableModelDragDest" o = TreeViewEnableModelDragDestMethodInfo - ResolveTreeViewMethod "enableModelDragSource" o = TreeViewEnableModelDragSourceMethodInfo - ResolveTreeViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveTreeViewMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveTreeViewMethod "event" o = WidgetEventMethodInfo - ResolveTreeViewMethod "expandAll" o = TreeViewExpandAllMethodInfo - ResolveTreeViewMethod "expandRow" o = TreeViewExpandRowMethodInfo - ResolveTreeViewMethod "expandToPath" o = TreeViewExpandToPathMethodInfo - ResolveTreeViewMethod "forall" o = ContainerForallMethodInfo - ResolveTreeViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeViewMethod "foreach" o = ContainerForeachMethodInfo - ResolveTreeViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveTreeViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeViewMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveTreeViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveTreeViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveTreeViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveTreeViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveTreeViewMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveTreeViewMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveTreeViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveTreeViewMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveTreeViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveTreeViewMethod "hide" o = WidgetHideMethodInfo - ResolveTreeViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveTreeViewMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveTreeViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveTreeViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveTreeViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveTreeViewMethod "insertColumn" o = TreeViewInsertColumnMethodInfo - ResolveTreeViewMethod "insertColumnWithDataFunc" o = TreeViewInsertColumnWithDataFuncMethodInfo - ResolveTreeViewMethod "intersect" o = WidgetIntersectMethodInfo - ResolveTreeViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveTreeViewMethod "isBlankAtPos" o = TreeViewIsBlankAtPosMethodInfo - ResolveTreeViewMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveTreeViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveTreeViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeViewMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveTreeViewMethod "isRubberBandingActive" o = TreeViewIsRubberBandingActiveMethodInfo - ResolveTreeViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveTreeViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveTreeViewMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveTreeViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveTreeViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveTreeViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveTreeViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveTreeViewMethod "map" o = WidgetMapMethodInfo - ResolveTreeViewMethod "mapExpandedRows" o = TreeViewMapExpandedRowsMethodInfo - ResolveTreeViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveTreeViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveTreeViewMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveTreeViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveTreeViewMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveTreeViewMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveTreeViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveTreeViewMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveTreeViewMethod "moveColumnAfter" o = TreeViewMoveColumnAfterMethodInfo - ResolveTreeViewMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveTreeViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveTreeViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveTreeViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveTreeViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveTreeViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTreeViewMethod "path" o = WidgetPathMethodInfo - ResolveTreeViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveTreeViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveTreeViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveTreeViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveTreeViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveTreeViewMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveTreeViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveTreeViewMethod "realize" o = WidgetRealizeMethodInfo - ResolveTreeViewMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveTreeViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveTreeViewMethod "remove" o = ContainerRemoveMethodInfo - ResolveTreeViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveTreeViewMethod "removeColumn" o = TreeViewRemoveColumnMethodInfo - ResolveTreeViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveTreeViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveTreeViewMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveTreeViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveTreeViewMethod "reparent" o = WidgetReparentMethodInfo - ResolveTreeViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveTreeViewMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveTreeViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveTreeViewMethod "rowActivated" o = TreeViewRowActivatedMethodInfo - ResolveTreeViewMethod "rowExpanded" o = TreeViewRowExpandedMethodInfo - ResolveTreeViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeViewMethod "scrollToCell" o = TreeViewScrollToCellMethodInfo - ResolveTreeViewMethod "scrollToPoint" o = TreeViewScrollToPointMethodInfo - ResolveTreeViewMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveTreeViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveTreeViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveTreeViewMethod "show" o = WidgetShowMethodInfo - ResolveTreeViewMethod "showAll" o = WidgetShowAllMethodInfo - ResolveTreeViewMethod "showNow" o = WidgetShowNowMethodInfo - ResolveTreeViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveTreeViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveTreeViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveTreeViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveTreeViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveTreeViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveTreeViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveTreeViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveTreeViewMethod "unmap" o = WidgetUnmapMethodInfo - ResolveTreeViewMethod "unparent" o = WidgetUnparentMethodInfo - ResolveTreeViewMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveTreeViewMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveTreeViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveTreeViewMethod "unsetRowsDragDest" o = TreeViewUnsetRowsDragDestMethodInfo - ResolveTreeViewMethod "unsetRowsDragSource" o = TreeViewUnsetRowsDragSourceMethodInfo - ResolveTreeViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveTreeViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveTreeViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveTreeViewMethod "getActivateOnSingleClick" o = TreeViewGetActivateOnSingleClickMethodInfo - ResolveTreeViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveTreeViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveTreeViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveTreeViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveTreeViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveTreeViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveTreeViewMethod "getBackgroundArea" o = TreeViewGetBackgroundAreaMethodInfo - ResolveTreeViewMethod "getBinWindow" o = TreeViewGetBinWindowMethodInfo - ResolveTreeViewMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveTreeViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveTreeViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveTreeViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveTreeViewMethod "getCellArea" o = TreeViewGetCellAreaMethodInfo - ResolveTreeViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveTreeViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveTreeViewMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveTreeViewMethod "getClip" o = WidgetGetClipMethodInfo - ResolveTreeViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveTreeViewMethod "getColumn" o = TreeViewGetColumnMethodInfo - ResolveTreeViewMethod "getColumns" o = TreeViewGetColumnsMethodInfo - ResolveTreeViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveTreeViewMethod "getCursor" o = TreeViewGetCursorMethodInfo - ResolveTreeViewMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeViewMethod "getDestRowAtPos" o = TreeViewGetDestRowAtPosMethodInfo - ResolveTreeViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveTreeViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveTreeViewMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveTreeViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveTreeViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveTreeViewMethod "getDragDestRow" o = TreeViewGetDragDestRowMethodInfo - ResolveTreeViewMethod "getEnableSearch" o = TreeViewGetEnableSearchMethodInfo - ResolveTreeViewMethod "getEnableTreeLines" o = TreeViewGetEnableTreeLinesMethodInfo - ResolveTreeViewMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveTreeViewMethod "getExpanderColumn" o = TreeViewGetExpanderColumnMethodInfo - ResolveTreeViewMethod "getFixedHeightMode" o = TreeViewGetFixedHeightModeMethodInfo - ResolveTreeViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveTreeViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveTreeViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveTreeViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveTreeViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveTreeViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveTreeViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveTreeViewMethod "getGridLines" o = TreeViewGetGridLinesMethodInfo - ResolveTreeViewMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveTreeViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveTreeViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveTreeViewMethod "getHeadersClickable" o = TreeViewGetHeadersClickableMethodInfo - ResolveTreeViewMethod "getHeadersVisible" o = TreeViewGetHeadersVisibleMethodInfo - ResolveTreeViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveTreeViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveTreeViewMethod "getHoverExpand" o = TreeViewGetHoverExpandMethodInfo - ResolveTreeViewMethod "getHoverSelection" o = TreeViewGetHoverSelectionMethodInfo - ResolveTreeViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveTreeViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTreeViewMethod "getLevelIndentation" o = TreeViewGetLevelIndentationMethodInfo - ResolveTreeViewMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveTreeViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveTreeViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveTreeViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveTreeViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveTreeViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveTreeViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveTreeViewMethod "getModel" o = TreeViewGetModelMethodInfo - ResolveTreeViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveTreeViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveTreeViewMethod "getNColumns" o = TreeViewGetNColumnsMethodInfo - ResolveTreeViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveTreeViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveTreeViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveTreeViewMethod "getParent" o = WidgetGetParentMethodInfo - ResolveTreeViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveTreeViewMethod "getPath" o = WidgetGetPathMethodInfo - ResolveTreeViewMethod "getPathAtPos" o = TreeViewGetPathAtPosMethodInfo - ResolveTreeViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveTreeViewMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveTreeViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveTreeViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveTreeViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveTreeViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveTreeViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveTreeViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveTreeViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeViewMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveTreeViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveTreeViewMethod "getReorderable" o = TreeViewGetReorderableMethodInfo - ResolveTreeViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveTreeViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveTreeViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveTreeViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveTreeViewMethod "getRubberBanding" o = TreeViewGetRubberBandingMethodInfo - ResolveTreeViewMethod "getRulesHint" o = TreeViewGetRulesHintMethodInfo - ResolveTreeViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveTreeViewMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveTreeViewMethod "getSearchColumn" o = TreeViewGetSearchColumnMethodInfo - ResolveTreeViewMethod "getSearchEntry" o = TreeViewGetSearchEntryMethodInfo - ResolveTreeViewMethod "getSelection" o = TreeViewGetSelectionMethodInfo - ResolveTreeViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveTreeViewMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveTreeViewMethod "getShowExpanders" o = TreeViewGetShowExpandersMethodInfo - ResolveTreeViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveTreeViewMethod "getState" o = WidgetGetStateMethodInfo - ResolveTreeViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveTreeViewMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveTreeViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveTreeViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveTreeViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveTreeViewMethod "getTooltipColumn" o = TreeViewGetTooltipColumnMethodInfo - ResolveTreeViewMethod "getTooltipContext" o = TreeViewGetTooltipContextMethodInfo - ResolveTreeViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveTreeViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveTreeViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveTreeViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveTreeViewMethod "getValign" o = WidgetGetValignMethodInfo - ResolveTreeViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveTreeViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveTreeViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveTreeViewMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveTreeViewMethod "getVisibleRange" o = TreeViewGetVisibleRangeMethodInfo - ResolveTreeViewMethod "getVisibleRect" o = TreeViewGetVisibleRectMethodInfo - ResolveTreeViewMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveTreeViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveTreeViewMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveTreeViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveTreeViewMethod "setActivateOnSingleClick" o = TreeViewSetActivateOnSingleClickMethodInfo - ResolveTreeViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveTreeViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveTreeViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveTreeViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTreeViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveTreeViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveTreeViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveTreeViewMethod "setClip" o = WidgetSetClipMethodInfo - ResolveTreeViewMethod "setColumnDragFunction" o = TreeViewSetColumnDragFunctionMethodInfo - ResolveTreeViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveTreeViewMethod "setCursor" o = TreeViewSetCursorMethodInfo - ResolveTreeViewMethod "setCursorOnCell" o = TreeViewSetCursorOnCellMethodInfo - ResolveTreeViewMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeViewMethod "setDestroyCountFunc" o = TreeViewSetDestroyCountFuncMethodInfo - ResolveTreeViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveTreeViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveTreeViewMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveTreeViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveTreeViewMethod "setDragDestRow" o = TreeViewSetDragDestRowMethodInfo - ResolveTreeViewMethod "setEnableSearch" o = TreeViewSetEnableSearchMethodInfo - ResolveTreeViewMethod "setEnableTreeLines" o = TreeViewSetEnableTreeLinesMethodInfo - ResolveTreeViewMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveTreeViewMethod "setExpanderColumn" o = TreeViewSetExpanderColumnMethodInfo - ResolveTreeViewMethod "setFixedHeightMode" o = TreeViewSetFixedHeightModeMethodInfo - ResolveTreeViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveTreeViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveTreeViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveTreeViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveTreeViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveTreeViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveTreeViewMethod "setGridLines" o = TreeViewSetGridLinesMethodInfo - ResolveTreeViewMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveTreeViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveTreeViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveTreeViewMethod "setHeadersClickable" o = TreeViewSetHeadersClickableMethodInfo - ResolveTreeViewMethod "setHeadersVisible" o = TreeViewSetHeadersVisibleMethodInfo - ResolveTreeViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveTreeViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveTreeViewMethod "setHoverExpand" o = TreeViewSetHoverExpandMethodInfo - ResolveTreeViewMethod "setHoverSelection" o = TreeViewSetHoverSelectionMethodInfo - ResolveTreeViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveTreeViewMethod "setLevelIndentation" o = TreeViewSetLevelIndentationMethodInfo - ResolveTreeViewMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveTreeViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveTreeViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveTreeViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveTreeViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveTreeViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveTreeViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveTreeViewMethod "setModel" o = TreeViewSetModelMethodInfo - ResolveTreeViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveTreeViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveTreeViewMethod "setParent" o = WidgetSetParentMethodInfo - ResolveTreeViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveTreeViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeViewMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveTreeViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveTreeViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveTreeViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveTreeViewMethod "setReorderable" o = TreeViewSetReorderableMethodInfo - ResolveTreeViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveTreeViewMethod "setRowSeparatorFunc" o = TreeViewSetRowSeparatorFuncMethodInfo - ResolveTreeViewMethod "setRubberBanding" o = TreeViewSetRubberBandingMethodInfo - ResolveTreeViewMethod "setRulesHint" o = TreeViewSetRulesHintMethodInfo - ResolveTreeViewMethod "setSearchColumn" o = TreeViewSetSearchColumnMethodInfo - ResolveTreeViewMethod "setSearchEntry" o = TreeViewSetSearchEntryMethodInfo - ResolveTreeViewMethod "setSearchEqualFunc" o = TreeViewSetSearchEqualFuncMethodInfo - ResolveTreeViewMethod "setSearchPositionFunc" o = TreeViewSetSearchPositionFuncMethodInfo - ResolveTreeViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveTreeViewMethod "setShowExpanders" o = TreeViewSetShowExpandersMethodInfo - ResolveTreeViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveTreeViewMethod "setState" o = WidgetSetStateMethodInfo - ResolveTreeViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveTreeViewMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveTreeViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveTreeViewMethod "setTooltipCell" o = TreeViewSetTooltipCellMethodInfo - ResolveTreeViewMethod "setTooltipColumn" o = TreeViewSetTooltipColumnMethodInfo - ResolveTreeViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveTreeViewMethod "setTooltipRow" o = TreeViewSetTooltipRowMethodInfo - ResolveTreeViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveTreeViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveTreeViewMethod "setValign" o = WidgetSetValignMethodInfo - ResolveTreeViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveTreeViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveTreeViewMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveTreeViewMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveTreeViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveTreeViewMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveTreeViewMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeViewMethod t TreeView, MethodInfo info TreeView p) => IsLabelProxy t (TreeView -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeViewMethod t TreeView, MethodInfo info TreeView p) => IsLabel t (TreeView -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TreeView::columns-changed -type TreeViewColumnsChangedCallback = - IO () - -noTreeViewColumnsChangedCallback :: Maybe TreeViewColumnsChangedCallback -noTreeViewColumnsChangedCallback = Nothing - -type TreeViewColumnsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewColumnsChangedCallback :: TreeViewColumnsChangedCallbackC -> IO (FunPtr TreeViewColumnsChangedCallbackC) - -treeViewColumnsChangedClosure :: TreeViewColumnsChangedCallback -> IO Closure -treeViewColumnsChangedClosure cb = newCClosure =<< mkTreeViewColumnsChangedCallback wrapped - where wrapped = treeViewColumnsChangedCallbackWrapper cb - -treeViewColumnsChangedCallbackWrapper :: - TreeViewColumnsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeViewColumnsChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId -onTreeViewColumnsChanged obj cb = liftIO $ connectTreeViewColumnsChanged obj cb SignalConnectBefore -afterTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId -afterTreeViewColumnsChanged obj cb = connectTreeViewColumnsChanged obj cb SignalConnectAfter - -connectTreeViewColumnsChanged :: (GObject a, MonadIO m) => - a -> TreeViewColumnsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewColumnsChanged obj cb after = liftIO $ do - cb' <- mkTreeViewColumnsChangedCallback (treeViewColumnsChangedCallbackWrapper cb) - connectSignalFunPtr obj "columns-changed" cb' after - --- signal TreeView::cursor-changed -type TreeViewCursorChangedCallback = - IO () - -noTreeViewCursorChangedCallback :: Maybe TreeViewCursorChangedCallback -noTreeViewCursorChangedCallback = Nothing - -type TreeViewCursorChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewCursorChangedCallback :: TreeViewCursorChangedCallbackC -> IO (FunPtr TreeViewCursorChangedCallbackC) - -treeViewCursorChangedClosure :: TreeViewCursorChangedCallback -> IO Closure -treeViewCursorChangedClosure cb = newCClosure =<< mkTreeViewCursorChangedCallback wrapped - where wrapped = treeViewCursorChangedCallbackWrapper cb - -treeViewCursorChangedCallbackWrapper :: - TreeViewCursorChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeViewCursorChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId -onTreeViewCursorChanged obj cb = liftIO $ connectTreeViewCursorChanged obj cb SignalConnectBefore -afterTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId -afterTreeViewCursorChanged obj cb = connectTreeViewCursorChanged obj cb SignalConnectAfter - -connectTreeViewCursorChanged :: (GObject a, MonadIO m) => - a -> TreeViewCursorChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewCursorChanged obj cb after = liftIO $ do - cb' <- mkTreeViewCursorChangedCallback (treeViewCursorChangedCallbackWrapper cb) - connectSignalFunPtr obj "cursor-changed" cb' after - --- signal TreeView::expand-collapse-cursor-row -type TreeViewExpandCollapseCursorRowCallback = - Bool -> - Bool -> - Bool -> - IO Bool - -noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback -noTreeViewExpandCollapseCursorRowCallback = Nothing - -type TreeViewExpandCollapseCursorRowCallbackC = - Ptr () -> -- object - CInt -> - CInt -> - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewExpandCollapseCursorRowCallback :: TreeViewExpandCollapseCursorRowCallbackC -> IO (FunPtr TreeViewExpandCollapseCursorRowCallbackC) - -treeViewExpandCollapseCursorRowClosure :: TreeViewExpandCollapseCursorRowCallback -> IO Closure -treeViewExpandCollapseCursorRowClosure cb = newCClosure =<< mkTreeViewExpandCollapseCursorRowCallback wrapped - where wrapped = treeViewExpandCollapseCursorRowCallbackWrapper cb - -treeViewExpandCollapseCursorRowCallbackWrapper :: - TreeViewExpandCollapseCursorRowCallback -> - Ptr () -> - CInt -> - CInt -> - CInt -> - Ptr () -> - IO CInt -treeViewExpandCollapseCursorRowCallbackWrapper _cb _ object p0 p1 _ = do - let object' = (/= 0) object - let p0' = (/= 0) p0 - let p1' = (/= 0) p1 - result <- _cb object' p0' p1' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId -onTreeViewExpandCollapseCursorRow obj cb = liftIO $ connectTreeViewExpandCollapseCursorRow obj cb SignalConnectBefore -afterTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId -afterTreeViewExpandCollapseCursorRow obj cb = connectTreeViewExpandCollapseCursorRow obj cb SignalConnectAfter - -connectTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewExpandCollapseCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewExpandCollapseCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewExpandCollapseCursorRowCallback (treeViewExpandCollapseCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "expand-collapse-cursor-row" cb' after - --- signal TreeView::move-cursor -type TreeViewMoveCursorCallback = - MovementStep -> - Int32 -> - IO Bool - -noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback -noTreeViewMoveCursorCallback = Nothing - -type TreeViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewMoveCursorCallback :: TreeViewMoveCursorCallbackC -> IO (FunPtr TreeViewMoveCursorCallbackC) - -treeViewMoveCursorClosure :: TreeViewMoveCursorCallback -> IO Closure -treeViewMoveCursorClosure cb = newCClosure =<< mkTreeViewMoveCursorCallback wrapped - where wrapped = treeViewMoveCursorCallbackWrapper cb - -treeViewMoveCursorCallbackWrapper :: - TreeViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO CInt -treeViewMoveCursorCallbackWrapper _cb _ step direction _ = do - let step' = (toEnum . fromIntegral) step - result <- _cb step' direction - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId -onTreeViewMoveCursor obj cb = liftIO $ connectTreeViewMoveCursor obj cb SignalConnectBefore -afterTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId -afterTreeViewMoveCursor obj cb = connectTreeViewMoveCursor obj cb SignalConnectAfter - -connectTreeViewMoveCursor :: (GObject a, MonadIO m) => - a -> TreeViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewMoveCursor obj cb after = liftIO $ do - cb' <- mkTreeViewMoveCursorCallback (treeViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal TreeView::row-activated -type TreeViewRowActivatedCallback = - TreePath -> - TreeViewColumn -> - IO () - -noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback -noTreeViewRowActivatedCallback = Nothing - -type TreeViewRowActivatedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr TreeViewColumn -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowActivatedCallback :: TreeViewRowActivatedCallbackC -> IO (FunPtr TreeViewRowActivatedCallbackC) - -treeViewRowActivatedClosure :: TreeViewRowActivatedCallback -> IO Closure -treeViewRowActivatedClosure cb = newCClosure =<< mkTreeViewRowActivatedCallback wrapped - where wrapped = treeViewRowActivatedCallbackWrapper cb - -treeViewRowActivatedCallbackWrapper :: - TreeViewRowActivatedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr TreeViewColumn -> - Ptr () -> - IO () -treeViewRowActivatedCallbackWrapper _cb _ path column _ = do - path' <- (newBoxed TreePath) path - column' <- (newObject TreeViewColumn) column - _cb path' column' - -onTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId -onTreeViewRowActivated obj cb = liftIO $ connectTreeViewRowActivated obj cb SignalConnectBefore -afterTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId -afterTreeViewRowActivated obj cb = connectTreeViewRowActivated obj cb SignalConnectAfter - -connectTreeViewRowActivated :: (GObject a, MonadIO m) => - a -> TreeViewRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowActivated obj cb after = liftIO $ do - cb' <- mkTreeViewRowActivatedCallback (treeViewRowActivatedCallbackWrapper cb) - connectSignalFunPtr obj "row-activated" cb' after - --- signal TreeView::row-collapsed -type TreeViewRowCollapsedCallback = - TreeIter -> - TreePath -> - IO () - -noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback -noTreeViewRowCollapsedCallback = Nothing - -type TreeViewRowCollapsedCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowCollapsedCallback :: TreeViewRowCollapsedCallbackC -> IO (FunPtr TreeViewRowCollapsedCallbackC) - -treeViewRowCollapsedClosure :: TreeViewRowCollapsedCallback -> IO Closure -treeViewRowCollapsedClosure cb = newCClosure =<< mkTreeViewRowCollapsedCallback wrapped - where wrapped = treeViewRowCollapsedCallbackWrapper cb - -treeViewRowCollapsedCallbackWrapper :: - TreeViewRowCollapsedCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO () -treeViewRowCollapsedCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - _cb iter' path' - -onTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId -onTreeViewRowCollapsed obj cb = liftIO $ connectTreeViewRowCollapsed obj cb SignalConnectBefore -afterTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId -afterTreeViewRowCollapsed obj cb = connectTreeViewRowCollapsed obj cb SignalConnectAfter - -connectTreeViewRowCollapsed :: (GObject a, MonadIO m) => - a -> TreeViewRowCollapsedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowCollapsed obj cb after = liftIO $ do - cb' <- mkTreeViewRowCollapsedCallback (treeViewRowCollapsedCallbackWrapper cb) - connectSignalFunPtr obj "row-collapsed" cb' after - --- signal TreeView::row-expanded -type TreeViewRowExpandedCallback = - TreeIter -> - TreePath -> - IO () - -noTreeViewRowExpandedCallback :: Maybe TreeViewRowExpandedCallback -noTreeViewRowExpandedCallback = Nothing - -type TreeViewRowExpandedCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowExpandedCallback :: TreeViewRowExpandedCallbackC -> IO (FunPtr TreeViewRowExpandedCallbackC) - -treeViewRowExpandedClosure :: TreeViewRowExpandedCallback -> IO Closure -treeViewRowExpandedClosure cb = newCClosure =<< mkTreeViewRowExpandedCallback wrapped - where wrapped = treeViewRowExpandedCallbackWrapper cb - -treeViewRowExpandedCallbackWrapper :: - TreeViewRowExpandedCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO () -treeViewRowExpandedCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - _cb iter' path' - -onTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId -onTreeViewRowExpanded obj cb = liftIO $ connectTreeViewRowExpanded obj cb SignalConnectBefore -afterTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId -afterTreeViewRowExpanded obj cb = connectTreeViewRowExpanded obj cb SignalConnectAfter - -connectTreeViewRowExpanded :: (GObject a, MonadIO m) => - a -> TreeViewRowExpandedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowExpanded obj cb after = liftIO $ do - cb' <- mkTreeViewRowExpandedCallback (treeViewRowExpandedCallbackWrapper cb) - connectSignalFunPtr obj "row-expanded" cb' after - --- signal TreeView::select-all -type TreeViewSelectAllCallback = - IO Bool - -noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback -noTreeViewSelectAllCallback = Nothing - -type TreeViewSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectAllCallback :: TreeViewSelectAllCallbackC -> IO (FunPtr TreeViewSelectAllCallbackC) - -treeViewSelectAllClosure :: TreeViewSelectAllCallback -> IO Closure -treeViewSelectAllClosure cb = newCClosure =<< mkTreeViewSelectAllCallback wrapped - where wrapped = treeViewSelectAllCallbackWrapper cb - -treeViewSelectAllCallbackWrapper :: - TreeViewSelectAllCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewSelectAllCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId -onTreeViewSelectAll obj cb = liftIO $ connectTreeViewSelectAll obj cb SignalConnectBefore -afterTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId -afterTreeViewSelectAll obj cb = connectTreeViewSelectAll obj cb SignalConnectAfter - -connectTreeViewSelectAll :: (GObject a, MonadIO m) => - a -> TreeViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectAll obj cb after = liftIO $ do - cb' <- mkTreeViewSelectAllCallback (treeViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal TreeView::select-cursor-parent -type TreeViewSelectCursorParentCallback = - IO Bool - -noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectCursorParentCallback -noTreeViewSelectCursorParentCallback = Nothing - -type TreeViewSelectCursorParentCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectCursorParentCallback :: TreeViewSelectCursorParentCallbackC -> IO (FunPtr TreeViewSelectCursorParentCallbackC) - -treeViewSelectCursorParentClosure :: TreeViewSelectCursorParentCallback -> IO Closure -treeViewSelectCursorParentClosure cb = newCClosure =<< mkTreeViewSelectCursorParentCallback wrapped - where wrapped = treeViewSelectCursorParentCallbackWrapper cb - -treeViewSelectCursorParentCallbackWrapper :: - TreeViewSelectCursorParentCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewSelectCursorParentCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId -onTreeViewSelectCursorParent obj cb = liftIO $ connectTreeViewSelectCursorParent obj cb SignalConnectBefore -afterTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId -afterTreeViewSelectCursorParent obj cb = connectTreeViewSelectCursorParent obj cb SignalConnectAfter - -connectTreeViewSelectCursorParent :: (GObject a, MonadIO m) => - a -> TreeViewSelectCursorParentCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectCursorParent obj cb after = liftIO $ do - cb' <- mkTreeViewSelectCursorParentCallback (treeViewSelectCursorParentCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-parent" cb' after - --- signal TreeView::select-cursor-row -type TreeViewSelectCursorRowCallback = - Bool -> - IO Bool - -noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback -noTreeViewSelectCursorRowCallback = Nothing - -type TreeViewSelectCursorRowCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectCursorRowCallback :: TreeViewSelectCursorRowCallbackC -> IO (FunPtr TreeViewSelectCursorRowCallbackC) - -treeViewSelectCursorRowClosure :: TreeViewSelectCursorRowCallback -> IO Closure -treeViewSelectCursorRowClosure cb = newCClosure =<< mkTreeViewSelectCursorRowCallback wrapped - where wrapped = treeViewSelectCursorRowCallbackWrapper cb - -treeViewSelectCursorRowCallbackWrapper :: - TreeViewSelectCursorRowCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -treeViewSelectCursorRowCallbackWrapper _cb _ object _ = do - let object' = (/= 0) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId -onTreeViewSelectCursorRow obj cb = liftIO $ connectTreeViewSelectCursorRow obj cb SignalConnectBefore -afterTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId -afterTreeViewSelectCursorRow obj cb = connectTreeViewSelectCursorRow obj cb SignalConnectAfter - -connectTreeViewSelectCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewSelectCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewSelectCursorRowCallback (treeViewSelectCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-row" cb' after - --- signal TreeView::start-interactive-search -type TreeViewStartInteractiveSearchCallback = - IO Bool - -noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewStartInteractiveSearchCallback -noTreeViewStartInteractiveSearchCallback = Nothing - -type TreeViewStartInteractiveSearchCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewStartInteractiveSearchCallback :: TreeViewStartInteractiveSearchCallbackC -> IO (FunPtr TreeViewStartInteractiveSearchCallbackC) - -treeViewStartInteractiveSearchClosure :: TreeViewStartInteractiveSearchCallback -> IO Closure -treeViewStartInteractiveSearchClosure cb = newCClosure =<< mkTreeViewStartInteractiveSearchCallback wrapped - where wrapped = treeViewStartInteractiveSearchCallbackWrapper cb - -treeViewStartInteractiveSearchCallbackWrapper :: - TreeViewStartInteractiveSearchCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewStartInteractiveSearchCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId -onTreeViewStartInteractiveSearch obj cb = liftIO $ connectTreeViewStartInteractiveSearch obj cb SignalConnectBefore -afterTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId -afterTreeViewStartInteractiveSearch obj cb = connectTreeViewStartInteractiveSearch obj cb SignalConnectAfter - -connectTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => - a -> TreeViewStartInteractiveSearchCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewStartInteractiveSearch obj cb after = liftIO $ do - cb' <- mkTreeViewStartInteractiveSearchCallback (treeViewStartInteractiveSearchCallbackWrapper cb) - connectSignalFunPtr obj "start-interactive-search" cb' after - --- signal TreeView::test-collapse-row -type TreeViewTestCollapseRowCallback = - TreeIter -> - TreePath -> - IO Bool - -noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback -noTreeViewTestCollapseRowCallback = Nothing - -type TreeViewTestCollapseRowCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewTestCollapseRowCallback :: TreeViewTestCollapseRowCallbackC -> IO (FunPtr TreeViewTestCollapseRowCallbackC) - -treeViewTestCollapseRowClosure :: TreeViewTestCollapseRowCallback -> IO Closure -treeViewTestCollapseRowClosure cb = newCClosure =<< mkTreeViewTestCollapseRowCallback wrapped - where wrapped = treeViewTestCollapseRowCallbackWrapper cb - -treeViewTestCollapseRowCallbackWrapper :: - TreeViewTestCollapseRowCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO CInt -treeViewTestCollapseRowCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - result <- _cb iter' path' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId -onTreeViewTestCollapseRow obj cb = liftIO $ connectTreeViewTestCollapseRow obj cb SignalConnectBefore -afterTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId -afterTreeViewTestCollapseRow obj cb = connectTreeViewTestCollapseRow obj cb SignalConnectAfter - -connectTreeViewTestCollapseRow :: (GObject a, MonadIO m) => - a -> TreeViewTestCollapseRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewTestCollapseRow obj cb after = liftIO $ do - cb' <- mkTreeViewTestCollapseRowCallback (treeViewTestCollapseRowCallbackWrapper cb) - connectSignalFunPtr obj "test-collapse-row" cb' after - --- signal TreeView::test-expand-row -type TreeViewTestExpandRowCallback = - TreeIter -> - TreePath -> - IO Bool - -noTreeViewTestExpandRowCallback :: Maybe TreeViewTestExpandRowCallback -noTreeViewTestExpandRowCallback = Nothing - -type TreeViewTestExpandRowCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewTestExpandRowCallback :: TreeViewTestExpandRowCallbackC -> IO (FunPtr TreeViewTestExpandRowCallbackC) - -treeViewTestExpandRowClosure :: TreeViewTestExpandRowCallback -> IO Closure -treeViewTestExpandRowClosure cb = newCClosure =<< mkTreeViewTestExpandRowCallback wrapped - where wrapped = treeViewTestExpandRowCallbackWrapper cb - -treeViewTestExpandRowCallbackWrapper :: - TreeViewTestExpandRowCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO CInt -treeViewTestExpandRowCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - result <- _cb iter' path' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId -onTreeViewTestExpandRow obj cb = liftIO $ connectTreeViewTestExpandRow obj cb SignalConnectBefore -afterTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId -afterTreeViewTestExpandRow obj cb = connectTreeViewTestExpandRow obj cb SignalConnectAfter - -connectTreeViewTestExpandRow :: (GObject a, MonadIO m) => - a -> TreeViewTestExpandRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewTestExpandRow obj cb after = liftIO $ do - cb' <- mkTreeViewTestExpandRowCallback (treeViewTestExpandRowCallbackWrapper cb) - connectSignalFunPtr obj "test-expand-row" cb' after - --- signal TreeView::toggle-cursor-row -type TreeViewToggleCursorRowCallback = - IO Bool - -noTreeViewToggleCursorRowCallback :: Maybe TreeViewToggleCursorRowCallback -noTreeViewToggleCursorRowCallback = Nothing - -type TreeViewToggleCursorRowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewToggleCursorRowCallback :: TreeViewToggleCursorRowCallbackC -> IO (FunPtr TreeViewToggleCursorRowCallbackC) - -treeViewToggleCursorRowClosure :: TreeViewToggleCursorRowCallback -> IO Closure -treeViewToggleCursorRowClosure cb = newCClosure =<< mkTreeViewToggleCursorRowCallback wrapped - where wrapped = treeViewToggleCursorRowCallbackWrapper cb - -treeViewToggleCursorRowCallbackWrapper :: - TreeViewToggleCursorRowCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewToggleCursorRowCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId -onTreeViewToggleCursorRow obj cb = liftIO $ connectTreeViewToggleCursorRow obj cb SignalConnectBefore -afterTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId -afterTreeViewToggleCursorRow obj cb = connectTreeViewToggleCursorRow obj cb SignalConnectAfter - -connectTreeViewToggleCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewToggleCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewToggleCursorRowCallback (treeViewToggleCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-row" cb' after - --- signal TreeView::unselect-all -type TreeViewUnselectAllCallback = - IO Bool - -noTreeViewUnselectAllCallback :: Maybe TreeViewUnselectAllCallback -noTreeViewUnselectAllCallback = Nothing - -type TreeViewUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewUnselectAllCallback :: TreeViewUnselectAllCallbackC -> IO (FunPtr TreeViewUnselectAllCallbackC) - -treeViewUnselectAllClosure :: TreeViewUnselectAllCallback -> IO Closure -treeViewUnselectAllClosure cb = newCClosure =<< mkTreeViewUnselectAllCallback wrapped - where wrapped = treeViewUnselectAllCallbackWrapper cb - -treeViewUnselectAllCallbackWrapper :: - TreeViewUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewUnselectAllCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId -onTreeViewUnselectAll obj cb = liftIO $ connectTreeViewUnselectAll obj cb SignalConnectBefore -afterTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId -afterTreeViewUnselectAll obj cb = connectTreeViewUnselectAll obj cb SignalConnectAfter - -connectTreeViewUnselectAll :: (GObject a, MonadIO m) => - a -> TreeViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewUnselectAll obj cb after = liftIO $ do - cb' <- mkTreeViewUnselectAllCallback (treeViewUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructTreeViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructTreeViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data TreeViewActivateOnSingleClickPropertyInfo -instance AttrInfo TreeViewActivateOnSingleClickPropertyInfo where - type AttrAllowedOps TreeViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = TreeViewK - type AttrGetType TreeViewActivateOnSingleClickPropertyInfo = Bool - type AttrLabel TreeViewActivateOnSingleClickPropertyInfo = "activate-on-single-click" - attrGet _ = getTreeViewActivateOnSingleClick - attrSet _ = setTreeViewActivateOnSingleClick - attrConstruct _ = constructTreeViewActivateOnSingleClick - attrClear _ = undefined - --- VVV Prop "enable-grid-lines" - -- Type: TInterface "Gtk" "TreeViewGridLines" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> m TreeViewGridLines -getTreeViewEnableGridLines obj = liftIO $ getObjectPropertyEnum obj "enable-grid-lines" - -setTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> TreeViewGridLines -> m () -setTreeViewEnableGridLines obj val = liftIO $ setObjectPropertyEnum obj "enable-grid-lines" val - -constructTreeViewEnableGridLines :: TreeViewGridLines -> IO ([Char], GValue) -constructTreeViewEnableGridLines val = constructObjectPropertyEnum "enable-grid-lines" val - -data TreeViewEnableGridLinesPropertyInfo -instance AttrInfo TreeViewEnableGridLinesPropertyInfo where - type AttrAllowedOps TreeViewEnableGridLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) TreeViewGridLines - type AttrBaseTypeConstraint TreeViewEnableGridLinesPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableGridLinesPropertyInfo = TreeViewGridLines - type AttrLabel TreeViewEnableGridLinesPropertyInfo = "enable-grid-lines" - attrGet _ = getTreeViewEnableGridLines - attrSet _ = setTreeViewEnableGridLines - attrConstruct _ = constructTreeViewEnableGridLines - attrClear _ = undefined - --- VVV Prop "enable-search" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewEnableSearch obj = liftIO $ getObjectPropertyBool obj "enable-search" - -setTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewEnableSearch obj val = liftIO $ setObjectPropertyBool obj "enable-search" val - -constructTreeViewEnableSearch :: Bool -> IO ([Char], GValue) -constructTreeViewEnableSearch val = constructObjectPropertyBool "enable-search" val - -data TreeViewEnableSearchPropertyInfo -instance AttrInfo TreeViewEnableSearchPropertyInfo where - type AttrAllowedOps TreeViewEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableSearchPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewEnableSearchPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableSearchPropertyInfo = Bool - type AttrLabel TreeViewEnableSearchPropertyInfo = "enable-search" - attrGet _ = getTreeViewEnableSearch - attrSet _ = setTreeViewEnableSearch - attrConstruct _ = constructTreeViewEnableSearch - attrClear _ = undefined - --- VVV Prop "enable-tree-lines" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewEnableTreeLines obj = liftIO $ getObjectPropertyBool obj "enable-tree-lines" - -setTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewEnableTreeLines obj val = liftIO $ setObjectPropertyBool obj "enable-tree-lines" val - -constructTreeViewEnableTreeLines :: Bool -> IO ([Char], GValue) -constructTreeViewEnableTreeLines val = constructObjectPropertyBool "enable-tree-lines" val - -data TreeViewEnableTreeLinesPropertyInfo -instance AttrInfo TreeViewEnableTreeLinesPropertyInfo where - type AttrAllowedOps TreeViewEnableTreeLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableTreeLinesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewEnableTreeLinesPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableTreeLinesPropertyInfo = Bool - type AttrLabel TreeViewEnableTreeLinesPropertyInfo = "enable-tree-lines" - attrGet _ = getTreeViewEnableTreeLines - attrSet _ = setTreeViewEnableTreeLines - attrConstruct _ = constructTreeViewEnableTreeLines - attrClear _ = undefined - --- VVV Prop "expander-column" - -- Type: TInterface "Gtk" "TreeViewColumn" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn -getTreeViewExpanderColumn obj = liftIO $ checkUnexpectedNothing "getTreeViewExpanderColumn" $ getObjectPropertyObject obj "expander-column" TreeViewColumn - -setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () -setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" (Just val) - -constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) -constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" (Just val) - -data TreeViewExpanderColumnPropertyInfo -instance AttrInfo TreeViewExpanderColumnPropertyInfo where - type AttrAllowedOps TreeViewExpanderColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewColumnK - type AttrBaseTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewExpanderColumnPropertyInfo = TreeViewColumn - type AttrLabel TreeViewExpanderColumnPropertyInfo = "expander-column" - attrGet _ = getTreeViewExpanderColumn - attrSet _ = setTreeViewExpanderColumn - attrConstruct _ = constructTreeViewExpanderColumn - attrClear _ = undefined - --- VVV Prop "fixed-height-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewFixedHeightMode obj = liftIO $ getObjectPropertyBool obj "fixed-height-mode" - -setTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewFixedHeightMode obj val = liftIO $ setObjectPropertyBool obj "fixed-height-mode" val - -constructTreeViewFixedHeightMode :: Bool -> IO ([Char], GValue) -constructTreeViewFixedHeightMode val = constructObjectPropertyBool "fixed-height-mode" val - -data TreeViewFixedHeightModePropertyInfo -instance AttrInfo TreeViewFixedHeightModePropertyInfo where - type AttrAllowedOps TreeViewFixedHeightModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewFixedHeightModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewFixedHeightModePropertyInfo = TreeViewK - type AttrGetType TreeViewFixedHeightModePropertyInfo = Bool - type AttrLabel TreeViewFixedHeightModePropertyInfo = "fixed-height-mode" - attrGet _ = getTreeViewFixedHeightMode - attrSet _ = setTreeViewFixedHeightMode - attrConstruct _ = constructTreeViewFixedHeightMode - attrClear _ = undefined - --- VVV Prop "headers-clickable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHeadersClickable obj = liftIO $ getObjectPropertyBool obj "headers-clickable" - -setTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHeadersClickable obj val = liftIO $ setObjectPropertyBool obj "headers-clickable" val - -constructTreeViewHeadersClickable :: Bool -> IO ([Char], GValue) -constructTreeViewHeadersClickable val = constructObjectPropertyBool "headers-clickable" val - -data TreeViewHeadersClickablePropertyInfo -instance AttrInfo TreeViewHeadersClickablePropertyInfo where - type AttrAllowedOps TreeViewHeadersClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHeadersClickablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHeadersClickablePropertyInfo = TreeViewK - type AttrGetType TreeViewHeadersClickablePropertyInfo = Bool - type AttrLabel TreeViewHeadersClickablePropertyInfo = "headers-clickable" - attrGet _ = getTreeViewHeadersClickable - attrSet _ = setTreeViewHeadersClickable - attrConstruct _ = constructTreeViewHeadersClickable - attrClear _ = undefined - --- VVV Prop "headers-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHeadersVisible obj = liftIO $ getObjectPropertyBool obj "headers-visible" - -setTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHeadersVisible obj val = liftIO $ setObjectPropertyBool obj "headers-visible" val - -constructTreeViewHeadersVisible :: Bool -> IO ([Char], GValue) -constructTreeViewHeadersVisible val = constructObjectPropertyBool "headers-visible" val - -data TreeViewHeadersVisiblePropertyInfo -instance AttrInfo TreeViewHeadersVisiblePropertyInfo where - type AttrAllowedOps TreeViewHeadersVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHeadersVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHeadersVisiblePropertyInfo = TreeViewK - type AttrGetType TreeViewHeadersVisiblePropertyInfo = Bool - type AttrLabel TreeViewHeadersVisiblePropertyInfo = "headers-visible" - attrGet _ = getTreeViewHeadersVisible - attrSet _ = setTreeViewHeadersVisible - attrConstruct _ = constructTreeViewHeadersVisible - attrClear _ = undefined - --- VVV Prop "hover-expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHoverExpand obj = liftIO $ getObjectPropertyBool obj "hover-expand" - -setTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHoverExpand obj val = liftIO $ setObjectPropertyBool obj "hover-expand" val - -constructTreeViewHoverExpand :: Bool -> IO ([Char], GValue) -constructTreeViewHoverExpand val = constructObjectPropertyBool "hover-expand" val - -data TreeViewHoverExpandPropertyInfo -instance AttrInfo TreeViewHoverExpandPropertyInfo where - type AttrAllowedOps TreeViewHoverExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHoverExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHoverExpandPropertyInfo = TreeViewK - type AttrGetType TreeViewHoverExpandPropertyInfo = Bool - type AttrLabel TreeViewHoverExpandPropertyInfo = "hover-expand" - attrGet _ = getTreeViewHoverExpand - attrSet _ = setTreeViewHoverExpand - attrConstruct _ = constructTreeViewHoverExpand - attrClear _ = undefined - --- VVV Prop "hover-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHoverSelection obj = liftIO $ getObjectPropertyBool obj "hover-selection" - -setTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHoverSelection obj val = liftIO $ setObjectPropertyBool obj "hover-selection" val - -constructTreeViewHoverSelection :: Bool -> IO ([Char], GValue) -constructTreeViewHoverSelection val = constructObjectPropertyBool "hover-selection" val - -data TreeViewHoverSelectionPropertyInfo -instance AttrInfo TreeViewHoverSelectionPropertyInfo where - type AttrAllowedOps TreeViewHoverSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHoverSelectionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHoverSelectionPropertyInfo = TreeViewK - type AttrGetType TreeViewHoverSelectionPropertyInfo = Bool - type AttrLabel TreeViewHoverSelectionPropertyInfo = "hover-selection" - attrGet _ = getTreeViewHoverSelection - attrSet _ = setTreeViewHoverSelection - attrConstruct _ = constructTreeViewHoverSelection - attrClear _ = undefined - --- VVV Prop "level-indentation" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyInt32 obj "level-indentation" - -setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyInt32 obj "level-indentation" val - -constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) -constructTreeViewLevelIndentation val = constructObjectPropertyInt32 "level-indentation" val - -data TreeViewLevelIndentationPropertyInfo -instance AttrInfo TreeViewLevelIndentationPropertyInfo where - type AttrAllowedOps TreeViewLevelIndentationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewLevelIndentationPropertyInfo = TreeViewK - type AttrGetType TreeViewLevelIndentationPropertyInfo = Int32 - type AttrLabel TreeViewLevelIndentationPropertyInfo = "level-indentation" - attrGet _ = getTreeViewLevelIndentation - attrSet _ = setTreeViewLevelIndentation - attrConstruct _ = constructTreeViewLevelIndentation - attrClear _ = undefined - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just True) - -getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m (Maybe TreeModel) -getTreeViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setTreeViewModel :: (MonadIO m, TreeViewK o, TreeModelK a) => o -> a -> m () -setTreeViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) - -constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeViewModel val = constructObjectPropertyObject "model" (Just val) - -clearTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m () -clearTreeViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) - -data TreeViewModelPropertyInfo -instance AttrInfo TreeViewModelPropertyInfo where - type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK - type AttrGetType TreeViewModelPropertyInfo = (Maybe TreeModel) - type AttrLabel TreeViewModelPropertyInfo = "model" - attrGet _ = getTreeViewModel - attrSet _ = setTreeViewModel - attrConstruct _ = constructTreeViewModel - attrClear _ = clearTreeViewModel - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" - -setTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val - -constructTreeViewReorderable :: Bool -> IO ([Char], GValue) -constructTreeViewReorderable val = constructObjectPropertyBool "reorderable" val - -data TreeViewReorderablePropertyInfo -instance AttrInfo TreeViewReorderablePropertyInfo where - type AttrAllowedOps TreeViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewReorderablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewReorderablePropertyInfo = TreeViewK - type AttrGetType TreeViewReorderablePropertyInfo = Bool - type AttrLabel TreeViewReorderablePropertyInfo = "reorderable" - attrGet _ = getTreeViewReorderable - attrSet _ = setTreeViewReorderable - attrConstruct _ = constructTreeViewReorderable - attrClear _ = undefined - --- VVV Prop "rubber-banding" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewRubberBanding obj = liftIO $ getObjectPropertyBool obj "rubber-banding" - -setTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewRubberBanding obj val = liftIO $ setObjectPropertyBool obj "rubber-banding" val - -constructTreeViewRubberBanding :: Bool -> IO ([Char], GValue) -constructTreeViewRubberBanding val = constructObjectPropertyBool "rubber-banding" val - -data TreeViewRubberBandingPropertyInfo -instance AttrInfo TreeViewRubberBandingPropertyInfo where - type AttrAllowedOps TreeViewRubberBandingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewRubberBandingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewRubberBandingPropertyInfo = TreeViewK - type AttrGetType TreeViewRubberBandingPropertyInfo = Bool - type AttrLabel TreeViewRubberBandingPropertyInfo = "rubber-banding" - attrGet _ = getTreeViewRubberBanding - attrSet _ = setTreeViewRubberBanding - attrConstruct _ = constructTreeViewRubberBanding - attrClear _ = undefined - --- VVV Prop "rules-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewRulesHint obj = liftIO $ getObjectPropertyBool obj "rules-hint" - -setTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewRulesHint obj val = liftIO $ setObjectPropertyBool obj "rules-hint" val - -constructTreeViewRulesHint :: Bool -> IO ([Char], GValue) -constructTreeViewRulesHint val = constructObjectPropertyBool "rules-hint" val - -data TreeViewRulesHintPropertyInfo -instance AttrInfo TreeViewRulesHintPropertyInfo where - type AttrAllowedOps TreeViewRulesHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewRulesHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewRulesHintPropertyInfo = TreeViewK - type AttrGetType TreeViewRulesHintPropertyInfo = Bool - type AttrLabel TreeViewRulesHintPropertyInfo = "rules-hint" - attrGet _ = getTreeViewRulesHint - attrSet _ = setTreeViewRulesHint - attrConstruct _ = constructTreeViewRulesHint - attrClear _ = undefined - --- VVV Prop "search-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewSearchColumn obj = liftIO $ getObjectPropertyInt32 obj "search-column" - -setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyInt32 obj "search-column" val - -constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewSearchColumn val = constructObjectPropertyInt32 "search-column" val - -data TreeViewSearchColumnPropertyInfo -instance AttrInfo TreeViewSearchColumnPropertyInfo where - type AttrAllowedOps TreeViewSearchColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewSearchColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewSearchColumnPropertyInfo = Int32 - type AttrLabel TreeViewSearchColumnPropertyInfo = "search-column" - attrGet _ = getTreeViewSearchColumn - attrSet _ = setTreeViewSearchColumn - attrConstruct _ = constructTreeViewSearchColumn - attrClear _ = undefined - --- VVV Prop "show-expanders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewShowExpanders obj = liftIO $ getObjectPropertyBool obj "show-expanders" - -setTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewShowExpanders obj val = liftIO $ setObjectPropertyBool obj "show-expanders" val - -constructTreeViewShowExpanders :: Bool -> IO ([Char], GValue) -constructTreeViewShowExpanders val = constructObjectPropertyBool "show-expanders" val - -data TreeViewShowExpandersPropertyInfo -instance AttrInfo TreeViewShowExpandersPropertyInfo where - type AttrAllowedOps TreeViewShowExpandersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewShowExpandersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewShowExpandersPropertyInfo = TreeViewK - type AttrGetType TreeViewShowExpandersPropertyInfo = Bool - type AttrLabel TreeViewShowExpandersPropertyInfo = "show-expanders" - attrGet _ = getTreeViewShowExpanders - attrSet _ = setTreeViewShowExpanders - attrConstruct _ = constructTreeViewShowExpanders - attrClear _ = undefined - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyInt32 obj "tooltip-column" - -setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyInt32 obj "tooltip-column" val - -constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewTooltipColumn val = constructObjectPropertyInt32 "tooltip-column" val - -data TreeViewTooltipColumnPropertyInfo -instance AttrInfo TreeViewTooltipColumnPropertyInfo where - type AttrAllowedOps TreeViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewTooltipColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewTooltipColumnPropertyInfo = Int32 - type AttrLabel TreeViewTooltipColumnPropertyInfo = "tooltip-column" - attrGet _ = getTreeViewTooltipColumn - attrSet _ = setTreeViewTooltipColumn - attrConstruct _ = constructTreeViewTooltipColumn - attrClear _ = undefined - -type instance AttributeList TreeView = TreeViewAttributeList -type TreeViewAttributeList = ('[ '("activateOnSingleClick", TreeViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enableGridLines", TreeViewEnableGridLinesPropertyInfo), '("enableSearch", TreeViewEnableSearchPropertyInfo), '("enableTreeLines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanderColumn", TreeViewExpanderColumnPropertyInfo), '("fixedHeightMode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headersClickable", TreeViewHeadersClickablePropertyInfo), '("headersVisible", TreeViewHeadersVisiblePropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hoverExpand", TreeViewHoverExpandPropertyInfo), '("hoverSelection", TreeViewHoverSelectionPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("levelIndentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rubberBanding", TreeViewRubberBandingPropertyInfo), '("rulesHint", TreeViewRulesHintPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchColumn", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showExpanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipColumn", TreeViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -treeViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" -treeViewActivateOnSingleClick = AttrLabelProxy - -treeViewEnableGridLines :: AttrLabelProxy "enableGridLines" -treeViewEnableGridLines = AttrLabelProxy - -treeViewEnableSearch :: AttrLabelProxy "enableSearch" -treeViewEnableSearch = AttrLabelProxy - -treeViewEnableTreeLines :: AttrLabelProxy "enableTreeLines" -treeViewEnableTreeLines = AttrLabelProxy - -treeViewExpanderColumn :: AttrLabelProxy "expanderColumn" -treeViewExpanderColumn = AttrLabelProxy - -treeViewFixedHeightMode :: AttrLabelProxy "fixedHeightMode" -treeViewFixedHeightMode = AttrLabelProxy - -treeViewHeadersClickable :: AttrLabelProxy "headersClickable" -treeViewHeadersClickable = AttrLabelProxy - -treeViewHeadersVisible :: AttrLabelProxy "headersVisible" -treeViewHeadersVisible = AttrLabelProxy - -treeViewHoverExpand :: AttrLabelProxy "hoverExpand" -treeViewHoverExpand = AttrLabelProxy - -treeViewHoverSelection :: AttrLabelProxy "hoverSelection" -treeViewHoverSelection = AttrLabelProxy - -treeViewLevelIndentation :: AttrLabelProxy "levelIndentation" -treeViewLevelIndentation = AttrLabelProxy - -treeViewModel :: AttrLabelProxy "model" -treeViewModel = AttrLabelProxy - -treeViewReorderable :: AttrLabelProxy "reorderable" -treeViewReorderable = AttrLabelProxy - -treeViewRubberBanding :: AttrLabelProxy "rubberBanding" -treeViewRubberBanding = AttrLabelProxy - -treeViewRulesHint :: AttrLabelProxy "rulesHint" -treeViewRulesHint = AttrLabelProxy - -treeViewSearchColumn :: AttrLabelProxy "searchColumn" -treeViewSearchColumn = AttrLabelProxy - -treeViewShowExpanders :: AttrLabelProxy "showExpanders" -treeViewShowExpanders = AttrLabelProxy - -treeViewTooltipColumn :: AttrLabelProxy "tooltipColumn" -treeViewTooltipColumn = AttrLabelProxy - -data TreeViewColumnsChangedSignalInfo -instance SignalInfo TreeViewColumnsChangedSignalInfo where - type HaskellCallbackType TreeViewColumnsChangedSignalInfo = TreeViewColumnsChangedCallback - connectSignal _ = connectTreeViewColumnsChanged - -data TreeViewCursorChangedSignalInfo -instance SignalInfo TreeViewCursorChangedSignalInfo where - type HaskellCallbackType TreeViewCursorChangedSignalInfo = TreeViewCursorChangedCallback - connectSignal _ = connectTreeViewCursorChanged - -data TreeViewExpandCollapseCursorRowSignalInfo -instance SignalInfo TreeViewExpandCollapseCursorRowSignalInfo where - type HaskellCallbackType TreeViewExpandCollapseCursorRowSignalInfo = TreeViewExpandCollapseCursorRowCallback - connectSignal _ = connectTreeViewExpandCollapseCursorRow - -data TreeViewMoveCursorSignalInfo -instance SignalInfo TreeViewMoveCursorSignalInfo where - type HaskellCallbackType TreeViewMoveCursorSignalInfo = TreeViewMoveCursorCallback - connectSignal _ = connectTreeViewMoveCursor - -data TreeViewRowActivatedSignalInfo -instance SignalInfo TreeViewRowActivatedSignalInfo where - type HaskellCallbackType TreeViewRowActivatedSignalInfo = TreeViewRowActivatedCallback - connectSignal _ = connectTreeViewRowActivated - -data TreeViewRowCollapsedSignalInfo -instance SignalInfo TreeViewRowCollapsedSignalInfo where - type HaskellCallbackType TreeViewRowCollapsedSignalInfo = TreeViewRowCollapsedCallback - connectSignal _ = connectTreeViewRowCollapsed - -data TreeViewRowExpandedSignalInfo -instance SignalInfo TreeViewRowExpandedSignalInfo where - type HaskellCallbackType TreeViewRowExpandedSignalInfo = TreeViewRowExpandedCallback - connectSignal _ = connectTreeViewRowExpanded - -data TreeViewSelectAllSignalInfo -instance SignalInfo TreeViewSelectAllSignalInfo where - type HaskellCallbackType TreeViewSelectAllSignalInfo = TreeViewSelectAllCallback - connectSignal _ = connectTreeViewSelectAll - -data TreeViewSelectCursorParentSignalInfo -instance SignalInfo TreeViewSelectCursorParentSignalInfo where - type HaskellCallbackType TreeViewSelectCursorParentSignalInfo = TreeViewSelectCursorParentCallback - connectSignal _ = connectTreeViewSelectCursorParent - -data TreeViewSelectCursorRowSignalInfo -instance SignalInfo TreeViewSelectCursorRowSignalInfo where - type HaskellCallbackType TreeViewSelectCursorRowSignalInfo = TreeViewSelectCursorRowCallback - connectSignal _ = connectTreeViewSelectCursorRow - -data TreeViewStartInteractiveSearchSignalInfo -instance SignalInfo TreeViewStartInteractiveSearchSignalInfo where - type HaskellCallbackType TreeViewStartInteractiveSearchSignalInfo = TreeViewStartInteractiveSearchCallback - connectSignal _ = connectTreeViewStartInteractiveSearch - -data TreeViewTestCollapseRowSignalInfo -instance SignalInfo TreeViewTestCollapseRowSignalInfo where - type HaskellCallbackType TreeViewTestCollapseRowSignalInfo = TreeViewTestCollapseRowCallback - connectSignal _ = connectTreeViewTestCollapseRow - -data TreeViewTestExpandRowSignalInfo -instance SignalInfo TreeViewTestExpandRowSignalInfo where - type HaskellCallbackType TreeViewTestExpandRowSignalInfo = TreeViewTestExpandRowCallback - connectSignal _ = connectTreeViewTestExpandRow - -data TreeViewToggleCursorRowSignalInfo -instance SignalInfo TreeViewToggleCursorRowSignalInfo where - type HaskellCallbackType TreeViewToggleCursorRowSignalInfo = TreeViewToggleCursorRowCallback - connectSignal _ = connectTreeViewToggleCursorRow - -data TreeViewUnselectAllSignalInfo -instance SignalInfo TreeViewUnselectAllSignalInfo where - type HaskellCallbackType TreeViewUnselectAllSignalInfo = TreeViewUnselectAllCallback - connectSignal _ = connectTreeViewUnselectAll - -type instance SignalList TreeView = TreeViewSignalList -type TreeViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("columnsChanged", TreeViewColumnsChangedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cursorChanged", TreeViewCursorChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("expandCollapseCursorRow", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", TreeViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("rowActivated", TreeViewRowActivatedSignalInfo), '("rowCollapsed", TreeViewRowCollapsedSignalInfo), '("rowExpanded", TreeViewRowExpandedSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", TreeViewSelectAllSignalInfo), '("selectCursorParent", TreeViewSelectCursorParentSignalInfo), '("selectCursorRow", TreeViewSelectCursorRowSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("startInteractiveSearch", TreeViewStartInteractiveSearchSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("testCollapseRow", TreeViewTestCollapseRowSignalInfo), '("testExpandRow", TreeViewTestExpandRowSignalInfo), '("toggleCursorRow", TreeViewToggleCursorRowSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", TreeViewUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method TreeView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_new" gtk_tree_view_new :: - IO (Ptr TreeView) - - -treeViewNew :: - (MonadIO m) => - m TreeView -- result -treeViewNew = liftIO $ do - result <- gtk_tree_view_new - checkUnexpectedReturnNULL "gtk_tree_view_new" result - result' <- (newObject TreeView) result - return result' - --- method TreeView::new_with_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeView") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_new_with_model" gtk_tree_view_new_with_model :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr TreeView) - - -treeViewNewWithModel :: - (MonadIO m, TreeModelK a) => - a -- model - -> m TreeView -- result -treeViewNewWithModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_tree_view_new_with_model model' - checkUnexpectedReturnNULL "gtk_tree_view_new_with_model" result - result' <- (newObject TreeView) result - touchManagedPtr model - return result' - --- method TreeView::append_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_append_column" gtk_tree_view_append_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewAppendColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> b -- column - -> m Int32 -- result -treeViewAppendColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_append_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return result - -data TreeViewAppendColumnMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewAppendColumnMethodInfo a signature where - overloadedMethod _ = treeViewAppendColumn - --- method TreeView::collapse_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewCollapseAll :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m () -- result -treeViewCollapseAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_collapse_all _obj' - touchManagedPtr _obj - return () - -data TreeViewCollapseAllMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewCollapseAllMethodInfo a signature where - overloadedMethod _ = treeViewCollapseAll - --- method TreeView::collapse_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewCollapseRow :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -treeViewCollapseRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_collapse_row _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeViewCollapseRowMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewCollapseRowMethodInfo a signature where - overloadedMethod _ = treeViewCollapseRow - --- method TreeView::columns_autosize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewColumnsAutosize :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m () -- result -treeViewColumnsAutosize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_columns_autosize _obj' - touchManagedPtr _obj - return () - -data TreeViewColumnsAutosizeMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewColumnsAutosizeMethodInfo a signature where - overloadedMethod _ = treeViewColumnsAutosize - --- method TreeView::convert_bin_window_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt, 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 "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt - Int32 -> -- by : TBasicType TInt - Ptr Int32 -> -- tx : TBasicType TInt - Ptr Int32 -> -- ty : TBasicType TInt - IO () - - -treeViewConvertBinWindowToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- bx - -> Int32 -- by - -> m (Int32,Int32) -- result -treeViewConvertBinWindowToTreeCoords _obj bx by = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tx <- allocMem :: IO (Ptr Int32) - ty <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_bin_window_to_tree_coords _obj' bx by tx ty - tx' <- peek tx - ty' <- peek ty - touchManagedPtr _obj - freeMem tx - freeMem ty - return (tx', ty') - -data TreeViewConvertBinWindowToTreeCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertBinWindowToTreeCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertBinWindowToTreeCoords - --- method TreeView::convert_bin_window_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt, 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 "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt - Int32 -> -- by : TBasicType TInt - Ptr Int32 -> -- wx : TBasicType TInt - Ptr Int32 -> -- wy : TBasicType TInt - IO () - - -treeViewConvertBinWindowToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- bx - -> Int32 -- by - -> m (Int32,Int32) -- result -treeViewConvertBinWindowToWidgetCoords _obj bx by = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wx <- allocMem :: IO (Ptr Int32) - wy <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_bin_window_to_widget_coords _obj' bx by wx wy - wx' <- peek wx - wy' <- peek wy - touchManagedPtr _obj - freeMem wx - freeMem wy - return (wx', wy') - -data TreeViewConvertBinWindowToWidgetCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertBinWindowToWidgetCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertBinWindowToWidgetCoords - --- method TreeView::convert_tree_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, 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 "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt - Int32 -> -- ty : TBasicType TInt - Ptr Int32 -> -- bx : TBasicType TInt - Ptr Int32 -> -- by : TBasicType TInt - IO () - - -treeViewConvertTreeToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- tx - -> Int32 -- ty - -> m (Int32,Int32) -- result -treeViewConvertTreeToBinWindowCoords _obj tx ty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_tree_to_bin_window_coords _obj' tx ty bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - -data TreeViewConvertTreeToBinWindowCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertTreeToBinWindowCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertTreeToBinWindowCoords - --- method TreeView::convert_tree_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt, 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 "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt - Int32 -> -- ty : TBasicType TInt - Ptr Int32 -> -- wx : TBasicType TInt - Ptr Int32 -> -- wy : TBasicType TInt - IO () - - -treeViewConvertTreeToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- tx - -> Int32 -- ty - -> m (Int32,Int32) -- result -treeViewConvertTreeToWidgetCoords _obj tx ty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wx <- allocMem :: IO (Ptr Int32) - wy <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_tree_to_widget_coords _obj' tx ty wx wy - wx' <- peek wx - wy' <- peek wy - touchManagedPtr _obj - freeMem wx - freeMem wy - return (wx', wy') - -data TreeViewConvertTreeToWidgetCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertTreeToWidgetCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertTreeToWidgetCoords - --- method TreeView::convert_widget_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, 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 "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt - Int32 -> -- wy : TBasicType TInt - Ptr Int32 -> -- bx : TBasicType TInt - Ptr Int32 -> -- by : TBasicType TInt - IO () - - -treeViewConvertWidgetToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- wx - -> Int32 -- wy - -> m (Int32,Int32) -- result -treeViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_widget_to_bin_window_coords _obj' wx wy bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - -data TreeViewConvertWidgetToBinWindowCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertWidgetToBinWindowCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertWidgetToBinWindowCoords - --- method TreeView::convert_widget_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt, 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 "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt - Int32 -> -- wy : TBasicType TInt - Ptr Int32 -> -- tx : TBasicType TInt - Ptr Int32 -> -- ty : TBasicType TInt - IO () - - -treeViewConvertWidgetToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- wx - -> Int32 -- wy - -> m (Int32,Int32) -- result -treeViewConvertWidgetToTreeCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tx <- allocMem :: IO (Ptr Int32) - ty <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_widget_to_tree_coords _obj' wx wy tx ty - tx' <- peek tx - ty' <- peek ty - touchManagedPtr _obj - freeMem tx - freeMem ty - return (tx', ty') - -data TreeViewConvertWidgetToTreeCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertWidgetToTreeCoordsMethodInfo a signature where - overloadedMethod _ = treeViewConvertWidgetToTreeCoords - --- method TreeView::create_row_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr Cairo.Surface) - - -treeViewCreateRowDragIcon :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreePath -- path - -> m Cairo.Surface -- result -treeViewCreateRowDragIcon _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_create_row_drag_icon _obj' path' - checkUnexpectedReturnNULL "gtk_tree_view_create_row_drag_icon" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeViewCreateRowDragIconMethodInfo -instance (signature ~ (TreePath -> m Cairo.Surface), MonadIO m, TreeViewK a) => MethodInfo TreeViewCreateRowDragIconMethodInfo a signature where - overloadedMethod _ = treeViewCreateRowDragIcon - --- method TreeView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragDest :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> [TargetEntry] -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -treeViewEnableModelDragDest _obj targets actions = liftIO $ do - let nTargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_tree_view_enable_model_drag_dest _obj' targets'' nTargets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data TreeViewEnableModelDragDestMethodInfo -instance (signature ~ ([TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewEnableModelDragDestMethodInfo a signature where - overloadedMethod _ = treeViewEnableModelDragDest - --- method TreeView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragSource :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> [Gdk.ModifierType] -- startButtonMask - -> [TargetEntry] -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -treeViewEnableModelDragSource _obj startButtonMask targets actions = liftIO $ do - let nTargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let startButtonMask' = gflagsToWord startButtonMask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_tree_view_enable_model_drag_source _obj' startButtonMask' targets'' nTargets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data TreeViewEnableModelDragSourceMethodInfo -instance (signature ~ ([Gdk.ModifierType] -> [TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewEnableModelDragSourceMethodInfo a signature where - overloadedMethod _ = treeViewEnableModelDragSource - --- method TreeView::expand_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_expand_all" gtk_tree_view_expand_all :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewExpandAll :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m () -- result -treeViewExpandAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_expand_all _obj' - touchManagedPtr _obj - return () - -data TreeViewExpandAllMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandAllMethodInfo a signature where - overloadedMethod _ = treeViewExpandAll - --- method TreeView::expand_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "open_all", argType = TBasicType TBoolean, 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 "gtk_tree_view_expand_row" gtk_tree_view_expand_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CInt -> -- open_all : TBasicType TBoolean - IO CInt - - -treeViewExpandRow :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreePath -- path - -> Bool -- openAll - -> m Bool -- result -treeViewExpandRow _obj path openAll = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let openAll' = (fromIntegral . fromEnum) openAll - result <- gtk_tree_view_expand_row _obj' path' openAll' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeViewExpandRowMethodInfo -instance (signature ~ (TreePath -> Bool -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandRowMethodInfo a signature where - overloadedMethod _ = treeViewExpandRow - --- method TreeView::expand_to_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeViewExpandToPath :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreePath -- path - -> m () -- result -treeViewExpandToPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_tree_view_expand_to_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - -data TreeViewExpandToPathMethodInfo -instance (signature ~ (TreePath -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandToPathMethodInfo a signature where - overloadedMethod _ = treeViewExpandToPath - --- method TreeView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetActivateOnSingleClick :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetActivateOnSingleClickMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = treeViewGetActivateOnSingleClick - --- method TreeView::get_background_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetBackgroundArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> Maybe (TreePath) -- path - -> Maybe (b) -- column - -> m (Gdk.Rectangle) -- result -treeViewGetBackgroundArea _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_background_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - -data TreeViewGetBackgroundAreaMethodInfo -instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> m (Gdk.Rectangle)), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewGetBackgroundAreaMethodInfo a signature where - overloadedMethod _ = treeViewGetBackgroundArea - --- method TreeView::get_bin_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_bin_window" gtk_tree_view_get_bin_window :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Gdk.Window) - - -treeViewGetBinWindow :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Gdk.Window -- result -treeViewGetBinWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_bin_window _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_bin_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data TreeViewGetBinWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetBinWindowMethodInfo a signature where - overloadedMethod _ = treeViewGetBinWindow - --- method TreeView::get_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_cell_area" gtk_tree_view_get_cell_area :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetCellArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> Maybe (TreePath) -- path - -> Maybe (b) -- column - -> m (Gdk.Rectangle) -- result -treeViewGetCellArea _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_cell_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - -data TreeViewGetCellAreaMethodInfo -instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> m (Gdk.Rectangle)), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewGetCellAreaMethodInfo a signature where - overloadedMethod _ = treeViewGetCellArea - --- method TreeView::get_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewColumn") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- n : TBasicType TInt - IO (Ptr TreeViewColumn) - - -treeViewGetColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- n - -> m TreeViewColumn -- result -treeViewGetColumn _obj n = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_column _obj' n - checkUnexpectedReturnNULL "gtk_tree_view_get_column" result - result' <- (newObject TreeViewColumn) result - touchManagedPtr _obj - return result' - -data TreeViewGetColumnMethodInfo -instance (signature ~ (Int32 -> m TreeViewColumn), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetColumnMethodInfo a signature where - overloadedMethod _ = treeViewGetColumn - --- method TreeView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "TreeViewColumn")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr (GList (Ptr TreeViewColumn))) - - -treeViewGetColumns :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m [TreeViewColumn] -- result -treeViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_columns _obj' - result' <- unpackGList result - result'' <- mapM (newObject TreeViewColumn) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data TreeViewGetColumnsMethodInfo -instance (signature ~ (m [TreeViewColumn]), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetColumnsMethodInfo a signature where - overloadedMethod _ = treeViewGetColumns - --- method TreeView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewGetCursor :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m ((Maybe TreePath),(Maybe TreeViewColumn))-- result -treeViewGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - focusColumn <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - gtk_tree_view_get_cursor _obj' path focusColumn - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - focusColumn' <- peek focusColumn - maybeFocusColumn' <- convertIfNonNull focusColumn' $ \focusColumn'' -> do - focusColumn''' <- (newObject TreeViewColumn) focusColumn'' - return focusColumn''' - touchManagedPtr _obj - freeMem path - freeMem focusColumn - return (maybePath', maybeFocusColumn') - -data TreeViewGetCursorMethodInfo -instance (signature ~ (m ((Maybe TreePath),(Maybe TreeViewColumn))), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetCursorMethodInfo a signature where - overloadedMethod _ = treeViewGetCursor - --- method TreeView::get_dest_row_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", 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 "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- drag_x : TBasicType TInt - Int32 -> -- drag_y : TBasicType TInt - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO CInt - - -treeViewGetDestRowAtPos :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- dragX - -> Int32 -- dragY - -> m (Bool,(Maybe TreePath),TreeViewDropPosition)-- result -treeViewGetDestRowAtPos _obj dragX dragY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - result <- gtk_tree_view_get_dest_row_at_pos _obj' dragX dragY path pos - let result' = (/= 0) result - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (result', maybePath', pos'') - -data TreeViewGetDestRowAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Bool,(Maybe TreePath),TreeViewDropPosition)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetDestRowAtPosMethodInfo a signature where - overloadedMethod _ = treeViewGetDestRowAtPos - --- method TreeView::get_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", 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 "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO () - - -treeViewGetDragDestRow :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m ((Maybe TreePath),TreeViewDropPosition)-- result -treeViewGetDragDestRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - gtk_tree_view_get_drag_dest_row _obj' path pos - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (maybePath', pos'') - -data TreeViewGetDragDestRowMethodInfo -instance (signature ~ (m ((Maybe TreePath),TreeViewDropPosition)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetDragDestRowMethodInfo a signature where - overloadedMethod _ = treeViewGetDragDestRow - --- method TreeView::get_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetEnableSearch :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetEnableSearch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_enable_search _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetEnableSearchMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetEnableSearchMethodInfo a signature where - overloadedMethod _ = treeViewGetEnableSearch - --- method TreeView::get_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetEnableTreeLines :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetEnableTreeLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_enable_tree_lines _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetEnableTreeLinesMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetEnableTreeLinesMethodInfo a signature where - overloadedMethod _ = treeViewGetEnableTreeLines - --- method TreeView::get_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewColumn") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeViewColumn) - - -treeViewGetExpanderColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m TreeViewColumn -- result -treeViewGetExpanderColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_expander_column _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_expander_column" result - result' <- (newObject TreeViewColumn) result - touchManagedPtr _obj - return result' - -data TreeViewGetExpanderColumnMethodInfo -instance (signature ~ (m TreeViewColumn), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetExpanderColumnMethodInfo a signature where - overloadedMethod _ = treeViewGetExpanderColumn - --- method TreeView::get_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetFixedHeightMode :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetFixedHeightMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_fixed_height_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetFixedHeightModeMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetFixedHeightModeMethodInfo a signature where - overloadedMethod _ = treeViewGetFixedHeightMode - --- method TreeView::get_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewGridLines") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CUInt - - -treeViewGetGridLines :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m TreeViewGridLines -- result -treeViewGetGridLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_grid_lines _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TreeViewGetGridLinesMethodInfo -instance (signature ~ (m TreeViewGridLines), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetGridLinesMethodInfo a signature where - overloadedMethod _ = treeViewGetGridLines - --- method TreeView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_hadjustment" gtk_tree_view_get_hadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Adjustment) - -{-# DEPRECATED treeViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -treeViewGetHadjustment :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Adjustment -- result -treeViewGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data TreeViewGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHadjustmentMethodInfo a signature where - overloadedMethod _ = treeViewGetHadjustment - --- method TreeView::get_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_headers_clickable" gtk_tree_view_get_headers_clickable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHeadersClickable :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetHeadersClickable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_clickable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetHeadersClickableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHeadersClickableMethodInfo a signature where - overloadedMethod _ = treeViewGetHeadersClickable - --- method TreeView::get_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_headers_visible" gtk_tree_view_get_headers_visible :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHeadersVisible :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetHeadersVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetHeadersVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHeadersVisibleMethodInfo a signature where - overloadedMethod _ = treeViewGetHeadersVisible - --- method TreeView::get_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHoverExpand :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetHoverExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetHoverExpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHoverExpandMethodInfo a signature where - overloadedMethod _ = treeViewGetHoverExpand - --- method TreeView::get_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHoverSelection :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetHoverSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetHoverSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHoverSelectionMethodInfo a signature where - overloadedMethod _ = treeViewGetHoverSelection - --- method TreeView::get_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetLevelIndentation :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Int32 -- result -treeViewGetLevelIndentation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_level_indentation _obj' - touchManagedPtr _obj - return result - -data TreeViewGetLevelIndentationMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetLevelIndentationMethodInfo a signature where - overloadedMethod _ = treeViewGetLevelIndentation - --- method TreeView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeModel) - - -treeViewGetModel :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m (Maybe TreeModel) -- result -treeViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_model _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject TreeModel) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data TreeViewGetModelMethodInfo -instance (signature ~ (m (Maybe TreeModel)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetModelMethodInfo a signature where - overloadedMethod _ = treeViewGetModel - --- method TreeView::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Word32 - - -treeViewGetNColumns :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Word32 -- result -treeViewGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_n_columns _obj' - touchManagedPtr _obj - return result - -data TreeViewGetNColumnsMethodInfo -instance (signature ~ (m Word32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetNColumnsMethodInfo a signature where - overloadedMethod _ = treeViewGetNColumns - --- method TreeView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", 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 "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt - Ptr Int32 -> -- cell_y : TBasicType TInt - IO CInt - - -treeViewGetPathAtPos :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32)-- result -treeViewGetPathAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cellX <- allocMem :: IO (Ptr Int32) - cellY <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_get_path_at_pos _obj' x y path column cellX cellY - let result' = (/= 0) result - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - column' <- peek column - maybeColumn' <- convertIfNonNull column' $ \column'' -> do - column''' <- (newObject TreeViewColumn) column'' - return column''' - cellX' <- peek cellX - cellY' <- peek cellY - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cellX - freeMem cellY - return (result', maybePath', maybeColumn', cellX', cellY') - -data TreeViewGetPathAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetPathAtPosMethodInfo a signature where - overloadedMethod _ = treeViewGetPathAtPos - --- method TreeView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetReorderable :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetReorderableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetReorderableMethodInfo a signature where - overloadedMethod _ = treeViewGetReorderable - --- method TreeView::get_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetRubberBanding :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetRubberBanding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rubber_banding _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetRubberBandingMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetRubberBandingMethodInfo a signature where - overloadedMethod _ = treeViewGetRubberBanding - --- method TreeView::get_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_rules_hint" gtk_tree_view_get_rules_hint :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - -{-# DEPRECATED treeViewGetRulesHint ["(Since version 3.14)"]#-} -treeViewGetRulesHint :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetRulesHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rules_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetRulesHintMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetRulesHintMethodInfo a signature where - overloadedMethod _ = treeViewGetRulesHint - --- method TreeView::get_search_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetSearchColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Int32 -- result -treeViewGetSearchColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_search_column _obj' - touchManagedPtr _obj - return result - -data TreeViewGetSearchColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSearchColumnMethodInfo a signature where - overloadedMethod _ = treeViewGetSearchColumn - --- method TreeView::get_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Entry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Entry) - - -treeViewGetSearchEntry :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Entry -- result -treeViewGetSearchEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_search_entry _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_search_entry" result - result' <- (newObject Entry) result - touchManagedPtr _obj - return result' - -data TreeViewGetSearchEntryMethodInfo -instance (signature ~ (m Entry), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSearchEntryMethodInfo a signature where - overloadedMethod _ = treeViewGetSearchEntry - --- method TreeView::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeSelection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeSelection) - - -treeViewGetSelection :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m TreeSelection -- result -treeViewGetSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_selection _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_selection" result - result' <- (newObject TreeSelection) result - touchManagedPtr _obj - return result' - -data TreeViewGetSelectionMethodInfo -instance (signature ~ (m TreeSelection), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSelectionMethodInfo a signature where - overloadedMethod _ = treeViewGetSelection - --- method TreeView::get_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetShowExpanders :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewGetShowExpanders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_show_expanders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewGetShowExpandersMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetShowExpandersMethodInfo a signature where - overloadedMethod _ = treeViewGetShowExpanders - --- method TreeView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetTooltipColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Int32 -- result -treeViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - -data TreeViewGetTooltipColumnMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetTooltipColumnMethodInfo a signature where - overloadedMethod _ = treeViewGetTooltipColumn - --- method TreeView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - CInt -> -- keyboard_tip : TBasicType TBoolean - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeViewGetTooltipContext :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> Bool -- keyboardTip - -> m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter)-- result -treeViewGetTooltipContext _obj x y keyboardTip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboardTip' = (fromIntegral . fromEnum) keyboardTip - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_tree_view_get_tooltip_context _obj' x' y' keyboardTip' model path iter - let result' = (/= 0) result - x'' <- peek x' - y'' <- peek y' - model' <- peek model - maybeModel' <- convertIfNonNull model' $ \model'' -> do - model''' <- (newObject TreeModel) model'' - return model''' - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem x' - freeMem y' - freeMem model - freeMem path - return (result', x'', y'', maybeModel', path'', iter') - -data TreeViewGetTooltipContextMethodInfo -instance (signature ~ (Int32 -> Int32 -> Bool -> m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetTooltipContextMethodInfo a signature where - overloadedMethod _ = treeViewGetTooltipContext - --- method TreeView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_vadjustment" gtk_tree_view_get_vadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Adjustment) - -{-# DEPRECATED treeViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -treeViewGetVadjustment :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Adjustment -- result -treeViewGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data TreeViewGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVadjustmentMethodInfo a signature where - overloadedMethod _ = treeViewGetVadjustment - --- method TreeView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_view_get_visible_range" gtk_tree_view_get_visible_range :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewGetVisibleRange :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m (Bool,TreePath,TreePath) -- result -treeViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startPath <- allocMem :: IO (Ptr (Ptr TreePath)) - endPath <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_tree_view_get_visible_range _obj' startPath endPath - let result' = (/= 0) result - startPath' <- peek startPath - startPath'' <- (wrapBoxed TreePath) startPath' - endPath' <- peek endPath - endPath'' <- (wrapBoxed TreePath) endPath' - touchManagedPtr _obj - freeMem startPath - freeMem endPath - return (result', startPath'', endPath'') - -data TreeViewGetVisibleRangeMethodInfo -instance (signature ~ (m (Bool,TreePath,TreePath)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVisibleRangeMethodInfo a signature where - overloadedMethod _ = treeViewGetVisibleRange - --- method TreeView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetVisibleRect :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -treeViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visibleRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_visible_rect _obj' visibleRect - visibleRect' <- (wrapBoxed Gdk.Rectangle) visibleRect - touchManagedPtr _obj - return visibleRect' - -data TreeViewGetVisibleRectMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVisibleRectMethodInfo a signature where - overloadedMethod _ = treeViewGetVisibleRect - --- method TreeView::insert_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", 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 : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- position : TBasicType TInt - IO Int32 - - -treeViewInsertColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> b -- column - -> Int32 -- position - -> m Int32 -- result -treeViewInsertColumn _obj column position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_insert_column _obj' column' position - touchManagedPtr _obj - touchManagedPtr column - return result - -data TreeViewInsertColumnMethodInfo -instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewInsertColumnMethodInfo a signature where - overloadedMethod _ = treeViewInsertColumn - --- method TreeView::insert_column_with_data_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- position : TBasicType TInt - CString -> -- title : TBasicType TUTF8 - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO Int32 - - -treeViewInsertColumnWithDataFunc :: - (MonadIO m, TreeViewK a, CellRendererK b) => - a -- _obj - -> Int32 -- position - -> T.Text -- title - -> b -- cell - -> TreeCellDataFunc -- func - -> m Int32 -- result -treeViewInsertColumnWithDataFunc _obj position title cell func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - let cell' = unsafeManagedPtrCastPtr cell - func' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let dnotify = safeFreeFunPtrPtr - result <- gtk_tree_view_insert_column_with_data_func _obj' position title' cell' func' data_ dnotify - touchManagedPtr _obj - touchManagedPtr cell - freeMem title' - return result - -data TreeViewInsertColumnWithDataFuncMethodInfo -instance (signature ~ (Int32 -> T.Text -> b -> TreeCellDataFunc -> m Int32), MonadIO m, TreeViewK a, CellRendererK b) => MethodInfo TreeViewInsertColumnWithDataFuncMethodInfo a signature where - overloadedMethod _ = treeViewInsertColumnWithDataFunc - --- method TreeView::is_blank_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", 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 "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt - Ptr Int32 -> -- cell_y : TBasicType TInt - IO CInt - - -treeViewIsBlankAtPos :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (Bool,TreePath,TreeViewColumn,Int32,Int32)-- result -treeViewIsBlankAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cellX <- allocMem :: IO (Ptr Int32) - cellY <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_is_blank_at_pos _obj' x y path column cellX cellY - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - column' <- peek column - column'' <- (wrapObject TreeViewColumn) column' - cellX' <- peek cellX - cellY' <- peek cellY - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cellX - freeMem cellY - return (result', path'', column'', cellX', cellY') - -data TreeViewIsBlankAtPosMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,TreeViewColumn,Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewIsBlankAtPosMethodInfo a signature where - overloadedMethod _ = treeViewIsBlankAtPos - --- method TreeView::is_rubber_banding_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewIsRubberBandingActive :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m Bool -- result -treeViewIsRubberBandingActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_is_rubber_banding_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewIsRubberBandingActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewIsRubberBandingActiveMethodInfo a signature where - overloadedMethod _ = treeViewIsRubberBandingActive - --- method TreeView::map_expanded_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewMappingFuncC -> -- func : TInterface "Gtk" "TreeViewMappingFunc" - Ptr () -> -- data : TBasicType TPtr - IO () - - -treeViewMapExpandedRows :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreeViewMappingFunc -- func - -> m () -- result -treeViewMapExpandedRows _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeViewMappingFunc (treeViewMappingFuncWrapper Nothing func) - let data_ = nullPtr - gtk_tree_view_map_expanded_rows _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data TreeViewMapExpandedRowsMethodInfo -instance (signature ~ (TreeViewMappingFunc -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewMapExpandedRowsMethodInfo a signature where - overloadedMethod _ = treeViewMapExpandedRows - --- method TreeView::move_column_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr TreeViewColumn -> -- base_column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewMoveColumnAfter :: - (MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) => - a -- _obj - -> b -- column - -> Maybe (c) -- baseColumn - -> m () -- result -treeViewMoveColumnAfter _obj column baseColumn = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - maybeBaseColumn <- case baseColumn of - Nothing -> return nullPtr - Just jBaseColumn -> do - let jBaseColumn' = unsafeManagedPtrCastPtr jBaseColumn - return jBaseColumn' - gtk_tree_view_move_column_after _obj' column' maybeBaseColumn - touchManagedPtr _obj - touchManagedPtr column - whenJust baseColumn touchManagedPtr - return () - -data TreeViewMoveColumnAfterMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) => MethodInfo TreeViewMoveColumnAfterMethodInfo a signature where - overloadedMethod _ = treeViewMoveColumnAfter - --- method TreeView::remove_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_remove_column" gtk_tree_view_remove_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewRemoveColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> b -- column - -> m Int32 -- result -treeViewRemoveColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_remove_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return result - -data TreeViewRemoveColumnMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewRemoveColumnMethodInfo a signature where - overloadedMethod _ = treeViewRemoveColumn - --- method TreeView::row_activated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_row_activated" gtk_tree_view_row_activated :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewRowActivated :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> TreePath -- path - -> b -- column - -> m () -- result -treeViewRowActivated _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let column' = unsafeManagedPtrCastPtr column - gtk_tree_view_row_activated _obj' path' column' - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr column - return () - -data TreeViewRowActivatedMethodInfo -instance (signature ~ (TreePath -> b -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewRowActivatedMethodInfo a signature where - overloadedMethod _ = treeViewRowActivated - --- method TreeView::row_expanded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewRowExpanded :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreePath -- path - -> m Bool -- result -treeViewRowExpanded _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_row_expanded _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - -data TreeViewRowExpandedMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewRowExpandedMethodInfo a signature where - overloadedMethod _ = treeViewRowExpanded - --- method TreeView::scroll_to_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, 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 "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - CInt -> -- use_align : TBasicType TBoolean - CFloat -> -- row_align : TBasicType TFloat - CFloat -> -- col_align : TBasicType TFloat - IO () - - -treeViewScrollToCell :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> Maybe (TreePath) -- path - -> Maybe (b) -- column - -> Bool -- useAlign - -> Float -- rowAlign - -> Float -- colAlign - -> m () -- result -treeViewScrollToCell _obj path column useAlign rowAlign colAlign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - let useAlign' = (fromIntegral . fromEnum) useAlign - let rowAlign' = realToFrac rowAlign - let colAlign' = realToFrac colAlign - gtk_tree_view_scroll_to_cell _obj' maybePath maybeColumn useAlign' rowAlign' colAlign' - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return () - -data TreeViewScrollToCellMethodInfo -instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> Bool -> Float -> Float -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewScrollToCellMethodInfo a signature where - overloadedMethod _ = treeViewScrollToCell - --- method TreeView::scroll_to_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_y", 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 "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tree_x : TBasicType TInt - Int32 -> -- tree_y : TBasicType TInt - IO () - - -treeViewScrollToPoint :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- treeX - -> Int32 -- treeY - -> m () -- result -treeViewScrollToPoint _obj treeX treeY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_scroll_to_point _obj' treeX treeY - touchManagedPtr _obj - return () - -data TreeViewScrollToPointMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewScrollToPointMethodInfo a signature where - overloadedMethod _ = treeViewScrollToPoint - --- method TreeView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", 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 "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- single : TBasicType TBoolean - IO () - - -treeViewSetActivateOnSingleClick :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- single - -> m () -- result -treeViewSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_tree_view_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - -data TreeViewSetActivateOnSingleClickMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetActivateOnSingleClickMethodInfo a signature where - overloadedMethod _ = treeViewSetActivateOnSingleClick - --- method TreeView::set_column_drag_function --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewColumnDropFuncC -> -- func : TInterface "Gtk" "TreeViewColumnDropFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetColumnDragFunction :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Maybe (TreeViewColumnDropFunc) -- func - -> m () -- result -treeViewSetColumnDragFunction _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewColumnDropFunc (treeViewColumnDropFuncWrapper Nothing jFunc) - return jFunc' - let userData = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_column_drag_function _obj' maybeFunc userData destroy - touchManagedPtr _obj - return () - -data TreeViewSetColumnDragFunctionMethodInfo -instance (signature ~ (Maybe (TreeViewColumnDropFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetColumnDragFunctionMethodInfo a signature where - overloadedMethod _ = treeViewSetColumnDragFunction - --- method TreeView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", 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 "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -treeViewSetCursor :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> TreePath -- path - -> Maybe (b) -- focusColumn - -> Bool -- startEditing - -> m () -- result -treeViewSetCursor _obj path focusColumn startEditing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocusColumn <- case focusColumn of - Nothing -> return nullPtr - Just jFocusColumn -> do - let jFocusColumn' = unsafeManagedPtrCastPtr jFocusColumn - return jFocusColumn' - let startEditing' = (fromIntegral . fromEnum) startEditing - gtk_tree_view_set_cursor _obj' path' maybeFocusColumn startEditing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focusColumn touchManagedPtr - return () - -data TreeViewSetCursorMethodInfo -instance (signature ~ (TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewSetCursorMethodInfo a signature where - overloadedMethod _ = treeViewSetCursor - --- method TreeView::set_cursor_on_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", 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 "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- focus_cell : TInterface "Gtk" "CellRenderer" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -treeViewSetCursorOnCell :: - (MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) => - a -- _obj - -> TreePath -- path - -> Maybe (b) -- focusColumn - -> Maybe (c) -- focusCell - -> Bool -- startEditing - -> m () -- result -treeViewSetCursorOnCell _obj path focusColumn focusCell startEditing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocusColumn <- case focusColumn of - Nothing -> return nullPtr - Just jFocusColumn -> do - let jFocusColumn' = unsafeManagedPtrCastPtr jFocusColumn - return jFocusColumn' - maybeFocusCell <- case focusCell of - Nothing -> return nullPtr - Just jFocusCell -> do - let jFocusCell' = unsafeManagedPtrCastPtr jFocusCell - return jFocusCell' - let startEditing' = (fromIntegral . fromEnum) startEditing - gtk_tree_view_set_cursor_on_cell _obj' path' maybeFocusColumn maybeFocusCell startEditing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focusColumn touchManagedPtr - whenJust focusCell touchManagedPtr - return () - -data TreeViewSetCursorOnCellMethodInfo -instance (signature ~ (TreePath -> Maybe (b) -> Maybe (c) -> Bool -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) => MethodInfo TreeViewSetCursorOnCellMethodInfo a signature where - overloadedMethod _ = treeViewSetCursorOnCell - --- method TreeView::set_destroy_count_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeDestroyCountFuncC -> -- func : TInterface "Gtk" "TreeDestroyCountFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED treeViewSetDestroyCountFunc ["(Since version 3.4)","Accessibility does not need the function anymore."]#-} -treeViewSetDestroyCountFunc :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Maybe (TreeDestroyCountFunc) -- func - -> m () -- result -treeViewSetDestroyCountFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeDestroyCountFunc (treeDestroyCountFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_destroy_count_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - -data TreeViewSetDestroyCountFuncMethodInfo -instance (signature ~ (Maybe (TreeDestroyCountFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetDestroyCountFuncMethodInfo a signature where - overloadedMethod _ = treeViewSetDestroyCountFunc - --- method TreeView::set_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", 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 "gtk_tree_view_set_drag_dest_row" gtk_tree_view_set_drag_dest_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO () - - -treeViewSetDragDestRow :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Maybe (TreePath) -- path - -> TreeViewDropPosition -- pos - -> m () -- result -treeViewSetDragDestRow _obj path pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - let pos' = (fromIntegral . fromEnum) pos - gtk_tree_view_set_drag_dest_row _obj' maybePath pos' - touchManagedPtr _obj - whenJust path touchManagedPtr - return () - -data TreeViewSetDragDestRowMethodInfo -instance (signature ~ (Maybe (TreePath) -> TreeViewDropPosition -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetDragDestRowMethodInfo a signature where - overloadedMethod _ = treeViewSetDragDestRow - --- method TreeView::set_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable_search", 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 "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable_search : TBasicType TBoolean - IO () - - -treeViewSetEnableSearch :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- enableSearch - -> m () -- result -treeViewSetEnableSearch _obj enableSearch = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enableSearch' = (fromIntegral . fromEnum) enableSearch - gtk_tree_view_set_enable_search _obj' enableSearch' - touchManagedPtr _obj - return () - -data TreeViewSetEnableSearchMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetEnableSearchMethodInfo a signature where - overloadedMethod _ = treeViewSetEnableSearch - --- method TreeView::set_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", 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 "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -treeViewSetEnableTreeLines :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -treeViewSetEnableTreeLines _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - gtk_tree_view_set_enable_tree_lines _obj' enabled' - touchManagedPtr _obj - return () - -data TreeViewSetEnableTreeLinesMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetEnableTreeLinesMethodInfo a signature where - overloadedMethod _ = treeViewSetEnableTreeLines - --- method TreeView::set_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewSetExpanderColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -- _obj - -> b -- column - -> m () -- result -treeViewSetExpanderColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - gtk_tree_view_set_expander_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return () - -data TreeViewSetExpanderColumnMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewSetExpanderColumnMethodInfo a signature where - overloadedMethod _ = treeViewSetExpanderColumn - --- method TreeView::set_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", 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 "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable : TBasicType TBoolean - IO () - - -treeViewSetFixedHeightMode :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- enable - -> m () -- result -treeViewSetFixedHeightMode _obj enable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable' = (fromIntegral . fromEnum) enable - gtk_tree_view_set_fixed_height_mode _obj' enable' - touchManagedPtr _obj - return () - -data TreeViewSetFixedHeightModeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetFixedHeightModeMethodInfo a signature where - overloadedMethod _ = treeViewSetFixedHeightMode - --- method TreeView::set_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", 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 "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CUInt -> -- grid_lines : TInterface "Gtk" "TreeViewGridLines" - IO () - - -treeViewSetGridLines :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreeViewGridLines -- gridLines - -> m () -- result -treeViewSetGridLines _obj gridLines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gridLines' = (fromIntegral . fromEnum) gridLines - gtk_tree_view_set_grid_lines _obj' gridLines' - touchManagedPtr _obj - return () - -data TreeViewSetGridLinesMethodInfo -instance (signature ~ (TreeViewGridLines -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetGridLinesMethodInfo a signature where - overloadedMethod _ = treeViewSetGridLines - --- method TreeView::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_hadjustment" gtk_tree_view_set_hadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED treeViewSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} -treeViewSetHadjustment :: - (MonadIO m, TreeViewK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -treeViewSetHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_tree_view_set_hadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data TreeViewSetHadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, AdjustmentK b) => MethodInfo TreeViewSetHadjustmentMethodInfo a signature where - overloadedMethod _ = treeViewSetHadjustment - --- method TreeView::set_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_tree_view_set_headers_clickable" gtk_tree_view_set_headers_clickable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -treeViewSetHeadersClickable :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -treeViewSetHeadersClickable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_tree_view_set_headers_clickable _obj' setting' - touchManagedPtr _obj - return () - -data TreeViewSetHeadersClickableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHeadersClickableMethodInfo a signature where - overloadedMethod _ = treeViewSetHeadersClickable - --- method TreeView::set_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers_visible", 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 "gtk_tree_view_set_headers_visible" gtk_tree_view_set_headers_visible :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- headers_visible : TBasicType TBoolean - IO () - - -treeViewSetHeadersVisible :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- headersVisible - -> m () -- result -treeViewSetHeadersVisible _obj headersVisible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let headersVisible' = (fromIntegral . fromEnum) headersVisible - gtk_tree_view_set_headers_visible _obj' headersVisible' - touchManagedPtr _obj - return () - -data TreeViewSetHeadersVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHeadersVisibleMethodInfo a signature where - overloadedMethod _ = treeViewSetHeadersVisible - --- method TreeView::set_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- expand : TBasicType TBoolean - IO () - - -treeViewSetHoverExpand :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -treeViewSetHoverExpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_tree_view_set_hover_expand _obj' expand' - touchManagedPtr _obj - return () - -data TreeViewSetHoverExpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHoverExpandMethodInfo a signature where - overloadedMethod _ = treeViewSetHoverExpand - --- method TreeView::set_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hover", 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 "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- hover : TBasicType TBoolean - IO () - - -treeViewSetHoverSelection :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- hover - -> m () -- result -treeViewSetHoverSelection _obj hover = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hover' = (fromIntegral . fromEnum) hover - gtk_tree_view_set_hover_selection _obj' hover' - touchManagedPtr _obj - return () - -data TreeViewSetHoverSelectionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHoverSelectionMethodInfo a signature where - overloadedMethod _ = treeViewSetHoverSelection - --- method TreeView::set_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indentation", 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 "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- indentation : TBasicType TInt - IO () - - -treeViewSetLevelIndentation :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- indentation - -> m () -- result -treeViewSetLevelIndentation _obj indentation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_level_indentation _obj' indentation - touchManagedPtr _obj - return () - -data TreeViewSetLevelIndentationMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetLevelIndentationMethodInfo a signature where - overloadedMethod _ = treeViewSetLevelIndentation - --- method TreeView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -treeViewSetModel :: - (MonadIO m, TreeViewK a, TreeModelK b) => - a -- _obj - -> Maybe (b) -- model - -> m () -- result -treeViewSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_tree_view_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - -data TreeViewSetModelMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, TreeModelK b) => MethodInfo TreeViewSetModelMethodInfo a signature where - overloadedMethod _ = treeViewSetModel - --- method TreeView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", 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 "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -treeViewSetReorderable :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- reorderable - -> m () -- result -treeViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_tree_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - -data TreeViewSetReorderableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetReorderableMethodInfo a signature where - overloadedMethod _ = treeViewSetReorderable - --- method TreeView::set_row_separator_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetRowSeparatorFunc :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Maybe (TreeViewRowSeparatorFunc) -- func - -> m () -- result -treeViewSetRowSeparatorFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_row_separator_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - -data TreeViewSetRowSeparatorFuncMethodInfo -instance (signature ~ (Maybe (TreeViewRowSeparatorFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRowSeparatorFuncMethodInfo a signature where - overloadedMethod _ = treeViewSetRowSeparatorFunc - --- method TreeView::set_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", 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 "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable : TBasicType TBoolean - IO () - - -treeViewSetRubberBanding :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- enable - -> m () -- result -treeViewSetRubberBanding _obj enable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable' = (fromIntegral . fromEnum) enable - gtk_tree_view_set_rubber_banding _obj' enable' - touchManagedPtr _obj - return () - -data TreeViewSetRubberBandingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRubberBandingMethodInfo a signature where - overloadedMethod _ = treeViewSetRubberBanding - --- method TreeView::set_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_tree_view_set_rules_hint" gtk_tree_view_set_rules_hint :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- setting : TBasicType TBoolean - IO () - -{-# DEPRECATED treeViewSetRulesHint ["(Since version 3.14)"]#-} -treeViewSetRulesHint :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -treeViewSetRulesHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_tree_view_set_rules_hint _obj' setting' - touchManagedPtr _obj - return () - -data TreeViewSetRulesHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRulesHintMethodInfo a signature where - overloadedMethod _ = treeViewSetRulesHint - --- method TreeView::set_search_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt - IO () - - -treeViewSetSearchColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -treeViewSetSearchColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_search_column _obj' column - touchManagedPtr _obj - return () - -data TreeViewSetSearchColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchColumnMethodInfo a signature where - overloadedMethod _ = treeViewSetSearchColumn - --- method TreeView::set_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Entry -> -- entry : TInterface "Gtk" "Entry" - IO () - - -treeViewSetSearchEntry :: - (MonadIO m, TreeViewK a, EntryK b) => - a -- _obj - -> Maybe (b) -- entry - -> m () -- result -treeViewSetSearchEntry _obj entry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEntry <- case entry of - Nothing -> return nullPtr - Just jEntry -> do - let jEntry' = unsafeManagedPtrCastPtr jEntry - return jEntry' - gtk_tree_view_set_search_entry _obj' maybeEntry - touchManagedPtr _obj - whenJust entry touchManagedPtr - return () - -data TreeViewSetSearchEntryMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, EntryK b) => MethodInfo TreeViewSetSearchEntryMethodInfo a signature where - overloadedMethod _ = treeViewSetSearchEntry - --- method TreeView::set_search_equal_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewSearchEqualFuncC -> -- search_equal_func : TInterface "Gtk" "TreeViewSearchEqualFunc" - Ptr () -> -- search_user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchEqualFunc :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> TreeViewSearchEqualFunc -- searchEqualFunc - -> m () -- result -treeViewSetSearchEqualFunc _obj searchEqualFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - searchEqualFunc' <- mkTreeViewSearchEqualFunc (treeViewSearchEqualFuncWrapper Nothing searchEqualFunc) - let searchUserData = castFunPtrToPtr searchEqualFunc' - let searchDestroy = safeFreeFunPtrPtr - gtk_tree_view_set_search_equal_func _obj' searchEqualFunc' searchUserData searchDestroy - touchManagedPtr _obj - return () - -data TreeViewSetSearchEqualFuncMethodInfo -instance (signature ~ (TreeViewSearchEqualFunc -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchEqualFuncMethodInfo a signature where - overloadedMethod _ = treeViewSetSearchEqualFunc - --- method TreeView::set_search_position_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewSearchPositionFuncC -> -- func : TInterface "Gtk" "TreeViewSearchPositionFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchPositionFunc :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Maybe (TreeViewSearchPositionFunc) -- func - -> m () -- result -treeViewSetSearchPositionFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewSearchPositionFunc (treeViewSearchPositionFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_search_position_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - -data TreeViewSetSearchPositionFuncMethodInfo -instance (signature ~ (Maybe (TreeViewSearchPositionFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchPositionFuncMethodInfo a signature where - overloadedMethod _ = treeViewSetSearchPositionFunc - --- method TreeView::set_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", 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 "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -treeViewSetShowExpanders :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -treeViewSetShowExpanders _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - gtk_tree_view_set_show_expanders _obj' enabled' - touchManagedPtr _obj - return () - -data TreeViewSetShowExpandersMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetShowExpandersMethodInfo a signature where - overloadedMethod _ = treeViewSetShowExpanders - --- method TreeView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -treeViewSetTooltipCell :: - (MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) => - a -- _obj - -> b -- tooltip - -> Maybe (TreePath) -- path - -> Maybe (c) -- column - -> Maybe (d) -- cell - -> m () -- result -treeViewSetTooltipCell _obj tooltip path column cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - gtk_tree_view_set_tooltip_cell _obj' tooltip' maybePath maybeColumn maybeCell - touchManagedPtr _obj - touchManagedPtr tooltip - whenJust path touchManagedPtr - whenJust column touchManagedPtr - whenJust cell touchManagedPtr - return () - -data TreeViewSetTooltipCellMethodInfo -instance (signature ~ (b -> Maybe (TreePath) -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) => MethodInfo TreeViewSetTooltipCellMethodInfo a signature where - overloadedMethod _ = treeViewSetTooltipCell - --- method TreeView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt - IO () - - -treeViewSetTooltipColumn :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> Int32 -- column - -> m () -- result -treeViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - -data TreeViewSetTooltipColumnMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetTooltipColumnMethodInfo a signature where - overloadedMethod _ = treeViewSetTooltipColumn - --- method TreeView::set_tooltip_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeViewSetTooltipRow :: - (MonadIO m, TreeViewK a, TooltipK b) => - a -- _obj - -> b -- tooltip - -> TreePath -- path - -> m () -- result -treeViewSetTooltipRow _obj tooltip path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - gtk_tree_view_set_tooltip_row _obj' tooltip' path' - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - return () - -data TreeViewSetTooltipRowMethodInfo -instance (signature ~ (b -> TreePath -> m ()), MonadIO m, TreeViewK a, TooltipK b) => MethodInfo TreeViewSetTooltipRowMethodInfo a signature where - overloadedMethod _ = treeViewSetTooltipRow - --- method TreeView::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_vadjustment" gtk_tree_view_set_vadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED treeViewSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} -treeViewSetVadjustment :: - (MonadIO m, TreeViewK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -treeViewSetVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_tree_view_set_vadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data TreeViewSetVadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, AdjustmentK b) => MethodInfo TreeViewSetVadjustmentMethodInfo a signature where - overloadedMethod _ = treeViewSetVadjustment - --- method TreeView::unset_rows_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewUnsetRowsDragDest :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m () -- result -treeViewUnsetRowsDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_dest _obj' - touchManagedPtr _obj - return () - -data TreeViewUnsetRowsDragDestMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewUnsetRowsDragDestMethodInfo a signature where - overloadedMethod _ = treeViewUnsetRowsDragDest - --- method TreeView::unset_rows_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewUnsetRowsDragSource :: - (MonadIO m, TreeViewK a) => - a -- _obj - -> m () -- result -treeViewUnsetRowsDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_source _obj' - touchManagedPtr _obj - return () - -data TreeViewUnsetRowsDragSourceMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewUnsetRowsDragSourceMethodInfo a signature where - overloadedMethod _ = treeViewUnsetRowsDragSource - - diff --git a/GI/Gtk/Objects/TreeView.hs-boot b/GI/Gtk/Objects/TreeView.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeView.hs-boot +++ /dev/null @@ -1,141 +0,0 @@ -module GI.Gtk.Objects.TreeView 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 TreeView = TreeView (ForeignPtr TreeView) -instance GObject TreeView where -class GObject o => TreeViewK o -instance (GObject o, IsDescendantOf TreeView o) => TreeViewK o -data TreeViewActivateOnSingleClickPropertyInfo -data TreeViewEnableGridLinesPropertyInfo -data TreeViewEnableSearchPropertyInfo -data TreeViewEnableTreeLinesPropertyInfo -data TreeViewExpanderColumnPropertyInfo -data TreeViewFixedHeightModePropertyInfo -data TreeViewHeadersClickablePropertyInfo -data TreeViewHeadersVisiblePropertyInfo -data TreeViewHoverExpandPropertyInfo -data TreeViewHoverSelectionPropertyInfo -data TreeViewLevelIndentationPropertyInfo -data TreeViewModelPropertyInfo -data TreeViewReorderablePropertyInfo -data TreeViewRubberBandingPropertyInfo -data TreeViewRulesHintPropertyInfo -data TreeViewSearchColumnPropertyInfo -data TreeViewShowExpandersPropertyInfo -data TreeViewTooltipColumnPropertyInfo -data TreeViewColumnsChangedSignalInfo -data TreeViewCursorChangedSignalInfo -data TreeViewExpandCollapseCursorRowSignalInfo -data TreeViewMoveCursorSignalInfo -data TreeViewRowActivatedSignalInfo -data TreeViewRowCollapsedSignalInfo -data TreeViewRowExpandedSignalInfo -data TreeViewSelectAllSignalInfo -data TreeViewSelectCursorParentSignalInfo -data TreeViewSelectCursorRowSignalInfo -data TreeViewStartInteractiveSearchSignalInfo -data TreeViewTestCollapseRowSignalInfo -data TreeViewTestExpandRowSignalInfo -data TreeViewToggleCursorRowSignalInfo -data TreeViewUnselectAllSignalInfo -data TreeViewAppendColumnMethodInfo -data TreeViewCollapseAllMethodInfo -data TreeViewCollapseRowMethodInfo -data TreeViewColumnsAutosizeMethodInfo -data TreeViewConvertBinWindowToTreeCoordsMethodInfo -data TreeViewConvertBinWindowToWidgetCoordsMethodInfo -data TreeViewConvertTreeToBinWindowCoordsMethodInfo -data TreeViewConvertTreeToWidgetCoordsMethodInfo -data TreeViewConvertWidgetToBinWindowCoordsMethodInfo -data TreeViewConvertWidgetToTreeCoordsMethodInfo -data TreeViewCreateRowDragIconMethodInfo -data TreeViewEnableModelDragDestMethodInfo -data TreeViewEnableModelDragSourceMethodInfo -data TreeViewExpandAllMethodInfo -data TreeViewExpandRowMethodInfo -data TreeViewExpandToPathMethodInfo -data TreeViewGetActivateOnSingleClickMethodInfo -data TreeViewGetBackgroundAreaMethodInfo -data TreeViewGetBinWindowMethodInfo -data TreeViewGetCellAreaMethodInfo -data TreeViewGetColumnMethodInfo -data TreeViewGetColumnsMethodInfo -data TreeViewGetCursorMethodInfo -data TreeViewGetDestRowAtPosMethodInfo -data TreeViewGetDragDestRowMethodInfo -data TreeViewGetEnableSearchMethodInfo -data TreeViewGetEnableTreeLinesMethodInfo -data TreeViewGetExpanderColumnMethodInfo -data TreeViewGetFixedHeightModeMethodInfo -data TreeViewGetGridLinesMethodInfo -data TreeViewGetHadjustmentMethodInfo -data TreeViewGetHeadersClickableMethodInfo -data TreeViewGetHeadersVisibleMethodInfo -data TreeViewGetHoverExpandMethodInfo -data TreeViewGetHoverSelectionMethodInfo -data TreeViewGetLevelIndentationMethodInfo -data TreeViewGetModelMethodInfo -data TreeViewGetNColumnsMethodInfo -data TreeViewGetPathAtPosMethodInfo -data TreeViewGetReorderableMethodInfo -data TreeViewGetRubberBandingMethodInfo -data TreeViewGetRulesHintMethodInfo -data TreeViewGetSearchColumnMethodInfo -data TreeViewGetSearchEntryMethodInfo -data TreeViewGetSelectionMethodInfo -data TreeViewGetShowExpandersMethodInfo -data TreeViewGetTooltipColumnMethodInfo -data TreeViewGetTooltipContextMethodInfo -data TreeViewGetVadjustmentMethodInfo -data TreeViewGetVisibleRangeMethodInfo -data TreeViewGetVisibleRectMethodInfo -data TreeViewInsertColumnMethodInfo -data TreeViewInsertColumnWithDataFuncMethodInfo -data TreeViewIsBlankAtPosMethodInfo -data TreeViewIsRubberBandingActiveMethodInfo -data TreeViewMapExpandedRowsMethodInfo -data TreeViewMoveColumnAfterMethodInfo -data TreeViewRemoveColumnMethodInfo -data TreeViewRowActivatedMethodInfo -data TreeViewRowExpandedMethodInfo -data TreeViewScrollToCellMethodInfo -data TreeViewScrollToPointMethodInfo -data TreeViewSetActivateOnSingleClickMethodInfo -data TreeViewSetColumnDragFunctionMethodInfo -data TreeViewSetCursorMethodInfo -data TreeViewSetCursorOnCellMethodInfo -data TreeViewSetDestroyCountFuncMethodInfo -data TreeViewSetDragDestRowMethodInfo -data TreeViewSetEnableSearchMethodInfo -data TreeViewSetEnableTreeLinesMethodInfo -data TreeViewSetExpanderColumnMethodInfo -data TreeViewSetFixedHeightModeMethodInfo -data TreeViewSetGridLinesMethodInfo -data TreeViewSetHadjustmentMethodInfo -data TreeViewSetHeadersClickableMethodInfo -data TreeViewSetHeadersVisibleMethodInfo -data TreeViewSetHoverExpandMethodInfo -data TreeViewSetHoverSelectionMethodInfo -data TreeViewSetLevelIndentationMethodInfo -data TreeViewSetModelMethodInfo -data TreeViewSetReorderableMethodInfo -data TreeViewSetRowSeparatorFuncMethodInfo -data TreeViewSetRubberBandingMethodInfo -data TreeViewSetRulesHintMethodInfo -data TreeViewSetSearchColumnMethodInfo -data TreeViewSetSearchEntryMethodInfo -data TreeViewSetSearchEqualFuncMethodInfo -data TreeViewSetSearchPositionFuncMethodInfo -data TreeViewSetShowExpandersMethodInfo -data TreeViewSetTooltipCellMethodInfo -data TreeViewSetTooltipColumnMethodInfo -data TreeViewSetTooltipRowMethodInfo -data TreeViewSetVadjustmentMethodInfo -data TreeViewUnsetRowsDragDestMethodInfo -data TreeViewUnsetRowsDragSourceMethodInfo diff --git a/GI/Gtk/Objects/TreeViewAccessible.hs b/GI/Gtk/Objects/TreeViewAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeViewAccessible.hs +++ /dev/null @@ -1,171 +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.Gtk.Objects.TreeViewAccessible - ( - --- * Exported types - TreeViewAccessible(..) , - TreeViewAccessibleK , - toTreeViewAccessible , - noTreeViewAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype TreeViewAccessible = TreeViewAccessible (ForeignPtr TreeViewAccessible) -foreign import ccall "gtk_tree_view_accessible_get_type" - c_gtk_tree_view_accessible_get_type :: IO GType - -type instance ParentTypes TreeViewAccessible = TreeViewAccessibleParentTypes -type TreeViewAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Selection, Atk.Table, CellAccessibleParent] - -instance GObject TreeViewAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_tree_view_accessible_get_type - - -class GObject o => TreeViewAccessibleK o -instance (GObject o, IsDescendantOf TreeViewAccessible o) => TreeViewAccessibleK o - -toTreeViewAccessible :: TreeViewAccessibleK o => o -> IO TreeViewAccessible -toTreeViewAccessible = unsafeCastTo TreeViewAccessible - -noTreeViewAccessible :: Maybe TreeViewAccessible -noTreeViewAccessible = Nothing - -type family ResolveTreeViewAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeViewAccessibleMethod "activate" o = CellAccessibleParentActivateMethodInfo - ResolveTreeViewAccessibleMethod "addColumnSelection" o = Atk.TableAddColumnSelectionMethodInfo - ResolveTreeViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveTreeViewAccessibleMethod "addRowSelection" o = Atk.TableAddRowSelectionMethodInfo - ResolveTreeViewAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo - ResolveTreeViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeViewAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo - ResolveTreeViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveTreeViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveTreeViewAccessibleMethod "edit" o = CellAccessibleParentEditMethodInfo - ResolveTreeViewAccessibleMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo - ResolveTreeViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveTreeViewAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo - ResolveTreeViewAccessibleMethod "isColumnSelected" o = Atk.TableIsColumnSelectedMethodInfo - ResolveTreeViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeViewAccessibleMethod "isRowSelected" o = Atk.TableIsRowSelectedMethodInfo - ResolveTreeViewAccessibleMethod "isSelected" o = Atk.TableIsSelectedMethodInfo - ResolveTreeViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveTreeViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveTreeViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveTreeViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveTreeViewAccessibleMethod "refAt" o = Atk.TableRefAtMethodInfo - ResolveTreeViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveTreeViewAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo - ResolveTreeViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveTreeViewAccessibleMethod "removeColumnSelection" o = Atk.TableRemoveColumnSelectionMethodInfo - ResolveTreeViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveTreeViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveTreeViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveTreeViewAccessibleMethod "removeRowSelection" o = Atk.TableRemoveRowSelectionMethodInfo - ResolveTreeViewAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo - ResolveTreeViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeViewAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo - ResolveTreeViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeViewAccessibleMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo - ResolveTreeViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveTreeViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveTreeViewAccessibleMethod "getCaption" o = Atk.TableGetCaptionMethodInfo - ResolveTreeViewAccessibleMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo - ResolveTreeViewAccessibleMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo - ResolveTreeViewAccessibleMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo - ResolveTreeViewAccessibleMethod "getColumnAtIndex" o = Atk.TableGetColumnAtIndexMethodInfo - ResolveTreeViewAccessibleMethod "getColumnDescription" o = Atk.TableGetColumnDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "getColumnExtentAt" o = Atk.TableGetColumnExtentAtMethodInfo - ResolveTreeViewAccessibleMethod "getColumnHeader" o = Atk.TableGetColumnHeaderMethodInfo - ResolveTreeViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveTreeViewAccessibleMethod "getIndexAt" o = Atk.TableGetIndexAtMethodInfo - ResolveTreeViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveTreeViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveTreeViewAccessibleMethod "getNColumns" o = Atk.TableGetNColumnsMethodInfo - ResolveTreeViewAccessibleMethod "getNRows" o = Atk.TableGetNRowsMethodInfo - ResolveTreeViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveTreeViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveTreeViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveTreeViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveTreeViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeViewAccessibleMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo - ResolveTreeViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveTreeViewAccessibleMethod "getRowAtIndex" o = Atk.TableGetRowAtIndexMethodInfo - ResolveTreeViewAccessibleMethod "getRowDescription" o = Atk.TableGetRowDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "getRowExtentAt" o = Atk.TableGetRowExtentAtMethodInfo - ResolveTreeViewAccessibleMethod "getRowHeader" o = Atk.TableGetRowHeaderMethodInfo - ResolveTreeViewAccessibleMethod "getSelectedColumns" o = Atk.TableGetSelectedColumnsMethodInfo - ResolveTreeViewAccessibleMethod "getSelectedRows" o = Atk.TableGetSelectedRowsMethodInfo - ResolveTreeViewAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo - ResolveTreeViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveTreeViewAccessibleMethod "getSummary" o = Atk.TableGetSummaryMethodInfo - ResolveTreeViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveTreeViewAccessibleMethod "setCaption" o = Atk.TableSetCaptionMethodInfo - ResolveTreeViewAccessibleMethod "setColumnDescription" o = Atk.TableSetColumnDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "setColumnHeader" o = Atk.TableSetColumnHeaderMethodInfo - ResolveTreeViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveTreeViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveTreeViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveTreeViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveTreeViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveTreeViewAccessibleMethod "setRowDescription" o = Atk.TableSetRowDescriptionMethodInfo - ResolveTreeViewAccessibleMethod "setRowHeader" o = Atk.TableSetRowHeaderMethodInfo - ResolveTreeViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveTreeViewAccessibleMethod "setSummary" o = Atk.TableSetSummaryMethodInfo - ResolveTreeViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveTreeViewAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeViewAccessibleMethod t TreeViewAccessible, MethodInfo info TreeViewAccessible p) => IsLabelProxy t (TreeViewAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeViewAccessibleMethod t TreeViewAccessible, MethodInfo info TreeViewAccessible p) => IsLabel t (TreeViewAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TreeViewAccessible = TreeViewAccessibleAttributeList -type TreeViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TreeViewAccessible = TreeViewAccessibleSignalList -type TreeViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("columnDeleted", Atk.TableColumnDeletedSignalInfo), '("columnInserted", Atk.TableColumnInsertedSignalInfo), '("columnReordered", Atk.TableColumnReorderedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("modelChanged", Atk.TableModelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("rowDeleted", Atk.TableRowDeletedSignalInfo), '("rowInserted", Atk.TableRowInsertedSignalInfo), '("rowReordered", Atk.TableRowReorderedSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/TreeViewAccessible.hs-boot b/GI/Gtk/Objects/TreeViewAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeViewAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.TreeViewAccessible 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 TreeViewAccessible = TreeViewAccessible (ForeignPtr TreeViewAccessible) -instance GObject TreeViewAccessible where -class GObject o => TreeViewAccessibleK o -instance (GObject o, IsDescendantOf TreeViewAccessible o) => TreeViewAccessibleK o diff --git a/GI/Gtk/Objects/TreeViewColumn.hs b/GI/Gtk/Objects/TreeViewColumn.hs deleted file mode 100644 --- a/GI/Gtk/Objects/TreeViewColumn.hs +++ /dev/null @@ -1,2688 +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.Gtk.Objects.TreeViewColumn - ( - --- * Exported types - TreeViewColumn(..) , - TreeViewColumnK , - toTreeViewColumn , - noTreeViewColumn , - - - -- * Methods --- ** treeViewColumnAddAttribute - TreeViewColumnAddAttributeMethodInfo , - treeViewColumnAddAttribute , - - --- ** treeViewColumnCellGetPosition - TreeViewColumnCellGetPositionMethodInfo , - treeViewColumnCellGetPosition , - - --- ** treeViewColumnCellGetSize - TreeViewColumnCellGetSizeMethodInfo , - treeViewColumnCellGetSize , - - --- ** treeViewColumnCellIsVisible - TreeViewColumnCellIsVisibleMethodInfo , - treeViewColumnCellIsVisible , - - --- ** treeViewColumnCellSetCellData - TreeViewColumnCellSetCellDataMethodInfo , - treeViewColumnCellSetCellData , - - --- ** treeViewColumnClear - TreeViewColumnClearMethodInfo , - treeViewColumnClear , - - --- ** treeViewColumnClearAttributes - TreeViewColumnClearAttributesMethodInfo , - treeViewColumnClearAttributes , - - --- ** treeViewColumnClicked - TreeViewColumnClickedMethodInfo , - treeViewColumnClicked , - - --- ** treeViewColumnFocusCell - TreeViewColumnFocusCellMethodInfo , - treeViewColumnFocusCell , - - --- ** treeViewColumnGetAlignment - TreeViewColumnGetAlignmentMethodInfo , - treeViewColumnGetAlignment , - - --- ** treeViewColumnGetButton - TreeViewColumnGetButtonMethodInfo , - treeViewColumnGetButton , - - --- ** treeViewColumnGetClickable - TreeViewColumnGetClickableMethodInfo , - treeViewColumnGetClickable , - - --- ** treeViewColumnGetExpand - TreeViewColumnGetExpandMethodInfo , - treeViewColumnGetExpand , - - --- ** treeViewColumnGetFixedWidth - TreeViewColumnGetFixedWidthMethodInfo , - treeViewColumnGetFixedWidth , - - --- ** treeViewColumnGetMaxWidth - TreeViewColumnGetMaxWidthMethodInfo , - treeViewColumnGetMaxWidth , - - --- ** treeViewColumnGetMinWidth - TreeViewColumnGetMinWidthMethodInfo , - treeViewColumnGetMinWidth , - - --- ** treeViewColumnGetReorderable - TreeViewColumnGetReorderableMethodInfo , - treeViewColumnGetReorderable , - - --- ** treeViewColumnGetResizable - TreeViewColumnGetResizableMethodInfo , - treeViewColumnGetResizable , - - --- ** treeViewColumnGetSizing - TreeViewColumnGetSizingMethodInfo , - treeViewColumnGetSizing , - - --- ** treeViewColumnGetSortColumnId - TreeViewColumnGetSortColumnIdMethodInfo , - treeViewColumnGetSortColumnId , - - --- ** treeViewColumnGetSortIndicator - TreeViewColumnGetSortIndicatorMethodInfo, - treeViewColumnGetSortIndicator , - - --- ** treeViewColumnGetSortOrder - TreeViewColumnGetSortOrderMethodInfo , - treeViewColumnGetSortOrder , - - --- ** treeViewColumnGetSpacing - TreeViewColumnGetSpacingMethodInfo , - treeViewColumnGetSpacing , - - --- ** treeViewColumnGetTitle - TreeViewColumnGetTitleMethodInfo , - treeViewColumnGetTitle , - - --- ** treeViewColumnGetTreeView - TreeViewColumnGetTreeViewMethodInfo , - treeViewColumnGetTreeView , - - --- ** treeViewColumnGetVisible - TreeViewColumnGetVisibleMethodInfo , - treeViewColumnGetVisible , - - --- ** treeViewColumnGetWidget - TreeViewColumnGetWidgetMethodInfo , - treeViewColumnGetWidget , - - --- ** treeViewColumnGetWidth - TreeViewColumnGetWidthMethodInfo , - treeViewColumnGetWidth , - - --- ** treeViewColumnGetXOffset - TreeViewColumnGetXOffsetMethodInfo , - treeViewColumnGetXOffset , - - --- ** treeViewColumnNew - treeViewColumnNew , - - --- ** treeViewColumnNewWithArea - treeViewColumnNewWithArea , - - --- ** treeViewColumnPackEnd - TreeViewColumnPackEndMethodInfo , - treeViewColumnPackEnd , - - --- ** treeViewColumnPackStart - TreeViewColumnPackStartMethodInfo , - treeViewColumnPackStart , - - --- ** treeViewColumnQueueResize - TreeViewColumnQueueResizeMethodInfo , - treeViewColumnQueueResize , - - --- ** treeViewColumnSetAlignment - TreeViewColumnSetAlignmentMethodInfo , - treeViewColumnSetAlignment , - - --- ** treeViewColumnSetCellDataFunc - TreeViewColumnSetCellDataFuncMethodInfo , - treeViewColumnSetCellDataFunc , - - --- ** treeViewColumnSetClickable - TreeViewColumnSetClickableMethodInfo , - treeViewColumnSetClickable , - - --- ** treeViewColumnSetExpand - TreeViewColumnSetExpandMethodInfo , - treeViewColumnSetExpand , - - --- ** treeViewColumnSetFixedWidth - TreeViewColumnSetFixedWidthMethodInfo , - treeViewColumnSetFixedWidth , - - --- ** treeViewColumnSetMaxWidth - TreeViewColumnSetMaxWidthMethodInfo , - treeViewColumnSetMaxWidth , - - --- ** treeViewColumnSetMinWidth - TreeViewColumnSetMinWidthMethodInfo , - treeViewColumnSetMinWidth , - - --- ** treeViewColumnSetReorderable - TreeViewColumnSetReorderableMethodInfo , - treeViewColumnSetReorderable , - - --- ** treeViewColumnSetResizable - TreeViewColumnSetResizableMethodInfo , - treeViewColumnSetResizable , - - --- ** treeViewColumnSetSizing - TreeViewColumnSetSizingMethodInfo , - treeViewColumnSetSizing , - - --- ** treeViewColumnSetSortColumnId - TreeViewColumnSetSortColumnIdMethodInfo , - treeViewColumnSetSortColumnId , - - --- ** treeViewColumnSetSortIndicator - TreeViewColumnSetSortIndicatorMethodInfo, - treeViewColumnSetSortIndicator , - - --- ** treeViewColumnSetSortOrder - TreeViewColumnSetSortOrderMethodInfo , - treeViewColumnSetSortOrder , - - --- ** treeViewColumnSetSpacing - TreeViewColumnSetSpacingMethodInfo , - treeViewColumnSetSpacing , - - --- ** treeViewColumnSetTitle - TreeViewColumnSetTitleMethodInfo , - treeViewColumnSetTitle , - - --- ** treeViewColumnSetVisible - TreeViewColumnSetVisibleMethodInfo , - treeViewColumnSetVisible , - - --- ** treeViewColumnSetWidget - TreeViewColumnSetWidgetMethodInfo , - treeViewColumnSetWidget , - - - - - -- * Properties --- ** Alignment - TreeViewColumnAlignmentPropertyInfo , - constructTreeViewColumnAlignment , - getTreeViewColumnAlignment , - setTreeViewColumnAlignment , - treeViewColumnAlignment , - - --- ** CellArea - TreeViewColumnCellAreaPropertyInfo , - constructTreeViewColumnCellArea , - getTreeViewColumnCellArea , - treeViewColumnCellArea , - - --- ** Clickable - TreeViewColumnClickablePropertyInfo , - constructTreeViewColumnClickable , - getTreeViewColumnClickable , - setTreeViewColumnClickable , - treeViewColumnClickable , - - --- ** Expand - TreeViewColumnExpandPropertyInfo , - constructTreeViewColumnExpand , - getTreeViewColumnExpand , - setTreeViewColumnExpand , - treeViewColumnExpand , - - --- ** FixedWidth - TreeViewColumnFixedWidthPropertyInfo , - constructTreeViewColumnFixedWidth , - getTreeViewColumnFixedWidth , - setTreeViewColumnFixedWidth , - treeViewColumnFixedWidth , - - --- ** MaxWidth - TreeViewColumnMaxWidthPropertyInfo , - constructTreeViewColumnMaxWidth , - getTreeViewColumnMaxWidth , - setTreeViewColumnMaxWidth , - treeViewColumnMaxWidth , - - --- ** MinWidth - TreeViewColumnMinWidthPropertyInfo , - constructTreeViewColumnMinWidth , - getTreeViewColumnMinWidth , - setTreeViewColumnMinWidth , - treeViewColumnMinWidth , - - --- ** Reorderable - TreeViewColumnReorderablePropertyInfo , - constructTreeViewColumnReorderable , - getTreeViewColumnReorderable , - setTreeViewColumnReorderable , - treeViewColumnReorderable , - - --- ** Resizable - TreeViewColumnResizablePropertyInfo , - constructTreeViewColumnResizable , - getTreeViewColumnResizable , - setTreeViewColumnResizable , - treeViewColumnResizable , - - --- ** Sizing - TreeViewColumnSizingPropertyInfo , - constructTreeViewColumnSizing , - getTreeViewColumnSizing , - setTreeViewColumnSizing , - treeViewColumnSizing , - - --- ** SortColumnId - TreeViewColumnSortColumnIdPropertyInfo , - constructTreeViewColumnSortColumnId , - getTreeViewColumnSortColumnId , - setTreeViewColumnSortColumnId , - treeViewColumnSortColumnId , - - --- ** SortIndicator - TreeViewColumnSortIndicatorPropertyInfo , - constructTreeViewColumnSortIndicator , - getTreeViewColumnSortIndicator , - setTreeViewColumnSortIndicator , - treeViewColumnSortIndicator , - - --- ** SortOrder - TreeViewColumnSortOrderPropertyInfo , - constructTreeViewColumnSortOrder , - getTreeViewColumnSortOrder , - setTreeViewColumnSortOrder , - treeViewColumnSortOrder , - - --- ** Spacing - TreeViewColumnSpacingPropertyInfo , - constructTreeViewColumnSpacing , - getTreeViewColumnSpacing , - setTreeViewColumnSpacing , - treeViewColumnSpacing , - - --- ** Title - TreeViewColumnTitlePropertyInfo , - constructTreeViewColumnTitle , - getTreeViewColumnTitle , - setTreeViewColumnTitle , - treeViewColumnTitle , - - --- ** Visible - TreeViewColumnVisiblePropertyInfo , - constructTreeViewColumnVisible , - getTreeViewColumnVisible , - setTreeViewColumnVisible , - treeViewColumnVisible , - - --- ** Widget - TreeViewColumnWidgetPropertyInfo , - clearTreeViewColumnWidget , - constructTreeViewColumnWidget , - getTreeViewColumnWidget , - setTreeViewColumnWidget , - treeViewColumnWidget , - - --- ** Width - TreeViewColumnWidthPropertyInfo , - getTreeViewColumnWidth , - treeViewColumnWidth , - - --- ** XOffset - TreeViewColumnXOffsetPropertyInfo , - getTreeViewColumnXOffset , - treeViewColumnXOffset , - - - - - -- * Signals --- ** Clicked - TreeViewColumnClickedCallback , - TreeViewColumnClickedCallbackC , - TreeViewColumnClickedSignalInfo , - afterTreeViewColumnClicked , - mkTreeViewColumnClickedCallback , - noTreeViewColumnClickedCallback , - onTreeViewColumnClicked , - treeViewColumnClickedCallbackWrapper , - treeViewColumnClickedClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype TreeViewColumn = TreeViewColumn (ForeignPtr TreeViewColumn) -foreign import ccall "gtk_tree_view_column_get_type" - c_gtk_tree_view_column_get_type :: IO GType - -type instance ParentTypes TreeViewColumn = TreeViewColumnParentTypes -type TreeViewColumnParentTypes = '[GObject.Object, Buildable, CellLayout] - -instance GObject TreeViewColumn where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tree_view_column_get_type - - -class GObject o => TreeViewColumnK o -instance (GObject o, IsDescendantOf TreeViewColumn o) => TreeViewColumnK o - -toTreeViewColumn :: TreeViewColumnK o => o -> IO TreeViewColumn -toTreeViewColumn = unsafeCastTo TreeViewColumn - -noTreeViewColumn :: Maybe TreeViewColumn -noTreeViewColumn = Nothing - -type family ResolveTreeViewColumnMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeViewColumnMethod "addChild" o = BuildableAddChildMethodInfo - ResolveTreeViewColumnMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTreeViewColumnMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTreeViewColumnMethod "cellGetPosition" o = TreeViewColumnCellGetPositionMethodInfo - ResolveTreeViewColumnMethod "cellGetSize" o = TreeViewColumnCellGetSizeMethodInfo - ResolveTreeViewColumnMethod "cellIsVisible" o = TreeViewColumnCellIsVisibleMethodInfo - ResolveTreeViewColumnMethod "cellSetCellData" o = TreeViewColumnCellSetCellDataMethodInfo - ResolveTreeViewColumnMethod "clicked" o = TreeViewColumnClickedMethodInfo - ResolveTreeViewColumnMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveTreeViewColumnMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveTreeViewColumnMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveTreeViewColumnMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveTreeViewColumnMethod "focusCell" o = TreeViewColumnFocusCellMethodInfo - ResolveTreeViewColumnMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTreeViewColumnMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTreeViewColumnMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTreeViewColumnMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTreeViewColumnMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTreeViewColumnMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveTreeViewColumnMethod "queueResize" o = TreeViewColumnQueueResizeMethodInfo - ResolveTreeViewColumnMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTreeViewColumnMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTreeViewColumnMethod "reorder" o = CellLayoutReorderMethodInfo - ResolveTreeViewColumnMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTreeViewColumnMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTreeViewColumnMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTreeViewColumnMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTreeViewColumnMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTreeViewColumnMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTreeViewColumnMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTreeViewColumnMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTreeViewColumnMethod "getAlignment" o = TreeViewColumnGetAlignmentMethodInfo - ResolveTreeViewColumnMethod "getArea" o = CellLayoutGetAreaMethodInfo - ResolveTreeViewColumnMethod "getButton" o = TreeViewColumnGetButtonMethodInfo - ResolveTreeViewColumnMethod "getCells" o = CellLayoutGetCellsMethodInfo - ResolveTreeViewColumnMethod "getClickable" o = TreeViewColumnGetClickableMethodInfo - ResolveTreeViewColumnMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTreeViewColumnMethod "getExpand" o = TreeViewColumnGetExpandMethodInfo - ResolveTreeViewColumnMethod "getFixedWidth" o = TreeViewColumnGetFixedWidthMethodInfo - ResolveTreeViewColumnMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveTreeViewColumnMethod "getMaxWidth" o = TreeViewColumnGetMaxWidthMethodInfo - ResolveTreeViewColumnMethod "getMinWidth" o = TreeViewColumnGetMinWidthMethodInfo - ResolveTreeViewColumnMethod "getName" o = BuildableGetNameMethodInfo - ResolveTreeViewColumnMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTreeViewColumnMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTreeViewColumnMethod "getReorderable" o = TreeViewColumnGetReorderableMethodInfo - ResolveTreeViewColumnMethod "getResizable" o = TreeViewColumnGetResizableMethodInfo - ResolveTreeViewColumnMethod "getSizing" o = TreeViewColumnGetSizingMethodInfo - ResolveTreeViewColumnMethod "getSortColumnId" o = TreeViewColumnGetSortColumnIdMethodInfo - ResolveTreeViewColumnMethod "getSortIndicator" o = TreeViewColumnGetSortIndicatorMethodInfo - ResolveTreeViewColumnMethod "getSortOrder" o = TreeViewColumnGetSortOrderMethodInfo - ResolveTreeViewColumnMethod "getSpacing" o = TreeViewColumnGetSpacingMethodInfo - ResolveTreeViewColumnMethod "getTitle" o = TreeViewColumnGetTitleMethodInfo - ResolveTreeViewColumnMethod "getTreeView" o = TreeViewColumnGetTreeViewMethodInfo - ResolveTreeViewColumnMethod "getVisible" o = TreeViewColumnGetVisibleMethodInfo - ResolveTreeViewColumnMethod "getWidget" o = TreeViewColumnGetWidgetMethodInfo - ResolveTreeViewColumnMethod "getWidth" o = TreeViewColumnGetWidthMethodInfo - ResolveTreeViewColumnMethod "getXOffset" o = TreeViewColumnGetXOffsetMethodInfo - ResolveTreeViewColumnMethod "setAlignment" o = TreeViewColumnSetAlignmentMethodInfo - ResolveTreeViewColumnMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveTreeViewColumnMethod "setClickable" o = TreeViewColumnSetClickableMethodInfo - ResolveTreeViewColumnMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTreeViewColumnMethod "setExpand" o = TreeViewColumnSetExpandMethodInfo - ResolveTreeViewColumnMethod "setFixedWidth" o = TreeViewColumnSetFixedWidthMethodInfo - ResolveTreeViewColumnMethod "setMaxWidth" o = TreeViewColumnSetMaxWidthMethodInfo - ResolveTreeViewColumnMethod "setMinWidth" o = TreeViewColumnSetMinWidthMethodInfo - ResolveTreeViewColumnMethod "setName" o = BuildableSetNameMethodInfo - ResolveTreeViewColumnMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTreeViewColumnMethod "setReorderable" o = TreeViewColumnSetReorderableMethodInfo - ResolveTreeViewColumnMethod "setResizable" o = TreeViewColumnSetResizableMethodInfo - ResolveTreeViewColumnMethod "setSizing" o = TreeViewColumnSetSizingMethodInfo - ResolveTreeViewColumnMethod "setSortColumnId" o = TreeViewColumnSetSortColumnIdMethodInfo - ResolveTreeViewColumnMethod "setSortIndicator" o = TreeViewColumnSetSortIndicatorMethodInfo - ResolveTreeViewColumnMethod "setSortOrder" o = TreeViewColumnSetSortOrderMethodInfo - ResolveTreeViewColumnMethod "setSpacing" o = TreeViewColumnSetSpacingMethodInfo - ResolveTreeViewColumnMethod "setTitle" o = TreeViewColumnSetTitleMethodInfo - ResolveTreeViewColumnMethod "setVisible" o = TreeViewColumnSetVisibleMethodInfo - ResolveTreeViewColumnMethod "setWidget" o = TreeViewColumnSetWidgetMethodInfo - ResolveTreeViewColumnMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabelProxy t (TreeViewColumn -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabel t (TreeViewColumn -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TreeViewColumn::clicked -type TreeViewColumnClickedCallback = - IO () - -noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback -noTreeViewColumnClickedCallback = Nothing - -type TreeViewColumnClickedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewColumnClickedCallback :: TreeViewColumnClickedCallbackC -> IO (FunPtr TreeViewColumnClickedCallbackC) - -treeViewColumnClickedClosure :: TreeViewColumnClickedCallback -> IO Closure -treeViewColumnClickedClosure cb = newCClosure =<< mkTreeViewColumnClickedCallback wrapped - where wrapped = treeViewColumnClickedCallbackWrapper cb - -treeViewColumnClickedCallbackWrapper :: - TreeViewColumnClickedCallback -> - Ptr () -> - Ptr () -> - IO () -treeViewColumnClickedCallbackWrapper _cb _ _ = do - _cb - -onTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId -onTreeViewColumnClicked obj cb = liftIO $ connectTreeViewColumnClicked obj cb SignalConnectBefore -afterTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId -afterTreeViewColumnClicked obj cb = connectTreeViewColumnClicked obj cb SignalConnectAfter - -connectTreeViewColumnClicked :: (GObject a, MonadIO m) => - a -> TreeViewColumnClickedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewColumnClicked obj cb after = liftIO $ do - cb' <- mkTreeViewColumnClickedCallback (treeViewColumnClickedCallbackWrapper cb) - connectSignalFunPtr obj "clicked" cb' after - --- VVV Prop "alignment" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> m Float -getTreeViewColumnAlignment obj = liftIO $ getObjectPropertyFloat obj "alignment" - -setTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> Float -> m () -setTreeViewColumnAlignment obj val = liftIO $ setObjectPropertyFloat obj "alignment" val - -constructTreeViewColumnAlignment :: Float -> IO ([Char], GValue) -constructTreeViewColumnAlignment val = constructObjectPropertyFloat "alignment" val - -data TreeViewColumnAlignmentPropertyInfo -instance AttrInfo TreeViewColumnAlignmentPropertyInfo where - type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float - type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float - type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment" - attrGet _ = getTreeViewColumnAlignment - attrSet _ = setTreeViewColumnAlignment - attrConstruct _ = constructTreeViewColumnAlignment - attrClear _ = undefined - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m (Maybe CellArea) -getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" (Just val) - -data TreeViewColumnCellAreaPropertyInfo -instance AttrInfo TreeViewColumnCellAreaPropertyInfo where - type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe CellArea) - type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area" - attrGet _ = getTreeViewColumnCellArea - attrSet _ = undefined - attrConstruct _ = constructTreeViewColumnCellArea - attrClear _ = undefined - --- VVV Prop "clickable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnClickable obj = liftIO $ getObjectPropertyBool obj "clickable" - -setTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnClickable obj val = liftIO $ setObjectPropertyBool obj "clickable" val - -constructTreeViewColumnClickable :: Bool -> IO ([Char], GValue) -constructTreeViewColumnClickable val = constructObjectPropertyBool "clickable" val - -data TreeViewColumnClickablePropertyInfo -instance AttrInfo TreeViewColumnClickablePropertyInfo where - type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnClickablePropertyInfo = Bool - type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable" - attrGet _ = getTreeViewColumnClickable - attrSet _ = setTreeViewColumnClickable - attrConstruct _ = constructTreeViewColumnClickable - attrClear _ = undefined - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnExpand obj = liftIO $ getObjectPropertyBool obj "expand" - -setTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val - -constructTreeViewColumnExpand :: Bool -> IO ([Char], GValue) -constructTreeViewColumnExpand val = constructObjectPropertyBool "expand" val - -data TreeViewColumnExpandPropertyInfo -instance AttrInfo TreeViewColumnExpandPropertyInfo where - type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnExpandPropertyInfo = Bool - type AttrLabel TreeViewColumnExpandPropertyInfo = "expand" - attrGet _ = getTreeViewColumnExpand - attrSet _ = setTreeViewColumnExpand - attrConstruct _ = constructTreeViewColumnExpand - attrClear _ = undefined - --- VVV Prop "fixed-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyInt32 obj "fixed-width" - -setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyInt32 obj "fixed-width" val - -constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnFixedWidth val = constructObjectPropertyInt32 "fixed-width" val - -data TreeViewColumnFixedWidthPropertyInfo -instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where - type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width" - attrGet _ = getTreeViewColumnFixedWidth - attrSet _ = setTreeViewColumnFixedWidth - attrConstruct _ = constructTreeViewColumnFixedWidth - attrClear _ = undefined - --- VVV Prop "max-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyInt32 obj "max-width" - -setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyInt32 obj "max-width" val - -constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMaxWidth val = constructObjectPropertyInt32 "max-width" val - -data TreeViewColumnMaxWidthPropertyInfo -instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where - type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width" - attrGet _ = getTreeViewColumnMaxWidth - attrSet _ = setTreeViewColumnMaxWidth - attrConstruct _ = constructTreeViewColumnMaxWidth - attrClear _ = undefined - --- VVV Prop "min-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyInt32 obj "min-width" - -setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-width" val - -constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMinWidth val = constructObjectPropertyInt32 "min-width" val - -data TreeViewColumnMinWidthPropertyInfo -instance AttrInfo TreeViewColumnMinWidthPropertyInfo where - type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width" - attrGet _ = getTreeViewColumnMinWidth - attrSet _ = setTreeViewColumnMinWidth - attrConstruct _ = constructTreeViewColumnMinWidth - attrClear _ = undefined - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" - -setTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val - -constructTreeViewColumnReorderable :: Bool -> IO ([Char], GValue) -constructTreeViewColumnReorderable val = constructObjectPropertyBool "reorderable" val - -data TreeViewColumnReorderablePropertyInfo -instance AttrInfo TreeViewColumnReorderablePropertyInfo where - type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool - type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable" - attrGet _ = getTreeViewColumnReorderable - attrSet _ = setTreeViewColumnReorderable - attrConstruct _ = constructTreeViewColumnReorderable - attrClear _ = undefined - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnResizable obj = liftIO $ getObjectPropertyBool obj "resizable" - -setTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val - -constructTreeViewColumnResizable :: Bool -> IO ([Char], GValue) -constructTreeViewColumnResizable val = constructObjectPropertyBool "resizable" val - -data TreeViewColumnResizablePropertyInfo -instance AttrInfo TreeViewColumnResizablePropertyInfo where - type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnResizablePropertyInfo = Bool - type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable" - attrGet _ = getTreeViewColumnResizable - attrSet _ = setTreeViewColumnResizable - attrConstruct _ = constructTreeViewColumnResizable - attrClear _ = undefined - --- VVV Prop "sizing" - -- Type: TInterface "Gtk" "TreeViewColumnSizing" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> m TreeViewColumnSizing -getTreeViewColumnSizing obj = liftIO $ getObjectPropertyEnum obj "sizing" - -setTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> TreeViewColumnSizing -> m () -setTreeViewColumnSizing obj val = liftIO $ setObjectPropertyEnum obj "sizing" val - -constructTreeViewColumnSizing :: TreeViewColumnSizing -> IO ([Char], GValue) -constructTreeViewColumnSizing val = constructObjectPropertyEnum "sizing" val - -data TreeViewColumnSizingPropertyInfo -instance AttrInfo TreeViewColumnSizingPropertyInfo where - type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) TreeViewColumnSizing - type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnSizingPropertyInfo = TreeViewColumnSizing - type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing" - attrGet _ = getTreeViewColumnSizing - attrSet _ = setTreeViewColumnSizing - attrConstruct _ = constructTreeViewColumnSizing - attrClear _ = undefined - --- VVV Prop "sort-column-id" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyInt32 obj "sort-column-id" - -setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyInt32 obj "sort-column-id" val - -constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSortColumnId val = constructObjectPropertyInt32 "sort-column-id" val - -data TreeViewColumnSortColumnIdPropertyInfo -instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where - type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32 - type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id" - attrGet _ = getTreeViewColumnSortColumnId - attrSet _ = setTreeViewColumnSortColumnId - attrConstruct _ = constructTreeViewColumnSortColumnId - attrClear _ = undefined - --- VVV Prop "sort-indicator" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnSortIndicator obj = liftIO $ getObjectPropertyBool obj "sort-indicator" - -setTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnSortIndicator obj val = liftIO $ setObjectPropertyBool obj "sort-indicator" val - -constructTreeViewColumnSortIndicator :: Bool -> IO ([Char], GValue) -constructTreeViewColumnSortIndicator val = constructObjectPropertyBool "sort-indicator" val - -data TreeViewColumnSortIndicatorPropertyInfo -instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where - type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool - type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator" - attrGet _ = getTreeViewColumnSortIndicator - attrSet _ = setTreeViewColumnSortIndicator - attrConstruct _ = constructTreeViewColumnSortIndicator - attrClear _ = undefined - --- VVV Prop "sort-order" - -- Type: TInterface "Gtk" "SortType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> m SortType -getTreeViewColumnSortOrder obj = liftIO $ getObjectPropertyEnum obj "sort-order" - -setTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> SortType -> m () -setTreeViewColumnSortOrder obj val = liftIO $ setObjectPropertyEnum obj "sort-order" val - -constructTreeViewColumnSortOrder :: SortType -> IO ([Char], GValue) -constructTreeViewColumnSortOrder val = constructObjectPropertyEnum "sort-order" val - -data TreeViewColumnSortOrderPropertyInfo -instance AttrInfo TreeViewColumnSortOrderPropertyInfo where - type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) SortType - type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnSortOrderPropertyInfo = SortType - type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order" - attrGet _ = getTreeViewColumnSortOrder - attrSet _ = setTreeViewColumnSortOrder - attrConstruct _ = constructTreeViewColumnSortOrder - attrClear _ = undefined - --- VVV Prop "spacing" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" - -setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val - -constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSpacing val = constructObjectPropertyInt32 "spacing" val - -data TreeViewColumnSpacingPropertyInfo -instance AttrInfo TreeViewColumnSpacingPropertyInfo where - type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32 - type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing" - attrGet _ = getTreeViewColumnSpacing - attrSet _ = setTreeViewColumnSpacing - attrConstruct _ = constructTreeViewColumnSpacing - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text -getTreeViewColumnTitle obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnTitle" $ getObjectPropertyString obj "title" - -setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m () -setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue) -constructTreeViewColumnTitle val = constructObjectPropertyString "title" (Just val) - -data TreeViewColumnTitlePropertyInfo -instance AttrInfo TreeViewColumnTitlePropertyInfo where - type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text - type AttrLabel TreeViewColumnTitlePropertyInfo = "title" - attrGet _ = getTreeViewColumnTitle - attrSet _ = setTreeViewColumnTitle - attrConstruct _ = constructTreeViewColumnTitle - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> m Bool -getTreeViewColumnVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () -setTreeViewColumnVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructTreeViewColumnVisible :: Bool -> IO ([Char], GValue) -constructTreeViewColumnVisible val = constructObjectPropertyBool "visible" val - -data TreeViewColumnVisiblePropertyInfo -instance AttrInfo TreeViewColumnVisiblePropertyInfo where - type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool - type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible" - attrGet _ = getTreeViewColumnVisible - attrSet _ = setTreeViewColumnVisible - attrConstruct _ = constructTreeViewColumnVisible - attrClear _ = undefined - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget -getTreeViewColumnWidget obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnWidget" $ getObjectPropertyObject obj "widget" Widget - -setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m () -setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) - -constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" (Just val) - -clearTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m () -clearTreeViewColumnWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget) - -data TreeViewColumnWidgetPropertyInfo -instance AttrInfo TreeViewColumnWidgetPropertyInfo where - type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget - type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget" - attrGet _ = getTreeViewColumnWidget - attrSet _ = setTreeViewColumnWidget - attrConstruct _ = constructTreeViewColumnWidget - attrClear _ = clearTreeViewColumnWidget - --- VVV Prop "width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnWidth obj = liftIO $ getObjectPropertyInt32 obj "width" - -data TreeViewColumnWidthPropertyInfo -instance AttrInfo TreeViewColumnWidthPropertyInfo where - type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnWidthPropertyInfo = "width" - attrGet _ = getTreeViewColumnWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "x-offset" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyInt32 obj "x-offset" - -data TreeViewColumnXOffsetPropertyInfo -instance AttrInfo TreeViewColumnXOffsetPropertyInfo where - type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32 - type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset" - attrGet _ = getTreeViewColumnXOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList TreeViewColumn = TreeViewColumnAttributeList -type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)]) - -treeViewColumnAlignment :: AttrLabelProxy "alignment" -treeViewColumnAlignment = AttrLabelProxy - -treeViewColumnCellArea :: AttrLabelProxy "cellArea" -treeViewColumnCellArea = AttrLabelProxy - -treeViewColumnClickable :: AttrLabelProxy "clickable" -treeViewColumnClickable = AttrLabelProxy - -treeViewColumnExpand :: AttrLabelProxy "expand" -treeViewColumnExpand = AttrLabelProxy - -treeViewColumnFixedWidth :: AttrLabelProxy "fixedWidth" -treeViewColumnFixedWidth = AttrLabelProxy - -treeViewColumnMaxWidth :: AttrLabelProxy "maxWidth" -treeViewColumnMaxWidth = AttrLabelProxy - -treeViewColumnMinWidth :: AttrLabelProxy "minWidth" -treeViewColumnMinWidth = AttrLabelProxy - -treeViewColumnReorderable :: AttrLabelProxy "reorderable" -treeViewColumnReorderable = AttrLabelProxy - -treeViewColumnResizable :: AttrLabelProxy "resizable" -treeViewColumnResizable = AttrLabelProxy - -treeViewColumnSizing :: AttrLabelProxy "sizing" -treeViewColumnSizing = AttrLabelProxy - -treeViewColumnSortColumnId :: AttrLabelProxy "sortColumnId" -treeViewColumnSortColumnId = AttrLabelProxy - -treeViewColumnSortIndicator :: AttrLabelProxy "sortIndicator" -treeViewColumnSortIndicator = AttrLabelProxy - -treeViewColumnSortOrder :: AttrLabelProxy "sortOrder" -treeViewColumnSortOrder = AttrLabelProxy - -treeViewColumnSpacing :: AttrLabelProxy "spacing" -treeViewColumnSpacing = AttrLabelProxy - -treeViewColumnTitle :: AttrLabelProxy "title" -treeViewColumnTitle = AttrLabelProxy - -treeViewColumnVisible :: AttrLabelProxy "visible" -treeViewColumnVisible = AttrLabelProxy - -treeViewColumnWidget :: AttrLabelProxy "widget" -treeViewColumnWidget = AttrLabelProxy - -treeViewColumnWidth :: AttrLabelProxy "width" -treeViewColumnWidth = AttrLabelProxy - -treeViewColumnXOffset :: AttrLabelProxy "xOffset" -treeViewColumnXOffset = AttrLabelProxy - -data TreeViewColumnClickedSignalInfo -instance SignalInfo TreeViewColumnClickedSignalInfo where - type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback - connectSignal _ = connectTreeViewColumnClicked - -type instance SignalList TreeViewColumn = TreeViewColumnSignalList -type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeViewColumn::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewColumn") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new :: - IO (Ptr TreeViewColumn) - - -treeViewColumnNew :: - (MonadIO m) => - m TreeViewColumn -- result -treeViewColumnNew = liftIO $ do - result <- gtk_tree_view_column_new - checkUnexpectedReturnNULL "gtk_tree_view_column_new" result - result' <- (newObject TreeViewColumn) result - return result' - --- method TreeViewColumn::new_with_area --- method type : Constructor --- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewColumn") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr TreeViewColumn) - - -treeViewColumnNewWithArea :: - (MonadIO m, CellAreaK a) => - a -- area - -> m TreeViewColumn -- result -treeViewColumnNewWithArea area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_tree_view_column_new_with_area area' - checkUnexpectedReturnNULL "gtk_tree_view_column_new_with_area" result - result' <- (newObject TreeViewColumn) result - touchManagedPtr area - return result' - --- method TreeViewColumn::add_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" - CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt - IO () - - -treeViewColumnAddAttribute :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cellRenderer - -> T.Text -- attribute - -> Int32 -- column - -> m () -- result -treeViewColumnAddAttribute _obj cellRenderer attribute column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer - attribute' <- textToCString attribute - gtk_tree_view_column_add_attribute _obj' cellRenderer' attribute' column - touchManagedPtr _obj - touchManagedPtr cellRenderer - freeMem attribute' - return () - -data TreeViewColumnAddAttributeMethodInfo -instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnAddAttributeMethodInfo a signature where - overloadedMethod _ = treeViewColumnAddAttribute - --- method TreeViewColumn::cell_get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", 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 "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- x_offset : TBasicType TInt - Ptr Int32 -> -- width : TBasicType TInt - IO CInt - - -treeViewColumnCellGetPosition :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cellRenderer - -> m (Bool,Int32,Int32) -- result -treeViewColumnCellGetPosition _obj cellRenderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer - xOffset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_column_cell_get_position _obj' cellRenderer' xOffset width - let result' = (/= 0) result - xOffset' <- peek xOffset - width' <- peek width - touchManagedPtr _obj - touchManagedPtr cellRenderer - freeMem xOffset - freeMem width - return (result', xOffset', width') - -data TreeViewColumnCellGetPositionMethodInfo -instance (signature ~ (b -> m (Bool,Int32,Int32)), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnCellGetPositionMethodInfo a signature where - overloadedMethod _ = treeViewColumnCellGetPosition - --- method TreeViewColumn::cell_get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Int32 -> -- x_offset : TBasicType TInt - Ptr Int32 -> -- y_offset : TBasicType TInt - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -treeViewColumnCellGetSize :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Maybe (Gdk.Rectangle) -- cellArea - -> m (Int32,Int32,Int32,Int32) -- result -treeViewColumnCellGetSize _obj cellArea = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCellArea <- case cellArea of - Nothing -> return nullPtr - Just jCellArea -> do - let jCellArea' = unsafeManagedPtrGetPtr jCellArea - return jCellArea' - xOffset <- allocMem :: IO (Ptr Int32) - yOffset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_tree_view_column_cell_get_size _obj' maybeCellArea xOffset yOffset width height - xOffset' <- peek xOffset - yOffset' <- peek yOffset - width' <- peek width - height' <- peek height - touchManagedPtr _obj - whenJust cellArea touchManagedPtr - freeMem xOffset - freeMem yOffset - freeMem width - freeMem height - return (xOffset', yOffset', width', height') - -data TreeViewColumnCellGetSizeMethodInfo -instance (signature ~ (Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellGetSizeMethodInfo a signature where - overloadedMethod _ = treeViewColumnCellGetSize - --- method TreeViewColumn::cell_is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnCellIsVisible :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnCellIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_cell_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnCellIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellIsVisibleMethodInfo a signature where - overloadedMethod _ = treeViewColumnCellIsVisible - --- method TreeViewColumn::cell_set_cell_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", 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 "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - CInt -> -- is_expander : TBasicType TBoolean - CInt -> -- is_expanded : TBasicType TBoolean - IO () - - -treeViewColumnCellSetCellData :: - (MonadIO m, TreeViewColumnK a, TreeModelK b) => - a -- _obj - -> b -- treeModel - -> TreeIter -- iter - -> Bool -- isExpander - -> Bool -- isExpanded - -> m () -- result -treeViewColumnCellSetCellData _obj treeModel iter isExpander isExpanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let treeModel' = unsafeManagedPtrCastPtr treeModel - let iter' = unsafeManagedPtrGetPtr iter - let isExpander' = (fromIntegral . fromEnum) isExpander - let isExpanded' = (fromIntegral . fromEnum) isExpanded - gtk_tree_view_column_cell_set_cell_data _obj' treeModel' iter' isExpander' isExpanded' - touchManagedPtr _obj - touchManagedPtr treeModel - touchManagedPtr iter - return () - -data TreeViewColumnCellSetCellDataMethodInfo -instance (signature ~ (b -> TreeIter -> Bool -> Bool -> m ()), MonadIO m, TreeViewColumnK a, TreeModelK b) => MethodInfo TreeViewColumnCellSetCellDataMethodInfo a signature where - overloadedMethod _ = treeViewColumnCellSetCellData - --- method TreeViewColumn::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_clear" gtk_tree_view_column_clear :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewColumnClear :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m () -- result -treeViewColumnClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_clear _obj' - touchManagedPtr _obj - return () - -data TreeViewColumnClearMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClearMethodInfo a signature where - overloadedMethod _ = treeViewColumnClear - --- method TreeViewColumn::clear_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" - IO () - - -treeViewColumnClearAttributes :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cellRenderer - -> m () -- result -treeViewColumnClearAttributes _obj cellRenderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer - gtk_tree_view_column_clear_attributes _obj' cellRenderer' - touchManagedPtr _obj - touchManagedPtr cellRenderer - return () - -data TreeViewColumnClearAttributesMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnClearAttributesMethodInfo a signature where - overloadedMethod _ = treeViewColumnClearAttributes - --- method TreeViewColumn::clicked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewColumnClicked :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m () -- result -treeViewColumnClicked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_clicked _obj' - touchManagedPtr _obj - return () - -data TreeViewColumnClickedMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClickedMethodInfo a signature where - overloadedMethod _ = treeViewColumnClicked - --- method TreeViewColumn::focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", 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 "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -treeViewColumnFocusCell :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> m () -- result -treeViewColumnFocusCell _obj cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - gtk_tree_view_column_focus_cell _obj' cell' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data TreeViewColumnFocusCellMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnFocusCellMethodInfo a signature where - overloadedMethod _ = treeViewColumnFocusCell - --- method TreeViewColumn::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFloat) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CFloat - - -treeViewColumnGetAlignment :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Float -- result -treeViewColumnGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetAlignmentMethodInfo -instance (signature ~ (m Float), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetAlignmentMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetAlignment - --- method TreeViewColumn::get_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO (Ptr Widget) - - -treeViewColumnGetButton :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Widget -- result -treeViewColumnGetButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_button _obj' - checkUnexpectedReturnNULL "gtk_tree_view_column_get_button" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetButtonMethodInfo -instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetButtonMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetButton - --- method TreeViewColumn::get_clickable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetClickable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetClickable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_clickable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetClickableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetClickableMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetClickable - --- method TreeViewColumn::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetExpand :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetExpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetExpandMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetExpand - --- method TreeViewColumn::get_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetFixedWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetFixedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_fixed_width _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetFixedWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetFixedWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetFixedWidth - --- method TreeViewColumn::get_max_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetMaxWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetMaxWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_max_width _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetMaxWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMaxWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetMaxWidth - --- method TreeViewColumn::get_min_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetMinWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetMinWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_min_width _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetMinWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMinWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetMinWidth - --- method TreeViewColumn::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetReorderable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetReorderableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetReorderableMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetReorderable - --- method TreeViewColumn::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetResizable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetResizableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetResizableMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetResizable - --- method TreeViewColumn::get_sizing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeViewColumnSizing") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CUInt - - -treeViewColumnGetSizing :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m TreeViewColumnSizing -- result -treeViewColumnGetSizing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_sizing _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetSizingMethodInfo -instance (signature ~ (m TreeViewColumnSizing), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSizingMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetSizing - --- method TreeViewColumn::get_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetSortColumnId :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetSortColumnId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_sort_column_id _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetSortColumnIdMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortColumnIdMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetSortColumnId - --- method TreeViewColumn::get_sort_indicator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetSortIndicator :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetSortIndicator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_sort_indicator _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetSortIndicatorMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortIndicatorMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetSortIndicator - --- method TreeViewColumn::get_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SortType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CUInt - - -treeViewColumnGetSortOrder :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m SortType -- result -treeViewColumnGetSortOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_sort_order _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetSortOrderMethodInfo -instance (signature ~ (m SortType), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortOrderMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetSortOrder - --- method TreeViewColumn::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetSpacing :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_spacing _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetSpacingMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSpacingMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetSpacing - --- method TreeViewColumn::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CString - - -treeViewColumnGetTitle :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m T.Text -- result -treeViewColumnGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_title _obj' - checkUnexpectedReturnNULL "gtk_tree_view_column_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTitleMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetTitle - --- method TreeViewColumn::get_tree_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO (Ptr Widget) - - -treeViewColumnGetTreeView :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Widget -- result -treeViewColumnGetTreeView _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_tree_view _obj' - checkUnexpectedReturnNULL "gtk_tree_view_column_get_tree_view" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetTreeViewMethodInfo -instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTreeViewMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetTreeView - --- method TreeViewColumn::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO CInt - - -treeViewColumnGetVisible :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Bool -- result -treeViewColumnGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetVisibleMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetVisible - --- method TreeViewColumn::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO (Ptr Widget) - - -treeViewColumnGetWidget :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Widget -- result -treeViewColumnGetWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_widget _obj' - checkUnexpectedReturnNULL "gtk_tree_view_column_get_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data TreeViewColumnGetWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidgetMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetWidget - --- method TreeViewColumn::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_width _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetWidth - --- method TreeViewColumn::get_x_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewColumnGetXOffset :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m Int32 -- result -treeViewColumnGetXOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_x_offset _obj' - touchManagedPtr _obj - return result - -data TreeViewColumnGetXOffsetMethodInfo -instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetXOffsetMethodInfo a signature where - overloadedMethod _ = treeViewColumnGetXOffset - --- method TreeViewColumn::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - IO () - - -treeViewColumnPackEnd :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Bool -- expand - -> m () -- result -treeViewColumnPackEnd _obj cell expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let expand' = (fromIntegral . fromEnum) expand - gtk_tree_view_column_pack_end _obj' cell' expand' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data TreeViewColumnPackEndMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackEndMethodInfo a signature where - overloadedMethod _ = treeViewColumnPackEnd - --- method TreeViewColumn::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- expand : TBasicType TBoolean - IO () - - -treeViewColumnPackStart :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cell - -> Bool -- expand - -> m () -- result -treeViewColumnPackStart _obj cell expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let expand' = (fromIntegral . fromEnum) expand - gtk_tree_view_column_pack_start _obj' cell' expand' - touchManagedPtr _obj - touchManagedPtr cell - return () - -data TreeViewColumnPackStartMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackStartMethodInfo a signature where - overloadedMethod _ = treeViewColumnPackStart - --- method TreeViewColumn::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewColumnQueueResize :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> m () -- result -treeViewColumnQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_queue_resize _obj' - touchManagedPtr _obj - return () - -data TreeViewColumnQueueResizeMethodInfo -instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnQueueResizeMethodInfo a signature where - overloadedMethod _ = treeViewColumnQueueResize - --- method TreeViewColumn::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, 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 "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CFloat -> -- xalign : TBasicType TFloat - IO () - - -treeViewColumnSetAlignment :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Float -- xalign - -> m () -- result -treeViewColumnSetAlignment _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_tree_view_column_set_alignment _obj' xalign' - touchManagedPtr _obj - return () - -data TreeViewColumnSetAlignmentMethodInfo -instance (signature ~ (Float -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetAlignmentMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetAlignment - --- method TreeViewColumn::set_cell_data_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" - FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- func_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewColumnSetCellDataFunc :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -- _obj - -> b -- cellRenderer - -> Maybe (TreeCellDataFunc) -- func - -> m () -- result -treeViewColumnSetCellDataFunc _obj cellRenderer func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc) - return jFunc' - let funcData = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_column_set_cell_data_func _obj' cellRenderer' maybeFunc funcData destroy - touchManagedPtr _obj - touchManagedPtr cellRenderer - return () - -data TreeViewColumnSetCellDataFuncMethodInfo -instance (signature ~ (b -> Maybe (TreeCellDataFunc) -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnSetCellDataFuncMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetCellDataFunc - --- method TreeViewColumn::set_clickable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clickable", 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 "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- clickable : TBasicType TBoolean - IO () - - -treeViewColumnSetClickable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- clickable - -> m () -- result -treeViewColumnSetClickable _obj clickable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clickable' = (fromIntegral . fromEnum) clickable - gtk_tree_view_column_set_clickable _obj' clickable' - touchManagedPtr _obj - return () - -data TreeViewColumnSetClickableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetClickableMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetClickable - --- method TreeViewColumn::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- expand : TBasicType TBoolean - IO () - - -treeViewColumnSetExpand :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -treeViewColumnSetExpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_tree_view_column_set_expand _obj' expand' - touchManagedPtr _obj - return () - -data TreeViewColumnSetExpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetExpandMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetExpand - --- method TreeViewColumn::set_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed_width", 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 "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- fixed_width : TBasicType TInt - IO () - - -treeViewColumnSetFixedWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Int32 -- fixedWidth - -> m () -- result -treeViewColumnSetFixedWidth _obj fixedWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_fixed_width _obj' fixedWidth - touchManagedPtr _obj - return () - -data TreeViewColumnSetFixedWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetFixedWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetFixedWidth - --- method TreeViewColumn::set_max_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_width", 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 "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- max_width : TBasicType TInt - IO () - - -treeViewColumnSetMaxWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Int32 -- maxWidth - -> m () -- result -treeViewColumnSetMaxWidth _obj maxWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_max_width _obj' maxWidth - touchManagedPtr _obj - return () - -data TreeViewColumnSetMaxWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMaxWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetMaxWidth - --- method TreeViewColumn::set_min_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_width", 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 "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- min_width : TBasicType TInt - IO () - - -treeViewColumnSetMinWidth :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Int32 -- minWidth - -> m () -- result -treeViewColumnSetMinWidth _obj minWidth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_min_width _obj' minWidth - touchManagedPtr _obj - return () - -data TreeViewColumnSetMinWidthMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMinWidthMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetMinWidth - --- method TreeViewColumn::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", 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 "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -treeViewColumnSetReorderable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- reorderable - -> m () -- result -treeViewColumnSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_tree_view_column_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - -data TreeViewColumnSetReorderableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetReorderableMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetReorderable - --- method TreeViewColumn::set_resizable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", 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 "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- resizable : TBasicType TBoolean - IO () - - -treeViewColumnSetResizable :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- resizable - -> m () -- result -treeViewColumnSetResizable _obj resizable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizable' = (fromIntegral . fromEnum) resizable - gtk_tree_view_column_set_resizable _obj' resizable' - touchManagedPtr _obj - return () - -data TreeViewColumnSetResizableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetResizableMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetResizable - --- method TreeViewColumn::set_sizing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", 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 "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CUInt -> -- type : TInterface "Gtk" "TreeViewColumnSizing" - IO () - - -treeViewColumnSetSizing :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> TreeViewColumnSizing -- type_ - -> m () -- result -treeViewColumnSetSizing _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_tree_view_column_set_sizing _obj' type_' - touchManagedPtr _obj - return () - -data TreeViewColumnSetSizingMethodInfo -instance (signature ~ (TreeViewColumnSizing -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSizingMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetSizing - --- method TreeViewColumn::set_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", 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 "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- sort_column_id : TBasicType TInt - IO () - - -treeViewColumnSetSortColumnId :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Int32 -- sortColumnId - -> m () -- result -treeViewColumnSetSortColumnId _obj sortColumnId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_sort_column_id _obj' sortColumnId - touchManagedPtr _obj - return () - -data TreeViewColumnSetSortColumnIdMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortColumnIdMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetSortColumnId - --- method TreeViewColumn::set_sort_indicator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- setting : TBasicType TBoolean - IO () - - -treeViewColumnSetSortIndicator :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -treeViewColumnSetSortIndicator _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_tree_view_column_set_sort_indicator _obj' setting' - touchManagedPtr _obj - return () - -data TreeViewColumnSetSortIndicatorMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortIndicatorMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetSortIndicator - --- method TreeViewColumn::set_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", 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 "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CUInt -> -- order : TInterface "Gtk" "SortType" - IO () - - -treeViewColumnSetSortOrder :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> SortType -- order - -> m () -- result -treeViewColumnSetSortOrder _obj order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let order' = (fromIntegral . fromEnum) order - gtk_tree_view_column_set_sort_order _obj' order' - touchManagedPtr _obj - return () - -data TreeViewColumnSetSortOrderMethodInfo -instance (signature ~ (SortType -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortOrderMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetSortOrder - --- method TreeViewColumn::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", 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 "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- spacing : TBasicType TInt - IO () - - -treeViewColumnSetSpacing :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Int32 -- spacing - -> m () -- result -treeViewColumnSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_spacing _obj' spacing - touchManagedPtr _obj - return () - -data TreeViewColumnSetSpacingMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSpacingMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetSpacing - --- method TreeViewColumn::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CString -> -- title : TBasicType TUTF8 - IO () - - -treeViewColumnSetTitle :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -treeViewColumnSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_tree_view_column_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data TreeViewColumnSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetTitleMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetTitle - --- method TreeViewColumn::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - CInt -> -- visible : TBasicType TBoolean - IO () - - -treeViewColumnSetVisible :: - (MonadIO m, TreeViewColumnK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -treeViewColumnSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_tree_view_column_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data TreeViewColumnSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetVisibleMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetVisible - --- method TreeViewColumn::set_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -treeViewColumnSetWidget :: - (MonadIO m, TreeViewColumnK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- widget - -> m () -- result -treeViewColumnSetWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_tree_view_column_set_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - -data TreeViewColumnSetWidgetMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewColumnK a, WidgetK b) => MethodInfo TreeViewColumnSetWidgetMethodInfo a signature where - overloadedMethod _ = treeViewColumnSetWidget - - diff --git a/GI/Gtk/Objects/TreeViewColumn.hs-boot b/GI/Gtk/Objects/TreeViewColumn.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/TreeViewColumn.hs-boot +++ /dev/null @@ -1,82 +0,0 @@ -module GI.Gtk.Objects.TreeViewColumn 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 TreeViewColumn = TreeViewColumn (ForeignPtr TreeViewColumn) -instance GObject TreeViewColumn where -class GObject o => TreeViewColumnK o -instance (GObject o, IsDescendantOf TreeViewColumn o) => TreeViewColumnK o -data TreeViewColumnAlignmentPropertyInfo -data TreeViewColumnCellAreaPropertyInfo -data TreeViewColumnClickablePropertyInfo -data TreeViewColumnExpandPropertyInfo -data TreeViewColumnFixedWidthPropertyInfo -data TreeViewColumnMaxWidthPropertyInfo -data TreeViewColumnMinWidthPropertyInfo -data TreeViewColumnReorderablePropertyInfo -data TreeViewColumnResizablePropertyInfo -data TreeViewColumnSizingPropertyInfo -data TreeViewColumnSortColumnIdPropertyInfo -data TreeViewColumnSortIndicatorPropertyInfo -data TreeViewColumnSortOrderPropertyInfo -data TreeViewColumnSpacingPropertyInfo -data TreeViewColumnTitlePropertyInfo -data TreeViewColumnVisiblePropertyInfo -data TreeViewColumnWidgetPropertyInfo -data TreeViewColumnWidthPropertyInfo -data TreeViewColumnXOffsetPropertyInfo -data TreeViewColumnClickedSignalInfo -data TreeViewColumnAddAttributeMethodInfo -data TreeViewColumnCellGetPositionMethodInfo -data TreeViewColumnCellGetSizeMethodInfo -data TreeViewColumnCellIsVisibleMethodInfo -data TreeViewColumnCellSetCellDataMethodInfo -data TreeViewColumnClearMethodInfo -data TreeViewColumnClearAttributesMethodInfo -data TreeViewColumnClickedMethodInfo -data TreeViewColumnFocusCellMethodInfo -data TreeViewColumnGetAlignmentMethodInfo -data TreeViewColumnGetButtonMethodInfo -data TreeViewColumnGetClickableMethodInfo -data TreeViewColumnGetExpandMethodInfo -data TreeViewColumnGetFixedWidthMethodInfo -data TreeViewColumnGetMaxWidthMethodInfo -data TreeViewColumnGetMinWidthMethodInfo -data TreeViewColumnGetReorderableMethodInfo -data TreeViewColumnGetResizableMethodInfo -data TreeViewColumnGetSizingMethodInfo -data TreeViewColumnGetSortColumnIdMethodInfo -data TreeViewColumnGetSortIndicatorMethodInfo -data TreeViewColumnGetSortOrderMethodInfo -data TreeViewColumnGetSpacingMethodInfo -data TreeViewColumnGetTitleMethodInfo -data TreeViewColumnGetTreeViewMethodInfo -data TreeViewColumnGetVisibleMethodInfo -data TreeViewColumnGetWidgetMethodInfo -data TreeViewColumnGetWidthMethodInfo -data TreeViewColumnGetXOffsetMethodInfo -data TreeViewColumnPackEndMethodInfo -data TreeViewColumnPackStartMethodInfo -data TreeViewColumnQueueResizeMethodInfo -data TreeViewColumnSetAlignmentMethodInfo -data TreeViewColumnSetCellDataFuncMethodInfo -data TreeViewColumnSetClickableMethodInfo -data TreeViewColumnSetExpandMethodInfo -data TreeViewColumnSetFixedWidthMethodInfo -data TreeViewColumnSetMaxWidthMethodInfo -data TreeViewColumnSetMinWidthMethodInfo -data TreeViewColumnSetReorderableMethodInfo -data TreeViewColumnSetResizableMethodInfo -data TreeViewColumnSetSizingMethodInfo -data TreeViewColumnSetSortColumnIdMethodInfo -data TreeViewColumnSetSortIndicatorMethodInfo -data TreeViewColumnSetSortOrderMethodInfo -data TreeViewColumnSetSpacingMethodInfo -data TreeViewColumnSetTitleMethodInfo -data TreeViewColumnSetVisibleMethodInfo -data TreeViewColumnSetWidgetMethodInfo diff --git a/GI/Gtk/Objects/UIManager.hs b/GI/Gtk/Objects/UIManager.hs deleted file mode 100644 --- a/GI/Gtk/Objects/UIManager.hs +++ /dev/null @@ -1,1215 +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.Gtk.Objects.UIManager - ( - --- * Exported types - UIManager(..) , - UIManagerK , - toUIManager , - noUIManager , - - - -- * Methods --- ** uIManagerAddUi - UIManagerAddUiMethodInfo , - uIManagerAddUi , - - --- ** uIManagerAddUiFromFile - UIManagerAddUiFromFileMethodInfo , - uIManagerAddUiFromFile , - - --- ** uIManagerAddUiFromResource - UIManagerAddUiFromResourceMethodInfo , - uIManagerAddUiFromResource , - - --- ** uIManagerAddUiFromString - UIManagerAddUiFromStringMethodInfo , - uIManagerAddUiFromString , - - --- ** uIManagerEnsureUpdate - UIManagerEnsureUpdateMethodInfo , - uIManagerEnsureUpdate , - - --- ** uIManagerGetAccelGroup - UIManagerGetAccelGroupMethodInfo , - uIManagerGetAccelGroup , - - --- ** uIManagerGetAction - UIManagerGetActionMethodInfo , - uIManagerGetAction , - - --- ** uIManagerGetActionGroups - UIManagerGetActionGroupsMethodInfo , - uIManagerGetActionGroups , - - --- ** uIManagerGetAddTearoffs - UIManagerGetAddTearoffsMethodInfo , - uIManagerGetAddTearoffs , - - --- ** uIManagerGetToplevels - UIManagerGetToplevelsMethodInfo , - uIManagerGetToplevels , - - --- ** uIManagerGetUi - UIManagerGetUiMethodInfo , - uIManagerGetUi , - - --- ** uIManagerGetWidget - UIManagerGetWidgetMethodInfo , - uIManagerGetWidget , - - --- ** uIManagerInsertActionGroup - UIManagerInsertActionGroupMethodInfo , - uIManagerInsertActionGroup , - - --- ** uIManagerNew - uIManagerNew , - - --- ** uIManagerNewMergeId - UIManagerNewMergeIdMethodInfo , - uIManagerNewMergeId , - - --- ** uIManagerRemoveActionGroup - UIManagerRemoveActionGroupMethodInfo , - uIManagerRemoveActionGroup , - - --- ** uIManagerRemoveUi - UIManagerRemoveUiMethodInfo , - uIManagerRemoveUi , - - --- ** uIManagerSetAddTearoffs - UIManagerSetAddTearoffsMethodInfo , - uIManagerSetAddTearoffs , - - - - - -- * Properties --- ** AddTearoffs - UIManagerAddTearoffsPropertyInfo , - constructUIManagerAddTearoffs , - getUIManagerAddTearoffs , - setUIManagerAddTearoffs , - uIManagerAddTearoffs , - - --- ** Ui - UIManagerUiPropertyInfo , - getUIManagerUi , - uIManagerUi , - - - - - -- * Signals --- ** ActionsChanged - UIManagerActionsChangedCallback , - UIManagerActionsChangedCallbackC , - UIManagerActionsChangedSignalInfo , - afterUIManagerActionsChanged , - mkUIManagerActionsChangedCallback , - noUIManagerActionsChangedCallback , - onUIManagerActionsChanged , - uIManagerActionsChangedCallbackWrapper , - uIManagerActionsChangedClosure , - - --- ** AddWidget - UIManagerAddWidgetCallback , - UIManagerAddWidgetCallbackC , - UIManagerAddWidgetSignalInfo , - afterUIManagerAddWidget , - mkUIManagerAddWidgetCallback , - noUIManagerAddWidgetCallback , - onUIManagerAddWidget , - uIManagerAddWidgetCallbackWrapper , - uIManagerAddWidgetClosure , - - --- ** ConnectProxy - UIManagerConnectProxyCallback , - UIManagerConnectProxyCallbackC , - UIManagerConnectProxySignalInfo , - afterUIManagerConnectProxy , - mkUIManagerConnectProxyCallback , - noUIManagerConnectProxyCallback , - onUIManagerConnectProxy , - uIManagerConnectProxyCallbackWrapper , - uIManagerConnectProxyClosure , - - --- ** DisconnectProxy - UIManagerDisconnectProxyCallback , - UIManagerDisconnectProxyCallbackC , - UIManagerDisconnectProxySignalInfo , - afterUIManagerDisconnectProxy , - mkUIManagerDisconnectProxyCallback , - noUIManagerDisconnectProxyCallback , - onUIManagerDisconnectProxy , - uIManagerDisconnectProxyCallbackWrapper , - uIManagerDisconnectProxyClosure , - - --- ** PostActivate - UIManagerPostActivateCallback , - UIManagerPostActivateCallbackC , - UIManagerPostActivateSignalInfo , - afterUIManagerPostActivate , - mkUIManagerPostActivateCallback , - noUIManagerPostActivateCallback , - onUIManagerPostActivate , - uIManagerPostActivateCallbackWrapper , - uIManagerPostActivateClosure , - - --- ** PreActivate - UIManagerPreActivateCallback , - UIManagerPreActivateCallbackC , - UIManagerPreActivateSignalInfo , - afterUIManagerPreActivate , - mkUIManagerPreActivateCallback , - noUIManagerPreActivateCallback , - onUIManagerPreActivate , - uIManagerPreActivateCallbackWrapper , - uIManagerPreActivateClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype UIManager = UIManager (ForeignPtr UIManager) -foreign import ccall "gtk_ui_manager_get_type" - c_gtk_ui_manager_get_type :: IO GType - -type instance ParentTypes UIManager = UIManagerParentTypes -type UIManagerParentTypes = '[GObject.Object, Buildable] - -instance GObject UIManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_ui_manager_get_type - - -class GObject o => UIManagerK o -instance (GObject o, IsDescendantOf UIManager o) => UIManagerK o - -toUIManager :: UIManagerK o => o -> IO UIManager -toUIManager = unsafeCastTo UIManager - -noUIManager :: Maybe UIManager -noUIManager = Nothing - -type family ResolveUIManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveUIManagerMethod "addChild" o = BuildableAddChildMethodInfo - ResolveUIManagerMethod "addUi" o = UIManagerAddUiMethodInfo - ResolveUIManagerMethod "addUiFromFile" o = UIManagerAddUiFromFileMethodInfo - ResolveUIManagerMethod "addUiFromResource" o = UIManagerAddUiFromResourceMethodInfo - ResolveUIManagerMethod "addUiFromString" o = UIManagerAddUiFromStringMethodInfo - ResolveUIManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUIManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUIManagerMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveUIManagerMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveUIManagerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveUIManagerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveUIManagerMethod "ensureUpdate" o = UIManagerEnsureUpdateMethodInfo - ResolveUIManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUIManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUIManagerMethod "insertActionGroup" o = UIManagerInsertActionGroupMethodInfo - ResolveUIManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUIManagerMethod "newMergeId" o = UIManagerNewMergeIdMethodInfo - ResolveUIManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUIManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUIManagerMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveUIManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUIManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUIManagerMethod "removeActionGroup" o = UIManagerRemoveActionGroupMethodInfo - ResolveUIManagerMethod "removeUi" o = UIManagerRemoveUiMethodInfo - ResolveUIManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUIManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUIManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUIManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUIManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUIManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUIManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUIManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUIManagerMethod "getAccelGroup" o = UIManagerGetAccelGroupMethodInfo - ResolveUIManagerMethod "getAction" o = UIManagerGetActionMethodInfo - ResolveUIManagerMethod "getActionGroups" o = UIManagerGetActionGroupsMethodInfo - ResolveUIManagerMethod "getAddTearoffs" o = UIManagerGetAddTearoffsMethodInfo - ResolveUIManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUIManagerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveUIManagerMethod "getName" o = BuildableGetNameMethodInfo - ResolveUIManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUIManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUIManagerMethod "getToplevels" o = UIManagerGetToplevelsMethodInfo - ResolveUIManagerMethod "getUi" o = UIManagerGetUiMethodInfo - ResolveUIManagerMethod "getWidget" o = UIManagerGetWidgetMethodInfo - ResolveUIManagerMethod "setAddTearoffs" o = UIManagerSetAddTearoffsMethodInfo - ResolveUIManagerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveUIManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUIManagerMethod "setName" o = BuildableSetNameMethodInfo - ResolveUIManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUIManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabelProxy t (UIManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabel t (UIManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal UIManager::actions-changed -type UIManagerActionsChangedCallback = - IO () - -noUIManagerActionsChangedCallback :: Maybe UIManagerActionsChangedCallback -noUIManagerActionsChangedCallback = Nothing - -type UIManagerActionsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerActionsChangedCallback :: UIManagerActionsChangedCallbackC -> IO (FunPtr UIManagerActionsChangedCallbackC) - -uIManagerActionsChangedClosure :: UIManagerActionsChangedCallback -> IO Closure -uIManagerActionsChangedClosure cb = newCClosure =<< mkUIManagerActionsChangedCallback wrapped - where wrapped = uIManagerActionsChangedCallbackWrapper cb - -uIManagerActionsChangedCallbackWrapper :: - UIManagerActionsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -uIManagerActionsChangedCallbackWrapper _cb _ _ = do - _cb - -onUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId -onUIManagerActionsChanged obj cb = liftIO $ connectUIManagerActionsChanged obj cb SignalConnectBefore -afterUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId -afterUIManagerActionsChanged obj cb = connectUIManagerActionsChanged obj cb SignalConnectAfter - -connectUIManagerActionsChanged :: (GObject a, MonadIO m) => - a -> UIManagerActionsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerActionsChanged obj cb after = liftIO $ do - cb' <- mkUIManagerActionsChangedCallback (uIManagerActionsChangedCallbackWrapper cb) - connectSignalFunPtr obj "actions-changed" cb' after - --- signal UIManager::add-widget -type UIManagerAddWidgetCallback = - Widget -> - IO () - -noUIManagerAddWidgetCallback :: Maybe UIManagerAddWidgetCallback -noUIManagerAddWidgetCallback = Nothing - -type UIManagerAddWidgetCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerAddWidgetCallback :: UIManagerAddWidgetCallbackC -> IO (FunPtr UIManagerAddWidgetCallbackC) - -uIManagerAddWidgetClosure :: UIManagerAddWidgetCallback -> IO Closure -uIManagerAddWidgetClosure cb = newCClosure =<< mkUIManagerAddWidgetCallback wrapped - where wrapped = uIManagerAddWidgetCallbackWrapper cb - -uIManagerAddWidgetCallbackWrapper :: - UIManagerAddWidgetCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -uIManagerAddWidgetCallbackWrapper _cb _ widget _ = do - widget' <- (newObject Widget) widget - _cb widget' - -onUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId -onUIManagerAddWidget obj cb = liftIO $ connectUIManagerAddWidget obj cb SignalConnectBefore -afterUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId -afterUIManagerAddWidget obj cb = connectUIManagerAddWidget obj cb SignalConnectAfter - -connectUIManagerAddWidget :: (GObject a, MonadIO m) => - a -> UIManagerAddWidgetCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerAddWidget obj cb after = liftIO $ do - cb' <- mkUIManagerAddWidgetCallback (uIManagerAddWidgetCallbackWrapper cb) - connectSignalFunPtr obj "add-widget" cb' after - --- signal UIManager::connect-proxy -type UIManagerConnectProxyCallback = - Action -> - Widget -> - IO () - -noUIManagerConnectProxyCallback :: Maybe UIManagerConnectProxyCallback -noUIManagerConnectProxyCallback = Nothing - -type UIManagerConnectProxyCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerConnectProxyCallback :: UIManagerConnectProxyCallbackC -> IO (FunPtr UIManagerConnectProxyCallbackC) - -uIManagerConnectProxyClosure :: UIManagerConnectProxyCallback -> IO Closure -uIManagerConnectProxyClosure cb = newCClosure =<< mkUIManagerConnectProxyCallback wrapped - where wrapped = uIManagerConnectProxyCallbackWrapper cb - -uIManagerConnectProxyCallbackWrapper :: - UIManagerConnectProxyCallback -> - Ptr () -> - Ptr Action -> - Ptr Widget -> - Ptr () -> - IO () -uIManagerConnectProxyCallbackWrapper _cb _ action proxy _ = do - action' <- (newObject Action) action - proxy' <- (newObject Widget) proxy - _cb action' proxy' - -onUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId -onUIManagerConnectProxy obj cb = liftIO $ connectUIManagerConnectProxy obj cb SignalConnectBefore -afterUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId -afterUIManagerConnectProxy obj cb = connectUIManagerConnectProxy obj cb SignalConnectAfter - -connectUIManagerConnectProxy :: (GObject a, MonadIO m) => - a -> UIManagerConnectProxyCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerConnectProxy obj cb after = liftIO $ do - cb' <- mkUIManagerConnectProxyCallback (uIManagerConnectProxyCallbackWrapper cb) - connectSignalFunPtr obj "connect-proxy" cb' after - --- signal UIManager::disconnect-proxy -type UIManagerDisconnectProxyCallback = - Action -> - Widget -> - IO () - -noUIManagerDisconnectProxyCallback :: Maybe UIManagerDisconnectProxyCallback -noUIManagerDisconnectProxyCallback = Nothing - -type UIManagerDisconnectProxyCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerDisconnectProxyCallback :: UIManagerDisconnectProxyCallbackC -> IO (FunPtr UIManagerDisconnectProxyCallbackC) - -uIManagerDisconnectProxyClosure :: UIManagerDisconnectProxyCallback -> IO Closure -uIManagerDisconnectProxyClosure cb = newCClosure =<< mkUIManagerDisconnectProxyCallback wrapped - where wrapped = uIManagerDisconnectProxyCallbackWrapper cb - -uIManagerDisconnectProxyCallbackWrapper :: - UIManagerDisconnectProxyCallback -> - Ptr () -> - Ptr Action -> - Ptr Widget -> - Ptr () -> - IO () -uIManagerDisconnectProxyCallbackWrapper _cb _ action proxy _ = do - action' <- (newObject Action) action - proxy' <- (newObject Widget) proxy - _cb action' proxy' - -onUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId -onUIManagerDisconnectProxy obj cb = liftIO $ connectUIManagerDisconnectProxy obj cb SignalConnectBefore -afterUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId -afterUIManagerDisconnectProxy obj cb = connectUIManagerDisconnectProxy obj cb SignalConnectAfter - -connectUIManagerDisconnectProxy :: (GObject a, MonadIO m) => - a -> UIManagerDisconnectProxyCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerDisconnectProxy obj cb after = liftIO $ do - cb' <- mkUIManagerDisconnectProxyCallback (uIManagerDisconnectProxyCallbackWrapper cb) - connectSignalFunPtr obj "disconnect-proxy" cb' after - --- signal UIManager::post-activate -type UIManagerPostActivateCallback = - Action -> - IO () - -noUIManagerPostActivateCallback :: Maybe UIManagerPostActivateCallback -noUIManagerPostActivateCallback = Nothing - -type UIManagerPostActivateCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerPostActivateCallback :: UIManagerPostActivateCallbackC -> IO (FunPtr UIManagerPostActivateCallbackC) - -uIManagerPostActivateClosure :: UIManagerPostActivateCallback -> IO Closure -uIManagerPostActivateClosure cb = newCClosure =<< mkUIManagerPostActivateCallback wrapped - where wrapped = uIManagerPostActivateCallbackWrapper cb - -uIManagerPostActivateCallbackWrapper :: - UIManagerPostActivateCallback -> - Ptr () -> - Ptr Action -> - Ptr () -> - IO () -uIManagerPostActivateCallbackWrapper _cb _ action _ = do - action' <- (newObject Action) action - _cb action' - -onUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId -onUIManagerPostActivate obj cb = liftIO $ connectUIManagerPostActivate obj cb SignalConnectBefore -afterUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId -afterUIManagerPostActivate obj cb = connectUIManagerPostActivate obj cb SignalConnectAfter - -connectUIManagerPostActivate :: (GObject a, MonadIO m) => - a -> UIManagerPostActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerPostActivate obj cb after = liftIO $ do - cb' <- mkUIManagerPostActivateCallback (uIManagerPostActivateCallbackWrapper cb) - connectSignalFunPtr obj "post-activate" cb' after - --- signal UIManager::pre-activate -type UIManagerPreActivateCallback = - Action -> - IO () - -noUIManagerPreActivateCallback :: Maybe UIManagerPreActivateCallback -noUIManagerPreActivateCallback = Nothing - -type UIManagerPreActivateCallbackC = - Ptr () -> -- object - Ptr Action -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUIManagerPreActivateCallback :: UIManagerPreActivateCallbackC -> IO (FunPtr UIManagerPreActivateCallbackC) - -uIManagerPreActivateClosure :: UIManagerPreActivateCallback -> IO Closure -uIManagerPreActivateClosure cb = newCClosure =<< mkUIManagerPreActivateCallback wrapped - where wrapped = uIManagerPreActivateCallbackWrapper cb - -uIManagerPreActivateCallbackWrapper :: - UIManagerPreActivateCallback -> - Ptr () -> - Ptr Action -> - Ptr () -> - IO () -uIManagerPreActivateCallbackWrapper _cb _ action _ = do - action' <- (newObject Action) action - _cb action' - -onUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId -onUIManagerPreActivate obj cb = liftIO $ connectUIManagerPreActivate obj cb SignalConnectBefore -afterUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId -afterUIManagerPreActivate obj cb = connectUIManagerPreActivate obj cb SignalConnectAfter - -connectUIManagerPreActivate :: (GObject a, MonadIO m) => - a -> UIManagerPreActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectUIManagerPreActivate obj cb after = liftIO $ do - cb' <- mkUIManagerPreActivateCallback (uIManagerPreActivateCallbackWrapper cb) - connectSignalFunPtr obj "pre-activate" cb' after - --- VVV Prop "add-tearoffs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getUIManagerAddTearoffs :: (MonadIO m, UIManagerK o) => o -> m Bool -getUIManagerAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs" - -setUIManagerAddTearoffs :: (MonadIO m, UIManagerK o) => o -> Bool -> m () -setUIManagerAddTearoffs obj val = liftIO $ setObjectPropertyBool obj "add-tearoffs" val - -constructUIManagerAddTearoffs :: Bool -> IO ([Char], GValue) -constructUIManagerAddTearoffs val = constructObjectPropertyBool "add-tearoffs" val - -data UIManagerAddTearoffsPropertyInfo -instance AttrInfo UIManagerAddTearoffsPropertyInfo where - type AttrAllowedOps UIManagerAddTearoffsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UIManagerAddTearoffsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint UIManagerAddTearoffsPropertyInfo = UIManagerK - type AttrGetType UIManagerAddTearoffsPropertyInfo = Bool - type AttrLabel UIManagerAddTearoffsPropertyInfo = "add-tearoffs" - attrGet _ = getUIManagerAddTearoffs - attrSet _ = setUIManagerAddTearoffs - attrConstruct _ = constructUIManagerAddTearoffs - attrClear _ = undefined - --- VVV Prop "ui" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m (Maybe T.Text) -getUIManagerUi obj = liftIO $ getObjectPropertyString obj "ui" - -data UIManagerUiPropertyInfo -instance AttrInfo UIManagerUiPropertyInfo where - type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) () - type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK - type AttrGetType UIManagerUiPropertyInfo = (Maybe T.Text) - type AttrLabel UIManagerUiPropertyInfo = "ui" - attrGet _ = getUIManagerUi - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList UIManager = UIManagerAttributeList -type UIManagerAttributeList = ('[ '("addTearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)]) - -uIManagerAddTearoffs :: AttrLabelProxy "addTearoffs" -uIManagerAddTearoffs = AttrLabelProxy - -uIManagerUi :: AttrLabelProxy "ui" -uIManagerUi = AttrLabelProxy - -data UIManagerActionsChangedSignalInfo -instance SignalInfo UIManagerActionsChangedSignalInfo where - type HaskellCallbackType UIManagerActionsChangedSignalInfo = UIManagerActionsChangedCallback - connectSignal _ = connectUIManagerActionsChanged - -data UIManagerAddWidgetSignalInfo -instance SignalInfo UIManagerAddWidgetSignalInfo where - type HaskellCallbackType UIManagerAddWidgetSignalInfo = UIManagerAddWidgetCallback - connectSignal _ = connectUIManagerAddWidget - -data UIManagerConnectProxySignalInfo -instance SignalInfo UIManagerConnectProxySignalInfo where - type HaskellCallbackType UIManagerConnectProxySignalInfo = UIManagerConnectProxyCallback - connectSignal _ = connectUIManagerConnectProxy - -data UIManagerDisconnectProxySignalInfo -instance SignalInfo UIManagerDisconnectProxySignalInfo where - type HaskellCallbackType UIManagerDisconnectProxySignalInfo = UIManagerDisconnectProxyCallback - connectSignal _ = connectUIManagerDisconnectProxy - -data UIManagerPostActivateSignalInfo -instance SignalInfo UIManagerPostActivateSignalInfo where - type HaskellCallbackType UIManagerPostActivateSignalInfo = UIManagerPostActivateCallback - connectSignal _ = connectUIManagerPostActivate - -data UIManagerPreActivateSignalInfo -instance SignalInfo UIManagerPreActivateSignalInfo where - type HaskellCallbackType UIManagerPreActivateSignalInfo = UIManagerPreActivateCallback - connectSignal _ = connectUIManagerPreActivate - -type instance SignalList UIManager = UIManagerSignalList -type UIManagerSignalList = ('[ '("actionsChanged", UIManagerActionsChangedSignalInfo), '("addWidget", UIManagerAddWidgetSignalInfo), '("connectProxy", UIManagerConnectProxySignalInfo), '("disconnectProxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("postActivate", UIManagerPostActivateSignalInfo), '("preActivate", UIManagerPreActivateSignalInfo)] :: [(Symbol, *)]) - --- method UIManager::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "UIManager") --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_new" gtk_ui_manager_new :: - IO (Ptr UIManager) - -{-# DEPRECATED uIManagerNew ["(Since version 3.10)"]#-} -uIManagerNew :: - (MonadIO m) => - m UIManager -- result -uIManagerNew = liftIO $ do - result <- gtk_ui_manager_new - checkUnexpectedReturnNULL "gtk_ui_manager_new" result - result' <- (wrapObject UIManager) result - return result' - --- method UIManager::add_ui --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, 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},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", 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 "gtk_ui_manager_add_ui" gtk_ui_manager_add_ui :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Word32 -> -- merge_id : TBasicType TUInt - CString -> -- path : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - CString -> -- action : TBasicType TUTF8 - CUInt -> -- type : TInterface "Gtk" "UIManagerItemType" - CInt -> -- top : TBasicType TBoolean - IO () - -{-# DEPRECATED uIManagerAddUi ["(Since version 3.10)"]#-} -uIManagerAddUi :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> Word32 -- mergeId - -> T.Text -- path - -> T.Text -- name - -> Maybe (T.Text) -- action - -> [UIManagerItemType] -- type_ - -> Bool -- top - -> m () -- result -uIManagerAddUi _obj mergeId path name action type_ top = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - name' <- textToCString name - maybeAction <- case action of - Nothing -> return nullPtr - Just jAction -> do - jAction' <- textToCString jAction - return jAction' - let type_' = gflagsToWord type_ - let top' = (fromIntegral . fromEnum) top - gtk_ui_manager_add_ui _obj' mergeId path' name' maybeAction type_' top' - touchManagedPtr _obj - freeMem path' - freeMem name' - freeMem maybeAction - return () - -data UIManagerAddUiMethodInfo -instance (signature ~ (Word32 -> T.Text -> T.Text -> Maybe (T.Text) -> [UIManagerItemType] -> Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiMethodInfo a signature where - overloadedMethod _ = uIManagerAddUi - --- method UIManager::add_ui_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_ui_manager_add_ui_from_file" gtk_ui_manager_add_ui_from_file :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO Word32 - -{-# DEPRECATED uIManagerAddUiFromFile ["(Since version 3.10)"]#-} -uIManagerAddUiFromFile :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> [Char] -- filename - -> m Word32 -- result -uIManagerAddUiFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - onException (do - result <- propagateGError $ gtk_ui_manager_add_ui_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return result - ) (do - freeMem filename' - ) - -data UIManagerAddUiFromFileMethodInfo -instance (signature ~ ([Char] -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromFileMethodInfo a signature where - overloadedMethod _ = uIManagerAddUiFromFile - --- method UIManager::add_ui_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_ui_manager_add_ui_from_resource" gtk_ui_manager_add_ui_from_resource :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CString -> -- resource_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Word32 - -{-# DEPRECATED uIManagerAddUiFromResource ["(Since version 3.10)"]#-} -uIManagerAddUiFromResource :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> T.Text -- resourcePath - -> m Word32 -- result -uIManagerAddUiFromResource _obj resourcePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resourcePath' <- textToCString resourcePath - onException (do - result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resourcePath' - touchManagedPtr _obj - freeMem resourcePath' - return result - ) (do - freeMem resourcePath' - ) - -data UIManagerAddUiFromResourceMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromResourceMethodInfo a signature where - overloadedMethod _ = uIManagerAddUiFromResource - --- method UIManager::add_ui_from_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "gtk_ui_manager_add_ui_from_string" gtk_ui_manager_add_ui_from_string :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CString -> -- buffer : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO Word32 - -{-# DEPRECATED uIManagerAddUiFromString ["(Since version 3.10)"]#-} -uIManagerAddUiFromString :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> T.Text -- buffer - -> Int64 -- length_ - -> m Word32 -- result -uIManagerAddUiFromString _obj buffer length_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- textToCString buffer - onException (do - result <- propagateGError $ gtk_ui_manager_add_ui_from_string _obj' buffer' length_ - touchManagedPtr _obj - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data UIManagerAddUiFromStringMethodInfo -instance (signature ~ (T.Text -> Int64 -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromStringMethodInfo a signature where - overloadedMethod _ = uIManagerAddUiFromString - --- method UIManager::ensure_update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", 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 "gtk_ui_manager_ensure_update" gtk_ui_manager_ensure_update :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO () - -{-# DEPRECATED uIManagerEnsureUpdate ["(Since version 3.10)"]#-} -uIManagerEnsureUpdate :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m () -- result -uIManagerEnsureUpdate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_ui_manager_ensure_update _obj' - touchManagedPtr _obj - return () - -data UIManagerEnsureUpdateMethodInfo -instance (signature ~ (m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerEnsureUpdateMethodInfo a signature where - overloadedMethod _ = uIManagerEnsureUpdate - --- method UIManager::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "AccelGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_get_accel_group" gtk_ui_manager_get_accel_group :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO (Ptr AccelGroup) - -{-# DEPRECATED uIManagerGetAccelGroup ["(Since version 3.10)"]#-} -uIManagerGetAccelGroup :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m AccelGroup -- result -uIManagerGetAccelGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_accel_group _obj' - checkUnexpectedReturnNULL "gtk_ui_manager_get_accel_group" result - result' <- (newObject AccelGroup) result - touchManagedPtr _obj - return result' - -data UIManagerGetAccelGroupMethodInfo -instance (signature ~ (m AccelGroup), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAccelGroupMethodInfo a signature where - overloadedMethod _ = uIManagerGetAccelGroup - --- method UIManager::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Action") --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_get_action" gtk_ui_manager_get_action :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CString -> -- path : TBasicType TUTF8 - IO (Ptr Action) - -{-# DEPRECATED uIManagerGetAction ["(Since version 3.10)"]#-} -uIManagerGetAction :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> T.Text -- path - -> m Action -- result -uIManagerGetAction _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - result <- gtk_ui_manager_get_action _obj' path' - checkUnexpectedReturnNULL "gtk_ui_manager_get_action" result - result' <- (newObject Action) result - touchManagedPtr _obj - freeMem path' - return result' - -data UIManagerGetActionMethodInfo -instance (signature ~ (T.Text -> m Action), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionMethodInfo a signature where - overloadedMethod _ = uIManagerGetAction - --- method UIManager::get_action_groups --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "ActionGroup")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_get_action_groups" gtk_ui_manager_get_action_groups :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO (Ptr (GList (Ptr ActionGroup))) - -{-# DEPRECATED uIManagerGetActionGroups ["(Since version 3.10)"]#-} -uIManagerGetActionGroups :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m [ActionGroup] -- result -uIManagerGetActionGroups _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_action_groups _obj' - result' <- unpackGList result - result'' <- mapM (newObject ActionGroup) result' - touchManagedPtr _obj - return result'' - -data UIManagerGetActionGroupsMethodInfo -instance (signature ~ (m [ActionGroup]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionGroupsMethodInfo a signature where - overloadedMethod _ = uIManagerGetActionGroups - --- method UIManager::get_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", 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 "gtk_ui_manager_get_add_tearoffs" gtk_ui_manager_get_add_tearoffs :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO CInt - -{-# DEPRECATED uIManagerGetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-} -uIManagerGetAddTearoffs :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m Bool -- result -uIManagerGetAddTearoffs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_add_tearoffs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UIManagerGetAddTearoffsMethodInfo -instance (signature ~ (m Bool), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAddTearoffsMethodInfo a signature where - overloadedMethod _ = uIManagerGetAddTearoffs - --- method UIManager::get_toplevels --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_get_toplevels" gtk_ui_manager_get_toplevels :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CUInt -> -- types : TInterface "Gtk" "UIManagerItemType" - IO (Ptr (GSList (Ptr Widget))) - -{-# DEPRECATED uIManagerGetToplevels ["(Since version 3.10)"]#-} -uIManagerGetToplevels :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> [UIManagerItemType] -- types - -> m [Widget] -- result -uIManagerGetToplevels _obj types = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let types' = gflagsToWord types - result <- gtk_ui_manager_get_toplevels _obj' types' - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data UIManagerGetToplevelsMethodInfo -instance (signature ~ ([UIManagerItemType] -> m [Widget]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetToplevelsMethodInfo a signature where - overloadedMethod _ = uIManagerGetToplevels - --- method UIManager::get_ui --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", 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 "gtk_ui_manager_get_ui" gtk_ui_manager_get_ui :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO CString - -{-# DEPRECATED uIManagerGetUi ["(Since version 3.10)"]#-} -uIManagerGetUi :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m T.Text -- result -uIManagerGetUi _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_ui _obj' - checkUnexpectedReturnNULL "gtk_ui_manager_get_ui" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data UIManagerGetUiMethodInfo -instance (signature ~ (m T.Text), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetUiMethodInfo a signature where - overloadedMethod _ = uIManagerGetUi - --- method UIManager::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_get_widget" gtk_ui_manager_get_widget :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CString -> -- path : TBasicType TUTF8 - IO (Ptr Widget) - -{-# DEPRECATED uIManagerGetWidget ["(Since version 3.10)"]#-} -uIManagerGetWidget :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> T.Text -- path - -> m Widget -- result -uIManagerGetWidget _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - result <- gtk_ui_manager_get_widget _obj' path' - checkUnexpectedReturnNULL "gtk_ui_manager_get_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem path' - return result' - -data UIManagerGetWidgetMethodInfo -instance (signature ~ (T.Text -> m Widget), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetWidgetMethodInfo a signature where - overloadedMethod _ = uIManagerGetWidget - --- method UIManager::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_ui_manager_insert_action_group" gtk_ui_manager_insert_action_group :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup" - Int32 -> -- pos : TBasicType TInt - IO () - -{-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-} -uIManagerInsertActionGroup :: - (MonadIO m, UIManagerK a, ActionGroupK b) => - a -- _obj - -> b -- actionGroup - -> Int32 -- pos - -> m () -- result -uIManagerInsertActionGroup _obj actionGroup pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let actionGroup' = unsafeManagedPtrCastPtr actionGroup - gtk_ui_manager_insert_action_group _obj' actionGroup' pos - touchManagedPtr _obj - touchManagedPtr actionGroup - return () - -data UIManagerInsertActionGroupMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerInsertActionGroupMethodInfo a signature where - overloadedMethod _ = uIManagerInsertActionGroup - --- method UIManager::new_merge_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_ui_manager_new_merge_id" gtk_ui_manager_new_merge_id :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - IO Word32 - -{-# DEPRECATED uIManagerNewMergeId ["(Since version 3.10)"]#-} -uIManagerNewMergeId :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> m Word32 -- result -uIManagerNewMergeId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_new_merge_id _obj' - touchManagedPtr _obj - return result - -data UIManagerNewMergeIdMethodInfo -instance (signature ~ (m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerNewMergeIdMethodInfo a signature where - overloadedMethod _ = uIManagerNewMergeId - --- method UIManager::remove_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", 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 "gtk_ui_manager_remove_action_group" gtk_ui_manager_remove_action_group :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup" - IO () - -{-# DEPRECATED uIManagerRemoveActionGroup ["(Since version 3.10)"]#-} -uIManagerRemoveActionGroup :: - (MonadIO m, UIManagerK a, ActionGroupK b) => - a -- _obj - -> b -- actionGroup - -> m () -- result -uIManagerRemoveActionGroup _obj actionGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let actionGroup' = unsafeManagedPtrCastPtr actionGroup - gtk_ui_manager_remove_action_group _obj' actionGroup' - touchManagedPtr _obj - touchManagedPtr actionGroup - return () - -data UIManagerRemoveActionGroupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerRemoveActionGroupMethodInfo a signature where - overloadedMethod _ = uIManagerRemoveActionGroup - --- method UIManager::remove_ui --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_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 "gtk_ui_manager_remove_ui" gtk_ui_manager_remove_ui :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Word32 -> -- merge_id : TBasicType TUInt - IO () - -{-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-} -uIManagerRemoveUi :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> Word32 -- mergeId - -> m () -- result -uIManagerRemoveUi _obj mergeId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_ui_manager_remove_ui _obj' mergeId - touchManagedPtr _obj - return () - -data UIManagerRemoveUiMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerRemoveUiMethodInfo a signature where - overloadedMethod _ = uIManagerRemoveUi - --- method UIManager::set_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", 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 "gtk_ui_manager_set_add_tearoffs" gtk_ui_manager_set_add_tearoffs :: - Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - CInt -> -- add_tearoffs : TBasicType TBoolean - IO () - -{-# DEPRECATED uIManagerSetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-} -uIManagerSetAddTearoffs :: - (MonadIO m, UIManagerK a) => - a -- _obj - -> Bool -- addTearoffs - -> m () -- result -uIManagerSetAddTearoffs _obj addTearoffs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let addTearoffs' = (fromIntegral . fromEnum) addTearoffs - gtk_ui_manager_set_add_tearoffs _obj' addTearoffs' - touchManagedPtr _obj - return () - -data UIManagerSetAddTearoffsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerSetAddTearoffsMethodInfo a signature where - overloadedMethod _ = uIManagerSetAddTearoffs - - diff --git a/GI/Gtk/Objects/UIManager.hs-boot b/GI/Gtk/Objects/UIManager.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/UIManager.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gtk.Objects.UIManager 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 UIManager = UIManager (ForeignPtr UIManager) -instance GObject UIManager where -class GObject o => UIManagerK o -instance (GObject o, IsDescendantOf UIManager o) => UIManagerK o -data UIManagerAddTearoffsPropertyInfo -data UIManagerUiPropertyInfo -data UIManagerActionsChangedSignalInfo -data UIManagerAddWidgetSignalInfo -data UIManagerConnectProxySignalInfo -data UIManagerDisconnectProxySignalInfo -data UIManagerPostActivateSignalInfo -data UIManagerPreActivateSignalInfo -data UIManagerAddUiMethodInfo -data UIManagerAddUiFromFileMethodInfo -data UIManagerAddUiFromResourceMethodInfo -data UIManagerAddUiFromStringMethodInfo -data UIManagerEnsureUpdateMethodInfo -data UIManagerGetAccelGroupMethodInfo -data UIManagerGetActionMethodInfo -data UIManagerGetActionGroupsMethodInfo -data UIManagerGetAddTearoffsMethodInfo -data UIManagerGetToplevelsMethodInfo -data UIManagerGetUiMethodInfo -data UIManagerGetWidgetMethodInfo -data UIManagerInsertActionGroupMethodInfo -data UIManagerNewMergeIdMethodInfo -data UIManagerRemoveActionGroupMethodInfo -data UIManagerRemoveUiMethodInfo -data UIManagerSetAddTearoffsMethodInfo diff --git a/GI/Gtk/Objects/VBox.hs b/GI/Gtk/Objects/VBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VBox.hs +++ /dev/null @@ -1,430 +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.Gtk.Objects.VBox - ( - --- * Exported types - VBox(..) , - VBoxK , - toVBox , - noVBox , - - - -- * Methods --- ** vBoxNew - vBoxNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VBox = VBox (ForeignPtr VBox) -foreign import ccall "gtk_vbox_get_type" - c_gtk_vbox_get_type :: IO GType - -type instance ParentTypes VBox = VBoxParentTypes -type VBoxParentTypes = '[Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vbox_get_type - - -class GObject o => VBoxK o -instance (GObject o, IsDescendantOf VBox o) => VBoxK o - -toVBox :: VBoxK o => o -> IO VBox -toVBox = unsafeCastTo VBox - -noVBox :: Maybe VBox -noVBox = Nothing - -type family ResolveVBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveVBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveVBoxMethod "add" o = ContainerAddMethodInfo - ResolveVBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveVBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveVBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveVBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveVBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveVBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveVBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVBoxMethod "event" o = WidgetEventMethodInfo - ResolveVBoxMethod "forall" o = ContainerForallMethodInfo - ResolveVBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveVBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVBoxMethod "hide" o = WidgetHideMethodInfo - ResolveVBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVBoxMethod "map" o = WidgetMapMethodInfo - ResolveVBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveVBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveVBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVBoxMethod "path" o = WidgetPathMethodInfo - ResolveVBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveVBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveVBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveVBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveVBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveVBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveVBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveVBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVBoxMethod "show" o = WidgetShowMethodInfo - ResolveVBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveVBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveVBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveVBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveVBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveVBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveVBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveVBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveVBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveVBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveVBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveVBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveVBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveVBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveVBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveVBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveVBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveVBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveVBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveVBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveVBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveVBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveVBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveVBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveVBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveVBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveVBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveVBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVBoxMethod t VBox, MethodInfo info VBox p) => IsLabelProxy t (VBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVBoxMethod t VBox, MethodInfo info VBox p) => IsLabel t (VBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VBox = VBoxAttributeList -type VBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VBox = VBoxSignalList -type VBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VBox::new --- method type : Constructor --- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vbox_new" gtk_vbox_new :: - CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt - IO (Ptr VBox) - -{-# DEPRECATED vBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_VERTICAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} -vBoxNew :: - (MonadIO m) => - Bool -- homogeneous - -> Int32 -- spacing - -> m VBox -- result -vBoxNew homogeneous spacing = liftIO $ do - let homogeneous' = (fromIntegral . fromEnum) homogeneous - result <- gtk_vbox_new homogeneous' spacing - checkUnexpectedReturnNULL "gtk_vbox_new" result - result' <- (newObject VBox) result - return result' - - diff --git a/GI/Gtk/Objects/VBox.hs-boot b/GI/Gtk/Objects/VBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VBox.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VBox 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 VBox = VBox (ForeignPtr VBox) -instance GObject VBox where -class GObject o => VBoxK o -instance (GObject o, IsDescendantOf VBox o) => VBoxK o diff --git a/GI/Gtk/Objects/VButtonBox.hs b/GI/Gtk/Objects/VButtonBox.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VButtonBox.hs +++ /dev/null @@ -1,431 +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.Gtk.Objects.VButtonBox - ( - --- * Exported types - VButtonBox(..) , - VButtonBoxK , - toVButtonBox , - noVButtonBox , - - - -- * Methods --- ** vButtonBoxNew - vButtonBoxNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VButtonBox = VButtonBox (ForeignPtr VButtonBox) -foreign import ccall "gtk_vbutton_box_get_type" - c_gtk_vbutton_box_get_type :: IO GType - -type instance ParentTypes VButtonBox = VButtonBoxParentTypes -type VButtonBoxParentTypes = '[ButtonBox, Box, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VButtonBox where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vbutton_box_get_type - - -class GObject o => VButtonBoxK o -instance (GObject o, IsDescendantOf VButtonBox o) => VButtonBoxK o - -toVButtonBox :: VButtonBoxK o => o -> IO VButtonBox -toVButtonBox = unsafeCastTo VButtonBox - -noVButtonBox :: Maybe VButtonBox -noVButtonBox = Nothing - -type family ResolveVButtonBoxMethod (t :: Symbol) (o :: *) :: * where - ResolveVButtonBoxMethod "activate" o = WidgetActivateMethodInfo - ResolveVButtonBoxMethod "add" o = ContainerAddMethodInfo - ResolveVButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveVButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveVButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveVButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveVButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo - ResolveVButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVButtonBoxMethod "draw" o = WidgetDrawMethodInfo - ResolveVButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVButtonBoxMethod "event" o = WidgetEventMethodInfo - ResolveVButtonBoxMethod "forall" o = ContainerForallMethodInfo - ResolveVButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVButtonBoxMethod "foreach" o = ContainerForeachMethodInfo - ResolveVButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVButtonBoxMethod "hide" o = WidgetHideMethodInfo - ResolveVButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVButtonBoxMethod "map" o = WidgetMapMethodInfo - ResolveVButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo - ResolveVButtonBoxMethod "packStart" o = BoxPackStartMethodInfo - ResolveVButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVButtonBoxMethod "path" o = WidgetPathMethodInfo - ResolveVButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveVButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo - ResolveVButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVButtonBoxMethod "realize" o = WidgetRealizeMethodInfo - ResolveVButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVButtonBoxMethod "remove" o = ContainerRemoveMethodInfo - ResolveVButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo - ResolveVButtonBoxMethod "reparent" o = WidgetReparentMethodInfo - ResolveVButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveVButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVButtonBoxMethod "show" o = WidgetShowMethodInfo - ResolveVButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveVButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo - ResolveVButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveVButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo - ResolveVButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo - ResolveVButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo - ResolveVButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveVButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveVButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveVButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveVButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveVButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo - ResolveVButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo - ResolveVButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveVButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveVButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo - ResolveVButtonBoxMethod "getState" o = WidgetGetStateMethodInfo - ResolveVButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo - ResolveVButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveVButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo - ResolveVButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo - ResolveVButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo - ResolveVButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo - ResolveVButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveVButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveVButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveVButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveVButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo - ResolveVButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo - ResolveVButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveVButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveVButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo - ResolveVButtonBoxMethod "setState" o = WidgetSetStateMethodInfo - ResolveVButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVButtonBoxMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVButtonBoxMethod t VButtonBox, MethodInfo info VButtonBox p) => IsLabelProxy t (VButtonBox -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVButtonBoxMethod t VButtonBox, MethodInfo info VButtonBox p) => IsLabel t (VButtonBox -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VButtonBox = VButtonBoxAttributeList -type VButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VButtonBox = VButtonBoxSignalList -type VButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VButtonBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VButtonBox") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vbutton_box_new" gtk_vbutton_box_new :: - IO (Ptr VButtonBox) - -{-# DEPRECATED vButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vButtonBoxNew :: - (MonadIO m) => - m VButtonBox -- result -vButtonBoxNew = liftIO $ do - result <- gtk_vbutton_box_new - checkUnexpectedReturnNULL "gtk_vbutton_box_new" result - result' <- (newObject VButtonBox) result - return result' - - diff --git a/GI/Gtk/Objects/VButtonBox.hs-boot b/GI/Gtk/Objects/VButtonBox.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VButtonBox.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VButtonBox 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 VButtonBox = VButtonBox (ForeignPtr VButtonBox) -instance GObject VButtonBox where -class GObject o => VButtonBoxK o -instance (GObject o, IsDescendantOf VButtonBox o) => VButtonBoxK o diff --git a/GI/Gtk/Objects/VPaned.hs b/GI/Gtk/Objects/VPaned.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VPaned.hs +++ /dev/null @@ -1,423 +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.Gtk.Objects.VPaned - ( - --- * Exported types - VPaned(..) , - VPanedK , - toVPaned , - noVPaned , - - - -- * Methods --- ** vPanedNew - vPanedNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VPaned = VPaned (ForeignPtr VPaned) -foreign import ccall "gtk_vpaned_get_type" - c_gtk_vpaned_get_type :: IO GType - -type instance ParentTypes VPaned = VPanedParentTypes -type VPanedParentTypes = '[Paned, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VPaned where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vpaned_get_type - - -class GObject o => VPanedK o -instance (GObject o, IsDescendantOf VPaned o) => VPanedK o - -toVPaned :: VPanedK o => o -> IO VPaned -toVPaned = unsafeCastTo VPaned - -noVPaned :: Maybe VPaned -noVPaned = Nothing - -type family ResolveVPanedMethod (t :: Symbol) (o :: *) :: * where - ResolveVPanedMethod "activate" o = WidgetActivateMethodInfo - ResolveVPanedMethod "add" o = ContainerAddMethodInfo - ResolveVPanedMethod "add1" o = PanedAdd1MethodInfo - ResolveVPanedMethod "add2" o = PanedAdd2MethodInfo - ResolveVPanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVPanedMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVPanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVPanedMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVPanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVPanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVPanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVPanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVPanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVPanedMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveVPanedMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVPanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveVPanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveVPanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveVPanedMethod "childType" o = ContainerChildTypeMethodInfo - ResolveVPanedMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVPanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVPanedMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVPanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVPanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVPanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVPanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVPanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVPanedMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVPanedMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVPanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVPanedMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVPanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVPanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVPanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVPanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVPanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVPanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVPanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVPanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVPanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVPanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVPanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVPanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVPanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVPanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVPanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVPanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVPanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVPanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVPanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVPanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVPanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVPanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVPanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVPanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVPanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVPanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVPanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVPanedMethod "draw" o = WidgetDrawMethodInfo - ResolveVPanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVPanedMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVPanedMethod "event" o = WidgetEventMethodInfo - ResolveVPanedMethod "forall" o = ContainerForallMethodInfo - ResolveVPanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVPanedMethod "foreach" o = ContainerForeachMethodInfo - ResolveVPanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVPanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVPanedMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVPanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVPanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVPanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVPanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVPanedMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVPanedMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVPanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVPanedMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVPanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVPanedMethod "hide" o = WidgetHideMethodInfo - ResolveVPanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVPanedMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVPanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVPanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVPanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVPanedMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVPanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVPanedMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVPanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVPanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVPanedMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVPanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVPanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVPanedMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVPanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVPanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVPanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVPanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVPanedMethod "map" o = WidgetMapMethodInfo - ResolveVPanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVPanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVPanedMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVPanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVPanedMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVPanedMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVPanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVPanedMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVPanedMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVPanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVPanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVPanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVPanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVPanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVPanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVPanedMethod "pack1" o = PanedPack1MethodInfo - ResolveVPanedMethod "pack2" o = PanedPack2MethodInfo - ResolveVPanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVPanedMethod "path" o = WidgetPathMethodInfo - ResolveVPanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveVPanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVPanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVPanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVPanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVPanedMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVPanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVPanedMethod "realize" o = WidgetRealizeMethodInfo - ResolveVPanedMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVPanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVPanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVPanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVPanedMethod "remove" o = ContainerRemoveMethodInfo - ResolveVPanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVPanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVPanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVPanedMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVPanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVPanedMethod "reparent" o = WidgetReparentMethodInfo - ResolveVPanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVPanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVPanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVPanedMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVPanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveVPanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVPanedMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVPanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVPanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVPanedMethod "show" o = WidgetShowMethodInfo - ResolveVPanedMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVPanedMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVPanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVPanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVPanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVPanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVPanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVPanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVPanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVPanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVPanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVPanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVPanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVPanedMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVPanedMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVPanedMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVPanedMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVPanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVPanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveVPanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVPanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVPanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVPanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVPanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVPanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVPanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVPanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVPanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVPanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVPanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveVPanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVPanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVPanedMethod "getChild1" o = PanedGetChild1MethodInfo - ResolveVPanedMethod "getChild2" o = PanedGetChild2MethodInfo - ResolveVPanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVPanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVPanedMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveVPanedMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVPanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVPanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVPanedMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVPanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVPanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVPanedMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVPanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVPanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVPanedMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVPanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveVPanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveVPanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveVPanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveVPanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVPanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVPanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVPanedMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVPanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo - ResolveVPanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVPanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVPanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVPanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVPanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVPanedMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVPanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVPanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVPanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVPanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVPanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVPanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVPanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVPanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVPanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVPanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVPanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVPanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVPanedMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVPanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVPanedMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVPanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveVPanedMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVPanedMethod "getPosition" o = PanedGetPositionMethodInfo - ResolveVPanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVPanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVPanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVPanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVPanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVPanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVPanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVPanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVPanedMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVPanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVPanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVPanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVPanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveVPanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVPanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVPanedMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVPanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVPanedMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVPanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVPanedMethod "getState" o = WidgetGetStateMethodInfo - ResolveVPanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVPanedMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVPanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVPanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVPanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVPanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVPanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVPanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVPanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVPanedMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVPanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVPanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVPanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVPanedMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVPanedMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVPanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo - ResolveVPanedMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVPanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVPanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVPanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVPanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveVPanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVPanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVPanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVPanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVPanedMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVPanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVPanedMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVPanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVPanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVPanedMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVPanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVPanedMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVPanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveVPanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveVPanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveVPanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveVPanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVPanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVPanedMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVPanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVPanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVPanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVPanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVPanedMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVPanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVPanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVPanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVPanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVPanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVPanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVPanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVPanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVPanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVPanedMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVPanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVPanedMethod "setPosition" o = PanedSetPositionMethodInfo - ResolveVPanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVPanedMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVPanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveVPanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVPanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVPanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveVPanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVPanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVPanedMethod "setState" o = WidgetSetStateMethodInfo - ResolveVPanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVPanedMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVPanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVPanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVPanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVPanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVPanedMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVPanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVPanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVPanedMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVPanedMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVPanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo - ResolveVPanedMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVPanedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVPanedMethod t VPaned, MethodInfo info VPaned p) => IsLabelProxy t (VPaned -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVPanedMethod t VPaned, MethodInfo info VPaned p) => IsLabel t (VPaned -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VPaned = VPanedAttributeList -type VPanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VPaned = VPanedSignalList -type VPanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VPaned::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VPaned") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vpaned_new" gtk_vpaned_new :: - IO (Ptr VPaned) - -{-# DEPRECATED vPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vPanedNew :: - (MonadIO m) => - m VPaned -- result -vPanedNew = liftIO $ do - result <- gtk_vpaned_new - checkUnexpectedReturnNULL "gtk_vpaned_new" result - result' <- (newObject VPaned) result - return result' - - diff --git a/GI/Gtk/Objects/VPaned.hs-boot b/GI/Gtk/Objects/VPaned.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VPaned.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VPaned 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 VPaned = VPaned (ForeignPtr VPaned) -instance GObject VPaned where -class GObject o => VPanedK o -instance (GObject o, IsDescendantOf VPaned o) => VPanedK o diff --git a/GI/Gtk/Objects/VScale.hs b/GI/Gtk/Objects/VScale.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VScale.hs +++ /dev/null @@ -1,464 +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.Gtk.Objects.VScale - ( - --- * Exported types - VScale(..) , - VScaleK , - toVScale , - noVScale , - - - -- * Methods --- ** vScaleNew - vScaleNew , - - --- ** vScaleNewWithRange - vScaleNewWithRange , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VScale = VScale (ForeignPtr VScale) -foreign import ccall "gtk_vscale_get_type" - c_gtk_vscale_get_type :: IO GType - -type instance ParentTypes VScale = VScaleParentTypes -type VScaleParentTypes = '[Scale, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VScale where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vscale_get_type - - -class GObject o => VScaleK o -instance (GObject o, IsDescendantOf VScale o) => VScaleK o - -toVScale :: VScaleK o => o -> IO VScale -toVScale = unsafeCastTo VScale - -noVScale :: Maybe VScale -noVScale = Nothing - -type family ResolveVScaleMethod (t :: Symbol) (o :: *) :: * where - ResolveVScaleMethod "activate" o = WidgetActivateMethodInfo - ResolveVScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVScaleMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVScaleMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVScaleMethod "addMark" o = ScaleAddMarkMethodInfo - ResolveVScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVScaleMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveVScaleMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo - ResolveVScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVScaleMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVScaleMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVScaleMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVScaleMethod "draw" o = WidgetDrawMethodInfo - ResolveVScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVScaleMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVScaleMethod "event" o = WidgetEventMethodInfo - ResolveVScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVScaleMethod "hide" o = WidgetHideMethodInfo - ResolveVScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVScaleMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVScaleMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVScaleMethod "map" o = WidgetMapMethodInfo - ResolveVScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVScaleMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVScaleMethod "path" o = WidgetPathMethodInfo - ResolveVScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVScaleMethod "realize" o = WidgetRealizeMethodInfo - ResolveVScaleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVScaleMethod "reparent" o = WidgetReparentMethodInfo - ResolveVScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVScaleMethod "show" o = WidgetShowMethodInfo - ResolveVScaleMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVScaleMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVScaleMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVScaleMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveVScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVScaleMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo - ResolveVScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo - ResolveVScaleMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveVScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveVScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVScaleMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo - ResolveVScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVScaleMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveVScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo - ResolveVScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo - ResolveVScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveVScaleMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveVScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVScaleMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVScaleMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVScaleMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveVScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveVScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveVScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVScaleMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveVScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveVScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveVScaleMethod "getState" o = WidgetGetStateMethodInfo - ResolveVScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVScaleMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveVScaleMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVScaleMethod "getValue" o = RangeGetValueMethodInfo - ResolveVScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo - ResolveVScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVScaleMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVScaleMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveVScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVScaleMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo - ResolveVScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo - ResolveVScaleMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveVScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveVScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVScaleMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo - ResolveVScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveVScaleMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveVScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveVScaleMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveVScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVScaleMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVScaleMethod "setRange" o = RangeSetRangeMethodInfo - ResolveVScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveVScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveVScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveVScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveVScaleMethod "setState" o = WidgetSetStateMethodInfo - ResolveVScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVScaleMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveVScaleMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVScaleMethod "setValue" o = RangeSetValueMethodInfo - ResolveVScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo - ResolveVScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVScaleMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVScaleMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVScaleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVScaleMethod t VScale, MethodInfo info VScale p) => IsLabelProxy t (VScale -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVScaleMethod t VScale, MethodInfo info VScale p) => IsLabel t (VScale -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VScale = VScaleAttributeList -type VScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VScale = VScaleSignalList -type VScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VScale::new --- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VScale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vscale_new" gtk_vscale_new :: - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr VScale) - -{-# DEPRECATED vScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vScaleNew :: - (MonadIO m, AdjustmentK a) => - a -- adjustment - -> m VScale -- result -vScaleNew adjustment = liftIO $ do - let adjustment' = unsafeManagedPtrCastPtr adjustment - result <- gtk_vscale_new adjustment' - checkUnexpectedReturnNULL "gtk_vscale_new" result - result' <- (newObject VScale) result - touchManagedPtr adjustment - return result' - --- method VScale::new_with_range --- method type : Constructor --- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VScale") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vscale_new_with_range" gtk_vscale_new_with_range :: - CDouble -> -- min : TBasicType TDouble - CDouble -> -- max : TBasicType TDouble - CDouble -> -- step : TBasicType TDouble - IO (Ptr VScale) - -{-# DEPRECATED vScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vScaleNewWithRange :: - (MonadIO m) => - Double -- min - -> Double -- max - -> Double -- step - -> m VScale -- result -vScaleNewWithRange min max step = liftIO $ do - let min' = realToFrac min - let max' = realToFrac max - let step' = realToFrac step - result <- gtk_vscale_new_with_range min' max' step' - checkUnexpectedReturnNULL "gtk_vscale_new_with_range" result - result' <- (newObject VScale) result - return result' - - diff --git a/GI/Gtk/Objects/VScale.hs-boot b/GI/Gtk/Objects/VScale.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VScale.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VScale 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 VScale = VScale (ForeignPtr VScale) -instance GObject VScale where -class GObject o => VScaleK o -instance (GObject o, IsDescendantOf VScale o) => VScaleK o diff --git a/GI/Gtk/Objects/VScrollbar.hs b/GI/Gtk/Objects/VScrollbar.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VScrollbar.hs +++ /dev/null @@ -1,422 +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.Gtk.Objects.VScrollbar - ( - --- * Exported types - VScrollbar(..) , - VScrollbarK , - toVScrollbar , - noVScrollbar , - - - -- * Methods --- ** vScrollbarNew - vScrollbarNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VScrollbar = VScrollbar (ForeignPtr VScrollbar) -foreign import ccall "gtk_vscrollbar_get_type" - c_gtk_vscrollbar_get_type :: IO GType - -type instance ParentTypes VScrollbar = VScrollbarParentTypes -type VScrollbarParentTypes = '[Scrollbar, Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VScrollbar where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vscrollbar_get_type - - -class GObject o => VScrollbarK o -instance (GObject o, IsDescendantOf VScrollbar o) => VScrollbarK o - -toVScrollbar :: VScrollbarK o => o -> IO VScrollbar -toVScrollbar = unsafeCastTo VScrollbar - -noVScrollbar :: Maybe VScrollbar -noVScrollbar = Nothing - -type family ResolveVScrollbarMethod (t :: Symbol) (o :: *) :: * where - ResolveVScrollbarMethod "activate" o = WidgetActivateMethodInfo - ResolveVScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVScrollbarMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveVScrollbarMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVScrollbarMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVScrollbarMethod "draw" o = WidgetDrawMethodInfo - ResolveVScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVScrollbarMethod "event" o = WidgetEventMethodInfo - ResolveVScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVScrollbarMethod "hide" o = WidgetHideMethodInfo - ResolveVScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVScrollbarMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVScrollbarMethod "map" o = WidgetMapMethodInfo - ResolveVScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVScrollbarMethod "path" o = WidgetPathMethodInfo - ResolveVScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVScrollbarMethod "realize" o = WidgetRealizeMethodInfo - ResolveVScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVScrollbarMethod "reparent" o = WidgetReparentMethodInfo - ResolveVScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVScrollbarMethod "show" o = WidgetShowMethodInfo - ResolveVScrollbarMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVScrollbarMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVScrollbarMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVScrollbarMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo - ResolveVScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVScrollbarMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo - ResolveVScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo - ResolveVScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo - ResolveVScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo - ResolveVScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo - ResolveVScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVScrollbarMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVScrollbarMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo - ResolveVScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo - ResolveVScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo - ResolveVScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo - ResolveVScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo - ResolveVScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo - ResolveVScrollbarMethod "getState" o = WidgetGetStateMethodInfo - ResolveVScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo - ResolveVScrollbarMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVScrollbarMethod "getValue" o = RangeGetValueMethodInfo - ResolveVScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo - ResolveVScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVScrollbarMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo - ResolveVScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo - ResolveVScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo - ResolveVScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo - ResolveVScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo - ResolveVScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo - ResolveVScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVScrollbarMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVScrollbarMethod "setRange" o = RangeSetRangeMethodInfo - ResolveVScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo - ResolveVScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo - ResolveVScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo - ResolveVScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo - ResolveVScrollbarMethod "setState" o = WidgetSetStateMethodInfo - ResolveVScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo - ResolveVScrollbarMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVScrollbarMethod "setValue" o = RangeSetValueMethodInfo - ResolveVScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVScrollbarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVScrollbarMethod t VScrollbar, MethodInfo info VScrollbar p) => IsLabelProxy t (VScrollbar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVScrollbarMethod t VScrollbar, MethodInfo info VScrollbar p) => IsLabel t (VScrollbar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VScrollbar = VScrollbarAttributeList -type VScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VScrollbar = VScrollbarSignalList -type VScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VScrollbar::new --- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VScrollbar") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vscrollbar_new" gtk_vscrollbar_new :: - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO (Ptr VScrollbar) - -{-# DEPRECATED vScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vScrollbarNew :: - (MonadIO m, AdjustmentK a) => - Maybe (a) -- adjustment - -> m VScrollbar -- result -vScrollbarNew adjustment = liftIO $ do - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - result <- gtk_vscrollbar_new maybeAdjustment - checkUnexpectedReturnNULL "gtk_vscrollbar_new" result - result' <- (newObject VScrollbar) result - whenJust adjustment touchManagedPtr - return result' - - diff --git a/GI/Gtk/Objects/VScrollbar.hs-boot b/GI/Gtk/Objects/VScrollbar.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VScrollbar.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VScrollbar 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 VScrollbar = VScrollbar (ForeignPtr VScrollbar) -instance GObject VScrollbar where -class GObject o => VScrollbarK o -instance (GObject o, IsDescendantOf VScrollbar o) => VScrollbarK o diff --git a/GI/Gtk/Objects/VSeparator.hs b/GI/Gtk/Objects/VSeparator.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VSeparator.hs +++ /dev/null @@ -1,386 +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.Gtk.Objects.VSeparator - ( - --- * Exported types - VSeparator(..) , - VSeparatorK , - toVSeparator , - noVSeparator , - - - -- * Methods --- ** vSeparatorNew - vSeparatorNew , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VSeparator = VSeparator (ForeignPtr VSeparator) -foreign import ccall "gtk_vseparator_get_type" - c_gtk_vseparator_get_type :: IO GType - -type instance ParentTypes VSeparator = VSeparatorParentTypes -type VSeparatorParentTypes = '[Separator, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable] - -instance GObject VSeparator where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_vseparator_get_type - - -class GObject o => VSeparatorK o -instance (GObject o, IsDescendantOf VSeparator o) => VSeparatorK o - -toVSeparator :: VSeparatorK o => o -> IO VSeparator -toVSeparator = unsafeCastTo VSeparator - -noVSeparator :: Maybe VSeparator -noVSeparator = Nothing - -type family ResolveVSeparatorMethod (t :: Symbol) (o :: *) :: * where - ResolveVSeparatorMethod "activate" o = WidgetActivateMethodInfo - ResolveVSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVSeparatorMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveVSeparatorMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVSeparatorMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVSeparatorMethod "draw" o = WidgetDrawMethodInfo - ResolveVSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVSeparatorMethod "event" o = WidgetEventMethodInfo - ResolveVSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVSeparatorMethod "hide" o = WidgetHideMethodInfo - ResolveVSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVSeparatorMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVSeparatorMethod "map" o = WidgetMapMethodInfo - ResolveVSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVSeparatorMethod "path" o = WidgetPathMethodInfo - ResolveVSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVSeparatorMethod "realize" o = WidgetRealizeMethodInfo - ResolveVSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVSeparatorMethod "reparent" o = WidgetReparentMethodInfo - ResolveVSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVSeparatorMethod "show" o = WidgetShowMethodInfo - ResolveVSeparatorMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVSeparatorMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVSeparatorMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVSeparatorMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVSeparatorMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVSeparatorMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVSeparatorMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVSeparatorMethod "getState" o = WidgetGetStateMethodInfo - ResolveVSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVSeparatorMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVSeparatorMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVSeparatorMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVSeparatorMethod "setState" o = WidgetSetStateMethodInfo - ResolveVSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVSeparatorMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVSeparatorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVSeparatorMethod t VSeparator, MethodInfo info VSeparator p) => IsLabelProxy t (VSeparator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVSeparatorMethod t VSeparator, MethodInfo info VSeparator p) => IsLabel t (VSeparator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList VSeparator = VSeparatorAttributeList -type VSeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VSeparator = VSeparatorSignalList -type VSeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VSeparator::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VSeparator") --- throws : False --- Skip return : False - -foreign import ccall "gtk_vseparator_new" gtk_vseparator_new :: - IO (Ptr VSeparator) - -{-# DEPRECATED vSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} -vSeparatorNew :: - (MonadIO m) => - m VSeparator -- result -vSeparatorNew = liftIO $ do - result <- gtk_vseparator_new - checkUnexpectedReturnNULL "gtk_vseparator_new" result - result' <- (newObject VSeparator) result - return result' - - diff --git a/GI/Gtk/Objects/VSeparator.hs-boot b/GI/Gtk/Objects/VSeparator.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VSeparator.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.VSeparator 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 VSeparator = VSeparator (ForeignPtr VSeparator) -instance GObject VSeparator where -class GObject o => VSeparatorK o -instance (GObject o, IsDescendantOf VSeparator o) => VSeparatorK o diff --git a/GI/Gtk/Objects/Viewport.hs b/GI/Gtk/Objects/Viewport.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Viewport.hs +++ /dev/null @@ -1,761 +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.Gtk.Objects.Viewport - ( - --- * Exported types - Viewport(..) , - ViewportK , - toViewport , - noViewport , - - - -- * Methods --- ** viewportGetBinWindow - ViewportGetBinWindowMethodInfo , - viewportGetBinWindow , - - --- ** viewportGetHadjustment - ViewportGetHadjustmentMethodInfo , - viewportGetHadjustment , - - --- ** viewportGetShadowType - ViewportGetShadowTypeMethodInfo , - viewportGetShadowType , - - --- ** viewportGetVadjustment - ViewportGetVadjustmentMethodInfo , - viewportGetVadjustment , - - --- ** viewportGetViewWindow - ViewportGetViewWindowMethodInfo , - viewportGetViewWindow , - - --- ** viewportNew - viewportNew , - - --- ** viewportSetHadjustment - ViewportSetHadjustmentMethodInfo , - viewportSetHadjustment , - - --- ** viewportSetShadowType - ViewportSetShadowTypeMethodInfo , - viewportSetShadowType , - - --- ** viewportSetVadjustment - ViewportSetVadjustmentMethodInfo , - viewportSetVadjustment , - - - - - -- * Properties --- ** ShadowType - ViewportShadowTypePropertyInfo , - constructViewportShadowType , - getViewportShadowType , - setViewportShadowType , - viewportShadowType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Viewport = Viewport (ForeignPtr Viewport) -foreign import ccall "gtk_viewport_get_type" - c_gtk_viewport_get_type :: IO GType - -type instance ParentTypes Viewport = ViewportParentTypes -type ViewportParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject Viewport where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_viewport_get_type - - -class GObject o => ViewportK o -instance (GObject o, IsDescendantOf Viewport o) => ViewportK o - -toViewport :: ViewportK o => o -> IO Viewport -toViewport = unsafeCastTo Viewport - -noViewport :: Maybe Viewport -noViewport = Nothing - -type family ResolveViewportMethod (t :: Symbol) (o :: *) :: * where - ResolveViewportMethod "activate" o = WidgetActivateMethodInfo - ResolveViewportMethod "add" o = ContainerAddMethodInfo - ResolveViewportMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveViewportMethod "addChild" o = BuildableAddChildMethodInfo - ResolveViewportMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveViewportMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveViewportMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveViewportMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveViewportMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveViewportMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveViewportMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveViewportMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveViewportMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveViewportMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveViewportMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveViewportMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveViewportMethod "childType" o = ContainerChildTypeMethodInfo - ResolveViewportMethod "classPath" o = WidgetClassPathMethodInfo - ResolveViewportMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveViewportMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveViewportMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveViewportMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveViewportMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveViewportMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveViewportMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveViewportMethod "destroy" o = WidgetDestroyMethodInfo - ResolveViewportMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveViewportMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveViewportMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveViewportMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveViewportMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveViewportMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveViewportMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveViewportMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveViewportMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveViewportMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveViewportMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveViewportMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveViewportMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveViewportMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveViewportMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveViewportMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveViewportMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveViewportMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveViewportMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveViewportMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveViewportMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveViewportMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveViewportMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveViewportMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveViewportMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveViewportMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveViewportMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveViewportMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveViewportMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveViewportMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveViewportMethod "draw" o = WidgetDrawMethodInfo - ResolveViewportMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveViewportMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveViewportMethod "event" o = WidgetEventMethodInfo - ResolveViewportMethod "forall" o = ContainerForallMethodInfo - ResolveViewportMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveViewportMethod "foreach" o = ContainerForeachMethodInfo - ResolveViewportMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveViewportMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveViewportMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveViewportMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveViewportMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveViewportMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveViewportMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveViewportMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveViewportMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveViewportMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveViewportMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveViewportMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveViewportMethod "hide" o = WidgetHideMethodInfo - ResolveViewportMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveViewportMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveViewportMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveViewportMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveViewportMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveViewportMethod "intersect" o = WidgetIntersectMethodInfo - ResolveViewportMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveViewportMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveViewportMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveViewportMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveViewportMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveViewportMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveViewportMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveViewportMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveViewportMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveViewportMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveViewportMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveViewportMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveViewportMethod "map" o = WidgetMapMethodInfo - ResolveViewportMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveViewportMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveViewportMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveViewportMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveViewportMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveViewportMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveViewportMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveViewportMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveViewportMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveViewportMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveViewportMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveViewportMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveViewportMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveViewportMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveViewportMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveViewportMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveViewportMethod "path" o = WidgetPathMethodInfo - ResolveViewportMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveViewportMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveViewportMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveViewportMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveViewportMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveViewportMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveViewportMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveViewportMethod "realize" o = WidgetRealizeMethodInfo - ResolveViewportMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveViewportMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveViewportMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveViewportMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveViewportMethod "remove" o = ContainerRemoveMethodInfo - ResolveViewportMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveViewportMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveViewportMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveViewportMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveViewportMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveViewportMethod "reparent" o = WidgetReparentMethodInfo - ResolveViewportMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveViewportMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveViewportMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveViewportMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveViewportMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveViewportMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveViewportMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveViewportMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveViewportMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveViewportMethod "show" o = WidgetShowMethodInfo - ResolveViewportMethod "showAll" o = WidgetShowAllMethodInfo - ResolveViewportMethod "showNow" o = WidgetShowNowMethodInfo - ResolveViewportMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveViewportMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveViewportMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveViewportMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveViewportMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveViewportMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveViewportMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveViewportMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveViewportMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveViewportMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveViewportMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveViewportMethod "unmap" o = WidgetUnmapMethodInfo - ResolveViewportMethod "unparent" o = WidgetUnparentMethodInfo - ResolveViewportMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveViewportMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveViewportMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveViewportMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveViewportMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveViewportMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveViewportMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveViewportMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveViewportMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveViewportMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveViewportMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveViewportMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveViewportMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveViewportMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveViewportMethod "getBinWindow" o = ViewportGetBinWindowMethodInfo - ResolveViewportMethod "getBorder" o = ScrollableGetBorderMethodInfo - ResolveViewportMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveViewportMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveViewportMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveViewportMethod "getChild" o = BinGetChildMethodInfo - ResolveViewportMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveViewportMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveViewportMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveViewportMethod "getClip" o = WidgetGetClipMethodInfo - ResolveViewportMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveViewportMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveViewportMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveViewportMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveViewportMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveViewportMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveViewportMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveViewportMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveViewportMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveViewportMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveViewportMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveViewportMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveViewportMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveViewportMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveViewportMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveViewportMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveViewportMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveViewportMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveViewportMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveViewportMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveViewportMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveViewportMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo - ResolveViewportMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveViewportMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveViewportMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveViewportMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveViewportMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveViewportMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveViewportMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveViewportMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveViewportMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveViewportMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveViewportMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveViewportMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveViewportMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveViewportMethod "getParent" o = WidgetGetParentMethodInfo - ResolveViewportMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveViewportMethod "getPath" o = WidgetGetPathMethodInfo - ResolveViewportMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveViewportMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveViewportMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveViewportMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveViewportMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveViewportMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveViewportMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveViewportMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveViewportMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveViewportMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveViewportMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveViewportMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveViewportMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveViewportMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveViewportMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveViewportMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveViewportMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveViewportMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveViewportMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveViewportMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveViewportMethod "getShadowType" o = ViewportGetShadowTypeMethodInfo - ResolveViewportMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveViewportMethod "getState" o = WidgetGetStateMethodInfo - ResolveViewportMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveViewportMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveViewportMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveViewportMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveViewportMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveViewportMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveViewportMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveViewportMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveViewportMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveViewportMethod "getValign" o = WidgetGetValignMethodInfo - ResolveViewportMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveViewportMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveViewportMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveViewportMethod "getViewWindow" o = ViewportGetViewWindowMethodInfo - ResolveViewportMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveViewportMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveViewportMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo - ResolveViewportMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveViewportMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveViewportMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveViewportMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveViewportMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveViewportMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveViewportMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveViewportMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveViewportMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveViewportMethod "setClip" o = WidgetSetClipMethodInfo - ResolveViewportMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveViewportMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveViewportMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveViewportMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveViewportMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveViewportMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveViewportMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveViewportMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveViewportMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveViewportMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveViewportMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveViewportMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveViewportMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveViewportMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveViewportMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveViewportMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveViewportMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveViewportMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveViewportMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo - ResolveViewportMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveViewportMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveViewportMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveViewportMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveViewportMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveViewportMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveViewportMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveViewportMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveViewportMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveViewportMethod "setParent" o = WidgetSetParentMethodInfo - ResolveViewportMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveViewportMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveViewportMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveViewportMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveViewportMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveViewportMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveViewportMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveViewportMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveViewportMethod "setShadowType" o = ViewportSetShadowTypeMethodInfo - ResolveViewportMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveViewportMethod "setState" o = WidgetSetStateMethodInfo - ResolveViewportMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveViewportMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveViewportMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveViewportMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveViewportMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveViewportMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveViewportMethod "setValign" o = WidgetSetValignMethodInfo - ResolveViewportMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveViewportMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveViewportMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveViewportMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveViewportMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo - ResolveViewportMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveViewportMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveViewportMethod t Viewport, MethodInfo info Viewport p) => IsLabelProxy t (Viewport -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveViewportMethod t Viewport, MethodInfo info Viewport p) => IsLabel t (Viewport -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getViewportShadowType :: (MonadIO m, ViewportK o) => o -> m ShadowType -getViewportShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setViewportShadowType :: (MonadIO m, ViewportK o) => o -> ShadowType -> m () -setViewportShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructViewportShadowType :: ShadowType -> IO ([Char], GValue) -constructViewportShadowType val = constructObjectPropertyEnum "shadow-type" val - -data ViewportShadowTypePropertyInfo -instance AttrInfo ViewportShadowTypePropertyInfo where - type AttrAllowedOps ViewportShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ViewportShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint ViewportShadowTypePropertyInfo = ViewportK - type AttrGetType ViewportShadowTypePropertyInfo = ShadowType - type AttrLabel ViewportShadowTypePropertyInfo = "shadow-type" - attrGet _ = getViewportShadowType - attrSet _ = setViewportShadowType - attrConstruct _ = constructViewportShadowType - attrClear _ = undefined - -type instance AttributeList Viewport = ViewportAttributeList -type ViewportAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -viewportShadowType :: AttrLabelProxy "shadowType" -viewportShadowType = AttrLabelProxy - -type instance SignalList Viewport = ViewportSignalList -type ViewportSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Viewport::new --- method type : Constructor --- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Viewport") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_new" gtk_viewport_new :: - Ptr Adjustment -> -- hadjustment : TInterface "Gtk" "Adjustment" - Ptr Adjustment -> -- vadjustment : TInterface "Gtk" "Adjustment" - IO (Ptr Viewport) - - -viewportNew :: - (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -- hadjustment - -> Maybe (b) -- vadjustment - -> m Viewport -- result -viewportNew hadjustment vadjustment = liftIO $ do - maybeHadjustment <- case hadjustment of - Nothing -> return nullPtr - Just jHadjustment -> do - let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment - return jHadjustment' - maybeVadjustment <- case vadjustment of - Nothing -> return nullPtr - Just jVadjustment -> do - let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment - return jVadjustment' - result <- gtk_viewport_new maybeHadjustment maybeVadjustment - checkUnexpectedReturnNULL "gtk_viewport_new" result - result' <- (newObject Viewport) result - whenJust hadjustment touchManagedPtr - whenJust vadjustment touchManagedPtr - return result' - --- method Viewport::get_bin_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_get_bin_window" gtk_viewport_get_bin_window :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - IO (Ptr Gdk.Window) - - -viewportGetBinWindow :: - (MonadIO m, ViewportK a) => - a -- _obj - -> m Gdk.Window -- result -viewportGetBinWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_bin_window _obj' - checkUnexpectedReturnNULL "gtk_viewport_get_bin_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data ViewportGetBinWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, ViewportK a) => MethodInfo ViewportGetBinWindowMethodInfo a signature where - overloadedMethod _ = viewportGetBinWindow - --- method Viewport::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_get_hadjustment" gtk_viewport_get_hadjustment :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - IO (Ptr Adjustment) - -{-# DEPRECATED viewportGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -viewportGetHadjustment :: - (MonadIO m, ViewportK a) => - a -- _obj - -> m Adjustment -- result -viewportGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_viewport_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ViewportGetHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ViewportK a) => MethodInfo ViewportGetHadjustmentMethodInfo a signature where - overloadedMethod _ = viewportGetHadjustment - --- method Viewport::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "ShadowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_get_shadow_type" gtk_viewport_get_shadow_type :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - IO CUInt - - -viewportGetShadowType :: - (MonadIO m, ViewportK a) => - a -- _obj - -> m ShadowType -- result -viewportGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ViewportGetShadowTypeMethodInfo -instance (signature ~ (m ShadowType), MonadIO m, ViewportK a) => MethodInfo ViewportGetShadowTypeMethodInfo a signature where - overloadedMethod _ = viewportGetShadowType - --- method Viewport::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Adjustment") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_get_vadjustment" gtk_viewport_get_vadjustment :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - IO (Ptr Adjustment) - -{-# DEPRECATED viewportGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -viewportGetVadjustment :: - (MonadIO m, ViewportK a) => - a -- _obj - -> m Adjustment -- result -viewportGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_viewport_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - -data ViewportGetVadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, ViewportK a) => MethodInfo ViewportGetVadjustmentMethodInfo a signature where - overloadedMethod _ = viewportGetVadjustment - --- method Viewport::get_view_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_get_view_window" gtk_viewport_get_view_window :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - IO (Ptr Gdk.Window) - - -viewportGetViewWindow :: - (MonadIO m, ViewportK a) => - a -- _obj - -> m Gdk.Window -- result -viewportGetViewWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_view_window _obj' - checkUnexpectedReturnNULL "gtk_viewport_get_view_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data ViewportGetViewWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, ViewportK a) => MethodInfo ViewportGetViewWindowMethodInfo a signature where - overloadedMethod _ = viewportGetViewWindow - --- method Viewport::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_set_hadjustment" gtk_viewport_set_hadjustment :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED viewportSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} -viewportSetHadjustment :: - (MonadIO m, ViewportK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -viewportSetHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_viewport_set_hadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data ViewportSetHadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ViewportK a, AdjustmentK b) => MethodInfo ViewportSetHadjustmentMethodInfo a signature where - overloadedMethod _ = viewportSetHadjustment - --- method Viewport::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", 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 "gtk_viewport_set_shadow_type" gtk_viewport_set_shadow_type :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - CUInt -> -- type : TInterface "Gtk" "ShadowType" - IO () - - -viewportSetShadowType :: - (MonadIO m, ViewportK a) => - a -- _obj - -> ShadowType -- type_ - -> m () -- result -viewportSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_viewport_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - -data ViewportSetShadowTypeMethodInfo -instance (signature ~ (ShadowType -> m ()), MonadIO m, ViewportK a) => MethodInfo ViewportSetShadowTypeMethodInfo a signature where - overloadedMethod _ = viewportSetShadowType - --- method Viewport::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_viewport_set_vadjustment" gtk_viewport_set_vadjustment :: - Ptr Viewport -> -- _obj : TInterface "Gtk" "Viewport" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED viewportSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} -viewportSetVadjustment :: - (MonadIO m, ViewportK a, AdjustmentK b) => - a -- _obj - -> Maybe (b) -- adjustment - -> m () -- result -viewportSetVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_viewport_set_vadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - -data ViewportSetVadjustmentMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ViewportK a, AdjustmentK b) => MethodInfo ViewportSetVadjustmentMethodInfo a signature where - overloadedMethod _ = viewportSetVadjustment - - diff --git a/GI/Gtk/Objects/Viewport.hs-boot b/GI/Gtk/Objects/Viewport.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Viewport.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gtk.Objects.Viewport 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 Viewport = Viewport (ForeignPtr Viewport) -instance GObject Viewport where -class GObject o => ViewportK o -instance (GObject o, IsDescendantOf Viewport o) => ViewportK o -data ViewportShadowTypePropertyInfo -data ViewportGetBinWindowMethodInfo -data ViewportGetHadjustmentMethodInfo -data ViewportGetShadowTypeMethodInfo -data ViewportGetVadjustmentMethodInfo -data ViewportGetViewWindowMethodInfo -data ViewportSetHadjustmentMethodInfo -data ViewportSetShadowTypeMethodInfo -data ViewportSetVadjustmentMethodInfo diff --git a/GI/Gtk/Objects/VolumeButton.hs b/GI/Gtk/Objects/VolumeButton.hs deleted file mode 100644 --- a/GI/Gtk/Objects/VolumeButton.hs +++ /dev/null @@ -1,496 +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.Gtk.Objects.VolumeButton - ( - --- * Exported types - VolumeButton(..) , - VolumeButtonK , - toVolumeButton , - noVolumeButton , - - - -- * Methods --- ** volumeButtonNew - volumeButtonNew , - - - - - -- * Properties --- ** UseSymbolic - VolumeButtonUseSymbolicPropertyInfo , - constructVolumeButtonUseSymbolic , - getVolumeButtonUseSymbolic , - setVolumeButtonUseSymbolic , - volumeButtonUseSymbolic , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype VolumeButton = VolumeButton (ForeignPtr VolumeButton) -foreign import ccall "gtk_volume_button_get_type" - c_gtk_volume_button_get_type :: IO GType - -type instance ParentTypes VolumeButton = VolumeButtonParentTypes -type VolumeButtonParentTypes = '[ScaleButton, Button, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable, Orientable] - -instance GObject VolumeButton where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_volume_button_get_type - - -class GObject o => VolumeButtonK o -instance (GObject o, IsDescendantOf VolumeButton o) => VolumeButtonK o - -toVolumeButton :: VolumeButtonK o => o -> IO VolumeButton -toVolumeButton = unsafeCastTo VolumeButton - -noVolumeButton :: Maybe VolumeButton -noVolumeButton = Nothing - -type family ResolveVolumeButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveVolumeButtonMethod "activate" o = WidgetActivateMethodInfo - ResolveVolumeButtonMethod "add" o = ContainerAddMethodInfo - ResolveVolumeButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveVolumeButtonMethod "addChild" o = BuildableAddChildMethodInfo - ResolveVolumeButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveVolumeButtonMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveVolumeButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveVolumeButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveVolumeButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVolumeButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVolumeButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveVolumeButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveVolumeButtonMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveVolumeButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveVolumeButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveVolumeButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveVolumeButtonMethod "childType" o = ContainerChildTypeMethodInfo - ResolveVolumeButtonMethod "classPath" o = WidgetClassPathMethodInfo - ResolveVolumeButtonMethod "clicked" o = ButtonClickedMethodInfo - ResolveVolumeButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveVolumeButtonMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveVolumeButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveVolumeButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveVolumeButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveVolumeButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveVolumeButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveVolumeButtonMethod "destroy" o = WidgetDestroyMethodInfo - ResolveVolumeButtonMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveVolumeButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveVolumeButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo - ResolveVolumeButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveVolumeButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveVolumeButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveVolumeButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveVolumeButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveVolumeButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveVolumeButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveVolumeButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveVolumeButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveVolumeButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveVolumeButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveVolumeButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveVolumeButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveVolumeButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveVolumeButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveVolumeButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveVolumeButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveVolumeButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveVolumeButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveVolumeButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveVolumeButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveVolumeButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveVolumeButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveVolumeButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveVolumeButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveVolumeButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveVolumeButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveVolumeButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveVolumeButtonMethod "draw" o = WidgetDrawMethodInfo - ResolveVolumeButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveVolumeButtonMethod "enter" o = ButtonEnterMethodInfo - ResolveVolumeButtonMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveVolumeButtonMethod "event" o = WidgetEventMethodInfo - ResolveVolumeButtonMethod "forall" o = ContainerForallMethodInfo - ResolveVolumeButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVolumeButtonMethod "foreach" o = ContainerForeachMethodInfo - ResolveVolumeButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveVolumeButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVolumeButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveVolumeButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveVolumeButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveVolumeButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveVolumeButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveVolumeButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveVolumeButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveVolumeButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveVolumeButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveVolumeButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveVolumeButtonMethod "hide" o = WidgetHideMethodInfo - ResolveVolumeButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveVolumeButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveVolumeButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveVolumeButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveVolumeButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveVolumeButtonMethod "intersect" o = WidgetIntersectMethodInfo - ResolveVolumeButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveVolumeButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveVolumeButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveVolumeButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVolumeButtonMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveVolumeButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveVolumeButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveVolumeButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveVolumeButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveVolumeButtonMethod "leave" o = ButtonLeaveMethodInfo - ResolveVolumeButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveVolumeButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveVolumeButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveVolumeButtonMethod "map" o = WidgetMapMethodInfo - ResolveVolumeButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveVolumeButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveVolumeButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveVolumeButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveVolumeButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveVolumeButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveVolumeButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveVolumeButtonMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveVolumeButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVolumeButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVolumeButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveVolumeButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveVolumeButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveVolumeButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveVolumeButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveVolumeButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveVolumeButtonMethod "path" o = WidgetPathMethodInfo - ResolveVolumeButtonMethod "pressed" o = ButtonPressedMethodInfo - ResolveVolumeButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveVolumeButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveVolumeButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveVolumeButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveVolumeButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveVolumeButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveVolumeButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveVolumeButtonMethod "realize" o = WidgetRealizeMethodInfo - ResolveVolumeButtonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVolumeButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVolumeButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveVolumeButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveVolumeButtonMethod "released" o = ButtonReleasedMethodInfo - ResolveVolumeButtonMethod "remove" o = ContainerRemoveMethodInfo - ResolveVolumeButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveVolumeButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveVolumeButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveVolumeButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveVolumeButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveVolumeButtonMethod "reparent" o = WidgetReparentMethodInfo - ResolveVolumeButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVolumeButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVolumeButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveVolumeButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveVolumeButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveVolumeButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVolumeButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveVolumeButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveVolumeButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveVolumeButtonMethod "show" o = WidgetShowMethodInfo - ResolveVolumeButtonMethod "showAll" o = WidgetShowAllMethodInfo - ResolveVolumeButtonMethod "showNow" o = WidgetShowNowMethodInfo - ResolveVolumeButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveVolumeButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveVolumeButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveVolumeButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVolumeButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVolumeButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveVolumeButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveVolumeButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo - ResolveVolumeButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveVolumeButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVolumeButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveVolumeButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveVolumeButtonMethod "unmap" o = WidgetUnmapMethodInfo - ResolveVolumeButtonMethod "unparent" o = WidgetUnparentMethodInfo - ResolveVolumeButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveVolumeButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVolumeButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveVolumeButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveVolumeButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveVolumeButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVolumeButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveVolumeButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveVolumeButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo - ResolveVolumeButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo - ResolveVolumeButtonMethod "getAdjustment" o = ScaleButtonGetAdjustmentMethodInfo - ResolveVolumeButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo - ResolveVolumeButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveVolumeButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveVolumeButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveVolumeButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveVolumeButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo - ResolveVolumeButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveVolumeButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveVolumeButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveVolumeButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveVolumeButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveVolumeButtonMethod "getChild" o = BinGetChildMethodInfo - ResolveVolumeButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveVolumeButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveVolumeButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveVolumeButtonMethod "getClip" o = WidgetGetClipMethodInfo - ResolveVolumeButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveVolumeButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveVolumeButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVolumeButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveVolumeButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveVolumeButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveVolumeButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveVolumeButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveVolumeButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo - ResolveVolumeButtonMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveVolumeButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveVolumeButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveVolumeButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveVolumeButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo - ResolveVolumeButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveVolumeButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveVolumeButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveVolumeButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveVolumeButtonMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveVolumeButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveVolumeButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveVolumeButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveVolumeButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveVolumeButtonMethod "getImage" o = ButtonGetImageMethodInfo - ResolveVolumeButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo - ResolveVolumeButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveVolumeButtonMethod "getLabel" o = ButtonGetLabelMethodInfo - ResolveVolumeButtonMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveVolumeButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveVolumeButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveVolumeButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveVolumeButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveVolumeButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveVolumeButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveVolumeButtonMethod "getMinusButton" o = ScaleButtonGetMinusButtonMethodInfo - ResolveVolumeButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveVolumeButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveVolumeButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveVolumeButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveVolumeButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo - ResolveVolumeButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveVolumeButtonMethod "getParent" o = WidgetGetParentMethodInfo - ResolveVolumeButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveVolumeButtonMethod "getPath" o = WidgetGetPathMethodInfo - ResolveVolumeButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveVolumeButtonMethod "getPlusButton" o = ScaleButtonGetPlusButtonMethodInfo - ResolveVolumeButtonMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveVolumeButtonMethod "getPopup" o = ScaleButtonGetPopupMethodInfo - ResolveVolumeButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveVolumeButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveVolumeButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveVolumeButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveVolumeButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveVolumeButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveVolumeButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVolumeButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVolumeButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveVolumeButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveVolumeButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo - ResolveVolumeButtonMethod "getRelief" o = ButtonGetReliefMethodInfo - ResolveVolumeButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveVolumeButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveVolumeButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveVolumeButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveVolumeButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveVolumeButtonMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveVolumeButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveVolumeButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveVolumeButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveVolumeButtonMethod "getState" o = WidgetGetStateMethodInfo - ResolveVolumeButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveVolumeButtonMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveVolumeButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveVolumeButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveVolumeButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveVolumeButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveVolumeButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveVolumeButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveVolumeButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveVolumeButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo - ResolveVolumeButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo - ResolveVolumeButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo - ResolveVolumeButtonMethod "getValign" o = WidgetGetValignMethodInfo - ResolveVolumeButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveVolumeButtonMethod "getValue" o = ScaleButtonGetValueMethodInfo - ResolveVolumeButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveVolumeButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveVolumeButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveVolumeButtonMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveVolumeButtonMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveVolumeButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveVolumeButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo - ResolveVolumeButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo - ResolveVolumeButtonMethod "setAdjustment" o = ScaleButtonSetAdjustmentMethodInfo - ResolveVolumeButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo - ResolveVolumeButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveVolumeButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo - ResolveVolumeButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveVolumeButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveVolumeButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveVolumeButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveVolumeButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveVolumeButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveVolumeButtonMethod "setClip" o = WidgetSetClipMethodInfo - ResolveVolumeButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveVolumeButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVolumeButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo - ResolveVolumeButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveVolumeButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveVolumeButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveVolumeButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveVolumeButtonMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveVolumeButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveVolumeButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveVolumeButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveVolumeButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo - ResolveVolumeButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveVolumeButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveVolumeButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveVolumeButtonMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveVolumeButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveVolumeButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveVolumeButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveVolumeButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveVolumeButtonMethod "setIcons" o = ScaleButtonSetIconsMethodInfo - ResolveVolumeButtonMethod "setImage" o = ButtonSetImageMethodInfo - ResolveVolumeButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo - ResolveVolumeButtonMethod "setLabel" o = ButtonSetLabelMethodInfo - ResolveVolumeButtonMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveVolumeButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveVolumeButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveVolumeButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveVolumeButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveVolumeButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveVolumeButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveVolumeButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveVolumeButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveVolumeButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo - ResolveVolumeButtonMethod "setParent" o = WidgetSetParentMethodInfo - ResolveVolumeButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveVolumeButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVolumeButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveVolumeButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveVolumeButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveVolumeButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveVolumeButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo - ResolveVolumeButtonMethod "setRelief" o = ButtonSetReliefMethodInfo - ResolveVolumeButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveVolumeButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveVolumeButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveVolumeButtonMethod "setState" o = WidgetSetStateMethodInfo - ResolveVolumeButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveVolumeButtonMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveVolumeButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveVolumeButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveVolumeButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveVolumeButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveVolumeButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo - ResolveVolumeButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo - ResolveVolumeButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo - ResolveVolumeButtonMethod "setValign" o = WidgetSetValignMethodInfo - ResolveVolumeButtonMethod "setValue" o = ScaleButtonSetValueMethodInfo - ResolveVolumeButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveVolumeButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveVolumeButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveVolumeButtonMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveVolumeButtonMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveVolumeButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVolumeButtonMethod t VolumeButton, MethodInfo info VolumeButton p) => IsLabelProxy t (VolumeButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVolumeButtonMethod t VolumeButton, MethodInfo info VolumeButton p) => IsLabel t (VolumeButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "use-symbolic" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getVolumeButtonUseSymbolic :: (MonadIO m, VolumeButtonK o) => o -> m Bool -getVolumeButtonUseSymbolic obj = liftIO $ getObjectPropertyBool obj "use-symbolic" - -setVolumeButtonUseSymbolic :: (MonadIO m, VolumeButtonK o) => o -> Bool -> m () -setVolumeButtonUseSymbolic obj val = liftIO $ setObjectPropertyBool obj "use-symbolic" val - -constructVolumeButtonUseSymbolic :: Bool -> IO ([Char], GValue) -constructVolumeButtonUseSymbolic val = constructObjectPropertyBool "use-symbolic" val - -data VolumeButtonUseSymbolicPropertyInfo -instance AttrInfo VolumeButtonUseSymbolicPropertyInfo where - type AttrAllowedOps VolumeButtonUseSymbolicPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint VolumeButtonUseSymbolicPropertyInfo = (~) Bool - type AttrBaseTypeConstraint VolumeButtonUseSymbolicPropertyInfo = VolumeButtonK - type AttrGetType VolumeButtonUseSymbolicPropertyInfo = Bool - type AttrLabel VolumeButtonUseSymbolicPropertyInfo = "use-symbolic" - attrGet _ = getVolumeButtonUseSymbolic - attrSet _ = setVolumeButtonUseSymbolic - attrConstruct _ = constructVolumeButtonUseSymbolic - attrClear _ = undefined - -type instance AttributeList VolumeButton = VolumeButtonAttributeList -type VolumeButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useSymbolic", VolumeButtonUseSymbolicPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -volumeButtonUseSymbolic :: AttrLabelProxy "useSymbolic" -volumeButtonUseSymbolic = AttrLabelProxy - -type instance SignalList VolumeButton = VolumeButtonSignalList -type VolumeButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", ScaleButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method VolumeButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "VolumeButton") --- throws : False --- Skip return : False - -foreign import ccall "gtk_volume_button_new" gtk_volume_button_new :: - IO (Ptr VolumeButton) - - -volumeButtonNew :: - (MonadIO m) => - m VolumeButton -- result -volumeButtonNew = liftIO $ do - result <- gtk_volume_button_new - checkUnexpectedReturnNULL "gtk_volume_button_new" result - result' <- (newObject VolumeButton) result - return result' - - diff --git a/GI/Gtk/Objects/VolumeButton.hs-boot b/GI/Gtk/Objects/VolumeButton.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/VolumeButton.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gtk.Objects.VolumeButton 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 VolumeButton = VolumeButton (ForeignPtr VolumeButton) -instance GObject VolumeButton where -class GObject o => VolumeButtonK o -instance (GObject o, IsDescendantOf VolumeButton o) => VolumeButtonK o -data VolumeButtonUseSymbolicPropertyInfo diff --git a/GI/Gtk/Objects/Widget.hs b/GI/Gtk/Objects/Widget.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Widget.hs +++ /dev/null @@ -1,15322 +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.Gtk.Objects.Widget - ( - --- * Exported types - Widget(..) , - WidgetK , - toWidget , - noWidget , - - - -- * Methods --- ** widgetActivate - WidgetActivateMethodInfo , - widgetActivate , - - --- ** widgetAddAccelerator - WidgetAddAcceleratorMethodInfo , - widgetAddAccelerator , - - --- ** widgetAddDeviceEvents - WidgetAddDeviceEventsMethodInfo , - widgetAddDeviceEvents , - - --- ** widgetAddEvents - WidgetAddEventsMethodInfo , - widgetAddEvents , - - --- ** widgetAddMnemonicLabel - WidgetAddMnemonicLabelMethodInfo , - widgetAddMnemonicLabel , - - --- ** widgetAddTickCallback - WidgetAddTickCallbackMethodInfo , - widgetAddTickCallback , - - --- ** widgetCanActivateAccel - WidgetCanActivateAccelMethodInfo , - widgetCanActivateAccel , - - --- ** widgetChildFocus - WidgetChildFocusMethodInfo , - widgetChildFocus , - - --- ** widgetChildNotify - WidgetChildNotifyMethodInfo , - widgetChildNotify , - - --- ** widgetClassPath - WidgetClassPathMethodInfo , - widgetClassPath , - - --- ** widgetComputeExpand - WidgetComputeExpandMethodInfo , - widgetComputeExpand , - - --- ** widgetCreatePangoContext - WidgetCreatePangoContextMethodInfo , - widgetCreatePangoContext , - - --- ** widgetCreatePangoLayout - WidgetCreatePangoLayoutMethodInfo , - widgetCreatePangoLayout , - - --- ** widgetDestroy - WidgetDestroyMethodInfo , - widgetDestroy , - - --- ** widgetDestroyed - WidgetDestroyedMethodInfo , - widgetDestroyed , - - --- ** widgetDeviceIsShadowed - WidgetDeviceIsShadowedMethodInfo , - widgetDeviceIsShadowed , - - --- ** widgetDragBegin - WidgetDragBeginMethodInfo , - widgetDragBegin , - - --- ** widgetDragBeginWithCoordinates - WidgetDragBeginWithCoordinatesMethodInfo, - widgetDragBeginWithCoordinates , - - --- ** widgetDragCheckThreshold - WidgetDragCheckThresholdMethodInfo , - widgetDragCheckThreshold , - - --- ** widgetDragDestAddImageTargets - WidgetDragDestAddImageTargetsMethodInfo , - widgetDragDestAddImageTargets , - - --- ** widgetDragDestAddTextTargets - WidgetDragDestAddTextTargetsMethodInfo , - widgetDragDestAddTextTargets , - - --- ** widgetDragDestAddUriTargets - WidgetDragDestAddUriTargetsMethodInfo , - widgetDragDestAddUriTargets , - - --- ** widgetDragDestFindTarget - WidgetDragDestFindTargetMethodInfo , - widgetDragDestFindTarget , - - --- ** widgetDragDestGetTargetList - WidgetDragDestGetTargetListMethodInfo , - widgetDragDestGetTargetList , - - --- ** widgetDragDestGetTrackMotion - WidgetDragDestGetTrackMotionMethodInfo , - widgetDragDestGetTrackMotion , - - --- ** widgetDragDestSet - WidgetDragDestSetMethodInfo , - widgetDragDestSet , - - --- ** widgetDragDestSetProxy - WidgetDragDestSetProxyMethodInfo , - widgetDragDestSetProxy , - - --- ** widgetDragDestSetTargetList - WidgetDragDestSetTargetListMethodInfo , - widgetDragDestSetTargetList , - - --- ** widgetDragDestSetTrackMotion - WidgetDragDestSetTrackMotionMethodInfo , - widgetDragDestSetTrackMotion , - - --- ** widgetDragDestUnset - WidgetDragDestUnsetMethodInfo , - widgetDragDestUnset , - - --- ** widgetDragGetData - WidgetDragGetDataMethodInfo , - widgetDragGetData , - - --- ** widgetDragHighlight - WidgetDragHighlightMethodInfo , - widgetDragHighlight , - - --- ** widgetDragSourceAddImageTargets - WidgetDragSourceAddImageTargetsMethodInfo, - widgetDragSourceAddImageTargets , - - --- ** widgetDragSourceAddTextTargets - WidgetDragSourceAddTextTargetsMethodInfo, - widgetDragSourceAddTextTargets , - - --- ** widgetDragSourceAddUriTargets - WidgetDragSourceAddUriTargetsMethodInfo , - widgetDragSourceAddUriTargets , - - --- ** widgetDragSourceGetTargetList - WidgetDragSourceGetTargetListMethodInfo , - widgetDragSourceGetTargetList , - - --- ** widgetDragSourceSet - WidgetDragSourceSetMethodInfo , - widgetDragSourceSet , - - --- ** widgetDragSourceSetIconGicon - WidgetDragSourceSetIconGiconMethodInfo , - widgetDragSourceSetIconGicon , - - --- ** widgetDragSourceSetIconName - WidgetDragSourceSetIconNameMethodInfo , - widgetDragSourceSetIconName , - - --- ** widgetDragSourceSetIconPixbuf - WidgetDragSourceSetIconPixbufMethodInfo , - widgetDragSourceSetIconPixbuf , - - --- ** widgetDragSourceSetIconStock - WidgetDragSourceSetIconStockMethodInfo , - widgetDragSourceSetIconStock , - - --- ** widgetDragSourceSetTargetList - WidgetDragSourceSetTargetListMethodInfo , - widgetDragSourceSetTargetList , - - --- ** widgetDragSourceUnset - WidgetDragSourceUnsetMethodInfo , - widgetDragSourceUnset , - - --- ** widgetDragUnhighlight - WidgetDragUnhighlightMethodInfo , - widgetDragUnhighlight , - - --- ** widgetDraw - WidgetDrawMethodInfo , - widgetDraw , - - --- ** widgetEnsureStyle - WidgetEnsureStyleMethodInfo , - widgetEnsureStyle , - - --- ** widgetErrorBell - WidgetErrorBellMethodInfo , - widgetErrorBell , - - --- ** widgetEvent - WidgetEventMethodInfo , - widgetEvent , - - --- ** widgetFreezeChildNotify - WidgetFreezeChildNotifyMethodInfo , - widgetFreezeChildNotify , - - --- ** widgetGetAccessible - WidgetGetAccessibleMethodInfo , - widgetGetAccessible , - - --- ** widgetGetActionGroup - WidgetGetActionGroupMethodInfo , - widgetGetActionGroup , - - --- ** widgetGetAllocatedBaseline - WidgetGetAllocatedBaselineMethodInfo , - widgetGetAllocatedBaseline , - - --- ** widgetGetAllocatedHeight - WidgetGetAllocatedHeightMethodInfo , - widgetGetAllocatedHeight , - - --- ** widgetGetAllocatedWidth - WidgetGetAllocatedWidthMethodInfo , - widgetGetAllocatedWidth , - - --- ** widgetGetAllocation - WidgetGetAllocationMethodInfo , - widgetGetAllocation , - - --- ** widgetGetAncestor - WidgetGetAncestorMethodInfo , - widgetGetAncestor , - - --- ** widgetGetAppPaintable - WidgetGetAppPaintableMethodInfo , - widgetGetAppPaintable , - - --- ** widgetGetCanDefault - WidgetGetCanDefaultMethodInfo , - widgetGetCanDefault , - - --- ** widgetGetCanFocus - WidgetGetCanFocusMethodInfo , - widgetGetCanFocus , - - --- ** widgetGetChildRequisition - WidgetGetChildRequisitionMethodInfo , - widgetGetChildRequisition , - - --- ** widgetGetChildVisible - WidgetGetChildVisibleMethodInfo , - widgetGetChildVisible , - - --- ** widgetGetClip - WidgetGetClipMethodInfo , - widgetGetClip , - - --- ** widgetGetClipboard - WidgetGetClipboardMethodInfo , - widgetGetClipboard , - - --- ** widgetGetCompositeName - WidgetGetCompositeNameMethodInfo , - widgetGetCompositeName , - - --- ** widgetGetDefaultDirection - widgetGetDefaultDirection , - - --- ** widgetGetDefaultStyle - widgetGetDefaultStyle , - - --- ** widgetGetDeviceEnabled - WidgetGetDeviceEnabledMethodInfo , - widgetGetDeviceEnabled , - - --- ** widgetGetDeviceEvents - WidgetGetDeviceEventsMethodInfo , - widgetGetDeviceEvents , - - --- ** widgetGetDirection - WidgetGetDirectionMethodInfo , - widgetGetDirection , - - --- ** widgetGetDisplay - WidgetGetDisplayMethodInfo , - widgetGetDisplay , - - --- ** widgetGetDoubleBuffered - WidgetGetDoubleBufferedMethodInfo , - widgetGetDoubleBuffered , - - --- ** widgetGetEvents - WidgetGetEventsMethodInfo , - widgetGetEvents , - - --- ** widgetGetFontMap - WidgetGetFontMapMethodInfo , - widgetGetFontMap , - - --- ** widgetGetFontOptions - WidgetGetFontOptionsMethodInfo , - widgetGetFontOptions , - - --- ** widgetGetFrameClock - WidgetGetFrameClockMethodInfo , - widgetGetFrameClock , - - --- ** widgetGetHalign - WidgetGetHalignMethodInfo , - widgetGetHalign , - - --- ** widgetGetHasTooltip - WidgetGetHasTooltipMethodInfo , - widgetGetHasTooltip , - - --- ** widgetGetHasWindow - WidgetGetHasWindowMethodInfo , - widgetGetHasWindow , - - --- ** widgetGetHexpand - WidgetGetHexpandMethodInfo , - widgetGetHexpand , - - --- ** widgetGetHexpandSet - WidgetGetHexpandSetMethodInfo , - widgetGetHexpandSet , - - --- ** widgetGetMapped - WidgetGetMappedMethodInfo , - widgetGetMapped , - - --- ** widgetGetMarginBottom - WidgetGetMarginBottomMethodInfo , - widgetGetMarginBottom , - - --- ** widgetGetMarginEnd - WidgetGetMarginEndMethodInfo , - widgetGetMarginEnd , - - --- ** widgetGetMarginLeft - WidgetGetMarginLeftMethodInfo , - widgetGetMarginLeft , - - --- ** widgetGetMarginRight - WidgetGetMarginRightMethodInfo , - widgetGetMarginRight , - - --- ** widgetGetMarginStart - WidgetGetMarginStartMethodInfo , - widgetGetMarginStart , - - --- ** widgetGetMarginTop - WidgetGetMarginTopMethodInfo , - widgetGetMarginTop , - - --- ** widgetGetModifierMask - WidgetGetModifierMaskMethodInfo , - widgetGetModifierMask , - - --- ** widgetGetModifierStyle - WidgetGetModifierStyleMethodInfo , - widgetGetModifierStyle , - - --- ** widgetGetName - WidgetGetNameMethodInfo , - widgetGetName , - - --- ** widgetGetNoShowAll - WidgetGetNoShowAllMethodInfo , - widgetGetNoShowAll , - - --- ** widgetGetOpacity - WidgetGetOpacityMethodInfo , - widgetGetOpacity , - - --- ** widgetGetPangoContext - WidgetGetPangoContextMethodInfo , - widgetGetPangoContext , - - --- ** widgetGetParent - WidgetGetParentMethodInfo , - widgetGetParent , - - --- ** widgetGetParentWindow - WidgetGetParentWindowMethodInfo , - widgetGetParentWindow , - - --- ** widgetGetPath - WidgetGetPathMethodInfo , - widgetGetPath , - - --- ** widgetGetPointer - WidgetGetPointerMethodInfo , - widgetGetPointer , - - --- ** widgetGetPreferredHeight - WidgetGetPreferredHeightMethodInfo , - widgetGetPreferredHeight , - - --- ** widgetGetPreferredHeightAndBaselineForWidth - WidgetGetPreferredHeightAndBaselineForWidthMethodInfo, - widgetGetPreferredHeightAndBaselineForWidth, - - --- ** widgetGetPreferredHeightForWidth - WidgetGetPreferredHeightForWidthMethodInfo, - widgetGetPreferredHeightForWidth , - - --- ** widgetGetPreferredSize - WidgetGetPreferredSizeMethodInfo , - widgetGetPreferredSize , - - --- ** widgetGetPreferredWidth - WidgetGetPreferredWidthMethodInfo , - widgetGetPreferredWidth , - - --- ** widgetGetPreferredWidthForHeight - WidgetGetPreferredWidthForHeightMethodInfo, - widgetGetPreferredWidthForHeight , - - --- ** widgetGetRealized - WidgetGetRealizedMethodInfo , - widgetGetRealized , - - --- ** widgetGetReceivesDefault - WidgetGetReceivesDefaultMethodInfo , - widgetGetReceivesDefault , - - --- ** widgetGetRequestMode - WidgetGetRequestModeMethodInfo , - widgetGetRequestMode , - - --- ** widgetGetRequisition - WidgetGetRequisitionMethodInfo , - widgetGetRequisition , - - --- ** widgetGetRootWindow - WidgetGetRootWindowMethodInfo , - widgetGetRootWindow , - - --- ** widgetGetScaleFactor - WidgetGetScaleFactorMethodInfo , - widgetGetScaleFactor , - - --- ** widgetGetScreen - WidgetGetScreenMethodInfo , - widgetGetScreen , - - --- ** widgetGetSensitive - WidgetGetSensitiveMethodInfo , - widgetGetSensitive , - - --- ** widgetGetSettings - WidgetGetSettingsMethodInfo , - widgetGetSettings , - - --- ** widgetGetSizeRequest - WidgetGetSizeRequestMethodInfo , - widgetGetSizeRequest , - - --- ** widgetGetState - WidgetGetStateMethodInfo , - widgetGetState , - - --- ** widgetGetStateFlags - WidgetGetStateFlagsMethodInfo , - widgetGetStateFlags , - - --- ** widgetGetStyle - WidgetGetStyleMethodInfo , - widgetGetStyle , - - --- ** widgetGetStyleContext - WidgetGetStyleContextMethodInfo , - widgetGetStyleContext , - - --- ** widgetGetSupportMultidevice - WidgetGetSupportMultideviceMethodInfo , - widgetGetSupportMultidevice , - - --- ** widgetGetTemplateChild - WidgetGetTemplateChildMethodInfo , - widgetGetTemplateChild , - - --- ** widgetGetTooltipMarkup - WidgetGetTooltipMarkupMethodInfo , - widgetGetTooltipMarkup , - - --- ** widgetGetTooltipText - WidgetGetTooltipTextMethodInfo , - widgetGetTooltipText , - - --- ** widgetGetTooltipWindow - WidgetGetTooltipWindowMethodInfo , - widgetGetTooltipWindow , - - --- ** widgetGetToplevel - WidgetGetToplevelMethodInfo , - widgetGetToplevel , - - --- ** widgetGetValign - WidgetGetValignMethodInfo , - widgetGetValign , - - --- ** widgetGetValignWithBaseline - WidgetGetValignWithBaselineMethodInfo , - widgetGetValignWithBaseline , - - --- ** widgetGetVexpand - WidgetGetVexpandMethodInfo , - widgetGetVexpand , - - --- ** widgetGetVexpandSet - WidgetGetVexpandSetMethodInfo , - widgetGetVexpandSet , - - --- ** widgetGetVisible - WidgetGetVisibleMethodInfo , - widgetGetVisible , - - --- ** widgetGetVisual - WidgetGetVisualMethodInfo , - widgetGetVisual , - - --- ** widgetGetWindow - WidgetGetWindowMethodInfo , - widgetGetWindow , - - --- ** widgetGrabAdd - WidgetGrabAddMethodInfo , - widgetGrabAdd , - - --- ** widgetGrabDefault - WidgetGrabDefaultMethodInfo , - widgetGrabDefault , - - --- ** widgetGrabFocus - WidgetGrabFocusMethodInfo , - widgetGrabFocus , - - --- ** widgetGrabRemove - WidgetGrabRemoveMethodInfo , - widgetGrabRemove , - - --- ** widgetHasDefault - WidgetHasDefaultMethodInfo , - widgetHasDefault , - - --- ** widgetHasFocus - WidgetHasFocusMethodInfo , - widgetHasFocus , - - --- ** widgetHasGrab - WidgetHasGrabMethodInfo , - widgetHasGrab , - - --- ** widgetHasRcStyle - WidgetHasRcStyleMethodInfo , - widgetHasRcStyle , - - --- ** widgetHasScreen - WidgetHasScreenMethodInfo , - widgetHasScreen , - - --- ** widgetHasVisibleFocus - WidgetHasVisibleFocusMethodInfo , - widgetHasVisibleFocus , - - --- ** widgetHide - WidgetHideMethodInfo , - widgetHide , - - --- ** widgetHideOnDelete - WidgetHideOnDeleteMethodInfo , - widgetHideOnDelete , - - --- ** widgetInDestruction - WidgetInDestructionMethodInfo , - widgetInDestruction , - - --- ** widgetInitTemplate - WidgetInitTemplateMethodInfo , - widgetInitTemplate , - - --- ** widgetInputShapeCombineRegion - WidgetInputShapeCombineRegionMethodInfo , - widgetInputShapeCombineRegion , - - --- ** widgetInsertActionGroup - WidgetInsertActionGroupMethodInfo , - widgetInsertActionGroup , - - --- ** widgetIntersect - WidgetIntersectMethodInfo , - widgetIntersect , - - --- ** widgetIsAncestor - WidgetIsAncestorMethodInfo , - widgetIsAncestor , - - --- ** widgetIsComposited - WidgetIsCompositedMethodInfo , - widgetIsComposited , - - --- ** widgetIsDrawable - WidgetIsDrawableMethodInfo , - widgetIsDrawable , - - --- ** widgetIsFocus - WidgetIsFocusMethodInfo , - widgetIsFocus , - - --- ** widgetIsSensitive - WidgetIsSensitiveMethodInfo , - widgetIsSensitive , - - --- ** widgetIsToplevel - WidgetIsToplevelMethodInfo , - widgetIsToplevel , - - --- ** widgetIsVisible - WidgetIsVisibleMethodInfo , - widgetIsVisible , - - --- ** widgetKeynavFailed - WidgetKeynavFailedMethodInfo , - widgetKeynavFailed , - - --- ** widgetListAccelClosures - WidgetListAccelClosuresMethodInfo , - widgetListAccelClosures , - - --- ** widgetListActionPrefixes - WidgetListActionPrefixesMethodInfo , - widgetListActionPrefixes , - - --- ** widgetListMnemonicLabels - WidgetListMnemonicLabelsMethodInfo , - widgetListMnemonicLabels , - - --- ** widgetMap - WidgetMapMethodInfo , - widgetMap , - - --- ** widgetMnemonicActivate - WidgetMnemonicActivateMethodInfo , - widgetMnemonicActivate , - - --- ** widgetModifyBase - WidgetModifyBaseMethodInfo , - widgetModifyBase , - - --- ** widgetModifyBg - WidgetModifyBgMethodInfo , - widgetModifyBg , - - --- ** widgetModifyCursor - WidgetModifyCursorMethodInfo , - widgetModifyCursor , - - --- ** widgetModifyFg - WidgetModifyFgMethodInfo , - widgetModifyFg , - - --- ** widgetModifyFont - WidgetModifyFontMethodInfo , - widgetModifyFont , - - --- ** widgetModifyStyle - WidgetModifyStyleMethodInfo , - widgetModifyStyle , - - --- ** widgetModifyText - WidgetModifyTextMethodInfo , - widgetModifyText , - - --- ** widgetOverrideBackgroundColor - WidgetOverrideBackgroundColorMethodInfo , - widgetOverrideBackgroundColor , - - --- ** widgetOverrideColor - WidgetOverrideColorMethodInfo , - widgetOverrideColor , - - --- ** widgetOverrideCursor - WidgetOverrideCursorMethodInfo , - widgetOverrideCursor , - - --- ** widgetOverrideFont - WidgetOverrideFontMethodInfo , - widgetOverrideFont , - - --- ** widgetOverrideSymbolicColor - WidgetOverrideSymbolicColorMethodInfo , - widgetOverrideSymbolicColor , - - --- ** widgetPath - WidgetPathMethodInfo , - widgetPath , - - --- ** widgetPopCompositeChild - widgetPopCompositeChild , - - --- ** widgetPushCompositeChild - widgetPushCompositeChild , - - --- ** widgetQueueComputeExpand - WidgetQueueComputeExpandMethodInfo , - widgetQueueComputeExpand , - - --- ** widgetQueueDraw - WidgetQueueDrawMethodInfo , - widgetQueueDraw , - - --- ** widgetQueueDrawArea - WidgetQueueDrawAreaMethodInfo , - widgetQueueDrawArea , - - --- ** widgetQueueDrawRegion - WidgetQueueDrawRegionMethodInfo , - widgetQueueDrawRegion , - - --- ** widgetQueueResize - WidgetQueueResizeMethodInfo , - widgetQueueResize , - - --- ** widgetQueueResizeNoRedraw - WidgetQueueResizeNoRedrawMethodInfo , - widgetQueueResizeNoRedraw , - - --- ** widgetRealize - WidgetRealizeMethodInfo , - widgetRealize , - - --- ** widgetRegionIntersect - WidgetRegionIntersectMethodInfo , - widgetRegionIntersect , - - --- ** widgetRegisterWindow - WidgetRegisterWindowMethodInfo , - widgetRegisterWindow , - - --- ** widgetRemoveAccelerator - WidgetRemoveAcceleratorMethodInfo , - widgetRemoveAccelerator , - - --- ** widgetRemoveMnemonicLabel - WidgetRemoveMnemonicLabelMethodInfo , - widgetRemoveMnemonicLabel , - - --- ** widgetRemoveTickCallback - WidgetRemoveTickCallbackMethodInfo , - widgetRemoveTickCallback , - - --- ** widgetRenderIcon - WidgetRenderIconMethodInfo , - widgetRenderIcon , - - --- ** widgetRenderIconPixbuf - WidgetRenderIconPixbufMethodInfo , - widgetRenderIconPixbuf , - - --- ** widgetReparent - WidgetReparentMethodInfo , - widgetReparent , - - --- ** widgetResetRcStyles - WidgetResetRcStylesMethodInfo , - widgetResetRcStyles , - - --- ** widgetResetStyle - WidgetResetStyleMethodInfo , - widgetResetStyle , - - --- ** widgetSendExpose - WidgetSendExposeMethodInfo , - widgetSendExpose , - - --- ** widgetSendFocusChange - WidgetSendFocusChangeMethodInfo , - widgetSendFocusChange , - - --- ** widgetSetAccelPath - WidgetSetAccelPathMethodInfo , - widgetSetAccelPath , - - --- ** widgetSetAllocation - WidgetSetAllocationMethodInfo , - widgetSetAllocation , - - --- ** widgetSetAppPaintable - WidgetSetAppPaintableMethodInfo , - widgetSetAppPaintable , - - --- ** widgetSetCanDefault - WidgetSetCanDefaultMethodInfo , - widgetSetCanDefault , - - --- ** widgetSetCanFocus - WidgetSetCanFocusMethodInfo , - widgetSetCanFocus , - - --- ** widgetSetChildVisible - WidgetSetChildVisibleMethodInfo , - widgetSetChildVisible , - - --- ** widgetSetClip - WidgetSetClipMethodInfo , - widgetSetClip , - - --- ** widgetSetCompositeName - WidgetSetCompositeNameMethodInfo , - widgetSetCompositeName , - - --- ** widgetSetDefaultDirection - widgetSetDefaultDirection , - - --- ** widgetSetDeviceEnabled - WidgetSetDeviceEnabledMethodInfo , - widgetSetDeviceEnabled , - - --- ** widgetSetDeviceEvents - WidgetSetDeviceEventsMethodInfo , - widgetSetDeviceEvents , - - --- ** widgetSetDirection - WidgetSetDirectionMethodInfo , - widgetSetDirection , - - --- ** widgetSetDoubleBuffered - WidgetSetDoubleBufferedMethodInfo , - widgetSetDoubleBuffered , - - --- ** widgetSetEvents - WidgetSetEventsMethodInfo , - widgetSetEvents , - - --- ** widgetSetFontMap - WidgetSetFontMapMethodInfo , - widgetSetFontMap , - - --- ** widgetSetFontOptions - WidgetSetFontOptionsMethodInfo , - widgetSetFontOptions , - - --- ** widgetSetHalign - WidgetSetHalignMethodInfo , - widgetSetHalign , - - --- ** widgetSetHasTooltip - WidgetSetHasTooltipMethodInfo , - widgetSetHasTooltip , - - --- ** widgetSetHasWindow - WidgetSetHasWindowMethodInfo , - widgetSetHasWindow , - - --- ** widgetSetHexpand - WidgetSetHexpandMethodInfo , - widgetSetHexpand , - - --- ** widgetSetHexpandSet - WidgetSetHexpandSetMethodInfo , - widgetSetHexpandSet , - - --- ** widgetSetMapped - WidgetSetMappedMethodInfo , - widgetSetMapped , - - --- ** widgetSetMarginBottom - WidgetSetMarginBottomMethodInfo , - widgetSetMarginBottom , - - --- ** widgetSetMarginEnd - WidgetSetMarginEndMethodInfo , - widgetSetMarginEnd , - - --- ** widgetSetMarginLeft - WidgetSetMarginLeftMethodInfo , - widgetSetMarginLeft , - - --- ** widgetSetMarginRight - WidgetSetMarginRightMethodInfo , - widgetSetMarginRight , - - --- ** widgetSetMarginStart - WidgetSetMarginStartMethodInfo , - widgetSetMarginStart , - - --- ** widgetSetMarginTop - WidgetSetMarginTopMethodInfo , - widgetSetMarginTop , - - --- ** widgetSetName - WidgetSetNameMethodInfo , - widgetSetName , - - --- ** widgetSetNoShowAll - WidgetSetNoShowAllMethodInfo , - widgetSetNoShowAll , - - --- ** widgetSetOpacity - WidgetSetOpacityMethodInfo , - widgetSetOpacity , - - --- ** widgetSetParent - WidgetSetParentMethodInfo , - widgetSetParent , - - --- ** widgetSetParentWindow - WidgetSetParentWindowMethodInfo , - widgetSetParentWindow , - - --- ** widgetSetRealized - WidgetSetRealizedMethodInfo , - widgetSetRealized , - - --- ** widgetSetReceivesDefault - WidgetSetReceivesDefaultMethodInfo , - widgetSetReceivesDefault , - - --- ** widgetSetRedrawOnAllocate - WidgetSetRedrawOnAllocateMethodInfo , - widgetSetRedrawOnAllocate , - - --- ** widgetSetSensitive - WidgetSetSensitiveMethodInfo , - widgetSetSensitive , - - --- ** widgetSetSizeRequest - WidgetSetSizeRequestMethodInfo , - widgetSetSizeRequest , - - --- ** widgetSetState - WidgetSetStateMethodInfo , - widgetSetState , - - --- ** widgetSetStateFlags - WidgetSetStateFlagsMethodInfo , - widgetSetStateFlags , - - --- ** widgetSetStyle - WidgetSetStyleMethodInfo , - widgetSetStyle , - - --- ** widgetSetSupportMultidevice - WidgetSetSupportMultideviceMethodInfo , - widgetSetSupportMultidevice , - - --- ** widgetSetTooltipMarkup - WidgetSetTooltipMarkupMethodInfo , - widgetSetTooltipMarkup , - - --- ** widgetSetTooltipText - WidgetSetTooltipTextMethodInfo , - widgetSetTooltipText , - - --- ** widgetSetTooltipWindow - WidgetSetTooltipWindowMethodInfo , - widgetSetTooltipWindow , - - --- ** widgetSetValign - WidgetSetValignMethodInfo , - widgetSetValign , - - --- ** widgetSetVexpand - WidgetSetVexpandMethodInfo , - widgetSetVexpand , - - --- ** widgetSetVexpandSet - WidgetSetVexpandSetMethodInfo , - widgetSetVexpandSet , - - --- ** widgetSetVisible - WidgetSetVisibleMethodInfo , - widgetSetVisible , - - --- ** widgetSetVisual - WidgetSetVisualMethodInfo , - widgetSetVisual , - - --- ** widgetSetWindow - WidgetSetWindowMethodInfo , - widgetSetWindow , - - --- ** widgetShapeCombineRegion - WidgetShapeCombineRegionMethodInfo , - widgetShapeCombineRegion , - - --- ** widgetShow - WidgetShowMethodInfo , - widgetShow , - - --- ** widgetShowAll - WidgetShowAllMethodInfo , - widgetShowAll , - - --- ** widgetShowNow - WidgetShowNowMethodInfo , - widgetShowNow , - - --- ** widgetSizeAllocate - WidgetSizeAllocateMethodInfo , - widgetSizeAllocate , - - --- ** widgetSizeAllocateWithBaseline - WidgetSizeAllocateWithBaselineMethodInfo, - widgetSizeAllocateWithBaseline , - - --- ** widgetSizeRequest - WidgetSizeRequestMethodInfo , - widgetSizeRequest , - - --- ** widgetStyleAttach - WidgetStyleAttachMethodInfo , - widgetStyleAttach , - - --- ** widgetStyleGetProperty - WidgetStyleGetPropertyMethodInfo , - widgetStyleGetProperty , - - --- ** widgetThawChildNotify - WidgetThawChildNotifyMethodInfo , - widgetThawChildNotify , - - --- ** widgetTranslateCoordinates - WidgetTranslateCoordinatesMethodInfo , - widgetTranslateCoordinates , - - --- ** widgetTriggerTooltipQuery - WidgetTriggerTooltipQueryMethodInfo , - widgetTriggerTooltipQuery , - - --- ** widgetUnmap - WidgetUnmapMethodInfo , - widgetUnmap , - - --- ** widgetUnparent - WidgetUnparentMethodInfo , - widgetUnparent , - - --- ** widgetUnrealize - WidgetUnrealizeMethodInfo , - widgetUnrealize , - - --- ** widgetUnregisterWindow - WidgetUnregisterWindowMethodInfo , - widgetUnregisterWindow , - - --- ** widgetUnsetStateFlags - WidgetUnsetStateFlagsMethodInfo , - widgetUnsetStateFlags , - - - - - -- * Properties --- ** AppPaintable - WidgetAppPaintablePropertyInfo , - constructWidgetAppPaintable , - getWidgetAppPaintable , - setWidgetAppPaintable , - widgetAppPaintable , - - --- ** CanDefault - WidgetCanDefaultPropertyInfo , - constructWidgetCanDefault , - getWidgetCanDefault , - setWidgetCanDefault , - widgetCanDefault , - - --- ** CanFocus - WidgetCanFocusPropertyInfo , - constructWidgetCanFocus , - getWidgetCanFocus , - setWidgetCanFocus , - widgetCanFocus , - - --- ** CompositeChild - WidgetCompositeChildPropertyInfo , - getWidgetCompositeChild , - widgetCompositeChild , - - --- ** DoubleBuffered - WidgetDoubleBufferedPropertyInfo , - constructWidgetDoubleBuffered , - getWidgetDoubleBuffered , - setWidgetDoubleBuffered , - widgetDoubleBuffered , - - --- ** Events - WidgetEventsPropertyInfo , - constructWidgetEvents , - getWidgetEvents , - setWidgetEvents , - widgetEvents , - - --- ** Expand - WidgetExpandPropertyInfo , - constructWidgetExpand , - getWidgetExpand , - setWidgetExpand , - widgetExpand , - - --- ** Halign - WidgetHalignPropertyInfo , - constructWidgetHalign , - getWidgetHalign , - setWidgetHalign , - widgetHalign , - - --- ** HasDefault - WidgetHasDefaultPropertyInfo , - constructWidgetHasDefault , - getWidgetHasDefault , - setWidgetHasDefault , - - --- ** HasFocus - WidgetHasFocusPropertyInfo , - constructWidgetHasFocus , - getWidgetHasFocus , - setWidgetHasFocus , - - --- ** HasTooltip - WidgetHasTooltipPropertyInfo , - constructWidgetHasTooltip , - getWidgetHasTooltip , - setWidgetHasTooltip , - widgetHasTooltip , - - --- ** HeightRequest - WidgetHeightRequestPropertyInfo , - constructWidgetHeightRequest , - getWidgetHeightRequest , - setWidgetHeightRequest , - widgetHeightRequest , - - --- ** Hexpand - WidgetHexpandPropertyInfo , - constructWidgetHexpand , - getWidgetHexpand , - setWidgetHexpand , - widgetHexpand , - - --- ** HexpandSet - WidgetHexpandSetPropertyInfo , - constructWidgetHexpandSet , - getWidgetHexpandSet , - setWidgetHexpandSet , - widgetHexpandSet , - - --- ** IsFocus - WidgetIsFocusPropertyInfo , - constructWidgetIsFocus , - getWidgetIsFocus , - setWidgetIsFocus , - - --- ** Margin - WidgetMarginPropertyInfo , - constructWidgetMargin , - getWidgetMargin , - setWidgetMargin , - widgetMargin , - - --- ** MarginBottom - WidgetMarginBottomPropertyInfo , - constructWidgetMarginBottom , - getWidgetMarginBottom , - setWidgetMarginBottom , - widgetMarginBottom , - - --- ** MarginEnd - WidgetMarginEndPropertyInfo , - constructWidgetMarginEnd , - getWidgetMarginEnd , - setWidgetMarginEnd , - widgetMarginEnd , - - --- ** MarginLeft - WidgetMarginLeftPropertyInfo , - constructWidgetMarginLeft , - getWidgetMarginLeft , - setWidgetMarginLeft , - widgetMarginLeft , - - --- ** MarginRight - WidgetMarginRightPropertyInfo , - constructWidgetMarginRight , - getWidgetMarginRight , - setWidgetMarginRight , - widgetMarginRight , - - --- ** MarginStart - WidgetMarginStartPropertyInfo , - constructWidgetMarginStart , - getWidgetMarginStart , - setWidgetMarginStart , - widgetMarginStart , - - --- ** MarginTop - WidgetMarginTopPropertyInfo , - constructWidgetMarginTop , - getWidgetMarginTop , - setWidgetMarginTop , - widgetMarginTop , - - --- ** Name - WidgetNamePropertyInfo , - constructWidgetName , - getWidgetName , - setWidgetName , - widgetName , - - --- ** NoShowAll - WidgetNoShowAllPropertyInfo , - constructWidgetNoShowAll , - getWidgetNoShowAll , - setWidgetNoShowAll , - widgetNoShowAll , - - --- ** Opacity - WidgetOpacityPropertyInfo , - constructWidgetOpacity , - getWidgetOpacity , - setWidgetOpacity , - widgetOpacity , - - --- ** Parent - WidgetParentPropertyInfo , - clearWidgetParent , - constructWidgetParent , - getWidgetParent , - setWidgetParent , - widgetParent , - - --- ** ReceivesDefault - WidgetReceivesDefaultPropertyInfo , - constructWidgetReceivesDefault , - getWidgetReceivesDefault , - setWidgetReceivesDefault , - widgetReceivesDefault , - - --- ** ScaleFactor - WidgetScaleFactorPropertyInfo , - getWidgetScaleFactor , - widgetScaleFactor , - - --- ** Sensitive - WidgetSensitivePropertyInfo , - constructWidgetSensitive , - getWidgetSensitive , - setWidgetSensitive , - widgetSensitive , - - --- ** Style - WidgetStylePropertyInfo , - clearWidgetStyle , - constructWidgetStyle , - getWidgetStyle , - setWidgetStyle , - widgetStyle , - - --- ** TooltipMarkup - WidgetTooltipMarkupPropertyInfo , - clearWidgetTooltipMarkup , - constructWidgetTooltipMarkup , - getWidgetTooltipMarkup , - setWidgetTooltipMarkup , - widgetTooltipMarkup , - - --- ** TooltipText - WidgetTooltipTextPropertyInfo , - clearWidgetTooltipText , - constructWidgetTooltipText , - getWidgetTooltipText , - setWidgetTooltipText , - widgetTooltipText , - - --- ** Valign - WidgetValignPropertyInfo , - constructWidgetValign , - getWidgetValign , - setWidgetValign , - widgetValign , - - --- ** Vexpand - WidgetVexpandPropertyInfo , - constructWidgetVexpand , - getWidgetVexpand , - setWidgetVexpand , - widgetVexpand , - - --- ** VexpandSet - WidgetVexpandSetPropertyInfo , - constructWidgetVexpandSet , - getWidgetVexpandSet , - setWidgetVexpandSet , - widgetVexpandSet , - - --- ** Visible - WidgetVisiblePropertyInfo , - constructWidgetVisible , - getWidgetVisible , - setWidgetVisible , - widgetVisible , - - --- ** WidthRequest - WidgetWidthRequestPropertyInfo , - constructWidgetWidthRequest , - getWidgetWidthRequest , - setWidgetWidthRequest , - widgetWidthRequest , - - --- ** Window - WidgetWindowPropertyInfo , - getWidgetWindow , - widgetWindow , - - - - - -- * Signals --- ** AccelClosuresChanged - WidgetAccelClosuresChangedCallback , - WidgetAccelClosuresChangedCallbackC , - WidgetAccelClosuresChangedSignalInfo , - afterWidgetAccelClosuresChanged , - mkWidgetAccelClosuresChangedCallback , - noWidgetAccelClosuresChangedCallback , - onWidgetAccelClosuresChanged , - widgetAccelClosuresChangedCallbackWrapper, - widgetAccelClosuresChangedClosure , - - --- ** ButtonPressEvent - WidgetButtonPressEventCallback , - WidgetButtonPressEventCallbackC , - WidgetButtonPressEventSignalInfo , - afterWidgetButtonPressEvent , - mkWidgetButtonPressEventCallback , - noWidgetButtonPressEventCallback , - onWidgetButtonPressEvent , - widgetButtonPressEventCallbackWrapper , - widgetButtonPressEventClosure , - - --- ** ButtonReleaseEvent - WidgetButtonReleaseEventCallback , - WidgetButtonReleaseEventCallbackC , - WidgetButtonReleaseEventSignalInfo , - afterWidgetButtonReleaseEvent , - mkWidgetButtonReleaseEventCallback , - noWidgetButtonReleaseEventCallback , - onWidgetButtonReleaseEvent , - widgetButtonReleaseEventCallbackWrapper , - widgetButtonReleaseEventClosure , - - --- ** CanActivateAccel - WidgetCanActivateAccelCallback , - WidgetCanActivateAccelCallbackC , - WidgetCanActivateAccelSignalInfo , - afterWidgetCanActivateAccel , - mkWidgetCanActivateAccelCallback , - noWidgetCanActivateAccelCallback , - onWidgetCanActivateAccel , - widgetCanActivateAccelCallbackWrapper , - widgetCanActivateAccelClosure , - - --- ** ChildNotify - WidgetChildNotifyCallback , - WidgetChildNotifyCallbackC , - WidgetChildNotifySignalInfo , - afterWidgetChildNotify , - mkWidgetChildNotifyCallback , - noWidgetChildNotifyCallback , - onWidgetChildNotify , - widgetChildNotifyCallbackWrapper , - widgetChildNotifyClosure , - - --- ** CompositedChanged - WidgetCompositedChangedCallback , - WidgetCompositedChangedCallbackC , - WidgetCompositedChangedSignalInfo , - afterWidgetCompositedChanged , - mkWidgetCompositedChangedCallback , - noWidgetCompositedChangedCallback , - onWidgetCompositedChanged , - widgetCompositedChangedCallbackWrapper , - widgetCompositedChangedClosure , - - --- ** ConfigureEvent - WidgetConfigureEventCallback , - WidgetConfigureEventCallbackC , - WidgetConfigureEventSignalInfo , - afterWidgetConfigureEvent , - mkWidgetConfigureEventCallback , - noWidgetConfigureEventCallback , - onWidgetConfigureEvent , - widgetConfigureEventCallbackWrapper , - widgetConfigureEventClosure , - - --- ** DamageEvent - WidgetDamageEventCallback , - WidgetDamageEventCallbackC , - WidgetDamageEventSignalInfo , - afterWidgetDamageEvent , - mkWidgetDamageEventCallback , - noWidgetDamageEventCallback , - onWidgetDamageEvent , - widgetDamageEventCallbackWrapper , - widgetDamageEventClosure , - - --- ** DeleteEvent - WidgetDeleteEventCallback , - WidgetDeleteEventCallbackC , - WidgetDeleteEventSignalInfo , - afterWidgetDeleteEvent , - mkWidgetDeleteEventCallback , - noWidgetDeleteEventCallback , - onWidgetDeleteEvent , - widgetDeleteEventCallbackWrapper , - widgetDeleteEventClosure , - - --- ** Destroy - WidgetDestroyCallback , - WidgetDestroyCallbackC , - WidgetDestroySignalInfo , - afterWidgetDestroy , - mkWidgetDestroyCallback , - noWidgetDestroyCallback , - onWidgetDestroy , - widgetDestroyCallbackWrapper , - widgetDestroyClosure , - - --- ** DestroyEvent - WidgetDestroyEventCallback , - WidgetDestroyEventCallbackC , - WidgetDestroyEventSignalInfo , - afterWidgetDestroyEvent , - mkWidgetDestroyEventCallback , - noWidgetDestroyEventCallback , - onWidgetDestroyEvent , - widgetDestroyEventCallbackWrapper , - widgetDestroyEventClosure , - - --- ** DirectionChanged - WidgetDirectionChangedCallback , - WidgetDirectionChangedCallbackC , - WidgetDirectionChangedSignalInfo , - afterWidgetDirectionChanged , - mkWidgetDirectionChangedCallback , - noWidgetDirectionChangedCallback , - onWidgetDirectionChanged , - widgetDirectionChangedCallbackWrapper , - widgetDirectionChangedClosure , - - --- ** DragBegin - WidgetDragBeginCallback , - WidgetDragBeginCallbackC , - WidgetDragBeginSignalInfo , - afterWidgetDragBegin , - mkWidgetDragBeginCallback , - noWidgetDragBeginCallback , - onWidgetDragBegin , - widgetDragBeginCallbackWrapper , - widgetDragBeginClosure , - - --- ** DragDataDelete - WidgetDragDataDeleteCallback , - WidgetDragDataDeleteCallbackC , - WidgetDragDataDeleteSignalInfo , - afterWidgetDragDataDelete , - mkWidgetDragDataDeleteCallback , - noWidgetDragDataDeleteCallback , - onWidgetDragDataDelete , - widgetDragDataDeleteCallbackWrapper , - widgetDragDataDeleteClosure , - - --- ** DragDataGet - WidgetDragDataGetCallback , - WidgetDragDataGetCallbackC , - WidgetDragDataGetSignalInfo , - afterWidgetDragDataGet , - mkWidgetDragDataGetCallback , - noWidgetDragDataGetCallback , - onWidgetDragDataGet , - widgetDragDataGetCallbackWrapper , - widgetDragDataGetClosure , - - --- ** DragDataReceived - WidgetDragDataReceivedCallback , - WidgetDragDataReceivedCallbackC , - WidgetDragDataReceivedSignalInfo , - afterWidgetDragDataReceived , - mkWidgetDragDataReceivedCallback , - noWidgetDragDataReceivedCallback , - onWidgetDragDataReceived , - widgetDragDataReceivedCallbackWrapper , - widgetDragDataReceivedClosure , - - --- ** DragDrop - WidgetDragDropCallback , - WidgetDragDropCallbackC , - WidgetDragDropSignalInfo , - afterWidgetDragDrop , - mkWidgetDragDropCallback , - noWidgetDragDropCallback , - onWidgetDragDrop , - widgetDragDropCallbackWrapper , - widgetDragDropClosure , - - --- ** DragEnd - WidgetDragEndCallback , - WidgetDragEndCallbackC , - WidgetDragEndSignalInfo , - afterWidgetDragEnd , - mkWidgetDragEndCallback , - noWidgetDragEndCallback , - onWidgetDragEnd , - widgetDragEndCallbackWrapper , - widgetDragEndClosure , - - --- ** DragFailed - WidgetDragFailedCallback , - WidgetDragFailedCallbackC , - WidgetDragFailedSignalInfo , - afterWidgetDragFailed , - mkWidgetDragFailedCallback , - noWidgetDragFailedCallback , - onWidgetDragFailed , - widgetDragFailedCallbackWrapper , - widgetDragFailedClosure , - - --- ** DragLeave - WidgetDragLeaveCallback , - WidgetDragLeaveCallbackC , - WidgetDragLeaveSignalInfo , - afterWidgetDragLeave , - mkWidgetDragLeaveCallback , - noWidgetDragLeaveCallback , - onWidgetDragLeave , - widgetDragLeaveCallbackWrapper , - widgetDragLeaveClosure , - - --- ** DragMotion - WidgetDragMotionCallback , - WidgetDragMotionCallbackC , - WidgetDragMotionSignalInfo , - afterWidgetDragMotion , - mkWidgetDragMotionCallback , - noWidgetDragMotionCallback , - onWidgetDragMotion , - widgetDragMotionCallbackWrapper , - widgetDragMotionClosure , - - --- ** Draw - WidgetDrawCallback , - WidgetDrawCallbackC , - WidgetDrawSignalInfo , - afterWidgetDraw , - mkWidgetDrawCallback , - noWidgetDrawCallback , - onWidgetDraw , - widgetDrawCallbackWrapper , - widgetDrawClosure , - - --- ** EnterNotifyEvent - WidgetEnterNotifyEventCallback , - WidgetEnterNotifyEventCallbackC , - WidgetEnterNotifyEventSignalInfo , - afterWidgetEnterNotifyEvent , - mkWidgetEnterNotifyEventCallback , - noWidgetEnterNotifyEventCallback , - onWidgetEnterNotifyEvent , - widgetEnterNotifyEventCallbackWrapper , - widgetEnterNotifyEventClosure , - - --- ** Event - WidgetEventCallback , - WidgetEventCallbackC , - WidgetEventSignalInfo , - afterWidgetEvent , - mkWidgetEventCallback , - noWidgetEventCallback , - onWidgetEvent , - widgetEventCallbackWrapper , - widgetEventClosure , - - --- ** EventAfter - WidgetEventAfterCallback , - WidgetEventAfterCallbackC , - WidgetEventAfterSignalInfo , - afterWidgetEventAfter , - mkWidgetEventAfterCallback , - noWidgetEventAfterCallback , - onWidgetEventAfter , - widgetEventAfterCallbackWrapper , - widgetEventAfterClosure , - - --- ** Focus - WidgetFocusCallback , - WidgetFocusCallbackC , - WidgetFocusSignalInfo , - afterWidgetFocus , - mkWidgetFocusCallback , - noWidgetFocusCallback , - onWidgetFocus , - widgetFocusCallbackWrapper , - widgetFocusClosure , - - --- ** FocusInEvent - WidgetFocusInEventCallback , - WidgetFocusInEventCallbackC , - WidgetFocusInEventSignalInfo , - afterWidgetFocusInEvent , - mkWidgetFocusInEventCallback , - noWidgetFocusInEventCallback , - onWidgetFocusInEvent , - widgetFocusInEventCallbackWrapper , - widgetFocusInEventClosure , - - --- ** FocusOutEvent - WidgetFocusOutEventCallback , - WidgetFocusOutEventCallbackC , - WidgetFocusOutEventSignalInfo , - afterWidgetFocusOutEvent , - mkWidgetFocusOutEventCallback , - noWidgetFocusOutEventCallback , - onWidgetFocusOutEvent , - widgetFocusOutEventCallbackWrapper , - widgetFocusOutEventClosure , - - --- ** GrabBrokenEvent - WidgetGrabBrokenEventCallback , - WidgetGrabBrokenEventCallbackC , - WidgetGrabBrokenEventSignalInfo , - afterWidgetGrabBrokenEvent , - mkWidgetGrabBrokenEventCallback , - noWidgetGrabBrokenEventCallback , - onWidgetGrabBrokenEvent , - widgetGrabBrokenEventCallbackWrapper , - widgetGrabBrokenEventClosure , - - --- ** GrabFocus - WidgetGrabFocusCallback , - WidgetGrabFocusCallbackC , - WidgetGrabFocusSignalInfo , - afterWidgetGrabFocus , - mkWidgetGrabFocusCallback , - noWidgetGrabFocusCallback , - onWidgetGrabFocus , - widgetGrabFocusCallbackWrapper , - widgetGrabFocusClosure , - - --- ** GrabNotify - WidgetGrabNotifyCallback , - WidgetGrabNotifyCallbackC , - WidgetGrabNotifySignalInfo , - afterWidgetGrabNotify , - mkWidgetGrabNotifyCallback , - noWidgetGrabNotifyCallback , - onWidgetGrabNotify , - widgetGrabNotifyCallbackWrapper , - widgetGrabNotifyClosure , - - --- ** Hide - WidgetHideCallback , - WidgetHideCallbackC , - WidgetHideSignalInfo , - afterWidgetHide , - mkWidgetHideCallback , - noWidgetHideCallback , - onWidgetHide , - widgetHideCallbackWrapper , - widgetHideClosure , - - --- ** HierarchyChanged - WidgetHierarchyChangedCallback , - WidgetHierarchyChangedCallbackC , - WidgetHierarchyChangedSignalInfo , - afterWidgetHierarchyChanged , - mkWidgetHierarchyChangedCallback , - noWidgetHierarchyChangedCallback , - onWidgetHierarchyChanged , - widgetHierarchyChangedCallbackWrapper , - widgetHierarchyChangedClosure , - - --- ** KeyPressEvent - WidgetKeyPressEventCallback , - WidgetKeyPressEventCallbackC , - WidgetKeyPressEventSignalInfo , - afterWidgetKeyPressEvent , - mkWidgetKeyPressEventCallback , - noWidgetKeyPressEventCallback , - onWidgetKeyPressEvent , - widgetKeyPressEventCallbackWrapper , - widgetKeyPressEventClosure , - - --- ** KeyReleaseEvent - WidgetKeyReleaseEventCallback , - WidgetKeyReleaseEventCallbackC , - WidgetKeyReleaseEventSignalInfo , - afterWidgetKeyReleaseEvent , - mkWidgetKeyReleaseEventCallback , - noWidgetKeyReleaseEventCallback , - onWidgetKeyReleaseEvent , - widgetKeyReleaseEventCallbackWrapper , - widgetKeyReleaseEventClosure , - - --- ** KeynavFailed - WidgetKeynavFailedCallback , - WidgetKeynavFailedCallbackC , - WidgetKeynavFailedSignalInfo , - afterWidgetKeynavFailed , - mkWidgetKeynavFailedCallback , - noWidgetKeynavFailedCallback , - onWidgetKeynavFailed , - widgetKeynavFailedCallbackWrapper , - widgetKeynavFailedClosure , - - --- ** LeaveNotifyEvent - WidgetLeaveNotifyEventCallback , - WidgetLeaveNotifyEventCallbackC , - WidgetLeaveNotifyEventSignalInfo , - afterWidgetLeaveNotifyEvent , - mkWidgetLeaveNotifyEventCallback , - noWidgetLeaveNotifyEventCallback , - onWidgetLeaveNotifyEvent , - widgetLeaveNotifyEventCallbackWrapper , - widgetLeaveNotifyEventClosure , - - --- ** Map - WidgetMapCallback , - WidgetMapCallbackC , - WidgetMapSignalInfo , - afterWidgetMap , - mkWidgetMapCallback , - noWidgetMapCallback , - onWidgetMap , - widgetMapCallbackWrapper , - widgetMapClosure , - - --- ** MapEvent - WidgetMapEventCallback , - WidgetMapEventCallbackC , - WidgetMapEventSignalInfo , - afterWidgetMapEvent , - mkWidgetMapEventCallback , - noWidgetMapEventCallback , - onWidgetMapEvent , - widgetMapEventCallbackWrapper , - widgetMapEventClosure , - - --- ** MnemonicActivate - WidgetMnemonicActivateCallback , - WidgetMnemonicActivateCallbackC , - WidgetMnemonicActivateSignalInfo , - afterWidgetMnemonicActivate , - mkWidgetMnemonicActivateCallback , - noWidgetMnemonicActivateCallback , - onWidgetMnemonicActivate , - widgetMnemonicActivateCallbackWrapper , - widgetMnemonicActivateClosure , - - --- ** MotionNotifyEvent - WidgetMotionNotifyEventCallback , - WidgetMotionNotifyEventCallbackC , - WidgetMotionNotifyEventSignalInfo , - afterWidgetMotionNotifyEvent , - mkWidgetMotionNotifyEventCallback , - noWidgetMotionNotifyEventCallback , - onWidgetMotionNotifyEvent , - widgetMotionNotifyEventCallbackWrapper , - widgetMotionNotifyEventClosure , - - --- ** MoveFocus - WidgetMoveFocusCallback , - WidgetMoveFocusCallbackC , - WidgetMoveFocusSignalInfo , - afterWidgetMoveFocus , - mkWidgetMoveFocusCallback , - noWidgetMoveFocusCallback , - onWidgetMoveFocus , - widgetMoveFocusCallbackWrapper , - widgetMoveFocusClosure , - - --- ** ParentSet - WidgetParentSetCallback , - WidgetParentSetCallbackC , - WidgetParentSetSignalInfo , - afterWidgetParentSet , - mkWidgetParentSetCallback , - noWidgetParentSetCallback , - onWidgetParentSet , - widgetParentSetCallbackWrapper , - widgetParentSetClosure , - - --- ** PopupMenu - WidgetPopupMenuCallback , - WidgetPopupMenuCallbackC , - WidgetPopupMenuSignalInfo , - afterWidgetPopupMenu , - mkWidgetPopupMenuCallback , - noWidgetPopupMenuCallback , - onWidgetPopupMenu , - widgetPopupMenuCallbackWrapper , - widgetPopupMenuClosure , - - --- ** PropertyNotifyEvent - WidgetPropertyNotifyEventCallback , - WidgetPropertyNotifyEventCallbackC , - WidgetPropertyNotifyEventSignalInfo , - afterWidgetPropertyNotifyEvent , - mkWidgetPropertyNotifyEventCallback , - noWidgetPropertyNotifyEventCallback , - onWidgetPropertyNotifyEvent , - widgetPropertyNotifyEventCallbackWrapper, - widgetPropertyNotifyEventClosure , - - --- ** ProximityInEvent - WidgetProximityInEventCallback , - WidgetProximityInEventCallbackC , - WidgetProximityInEventSignalInfo , - afterWidgetProximityInEvent , - mkWidgetProximityInEventCallback , - noWidgetProximityInEventCallback , - onWidgetProximityInEvent , - widgetProximityInEventCallbackWrapper , - widgetProximityInEventClosure , - - --- ** ProximityOutEvent - WidgetProximityOutEventCallback , - WidgetProximityOutEventCallbackC , - WidgetProximityOutEventSignalInfo , - afterWidgetProximityOutEvent , - mkWidgetProximityOutEventCallback , - noWidgetProximityOutEventCallback , - onWidgetProximityOutEvent , - widgetProximityOutEventCallbackWrapper , - widgetProximityOutEventClosure , - - --- ** QueryTooltip - WidgetQueryTooltipCallback , - WidgetQueryTooltipCallbackC , - WidgetQueryTooltipSignalInfo , - afterWidgetQueryTooltip , - mkWidgetQueryTooltipCallback , - noWidgetQueryTooltipCallback , - onWidgetQueryTooltip , - widgetQueryTooltipCallbackWrapper , - widgetQueryTooltipClosure , - - --- ** Realize - WidgetRealizeCallback , - WidgetRealizeCallbackC , - WidgetRealizeSignalInfo , - afterWidgetRealize , - mkWidgetRealizeCallback , - noWidgetRealizeCallback , - onWidgetRealize , - widgetRealizeCallbackWrapper , - widgetRealizeClosure , - - --- ** ScreenChanged - WidgetScreenChangedCallback , - WidgetScreenChangedCallbackC , - WidgetScreenChangedSignalInfo , - afterWidgetScreenChanged , - mkWidgetScreenChangedCallback , - noWidgetScreenChangedCallback , - onWidgetScreenChanged , - widgetScreenChangedCallbackWrapper , - widgetScreenChangedClosure , - - --- ** ScrollEvent - WidgetScrollEventCallback , - WidgetScrollEventCallbackC , - WidgetScrollEventSignalInfo , - afterWidgetScrollEvent , - mkWidgetScrollEventCallback , - noWidgetScrollEventCallback , - onWidgetScrollEvent , - widgetScrollEventCallbackWrapper , - widgetScrollEventClosure , - - --- ** SelectionClearEvent - WidgetSelectionClearEventCallback , - WidgetSelectionClearEventCallbackC , - WidgetSelectionClearEventSignalInfo , - afterWidgetSelectionClearEvent , - mkWidgetSelectionClearEventCallback , - noWidgetSelectionClearEventCallback , - onWidgetSelectionClearEvent , - widgetSelectionClearEventCallbackWrapper, - widgetSelectionClearEventClosure , - - --- ** SelectionGet - WidgetSelectionGetCallback , - WidgetSelectionGetCallbackC , - WidgetSelectionGetSignalInfo , - afterWidgetSelectionGet , - mkWidgetSelectionGetCallback , - noWidgetSelectionGetCallback , - onWidgetSelectionGet , - widgetSelectionGetCallbackWrapper , - widgetSelectionGetClosure , - - --- ** SelectionNotifyEvent - WidgetSelectionNotifyEventCallback , - WidgetSelectionNotifyEventCallbackC , - WidgetSelectionNotifyEventSignalInfo , - afterWidgetSelectionNotifyEvent , - mkWidgetSelectionNotifyEventCallback , - noWidgetSelectionNotifyEventCallback , - onWidgetSelectionNotifyEvent , - widgetSelectionNotifyEventCallbackWrapper, - widgetSelectionNotifyEventClosure , - - --- ** SelectionReceived - WidgetSelectionReceivedCallback , - WidgetSelectionReceivedCallbackC , - WidgetSelectionReceivedSignalInfo , - afterWidgetSelectionReceived , - mkWidgetSelectionReceivedCallback , - noWidgetSelectionReceivedCallback , - onWidgetSelectionReceived , - widgetSelectionReceivedCallbackWrapper , - widgetSelectionReceivedClosure , - - --- ** SelectionRequestEvent - WidgetSelectionRequestEventCallback , - WidgetSelectionRequestEventCallbackC , - WidgetSelectionRequestEventSignalInfo , - afterWidgetSelectionRequestEvent , - mkWidgetSelectionRequestEventCallback , - noWidgetSelectionRequestEventCallback , - onWidgetSelectionRequestEvent , - widgetSelectionRequestEventCallbackWrapper, - widgetSelectionRequestEventClosure , - - --- ** Show - WidgetShowCallback , - WidgetShowCallbackC , - WidgetShowSignalInfo , - afterWidgetShow , - mkWidgetShowCallback , - noWidgetShowCallback , - onWidgetShow , - widgetShowCallbackWrapper , - widgetShowClosure , - - --- ** ShowHelp - WidgetShowHelpCallback , - WidgetShowHelpCallbackC , - WidgetShowHelpSignalInfo , - afterWidgetShowHelp , - mkWidgetShowHelpCallback , - noWidgetShowHelpCallback , - onWidgetShowHelp , - widgetShowHelpCallbackWrapper , - widgetShowHelpClosure , - - --- ** SizeAllocate - WidgetSizeAllocateCallback , - WidgetSizeAllocateCallbackC , - WidgetSizeAllocateSignalInfo , - afterWidgetSizeAllocate , - mkWidgetSizeAllocateCallback , - noWidgetSizeAllocateCallback , - onWidgetSizeAllocate , - widgetSizeAllocateCallbackWrapper , - widgetSizeAllocateClosure , - - --- ** StateChanged - WidgetStateChangedCallback , - WidgetStateChangedCallbackC , - WidgetStateChangedSignalInfo , - afterWidgetStateChanged , - mkWidgetStateChangedCallback , - noWidgetStateChangedCallback , - onWidgetStateChanged , - widgetStateChangedCallbackWrapper , - widgetStateChangedClosure , - - --- ** StateFlagsChanged - WidgetStateFlagsChangedCallback , - WidgetStateFlagsChangedCallbackC , - WidgetStateFlagsChangedSignalInfo , - afterWidgetStateFlagsChanged , - mkWidgetStateFlagsChangedCallback , - noWidgetStateFlagsChangedCallback , - onWidgetStateFlagsChanged , - widgetStateFlagsChangedCallbackWrapper , - widgetStateFlagsChangedClosure , - - --- ** StyleSet - WidgetStyleSetCallback , - WidgetStyleSetCallbackC , - WidgetStyleSetSignalInfo , - afterWidgetStyleSet , - mkWidgetStyleSetCallback , - noWidgetStyleSetCallback , - onWidgetStyleSet , - widgetStyleSetCallbackWrapper , - widgetStyleSetClosure , - - --- ** StyleUpdated - WidgetStyleUpdatedCallback , - WidgetStyleUpdatedCallbackC , - WidgetStyleUpdatedSignalInfo , - afterWidgetStyleUpdated , - mkWidgetStyleUpdatedCallback , - noWidgetStyleUpdatedCallback , - onWidgetStyleUpdated , - widgetStyleUpdatedCallbackWrapper , - widgetStyleUpdatedClosure , - - --- ** TouchEvent - WidgetTouchEventCallback , - WidgetTouchEventCallbackC , - WidgetTouchEventSignalInfo , - afterWidgetTouchEvent , - mkWidgetTouchEventCallback , - noWidgetTouchEventCallback , - onWidgetTouchEvent , - widgetTouchEventCallbackWrapper , - widgetTouchEventClosure , - - --- ** Unmap - WidgetUnmapCallback , - WidgetUnmapCallbackC , - WidgetUnmapSignalInfo , - afterWidgetUnmap , - mkWidgetUnmapCallback , - noWidgetUnmapCallback , - onWidgetUnmap , - widgetUnmapCallbackWrapper , - widgetUnmapClosure , - - --- ** UnmapEvent - WidgetUnmapEventCallback , - WidgetUnmapEventCallbackC , - WidgetUnmapEventSignalInfo , - afterWidgetUnmapEvent , - mkWidgetUnmapEventCallback , - noWidgetUnmapEventCallback , - onWidgetUnmapEvent , - widgetUnmapEventCallbackWrapper , - widgetUnmapEventClosure , - - --- ** Unrealize - WidgetUnrealizeCallback , - WidgetUnrealizeCallbackC , - WidgetUnrealizeSignalInfo , - afterWidgetUnrealize , - mkWidgetUnrealizeCallback , - noWidgetUnrealizeCallback , - onWidgetUnrealize , - widgetUnrealizeCallbackWrapper , - widgetUnrealizeClosure , - - --- ** VisibilityNotifyEvent - WidgetVisibilityNotifyEventCallback , - WidgetVisibilityNotifyEventCallbackC , - WidgetVisibilityNotifyEventSignalInfo , - afterWidgetVisibilityNotifyEvent , - mkWidgetVisibilityNotifyEventCallback , - noWidgetVisibilityNotifyEventCallback , - onWidgetVisibilityNotifyEvent , - widgetVisibilityNotifyEventCallbackWrapper, - widgetVisibilityNotifyEventClosure , - - --- ** WindowStateEvent - WidgetWindowStateEventCallback , - WidgetWindowStateEventCallbackC , - WidgetWindowStateEventSignalInfo , - afterWidgetWindowStateEvent , - mkWidgetWindowStateEventCallback , - noWidgetWindowStateEventCallback , - onWidgetWindowStateEvent , - widgetWindowStateEventCallbackWrapper , - widgetWindowStateEventClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - -newtype Widget = Widget (ForeignPtr Widget) -foreign import ccall "gtk_widget_get_type" - c_gtk_widget_get_type :: IO GType - -type instance ParentTypes Widget = WidgetParentTypes -type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Widget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_widget_get_type - - -class GObject o => WidgetK o -instance (GObject o, IsDescendantOf Widget o) => WidgetK o - -toWidget :: WidgetK o => o -> IO Widget -toWidget = unsafeCastTo Widget - -noWidget :: Maybe Widget -noWidget = Nothing - -type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveWidgetMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveWidgetMethod "event" o = WidgetEventMethodInfo - ResolveWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveWidgetMethod "map" o = WidgetMapMethodInfo - ResolveWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveWidgetMethod "path" o = WidgetPathMethodInfo - ResolveWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveWidgetMethod "show" o = WidgetShowMethodInfo - ResolveWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabelProxy t (Widget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabel t (Widget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Widget::accel-closures-changed -type WidgetAccelClosuresChangedCallback = - IO () - -noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback -noWidgetAccelClosuresChangedCallback = Nothing - -type WidgetAccelClosuresChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC) - -widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure -widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped - where wrapped = widgetAccelClosuresChangedCallbackWrapper cb - -widgetAccelClosuresChangedCallbackWrapper :: - WidgetAccelClosuresChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore -afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter - -connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => - a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetAccelClosuresChanged obj cb after = liftIO $ do - cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb) - connectSignalFunPtr obj "accel-closures-changed" cb' after - --- signal Widget::button-press-event -type WidgetButtonPressEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback -noWidgetButtonPressEventCallback = Nothing - -type WidgetButtonPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC) - -widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure -widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped - where wrapped = widgetButtonPressEventCallbackWrapper cb - -widgetButtonPressEventCallbackWrapper :: - WidgetButtonPressEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore -afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter - -connectWidgetButtonPressEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb) - connectSignalFunPtr obj "button-press-event" cb' after - --- signal Widget::button-release-event -type WidgetButtonReleaseEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback -noWidgetButtonReleaseEventCallback = Nothing - -type WidgetButtonReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC) - -widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure -widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped - where wrapped = widgetButtonReleaseEventCallbackWrapper cb - -widgetButtonReleaseEventCallbackWrapper :: - WidgetButtonReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore -afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter - -connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "button-release-event" cb' after - --- signal Widget::can-activate-accel -type WidgetCanActivateAccelCallback = - Word32 -> - IO Bool - -noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback -noWidgetCanActivateAccelCallback = Nothing - -type WidgetCanActivateAccelCallbackC = - Ptr () -> -- object - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC) - -widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure -widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped - where wrapped = widgetCanActivateAccelCallbackWrapper cb - -widgetCanActivateAccelCallbackWrapper :: - WidgetCanActivateAccelCallback -> - Ptr () -> - Word32 -> - Ptr () -> - IO CInt -widgetCanActivateAccelCallbackWrapper _cb _ signalId _ = do - result <- _cb signalId - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore -afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter - -connectWidgetCanActivateAccel :: (GObject a, MonadIO m) => - a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCanActivateAccel obj cb after = liftIO $ do - cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb) - connectSignalFunPtr obj "can-activate-accel" cb' after - --- signal Widget::child-notify -type WidgetChildNotifyCallback = - GParamSpec -> - IO () - -noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback -noWidgetChildNotifyCallback = Nothing - -type WidgetChildNotifyCallbackC = - Ptr () -> -- object - Ptr GParamSpec -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC) - -widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure -widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped - where wrapped = widgetChildNotifyCallbackWrapper cb - -widgetChildNotifyCallbackWrapper :: - WidgetChildNotifyCallback -> - Ptr () -> - Ptr GParamSpec -> - Ptr () -> - IO () -widgetChildNotifyCallbackWrapper _cb _ childProperty _ = do - childProperty' <- newGParamSpecFromPtr childProperty - _cb childProperty' - -onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore -afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter - -connectWidgetChildNotify :: (GObject a, MonadIO m) => - a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetChildNotify obj cb after = liftIO $ do - cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb) - connectSignalFunPtr obj "child-notify" cb' after - --- signal Widget::composited-changed -type WidgetCompositedChangedCallback = - IO () - -noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback -noWidgetCompositedChangedCallback = Nothing - -type WidgetCompositedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC) - -widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure -widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped - where wrapped = widgetCompositedChangedCallbackWrapper cb - -widgetCompositedChangedCallbackWrapper :: - WidgetCompositedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetCompositedChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore -afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter - -connectWidgetCompositedChanged :: (GObject a, MonadIO m) => - a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCompositedChanged obj cb after = liftIO $ do - cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb) - connectSignalFunPtr obj "composited-changed" cb' after - --- signal Widget::configure-event -type WidgetConfigureEventCallback = - Gdk.EventConfigure -> - IO Bool - -noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback -noWidgetConfigureEventCallback = Nothing - -type WidgetConfigureEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventConfigure -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC) - -widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure -widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped - where wrapped = widgetConfigureEventCallbackWrapper cb - -widgetConfigureEventCallbackWrapper :: - WidgetConfigureEventCallback -> - Ptr () -> - Ptr Gdk.EventConfigure -> - Ptr () -> - IO CInt -widgetConfigureEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventConfigure) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore -afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter - -connectWidgetConfigureEvent :: (GObject a, MonadIO m) => - a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetConfigureEvent obj cb after = liftIO $ do - cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb) - connectSignalFunPtr obj "configure-event" cb' after - --- signal Widget::damage-event -type WidgetDamageEventCallback = - Gdk.EventExpose -> - IO Bool - -noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback -noWidgetDamageEventCallback = Nothing - -type WidgetDamageEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventExpose -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC) - -widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure -widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped - where wrapped = widgetDamageEventCallbackWrapper cb - -widgetDamageEventCallbackWrapper :: - WidgetDamageEventCallback -> - Ptr () -> - Ptr Gdk.EventExpose -> - Ptr () -> - IO CInt -widgetDamageEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventExpose) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore -afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter - -connectWidgetDamageEvent :: (GObject a, MonadIO m) => - a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDamageEvent obj cb after = liftIO $ do - cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb) - connectSignalFunPtr obj "damage-event" cb' after - --- signal Widget::delete-event -type WidgetDeleteEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback -noWidgetDeleteEventCallback = Nothing - -type WidgetDeleteEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC) - -widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure -widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped - where wrapped = widgetDeleteEventCallbackWrapper cb - -widgetDeleteEventCallbackWrapper :: - WidgetDeleteEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDeleteEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore -afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter - -connectWidgetDeleteEvent :: (GObject a, MonadIO m) => - a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDeleteEvent obj cb after = liftIO $ do - cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb) - connectSignalFunPtr obj "delete-event" cb' after - --- signal Widget::destroy -type WidgetDestroyCallback = - IO () - -noWidgetDestroyCallback :: Maybe WidgetDestroyCallback -noWidgetDestroyCallback = Nothing - -type WidgetDestroyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC) - -widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure -widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped - where wrapped = widgetDestroyCallbackWrapper cb - -widgetDestroyCallbackWrapper :: - WidgetDestroyCallback -> - Ptr () -> - Ptr () -> - IO () -widgetDestroyCallbackWrapper _cb _ _ = do - _cb - -onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore -afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter - -connectWidgetDestroy :: (GObject a, MonadIO m) => - a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroy obj cb after = liftIO $ do - cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb) - connectSignalFunPtr obj "destroy" cb' after - --- signal Widget::destroy-event -type WidgetDestroyEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback -noWidgetDestroyEventCallback = Nothing - -type WidgetDestroyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC) - -widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure -widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped - where wrapped = widgetDestroyEventCallbackWrapper cb - -widgetDestroyEventCallbackWrapper :: - WidgetDestroyEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDestroyEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore -afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter - -connectWidgetDestroyEvent :: (GObject a, MonadIO m) => - a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroyEvent obj cb after = liftIO $ do - cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb) - connectSignalFunPtr obj "destroy-event" cb' after - --- signal Widget::direction-changed -type WidgetDirectionChangedCallback = - TextDirection -> - IO () - -noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback -noWidgetDirectionChangedCallback = Nothing - -type WidgetDirectionChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC) - -widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure -widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped - where wrapped = widgetDirectionChangedCallbackWrapper cb - -widgetDirectionChangedCallbackWrapper :: - WidgetDirectionChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetDirectionChangedCallbackWrapper _cb _ previousDirection _ = do - let previousDirection' = (toEnum . fromIntegral) previousDirection - _cb previousDirection' - -onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore -afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter - -connectWidgetDirectionChanged :: (GObject a, MonadIO m) => - a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDirectionChanged obj cb after = liftIO $ do - cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "direction-changed" cb' after - --- signal Widget::drag-begin -type WidgetDragBeginCallback = - Gdk.DragContext -> - IO () - -noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback -noWidgetDragBeginCallback = Nothing - -type WidgetDragBeginCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC) - -widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure -widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped - where wrapped = widgetDragBeginCallbackWrapper cb - -widgetDragBeginCallbackWrapper :: - WidgetDragBeginCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragBeginCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore -afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter - -connectWidgetDragBegin :: (GObject a, MonadIO m) => - a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragBegin obj cb after = liftIO $ do - cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb) - connectSignalFunPtr obj "drag-begin" cb' after - --- signal Widget::drag-data-delete -type WidgetDragDataDeleteCallback = - Gdk.DragContext -> - IO () - -noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback -noWidgetDragDataDeleteCallback = Nothing - -type WidgetDragDataDeleteCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC) - -widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure -widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped - where wrapped = widgetDragDataDeleteCallbackWrapper cb - -widgetDragDataDeleteCallbackWrapper :: - WidgetDragDataDeleteCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragDataDeleteCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore -afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter - -connectWidgetDragDataDelete :: (GObject a, MonadIO m) => - a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataDelete obj cb after = liftIO $ do - cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-delete" cb' after - --- signal Widget::drag-data-get -type WidgetDragDataGetCallback = - Gdk.DragContext -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback -noWidgetDragDataGetCallback = Nothing - -type WidgetDragDataGetCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC) - -widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure -widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped - where wrapped = widgetDragDataGetCallbackWrapper cb - -widgetDragDataGetCallbackWrapper :: - WidgetDragDataGetCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' data_' info time - -onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore -afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter - -connectWidgetDragDataGet :: (GObject a, MonadIO m) => - a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataGet obj cb after = liftIO $ do - cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-get" cb' after - --- signal Widget::drag-data-received -type WidgetDragDataReceivedCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback -noWidgetDragDataReceivedCallback = Nothing - -type WidgetDragDataReceivedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC) - -widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure -widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped - where wrapped = widgetDragDataReceivedCallbackWrapper cb - -widgetDragDataReceivedCallbackWrapper :: - WidgetDragDataReceivedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' x y data_' info time - -onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore -afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter - -connectWidgetDragDataReceived :: (GObject a, MonadIO m) => - a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataReceived obj cb after = liftIO $ do - cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-received" cb' after - --- signal Widget::drag-drop -type WidgetDragDropCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragDropCallback :: Maybe WidgetDragDropCallback -noWidgetDragDropCallback = Nothing - -type WidgetDragDropCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC) - -widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure -widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped - where wrapped = widgetDragDropCallbackWrapper cb - -widgetDragDropCallbackWrapper :: - WidgetDragDropCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragDropCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore -afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter - -connectWidgetDragDrop :: (GObject a, MonadIO m) => - a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDrop obj cb after = liftIO $ do - cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb) - connectSignalFunPtr obj "drag-drop" cb' after - --- signal Widget::drag-end -type WidgetDragEndCallback = - Gdk.DragContext -> - IO () - -noWidgetDragEndCallback :: Maybe WidgetDragEndCallback -noWidgetDragEndCallback = Nothing - -type WidgetDragEndCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC) - -widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure -widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped - where wrapped = widgetDragEndCallbackWrapper cb - -widgetDragEndCallbackWrapper :: - WidgetDragEndCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragEndCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore -afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter - -connectWidgetDragEnd :: (GObject a, MonadIO m) => - a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragEnd obj cb after = liftIO $ do - cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb) - connectSignalFunPtr obj "drag-end" cb' after - --- signal Widget::drag-failed -type WidgetDragFailedCallback = - Gdk.DragContext -> - DragResult -> - IO Bool - -noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback -noWidgetDragFailedCallback = Nothing - -type WidgetDragFailedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC) - -widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure -widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped - where wrapped = widgetDragFailedCallbackWrapper cb - -widgetDragFailedCallbackWrapper :: - WidgetDragFailedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> - IO CInt -widgetDragFailedCallbackWrapper _cb _ context result_ _ = do - context' <- (newObject Gdk.DragContext) context - let result_' = (toEnum . fromIntegral) result_ - result <- _cb context' result_' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore -afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter - -connectWidgetDragFailed :: (GObject a, MonadIO m) => - a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragFailed obj cb after = liftIO $ do - cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb) - connectSignalFunPtr obj "drag-failed" cb' after - --- signal Widget::drag-leave -type WidgetDragLeaveCallback = - Gdk.DragContext -> - Word32 -> - IO () - -noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback -noWidgetDragLeaveCallback = Nothing - -type WidgetDragLeaveCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC) - -widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure -widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped - where wrapped = widgetDragLeaveCallbackWrapper cb - -widgetDragLeaveCallbackWrapper :: - WidgetDragLeaveCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> - IO () -widgetDragLeaveCallbackWrapper _cb _ context time _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' time - -onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore -afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter - -connectWidgetDragLeave :: (GObject a, MonadIO m) => - a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragLeave obj cb after = liftIO $ do - cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb) - connectSignalFunPtr obj "drag-leave" cb' after - --- signal Widget::drag-motion -type WidgetDragMotionCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback -noWidgetDragMotionCallback = Nothing - -type WidgetDragMotionCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC) - -widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure -widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped - where wrapped = widgetDragMotionCallbackWrapper cb - -widgetDragMotionCallbackWrapper :: - WidgetDragMotionCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragMotionCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore -afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter - -connectWidgetDragMotion :: (GObject a, MonadIO m) => - a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragMotion obj cb after = liftIO $ do - cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb) - connectSignalFunPtr obj "drag-motion" cb' after - --- signal Widget::draw -type WidgetDrawCallback = - Cairo.Context -> - IO Bool - -noWidgetDrawCallback :: Maybe WidgetDrawCallback -noWidgetDrawCallback = Nothing - -type WidgetDrawCallbackC = - Ptr () -> -- object - Ptr Cairo.Context -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC) - -widgetDrawClosure :: WidgetDrawCallback -> IO Closure -widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped - where wrapped = widgetDrawCallbackWrapper cb - -widgetDrawCallbackWrapper :: - WidgetDrawCallback -> - Ptr () -> - Ptr Cairo.Context -> - Ptr () -> - IO CInt -widgetDrawCallbackWrapper _cb _ cr _ = do - cr' <- (newBoxed Cairo.Context) cr - result <- _cb cr' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore -afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter - -connectWidgetDraw :: (GObject a, MonadIO m) => - a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDraw obj cb after = liftIO $ do - cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb) - connectSignalFunPtr obj "draw" cb' after - --- signal Widget::enter-notify-event -type WidgetEnterNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback -noWidgetEnterNotifyEventCallback = Nothing - -type WidgetEnterNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC) - -widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure -widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped - where wrapped = widgetEnterNotifyEventCallbackWrapper cb - -widgetEnterNotifyEventCallbackWrapper :: - WidgetEnterNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore -afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter - -connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEnterNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "enter-notify-event" cb' after - --- signal Widget::event -type WidgetEventCallback = - Gdk.Event -> - IO Bool - -noWidgetEventCallback :: Maybe WidgetEventCallback -noWidgetEventCallback = Nothing - -type WidgetEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC) - -widgetEventClosure :: WidgetEventCallback -> IO Closure -widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped - where wrapped = widgetEventCallbackWrapper cb - -widgetEventCallbackWrapper :: - WidgetEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore -afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter - -connectWidgetEvent :: (GObject a, MonadIO m) => - a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEvent obj cb after = liftIO $ do - cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- signal Widget::event-after -type WidgetEventAfterCallback = - Gdk.Event -> - IO () - -noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback -noWidgetEventAfterCallback = Nothing - -type WidgetEventAfterCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC) - -widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure -widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped - where wrapped = widgetEventAfterCallbackWrapper cb - -widgetEventAfterCallbackWrapper :: - WidgetEventAfterCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO () -widgetEventAfterCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - _cb event' - -onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore -afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter - -connectWidgetEventAfter :: (GObject a, MonadIO m) => - a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEventAfter obj cb after = liftIO $ do - cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb) - connectSignalFunPtr obj "event-after" cb' after - --- signal Widget::focus -type WidgetFocusCallback = - DirectionType -> - IO Bool - -noWidgetFocusCallback :: Maybe WidgetFocusCallback -noWidgetFocusCallback = Nothing - -type WidgetFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC) - -widgetFocusClosure :: WidgetFocusCallback -> IO Closure -widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped - where wrapped = widgetFocusCallbackWrapper cb - -widgetFocusCallbackWrapper :: - WidgetFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore -afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter - -connectWidgetFocus :: (GObject a, MonadIO m) => - a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocus obj cb after = liftIO $ do - cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb) - connectSignalFunPtr obj "focus" cb' after - --- signal Widget::focus-in-event -type WidgetFocusInEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback -noWidgetFocusInEventCallback = Nothing - -type WidgetFocusInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC) - -widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure -widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped - where wrapped = widgetFocusInEventCallbackWrapper cb - -widgetFocusInEventCallbackWrapper :: - WidgetFocusInEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore -afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter - -connectWidgetFocusInEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusInEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-in-event" cb' after - --- signal Widget::focus-out-event -type WidgetFocusOutEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback -noWidgetFocusOutEventCallback = Nothing - -type WidgetFocusOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC) - -widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure -widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped - where wrapped = widgetFocusOutEventCallbackWrapper cb - -widgetFocusOutEventCallbackWrapper :: - WidgetFocusOutEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore -afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter - -connectWidgetFocusOutEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-out-event" cb' after - --- signal Widget::grab-broken-event -type WidgetGrabBrokenEventCallback = - Gdk.EventGrabBroken -> - IO Bool - -noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback -noWidgetGrabBrokenEventCallback = Nothing - -type WidgetGrabBrokenEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventGrabBroken -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC) - -widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure -widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped - where wrapped = widgetGrabBrokenEventCallbackWrapper cb - -widgetGrabBrokenEventCallbackWrapper :: - WidgetGrabBrokenEventCallback -> - Ptr () -> - Ptr Gdk.EventGrabBroken -> - Ptr () -> - IO CInt -widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventGrabBroken) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore -afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter - -connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => - a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabBrokenEvent obj cb after = liftIO $ do - cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb) - connectSignalFunPtr obj "grab-broken-event" cb' after - --- signal Widget::grab-focus -type WidgetGrabFocusCallback = - IO () - -noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback -noWidgetGrabFocusCallback = Nothing - -type WidgetGrabFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC) - -widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure -widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped - where wrapped = widgetGrabFocusCallbackWrapper cb - -widgetGrabFocusCallbackWrapper :: - WidgetGrabFocusCallback -> - Ptr () -> - Ptr () -> - IO () -widgetGrabFocusCallbackWrapper _cb _ _ = do - _cb - -onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore -afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter - -connectWidgetGrabFocus :: (GObject a, MonadIO m) => - a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabFocus obj cb after = liftIO $ do - cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb) - connectSignalFunPtr obj "grab-focus" cb' after - --- signal Widget::grab-notify -type WidgetGrabNotifyCallback = - Bool -> - IO () - -noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback -noWidgetGrabNotifyCallback = Nothing - -type WidgetGrabNotifyCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC) - -widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure -widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped - where wrapped = widgetGrabNotifyCallbackWrapper cb - -widgetGrabNotifyCallbackWrapper :: - WidgetGrabNotifyCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -widgetGrabNotifyCallbackWrapper _cb _ wasGrabbed _ = do - let wasGrabbed' = (/= 0) wasGrabbed - _cb wasGrabbed' - -onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore -afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter - -connectWidgetGrabNotify :: (GObject a, MonadIO m) => - a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabNotify obj cb after = liftIO $ do - cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb) - connectSignalFunPtr obj "grab-notify" cb' after - --- signal Widget::hide -type WidgetHideCallback = - IO () - -noWidgetHideCallback :: Maybe WidgetHideCallback -noWidgetHideCallback = Nothing - -type WidgetHideCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC) - -widgetHideClosure :: WidgetHideCallback -> IO Closure -widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped - where wrapped = widgetHideCallbackWrapper cb - -widgetHideCallbackWrapper :: - WidgetHideCallback -> - Ptr () -> - Ptr () -> - IO () -widgetHideCallbackWrapper _cb _ _ = do - _cb - -onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore -afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter - -connectWidgetHide :: (GObject a, MonadIO m) => - a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHide obj cb after = liftIO $ do - cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb) - connectSignalFunPtr obj "hide" cb' after - --- signal Widget::hierarchy-changed -type WidgetHierarchyChangedCallback = - Maybe Widget -> - IO () - -noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback -noWidgetHierarchyChangedCallback = Nothing - -type WidgetHierarchyChangedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC) - -widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure -widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped - where wrapped = widgetHierarchyChangedCallbackWrapper cb - -widgetHierarchyChangedCallbackWrapper :: - WidgetHierarchyChangedCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetHierarchyChangedCallbackWrapper _cb _ previousToplevel _ = do - maybePreviousToplevel <- - if previousToplevel == nullPtr - then return Nothing - else do - previousToplevel' <- (newObject Widget) previousToplevel - return $ Just previousToplevel' - _cb maybePreviousToplevel - -onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore -afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter - -connectWidgetHierarchyChanged :: (GObject a, MonadIO m) => - a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHierarchyChanged obj cb after = liftIO $ do - cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb) - connectSignalFunPtr obj "hierarchy-changed" cb' after - --- signal Widget::key-press-event -type WidgetKeyPressEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback -noWidgetKeyPressEventCallback = Nothing - -type WidgetKeyPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC) - -widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure -widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped - where wrapped = widgetKeyPressEventCallbackWrapper cb - -widgetKeyPressEventCallbackWrapper :: - WidgetKeyPressEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore -afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter - -connectWidgetKeyPressEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb) - connectSignalFunPtr obj "key-press-event" cb' after - --- signal Widget::key-release-event -type WidgetKeyReleaseEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback -noWidgetKeyReleaseEventCallback = Nothing - -type WidgetKeyReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC) - -widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure -widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped - where wrapped = widgetKeyReleaseEventCallbackWrapper cb - -widgetKeyReleaseEventCallbackWrapper :: - WidgetKeyReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore -afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter - -connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "key-release-event" cb' after - --- signal Widget::keynav-failed -type WidgetKeynavFailedCallback = - DirectionType -> - IO Bool - -noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback -noWidgetKeynavFailedCallback = Nothing - -type WidgetKeynavFailedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC) - -widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure -widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped - where wrapped = widgetKeynavFailedCallbackWrapper cb - -widgetKeynavFailedCallbackWrapper :: - WidgetKeynavFailedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetKeynavFailedCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore -afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter - -connectWidgetKeynavFailed :: (GObject a, MonadIO m) => - a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeynavFailed obj cb after = liftIO $ do - cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb) - connectSignalFunPtr obj "keynav-failed" cb' after - --- signal Widget::leave-notify-event -type WidgetLeaveNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback -noWidgetLeaveNotifyEventCallback = Nothing - -type WidgetLeaveNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC) - -widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure -widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped - where wrapped = widgetLeaveNotifyEventCallbackWrapper cb - -widgetLeaveNotifyEventCallbackWrapper :: - WidgetLeaveNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore -afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter - -connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "leave-notify-event" cb' after - --- signal Widget::map -type WidgetMapCallback = - IO () - -noWidgetMapCallback :: Maybe WidgetMapCallback -noWidgetMapCallback = Nothing - -type WidgetMapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC) - -widgetMapClosure :: WidgetMapCallback -> IO Closure -widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped - where wrapped = widgetMapCallbackWrapper cb - -widgetMapCallbackWrapper :: - WidgetMapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetMapCallbackWrapper _cb _ _ = do - _cb - -onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore -afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter - -connectWidgetMap :: (GObject a, MonadIO m) => - a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMap obj cb after = liftIO $ do - cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb) - connectSignalFunPtr obj "map" cb' after - --- signal Widget::map-event -type WidgetMapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetMapEventCallback :: Maybe WidgetMapEventCallback -noWidgetMapEventCallback = Nothing - -type WidgetMapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC) - -widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure -widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped - where wrapped = widgetMapEventCallbackWrapper cb - -widgetMapEventCallbackWrapper :: - WidgetMapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetMapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore -afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter - -connectWidgetMapEvent :: (GObject a, MonadIO m) => - a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMapEvent obj cb after = liftIO $ do - cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb) - connectSignalFunPtr obj "map-event" cb' after - --- signal Widget::mnemonic-activate -type WidgetMnemonicActivateCallback = - Bool -> - IO Bool - -noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback -noWidgetMnemonicActivateCallback = Nothing - -type WidgetMnemonicActivateCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC) - -widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure -widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped - where wrapped = widgetMnemonicActivateCallbackWrapper cb - -widgetMnemonicActivateCallbackWrapper :: - WidgetMnemonicActivateCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do - let arg1' = (/= 0) arg1 - result <- _cb arg1' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore -afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter - -connectWidgetMnemonicActivate :: (GObject a, MonadIO m) => - a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMnemonicActivate obj cb after = liftIO $ do - cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb) - connectSignalFunPtr obj "mnemonic-activate" cb' after - --- signal Widget::motion-notify-event -type WidgetMotionNotifyEventCallback = - Gdk.EventMotion -> - IO Bool - -noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback -noWidgetMotionNotifyEventCallback = Nothing - -type WidgetMotionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventMotion -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC) - -widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure -widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped - where wrapped = widgetMotionNotifyEventCallbackWrapper cb - -widgetMotionNotifyEventCallbackWrapper :: - WidgetMotionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventMotion -> - Ptr () -> - IO CInt -widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventMotion) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore -afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter - -connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMotionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "motion-notify-event" cb' after - --- signal Widget::move-focus -type WidgetMoveFocusCallback = - DirectionType -> - IO () - -noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback -noWidgetMoveFocusCallback = Nothing - -type WidgetMoveFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC) - -widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure -widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped - where wrapped = widgetMoveFocusCallbackWrapper cb - -widgetMoveFocusCallbackWrapper :: - WidgetMoveFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetMoveFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - _cb direction' - -onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore -afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter - -connectWidgetMoveFocus :: (GObject a, MonadIO m) => - a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMoveFocus obj cb after = liftIO $ do - cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb) - connectSignalFunPtr obj "move-focus" cb' after - --- signal Widget::parent-set -type WidgetParentSetCallback = - Maybe Widget -> - IO () - -noWidgetParentSetCallback :: Maybe WidgetParentSetCallback -noWidgetParentSetCallback = Nothing - -type WidgetParentSetCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC) - -widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure -widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped - where wrapped = widgetParentSetCallbackWrapper cb - -widgetParentSetCallbackWrapper :: - WidgetParentSetCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetParentSetCallbackWrapper _cb _ oldParent _ = do - maybeOldParent <- - if oldParent == nullPtr - then return Nothing - else do - oldParent' <- (newObject Widget) oldParent - return $ Just oldParent' - _cb maybeOldParent - -onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore -afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter - -connectWidgetParentSet :: (GObject a, MonadIO m) => - a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetParentSet obj cb after = liftIO $ do - cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb) - connectSignalFunPtr obj "parent-set" cb' after - --- signal Widget::popup-menu -type WidgetPopupMenuCallback = - IO Bool - -noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback -noWidgetPopupMenuCallback = Nothing - -type WidgetPopupMenuCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC) - -widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure -widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped - where wrapped = widgetPopupMenuCallbackWrapper cb - -widgetPopupMenuCallbackWrapper :: - WidgetPopupMenuCallback -> - Ptr () -> - Ptr () -> - IO CInt -widgetPopupMenuCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore -afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter - -connectWidgetPopupMenu :: (GObject a, MonadIO m) => - a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPopupMenu obj cb after = liftIO $ do - cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb) - connectSignalFunPtr obj "popup-menu" cb' after - --- signal Widget::property-notify-event -type WidgetPropertyNotifyEventCallback = - Gdk.EventProperty -> - IO Bool - -noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback -noWidgetPropertyNotifyEventCallback = Nothing - -type WidgetPropertyNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProperty -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC) - -widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure -widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped - where wrapped = widgetPropertyNotifyEventCallbackWrapper cb - -widgetPropertyNotifyEventCallbackWrapper :: - WidgetPropertyNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventProperty -> - Ptr () -> - IO CInt -widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventProperty) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore -afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter - -connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "property-notify-event" cb' after - --- signal Widget::proximity-in-event -type WidgetProximityInEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback -noWidgetProximityInEventCallback = Nothing - -type WidgetProximityInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC) - -widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure -widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped - where wrapped = widgetProximityInEventCallbackWrapper cb - -widgetProximityInEventCallbackWrapper :: - WidgetProximityInEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore -afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter - -connectWidgetProximityInEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityInEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-in-event" cb' after - --- signal Widget::proximity-out-event -type WidgetProximityOutEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback -noWidgetProximityOutEventCallback = Nothing - -type WidgetProximityOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC) - -widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure -widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped - where wrapped = widgetProximityOutEventCallbackWrapper cb - -widgetProximityOutEventCallbackWrapper :: - WidgetProximityOutEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore -afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter - -connectWidgetProximityOutEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-out-event" cb' after - --- signal Widget::query-tooltip -type WidgetQueryTooltipCallback = - Int32 -> - Int32 -> - Bool -> - Tooltip -> - IO Bool - -noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback -noWidgetQueryTooltipCallback = Nothing - -type WidgetQueryTooltipCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC) - -widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure -widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped - where wrapped = widgetQueryTooltipCallbackWrapper cb - -widgetQueryTooltipCallbackWrapper :: - WidgetQueryTooltipCallback -> - Ptr () -> - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> - IO CInt -widgetQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do - let keyboardMode' = (/= 0) keyboardMode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboardMode' tooltip' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore -afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter - -connectWidgetQueryTooltip :: (GObject a, MonadIO m) => - a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetQueryTooltip obj cb after = liftIO $ do - cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb) - connectSignalFunPtr obj "query-tooltip" cb' after - --- signal Widget::realize -type WidgetRealizeCallback = - IO () - -noWidgetRealizeCallback :: Maybe WidgetRealizeCallback -noWidgetRealizeCallback = Nothing - -type WidgetRealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC) - -widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure -widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped - where wrapped = widgetRealizeCallbackWrapper cb - -widgetRealizeCallbackWrapper :: - WidgetRealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetRealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore -afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter - -connectWidgetRealize :: (GObject a, MonadIO m) => - a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetRealize obj cb after = liftIO $ do - cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb) - connectSignalFunPtr obj "realize" cb' after - --- signal Widget::screen-changed -type WidgetScreenChangedCallback = - Maybe Gdk.Screen -> - IO () - -noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback -noWidgetScreenChangedCallback = Nothing - -type WidgetScreenChangedCallbackC = - Ptr () -> -- object - Ptr Gdk.Screen -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC) - -widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure -widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped - where wrapped = widgetScreenChangedCallbackWrapper cb - -widgetScreenChangedCallbackWrapper :: - WidgetScreenChangedCallback -> - Ptr () -> - Ptr Gdk.Screen -> - Ptr () -> - IO () -widgetScreenChangedCallbackWrapper _cb _ previousScreen _ = do - maybePreviousScreen <- - if previousScreen == nullPtr - then return Nothing - else do - previousScreen' <- (newObject Gdk.Screen) previousScreen - return $ Just previousScreen' - _cb maybePreviousScreen - -onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore -afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter - -connectWidgetScreenChanged :: (GObject a, MonadIO m) => - a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScreenChanged obj cb after = liftIO $ do - cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb) - connectSignalFunPtr obj "screen-changed" cb' after - --- signal Widget::scroll-event -type WidgetScrollEventCallback = - Gdk.EventScroll -> - IO Bool - -noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback -noWidgetScrollEventCallback = Nothing - -type WidgetScrollEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventScroll -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC) - -widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure -widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped - where wrapped = widgetScrollEventCallbackWrapper cb - -widgetScrollEventCallbackWrapper :: - WidgetScrollEventCallback -> - Ptr () -> - Ptr Gdk.EventScroll -> - Ptr () -> - IO CInt -widgetScrollEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventScroll) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore -afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter - -connectWidgetScrollEvent :: (GObject a, MonadIO m) => - a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScrollEvent obj cb after = liftIO $ do - cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb) - connectSignalFunPtr obj "scroll-event" cb' after - --- signal Widget::selection-clear-event -type WidgetSelectionClearEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback -noWidgetSelectionClearEventCallback = Nothing - -type WidgetSelectionClearEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC) - -widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure -widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped - where wrapped = widgetSelectionClearEventCallbackWrapper cb - -widgetSelectionClearEventCallbackWrapper :: - WidgetSelectionClearEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionClearEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore -afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter - -connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionClearEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-clear-event" cb' after - --- signal Widget::selection-get -type WidgetSelectionGetCallback = - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback -noWidgetSelectionGetCallback = Nothing - -type WidgetSelectionGetCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC) - -widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure -widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped - where wrapped = widgetSelectionGetCallbackWrapper cb - -widgetSelectionGetCallbackWrapper :: - WidgetSelectionGetCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' info time - -onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore -afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter - -connectWidgetSelectionGet :: (GObject a, MonadIO m) => - a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionGet obj cb after = liftIO $ do - cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb) - connectSignalFunPtr obj "selection-get" cb' after - --- signal Widget::selection-notify-event -type WidgetSelectionNotifyEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback -noWidgetSelectionNotifyEventCallback = Nothing - -type WidgetSelectionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC) - -widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure -widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped - where wrapped = widgetSelectionNotifyEventCallbackWrapper cb - -widgetSelectionNotifyEventCallbackWrapper :: - WidgetSelectionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore -afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter - -connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-notify-event" cb' after - --- signal Widget::selection-received -type WidgetSelectionReceivedCallback = - SelectionData -> - Word32 -> - IO () - -noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback -noWidgetSelectionReceivedCallback = Nothing - -type WidgetSelectionReceivedCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC) - -widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure -widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped - where wrapped = widgetSelectionReceivedCallbackWrapper cb - -widgetSelectionReceivedCallbackWrapper :: - WidgetSelectionReceivedCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Ptr () -> - IO () -widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' time - -onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore -afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter - -connectWidgetSelectionReceived :: (GObject a, MonadIO m) => - a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionReceived obj cb after = liftIO $ do - cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb) - connectSignalFunPtr obj "selection-received" cb' after - --- signal Widget::selection-request-event -type WidgetSelectionRequestEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback -noWidgetSelectionRequestEventCallback = Nothing - -type WidgetSelectionRequestEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC) - -widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure -widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped - where wrapped = widgetSelectionRequestEventCallbackWrapper cb - -widgetSelectionRequestEventCallbackWrapper :: - WidgetSelectionRequestEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore -afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter - -connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionRequestEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-request-event" cb' after - --- signal Widget::show -type WidgetShowCallback = - IO () - -noWidgetShowCallback :: Maybe WidgetShowCallback -noWidgetShowCallback = Nothing - -type WidgetShowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC) - -widgetShowClosure :: WidgetShowCallback -> IO Closure -widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped - where wrapped = widgetShowCallbackWrapper cb - -widgetShowCallbackWrapper :: - WidgetShowCallback -> - Ptr () -> - Ptr () -> - IO () -widgetShowCallbackWrapper _cb _ _ = do - _cb - -onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore -afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter - -connectWidgetShow :: (GObject a, MonadIO m) => - a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShow obj cb after = liftIO $ do - cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb) - connectSignalFunPtr obj "show" cb' after - --- signal Widget::show-help -type WidgetShowHelpCallback = - WidgetHelpType -> - IO Bool - -noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback -noWidgetShowHelpCallback = Nothing - -type WidgetShowHelpCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC) - -widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure -widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped - where wrapped = widgetShowHelpCallbackWrapper cb - -widgetShowHelpCallbackWrapper :: - WidgetShowHelpCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetShowHelpCallbackWrapper _cb _ helpType _ = do - let helpType' = (toEnum . fromIntegral) helpType - result <- _cb helpType' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore -afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter - -connectWidgetShowHelp :: (GObject a, MonadIO m) => - a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShowHelp obj cb after = liftIO $ do - cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb) - connectSignalFunPtr obj "show-help" cb' after - --- signal Widget::size-allocate -type WidgetSizeAllocateCallback = - Gdk.Rectangle -> - IO () - -noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback -noWidgetSizeAllocateCallback = Nothing - -type WidgetSizeAllocateCallbackC = - Ptr () -> -- object - Ptr Gdk.Rectangle -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC) - -widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure -widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped - where wrapped = widgetSizeAllocateCallbackWrapper cb - -widgetSizeAllocateCallbackWrapper :: - WidgetSizeAllocateCallback -> - Ptr () -> - Ptr Gdk.Rectangle -> - Ptr () -> - IO () -widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do - allocation' <- (newBoxed Gdk.Rectangle) allocation - _cb allocation' - -onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore -afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter - -connectWidgetSizeAllocate :: (GObject a, MonadIO m) => - a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSizeAllocate obj cb after = liftIO $ do - cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb) - connectSignalFunPtr obj "size-allocate" cb' after - --- signal Widget::state-changed -type WidgetStateChangedCallback = - StateType -> - IO () - -noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback -noWidgetStateChangedCallback = Nothing - -type WidgetStateChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC) - -widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure -widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped - where wrapped = widgetStateChangedCallbackWrapper cb - -widgetStateChangedCallbackWrapper :: - WidgetStateChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateChangedCallbackWrapper _cb _ state _ = do - let state' = (toEnum . fromIntegral) state - _cb state' - -onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore -afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter - -connectWidgetStateChanged :: (GObject a, MonadIO m) => - a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-changed" cb' after - --- signal Widget::state-flags-changed -type WidgetStateFlagsChangedCallback = - [StateFlags] -> - IO () - -noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback -noWidgetStateFlagsChangedCallback = Nothing - -type WidgetStateFlagsChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC) - -widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure -widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped - where wrapped = widgetStateFlagsChangedCallbackWrapper cb - -widgetStateFlagsChangedCallbackWrapper :: - WidgetStateFlagsChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do - let flags' = wordToGFlags flags - _cb flags' - -onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore -afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter - -connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) => - a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateFlagsChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-flags-changed" cb' after - --- signal Widget::style-set -type WidgetStyleSetCallback = - Maybe Style -> - IO () - -noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback -noWidgetStyleSetCallback = Nothing - -type WidgetStyleSetCallbackC = - Ptr () -> -- object - Ptr Style -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC) - -widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure -widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped - where wrapped = widgetStyleSetCallbackWrapper cb - -widgetStyleSetCallbackWrapper :: - WidgetStyleSetCallback -> - Ptr () -> - Ptr Style -> - Ptr () -> - IO () -widgetStyleSetCallbackWrapper _cb _ previousStyle _ = do - maybePreviousStyle <- - if previousStyle == nullPtr - then return Nothing - else do - previousStyle' <- (newObject Style) previousStyle - return $ Just previousStyle' - _cb maybePreviousStyle - -onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore -afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter - -connectWidgetStyleSet :: (GObject a, MonadIO m) => - a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleSet obj cb after = liftIO $ do - cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb) - connectSignalFunPtr obj "style-set" cb' after - --- signal Widget::style-updated -type WidgetStyleUpdatedCallback = - IO () - -noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback -noWidgetStyleUpdatedCallback = Nothing - -type WidgetStyleUpdatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC) - -widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure -widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped - where wrapped = widgetStyleUpdatedCallbackWrapper cb - -widgetStyleUpdatedCallbackWrapper :: - WidgetStyleUpdatedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetStyleUpdatedCallbackWrapper _cb _ _ = do - _cb - -onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore -afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter - -connectWidgetStyleUpdated :: (GObject a, MonadIO m) => - a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleUpdated obj cb after = liftIO $ do - cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb) - connectSignalFunPtr obj "style-updated" cb' after - --- signal Widget::touch-event -type WidgetTouchEventCallback = - Gdk.Event -> - IO Bool - -noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback -noWidgetTouchEventCallback = Nothing - -type WidgetTouchEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC) - -widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure -widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped - where wrapped = widgetTouchEventCallbackWrapper cb - -widgetTouchEventCallbackWrapper :: - WidgetTouchEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetTouchEventCallbackWrapper _cb _ object _ = do - object' <- (newBoxed Gdk.Event) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore -afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter - -connectWidgetTouchEvent :: (GObject a, MonadIO m) => - a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetTouchEvent obj cb after = liftIO $ do - cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb) - connectSignalFunPtr obj "touch-event" cb' after - --- signal Widget::unmap -type WidgetUnmapCallback = - IO () - -noWidgetUnmapCallback :: Maybe WidgetUnmapCallback -noWidgetUnmapCallback = Nothing - -type WidgetUnmapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC) - -widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure -widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped - where wrapped = widgetUnmapCallbackWrapper cb - -widgetUnmapCallbackWrapper :: - WidgetUnmapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnmapCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore -afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter - -connectWidgetUnmap :: (GObject a, MonadIO m) => - a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmap obj cb after = liftIO $ do - cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb) - connectSignalFunPtr obj "unmap" cb' after - --- signal Widget::unmap-event -type WidgetUnmapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback -noWidgetUnmapEventCallback = Nothing - -type WidgetUnmapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC) - -widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure -widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped - where wrapped = widgetUnmapEventCallbackWrapper cb - -widgetUnmapEventCallbackWrapper :: - WidgetUnmapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetUnmapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore -afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter - -connectWidgetUnmapEvent :: (GObject a, MonadIO m) => - a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmapEvent obj cb after = liftIO $ do - cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb) - connectSignalFunPtr obj "unmap-event" cb' after - --- signal Widget::unrealize -type WidgetUnrealizeCallback = - IO () - -noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback -noWidgetUnrealizeCallback = Nothing - -type WidgetUnrealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC) - -widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure -widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped - where wrapped = widgetUnrealizeCallbackWrapper cb - -widgetUnrealizeCallbackWrapper :: - WidgetUnrealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnrealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore -afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter - -connectWidgetUnrealize :: (GObject a, MonadIO m) => - a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnrealize obj cb after = liftIO $ do - cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb) - connectSignalFunPtr obj "unrealize" cb' after - --- signal Widget::visibility-notify-event -type WidgetVisibilityNotifyEventCallback = - Gdk.EventVisibility -> - IO Bool - -noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback -noWidgetVisibilityNotifyEventCallback = Nothing - -type WidgetVisibilityNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventVisibility -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC) - -widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure -widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped - where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb - -widgetVisibilityNotifyEventCallbackWrapper :: - WidgetVisibilityNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventVisibility -> - Ptr () -> - IO CInt -widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventVisibility) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore -afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter - -connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "visibility-notify-event" cb' after - --- signal Widget::window-state-event -type WidgetWindowStateEventCallback = - Gdk.EventWindowState -> - IO Bool - -noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback -noWidgetWindowStateEventCallback = Nothing - -type WidgetWindowStateEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventWindowState -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC) - -widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure -widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped - where wrapped = widgetWindowStateEventCallbackWrapper cb - -widgetWindowStateEventCallbackWrapper :: - WidgetWindowStateEventCallback -> - Ptr () -> - Ptr Gdk.EventWindowState -> - Ptr () -> - IO CInt -widgetWindowStateEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr Gdk.EventWindowState) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore -afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter - -connectWidgetWindowStateEvent :: (GObject a, MonadIO m) => - a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetWindowStateEvent obj cb after = liftIO $ do - cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb) - connectSignalFunPtr obj "window-state-event" cb' after - --- VVV Prop "app-paintable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable" - -setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val - -constructWidgetAppPaintable :: Bool -> IO ([Char], GValue) -constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val - -data WidgetAppPaintablePropertyInfo -instance AttrInfo WidgetAppPaintablePropertyInfo where - type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK - type AttrGetType WidgetAppPaintablePropertyInfo = Bool - type AttrLabel WidgetAppPaintablePropertyInfo = "app-paintable" - attrGet _ = getWidgetAppPaintable - attrSet _ = setWidgetAppPaintable - attrConstruct _ = constructWidgetAppPaintable - attrClear _ = undefined - --- VVV Prop "can-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default" - -setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val - -constructWidgetCanDefault :: Bool -> IO ([Char], GValue) -constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val - -data WidgetCanDefaultPropertyInfo -instance AttrInfo WidgetCanDefaultPropertyInfo where - type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK - type AttrGetType WidgetCanDefaultPropertyInfo = Bool - type AttrLabel WidgetCanDefaultPropertyInfo = "can-default" - attrGet _ = getWidgetCanDefault - attrSet _ = setWidgetCanDefault - attrConstruct _ = constructWidgetCanDefault - attrClear _ = undefined - --- VVV Prop "can-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus" - -setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val - -constructWidgetCanFocus :: Bool -> IO ([Char], GValue) -constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val - -data WidgetCanFocusPropertyInfo -instance AttrInfo WidgetCanFocusPropertyInfo where - type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK - type AttrGetType WidgetCanFocusPropertyInfo = Bool - type AttrLabel WidgetCanFocusPropertyInfo = "can-focus" - attrGet _ = getWidgetCanFocus - attrSet _ = setWidgetCanFocus - attrConstruct _ = constructWidgetCanFocus - attrClear _ = undefined - --- VVV Prop "composite-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child" - -data WidgetCompositeChildPropertyInfo -instance AttrInfo WidgetCompositeChildPropertyInfo where - type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK - type AttrGetType WidgetCompositeChildPropertyInfo = Bool - type AttrLabel WidgetCompositeChildPropertyInfo = "composite-child" - attrGet _ = getWidgetCompositeChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "double-buffered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered" - -setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val - -constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue) -constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val - -data WidgetDoubleBufferedPropertyInfo -instance AttrInfo WidgetDoubleBufferedPropertyInfo where - type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK - type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool - type AttrLabel WidgetDoubleBufferedPropertyInfo = "double-buffered" - attrGet _ = getWidgetDoubleBuffered - attrSet _ = setWidgetDoubleBuffered - attrConstruct _ = constructWidgetDoubleBuffered - attrClear _ = undefined - --- VVV Prop "events" - -- Type: TInterface "Gdk" "EventMask" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask] -getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events" - -setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m () -setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val - -constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue) -constructWidgetEvents val = constructObjectPropertyFlags "events" val - -data WidgetEventsPropertyInfo -instance AttrInfo WidgetEventsPropertyInfo where - type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask] - type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK - type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask] - type AttrLabel WidgetEventsPropertyInfo = "events" - attrGet _ = getWidgetEvents - attrSet _ = setWidgetEvents - attrConstruct _ = constructWidgetEvents - attrClear _ = undefined - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand" - -setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val - -constructWidgetExpand :: Bool -> IO ([Char], GValue) -constructWidgetExpand val = constructObjectPropertyBool "expand" val - -data WidgetExpandPropertyInfo -instance AttrInfo WidgetExpandPropertyInfo where - type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK - type AttrGetType WidgetExpandPropertyInfo = Bool - type AttrLabel WidgetExpandPropertyInfo = "expand" - attrGet _ = getWidgetExpand - attrSet _ = setWidgetExpand - attrConstruct _ = constructWidgetExpand - attrClear _ = undefined - --- VVV Prop "halign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign" - -setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val - -constructWidgetHalign :: Align -> IO ([Char], GValue) -constructWidgetHalign val = constructObjectPropertyEnum "halign" val - -data WidgetHalignPropertyInfo -instance AttrInfo WidgetHalignPropertyInfo where - type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK - type AttrGetType WidgetHalignPropertyInfo = Align - type AttrLabel WidgetHalignPropertyInfo = "halign" - attrGet _ = getWidgetHalign - attrSet _ = setWidgetHalign - attrConstruct _ = constructWidgetHalign - attrClear _ = undefined - --- VVV Prop "has-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default" - -setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val - -constructWidgetHasDefault :: Bool -> IO ([Char], GValue) -constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val - -data WidgetHasDefaultPropertyInfo -instance AttrInfo WidgetHasDefaultPropertyInfo where - type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK - type AttrGetType WidgetHasDefaultPropertyInfo = Bool - type AttrLabel WidgetHasDefaultPropertyInfo = "has-default" - attrGet _ = getWidgetHasDefault - attrSet _ = setWidgetHasDefault - attrConstruct _ = constructWidgetHasDefault - attrClear _ = undefined - --- VVV Prop "has-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus" - -setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val - -constructWidgetHasFocus :: Bool -> IO ([Char], GValue) -constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val - -data WidgetHasFocusPropertyInfo -instance AttrInfo WidgetHasFocusPropertyInfo where - type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK - type AttrGetType WidgetHasFocusPropertyInfo = Bool - type AttrLabel WidgetHasFocusPropertyInfo = "has-focus" - attrGet _ = getWidgetHasFocus - attrSet _ = setWidgetHasFocus - attrConstruct _ = constructWidgetHasFocus - attrClear _ = undefined - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" - -setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val - -constructWidgetHasTooltip :: Bool -> IO ([Char], GValue) -constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val - -data WidgetHasTooltipPropertyInfo -instance AttrInfo WidgetHasTooltipPropertyInfo where - type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK - type AttrGetType WidgetHasTooltipPropertyInfo = Bool - type AttrLabel WidgetHasTooltipPropertyInfo = "has-tooltip" - attrGet _ = getWidgetHasTooltip - attrSet _ = setWidgetHasTooltip - attrConstruct _ = constructWidgetHasTooltip - attrClear _ = undefined - --- VVV Prop "height-request" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetHeightRequest obj = liftIO $ getObjectPropertyInt32 obj "height-request" - -setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetHeightRequest obj val = liftIO $ setObjectPropertyInt32 obj "height-request" val - -constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) -constructWidgetHeightRequest val = constructObjectPropertyInt32 "height-request" val - -data WidgetHeightRequestPropertyInfo -instance AttrInfo WidgetHeightRequestPropertyInfo where - type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK - type AttrGetType WidgetHeightRequestPropertyInfo = Int32 - type AttrLabel WidgetHeightRequestPropertyInfo = "height-request" - attrGet _ = getWidgetHeightRequest - attrSet _ = setWidgetHeightRequest - attrConstruct _ = constructWidgetHeightRequest - attrClear _ = undefined - --- VVV Prop "hexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand" - -setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val - -constructWidgetHexpand :: Bool -> IO ([Char], GValue) -constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val - -data WidgetHexpandPropertyInfo -instance AttrInfo WidgetHexpandPropertyInfo where - type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK - type AttrGetType WidgetHexpandPropertyInfo = Bool - type AttrLabel WidgetHexpandPropertyInfo = "hexpand" - attrGet _ = getWidgetHexpand - attrSet _ = setWidgetHexpand - attrConstruct _ = constructWidgetHexpand - attrClear _ = undefined - --- VVV Prop "hexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set" - -setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val - -constructWidgetHexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val - -data WidgetHexpandSetPropertyInfo -instance AttrInfo WidgetHexpandSetPropertyInfo where - type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetHexpandSetPropertyInfo = Bool - type AttrLabel WidgetHexpandSetPropertyInfo = "hexpand-set" - attrGet _ = getWidgetHexpandSet - attrSet _ = setWidgetHexpandSet - attrConstruct _ = constructWidgetHexpandSet - attrClear _ = undefined - --- VVV Prop "is-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus" - -setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val - -constructWidgetIsFocus :: Bool -> IO ([Char], GValue) -constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val - -data WidgetIsFocusPropertyInfo -instance AttrInfo WidgetIsFocusPropertyInfo where - type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK - type AttrGetType WidgetIsFocusPropertyInfo = Bool - type AttrLabel WidgetIsFocusPropertyInfo = "is-focus" - attrGet _ = getWidgetIsFocus - attrSet _ = setWidgetIsFocus - attrConstruct _ = constructWidgetIsFocus - attrClear _ = undefined - --- VVV Prop "margin" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMargin obj = liftIO $ getObjectPropertyInt32 obj "margin" - -setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMargin obj val = liftIO $ setObjectPropertyInt32 obj "margin" val - -constructWidgetMargin :: Int32 -> IO ([Char], GValue) -constructWidgetMargin val = constructObjectPropertyInt32 "margin" val - -data WidgetMarginPropertyInfo -instance AttrInfo WidgetMarginPropertyInfo where - type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK - type AttrGetType WidgetMarginPropertyInfo = Int32 - type AttrLabel WidgetMarginPropertyInfo = "margin" - attrGet _ = getWidgetMargin - attrSet _ = setWidgetMargin - attrConstruct _ = constructWidgetMargin - attrClear _ = undefined - --- VVV Prop "margin-bottom" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginBottom obj = liftIO $ getObjectPropertyInt32 obj "margin-bottom" - -setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginBottom obj val = liftIO $ setObjectPropertyInt32 obj "margin-bottom" val - -constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) -constructWidgetMarginBottom val = constructObjectPropertyInt32 "margin-bottom" val - -data WidgetMarginBottomPropertyInfo -instance AttrInfo WidgetMarginBottomPropertyInfo where - type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK - type AttrGetType WidgetMarginBottomPropertyInfo = Int32 - type AttrLabel WidgetMarginBottomPropertyInfo = "margin-bottom" - attrGet _ = getWidgetMarginBottom - attrSet _ = setWidgetMarginBottom - attrConstruct _ = constructWidgetMarginBottom - attrClear _ = undefined - --- VVV Prop "margin-end" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginEnd obj = liftIO $ getObjectPropertyInt32 obj "margin-end" - -setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginEnd obj val = liftIO $ setObjectPropertyInt32 obj "margin-end" val - -constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) -constructWidgetMarginEnd val = constructObjectPropertyInt32 "margin-end" val - -data WidgetMarginEndPropertyInfo -instance AttrInfo WidgetMarginEndPropertyInfo where - type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK - type AttrGetType WidgetMarginEndPropertyInfo = Int32 - type AttrLabel WidgetMarginEndPropertyInfo = "margin-end" - attrGet _ = getWidgetMarginEnd - attrSet _ = setWidgetMarginEnd - attrConstruct _ = constructWidgetMarginEnd - attrClear _ = undefined - --- VVV Prop "margin-left" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginLeft obj = liftIO $ getObjectPropertyInt32 obj "margin-left" - -setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginLeft obj val = liftIO $ setObjectPropertyInt32 obj "margin-left" val - -constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) -constructWidgetMarginLeft val = constructObjectPropertyInt32 "margin-left" val - -data WidgetMarginLeftPropertyInfo -instance AttrInfo WidgetMarginLeftPropertyInfo where - type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK - type AttrGetType WidgetMarginLeftPropertyInfo = Int32 - type AttrLabel WidgetMarginLeftPropertyInfo = "margin-left" - attrGet _ = getWidgetMarginLeft - attrSet _ = setWidgetMarginLeft - attrConstruct _ = constructWidgetMarginLeft - attrClear _ = undefined - --- VVV Prop "margin-right" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginRight obj = liftIO $ getObjectPropertyInt32 obj "margin-right" - -setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginRight obj val = liftIO $ setObjectPropertyInt32 obj "margin-right" val - -constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) -constructWidgetMarginRight val = constructObjectPropertyInt32 "margin-right" val - -data WidgetMarginRightPropertyInfo -instance AttrInfo WidgetMarginRightPropertyInfo where - type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK - type AttrGetType WidgetMarginRightPropertyInfo = Int32 - type AttrLabel WidgetMarginRightPropertyInfo = "margin-right" - attrGet _ = getWidgetMarginRight - attrSet _ = setWidgetMarginRight - attrConstruct _ = constructWidgetMarginRight - attrClear _ = undefined - --- VVV Prop "margin-start" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginStart obj = liftIO $ getObjectPropertyInt32 obj "margin-start" - -setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginStart obj val = liftIO $ setObjectPropertyInt32 obj "margin-start" val - -constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) -constructWidgetMarginStart val = constructObjectPropertyInt32 "margin-start" val - -data WidgetMarginStartPropertyInfo -instance AttrInfo WidgetMarginStartPropertyInfo where - type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK - type AttrGetType WidgetMarginStartPropertyInfo = Int32 - type AttrLabel WidgetMarginStartPropertyInfo = "margin-start" - attrGet _ = getWidgetMarginStart - attrSet _ = setWidgetMarginStart - attrConstruct _ = constructWidgetMarginStart - attrClear _ = undefined - --- VVV Prop "margin-top" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginTop obj = liftIO $ getObjectPropertyInt32 obj "margin-top" - -setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginTop obj val = liftIO $ setObjectPropertyInt32 obj "margin-top" val - -constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) -constructWidgetMarginTop val = constructObjectPropertyInt32 "margin-top" val - -data WidgetMarginTopPropertyInfo -instance AttrInfo WidgetMarginTopPropertyInfo where - type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK - type AttrGetType WidgetMarginTopPropertyInfo = Int32 - type AttrLabel WidgetMarginTopPropertyInfo = "margin-top" - attrGet _ = getWidgetMarginTop - attrSet _ = setWidgetMarginTop - attrConstruct _ = constructWidgetMarginTop - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetName obj = liftIO $ checkUnexpectedNothing "getWidgetName" $ getObjectPropertyString obj "name" - -setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructWidgetName :: T.Text -> IO ([Char], GValue) -constructWidgetName val = constructObjectPropertyString "name" (Just val) - -data WidgetNamePropertyInfo -instance AttrInfo WidgetNamePropertyInfo where - type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK - type AttrGetType WidgetNamePropertyInfo = T.Text - type AttrLabel WidgetNamePropertyInfo = "name" - attrGet _ = getWidgetName - attrSet _ = setWidgetName - attrConstruct _ = constructWidgetName - attrClear _ = undefined - --- VVV Prop "no-show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all" - -setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val - -constructWidgetNoShowAll :: Bool -> IO ([Char], GValue) -constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val - -data WidgetNoShowAllPropertyInfo -instance AttrInfo WidgetNoShowAllPropertyInfo where - type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK - type AttrGetType WidgetNoShowAllPropertyInfo = Bool - type AttrLabel WidgetNoShowAllPropertyInfo = "no-show-all" - attrGet _ = getWidgetNoShowAll - attrSet _ = setWidgetNoShowAll - attrConstruct _ = constructWidgetNoShowAll - attrClear _ = undefined - --- VVV Prop "opacity" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double -getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity" - -setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m () -setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val - -constructWidgetOpacity :: Double -> IO ([Char], GValue) -constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val - -data WidgetOpacityPropertyInfo -instance AttrInfo WidgetOpacityPropertyInfo where - type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double - type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK - type AttrGetType WidgetOpacityPropertyInfo = Double - type AttrLabel WidgetOpacityPropertyInfo = "opacity" - attrGet _ = getWidgetOpacity - attrSet _ = setWidgetOpacity - attrConstruct _ = constructWidgetOpacity - attrClear _ = undefined - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetParent :: (MonadIO m, WidgetK o) => o -> m (Maybe Container) -getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container - -setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m () -setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) - -constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) -constructWidgetParent val = constructObjectPropertyObject "parent" (Just val) - -clearWidgetParent :: (MonadIO m, WidgetK o) => o -> m () -clearWidgetParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe Container) - -data WidgetParentPropertyInfo -instance AttrInfo WidgetParentPropertyInfo where - type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK - type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK - type AttrGetType WidgetParentPropertyInfo = (Maybe Container) - type AttrLabel WidgetParentPropertyInfo = "parent" - attrGet _ = getWidgetParent - attrSet _ = setWidgetParent - attrConstruct _ = constructWidgetParent - attrClear _ = clearWidgetParent - --- VVV Prop "receives-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default" - -setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val - -constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue) -constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val - -data WidgetReceivesDefaultPropertyInfo -instance AttrInfo WidgetReceivesDefaultPropertyInfo where - type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK - type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool - type AttrLabel WidgetReceivesDefaultPropertyInfo = "receives-default" - attrGet _ = getWidgetReceivesDefault - attrSet _ = setWidgetReceivesDefault - attrConstruct _ = constructWidgetReceivesDefault - attrClear _ = undefined - --- VVV Prop "scale-factor" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetScaleFactor obj = liftIO $ getObjectPropertyInt32 obj "scale-factor" - -data WidgetScaleFactorPropertyInfo -instance AttrInfo WidgetScaleFactorPropertyInfo where - type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK - type AttrGetType WidgetScaleFactorPropertyInfo = Int32 - type AttrLabel WidgetScaleFactorPropertyInfo = "scale-factor" - attrGet _ = getWidgetScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructWidgetSensitive :: Bool -> IO ([Char], GValue) -constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val - -data WidgetSensitivePropertyInfo -instance AttrInfo WidgetSensitivePropertyInfo where - type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK - type AttrGetType WidgetSensitivePropertyInfo = Bool - type AttrLabel WidgetSensitivePropertyInfo = "sensitive" - attrGet _ = getWidgetSensitive - attrSet _ = setWidgetSensitive - attrConstruct _ = constructWidgetSensitive - attrClear _ = undefined - --- VVV Prop "style" - -- Type: TInterface "Gtk" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style -getWidgetStyle obj = liftIO $ checkUnexpectedNothing "getWidgetStyle" $ getObjectPropertyObject obj "style" Style - -setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () -setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" (Just val) - -constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) -constructWidgetStyle val = constructObjectPropertyObject "style" (Just val) - -clearWidgetStyle :: (MonadIO m, WidgetK o) => o -> m () -clearWidgetStyle obj = liftIO $ setObjectPropertyObject obj "style" (Nothing :: Maybe Style) - -data WidgetStylePropertyInfo -instance AttrInfo WidgetStylePropertyInfo where - type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK - type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK - type AttrGetType WidgetStylePropertyInfo = Style - type AttrLabel WidgetStylePropertyInfo = "style" - attrGet _ = getWidgetStyle - attrSet _ = setWidgetStyle - attrConstruct _ = constructWidgetStyle - attrClear _ = clearWidgetStyle - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m (Maybe T.Text) -getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" - -setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" (Just val) - -constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" (Just val) - -clearWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m () -clearWidgetTooltipMarkup obj = liftIO $ setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text) - -data WidgetTooltipMarkupPropertyInfo -instance AttrInfo WidgetTooltipMarkupPropertyInfo where - type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK - type AttrGetType WidgetTooltipMarkupPropertyInfo = (Maybe T.Text) - type AttrLabel WidgetTooltipMarkupPropertyInfo = "tooltip-markup" - attrGet _ = getWidgetTooltipMarkup - attrSet _ = setWidgetTooltipMarkup - attrConstruct _ = constructWidgetTooltipMarkup - attrClear _ = clearWidgetTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m (Maybe T.Text) -getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" - -setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" (Just val) - -constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" (Just val) - -clearWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m () -clearWidgetTooltipText obj = liftIO $ setObjectPropertyString obj "tooltip-text" (Nothing :: Maybe T.Text) - -data WidgetTooltipTextPropertyInfo -instance AttrInfo WidgetTooltipTextPropertyInfo where - type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK - type AttrGetType WidgetTooltipTextPropertyInfo = (Maybe T.Text) - type AttrLabel WidgetTooltipTextPropertyInfo = "tooltip-text" - attrGet _ = getWidgetTooltipText - attrSet _ = setWidgetTooltipText - attrConstruct _ = constructWidgetTooltipText - attrClear _ = clearWidgetTooltipText - --- VVV Prop "valign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign" - -setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val - -constructWidgetValign :: Align -> IO ([Char], GValue) -constructWidgetValign val = constructObjectPropertyEnum "valign" val - -data WidgetValignPropertyInfo -instance AttrInfo WidgetValignPropertyInfo where - type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK - type AttrGetType WidgetValignPropertyInfo = Align - type AttrLabel WidgetValignPropertyInfo = "valign" - attrGet _ = getWidgetValign - attrSet _ = setWidgetValign - attrConstruct _ = constructWidgetValign - attrClear _ = undefined - --- VVV Prop "vexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand" - -setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val - -constructWidgetVexpand :: Bool -> IO ([Char], GValue) -constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val - -data WidgetVexpandPropertyInfo -instance AttrInfo WidgetVexpandPropertyInfo where - type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK - type AttrGetType WidgetVexpandPropertyInfo = Bool - type AttrLabel WidgetVexpandPropertyInfo = "vexpand" - attrGet _ = getWidgetVexpand - attrSet _ = setWidgetVexpand - attrConstruct _ = constructWidgetVexpand - attrClear _ = undefined - --- VVV Prop "vexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set" - -setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val - -constructWidgetVexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val - -data WidgetVexpandSetPropertyInfo -instance AttrInfo WidgetVexpandSetPropertyInfo where - type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetVexpandSetPropertyInfo = Bool - type AttrLabel WidgetVexpandSetPropertyInfo = "vexpand-set" - attrGet _ = getWidgetVexpandSet - attrSet _ = setWidgetVexpandSet - attrConstruct _ = constructWidgetVexpandSet - attrClear _ = undefined - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructWidgetVisible :: Bool -> IO ([Char], GValue) -constructWidgetVisible val = constructObjectPropertyBool "visible" val - -data WidgetVisiblePropertyInfo -instance AttrInfo WidgetVisiblePropertyInfo where - type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK - type AttrGetType WidgetVisiblePropertyInfo = Bool - type AttrLabel WidgetVisiblePropertyInfo = "visible" - attrGet _ = getWidgetVisible - attrSet _ = setWidgetVisible - attrConstruct _ = constructWidgetVisible - attrClear _ = undefined - --- VVV Prop "width-request" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetWidthRequest obj = liftIO $ getObjectPropertyInt32 obj "width-request" - -setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetWidthRequest obj val = liftIO $ setObjectPropertyInt32 obj "width-request" val - -constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) -constructWidgetWidthRequest val = constructObjectPropertyInt32 "width-request" val - -data WidgetWidthRequestPropertyInfo -instance AttrInfo WidgetWidthRequestPropertyInfo where - type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK - type AttrGetType WidgetWidthRequestPropertyInfo = Int32 - type AttrLabel WidgetWidthRequestPropertyInfo = "width-request" - attrGet _ = getWidgetWidthRequest - attrSet _ = setWidgetWidthRequest - attrConstruct _ = constructWidgetWidthRequest - attrClear _ = undefined - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window -getWidgetWindow obj = liftIO $ checkUnexpectedNothing "getWidgetWindow" $ getObjectPropertyObject obj "window" Gdk.Window - -data WidgetWindowPropertyInfo -instance AttrInfo WidgetWindowPropertyInfo where - type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK - type AttrGetType WidgetWindowPropertyInfo = Gdk.Window - type AttrLabel WidgetWindowPropertyInfo = "window" - attrGet _ = getWidgetWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Widget = WidgetAttributeList -type WidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -widgetAppPaintable :: AttrLabelProxy "appPaintable" -widgetAppPaintable = AttrLabelProxy - -widgetCanDefault :: AttrLabelProxy "canDefault" -widgetCanDefault = AttrLabelProxy - -widgetCanFocus :: AttrLabelProxy "canFocus" -widgetCanFocus = AttrLabelProxy - -widgetCompositeChild :: AttrLabelProxy "compositeChild" -widgetCompositeChild = AttrLabelProxy - -widgetDoubleBuffered :: AttrLabelProxy "doubleBuffered" -widgetDoubleBuffered = AttrLabelProxy - -widgetEvents :: AttrLabelProxy "events" -widgetEvents = AttrLabelProxy - -widgetExpand :: AttrLabelProxy "expand" -widgetExpand = AttrLabelProxy - -widgetHalign :: AttrLabelProxy "halign" -widgetHalign = AttrLabelProxy - -widgetHasTooltip :: AttrLabelProxy "hasTooltip" -widgetHasTooltip = AttrLabelProxy - -widgetHeightRequest :: AttrLabelProxy "heightRequest" -widgetHeightRequest = AttrLabelProxy - -widgetHexpand :: AttrLabelProxy "hexpand" -widgetHexpand = AttrLabelProxy - -widgetHexpandSet :: AttrLabelProxy "hexpandSet" -widgetHexpandSet = AttrLabelProxy - -widgetMargin :: AttrLabelProxy "margin" -widgetMargin = AttrLabelProxy - -widgetMarginBottom :: AttrLabelProxy "marginBottom" -widgetMarginBottom = AttrLabelProxy - -widgetMarginEnd :: AttrLabelProxy "marginEnd" -widgetMarginEnd = AttrLabelProxy - -widgetMarginLeft :: AttrLabelProxy "marginLeft" -widgetMarginLeft = AttrLabelProxy - -widgetMarginRight :: AttrLabelProxy "marginRight" -widgetMarginRight = AttrLabelProxy - -widgetMarginStart :: AttrLabelProxy "marginStart" -widgetMarginStart = AttrLabelProxy - -widgetMarginTop :: AttrLabelProxy "marginTop" -widgetMarginTop = AttrLabelProxy - -widgetName :: AttrLabelProxy "name" -widgetName = AttrLabelProxy - -widgetNoShowAll :: AttrLabelProxy "noShowAll" -widgetNoShowAll = AttrLabelProxy - -widgetOpacity :: AttrLabelProxy "opacity" -widgetOpacity = AttrLabelProxy - -widgetParent :: AttrLabelProxy "parent" -widgetParent = AttrLabelProxy - -widgetReceivesDefault :: AttrLabelProxy "receivesDefault" -widgetReceivesDefault = AttrLabelProxy - -widgetScaleFactor :: AttrLabelProxy "scaleFactor" -widgetScaleFactor = AttrLabelProxy - -widgetSensitive :: AttrLabelProxy "sensitive" -widgetSensitive = AttrLabelProxy - -widgetStyle :: AttrLabelProxy "style" -widgetStyle = AttrLabelProxy - -widgetTooltipMarkup :: AttrLabelProxy "tooltipMarkup" -widgetTooltipMarkup = AttrLabelProxy - -widgetTooltipText :: AttrLabelProxy "tooltipText" -widgetTooltipText = AttrLabelProxy - -widgetValign :: AttrLabelProxy "valign" -widgetValign = AttrLabelProxy - -widgetVexpand :: AttrLabelProxy "vexpand" -widgetVexpand = AttrLabelProxy - -widgetVexpandSet :: AttrLabelProxy "vexpandSet" -widgetVexpandSet = AttrLabelProxy - -widgetVisible :: AttrLabelProxy "visible" -widgetVisible = AttrLabelProxy - -widgetWidthRequest :: AttrLabelProxy "widthRequest" -widgetWidthRequest = AttrLabelProxy - -widgetWindow :: AttrLabelProxy "window" -widgetWindow = AttrLabelProxy - -data WidgetAccelClosuresChangedSignalInfo -instance SignalInfo WidgetAccelClosuresChangedSignalInfo where - type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback - connectSignal _ = connectWidgetAccelClosuresChanged - -data WidgetButtonPressEventSignalInfo -instance SignalInfo WidgetButtonPressEventSignalInfo where - type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback - connectSignal _ = connectWidgetButtonPressEvent - -data WidgetButtonReleaseEventSignalInfo -instance SignalInfo WidgetButtonReleaseEventSignalInfo where - type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback - connectSignal _ = connectWidgetButtonReleaseEvent - -data WidgetCanActivateAccelSignalInfo -instance SignalInfo WidgetCanActivateAccelSignalInfo where - type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback - connectSignal _ = connectWidgetCanActivateAccel - -data WidgetChildNotifySignalInfo -instance SignalInfo WidgetChildNotifySignalInfo where - type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback - connectSignal _ = connectWidgetChildNotify - -data WidgetCompositedChangedSignalInfo -instance SignalInfo WidgetCompositedChangedSignalInfo where - type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback - connectSignal _ = connectWidgetCompositedChanged - -data WidgetConfigureEventSignalInfo -instance SignalInfo WidgetConfigureEventSignalInfo where - type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback - connectSignal _ = connectWidgetConfigureEvent - -data WidgetDamageEventSignalInfo -instance SignalInfo WidgetDamageEventSignalInfo where - type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback - connectSignal _ = connectWidgetDamageEvent - -data WidgetDeleteEventSignalInfo -instance SignalInfo WidgetDeleteEventSignalInfo where - type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback - connectSignal _ = connectWidgetDeleteEvent - -data WidgetDestroySignalInfo -instance SignalInfo WidgetDestroySignalInfo where - type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback - connectSignal _ = connectWidgetDestroy - -data WidgetDestroyEventSignalInfo -instance SignalInfo WidgetDestroyEventSignalInfo where - type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback - connectSignal _ = connectWidgetDestroyEvent - -data WidgetDirectionChangedSignalInfo -instance SignalInfo WidgetDirectionChangedSignalInfo where - type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback - connectSignal _ = connectWidgetDirectionChanged - -data WidgetDragBeginSignalInfo -instance SignalInfo WidgetDragBeginSignalInfo where - type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback - connectSignal _ = connectWidgetDragBegin - -data WidgetDragDataDeleteSignalInfo -instance SignalInfo WidgetDragDataDeleteSignalInfo where - type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback - connectSignal _ = connectWidgetDragDataDelete - -data WidgetDragDataGetSignalInfo -instance SignalInfo WidgetDragDataGetSignalInfo where - type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback - connectSignal _ = connectWidgetDragDataGet - -data WidgetDragDataReceivedSignalInfo -instance SignalInfo WidgetDragDataReceivedSignalInfo where - type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback - connectSignal _ = connectWidgetDragDataReceived - -data WidgetDragDropSignalInfo -instance SignalInfo WidgetDragDropSignalInfo where - type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback - connectSignal _ = connectWidgetDragDrop - -data WidgetDragEndSignalInfo -instance SignalInfo WidgetDragEndSignalInfo where - type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback - connectSignal _ = connectWidgetDragEnd - -data WidgetDragFailedSignalInfo -instance SignalInfo WidgetDragFailedSignalInfo where - type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback - connectSignal _ = connectWidgetDragFailed - -data WidgetDragLeaveSignalInfo -instance SignalInfo WidgetDragLeaveSignalInfo where - type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback - connectSignal _ = connectWidgetDragLeave - -data WidgetDragMotionSignalInfo -instance SignalInfo WidgetDragMotionSignalInfo where - type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback - connectSignal _ = connectWidgetDragMotion - -data WidgetDrawSignalInfo -instance SignalInfo WidgetDrawSignalInfo where - type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback - connectSignal _ = connectWidgetDraw - -data WidgetEnterNotifyEventSignalInfo -instance SignalInfo WidgetEnterNotifyEventSignalInfo where - type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback - connectSignal _ = connectWidgetEnterNotifyEvent - -data WidgetEventSignalInfo -instance SignalInfo WidgetEventSignalInfo where - type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback - connectSignal _ = connectWidgetEvent - -data WidgetEventAfterSignalInfo -instance SignalInfo WidgetEventAfterSignalInfo where - type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback - connectSignal _ = connectWidgetEventAfter - -data WidgetFocusSignalInfo -instance SignalInfo WidgetFocusSignalInfo where - type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback - connectSignal _ = connectWidgetFocus - -data WidgetFocusInEventSignalInfo -instance SignalInfo WidgetFocusInEventSignalInfo where - type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback - connectSignal _ = connectWidgetFocusInEvent - -data WidgetFocusOutEventSignalInfo -instance SignalInfo WidgetFocusOutEventSignalInfo where - type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback - connectSignal _ = connectWidgetFocusOutEvent - -data WidgetGrabBrokenEventSignalInfo -instance SignalInfo WidgetGrabBrokenEventSignalInfo where - type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback - connectSignal _ = connectWidgetGrabBrokenEvent - -data WidgetGrabFocusSignalInfo -instance SignalInfo WidgetGrabFocusSignalInfo where - type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback - connectSignal _ = connectWidgetGrabFocus - -data WidgetGrabNotifySignalInfo -instance SignalInfo WidgetGrabNotifySignalInfo where - type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback - connectSignal _ = connectWidgetGrabNotify - -data WidgetHideSignalInfo -instance SignalInfo WidgetHideSignalInfo where - type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback - connectSignal _ = connectWidgetHide - -data WidgetHierarchyChangedSignalInfo -instance SignalInfo WidgetHierarchyChangedSignalInfo where - type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback - connectSignal _ = connectWidgetHierarchyChanged - -data WidgetKeyPressEventSignalInfo -instance SignalInfo WidgetKeyPressEventSignalInfo where - type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback - connectSignal _ = connectWidgetKeyPressEvent - -data WidgetKeyReleaseEventSignalInfo -instance SignalInfo WidgetKeyReleaseEventSignalInfo where - type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback - connectSignal _ = connectWidgetKeyReleaseEvent - -data WidgetKeynavFailedSignalInfo -instance SignalInfo WidgetKeynavFailedSignalInfo where - type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback - connectSignal _ = connectWidgetKeynavFailed - -data WidgetLeaveNotifyEventSignalInfo -instance SignalInfo WidgetLeaveNotifyEventSignalInfo where - type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback - connectSignal _ = connectWidgetLeaveNotifyEvent - -data WidgetMapSignalInfo -instance SignalInfo WidgetMapSignalInfo where - type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback - connectSignal _ = connectWidgetMap - -data WidgetMapEventSignalInfo -instance SignalInfo WidgetMapEventSignalInfo where - type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback - connectSignal _ = connectWidgetMapEvent - -data WidgetMnemonicActivateSignalInfo -instance SignalInfo WidgetMnemonicActivateSignalInfo where - type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback - connectSignal _ = connectWidgetMnemonicActivate - -data WidgetMotionNotifyEventSignalInfo -instance SignalInfo WidgetMotionNotifyEventSignalInfo where - type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback - connectSignal _ = connectWidgetMotionNotifyEvent - -data WidgetMoveFocusSignalInfo -instance SignalInfo WidgetMoveFocusSignalInfo where - type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback - connectSignal _ = connectWidgetMoveFocus - -data WidgetParentSetSignalInfo -instance SignalInfo WidgetParentSetSignalInfo where - type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback - connectSignal _ = connectWidgetParentSet - -data WidgetPopupMenuSignalInfo -instance SignalInfo WidgetPopupMenuSignalInfo where - type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback - connectSignal _ = connectWidgetPopupMenu - -data WidgetPropertyNotifyEventSignalInfo -instance SignalInfo WidgetPropertyNotifyEventSignalInfo where - type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback - connectSignal _ = connectWidgetPropertyNotifyEvent - -data WidgetProximityInEventSignalInfo -instance SignalInfo WidgetProximityInEventSignalInfo where - type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback - connectSignal _ = connectWidgetProximityInEvent - -data WidgetProximityOutEventSignalInfo -instance SignalInfo WidgetProximityOutEventSignalInfo where - type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback - connectSignal _ = connectWidgetProximityOutEvent - -data WidgetQueryTooltipSignalInfo -instance SignalInfo WidgetQueryTooltipSignalInfo where - type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback - connectSignal _ = connectWidgetQueryTooltip - -data WidgetRealizeSignalInfo -instance SignalInfo WidgetRealizeSignalInfo where - type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback - connectSignal _ = connectWidgetRealize - -data WidgetScreenChangedSignalInfo -instance SignalInfo WidgetScreenChangedSignalInfo where - type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback - connectSignal _ = connectWidgetScreenChanged - -data WidgetScrollEventSignalInfo -instance SignalInfo WidgetScrollEventSignalInfo where - type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback - connectSignal _ = connectWidgetScrollEvent - -data WidgetSelectionClearEventSignalInfo -instance SignalInfo WidgetSelectionClearEventSignalInfo where - type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback - connectSignal _ = connectWidgetSelectionClearEvent - -data WidgetSelectionGetSignalInfo -instance SignalInfo WidgetSelectionGetSignalInfo where - type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback - connectSignal _ = connectWidgetSelectionGet - -data WidgetSelectionNotifyEventSignalInfo -instance SignalInfo WidgetSelectionNotifyEventSignalInfo where - type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback - connectSignal _ = connectWidgetSelectionNotifyEvent - -data WidgetSelectionReceivedSignalInfo -instance SignalInfo WidgetSelectionReceivedSignalInfo where - type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback - connectSignal _ = connectWidgetSelectionReceived - -data WidgetSelectionRequestEventSignalInfo -instance SignalInfo WidgetSelectionRequestEventSignalInfo where - type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback - connectSignal _ = connectWidgetSelectionRequestEvent - -data WidgetShowSignalInfo -instance SignalInfo WidgetShowSignalInfo where - type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback - connectSignal _ = connectWidgetShow - -data WidgetShowHelpSignalInfo -instance SignalInfo WidgetShowHelpSignalInfo where - type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback - connectSignal _ = connectWidgetShowHelp - -data WidgetSizeAllocateSignalInfo -instance SignalInfo WidgetSizeAllocateSignalInfo where - type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback - connectSignal _ = connectWidgetSizeAllocate - -data WidgetStateChangedSignalInfo -instance SignalInfo WidgetStateChangedSignalInfo where - type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback - connectSignal _ = connectWidgetStateChanged - -data WidgetStateFlagsChangedSignalInfo -instance SignalInfo WidgetStateFlagsChangedSignalInfo where - type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback - connectSignal _ = connectWidgetStateFlagsChanged - -data WidgetStyleSetSignalInfo -instance SignalInfo WidgetStyleSetSignalInfo where - type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback - connectSignal _ = connectWidgetStyleSet - -data WidgetStyleUpdatedSignalInfo -instance SignalInfo WidgetStyleUpdatedSignalInfo where - type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback - connectSignal _ = connectWidgetStyleUpdated - -data WidgetTouchEventSignalInfo -instance SignalInfo WidgetTouchEventSignalInfo where - type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback - connectSignal _ = connectWidgetTouchEvent - -data WidgetUnmapSignalInfo -instance SignalInfo WidgetUnmapSignalInfo where - type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback - connectSignal _ = connectWidgetUnmap - -data WidgetUnmapEventSignalInfo -instance SignalInfo WidgetUnmapEventSignalInfo where - type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback - connectSignal _ = connectWidgetUnmapEvent - -data WidgetUnrealizeSignalInfo -instance SignalInfo WidgetUnrealizeSignalInfo where - type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback - connectSignal _ = connectWidgetUnrealize - -data WidgetVisibilityNotifyEventSignalInfo -instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where - type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback - connectSignal _ = connectWidgetVisibilityNotifyEvent - -data WidgetWindowStateEventSignalInfo -instance SignalInfo WidgetWindowStateEventSignalInfo where - type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback - connectSignal _ = connectWidgetWindowStateEvent - -type instance SignalList Widget = WidgetSignalList -type WidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Widget::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_activate" gtk_widget_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetActivate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_activate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetActivateMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetActivateMethodInfo a signature where - overloadedMethod _ = widgetActivate - --- method Widget::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", 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 "gtk_widget_add_accelerator" gtk_widget_add_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_signal : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" - IO () - - -widgetAddAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> T.Text -- accelSignal - -> b -- accelGroup - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> [AccelFlags] -- accelFlags - -> m () -- result -widgetAddAccelerator _obj accelSignal accelGroup accelKey accelMods accelFlags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelSignal' <- textToCString accelSignal - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - let accelMods' = gflagsToWord accelMods - let accelFlags' = gflagsToWord accelFlags - gtk_widget_add_accelerator _obj' accelSignal' accelGroup' accelKey accelMods' accelFlags' - touchManagedPtr _obj - touchManagedPtr accelGroup - freeMem accelSignal' - return () - -data WidgetAddAcceleratorMethodInfo -instance (signature ~ (T.Text -> b -> Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetAddAcceleratorMethodInfo a signature where - overloadedMethod _ = widgetAddAccelerator - --- method Widget::add_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TInterface "Gdk" "EventMask", 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 "gtk_widget_add_device_events" gtk_widget_add_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetAddDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> [Gdk.EventMask] -- events - -> m () -- result -widgetAddDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_add_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetAddDeviceEventsMethodInfo -instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetAddDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetAddDeviceEvents - --- method Widget::add_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", 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 "gtk_widget_add_events" gtk_widget_add_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt - IO () - - -widgetAddEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- events - -> m () -- result -widgetAddEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_add_events _obj' events - touchManagedPtr _obj - return () - -data WidgetAddEventsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetAddEventsMethodInfo a signature where - overloadedMethod _ = widgetAddEvents - --- method Widget::add_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetAddMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- label - -> m () -- result -widgetAddMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_add_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - -data WidgetAddMnemonicLabelMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetAddMnemonicLabelMethodInfo a signature where - overloadedMethod _ = widgetAddMnemonicLabel - --- method Widget::add_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -widgetAddTickCallback :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TickCallback -- callback - -> m Word32 -- result -widgetAddTickCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let notify = safeFreeFunPtrPtr - result <- gtk_widget_add_tick_callback _obj' callback' userData notify - touchManagedPtr _obj - return result - -data WidgetAddTickCallbackMethodInfo -instance (signature ~ (TickCallback -> m Word32), MonadIO m, WidgetK a) => MethodInfo WidgetAddTickCallbackMethodInfo a signature where - overloadedMethod _ = widgetAddTickCallback - --- method Widget::can_activate_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_id", argType = TBasicType TUInt, 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 "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- signal_id : TBasicType TUInt - IO CInt - - -widgetCanActivateAccel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Word32 -- signalId - -> m Bool -- result -widgetCanActivateAccel _obj signalId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_can_activate_accel _obj' signalId - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetCanActivateAccelMethodInfo -instance (signature ~ (Word32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetCanActivateAccelMethodInfo a signature where - overloadedMethod _ = widgetCanActivateAccel - --- method Widget::child_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", 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 "gtk_widget_child_focus" gtk_widget_child_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetChildFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> DirectionType -- direction - -> m Bool -- result -widgetChildFocus _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_child_focus _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetChildFocusMethodInfo -instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetChildFocusMethodInfo a signature where - overloadedMethod _ = widgetChildFocus - --- method Widget::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", 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 "gtk_widget_child_notify" gtk_widget_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- child_property : TBasicType TUTF8 - IO () - - -widgetChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- childProperty - -> m () -- result -widgetChildNotify _obj childProperty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - childProperty' <- textToCString childProperty - gtk_widget_child_notify _obj' childProperty' - touchManagedPtr _obj - freeMem childProperty' - return () - -data WidgetChildNotifyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetChildNotify - --- method Widget::class_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", 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 "gtk_widget_class_path" gtk_widget_class_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetClassPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Word32,T.Text,T.Text) -- result -widgetClassPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pathLength <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - pathReversed <- allocMem :: IO (Ptr CString) - gtk_widget_class_path _obj' pathLength path pathReversed - pathLength' <- peek pathLength - path' <- peek path - path'' <- cstringToText path' - freeMem path' - pathReversed' <- peek pathReversed - pathReversed'' <- cstringToText pathReversed' - freeMem pathReversed' - touchManagedPtr _obj - freeMem pathLength - freeMem path - freeMem pathReversed - return (pathLength', path'', pathReversed'') - -data WidgetClassPathMethodInfo -instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetClassPathMethodInfo a signature where - overloadedMethod _ = widgetClassPath - --- method Widget::compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_widget_compute_expand" gtk_widget_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO CInt - - -widgetComputeExpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Orientation -- orientation - -> m Bool -- result -widgetComputeExpand _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_widget_compute_expand _obj' orientation' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetComputeExpandMethodInfo -instance (signature ~ (Orientation -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetComputeExpandMethodInfo a signature where - overloadedMethod _ = widgetComputeExpand - --- method Widget::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetCreatePangoContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Pango.Context -- result -widgetCreatePangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_create_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result - result' <- (wrapObject Pango.Context) result - touchManagedPtr _obj - return result' - -data WidgetCreatePangoContextMethodInfo -instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoContextMethodInfo a signature where - overloadedMethod _ = widgetCreatePangoContext - --- method Widget::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Layout") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO (Ptr Pango.Layout) - - -widgetCreatePangoLayout :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m Pango.Layout -- result -widgetCreatePangoLayout _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - result <- gtk_widget_create_pango_layout _obj' maybeText - checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result - result' <- (wrapObject Pango.Layout) result - touchManagedPtr _obj - freeMem maybeText - return result' - -data WidgetCreatePangoLayoutMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Pango.Layout), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoLayoutMethodInfo a signature where - overloadedMethod _ = widgetCreatePangoLayout - --- method Widget::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_destroy" gtk_widget_destroy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDestroy :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_destroy _obj' - touchManagedPtr _obj - return () - -data WidgetDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDestroyMethodInfo a signature where - overloadedMethod _ = widgetDestroy - --- method Widget::destroyed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget" - IO () - - -widgetDestroyed :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- widgetPointer - -> m (Widget) -- result -widgetDestroyed _obj widgetPointer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetPointer' = unsafeManagedPtrCastPtr widgetPointer - widgetPointer'' <- allocMem :: IO (Ptr (Ptr Widget)) - poke widgetPointer'' widgetPointer' - gtk_widget_destroyed _obj' widgetPointer'' - widgetPointer''' <- peek widgetPointer'' - widgetPointer'''' <- (newObject Widget) widgetPointer''' - touchManagedPtr _obj - touchManagedPtr widgetPointer - freeMem widgetPointer'' - return widgetPointer'''' - -data WidgetDestroyedMethodInfo -instance (signature ~ (b -> m (Widget)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetDestroyedMethodInfo a signature where - overloadedMethod _ = widgetDestroyed - --- method Widget::device_is_shadowed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", 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 "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetDeviceIsShadowed :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m Bool -- result -widgetDeviceIsShadowed _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_device_is_shadowed _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetDeviceIsShadowedMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetDeviceIsShadowedMethodInfo a signature where - overloadedMethod _ = widgetDeviceIsShadowed - --- method Widget::drag_begin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin" gtk_drag_begin :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO (Ptr Gdk.DragContext) - -{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-} -widgetDragBegin :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TargetList -- targets - -> [Gdk.DragAction] -- actions - -> Int32 -- button - -> Maybe (Gdk.Event) -- event - -> m Gdk.DragContext -- result -widgetDragBegin _obj targets actions button event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin _obj' targets' actions' button maybeEvent - checkUnexpectedReturnNULL "gtk_drag_begin" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - -data WidgetDragBeginMethodInfo -instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginMethodInfo a signature where - overloadedMethod _ = widgetDragBegin - --- method Widget::drag_begin_with_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr Gdk.DragContext) - - -widgetDragBeginWithCoordinates :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TargetList -- targets - -> [Gdk.DragAction] -- actions - -> Int32 -- button - -> Maybe (Gdk.Event) -- event - -> Int32 -- x - -> Int32 -- y - -> m Gdk.DragContext -- result -widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y - checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - -data WidgetDragBeginWithCoordinatesMethodInfo -instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> Int32 -> Int32 -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginWithCoordinatesMethodInfo a signature where - overloadedMethod _ = widgetDragBeginWithCoordinates - --- method Widget::drag_check_threshold --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_y", 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 "gtk_drag_check_threshold" gtk_drag_check_threshold :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- start_x : TBasicType TInt - Int32 -> -- start_y : TBasicType TInt - Int32 -> -- current_x : TBasicType TInt - Int32 -> -- current_y : TBasicType TInt - IO CInt - - -widgetDragCheckThreshold :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- startX - -> Int32 -- startY - -> Int32 -- currentX - -> Int32 -- currentY - -> m Bool -- result -widgetDragCheckThreshold _obj startX startY currentX currentY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_check_threshold _obj' startX startY currentX currentY - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetDragCheckThresholdMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragCheckThresholdMethodInfo a signature where - overloadedMethod _ = widgetDragCheckThreshold - --- method Widget::drag_dest_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddImageTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_image_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddImageTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddImageTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddImageTargets - --- method Widget::drag_dest_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddTextTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_text_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddTextTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddTextTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddTextTargets - --- method Widget::drag_dest_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddUriTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_uri_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddUriTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddUriTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddUriTargets - --- method Widget::drag_dest_find_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO (Ptr Gdk.Atom) - - -widgetDragDestFindTarget :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -- _obj - -> b -- context - -> Maybe (TargetList) -- targetList - -> m Gdk.Atom -- result -widgetDragDestFindTarget _obj context targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - result <- gtk_drag_dest_find_target _obj' context' maybeTargetList - checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - touchManagedPtr context - whenJust targetList touchManagedPtr - return result' - -data WidgetDragDestFindTargetMethodInfo -instance (signature ~ (b -> Maybe (TargetList) -> m Gdk.Atom), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragDestFindTargetMethodInfo a signature where - overloadedMethod _ = widgetDragDestFindTarget - --- method Widget::drag_dest_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragDestGetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TargetList -- result -widgetDragDestGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data WidgetDragDestGetTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragDestGetTargetList - --- method Widget::drag_dest_get_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetDragDestGetTrackMotion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetDragDestGetTrackMotion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_track_motion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetDragDestGetTrackMotionMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTrackMotionMethodInfo a signature where - overloadedMethod _ = widgetDragDestGetTrackMotion - --- method Widget::drag_dest_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "DestDefaults" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragDestSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [DestDefaults] -- flags - -> Maybe ([TargetEntry]) -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -widgetDragDestSet _obj flags targets actions = liftIO $ do - let nTargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_dest_set _obj' flags' maybeTargets nTargets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - -data WidgetDragDestSetMethodInfo -instance (signature ~ ([DestDefaults] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetMethodInfo a signature where - overloadedMethod _ = widgetDragDestSet - --- method Widget::drag_dest_set_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_coordinates", 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 "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window" - CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" - CInt -> -- use_coordinates : TBasicType TBoolean - IO () - - -widgetDragDestSetProxy :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- proxyWindow - -> Gdk.DragProtocol -- protocol - -> Bool -- useCoordinates - -> m () -- result -widgetDragDestSetProxy _obj proxyWindow protocol useCoordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let proxyWindow' = unsafeManagedPtrCastPtr proxyWindow - let protocol' = (fromIntegral . fromEnum) protocol - let useCoordinates' = (fromIntegral . fromEnum) useCoordinates - gtk_drag_dest_set_proxy _obj' proxyWindow' protocol' useCoordinates' - touchManagedPtr _obj - touchManagedPtr proxyWindow - return () - -data WidgetDragDestSetProxyMethodInfo -instance (signature ~ (b -> Gdk.DragProtocol -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetDragDestSetProxyMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetProxy - --- method Widget::drag_dest_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragDestSetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (TargetList) -- targetList - -> m () -- result -widgetDragDestSetTargetList _obj targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - gtk_drag_dest_set_target_list _obj' maybeTargetList - touchManagedPtr _obj - whenJust targetList touchManagedPtr - return () - -data WidgetDragDestSetTargetListMethodInfo -instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetTargetList - --- method Widget::drag_dest_set_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_motion", 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 "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- track_motion : TBasicType TBoolean - IO () - - -widgetDragDestSetTrackMotion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- trackMotion - -> m () -- result -widgetDragDestSetTrackMotion _obj trackMotion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let trackMotion' = (fromIntegral . fromEnum) trackMotion - gtk_drag_dest_set_track_motion _obj' trackMotion' - touchManagedPtr _obj - return () - -data WidgetDragDestSetTrackMotionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTrackMotionMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetTrackMotion - --- method Widget::drag_dest_unset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_unset" gtk_drag_dest_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestUnset :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_unset _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestUnsetMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestUnsetMethodInfo a signature where - overloadedMethod _ = widgetDragDestUnset - --- method Widget::drag_get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, 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 "gtk_drag_get_data" gtk_drag_get_data :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -widgetDragGetData :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -- _obj - -> b -- context - -> Gdk.Atom -- target - -> Word32 -- time_ - -> m () -- result -widgetDragGetData _obj context target time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let target' = unsafeManagedPtrGetPtr target - gtk_drag_get_data _obj' context' target' time_ - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr target - return () - -data WidgetDragGetDataMethodInfo -instance (signature ~ (b -> Gdk.Atom -> Word32 -> m ()), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragGetDataMethodInfo a signature where - overloadedMethod _ = widgetDragGetData - --- method Widget::drag_highlight --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_highlight" gtk_drag_highlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragHighlight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragHighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_highlight _obj' - touchManagedPtr _obj - return () - -data WidgetDragHighlightMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragHighlightMethodInfo a signature where - overloadedMethod _ = widgetDragHighlight - --- method Widget::drag_source_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddImageTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_image_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddImageTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddImageTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddImageTargets - --- method Widget::drag_source_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddTextTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_text_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddTextTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddTextTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddTextTargets - --- method Widget::drag_source_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddUriTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_uri_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddUriTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddUriTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddUriTargets - --- method Widget::drag_source_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragSourceGetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TargetList -- result -widgetDragSourceGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_source_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data WidgetDragSourceGetTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceGetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragSourceGetTargetList - --- method Widget::drag_source_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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 = "actions", argType = TInterface "Gdk" "DragAction", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set" gtk_drag_source_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragSourceSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [Gdk.ModifierType] -- startButtonMask - -> Maybe ([TargetEntry]) -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -widgetDragSourceSet _obj startButtonMask targets actions = liftIO $ do - let nTargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let startButtonMask' = gflagsToWord startButtonMask - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_source_set _obj' startButtonMask' maybeTargets nTargets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - -data WidgetDragSourceSetMethodInfo -instance (signature ~ ([Gdk.ModifierType] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSet - --- method Widget::drag_source_set_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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 "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -widgetDragSourceSetIconGicon :: - (MonadIO m, WidgetK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -widgetDragSourceSetIconGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_drag_source_set_icon_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data WidgetDragSourceSetIconGiconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gio.IconK b) => MethodInfo WidgetDragSourceSetIconGiconMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconGicon - --- method Widget::drag_source_set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_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 "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -widgetDragSourceSetIconName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- iconName - -> m () -- result -widgetDragSourceSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - gtk_drag_source_set_icon_name _obj' iconName' - touchManagedPtr _obj - freeMem iconName' - return () - -data WidgetDragSourceSetIconNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconNameMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconName - --- method Widget::drag_source_set_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -widgetDragSourceSetIconPixbuf :: - (MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> b -- pixbuf - -> m () -- result -widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_drag_source_set_icon_pixbuf _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - -data WidgetDragSourceSetIconPixbufMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => MethodInfo WidgetDragSourceSetIconPixbufMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconPixbuf - --- method Widget::drag_source_set_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_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 "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-} -widgetDragSourceSetIconStock :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> m () -- result -widgetDragSourceSetIconStock _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - gtk_drag_source_set_icon_stock _obj' stockId' - touchManagedPtr _obj - freeMem stockId' - return () - -data WidgetDragSourceSetIconStockMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconStockMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconStock - --- method Widget::drag_source_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragSourceSetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (TargetList) -- targetList - -> m () -- result -widgetDragSourceSetTargetList _obj targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - gtk_drag_source_set_target_list _obj' maybeTargetList - touchManagedPtr _obj - whenJust targetList touchManagedPtr - return () - -data WidgetDragSourceSetTargetListMethodInfo -instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetTargetList - --- method Widget::drag_source_unset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_unset" gtk_drag_source_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceUnset :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_unset _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceUnsetMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceUnsetMethodInfo a signature where - overloadedMethod _ = widgetDragSourceUnset - --- method Widget::drag_unhighlight --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_unhighlight" gtk_drag_unhighlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragUnhighlight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragUnhighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_unhighlight _obj' - touchManagedPtr _obj - return () - -data WidgetDragUnhighlightMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragUnhighlightMethodInfo a signature where - overloadedMethod _ = widgetDragUnhighlight - --- method Widget::draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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 "gtk_widget_draw" gtk_widget_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - IO () - - -widgetDraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Context -- cr - -> m () -- result -widgetDraw _obj cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - gtk_widget_draw _obj' cr' - touchManagedPtr _obj - touchManagedPtr cr - return () - -data WidgetDrawMethodInfo -instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDrawMethodInfo a signature where - overloadedMethod _ = widgetDraw - --- method Widget::ensure_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_ensure_style" gtk_widget_ensure_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetEnsureStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetEnsureStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_ensure_style _obj' - touchManagedPtr _obj - return () - -data WidgetEnsureStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetEnsureStyleMethodInfo a signature where - overloadedMethod _ = widgetEnsureStyle - --- method Widget::error_bell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_error_bell" gtk_widget_error_bell :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetErrorBell :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetErrorBell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_error_bell _obj' - touchManagedPtr _obj - return () - -data WidgetErrorBellMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetErrorBellMethodInfo a signature where - overloadedMethod _ = widgetErrorBell - --- method Widget::event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_widget_event" gtk_widget_event :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetEvent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -widgetEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WidgetEventMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetEventMethodInfo a signature where - overloadedMethod _ = widgetEvent - --- method Widget::freeze_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetFreezeChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetFreezeChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_freeze_child_notify _obj' - touchManagedPtr _obj - return () - -data WidgetFreezeChildNotifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetFreezeChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetFreezeChildNotify - --- method Widget::get_accessible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_accessible" gtk_widget_get_accessible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Atk.Object) - - -widgetGetAccessible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Atk.Object -- result -widgetGetAccessible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_accessible _obj' - checkUnexpectedReturnNULL "gtk_widget_get_accessible" result - result' <- (newObject Atk.Object) result - touchManagedPtr _obj - return result' - -data WidgetGetAccessibleMethodInfo -instance (signature ~ (m Atk.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetAccessibleMethodInfo a signature where - overloadedMethod _ = widgetGetAccessible - --- method Widget::get_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ActionGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- prefix : TBasicType TUTF8 - IO (Ptr Gio.ActionGroup) - - -widgetGetActionGroup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- prefix - -> m (Maybe Gio.ActionGroup) -- result -widgetGetActionGroup _obj prefix = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - prefix' <- textToCString prefix - result <- gtk_widget_get_action_group _obj' prefix' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gio.ActionGroup) result' - return result'' - touchManagedPtr _obj - freeMem prefix' - return maybeResult - -data WidgetGetActionGroupMethodInfo -instance (signature ~ (T.Text -> m (Maybe Gio.ActionGroup)), MonadIO m, WidgetK a) => MethodInfo WidgetGetActionGroupMethodInfo a signature where - overloadedMethod _ = widgetGetActionGroup - --- method Widget::get_allocated_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_baseline _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedBaselineMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedBaselineMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedBaseline - --- method Widget::get_allocated_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_height _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedHeightMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedHeight - --- method Widget::get_allocated_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_width _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedWidthMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedWidth - --- method Widget::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetAllocation :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -widgetGetAllocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_allocation _obj' allocation - allocation' <- (wrapBoxed Gdk.Rectangle) allocation - touchManagedPtr _obj - return allocation' - -data WidgetGetAllocationMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocationMethodInfo a signature where - overloadedMethod _ = widgetGetAllocation - --- method Widget::get_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - IO (Ptr Widget) - - -widgetGetAncestor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> GType -- widgetType - -> m (Maybe Widget) -- result -widgetGetAncestor _obj widgetType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetType' = gtypeToCGType widgetType - result <- gtk_widget_get_ancestor _obj' widgetType' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetAncestorMethodInfo -instance (signature ~ (GType -> m (Maybe Widget)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAncestorMethodInfo a signature where - overloadedMethod _ = widgetGetAncestor - --- method Widget::get_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetAppPaintable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetAppPaintable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_app_paintable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetAppPaintableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetAppPaintableMethodInfo a signature where - overloadedMethod _ = widgetGetAppPaintable - --- method Widget::get_can_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_can_default" gtk_widget_get_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetCanDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetCanDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanDefaultMethodInfo a signature where - overloadedMethod _ = widgetGetCanDefault - --- method Widget::get_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_can_focus" gtk_widget_get_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetCanFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetCanFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanFocusMethodInfo a signature where - overloadedMethod _ = widgetGetCanFocus - --- method Widget::get_child_requisition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetGetChildRequisition :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetGetChildRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_child_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetGetChildRequisitionMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildRequisitionMethodInfo a signature where - overloadedMethod _ = widgetGetChildRequisition - --- method Widget::get_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_child_visible" gtk_widget_get_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetChildVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetChildVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_child_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetChildVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildVisibleMethodInfo a signature where - overloadedMethod _ = widgetGetChildVisible - --- method Widget::get_clip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetClip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -widgetGetClip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_clip _obj' clip - clip' <- (wrapBoxed Gdk.Rectangle) clip - touchManagedPtr _obj - return clip' - -data WidgetGetClipMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipMethodInfo a signature where - overloadedMethod _ = widgetGetClip - --- method Widget::get_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Clipboard") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Clipboard) - - -widgetGetClipboard :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Atom -- selection - -> m Clipboard -- result -widgetGetClipboard _obj selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_widget_get_clipboard _obj' selection' - checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result - result' <- (newObject Clipboard) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data WidgetGetClipboardMethodInfo -instance (signature ~ (Gdk.Atom -> m Clipboard), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipboardMethodInfo a signature where - overloadedMethod _ = widgetGetClipboard - --- method Widget::get_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_composite_name" gtk_widget_get_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - -{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetGetCompositeName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetCompositeName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_composite_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetGetCompositeNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetCompositeNameMethodInfo a signature where - overloadedMethod _ = widgetGetCompositeName - --- method Widget::get_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", 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 "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetGetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m Bool -- result -widgetGetDeviceEnabled _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_enabled _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetGetDeviceEnabledMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEnabledMethodInfo a signature where - overloadedMethod _ = widgetGetDeviceEnabled - --- method Widget::get_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventMask") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CUInt - - -widgetGetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m [Gdk.EventMask] -- result -widgetGetDeviceEvents _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_events _obj' device' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetGetDeviceEventsMethodInfo -instance (signature ~ (b -> m [Gdk.EventMask]), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetGetDeviceEvents - --- method Widget::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetDirection :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TextDirection -- result -widgetGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetDirectionMethodInfo -instance (signature ~ (m TextDirection), MonadIO m, WidgetK a) => MethodInfo WidgetGetDirectionMethodInfo a signature where - overloadedMethod _ = widgetGetDirection - --- method Widget::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_display" gtk_widget_get_display :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Display) - - -widgetGetDisplay :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Display -- result -widgetGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_display _obj' - checkUnexpectedReturnNULL "gtk_widget_get_display" result - result' <- (newObject Gdk.Display) result - touchManagedPtr _obj - return result' - -data WidgetGetDisplayMethodInfo -instance (signature ~ (m Gdk.Display), MonadIO m, WidgetK a) => MethodInfo WidgetGetDisplayMethodInfo a signature where - overloadedMethod _ = widgetGetDisplay - --- method Widget::get_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetDoubleBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_double_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetDoubleBufferedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetDoubleBufferedMethodInfo a signature where - overloadedMethod _ = widgetGetDoubleBuffered - --- method Widget::get_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_events" gtk_widget_get_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_events _obj' - touchManagedPtr _obj - return result - -data WidgetGetEventsMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetEventsMethodInfo a signature where - overloadedMethod _ = widgetGetEvents - --- method Widget::get_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "FontMap") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.FontMap) - - -widgetGetFontMap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Maybe Pango.FontMap) -- result -widgetGetFontMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_map _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Pango.FontMap) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetFontMapMethodInfo -instance (signature ~ (m (Maybe Pango.FontMap)), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontMapMethodInfo a signature where - overloadedMethod _ = widgetGetFontMap - --- method Widget::get_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "FontOptions") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Cairo.FontOptions) - - -widgetGetFontOptions :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Maybe Cairo.FontOptions) -- result -widgetGetFontOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_options _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newPtr Cairo.FontOptions) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetFontOptionsMethodInfo -instance (signature ~ (m (Maybe Cairo.FontOptions)), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontOptionsMethodInfo a signature where - overloadedMethod _ = widgetGetFontOptions - --- method Widget::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameClock") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.FrameClock) - - -widgetGetFrameClock :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.FrameClock -- result -widgetGetFrameClock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_frame_clock _obj' - checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result - result' <- (newObject Gdk.FrameClock) result - touchManagedPtr _obj - return result' - -data WidgetGetFrameClockMethodInfo -instance (signature ~ (m Gdk.FrameClock), MonadIO m, WidgetK a) => MethodInfo WidgetGetFrameClockMethodInfo a signature where - overloadedMethod _ = widgetGetFrameClock - --- method Widget::get_halign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Align") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetHalign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetHalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_halign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetHalignMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetHalignMethodInfo a signature where - overloadedMethod _ = widgetGetHalign - --- method Widget::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasTooltip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHasTooltipMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasTooltipMethodInfo a signature where - overloadedMethod _ = widgetGetHasTooltip - --- method Widget::get_has_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_has_window" gtk_widget_get_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHasWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHasWindowMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasWindowMethodInfo a signature where - overloadedMethod _ = widgetGetHasWindow - --- method Widget::get_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHexpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandMethodInfo a signature where - overloadedMethod _ = widgetGetHexpand - --- method Widget::get_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHexpandSetMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandSetMethodInfo a signature where - overloadedMethod _ = widgetGetHexpandSet - --- method Widget::get_mapped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_mapped" gtk_widget_get_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetMapped :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetMapped _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_mapped _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetMappedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetMappedMethodInfo a signature where - overloadedMethod _ = widgetGetMapped - --- method Widget::get_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginBottom :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginBottom _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_bottom _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginBottomMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginBottomMethodInfo a signature where - overloadedMethod _ = widgetGetMarginBottom - --- method Widget::get_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_end" gtk_widget_get_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginEnd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_end _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginEndMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginEndMethodInfo a signature where - overloadedMethod _ = widgetGetMarginEnd - --- method Widget::get_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_left" gtk_widget_get_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-} -widgetGetMarginLeft :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_left _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginLeftMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginLeftMethodInfo a signature where - overloadedMethod _ = widgetGetMarginLeft - --- method Widget::get_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_right" gtk_widget_get_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-} -widgetGetMarginRight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginRight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_right _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginRightMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginRightMethodInfo a signature where - overloadedMethod _ = widgetGetMarginRight - --- method Widget::get_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_start" gtk_widget_get_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginStart :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_start _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginStartMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginStartMethodInfo a signature where - overloadedMethod _ = widgetGetMarginStart - --- method Widget::get_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_top" gtk_widget_get_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginTop :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_top _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginTopMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginTopMethodInfo a signature where - overloadedMethod _ = widgetGetMarginTop - --- method Widget::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ModifierType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" - IO CUInt - - -widgetGetModifierMask :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.ModifierIntent -- intent - -> m [Gdk.ModifierType] -- result -widgetGetModifierMask _obj intent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let intent' = (fromIntegral . fromEnum) intent - result <- gtk_widget_get_modifier_mask _obj' intent' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WidgetGetModifierMaskMethodInfo -instance (signature ~ (Gdk.ModifierIntent -> m [Gdk.ModifierType]), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierMaskMethodInfo a signature where - overloadedMethod _ = widgetGetModifierMask - --- method Widget::get_modifier_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RcStyle") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr RcStyle) - -{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetGetModifierStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m RcStyle -- result -widgetGetModifierStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_modifier_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result - result' <- (newObject RcStyle) result - touchManagedPtr _obj - return result' - -data WidgetGetModifierStyleMethodInfo -instance (signature ~ (m RcStyle), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierStyleMethodInfo a signature where - overloadedMethod _ = widgetGetModifierStyle - --- method Widget::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_name" gtk_widget_get_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WidgetGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetNameMethodInfo a signature where - overloadedMethod _ = widgetGetName - --- method Widget::get_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetNoShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetNoShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_no_show_all _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetNoShowAllMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetNoShowAllMethodInfo a signature where - overloadedMethod _ = widgetGetNoShowAll - --- method Widget::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_opacity" gtk_widget_get_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CDouble - - -widgetGetOpacity :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Double -- result -widgetGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data WidgetGetOpacityMethodInfo -instance (signature ~ (m Double), MonadIO m, WidgetK a) => MethodInfo WidgetGetOpacityMethodInfo a signature where - overloadedMethod _ = widgetGetOpacity - --- method Widget::get_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetGetPangoContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Pango.Context -- result -widgetGetPangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result - result' <- (newObject Pango.Context) result - touchManagedPtr _obj - return result' - -data WidgetGetPangoContextMethodInfo -instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetGetPangoContextMethodInfo a signature where - overloadedMethod _ = widgetGetPangoContext - --- method Widget::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetParent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Maybe Widget) -- result -widgetGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Widget) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetParentMethodInfo -instance (signature ~ (m (Maybe Widget)), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentMethodInfo a signature where - overloadedMethod _ = widgetGetParent - --- method Widget::get_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetParentWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetParentWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetParentWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentWindowMethodInfo a signature where - overloadedMethod _ = widgetGetParentWindow - --- method Widget::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr WidgetPath) - - -widgetGetPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m WidgetPath -- result -widgetGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_path _obj' - checkUnexpectedReturnNULL "gtk_widget_get_path" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data WidgetGetPathMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m, WidgetK a) => MethodInfo WidgetGetPathMethodInfo a signature where - overloadedMethod _ = widgetGetPath - --- method Widget::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, 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 "gtk_widget_get_pointer" gtk_widget_get_pointer :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - -{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} -widgetGetPointer :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_widget_get_pointer _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data WidgetGetPointerMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPointerMethodInfo a signature where - overloadedMethod _ = widgetGetPointer - --- method Widget::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -widgetGetPreferredHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height _obj' minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data WidgetGetPreferredHeightMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeight - --- method Widget::get_preferred_height_and_baseline_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minimum_baseline", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_baseline", argType = TBasicType TInt, 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 "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - Ptr Int32 -> -- minimum_baseline : TBasicType TInt - Ptr Int32 -> -- natural_baseline : TBasicType TInt - IO () - - -widgetGetPreferredHeightAndBaselineForWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> m (Int32,Int32,Int32,Int32) -- result -widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - minimumBaseline <- allocMem :: IO (Ptr Int32) - naturalBaseline <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimumHeight naturalHeight minimumBaseline naturalBaseline - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - minimumBaseline' <- peek minimumBaseline - naturalBaseline' <- peek naturalBaseline - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - freeMem minimumBaseline - freeMem naturalBaseline - return (minimumHeight', naturalHeight', minimumBaseline', naturalBaseline') - -data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32,Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightAndBaselineForWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeightAndBaselineForWidth - --- method Widget::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, 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 "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- minimum_height : TBasicType TInt - Ptr Int32 -> -- natural_height : TBasicType TInt - IO () - - -widgetGetPreferredHeightForWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> m (Int32,Int32) -- result -widgetGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_for_width _obj' width minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data WidgetGetPreferredHeightForWidthMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightForWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeightForWidth - --- method Widget::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" - Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" - IO () - - -widgetGetPreferredSize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition,Requisition) -- result -widgetGetPreferredSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_preferred_size _obj' minimumSize naturalSize - minimumSize' <- (wrapBoxed Requisition) minimumSize - naturalSize' <- (wrapBoxed Requisition) naturalSize - touchManagedPtr _obj - return (minimumSize', naturalSize') - -data WidgetGetPreferredSizeMethodInfo -instance (signature ~ (m (Requisition,Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredSizeMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredSize - --- method Widget::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -widgetGetPreferredWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width _obj' minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data WidgetGetPreferredWidthMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredWidth - --- method Widget::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, 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 "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt - Ptr Int32 -> -- minimum_width : TBasicType TInt - Ptr Int32 -> -- natural_width : TBasicType TInt - IO () - - -widgetGetPreferredWidthForHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- height - -> m (Int32,Int32) -- result -widgetGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width_for_height _obj' height minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data WidgetGetPreferredWidthForHeightMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthForHeightMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredWidthForHeight - --- method Widget::get_realized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_realized" gtk_widget_get_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetRealized :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetRealized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_realized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetRealizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetRealizedMethodInfo a signature where - overloadedMethod _ = widgetGetRealized - --- method Widget::get_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_receives_default" gtk_widget_get_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetReceivesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_receives_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetReceivesDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetReceivesDefaultMethodInfo a signature where - overloadedMethod _ = widgetGetReceivesDefault - --- method Widget::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SizeRequestMode") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetRequestMode :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m SizeRequestMode -- result -widgetGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetRequestModeMethodInfo -instance (signature ~ (m SizeRequestMode), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequestModeMethodInfo a signature where - overloadedMethod _ = widgetGetRequestMode - --- method Widget::get_requisition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-} -widgetGetRequisition :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetGetRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetGetRequisitionMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequisitionMethodInfo a signature where - overloadedMethod _ = widgetGetRequisition - --- method Widget::get_root_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - -{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-} -widgetGetRootWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetRootWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_root_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_root_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetRootWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetRootWindowMethodInfo a signature where - overloadedMethod _ = widgetGetRootWindow - --- method Widget::get_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetScaleFactor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetScaleFactor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_scale_factor _obj' - touchManagedPtr _obj - return result - -data WidgetGetScaleFactorMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetScaleFactorMethodInfo a signature where - overloadedMethod _ = widgetGetScaleFactor - --- method Widget::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Screen) - - -widgetGetScreen :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Screen -- result -widgetGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_screen _obj' - checkUnexpectedReturnNULL "gtk_widget_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data WidgetGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, WidgetK a) => MethodInfo WidgetGetScreenMethodInfo a signature where - overloadedMethod _ = widgetGetScreen - --- method Widget::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSensitiveMethodInfo a signature where - overloadedMethod _ = widgetGetSensitive - --- method Widget::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Settings) - - -widgetGetSettings :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Settings -- result -widgetGetSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_settings _obj' - checkUnexpectedReturnNULL "gtk_widget_get_settings" result - result' <- (newObject Settings) result - touchManagedPtr _obj - return result' - -data WidgetGetSettingsMethodInfo -instance (signature ~ (m Settings), MonadIO m, WidgetK a) => MethodInfo WidgetGetSettingsMethodInfo a signature where - overloadedMethod _ = widgetGetSettings - --- method Widget::get_size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_widget_get_size_request" gtk_widget_get_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -widgetGetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_size_request _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data WidgetGetSizeRequestMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetGetSizeRequest - --- method Widget::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state" gtk_widget_get_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - -{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-} -widgetGetState :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m StateType -- result -widgetGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetStateMethodInfo -instance (signature ~ (m StateType), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateMethodInfo a signature where - overloadedMethod _ = widgetGetState - --- method Widget::get_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [StateFlags] -- result -widgetGetStateFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WidgetGetStateFlagsMethodInfo -instance (signature ~ (m [StateFlags]), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetGetStateFlags - --- method Widget::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style" gtk_widget_get_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Style) - -{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetGetStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Style -- result -widgetGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style" result - result' <- (newObject Style) result - touchManagedPtr _obj - return result' - -data WidgetGetStyleMethodInfo -instance (signature ~ (m Style), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleMethodInfo a signature where - overloadedMethod _ = widgetGetStyle - --- method Widget::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StyleContext") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr StyleContext) - - -widgetGetStyleContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m StyleContext -- result -widgetGetStyleContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style_context" result - result' <- (newObject StyleContext) result - touchManagedPtr _obj - return result' - -data WidgetGetStyleContextMethodInfo -instance (signature ~ (m StyleContext), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleContextMethodInfo a signature where - overloadedMethod _ = widgetGetStyleContext - --- method Widget::get_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetSupportMultidevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_support_multidevice _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetSupportMultideviceMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = widgetGetSupportMultidevice - --- method Widget::get_template_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, 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 : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - CString -> -- name : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -widgetGetTemplateChild :: - (MonadIO m, WidgetK a) => - a -- _obj - -> GType -- widgetType - -> T.Text -- name - -> m GObject.Object -- result -widgetGetTemplateChild _obj widgetType name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetType' = gtypeToCGType widgetType - name' <- textToCString name - result <- gtk_widget_get_template_child _obj' widgetType' name' - checkUnexpectedReturnNULL "gtk_widget_get_template_child" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem name' - return result' - -data WidgetGetTemplateChildMethodInfo -instance (signature ~ (GType -> T.Text -> m GObject.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetTemplateChildMethodInfo a signature where - overloadedMethod _ = widgetGetTemplateChild - --- method Widget::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Maybe T.Text) -- result -widgetGetTooltipMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_markup _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetTooltipMarkupMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipMarkup - --- method Widget::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Maybe T.Text) -- result -widgetGetTooltipText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_text _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WidgetGetTooltipTextMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipTextMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipText - --- method Widget::get_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Window) - - -widgetGetTooltipWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Window -- result -widgetGetTooltipWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WidgetGetTooltipWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipWindowMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipWindow - --- method Widget::get_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetToplevel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Widget -- result -widgetGetToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_toplevel _obj' - checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WidgetGetToplevelMethodInfo -instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetToplevelMethodInfo a signature where - overloadedMethod _ = widgetGetToplevel - --- method Widget::get_valign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Align") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetValign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetValignMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignMethodInfo a signature where - overloadedMethod _ = widgetGetValign - --- method Widget::get_valign_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Align") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValignWithBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetValignWithBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign_with_baseline _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetValignWithBaselineMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignWithBaselineMethodInfo a signature where - overloadedMethod _ = widgetGetValignWithBaseline - --- method Widget::get_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVexpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandMethodInfo a signature where - overloadedMethod _ = widgetGetVexpand - --- method Widget::get_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVexpandSetMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandSetMethodInfo a signature where - overloadedMethod _ = widgetGetVexpandSet - --- method Widget::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_visible" gtk_widget_get_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisibleMethodInfo a signature where - overloadedMethod _ = widgetGetVisible - --- method Widget::get_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Visual) - - -widgetGetVisual :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Visual -- result -widgetGetVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visual _obj' - checkUnexpectedReturnNULL "gtk_widget_get_visual" result - result' <- (newObject Gdk.Visual) result - touchManagedPtr _obj - return result' - -data WidgetGetVisualMethodInfo -instance (signature ~ (m Gdk.Visual), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisualMethodInfo a signature where - overloadedMethod _ = widgetGetVisual - --- method Widget::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_window" gtk_widget_get_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetWindowMethodInfo a signature where - overloadedMethod _ = widgetGetWindow - --- method Widget::grab_add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_grab_add" gtk_grab_add :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabAdd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabAdd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_add _obj' - touchManagedPtr _obj - return () - -data WidgetGrabAddMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabAddMethodInfo a signature where - overloadedMethod _ = widgetGrabAdd - --- method Widget::grab_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_grab_default" gtk_widget_grab_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_default _obj' - touchManagedPtr _obj - return () - -data WidgetGrabDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabDefaultMethodInfo a signature where - overloadedMethod _ = widgetGrabDefault - --- method Widget::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_grab_focus" gtk_widget_grab_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_focus _obj' - touchManagedPtr _obj - return () - -data WidgetGrabFocusMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabFocusMethodInfo a signature where - overloadedMethod _ = widgetGrabFocus - --- method Widget::grab_remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_grab_remove" gtk_grab_remove :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabRemove :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_remove _obj' - touchManagedPtr _obj - return () - -data WidgetGrabRemoveMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabRemoveMethodInfo a signature where - overloadedMethod _ = widgetGrabRemove - --- method Widget::has_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_default" gtk_widget_has_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasDefaultMethodInfo a signature where - overloadedMethod _ = widgetHasDefault - --- method Widget::has_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_focus" gtk_widget_has_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasFocusMethodInfo a signature where - overloadedMethod _ = widgetHasFocus - --- method Widget::has_grab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_grab" gtk_widget_has_grab :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasGrab :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasGrab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_grab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasGrabMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasGrabMethodInfo a signature where - overloadedMethod _ = widgetHasGrab - --- method Widget::has_rc_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_rc_style" gtk_widget_has_rc_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - -{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetHasRcStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasRcStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_rc_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasRcStyleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasRcStyleMethodInfo a signature where - overloadedMethod _ = widgetHasRcStyle - --- method Widget::has_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_screen" gtk_widget_has_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasScreen :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_screen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasScreenMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasScreenMethodInfo a signature where - overloadedMethod _ = widgetHasScreen - --- method Widget::has_visible_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasVisibleFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasVisibleFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_visible_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasVisibleFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasVisibleFocusMethodInfo a signature where - overloadedMethod _ = widgetHasVisibleFocus - --- method Widget::hide --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_hide" gtk_widget_hide :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetHide :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_hide _obj' - touchManagedPtr _obj - return () - -data WidgetHideMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetHideMethodInfo a signature where - overloadedMethod _ = widgetHide - --- method Widget::hide_on_delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHideOnDelete :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHideOnDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_hide_on_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHideOnDeleteMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHideOnDeleteMethodInfo a signature where - overloadedMethod _ = widgetHideOnDelete - --- method Widget::in_destruction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_in_destruction" gtk_widget_in_destruction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetInDestruction :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetInDestruction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_in_destruction _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetInDestructionMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetInDestructionMethodInfo a signature where - overloadedMethod _ = widgetInDestruction - --- method Widget::init_template --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_init_template" gtk_widget_init_template :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetInitTemplate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetInitTemplate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_init_template _obj' - touchManagedPtr _obj - return () - -data WidgetInitTemplateMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInitTemplateMethodInfo a signature where - overloadedMethod _ = widgetInitTemplate - --- method Widget::input_shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetInputShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.Region) -- region - -> m () -- result -widgetInputShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_input_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - -data WidgetInputShapeCombineRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInputShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = widgetInputShapeCombineRegion - --- method Widget::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup" - IO () - - -widgetInsertActionGroup :: - (MonadIO m, WidgetK a, Gio.ActionGroupK b) => - a -- _obj - -> T.Text -- name - -> Maybe (b) -- group - -> m () -- result -widgetInsertActionGroup _obj name group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - gtk_widget_insert_action_group _obj' name' maybeGroup - touchManagedPtr _obj - whenJust group touchManagedPtr - freeMem name' - return () - -data WidgetInsertActionGroupMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, WidgetK a, Gio.ActionGroupK b) => MethodInfo WidgetInsertActionGroupMethodInfo a signature where - overloadedMethod _ = widgetInsertActionGroup - --- method Widget::intersect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle" - IO CInt - - -widgetIntersect :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- area - -> Maybe (Gdk.Rectangle) -- intersection - -> m Bool -- result -widgetIntersect _obj area intersection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - maybeIntersection <- case intersection of - Nothing -> return nullPtr - Just jIntersection -> do - let jIntersection' = unsafeManagedPtrGetPtr jIntersection - return jIntersection' - result <- gtk_widget_intersect _obj' area' maybeIntersection - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr area - whenJust intersection touchManagedPtr - return result' - -data WidgetIntersectMethodInfo -instance (signature ~ (Gdk.Rectangle -> Maybe (Gdk.Rectangle) -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIntersectMethodInfo a signature where - overloadedMethod _ = widgetIntersect - --- method Widget::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_ancestor" gtk_widget_is_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsAncestor :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- ancestor - -> m Bool -- result -widgetIsAncestor _obj ancestor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ancestor' = unsafeManagedPtrCastPtr ancestor - result <- gtk_widget_is_ancestor _obj' ancestor' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr ancestor - return result' - -data WidgetIsAncestorMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetIsAncestorMethodInfo a signature where - overloadedMethod _ = widgetIsAncestor - --- method Widget::is_composited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_composited" gtk_widget_is_composited :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsComposited :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsCompositedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsCompositedMethodInfo a signature where - overloadedMethod _ = widgetIsComposited - --- method Widget::is_drawable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_drawable" gtk_widget_is_drawable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsDrawable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsDrawable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_drawable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsDrawableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsDrawableMethodInfo a signature where - overloadedMethod _ = widgetIsDrawable - --- method Widget::is_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_focus" gtk_widget_is_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsFocusMethodInfo a signature where - overloadedMethod _ = widgetIsFocus - --- method Widget::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsSensitiveMethodInfo a signature where - overloadedMethod _ = widgetIsSensitive - --- method Widget::is_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsToplevel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsToplevelMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsToplevelMethodInfo a signature where - overloadedMethod _ = widgetIsToplevel - --- method Widget::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_visible" gtk_widget_is_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsVisibleMethodInfo a signature where - overloadedMethod _ = widgetIsVisible - --- method Widget::keynav_failed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", 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 "gtk_widget_keynav_failed" gtk_widget_keynav_failed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetKeynavFailed :: - (MonadIO m, WidgetK a) => - a -- _obj - -> DirectionType -- direction - -> m Bool -- result -widgetKeynavFailed _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_keynav_failed _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetKeynavFailedMethodInfo -instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetKeynavFailedMethodInfo a signature where - overloadedMethod _ = widgetKeynavFailed - --- method Widget::list_accel_closures --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "GObject" "Closure")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Closure))) - - -widgetListAccelClosures :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [Closure] -- result -widgetListAccelClosures _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_accel_closures _obj' - result' <- unpackGList result - result'' <- mapM (newBoxed Closure) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WidgetListAccelClosuresMethodInfo -instance (signature ~ (m [Closure]), MonadIO m, WidgetK a) => MethodInfo WidgetListAccelClosuresMethodInfo a signature where - overloadedMethod _ = widgetListAccelClosures - --- method Widget::list_action_prefixes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr CString) - - -widgetListActionPrefixes :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [T.Text] -- result -widgetListActionPrefixes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_action_prefixes _obj' - checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result - result' <- unpackZeroTerminatedUTF8CArray result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetListActionPrefixesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, WidgetK a) => MethodInfo WidgetListActionPrefixesMethodInfo a signature where - overloadedMethod _ = widgetListActionPrefixes - --- method Widget::list_mnemonic_labels --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Widget))) - - -widgetListMnemonicLabels :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [Widget] -- result -widgetListMnemonicLabels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_mnemonic_labels _obj' - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WidgetListMnemonicLabelsMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, WidgetK a) => MethodInfo WidgetListMnemonicLabelsMethodInfo a signature where - overloadedMethod _ = widgetListMnemonicLabels - --- method Widget::map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_map" gtk_widget_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetMap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_map _obj' - touchManagedPtr _obj - return () - -data WidgetMapMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetMapMethodInfo a signature where - overloadedMethod _ = widgetMap - --- method Widget::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_cycling", argType = TBasicType TBoolean, 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 "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- group_cycling : TBasicType TBoolean - IO CInt - - -widgetMnemonicActivate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- groupCycling - -> m Bool -- result -widgetMnemonicActivate _obj groupCycling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let groupCycling' = (fromIntegral . fromEnum) groupCycling - result <- gtk_widget_mnemonic_activate _obj' groupCycling' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetMnemonicActivateMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetMnemonicActivateMethodInfo a signature where - overloadedMethod _ = widgetMnemonicActivate - --- method Widget::modify_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBase :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyBase _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_base _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyBaseMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBaseMethodInfo a signature where - overloadedMethod _ = widgetModifyBase - --- method Widget::modify_bg --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBg :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyBg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_bg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyBgMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBgMethodInfo a signature where - overloadedMethod _ = widgetModifyBg - --- method Widget::modify_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color" - Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-} -widgetModifyCursor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Gdk.Color) -- primary - -> Maybe (Gdk.Color) -- secondary - -> m () -- result -widgetModifyCursor _obj primary secondary = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePrimary <- case primary of - Nothing -> return nullPtr - Just jPrimary -> do - let jPrimary' = unsafeManagedPtrGetPtr jPrimary - return jPrimary' - maybeSecondary <- case secondary of - Nothing -> return nullPtr - Just jSecondary -> do - let jSecondary' = unsafeManagedPtrGetPtr jSecondary - return jSecondary' - gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary - touchManagedPtr _obj - whenJust primary touchManagedPtr - whenJust secondary touchManagedPtr - return () - -data WidgetModifyCursorMethodInfo -instance (signature ~ (Maybe (Gdk.Color) -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyCursorMethodInfo a signature where - overloadedMethod _ = widgetModifyCursor - --- method Widget::modify_fg --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyFg :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyFg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_fg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyFgMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFgMethodInfo a signature where - overloadedMethod _ = widgetModifyFg - --- method Widget::modify_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-} -widgetModifyFont :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Pango.FontDescription) -- fontDesc - -> m () -- result -widgetModifyFont _obj fontDesc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontDesc <- case fontDesc of - Nothing -> return nullPtr - Just jFontDesc -> do - let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc - return jFontDesc' - gtk_widget_modify_font _obj' maybeFontDesc - touchManagedPtr _obj - whenJust fontDesc touchManagedPtr - return () - -data WidgetModifyFontMethodInfo -instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFontMethodInfo a signature where - overloadedMethod _ = widgetModifyFont - --- method Widget::modify_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", 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 "gtk_widget_modify_style" gtk_widget_modify_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" - IO () - -{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetModifyStyle :: - (MonadIO m, WidgetK a, RcStyleK b) => - a -- _obj - -> b -- style - -> m () -- result -widgetModifyStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - gtk_widget_modify_style _obj' style' - touchManagedPtr _obj - touchManagedPtr style - return () - -data WidgetModifyStyleMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, RcStyleK b) => MethodInfo WidgetModifyStyleMethodInfo a signature where - overloadedMethod _ = widgetModifyStyle - --- method Widget::modify_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyText _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_text _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyTextMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyTextMethodInfo a signature where - overloadedMethod _ = widgetModifyText - --- method Widget::override_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-} -widgetOverrideBackgroundColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- state - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideBackgroundColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_background_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetOverrideBackgroundColorMethodInfo -instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideBackgroundColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideBackgroundColor - --- method Widget::override_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_color" gtk_widget_override_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-} -widgetOverrideColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- state - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetOverrideColorMethodInfo -instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideColor - --- method Widget::override_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideCursor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Gdk.RGBA) -- cursor - -> Maybe (Gdk.RGBA) -- secondaryCursor - -> m () -- result -widgetOverrideCursor _obj cursor secondaryCursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrGetPtr jCursor - return jCursor' - maybeSecondaryCursor <- case secondaryCursor of - Nothing -> return nullPtr - Just jSecondaryCursor -> do - let jSecondaryCursor' = unsafeManagedPtrGetPtr jSecondaryCursor - return jSecondaryCursor' - gtk_widget_override_cursor _obj' maybeCursor maybeSecondaryCursor - touchManagedPtr _obj - whenJust cursor touchManagedPtr - whenJust secondaryCursor touchManagedPtr - return () - -data WidgetOverrideCursorMethodInfo -instance (signature ~ (Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideCursorMethodInfo a signature where - overloadedMethod _ = widgetOverrideCursor - --- method Widget::override_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_font" gtk_widget_override_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideFont :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Pango.FontDescription) -- fontDesc - -> m () -- result -widgetOverrideFont _obj fontDesc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontDesc <- case fontDesc of - Nothing -> return nullPtr - Just jFontDesc -> do - let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc - return jFontDesc' - gtk_widget_override_font _obj' maybeFontDesc - touchManagedPtr _obj - whenJust fontDesc touchManagedPtr - return () - -data WidgetOverrideFontMethodInfo -instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideFontMethodInfo a signature where - overloadedMethod _ = widgetOverrideFont - --- method Widget::override_symbolic_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideSymbolicColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideSymbolicColor _obj name color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_symbolic_color _obj' name' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - freeMem name' - return () - -data WidgetOverrideSymbolicColorMethodInfo -instance (signature ~ (T.Text -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideSymbolicColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideSymbolicColor - --- method Widget::path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", 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 "gtk_widget_path" gtk_widget_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Word32,T.Text,T.Text) -- result -widgetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pathLength <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - pathReversed <- allocMem :: IO (Ptr CString) - gtk_widget_path _obj' pathLength path pathReversed - pathLength' <- peek pathLength - path' <- peek path - path'' <- cstringToText path' - freeMem path' - pathReversed' <- peek pathReversed - pathReversed'' <- cstringToText pathReversed' - freeMem pathReversed' - touchManagedPtr _obj - freeMem pathLength - freeMem path - freeMem pathReversed - return (pathLength', path'', pathReversed'') - -data WidgetPathMethodInfo -instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetPathMethodInfo a signature where - overloadedMethod _ = widgetPath - --- method Widget::queue_compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueComputeExpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueComputeExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_compute_expand _obj' - touchManagedPtr _obj - return () - -data WidgetQueueComputeExpandMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueComputeExpandMethodInfo a signature where - overloadedMethod _ = widgetQueueComputeExpand - --- method Widget::queue_draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_draw" gtk_widget_queue_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueDraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw _obj' - touchManagedPtr _obj - return () - -data WidgetQueueDrawMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawMethodInfo a signature where - overloadedMethod _ = widgetQueueDraw - --- method Widget::queue_draw_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -widgetQueueDrawArea :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -widgetQueueDrawArea _obj x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw_area _obj' x y width height - touchManagedPtr _obj - return () - -data WidgetQueueDrawAreaMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawAreaMethodInfo a signature where - overloadedMethod _ = widgetQueueDrawArea - --- method Widget::queue_draw_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", 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 "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetQueueDrawRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Region -- region - -> m () -- result -widgetQueueDrawRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - gtk_widget_queue_draw_region _obj' region' - touchManagedPtr _obj - touchManagedPtr region - return () - -data WidgetQueueDrawRegionMethodInfo -instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawRegionMethodInfo a signature where - overloadedMethod _ = widgetQueueDrawRegion - --- method Widget::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_resize" gtk_widget_queue_resize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize _obj' - touchManagedPtr _obj - return () - -data WidgetQueueResizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeMethodInfo a signature where - overloadedMethod _ = widgetQueueResize - --- method Widget::queue_resize_no_redraw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResizeNoRedraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueResizeNoRedraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize_no_redraw _obj' - touchManagedPtr _obj - return () - -data WidgetQueueResizeNoRedrawMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeNoRedrawMethodInfo a signature where - overloadedMethod _ = widgetQueueResizeNoRedraw - --- method Widget::realize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_realize" gtk_widget_realize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetRealize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetRealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_realize _obj' - touchManagedPtr _obj - return () - -data WidgetRealizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRealizeMethodInfo a signature where - overloadedMethod _ = widgetRealize - --- method Widget::region_intersect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO (Ptr Cairo.Region) - -{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-} -widgetRegionIntersect :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Region -- region - -> m Cairo.Region -- result -widgetRegionIntersect _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - result <- gtk_widget_region_intersect _obj' region' - checkUnexpectedReturnNULL "gtk_widget_region_intersect" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - touchManagedPtr region - return result' - -data WidgetRegionIntersectMethodInfo -instance (signature ~ (Cairo.Region -> m Cairo.Region), MonadIO m, WidgetK a) => MethodInfo WidgetRegionIntersectMethodInfo a signature where - overloadedMethod _ = widgetRegionIntersect - --- method Widget::register_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", 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 "gtk_widget_register_window" gtk_widget_register_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetRegisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetRegisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_register_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetRegisterWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetRegisterWindowMethodInfo a signature where - overloadedMethod _ = widgetRegisterWindow - --- method Widget::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -widgetRemoveAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> b -- accelGroup - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m Bool -- result -widgetRemoveAccelerator _obj accelGroup accelKey accelMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - let accelMods' = gflagsToWord accelMods - result <- gtk_widget_remove_accelerator _obj' accelGroup' accelKey accelMods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr accelGroup - return result' - -data WidgetRemoveAcceleratorMethodInfo -instance (signature ~ (b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetRemoveAcceleratorMethodInfo a signature where - overloadedMethod _ = widgetRemoveAccelerator - --- method Widget::remove_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetRemoveMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- label - -> m () -- result -widgetRemoveMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_remove_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - -data WidgetRemoveMnemonicLabelMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetRemoveMnemonicLabelMethodInfo a signature where - overloadedMethod _ = widgetRemoveMnemonicLabel - --- method Widget::remove_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- id : TBasicType TUInt - IO () - - -widgetRemoveTickCallback :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Word32 -- id - -> m () -- result -widgetRemoveTickCallback _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_remove_tick_callback _obj' id - touchManagedPtr _obj - return () - -data WidgetRemoveTickCallbackMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRemoveTickCallbackMethodInfo a signature where - overloadedMethod _ = widgetRemoveTickCallback - --- method Widget::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - CString -> -- detail : TBasicType TUTF8 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-} -widgetRenderIcon :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> Int32 -- size - -> Maybe (T.Text) -- detail - -> m GdkPixbuf.Pixbuf -- result -widgetRenderIcon _obj stockId size detail = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_widget_render_icon _obj' stockId' size maybeDetail - checkUnexpectedReturnNULL "gtk_widget_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stockId' - freeMem maybeDetail - return result' - -data WidgetRenderIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconMethodInfo a signature where - overloadedMethod _ = widgetRenderIcon - --- method Widget::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} -widgetRenderIconPixbuf :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> Int32 -- size - -> m (Maybe GdkPixbuf.Pixbuf) -- result -widgetRenderIconPixbuf _obj stockId size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - result <- gtk_widget_render_icon_pixbuf _obj' stockId' size - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - freeMem stockId' - return maybeResult - -data WidgetRenderIconPixbufMethodInfo -instance (signature ~ (T.Text -> Int32 -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconPixbufMethodInfo a signature where - overloadedMethod _ = widgetRenderIconPixbuf - --- method Widget::reparent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reparent" gtk_widget_reparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-} -widgetReparent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- newParent - -> m () -- result -widgetReparent _obj newParent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let newParent' = unsafeManagedPtrCastPtr newParent - gtk_widget_reparent _obj' newParent' - touchManagedPtr _obj - touchManagedPtr newParent - return () - -data WidgetReparentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetReparentMethodInfo a signature where - overloadedMethod _ = widgetReparent - --- method Widget::reset_rc_styles --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-} -widgetResetRcStyles :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetResetRcStyles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_rc_styles _obj' - touchManagedPtr _obj - return () - -data WidgetResetRcStylesMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetRcStylesMethodInfo a signature where - overloadedMethod _ = widgetResetRcStyles - --- method Widget::reset_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reset_style" gtk_widget_reset_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetResetStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetResetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_style _obj' - touchManagedPtr _obj - return () - -data WidgetResetStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetStyleMethodInfo a signature where - overloadedMethod _ = widgetResetStyle - --- method Widget::send_expose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_widget_send_expose" gtk_widget_send_expose :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO Int32 - - -widgetSendExpose :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Int32 -- result -widgetSendExpose _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_expose _obj' event' - touchManagedPtr _obj - touchManagedPtr event - return result - -data WidgetSendExposeMethodInfo -instance (signature ~ (Gdk.Event -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetSendExposeMethodInfo a signature where - overloadedMethod _ = widgetSendExpose - --- method Widget::send_focus_change --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", 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 "gtk_widget_send_focus_change" gtk_widget_send_focus_change :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetSendFocusChange :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -widgetSendFocusChange _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_focus_change _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WidgetSendFocusChangeMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetSendFocusChangeMethodInfo a signature where - overloadedMethod _ = widgetSendFocusChange - --- method Widget::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_path : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -widgetSetAccelPath :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> Maybe (T.Text) -- accelPath - -> Maybe (b) -- accelGroup - -> m () -- result -widgetSetAccelPath _obj accelPath accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelPath <- case accelPath of - Nothing -> return nullPtr - Just jAccelPath -> do - jAccelPath' <- textToCString jAccelPath - return jAccelPath' - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - gtk_widget_set_accel_path _obj' maybeAccelPath maybeAccelGroup - touchManagedPtr _obj - whenJust accelGroup touchManagedPtr - freeMem maybeAccelPath - return () - -data WidgetSetAccelPathMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetSetAccelPathMethodInfo a signature where - overloadedMethod _ = widgetSetAccelPath - --- method Widget::set_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", 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 "gtk_widget_set_allocation" gtk_widget_set_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetAllocation :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> m () -- result -widgetSetAllocation _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_set_allocation _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSetAllocationMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAllocationMethodInfo a signature where - overloadedMethod _ = widgetSetAllocation - --- method Widget::set_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_paintable", 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 "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- app_paintable : TBasicType TBoolean - IO () - - -widgetSetAppPaintable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- appPaintable - -> m () -- result -widgetSetAppPaintable _obj appPaintable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let appPaintable' = (fromIntegral . fromEnum) appPaintable - gtk_widget_set_app_paintable _obj' appPaintable' - touchManagedPtr _obj - return () - -data WidgetSetAppPaintableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAppPaintableMethodInfo a signature where - overloadedMethod _ = widgetSetAppPaintable - --- method Widget::set_can_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_default", 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 "gtk_widget_set_can_default" gtk_widget_set_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_default : TBasicType TBoolean - IO () - - -widgetSetCanDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- canDefault - -> m () -- result -widgetSetCanDefault _obj canDefault = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canDefault' = (fromIntegral . fromEnum) canDefault - gtk_widget_set_can_default _obj' canDefault' - touchManagedPtr _obj - return () - -data WidgetSetCanDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanDefaultMethodInfo a signature where - overloadedMethod _ = widgetSetCanDefault - --- method Widget::set_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_focus", 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 "gtk_widget_set_can_focus" gtk_widget_set_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_focus : TBasicType TBoolean - IO () - - -widgetSetCanFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- canFocus - -> m () -- result -widgetSetCanFocus _obj canFocus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canFocus' = (fromIntegral . fromEnum) canFocus - gtk_widget_set_can_focus _obj' canFocus' - touchManagedPtr _obj - return () - -data WidgetSetCanFocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanFocusMethodInfo a signature where - overloadedMethod _ = widgetSetCanFocus - --- method Widget::set_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_visible", 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 "gtk_widget_set_child_visible" gtk_widget_set_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- is_visible : TBasicType TBoolean - IO () - - -widgetSetChildVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- isVisible - -> m () -- result -widgetSetChildVisible _obj isVisible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isVisible' = (fromIntegral . fromEnum) isVisible - gtk_widget_set_child_visible _obj' isVisible' - touchManagedPtr _obj - return () - -data WidgetSetChildVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetChildVisibleMethodInfo a signature where - overloadedMethod _ = widgetSetChildVisible - --- method Widget::set_clip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", 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 "gtk_widget_set_clip" gtk_widget_set_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetClip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- clip - -> m () -- result -widgetSetClip _obj clip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clip' = unsafeManagedPtrGetPtr clip - gtk_widget_set_clip _obj' clip' - touchManagedPtr _obj - touchManagedPtr clip - return () - -data WidgetSetClipMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetClipMethodInfo a signature where - overloadedMethod _ = widgetSetClip - --- method Widget::set_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_composite_name" gtk_widget_set_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetSetCompositeName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -widgetSetCompositeName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_composite_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetSetCompositeNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCompositeNameMethodInfo a signature where - overloadedMethod _ = widgetSetCompositeName - --- method Widget::set_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", 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 "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -widgetSetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> Bool -- enabled - -> m () -- result -widgetSetDeviceEnabled _obj device enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let enabled' = (fromIntegral . fromEnum) enabled - gtk_widget_set_device_enabled _obj' device' enabled' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetSetDeviceEnabledMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEnabledMethodInfo a signature where - overloadedMethod _ = widgetSetDeviceEnabled - --- method Widget::set_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TInterface "Gdk" "EventMask", 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 "gtk_widget_set_device_events" gtk_widget_set_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetSetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> [Gdk.EventMask] -- events - -> m () -- result -widgetSetDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_set_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetSetDeviceEventsMethodInfo -instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetSetDeviceEvents - --- method Widget::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", 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 "gtk_widget_set_direction" gtk_widget_set_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDirection :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TextDirection -- dir - -> m () -- result -widgetSetDirection _obj dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dir' = (fromIntegral . fromEnum) dir - gtk_widget_set_direction _obj' dir' - touchManagedPtr _obj - return () - -data WidgetSetDirectionMethodInfo -instance (signature ~ (TextDirection -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDirectionMethodInfo a signature where - overloadedMethod _ = widgetSetDirection - --- method Widget::set_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "double_buffered", 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 "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- double_buffered : TBasicType TBoolean - IO () - -{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-} -widgetSetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- doubleBuffered - -> m () -- result -widgetSetDoubleBuffered _obj doubleBuffered = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let doubleBuffered' = (fromIntegral . fromEnum) doubleBuffered - gtk_widget_set_double_buffered _obj' doubleBuffered' - touchManagedPtr _obj - return () - -data WidgetSetDoubleBufferedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDoubleBufferedMethodInfo a signature where - overloadedMethod _ = widgetSetDoubleBuffered - --- method Widget::set_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", 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 "gtk_widget_set_events" gtk_widget_set_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt - IO () - - -widgetSetEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- events - -> m () -- result -widgetSetEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_events _obj' events - touchManagedPtr _obj - return () - -data WidgetSetEventsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetEventsMethodInfo a signature where - overloadedMethod _ = widgetSetEvents - --- method Widget::set_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap" - IO () - - -widgetSetFontMap :: - (MonadIO m, WidgetK a, Pango.FontMapK b) => - a -- _obj - -> Maybe (b) -- fontMap - -> m () -- result -widgetSetFontMap _obj fontMap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontMap <- case fontMap of - Nothing -> return nullPtr - Just jFontMap -> do - let jFontMap' = unsafeManagedPtrCastPtr jFontMap - return jFontMap' - gtk_widget_set_font_map _obj' maybeFontMap - touchManagedPtr _obj - whenJust fontMap touchManagedPtr - return () - -data WidgetSetFontMapMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Pango.FontMapK b) => MethodInfo WidgetSetFontMapMethodInfo a signature where - overloadedMethod _ = widgetSetFontMap - --- method Widget::set_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" - IO () - - -widgetSetFontOptions :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.FontOptions) -- options - -> m () -- result -widgetSetFontOptions _obj options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeOptions <- case options of - Nothing -> return nullPtr - Just jOptions -> do - let jOptions' = unsafeManagedPtrGetPtr jOptions - return jOptions' - gtk_widget_set_font_options _obj' maybeOptions - touchManagedPtr _obj - whenJust options touchManagedPtr - return () - -data WidgetSetFontOptionsMethodInfo -instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetFontOptionsMethodInfo a signature where - overloadedMethod _ = widgetSetFontOptions - --- method Widget::set_halign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", 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 "gtk_widget_set_halign" gtk_widget_set_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetHalign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Align -- align - -> m () -- result -widgetSetHalign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_halign _obj' align' - touchManagedPtr _obj - return () - -data WidgetSetHalignMethodInfo -instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHalignMethodInfo a signature where - overloadedMethod _ = widgetSetHalign - --- method Widget::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", 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 "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_tooltip : TBasicType TBoolean - IO () - - -widgetSetHasTooltip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- hasTooltip - -> m () -- result -widgetSetHasTooltip _obj hasTooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasTooltip' = (fromIntegral . fromEnum) hasTooltip - gtk_widget_set_has_tooltip _obj' hasTooltip' - touchManagedPtr _obj - return () - -data WidgetSetHasTooltipMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasTooltipMethodInfo a signature where - overloadedMethod _ = widgetSetHasTooltip - --- method Widget::set_has_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_window", 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 "gtk_widget_set_has_window" gtk_widget_set_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_window : TBasicType TBoolean - IO () - - -widgetSetHasWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- hasWindow - -> m () -- result -widgetSetHasWindow _obj hasWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasWindow' = (fromIntegral . fromEnum) hasWindow - gtk_widget_set_has_window _obj' hasWindow' - touchManagedPtr _obj - return () - -data WidgetSetHasWindowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasWindowMethodInfo a signature where - overloadedMethod _ = widgetSetHasWindow - --- method Widget::set_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_widget_set_hexpand" gtk_widget_set_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetHexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -widgetSetHexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_hexpand _obj' expand' - touchManagedPtr _obj - return () - -data WidgetSetHexpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandMethodInfo a signature where - overloadedMethod _ = widgetSetHexpand - --- method Widget::set_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", 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 "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetHexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- set - -> m () -- result -widgetSetHexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_hexpand_set _obj' set' - touchManagedPtr _obj - return () - -data WidgetSetHexpandSetMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandSetMethodInfo a signature where - overloadedMethod _ = widgetSetHexpandSet - --- method Widget::set_mapped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapped", 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 "gtk_widget_set_mapped" gtk_widget_set_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- mapped : TBasicType TBoolean - IO () - - -widgetSetMapped :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- mapped - -> m () -- result -widgetSetMapped _obj mapped = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mapped' = (fromIntegral . fromEnum) mapped - gtk_widget_set_mapped _obj' mapped' - touchManagedPtr _obj - return () - -data WidgetSetMappedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMappedMethodInfo a signature where - overloadedMethod _ = widgetSetMapped - --- method Widget::set_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - - -widgetSetMarginBottom :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginBottom _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_bottom _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginBottomMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginBottomMethodInfo a signature where - overloadedMethod _ = widgetSetMarginBottom - --- method Widget::set_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - - -widgetSetMarginEnd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginEnd _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_end _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginEndMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginEndMethodInfo a signature where - overloadedMethod _ = widgetSetMarginEnd - --- method Widget::set_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - -{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} -widgetSetMarginLeft :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginLeft _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_left _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginLeftMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginLeftMethodInfo a signature where - overloadedMethod _ = widgetSetMarginLeft - --- method Widget::set_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - -{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} -widgetSetMarginRight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginRight _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_right _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginRightMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginRightMethodInfo a signature where - overloadedMethod _ = widgetSetMarginRight - --- method Widget::set_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - - -widgetSetMarginStart :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginStart _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_start _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginStartMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginStartMethodInfo a signature where - overloadedMethod _ = widgetSetMarginStart - --- method Widget::set_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt - IO () - - -widgetSetMarginTop :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginTop _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_top _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginTopMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginTopMethodInfo a signature where - overloadedMethod _ = widgetSetMarginTop - --- method Widget::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_name" gtk_widget_set_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetSetName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -widgetSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNameMethodInfo a signature where - overloadedMethod _ = widgetSetName - --- method Widget::set_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "no_show_all", 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 "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- no_show_all : TBasicType TBoolean - IO () - - -widgetSetNoShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- noShowAll - -> m () -- result -widgetSetNoShowAll _obj noShowAll = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let noShowAll' = (fromIntegral . fromEnum) noShowAll - gtk_widget_set_no_show_all _obj' noShowAll' - touchManagedPtr _obj - return () - -data WidgetSetNoShowAllMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNoShowAllMethodInfo a signature where - overloadedMethod _ = widgetSetNoShowAll - --- method Widget::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", 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 "gtk_widget_set_opacity" gtk_widget_set_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CDouble -> -- opacity : TBasicType TDouble - IO () - - -widgetSetOpacity :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Double -- opacity - -> m () -- result -widgetSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_widget_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - -data WidgetSetOpacityMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetOpacityMethodInfo a signature where - overloadedMethod _ = widgetSetOpacity - --- method Widget::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_parent" gtk_widget_set_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- parent : TInterface "Gtk" "Widget" - IO () - - -widgetSetParent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- parent - -> m () -- result -widgetSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - gtk_widget_set_parent _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - -data WidgetSetParentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetSetParentMethodInfo a signature where - overloadedMethod _ = widgetSetParent - --- method Widget::set_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_window", argType = TInterface "Gdk" "Window", 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 "gtk_widget_set_parent_window" gtk_widget_set_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window" - IO () - - -widgetSetParentWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- parentWindow - -> m () -- result -widgetSetParentWindow _obj parentWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parentWindow' = unsafeManagedPtrCastPtr parentWindow - gtk_widget_set_parent_window _obj' parentWindow' - touchManagedPtr _obj - touchManagedPtr parentWindow - return () - -data WidgetSetParentWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetParentWindowMethodInfo a signature where - overloadedMethod _ = widgetSetParentWindow - --- method Widget::set_realized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realized", 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 "gtk_widget_set_realized" gtk_widget_set_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- realized : TBasicType TBoolean - IO () - - -widgetSetRealized :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- realized - -> m () -- result -widgetSetRealized _obj realized = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let realized' = (fromIntegral . fromEnum) realized - gtk_widget_set_realized _obj' realized' - touchManagedPtr _obj - return () - -data WidgetSetRealizedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRealizedMethodInfo a signature where - overloadedMethod _ = widgetSetRealized - --- method Widget::set_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "receives_default", 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 "gtk_widget_set_receives_default" gtk_widget_set_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- receives_default : TBasicType TBoolean - IO () - - -widgetSetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- receivesDefault - -> m () -- result -widgetSetReceivesDefault _obj receivesDefault = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let receivesDefault' = (fromIntegral . fromEnum) receivesDefault - gtk_widget_set_receives_default _obj' receivesDefault' - touchManagedPtr _obj - return () - -data WidgetSetReceivesDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetReceivesDefaultMethodInfo a signature where - overloadedMethod _ = widgetSetReceivesDefault - --- method Widget::set_redraw_on_allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redraw_on_allocate", 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 "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- redraw_on_allocate : TBasicType TBoolean - IO () - - -widgetSetRedrawOnAllocate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- redrawOnAllocate - -> m () -- result -widgetSetRedrawOnAllocate _obj redrawOnAllocate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let redrawOnAllocate' = (fromIntegral . fromEnum) redrawOnAllocate - gtk_widget_set_redraw_on_allocate _obj' redrawOnAllocate' - touchManagedPtr _obj - return () - -data WidgetSetRedrawOnAllocateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRedrawOnAllocateMethodInfo a signature where - overloadedMethod _ = widgetSetRedrawOnAllocate - --- method Widget::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_widget_set_sensitive" gtk_widget_set_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -widgetSetSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- sensitive - -> m () -- result -widgetSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_widget_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - -data WidgetSetSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSensitiveMethodInfo a signature where - overloadedMethod _ = widgetSetSensitive - --- method Widget::set_size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_size_request" gtk_widget_set_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -widgetSetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -widgetSetSizeRequest _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_size_request _obj' width height - touchManagedPtr _obj - return () - -data WidgetSetSizeRequestMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetSetSizeRequest - --- method Widget::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", 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 "gtk_widget_set_state" gtk_widget_set_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - IO () - -{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-} -widgetSetState :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> m () -- result -widgetSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_widget_set_state _obj' state' - touchManagedPtr _obj - return () - -data WidgetSetStateMethodInfo -instance (signature ~ (StateType -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateMethodInfo a signature where - overloadedMethod _ = widgetSetState - --- method Widget::set_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clear", 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 "gtk_widget_set_state_flags" gtk_widget_set_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - CInt -> -- clear : TBasicType TBoolean - IO () - - -widgetSetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- flags - -> Bool -- clear - -> m () -- result -widgetSetStateFlags _obj flags clear = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - let clear' = (fromIntegral . fromEnum) clear - gtk_widget_set_state_flags _obj' flags' clear' - touchManagedPtr _obj - return () - -data WidgetSetStateFlagsMethodInfo -instance (signature ~ ([StateFlags] -> Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetSetStateFlags - --- method Widget::set_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_style" gtk_widget_set_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Style -> -- style : TInterface "Gtk" "Style" - IO () - -{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetSetStyle :: - (MonadIO m, WidgetK a, StyleK b) => - a -- _obj - -> Maybe (b) -- style - -> m () -- result -widgetSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStyle <- case style of - Nothing -> return nullPtr - Just jStyle -> do - let jStyle' = unsafeManagedPtrCastPtr jStyle - return jStyle' - gtk_widget_set_style _obj' maybeStyle - touchManagedPtr _obj - whenJust style touchManagedPtr - return () - -data WidgetSetStyleMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, StyleK b) => MethodInfo WidgetSetStyleMethodInfo a signature where - overloadedMethod _ = widgetSetStyle - --- method Widget::set_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", 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 "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- support_multidevice : TBasicType TBoolean - IO () - - -widgetSetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- supportMultidevice - -> m () -- result -widgetSetSupportMultidevice _obj supportMultidevice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice - gtk_widget_set_support_multidevice _obj' supportMultidevice' - touchManagedPtr _obj - return () - -data WidgetSetSupportMultideviceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = widgetSetSupportMultidevice - --- method Widget::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- markup : TBasicType TUTF8 - IO () - - -widgetSetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- markup - -> m () -- result -widgetSetTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_widget_set_tooltip_markup _obj' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - -data WidgetSetTooltipMarkupMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipMarkup - --- method Widget::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO () - - -widgetSetTooltipText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m () -- result -widgetSetTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_widget_set_tooltip_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - -data WidgetSetTooltipTextMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipTextMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipText - --- method Widget::set_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Window -> -- custom_window : TInterface "Gtk" "Window" - IO () - - -widgetSetTooltipWindow :: - (MonadIO m, WidgetK a, WindowK b) => - a -- _obj - -> Maybe (b) -- customWindow - -> m () -- result -widgetSetTooltipWindow _obj customWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustomWindow <- case customWindow of - Nothing -> return nullPtr - Just jCustomWindow -> do - let jCustomWindow' = unsafeManagedPtrCastPtr jCustomWindow - return jCustomWindow' - gtk_widget_set_tooltip_window _obj' maybeCustomWindow - touchManagedPtr _obj - whenJust customWindow touchManagedPtr - return () - -data WidgetSetTooltipWindowMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, WindowK b) => MethodInfo WidgetSetTooltipWindowMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipWindow - --- method Widget::set_valign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", 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 "gtk_widget_set_valign" gtk_widget_set_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetValign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Align -- align - -> m () -- result -widgetSetValign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_valign _obj' align' - touchManagedPtr _obj - return () - -data WidgetSetValignMethodInfo -instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetValignMethodInfo a signature where - overloadedMethod _ = widgetSetValign - --- method Widget::set_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_widget_set_vexpand" gtk_widget_set_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetVexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -widgetSetVexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_vexpand _obj' expand' - touchManagedPtr _obj - return () - -data WidgetSetVexpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandMethodInfo a signature where - overloadedMethod _ = widgetSetVexpand - --- method Widget::set_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", 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 "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetVexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- set - -> m () -- result -widgetSetVexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_vexpand_set _obj' set' - touchManagedPtr _obj - return () - -data WidgetSetVexpandSetMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandSetMethodInfo a signature where - overloadedMethod _ = widgetSetVexpandSet - --- method Widget::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_widget_set_visible" gtk_widget_set_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- visible : TBasicType TBoolean - IO () - - -widgetSetVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -widgetSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_widget_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data WidgetSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVisibleMethodInfo a signature where - overloadedMethod _ = widgetSetVisible - --- method Widget::set_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual" - IO () - - -widgetSetVisual :: - (MonadIO m, WidgetK a, Gdk.VisualK b) => - a -- _obj - -> Maybe (b) -- visual - -> m () -- result -widgetSetVisual _obj visual = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeVisual <- case visual of - Nothing -> return nullPtr - Just jVisual -> do - let jVisual' = unsafeManagedPtrCastPtr jVisual - return jVisual' - gtk_widget_set_visual _obj' maybeVisual - touchManagedPtr _obj - whenJust visual touchManagedPtr - return () - -data WidgetSetVisualMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Gdk.VisualK b) => MethodInfo WidgetSetVisualMethodInfo a signature where - overloadedMethod _ = widgetSetVisual - --- method Widget::set_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_window" gtk_widget_set_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetSetWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetSetWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - window' <- refObject window - gtk_widget_set_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetSetWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetWindowMethodInfo a signature where - overloadedMethod _ = widgetSetWindow - --- method Widget::shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.Region) -- region - -> m () -- result -widgetShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - -data WidgetShapeCombineRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = widgetShapeCombineRegion - --- method Widget::show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show" gtk_widget_show :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show _obj' - touchManagedPtr _obj - return () - -data WidgetShowMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowMethodInfo a signature where - overloadedMethod _ = widgetShow - --- method Widget::show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show_all" gtk_widget_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_all _obj' - touchManagedPtr _obj - return () - -data WidgetShowAllMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowAllMethodInfo a signature where - overloadedMethod _ = widgetShowAll - --- method Widget::show_now --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show_now" gtk_widget_show_now :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowNow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShowNow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_now _obj' - touchManagedPtr _obj - return () - -data WidgetShowNowMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowNowMethodInfo a signature where - overloadedMethod _ = widgetShowNow - --- method Widget::size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", 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 "gtk_widget_size_allocate" gtk_widget_size_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSizeAllocate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> m () -- result -widgetSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSizeAllocateMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateMethodInfo a signature where - overloadedMethod _ = widgetSizeAllocate - --- method Widget::size_allocate_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseline", 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 "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - Int32 -> -- baseline : TBasicType TInt - IO () - - -widgetSizeAllocateWithBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> Int32 -- baseline - -> m () -- result -widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate_with_baseline _obj' allocation' baseline - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSizeAllocateWithBaselineMethodInfo -instance (signature ~ (Gdk.Rectangle -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateWithBaselineMethodInfo a signature where - overloadedMethod _ = widgetSizeAllocateWithBaseline - --- method Widget::size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_request" gtk_widget_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_size_request _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetSizeRequestMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetSizeRequest - --- method Widget::style_attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_style_attach" gtk_widget_style_attach :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-} -widgetStyleAttach :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetStyleAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_style_attach _obj' - touchManagedPtr _obj - return () - -data WidgetStyleAttachMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleAttachMethodInfo a signature where - overloadedMethod _ = widgetStyleAttach - --- method Widget::style_get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, 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 "gtk_widget_style_get_property" gtk_widget_style_get_property :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -widgetStyleGetProperty :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -widgetStyleGetProperty _obj propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_widget_style_get_property _obj' propertyName' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem propertyName' - return () - -data WidgetStyleGetPropertyMethodInfo -instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleGetPropertyMethodInfo a signature where - overloadedMethod _ = widgetStyleGetProperty - --- method Widget::thaw_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetThawChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetThawChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_thaw_child_notify _obj' - touchManagedPtr _obj - return () - -data WidgetThawChildNotifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetThawChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetThawChildNotify - --- method Widget::translate_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_y", 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 "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" - Int32 -> -- src_x : TBasicType TInt - Int32 -> -- src_y : TBasicType TInt - Ptr Int32 -> -- dest_x : TBasicType TInt - Ptr Int32 -> -- dest_y : TBasicType TInt - IO CInt - - -widgetTranslateCoordinates :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- destWidget - -> Int32 -- srcX - -> Int32 -- srcY - -> m (Bool,Int32,Int32) -- result -widgetTranslateCoordinates _obj destWidget srcX srcY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destWidget' = unsafeManagedPtrCastPtr destWidget - destX <- allocMem :: IO (Ptr Int32) - destY <- allocMem :: IO (Ptr Int32) - result <- gtk_widget_translate_coordinates _obj' destWidget' srcX srcY destX destY - let result' = (/= 0) result - destX' <- peek destX - destY' <- peek destY - touchManagedPtr _obj - touchManagedPtr destWidget - freeMem destX - freeMem destY - return (result', destX', destY') - -data WidgetTranslateCoordinatesMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetTranslateCoordinatesMethodInfo a signature where - overloadedMethod _ = widgetTranslateCoordinates - --- method Widget::trigger_tooltip_query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetTriggerTooltipQuery :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetTriggerTooltipQuery _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_trigger_tooltip_query _obj' - touchManagedPtr _obj - return () - -data WidgetTriggerTooltipQueryMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetTriggerTooltipQueryMethodInfo a signature where - overloadedMethod _ = widgetTriggerTooltipQuery - --- method Widget::unmap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unmap" gtk_widget_unmap :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnmap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnmap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unmap _obj' - touchManagedPtr _obj - return () - -data WidgetUnmapMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnmapMethodInfo a signature where - overloadedMethod _ = widgetUnmap - --- method Widget::unparent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unparent" gtk_widget_unparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnparent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnparent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unparent _obj' - touchManagedPtr _obj - return () - -data WidgetUnparentMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnparentMethodInfo a signature where - overloadedMethod _ = widgetUnparent - --- method Widget::unrealize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unrealize" gtk_widget_unrealize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnrealize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnrealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unrealize _obj' - touchManagedPtr _obj - return () - -data WidgetUnrealizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnrealizeMethodInfo a signature where - overloadedMethod _ = widgetUnrealize - --- method Widget::unregister_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", 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 "gtk_widget_unregister_window" gtk_widget_unregister_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetUnregisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetUnregisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_unregister_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetUnregisterWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetUnregisterWindowMethodInfo a signature where - overloadedMethod _ = widgetUnregisterWindow - --- method Widget::unset_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", 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 "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - IO () - - -widgetUnsetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- flags - -> m () -- result -widgetUnsetStateFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_widget_unset_state_flags _obj' flags' - touchManagedPtr _obj - return () - -data WidgetUnsetStateFlagsMethodInfo -instance (signature ~ ([StateFlags] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnsetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetUnsetStateFlags - --- method Widget::get_default_direction --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction :: - IO CUInt - - -widgetGetDefaultDirection :: - (MonadIO m) => - m TextDirection -- result -widgetGetDefaultDirection = liftIO $ do - result <- gtk_widget_get_default_direction - let result' = (toEnum . fromIntegral) result - return result' - --- method Widget::get_default_style --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Style") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style :: - IO (Ptr Style) - -{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-} -widgetGetDefaultStyle :: - (MonadIO m) => - m Style -- result -widgetGetDefaultStyle = liftIO $ do - result <- gtk_widget_get_default_style - checkUnexpectedReturnNULL "gtk_widget_get_default_style" result - result' <- (newObject Style) result - return result' - --- method Widget::pop_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child :: - IO () - -{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetPopCompositeChild :: - (MonadIO m) => - m () -- result -widgetPopCompositeChild = liftIO $ do - gtk_widget_pop_composite_child - return () - --- method Widget::push_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child :: - IO () - -{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-} -widgetPushCompositeChild :: - (MonadIO m) => - m () -- result -widgetPushCompositeChild = liftIO $ do - gtk_widget_push_composite_child - return () - --- method Widget::set_default_direction --- method type : MemberFunction --- Args : [Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", 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 "gtk_widget_set_default_direction" gtk_widget_set_default_direction :: - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDefaultDirection :: - (MonadIO m) => - TextDirection -- dir - -> m () -- result -widgetSetDefaultDirection dir = liftIO $ do - let dir' = (fromIntegral . fromEnum) dir - gtk_widget_set_default_direction dir' - return () - - diff --git a/GI/Gtk/Objects/Widget.hs-boot b/GI/Gtk/Objects/Widget.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Widget.hs-boot +++ /dev/null @@ -1,377 +0,0 @@ -module GI.Gtk.Objects.Widget 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 Widget = Widget (ForeignPtr Widget) -instance GObject Widget where -class GObject o => WidgetK o -instance (GObject o, IsDescendantOf Widget o) => WidgetK o -data WidgetAppPaintablePropertyInfo -data WidgetCanDefaultPropertyInfo -data WidgetCanFocusPropertyInfo -data WidgetCompositeChildPropertyInfo -data WidgetDoubleBufferedPropertyInfo -data WidgetEventsPropertyInfo -data WidgetExpandPropertyInfo -data WidgetHalignPropertyInfo -data WidgetHasDefaultPropertyInfo -data WidgetHasFocusPropertyInfo -data WidgetHasTooltipPropertyInfo -data WidgetHeightRequestPropertyInfo -data WidgetHexpandPropertyInfo -data WidgetHexpandSetPropertyInfo -data WidgetIsFocusPropertyInfo -data WidgetMarginPropertyInfo -data WidgetMarginBottomPropertyInfo -data WidgetMarginEndPropertyInfo -data WidgetMarginLeftPropertyInfo -data WidgetMarginRightPropertyInfo -data WidgetMarginStartPropertyInfo -data WidgetMarginTopPropertyInfo -data WidgetNamePropertyInfo -data WidgetNoShowAllPropertyInfo -data WidgetOpacityPropertyInfo -data WidgetParentPropertyInfo -data WidgetReceivesDefaultPropertyInfo -data WidgetScaleFactorPropertyInfo -data WidgetSensitivePropertyInfo -data WidgetStylePropertyInfo -data WidgetTooltipMarkupPropertyInfo -data WidgetTooltipTextPropertyInfo -data WidgetValignPropertyInfo -data WidgetVexpandPropertyInfo -data WidgetVexpandSetPropertyInfo -data WidgetVisiblePropertyInfo -data WidgetWidthRequestPropertyInfo -data WidgetWindowPropertyInfo -data WidgetAccelClosuresChangedSignalInfo -data WidgetButtonPressEventSignalInfo -data WidgetButtonReleaseEventSignalInfo -data WidgetCanActivateAccelSignalInfo -data WidgetChildNotifySignalInfo -data WidgetCompositedChangedSignalInfo -data WidgetConfigureEventSignalInfo -data WidgetDamageEventSignalInfo -data WidgetDeleteEventSignalInfo -data WidgetDestroySignalInfo -data WidgetDestroyEventSignalInfo -data WidgetDirectionChangedSignalInfo -data WidgetDragBeginSignalInfo -data WidgetDragDataDeleteSignalInfo -data WidgetDragDataGetSignalInfo -data WidgetDragDataReceivedSignalInfo -data WidgetDragDropSignalInfo -data WidgetDragEndSignalInfo -data WidgetDragFailedSignalInfo -data WidgetDragLeaveSignalInfo -data WidgetDragMotionSignalInfo -data WidgetDrawSignalInfo -data WidgetEnterNotifyEventSignalInfo -data WidgetEventSignalInfo -data WidgetEventAfterSignalInfo -data WidgetFocusSignalInfo -data WidgetFocusInEventSignalInfo -data WidgetFocusOutEventSignalInfo -data WidgetGrabBrokenEventSignalInfo -data WidgetGrabFocusSignalInfo -data WidgetGrabNotifySignalInfo -data WidgetHideSignalInfo -data WidgetHierarchyChangedSignalInfo -data WidgetKeyPressEventSignalInfo -data WidgetKeyReleaseEventSignalInfo -data WidgetKeynavFailedSignalInfo -data WidgetLeaveNotifyEventSignalInfo -data WidgetMapSignalInfo -data WidgetMapEventSignalInfo -data WidgetMnemonicActivateSignalInfo -data WidgetMotionNotifyEventSignalInfo -data WidgetMoveFocusSignalInfo -data WidgetParentSetSignalInfo -data WidgetPopupMenuSignalInfo -data WidgetPropertyNotifyEventSignalInfo -data WidgetProximityInEventSignalInfo -data WidgetProximityOutEventSignalInfo -data WidgetQueryTooltipSignalInfo -data WidgetRealizeSignalInfo -data WidgetScreenChangedSignalInfo -data WidgetScrollEventSignalInfo -data WidgetSelectionClearEventSignalInfo -data WidgetSelectionGetSignalInfo -data WidgetSelectionNotifyEventSignalInfo -data WidgetSelectionReceivedSignalInfo -data WidgetSelectionRequestEventSignalInfo -data WidgetShowSignalInfo -data WidgetShowHelpSignalInfo -data WidgetSizeAllocateSignalInfo -data WidgetStateChangedSignalInfo -data WidgetStateFlagsChangedSignalInfo -data WidgetStyleSetSignalInfo -data WidgetStyleUpdatedSignalInfo -data WidgetTouchEventSignalInfo -data WidgetUnmapSignalInfo -data WidgetUnmapEventSignalInfo -data WidgetUnrealizeSignalInfo -data WidgetVisibilityNotifyEventSignalInfo -data WidgetWindowStateEventSignalInfo -data WidgetActivateMethodInfo -data WidgetAddAcceleratorMethodInfo -data WidgetAddDeviceEventsMethodInfo -data WidgetAddEventsMethodInfo -data WidgetAddMnemonicLabelMethodInfo -data WidgetAddTickCallbackMethodInfo -data WidgetCanActivateAccelMethodInfo -data WidgetChildFocusMethodInfo -data WidgetChildNotifyMethodInfo -data WidgetClassPathMethodInfo -data WidgetComputeExpandMethodInfo -data WidgetCreatePangoContextMethodInfo -data WidgetCreatePangoLayoutMethodInfo -data WidgetDestroyMethodInfo -data WidgetDestroyedMethodInfo -data WidgetDeviceIsShadowedMethodInfo -data WidgetDragBeginMethodInfo -data WidgetDragBeginWithCoordinatesMethodInfo -data WidgetDragCheckThresholdMethodInfo -data WidgetDragDestAddImageTargetsMethodInfo -data WidgetDragDestAddTextTargetsMethodInfo -data WidgetDragDestAddUriTargetsMethodInfo -data WidgetDragDestFindTargetMethodInfo -data WidgetDragDestGetTargetListMethodInfo -data WidgetDragDestGetTrackMotionMethodInfo -data WidgetDragDestSetMethodInfo -data WidgetDragDestSetProxyMethodInfo -data WidgetDragDestSetTargetListMethodInfo -data WidgetDragDestSetTrackMotionMethodInfo -data WidgetDragDestUnsetMethodInfo -data WidgetDragGetDataMethodInfo -data WidgetDragHighlightMethodInfo -data WidgetDragSourceAddImageTargetsMethodInfo -data WidgetDragSourceAddTextTargetsMethodInfo -data WidgetDragSourceAddUriTargetsMethodInfo -data WidgetDragSourceGetTargetListMethodInfo -data WidgetDragSourceSetMethodInfo -data WidgetDragSourceSetIconGiconMethodInfo -data WidgetDragSourceSetIconNameMethodInfo -data WidgetDragSourceSetIconPixbufMethodInfo -data WidgetDragSourceSetIconStockMethodInfo -data WidgetDragSourceSetTargetListMethodInfo -data WidgetDragSourceUnsetMethodInfo -data WidgetDragUnhighlightMethodInfo -data WidgetDrawMethodInfo -data WidgetEnsureStyleMethodInfo -data WidgetErrorBellMethodInfo -data WidgetEventMethodInfo -data WidgetFreezeChildNotifyMethodInfo -data WidgetGetAccessibleMethodInfo -data WidgetGetActionGroupMethodInfo -data WidgetGetAllocatedBaselineMethodInfo -data WidgetGetAllocatedHeightMethodInfo -data WidgetGetAllocatedWidthMethodInfo -data WidgetGetAllocationMethodInfo -data WidgetGetAncestorMethodInfo -data WidgetGetAppPaintableMethodInfo -data WidgetGetCanDefaultMethodInfo -data WidgetGetCanFocusMethodInfo -data WidgetGetChildRequisitionMethodInfo -data WidgetGetChildVisibleMethodInfo -data WidgetGetClipMethodInfo -data WidgetGetClipboardMethodInfo -data WidgetGetCompositeNameMethodInfo -data WidgetGetDeviceEnabledMethodInfo -data WidgetGetDeviceEventsMethodInfo -data WidgetGetDirectionMethodInfo -data WidgetGetDisplayMethodInfo -data WidgetGetDoubleBufferedMethodInfo -data WidgetGetEventsMethodInfo -data WidgetGetFontMapMethodInfo -data WidgetGetFontOptionsMethodInfo -data WidgetGetFrameClockMethodInfo -data WidgetGetHalignMethodInfo -data WidgetGetHasTooltipMethodInfo -data WidgetGetHasWindowMethodInfo -data WidgetGetHexpandMethodInfo -data WidgetGetHexpandSetMethodInfo -data WidgetGetMappedMethodInfo -data WidgetGetMarginBottomMethodInfo -data WidgetGetMarginEndMethodInfo -data WidgetGetMarginLeftMethodInfo -data WidgetGetMarginRightMethodInfo -data WidgetGetMarginStartMethodInfo -data WidgetGetMarginTopMethodInfo -data WidgetGetModifierMaskMethodInfo -data WidgetGetModifierStyleMethodInfo -data WidgetGetNameMethodInfo -data WidgetGetNoShowAllMethodInfo -data WidgetGetOpacityMethodInfo -data WidgetGetPangoContextMethodInfo -data WidgetGetParentMethodInfo -data WidgetGetParentWindowMethodInfo -data WidgetGetPathMethodInfo -data WidgetGetPointerMethodInfo -data WidgetGetPreferredHeightMethodInfo -data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo -data WidgetGetPreferredHeightForWidthMethodInfo -data WidgetGetPreferredSizeMethodInfo -data WidgetGetPreferredWidthMethodInfo -data WidgetGetPreferredWidthForHeightMethodInfo -data WidgetGetRealizedMethodInfo -data WidgetGetReceivesDefaultMethodInfo -data WidgetGetRequestModeMethodInfo -data WidgetGetRequisitionMethodInfo -data WidgetGetRootWindowMethodInfo -data WidgetGetScaleFactorMethodInfo -data WidgetGetScreenMethodInfo -data WidgetGetSensitiveMethodInfo -data WidgetGetSettingsMethodInfo -data WidgetGetSizeRequestMethodInfo -data WidgetGetStateMethodInfo -data WidgetGetStateFlagsMethodInfo -data WidgetGetStyleMethodInfo -data WidgetGetStyleContextMethodInfo -data WidgetGetSupportMultideviceMethodInfo -data WidgetGetTemplateChildMethodInfo -data WidgetGetTooltipMarkupMethodInfo -data WidgetGetTooltipTextMethodInfo -data WidgetGetTooltipWindowMethodInfo -data WidgetGetToplevelMethodInfo -data WidgetGetValignMethodInfo -data WidgetGetValignWithBaselineMethodInfo -data WidgetGetVexpandMethodInfo -data WidgetGetVexpandSetMethodInfo -data WidgetGetVisibleMethodInfo -data WidgetGetVisualMethodInfo -data WidgetGetWindowMethodInfo -data WidgetGrabAddMethodInfo -data WidgetGrabDefaultMethodInfo -data WidgetGrabFocusMethodInfo -data WidgetGrabRemoveMethodInfo -data WidgetHasDefaultMethodInfo -data WidgetHasFocusMethodInfo -data WidgetHasGrabMethodInfo -data WidgetHasRcStyleMethodInfo -data WidgetHasScreenMethodInfo -data WidgetHasVisibleFocusMethodInfo -data WidgetHideMethodInfo -data WidgetHideOnDeleteMethodInfo -data WidgetInDestructionMethodInfo -data WidgetInitTemplateMethodInfo -data WidgetInputShapeCombineRegionMethodInfo -data WidgetInsertActionGroupMethodInfo -data WidgetIntersectMethodInfo -data WidgetIsAncestorMethodInfo -data WidgetIsCompositedMethodInfo -data WidgetIsDrawableMethodInfo -data WidgetIsFocusMethodInfo -data WidgetIsSensitiveMethodInfo -data WidgetIsToplevelMethodInfo -data WidgetIsVisibleMethodInfo -data WidgetKeynavFailedMethodInfo -data WidgetListAccelClosuresMethodInfo -data WidgetListActionPrefixesMethodInfo -data WidgetListMnemonicLabelsMethodInfo -data WidgetMapMethodInfo -data WidgetMnemonicActivateMethodInfo -data WidgetModifyBaseMethodInfo -data WidgetModifyBgMethodInfo -data WidgetModifyCursorMethodInfo -data WidgetModifyFgMethodInfo -data WidgetModifyFontMethodInfo -data WidgetModifyStyleMethodInfo -data WidgetModifyTextMethodInfo -data WidgetOverrideBackgroundColorMethodInfo -data WidgetOverrideColorMethodInfo -data WidgetOverrideCursorMethodInfo -data WidgetOverrideFontMethodInfo -data WidgetOverrideSymbolicColorMethodInfo -data WidgetPathMethodInfo -data WidgetQueueComputeExpandMethodInfo -data WidgetQueueDrawMethodInfo -data WidgetQueueDrawAreaMethodInfo -data WidgetQueueDrawRegionMethodInfo -data WidgetQueueResizeMethodInfo -data WidgetQueueResizeNoRedrawMethodInfo -data WidgetRealizeMethodInfo -data WidgetRegionIntersectMethodInfo -data WidgetRegisterWindowMethodInfo -data WidgetRemoveAcceleratorMethodInfo -data WidgetRemoveMnemonicLabelMethodInfo -data WidgetRemoveTickCallbackMethodInfo -data WidgetRenderIconMethodInfo -data WidgetRenderIconPixbufMethodInfo -data WidgetReparentMethodInfo -data WidgetResetRcStylesMethodInfo -data WidgetResetStyleMethodInfo -data WidgetSendExposeMethodInfo -data WidgetSendFocusChangeMethodInfo -data WidgetSetAccelPathMethodInfo -data WidgetSetAllocationMethodInfo -data WidgetSetAppPaintableMethodInfo -data WidgetSetCanDefaultMethodInfo -data WidgetSetCanFocusMethodInfo -data WidgetSetChildVisibleMethodInfo -data WidgetSetClipMethodInfo -data WidgetSetCompositeNameMethodInfo -data WidgetSetDeviceEnabledMethodInfo -data WidgetSetDeviceEventsMethodInfo -data WidgetSetDirectionMethodInfo -data WidgetSetDoubleBufferedMethodInfo -data WidgetSetEventsMethodInfo -data WidgetSetFontMapMethodInfo -data WidgetSetFontOptionsMethodInfo -data WidgetSetHalignMethodInfo -data WidgetSetHasTooltipMethodInfo -data WidgetSetHasWindowMethodInfo -data WidgetSetHexpandMethodInfo -data WidgetSetHexpandSetMethodInfo -data WidgetSetMappedMethodInfo -data WidgetSetMarginBottomMethodInfo -data WidgetSetMarginEndMethodInfo -data WidgetSetMarginLeftMethodInfo -data WidgetSetMarginRightMethodInfo -data WidgetSetMarginStartMethodInfo -data WidgetSetMarginTopMethodInfo -data WidgetSetNameMethodInfo -data WidgetSetNoShowAllMethodInfo -data WidgetSetOpacityMethodInfo -data WidgetSetParentMethodInfo -data WidgetSetParentWindowMethodInfo -data WidgetSetRealizedMethodInfo -data WidgetSetReceivesDefaultMethodInfo -data WidgetSetRedrawOnAllocateMethodInfo -data WidgetSetSensitiveMethodInfo -data WidgetSetSizeRequestMethodInfo -data WidgetSetStateMethodInfo -data WidgetSetStateFlagsMethodInfo -data WidgetSetStyleMethodInfo -data WidgetSetSupportMultideviceMethodInfo -data WidgetSetTooltipMarkupMethodInfo -data WidgetSetTooltipTextMethodInfo -data WidgetSetTooltipWindowMethodInfo -data WidgetSetValignMethodInfo -data WidgetSetVexpandMethodInfo -data WidgetSetVexpandSetMethodInfo -data WidgetSetVisibleMethodInfo -data WidgetSetVisualMethodInfo -data WidgetSetWindowMethodInfo -data WidgetShapeCombineRegionMethodInfo -data WidgetShowMethodInfo -data WidgetShowAllMethodInfo -data WidgetShowNowMethodInfo -data WidgetSizeAllocateMethodInfo -data WidgetSizeAllocateWithBaselineMethodInfo -data WidgetSizeRequestMethodInfo -data WidgetStyleAttachMethodInfo -data WidgetStyleGetPropertyMethodInfo -data WidgetThawChildNotifyMethodInfo -data WidgetTranslateCoordinatesMethodInfo -data WidgetTriggerTooltipQueryMethodInfo -data WidgetUnmapMethodInfo -data WidgetUnparentMethodInfo -data WidgetUnrealizeMethodInfo -data WidgetUnregisterWindowMethodInfo -data WidgetUnsetStateFlagsMethodInfo diff --git a/GI/Gtk/Objects/WidgetAccessible.hs b/GI/Gtk/Objects/WidgetAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/WidgetAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.WidgetAccessible - ( - --- * Exported types - WidgetAccessible(..) , - WidgetAccessibleK , - toWidgetAccessible , - noWidgetAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype WidgetAccessible = WidgetAccessible (ForeignPtr WidgetAccessible) -foreign import ccall "gtk_widget_accessible_get_type" - c_gtk_widget_accessible_get_type :: IO GType - -type instance ParentTypes WidgetAccessible = WidgetAccessibleParentTypes -type WidgetAccessibleParentTypes = '[Accessible, Atk.Object, GObject.Object, Atk.Component] - -instance GObject WidgetAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_widget_accessible_get_type - - -class GObject o => WidgetAccessibleK o -instance (GObject o, IsDescendantOf WidgetAccessible o) => WidgetAccessibleK o - -toWidgetAccessible :: WidgetAccessibleK o => o -> IO WidgetAccessible -toWidgetAccessible = unsafeCastTo WidgetAccessible - -noWidgetAccessible :: Maybe WidgetAccessible -noWidgetAccessible = Nothing - -type family ResolveWidgetAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveWidgetAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveWidgetAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWidgetAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWidgetAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveWidgetAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveWidgetAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWidgetAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWidgetAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveWidgetAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveWidgetAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWidgetAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWidgetAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWidgetAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveWidgetAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveWidgetAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWidgetAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveWidgetAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveWidgetAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveWidgetAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWidgetAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveWidgetAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveWidgetAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveWidgetAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveWidgetAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWidgetAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWidgetAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWidgetAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWidgetAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWidgetAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWidgetAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWidgetAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWidgetAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveWidgetAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveWidgetAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWidgetAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveWidgetAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveWidgetAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveWidgetAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveWidgetAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveWidgetAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveWidgetAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveWidgetAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveWidgetAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWidgetAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWidgetAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveWidgetAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveWidgetAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveWidgetAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWidgetAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveWidgetAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveWidgetAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveWidgetAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveWidgetAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveWidgetAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWidgetAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveWidgetAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveWidgetAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveWidgetAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWidgetAccessibleMethod t WidgetAccessible, MethodInfo info WidgetAccessible p) => IsLabelProxy t (WidgetAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWidgetAccessibleMethod t WidgetAccessible, MethodInfo info WidgetAccessible p) => IsLabel t (WidgetAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList WidgetAccessible = WidgetAccessibleAttributeList -type WidgetAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList WidgetAccessible = WidgetAccessibleSignalList -type WidgetAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/WidgetAccessible.hs-boot b/GI/Gtk/Objects/WidgetAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/WidgetAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.WidgetAccessible 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 WidgetAccessible = WidgetAccessible (ForeignPtr WidgetAccessible) -instance GObject WidgetAccessible where -class GObject o => WidgetAccessibleK o -instance (GObject o, IsDescendantOf WidgetAccessible o) => WidgetAccessibleK o diff --git a/GI/Gtk/Objects/Window.hs b/GI/Gtk/Objects/Window.hs deleted file mode 100644 --- a/GI/Gtk/Objects/Window.hs +++ /dev/null @@ -1,6085 +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.Gtk.Objects.Window - ( - --- * Exported types - Window(..) , - WindowK , - toWindow , - noWindow , - - - -- * Methods --- ** windowActivateDefault - WindowActivateDefaultMethodInfo , - windowActivateDefault , - - --- ** windowActivateFocus - WindowActivateFocusMethodInfo , - windowActivateFocus , - - --- ** windowActivateKey - WindowActivateKeyMethodInfo , - windowActivateKey , - - --- ** windowAddAccelGroup - WindowAddAccelGroupMethodInfo , - windowAddAccelGroup , - - --- ** windowAddMnemonic - WindowAddMnemonicMethodInfo , - windowAddMnemonic , - - --- ** windowBeginMoveDrag - WindowBeginMoveDragMethodInfo , - windowBeginMoveDrag , - - --- ** windowBeginResizeDrag - WindowBeginResizeDragMethodInfo , - windowBeginResizeDrag , - - --- ** windowClose - WindowCloseMethodInfo , - windowClose , - - --- ** windowDeiconify - WindowDeiconifyMethodInfo , - windowDeiconify , - - --- ** windowFullscreen - WindowFullscreenMethodInfo , - windowFullscreen , - - --- ** windowFullscreenOnMonitor - WindowFullscreenOnMonitorMethodInfo , - windowFullscreenOnMonitor , - - --- ** windowGetAcceptFocus - WindowGetAcceptFocusMethodInfo , - windowGetAcceptFocus , - - --- ** windowGetApplication - WindowGetApplicationMethodInfo , - windowGetApplication , - - --- ** windowGetAttachedTo - WindowGetAttachedToMethodInfo , - windowGetAttachedTo , - - --- ** windowGetDecorated - WindowGetDecoratedMethodInfo , - windowGetDecorated , - - --- ** windowGetDefaultIconList - windowGetDefaultIconList , - - --- ** windowGetDefaultIconName - windowGetDefaultIconName , - - --- ** windowGetDefaultSize - WindowGetDefaultSizeMethodInfo , - windowGetDefaultSize , - - --- ** windowGetDefaultWidget - WindowGetDefaultWidgetMethodInfo , - windowGetDefaultWidget , - - --- ** windowGetDeletable - WindowGetDeletableMethodInfo , - windowGetDeletable , - - --- ** windowGetDestroyWithParent - WindowGetDestroyWithParentMethodInfo , - windowGetDestroyWithParent , - - --- ** windowGetFocus - WindowGetFocusMethodInfo , - windowGetFocus , - - --- ** windowGetFocusOnMap - WindowGetFocusOnMapMethodInfo , - windowGetFocusOnMap , - - --- ** windowGetFocusVisible - WindowGetFocusVisibleMethodInfo , - windowGetFocusVisible , - - --- ** windowGetGravity - WindowGetGravityMethodInfo , - windowGetGravity , - - --- ** windowGetGroup - WindowGetGroupMethodInfo , - windowGetGroup , - - --- ** windowGetHasResizeGrip - WindowGetHasResizeGripMethodInfo , - windowGetHasResizeGrip , - - --- ** windowGetHideTitlebarWhenMaximized - WindowGetHideTitlebarWhenMaximizedMethodInfo, - windowGetHideTitlebarWhenMaximized , - - --- ** windowGetIcon - WindowGetIconMethodInfo , - windowGetIcon , - - --- ** windowGetIconList - WindowGetIconListMethodInfo , - windowGetIconList , - - --- ** windowGetIconName - WindowGetIconNameMethodInfo , - windowGetIconName , - - --- ** windowGetMnemonicModifier - WindowGetMnemonicModifierMethodInfo , - windowGetMnemonicModifier , - - --- ** windowGetMnemonicsVisible - WindowGetMnemonicsVisibleMethodInfo , - windowGetMnemonicsVisible , - - --- ** windowGetModal - WindowGetModalMethodInfo , - windowGetModal , - - --- ** windowGetOpacity - WindowGetOpacityMethodInfo , - windowGetOpacity , - - --- ** windowGetPosition - WindowGetPositionMethodInfo , - windowGetPosition , - - --- ** windowGetResizable - WindowGetResizableMethodInfo , - windowGetResizable , - - --- ** windowGetResizeGripArea - WindowGetResizeGripAreaMethodInfo , - windowGetResizeGripArea , - - --- ** windowGetRole - WindowGetRoleMethodInfo , - windowGetRole , - - --- ** windowGetScreen - WindowGetScreenMethodInfo , - windowGetScreen , - - --- ** windowGetSize - WindowGetSizeMethodInfo , - windowGetSize , - - --- ** windowGetSkipPagerHint - WindowGetSkipPagerHintMethodInfo , - windowGetSkipPagerHint , - - --- ** windowGetSkipTaskbarHint - WindowGetSkipTaskbarHintMethodInfo , - windowGetSkipTaskbarHint , - - --- ** windowGetTitle - WindowGetTitleMethodInfo , - windowGetTitle , - - --- ** windowGetTitlebar - WindowGetTitlebarMethodInfo , - windowGetTitlebar , - - --- ** windowGetTransientFor - WindowGetTransientForMethodInfo , - windowGetTransientFor , - - --- ** windowGetTypeHint - WindowGetTypeHintMethodInfo , - windowGetTypeHint , - - --- ** windowGetUrgencyHint - WindowGetUrgencyHintMethodInfo , - windowGetUrgencyHint , - - --- ** windowGetWindowType - WindowGetWindowTypeMethodInfo , - windowGetWindowType , - - --- ** windowHasGroup - WindowHasGroupMethodInfo , - windowHasGroup , - - --- ** windowHasToplevelFocus - WindowHasToplevelFocusMethodInfo , - windowHasToplevelFocus , - - --- ** windowIconify - WindowIconifyMethodInfo , - windowIconify , - - --- ** windowIsActive - WindowIsActiveMethodInfo , - windowIsActive , - - --- ** windowIsMaximized - WindowIsMaximizedMethodInfo , - windowIsMaximized , - - --- ** windowListToplevels - windowListToplevels , - - --- ** windowMaximize - WindowMaximizeMethodInfo , - windowMaximize , - - --- ** windowMnemonicActivate - WindowMnemonicActivateMethodInfo , - windowMnemonicActivate , - - --- ** windowMove - WindowMoveMethodInfo , - windowMove , - - --- ** windowNew - windowNew , - - --- ** windowParseGeometry - WindowParseGeometryMethodInfo , - windowParseGeometry , - - --- ** windowPresent - WindowPresentMethodInfo , - windowPresent , - - --- ** windowPresentWithTime - WindowPresentWithTimeMethodInfo , - windowPresentWithTime , - - --- ** windowPropagateKeyEvent - WindowPropagateKeyEventMethodInfo , - windowPropagateKeyEvent , - - --- ** windowRemoveAccelGroup - WindowRemoveAccelGroupMethodInfo , - windowRemoveAccelGroup , - - --- ** windowRemoveMnemonic - WindowRemoveMnemonicMethodInfo , - windowRemoveMnemonic , - - --- ** windowReshowWithInitialSize - WindowReshowWithInitialSizeMethodInfo , - windowReshowWithInitialSize , - - --- ** windowResize - WindowResizeMethodInfo , - windowResize , - - --- ** windowResizeGripIsVisible - WindowResizeGripIsVisibleMethodInfo , - windowResizeGripIsVisible , - - --- ** windowResizeToGeometry - WindowResizeToGeometryMethodInfo , - windowResizeToGeometry , - - --- ** windowSetAcceptFocus - WindowSetAcceptFocusMethodInfo , - windowSetAcceptFocus , - - --- ** windowSetApplication - WindowSetApplicationMethodInfo , - windowSetApplication , - - --- ** windowSetAttachedTo - WindowSetAttachedToMethodInfo , - windowSetAttachedTo , - - --- ** windowSetAutoStartupNotification - windowSetAutoStartupNotification , - - --- ** windowSetDecorated - WindowSetDecoratedMethodInfo , - windowSetDecorated , - - --- ** windowSetDefault - WindowSetDefaultMethodInfo , - windowSetDefault , - - --- ** windowSetDefaultGeometry - WindowSetDefaultGeometryMethodInfo , - windowSetDefaultGeometry , - - --- ** windowSetDefaultIcon - windowSetDefaultIcon , - - --- ** windowSetDefaultIconFromFile - windowSetDefaultIconFromFile , - - --- ** windowSetDefaultIconList - windowSetDefaultIconList , - - --- ** windowSetDefaultIconName - windowSetDefaultIconName , - - --- ** windowSetDefaultSize - WindowSetDefaultSizeMethodInfo , - windowSetDefaultSize , - - --- ** windowSetDeletable - WindowSetDeletableMethodInfo , - windowSetDeletable , - - --- ** windowSetDestroyWithParent - WindowSetDestroyWithParentMethodInfo , - windowSetDestroyWithParent , - - --- ** windowSetFocus - WindowSetFocusMethodInfo , - windowSetFocus , - - --- ** windowSetFocusOnMap - WindowSetFocusOnMapMethodInfo , - windowSetFocusOnMap , - - --- ** windowSetFocusVisible - WindowSetFocusVisibleMethodInfo , - windowSetFocusVisible , - - --- ** windowSetGeometryHints - WindowSetGeometryHintsMethodInfo , - windowSetGeometryHints , - - --- ** windowSetGravity - WindowSetGravityMethodInfo , - windowSetGravity , - - --- ** windowSetHasResizeGrip - WindowSetHasResizeGripMethodInfo , - windowSetHasResizeGrip , - - --- ** windowSetHasUserRefCount - WindowSetHasUserRefCountMethodInfo , - windowSetHasUserRefCount , - - --- ** windowSetHideTitlebarWhenMaximized - WindowSetHideTitlebarWhenMaximizedMethodInfo, - windowSetHideTitlebarWhenMaximized , - - --- ** windowSetIcon - WindowSetIconMethodInfo , - windowSetIcon , - - --- ** windowSetIconFromFile - WindowSetIconFromFileMethodInfo , - windowSetIconFromFile , - - --- ** windowSetIconList - WindowSetIconListMethodInfo , - windowSetIconList , - - --- ** windowSetIconName - WindowSetIconNameMethodInfo , - windowSetIconName , - - --- ** windowSetInteractiveDebugging - windowSetInteractiveDebugging , - - --- ** windowSetKeepAbove - WindowSetKeepAboveMethodInfo , - windowSetKeepAbove , - - --- ** windowSetKeepBelow - WindowSetKeepBelowMethodInfo , - windowSetKeepBelow , - - --- ** windowSetMnemonicModifier - WindowSetMnemonicModifierMethodInfo , - windowSetMnemonicModifier , - - --- ** windowSetMnemonicsVisible - WindowSetMnemonicsVisibleMethodInfo , - windowSetMnemonicsVisible , - - --- ** windowSetModal - WindowSetModalMethodInfo , - windowSetModal , - - --- ** windowSetOpacity - WindowSetOpacityMethodInfo , - windowSetOpacity , - - --- ** windowSetPosition - WindowSetPositionMethodInfo , - windowSetPosition , - - --- ** windowSetResizable - WindowSetResizableMethodInfo , - windowSetResizable , - - --- ** windowSetRole - WindowSetRoleMethodInfo , - windowSetRole , - - --- ** windowSetScreen - WindowSetScreenMethodInfo , - windowSetScreen , - - --- ** windowSetSkipPagerHint - WindowSetSkipPagerHintMethodInfo , - windowSetSkipPagerHint , - - --- ** windowSetSkipTaskbarHint - WindowSetSkipTaskbarHintMethodInfo , - windowSetSkipTaskbarHint , - - --- ** windowSetStartupId - WindowSetStartupIdMethodInfo , - windowSetStartupId , - - --- ** windowSetTitle - WindowSetTitleMethodInfo , - windowSetTitle , - - --- ** windowSetTitlebar - WindowSetTitlebarMethodInfo , - windowSetTitlebar , - - --- ** windowSetTransientFor - WindowSetTransientForMethodInfo , - windowSetTransientFor , - - --- ** windowSetTypeHint - WindowSetTypeHintMethodInfo , - windowSetTypeHint , - - --- ** windowSetUrgencyHint - WindowSetUrgencyHintMethodInfo , - windowSetUrgencyHint , - - --- ** windowSetWmclass - WindowSetWmclassMethodInfo , - windowSetWmclass , - - --- ** windowStick - WindowStickMethodInfo , - windowStick , - - --- ** windowUnfullscreen - WindowUnfullscreenMethodInfo , - windowUnfullscreen , - - --- ** windowUnmaximize - WindowUnmaximizeMethodInfo , - windowUnmaximize , - - --- ** windowUnstick - WindowUnstickMethodInfo , - windowUnstick , - - - - - -- * Properties --- ** AcceptFocus - WindowAcceptFocusPropertyInfo , - constructWindowAcceptFocus , - getWindowAcceptFocus , - setWindowAcceptFocus , - windowAcceptFocus , - - --- ** Application - WindowApplicationPropertyInfo , - clearWindowApplication , - constructWindowApplication , - getWindowApplication , - setWindowApplication , - windowApplication , - - --- ** AttachedTo - WindowAttachedToPropertyInfo , - clearWindowAttachedTo , - constructWindowAttachedTo , - getWindowAttachedTo , - setWindowAttachedTo , - windowAttachedTo , - - --- ** Decorated - WindowDecoratedPropertyInfo , - constructWindowDecorated , - getWindowDecorated , - setWindowDecorated , - windowDecorated , - - --- ** DefaultHeight - WindowDefaultHeightPropertyInfo , - constructWindowDefaultHeight , - getWindowDefaultHeight , - setWindowDefaultHeight , - windowDefaultHeight , - - --- ** DefaultWidth - WindowDefaultWidthPropertyInfo , - constructWindowDefaultWidth , - getWindowDefaultWidth , - setWindowDefaultWidth , - windowDefaultWidth , - - --- ** Deletable - WindowDeletablePropertyInfo , - constructWindowDeletable , - getWindowDeletable , - setWindowDeletable , - windowDeletable , - - --- ** DestroyWithParent - WindowDestroyWithParentPropertyInfo , - constructWindowDestroyWithParent , - getWindowDestroyWithParent , - setWindowDestroyWithParent , - windowDestroyWithParent , - - --- ** FocusOnMap - WindowFocusOnMapPropertyInfo , - constructWindowFocusOnMap , - getWindowFocusOnMap , - setWindowFocusOnMap , - windowFocusOnMap , - - --- ** FocusVisible - WindowFocusVisiblePropertyInfo , - constructWindowFocusVisible , - getWindowFocusVisible , - setWindowFocusVisible , - windowFocusVisible , - - --- ** Gravity - WindowGravityPropertyInfo , - constructWindowGravity , - getWindowGravity , - setWindowGravity , - windowGravity , - - --- ** HasResizeGrip - WindowHasResizeGripPropertyInfo , - constructWindowHasResizeGrip , - getWindowHasResizeGrip , - setWindowHasResizeGrip , - windowHasResizeGrip , - - --- ** HasToplevelFocus - WindowHasToplevelFocusPropertyInfo , - getWindowHasToplevelFocus , - - --- ** HideTitlebarWhenMaximized - WindowHideTitlebarWhenMaximizedPropertyInfo, - constructWindowHideTitlebarWhenMaximized, - getWindowHideTitlebarWhenMaximized , - setWindowHideTitlebarWhenMaximized , - windowHideTitlebarWhenMaximized , - - --- ** Icon - WindowIconPropertyInfo , - clearWindowIcon , - constructWindowIcon , - getWindowIcon , - setWindowIcon , - windowIcon , - - --- ** IconName - WindowIconNamePropertyInfo , - clearWindowIconName , - constructWindowIconName , - getWindowIconName , - setWindowIconName , - windowIconName , - - --- ** IsActive - WindowIsActivePropertyInfo , - getWindowIsActive , - - --- ** IsMaximized - WindowIsMaximizedPropertyInfo , - getWindowIsMaximized , - - --- ** MnemonicsVisible - WindowMnemonicsVisiblePropertyInfo , - constructWindowMnemonicsVisible , - getWindowMnemonicsVisible , - setWindowMnemonicsVisible , - windowMnemonicsVisible , - - --- ** Modal - WindowModalPropertyInfo , - constructWindowModal , - getWindowModal , - setWindowModal , - windowModal , - - --- ** Resizable - WindowResizablePropertyInfo , - constructWindowResizable , - getWindowResizable , - setWindowResizable , - windowResizable , - - --- ** ResizeGripVisible - WindowResizeGripVisiblePropertyInfo , - getWindowResizeGripVisible , - windowResizeGripVisible , - - --- ** Role - WindowRolePropertyInfo , - constructWindowRole , - getWindowRole , - setWindowRole , - windowRole , - - --- ** Screen - WindowScreenPropertyInfo , - constructWindowScreen , - getWindowScreen , - setWindowScreen , - windowScreen , - - --- ** SkipPagerHint - WindowSkipPagerHintPropertyInfo , - constructWindowSkipPagerHint , - getWindowSkipPagerHint , - setWindowSkipPagerHint , - windowSkipPagerHint , - - --- ** SkipTaskbarHint - WindowSkipTaskbarHintPropertyInfo , - constructWindowSkipTaskbarHint , - getWindowSkipTaskbarHint , - setWindowSkipTaskbarHint , - windowSkipTaskbarHint , - - --- ** StartupId - WindowStartupIdPropertyInfo , - constructWindowStartupId , - setWindowStartupId , - windowStartupId , - - --- ** Title - WindowTitlePropertyInfo , - constructWindowTitle , - getWindowTitle , - setWindowTitle , - windowTitle , - - --- ** TransientFor - WindowTransientForPropertyInfo , - clearWindowTransientFor , - constructWindowTransientFor , - getWindowTransientFor , - setWindowTransientFor , - windowTransientFor , - - --- ** Type - WindowTypePropertyInfo , - constructWindowType , - getWindowType , - windowType , - - --- ** TypeHint - WindowTypeHintPropertyInfo , - constructWindowTypeHint , - getWindowTypeHint , - setWindowTypeHint , - windowTypeHint , - - --- ** UrgencyHint - WindowUrgencyHintPropertyInfo , - constructWindowUrgencyHint , - getWindowUrgencyHint , - setWindowUrgencyHint , - windowUrgencyHint , - - --- ** WindowPosition - WindowWindowPositionPropertyInfo , - constructWindowWindowPosition , - getWindowWindowPosition , - setWindowWindowPosition , - windowWindowPosition , - - - - - -- * Signals --- ** ActivateDefault - WindowActivateDefaultCallback , - WindowActivateDefaultCallbackC , - WindowActivateDefaultSignalInfo , - afterWindowActivateDefault , - mkWindowActivateDefaultCallback , - noWindowActivateDefaultCallback , - onWindowActivateDefault , - windowActivateDefaultCallbackWrapper , - windowActivateDefaultClosure , - - --- ** ActivateFocus - WindowActivateFocusCallback , - WindowActivateFocusCallbackC , - WindowActivateFocusSignalInfo , - afterWindowActivateFocus , - mkWindowActivateFocusCallback , - noWindowActivateFocusCallback , - onWindowActivateFocus , - windowActivateFocusCallbackWrapper , - windowActivateFocusClosure , - - --- ** EnableDebugging - WindowEnableDebuggingCallback , - WindowEnableDebuggingCallbackC , - WindowEnableDebuggingSignalInfo , - afterWindowEnableDebugging , - mkWindowEnableDebuggingCallback , - noWindowEnableDebuggingCallback , - onWindowEnableDebugging , - windowEnableDebuggingCallbackWrapper , - windowEnableDebuggingClosure , - - --- ** KeysChanged - WindowKeysChangedCallback , - WindowKeysChangedCallbackC , - WindowKeysChangedSignalInfo , - afterWindowKeysChanged , - mkWindowKeysChangedCallback , - noWindowKeysChangedCallback , - onWindowKeysChanged , - windowKeysChangedCallbackWrapper , - windowKeysChangedClosure , - - --- ** SetFocus - WindowSetFocusCallback , - WindowSetFocusCallbackC , - WindowSetFocusSignalInfo , - afterWindowSetFocus , - mkWindowSetFocusCallback , - noWindowSetFocusCallback , - onWindowSetFocus , - windowSetFocusCallbackWrapper , - windowSetFocusClosure , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype Window = Window (ForeignPtr Window) -foreign import ccall "gtk_window_get_type" - c_gtk_window_get_type :: IO GType - -type instance ParentTypes Window = WindowParentTypes -type WindowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Window where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_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 - -noWindow :: Maybe Window -noWindow = Nothing - -type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowMethod "activate" o = WidgetActivateMethodInfo - ResolveWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo - ResolveWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo - ResolveWindowMethod "activateKey" o = WindowActivateKeyMethodInfo - ResolveWindowMethod "add" o = ContainerAddMethodInfo - ResolveWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo - ResolveWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveWindowMethod "addChild" o = BuildableAddChildMethodInfo - ResolveWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveWindowMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo - ResolveWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo - ResolveWindowMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo - ResolveWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo - ResolveWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo - ResolveWindowMethod "childType" o = ContainerChildTypeMethodInfo - ResolveWindowMethod "classPath" o = WidgetClassPathMethodInfo - ResolveWindowMethod "close" o = WindowCloseMethodInfo - ResolveWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveWindowMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveWindowMethod "destroy" o = WidgetDestroyMethodInfo - ResolveWindowMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveWindowMethod "draw" o = WidgetDrawMethodInfo - ResolveWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveWindowMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveWindowMethod "event" o = WidgetEventMethodInfo - ResolveWindowMethod "forall" o = ContainerForallMethodInfo - ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWindowMethod "foreach" o = ContainerForeachMethodInfo - ResolveWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveWindowMethod "hasGroup" o = WindowHasGroupMethodInfo - ResolveWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo - ResolveWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveWindowMethod "hide" o = WidgetHideMethodInfo - ResolveWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo - ResolveWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveWindowMethod "intersect" o = WidgetIntersectMethodInfo - ResolveWindowMethod "isActive" o = WindowIsActiveMethodInfo - ResolveWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWindowMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo - ResolveWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveWindowMethod "map" o = WidgetMapMethodInfo - ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo - ResolveWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveWindowMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveWindowMethod "move" o = WindowMoveMethodInfo - ResolveWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo - ResolveWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveWindowMethod "path" o = WidgetPathMethodInfo - ResolveWindowMethod "present" o = WindowPresentMethodInfo - ResolveWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo - ResolveWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo - ResolveWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo - ResolveWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveWindowMethod "realize" o = WidgetRealizeMethodInfo - ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveWindowMethod "remove" o = ContainerRemoveMethodInfo - ResolveWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo - ResolveWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo - ResolveWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveWindowMethod "reparent" o = WidgetReparentMethodInfo - ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo - ResolveWindowMethod "resize" o = WindowResizeMethodInfo - ResolveWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo - ResolveWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo - ResolveWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo - ResolveWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveWindowMethod "show" o = WidgetShowMethodInfo - ResolveWindowMethod "showAll" o = WidgetShowAllMethodInfo - ResolveWindowMethod "showNow" o = WidgetShowNowMethodInfo - ResolveWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWindowMethod "stick" o = WindowStickMethodInfo - ResolveWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveWindowMethod "unmap" o = WidgetUnmapMethodInfo - ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveWindowMethod "unparent" o = WidgetUnparentMethodInfo - ResolveWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo - ResolveWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo - ResolveWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveWindowMethod "getApplication" o = WindowGetApplicationMethodInfo - ResolveWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo - ResolveWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo - ResolveWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveWindowMethod "getChild" o = BinGetChildMethodInfo - ResolveWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo - ResolveWindowMethod "getClip" o = WidgetGetClipMethodInfo - ResolveWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo - ResolveWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo - ResolveWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo - ResolveWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo - ResolveWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo - ResolveWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveWindowMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveWindowMethod "getFocus" o = WindowGetFocusMethodInfo - ResolveWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo - ResolveWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo - ResolveWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo - ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo - ResolveWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo - ResolveWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveWindowMethod "getGravity" o = WindowGetGravityMethodInfo - ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveWindowMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo - ResolveWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo - ResolveWindowMethod "getIcon" o = WindowGetIconMethodInfo - ResolveWindowMethod "getIconList" o = WindowGetIconListMethodInfo - ResolveWindowMethod "getIconName" o = WindowGetIconNameMethodInfo - ResolveWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveWindowMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo - ResolveWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo - ResolveWindowMethod "getModal" o = WindowGetModalMethodInfo - ResolveWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveWindowMethod "getParent" o = WidgetGetParentMethodInfo - ResolveWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveWindowMethod "getPath" o = WidgetGetPathMethodInfo - ResolveWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo - ResolveWindowMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveWindowMethod "getResizable" o = WindowGetResizableMethodInfo - ResolveWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo - ResolveWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo - ResolveWindowMethod "getRole" o = WindowGetRoleMethodInfo - ResolveWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveWindowMethod "getSize" o = WindowGetSizeMethodInfo - ResolveWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo - ResolveWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo - ResolveWindowMethod "getState" o = WidgetGetStateMethodInfo - ResolveWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveWindowMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveWindowMethod "getTitle" o = WindowGetTitleMethodInfo - ResolveWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo - ResolveWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo - ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo - ResolveWindowMethod "getValign" o = WidgetGetValignMethodInfo - ResolveWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveWindowMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveWindowMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveWindowMethod "setApplication" o = WindowSetApplicationMethodInfo - ResolveWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo - ResolveWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo - ResolveWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveWindowMethod "setClip" o = WidgetSetClipMethodInfo - ResolveWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo - ResolveWindowMethod "setDefault" o = WindowSetDefaultMethodInfo - ResolveWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo - ResolveWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo - ResolveWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo - ResolveWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo - ResolveWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveWindowMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveWindowMethod "setFocus" o = WindowSetFocusMethodInfo - ResolveWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo - ResolveWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo - ResolveWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo - ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo - ResolveWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo - ResolveWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveWindowMethod "setGravity" o = WindowSetGravityMethodInfo - ResolveWindowMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo - ResolveWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo - ResolveWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo - ResolveWindowMethod "setIcon" o = WindowSetIconMethodInfo - ResolveWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo - ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveWindowMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo - ResolveWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo - ResolveWindowMethod "setModal" o = WindowSetModalMethodInfo - ResolveWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveWindowMethod "setParent" o = WidgetSetParentMethodInfo - ResolveWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveWindowMethod "setPosition" o = WindowSetPositionMethodInfo - ResolveWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo - ResolveWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveWindowMethod "setResizable" o = WindowSetResizableMethodInfo - ResolveWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo - ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo - ResolveWindowMethod "setScreen" o = WindowSetScreenMethodInfo - ResolveWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveWindowMethod "setState" o = WidgetSetStateMethodInfo - ResolveWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveWindowMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo - ResolveWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveWindowMethod "setValign" o = WidgetSetValignMethodInfo - ResolveWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveWindowMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveWindowMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo - 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-default -type WindowActivateDefaultCallback = - IO () - -noWindowActivateDefaultCallback :: Maybe WindowActivateDefaultCallback -noWindowActivateDefaultCallback = Nothing - -type WindowActivateDefaultCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowActivateDefaultCallback :: WindowActivateDefaultCallbackC -> IO (FunPtr WindowActivateDefaultCallbackC) - -windowActivateDefaultClosure :: WindowActivateDefaultCallback -> IO Closure -windowActivateDefaultClosure cb = newCClosure =<< mkWindowActivateDefaultCallback wrapped - where wrapped = windowActivateDefaultCallbackWrapper cb - -windowActivateDefaultCallbackWrapper :: - WindowActivateDefaultCallback -> - Ptr () -> - Ptr () -> - IO () -windowActivateDefaultCallbackWrapper _cb _ _ = do - _cb - -onWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId -onWindowActivateDefault obj cb = liftIO $ connectWindowActivateDefault obj cb SignalConnectBefore -afterWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId -afterWindowActivateDefault obj cb = connectWindowActivateDefault obj cb SignalConnectAfter - -connectWindowActivateDefault :: (GObject a, MonadIO m) => - a -> WindowActivateDefaultCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowActivateDefault obj cb after = liftIO $ do - cb' <- mkWindowActivateDefaultCallback (windowActivateDefaultCallbackWrapper cb) - connectSignalFunPtr obj "activate-default" cb' after - --- signal Window::activate-focus -type WindowActivateFocusCallback = - IO () - -noWindowActivateFocusCallback :: Maybe WindowActivateFocusCallback -noWindowActivateFocusCallback = Nothing - -type WindowActivateFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowActivateFocusCallback :: WindowActivateFocusCallbackC -> IO (FunPtr WindowActivateFocusCallbackC) - -windowActivateFocusClosure :: WindowActivateFocusCallback -> IO Closure -windowActivateFocusClosure cb = newCClosure =<< mkWindowActivateFocusCallback wrapped - where wrapped = windowActivateFocusCallbackWrapper cb - -windowActivateFocusCallbackWrapper :: - WindowActivateFocusCallback -> - Ptr () -> - Ptr () -> - IO () -windowActivateFocusCallbackWrapper _cb _ _ = do - _cb - -onWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId -onWindowActivateFocus obj cb = liftIO $ connectWindowActivateFocus obj cb SignalConnectBefore -afterWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId -afterWindowActivateFocus obj cb = connectWindowActivateFocus obj cb SignalConnectAfter - -connectWindowActivateFocus :: (GObject a, MonadIO m) => - a -> WindowActivateFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowActivateFocus obj cb after = liftIO $ do - cb' <- mkWindowActivateFocusCallback (windowActivateFocusCallbackWrapper cb) - connectSignalFunPtr obj "activate-focus" cb' after - --- signal Window::enable-debugging -type WindowEnableDebuggingCallback = - Bool -> - IO Bool - -noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback -noWindowEnableDebuggingCallback = Nothing - -type WindowEnableDebuggingCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWindowEnableDebuggingCallback :: WindowEnableDebuggingCallbackC -> IO (FunPtr WindowEnableDebuggingCallbackC) - -windowEnableDebuggingClosure :: WindowEnableDebuggingCallback -> IO Closure -windowEnableDebuggingClosure cb = newCClosure =<< mkWindowEnableDebuggingCallback wrapped - where wrapped = windowEnableDebuggingCallbackWrapper cb - -windowEnableDebuggingCallbackWrapper :: - WindowEnableDebuggingCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -windowEnableDebuggingCallbackWrapper _cb _ toggle _ = do - let toggle' = (/= 0) toggle - result <- _cb toggle' - let result' = (fromIntegral . fromEnum) result - return result' - -onWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId -onWindowEnableDebugging obj cb = liftIO $ connectWindowEnableDebugging obj cb SignalConnectBefore -afterWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId -afterWindowEnableDebugging obj cb = connectWindowEnableDebugging obj cb SignalConnectAfter - -connectWindowEnableDebugging :: (GObject a, MonadIO m) => - a -> WindowEnableDebuggingCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowEnableDebugging obj cb after = liftIO $ do - cb' <- mkWindowEnableDebuggingCallback (windowEnableDebuggingCallbackWrapper cb) - connectSignalFunPtr obj "enable-debugging" cb' after - --- signal Window::keys-changed -type WindowKeysChangedCallback = - IO () - -noWindowKeysChangedCallback :: Maybe WindowKeysChangedCallback -noWindowKeysChangedCallback = Nothing - -type WindowKeysChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowKeysChangedCallback :: WindowKeysChangedCallbackC -> IO (FunPtr WindowKeysChangedCallbackC) - -windowKeysChangedClosure :: WindowKeysChangedCallback -> IO Closure -windowKeysChangedClosure cb = newCClosure =<< mkWindowKeysChangedCallback wrapped - where wrapped = windowKeysChangedCallbackWrapper cb - -windowKeysChangedCallbackWrapper :: - WindowKeysChangedCallback -> - Ptr () -> - Ptr () -> - IO () -windowKeysChangedCallbackWrapper _cb _ _ = do - _cb - -onWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId -onWindowKeysChanged obj cb = liftIO $ connectWindowKeysChanged obj cb SignalConnectBefore -afterWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId -afterWindowKeysChanged obj cb = connectWindowKeysChanged obj cb SignalConnectAfter - -connectWindowKeysChanged :: (GObject a, MonadIO m) => - a -> WindowKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowKeysChanged obj cb after = liftIO $ do - cb' <- mkWindowKeysChangedCallback (windowKeysChangedCallbackWrapper cb) - connectSignalFunPtr obj "keys-changed" cb' after - --- signal Window::set-focus -type WindowSetFocusCallback = - Widget -> - IO () - -noWindowSetFocusCallback :: Maybe WindowSetFocusCallback -noWindowSetFocusCallback = Nothing - -type WindowSetFocusCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowSetFocusCallback :: WindowSetFocusCallbackC -> IO (FunPtr WindowSetFocusCallbackC) - -windowSetFocusClosure :: WindowSetFocusCallback -> IO Closure -windowSetFocusClosure cb = newCClosure =<< mkWindowSetFocusCallback wrapped - where wrapped = windowSetFocusCallbackWrapper cb - -windowSetFocusCallbackWrapper :: - WindowSetFocusCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -windowSetFocusCallbackWrapper _cb _ object _ = do - object' <- (newObject Widget) object - _cb object' - -onWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId -onWindowSetFocus obj cb = liftIO $ connectWindowSetFocus obj cb SignalConnectBefore -afterWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId -afterWindowSetFocus obj cb = connectWindowSetFocus obj cb SignalConnectAfter - -connectWindowSetFocus :: (GObject a, MonadIO m) => - a -> WindowSetFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowSetFocus obj cb after = liftIO $ do - cb' <- mkWindowSetFocusCallback (windowSetFocusCallbackWrapper cb) - connectSignalFunPtr obj "set-focus" cb' after - --- VVV Prop "accept-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> m Bool -getWindowAcceptFocus obj = liftIO $ getObjectPropertyBool obj "accept-focus" - -setWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowAcceptFocus obj val = liftIO $ setObjectPropertyBool obj "accept-focus" val - -constructWindowAcceptFocus :: Bool -> IO ([Char], GValue) -constructWindowAcceptFocus val = constructObjectPropertyBool "accept-focus" val - -data WindowAcceptFocusPropertyInfo -instance AttrInfo WindowAcceptFocusPropertyInfo where - type AttrAllowedOps WindowAcceptFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowAcceptFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowAcceptFocusPropertyInfo = WindowK - type AttrGetType WindowAcceptFocusPropertyInfo = Bool - type AttrLabel WindowAcceptFocusPropertyInfo = "accept-focus" - attrGet _ = getWindowAcceptFocus - attrSet _ = setWindowAcceptFocus - attrConstruct _ = constructWindowAcceptFocus - attrClear _ = undefined - --- VVV Prop "application" - -- Type: TInterface "Gtk" "Application" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application -getWindowApplication obj = liftIO $ checkUnexpectedNothing "getWindowApplication" $ getObjectPropertyObject obj "application" Application - -setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () -setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" (Just val) - -constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) -constructWindowApplication val = constructObjectPropertyObject "application" (Just val) - -clearWindowApplication :: (MonadIO m, WindowK o) => o -> m () -clearWindowApplication obj = liftIO $ setObjectPropertyObject obj "application" (Nothing :: Maybe Application) - -data WindowApplicationPropertyInfo -instance AttrInfo WindowApplicationPropertyInfo where - type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK - type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK - type AttrGetType WindowApplicationPropertyInfo = Application - type AttrLabel WindowApplicationPropertyInfo = "application" - attrGet _ = getWindowApplication - attrSet _ = setWindowApplication - attrConstruct _ = constructWindowApplication - attrClear _ = clearWindowApplication - --- VVV Prop "attached-to" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget -getWindowAttachedTo obj = liftIO $ checkUnexpectedNothing "getWindowAttachedTo" $ getObjectPropertyObject obj "attached-to" Widget - -setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () -setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" (Just val) - -constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" (Just val) - -clearWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m () -clearWindowAttachedTo obj = liftIO $ setObjectPropertyObject obj "attached-to" (Nothing :: Maybe Widget) - -data WindowAttachedToPropertyInfo -instance AttrInfo WindowAttachedToPropertyInfo where - type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK - type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK - type AttrGetType WindowAttachedToPropertyInfo = Widget - type AttrLabel WindowAttachedToPropertyInfo = "attached-to" - attrGet _ = getWindowAttachedTo - attrSet _ = setWindowAttachedTo - attrConstruct _ = constructWindowAttachedTo - attrClear _ = clearWindowAttachedTo - --- VVV Prop "decorated" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowDecorated :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDecorated obj = liftIO $ getObjectPropertyBool obj "decorated" - -setWindowDecorated :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDecorated obj val = liftIO $ setObjectPropertyBool obj "decorated" val - -constructWindowDecorated :: Bool -> IO ([Char], GValue) -constructWindowDecorated val = constructObjectPropertyBool "decorated" val - -data WindowDecoratedPropertyInfo -instance AttrInfo WindowDecoratedPropertyInfo where - type AttrAllowedOps WindowDecoratedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDecoratedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDecoratedPropertyInfo = WindowK - type AttrGetType WindowDecoratedPropertyInfo = Bool - type AttrLabel WindowDecoratedPropertyInfo = "decorated" - attrGet _ = getWindowDecorated - attrSet _ = setWindowDecorated - attrConstruct _ = constructWindowDecorated - attrClear _ = undefined - --- VVV Prop "default-height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultHeight obj = liftIO $ getObjectPropertyInt32 obj "default-height" - -setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultHeight obj val = liftIO $ setObjectPropertyInt32 obj "default-height" val - -constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) -constructWindowDefaultHeight val = constructObjectPropertyInt32 "default-height" val - -data WindowDefaultHeightPropertyInfo -instance AttrInfo WindowDefaultHeightPropertyInfo where - type AttrAllowedOps WindowDefaultHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDefaultHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WindowDefaultHeightPropertyInfo = WindowK - type AttrGetType WindowDefaultHeightPropertyInfo = Int32 - type AttrLabel WindowDefaultHeightPropertyInfo = "default-height" - attrGet _ = getWindowDefaultHeight - attrSet _ = setWindowDefaultHeight - attrConstruct _ = constructWindowDefaultHeight - attrClear _ = undefined - --- VVV Prop "default-width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultWidth obj = liftIO $ getObjectPropertyInt32 obj "default-width" - -setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultWidth obj val = liftIO $ setObjectPropertyInt32 obj "default-width" val - -constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) -constructWindowDefaultWidth val = constructObjectPropertyInt32 "default-width" val - -data WindowDefaultWidthPropertyInfo -instance AttrInfo WindowDefaultWidthPropertyInfo where - type AttrAllowedOps WindowDefaultWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDefaultWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WindowDefaultWidthPropertyInfo = WindowK - type AttrGetType WindowDefaultWidthPropertyInfo = Int32 - type AttrLabel WindowDefaultWidthPropertyInfo = "default-width" - attrGet _ = getWindowDefaultWidth - attrSet _ = setWindowDefaultWidth - attrConstruct _ = constructWindowDefaultWidth - attrClear _ = undefined - --- VVV Prop "deletable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowDeletable :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDeletable obj = liftIO $ getObjectPropertyBool obj "deletable" - -setWindowDeletable :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDeletable obj val = liftIO $ setObjectPropertyBool obj "deletable" val - -constructWindowDeletable :: Bool -> IO ([Char], GValue) -constructWindowDeletable val = constructObjectPropertyBool "deletable" val - -data WindowDeletablePropertyInfo -instance AttrInfo WindowDeletablePropertyInfo where - type AttrAllowedOps WindowDeletablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDeletablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDeletablePropertyInfo = WindowK - type AttrGetType WindowDeletablePropertyInfo = Bool - type AttrLabel WindowDeletablePropertyInfo = "deletable" - attrGet _ = getWindowDeletable - attrSet _ = setWindowDeletable - attrConstruct _ = constructWindowDeletable - attrClear _ = undefined - --- VVV Prop "destroy-with-parent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDestroyWithParent obj = liftIO $ getObjectPropertyBool obj "destroy-with-parent" - -setWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDestroyWithParent obj val = liftIO $ setObjectPropertyBool obj "destroy-with-parent" val - -constructWindowDestroyWithParent :: Bool -> IO ([Char], GValue) -constructWindowDestroyWithParent val = constructObjectPropertyBool "destroy-with-parent" val - -data WindowDestroyWithParentPropertyInfo -instance AttrInfo WindowDestroyWithParentPropertyInfo where - type AttrAllowedOps WindowDestroyWithParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDestroyWithParentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDestroyWithParentPropertyInfo = WindowK - type AttrGetType WindowDestroyWithParentPropertyInfo = Bool - type AttrLabel WindowDestroyWithParentPropertyInfo = "destroy-with-parent" - attrGet _ = getWindowDestroyWithParent - attrSet _ = setWindowDestroyWithParent - attrConstruct _ = constructWindowDestroyWithParent - attrClear _ = undefined - --- VVV Prop "focus-on-map" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> m Bool -getWindowFocusOnMap obj = liftIO $ getObjectPropertyBool obj "focus-on-map" - -setWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowFocusOnMap obj val = liftIO $ setObjectPropertyBool obj "focus-on-map" val - -constructWindowFocusOnMap :: Bool -> IO ([Char], GValue) -constructWindowFocusOnMap val = constructObjectPropertyBool "focus-on-map" val - -data WindowFocusOnMapPropertyInfo -instance AttrInfo WindowFocusOnMapPropertyInfo where - type AttrAllowedOps WindowFocusOnMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowFocusOnMapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowFocusOnMapPropertyInfo = WindowK - type AttrGetType WindowFocusOnMapPropertyInfo = Bool - type AttrLabel WindowFocusOnMapPropertyInfo = "focus-on-map" - attrGet _ = getWindowFocusOnMap - attrSet _ = setWindowFocusOnMap - attrConstruct _ = constructWindowFocusOnMap - attrClear _ = undefined - --- VVV Prop "focus-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowFocusVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowFocusVisible obj = liftIO $ getObjectPropertyBool obj "focus-visible" - -setWindowFocusVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowFocusVisible obj val = liftIO $ setObjectPropertyBool obj "focus-visible" val - -constructWindowFocusVisible :: Bool -> IO ([Char], GValue) -constructWindowFocusVisible val = constructObjectPropertyBool "focus-visible" val - -data WindowFocusVisiblePropertyInfo -instance AttrInfo WindowFocusVisiblePropertyInfo where - type AttrAllowedOps WindowFocusVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowFocusVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowFocusVisiblePropertyInfo = WindowK - type AttrGetType WindowFocusVisiblePropertyInfo = Bool - type AttrLabel WindowFocusVisiblePropertyInfo = "focus-visible" - attrGet _ = getWindowFocusVisible - attrSet _ = setWindowFocusVisible - attrConstruct _ = constructWindowFocusVisible - attrClear _ = undefined - --- VVV Prop "gravity" - -- Type: TInterface "Gdk" "Gravity" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowGravity :: (MonadIO m, WindowK o) => o -> m Gdk.Gravity -getWindowGravity obj = liftIO $ getObjectPropertyEnum obj "gravity" - -setWindowGravity :: (MonadIO m, WindowK o) => o -> Gdk.Gravity -> m () -setWindowGravity obj val = liftIO $ setObjectPropertyEnum obj "gravity" val - -constructWindowGravity :: Gdk.Gravity -> IO ([Char], GValue) -constructWindowGravity val = constructObjectPropertyEnum "gravity" val - -data WindowGravityPropertyInfo -instance AttrInfo WindowGravityPropertyInfo where - type AttrAllowedOps WindowGravityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowGravityPropertyInfo = (~) Gdk.Gravity - type AttrBaseTypeConstraint WindowGravityPropertyInfo = WindowK - type AttrGetType WindowGravityPropertyInfo = Gdk.Gravity - type AttrLabel WindowGravityPropertyInfo = "gravity" - attrGet _ = getWindowGravity - attrSet _ = setWindowGravity - attrConstruct _ = constructWindowGravity - attrClear _ = undefined - --- VVV Prop "has-resize-grip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHasResizeGrip obj = liftIO $ getObjectPropertyBool obj "has-resize-grip" - -setWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowHasResizeGrip obj val = liftIO $ setObjectPropertyBool obj "has-resize-grip" val - -constructWindowHasResizeGrip :: Bool -> IO ([Char], GValue) -constructWindowHasResizeGrip val = constructObjectPropertyBool "has-resize-grip" val - -data WindowHasResizeGripPropertyInfo -instance AttrInfo WindowHasResizeGripPropertyInfo where - type AttrAllowedOps WindowHasResizeGripPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowHasResizeGripPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowHasResizeGripPropertyInfo = WindowK - type AttrGetType WindowHasResizeGripPropertyInfo = Bool - type AttrLabel WindowHasResizeGripPropertyInfo = "has-resize-grip" - attrGet _ = getWindowHasResizeGrip - attrSet _ = setWindowHasResizeGrip - attrConstruct _ = constructWindowHasResizeGrip - attrClear _ = undefined - --- VVV Prop "has-toplevel-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWindowHasToplevelFocus :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHasToplevelFocus obj = liftIO $ getObjectPropertyBool obj "has-toplevel-focus" - -data WindowHasToplevelFocusPropertyInfo -instance AttrInfo WindowHasToplevelFocusPropertyInfo where - type AttrAllowedOps WindowHasToplevelFocusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowHasToplevelFocusPropertyInfo = (~) () - type AttrBaseTypeConstraint WindowHasToplevelFocusPropertyInfo = WindowK - type AttrGetType WindowHasToplevelFocusPropertyInfo = Bool - type AttrLabel WindowHasToplevelFocusPropertyInfo = "has-toplevel-focus" - attrGet _ = getWindowHasToplevelFocus - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "hide-titlebar-when-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHideTitlebarWhenMaximized obj = liftIO $ getObjectPropertyBool obj "hide-titlebar-when-maximized" - -setWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowHideTitlebarWhenMaximized obj val = liftIO $ setObjectPropertyBool obj "hide-titlebar-when-maximized" val - -constructWindowHideTitlebarWhenMaximized :: Bool -> IO ([Char], GValue) -constructWindowHideTitlebarWhenMaximized val = constructObjectPropertyBool "hide-titlebar-when-maximized" val - -data WindowHideTitlebarWhenMaximizedPropertyInfo -instance AttrInfo WindowHideTitlebarWhenMaximizedPropertyInfo where - type AttrAllowedOps WindowHideTitlebarWhenMaximizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = WindowK - type AttrGetType WindowHideTitlebarWhenMaximizedPropertyInfo = Bool - type AttrLabel WindowHideTitlebarWhenMaximizedPropertyInfo = "hide-titlebar-when-maximized" - attrGet _ = getWindowHideTitlebarWhenMaximized - attrSet _ = setWindowHideTitlebarWhenMaximized - attrConstruct _ = constructWindowHideTitlebarWhenMaximized - attrClear _ = undefined - --- VVV Prop "icon" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf -getWindowIcon obj = liftIO $ checkUnexpectedNothing "getWindowIcon" $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf - -setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" (Just val) - -constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructWindowIcon val = constructObjectPropertyObject "icon" (Just val) - -clearWindowIcon :: (MonadIO m, WindowK o) => o -> m () -clearWindowIcon obj = liftIO $ setObjectPropertyObject obj "icon" (Nothing :: Maybe GdkPixbuf.Pixbuf) - -data WindowIconPropertyInfo -instance AttrInfo WindowIconPropertyInfo where - type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK - type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel WindowIconPropertyInfo = "icon" - attrGet _ = getWindowIcon - attrSet _ = setWindowIcon - attrConstruct _ = constructWindowIcon - attrClear _ = clearWindowIcon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowIconName obj = liftIO $ checkUnexpectedNothing "getWindowIconName" $ getObjectPropertyString obj "icon-name" - -setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) - -constructWindowIconName :: T.Text -> IO ([Char], GValue) -constructWindowIconName val = constructObjectPropertyString "icon-name" (Just val) - -clearWindowIconName :: (MonadIO m, WindowK o) => o -> m () -clearWindowIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) - -data WindowIconNamePropertyInfo -instance AttrInfo WindowIconNamePropertyInfo where - type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK - type AttrGetType WindowIconNamePropertyInfo = T.Text - type AttrLabel WindowIconNamePropertyInfo = "icon-name" - attrGet _ = getWindowIconName - attrSet _ = setWindowIconName - attrConstruct _ = constructWindowIconName - attrClear _ = clearWindowIconName - --- VVV Prop "is-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWindowIsActive :: (MonadIO m, WindowK o) => o -> m Bool -getWindowIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" - -data WindowIsActivePropertyInfo -instance AttrInfo WindowIsActivePropertyInfo where - type AttrAllowedOps WindowIsActivePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowIsActivePropertyInfo = (~) () - type AttrBaseTypeConstraint WindowIsActivePropertyInfo = WindowK - type AttrGetType WindowIsActivePropertyInfo = Bool - type AttrLabel WindowIsActivePropertyInfo = "is-active" - attrGet _ = getWindowIsActive - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWindowIsMaximized :: (MonadIO m, WindowK o) => o -> m Bool -getWindowIsMaximized obj = liftIO $ getObjectPropertyBool obj "is-maximized" - -data WindowIsMaximizedPropertyInfo -instance AttrInfo WindowIsMaximizedPropertyInfo where - type AttrAllowedOps WindowIsMaximizedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowIsMaximizedPropertyInfo = (~) () - type AttrBaseTypeConstraint WindowIsMaximizedPropertyInfo = WindowK - type AttrGetType WindowIsMaximizedPropertyInfo = Bool - type AttrLabel WindowIsMaximizedPropertyInfo = "is-maximized" - attrGet _ = getWindowIsMaximized - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mnemonics-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowMnemonicsVisible obj = liftIO $ getObjectPropertyBool obj "mnemonics-visible" - -setWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowMnemonicsVisible obj val = liftIO $ setObjectPropertyBool obj "mnemonics-visible" val - -constructWindowMnemonicsVisible :: Bool -> IO ([Char], GValue) -constructWindowMnemonicsVisible val = constructObjectPropertyBool "mnemonics-visible" val - -data WindowMnemonicsVisiblePropertyInfo -instance AttrInfo WindowMnemonicsVisiblePropertyInfo where - type AttrAllowedOps WindowMnemonicsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowMnemonicsVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowMnemonicsVisiblePropertyInfo = WindowK - type AttrGetType WindowMnemonicsVisiblePropertyInfo = Bool - type AttrLabel WindowMnemonicsVisiblePropertyInfo = "mnemonics-visible" - attrGet _ = getWindowMnemonicsVisible - attrSet _ = setWindowMnemonicsVisible - attrConstruct _ = constructWindowMnemonicsVisible - attrClear _ = undefined - --- VVV Prop "modal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowModal :: (MonadIO m, WindowK o) => o -> m Bool -getWindowModal obj = liftIO $ getObjectPropertyBool obj "modal" - -setWindowModal :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowModal obj val = liftIO $ setObjectPropertyBool obj "modal" val - -constructWindowModal :: Bool -> IO ([Char], GValue) -constructWindowModal val = constructObjectPropertyBool "modal" val - -data WindowModalPropertyInfo -instance AttrInfo WindowModalPropertyInfo where - type AttrAllowedOps WindowModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowModalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowModalPropertyInfo = WindowK - type AttrGetType WindowModalPropertyInfo = Bool - type AttrLabel WindowModalPropertyInfo = "modal" - attrGet _ = getWindowModal - attrSet _ = setWindowModal - attrConstruct _ = constructWindowModal - attrClear _ = undefined - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowResizable :: (MonadIO m, WindowK o) => o -> m Bool -getWindowResizable obj = liftIO $ getObjectPropertyBool obj "resizable" - -setWindowResizable :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val - -constructWindowResizable :: Bool -> IO ([Char], GValue) -constructWindowResizable val = constructObjectPropertyBool "resizable" val - -data WindowResizablePropertyInfo -instance AttrInfo WindowResizablePropertyInfo where - type AttrAllowedOps WindowResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowResizablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowResizablePropertyInfo = WindowK - type AttrGetType WindowResizablePropertyInfo = Bool - type AttrLabel WindowResizablePropertyInfo = "resizable" - attrGet _ = getWindowResizable - attrSet _ = setWindowResizable - attrConstruct _ = constructWindowResizable - attrClear _ = undefined - --- VVV Prop "resize-grip-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getWindowResizeGripVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowResizeGripVisible obj = liftIO $ getObjectPropertyBool obj "resize-grip-visible" - -data WindowResizeGripVisiblePropertyInfo -instance AttrInfo WindowResizeGripVisiblePropertyInfo where - type AttrAllowedOps WindowResizeGripVisiblePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowResizeGripVisiblePropertyInfo = (~) () - type AttrBaseTypeConstraint WindowResizeGripVisiblePropertyInfo = WindowK - type AttrGetType WindowResizeGripVisiblePropertyInfo = Bool - type AttrLabel WindowResizeGripVisiblePropertyInfo = "resize-grip-visible" - attrGet _ = getWindowResizeGripVisible - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "role" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowRole obj = liftIO $ checkUnexpectedNothing "getWindowRole" $ getObjectPropertyString obj "role" - -setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" (Just val) - -constructWindowRole :: T.Text -> IO ([Char], GValue) -constructWindowRole val = constructObjectPropertyString "role" (Just val) - -data WindowRolePropertyInfo -instance AttrInfo WindowRolePropertyInfo where - type AttrAllowedOps WindowRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowRolePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowRolePropertyInfo = WindowK - type AttrGetType WindowRolePropertyInfo = T.Text - type AttrLabel WindowRolePropertyInfo = "role" - attrGet _ = getWindowRole - attrSet _ = setWindowRole - attrConstruct _ = constructWindowRole - attrClear _ = undefined - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen -getWindowScreen obj = liftIO $ checkUnexpectedNothing "getWindowScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen - -setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () -setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) - -constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructWindowScreen val = constructObjectPropertyObject "screen" (Just val) - -data WindowScreenPropertyInfo -instance AttrInfo WindowScreenPropertyInfo where - type AttrAllowedOps WindowScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint WindowScreenPropertyInfo = WindowK - type AttrGetType WindowScreenPropertyInfo = Gdk.Screen - type AttrLabel WindowScreenPropertyInfo = "screen" - attrGet _ = getWindowScreen - attrSet _ = setWindowScreen - attrConstruct _ = constructWindowScreen - attrClear _ = undefined - --- VVV Prop "skip-pager-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowSkipPagerHint obj = liftIO $ getObjectPropertyBool obj "skip-pager-hint" - -setWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowSkipPagerHint obj val = liftIO $ setObjectPropertyBool obj "skip-pager-hint" val - -constructWindowSkipPagerHint :: Bool -> IO ([Char], GValue) -constructWindowSkipPagerHint val = constructObjectPropertyBool "skip-pager-hint" val - -data WindowSkipPagerHintPropertyInfo -instance AttrInfo WindowSkipPagerHintPropertyInfo where - type AttrAllowedOps WindowSkipPagerHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowSkipPagerHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowSkipPagerHintPropertyInfo = WindowK - type AttrGetType WindowSkipPagerHintPropertyInfo = Bool - type AttrLabel WindowSkipPagerHintPropertyInfo = "skip-pager-hint" - attrGet _ = getWindowSkipPagerHint - attrSet _ = setWindowSkipPagerHint - attrConstruct _ = constructWindowSkipPagerHint - attrClear _ = undefined - --- VVV Prop "skip-taskbar-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowSkipTaskbarHint obj = liftIO $ getObjectPropertyBool obj "skip-taskbar-hint" - -setWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowSkipTaskbarHint obj val = liftIO $ setObjectPropertyBool obj "skip-taskbar-hint" val - -constructWindowSkipTaskbarHint :: Bool -> IO ([Char], GValue) -constructWindowSkipTaskbarHint val = constructObjectPropertyBool "skip-taskbar-hint" val - -data WindowSkipTaskbarHintPropertyInfo -instance AttrInfo WindowSkipTaskbarHintPropertyInfo where - type AttrAllowedOps WindowSkipTaskbarHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowSkipTaskbarHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowSkipTaskbarHintPropertyInfo = WindowK - type AttrGetType WindowSkipTaskbarHintPropertyInfo = Bool - type AttrLabel WindowSkipTaskbarHintPropertyInfo = "skip-taskbar-hint" - attrGet _ = getWindowSkipTaskbarHint - attrSet _ = setWindowSkipTaskbarHint - attrConstruct _ = constructWindowSkipTaskbarHint - attrClear _ = undefined - --- VVV Prop "startup-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Just False) - -setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" (Just val) - -constructWindowStartupId :: T.Text -> IO ([Char], GValue) -constructWindowStartupId val = constructObjectPropertyString "startup-id" (Just val) - -data WindowStartupIdPropertyInfo -instance AttrInfo WindowStartupIdPropertyInfo where - type AttrAllowedOps WindowStartupIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint WindowStartupIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowStartupIdPropertyInfo = WindowK - type AttrGetType WindowStartupIdPropertyInfo = () - type AttrLabel WindowStartupIdPropertyInfo = "startup-id" - attrGet _ = undefined - attrSet _ = setWindowStartupId - attrConstruct _ = constructWindowStartupId - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowTitle obj = liftIO $ checkUnexpectedNothing "getWindowTitle" $ getObjectPropertyString obj "title" - -setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructWindowTitle :: T.Text -> IO ([Char], GValue) -constructWindowTitle val = constructObjectPropertyString "title" (Just val) - -data WindowTitlePropertyInfo -instance AttrInfo WindowTitlePropertyInfo where - type AttrAllowedOps WindowTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowTitlePropertyInfo = WindowK - type AttrGetType WindowTitlePropertyInfo = T.Text - type AttrLabel WindowTitlePropertyInfo = "title" - attrGet _ = getWindowTitle - attrSet _ = setWindowTitle - attrConstruct _ = constructWindowTitle - attrClear _ = undefined - --- VVV Prop "transient-for" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window -getWindowTransientFor obj = liftIO $ checkUnexpectedNothing "getWindowTransientFor" $ getObjectPropertyObject obj "transient-for" Window - -setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () -setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" (Just val) - -constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) -constructWindowTransientFor val = constructObjectPropertyObject "transient-for" (Just val) - -clearWindowTransientFor :: (MonadIO m, WindowK o) => o -> m () -clearWindowTransientFor obj = liftIO $ setObjectPropertyObject obj "transient-for" (Nothing :: Maybe Window) - -data WindowTransientForPropertyInfo -instance AttrInfo WindowTransientForPropertyInfo where - type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrGetType WindowTransientForPropertyInfo = Window - type AttrLabel WindowTransientForPropertyInfo = "transient-for" - attrGet _ = getWindowTransientFor - attrSet _ = setWindowTransientFor - attrConstruct _ = constructWindowTransientFor - attrClear _ = clearWindowTransientFor - --- VVV Prop "type" - -- Type: TInterface "Gtk" "WindowType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getWindowType :: (MonadIO m, WindowK o) => o -> m WindowType -getWindowType obj = liftIO $ getObjectPropertyEnum obj "type" - -constructWindowType :: WindowType -> IO ([Char], GValue) -constructWindowType val = constructObjectPropertyEnum "type" val - -data WindowTypePropertyInfo -instance AttrInfo WindowTypePropertyInfo where - type AttrAllowedOps WindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTypePropertyInfo = (~) WindowType - type AttrBaseTypeConstraint WindowTypePropertyInfo = WindowK - type AttrGetType WindowTypePropertyInfo = WindowType - type AttrLabel WindowTypePropertyInfo = "type" - attrGet _ = getWindowType - attrSet _ = undefined - attrConstruct _ = constructWindowType - attrClear _ = undefined - --- VVV Prop "type-hint" - -- Type: TInterface "Gdk" "WindowTypeHint" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowTypeHint :: (MonadIO m, WindowK o) => o -> m Gdk.WindowTypeHint -getWindowTypeHint obj = liftIO $ getObjectPropertyEnum obj "type-hint" - -setWindowTypeHint :: (MonadIO m, WindowK o) => o -> Gdk.WindowTypeHint -> m () -setWindowTypeHint obj val = liftIO $ setObjectPropertyEnum obj "type-hint" val - -constructWindowTypeHint :: Gdk.WindowTypeHint -> IO ([Char], GValue) -constructWindowTypeHint val = constructObjectPropertyEnum "type-hint" val - -data WindowTypeHintPropertyInfo -instance AttrInfo WindowTypeHintPropertyInfo where - type AttrAllowedOps WindowTypeHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.WindowTypeHint - type AttrBaseTypeConstraint WindowTypeHintPropertyInfo = WindowK - type AttrGetType WindowTypeHintPropertyInfo = Gdk.WindowTypeHint - type AttrLabel WindowTypeHintPropertyInfo = "type-hint" - attrGet _ = getWindowTypeHint - attrSet _ = setWindowTypeHint - attrConstruct _ = constructWindowTypeHint - attrClear _ = undefined - --- VVV Prop "urgency-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowUrgencyHint obj = liftIO $ getObjectPropertyBool obj "urgency-hint" - -setWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowUrgencyHint obj val = liftIO $ setObjectPropertyBool obj "urgency-hint" val - -constructWindowUrgencyHint :: Bool -> IO ([Char], GValue) -constructWindowUrgencyHint val = constructObjectPropertyBool "urgency-hint" val - -data WindowUrgencyHintPropertyInfo -instance AttrInfo WindowUrgencyHintPropertyInfo where - type AttrAllowedOps WindowUrgencyHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowUrgencyHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowUrgencyHintPropertyInfo = WindowK - type AttrGetType WindowUrgencyHintPropertyInfo = Bool - type AttrLabel WindowUrgencyHintPropertyInfo = "urgency-hint" - attrGet _ = getWindowUrgencyHint - attrSet _ = setWindowUrgencyHint - attrConstruct _ = constructWindowUrgencyHint - attrClear _ = undefined - --- VVV Prop "window-position" - -- Type: TInterface "Gtk" "WindowPosition" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getWindowWindowPosition :: (MonadIO m, WindowK o) => o -> m WindowPosition -getWindowWindowPosition obj = liftIO $ getObjectPropertyEnum obj "window-position" - -setWindowWindowPosition :: (MonadIO m, WindowK o) => o -> WindowPosition -> m () -setWindowWindowPosition obj val = liftIO $ setObjectPropertyEnum obj "window-position" val - -constructWindowWindowPosition :: WindowPosition -> IO ([Char], GValue) -constructWindowWindowPosition val = constructObjectPropertyEnum "window-position" val - -data WindowWindowPositionPropertyInfo -instance AttrInfo WindowWindowPositionPropertyInfo where - type AttrAllowedOps WindowWindowPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowWindowPositionPropertyInfo = (~) WindowPosition - type AttrBaseTypeConstraint WindowWindowPositionPropertyInfo = WindowK - type AttrGetType WindowWindowPositionPropertyInfo = WindowPosition - type AttrLabel WindowWindowPositionPropertyInfo = "window-position" - attrGet _ = getWindowWindowPosition - attrSet _ = setWindowWindowPosition - attrConstruct _ = constructWindowWindowPosition - attrClear _ = undefined - -type instance AttributeList Window = WindowAttributeList -type WindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -windowAcceptFocus :: AttrLabelProxy "acceptFocus" -windowAcceptFocus = AttrLabelProxy - -windowApplication :: AttrLabelProxy "application" -windowApplication = AttrLabelProxy - -windowAttachedTo :: AttrLabelProxy "attachedTo" -windowAttachedTo = AttrLabelProxy - -windowDecorated :: AttrLabelProxy "decorated" -windowDecorated = AttrLabelProxy - -windowDefaultHeight :: AttrLabelProxy "defaultHeight" -windowDefaultHeight = AttrLabelProxy - -windowDefaultWidth :: AttrLabelProxy "defaultWidth" -windowDefaultWidth = AttrLabelProxy - -windowDeletable :: AttrLabelProxy "deletable" -windowDeletable = AttrLabelProxy - -windowDestroyWithParent :: AttrLabelProxy "destroyWithParent" -windowDestroyWithParent = AttrLabelProxy - -windowFocusOnMap :: AttrLabelProxy "focusOnMap" -windowFocusOnMap = AttrLabelProxy - -windowFocusVisible :: AttrLabelProxy "focusVisible" -windowFocusVisible = AttrLabelProxy - -windowGravity :: AttrLabelProxy "gravity" -windowGravity = AttrLabelProxy - -windowHasResizeGrip :: AttrLabelProxy "hasResizeGrip" -windowHasResizeGrip = AttrLabelProxy - -windowHideTitlebarWhenMaximized :: AttrLabelProxy "hideTitlebarWhenMaximized" -windowHideTitlebarWhenMaximized = AttrLabelProxy - -windowIcon :: AttrLabelProxy "icon" -windowIcon = AttrLabelProxy - -windowIconName :: AttrLabelProxy "iconName" -windowIconName = AttrLabelProxy - -windowMnemonicsVisible :: AttrLabelProxy "mnemonicsVisible" -windowMnemonicsVisible = AttrLabelProxy - -windowModal :: AttrLabelProxy "modal" -windowModal = AttrLabelProxy - -windowResizable :: AttrLabelProxy "resizable" -windowResizable = AttrLabelProxy - -windowResizeGripVisible :: AttrLabelProxy "resizeGripVisible" -windowResizeGripVisible = AttrLabelProxy - -windowRole :: AttrLabelProxy "role" -windowRole = AttrLabelProxy - -windowScreen :: AttrLabelProxy "screen" -windowScreen = AttrLabelProxy - -windowSkipPagerHint :: AttrLabelProxy "skipPagerHint" -windowSkipPagerHint = AttrLabelProxy - -windowSkipTaskbarHint :: AttrLabelProxy "skipTaskbarHint" -windowSkipTaskbarHint = AttrLabelProxy - -windowStartupId :: AttrLabelProxy "startupId" -windowStartupId = AttrLabelProxy - -windowTitle :: AttrLabelProxy "title" -windowTitle = AttrLabelProxy - -windowTransientFor :: AttrLabelProxy "transientFor" -windowTransientFor = AttrLabelProxy - -windowType :: AttrLabelProxy "type" -windowType = AttrLabelProxy - -windowTypeHint :: AttrLabelProxy "typeHint" -windowTypeHint = AttrLabelProxy - -windowUrgencyHint :: AttrLabelProxy "urgencyHint" -windowUrgencyHint = AttrLabelProxy - -windowWindowPosition :: AttrLabelProxy "windowPosition" -windowWindowPosition = AttrLabelProxy - -data WindowActivateDefaultSignalInfo -instance SignalInfo WindowActivateDefaultSignalInfo where - type HaskellCallbackType WindowActivateDefaultSignalInfo = WindowActivateDefaultCallback - connectSignal _ = connectWindowActivateDefault - -data WindowActivateFocusSignalInfo -instance SignalInfo WindowActivateFocusSignalInfo where - type HaskellCallbackType WindowActivateFocusSignalInfo = WindowActivateFocusCallback - connectSignal _ = connectWindowActivateFocus - -data WindowEnableDebuggingSignalInfo -instance SignalInfo WindowEnableDebuggingSignalInfo where - type HaskellCallbackType WindowEnableDebuggingSignalInfo = WindowEnableDebuggingCallback - connectSignal _ = connectWindowEnableDebugging - -data WindowKeysChangedSignalInfo -instance SignalInfo WindowKeysChangedSignalInfo where - type HaskellCallbackType WindowKeysChangedSignalInfo = WindowKeysChangedCallback - connectSignal _ = connectWindowKeysChanged - -data WindowSetFocusSignalInfo -instance SignalInfo WindowSetFocusSignalInfo where - type HaskellCallbackType WindowSetFocusSignalInfo = WindowSetFocusCallback - connectSignal _ = connectWindowSetFocus - -type instance SignalList Window = WindowSignalList -type WindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Window::new --- method type : Constructor --- Args : [Arg {argCName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_new" gtk_window_new :: - CUInt -> -- type : TInterface "Gtk" "WindowType" - IO (Ptr Window) - - -windowNew :: - (MonadIO m) => - WindowType -- type_ - -> m Window -- result -windowNew type_ = liftIO $ do - let type_' = (fromIntegral . fromEnum) type_ - result <- gtk_window_new type_' - checkUnexpectedReturnNULL "gtk_window_new" result - result' <- (newObject Window) result - return result' - --- method Window::activate_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_activate_default" gtk_window_activate_default :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowActivateDefault :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowActivateDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowActivateDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateDefaultMethodInfo a signature where - overloadedMethod _ = windowActivateDefault - --- method Window::activate_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_activate_focus" gtk_window_activate_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowActivateFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowActivateFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowActivateFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateFocusMethodInfo a signature where - overloadedMethod _ = windowActivateFocus - --- method Window::activate_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_window_activate_key" gtk_window_activate_key :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -windowActivateKey :: - (MonadIO m, WindowK a) => - a -- _obj - -> Gdk.EventKey -- event - -> m Bool -- result -windowActivateKey _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_window_activate_key _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WindowActivateKeyMethodInfo -instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateKeyMethodInfo a signature where - overloadedMethod _ = windowActivateKey - --- method Window::add_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_window_add_accel_group" gtk_window_add_accel_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -windowAddAccelGroup :: - (MonadIO m, WindowK a, AccelGroupK b) => - a -- _obj - -> b -- accelGroup - -> m () -- result -windowAddAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - gtk_window_add_accel_group _obj' accelGroup' - touchManagedPtr _obj - touchManagedPtr accelGroup - return () - -data WindowAddAccelGroupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowK a, AccelGroupK b) => MethodInfo WindowAddAccelGroupMethodInfo a signature where - overloadedMethod _ = windowAddAccelGroup - --- method Window::add_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", 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 "gtk_window_add_mnemonic" gtk_window_add_mnemonic :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowAddMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Word32 -- keyval - -> b -- target - -> m () -- result -windowAddMnemonic _obj keyval target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - gtk_window_add_mnemonic _obj' keyval target' - touchManagedPtr _obj - touchManagedPtr target - return () - -data WindowAddMnemonicMethodInfo -instance (signature ~ (Word32 -> b -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowAddMnemonicMethodInfo a signature where - overloadedMethod _ = windowAddMnemonic - --- method Window::begin_move_drag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, 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 "gtk_window_begin_move_drag" gtk_window_begin_move_drag :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginMoveDrag :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginMoveDrag _obj button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_begin_move_drag _obj' button rootX rootY timestamp - touchManagedPtr _obj - return () - -data WindowBeginMoveDragMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginMoveDragMethodInfo a signature where - overloadedMethod _ = windowBeginMoveDrag - --- method Window::begin_resize_drag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, 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 "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginResizeDrag :: - (MonadIO m, WindowK a) => - a -- _obj - -> Gdk.WindowEdge -- edge - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginResizeDrag _obj edge button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - gtk_window_begin_resize_drag _obj' edge' button rootX rootY timestamp - touchManagedPtr _obj - return () - -data WindowBeginResizeDragMethodInfo -instance (signature ~ (Gdk.WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginResizeDragMethodInfo a signature where - overloadedMethod _ = windowBeginResizeDrag - --- method Window::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_close" gtk_window_close :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowClose :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_close _obj' - touchManagedPtr _obj - return () - -data WindowCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowCloseMethodInfo a signature where - overloadedMethod _ = windowClose - --- method Window::deiconify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_deiconify" gtk_window_deiconify :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowDeiconify :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowDeiconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_deiconify _obj' - touchManagedPtr _obj - return () - -data WindowDeiconifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDeiconifyMethodInfo a signature where - overloadedMethod _ = windowDeiconify - --- method Window::fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_fullscreen" gtk_window_fullscreen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowFullscreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_fullscreen _obj' - touchManagedPtr _obj - return () - -data WindowFullscreenMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenMethodInfo a signature where - overloadedMethod _ = windowFullscreen - --- method Window::fullscreen_on_monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", 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 "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- monitor : TBasicType TInt - IO () - - -windowFullscreenOnMonitor :: - (MonadIO m, WindowK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> Int32 -- monitor - -> m () -- result -windowFullscreenOnMonitor _obj screen monitor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_window_fullscreen_on_monitor _obj' screen' monitor - touchManagedPtr _obj - touchManagedPtr screen - return () - -data WindowFullscreenOnMonitorMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, WindowK a, Gdk.ScreenK b) => MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where - overloadedMethod _ = windowFullscreenOnMonitor - --- method Window::get_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_accept_focus" gtk_window_get_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetAcceptFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetAcceptFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_accept_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetAcceptFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetAcceptFocusMethodInfo a signature where - overloadedMethod _ = windowGetAcceptFocus - --- method Window::get_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Application") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_application" gtk_window_get_application :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Application) - - -windowGetApplication :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Application -- result -windowGetApplication _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_application _obj' - checkUnexpectedReturnNULL "gtk_window_get_application" result - result' <- (newObject Application) result - touchManagedPtr _obj - return result' - -data WindowGetApplicationMethodInfo -instance (signature ~ (m Application), MonadIO m, WindowK a) => MethodInfo WindowGetApplicationMethodInfo a signature where - overloadedMethod _ = windowGetApplication - --- method Window::get_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_attached_to" gtk_window_get_attached_to :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetAttachedTo :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Widget -- result -windowGetAttachedTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_attached_to _obj' - checkUnexpectedReturnNULL "gtk_window_get_attached_to" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WindowGetAttachedToMethodInfo -instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetAttachedToMethodInfo a signature where - overloadedMethod _ = windowGetAttachedTo - --- method Window::get_decorated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_decorated" gtk_window_get_decorated :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDecorated :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetDecorated _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_decorated _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetDecoratedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDecoratedMethodInfo a signature where - overloadedMethod _ = windowGetDecorated - --- method Window::get_default_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_window_get_default_size" gtk_window_get_default_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -windowGetDefaultSize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32) -- result -windowGetDefaultSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_window_get_default_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data WindowGetDefaultSizeMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetDefaultSizeMethodInfo a signature where - overloadedMethod _ = windowGetDefaultSize - --- method Window::get_default_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_widget" gtk_window_get_default_widget :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetDefaultWidget :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Widget -- result -windowGetDefaultWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_default_widget _obj' - checkUnexpectedReturnNULL "gtk_window_get_default_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WindowGetDefaultWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetDefaultWidgetMethodInfo a signature where - overloadedMethod _ = windowGetDefaultWidget - --- method Window::get_deletable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_deletable" gtk_window_get_deletable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDeletable :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetDeletable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_deletable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetDeletableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDeletableMethodInfo a signature where - overloadedMethod _ = windowGetDeletable - --- method Window::get_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_destroy_with_parent" gtk_window_get_destroy_with_parent :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDestroyWithParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetDestroyWithParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_destroy_with_parent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetDestroyWithParentMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDestroyWithParentMethodInfo a signature where - overloadedMethod _ = windowGetDestroyWithParent - --- method Window::get_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_focus" gtk_window_get_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Widget -- result -windowGetFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus _obj' - checkUnexpectedReturnNULL "gtk_window_get_focus" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WindowGetFocusMethodInfo -instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetFocusMethodInfo a signature where - overloadedMethod _ = windowGetFocus - --- method Window::get_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_focus_on_map" gtk_window_get_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetFocusOnMap :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetFocusOnMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_on_map _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetFocusOnMapMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusOnMapMethodInfo a signature where - overloadedMethod _ = windowGetFocusOnMap - --- method Window::get_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_focus_visible" gtk_window_get_focus_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetFocusVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetFocusVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetFocusVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusVisibleMethodInfo a signature where - overloadedMethod _ = windowGetFocusVisible - --- method Window::get_gravity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Gravity") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_gravity" gtk_window_get_gravity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetGravity :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Gdk.Gravity -- result -windowGetGravity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_gravity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetGravityMethodInfo -instance (signature ~ (m Gdk.Gravity), MonadIO m, WindowK a) => MethodInfo WindowGetGravityMethodInfo a signature where - overloadedMethod _ = windowGetGravity - --- method Window::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WindowGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_group" gtk_window_get_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr WindowGroup) - - -windowGetGroup :: - (MonadIO m, WindowK a) => - a -- _obj - -> m WindowGroup -- result -windowGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_group _obj' - checkUnexpectedReturnNULL "gtk_window_get_group" result - result' <- (newObject WindowGroup) result - touchManagedPtr _obj - return result' - -data WindowGetGroupMethodInfo -instance (signature ~ (m WindowGroup), MonadIO m, WindowK a) => MethodInfo WindowGetGroupMethodInfo a signature where - overloadedMethod _ = windowGetGroup - --- method Window::get_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_has_resize_grip" gtk_window_get_has_resize_grip :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - -{-# DEPRECATED windowGetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} -windowGetHasResizeGrip :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetHasResizeGrip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_has_resize_grip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetHasResizeGripMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetHasResizeGripMethodInfo a signature where - overloadedMethod _ = windowGetHasResizeGrip - --- method Window::get_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_hide_titlebar_when_maximized" gtk_window_get_hide_titlebar_when_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetHideTitlebarWhenMaximized :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetHideTitlebarWhenMaximized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_hide_titlebar_when_maximized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetHideTitlebarWhenMaximizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetHideTitlebarWhenMaximizedMethodInfo a signature where - overloadedMethod _ = windowGetHideTitlebarWhenMaximized - --- method Window::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_icon" gtk_window_get_icon :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr GdkPixbuf.Pixbuf) - - -windowGetIcon :: - (MonadIO m, WindowK a) => - a -- _obj - -> m GdkPixbuf.Pixbuf -- result -windowGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data WindowGetIconMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, WindowK a) => MethodInfo WindowGetIconMethodInfo a signature where - overloadedMethod _ = windowGetIcon - --- method Window::get_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "GdkPixbuf" "Pixbuf")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_icon_list" gtk_window_get_icon_list :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) - - -windowGetIconList :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [GdkPixbuf.Pixbuf] -- result -windowGetIconList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon_list _obj' - result' <- unpackGList result - result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WindowGetIconListMethodInfo -instance (signature ~ (m [GdkPixbuf.Pixbuf]), MonadIO m, WindowK a) => MethodInfo WindowGetIconListMethodInfo a signature where - overloadedMethod _ = windowGetIconList - --- method Window::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_icon_name" gtk_window_get_icon_name :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetIconName :: - (MonadIO m, WindowK a) => - a -- _obj - -> m T.Text -- result -windowGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WindowGetIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetIconNameMethodInfo a signature where - overloadedMethod _ = windowGetIconName - --- method Window::get_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ModifierType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_mnemonic_modifier" gtk_window_get_mnemonic_modifier :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetMnemonicModifier :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [Gdk.ModifierType] -- result -windowGetMnemonicModifier _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonic_modifier _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WindowGetMnemonicModifierMethodInfo -instance (signature ~ (m [Gdk.ModifierType]), MonadIO m, WindowK a) => MethodInfo WindowGetMnemonicModifierMethodInfo a signature where - overloadedMethod _ = windowGetMnemonicModifier - --- method Window::get_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_mnemonics_visible" gtk_window_get_mnemonics_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetMnemonicsVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetMnemonicsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonics_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetMnemonicsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetMnemonicsVisibleMethodInfo a signature where - overloadedMethod _ = windowGetMnemonicsVisible - --- method Window::get_modal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_modal" gtk_window_get_modal :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetModal :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetModal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_modal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetModalMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetModalMethodInfo a signature where - overloadedMethod _ = windowGetModal - --- method Window::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_opacity" gtk_window_get_opacity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CDouble - -{-# DEPRECATED windowGetOpacity ["(Since version 3.8)","Use gtk_widget_get_opacity instead."]#-} -windowGetOpacity :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Double -- result -windowGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data WindowGetOpacityMethodInfo -instance (signature ~ (m Double), MonadIO m, WindowK a) => MethodInfo WindowGetOpacityMethodInfo a signature where - overloadedMethod _ = windowGetOpacity - --- method Window::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt, 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 "gtk_window_get_position" gtk_window_get_position :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- root_x : TBasicType TInt - Ptr Int32 -> -- root_y : TBasicType TInt - IO () - - -windowGetPosition :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32) -- result -windowGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rootX <- allocMem :: IO (Ptr Int32) - rootY <- allocMem :: IO (Ptr Int32) - gtk_window_get_position _obj' rootX rootY - rootX' <- peek rootX - rootY' <- peek rootY - touchManagedPtr _obj - freeMem rootX - freeMem rootY - return (rootX', rootY') - -data WindowGetPositionMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetPositionMethodInfo a signature where - overloadedMethod _ = windowGetPosition - --- method Window::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_resizable" gtk_window_get_resizable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetResizable :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetResizableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetResizableMethodInfo a signature where - overloadedMethod _ = windowGetResizable - --- method Window::get_resize_grip_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_resize_grip_area" gtk_window_get_resize_grip_area :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - -{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."]#-} -windowGetResizeGripArea :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Bool,Gdk.Rectangle) -- result -windowGetResizeGripArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_window_get_resize_grip_area _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return (result', rect') - -data WindowGetResizeGripAreaMethodInfo -instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, WindowK a) => MethodInfo WindowGetResizeGripAreaMethodInfo a signature where - overloadedMethod _ = windowGetResizeGripArea - --- method Window::get_role --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_role" gtk_window_get_role :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetRole :: - (MonadIO m, WindowK a) => - a -- _obj - -> m T.Text -- result -windowGetRole _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_role _obj' - checkUnexpectedReturnNULL "gtk_window_get_role" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WindowGetRoleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetRoleMethodInfo a signature where - overloadedMethod _ = windowGetRole - --- method Window::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_screen" gtk_window_get_screen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Gdk.Screen) - - -windowGetScreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Gdk.Screen -- result -windowGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_screen _obj' - checkUnexpectedReturnNULL "gtk_window_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data WindowGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, WindowK a) => MethodInfo WindowGetScreenMethodInfo a signature where - overloadedMethod _ = windowGetScreen - --- method Window::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, 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 "gtk_window_get_size" gtk_window_get_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -windowGetSize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32) -- result -windowGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_window_get_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data WindowGetSizeMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetSizeMethodInfo a signature where - overloadedMethod _ = windowGetSize - --- method Window::get_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_skip_pager_hint" gtk_window_get_skip_pager_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetSkipPagerHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetSkipPagerHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_pager_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetSkipPagerHintMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSkipPagerHintMethodInfo a signature where - overloadedMethod _ = windowGetSkipPagerHint - --- method Window::get_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_skip_taskbar_hint" gtk_window_get_skip_taskbar_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetSkipTaskbarHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetSkipTaskbarHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_taskbar_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetSkipTaskbarHintMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSkipTaskbarHintMethodInfo a signature where - overloadedMethod _ = windowGetSkipTaskbarHint - --- method Window::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_title" gtk_window_get_title :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetTitle :: - (MonadIO m, WindowK a) => - a -- _obj - -> m T.Text -- result -windowGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_title _obj' - checkUnexpectedReturnNULL "gtk_window_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WindowGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetTitleMethodInfo a signature where - overloadedMethod _ = windowGetTitle - --- method Window::get_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_titlebar" gtk_window_get_titlebar :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetTitlebar :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Widget -- result -windowGetTitlebar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_titlebar _obj' - checkUnexpectedReturnNULL "gtk_window_get_titlebar" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WindowGetTitlebarMethodInfo -instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetTitlebarMethodInfo a signature where - overloadedMethod _ = windowGetTitlebar - --- method Window::get_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_transient_for" gtk_window_get_transient_for :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Window) - - -windowGetTransientFor :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetTransientFor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_transient_for _obj' - checkUnexpectedReturnNULL "gtk_window_get_transient_for" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetTransientForMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetTransientForMethodInfo a signature where - overloadedMethod _ = windowGetTransientFor - --- method Window::get_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "WindowTypeHint") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_type_hint" gtk_window_get_type_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetTypeHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Gdk.WindowTypeHint -- result -windowGetTypeHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_type_hint _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetTypeHintMethodInfo -instance (signature ~ (m Gdk.WindowTypeHint), MonadIO m, WindowK a) => MethodInfo WindowGetTypeHintMethodInfo a signature where - overloadedMethod _ = windowGetTypeHint - --- method Window::get_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_get_urgency_hint" gtk_window_get_urgency_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetUrgencyHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetUrgencyHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_urgency_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetUrgencyHintMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetUrgencyHintMethodInfo a signature where - overloadedMethod _ = windowGetUrgencyHint - --- method Window::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WindowType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_window_type" gtk_window_get_window_type :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetWindowType :: - (MonadIO m, WindowK a) => - a -- _obj - -> m WindowType -- result -windowGetWindowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_window_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetWindowTypeMethodInfo -instance (signature ~ (m WindowType), MonadIO m, WindowK a) => MethodInfo WindowGetWindowTypeMethodInfo a signature where - overloadedMethod _ = windowGetWindowType - --- method Window::has_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_has_group" gtk_window_has_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowHasGroup :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowHasGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_group _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowHasGroupMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasGroupMethodInfo a signature where - overloadedMethod _ = windowHasGroup - --- method Window::has_toplevel_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_has_toplevel_focus" gtk_window_has_toplevel_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowHasToplevelFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowHasToplevelFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_toplevel_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowHasToplevelFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasToplevelFocusMethodInfo a signature where - overloadedMethod _ = windowHasToplevelFocus - --- method Window::iconify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_iconify" gtk_window_iconify :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowIconify :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowIconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_iconify _obj' - touchManagedPtr _obj - return () - -data WindowIconifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowIconifyMethodInfo a signature where - overloadedMethod _ = windowIconify - --- method Window::is_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_is_active" gtk_window_is_active :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowIsActive :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsActiveMethodInfo a signature where - overloadedMethod _ = windowIsActive - --- method Window::is_maximized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_is_maximized" gtk_window_is_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowIsMaximized :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsMaximized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_maximized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsMaximizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsMaximizedMethodInfo a signature where - overloadedMethod _ = windowIsMaximized - --- method Window::maximize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_maximize" gtk_window_maximize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowMaximize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowMaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_maximize _obj' - touchManagedPtr _obj - return () - -data WindowMaximizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMaximizeMethodInfo a signature where - overloadedMethod _ = windowMaximize - --- method Window::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", 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 "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifier : TInterface "Gdk" "ModifierType" - IO CInt - - -windowMnemonicActivate :: - (MonadIO m, WindowK a) => - a -- _obj - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifier - -> m Bool -- result -windowMnemonicActivate _obj keyval modifier = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifier' = gflagsToWord modifier - result <- gtk_window_mnemonic_activate _obj' keyval modifier' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowMnemonicActivateMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowMnemonicActivateMethodInfo a signature where - overloadedMethod _ = windowMnemonicActivate - --- method Window::move --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_move" gtk_window_move :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -windowMove :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m () -- result -windowMove _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_move _obj' x y - touchManagedPtr _obj - return () - -data WindowMoveMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveMethodInfo a signature where - overloadedMethod _ = windowMove - --- method Window::parse_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", 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 "gtk_window_parse_geometry" gtk_window_parse_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- geometry : TBasicType TUTF8 - IO CInt - - -windowParseGeometry :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- geometry - -> m Bool -- result -windowParseGeometry _obj geometry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - geometry' <- textToCString geometry - result <- gtk_window_parse_geometry _obj' geometry' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem geometry' - return result' - -data WindowParseGeometryMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowParseGeometryMethodInfo a signature where - overloadedMethod _ = windowParseGeometry - --- method Window::present --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_present" gtk_window_present :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowPresent :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowPresent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present _obj' - touchManagedPtr _obj - return () - -data WindowPresentMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowPresentMethodInfo a signature where - overloadedMethod _ = windowPresent - --- method Window::present_with_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, 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 "gtk_window_present_with_time" gtk_window_present_with_time :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowPresentWithTime :: - (MonadIO m, WindowK a) => - a -- _obj - -> Word32 -- timestamp - -> m () -- result -windowPresentWithTime _obj timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present_with_time _obj' timestamp - touchManagedPtr _obj - return () - -data WindowPresentWithTimeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowPresentWithTimeMethodInfo a signature where - overloadedMethod _ = windowPresentWithTime - --- method Window::propagate_key_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", 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 "gtk_window_propagate_key_event" gtk_window_propagate_key_event :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -windowPropagateKeyEvent :: - (MonadIO m, WindowK a) => - a -- _obj - -> Gdk.EventKey -- event - -> m Bool -- result -windowPropagateKeyEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_window_propagate_key_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WindowPropagateKeyEventMethodInfo -instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowPropagateKeyEventMethodInfo a signature where - overloadedMethod _ = windowPropagateKeyEvent - --- method Window::remove_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_window_remove_accel_group" gtk_window_remove_accel_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -windowRemoveAccelGroup :: - (MonadIO m, WindowK a, AccelGroupK b) => - a -- _obj - -> b -- accelGroup - -> m () -- result -windowRemoveAccelGroup _obj accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - gtk_window_remove_accel_group _obj' accelGroup' - touchManagedPtr _obj - touchManagedPtr accelGroup - return () - -data WindowRemoveAccelGroupMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowK a, AccelGroupK b) => MethodInfo WindowRemoveAccelGroupMethodInfo a signature where - overloadedMethod _ = windowRemoveAccelGroup - --- method Window::remove_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", 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 "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowRemoveMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Word32 -- keyval - -> b -- target - -> m () -- result -windowRemoveMnemonic _obj keyval target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - gtk_window_remove_mnemonic _obj' keyval target' - touchManagedPtr _obj - touchManagedPtr target - return () - -data WindowRemoveMnemonicMethodInfo -instance (signature ~ (Word32 -> b -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowRemoveMnemonicMethodInfo a signature where - overloadedMethod _ = windowRemoveMnemonic - --- method Window::reshow_with_initial_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_reshow_with_initial_size" gtk_window_reshow_with_initial_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - -{-# DEPRECATED windowReshowWithInitialSize ["(Since version 3.10)","GUI builders can call gtk_widget_hide(),"," gtk_widget_unrealize() and then gtk_widget_show() on @window"," themselves, if they still need this functionality."]#-} -windowReshowWithInitialSize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowReshowWithInitialSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_reshow_with_initial_size _obj' - touchManagedPtr _obj - return () - -data WindowReshowWithInitialSizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowReshowWithInitialSizeMethodInfo a signature where - overloadedMethod _ = windowReshowWithInitialSize - --- method Window::resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_resize" gtk_window_resize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowResize :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowResize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize _obj' width height - touchManagedPtr _obj - return () - -data WindowResizeMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeMethodInfo a signature where - overloadedMethod _ = windowResize - --- method Window::resize_grip_is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_resize_grip_is_visible" gtk_window_resize_grip_is_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - -{-# DEPRECATED windowResizeGripIsVisible ["(Since version 3.14)","Resize grips have been removed."]#-} -windowResizeGripIsVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowResizeGripIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_resize_grip_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowResizeGripIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowResizeGripIsVisibleMethodInfo a signature where - overloadedMethod _ = windowResizeGripIsVisible - --- method Window::resize_to_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowResizeToGeometry :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowResizeToGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize_to_geometry _obj' width height - touchManagedPtr _obj - return () - -data WindowResizeToGeometryMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeToGeometryMethodInfo a signature where - overloadedMethod _ = windowResizeToGeometry - --- method Window::set_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_accept_focus" gtk_window_set_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetAcceptFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetAcceptFocus _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_accept_focus _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetAcceptFocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetAcceptFocusMethodInfo a signature where - overloadedMethod _ = windowSetAcceptFocus - --- method Window::set_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_application" gtk_window_set_application :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Application -> -- application : TInterface "Gtk" "Application" - IO () - - -windowSetApplication :: - (MonadIO m, WindowK a, ApplicationK b) => - a -- _obj - -> Maybe (b) -- application - -> m () -- result -windowSetApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplication <- case application of - Nothing -> return nullPtr - Just jApplication -> do - let jApplication' = unsafeManagedPtrCastPtr jApplication - return jApplication' - gtk_window_set_application _obj' maybeApplication - touchManagedPtr _obj - whenJust application touchManagedPtr - return () - -data WindowSetApplicationMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, ApplicationK b) => MethodInfo WindowSetApplicationMethodInfo a signature where - overloadedMethod _ = windowSetApplication - --- method Window::set_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_attached_to" gtk_window_set_attached_to :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget" - IO () - - -windowSetAttachedTo :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- attachWidget - -> m () -- result -windowSetAttachedTo _obj attachWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAttachWidget <- case attachWidget of - Nothing -> return nullPtr - Just jAttachWidget -> do - let jAttachWidget' = unsafeManagedPtrCastPtr jAttachWidget - return jAttachWidget' - gtk_window_set_attached_to _obj' maybeAttachWidget - touchManagedPtr _obj - whenJust attachWidget touchManagedPtr - return () - -data WindowSetAttachedToMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetAttachedToMethodInfo a signature where - overloadedMethod _ = windowSetAttachedTo - --- method Window::set_decorated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_decorated" gtk_window_set_decorated :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDecorated :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetDecorated _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_decorated _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetDecoratedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDecoratedMethodInfo a signature where - overloadedMethod _ = windowSetDecorated - --- method Window::set_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default" gtk_window_set_default :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- default_widget : TInterface "Gtk" "Widget" - IO () - - -windowSetDefault :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- defaultWidget - -> m () -- result -windowSetDefault _obj defaultWidget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefaultWidget <- case defaultWidget of - Nothing -> return nullPtr - Just jDefaultWidget -> do - let jDefaultWidget' = unsafeManagedPtrCastPtr jDefaultWidget - return jDefaultWidget' - gtk_window_set_default _obj' maybeDefaultWidget - touchManagedPtr _obj - whenJust defaultWidget touchManagedPtr - return () - -data WindowSetDefaultMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetDefaultMethodInfo a signature where - overloadedMethod _ = windowSetDefault - --- method Window::set_default_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_set_default_geometry" gtk_window_set_default_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowSetDefaultGeometry :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowSetDefaultGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_geometry _obj' width height - touchManagedPtr _obj - return () - -data WindowSetDefaultGeometryMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDefaultGeometryMethodInfo a signature where - overloadedMethod _ = windowSetDefaultGeometry - --- method Window::set_default_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_set_default_size" gtk_window_set_default_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowSetDefaultSize :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowSetDefaultSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_size _obj' width height - touchManagedPtr _obj - return () - -data WindowSetDefaultSizeMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDefaultSizeMethodInfo a signature where - overloadedMethod _ = windowSetDefaultSize - --- method Window::set_deletable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_deletable" gtk_window_set_deletable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDeletable :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetDeletable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_deletable _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetDeletableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDeletableMethodInfo a signature where - overloadedMethod _ = windowSetDeletable - --- method Window::set_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_destroy_with_parent" gtk_window_set_destroy_with_parent :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDestroyWithParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetDestroyWithParent _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_destroy_with_parent _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetDestroyWithParentMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDestroyWithParentMethodInfo a signature where - overloadedMethod _ = windowSetDestroyWithParent - --- method Window::set_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_focus" gtk_window_set_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- focus : TInterface "Gtk" "Widget" - IO () - - -windowSetFocus :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- focus - -> m () -- result -windowSetFocus _obj focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFocus <- case focus of - Nothing -> return nullPtr - Just jFocus -> do - let jFocus' = unsafeManagedPtrCastPtr jFocus - return jFocus' - gtk_window_set_focus _obj' maybeFocus - touchManagedPtr _obj - whenJust focus touchManagedPtr - return () - -data WindowSetFocusMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetFocusMethodInfo a signature where - overloadedMethod _ = windowSetFocus - --- method Window::set_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_focus_on_map" gtk_window_set_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetFocusOnMap :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetFocusOnMap _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_focus_on_map _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetFocusOnMapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusOnMapMethodInfo a signature where - overloadedMethod _ = windowSetFocusOnMap - --- method Window::set_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_focus_visible" gtk_window_set_focus_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetFocusVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetFocusVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_focus_visible _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetFocusVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusVisibleMethodInfo a signature where - overloadedMethod _ = windowSetFocusVisible - --- method Window::set_geometry_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface "Gdk" "WindowHints", 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 "gtk_window_set_geometry_hints" gtk_window_set_geometry_hints :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- geometry_widget : TInterface "Gtk" "Widget" - Ptr Gdk.Geometry -> -- geometry : TInterface "Gdk" "Geometry" - CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints" - IO () - - -windowSetGeometryHints :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- geometryWidget - -> Maybe (Gdk.Geometry) -- geometry - -> [Gdk.WindowHints] -- geomMask - -> m () -- result -windowSetGeometryHints _obj geometryWidget geometry geomMask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGeometryWidget <- case geometryWidget of - Nothing -> return nullPtr - Just jGeometryWidget -> do - let jGeometryWidget' = unsafeManagedPtrCastPtr jGeometryWidget - return jGeometryWidget' - maybeGeometry <- case geometry of - Nothing -> return nullPtr - Just jGeometry -> do - let jGeometry' = unsafeManagedPtrGetPtr jGeometry - return jGeometry' - let geomMask' = gflagsToWord geomMask - gtk_window_set_geometry_hints _obj' maybeGeometryWidget maybeGeometry geomMask' - touchManagedPtr _obj - whenJust geometryWidget touchManagedPtr - whenJust geometry touchManagedPtr - return () - -data WindowSetGeometryHintsMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gdk.Geometry) -> [Gdk.WindowHints] -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetGeometryHintsMethodInfo a signature where - overloadedMethod _ = windowSetGeometryHints - --- method Window::set_gravity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Gdk" "Gravity", 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 "gtk_window_set_gravity" gtk_window_set_gravity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- gravity : TInterface "Gdk" "Gravity" - IO () - - -windowSetGravity :: - (MonadIO m, WindowK a) => - a -- _obj - -> Gdk.Gravity -- gravity - -> m () -- result -windowSetGravity _obj gravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gravity' = (fromIntegral . fromEnum) gravity - gtk_window_set_gravity _obj' gravity' - touchManagedPtr _obj - return () - -data WindowSetGravityMethodInfo -instance (signature ~ (Gdk.Gravity -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetGravityMethodInfo a signature where - overloadedMethod _ = windowSetGravity - --- method Window::set_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_set_has_resize_grip" gtk_window_set_has_resize_grip :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- value : TBasicType TBoolean - IO () - -{-# DEPRECATED windowSetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} -windowSetHasResizeGrip :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- value - -> m () -- result -windowSetHasResizeGrip _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = (fromIntegral . fromEnum) value - gtk_window_set_has_resize_grip _obj' value' - touchManagedPtr _obj - return () - -data WindowSetHasResizeGripMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHasResizeGripMethodInfo a signature where - overloadedMethod _ = windowSetHasResizeGrip - --- method Window::set_has_user_ref_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_has_user_ref_count" gtk_window_set_has_user_ref_count :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetHasUserRefCount :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetHasUserRefCount _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_has_user_ref_count _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetHasUserRefCountMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHasUserRefCountMethodInfo a signature where - overloadedMethod _ = windowSetHasUserRefCount - --- method Window::set_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_hide_titlebar_when_maximized" gtk_window_set_hide_titlebar_when_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetHideTitlebarWhenMaximized :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetHideTitlebarWhenMaximized _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_hide_titlebar_when_maximized _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetHideTitlebarWhenMaximizedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHideTitlebarWhenMaximizedMethodInfo a signature where - overloadedMethod _ = windowSetHideTitlebarWhenMaximized - --- method Window::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_icon" gtk_window_set_icon :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -windowSetIcon :: - (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> Maybe (b) -- icon - -> m () -- result -windowSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_window_set_icon _obj' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - -data WindowSetIconMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconMethodInfo a signature where - overloadedMethod _ = windowSetIcon - --- method Window::set_icon_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_window_set_icon_from_file" gtk_window_set_icon_from_file :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -windowSetIconFromFile :: - (MonadIO m, WindowK a) => - a -- _obj - -> [Char] -- filename - -> m () -- result -windowSetIconFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - onException (do - _ <- propagateGError $ gtk_window_set_icon_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - -data WindowSetIconFromFileMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconFromFileMethodInfo a signature where - overloadedMethod _ = windowSetIconFromFile - --- method Window::set_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), 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 "gtk_window_set_icon_list" gtk_window_set_icon_list :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") - IO () - - -windowSetIconList :: - (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> [b] -- list - -> m () -- result -windowSetIconList _obj list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let list' = map unsafeManagedPtrCastPtr list - list'' <- packGList list' - gtk_window_set_icon_list _obj' list'' - touchManagedPtr _obj - mapM_ touchManagedPtr list - g_list_free list'' - return () - -data WindowSetIconListMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconListMethodInfo a signature where - overloadedMethod _ = windowSetIconList - --- method Window::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_icon_name" gtk_window_set_icon_name :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- name : TBasicType TUTF8 - IO () - - -windowSetIconName :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m () -- result -windowSetIconName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - gtk_window_set_icon_name _obj' maybeName - touchManagedPtr _obj - freeMem maybeName - return () - -data WindowSetIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconNameMethodInfo a signature where - overloadedMethod _ = windowSetIconName - --- method Window::set_keep_above --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_keep_above" gtk_window_set_keep_above :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepAbove :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetKeepAbove _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_above _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetKeepAboveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepAboveMethodInfo a signature where - overloadedMethod _ = windowSetKeepAbove - --- method Window::set_keep_below --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_keep_below" gtk_window_set_keep_below :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepBelow :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetKeepBelow _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_below _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetKeepBelowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepBelowMethodInfo a signature where - overloadedMethod _ = windowSetKeepBelow - --- method Window::set_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", 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 "gtk_window_set_mnemonic_modifier" gtk_window_set_mnemonic_modifier :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- modifier : TInterface "Gdk" "ModifierType" - IO () - - -windowSetMnemonicModifier :: - (MonadIO m, WindowK a) => - a -- _obj - -> [Gdk.ModifierType] -- modifier - -> m () -- result -windowSetMnemonicModifier _obj modifier = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifier' = gflagsToWord modifier - gtk_window_set_mnemonic_modifier _obj' modifier' - touchManagedPtr _obj - return () - -data WindowSetMnemonicModifierMethodInfo -instance (signature ~ ([Gdk.ModifierType] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetMnemonicModifierMethodInfo a signature where - overloadedMethod _ = windowSetMnemonicModifier - --- method Window::set_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_mnemonics_visible" gtk_window_set_mnemonics_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetMnemonicsVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetMnemonicsVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_mnemonics_visible _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetMnemonicsVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetMnemonicsVisibleMethodInfo a signature where - overloadedMethod _ = windowSetMnemonicsVisible - --- method Window::set_modal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", 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 "gtk_window_set_modal" gtk_window_set_modal :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- modal : TBasicType TBoolean - IO () - - -windowSetModal :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- modal - -> m () -- result -windowSetModal _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gtk_window_set_modal _obj' modal' - touchManagedPtr _obj - return () - -data WindowSetModalMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetModalMethodInfo a signature where - overloadedMethod _ = windowSetModal - --- method Window::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", 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 "gtk_window_set_opacity" gtk_window_set_opacity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CDouble -> -- opacity : TBasicType TDouble - IO () - -{-# DEPRECATED windowSetOpacity ["(Since version 3.8)","Use gtk_widget_set_opacity instead."]#-} -windowSetOpacity :: - (MonadIO m, WindowK a) => - a -- _obj - -> Double -- opacity - -> m () -- result -windowSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_window_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - -data WindowSetOpacityMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpacityMethodInfo a signature where - overloadedMethod _ = windowSetOpacity - --- method Window::set_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "WindowPosition", 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 "gtk_window_set_position" gtk_window_set_position :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- position : TInterface "Gtk" "WindowPosition" - IO () - - -windowSetPosition :: - (MonadIO m, WindowK a) => - a -- _obj - -> WindowPosition -- position - -> m () -- result -windowSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_window_set_position _obj' position' - touchManagedPtr _obj - return () - -data WindowSetPositionMethodInfo -instance (signature ~ (WindowPosition -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetPositionMethodInfo a signature where - overloadedMethod _ = windowSetPosition - --- method Window::set_resizable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", 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 "gtk_window_set_resizable" gtk_window_set_resizable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- resizable : TBasicType TBoolean - IO () - - -windowSetResizable :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- resizable - -> m () -- result -windowSetResizable _obj resizable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizable' = (fromIntegral . fromEnum) resizable - gtk_window_set_resizable _obj' resizable' - touchManagedPtr _obj - return () - -data WindowSetResizableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetResizableMethodInfo a signature where - overloadedMethod _ = windowSetResizable - --- method Window::set_role --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", 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 "gtk_window_set_role" gtk_window_set_role :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- role : TBasicType TUTF8 - IO () - - -windowSetRole :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- role - -> m () -- result -windowSetRole _obj role = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - role' <- textToCString role - gtk_window_set_role _obj' role' - touchManagedPtr _obj - freeMem role' - return () - -data WindowSetRoleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetRoleMethodInfo a signature where - overloadedMethod _ = windowSetRole - --- method Window::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", 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 "gtk_window_set_screen" gtk_window_set_screen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -windowSetScreen :: - (MonadIO m, WindowK a, Gdk.ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -windowSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_window_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data WindowSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowK a, Gdk.ScreenK b) => MethodInfo WindowSetScreenMethodInfo a signature where - overloadedMethod _ = windowSetScreen - --- method Window::set_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_skip_pager_hint" gtk_window_set_skip_pager_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetSkipPagerHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetSkipPagerHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_skip_pager_hint _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetSkipPagerHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipPagerHintMethodInfo a signature where - overloadedMethod _ = windowSetSkipPagerHint - --- method Window::set_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_skip_taskbar_hint" gtk_window_set_skip_taskbar_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetSkipTaskbarHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetSkipTaskbarHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_skip_taskbar_hint _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetSkipTaskbarHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where - overloadedMethod _ = windowSetSkipTaskbarHint - --- method Window::set_startup_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_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 "gtk_window_set_startup_id" gtk_window_set_startup_id :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- startup_id : TBasicType TUTF8 - IO () - - -windowSetStartupId :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- startupId - -> m () -- result -windowSetStartupId _obj startupId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startupId' <- textToCString startupId - gtk_window_set_startup_id _obj' startupId' - touchManagedPtr _obj - freeMem startupId' - return () - -data WindowSetStartupIdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetStartupIdMethodInfo a signature where - overloadedMethod _ = windowSetStartupId - --- method Window::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", 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 "gtk_window_set_title" gtk_window_set_title :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- title : TBasicType TUTF8 - IO () - - -windowSetTitle :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -windowSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_window_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data WindowSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTitleMethodInfo a signature where - overloadedMethod _ = windowSetTitle - --- method Window::set_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_titlebar" gtk_window_set_titlebar :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- titlebar : TInterface "Gtk" "Widget" - IO () - - -windowSetTitlebar :: - (MonadIO m, WindowK a, WidgetK b) => - a -- _obj - -> Maybe (b) -- titlebar - -> m () -- result -windowSetTitlebar _obj titlebar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitlebar <- case titlebar of - Nothing -> return nullPtr - Just jTitlebar -> do - let jTitlebar' = unsafeManagedPtrCastPtr jTitlebar - return jTitlebar' - gtk_window_set_titlebar _obj' maybeTitlebar - touchManagedPtr _obj - whenJust titlebar touchManagedPtr - return () - -data WindowSetTitlebarMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetTitlebarMethodInfo a signature where - overloadedMethod _ = windowSetTitlebar - --- method Window::set_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_transient_for" gtk_window_set_transient_for :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO () - - -windowSetTransientFor :: - (MonadIO m, WindowK a, WindowK b) => - a -- _obj - -> Maybe (b) -- parent - -> m () -- result -windowSetTransientFor _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - gtk_window_set_transient_for _obj' maybeParent - touchManagedPtr _obj - whenJust parent touchManagedPtr - return () - -data WindowSetTransientForMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetTransientForMethodInfo a signature where - overloadedMethod _ = windowSetTransientFor - --- method Window::set_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Gdk" "WindowTypeHint", 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 "gtk_window_set_type_hint" gtk_window_set_type_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint" - IO () - - -windowSetTypeHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Gdk.WindowTypeHint -- hint - -> m () -- result -windowSetTypeHint _obj hint = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hint' = (fromIntegral . fromEnum) hint - gtk_window_set_type_hint _obj' hint' - touchManagedPtr _obj - return () - -data WindowSetTypeHintMethodInfo -instance (signature ~ (Gdk.WindowTypeHint -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTypeHintMethodInfo a signature where - overloadedMethod _ = windowSetTypeHint - --- method Window::set_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_window_set_urgency_hint" gtk_window_set_urgency_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetUrgencyHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetUrgencyHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_urgency_hint _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetUrgencyHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetUrgencyHintMethodInfo a signature where - overloadedMethod _ = windowSetUrgencyHint - --- method Window::set_wmclass --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_class", 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 "gtk_window_set_wmclass" gtk_window_set_wmclass :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- wmclass_name : TBasicType TUTF8 - CString -> -- wmclass_class : TBasicType TUTF8 - IO () - - -windowSetWmclass :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- wmclassName - -> T.Text -- wmclassClass - -> m () -- result -windowSetWmclass _obj wmclassName wmclassClass = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wmclassName' <- textToCString wmclassName - wmclassClass' <- textToCString wmclassClass - gtk_window_set_wmclass _obj' wmclassName' wmclassClass' - touchManagedPtr _obj - freeMem wmclassName' - freeMem wmclassClass' - return () - -data WindowSetWmclassMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetWmclassMethodInfo a signature where - overloadedMethod _ = windowSetWmclass - --- method Window::stick --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_stick" gtk_window_stick :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowStick :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowStick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_stick _obj' - touchManagedPtr _obj - return () - -data WindowStickMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowStickMethodInfo a signature where - overloadedMethod _ = windowStick - --- method Window::unfullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_unfullscreen" gtk_window_unfullscreen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnfullscreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnfullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unfullscreen _obj' - touchManagedPtr _obj - return () - -data WindowUnfullscreenMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnfullscreenMethodInfo a signature where - overloadedMethod _ = windowUnfullscreen - --- method Window::unmaximize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_unmaximize" gtk_window_unmaximize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnmaximize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnmaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unmaximize _obj' - touchManagedPtr _obj - return () - -data WindowUnmaximizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnmaximizeMethodInfo a signature where - overloadedMethod _ = windowUnmaximize - --- method Window::unstick --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 "gtk_window_unstick" gtk_window_unstick :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnstick :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnstick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unstick _obj' - touchManagedPtr _obj - return () - -data WindowUnstickMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnstickMethodInfo a signature where - overloadedMethod _ = windowUnstick - --- method Window::get_default_icon_list --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TGList (TInterface "GdkPixbuf" "Pixbuf")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_icon_list" gtk_window_get_default_icon_list :: - IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) - - -windowGetDefaultIconList :: - (MonadIO m) => - m [GdkPixbuf.Pixbuf] -- result -windowGetDefaultIconList = liftIO $ do - result <- gtk_window_get_default_icon_list - result' <- unpackGList result - result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' - g_list_free result - return result'' - --- method Window::get_default_icon_name --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_icon_name" gtk_window_get_default_icon_name :: - IO CString - - -windowGetDefaultIconName :: - (MonadIO m) => - m T.Text -- result -windowGetDefaultIconName = liftIO $ do - result <- gtk_window_get_default_icon_name - checkUnexpectedReturnNULL "gtk_window_get_default_icon_name" result - result' <- cstringToText result - return result' - --- method Window::list_toplevels --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Widget")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_list_toplevels" gtk_window_list_toplevels :: - IO (Ptr (GList (Ptr Widget))) - - -windowListToplevels :: - (MonadIO m) => - m [Widget] -- result -windowListToplevels = liftIO $ do - result <- gtk_window_list_toplevels - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - return result'' - --- method Window::set_auto_startup_notification --- method type : MemberFunction --- Args : [Arg {argCName = "setting", 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 "gtk_window_set_auto_startup_notification" gtk_window_set_auto_startup_notification :: - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetAutoStartupNotification :: - (MonadIO m) => - Bool -- setting - -> m () -- result -windowSetAutoStartupNotification setting = liftIO $ do - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_auto_startup_notification setting' - return () - --- method Window::set_default_icon --- method type : MemberFunction --- Args : [Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_window_set_default_icon" gtk_window_set_default_icon :: - Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -windowSetDefaultIcon :: - (MonadIO m, GdkPixbuf.PixbufK a) => - a -- icon - -> m () -- result -windowSetDefaultIcon icon = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - gtk_window_set_default_icon icon' - touchManagedPtr icon - return () - --- method Window::set_default_icon_from_file --- method type : MemberFunction --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon_from_file" gtk_window_set_default_icon_from_file :: - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -windowSetDefaultIconFromFile :: - (MonadIO m) => - [Char] -- filename - -> m () -- result -windowSetDefaultIconFromFile filename = liftIO $ do - filename' <- stringToCString filename - onException (do - _ <- propagateGError $ gtk_window_set_default_icon_from_file filename' - freeMem filename' - return () - ) (do - freeMem filename' - ) - --- method Window::set_default_icon_list --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon_list" gtk_window_set_default_icon_list :: - Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") - IO () - - -windowSetDefaultIconList :: - (MonadIO m, GdkPixbuf.PixbufK a) => - [a] -- list - -> m () -- result -windowSetDefaultIconList list = liftIO $ do - let list' = map unsafeManagedPtrCastPtr list - list'' <- packGList list' - gtk_window_set_default_icon_list list'' - mapM_ touchManagedPtr list - return () - --- method Window::set_default_icon_name --- method type : MemberFunction --- Args : [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 "gtk_window_set_default_icon_name" gtk_window_set_default_icon_name :: - CString -> -- name : TBasicType TUTF8 - IO () - - -windowSetDefaultIconName :: - (MonadIO m) => - T.Text -- name - -> m () -- result -windowSetDefaultIconName name = liftIO $ do - name' <- textToCString name - gtk_window_set_default_icon_name name' - freeMem name' - return () - --- method Window::set_interactive_debugging --- method type : MemberFunction --- Args : [Arg {argCName = "enable", 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 "gtk_window_set_interactive_debugging" gtk_window_set_interactive_debugging :: - CInt -> -- enable : TBasicType TBoolean - IO () - - -windowSetInteractiveDebugging :: - (MonadIO m) => - Bool -- enable - -> m () -- result -windowSetInteractiveDebugging enable = liftIO $ do - let enable' = (fromIntegral . fromEnum) enable - gtk_window_set_interactive_debugging enable' - return () - - diff --git a/GI/Gtk/Objects/Window.hs-boot b/GI/Gtk/Objects/Window.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/Window.hs-boot +++ /dev/null @@ -1,160 +0,0 @@ -module GI.Gtk.Objects.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) -instance GObject Window where -class GObject o => WindowK o -instance (GObject o, IsDescendantOf Window o) => WindowK o -data WindowAcceptFocusPropertyInfo -data WindowApplicationPropertyInfo -data WindowAttachedToPropertyInfo -data WindowDecoratedPropertyInfo -data WindowDefaultHeightPropertyInfo -data WindowDefaultWidthPropertyInfo -data WindowDeletablePropertyInfo -data WindowDestroyWithParentPropertyInfo -data WindowFocusOnMapPropertyInfo -data WindowFocusVisiblePropertyInfo -data WindowGravityPropertyInfo -data WindowHasResizeGripPropertyInfo -data WindowHasToplevelFocusPropertyInfo -data WindowHideTitlebarWhenMaximizedPropertyInfo -data WindowIconPropertyInfo -data WindowIconNamePropertyInfo -data WindowIsActivePropertyInfo -data WindowIsMaximizedPropertyInfo -data WindowMnemonicsVisiblePropertyInfo -data WindowModalPropertyInfo -data WindowResizablePropertyInfo -data WindowResizeGripVisiblePropertyInfo -data WindowRolePropertyInfo -data WindowScreenPropertyInfo -data WindowSkipPagerHintPropertyInfo -data WindowSkipTaskbarHintPropertyInfo -data WindowStartupIdPropertyInfo -data WindowTitlePropertyInfo -data WindowTransientForPropertyInfo -data WindowTypePropertyInfo -data WindowTypeHintPropertyInfo -data WindowUrgencyHintPropertyInfo -data WindowWindowPositionPropertyInfo -data WindowActivateDefaultSignalInfo -data WindowActivateFocusSignalInfo -data WindowEnableDebuggingSignalInfo -data WindowKeysChangedSignalInfo -data WindowSetFocusSignalInfo -data WindowActivateDefaultMethodInfo -data WindowActivateFocusMethodInfo -data WindowActivateKeyMethodInfo -data WindowAddAccelGroupMethodInfo -data WindowAddMnemonicMethodInfo -data WindowBeginMoveDragMethodInfo -data WindowBeginResizeDragMethodInfo -data WindowCloseMethodInfo -data WindowDeiconifyMethodInfo -data WindowFullscreenMethodInfo -data WindowFullscreenOnMonitorMethodInfo -data WindowGetAcceptFocusMethodInfo -data WindowGetApplicationMethodInfo -data WindowGetAttachedToMethodInfo -data WindowGetDecoratedMethodInfo -data WindowGetDefaultSizeMethodInfo -data WindowGetDefaultWidgetMethodInfo -data WindowGetDeletableMethodInfo -data WindowGetDestroyWithParentMethodInfo -data WindowGetFocusMethodInfo -data WindowGetFocusOnMapMethodInfo -data WindowGetFocusVisibleMethodInfo -data WindowGetGravityMethodInfo -data WindowGetGroupMethodInfo -data WindowGetHasResizeGripMethodInfo -data WindowGetHideTitlebarWhenMaximizedMethodInfo -data WindowGetIconMethodInfo -data WindowGetIconListMethodInfo -data WindowGetIconNameMethodInfo -data WindowGetMnemonicModifierMethodInfo -data WindowGetMnemonicsVisibleMethodInfo -data WindowGetModalMethodInfo -data WindowGetOpacityMethodInfo -data WindowGetPositionMethodInfo -data WindowGetResizableMethodInfo -data WindowGetResizeGripAreaMethodInfo -data WindowGetRoleMethodInfo -data WindowGetScreenMethodInfo -data WindowGetSizeMethodInfo -data WindowGetSkipPagerHintMethodInfo -data WindowGetSkipTaskbarHintMethodInfo -data WindowGetTitleMethodInfo -data WindowGetTitlebarMethodInfo -data WindowGetTransientForMethodInfo -data WindowGetTypeHintMethodInfo -data WindowGetUrgencyHintMethodInfo -data WindowGetWindowTypeMethodInfo -data WindowHasGroupMethodInfo -data WindowHasToplevelFocusMethodInfo -data WindowIconifyMethodInfo -data WindowIsActiveMethodInfo -data WindowIsMaximizedMethodInfo -data WindowMaximizeMethodInfo -data WindowMnemonicActivateMethodInfo -data WindowMoveMethodInfo -data WindowParseGeometryMethodInfo -data WindowPresentMethodInfo -data WindowPresentWithTimeMethodInfo -data WindowPropagateKeyEventMethodInfo -data WindowRemoveAccelGroupMethodInfo -data WindowRemoveMnemonicMethodInfo -data WindowReshowWithInitialSizeMethodInfo -data WindowResizeMethodInfo -data WindowResizeGripIsVisibleMethodInfo -data WindowResizeToGeometryMethodInfo -data WindowSetAcceptFocusMethodInfo -data WindowSetApplicationMethodInfo -data WindowSetAttachedToMethodInfo -data WindowSetDecoratedMethodInfo -data WindowSetDefaultMethodInfo -data WindowSetDefaultGeometryMethodInfo -data WindowSetDefaultSizeMethodInfo -data WindowSetDeletableMethodInfo -data WindowSetDestroyWithParentMethodInfo -data WindowSetFocusMethodInfo -data WindowSetFocusOnMapMethodInfo -data WindowSetFocusVisibleMethodInfo -data WindowSetGeometryHintsMethodInfo -data WindowSetGravityMethodInfo -data WindowSetHasResizeGripMethodInfo -data WindowSetHasUserRefCountMethodInfo -data WindowSetHideTitlebarWhenMaximizedMethodInfo -data WindowSetIconMethodInfo -data WindowSetIconFromFileMethodInfo -data WindowSetIconListMethodInfo -data WindowSetIconNameMethodInfo -data WindowSetKeepAboveMethodInfo -data WindowSetKeepBelowMethodInfo -data WindowSetMnemonicModifierMethodInfo -data WindowSetMnemonicsVisibleMethodInfo -data WindowSetModalMethodInfo -data WindowSetOpacityMethodInfo -data WindowSetPositionMethodInfo -data WindowSetResizableMethodInfo -data WindowSetRoleMethodInfo -data WindowSetScreenMethodInfo -data WindowSetSkipPagerHintMethodInfo -data WindowSetSkipTaskbarHintMethodInfo -data WindowSetStartupIdMethodInfo -data WindowSetTitleMethodInfo -data WindowSetTitlebarMethodInfo -data WindowSetTransientForMethodInfo -data WindowSetTypeHintMethodInfo -data WindowSetUrgencyHintMethodInfo -data WindowSetWmclassMethodInfo -data WindowStickMethodInfo -data WindowUnfullscreenMethodInfo -data WindowUnmaximizeMethodInfo -data WindowUnstickMethodInfo diff --git a/GI/Gtk/Objects/WindowAccessible.hs b/GI/Gtk/Objects/WindowAccessible.hs deleted file mode 100644 --- a/GI/Gtk/Objects/WindowAccessible.hs +++ /dev/null @@ -1,128 +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.Gtk.Objects.WindowAccessible - ( - --- * Exported types - WindowAccessible(..) , - WindowAccessibleK , - toWindowAccessible , - noWindowAccessible , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject - -newtype WindowAccessible = WindowAccessible (ForeignPtr WindowAccessible) -foreign import ccall "gtk_window_accessible_get_type" - c_gtk_window_accessible_get_type :: IO GType - -type instance ParentTypes WindowAccessible = WindowAccessibleParentTypes -type WindowAccessibleParentTypes = '[ContainerAccessible, WidgetAccessible, Accessible, Atk.Object, GObject.Object, Atk.Component, Atk.Window] - -instance GObject WindowAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_window_accessible_get_type - - -class GObject o => WindowAccessibleK o -instance (GObject o, IsDescendantOf WindowAccessible o) => WindowAccessibleK o - -toWindowAccessible :: WindowAccessibleK o => o -> IO WindowAccessible -toWindowAccessible = unsafeCastTo WindowAccessible - -noWindowAccessible :: Maybe WindowAccessible -noWindowAccessible = Nothing - -type family ResolveWindowAccessibleMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo - ResolveWindowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWindowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWindowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo - ResolveWindowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo - ResolveWindowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWindowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWindowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo - ResolveWindowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo - ResolveWindowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWindowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWindowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWindowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo - ResolveWindowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo - ResolveWindowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWindowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo - ResolveWindowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo - ResolveWindowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo - ResolveWindowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWindowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo - ResolveWindowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo - ResolveWindowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo - ResolveWindowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo - ResolveWindowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWindowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWindowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWindowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWindowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWindowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWindowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWindowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWindowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo - ResolveWindowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo - ResolveWindowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWindowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo - ResolveWindowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo - ResolveWindowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo - ResolveWindowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo - ResolveWindowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo - ResolveWindowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo - ResolveWindowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo - ResolveWindowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo - ResolveWindowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWindowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWindowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo - ResolveWindowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo - ResolveWindowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo - ResolveWindowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWindowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo - ResolveWindowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo - ResolveWindowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo - ResolveWindowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo - ResolveWindowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo - ResolveWindowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWindowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo - ResolveWindowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo - ResolveWindowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo - ResolveWindowAccessibleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowAccessibleMethod t WindowAccessible, MethodInfo info WindowAccessible p) => IsLabelProxy t (WindowAccessible -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowAccessibleMethod t WindowAccessible, MethodInfo info WindowAccessible p) => IsLabel t (WindowAccessible -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList WindowAccessible = WindowAccessibleAttributeList -type WindowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList WindowAccessible = WindowAccessibleSignalList -type WindowAccessibleSignalList = ('[ '("activate", Atk.WindowActivateSignalInfo), '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("create", Atk.WindowCreateSignalInfo), '("deactivate", Atk.WindowDeactivateSignalInfo), '("destroy", Atk.WindowDestroySignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("maximize", Atk.WindowMaximizeSignalInfo), '("minimize", Atk.WindowMinimizeSignalInfo), '("move", Atk.WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("resize", Atk.WindowResizeSignalInfo), '("restore", Atk.WindowRestoreSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gtk/Objects/WindowAccessible.hs-boot b/GI/Gtk/Objects/WindowAccessible.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/WindowAccessible.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Objects.WindowAccessible 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 WindowAccessible = WindowAccessible (ForeignPtr WindowAccessible) -instance GObject WindowAccessible where -class GObject o => WindowAccessibleK o -instance (GObject o, IsDescendantOf WindowAccessible o) => WindowAccessibleK o diff --git a/GI/Gtk/Objects/WindowGroup.hs b/GI/Gtk/Objects/WindowGroup.hs deleted file mode 100644 --- a/GI/Gtk/Objects/WindowGroup.hs +++ /dev/null @@ -1,305 +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.Gtk.Objects.WindowGroup - ( - --- * Exported types - WindowGroup(..) , - WindowGroupK , - toWindowGroup , - noWindowGroup , - - - -- * Methods --- ** windowGroupAddWindow - WindowGroupAddWindowMethodInfo , - windowGroupAddWindow , - - --- ** windowGroupGetCurrentDeviceGrab - WindowGroupGetCurrentDeviceGrabMethodInfo, - windowGroupGetCurrentDeviceGrab , - - --- ** windowGroupGetCurrentGrab - WindowGroupGetCurrentGrabMethodInfo , - windowGroupGetCurrentGrab , - - --- ** windowGroupListWindows - WindowGroupListWindowsMethodInfo , - windowGroupListWindows , - - --- ** windowGroupNew - windowGroupNew , - - --- ** windowGroupRemoveWindow - WindowGroupRemoveWindowMethodInfo , - windowGroupRemoveWindow , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype WindowGroup = WindowGroup (ForeignPtr WindowGroup) -foreign import ccall "gtk_window_group_get_type" - c_gtk_window_group_get_type :: IO GType - -type instance ParentTypes WindowGroup = WindowGroupParentTypes -type WindowGroupParentTypes = '[GObject.Object] - -instance GObject WindowGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_window_group_get_type - - -class GObject o => WindowGroupK o -instance (GObject o, IsDescendantOf WindowGroup o) => WindowGroupK o - -toWindowGroup :: WindowGroupK o => o -> IO WindowGroup -toWindowGroup = unsafeCastTo WindowGroup - -noWindowGroup :: Maybe WindowGroup -noWindowGroup = Nothing - -type family ResolveWindowGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowGroupMethod "addWindow" o = WindowGroupAddWindowMethodInfo - ResolveWindowGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWindowGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWindowGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWindowGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWindowGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWindowGroupMethod "listWindows" o = WindowGroupListWindowsMethodInfo - ResolveWindowGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWindowGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWindowGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWindowGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWindowGroupMethod "removeWindow" o = WindowGroupRemoveWindowMethodInfo - ResolveWindowGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWindowGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWindowGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWindowGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWindowGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWindowGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWindowGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWindowGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWindowGroupMethod "getCurrentDeviceGrab" o = WindowGroupGetCurrentDeviceGrabMethodInfo - ResolveWindowGroupMethod "getCurrentGrab" o = WindowGroupGetCurrentGrabMethodInfo - ResolveWindowGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWindowGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWindowGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWindowGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWindowGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWindowGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowGroupMethod t WindowGroup, MethodInfo info WindowGroup p) => IsLabelProxy t (WindowGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowGroupMethod t WindowGroup, MethodInfo info WindowGroup p) => IsLabel t (WindowGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList WindowGroup = WindowGroupAttributeList -type WindowGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList WindowGroup = WindowGroupSignalList -type WindowGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WindowGroup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WindowGroup") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_group_new" gtk_window_group_new :: - IO (Ptr WindowGroup) - - -windowGroupNew :: - (MonadIO m) => - m WindowGroup -- result -windowGroupNew = liftIO $ do - result <- gtk_window_group_new - checkUnexpectedReturnNULL "gtk_window_group_new" result - result' <- (wrapObject WindowGroup) result - return result' - --- method WindowGroup::add_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", 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 "gtk_window_group_add_window" gtk_window_group_add_window :: - Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup" - Ptr Window -> -- window : TInterface "Gtk" "Window" - IO () - - -windowGroupAddWindow :: - (MonadIO m, WindowGroupK a, WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -windowGroupAddWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_window_group_add_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WindowGroupAddWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowGroupK a, WindowK b) => MethodInfo WindowGroupAddWindowMethodInfo a signature where - overloadedMethod _ = windowGroupAddWindow - --- method WindowGroup::get_current_device_grab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_group_get_current_device_grab" gtk_window_group_get_current_device_grab :: - Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO (Ptr Widget) - - -windowGroupGetCurrentDeviceGrab :: - (MonadIO m, WindowGroupK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m Widget -- result -windowGroupGetCurrentDeviceGrab _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_window_group_get_current_device_grab _obj' device' - checkUnexpectedReturnNULL "gtk_window_group_get_current_device_grab" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WindowGroupGetCurrentDeviceGrabMethodInfo -instance (signature ~ (b -> m Widget), MonadIO m, WindowGroupK a, Gdk.DeviceK b) => MethodInfo WindowGroupGetCurrentDeviceGrabMethodInfo a signature where - overloadedMethod _ = windowGroupGetCurrentDeviceGrab - --- method WindowGroup::get_current_grab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_group_get_current_grab" gtk_window_group_get_current_grab :: - Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup" - IO (Ptr Widget) - - -windowGroupGetCurrentGrab :: - (MonadIO m, WindowGroupK a) => - a -- _obj - -> m Widget -- result -windowGroupGetCurrentGrab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_group_get_current_grab _obj' - checkUnexpectedReturnNULL "gtk_window_group_get_current_grab" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WindowGroupGetCurrentGrabMethodInfo -instance (signature ~ (m Widget), MonadIO m, WindowGroupK a) => MethodInfo WindowGroupGetCurrentGrabMethodInfo a signature where - overloadedMethod _ = windowGroupGetCurrentGrab - --- method WindowGroup::list_windows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_group_list_windows" gtk_window_group_list_windows :: - Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup" - IO (Ptr (GList (Ptr Window))) - - -windowGroupListWindows :: - (MonadIO m, WindowGroupK a) => - a -- _obj - -> m [Window] -- result -windowGroupListWindows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_group_list_windows _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WindowGroupListWindowsMethodInfo -instance (signature ~ (m [Window]), MonadIO m, WindowGroupK a) => MethodInfo WindowGroupListWindowsMethodInfo a signature where - overloadedMethod _ = windowGroupListWindows - --- method WindowGroup::remove_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", 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 "gtk_window_group_remove_window" gtk_window_group_remove_window :: - Ptr WindowGroup -> -- _obj : TInterface "Gtk" "WindowGroup" - Ptr Window -> -- window : TInterface "Gtk" "Window" - IO () - - -windowGroupRemoveWindow :: - (MonadIO m, WindowGroupK a, WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -windowGroupRemoveWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_window_group_remove_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WindowGroupRemoveWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowGroupK a, WindowK b) => MethodInfo WindowGroupRemoveWindowMethodInfo a signature where - overloadedMethod _ = windowGroupRemoveWindow - - diff --git a/GI/Gtk/Objects/WindowGroup.hs-boot b/GI/Gtk/Objects/WindowGroup.hs-boot deleted file mode 100644 --- a/GI/Gtk/Objects/WindowGroup.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gtk.Objects.WindowGroup 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 WindowGroup = WindowGroup (ForeignPtr WindowGroup) -instance GObject WindowGroup where -class GObject o => WindowGroupK o -instance (GObject o, IsDescendantOf WindowGroup o) => WindowGroupK o -data WindowGroupAddWindowMethodInfo -data WindowGroupGetCurrentDeviceGrabMethodInfo -data WindowGroupGetCurrentGrabMethodInfo -data WindowGroupListWindowsMethodInfo -data WindowGroupRemoveWindowMethodInfo diff --git a/GI/Gtk/Structs.hs b/GI/Gtk/Structs.hs deleted file mode 100644 --- a/GI/Gtk/Structs.hs +++ /dev/null @@ -1,117 +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.Gtk.Structs - ( module GI.Gtk.Structs.AccelGroupEntry , - module GI.Gtk.Structs.AccelKey , - module GI.Gtk.Structs.ActionEntry , - module GI.Gtk.Structs.BindingArg , - module GI.Gtk.Structs.BindingEntry , - module GI.Gtk.Structs.BindingSet , - module GI.Gtk.Structs.BindingSignal , - module GI.Gtk.Structs.Border , - module GI.Gtk.Structs.CssSection , - module GI.Gtk.Structs.FileFilterInfo , - module GI.Gtk.Structs.FixedChild , - module GI.Gtk.Structs.Gradient , - module GI.Gtk.Structs.IMContextInfo , - module GI.Gtk.Structs.IconSet , - module GI.Gtk.Structs.IconSource , - module GI.Gtk.Structs.LabelSelectionInfo, - module GI.Gtk.Structs.PageRange , - module GI.Gtk.Structs.PaperSize , - module GI.Gtk.Structs.RadioActionEntry , - module GI.Gtk.Structs.RcContext , - module GI.Gtk.Structs.RcProperty , - module GI.Gtk.Structs.RecentData , - module GI.Gtk.Structs.RecentFilterInfo , - module GI.Gtk.Structs.RecentInfo , - module GI.Gtk.Structs.RequestedSize , - module GI.Gtk.Structs.Requisition , - module GI.Gtk.Structs.SelectionData , - module GI.Gtk.Structs.SettingsValue , - module GI.Gtk.Structs.StockItem , - module GI.Gtk.Structs.SymbolicColor , - module GI.Gtk.Structs.TableChild , - module GI.Gtk.Structs.TableRowCol , - module GI.Gtk.Structs.TargetEntry , - module GI.Gtk.Structs.TargetList , - module GI.Gtk.Structs.TargetPair , - module GI.Gtk.Structs.TextAppearance , - module GI.Gtk.Structs.TextAttributes , - module GI.Gtk.Structs.TextBTree , - module GI.Gtk.Structs.TextIter , - module GI.Gtk.Structs.ThemeEngine , - module GI.Gtk.Structs.ToggleActionEntry , - module GI.Gtk.Structs.TreeIter , - module GI.Gtk.Structs.TreePath , - module GI.Gtk.Structs.TreeRowReference , - module GI.Gtk.Structs.WidgetPath , - module GI.Gtk.Structs.WindowGeometryInfo, - - - ) where - -import GI.Gtk.Structs.AccelGroupEntry -import GI.Gtk.Structs.AccelKey -import GI.Gtk.Structs.ActionEntry -import GI.Gtk.Structs.BindingArg -import GI.Gtk.Structs.BindingEntry -import GI.Gtk.Structs.BindingSet -import GI.Gtk.Structs.BindingSignal -import GI.Gtk.Structs.Border -import GI.Gtk.Structs.CssSection -import GI.Gtk.Structs.FileFilterInfo -import GI.Gtk.Structs.FixedChild -import GI.Gtk.Structs.Gradient -import GI.Gtk.Structs.IMContextInfo -import GI.Gtk.Structs.IconSet -import GI.Gtk.Structs.IconSource -import GI.Gtk.Structs.LabelSelectionInfo -import GI.Gtk.Structs.PageRange -import GI.Gtk.Structs.PaperSize -import GI.Gtk.Structs.RadioActionEntry -import GI.Gtk.Structs.RcContext -import GI.Gtk.Structs.RcProperty -import GI.Gtk.Structs.RecentData -import GI.Gtk.Structs.RecentFilterInfo -import GI.Gtk.Structs.RecentInfo -import GI.Gtk.Structs.RequestedSize -import GI.Gtk.Structs.Requisition -import GI.Gtk.Structs.SelectionData -import GI.Gtk.Structs.SettingsValue -import GI.Gtk.Structs.StockItem -import GI.Gtk.Structs.SymbolicColor -import GI.Gtk.Structs.TableChild -import GI.Gtk.Structs.TableRowCol -import GI.Gtk.Structs.TargetEntry -import GI.Gtk.Structs.TargetList -import GI.Gtk.Structs.TargetPair -import GI.Gtk.Structs.TextAppearance -import GI.Gtk.Structs.TextAttributes -import GI.Gtk.Structs.TextBTree -import GI.Gtk.Structs.TextIter -import GI.Gtk.Structs.ThemeEngine -import GI.Gtk.Structs.ToggleActionEntry -import GI.Gtk.Structs.TreeIter -import GI.Gtk.Structs.TreePath -import GI.Gtk.Structs.TreeRowReference -import GI.Gtk.Structs.WidgetPath -import GI.Gtk.Structs.WindowGeometryInfo - -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.Gtk.Types -import GI.Gtk.Callbacks - - diff --git a/GI/Gtk/Structs/AccelGroupEntry.hs b/GI/Gtk/Structs/AccelGroupEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/AccelGroupEntry.hs +++ /dev/null @@ -1,177 +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.Gtk.Structs.AccelGroupEntry - ( - --- * Exported types - AccelGroupEntry(..) , - newZeroAccelGroupEntry , - noAccelGroupEntry , - - - -- * Properties --- ** AccelPathQuark - accelGroupEntryAccelPathQuark , - accelGroupEntryReadAccelPathQuark , - accelGroupEntryWriteAccelPathQuark , - - --- ** Closure - accelGroupEntryClearClosure , - accelGroupEntryClosure , - accelGroupEntryReadClosure , - accelGroupEntryWriteClosure , - - --- ** Key - accelGroupEntryClearKey , - accelGroupEntryKey , - accelGroupEntryReadKey , - accelGroupEntryWriteKey , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry) -instance WrappedPtr AccelGroupEntry where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `AccelGroupEntry` struct initialized to zero. -newZeroAccelGroupEntry :: MonadIO m => m AccelGroupEntry -newZeroAccelGroupEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr AccelGroupEntry - -instance tag ~ 'AttrSet => Constructible AccelGroupEntry tag where - new _ attrs = do - o <- newZeroAccelGroupEntry - GI.Attributes.set o attrs - return o - - -noAccelGroupEntry :: Maybe AccelGroupEntry -noAccelGroupEntry = Nothing - -accelGroupEntryReadKey :: MonadIO m => AccelGroupEntry -> m (Maybe AccelKey) -accelGroupEntryReadKey s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr AccelKey) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr AccelKey) val' - return val'' - return result - -accelGroupEntryWriteKey :: MonadIO m => AccelGroupEntry -> Ptr AccelKey -> m () -accelGroupEntryWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr AccelKey) - -accelGroupEntryClearKey :: MonadIO m => AccelGroupEntry -> m () -accelGroupEntryClearKey s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr AccelKey) - -data AccelGroupEntryKeyFieldInfo -instance AttrInfo AccelGroupEntryKeyFieldInfo where - type AttrAllowedOps AccelGroupEntryKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AccelGroupEntryKeyFieldInfo = (~) (Ptr AccelKey) - type AttrBaseTypeConstraint AccelGroupEntryKeyFieldInfo = (~) AccelGroupEntry - type AttrGetType AccelGroupEntryKeyFieldInfo = Maybe AccelKey - type AttrLabel AccelGroupEntryKeyFieldInfo = "key" - attrGet _ = accelGroupEntryReadKey - attrSet _ = accelGroupEntryWriteKey - attrConstruct = undefined - attrClear _ = accelGroupEntryClearKey - -accelGroupEntryKey :: AttrLabelProxy "key" -accelGroupEntryKey = AttrLabelProxy - - -accelGroupEntryReadClosure :: MonadIO m => AccelGroupEntry -> m (Maybe Closure) -accelGroupEntryReadClosure s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Closure) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Closure) val' - return val'' - return result - -accelGroupEntryWriteClosure :: MonadIO m => AccelGroupEntry -> Ptr Closure -> m () -accelGroupEntryWriteClosure s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Closure) - -accelGroupEntryClearClosure :: MonadIO m => AccelGroupEntry -> m () -accelGroupEntryClearClosure s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Closure) - -data AccelGroupEntryClosureFieldInfo -instance AttrInfo AccelGroupEntryClosureFieldInfo where - type AttrAllowedOps AccelGroupEntryClosureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AccelGroupEntryClosureFieldInfo = (~) (Ptr Closure) - type AttrBaseTypeConstraint AccelGroupEntryClosureFieldInfo = (~) AccelGroupEntry - type AttrGetType AccelGroupEntryClosureFieldInfo = Maybe Closure - type AttrLabel AccelGroupEntryClosureFieldInfo = "closure" - attrGet _ = accelGroupEntryReadClosure - attrSet _ = accelGroupEntryWriteClosure - attrConstruct = undefined - attrClear _ = accelGroupEntryClearClosure - -accelGroupEntryClosure :: AttrLabelProxy "closure" -accelGroupEntryClosure = AttrLabelProxy - - -accelGroupEntryReadAccelPathQuark :: MonadIO m => AccelGroupEntry -> m Word32 -accelGroupEntryReadAccelPathQuark s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -accelGroupEntryWriteAccelPathQuark :: MonadIO m => AccelGroupEntry -> Word32 -> m () -accelGroupEntryWriteAccelPathQuark s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Word32) - -data AccelGroupEntryAccelPathQuarkFieldInfo -instance AttrInfo AccelGroupEntryAccelPathQuarkFieldInfo where - type AttrAllowedOps AccelGroupEntryAccelPathQuarkFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AccelGroupEntryAccelPathQuarkFieldInfo = (~) Word32 - type AttrBaseTypeConstraint AccelGroupEntryAccelPathQuarkFieldInfo = (~) AccelGroupEntry - type AttrGetType AccelGroupEntryAccelPathQuarkFieldInfo = Word32 - type AttrLabel AccelGroupEntryAccelPathQuarkFieldInfo = "accel_path_quark" - attrGet _ = accelGroupEntryReadAccelPathQuark - attrSet _ = accelGroupEntryWriteAccelPathQuark - attrConstruct = undefined - attrClear _ = undefined - -accelGroupEntryAccelPathQuark :: AttrLabelProxy "accelPathQuark" -accelGroupEntryAccelPathQuark = AttrLabelProxy - - - -type instance AttributeList AccelGroupEntry = AccelGroupEntryAttributeList -type AccelGroupEntryAttributeList = ('[ '("key", AccelGroupEntryKeyFieldInfo), '("closure", AccelGroupEntryClosureFieldInfo), '("accelPathQuark", AccelGroupEntryAccelPathQuarkFieldInfo)] :: [(Symbol, *)]) - -type family ResolveAccelGroupEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveAccelGroupEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccelGroupEntryMethod t AccelGroupEntry, MethodInfo info AccelGroupEntry p) => IsLabelProxy t (AccelGroupEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccelGroupEntryMethod t AccelGroupEntry, MethodInfo info AccelGroupEntry p) => IsLabel t (AccelGroupEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/AccelGroupEntry.hs-boot b/GI/Gtk/Structs/AccelGroupEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/AccelGroupEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.AccelGroupEntry 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 AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry) -instance WrappedPtr AccelGroupEntry where diff --git a/GI/Gtk/Structs/AccelKey.hs b/GI/Gtk/Structs/AccelKey.hs deleted file mode 100644 --- a/GI/Gtk/Structs/AccelKey.hs +++ /dev/null @@ -1,164 +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.Gtk.Structs.AccelKey - ( - --- * Exported types - AccelKey(..) , - newZeroAccelKey , - noAccelKey , - - - -- * Properties --- ** AccelFlags - accelKeyAccelFlags , - accelKeyReadAccelFlags , - accelKeyWriteAccelFlags , - - --- ** AccelKey - accelKeyAccelKey , - accelKeyReadAccelKey , - accelKeyWriteAccelKey , - - --- ** AccelMods - accelKeyAccelMods , - accelKeyReadAccelMods , - accelKeyWriteAccelMods , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype AccelKey = AccelKey (ForeignPtr AccelKey) -instance WrappedPtr AccelKey where - wrappedPtrCalloc = callocBytes 12 - wrappedPtrCopy = copyPtr 12 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `AccelKey` struct initialized to zero. -newZeroAccelKey :: MonadIO m => m AccelKey -newZeroAccelKey = liftIO $ wrappedPtrCalloc >>= wrapPtr AccelKey - -instance tag ~ 'AttrSet => Constructible AccelKey tag where - new _ attrs = do - o <- newZeroAccelKey - GI.Attributes.set o attrs - return o - - -noAccelKey :: Maybe AccelKey -noAccelKey = Nothing - -accelKeyReadAccelKey :: MonadIO m => AccelKey -> m Word32 -accelKeyReadAccelKey s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -accelKeyWriteAccelKey :: MonadIO m => AccelKey -> Word32 -> m () -accelKeyWriteAccelKey s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data AccelKeyAccelKeyFieldInfo -instance AttrInfo AccelKeyAccelKeyFieldInfo where - type AttrAllowedOps AccelKeyAccelKeyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AccelKeyAccelKeyFieldInfo = (~) Word32 - type AttrBaseTypeConstraint AccelKeyAccelKeyFieldInfo = (~) AccelKey - type AttrGetType AccelKeyAccelKeyFieldInfo = Word32 - type AttrLabel AccelKeyAccelKeyFieldInfo = "accel_key" - attrGet _ = accelKeyReadAccelKey - attrSet _ = accelKeyWriteAccelKey - attrConstruct = undefined - attrClear _ = undefined - -accelKeyAccelKey :: AttrLabelProxy "accelKey" -accelKeyAccelKey = AttrLabelProxy - - -accelKeyReadAccelMods :: MonadIO m => AccelKey -> m [Gdk.ModifierType] -accelKeyReadAccelMods s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CUInt - let val' = wordToGFlags val - return val' - -accelKeyWriteAccelMods :: MonadIO m => AccelKey -> [Gdk.ModifierType] -> m () -accelKeyWriteAccelMods s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 4) (val' :: CUInt) - -data AccelKeyAccelModsFieldInfo -instance AttrInfo AccelKeyAccelModsFieldInfo where - type AttrAllowedOps AccelKeyAccelModsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AccelKeyAccelModsFieldInfo = (~) [Gdk.ModifierType] - type AttrBaseTypeConstraint AccelKeyAccelModsFieldInfo = (~) AccelKey - type AttrGetType AccelKeyAccelModsFieldInfo = [Gdk.ModifierType] - type AttrLabel AccelKeyAccelModsFieldInfo = "accel_mods" - attrGet _ = accelKeyReadAccelMods - attrSet _ = accelKeyWriteAccelMods - attrConstruct = undefined - attrClear _ = undefined - -accelKeyAccelMods :: AttrLabelProxy "accelMods" -accelKeyAccelMods = AttrLabelProxy - - -accelKeyReadAccelFlags :: MonadIO m => AccelKey -> m Word32 -accelKeyReadAccelFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -accelKeyWriteAccelFlags :: MonadIO m => AccelKey -> Word32 -> m () -accelKeyWriteAccelFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data AccelKeyAccelFlagsFieldInfo -instance AttrInfo AccelKeyAccelFlagsFieldInfo where - type AttrAllowedOps AccelKeyAccelFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AccelKeyAccelFlagsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint AccelKeyAccelFlagsFieldInfo = (~) AccelKey - type AttrGetType AccelKeyAccelFlagsFieldInfo = Word32 - type AttrLabel AccelKeyAccelFlagsFieldInfo = "accel_flags" - attrGet _ = accelKeyReadAccelFlags - attrSet _ = accelKeyWriteAccelFlags - attrConstruct = undefined - attrClear _ = undefined - -accelKeyAccelFlags :: AttrLabelProxy "accelFlags" -accelKeyAccelFlags = AttrLabelProxy - - - -type instance AttributeList AccelKey = AccelKeyAttributeList -type AccelKeyAttributeList = ('[ '("accelKey", AccelKeyAccelKeyFieldInfo), '("accelMods", AccelKeyAccelModsFieldInfo), '("accelFlags", AccelKeyAccelFlagsFieldInfo)] :: [(Symbol, *)]) - -type family ResolveAccelKeyMethod (t :: Symbol) (o :: *) :: * where - ResolveAccelKeyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAccelKeyMethod t AccelKey, MethodInfo info AccelKey p) => IsLabelProxy t (AccelKey -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAccelKeyMethod t AccelKey, MethodInfo info AccelKey p) => IsLabel t (AccelKey -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/AccelKey.hs-boot b/GI/Gtk/Structs/AccelKey.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/AccelKey.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.AccelKey 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 AccelKey = AccelKey (ForeignPtr AccelKey) -instance WrappedPtr AccelKey where diff --git a/GI/Gtk/Structs/ActionEntry.hs b/GI/Gtk/Structs/ActionEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/ActionEntry.hs +++ /dev/null @@ -1,267 +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) - -#GtkActionEntry structs are used with gtk_action_group_add_actions() to -construct actions. --} - -module GI.Gtk.Structs.ActionEntry - ( - --- * Exported types - ActionEntry(..) , - newZeroActionEntry , - noActionEntry , - - - -- * Properties --- ** Accelerator - actionEntryAccelerator , - actionEntryClearAccelerator , - actionEntryReadAccelerator , - actionEntryWriteAccelerator , - - --- ** Label - actionEntryClearLabel , - actionEntryLabel , - actionEntryReadLabel , - actionEntryWriteLabel , - - --- ** Name - actionEntryClearName , - actionEntryName , - actionEntryReadName , - actionEntryWriteName , - - --- ** StockId - actionEntryClearStockId , - actionEntryReadStockId , - actionEntryStockId , - actionEntryWriteStockId , - - --- ** Tooltip - actionEntryClearTooltip , - actionEntryReadTooltip , - actionEntryTooltip , - actionEntryWriteTooltip , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) -instance WrappedPtr ActionEntry where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionEntry` struct initialized to zero. -newZeroActionEntry :: MonadIO m => m ActionEntry -newZeroActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionEntry - -instance tag ~ 'AttrSet => Constructible ActionEntry tag where - new _ attrs = do - o <- newZeroActionEntry - GI.Attributes.set o attrs - return o - - -noActionEntry :: Maybe ActionEntry -noActionEntry = Nothing - -actionEntryReadName :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadName 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 - -actionEntryWriteName :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -actionEntryClearName :: MonadIO m => ActionEntry -> m () -actionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data ActionEntryNameFieldInfo -instance AttrInfo ActionEntryNameFieldInfo where - type AttrAllowedOps ActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryNameFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryNameFieldInfo = Maybe T.Text - type AttrLabel ActionEntryNameFieldInfo = "name" - attrGet _ = actionEntryReadName - attrSet _ = actionEntryWriteName - attrConstruct = undefined - attrClear _ = actionEntryClearName - -actionEntryName :: AttrLabelProxy "name" -actionEntryName = AttrLabelProxy - - -actionEntryReadStockId :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadStockId 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 - -actionEntryWriteStockId :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionEntryClearStockId :: MonadIO m => ActionEntry -> m () -actionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionEntryStockIdFieldInfo -instance AttrInfo ActionEntryStockIdFieldInfo where - type AttrAllowedOps ActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryStockIdFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryStockIdFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryStockIdFieldInfo = Maybe T.Text - type AttrLabel ActionEntryStockIdFieldInfo = "stock_id" - attrGet _ = actionEntryReadStockId - attrSet _ = actionEntryWriteStockId - attrConstruct = undefined - attrClear _ = actionEntryClearStockId - -actionEntryStockId :: AttrLabelProxy "stockId" -actionEntryStockId = AttrLabelProxy - - -actionEntryReadLabel :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadLabel 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 - -actionEntryWriteLabel :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionEntryClearLabel :: MonadIO m => ActionEntry -> m () -actionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionEntryLabelFieldInfo -instance AttrInfo ActionEntryLabelFieldInfo where - type AttrAllowedOps ActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryLabelFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryLabelFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryLabelFieldInfo = Maybe T.Text - type AttrLabel ActionEntryLabelFieldInfo = "label" - attrGet _ = actionEntryReadLabel - attrSet _ = actionEntryWriteLabel - attrConstruct = undefined - attrClear _ = actionEntryClearLabel - -actionEntryLabel :: AttrLabelProxy "label" -actionEntryLabel = AttrLabelProxy - - -actionEntryReadAccelerator :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadAccelerator 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 - -actionEntryWriteAccelerator :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -actionEntryClearAccelerator :: MonadIO m => ActionEntry -> m () -actionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data ActionEntryAcceleratorFieldInfo -instance AttrInfo ActionEntryAcceleratorFieldInfo where - type AttrAllowedOps ActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryAcceleratorFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryAcceleratorFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryAcceleratorFieldInfo = Maybe T.Text - type AttrLabel ActionEntryAcceleratorFieldInfo = "accelerator" - attrGet _ = actionEntryReadAccelerator - attrSet _ = actionEntryWriteAccelerator - attrConstruct = undefined - attrClear _ = actionEntryClearAccelerator - -actionEntryAccelerator :: AttrLabelProxy "accelerator" -actionEntryAccelerator = AttrLabelProxy - - -actionEntryReadTooltip :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionEntryWriteTooltip :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -actionEntryClearTooltip :: MonadIO m => ActionEntry -> m () -actionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data ActionEntryTooltipFieldInfo -instance AttrInfo ActionEntryTooltipFieldInfo where - type AttrAllowedOps ActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryTooltipFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryTooltipFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryTooltipFieldInfo = Maybe T.Text - type AttrLabel ActionEntryTooltipFieldInfo = "tooltip" - attrGet _ = actionEntryReadTooltip - attrSet _ = actionEntryWriteTooltip - attrConstruct = undefined - attrClear _ = actionEntryClearTooltip - -actionEntryTooltip :: AttrLabelProxy "tooltip" -actionEntryTooltip = AttrLabelProxy - - --- XXX Skipped attribute for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList ActionEntry = ActionEntryAttributeList -type ActionEntryAttributeList = ('[ '("name", ActionEntryNameFieldInfo), '("stockId", ActionEntryStockIdFieldInfo), '("label", ActionEntryLabelFieldInfo), '("accelerator", ActionEntryAcceleratorFieldInfo), '("tooltip", ActionEntryTooltipFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveActionEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabelProxy t (ActionEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabel t (ActionEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/ActionEntry.hs-boot b/GI/Gtk/Structs/ActionEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/ActionEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.ActionEntry 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 ActionEntry = ActionEntry (ForeignPtr ActionEntry) -instance WrappedPtr ActionEntry where diff --git a/GI/Gtk/Structs/BindingArg.hs b/GI/Gtk/Structs/BindingArg.hs deleted file mode 100644 --- a/GI/Gtk/Structs/BindingArg.hs +++ /dev/null @@ -1,105 +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 #GtkBindingArg holds the data associated with -an argument for a key binding signal emission as -stored in #GtkBindingSignal. --} - -module GI.Gtk.Structs.BindingArg - ( - --- * Exported types - BindingArg(..) , - newZeroBindingArg , - noBindingArg , - - - -- * Properties --- ** ArgType - bindingArgArgType , - bindingArgReadArgType , - bindingArgWriteArgType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype BindingArg = BindingArg (ForeignPtr BindingArg) -instance WrappedPtr BindingArg where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `BindingArg` struct initialized to zero. -newZeroBindingArg :: MonadIO m => m BindingArg -newZeroBindingArg = liftIO $ wrappedPtrCalloc >>= wrapPtr BindingArg - -instance tag ~ 'AttrSet => Constructible BindingArg tag where - new _ attrs = do - o <- newZeroBindingArg - GI.Attributes.set o attrs - return o - - -noBindingArg :: Maybe BindingArg -noBindingArg = Nothing - -bindingArgReadArgType :: MonadIO m => BindingArg -> m GType -bindingArgReadArgType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CGType - let val' = GType val - return val' - -bindingArgWriteArgType :: MonadIO m => BindingArg -> GType -> m () -bindingArgWriteArgType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gtypeToCGType val - poke (ptr `plusPtr` 0) (val' :: CGType) - -data BindingArgArgTypeFieldInfo -instance AttrInfo BindingArgArgTypeFieldInfo where - type AttrAllowedOps BindingArgArgTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingArgArgTypeFieldInfo = (~) GType - type AttrBaseTypeConstraint BindingArgArgTypeFieldInfo = (~) BindingArg - type AttrGetType BindingArgArgTypeFieldInfo = GType - type AttrLabel BindingArgArgTypeFieldInfo = "arg_type" - attrGet _ = bindingArgReadArgType - attrSet _ = bindingArgWriteArgType - attrConstruct = undefined - attrClear _ = undefined - -bindingArgArgType :: AttrLabelProxy "argType" -bindingArgArgType = AttrLabelProxy - - - -type instance AttributeList BindingArg = BindingArgAttributeList -type BindingArgAttributeList = ('[ '("argType", BindingArgArgTypeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveBindingArgMethod (t :: Symbol) (o :: *) :: * where - ResolveBindingArgMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBindingArgMethod t BindingArg, MethodInfo info BindingArg p) => IsLabelProxy t (BindingArg -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBindingArgMethod t BindingArg, MethodInfo info BindingArg p) => IsLabel t (BindingArg -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/BindingArg.hs-boot b/GI/Gtk/Structs/BindingArg.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/BindingArg.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.BindingArg 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 BindingArg = BindingArg (ForeignPtr BindingArg) -instance WrappedPtr BindingArg where diff --git a/GI/Gtk/Structs/BindingEntry.hs b/GI/Gtk/Structs/BindingEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/BindingEntry.hs +++ /dev/null @@ -1,527 +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) - -Each key binding element of a binding sets binding list is -represented by a GtkBindingEntry. --} - -module GI.Gtk.Structs.BindingEntry - ( - --- * Exported types - BindingEntry(..) , - newZeroBindingEntry , - noBindingEntry , - - - -- * Methods --- ** bindingEntryAddSignalFromString - bindingEntryAddSignalFromString , - - --- ** bindingEntryAddSignall - bindingEntryAddSignall , - - --- ** bindingEntryRemove - bindingEntryRemove , - - --- ** bindingEntrySkip - bindingEntrySkip , - - - - - -- * Properties --- ** BindingSet - bindingEntryBindingSet , - bindingEntryClearBindingSet , - bindingEntryReadBindingSet , - bindingEntryWriteBindingSet , - - --- ** Destroyed - bindingEntryDestroyed , - bindingEntryReadDestroyed , - bindingEntryWriteDestroyed , - - --- ** HashNext - bindingEntryClearHashNext , - bindingEntryHashNext , - bindingEntryReadHashNext , - bindingEntryWriteHashNext , - - --- ** InEmission - bindingEntryInEmission , - bindingEntryReadInEmission , - bindingEntryWriteInEmission , - - --- ** Keyval - bindingEntryKeyval , - bindingEntryReadKeyval , - bindingEntryWriteKeyval , - - --- ** MarksUnbound - bindingEntryMarksUnbound , - bindingEntryReadMarksUnbound , - bindingEntryWriteMarksUnbound , - - --- ** Modifiers - bindingEntryModifiers , - bindingEntryReadModifiers , - bindingEntryWriteModifiers , - - --- ** SetNext - bindingEntryClearSetNext , - bindingEntryReadSetNext , - bindingEntrySetNext , - bindingEntryWriteSetNext , - - --- ** Signals - bindingEntryClearSignals , - bindingEntryReadSignals , - bindingEntrySignals , - bindingEntryWriteSignals , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.Gdk as Gdk - -newtype BindingEntry = BindingEntry (ForeignPtr BindingEntry) -instance WrappedPtr BindingEntry where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `BindingEntry` struct initialized to zero. -newZeroBindingEntry :: MonadIO m => m BindingEntry -newZeroBindingEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr BindingEntry - -instance tag ~ 'AttrSet => Constructible BindingEntry tag where - new _ attrs = do - o <- newZeroBindingEntry - GI.Attributes.set o attrs - return o - - -noBindingEntry :: Maybe BindingEntry -noBindingEntry = Nothing - -bindingEntryReadKeyval :: MonadIO m => BindingEntry -> m Word32 -bindingEntryReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -bindingEntryWriteKeyval :: MonadIO m => BindingEntry -> Word32 -> m () -bindingEntryWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data BindingEntryKeyvalFieldInfo -instance AttrInfo BindingEntryKeyvalFieldInfo where - type AttrAllowedOps BindingEntryKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingEntryKeyvalFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingEntryKeyvalFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryKeyvalFieldInfo = Word32 - type AttrLabel BindingEntryKeyvalFieldInfo = "keyval" - attrGet _ = bindingEntryReadKeyval - attrSet _ = bindingEntryWriteKeyval - attrConstruct = undefined - attrClear _ = undefined - -bindingEntryKeyval :: AttrLabelProxy "keyval" -bindingEntryKeyval = AttrLabelProxy - - -bindingEntryReadModifiers :: MonadIO m => BindingEntry -> m [Gdk.ModifierType] -bindingEntryReadModifiers s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CUInt - let val' = wordToGFlags val - return val' - -bindingEntryWriteModifiers :: MonadIO m => BindingEntry -> [Gdk.ModifierType] -> m () -bindingEntryWriteModifiers s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 4) (val' :: CUInt) - -data BindingEntryModifiersFieldInfo -instance AttrInfo BindingEntryModifiersFieldInfo where - type AttrAllowedOps BindingEntryModifiersFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingEntryModifiersFieldInfo = (~) [Gdk.ModifierType] - type AttrBaseTypeConstraint BindingEntryModifiersFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryModifiersFieldInfo = [Gdk.ModifierType] - type AttrLabel BindingEntryModifiersFieldInfo = "modifiers" - attrGet _ = bindingEntryReadModifiers - attrSet _ = bindingEntryWriteModifiers - attrConstruct = undefined - attrClear _ = undefined - -bindingEntryModifiers :: AttrLabelProxy "modifiers" -bindingEntryModifiers = AttrLabelProxy - - -bindingEntryReadBindingSet :: MonadIO m => BindingEntry -> m (Maybe BindingSet) -bindingEntryReadBindingSet s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr BindingSet) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingSet) val' - return val'' - return result - -bindingEntryWriteBindingSet :: MonadIO m => BindingEntry -> Ptr BindingSet -> m () -bindingEntryWriteBindingSet s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr BindingSet) - -bindingEntryClearBindingSet :: MonadIO m => BindingEntry -> m () -bindingEntryClearBindingSet s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr BindingSet) - -data BindingEntryBindingSetFieldInfo -instance AttrInfo BindingEntryBindingSetFieldInfo where - type AttrAllowedOps BindingEntryBindingSetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingEntryBindingSetFieldInfo = (~) (Ptr BindingSet) - type AttrBaseTypeConstraint BindingEntryBindingSetFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryBindingSetFieldInfo = Maybe BindingSet - type AttrLabel BindingEntryBindingSetFieldInfo = "binding_set" - attrGet _ = bindingEntryReadBindingSet - attrSet _ = bindingEntryWriteBindingSet - attrConstruct = undefined - attrClear _ = bindingEntryClearBindingSet - -bindingEntryBindingSet :: AttrLabelProxy "bindingSet" -bindingEntryBindingSet = AttrLabelProxy - - -bindingEntryReadDestroyed :: MonadIO m => BindingEntry -> m Word32 -bindingEntryReadDestroyed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -bindingEntryWriteDestroyed :: MonadIO m => BindingEntry -> Word32 -> m () -bindingEntryWriteDestroyed s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data BindingEntryDestroyedFieldInfo -instance AttrInfo BindingEntryDestroyedFieldInfo where - type AttrAllowedOps BindingEntryDestroyedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingEntryDestroyedFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingEntryDestroyedFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryDestroyedFieldInfo = Word32 - type AttrLabel BindingEntryDestroyedFieldInfo = "destroyed" - attrGet _ = bindingEntryReadDestroyed - attrSet _ = bindingEntryWriteDestroyed - attrConstruct = undefined - attrClear _ = undefined - -bindingEntryDestroyed :: AttrLabelProxy "destroyed" -bindingEntryDestroyed = AttrLabelProxy - - -bindingEntryReadInEmission :: MonadIO m => BindingEntry -> m Word32 -bindingEntryReadInEmission s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -bindingEntryWriteInEmission :: MonadIO m => BindingEntry -> Word32 -> m () -bindingEntryWriteInEmission s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data BindingEntryInEmissionFieldInfo -instance AttrInfo BindingEntryInEmissionFieldInfo where - type AttrAllowedOps BindingEntryInEmissionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingEntryInEmissionFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingEntryInEmissionFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryInEmissionFieldInfo = Word32 - type AttrLabel BindingEntryInEmissionFieldInfo = "in_emission" - attrGet _ = bindingEntryReadInEmission - attrSet _ = bindingEntryWriteInEmission - attrConstruct = undefined - attrClear _ = undefined - -bindingEntryInEmission :: AttrLabelProxy "inEmission" -bindingEntryInEmission = AttrLabelProxy - - -bindingEntryReadMarksUnbound :: MonadIO m => BindingEntry -> m Word32 -bindingEntryReadMarksUnbound s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -bindingEntryWriteMarksUnbound :: MonadIO m => BindingEntry -> Word32 -> m () -bindingEntryWriteMarksUnbound s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Word32) - -data BindingEntryMarksUnboundFieldInfo -instance AttrInfo BindingEntryMarksUnboundFieldInfo where - type AttrAllowedOps BindingEntryMarksUnboundFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingEntryMarksUnboundFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingEntryMarksUnboundFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryMarksUnboundFieldInfo = Word32 - type AttrLabel BindingEntryMarksUnboundFieldInfo = "marks_unbound" - attrGet _ = bindingEntryReadMarksUnbound - attrSet _ = bindingEntryWriteMarksUnbound - attrConstruct = undefined - attrClear _ = undefined - -bindingEntryMarksUnbound :: AttrLabelProxy "marksUnbound" -bindingEntryMarksUnbound = AttrLabelProxy - - -bindingEntryReadSetNext :: MonadIO m => BindingEntry -> m (Maybe BindingEntry) -bindingEntryReadSetNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr BindingEntry) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingEntry) val' - return val'' - return result - -bindingEntryWriteSetNext :: MonadIO m => BindingEntry -> Ptr BindingEntry -> m () -bindingEntryWriteSetNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr BindingEntry) - -bindingEntryClearSetNext :: MonadIO m => BindingEntry -> m () -bindingEntryClearSetNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr BindingEntry) - -data BindingEntrySetNextFieldInfo -instance AttrInfo BindingEntrySetNextFieldInfo where - type AttrAllowedOps BindingEntrySetNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingEntrySetNextFieldInfo = (~) (Ptr BindingEntry) - type AttrBaseTypeConstraint BindingEntrySetNextFieldInfo = (~) BindingEntry - type AttrGetType BindingEntrySetNextFieldInfo = Maybe BindingEntry - type AttrLabel BindingEntrySetNextFieldInfo = "set_next" - attrGet _ = bindingEntryReadSetNext - attrSet _ = bindingEntryWriteSetNext - attrConstruct = undefined - attrClear _ = bindingEntryClearSetNext - -bindingEntrySetNext :: AttrLabelProxy "setNext" -bindingEntrySetNext = AttrLabelProxy - - -bindingEntryReadHashNext :: MonadIO m => BindingEntry -> m (Maybe BindingEntry) -bindingEntryReadHashNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingEntry) val' - return val'' - return result - -bindingEntryWriteHashNext :: MonadIO m => BindingEntry -> Ptr BindingEntry -> m () -bindingEntryWriteHashNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr BindingEntry) - -bindingEntryClearHashNext :: MonadIO m => BindingEntry -> m () -bindingEntryClearHashNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr BindingEntry) - -data BindingEntryHashNextFieldInfo -instance AttrInfo BindingEntryHashNextFieldInfo where - type AttrAllowedOps BindingEntryHashNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingEntryHashNextFieldInfo = (~) (Ptr BindingEntry) - type AttrBaseTypeConstraint BindingEntryHashNextFieldInfo = (~) BindingEntry - type AttrGetType BindingEntryHashNextFieldInfo = Maybe BindingEntry - type AttrLabel BindingEntryHashNextFieldInfo = "hash_next" - attrGet _ = bindingEntryReadHashNext - attrSet _ = bindingEntryWriteHashNext - attrConstruct = undefined - attrClear _ = bindingEntryClearHashNext - -bindingEntryHashNext :: AttrLabelProxy "hashNext" -bindingEntryHashNext = AttrLabelProxy - - -bindingEntryReadSignals :: MonadIO m => BindingEntry -> m (Maybe BindingSignal) -bindingEntryReadSignals s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingSignal) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingSignal) val' - return val'' - return result - -bindingEntryWriteSignals :: MonadIO m => BindingEntry -> Ptr BindingSignal -> m () -bindingEntryWriteSignals s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr BindingSignal) - -bindingEntryClearSignals :: MonadIO m => BindingEntry -> m () -bindingEntryClearSignals s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr BindingSignal) - -data BindingEntrySignalsFieldInfo -instance AttrInfo BindingEntrySignalsFieldInfo where - type AttrAllowedOps BindingEntrySignalsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingEntrySignalsFieldInfo = (~) (Ptr BindingSignal) - type AttrBaseTypeConstraint BindingEntrySignalsFieldInfo = (~) BindingEntry - type AttrGetType BindingEntrySignalsFieldInfo = Maybe BindingSignal - type AttrLabel BindingEntrySignalsFieldInfo = "signals" - attrGet _ = bindingEntryReadSignals - attrSet _ = bindingEntryWriteSignals - attrConstruct = undefined - attrClear _ = bindingEntryClearSignals - -bindingEntrySignals :: AttrLabelProxy "signals" -bindingEntrySignals = AttrLabelProxy - - - -type instance AttributeList BindingEntry = BindingEntryAttributeList -type BindingEntryAttributeList = ('[ '("keyval", BindingEntryKeyvalFieldInfo), '("modifiers", BindingEntryModifiersFieldInfo), '("bindingSet", BindingEntryBindingSetFieldInfo), '("destroyed", BindingEntryDestroyedFieldInfo), '("inEmission", BindingEntryInEmissionFieldInfo), '("marksUnbound", BindingEntryMarksUnboundFieldInfo), '("setNext", BindingEntrySetNextFieldInfo), '("hashNext", BindingEntryHashNextFieldInfo), '("signals", BindingEntrySignalsFieldInfo)] :: [(Symbol, *)]) - --- method BindingEntry::add_signal_from_string --- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "TokenType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_binding_entry_add_signal_from_string" gtk_binding_entry_add_signal_from_string :: - Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - CString -> -- signal_desc : TBasicType TUTF8 - IO CUInt - - -bindingEntryAddSignalFromString :: - (MonadIO m) => - BindingSet -- bindingSet - -> T.Text -- signalDesc - -> m GLib.TokenType -- result -bindingEntryAddSignalFromString bindingSet signalDesc = liftIO $ do - let bindingSet' = unsafeManagedPtrGetPtr bindingSet - signalDesc' <- textToCString signalDesc - result <- gtk_binding_entry_add_signal_from_string bindingSet' signalDesc' - let result' = (toEnum . fromIntegral) result - touchManagedPtr bindingSet - freeMem signalDesc' - return result' - --- method BindingEntry::add_signall --- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), 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 "gtk_binding_entry_add_signall" gtk_binding_entry_add_signall :: - Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - CString -> -- signal_name : TBasicType TUTF8 - Ptr (GSList (Ptr BindingArg)) -> -- binding_args : TGSList (TInterface "Gtk" "BindingArg") - IO () - - -bindingEntryAddSignall :: - (MonadIO m) => - BindingSet -- bindingSet - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> T.Text -- signalName - -> [BindingArg] -- bindingArgs - -> m () -- result -bindingEntryAddSignall bindingSet keyval modifiers signalName bindingArgs = liftIO $ do - let bindingSet' = unsafeManagedPtrGetPtr bindingSet - let modifiers' = gflagsToWord modifiers - signalName' <- textToCString signalName - let bindingArgs' = map unsafeManagedPtrGetPtr bindingArgs - bindingArgs'' <- packGSList bindingArgs' - gtk_binding_entry_add_signall bindingSet' keyval modifiers' signalName' bindingArgs'' - touchManagedPtr bindingSet - mapM_ touchManagedPtr bindingArgs - freeMem signalName' - g_slist_free bindingArgs'' - return () - --- method BindingEntry::remove --- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_binding_entry_remove" gtk_binding_entry_remove :: - Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO () - - -bindingEntryRemove :: - (MonadIO m) => - BindingSet -- bindingSet - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> m () -- result -bindingEntryRemove bindingSet keyval modifiers = liftIO $ do - let bindingSet' = unsafeManagedPtrGetPtr bindingSet - let modifiers' = gflagsToWord modifiers - gtk_binding_entry_remove bindingSet' keyval modifiers' - touchManagedPtr bindingSet - return () - --- method BindingEntry::skip --- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", 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 "gtk_binding_entry_skip" gtk_binding_entry_skip :: - Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO () - - -bindingEntrySkip :: - (MonadIO m) => - BindingSet -- bindingSet - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> m () -- result -bindingEntrySkip bindingSet keyval modifiers = liftIO $ do - let bindingSet' = unsafeManagedPtrGetPtr bindingSet - let modifiers' = gflagsToWord modifiers - gtk_binding_entry_skip bindingSet' keyval modifiers' - touchManagedPtr bindingSet - return () - -type family ResolveBindingEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveBindingEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBindingEntryMethod t BindingEntry, MethodInfo info BindingEntry p) => IsLabelProxy t (BindingEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBindingEntryMethod t BindingEntry, MethodInfo info BindingEntry p) => IsLabel t (BindingEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/BindingEntry.hs-boot b/GI/Gtk/Structs/BindingEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/BindingEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.BindingEntry 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 BindingEntry = BindingEntry (ForeignPtr BindingEntry) -instance WrappedPtr BindingEntry where diff --git a/GI/Gtk/Structs/BindingSet.hs b/GI/Gtk/Structs/BindingSet.hs deleted file mode 100644 --- a/GI/Gtk/Structs/BindingSet.hs +++ /dev/null @@ -1,485 +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 binding set maintains a list of activatable key bindings. -A single binding set can match multiple types of widgets. -Similar to style contexts, can be matched by any information contained -in a widgets #GtkWidgetPath. When a binding within a set is matched upon -activation, an action signal is emitted on the target widget to carry out -the actual activation. --} - -module GI.Gtk.Structs.BindingSet - ( - --- * Exported types - BindingSet(..) , - newZeroBindingSet , - noBindingSet , - - - -- * Methods --- ** bindingSetActivate - BindingSetActivateMethodInfo , - bindingSetActivate , - - --- ** bindingSetAddPath - BindingSetAddPathMethodInfo , - bindingSetAddPath , - - --- ** bindingSetFind - bindingSetFind , - - - - - -- * Properties --- ** ClassBranchPspecs - bindingSetClassBranchPspecs , - bindingSetClearClassBranchPspecs , - bindingSetReadClassBranchPspecs , - bindingSetWriteClassBranchPspecs , - - --- ** Current - bindingSetClearCurrent , - bindingSetCurrent , - bindingSetReadCurrent , - bindingSetWriteCurrent , - - --- ** Entries - bindingSetClearEntries , - bindingSetEntries , - bindingSetReadEntries , - bindingSetWriteEntries , - - --- ** Parsed - bindingSetParsed , - bindingSetReadParsed , - bindingSetWriteParsed , - - --- ** Priority - bindingSetPriority , - bindingSetReadPriority , - bindingSetWritePriority , - - --- ** SetName - bindingSetClearSetName , - bindingSetReadSetName , - bindingSetSetName , - bindingSetWriteSetName , - - --- ** WidgetClassPspecs - bindingSetClearWidgetClassPspecs , - bindingSetReadWidgetClassPspecs , - bindingSetWidgetClassPspecs , - bindingSetWriteWidgetClassPspecs , - - --- ** WidgetPathPspecs - bindingSetClearWidgetPathPspecs , - bindingSetReadWidgetPathPspecs , - bindingSetWidgetPathPspecs , - bindingSetWriteWidgetPathPspecs , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype BindingSet = BindingSet (ForeignPtr BindingSet) -instance WrappedPtr BindingSet where - wrappedPtrCalloc = callocBytes 64 - wrappedPtrCopy = copyPtr 64 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `BindingSet` struct initialized to zero. -newZeroBindingSet :: MonadIO m => m BindingSet -newZeroBindingSet = liftIO $ wrappedPtrCalloc >>= wrapPtr BindingSet - -instance tag ~ 'AttrSet => Constructible BindingSet tag where - new _ attrs = do - o <- newZeroBindingSet - GI.Attributes.set o attrs - return o - - -noBindingSet :: Maybe BindingSet -noBindingSet = Nothing - -bindingSetReadSetName :: MonadIO m => BindingSet -> m (Maybe T.Text) -bindingSetReadSetName 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 - -bindingSetWriteSetName :: MonadIO m => BindingSet -> CString -> m () -bindingSetWriteSetName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -bindingSetClearSetName :: MonadIO m => BindingSet -> m () -bindingSetClearSetName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data BindingSetSetNameFieldInfo -instance AttrInfo BindingSetSetNameFieldInfo where - type AttrAllowedOps BindingSetSetNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetSetNameFieldInfo = (~) CString - type AttrBaseTypeConstraint BindingSetSetNameFieldInfo = (~) BindingSet - type AttrGetType BindingSetSetNameFieldInfo = Maybe T.Text - type AttrLabel BindingSetSetNameFieldInfo = "set_name" - attrGet _ = bindingSetReadSetName - attrSet _ = bindingSetWriteSetName - attrConstruct = undefined - attrClear _ = bindingSetClearSetName - -bindingSetSetName :: AttrLabelProxy "setName" -bindingSetSetName = AttrLabelProxy - - -bindingSetReadPriority :: MonadIO m => BindingSet -> m Int32 -bindingSetReadPriority s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -bindingSetWritePriority :: MonadIO m => BindingSet -> Int32 -> m () -bindingSetWritePriority s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data BindingSetPriorityFieldInfo -instance AttrInfo BindingSetPriorityFieldInfo where - type AttrAllowedOps BindingSetPriorityFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingSetPriorityFieldInfo = (~) Int32 - type AttrBaseTypeConstraint BindingSetPriorityFieldInfo = (~) BindingSet - type AttrGetType BindingSetPriorityFieldInfo = Int32 - type AttrLabel BindingSetPriorityFieldInfo = "priority" - attrGet _ = bindingSetReadPriority - attrSet _ = bindingSetWritePriority - attrConstruct = undefined - attrClear _ = undefined - -bindingSetPriority :: AttrLabelProxy "priority" -bindingSetPriority = AttrLabelProxy - - -bindingSetReadWidgetPathPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) -bindingSetReadWidgetPathPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetWriteWidgetPathPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () -bindingSetWriteWidgetPathPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (GSList (Ptr ()))) - -bindingSetClearWidgetPathPspecs :: MonadIO m => BindingSet -> m () -bindingSetClearWidgetPathPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GSList (Ptr ()))) - -data BindingSetWidgetPathPspecsFieldInfo -instance AttrInfo BindingSetWidgetPathPspecsFieldInfo where - type AttrAllowedOps BindingSetWidgetPathPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) - type AttrBaseTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) BindingSet - type AttrGetType BindingSetWidgetPathPspecsFieldInfo = [Ptr ()] - type AttrLabel BindingSetWidgetPathPspecsFieldInfo = "widget_path_pspecs" - attrGet _ = bindingSetReadWidgetPathPspecs - attrSet _ = bindingSetWriteWidgetPathPspecs - attrConstruct = undefined - attrClear _ = bindingSetClearWidgetPathPspecs - -bindingSetWidgetPathPspecs :: AttrLabelProxy "widgetPathPspecs" -bindingSetWidgetPathPspecs = AttrLabelProxy - - -bindingSetReadWidgetClassPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) -bindingSetReadWidgetClassPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetWriteWidgetClassPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () -bindingSetWriteWidgetClassPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (GSList (Ptr ()))) - -bindingSetClearWidgetClassPspecs :: MonadIO m => BindingSet -> m () -bindingSetClearWidgetClassPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (GSList (Ptr ()))) - -data BindingSetWidgetClassPspecsFieldInfo -instance AttrInfo BindingSetWidgetClassPspecsFieldInfo where - type AttrAllowedOps BindingSetWidgetClassPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) - type AttrBaseTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) BindingSet - type AttrGetType BindingSetWidgetClassPspecsFieldInfo = [Ptr ()] - type AttrLabel BindingSetWidgetClassPspecsFieldInfo = "widget_class_pspecs" - attrGet _ = bindingSetReadWidgetClassPspecs - attrSet _ = bindingSetWriteWidgetClassPspecs - attrConstruct = undefined - attrClear _ = bindingSetClearWidgetClassPspecs - -bindingSetWidgetClassPspecs :: AttrLabelProxy "widgetClassPspecs" -bindingSetWidgetClassPspecs = AttrLabelProxy - - -bindingSetReadClassBranchPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) -bindingSetReadClassBranchPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetWriteClassBranchPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () -bindingSetWriteClassBranchPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr (GSList (Ptr ()))) - -bindingSetClearClassBranchPspecs :: MonadIO m => BindingSet -> m () -bindingSetClearClassBranchPspecs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr (GSList (Ptr ()))) - -data BindingSetClassBranchPspecsFieldInfo -instance AttrInfo BindingSetClassBranchPspecsFieldInfo where - type AttrAllowedOps BindingSetClassBranchPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) - type AttrBaseTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) BindingSet - type AttrGetType BindingSetClassBranchPspecsFieldInfo = [Ptr ()] - type AttrLabel BindingSetClassBranchPspecsFieldInfo = "class_branch_pspecs" - attrGet _ = bindingSetReadClassBranchPspecs - attrSet _ = bindingSetWriteClassBranchPspecs - attrConstruct = undefined - attrClear _ = bindingSetClearClassBranchPspecs - -bindingSetClassBranchPspecs :: AttrLabelProxy "classBranchPspecs" -bindingSetClassBranchPspecs = AttrLabelProxy - - -bindingSetReadEntries :: MonadIO m => BindingSet -> m (Maybe BindingEntry) -bindingSetReadEntries s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingEntry) val' - return val'' - return result - -bindingSetWriteEntries :: MonadIO m => BindingSet -> Ptr BindingEntry -> m () -bindingSetWriteEntries s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr BindingEntry) - -bindingSetClearEntries :: MonadIO m => BindingSet -> m () -bindingSetClearEntries s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr BindingEntry) - -data BindingSetEntriesFieldInfo -instance AttrInfo BindingSetEntriesFieldInfo where - type AttrAllowedOps BindingSetEntriesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetEntriesFieldInfo = (~) (Ptr BindingEntry) - type AttrBaseTypeConstraint BindingSetEntriesFieldInfo = (~) BindingSet - type AttrGetType BindingSetEntriesFieldInfo = Maybe BindingEntry - type AttrLabel BindingSetEntriesFieldInfo = "entries" - attrGet _ = bindingSetReadEntries - attrSet _ = bindingSetWriteEntries - attrConstruct = undefined - attrClear _ = bindingSetClearEntries - -bindingSetEntries :: AttrLabelProxy "entries" -bindingSetEntries = AttrLabelProxy - - -bindingSetReadCurrent :: MonadIO m => BindingSet -> m (Maybe BindingEntry) -bindingSetReadCurrent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingEntry) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingEntry) val' - return val'' - return result - -bindingSetWriteCurrent :: MonadIO m => BindingSet -> Ptr BindingEntry -> m () -bindingSetWriteCurrent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr BindingEntry) - -bindingSetClearCurrent :: MonadIO m => BindingSet -> m () -bindingSetClearCurrent s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr BindingEntry) - -data BindingSetCurrentFieldInfo -instance AttrInfo BindingSetCurrentFieldInfo where - type AttrAllowedOps BindingSetCurrentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSetCurrentFieldInfo = (~) (Ptr BindingEntry) - type AttrBaseTypeConstraint BindingSetCurrentFieldInfo = (~) BindingSet - type AttrGetType BindingSetCurrentFieldInfo = Maybe BindingEntry - type AttrLabel BindingSetCurrentFieldInfo = "current" - attrGet _ = bindingSetReadCurrent - attrSet _ = bindingSetWriteCurrent - attrConstruct = undefined - attrClear _ = bindingSetClearCurrent - -bindingSetCurrent :: AttrLabelProxy "current" -bindingSetCurrent = AttrLabelProxy - - -bindingSetReadParsed :: MonadIO m => BindingSet -> m Word32 -bindingSetReadParsed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -bindingSetWriteParsed :: MonadIO m => BindingSet -> Word32 -> m () -bindingSetWriteParsed s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Word32) - -data BindingSetParsedFieldInfo -instance AttrInfo BindingSetParsedFieldInfo where - type AttrAllowedOps BindingSetParsedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingSetParsedFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingSetParsedFieldInfo = (~) BindingSet - type AttrGetType BindingSetParsedFieldInfo = Word32 - type AttrLabel BindingSetParsedFieldInfo = "parsed" - attrGet _ = bindingSetReadParsed - attrSet _ = bindingSetWriteParsed - attrConstruct = undefined - attrClear _ = undefined - -bindingSetParsed :: AttrLabelProxy "parsed" -bindingSetParsed = AttrLabelProxy - - - -type instance AttributeList BindingSet = BindingSetAttributeList -type BindingSetAttributeList = ('[ '("setName", BindingSetSetNameFieldInfo), '("priority", BindingSetPriorityFieldInfo), '("widgetPathPspecs", BindingSetWidgetPathPspecsFieldInfo), '("widgetClassPspecs", BindingSetWidgetClassPspecsFieldInfo), '("classBranchPspecs", BindingSetClassBranchPspecsFieldInfo), '("entries", BindingSetEntriesFieldInfo), '("current", BindingSetCurrentFieldInfo), '("parsed", BindingSetParsedFieldInfo)] :: [(Symbol, *)]) - --- method BindingSet::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "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 "gtk_binding_set_activate" gtk_binding_set_activate :: - Ptr BindingSet -> -- _obj : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - IO CInt - - -bindingSetActivate :: - (MonadIO m, GObject.ObjectK a) => - BindingSet -- _obj - -> Word32 -- keyval - -> [Gdk.ModifierType] -- modifiers - -> a -- object - -> m Bool -- result -bindingSetActivate _obj keyval modifiers object = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let modifiers' = gflagsToWord modifiers - let object' = unsafeManagedPtrCastPtr object - result <- gtk_binding_set_activate _obj' keyval modifiers' object' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr object - return result' - -data BindingSetActivateMethodInfo -instance (signature ~ (Word32 -> [Gdk.ModifierType] -> a -> m Bool), MonadIO m, GObject.ObjectK a) => MethodInfo BindingSetActivateMethodInfo BindingSet signature where - overloadedMethod _ = bindingSetActivate - --- method BindingSet::add_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", 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 "gtk_binding_set_add_path" gtk_binding_set_add_path :: - Ptr BindingSet -> -- _obj : TInterface "Gtk" "BindingSet" - CUInt -> -- path_type : TInterface "Gtk" "PathType" - CString -> -- path_pattern : TBasicType TUTF8 - CUInt -> -- priority : TInterface "Gtk" "PathPriorityType" - IO () - -{-# DEPRECATED bindingSetAddPath ["(Since version 3.0)"]#-} -bindingSetAddPath :: - (MonadIO m) => - BindingSet -- _obj - -> PathType -- pathType - -> T.Text -- pathPattern - -> PathPriorityType -- priority - -> m () -- result -bindingSetAddPath _obj pathType pathPattern priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pathType' = (fromIntegral . fromEnum) pathType - pathPattern' <- textToCString pathPattern - let priority' = (fromIntegral . fromEnum) priority - gtk_binding_set_add_path _obj' pathType' pathPattern' priority' - touchManagedPtr _obj - freeMem pathPattern' - return () - -data BindingSetAddPathMethodInfo -instance (signature ~ (PathType -> T.Text -> PathPriorityType -> m ()), MonadIO m) => MethodInfo BindingSetAddPathMethodInfo BindingSet signature where - overloadedMethod _ = bindingSetAddPath - --- method BindingSet::find --- method type : MemberFunction --- Args : [Arg {argCName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "BindingSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_binding_set_find" gtk_binding_set_find :: - CString -> -- set_name : TBasicType TUTF8 - IO (Ptr BindingSet) - - -bindingSetFind :: - (MonadIO m) => - T.Text -- setName - -> m BindingSet -- result -bindingSetFind setName = liftIO $ do - setName' <- textToCString setName - result <- gtk_binding_set_find setName' - checkUnexpectedReturnNULL "gtk_binding_set_find" result - result' <- (newPtr BindingSet) result - freeMem setName' - return result' - -type family ResolveBindingSetMethod (t :: Symbol) (o :: *) :: * where - ResolveBindingSetMethod "activate" o = BindingSetActivateMethodInfo - ResolveBindingSetMethod "addPath" o = BindingSetAddPathMethodInfo - ResolveBindingSetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBindingSetMethod t BindingSet, MethodInfo info BindingSet p) => IsLabelProxy t (BindingSet -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBindingSetMethod t BindingSet, MethodInfo info BindingSet p) => IsLabel t (BindingSet -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/BindingSet.hs-boot b/GI/Gtk/Structs/BindingSet.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/BindingSet.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Structs.BindingSet 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 BindingSet = BindingSet (ForeignPtr BindingSet) -instance WrappedPtr BindingSet where -data BindingSetActivateMethodInfo -data BindingSetAddPathMethodInfo diff --git a/GI/Gtk/Structs/BindingSignal.hs b/GI/Gtk/Structs/BindingSignal.hs deleted file mode 100644 --- a/GI/Gtk/Structs/BindingSignal.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) - -A GtkBindingSignal stores the necessary information to -activate a widget in response to a key press via a signal -emission. --} - -module GI.Gtk.Structs.BindingSignal - ( - --- * Exported types - BindingSignal(..) , - newZeroBindingSignal , - noBindingSignal , - - - -- * Properties --- ** NArgs - bindingSignalNArgs , - bindingSignalReadNArgs , - bindingSignalWriteNArgs , - - --- ** Next - bindingSignalClearNext , - bindingSignalNext , - bindingSignalReadNext , - bindingSignalWriteNext , - - --- ** SignalName - bindingSignalClearSignalName , - bindingSignalReadSignalName , - bindingSignalSignalName , - bindingSignalWriteSignalName , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype BindingSignal = BindingSignal (ForeignPtr BindingSignal) -instance WrappedPtr BindingSignal where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `BindingSignal` struct initialized to zero. -newZeroBindingSignal :: MonadIO m => m BindingSignal -newZeroBindingSignal = liftIO $ wrappedPtrCalloc >>= wrapPtr BindingSignal - -instance tag ~ 'AttrSet => Constructible BindingSignal tag where - new _ attrs = do - o <- newZeroBindingSignal - GI.Attributes.set o attrs - return o - - -noBindingSignal :: Maybe BindingSignal -noBindingSignal = Nothing - -bindingSignalReadNext :: MonadIO m => BindingSignal -> m (Maybe BindingSignal) -bindingSignalReadNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr BindingSignal) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr BindingSignal) val' - return val'' - return result - -bindingSignalWriteNext :: MonadIO m => BindingSignal -> Ptr BindingSignal -> m () -bindingSignalWriteNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr BindingSignal) - -bindingSignalClearNext :: MonadIO m => BindingSignal -> m () -bindingSignalClearNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr BindingSignal) - -data BindingSignalNextFieldInfo -instance AttrInfo BindingSignalNextFieldInfo where - type AttrAllowedOps BindingSignalNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSignalNextFieldInfo = (~) (Ptr BindingSignal) - type AttrBaseTypeConstraint BindingSignalNextFieldInfo = (~) BindingSignal - type AttrGetType BindingSignalNextFieldInfo = Maybe BindingSignal - type AttrLabel BindingSignalNextFieldInfo = "next" - attrGet _ = bindingSignalReadNext - attrSet _ = bindingSignalWriteNext - attrConstruct = undefined - attrClear _ = bindingSignalClearNext - -bindingSignalNext :: AttrLabelProxy "next" -bindingSignalNext = AttrLabelProxy - - -bindingSignalReadSignalName :: MonadIO m => BindingSignal -> m (Maybe T.Text) -bindingSignalReadSignalName 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 - -bindingSignalWriteSignalName :: MonadIO m => BindingSignal -> CString -> m () -bindingSignalWriteSignalName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -bindingSignalClearSignalName :: MonadIO m => BindingSignal -> m () -bindingSignalClearSignalName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data BindingSignalSignalNameFieldInfo -instance AttrInfo BindingSignalSignalNameFieldInfo where - type AttrAllowedOps BindingSignalSignalNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BindingSignalSignalNameFieldInfo = (~) CString - type AttrBaseTypeConstraint BindingSignalSignalNameFieldInfo = (~) BindingSignal - type AttrGetType BindingSignalSignalNameFieldInfo = Maybe T.Text - type AttrLabel BindingSignalSignalNameFieldInfo = "signal_name" - attrGet _ = bindingSignalReadSignalName - attrSet _ = bindingSignalWriteSignalName - attrConstruct = undefined - attrClear _ = bindingSignalClearSignalName - -bindingSignalSignalName :: AttrLabelProxy "signalName" -bindingSignalSignalName = AttrLabelProxy - - -bindingSignalReadNArgs :: MonadIO m => BindingSignal -> m Word32 -bindingSignalReadNArgs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -bindingSignalWriteNArgs :: MonadIO m => BindingSignal -> Word32 -> m () -bindingSignalWriteNArgs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data BindingSignalNArgsFieldInfo -instance AttrInfo BindingSignalNArgsFieldInfo where - type AttrAllowedOps BindingSignalNArgsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BindingSignalNArgsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint BindingSignalNArgsFieldInfo = (~) BindingSignal - type AttrGetType BindingSignalNArgsFieldInfo = Word32 - type AttrLabel BindingSignalNArgsFieldInfo = "n_args" - attrGet _ = bindingSignalReadNArgs - attrSet _ = bindingSignalWriteNArgs - attrConstruct = undefined - attrClear _ = undefined - -bindingSignalNArgs :: AttrLabelProxy "nArgs" -bindingSignalNArgs = AttrLabelProxy - - --- XXX Skipped attribute for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")" - -type instance AttributeList BindingSignal = BindingSignalAttributeList -type BindingSignalAttributeList = ('[ '("next", BindingSignalNextFieldInfo), '("signalName", BindingSignalSignalNameFieldInfo), '("nArgs", BindingSignalNArgsFieldInfo)] :: [(Symbol, *)]) - -type family ResolveBindingSignalMethod (t :: Symbol) (o :: *) :: * where - ResolveBindingSignalMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBindingSignalMethod t BindingSignal, MethodInfo info BindingSignal p) => IsLabelProxy t (BindingSignal -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBindingSignalMethod t BindingSignal, MethodInfo info BindingSignal p) => IsLabel t (BindingSignal -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/BindingSignal.hs-boot b/GI/Gtk/Structs/BindingSignal.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/BindingSignal.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.BindingSignal 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 BindingSignal = BindingSignal (ForeignPtr BindingSignal) -instance WrappedPtr BindingSignal where diff --git a/GI/Gtk/Structs/Border.hs b/GI/Gtk/Structs/Border.hs deleted file mode 100644 --- a/GI/Gtk/Structs/Border.hs +++ /dev/null @@ -1,292 +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 struct that specifies a border around a rectangular area -that can be of different width on each side. --} - -module GI.Gtk.Structs.Border - ( - --- * Exported types - Border(..) , - newZeroBorder , - noBorder , - - - -- * Methods --- ** borderCopy - BorderCopyMethodInfo , - borderCopy , - - --- ** borderFree - BorderFreeMethodInfo , - borderFree , - - --- ** borderNew - borderNew , - - - - - -- * Properties --- ** Bottom - borderBottom , - borderReadBottom , - borderWriteBottom , - - --- ** Left - borderLeft , - borderReadLeft , - borderWriteLeft , - - --- ** Right - borderReadRight , - borderRight , - borderWriteRight , - - --- ** Top - borderReadTop , - borderTop , - borderWriteTop , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype Border = Border (ForeignPtr Border) -foreign import ccall "gtk_border_get_type" c_gtk_border_get_type :: - IO GType - -instance BoxedObject Border where - boxedType _ = c_gtk_border_get_type - --- | Construct a `Border` struct initialized to zero. -newZeroBorder :: MonadIO m => m Border -newZeroBorder = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Border - -instance tag ~ 'AttrSet => Constructible Border tag where - new _ attrs = do - o <- newZeroBorder - GI.Attributes.set o attrs - return o - - -noBorder :: Maybe Border -noBorder = Nothing - -borderReadLeft :: MonadIO m => Border -> m Int16 -borderReadLeft s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int16 - return val - -borderWriteLeft :: MonadIO m => Border -> Int16 -> m () -borderWriteLeft s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int16) - -data BorderLeftFieldInfo -instance AttrInfo BorderLeftFieldInfo where - type AttrAllowedOps BorderLeftFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BorderLeftFieldInfo = (~) Int16 - type AttrBaseTypeConstraint BorderLeftFieldInfo = (~) Border - type AttrGetType BorderLeftFieldInfo = Int16 - type AttrLabel BorderLeftFieldInfo = "left" - attrGet _ = borderReadLeft - attrSet _ = borderWriteLeft - attrConstruct = undefined - attrClear _ = undefined - -borderLeft :: AttrLabelProxy "left" -borderLeft = AttrLabelProxy - - -borderReadRight :: MonadIO m => Border -> m Int16 -borderReadRight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Int16 - return val - -borderWriteRight :: MonadIO m => Border -> Int16 -> m () -borderWriteRight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 2) (val :: Int16) - -data BorderRightFieldInfo -instance AttrInfo BorderRightFieldInfo where - type AttrAllowedOps BorderRightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BorderRightFieldInfo = (~) Int16 - type AttrBaseTypeConstraint BorderRightFieldInfo = (~) Border - type AttrGetType BorderRightFieldInfo = Int16 - type AttrLabel BorderRightFieldInfo = "right" - attrGet _ = borderReadRight - attrSet _ = borderWriteRight - attrConstruct = undefined - attrClear _ = undefined - -borderRight :: AttrLabelProxy "right" -borderRight = AttrLabelProxy - - -borderReadTop :: MonadIO m => Border -> m Int16 -borderReadTop s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int16 - return val - -borderWriteTop :: MonadIO m => Border -> Int16 -> m () -borderWriteTop s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int16) - -data BorderTopFieldInfo -instance AttrInfo BorderTopFieldInfo where - type AttrAllowedOps BorderTopFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BorderTopFieldInfo = (~) Int16 - type AttrBaseTypeConstraint BorderTopFieldInfo = (~) Border - type AttrGetType BorderTopFieldInfo = Int16 - type AttrLabel BorderTopFieldInfo = "top" - attrGet _ = borderReadTop - attrSet _ = borderWriteTop - attrConstruct = undefined - attrClear _ = undefined - -borderTop :: AttrLabelProxy "top" -borderTop = AttrLabelProxy - - -borderReadBottom :: MonadIO m => Border -> m Int16 -borderReadBottom s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 6) :: IO Int16 - return val - -borderWriteBottom :: MonadIO m => Border -> Int16 -> m () -borderWriteBottom s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 6) (val :: Int16) - -data BorderBottomFieldInfo -instance AttrInfo BorderBottomFieldInfo where - type AttrAllowedOps BorderBottomFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BorderBottomFieldInfo = (~) Int16 - type AttrBaseTypeConstraint BorderBottomFieldInfo = (~) Border - type AttrGetType BorderBottomFieldInfo = Int16 - type AttrLabel BorderBottomFieldInfo = "bottom" - attrGet _ = borderReadBottom - attrSet _ = borderWriteBottom - attrConstruct = undefined - attrClear _ = undefined - -borderBottom :: AttrLabelProxy "bottom" -borderBottom = AttrLabelProxy - - - -type instance AttributeList Border = BorderAttributeList -type BorderAttributeList = ('[ '("left", BorderLeftFieldInfo), '("right", BorderRightFieldInfo), '("top", BorderTopFieldInfo), '("bottom", BorderBottomFieldInfo)] :: [(Symbol, *)]) - --- method Border::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Border") --- throws : False --- Skip return : False - -foreign import ccall "gtk_border_new" gtk_border_new :: - IO (Ptr Border) - - -borderNew :: - (MonadIO m) => - m Border -- result -borderNew = liftIO $ do - result <- gtk_border_new - checkUnexpectedReturnNULL "gtk_border_new" result - result' <- (wrapBoxed Border) result - return result' - --- method Border::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Border") --- throws : False --- Skip return : False - -foreign import ccall "gtk_border_copy" gtk_border_copy :: - Ptr Border -> -- _obj : TInterface "Gtk" "Border" - IO (Ptr Border) - - -borderCopy :: - (MonadIO m) => - Border -- _obj - -> m Border -- result -borderCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_border_copy _obj' - checkUnexpectedReturnNULL "gtk_border_copy" result - result' <- (wrapBoxed Border) result - touchManagedPtr _obj - return result' - -data BorderCopyMethodInfo -instance (signature ~ (m Border), MonadIO m) => MethodInfo BorderCopyMethodInfo Border signature where - overloadedMethod _ = borderCopy - --- method Border::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", 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 "gtk_border_free" gtk_border_free :: - Ptr Border -> -- _obj : TInterface "Gtk" "Border" - IO () - - -borderFree :: - (MonadIO m) => - Border -- _obj - -> m () -- result -borderFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_border_free _obj' - touchManagedPtr _obj - return () - -data BorderFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo BorderFreeMethodInfo Border signature where - overloadedMethod _ = borderFree - -type family ResolveBorderMethod (t :: Symbol) (o :: *) :: * where - ResolveBorderMethod "copy" o = BorderCopyMethodInfo - ResolveBorderMethod "free" o = BorderFreeMethodInfo - ResolveBorderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBorderMethod t Border, MethodInfo info Border p) => IsLabelProxy t (Border -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBorderMethod t Border, MethodInfo info Border p) => IsLabel t (Border -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/Border.hs-boot b/GI/Gtk/Structs/Border.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/Border.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Structs.Border 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 Border = Border (ForeignPtr Border) -instance BoxedObject Border where -data BorderCopyMethodInfo -data BorderFreeMethodInfo diff --git a/GI/Gtk/Structs/CssSection.hs b/GI/Gtk/Structs/CssSection.hs deleted file mode 100644 --- a/GI/Gtk/Structs/CssSection.hs +++ /dev/null @@ -1,367 +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) - -Defines a part of a CSS document. Because sections are nested into -one another, you can use gtk_css_section_get_parent() to get the -containing region. --} - -module GI.Gtk.Structs.CssSection - ( - --- * Exported types - CssSection(..) , - noCssSection , - - - -- * Methods --- ** cssSectionGetEndLine - CssSectionGetEndLineMethodInfo , - cssSectionGetEndLine , - - --- ** cssSectionGetEndPosition - CssSectionGetEndPositionMethodInfo , - cssSectionGetEndPosition , - - --- ** cssSectionGetFile - CssSectionGetFileMethodInfo , - cssSectionGetFile , - - --- ** cssSectionGetParent - CssSectionGetParentMethodInfo , - cssSectionGetParent , - - --- ** cssSectionGetSectionType - CssSectionGetSectionTypeMethodInfo , - cssSectionGetSectionType , - - --- ** cssSectionGetStartLine - CssSectionGetStartLineMethodInfo , - cssSectionGetStartLine , - - --- ** cssSectionGetStartPosition - CssSectionGetStartPositionMethodInfo , - cssSectionGetStartPosition , - - --- ** cssSectionRef - CssSectionRefMethodInfo , - cssSectionRef , - - --- ** cssSectionUnref - CssSectionUnrefMethodInfo , - cssSectionUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gio as Gio - -newtype CssSection = CssSection (ForeignPtr CssSection) -foreign import ccall "gtk_css_section_get_type" c_gtk_css_section_get_type :: - IO GType - -instance BoxedObject CssSection where - boxedType _ = c_gtk_css_section_get_type - -noCssSection :: Maybe CssSection -noCssSection = Nothing - - -type instance AttributeList CssSection = CssSectionAttributeList -type CssSectionAttributeList = ('[ ] :: [(Symbol, *)]) - --- method CssSection::get_end_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_end_line" gtk_css_section_get_end_line :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO Word32 - - -cssSectionGetEndLine :: - (MonadIO m) => - CssSection -- _obj - -> m Word32 -- result -cssSectionGetEndLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_end_line _obj' - touchManagedPtr _obj - return result - -data CssSectionGetEndLineMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetEndLineMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetEndLine - --- method CssSection::get_end_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_end_position" gtk_css_section_get_end_position :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO Word32 - - -cssSectionGetEndPosition :: - (MonadIO m) => - CssSection -- _obj - -> m Word32 -- result -cssSectionGetEndPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_end_position _obj' - touchManagedPtr _obj - return result - -data CssSectionGetEndPositionMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetEndPositionMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetEndPosition - --- method CssSection::get_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_file" gtk_css_section_get_file :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO (Ptr Gio.File) - - -cssSectionGetFile :: - (MonadIO m) => - CssSection -- _obj - -> m Gio.File -- result -cssSectionGetFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_file _obj' - checkUnexpectedReturnNULL "gtk_css_section_get_file" result - result' <- (newObject Gio.File) result - touchManagedPtr _obj - return result' - -data CssSectionGetFileMethodInfo -instance (signature ~ (m Gio.File), MonadIO m) => MethodInfo CssSectionGetFileMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetFile - --- method CssSection::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssSection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_parent" gtk_css_section_get_parent :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO (Ptr CssSection) - - -cssSectionGetParent :: - (MonadIO m) => - CssSection -- _obj - -> m (Maybe CssSection) -- result -cssSectionGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_parent _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed CssSection) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data CssSectionGetParentMethodInfo -instance (signature ~ (m (Maybe CssSection)), MonadIO m) => MethodInfo CssSectionGetParentMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetParent - --- method CssSection::get_section_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssSectionType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_section_type" gtk_css_section_get_section_type :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO CUInt - - -cssSectionGetSectionType :: - (MonadIO m) => - CssSection -- _obj - -> m CssSectionType -- result -cssSectionGetSectionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_section_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data CssSectionGetSectionTypeMethodInfo -instance (signature ~ (m CssSectionType), MonadIO m) => MethodInfo CssSectionGetSectionTypeMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetSectionType - --- method CssSection::get_start_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_start_line" gtk_css_section_get_start_line :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO Word32 - - -cssSectionGetStartLine :: - (MonadIO m) => - CssSection -- _obj - -> m Word32 -- result -cssSectionGetStartLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_start_line _obj' - touchManagedPtr _obj - return result - -data CssSectionGetStartLineMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetStartLineMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetStartLine - --- method CssSection::get_start_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_get_start_position" gtk_css_section_get_start_position :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO Word32 - - -cssSectionGetStartPosition :: - (MonadIO m) => - CssSection -- _obj - -> m Word32 -- result -cssSectionGetStartPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_start_position _obj' - touchManagedPtr _obj - return result - -data CssSectionGetStartPositionMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetStartPositionMethodInfo CssSection signature where - overloadedMethod _ = cssSectionGetStartPosition - --- method CssSection::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "CssSection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_section_ref" gtk_css_section_ref :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO (Ptr CssSection) - - -cssSectionRef :: - (MonadIO m) => - CssSection -- _obj - -> m CssSection -- result -cssSectionRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_ref _obj' - checkUnexpectedReturnNULL "gtk_css_section_ref" result - result' <- (wrapBoxed CssSection) result - touchManagedPtr _obj - return result' - -data CssSectionRefMethodInfo -instance (signature ~ (m CssSection), MonadIO m) => MethodInfo CssSectionRefMethodInfo CssSection signature where - overloadedMethod _ = cssSectionRef - --- method CssSection::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", 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 "gtk_css_section_unref" gtk_css_section_unref :: - Ptr CssSection -> -- _obj : TInterface "Gtk" "CssSection" - IO () - - -cssSectionUnref :: - (MonadIO m) => - CssSection -- _obj - -> m () -- result -cssSectionUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_css_section_unref _obj' - touchManagedPtr _obj - return () - -data CssSectionUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CssSectionUnrefMethodInfo CssSection signature where - overloadedMethod _ = cssSectionUnref - -type family ResolveCssSectionMethod (t :: Symbol) (o :: *) :: * where - ResolveCssSectionMethod "ref" o = CssSectionRefMethodInfo - ResolveCssSectionMethod "unref" o = CssSectionUnrefMethodInfo - ResolveCssSectionMethod "getEndLine" o = CssSectionGetEndLineMethodInfo - ResolveCssSectionMethod "getEndPosition" o = CssSectionGetEndPositionMethodInfo - ResolveCssSectionMethod "getFile" o = CssSectionGetFileMethodInfo - ResolveCssSectionMethod "getParent" o = CssSectionGetParentMethodInfo - ResolveCssSectionMethod "getSectionType" o = CssSectionGetSectionTypeMethodInfo - ResolveCssSectionMethod "getStartLine" o = CssSectionGetStartLineMethodInfo - ResolveCssSectionMethod "getStartPosition" o = CssSectionGetStartPositionMethodInfo - ResolveCssSectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCssSectionMethod t CssSection, MethodInfo info CssSection p) => IsLabelProxy t (CssSection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCssSectionMethod t CssSection, MethodInfo info CssSection p) => IsLabel t (CssSection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/CssSection.hs-boot b/GI/Gtk/Structs/CssSection.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/CssSection.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gtk.Structs.CssSection 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 CssSection = CssSection (ForeignPtr CssSection) -instance BoxedObject CssSection where -data CssSectionGetEndLineMethodInfo -data CssSectionGetEndPositionMethodInfo -data CssSectionGetFileMethodInfo -data CssSectionGetParentMethodInfo -data CssSectionGetSectionTypeMethodInfo -data CssSectionGetStartLineMethodInfo -data CssSectionGetStartPositionMethodInfo -data CssSectionRefMethodInfo -data CssSectionUnrefMethodInfo diff --git a/GI/Gtk/Structs/FileFilterInfo.hs b/GI/Gtk/Structs/FileFilterInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/FileFilterInfo.hs +++ /dev/null @@ -1,260 +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 #GtkFileFilterInfo-struct is used to pass information about the -tested file to gtk_file_filter_filter(). --} - -module GI.Gtk.Structs.FileFilterInfo - ( - --- * Exported types - FileFilterInfo(..) , - newZeroFileFilterInfo , - noFileFilterInfo , - - - -- * Properties --- ** Contains - fileFilterInfoContains , - fileFilterInfoReadContains , - fileFilterInfoWriteContains , - - --- ** DisplayName - fileFilterInfoClearDisplayName , - fileFilterInfoDisplayName , - fileFilterInfoReadDisplayName , - fileFilterInfoWriteDisplayName , - - --- ** Filename - fileFilterInfoClearFilename , - fileFilterInfoFilename , - fileFilterInfoReadFilename , - fileFilterInfoWriteFilename , - - --- ** MimeType - fileFilterInfoClearMimeType , - fileFilterInfoMimeType , - fileFilterInfoReadMimeType , - fileFilterInfoWriteMimeType , - - --- ** Uri - fileFilterInfoClearUri , - fileFilterInfoReadUri , - fileFilterInfoUri , - fileFilterInfoWriteUri , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo) -instance WrappedPtr FileFilterInfo where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `FileFilterInfo` struct initialized to zero. -newZeroFileFilterInfo :: MonadIO m => m FileFilterInfo -newZeroFileFilterInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr FileFilterInfo - -instance tag ~ 'AttrSet => Constructible FileFilterInfo tag where - new _ attrs = do - o <- newZeroFileFilterInfo - GI.Attributes.set o attrs - return o - - -noFileFilterInfo :: Maybe FileFilterInfo -noFileFilterInfo = Nothing - -fileFilterInfoReadContains :: MonadIO m => FileFilterInfo -> m [FileFilterFlags] -fileFilterInfoReadContains s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = wordToGFlags val - return val' - -fileFilterInfoWriteContains :: MonadIO m => FileFilterInfo -> [FileFilterFlags] -> m () -fileFilterInfoWriteContains s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data FileFilterInfoContainsFieldInfo -instance AttrInfo FileFilterInfoContainsFieldInfo where - type AttrAllowedOps FileFilterInfoContainsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FileFilterInfoContainsFieldInfo = (~) [FileFilterFlags] - type AttrBaseTypeConstraint FileFilterInfoContainsFieldInfo = (~) FileFilterInfo - type AttrGetType FileFilterInfoContainsFieldInfo = [FileFilterFlags] - type AttrLabel FileFilterInfoContainsFieldInfo = "contains" - attrGet _ = fileFilterInfoReadContains - attrSet _ = fileFilterInfoWriteContains - attrConstruct = undefined - attrClear _ = undefined - -fileFilterInfoContains :: AttrLabelProxy "contains" -fileFilterInfoContains = AttrLabelProxy - - -fileFilterInfoReadFilename :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) -fileFilterInfoReadFilename 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 - -fileFilterInfoWriteFilename :: MonadIO m => FileFilterInfo -> CString -> m () -fileFilterInfoWriteFilename s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -fileFilterInfoClearFilename :: MonadIO m => FileFilterInfo -> m () -fileFilterInfoClearFilename s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data FileFilterInfoFilenameFieldInfo -instance AttrInfo FileFilterInfoFilenameFieldInfo where - type AttrAllowedOps FileFilterInfoFilenameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileFilterInfoFilenameFieldInfo = (~) CString - type AttrBaseTypeConstraint FileFilterInfoFilenameFieldInfo = (~) FileFilterInfo - type AttrGetType FileFilterInfoFilenameFieldInfo = Maybe T.Text - type AttrLabel FileFilterInfoFilenameFieldInfo = "filename" - attrGet _ = fileFilterInfoReadFilename - attrSet _ = fileFilterInfoWriteFilename - attrConstruct = undefined - attrClear _ = fileFilterInfoClearFilename - -fileFilterInfoFilename :: AttrLabelProxy "filename" -fileFilterInfoFilename = AttrLabelProxy - - -fileFilterInfoReadUri :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) -fileFilterInfoReadUri 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 - -fileFilterInfoWriteUri :: MonadIO m => FileFilterInfo -> CString -> m () -fileFilterInfoWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -fileFilterInfoClearUri :: MonadIO m => FileFilterInfo -> m () -fileFilterInfoClearUri s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data FileFilterInfoUriFieldInfo -instance AttrInfo FileFilterInfoUriFieldInfo where - type AttrAllowedOps FileFilterInfoUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileFilterInfoUriFieldInfo = (~) CString - type AttrBaseTypeConstraint FileFilterInfoUriFieldInfo = (~) FileFilterInfo - type AttrGetType FileFilterInfoUriFieldInfo = Maybe T.Text - type AttrLabel FileFilterInfoUriFieldInfo = "uri" - attrGet _ = fileFilterInfoReadUri - attrSet _ = fileFilterInfoWriteUri - attrConstruct = undefined - attrClear _ = fileFilterInfoClearUri - -fileFilterInfoUri :: AttrLabelProxy "uri" -fileFilterInfoUri = AttrLabelProxy - - -fileFilterInfoReadDisplayName :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) -fileFilterInfoReadDisplayName 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 - -fileFilterInfoWriteDisplayName :: MonadIO m => FileFilterInfo -> CString -> m () -fileFilterInfoWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -fileFilterInfoClearDisplayName :: MonadIO m => FileFilterInfo -> m () -fileFilterInfoClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data FileFilterInfoDisplayNameFieldInfo -instance AttrInfo FileFilterInfoDisplayNameFieldInfo where - type AttrAllowedOps FileFilterInfoDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileFilterInfoDisplayNameFieldInfo = (~) CString - type AttrBaseTypeConstraint FileFilterInfoDisplayNameFieldInfo = (~) FileFilterInfo - type AttrGetType FileFilterInfoDisplayNameFieldInfo = Maybe T.Text - type AttrLabel FileFilterInfoDisplayNameFieldInfo = "display_name" - attrGet _ = fileFilterInfoReadDisplayName - attrSet _ = fileFilterInfoWriteDisplayName - attrConstruct = undefined - attrClear _ = fileFilterInfoClearDisplayName - -fileFilterInfoDisplayName :: AttrLabelProxy "displayName" -fileFilterInfoDisplayName = AttrLabelProxy - - -fileFilterInfoReadMimeType :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) -fileFilterInfoReadMimeType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -fileFilterInfoWriteMimeType :: MonadIO m => FileFilterInfo -> CString -> m () -fileFilterInfoWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -fileFilterInfoClearMimeType :: MonadIO m => FileFilterInfo -> m () -fileFilterInfoClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data FileFilterInfoMimeTypeFieldInfo -instance AttrInfo FileFilterInfoMimeTypeFieldInfo where - type AttrAllowedOps FileFilterInfoMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileFilterInfoMimeTypeFieldInfo = (~) CString - type AttrBaseTypeConstraint FileFilterInfoMimeTypeFieldInfo = (~) FileFilterInfo - type AttrGetType FileFilterInfoMimeTypeFieldInfo = Maybe T.Text - type AttrLabel FileFilterInfoMimeTypeFieldInfo = "mime_type" - attrGet _ = fileFilterInfoReadMimeType - attrSet _ = fileFilterInfoWriteMimeType - attrConstruct = undefined - attrClear _ = fileFilterInfoClearMimeType - -fileFilterInfoMimeType :: AttrLabelProxy "mimeType" -fileFilterInfoMimeType = AttrLabelProxy - - - -type instance AttributeList FileFilterInfo = FileFilterInfoAttributeList -type FileFilterInfoAttributeList = ('[ '("contains", FileFilterInfoContainsFieldInfo), '("filename", FileFilterInfoFilenameFieldInfo), '("uri", FileFilterInfoUriFieldInfo), '("displayName", FileFilterInfoDisplayNameFieldInfo), '("mimeType", FileFilterInfoMimeTypeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveFileFilterInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveFileFilterInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileFilterInfoMethod t FileFilterInfo, MethodInfo info FileFilterInfo p) => IsLabelProxy t (FileFilterInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileFilterInfoMethod t FileFilterInfo, MethodInfo info FileFilterInfo p) => IsLabel t (FileFilterInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/FileFilterInfo.hs-boot b/GI/Gtk/Structs/FileFilterInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/FileFilterInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.FileFilterInfo 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 FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo) -instance WrappedPtr FileFilterInfo where diff --git a/GI/Gtk/Structs/FixedChild.hs b/GI/Gtk/Structs/FixedChild.hs deleted file mode 100644 --- a/GI/Gtk/Structs/FixedChild.hs +++ /dev/null @@ -1,169 +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.Gtk.Structs.FixedChild - ( - --- * Exported types - FixedChild(..) , - newZeroFixedChild , - noFixedChild , - - - -- * Properties --- ** Widget - fixedChildClearWidget , - fixedChildReadWidget , - fixedChildWidget , - fixedChildWriteWidget , - - --- ** X - fixedChildReadX , - fixedChildWriteX , - fixedChildX , - - --- ** Y - fixedChildReadY , - fixedChildWriteY , - fixedChildY , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype FixedChild = FixedChild (ForeignPtr FixedChild) -instance WrappedPtr FixedChild where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `FixedChild` struct initialized to zero. -newZeroFixedChild :: MonadIO m => m FixedChild -newZeroFixedChild = liftIO $ wrappedPtrCalloc >>= wrapPtr FixedChild - -instance tag ~ 'AttrSet => Constructible FixedChild tag where - new _ attrs = do - o <- newZeroFixedChild - GI.Attributes.set o attrs - return o - - -noFixedChild :: Maybe FixedChild -noFixedChild = Nothing - -fixedChildReadWidget :: MonadIO m => FixedChild -> m (Maybe Widget) -fixedChildReadWidget s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Widget) val' - return val'' - return result - -fixedChildWriteWidget :: MonadIO m => FixedChild -> Ptr Widget -> m () -fixedChildWriteWidget s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Widget) - -fixedChildClearWidget :: MonadIO m => FixedChild -> m () -fixedChildClearWidget s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Widget) - -data FixedChildWidgetFieldInfo -instance AttrInfo FixedChildWidgetFieldInfo where - type AttrAllowedOps FixedChildWidgetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FixedChildWidgetFieldInfo = (~) (Ptr Widget) - type AttrBaseTypeConstraint FixedChildWidgetFieldInfo = (~) FixedChild - type AttrGetType FixedChildWidgetFieldInfo = Maybe Widget - type AttrLabel FixedChildWidgetFieldInfo = "widget" - attrGet _ = fixedChildReadWidget - attrSet _ = fixedChildWriteWidget - attrConstruct = undefined - attrClear _ = fixedChildClearWidget - -fixedChildWidget :: AttrLabelProxy "widget" -fixedChildWidget = AttrLabelProxy - - -fixedChildReadX :: MonadIO m => FixedChild -> m Int32 -fixedChildReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -fixedChildWriteX :: MonadIO m => FixedChild -> Int32 -> m () -fixedChildWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data FixedChildXFieldInfo -instance AttrInfo FixedChildXFieldInfo where - type AttrAllowedOps FixedChildXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FixedChildXFieldInfo = (~) Int32 - type AttrBaseTypeConstraint FixedChildXFieldInfo = (~) FixedChild - type AttrGetType FixedChildXFieldInfo = Int32 - type AttrLabel FixedChildXFieldInfo = "x" - attrGet _ = fixedChildReadX - attrSet _ = fixedChildWriteX - attrConstruct = undefined - attrClear _ = undefined - -fixedChildX :: AttrLabelProxy "x" -fixedChildX = AttrLabelProxy - - -fixedChildReadY :: MonadIO m => FixedChild -> m Int32 -fixedChildReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -fixedChildWriteY :: MonadIO m => FixedChild -> Int32 -> m () -fixedChildWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data FixedChildYFieldInfo -instance AttrInfo FixedChildYFieldInfo where - type AttrAllowedOps FixedChildYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FixedChildYFieldInfo = (~) Int32 - type AttrBaseTypeConstraint FixedChildYFieldInfo = (~) FixedChild - type AttrGetType FixedChildYFieldInfo = Int32 - type AttrLabel FixedChildYFieldInfo = "y" - attrGet _ = fixedChildReadY - attrSet _ = fixedChildWriteY - attrConstruct = undefined - attrClear _ = undefined - -fixedChildY :: AttrLabelProxy "y" -fixedChildY = AttrLabelProxy - - - -type instance AttributeList FixedChild = FixedChildAttributeList -type FixedChildAttributeList = ('[ '("widget", FixedChildWidgetFieldInfo), '("x", FixedChildXFieldInfo), '("y", FixedChildYFieldInfo)] :: [(Symbol, *)]) - -type family ResolveFixedChildMethod (t :: Symbol) (o :: *) :: * where - ResolveFixedChildMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFixedChildMethod t FixedChild, MethodInfo info FixedChild p) => IsLabelProxy t (FixedChild -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFixedChildMethod t FixedChild, MethodInfo info FixedChild p) => IsLabel t (FixedChild -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/FixedChild.hs-boot b/GI/Gtk/Structs/FixedChild.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/FixedChild.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.FixedChild 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 FixedChild = FixedChild (ForeignPtr FixedChild) -instance WrappedPtr FixedChild where diff --git a/GI/Gtk/Structs/Gradient.hs b/GI/Gtk/Structs/Gradient.hs deleted file mode 100644 --- a/GI/Gtk/Structs/Gradient.hs +++ /dev/null @@ -1,381 +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) - -GtkGradient is a boxed type that represents a gradient. -It is the result of parsing a -[gradient expression][gtkcssprovider-gradients]. -To obtain the gradient represented by a GtkGradient, it has to -be resolved with gtk_gradient_resolve(), which replaces all -symbolic color references by the colors they refer to (in a given -context) and constructs a #cairo_pattern_t value. - -It is not normally necessary to deal directly with #GtkGradients, -since they are mostly used behind the scenes by #GtkStyleContext and -#GtkCssProvider. - -#GtkGradient is deprecated. It was used internally by GTK’s CSS engine -to represent gradients. As its handling is not conforming to modern -web standards, it is not used anymore. If you want to use gradients in -your own code, please use Cairo directly. --} - -module GI.Gtk.Structs.Gradient - ( - --- * Exported types - Gradient(..) , - noGradient , - - - -- * Methods --- ** gradientAddColorStop - GradientAddColorStopMethodInfo , - gradientAddColorStop , - - --- ** gradientNewLinear - gradientNewLinear , - - --- ** gradientNewRadial - gradientNewRadial , - - --- ** gradientRef - GradientRefMethodInfo , - gradientRef , - - --- ** gradientResolve - GradientResolveMethodInfo , - gradientResolve , - - --- ** gradientResolveForContext - GradientResolveForContextMethodInfo , - gradientResolveForContext , - - --- ** gradientToString - GradientToStringMethodInfo , - gradientToString , - - --- ** gradientUnref - GradientUnrefMethodInfo , - gradientUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Cairo as Cairo - -newtype Gradient = Gradient (ForeignPtr Gradient) -foreign import ccall "gtk_gradient_get_type" c_gtk_gradient_get_type :: - IO GType - -instance BoxedObject Gradient where - boxedType _ = c_gtk_gradient_get_type - -noGradient :: Maybe Gradient -noGradient = Nothing - - -type instance AttributeList Gradient = GradientAttributeList -type GradientAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Gradient::new_linear --- method type : Constructor --- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Gradient") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gradient_new_linear" gtk_gradient_new_linear :: - CDouble -> -- x0 : TBasicType TDouble - CDouble -> -- y0 : TBasicType TDouble - CDouble -> -- x1 : TBasicType TDouble - CDouble -> -- y1 : TBasicType TDouble - IO (Ptr Gradient) - -{-# DEPRECATED gradientNewLinear ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientNewLinear :: - (MonadIO m) => - Double -- x0 - -> Double -- y0 - -> Double -- x1 - -> Double -- y1 - -> m Gradient -- result -gradientNewLinear x0 y0 x1 y1 = liftIO $ do - let x0' = realToFrac x0 - let y0' = realToFrac y0 - let x1' = realToFrac x1 - let y1' = realToFrac y1 - result <- gtk_gradient_new_linear x0' y0' x1' y1' - checkUnexpectedReturnNULL "gtk_gradient_new_linear" result - result' <- (wrapBoxed Gradient) result - return result' - --- method Gradient::new_radial --- method type : Constructor --- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Gradient") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gradient_new_radial" gtk_gradient_new_radial :: - CDouble -> -- x0 : TBasicType TDouble - CDouble -> -- y0 : TBasicType TDouble - CDouble -> -- radius0 : TBasicType TDouble - CDouble -> -- x1 : TBasicType TDouble - CDouble -> -- y1 : TBasicType TDouble - CDouble -> -- radius1 : TBasicType TDouble - IO (Ptr Gradient) - -{-# DEPRECATED gradientNewRadial ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientNewRadial :: - (MonadIO m) => - Double -- x0 - -> Double -- y0 - -> Double -- radius0 - -> Double -- x1 - -> Double -- y1 - -> Double -- radius1 - -> m Gradient -- result -gradientNewRadial x0 y0 radius0 x1 y1 radius1 = liftIO $ do - let x0' = realToFrac x0 - let y0' = realToFrac y0 - let radius0' = realToFrac radius0 - let x1' = realToFrac x1 - let y1' = realToFrac y1 - let radius1' = realToFrac radius1 - result <- gtk_gradient_new_radial x0' y0' radius0' x1' y1' radius1' - checkUnexpectedReturnNULL "gtk_gradient_new_radial" result - result' <- (wrapBoxed Gradient) result - return result' - --- method Gradient::add_color_stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", 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 "gtk_gradient_add_color_stop" gtk_gradient_add_color_stop :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - CDouble -> -- offset : TBasicType TDouble - Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor" - IO () - -{-# DEPRECATED gradientAddColorStop ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientAddColorStop :: - (MonadIO m) => - Gradient -- _obj - -> Double -- offset - -> SymbolicColor -- color - -> m () -- result -gradientAddColorStop _obj offset color = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let offset' = realToFrac offset - let color' = unsafeManagedPtrGetPtr color - gtk_gradient_add_color_stop _obj' offset' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data GradientAddColorStopMethodInfo -instance (signature ~ (Double -> SymbolicColor -> m ()), MonadIO m) => MethodInfo GradientAddColorStopMethodInfo Gradient signature where - overloadedMethod _ = gradientAddColorStop - --- method Gradient::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Gradient") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gradient_ref" gtk_gradient_ref :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - IO (Ptr Gradient) - -{-# DEPRECATED gradientRef ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientRef :: - (MonadIO m) => - Gradient -- _obj - -> m Gradient -- result -gradientRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_gradient_ref _obj' - checkUnexpectedReturnNULL "gtk_gradient_ref" result - result' <- (wrapBoxed Gradient) result - touchManagedPtr _obj - return result' - -data GradientRefMethodInfo -instance (signature ~ (m Gradient), MonadIO m) => MethodInfo GradientRefMethodInfo Gradient signature where - overloadedMethod _ = gradientRef - --- method Gradient::resolve --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_gradient", argType = TInterface "cairo" "Pattern", 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 "gtk_gradient_resolve" gtk_gradient_resolve :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - Ptr StyleProperties -> -- props : TInterface "Gtk" "StyleProperties" - Ptr (Ptr Cairo.Pattern) -> -- resolved_gradient : TInterface "cairo" "Pattern" - IO CInt - -{-# DEPRECATED gradientResolve ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientResolve :: - (MonadIO m, StylePropertiesK a) => - Gradient -- _obj - -> a -- props - -> m (Bool,Cairo.Pattern) -- result -gradientResolve _obj props = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let props' = unsafeManagedPtrCastPtr props - resolvedGradient <- allocMem :: IO (Ptr (Ptr Cairo.Pattern)) - result <- gtk_gradient_resolve _obj' props' resolvedGradient - let result' = (/= 0) result - resolvedGradient' <- peek resolvedGradient - resolvedGradient'' <- (wrapBoxed Cairo.Pattern) resolvedGradient' - touchManagedPtr _obj - touchManagedPtr props - freeMem resolvedGradient - return (result', resolvedGradient'') - -data GradientResolveMethodInfo -instance (signature ~ (a -> m (Bool,Cairo.Pattern)), MonadIO m, StylePropertiesK a) => MethodInfo GradientResolveMethodInfo Gradient signature where - overloadedMethod _ = gradientResolve - --- method Gradient::resolve_for_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Pattern") --- throws : False --- Skip return : False - -foreign import ccall "gtk_gradient_resolve_for_context" gtk_gradient_resolve_for_context :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - IO (Ptr Cairo.Pattern) - - -gradientResolveForContext :: - (MonadIO m, StyleContextK a) => - Gradient -- _obj - -> a -- context - -> m Cairo.Pattern -- result -gradientResolveForContext _obj context = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let context' = unsafeManagedPtrCastPtr context - result <- gtk_gradient_resolve_for_context _obj' context' - checkUnexpectedReturnNULL "gtk_gradient_resolve_for_context" result - result' <- (wrapBoxed Cairo.Pattern) result - touchManagedPtr _obj - touchManagedPtr context - return result' - -data GradientResolveForContextMethodInfo -instance (signature ~ (a -> m Cairo.Pattern), MonadIO m, StyleContextK a) => MethodInfo GradientResolveForContextMethodInfo Gradient signature where - overloadedMethod _ = gradientResolveForContext - --- method Gradient::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", 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 "gtk_gradient_to_string" gtk_gradient_to_string :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - IO CString - -{-# DEPRECATED gradientToString ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientToString :: - (MonadIO m) => - Gradient -- _obj - -> m T.Text -- result -gradientToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_gradient_to_string _obj' - checkUnexpectedReturnNULL "gtk_gradient_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data GradientToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo GradientToStringMethodInfo Gradient signature where - overloadedMethod _ = gradientToString - --- method Gradient::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", 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 "gtk_gradient_unref" gtk_gradient_unref :: - Ptr Gradient -> -- _obj : TInterface "Gtk" "Gradient" - IO () - -{-# DEPRECATED gradientUnref ["(Since version 3.8)","#GtkGradient is deprecated."]#-} -gradientUnref :: - (MonadIO m) => - Gradient -- _obj - -> m () -- result -gradientUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_gradient_unref _obj' - touchManagedPtr _obj - return () - -data GradientUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo GradientUnrefMethodInfo Gradient signature where - overloadedMethod _ = gradientUnref - -type family ResolveGradientMethod (t :: Symbol) (o :: *) :: * where - ResolveGradientMethod "addColorStop" o = GradientAddColorStopMethodInfo - ResolveGradientMethod "ref" o = GradientRefMethodInfo - ResolveGradientMethod "resolve" o = GradientResolveMethodInfo - ResolveGradientMethod "resolveForContext" o = GradientResolveForContextMethodInfo - ResolveGradientMethod "toString" o = GradientToStringMethodInfo - ResolveGradientMethod "unref" o = GradientUnrefMethodInfo - ResolveGradientMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGradientMethod t Gradient, MethodInfo info Gradient p) => IsLabelProxy t (Gradient -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGradientMethod t Gradient, MethodInfo info Gradient p) => IsLabel t (Gradient -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/Gradient.hs-boot b/GI/Gtk/Structs/Gradient.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/Gradient.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gtk.Structs.Gradient 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 Gradient = Gradient (ForeignPtr Gradient) -instance BoxedObject Gradient where -data GradientAddColorStopMethodInfo -data GradientRefMethodInfo -data GradientResolveMethodInfo -data GradientResolveForContextMethodInfo -data GradientToStringMethodInfo -data GradientUnrefMethodInfo diff --git a/GI/Gtk/Structs/IMContextInfo.hs b/GI/Gtk/Structs/IMContextInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/IMContextInfo.hs +++ /dev/null @@ -1,265 +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) - -Bookkeeping information about a loadable input method. --} - -module GI.Gtk.Structs.IMContextInfo - ( - --- * Exported types - IMContextInfo(..) , - newZeroIMContextInfo , - noIMContextInfo , - - - -- * Properties --- ** ContextId - iMContextInfoClearContextId , - iMContextInfoContextId , - iMContextInfoReadContextId , - iMContextInfoWriteContextId , - - --- ** ContextName - iMContextInfoClearContextName , - iMContextInfoContextName , - iMContextInfoReadContextName , - iMContextInfoWriteContextName , - - --- ** DefaultLocales - iMContextInfoClearDefaultLocales , - iMContextInfoDefaultLocales , - iMContextInfoReadDefaultLocales , - iMContextInfoWriteDefaultLocales , - - --- ** Domain - iMContextInfoClearDomain , - iMContextInfoDomain , - iMContextInfoReadDomain , - iMContextInfoWriteDomain , - - --- ** DomainDirname - iMContextInfoClearDomainDirname , - iMContextInfoDomainDirname , - iMContextInfoReadDomainDirname , - iMContextInfoWriteDomainDirname , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo) -instance WrappedPtr IMContextInfo where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `IMContextInfo` struct initialized to zero. -newZeroIMContextInfo :: MonadIO m => m IMContextInfo -newZeroIMContextInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr IMContextInfo - -instance tag ~ 'AttrSet => Constructible IMContextInfo tag where - new _ attrs = do - o <- newZeroIMContextInfo - GI.Attributes.set o attrs - return o - - -noIMContextInfo :: Maybe IMContextInfo -noIMContextInfo = Nothing - -iMContextInfoReadContextId :: MonadIO m => IMContextInfo -> m (Maybe T.Text) -iMContextInfoReadContextId 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 - -iMContextInfoWriteContextId :: MonadIO m => IMContextInfo -> CString -> m () -iMContextInfoWriteContextId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -iMContextInfoClearContextId :: MonadIO m => IMContextInfo -> m () -iMContextInfoClearContextId s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data IMContextInfoContextIdFieldInfo -instance AttrInfo IMContextInfoContextIdFieldInfo where - type AttrAllowedOps IMContextInfoContextIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IMContextInfoContextIdFieldInfo = (~) CString - type AttrBaseTypeConstraint IMContextInfoContextIdFieldInfo = (~) IMContextInfo - type AttrGetType IMContextInfoContextIdFieldInfo = Maybe T.Text - type AttrLabel IMContextInfoContextIdFieldInfo = "context_id" - attrGet _ = iMContextInfoReadContextId - attrSet _ = iMContextInfoWriteContextId - attrConstruct = undefined - attrClear _ = iMContextInfoClearContextId - -iMContextInfoContextId :: AttrLabelProxy "contextId" -iMContextInfoContextId = AttrLabelProxy - - -iMContextInfoReadContextName :: MonadIO m => IMContextInfo -> m (Maybe T.Text) -iMContextInfoReadContextName 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 - -iMContextInfoWriteContextName :: MonadIO m => IMContextInfo -> CString -> m () -iMContextInfoWriteContextName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -iMContextInfoClearContextName :: MonadIO m => IMContextInfo -> m () -iMContextInfoClearContextName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data IMContextInfoContextNameFieldInfo -instance AttrInfo IMContextInfoContextNameFieldInfo where - type AttrAllowedOps IMContextInfoContextNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IMContextInfoContextNameFieldInfo = (~) CString - type AttrBaseTypeConstraint IMContextInfoContextNameFieldInfo = (~) IMContextInfo - type AttrGetType IMContextInfoContextNameFieldInfo = Maybe T.Text - type AttrLabel IMContextInfoContextNameFieldInfo = "context_name" - attrGet _ = iMContextInfoReadContextName - attrSet _ = iMContextInfoWriteContextName - attrConstruct = undefined - attrClear _ = iMContextInfoClearContextName - -iMContextInfoContextName :: AttrLabelProxy "contextName" -iMContextInfoContextName = AttrLabelProxy - - -iMContextInfoReadDomain :: MonadIO m => IMContextInfo -> m (Maybe T.Text) -iMContextInfoReadDomain 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 - -iMContextInfoWriteDomain :: MonadIO m => IMContextInfo -> CString -> m () -iMContextInfoWriteDomain s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -iMContextInfoClearDomain :: MonadIO m => IMContextInfo -> m () -iMContextInfoClearDomain s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data IMContextInfoDomainFieldInfo -instance AttrInfo IMContextInfoDomainFieldInfo where - type AttrAllowedOps IMContextInfoDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IMContextInfoDomainFieldInfo = (~) CString - type AttrBaseTypeConstraint IMContextInfoDomainFieldInfo = (~) IMContextInfo - type AttrGetType IMContextInfoDomainFieldInfo = Maybe T.Text - type AttrLabel IMContextInfoDomainFieldInfo = "domain" - attrGet _ = iMContextInfoReadDomain - attrSet _ = iMContextInfoWriteDomain - attrConstruct = undefined - attrClear _ = iMContextInfoClearDomain - -iMContextInfoDomain :: AttrLabelProxy "domain" -iMContextInfoDomain = AttrLabelProxy - - -iMContextInfoReadDomainDirname :: MonadIO m => IMContextInfo -> m (Maybe T.Text) -iMContextInfoReadDomainDirname 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 - -iMContextInfoWriteDomainDirname :: MonadIO m => IMContextInfo -> CString -> m () -iMContextInfoWriteDomainDirname s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -iMContextInfoClearDomainDirname :: MonadIO m => IMContextInfo -> m () -iMContextInfoClearDomainDirname s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data IMContextInfoDomainDirnameFieldInfo -instance AttrInfo IMContextInfoDomainDirnameFieldInfo where - type AttrAllowedOps IMContextInfoDomainDirnameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IMContextInfoDomainDirnameFieldInfo = (~) CString - type AttrBaseTypeConstraint IMContextInfoDomainDirnameFieldInfo = (~) IMContextInfo - type AttrGetType IMContextInfoDomainDirnameFieldInfo = Maybe T.Text - type AttrLabel IMContextInfoDomainDirnameFieldInfo = "domain_dirname" - attrGet _ = iMContextInfoReadDomainDirname - attrSet _ = iMContextInfoWriteDomainDirname - attrConstruct = undefined - attrClear _ = iMContextInfoClearDomainDirname - -iMContextInfoDomainDirname :: AttrLabelProxy "domainDirname" -iMContextInfoDomainDirname = AttrLabelProxy - - -iMContextInfoReadDefaultLocales :: MonadIO m => IMContextInfo -> m (Maybe T.Text) -iMContextInfoReadDefaultLocales s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -iMContextInfoWriteDefaultLocales :: MonadIO m => IMContextInfo -> CString -> m () -iMContextInfoWriteDefaultLocales s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -iMContextInfoClearDefaultLocales :: MonadIO m => IMContextInfo -> m () -iMContextInfoClearDefaultLocales s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data IMContextInfoDefaultLocalesFieldInfo -instance AttrInfo IMContextInfoDefaultLocalesFieldInfo where - type AttrAllowedOps IMContextInfoDefaultLocalesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IMContextInfoDefaultLocalesFieldInfo = (~) CString - type AttrBaseTypeConstraint IMContextInfoDefaultLocalesFieldInfo = (~) IMContextInfo - type AttrGetType IMContextInfoDefaultLocalesFieldInfo = Maybe T.Text - type AttrLabel IMContextInfoDefaultLocalesFieldInfo = "default_locales" - attrGet _ = iMContextInfoReadDefaultLocales - attrSet _ = iMContextInfoWriteDefaultLocales - attrConstruct = undefined - attrClear _ = iMContextInfoClearDefaultLocales - -iMContextInfoDefaultLocales :: AttrLabelProxy "defaultLocales" -iMContextInfoDefaultLocales = AttrLabelProxy - - - -type instance AttributeList IMContextInfo = IMContextInfoAttributeList -type IMContextInfoAttributeList = ('[ '("contextId", IMContextInfoContextIdFieldInfo), '("contextName", IMContextInfoContextNameFieldInfo), '("domain", IMContextInfoDomainFieldInfo), '("domainDirname", IMContextInfoDomainDirnameFieldInfo), '("defaultLocales", IMContextInfoDefaultLocalesFieldInfo)] :: [(Symbol, *)]) - -type family ResolveIMContextInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveIMContextInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIMContextInfoMethod t IMContextInfo, MethodInfo info IMContextInfo p) => IsLabelProxy t (IMContextInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIMContextInfoMethod t IMContextInfo, MethodInfo info IMContextInfo p) => IsLabel t (IMContextInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/IMContextInfo.hs-boot b/GI/Gtk/Structs/IMContextInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/IMContextInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.IMContextInfo 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 IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo) -instance WrappedPtr IMContextInfo where diff --git a/GI/Gtk/Structs/IconSet.hs b/GI/Gtk/Structs/IconSet.hs deleted file mode 100644 --- a/GI/Gtk/Structs/IconSet.hs +++ /dev/null @@ -1,456 +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.Gtk.Structs.IconSet - ( - --- * Exported types - IconSet(..) , - noIconSet , - - - -- * Methods --- ** iconSetAddSource - IconSetAddSourceMethodInfo , - iconSetAddSource , - - --- ** iconSetCopy - IconSetCopyMethodInfo , - iconSetCopy , - - --- ** iconSetGetSizes - IconSetGetSizesMethodInfo , - iconSetGetSizes , - - --- ** iconSetNew - iconSetNew , - - --- ** iconSetNewFromPixbuf - iconSetNewFromPixbuf , - - --- ** iconSetRef - IconSetRefMethodInfo , - iconSetRef , - - --- ** iconSetRenderIcon - IconSetRenderIconMethodInfo , - iconSetRenderIcon , - - --- ** iconSetRenderIconPixbuf - IconSetRenderIconPixbufMethodInfo , - iconSetRenderIconPixbuf , - - --- ** iconSetRenderIconSurface - IconSetRenderIconSurfaceMethodInfo , - iconSetRenderIconSurface , - - --- ** iconSetUnref - IconSetUnrefMethodInfo , - iconSetUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Cairo as Cairo - -newtype IconSet = IconSet (ForeignPtr IconSet) -foreign import ccall "gtk_icon_set_get_type" c_gtk_icon_set_get_type :: - IO GType - -instance BoxedObject IconSet where - boxedType _ = c_gtk_icon_set_get_type - -noIconSet :: Maybe IconSet -noIconSet = Nothing - - -type instance AttributeList IconSet = IconSetAttributeList -type IconSetAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IconSet::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_new" gtk_icon_set_new :: - IO (Ptr IconSet) - -{-# DEPRECATED iconSetNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetNew :: - (MonadIO m) => - m IconSet -- result -iconSetNew = liftIO $ do - result <- gtk_icon_set_new - checkUnexpectedReturnNULL "gtk_icon_set_new" result - result' <- (wrapBoxed IconSet) result - return result' - --- method IconSet::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_new_from_pixbuf" gtk_icon_set_new_from_pixbuf :: - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr IconSet) - -{-# DEPRECATED iconSetNewFromPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetNewFromPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - a -- pixbuf - -> m IconSet -- result -iconSetNewFromPixbuf pixbuf = liftIO $ do - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_icon_set_new_from_pixbuf pixbuf' - checkUnexpectedReturnNULL "gtk_icon_set_new_from_pixbuf" result - result' <- (wrapBoxed IconSet) result - touchManagedPtr pixbuf - return result' - --- method IconSet::add_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_set_add_source" gtk_icon_set_add_source :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr IconSource -> -- source : TInterface "Gtk" "IconSource" - IO () - -{-# DEPRECATED iconSetAddSource ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetAddSource :: - (MonadIO m) => - IconSet -- _obj - -> IconSource -- source - -> m () -- result -iconSetAddSource _obj source = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let source' = unsafeManagedPtrGetPtr source - gtk_icon_set_add_source _obj' source' - touchManagedPtr _obj - touchManagedPtr source - return () - -data IconSetAddSourceMethodInfo -instance (signature ~ (IconSource -> m ()), MonadIO m) => MethodInfo IconSetAddSourceMethodInfo IconSet signature where - overloadedMethod _ = iconSetAddSource - --- method IconSet::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_copy" gtk_icon_set_copy :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - IO (Ptr IconSet) - -{-# DEPRECATED iconSetCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetCopy :: - (MonadIO m) => - IconSet -- _obj - -> m IconSet -- result -iconSetCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_set_copy _obj' - checkUnexpectedReturnNULL "gtk_icon_set_copy" result - result' <- (wrapBoxed IconSet) result - touchManagedPtr _obj - return result' - -data IconSetCopyMethodInfo -instance (signature ~ (m IconSet), MonadIO m) => MethodInfo IconSetCopyMethodInfo IconSet signature where - overloadedMethod _ = iconSetCopy - --- method IconSet::get_sizes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_get_sizes" gtk_icon_set_get_sizes :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr (Ptr Int32) -> -- sizes : TCArray False (-1) 2 (TBasicType TInt) - Ptr Int32 -> -- n_sizes : TBasicType TInt - IO () - -{-# DEPRECATED iconSetGetSizes ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetGetSizes :: - (MonadIO m) => - IconSet -- _obj - -> m ([Int32]) -- result -iconSetGetSizes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - sizes <- allocMem :: IO (Ptr (Ptr Int32)) - nSizes <- allocMem :: IO (Ptr Int32) - gtk_icon_set_get_sizes _obj' sizes nSizes - nSizes' <- peek nSizes - sizes' <- peek sizes - sizes'' <- (unpackStorableArrayWithLength nSizes') sizes' - freeMem sizes' - touchManagedPtr _obj - freeMem sizes - freeMem nSizes - return sizes'' - -data IconSetGetSizesMethodInfo -instance (signature ~ (m ([Int32])), MonadIO m) => MethodInfo IconSetGetSizesMethodInfo IconSet signature where - overloadedMethod _ = iconSetGetSizes - --- method IconSet::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSet") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_ref" gtk_icon_set_ref :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - IO (Ptr IconSet) - -{-# DEPRECATED iconSetRef ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetRef :: - (MonadIO m) => - IconSet -- _obj - -> m IconSet -- result -iconSetRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_set_ref _obj' - checkUnexpectedReturnNULL "gtk_icon_set_ref" result - result' <- (wrapBoxed IconSet) result - touchManagedPtr _obj - return result' - -data IconSetRefMethodInfo -instance (signature ~ (m IconSet), MonadIO m) => MethodInfo IconSetRefMethodInfo IconSet signature where - overloadedMethod _ = iconSetRef - --- method IconSet::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_render_icon" gtk_icon_set_render_icon :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr Style -> -- style : TInterface "Gtk" "Style" - CUInt -> -- direction : TInterface "Gtk" "TextDirection" - CUInt -> -- state : TInterface "Gtk" "StateType" - Int32 -> -- size : TBasicType TInt - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CString -> -- detail : TBasicType TUTF8 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED iconSetRenderIcon ["(Since version 3.0)","Use gtk_icon_set_render_icon_pixbuf() instead"]#-} -iconSetRenderIcon :: - (MonadIO m, StyleK a, WidgetK b) => - IconSet -- _obj - -> Maybe (a) -- style - -> TextDirection -- direction - -> StateType -- state - -> Int32 -- size - -> Maybe (b) -- widget - -> Maybe (T.Text) -- detail - -> m GdkPixbuf.Pixbuf -- result -iconSetRenderIcon _obj style direction state size widget detail = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeStyle <- case style of - Nothing -> return nullPtr - Just jStyle -> do - let jStyle' = unsafeManagedPtrCastPtr jStyle - return jStyle' - let direction' = (fromIntegral . fromEnum) direction - let state' = (fromIntegral . fromEnum) state - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_icon_set_render_icon _obj' maybeStyle direction' state' size maybeWidget maybeDetail - checkUnexpectedReturnNULL "gtk_icon_set_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - whenJust style touchManagedPtr - whenJust widget touchManagedPtr - freeMem maybeDetail - return result' - -data IconSetRenderIconMethodInfo -instance (signature ~ (Maybe (a) -> TextDirection -> StateType -> Int32 -> Maybe (b) -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, StyleK a, WidgetK b) => MethodInfo IconSetRenderIconMethodInfo IconSet signature where - overloadedMethod _ = iconSetRenderIcon - --- method IconSet::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_render_icon_pixbuf" gtk_icon_set_render_icon_pixbuf :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Int32 -> -- size : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED iconSetRenderIconPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetRenderIconPixbuf :: - (MonadIO m, StyleContextK a) => - IconSet -- _obj - -> a -- context - -> Int32 -- size - -> m GdkPixbuf.Pixbuf -- result -iconSetRenderIconPixbuf _obj context size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let context' = unsafeManagedPtrCastPtr context - result <- gtk_icon_set_render_icon_pixbuf _obj' context' size - checkUnexpectedReturnNULL "gtk_icon_set_render_icon_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - touchManagedPtr context - return result' - -data IconSetRenderIconPixbufMethodInfo -instance (signature ~ (a -> Int32 -> m GdkPixbuf.Pixbuf), MonadIO m, StyleContextK a) => MethodInfo IconSetRenderIconPixbufMethodInfo IconSet signature where - overloadedMethod _ = iconSetRenderIconPixbuf - --- method IconSet::render_icon_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_set_render_icon_surface" gtk_icon_set_render_icon_surface :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Int32 -> -- size : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" - IO (Ptr Cairo.Surface) - -{-# DEPRECATED iconSetRenderIconSurface ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetRenderIconSurface :: - (MonadIO m, StyleContextK a, Gdk.WindowK b) => - IconSet -- _obj - -> a -- context - -> Int32 -- size - -> Int32 -- scale - -> Maybe (b) -- forWindow - -> m Cairo.Surface -- result -iconSetRenderIconSurface _obj context size scale forWindow = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeForWindow <- case forWindow of - Nothing -> return nullPtr - Just jForWindow -> do - let jForWindow' = unsafeManagedPtrCastPtr jForWindow - return jForWindow' - result <- gtk_icon_set_render_icon_surface _obj' context' size scale maybeForWindow - checkUnexpectedReturnNULL "gtk_icon_set_render_icon_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr context - whenJust forWindow touchManagedPtr - return result' - -data IconSetRenderIconSurfaceMethodInfo -instance (signature ~ (a -> Int32 -> Int32 -> Maybe (b) -> m Cairo.Surface), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo IconSetRenderIconSurfaceMethodInfo IconSet signature where - overloadedMethod _ = iconSetRenderIconSurface - --- method IconSet::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", 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 "gtk_icon_set_unref" gtk_icon_set_unref :: - Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - IO () - -{-# DEPRECATED iconSetUnref ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetUnref :: - (MonadIO m) => - IconSet -- _obj - -> m () -- result -iconSetUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_set_unref _obj' - touchManagedPtr _obj - return () - -data IconSetUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IconSetUnrefMethodInfo IconSet signature where - overloadedMethod _ = iconSetUnref - -type family ResolveIconSetMethod (t :: Symbol) (o :: *) :: * where - ResolveIconSetMethod "addSource" o = IconSetAddSourceMethodInfo - ResolveIconSetMethod "copy" o = IconSetCopyMethodInfo - ResolveIconSetMethod "ref" o = IconSetRefMethodInfo - ResolveIconSetMethod "renderIcon" o = IconSetRenderIconMethodInfo - ResolveIconSetMethod "renderIconPixbuf" o = IconSetRenderIconPixbufMethodInfo - ResolveIconSetMethod "renderIconSurface" o = IconSetRenderIconSurfaceMethodInfo - ResolveIconSetMethod "unref" o = IconSetUnrefMethodInfo - ResolveIconSetMethod "getSizes" o = IconSetGetSizesMethodInfo - ResolveIconSetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconSetMethod t IconSet, MethodInfo info IconSet p) => IsLabelProxy t (IconSet -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconSetMethod t IconSet, MethodInfo info IconSet p) => IsLabel t (IconSet -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/IconSet.hs-boot b/GI/Gtk/Structs/IconSet.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/IconSet.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gtk.Structs.IconSet 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 IconSet = IconSet (ForeignPtr IconSet) -instance BoxedObject IconSet where -data IconSetAddSourceMethodInfo -data IconSetCopyMethodInfo -data IconSetGetSizesMethodInfo -data IconSetRefMethodInfo -data IconSetRenderIconMethodInfo -data IconSetRenderIconPixbufMethodInfo -data IconSetRenderIconSurfaceMethodInfo -data IconSetUnrefMethodInfo diff --git a/GI/Gtk/Structs/IconSource.hs b/GI/Gtk/Structs/IconSource.hs deleted file mode 100644 --- a/GI/Gtk/Structs/IconSource.hs +++ /dev/null @@ -1,789 +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.Gtk.Structs.IconSource - ( - --- * Exported types - IconSource(..) , - noIconSource , - - - -- * Methods --- ** iconSourceCopy - IconSourceCopyMethodInfo , - iconSourceCopy , - - --- ** iconSourceFree - IconSourceFreeMethodInfo , - iconSourceFree , - - --- ** iconSourceGetDirection - IconSourceGetDirectionMethodInfo , - iconSourceGetDirection , - - --- ** iconSourceGetDirectionWildcarded - IconSourceGetDirectionWildcardedMethodInfo, - iconSourceGetDirectionWildcarded , - - --- ** iconSourceGetFilename - IconSourceGetFilenameMethodInfo , - iconSourceGetFilename , - - --- ** iconSourceGetIconName - IconSourceGetIconNameMethodInfo , - iconSourceGetIconName , - - --- ** iconSourceGetPixbuf - IconSourceGetPixbufMethodInfo , - iconSourceGetPixbuf , - - --- ** iconSourceGetSize - IconSourceGetSizeMethodInfo , - iconSourceGetSize , - - --- ** iconSourceGetSizeWildcarded - IconSourceGetSizeWildcardedMethodInfo , - iconSourceGetSizeWildcarded , - - --- ** iconSourceGetState - IconSourceGetStateMethodInfo , - iconSourceGetState , - - --- ** iconSourceGetStateWildcarded - IconSourceGetStateWildcardedMethodInfo , - iconSourceGetStateWildcarded , - - --- ** iconSourceNew - iconSourceNew , - - --- ** iconSourceSetDirection - IconSourceSetDirectionMethodInfo , - iconSourceSetDirection , - - --- ** iconSourceSetDirectionWildcarded - IconSourceSetDirectionWildcardedMethodInfo, - iconSourceSetDirectionWildcarded , - - --- ** iconSourceSetFilename - IconSourceSetFilenameMethodInfo , - iconSourceSetFilename , - - --- ** iconSourceSetIconName - IconSourceSetIconNameMethodInfo , - iconSourceSetIconName , - - --- ** iconSourceSetPixbuf - IconSourceSetPixbufMethodInfo , - iconSourceSetPixbuf , - - --- ** iconSourceSetSize - IconSourceSetSizeMethodInfo , - iconSourceSetSize , - - --- ** iconSourceSetSizeWildcarded - IconSourceSetSizeWildcardedMethodInfo , - iconSourceSetSizeWildcarded , - - --- ** iconSourceSetState - IconSourceSetStateMethodInfo , - iconSourceSetState , - - --- ** iconSourceSetStateWildcarded - IconSourceSetStateWildcardedMethodInfo , - iconSourceSetStateWildcarded , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype IconSource = IconSource (ForeignPtr IconSource) -foreign import ccall "gtk_icon_source_get_type" c_gtk_icon_source_get_type :: - IO GType - -instance BoxedObject IconSource where - boxedType _ = c_gtk_icon_source_get_type - -noIconSource :: Maybe IconSource -noIconSource = Nothing - - -type instance AttributeList IconSource = IconSourceAttributeList -type IconSourceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IconSource::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSource") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_new" gtk_icon_source_new :: - IO (Ptr IconSource) - -{-# DEPRECATED iconSourceNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceNew :: - (MonadIO m) => - m IconSource -- result -iconSourceNew = liftIO $ do - result <- gtk_icon_source_new - checkUnexpectedReturnNULL "gtk_icon_source_new" result - result' <- (wrapBoxed IconSource) result - return result' - --- method IconSource::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "IconSource") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_copy" gtk_icon_source_copy :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO (Ptr IconSource) - -{-# DEPRECATED iconSourceCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceCopy :: - (MonadIO m) => - IconSource -- _obj - -> m IconSource -- result -iconSourceCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_copy _obj' - checkUnexpectedReturnNULL "gtk_icon_source_copy" result - result' <- (wrapBoxed IconSource) result - touchManagedPtr _obj - return result' - -data IconSourceCopyMethodInfo -instance (signature ~ (m IconSource), MonadIO m) => MethodInfo IconSourceCopyMethodInfo IconSource signature where - overloadedMethod _ = iconSourceCopy - --- method IconSource::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_free" gtk_icon_source_free :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO () - -{-# DEPRECATED iconSourceFree ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceFree :: - (MonadIO m) => - IconSource -- _obj - -> m () -- result -iconSourceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_source_free _obj' - touchManagedPtr _obj - return () - -data IconSourceFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IconSourceFreeMethodInfo IconSource signature where - overloadedMethod _ = iconSourceFree - --- method IconSource::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextDirection") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_get_direction" gtk_icon_source_get_direction :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CUInt - -{-# DEPRECATED iconSourceGetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetDirection :: - (MonadIO m) => - IconSource -- _obj - -> m TextDirection -- result -iconSourceGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data IconSourceGetDirectionMethodInfo -instance (signature ~ (m TextDirection), MonadIO m) => MethodInfo IconSourceGetDirectionMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetDirection - --- method IconSource::get_direction_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_get_direction_wildcarded" gtk_icon_source_get_direction_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CInt - -{-# DEPRECATED iconSourceGetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetDirectionWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> m Bool -- result -iconSourceGetDirectionWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_direction_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconSourceGetDirectionWildcardedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetDirectionWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetDirectionWildcarded - --- method IconSource::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_get_filename" gtk_icon_source_get_filename :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CString - -{-# DEPRECATED iconSourceGetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetFilename :: - (MonadIO m) => - IconSource -- _obj - -> m [Char] -- result -iconSourceGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_filename _obj' - checkUnexpectedReturnNULL "gtk_icon_source_get_filename" result - result' <- cstringToString result - touchManagedPtr _obj - return result' - -data IconSourceGetFilenameMethodInfo -instance (signature ~ (m [Char]), MonadIO m) => MethodInfo IconSourceGetFilenameMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetFilename - --- method IconSource::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_get_icon_name" gtk_icon_source_get_icon_name :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CString - -{-# DEPRECATED iconSourceGetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetIconName :: - (MonadIO m) => - IconSource -- _obj - -> m T.Text -- result -iconSourceGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_icon_source_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data IconSourceGetIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo IconSourceGetIconNameMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetIconName - --- method IconSource::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_get_pixbuf" gtk_icon_source_get_pixbuf :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED iconSourceGetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetPixbuf :: - (MonadIO m) => - IconSource -- _obj - -> m GdkPixbuf.Pixbuf -- result -iconSourceGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_icon_source_get_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data IconSourceGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo IconSourceGetPixbufMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetPixbuf - --- method IconSource::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_get_size" gtk_icon_source_get_size :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO Int32 - -{-# DEPRECATED iconSourceGetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetSize :: - (MonadIO m) => - IconSource -- _obj - -> m Int32 -- result -iconSourceGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_size _obj' - touchManagedPtr _obj - return result - -data IconSourceGetSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo IconSourceGetSizeMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetSize - --- method IconSource::get_size_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_get_size_wildcarded" gtk_icon_source_get_size_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CInt - -{-# DEPRECATED iconSourceGetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetSizeWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> m Bool -- result -iconSourceGetSizeWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_size_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconSourceGetSizeWildcardedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetSizeWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetSizeWildcarded - --- method IconSource::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateType") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_get_state" gtk_icon_source_get_state :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CUInt - -{-# DEPRECATED iconSourceGetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetState :: - (MonadIO m) => - IconSource -- _obj - -> m StateType -- result -iconSourceGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data IconSourceGetStateMethodInfo -instance (signature ~ (m StateType), MonadIO m) => MethodInfo IconSourceGetStateMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetState - --- method IconSource::get_state_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 "gtk_icon_source_get_state_wildcarded" gtk_icon_source_get_state_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - IO CInt - -{-# DEPRECATED iconSourceGetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceGetStateWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> m Bool -- result -iconSourceGetStateWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_state_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IconSourceGetStateWildcardedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetStateWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceGetStateWildcarded - --- method IconSource::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", 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 "gtk_icon_source_set_direction" gtk_icon_source_set_direction :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CUInt -> -- direction : TInterface "Gtk" "TextDirection" - IO () - -{-# DEPRECATED iconSourceSetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetDirection :: - (MonadIO m) => - IconSource -- _obj - -> TextDirection -- direction - -> m () -- result -iconSourceSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_icon_source_set_direction _obj' direction' - touchManagedPtr _obj - return () - -data IconSourceSetDirectionMethodInfo -instance (signature ~ (TextDirection -> m ()), MonadIO m) => MethodInfo IconSourceSetDirectionMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetDirection - --- method IconSource::set_direction_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_icon_source_set_direction_wildcarded" gtk_icon_source_set_direction_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CInt -> -- setting : TBasicType TBoolean - IO () - -{-# DEPRECATED iconSourceSetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetDirectionWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> Bool -- setting - -> m () -- result -iconSourceSetDirectionWildcarded _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_icon_source_set_direction_wildcarded _obj' setting' - touchManagedPtr _obj - return () - -data IconSourceSetDirectionWildcardedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetDirectionWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetDirectionWildcarded - --- method IconSource::set_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, 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 "gtk_icon_source_set_filename" gtk_icon_source_set_filename :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CString -> -- filename : TBasicType TFileName - IO () - -{-# DEPRECATED iconSourceSetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetFilename :: - (MonadIO m) => - IconSource -- _obj - -> [Char] -- filename - -> m () -- result -iconSourceSetFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - filename' <- stringToCString filename - gtk_icon_source_set_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - -data IconSourceSetFilenameMethodInfo -instance (signature ~ ([Char] -> m ()), MonadIO m) => MethodInfo IconSourceSetFilenameMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetFilename - --- method IconSource::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_set_icon_name" gtk_icon_source_set_icon_name :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CString -> -- icon_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED iconSourceSetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetIconName :: - (MonadIO m) => - IconSource -- _obj - -> Maybe (T.Text) -- iconName - -> m () -- result -iconSourceSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gtk_icon_source_set_icon_name _obj' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data IconSourceSetIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo IconSourceSetIconNameMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetIconName - --- method IconSource::set_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_icon_source_set_pixbuf" gtk_icon_source_set_pixbuf :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - -{-# DEPRECATED iconSourceSetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - IconSource -- _obj - -> a -- pixbuf - -> m () -- result -iconSourceSetPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_icon_source_set_pixbuf _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - -data IconSourceSetPixbufMethodInfo -instance (signature ~ (a -> m ()), MonadIO m, GdkPixbuf.PixbufK a) => MethodInfo IconSourceSetPixbufMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetPixbuf - --- method IconSource::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_icon_source_set_size" gtk_icon_source_set_size :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - Int32 -> -- size : TBasicType TInt - IO () - -{-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetSize :: - (MonadIO m) => - IconSource -- _obj - -> Int32 -- size - -> m () -- result -iconSourceSetSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_source_set_size _obj' size - touchManagedPtr _obj - return () - -data IconSourceSetSizeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo IconSourceSetSizeMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetSize - --- method IconSource::set_size_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_icon_source_set_size_wildcarded" gtk_icon_source_set_size_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CInt -> -- setting : TBasicType TBoolean - IO () - -{-# DEPRECATED iconSourceSetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetSizeWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> Bool -- setting - -> m () -- result -iconSourceSetSizeWildcarded _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_icon_source_set_size_wildcarded _obj' setting' - touchManagedPtr _obj - return () - -data IconSourceSetSizeWildcardedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetSizeWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetSizeWildcarded - --- method IconSource::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", 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 "gtk_icon_source_set_state" gtk_icon_source_set_state :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CUInt -> -- state : TInterface "Gtk" "StateType" - IO () - -{-# DEPRECATED iconSourceSetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetState :: - (MonadIO m) => - IconSource -- _obj - -> StateType -- state - -> m () -- result -iconSourceSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_icon_source_set_state _obj' state' - touchManagedPtr _obj - return () - -data IconSourceSetStateMethodInfo -instance (signature ~ (StateType -> m ()), MonadIO m) => MethodInfo IconSourceSetStateMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetState - --- method IconSource::set_state_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", 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 "gtk_icon_source_set_state_wildcarded" gtk_icon_source_set_state_wildcarded :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - CInt -> -- setting : TBasicType TBoolean - IO () - -{-# DEPRECATED iconSourceSetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetStateWildcarded :: - (MonadIO m) => - IconSource -- _obj - -> Bool -- setting - -> m () -- result -iconSourceSetStateWildcarded _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_icon_source_set_state_wildcarded _obj' setting' - touchManagedPtr _obj - return () - -data IconSourceSetStateWildcardedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetStateWildcardedMethodInfo IconSource signature where - overloadedMethod _ = iconSourceSetStateWildcarded - -type family ResolveIconSourceMethod (t :: Symbol) (o :: *) :: * where - ResolveIconSourceMethod "copy" o = IconSourceCopyMethodInfo - ResolveIconSourceMethod "free" o = IconSourceFreeMethodInfo - ResolveIconSourceMethod "getDirection" o = IconSourceGetDirectionMethodInfo - ResolveIconSourceMethod "getDirectionWildcarded" o = IconSourceGetDirectionWildcardedMethodInfo - ResolveIconSourceMethod "getFilename" o = IconSourceGetFilenameMethodInfo - ResolveIconSourceMethod "getIconName" o = IconSourceGetIconNameMethodInfo - ResolveIconSourceMethod "getPixbuf" o = IconSourceGetPixbufMethodInfo - ResolveIconSourceMethod "getSize" o = IconSourceGetSizeMethodInfo - ResolveIconSourceMethod "getSizeWildcarded" o = IconSourceGetSizeWildcardedMethodInfo - ResolveIconSourceMethod "getState" o = IconSourceGetStateMethodInfo - ResolveIconSourceMethod "getStateWildcarded" o = IconSourceGetStateWildcardedMethodInfo - ResolveIconSourceMethod "setDirection" o = IconSourceSetDirectionMethodInfo - ResolveIconSourceMethod "setDirectionWildcarded" o = IconSourceSetDirectionWildcardedMethodInfo - ResolveIconSourceMethod "setFilename" o = IconSourceSetFilenameMethodInfo - ResolveIconSourceMethod "setIconName" o = IconSourceSetIconNameMethodInfo - ResolveIconSourceMethod "setPixbuf" o = IconSourceSetPixbufMethodInfo - ResolveIconSourceMethod "setSize" o = IconSourceSetSizeMethodInfo - ResolveIconSourceMethod "setSizeWildcarded" o = IconSourceSetSizeWildcardedMethodInfo - ResolveIconSourceMethod "setState" o = IconSourceSetStateMethodInfo - ResolveIconSourceMethod "setStateWildcarded" o = IconSourceSetStateWildcardedMethodInfo - ResolveIconSourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconSourceMethod t IconSource, MethodInfo info IconSource p) => IsLabelProxy t (IconSource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconSourceMethod t IconSource, MethodInfo info IconSource p) => IsLabel t (IconSource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/IconSource.hs-boot b/GI/Gtk/Structs/IconSource.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/IconSource.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.Gtk.Structs.IconSource 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 IconSource = IconSource (ForeignPtr IconSource) -instance BoxedObject IconSource where -data IconSourceCopyMethodInfo -data IconSourceFreeMethodInfo -data IconSourceGetDirectionMethodInfo -data IconSourceGetDirectionWildcardedMethodInfo -data IconSourceGetFilenameMethodInfo -data IconSourceGetIconNameMethodInfo -data IconSourceGetPixbufMethodInfo -data IconSourceGetSizeMethodInfo -data IconSourceGetSizeWildcardedMethodInfo -data IconSourceGetStateMethodInfo -data IconSourceGetStateWildcardedMethodInfo -data IconSourceSetDirectionMethodInfo -data IconSourceSetDirectionWildcardedMethodInfo -data IconSourceSetFilenameMethodInfo -data IconSourceSetIconNameMethodInfo -data IconSourceSetPixbufMethodInfo -data IconSourceSetSizeMethodInfo -data IconSourceSetSizeWildcardedMethodInfo -data IconSourceSetStateMethodInfo -data IconSourceSetStateWildcardedMethodInfo diff --git a/GI/Gtk/Structs/LabelSelectionInfo.hs b/GI/Gtk/Structs/LabelSelectionInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/LabelSelectionInfo.hs +++ /dev/null @@ -1,54 +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.Gtk.Structs.LabelSelectionInfo - ( - --- * Exported types - LabelSelectionInfo(..) , - noLabelSelectionInfo , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr LabelSelectionInfo where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noLabelSelectionInfo :: Maybe LabelSelectionInfo -noLabelSelectionInfo = Nothing - - -type instance AttributeList LabelSelectionInfo = LabelSelectionInfoAttributeList -type LabelSelectionInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveLabelSelectionInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveLabelSelectionInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLabelSelectionInfoMethod t LabelSelectionInfo, MethodInfo info LabelSelectionInfo p) => IsLabelProxy t (LabelSelectionInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLabelSelectionInfoMethod t LabelSelectionInfo, MethodInfo info LabelSelectionInfo p) => IsLabel t (LabelSelectionInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/LabelSelectionInfo.hs-boot b/GI/Gtk/Structs/LabelSelectionInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/LabelSelectionInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.LabelSelectionInfo 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 LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) -instance WrappedPtr LabelSelectionInfo where diff --git a/GI/Gtk/Structs/PageRange.hs b/GI/Gtk/Structs/PageRange.hs deleted file mode 100644 --- a/GI/Gtk/Structs/PageRange.hs +++ /dev/null @@ -1,132 +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) - -See also gtk_print_settings_set_page_ranges(). --} - -module GI.Gtk.Structs.PageRange - ( - --- * Exported types - PageRange(..) , - newZeroPageRange , - noPageRange , - - - -- * Properties --- ** End - pageRangeEnd , - pageRangeReadEnd , - pageRangeWriteEnd , - - --- ** Start - pageRangeReadStart , - pageRangeStart , - pageRangeWriteStart , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype PageRange = PageRange (ForeignPtr PageRange) -instance WrappedPtr PageRange where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `PageRange` struct initialized to zero. -newZeroPageRange :: MonadIO m => m PageRange -newZeroPageRange = liftIO $ wrappedPtrCalloc >>= wrapPtr PageRange - -instance tag ~ 'AttrSet => Constructible PageRange tag where - new _ attrs = do - o <- newZeroPageRange - GI.Attributes.set o attrs - return o - - -noPageRange :: Maybe PageRange -noPageRange = Nothing - -pageRangeReadStart :: MonadIO m => PageRange -> m Int32 -pageRangeReadStart s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -pageRangeWriteStart :: MonadIO m => PageRange -> Int32 -> m () -pageRangeWriteStart s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data PageRangeStartFieldInfo -instance AttrInfo PageRangeStartFieldInfo where - type AttrAllowedOps PageRangeStartFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageRangeStartFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PageRangeStartFieldInfo = (~) PageRange - type AttrGetType PageRangeStartFieldInfo = Int32 - type AttrLabel PageRangeStartFieldInfo = "start" - attrGet _ = pageRangeReadStart - attrSet _ = pageRangeWriteStart - attrConstruct = undefined - attrClear _ = undefined - -pageRangeStart :: AttrLabelProxy "start" -pageRangeStart = AttrLabelProxy - - -pageRangeReadEnd :: MonadIO m => PageRange -> m Int32 -pageRangeReadEnd s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -pageRangeWriteEnd :: MonadIO m => PageRange -> Int32 -> m () -pageRangeWriteEnd s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data PageRangeEndFieldInfo -instance AttrInfo PageRangeEndFieldInfo where - type AttrAllowedOps PageRangeEndFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageRangeEndFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PageRangeEndFieldInfo = (~) PageRange - type AttrGetType PageRangeEndFieldInfo = Int32 - type AttrLabel PageRangeEndFieldInfo = "end" - attrGet _ = pageRangeReadEnd - attrSet _ = pageRangeWriteEnd - attrConstruct = undefined - attrClear _ = undefined - -pageRangeEnd :: AttrLabelProxy "end" -pageRangeEnd = AttrLabelProxy - - - -type instance AttributeList PageRange = PageRangeAttributeList -type PageRangeAttributeList = ('[ '("start", PageRangeStartFieldInfo), '("end", PageRangeEndFieldInfo)] :: [(Symbol, *)]) - -type family ResolvePageRangeMethod (t :: Symbol) (o :: *) :: * where - ResolvePageRangeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePageRangeMethod t PageRange, MethodInfo info PageRange p) => IsLabelProxy t (PageRange -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePageRangeMethod t PageRange, MethodInfo info PageRange p) => IsLabel t (PageRange -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/PageRange.hs-boot b/GI/Gtk/Structs/PageRange.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/PageRange.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.PageRange 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 PageRange = PageRange (ForeignPtr PageRange) -instance WrappedPtr PageRange where diff --git a/GI/Gtk/Structs/PaperSize.hs b/GI/Gtk/Structs/PaperSize.hs deleted file mode 100644 --- a/GI/Gtk/Structs/PaperSize.hs +++ /dev/null @@ -1,895 +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) - -GtkPaperSize handles paper sizes. It uses the standard called -[PWG 5101.1-2002 PWG: Standard for Media Standardized Names](http://www.pwg.org/standards.html) -to name the paper sizes (and to get the data for the page sizes). -In addition to standard paper sizes, GtkPaperSize allows to -construct custom paper sizes with arbitrary dimensions. - -The #GtkPaperSize object stores not only the dimensions (width -and height) of a paper size and its name, it also provides -default [print margins][print-margins]. - -Printing support has been added in GTK+ 2.10. --} - -module GI.Gtk.Structs.PaperSize - ( - --- * Exported types - PaperSize(..) , - noPaperSize , - - - -- * Methods --- ** paperSizeCopy - PaperSizeCopyMethodInfo , - paperSizeCopy , - - --- ** paperSizeFree - PaperSizeFreeMethodInfo , - paperSizeFree , - - --- ** paperSizeGetDefault - paperSizeGetDefault , - - --- ** paperSizeGetDefaultBottomMargin - PaperSizeGetDefaultBottomMarginMethodInfo, - paperSizeGetDefaultBottomMargin , - - --- ** paperSizeGetDefaultLeftMargin - PaperSizeGetDefaultLeftMarginMethodInfo , - paperSizeGetDefaultLeftMargin , - - --- ** paperSizeGetDefaultRightMargin - PaperSizeGetDefaultRightMarginMethodInfo, - paperSizeGetDefaultRightMargin , - - --- ** paperSizeGetDefaultTopMargin - PaperSizeGetDefaultTopMarginMethodInfo , - paperSizeGetDefaultTopMargin , - - --- ** paperSizeGetDisplayName - PaperSizeGetDisplayNameMethodInfo , - paperSizeGetDisplayName , - - --- ** paperSizeGetHeight - PaperSizeGetHeightMethodInfo , - paperSizeGetHeight , - - --- ** paperSizeGetName - PaperSizeGetNameMethodInfo , - paperSizeGetName , - - --- ** paperSizeGetPaperSizes - paperSizeGetPaperSizes , - - --- ** paperSizeGetPpdName - PaperSizeGetPpdNameMethodInfo , - paperSizeGetPpdName , - - --- ** paperSizeGetWidth - PaperSizeGetWidthMethodInfo , - paperSizeGetWidth , - - --- ** paperSizeIsCustom - PaperSizeIsCustomMethodInfo , - paperSizeIsCustom , - - --- ** paperSizeIsEqual - PaperSizeIsEqualMethodInfo , - paperSizeIsEqual , - - --- ** paperSizeIsIpp - PaperSizeIsIppMethodInfo , - paperSizeIsIpp , - - --- ** paperSizeNew - paperSizeNew , - - --- ** paperSizeNewCustom - paperSizeNewCustom , - - --- ** paperSizeNewFromIpp - paperSizeNewFromIpp , - - --- ** paperSizeNewFromKeyFile - paperSizeNewFromKeyFile , - - --- ** paperSizeNewFromPpd - paperSizeNewFromPpd , - - --- ** paperSizeSetSize - PaperSizeSetSizeMethodInfo , - paperSizeSetSize , - - --- ** paperSizeToKeyFile - PaperSizeToKeyFileMethodInfo , - paperSizeToKeyFile , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib - -newtype PaperSize = PaperSize (ForeignPtr PaperSize) -foreign import ccall "gtk_paper_size_get_type" c_gtk_paper_size_get_type :: - IO GType - -instance BoxedObject PaperSize where - boxedType _ = c_gtk_paper_size_get_type - -noPaperSize :: Maybe PaperSize -noPaperSize = Nothing - - -type instance AttributeList PaperSize = PaperSizeAttributeList -type PaperSizeAttributeList = ('[ ] :: [(Symbol, *)]) - --- method PaperSize::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_new" gtk_paper_size_new :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr PaperSize) - - -paperSizeNew :: - (MonadIO m) => - Maybe (T.Text) -- name - -> m PaperSize -- result -paperSizeNew name = liftIO $ do - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - result <- gtk_paper_size_new maybeName - checkUnexpectedReturnNULL "gtk_paper_size_new" result - result' <- (wrapBoxed PaperSize) result - freeMem maybeName - return result' - --- method PaperSize::new_custom --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_new_custom" gtk_paper_size_new_custom :: - CString -> -- name : TBasicType TUTF8 - CString -> -- display_name : TBasicType TUTF8 - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO (Ptr PaperSize) - - -paperSizeNewCustom :: - (MonadIO m) => - T.Text -- name - -> T.Text -- displayName - -> Double -- width - -> Double -- height - -> Unit -- unit - -> m PaperSize -- result -paperSizeNewCustom name displayName width height unit = liftIO $ do - name' <- textToCString name - displayName' <- textToCString displayName - let width' = realToFrac width - let height' = realToFrac height - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_new_custom name' displayName' width' height' unit' - checkUnexpectedReturnNULL "gtk_paper_size_new_custom" result - result' <- (wrapBoxed PaperSize) result - freeMem name' - freeMem displayName' - return result' - --- method PaperSize::new_from_ipp --- method type : Constructor --- Args : [Arg {argCName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_new_from_ipp" gtk_paper_size_new_from_ipp :: - CString -> -- ipp_name : TBasicType TUTF8 - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO (Ptr PaperSize) - - -paperSizeNewFromIpp :: - (MonadIO m) => - T.Text -- ippName - -> Double -- width - -> Double -- height - -> m PaperSize -- result -paperSizeNewFromIpp ippName width height = liftIO $ do - ippName' <- textToCString ippName - let width' = realToFrac width - let height' = realToFrac height - result <- gtk_paper_size_new_from_ipp ippName' width' height' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_ipp" result - result' <- (wrapBoxed PaperSize) result - freeMem ippName' - return result' - --- method PaperSize::new_from_key_file --- method type : Constructor --- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : True --- Skip return : False - -foreign import ccall "gtk_paper_size_new_from_key_file" gtk_paper_size_new_from_key_file :: - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PaperSize) - - -paperSizeNewFromKeyFile :: - (MonadIO m) => - GLib.KeyFile -- keyFile - -> T.Text -- groupName - -> m PaperSize -- result -paperSizeNewFromKeyFile keyFile groupName = liftIO $ do - let keyFile' = unsafeManagedPtrGetPtr keyFile - groupName' <- textToCString groupName - onException (do - result <- propagateGError $ gtk_paper_size_new_from_key_file keyFile' groupName' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_key_file" result - result' <- (wrapBoxed PaperSize) result - touchManagedPtr keyFile - freeMem groupName' - return result' - ) (do - freeMem groupName' - ) - --- method PaperSize::new_from_ppd --- method type : Constructor --- Args : [Arg {argCName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_new_from_ppd" gtk_paper_size_new_from_ppd :: - CString -> -- ppd_name : TBasicType TUTF8 - CString -> -- ppd_display_name : TBasicType TUTF8 - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO (Ptr PaperSize) - - -paperSizeNewFromPpd :: - (MonadIO m) => - T.Text -- ppdName - -> T.Text -- ppdDisplayName - -> Double -- width - -> Double -- height - -> m PaperSize -- result -paperSizeNewFromPpd ppdName ppdDisplayName width height = liftIO $ do - ppdName' <- textToCString ppdName - ppdDisplayName' <- textToCString ppdDisplayName - let width' = realToFrac width - let height' = realToFrac height - result <- gtk_paper_size_new_from_ppd ppdName' ppdDisplayName' width' height' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_ppd" result - result' <- (wrapBoxed PaperSize) result - freeMem ppdName' - freeMem ppdDisplayName' - return result' - --- method PaperSize::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "PaperSize") --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_copy" gtk_paper_size_copy :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO (Ptr PaperSize) - - -paperSizeCopy :: - (MonadIO m) => - PaperSize -- _obj - -> m PaperSize -- result -paperSizeCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_copy _obj' - checkUnexpectedReturnNULL "gtk_paper_size_copy" result - result' <- (wrapBoxed PaperSize) result - touchManagedPtr _obj - return result' - -data PaperSizeCopyMethodInfo -instance (signature ~ (m PaperSize), MonadIO m) => MethodInfo PaperSizeCopyMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeCopy - --- method PaperSize::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_free" gtk_paper_size_free :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO () - - -paperSizeFree :: - (MonadIO m) => - PaperSize -- _obj - -> m () -- result -paperSizeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_paper_size_free _obj' - touchManagedPtr _obj - return () - -data PaperSizeFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo PaperSizeFreeMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeFree - --- method PaperSize::get_default_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_default_bottom_margin" gtk_paper_size_get_default_bottom_margin :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetDefaultBottomMargin :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetDefaultBottomMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_default_bottom_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetDefaultBottomMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultBottomMarginMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetDefaultBottomMargin - --- method PaperSize::get_default_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_default_left_margin" gtk_paper_size_get_default_left_margin :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetDefaultLeftMargin :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetDefaultLeftMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_default_left_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetDefaultLeftMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultLeftMarginMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetDefaultLeftMargin - --- method PaperSize::get_default_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_default_right_margin" gtk_paper_size_get_default_right_margin :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetDefaultRightMargin :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetDefaultRightMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_default_right_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetDefaultRightMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultRightMarginMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetDefaultRightMargin - --- method PaperSize::get_default_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_default_top_margin" gtk_paper_size_get_default_top_margin :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetDefaultTopMargin :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetDefaultTopMargin _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_default_top_margin _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetDefaultTopMarginMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultTopMarginMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetDefaultTopMargin - --- method PaperSize::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_get_display_name" gtk_paper_size_get_display_name :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO CString - - -paperSizeGetDisplayName :: - (MonadIO m) => - PaperSize -- _obj - -> m T.Text -- result -paperSizeGetDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_get_display_name _obj' - checkUnexpectedReturnNULL "gtk_paper_size_get_display_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PaperSizeGetDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetDisplayNameMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetDisplayName - --- method PaperSize::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_height" gtk_paper_size_get_height :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetHeight :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetHeight _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_height _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetHeightMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetHeightMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetHeight - --- method PaperSize::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_get_name" gtk_paper_size_get_name :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO CString - - -paperSizeGetName :: - (MonadIO m) => - PaperSize -- _obj - -> m T.Text -- result -paperSizeGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_get_name _obj' - checkUnexpectedReturnNULL "gtk_paper_size_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PaperSizeGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetNameMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetName - --- method PaperSize::get_ppd_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_get_ppd_name" gtk_paper_size_get_ppd_name :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO CString - - -paperSizeGetPpdName :: - (MonadIO m) => - PaperSize -- _obj - -> m T.Text -- result -paperSizeGetPpdName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_get_ppd_name _obj' - checkUnexpectedReturnNULL "gtk_paper_size_get_ppd_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data PaperSizeGetPpdNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetPpdNameMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetPpdName - --- method PaperSize::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_get_width" gtk_paper_size_get_width :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -paperSizeGetWidth :: - (MonadIO m) => - PaperSize -- _obj - -> Unit -- unit - -> m Double -- result -paperSizeGetWidth _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_get_width _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PaperSizeGetWidthMethodInfo -instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetWidthMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeGetWidth - --- method PaperSize::is_custom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_is_custom" gtk_paper_size_is_custom :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO CInt - - -paperSizeIsCustom :: - (MonadIO m) => - PaperSize -- _obj - -> m Bool -- result -paperSizeIsCustom _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_is_custom _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PaperSizeIsCustomMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo PaperSizeIsCustomMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeIsCustom - --- method PaperSize::is_equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size2", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_is_equal" gtk_paper_size_is_equal :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - Ptr PaperSize -> -- size2 : TInterface "Gtk" "PaperSize" - IO CInt - - -paperSizeIsEqual :: - (MonadIO m) => - PaperSize -- _obj - -> PaperSize -- size2 - -> m Bool -- result -paperSizeIsEqual _obj size2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let size2' = unsafeManagedPtrGetPtr size2 - result <- gtk_paper_size_is_equal _obj' size2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr size2 - return result' - -data PaperSizeIsEqualMethodInfo -instance (signature ~ (PaperSize -> m Bool), MonadIO m) => MethodInfo PaperSizeIsEqualMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeIsEqual - --- method PaperSize::is_ipp --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", 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 "gtk_paper_size_is_ipp" gtk_paper_size_is_ipp :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - IO CInt - - -paperSizeIsIpp :: - (MonadIO m) => - PaperSize -- _obj - -> m Bool -- result -paperSizeIsIpp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_is_ipp _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PaperSizeIsIppMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo PaperSizeIsIppMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeIsIpp - --- method PaperSize::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", 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 "gtk_paper_size_set_size" gtk_paper_size_set_size :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -paperSizeSetSize :: - (MonadIO m) => - PaperSize -- _obj - -> Double -- width - -> Double -- height - -> Unit -- unit - -> m () -- result -paperSizeSetSize _obj width height unit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let width' = realToFrac width - let height' = realToFrac height - let unit' = (fromIntegral . fromEnum) unit - gtk_paper_size_set_size _obj' width' height' unit' - touchManagedPtr _obj - return () - -data PaperSizeSetSizeMethodInfo -instance (signature ~ (Double -> Double -> Unit -> m ()), MonadIO m) => MethodInfo PaperSizeSetSizeMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeSetSize - --- method PaperSize::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_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 "gtk_paper_size_to_key_file" gtk_paper_size_to_key_file :: - Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -paperSizeToKeyFile :: - (MonadIO m) => - PaperSize -- _obj - -> GLib.KeyFile -- keyFile - -> T.Text -- groupName - -> m () -- result -paperSizeToKeyFile _obj keyFile groupName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let keyFile' = unsafeManagedPtrGetPtr keyFile - groupName' <- textToCString groupName - gtk_paper_size_to_key_file _obj' keyFile' groupName' - touchManagedPtr _obj - touchManagedPtr keyFile - freeMem groupName' - return () - -data PaperSizeToKeyFileMethodInfo -instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m) => MethodInfo PaperSizeToKeyFileMethodInfo PaperSize signature where - overloadedMethod _ = paperSizeToKeyFile - --- method PaperSize::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_get_default" gtk_paper_size_get_default :: - IO CString - - -paperSizeGetDefault :: - (MonadIO m) => - m T.Text -- result -paperSizeGetDefault = liftIO $ do - result <- gtk_paper_size_get_default - checkUnexpectedReturnNULL "gtk_paper_size_get_default" result - result' <- cstringToText result - return result' - --- method PaperSize::get_paper_sizes --- method type : MemberFunction --- Args : [Arg {argCName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gtk" "PaperSize")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_paper_size_get_paper_sizes" gtk_paper_size_get_paper_sizes :: - CInt -> -- include_custom : TBasicType TBoolean - IO (Ptr (GList (Ptr PaperSize))) - - -paperSizeGetPaperSizes :: - (MonadIO m) => - Bool -- includeCustom - -> m [PaperSize] -- result -paperSizeGetPaperSizes includeCustom = liftIO $ do - let includeCustom' = (fromIntegral . fromEnum) includeCustom - result <- gtk_paper_size_get_paper_sizes includeCustom' - result' <- unpackGList result - result'' <- mapM (wrapBoxed PaperSize) result' - g_list_free result - return result'' - -type family ResolvePaperSizeMethod (t :: Symbol) (o :: *) :: * where - ResolvePaperSizeMethod "copy" o = PaperSizeCopyMethodInfo - ResolvePaperSizeMethod "free" o = PaperSizeFreeMethodInfo - ResolvePaperSizeMethod "isCustom" o = PaperSizeIsCustomMethodInfo - ResolvePaperSizeMethod "isEqual" o = PaperSizeIsEqualMethodInfo - ResolvePaperSizeMethod "isIpp" o = PaperSizeIsIppMethodInfo - ResolvePaperSizeMethod "toKeyFile" o = PaperSizeToKeyFileMethodInfo - ResolvePaperSizeMethod "getDefaultBottomMargin" o = PaperSizeGetDefaultBottomMarginMethodInfo - ResolvePaperSizeMethod "getDefaultLeftMargin" o = PaperSizeGetDefaultLeftMarginMethodInfo - ResolvePaperSizeMethod "getDefaultRightMargin" o = PaperSizeGetDefaultRightMarginMethodInfo - ResolvePaperSizeMethod "getDefaultTopMargin" o = PaperSizeGetDefaultTopMarginMethodInfo - ResolvePaperSizeMethod "getDisplayName" o = PaperSizeGetDisplayNameMethodInfo - ResolvePaperSizeMethod "getHeight" o = PaperSizeGetHeightMethodInfo - ResolvePaperSizeMethod "getName" o = PaperSizeGetNameMethodInfo - ResolvePaperSizeMethod "getPpdName" o = PaperSizeGetPpdNameMethodInfo - ResolvePaperSizeMethod "getWidth" o = PaperSizeGetWidthMethodInfo - ResolvePaperSizeMethod "setSize" o = PaperSizeSetSizeMethodInfo - ResolvePaperSizeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePaperSizeMethod t PaperSize, MethodInfo info PaperSize p) => IsLabelProxy t (PaperSize -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePaperSizeMethod t PaperSize, MethodInfo info PaperSize p) => IsLabel t (PaperSize -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/PaperSize.hs-boot b/GI/Gtk/Structs/PaperSize.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/PaperSize.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gtk.Structs.PaperSize 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 PaperSize = PaperSize (ForeignPtr PaperSize) -instance BoxedObject PaperSize where -data PaperSizeCopyMethodInfo -data PaperSizeFreeMethodInfo -data PaperSizeGetDefaultBottomMarginMethodInfo -data PaperSizeGetDefaultLeftMarginMethodInfo -data PaperSizeGetDefaultRightMarginMethodInfo -data PaperSizeGetDefaultTopMarginMethodInfo -data PaperSizeGetDisplayNameMethodInfo -data PaperSizeGetHeightMethodInfo -data PaperSizeGetNameMethodInfo -data PaperSizeGetPpdNameMethodInfo -data PaperSizeGetWidthMethodInfo -data PaperSizeIsCustomMethodInfo -data PaperSizeIsEqualMethodInfo -data PaperSizeIsIppMethodInfo -data PaperSizeSetSizeMethodInfo -data PaperSizeToKeyFileMethodInfo diff --git a/GI/Gtk/Structs/RadioActionEntry.hs b/GI/Gtk/Structs/RadioActionEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RadioActionEntry.hs +++ /dev/null @@ -1,297 +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) - -#GtkRadioActionEntry structs are used with -gtk_action_group_add_radio_actions() to construct groups of radio actions. --} - -module GI.Gtk.Structs.RadioActionEntry - ( - --- * Exported types - RadioActionEntry(..) , - newZeroRadioActionEntry , - noRadioActionEntry , - - - -- * Properties --- ** Accelerator - radioActionEntryAccelerator , - radioActionEntryClearAccelerator , - radioActionEntryReadAccelerator , - radioActionEntryWriteAccelerator , - - --- ** Label - radioActionEntryClearLabel , - radioActionEntryLabel , - radioActionEntryReadLabel , - radioActionEntryWriteLabel , - - --- ** Name - radioActionEntryClearName , - radioActionEntryName , - radioActionEntryReadName , - radioActionEntryWriteName , - - --- ** StockId - radioActionEntryClearStockId , - radioActionEntryReadStockId , - radioActionEntryStockId , - radioActionEntryWriteStockId , - - --- ** Tooltip - radioActionEntryClearTooltip , - radioActionEntryReadTooltip , - radioActionEntryTooltip , - radioActionEntryWriteTooltip , - - --- ** Value - radioActionEntryReadValue , - radioActionEntryValue , - radioActionEntryWriteValue , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry) -instance WrappedPtr RadioActionEntry where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RadioActionEntry` struct initialized to zero. -newZeroRadioActionEntry :: MonadIO m => m RadioActionEntry -newZeroRadioActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr RadioActionEntry - -instance tag ~ 'AttrSet => Constructible RadioActionEntry tag where - new _ attrs = do - o <- newZeroRadioActionEntry - GI.Attributes.set o attrs - return o - - -noRadioActionEntry :: Maybe RadioActionEntry -noRadioActionEntry = Nothing - -radioActionEntryReadName :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) -radioActionEntryReadName 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 - -radioActionEntryWriteName :: MonadIO m => RadioActionEntry -> CString -> m () -radioActionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -radioActionEntryClearName :: MonadIO m => RadioActionEntry -> m () -radioActionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data RadioActionEntryNameFieldInfo -instance AttrInfo RadioActionEntryNameFieldInfo where - type AttrAllowedOps RadioActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RadioActionEntryNameFieldInfo = (~) CString - type AttrBaseTypeConstraint RadioActionEntryNameFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryNameFieldInfo = Maybe T.Text - type AttrLabel RadioActionEntryNameFieldInfo = "name" - attrGet _ = radioActionEntryReadName - attrSet _ = radioActionEntryWriteName - attrConstruct = undefined - attrClear _ = radioActionEntryClearName - -radioActionEntryName :: AttrLabelProxy "name" -radioActionEntryName = AttrLabelProxy - - -radioActionEntryReadStockId :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) -radioActionEntryReadStockId 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 - -radioActionEntryWriteStockId :: MonadIO m => RadioActionEntry -> CString -> m () -radioActionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -radioActionEntryClearStockId :: MonadIO m => RadioActionEntry -> m () -radioActionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data RadioActionEntryStockIdFieldInfo -instance AttrInfo RadioActionEntryStockIdFieldInfo where - type AttrAllowedOps RadioActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RadioActionEntryStockIdFieldInfo = (~) CString - type AttrBaseTypeConstraint RadioActionEntryStockIdFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryStockIdFieldInfo = Maybe T.Text - type AttrLabel RadioActionEntryStockIdFieldInfo = "stock_id" - attrGet _ = radioActionEntryReadStockId - attrSet _ = radioActionEntryWriteStockId - attrConstruct = undefined - attrClear _ = radioActionEntryClearStockId - -radioActionEntryStockId :: AttrLabelProxy "stockId" -radioActionEntryStockId = AttrLabelProxy - - -radioActionEntryReadLabel :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) -radioActionEntryReadLabel 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 - -radioActionEntryWriteLabel :: MonadIO m => RadioActionEntry -> CString -> m () -radioActionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -radioActionEntryClearLabel :: MonadIO m => RadioActionEntry -> m () -radioActionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data RadioActionEntryLabelFieldInfo -instance AttrInfo RadioActionEntryLabelFieldInfo where - type AttrAllowedOps RadioActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RadioActionEntryLabelFieldInfo = (~) CString - type AttrBaseTypeConstraint RadioActionEntryLabelFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryLabelFieldInfo = Maybe T.Text - type AttrLabel RadioActionEntryLabelFieldInfo = "label" - attrGet _ = radioActionEntryReadLabel - attrSet _ = radioActionEntryWriteLabel - attrConstruct = undefined - attrClear _ = radioActionEntryClearLabel - -radioActionEntryLabel :: AttrLabelProxy "label" -radioActionEntryLabel = AttrLabelProxy - - -radioActionEntryReadAccelerator :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) -radioActionEntryReadAccelerator 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 - -radioActionEntryWriteAccelerator :: MonadIO m => RadioActionEntry -> CString -> m () -radioActionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -radioActionEntryClearAccelerator :: MonadIO m => RadioActionEntry -> m () -radioActionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data RadioActionEntryAcceleratorFieldInfo -instance AttrInfo RadioActionEntryAcceleratorFieldInfo where - type AttrAllowedOps RadioActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) CString - type AttrBaseTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryAcceleratorFieldInfo = Maybe T.Text - type AttrLabel RadioActionEntryAcceleratorFieldInfo = "accelerator" - attrGet _ = radioActionEntryReadAccelerator - attrSet _ = radioActionEntryWriteAccelerator - attrConstruct = undefined - attrClear _ = radioActionEntryClearAccelerator - -radioActionEntryAccelerator :: AttrLabelProxy "accelerator" -radioActionEntryAccelerator = AttrLabelProxy - - -radioActionEntryReadTooltip :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) -radioActionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -radioActionEntryWriteTooltip :: MonadIO m => RadioActionEntry -> CString -> m () -radioActionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -radioActionEntryClearTooltip :: MonadIO m => RadioActionEntry -> m () -radioActionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data RadioActionEntryTooltipFieldInfo -instance AttrInfo RadioActionEntryTooltipFieldInfo where - type AttrAllowedOps RadioActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RadioActionEntryTooltipFieldInfo = (~) CString - type AttrBaseTypeConstraint RadioActionEntryTooltipFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryTooltipFieldInfo = Maybe T.Text - type AttrLabel RadioActionEntryTooltipFieldInfo = "tooltip" - attrGet _ = radioActionEntryReadTooltip - attrSet _ = radioActionEntryWriteTooltip - attrConstruct = undefined - attrClear _ = radioActionEntryClearTooltip - -radioActionEntryTooltip :: AttrLabelProxy "tooltip" -radioActionEntryTooltip = AttrLabelProxy - - -radioActionEntryReadValue :: MonadIO m => RadioActionEntry -> m Int32 -radioActionEntryReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Int32 - return val - -radioActionEntryWriteValue :: MonadIO m => RadioActionEntry -> Int32 -> m () -radioActionEntryWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Int32) - -data RadioActionEntryValueFieldInfo -instance AttrInfo RadioActionEntryValueFieldInfo where - type AttrAllowedOps RadioActionEntryValueFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RadioActionEntryValueFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RadioActionEntryValueFieldInfo = (~) RadioActionEntry - type AttrGetType RadioActionEntryValueFieldInfo = Int32 - type AttrLabel RadioActionEntryValueFieldInfo = "value" - attrGet _ = radioActionEntryReadValue - attrSet _ = radioActionEntryWriteValue - attrConstruct = undefined - attrClear _ = undefined - -radioActionEntryValue :: AttrLabelProxy "value" -radioActionEntryValue = AttrLabelProxy - - - -type instance AttributeList RadioActionEntry = RadioActionEntryAttributeList -type RadioActionEntryAttributeList = ('[ '("name", RadioActionEntryNameFieldInfo), '("stockId", RadioActionEntryStockIdFieldInfo), '("label", RadioActionEntryLabelFieldInfo), '("accelerator", RadioActionEntryAcceleratorFieldInfo), '("tooltip", RadioActionEntryTooltipFieldInfo), '("value", RadioActionEntryValueFieldInfo)] :: [(Symbol, *)]) - -type family ResolveRadioActionEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveRadioActionEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRadioActionEntryMethod t RadioActionEntry, MethodInfo info RadioActionEntry p) => IsLabelProxy t (RadioActionEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRadioActionEntryMethod t RadioActionEntry, MethodInfo info RadioActionEntry p) => IsLabel t (RadioActionEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RadioActionEntry.hs-boot b/GI/Gtk/Structs/RadioActionEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RadioActionEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RadioActionEntry 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 RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry) -instance WrappedPtr RadioActionEntry where diff --git a/GI/Gtk/Structs/RcContext.hs b/GI/Gtk/Structs/RcContext.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RcContext.hs +++ /dev/null @@ -1,54 +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.Gtk.Structs.RcContext - ( - --- * Exported types - RcContext(..) , - noRcContext , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype RcContext = RcContext (ForeignPtr RcContext) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr RcContext where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noRcContext :: Maybe RcContext -noRcContext = Nothing - - -type instance AttributeList RcContext = RcContextAttributeList -type RcContextAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveRcContextMethod (t :: Symbol) (o :: *) :: * where - ResolveRcContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRcContextMethod t RcContext, MethodInfo info RcContext p) => IsLabelProxy t (RcContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRcContextMethod t RcContext, MethodInfo info RcContext p) => IsLabel t (RcContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RcContext.hs-boot b/GI/Gtk/Structs/RcContext.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RcContext.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RcContext 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 RcContext = RcContext (ForeignPtr RcContext) -instance WrappedPtr RcContext where diff --git a/GI/Gtk/Structs/RcProperty.hs b/GI/Gtk/Structs/RcProperty.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RcProperty.hs +++ /dev/null @@ -1,389 +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) - -Deprecated --} - -module GI.Gtk.Structs.RcProperty - ( - --- * Exported types - RcProperty(..) , - newZeroRcProperty , - noRcProperty , - - - -- * Methods --- ** rcPropertyParseBorder - rcPropertyParseBorder , - - --- ** rcPropertyParseColor - rcPropertyParseColor , - - --- ** rcPropertyParseEnum - rcPropertyParseEnum , - - --- ** rcPropertyParseFlags - rcPropertyParseFlags , - - --- ** rcPropertyParseRequisition - rcPropertyParseRequisition , - - - - - -- * Properties --- ** Origin - rcPropertyClearOrigin , - rcPropertyOrigin , - rcPropertyReadOrigin , - rcPropertyWriteOrigin , - - --- ** PropertyName - rcPropertyPropertyName , - rcPropertyReadPropertyName , - rcPropertyWritePropertyName , - - --- ** TypeName - rcPropertyReadTypeName , - rcPropertyTypeName , - rcPropertyWriteTypeName , - - --- ** Value - rcPropertyClearValue , - rcPropertyReadValue , - rcPropertyValue , - rcPropertyWriteValue , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib - -newtype RcProperty = RcProperty (ForeignPtr RcProperty) -instance WrappedPtr RcProperty where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RcProperty` struct initialized to zero. -newZeroRcProperty :: MonadIO m => m RcProperty -newZeroRcProperty = liftIO $ wrappedPtrCalloc >>= wrapPtr RcProperty - -instance tag ~ 'AttrSet => Constructible RcProperty tag where - new _ attrs = do - o <- newZeroRcProperty - GI.Attributes.set o attrs - return o - - -noRcProperty :: Maybe RcProperty -noRcProperty = Nothing - -rcPropertyReadTypeName :: MonadIO m => RcProperty -> m Word32 -rcPropertyReadTypeName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -rcPropertyWriteTypeName :: MonadIO m => RcProperty -> Word32 -> m () -rcPropertyWriteTypeName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data RcPropertyTypeNameFieldInfo -instance AttrInfo RcPropertyTypeNameFieldInfo where - type AttrAllowedOps RcPropertyTypeNameFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RcPropertyTypeNameFieldInfo = (~) Word32 - type AttrBaseTypeConstraint RcPropertyTypeNameFieldInfo = (~) RcProperty - type AttrGetType RcPropertyTypeNameFieldInfo = Word32 - type AttrLabel RcPropertyTypeNameFieldInfo = "type_name" - attrGet _ = rcPropertyReadTypeName - attrSet _ = rcPropertyWriteTypeName - attrConstruct = undefined - attrClear _ = undefined - -rcPropertyTypeName :: AttrLabelProxy "typeName" -rcPropertyTypeName = AttrLabelProxy - - -rcPropertyReadPropertyName :: MonadIO m => RcProperty -> m Word32 -rcPropertyReadPropertyName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -rcPropertyWritePropertyName :: MonadIO m => RcProperty -> Word32 -> m () -rcPropertyWritePropertyName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word32) - -data RcPropertyPropertyNameFieldInfo -instance AttrInfo RcPropertyPropertyNameFieldInfo where - type AttrAllowedOps RcPropertyPropertyNameFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RcPropertyPropertyNameFieldInfo = (~) Word32 - type AttrBaseTypeConstraint RcPropertyPropertyNameFieldInfo = (~) RcProperty - type AttrGetType RcPropertyPropertyNameFieldInfo = Word32 - type AttrLabel RcPropertyPropertyNameFieldInfo = "property_name" - attrGet _ = rcPropertyReadPropertyName - attrSet _ = rcPropertyWritePropertyName - attrConstruct = undefined - attrClear _ = undefined - -rcPropertyPropertyName :: AttrLabelProxy "propertyName" -rcPropertyPropertyName = AttrLabelProxy - - -rcPropertyReadOrigin :: MonadIO m => RcProperty -> m (Maybe T.Text) -rcPropertyReadOrigin 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 - -rcPropertyWriteOrigin :: MonadIO m => RcProperty -> CString -> m () -rcPropertyWriteOrigin s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -rcPropertyClearOrigin :: MonadIO m => RcProperty -> m () -rcPropertyClearOrigin s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data RcPropertyOriginFieldInfo -instance AttrInfo RcPropertyOriginFieldInfo where - type AttrAllowedOps RcPropertyOriginFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RcPropertyOriginFieldInfo = (~) CString - type AttrBaseTypeConstraint RcPropertyOriginFieldInfo = (~) RcProperty - type AttrGetType RcPropertyOriginFieldInfo = Maybe T.Text - type AttrLabel RcPropertyOriginFieldInfo = "origin" - attrGet _ = rcPropertyReadOrigin - attrSet _ = rcPropertyWriteOrigin - attrConstruct = undefined - attrClear _ = rcPropertyClearOrigin - -rcPropertyOrigin :: AttrLabelProxy "origin" -rcPropertyOrigin = AttrLabelProxy - - -rcPropertyReadValue :: MonadIO m => RcProperty -> m (Maybe GValue) -rcPropertyReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr GValue) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed GValue) val' - return val'' - return result - -rcPropertyWriteValue :: MonadIO m => RcProperty -> Ptr GValue -> m () -rcPropertyWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr GValue) - -rcPropertyClearValue :: MonadIO m => RcProperty -> m () -rcPropertyClearValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr GValue) - -data RcPropertyValueFieldInfo -instance AttrInfo RcPropertyValueFieldInfo where - type AttrAllowedOps RcPropertyValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RcPropertyValueFieldInfo = (~) (Ptr GValue) - type AttrBaseTypeConstraint RcPropertyValueFieldInfo = (~) RcProperty - type AttrGetType RcPropertyValueFieldInfo = Maybe GValue - type AttrLabel RcPropertyValueFieldInfo = "value" - attrGet _ = rcPropertyReadValue - attrSet _ = rcPropertyWriteValue - attrConstruct = undefined - attrClear _ = rcPropertyClearValue - -rcPropertyValue :: AttrLabelProxy "value" -rcPropertyValue = AttrLabelProxy - - - -type instance AttributeList RcProperty = RcPropertyAttributeList -type RcPropertyAttributeList = ('[ '("typeName", RcPropertyTypeNameFieldInfo), '("propertyName", RcPropertyPropertyNameFieldInfo), '("origin", RcPropertyOriginFieldInfo), '("value", RcPropertyValueFieldInfo)] :: [(Symbol, *)]) - --- method RcProperty::parse_border --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 "gtk_rc_property_parse_border" gtk_rc_property_parse_border :: - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GLib.String -> -- gstring : TInterface "GLib" "String" - Ptr GValue -> -- property_value : TInterface "GObject" "Value" - IO CInt - - -rcPropertyParseBorder :: - (MonadIO m) => - GParamSpec -- pspec - -> GLib.String -- gstring - -> GValue -- propertyValue - -> m Bool -- result -rcPropertyParseBorder pspec gstring propertyValue = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let propertyValue' = unsafeManagedPtrGetPtr propertyValue - result <- gtk_rc_property_parse_border pspec' gstring' propertyValue' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr propertyValue - return result' - --- method RcProperty::parse_color --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 "gtk_rc_property_parse_color" gtk_rc_property_parse_color :: - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GLib.String -> -- gstring : TInterface "GLib" "String" - Ptr GValue -> -- property_value : TInterface "GObject" "Value" - IO CInt - - -rcPropertyParseColor :: - (MonadIO m) => - GParamSpec -- pspec - -> GLib.String -- gstring - -> GValue -- propertyValue - -> m Bool -- result -rcPropertyParseColor pspec gstring propertyValue = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let propertyValue' = unsafeManagedPtrGetPtr propertyValue - result <- gtk_rc_property_parse_color pspec' gstring' propertyValue' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr propertyValue - return result' - --- method RcProperty::parse_enum --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 "gtk_rc_property_parse_enum" gtk_rc_property_parse_enum :: - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GLib.String -> -- gstring : TInterface "GLib" "String" - Ptr GValue -> -- property_value : TInterface "GObject" "Value" - IO CInt - - -rcPropertyParseEnum :: - (MonadIO m) => - GParamSpec -- pspec - -> GLib.String -- gstring - -> GValue -- propertyValue - -> m Bool -- result -rcPropertyParseEnum pspec gstring propertyValue = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let propertyValue' = unsafeManagedPtrGetPtr propertyValue - result <- gtk_rc_property_parse_enum pspec' gstring' propertyValue' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr propertyValue - return result' - --- method RcProperty::parse_flags --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 "gtk_rc_property_parse_flags" gtk_rc_property_parse_flags :: - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GLib.String -> -- gstring : TInterface "GLib" "String" - Ptr GValue -> -- property_value : TInterface "GObject" "Value" - IO CInt - - -rcPropertyParseFlags :: - (MonadIO m) => - GParamSpec -- pspec - -> GLib.String -- gstring - -> GValue -- propertyValue - -> m Bool -- result -rcPropertyParseFlags pspec gstring propertyValue = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let propertyValue' = unsafeManagedPtrGetPtr propertyValue - result <- gtk_rc_property_parse_flags pspec' gstring' propertyValue' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr propertyValue - return result' - --- method RcProperty::parse_requisition --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 "gtk_rc_property_parse_requisition" gtk_rc_property_parse_requisition :: - Ptr GParamSpec -> -- pspec : TParamSpec - Ptr GLib.String -> -- gstring : TInterface "GLib" "String" - Ptr GValue -> -- property_value : TInterface "GObject" "Value" - IO CInt - - -rcPropertyParseRequisition :: - (MonadIO m) => - GParamSpec -- pspec - -> GLib.String -- gstring - -> GValue -- propertyValue - -> m Bool -- result -rcPropertyParseRequisition pspec gstring propertyValue = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let propertyValue' = unsafeManagedPtrGetPtr propertyValue - result <- gtk_rc_property_parse_requisition pspec' gstring' propertyValue' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr propertyValue - return result' - -type family ResolveRcPropertyMethod (t :: Symbol) (o :: *) :: * where - ResolveRcPropertyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRcPropertyMethod t RcProperty, MethodInfo info RcProperty p) => IsLabelProxy t (RcProperty -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRcPropertyMethod t RcProperty, MethodInfo info RcProperty p) => IsLabel t (RcProperty -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RcProperty.hs-boot b/GI/Gtk/Structs/RcProperty.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RcProperty.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RcProperty 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 RcProperty = RcProperty (ForeignPtr RcProperty) -instance WrappedPtr RcProperty where diff --git a/GI/Gtk/Structs/RecentData.hs b/GI/Gtk/Structs/RecentData.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RecentData.hs +++ /dev/null @@ -1,338 +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) - -Meta-data to be passed to gtk_recent_manager_add_full() when -registering a recently used resource. --} - -module GI.Gtk.Structs.RecentData - ( - --- * Exported types - RecentData(..) , - newZeroRecentData , - noRecentData , - - - -- * Properties --- ** AppExec - recentDataAppExec , - recentDataClearAppExec , - recentDataReadAppExec , - recentDataWriteAppExec , - - --- ** AppName - recentDataAppName , - recentDataClearAppName , - recentDataReadAppName , - recentDataWriteAppName , - - --- ** Description - recentDataClearDescription , - recentDataDescription , - recentDataReadDescription , - recentDataWriteDescription , - - --- ** DisplayName - recentDataClearDisplayName , - recentDataDisplayName , - recentDataReadDisplayName , - recentDataWriteDisplayName , - - --- ** Groups - recentDataClearGroups , - recentDataGroups , - recentDataReadGroups , - recentDataWriteGroups , - - --- ** IsPrivate - recentDataIsPrivate , - recentDataReadIsPrivate , - recentDataWriteIsPrivate , - - --- ** MimeType - recentDataClearMimeType , - recentDataMimeType , - recentDataReadMimeType , - recentDataWriteMimeType , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype RecentData = RecentData (ForeignPtr RecentData) -instance WrappedPtr RecentData where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RecentData` struct initialized to zero. -newZeroRecentData :: MonadIO m => m RecentData -newZeroRecentData = liftIO $ wrappedPtrCalloc >>= wrapPtr RecentData - -instance tag ~ 'AttrSet => Constructible RecentData tag where - new _ attrs = do - o <- newZeroRecentData - GI.Attributes.set o attrs - return o - - -noRecentData :: Maybe RecentData -noRecentData = Nothing - -recentDataReadDisplayName :: MonadIO m => RecentData -> m (Maybe T.Text) -recentDataReadDisplayName 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 - -recentDataWriteDisplayName :: MonadIO m => RecentData -> CString -> m () -recentDataWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -recentDataClearDisplayName :: MonadIO m => RecentData -> m () -recentDataClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data RecentDataDisplayNameFieldInfo -instance AttrInfo RecentDataDisplayNameFieldInfo where - type AttrAllowedOps RecentDataDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataDisplayNameFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentDataDisplayNameFieldInfo = (~) RecentData - type AttrGetType RecentDataDisplayNameFieldInfo = Maybe T.Text - type AttrLabel RecentDataDisplayNameFieldInfo = "display_name" - attrGet _ = recentDataReadDisplayName - attrSet _ = recentDataWriteDisplayName - attrConstruct = undefined - attrClear _ = recentDataClearDisplayName - -recentDataDisplayName :: AttrLabelProxy "displayName" -recentDataDisplayName = AttrLabelProxy - - -recentDataReadDescription :: MonadIO m => RecentData -> m (Maybe T.Text) -recentDataReadDescription 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 - -recentDataWriteDescription :: MonadIO m => RecentData -> CString -> m () -recentDataWriteDescription s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -recentDataClearDescription :: MonadIO m => RecentData -> m () -recentDataClearDescription s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data RecentDataDescriptionFieldInfo -instance AttrInfo RecentDataDescriptionFieldInfo where - type AttrAllowedOps RecentDataDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataDescriptionFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentDataDescriptionFieldInfo = (~) RecentData - type AttrGetType RecentDataDescriptionFieldInfo = Maybe T.Text - type AttrLabel RecentDataDescriptionFieldInfo = "description" - attrGet _ = recentDataReadDescription - attrSet _ = recentDataWriteDescription - attrConstruct = undefined - attrClear _ = recentDataClearDescription - -recentDataDescription :: AttrLabelProxy "description" -recentDataDescription = AttrLabelProxy - - -recentDataReadMimeType :: MonadIO m => RecentData -> m (Maybe T.Text) -recentDataReadMimeType 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 - -recentDataWriteMimeType :: MonadIO m => RecentData -> CString -> m () -recentDataWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -recentDataClearMimeType :: MonadIO m => RecentData -> m () -recentDataClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data RecentDataMimeTypeFieldInfo -instance AttrInfo RecentDataMimeTypeFieldInfo where - type AttrAllowedOps RecentDataMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataMimeTypeFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentDataMimeTypeFieldInfo = (~) RecentData - type AttrGetType RecentDataMimeTypeFieldInfo = Maybe T.Text - type AttrLabel RecentDataMimeTypeFieldInfo = "mime_type" - attrGet _ = recentDataReadMimeType - attrSet _ = recentDataWriteMimeType - attrConstruct = undefined - attrClear _ = recentDataClearMimeType - -recentDataMimeType :: AttrLabelProxy "mimeType" -recentDataMimeType = AttrLabelProxy - - -recentDataReadAppName :: MonadIO m => RecentData -> m (Maybe T.Text) -recentDataReadAppName 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 - -recentDataWriteAppName :: MonadIO m => RecentData -> CString -> m () -recentDataWriteAppName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -recentDataClearAppName :: MonadIO m => RecentData -> m () -recentDataClearAppName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data RecentDataAppNameFieldInfo -instance AttrInfo RecentDataAppNameFieldInfo where - type AttrAllowedOps RecentDataAppNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataAppNameFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentDataAppNameFieldInfo = (~) RecentData - type AttrGetType RecentDataAppNameFieldInfo = Maybe T.Text - type AttrLabel RecentDataAppNameFieldInfo = "app_name" - attrGet _ = recentDataReadAppName - attrSet _ = recentDataWriteAppName - attrConstruct = undefined - attrClear _ = recentDataClearAppName - -recentDataAppName :: AttrLabelProxy "appName" -recentDataAppName = AttrLabelProxy - - -recentDataReadAppExec :: MonadIO m => RecentData -> m (Maybe T.Text) -recentDataReadAppExec s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -recentDataWriteAppExec :: MonadIO m => RecentData -> CString -> m () -recentDataWriteAppExec s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -recentDataClearAppExec :: MonadIO m => RecentData -> m () -recentDataClearAppExec s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data RecentDataAppExecFieldInfo -instance AttrInfo RecentDataAppExecFieldInfo where - type AttrAllowedOps RecentDataAppExecFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataAppExecFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentDataAppExecFieldInfo = (~) RecentData - type AttrGetType RecentDataAppExecFieldInfo = Maybe T.Text - type AttrLabel RecentDataAppExecFieldInfo = "app_exec" - attrGet _ = recentDataReadAppExec - attrSet _ = recentDataWriteAppExec - attrConstruct = undefined - attrClear _ = recentDataClearAppExec - -recentDataAppExec :: AttrLabelProxy "appExec" -recentDataAppExec = AttrLabelProxy - - -recentDataReadGroups :: MonadIO m => RecentData -> m (Maybe [T.Text]) -recentDataReadGroups s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedUTF8CArray val' - return val'' - return result - -recentDataWriteGroups :: MonadIO m => RecentData -> Ptr CString -> m () -recentDataWriteGroups s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr CString) - -recentDataClearGroups :: MonadIO m => RecentData -> m () -recentDataClearGroups s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr CString) - -data RecentDataGroupsFieldInfo -instance AttrInfo RecentDataGroupsFieldInfo where - type AttrAllowedOps RecentDataGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentDataGroupsFieldInfo = (~) (Ptr CString) - type AttrBaseTypeConstraint RecentDataGroupsFieldInfo = (~) RecentData - type AttrGetType RecentDataGroupsFieldInfo = Maybe [T.Text] - type AttrLabel RecentDataGroupsFieldInfo = "groups" - attrGet _ = recentDataReadGroups - attrSet _ = recentDataWriteGroups - attrConstruct = undefined - attrClear _ = recentDataClearGroups - -recentDataGroups :: AttrLabelProxy "groups" -recentDataGroups = AttrLabelProxy - - -recentDataReadIsPrivate :: MonadIO m => RecentData -> m Bool -recentDataReadIsPrivate s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CInt - let val' = (/= 0) val - return val' - -recentDataWriteIsPrivate :: MonadIO m => RecentData -> Bool -> m () -recentDataWriteIsPrivate s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 48) (val' :: CInt) - -data RecentDataIsPrivateFieldInfo -instance AttrInfo RecentDataIsPrivateFieldInfo where - type AttrAllowedOps RecentDataIsPrivateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RecentDataIsPrivateFieldInfo = (~) Bool - type AttrBaseTypeConstraint RecentDataIsPrivateFieldInfo = (~) RecentData - type AttrGetType RecentDataIsPrivateFieldInfo = Bool - type AttrLabel RecentDataIsPrivateFieldInfo = "is_private" - attrGet _ = recentDataReadIsPrivate - attrSet _ = recentDataWriteIsPrivate - attrConstruct = undefined - attrClear _ = undefined - -recentDataIsPrivate :: AttrLabelProxy "isPrivate" -recentDataIsPrivate = AttrLabelProxy - - - -type instance AttributeList RecentData = RecentDataAttributeList -type RecentDataAttributeList = ('[ '("displayName", RecentDataDisplayNameFieldInfo), '("description", RecentDataDescriptionFieldInfo), '("mimeType", RecentDataMimeTypeFieldInfo), '("appName", RecentDataAppNameFieldInfo), '("appExec", RecentDataAppExecFieldInfo), '("groups", RecentDataGroupsFieldInfo), '("isPrivate", RecentDataIsPrivateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveRecentDataMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentDataMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentDataMethod t RecentData, MethodInfo info RecentData p) => IsLabelProxy t (RecentData -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentDataMethod t RecentData, MethodInfo info RecentData p) => IsLabel t (RecentData -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RecentData.hs-boot b/GI/Gtk/Structs/RecentData.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RecentData.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RecentData 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 RecentData = RecentData (ForeignPtr RecentData) -instance WrappedPtr RecentData where diff --git a/GI/Gtk/Structs/RecentFilterInfo.hs b/GI/Gtk/Structs/RecentFilterInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RecentFilterInfo.hs +++ /dev/null @@ -1,330 +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 GtkRecentFilterInfo struct is used -to pass information about the tested file to gtk_recent_filter_filter(). --} - -module GI.Gtk.Structs.RecentFilterInfo - ( - --- * Exported types - RecentFilterInfo(..) , - newZeroRecentFilterInfo , - noRecentFilterInfo , - - - -- * Properties --- ** Age - recentFilterInfoAge , - recentFilterInfoReadAge , - recentFilterInfoWriteAge , - - --- ** Applications - recentFilterInfoApplications , - recentFilterInfoClearApplications , - recentFilterInfoReadApplications , - recentFilterInfoWriteApplications , - - --- ** Contains - recentFilterInfoContains , - recentFilterInfoReadContains , - recentFilterInfoWriteContains , - - --- ** DisplayName - recentFilterInfoClearDisplayName , - recentFilterInfoDisplayName , - recentFilterInfoReadDisplayName , - recentFilterInfoWriteDisplayName , - - --- ** Groups - recentFilterInfoClearGroups , - recentFilterInfoGroups , - recentFilterInfoReadGroups , - recentFilterInfoWriteGroups , - - --- ** MimeType - recentFilterInfoClearMimeType , - recentFilterInfoMimeType , - recentFilterInfoReadMimeType , - recentFilterInfoWriteMimeType , - - --- ** Uri - recentFilterInfoClearUri , - recentFilterInfoReadUri , - recentFilterInfoUri , - recentFilterInfoWriteUri , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo) -instance WrappedPtr RecentFilterInfo where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RecentFilterInfo` struct initialized to zero. -newZeroRecentFilterInfo :: MonadIO m => m RecentFilterInfo -newZeroRecentFilterInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr RecentFilterInfo - -instance tag ~ 'AttrSet => Constructible RecentFilterInfo tag where - new _ attrs = do - o <- newZeroRecentFilterInfo - GI.Attributes.set o attrs - return o - - -noRecentFilterInfo :: Maybe RecentFilterInfo -noRecentFilterInfo = Nothing - -recentFilterInfoReadContains :: MonadIO m => RecentFilterInfo -> m [RecentFilterFlags] -recentFilterInfoReadContains s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = wordToGFlags val - return val' - -recentFilterInfoWriteContains :: MonadIO m => RecentFilterInfo -> [RecentFilterFlags] -> m () -recentFilterInfoWriteContains s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data RecentFilterInfoContainsFieldInfo -instance AttrInfo RecentFilterInfoContainsFieldInfo where - type AttrAllowedOps RecentFilterInfoContainsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RecentFilterInfoContainsFieldInfo = (~) [RecentFilterFlags] - type AttrBaseTypeConstraint RecentFilterInfoContainsFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoContainsFieldInfo = [RecentFilterFlags] - type AttrLabel RecentFilterInfoContainsFieldInfo = "contains" - attrGet _ = recentFilterInfoReadContains - attrSet _ = recentFilterInfoWriteContains - attrConstruct = undefined - attrClear _ = undefined - -recentFilterInfoContains :: AttrLabelProxy "contains" -recentFilterInfoContains = AttrLabelProxy - - -recentFilterInfoReadUri :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) -recentFilterInfoReadUri 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 - -recentFilterInfoWriteUri :: MonadIO m => RecentFilterInfo -> CString -> m () -recentFilterInfoWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -recentFilterInfoClearUri :: MonadIO m => RecentFilterInfo -> m () -recentFilterInfoClearUri s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data RecentFilterInfoUriFieldInfo -instance AttrInfo RecentFilterInfoUriFieldInfo where - type AttrAllowedOps RecentFilterInfoUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentFilterInfoUriFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentFilterInfoUriFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoUriFieldInfo = Maybe T.Text - type AttrLabel RecentFilterInfoUriFieldInfo = "uri" - attrGet _ = recentFilterInfoReadUri - attrSet _ = recentFilterInfoWriteUri - attrConstruct = undefined - attrClear _ = recentFilterInfoClearUri - -recentFilterInfoUri :: AttrLabelProxy "uri" -recentFilterInfoUri = AttrLabelProxy - - -recentFilterInfoReadDisplayName :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) -recentFilterInfoReadDisplayName 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 - -recentFilterInfoWriteDisplayName :: MonadIO m => RecentFilterInfo -> CString -> m () -recentFilterInfoWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -recentFilterInfoClearDisplayName :: MonadIO m => RecentFilterInfo -> m () -recentFilterInfoClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data RecentFilterInfoDisplayNameFieldInfo -instance AttrInfo RecentFilterInfoDisplayNameFieldInfo where - type AttrAllowedOps RecentFilterInfoDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoDisplayNameFieldInfo = Maybe T.Text - type AttrLabel RecentFilterInfoDisplayNameFieldInfo = "display_name" - attrGet _ = recentFilterInfoReadDisplayName - attrSet _ = recentFilterInfoWriteDisplayName - attrConstruct = undefined - attrClear _ = recentFilterInfoClearDisplayName - -recentFilterInfoDisplayName :: AttrLabelProxy "displayName" -recentFilterInfoDisplayName = AttrLabelProxy - - -recentFilterInfoReadMimeType :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) -recentFilterInfoReadMimeType 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 - -recentFilterInfoWriteMimeType :: MonadIO m => RecentFilterInfo -> CString -> m () -recentFilterInfoWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -recentFilterInfoClearMimeType :: MonadIO m => RecentFilterInfo -> m () -recentFilterInfoClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data RecentFilterInfoMimeTypeFieldInfo -instance AttrInfo RecentFilterInfoMimeTypeFieldInfo where - type AttrAllowedOps RecentFilterInfoMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) CString - type AttrBaseTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoMimeTypeFieldInfo = Maybe T.Text - type AttrLabel RecentFilterInfoMimeTypeFieldInfo = "mime_type" - attrGet _ = recentFilterInfoReadMimeType - attrSet _ = recentFilterInfoWriteMimeType - attrConstruct = undefined - attrClear _ = recentFilterInfoClearMimeType - -recentFilterInfoMimeType :: AttrLabelProxy "mimeType" -recentFilterInfoMimeType = AttrLabelProxy - - -recentFilterInfoReadApplications :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text]) -recentFilterInfoReadApplications s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr CString) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedUTF8CArray val' - return val'' - return result - -recentFilterInfoWriteApplications :: MonadIO m => RecentFilterInfo -> Ptr CString -> m () -recentFilterInfoWriteApplications s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr CString) - -recentFilterInfoClearApplications :: MonadIO m => RecentFilterInfo -> m () -recentFilterInfoClearApplications s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr CString) - -data RecentFilterInfoApplicationsFieldInfo -instance AttrInfo RecentFilterInfoApplicationsFieldInfo where - type AttrAllowedOps RecentFilterInfoApplicationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) (Ptr CString) - type AttrBaseTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoApplicationsFieldInfo = Maybe [T.Text] - type AttrLabel RecentFilterInfoApplicationsFieldInfo = "applications" - attrGet _ = recentFilterInfoReadApplications - attrSet _ = recentFilterInfoWriteApplications - attrConstruct = undefined - attrClear _ = recentFilterInfoClearApplications - -recentFilterInfoApplications :: AttrLabelProxy "applications" -recentFilterInfoApplications = AttrLabelProxy - - -recentFilterInfoReadGroups :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text]) -recentFilterInfoReadGroups s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedUTF8CArray val' - return val'' - return result - -recentFilterInfoWriteGroups :: MonadIO m => RecentFilterInfo -> Ptr CString -> m () -recentFilterInfoWriteGroups s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr CString) - -recentFilterInfoClearGroups :: MonadIO m => RecentFilterInfo -> m () -recentFilterInfoClearGroups s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr CString) - -data RecentFilterInfoGroupsFieldInfo -instance AttrInfo RecentFilterInfoGroupsFieldInfo where - type AttrAllowedOps RecentFilterInfoGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) (Ptr CString) - type AttrBaseTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoGroupsFieldInfo = Maybe [T.Text] - type AttrLabel RecentFilterInfoGroupsFieldInfo = "groups" - attrGet _ = recentFilterInfoReadGroups - attrSet _ = recentFilterInfoWriteGroups - attrConstruct = undefined - attrClear _ = recentFilterInfoClearGroups - -recentFilterInfoGroups :: AttrLabelProxy "groups" -recentFilterInfoGroups = AttrLabelProxy - - -recentFilterInfoReadAge :: MonadIO m => RecentFilterInfo -> m Int32 -recentFilterInfoReadAge s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Int32 - return val - -recentFilterInfoWriteAge :: MonadIO m => RecentFilterInfo -> Int32 -> m () -recentFilterInfoWriteAge s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Int32) - -data RecentFilterInfoAgeFieldInfo -instance AttrInfo RecentFilterInfoAgeFieldInfo where - type AttrAllowedOps RecentFilterInfoAgeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RecentFilterInfoAgeFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RecentFilterInfoAgeFieldInfo = (~) RecentFilterInfo - type AttrGetType RecentFilterInfoAgeFieldInfo = Int32 - type AttrLabel RecentFilterInfoAgeFieldInfo = "age" - attrGet _ = recentFilterInfoReadAge - attrSet _ = recentFilterInfoWriteAge - attrConstruct = undefined - attrClear _ = undefined - -recentFilterInfoAge :: AttrLabelProxy "age" -recentFilterInfoAge = AttrLabelProxy - - - -type instance AttributeList RecentFilterInfo = RecentFilterInfoAttributeList -type RecentFilterInfoAttributeList = ('[ '("contains", RecentFilterInfoContainsFieldInfo), '("uri", RecentFilterInfoUriFieldInfo), '("displayName", RecentFilterInfoDisplayNameFieldInfo), '("mimeType", RecentFilterInfoMimeTypeFieldInfo), '("applications", RecentFilterInfoApplicationsFieldInfo), '("groups", RecentFilterInfoGroupsFieldInfo), '("age", RecentFilterInfoAgeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveRecentFilterInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentFilterInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, MethodInfo info RecentFilterInfo p) => IsLabelProxy t (RecentFilterInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, MethodInfo info RecentFilterInfo p) => IsLabel t (RecentFilterInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RecentFilterInfo.hs-boot b/GI/Gtk/Structs/RecentFilterInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RecentFilterInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RecentFilterInfo 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 RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo) -instance WrappedPtr RecentFilterInfo where diff --git a/GI/Gtk/Structs/RecentInfo.hs b/GI/Gtk/Structs/RecentInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RecentInfo.hs +++ /dev/null @@ -1,982 +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) - -#GtkRecentInfo-struct contains private data only, and should -be accessed using the provided API. - -#GtkRecentInfo constains all the meta-data -associated with an entry in the recently used files list. --} - -module GI.Gtk.Structs.RecentInfo - ( - --- * Exported types - RecentInfo(..) , - noRecentInfo , - - - -- * Methods --- ** recentInfoCreateAppInfo - RecentInfoCreateAppInfoMethodInfo , - recentInfoCreateAppInfo , - - --- ** recentInfoExists - RecentInfoExistsMethodInfo , - recentInfoExists , - - --- ** recentInfoGetAdded - RecentInfoGetAddedMethodInfo , - recentInfoGetAdded , - - --- ** recentInfoGetAge - RecentInfoGetAgeMethodInfo , - recentInfoGetAge , - - --- ** recentInfoGetApplicationInfo - RecentInfoGetApplicationInfoMethodInfo , - recentInfoGetApplicationInfo , - - --- ** recentInfoGetApplications - RecentInfoGetApplicationsMethodInfo , - recentInfoGetApplications , - - --- ** recentInfoGetDescription - RecentInfoGetDescriptionMethodInfo , - recentInfoGetDescription , - - --- ** recentInfoGetDisplayName - RecentInfoGetDisplayNameMethodInfo , - recentInfoGetDisplayName , - - --- ** recentInfoGetGicon - RecentInfoGetGiconMethodInfo , - recentInfoGetGicon , - - --- ** recentInfoGetGroups - RecentInfoGetGroupsMethodInfo , - recentInfoGetGroups , - - --- ** recentInfoGetIcon - RecentInfoGetIconMethodInfo , - recentInfoGetIcon , - - --- ** recentInfoGetMimeType - RecentInfoGetMimeTypeMethodInfo , - recentInfoGetMimeType , - - --- ** recentInfoGetModified - RecentInfoGetModifiedMethodInfo , - recentInfoGetModified , - - --- ** recentInfoGetPrivateHint - RecentInfoGetPrivateHintMethodInfo , - recentInfoGetPrivateHint , - - --- ** recentInfoGetShortName - RecentInfoGetShortNameMethodInfo , - recentInfoGetShortName , - - --- ** recentInfoGetUri - RecentInfoGetUriMethodInfo , - recentInfoGetUri , - - --- ** recentInfoGetUriDisplay - RecentInfoGetUriDisplayMethodInfo , - recentInfoGetUriDisplay , - - --- ** recentInfoGetVisited - RecentInfoGetVisitedMethodInfo , - recentInfoGetVisited , - - --- ** recentInfoHasApplication - RecentInfoHasApplicationMethodInfo , - recentInfoHasApplication , - - --- ** recentInfoHasGroup - RecentInfoHasGroupMethodInfo , - recentInfoHasGroup , - - --- ** recentInfoIsLocal - RecentInfoIsLocalMethodInfo , - recentInfoIsLocal , - - --- ** recentInfoLastApplication - RecentInfoLastApplicationMethodInfo , - recentInfoLastApplication , - - --- ** recentInfoMatch - RecentInfoMatchMethodInfo , - recentInfoMatch , - - --- ** recentInfoRef - RecentInfoRefMethodInfo , - recentInfoRef , - - --- ** recentInfoUnref - RecentInfoUnrefMethodInfo , - recentInfoUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio - -newtype RecentInfo = RecentInfo (ForeignPtr RecentInfo) -foreign import ccall "gtk_recent_info_get_type" c_gtk_recent_info_get_type :: - IO GType - -instance BoxedObject RecentInfo where - boxedType _ = c_gtk_recent_info_get_type - -noRecentInfo :: Maybe RecentInfo -noRecentInfo = Nothing - - -type instance AttributeList RecentInfo = RecentInfoAttributeList -type RecentInfoAttributeList = ('[ ] :: [(Symbol, *)]) - --- method RecentInfo::create_app_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : True --- Skip return : False - -foreign import ccall "gtk_recent_info_create_app_info" gtk_recent_info_create_app_info :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - CString -> -- app_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.AppInfo) - - -recentInfoCreateAppInfo :: - (MonadIO m) => - RecentInfo -- _obj - -> Maybe (T.Text) -- appName - -> m Gio.AppInfo -- result -recentInfoCreateAppInfo _obj appName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeAppName <- case appName of - Nothing -> return nullPtr - Just jAppName -> do - jAppName' <- textToCString jAppName - return jAppName' - onException (do - result <- propagateGError $ gtk_recent_info_create_app_info _obj' maybeAppName - checkUnexpectedReturnNULL "gtk_recent_info_create_app_info" result - result' <- (wrapObject Gio.AppInfo) result - touchManagedPtr _obj - freeMem maybeAppName - return result' - ) (do - freeMem maybeAppName - ) - -data RecentInfoCreateAppInfoMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Gio.AppInfo), MonadIO m) => MethodInfo RecentInfoCreateAppInfoMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoCreateAppInfo - --- method RecentInfo::exists --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_exists" gtk_recent_info_exists :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CInt - - -recentInfoExists :: - (MonadIO m) => - RecentInfo -- _obj - -> m Bool -- result -recentInfoExists _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_exists _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentInfoExistsMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoExistsMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoExists - --- method RecentInfo::get_added --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_added" gtk_recent_info_get_added :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CLong - - -recentInfoGetAdded :: - (MonadIO m) => - RecentInfo -- _obj - -> m CLong -- result -recentInfoGetAdded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_added _obj' - touchManagedPtr _obj - return result - -data RecentInfoGetAddedMethodInfo -instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetAddedMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetAdded - --- method RecentInfo::get_age --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_age" gtk_recent_info_get_age :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO Int32 - - -recentInfoGetAge :: - (MonadIO m) => - RecentInfo -- _obj - -> m Int32 -- result -recentInfoGetAge _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_age _obj' - touchManagedPtr _obj - return result - -data RecentInfoGetAgeMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo RecentInfoGetAgeMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetAge - --- method RecentInfo::get_application_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "time_", argType = TBasicType TLong, 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 "gtk_recent_info_get_application_info" gtk_recent_info_get_application_info :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - CString -> -- app_name : TBasicType TUTF8 - Ptr CString -> -- app_exec : TBasicType TUTF8 - Ptr Word32 -> -- count : TBasicType TUInt - Ptr CLong -> -- time_ : TBasicType TLong - IO CInt - - -recentInfoGetApplicationInfo :: - (MonadIO m) => - RecentInfo -- _obj - -> T.Text -- appName - -> m (Bool,T.Text,Word32,CLong) -- result -recentInfoGetApplicationInfo _obj appName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - appName' <- textToCString appName - appExec <- allocMem :: IO (Ptr CString) - count <- allocMem :: IO (Ptr Word32) - time_ <- allocMem :: IO (Ptr CLong) - result <- gtk_recent_info_get_application_info _obj' appName' appExec count time_ - let result' = (/= 0) result - appExec' <- peek appExec - appExec'' <- cstringToText appExec' - count' <- peek count - time_' <- peek time_ - touchManagedPtr _obj - freeMem appName' - freeMem appExec - freeMem count - freeMem time_ - return (result', appExec'', count', time_') - -data RecentInfoGetApplicationInfoMethodInfo -instance (signature ~ (T.Text -> m (Bool,T.Text,Word32,CLong)), MonadIO m) => MethodInfo RecentInfoGetApplicationInfoMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetApplicationInfo - --- method RecentInfo::get_applications --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_applications" gtk_recent_info_get_applications :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr CString) - - -recentInfoGetApplications :: - (MonadIO m) => - RecentInfo -- _obj - -> m ([T.Text],Word64) -- result -recentInfoGetApplications _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_recent_info_get_applications _obj' length_ - checkUnexpectedReturnNULL "gtk_recent_info_get_applications" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - -data RecentInfoGetApplicationsMethodInfo -instance (signature ~ (m ([T.Text],Word64)), MonadIO m) => MethodInfo RecentInfoGetApplicationsMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetApplications - --- method RecentInfo::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_description" gtk_recent_info_get_description :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetDescription :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_description _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data RecentInfoGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetDescriptionMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetDescription - --- method RecentInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_display_name" gtk_recent_info_get_display_name :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetDisplayName :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_display_name _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_display_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data RecentInfoGetDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetDisplayNameMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetDisplayName - --- method RecentInfo::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_gicon" gtk_recent_info_get_gicon :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO (Ptr Gio.Icon) - - -recentInfoGetGicon :: - (MonadIO m) => - RecentInfo -- _obj - -> m Gio.Icon -- result -recentInfoGetGicon _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_gicon _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_gicon" result - result' <- (wrapObject Gio.Icon) result - touchManagedPtr _obj - return result' - -data RecentInfoGetGiconMethodInfo -instance (signature ~ (m Gio.Icon), MonadIO m) => MethodInfo RecentInfoGetGiconMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetGicon - --- method RecentInfo::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_groups" gtk_recent_info_get_groups :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr CString) - - -recentInfoGetGroups :: - (MonadIO m) => - RecentInfo -- _obj - -> m ([T.Text],Word64) -- result -recentInfoGetGroups _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_recent_info_get_groups _obj' length_ - checkUnexpectedReturnNULL "gtk_recent_info_get_groups" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - -data RecentInfoGetGroupsMethodInfo -instance (signature ~ (m ([T.Text],Word64)), MonadIO m) => MethodInfo RecentInfoGetGroupsMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetGroups - --- method RecentInfo::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_icon" gtk_recent_info_get_icon :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - Int32 -> -- size : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - - -recentInfoGetIcon :: - (MonadIO m) => - RecentInfo -- _obj - -> Int32 -- size - -> m GdkPixbuf.Pixbuf -- result -recentInfoGetIcon _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_icon _obj' size - checkUnexpectedReturnNULL "gtk_recent_info_get_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data RecentInfoGetIconMethodInfo -instance (signature ~ (Int32 -> m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo RecentInfoGetIconMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetIcon - --- method RecentInfo::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_mime_type" gtk_recent_info_get_mime_type :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetMimeType :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetMimeType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_mime_type _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_mime_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data RecentInfoGetMimeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetMimeTypeMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetMimeType - --- method RecentInfo::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_modified" gtk_recent_info_get_modified :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CLong - - -recentInfoGetModified :: - (MonadIO m) => - RecentInfo -- _obj - -> m CLong -- result -recentInfoGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_modified _obj' - touchManagedPtr _obj - return result - -data RecentInfoGetModifiedMethodInfo -instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetModifiedMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetModified - --- method RecentInfo::get_private_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_private_hint" gtk_recent_info_get_private_hint :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CInt - - -recentInfoGetPrivateHint :: - (MonadIO m) => - RecentInfo -- _obj - -> m Bool -- result -recentInfoGetPrivateHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_private_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentInfoGetPrivateHintMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoGetPrivateHintMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetPrivateHint - --- method RecentInfo::get_short_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_short_name" gtk_recent_info_get_short_name :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetShortName :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetShortName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_short_name _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_short_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data RecentInfoGetShortNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetShortNameMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetShortName - --- method RecentInfo::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_uri" gtk_recent_info_get_uri :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetUri :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_uri _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data RecentInfoGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetUriMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetUri - --- method RecentInfo::get_uri_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_get_uri_display" gtk_recent_info_get_uri_display :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoGetUriDisplay :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoGetUriDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_uri_display _obj' - checkUnexpectedReturnNULL "gtk_recent_info_get_uri_display" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data RecentInfoGetUriDisplayMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetUriDisplayMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetUriDisplay - --- method RecentInfo::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_get_visited" gtk_recent_info_get_visited :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CLong - - -recentInfoGetVisited :: - (MonadIO m) => - RecentInfo -- _obj - -> m CLong -- result -recentInfoGetVisited _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_visited _obj' - touchManagedPtr _obj - return result - -data RecentInfoGetVisitedMethodInfo -instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetVisitedMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoGetVisited - --- method RecentInfo::has_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", 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 "gtk_recent_info_has_application" gtk_recent_info_has_application :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - CString -> -- app_name : TBasicType TUTF8 - IO CInt - - -recentInfoHasApplication :: - (MonadIO m) => - RecentInfo -- _obj - -> T.Text -- appName - -> m Bool -- result -recentInfoHasApplication _obj appName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - appName' <- textToCString appName - result <- gtk_recent_info_has_application _obj' appName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem appName' - return result' - -data RecentInfoHasApplicationMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RecentInfoHasApplicationMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoHasApplication - --- method RecentInfo::has_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", 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 "gtk_recent_info_has_group" gtk_recent_info_has_group :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - CString -> -- group_name : TBasicType TUTF8 - IO CInt - - -recentInfoHasGroup :: - (MonadIO m) => - RecentInfo -- _obj - -> T.Text -- groupName - -> m Bool -- result -recentInfoHasGroup _obj groupName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - result <- gtk_recent_info_has_group _obj' groupName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem groupName' - return result' - -data RecentInfoHasGroupMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RecentInfoHasGroupMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoHasGroup - --- method RecentInfo::is_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_is_local" gtk_recent_info_is_local :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CInt - - -recentInfoIsLocal :: - (MonadIO m) => - RecentInfo -- _obj - -> m Bool -- result -recentInfoIsLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_is_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecentInfoIsLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoIsLocalMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoIsLocal - --- method RecentInfo::last_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_last_application" gtk_recent_info_last_application :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO CString - - -recentInfoLastApplication :: - (MonadIO m) => - RecentInfo -- _obj - -> m T.Text -- result -recentInfoLastApplication _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_last_application _obj' - checkUnexpectedReturnNULL "gtk_recent_info_last_application" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data RecentInfoLastApplicationMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoLastApplicationMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoLastApplication - --- method RecentInfo::match --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info_b", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_match" gtk_recent_info_match :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - Ptr RecentInfo -> -- info_b : TInterface "Gtk" "RecentInfo" - IO CInt - - -recentInfoMatch :: - (MonadIO m) => - RecentInfo -- _obj - -> RecentInfo -- infoB - -> m Bool -- result -recentInfoMatch _obj infoB = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let infoB' = unsafeManagedPtrGetPtr infoB - result <- gtk_recent_info_match _obj' infoB' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr infoB - return result' - -data RecentInfoMatchMethodInfo -instance (signature ~ (RecentInfo -> m Bool), MonadIO m) => MethodInfo RecentInfoMatchMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoMatch - --- method RecentInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "RecentInfo") --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_info_ref" gtk_recent_info_ref :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO (Ptr RecentInfo) - - -recentInfoRef :: - (MonadIO m) => - RecentInfo -- _obj - -> m RecentInfo -- result -recentInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_ref _obj' - checkUnexpectedReturnNULL "gtk_recent_info_ref" result - result' <- (wrapBoxed RecentInfo) result - touchManagedPtr _obj - return result' - -data RecentInfoRefMethodInfo -instance (signature ~ (m RecentInfo), MonadIO m) => MethodInfo RecentInfoRefMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoRef - --- method RecentInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", 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 "gtk_recent_info_unref" gtk_recent_info_unref :: - Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO () - - -recentInfoUnref :: - (MonadIO m) => - RecentInfo -- _obj - -> m () -- result -recentInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_recent_info_unref _obj' - touchManagedPtr _obj - return () - -data RecentInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RecentInfoUnrefMethodInfo RecentInfo signature where - overloadedMethod _ = recentInfoUnref - -type family ResolveRecentInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveRecentInfoMethod "createAppInfo" o = RecentInfoCreateAppInfoMethodInfo - ResolveRecentInfoMethod "exists" o = RecentInfoExistsMethodInfo - ResolveRecentInfoMethod "hasApplication" o = RecentInfoHasApplicationMethodInfo - ResolveRecentInfoMethod "hasGroup" o = RecentInfoHasGroupMethodInfo - ResolveRecentInfoMethod "isLocal" o = RecentInfoIsLocalMethodInfo - ResolveRecentInfoMethod "lastApplication" o = RecentInfoLastApplicationMethodInfo - ResolveRecentInfoMethod "match" o = RecentInfoMatchMethodInfo - ResolveRecentInfoMethod "ref" o = RecentInfoRefMethodInfo - ResolveRecentInfoMethod "unref" o = RecentInfoUnrefMethodInfo - ResolveRecentInfoMethod "getAdded" o = RecentInfoGetAddedMethodInfo - ResolveRecentInfoMethod "getAge" o = RecentInfoGetAgeMethodInfo - ResolveRecentInfoMethod "getApplicationInfo" o = RecentInfoGetApplicationInfoMethodInfo - ResolveRecentInfoMethod "getApplications" o = RecentInfoGetApplicationsMethodInfo - ResolveRecentInfoMethod "getDescription" o = RecentInfoGetDescriptionMethodInfo - ResolveRecentInfoMethod "getDisplayName" o = RecentInfoGetDisplayNameMethodInfo - ResolveRecentInfoMethod "getGicon" o = RecentInfoGetGiconMethodInfo - ResolveRecentInfoMethod "getGroups" o = RecentInfoGetGroupsMethodInfo - ResolveRecentInfoMethod "getIcon" o = RecentInfoGetIconMethodInfo - ResolveRecentInfoMethod "getMimeType" o = RecentInfoGetMimeTypeMethodInfo - ResolveRecentInfoMethod "getModified" o = RecentInfoGetModifiedMethodInfo - ResolveRecentInfoMethod "getPrivateHint" o = RecentInfoGetPrivateHintMethodInfo - ResolveRecentInfoMethod "getShortName" o = RecentInfoGetShortNameMethodInfo - ResolveRecentInfoMethod "getUri" o = RecentInfoGetUriMethodInfo - ResolveRecentInfoMethod "getUriDisplay" o = RecentInfoGetUriDisplayMethodInfo - ResolveRecentInfoMethod "getVisited" o = RecentInfoGetVisitedMethodInfo - ResolveRecentInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecentInfoMethod t RecentInfo, MethodInfo info RecentInfo p) => IsLabelProxy t (RecentInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecentInfoMethod t RecentInfo, MethodInfo info RecentInfo p) => IsLabel t (RecentInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RecentInfo.hs-boot b/GI/Gtk/Structs/RecentInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RecentInfo.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gtk.Structs.RecentInfo 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 RecentInfo = RecentInfo (ForeignPtr RecentInfo) -instance BoxedObject RecentInfo where -data RecentInfoCreateAppInfoMethodInfo -data RecentInfoExistsMethodInfo -data RecentInfoGetAddedMethodInfo -data RecentInfoGetAgeMethodInfo -data RecentInfoGetApplicationInfoMethodInfo -data RecentInfoGetApplicationsMethodInfo -data RecentInfoGetDescriptionMethodInfo -data RecentInfoGetDisplayNameMethodInfo -data RecentInfoGetGiconMethodInfo -data RecentInfoGetGroupsMethodInfo -data RecentInfoGetIconMethodInfo -data RecentInfoGetMimeTypeMethodInfo -data RecentInfoGetModifiedMethodInfo -data RecentInfoGetPrivateHintMethodInfo -data RecentInfoGetShortNameMethodInfo -data RecentInfoGetUriMethodInfo -data RecentInfoGetUriDisplayMethodInfo -data RecentInfoGetVisitedMethodInfo -data RecentInfoHasApplicationMethodInfo -data RecentInfoHasGroupMethodInfo -data RecentInfoIsLocalMethodInfo -data RecentInfoLastApplicationMethodInfo -data RecentInfoMatchMethodInfo -data RecentInfoRefMethodInfo -data RecentInfoUnrefMethodInfo diff --git a/GI/Gtk/Structs/RequestedSize.hs b/GI/Gtk/Structs/RequestedSize.hs deleted file mode 100644 --- a/GI/Gtk/Structs/RequestedSize.hs +++ /dev/null @@ -1,170 +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) - -Represents a request of a screen object in a given orientation. These -are primarily used in container implementations when allocating a natural -size for children calling. See gtk_distribute_natural_allocation(). --} - -module GI.Gtk.Structs.RequestedSize - ( - --- * Exported types - RequestedSize(..) , - newZeroRequestedSize , - noRequestedSize , - - - -- * Properties --- ** Data - requestedSizeClearData , - requestedSizeData , - requestedSizeReadData , - requestedSizeWriteData , - - --- ** MinimumSize - requestedSizeMinimumSize , - requestedSizeReadMinimumSize , - requestedSizeWriteMinimumSize , - - --- ** NaturalSize - requestedSizeNaturalSize , - requestedSizeReadNaturalSize , - requestedSizeWriteNaturalSize , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype RequestedSize = RequestedSize (ForeignPtr RequestedSize) -instance WrappedPtr RequestedSize where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RequestedSize` struct initialized to zero. -newZeroRequestedSize :: MonadIO m => m RequestedSize -newZeroRequestedSize = liftIO $ wrappedPtrCalloc >>= wrapPtr RequestedSize - -instance tag ~ 'AttrSet => Constructible RequestedSize tag where - new _ attrs = do - o <- newZeroRequestedSize - GI.Attributes.set o attrs - return o - - -noRequestedSize :: Maybe RequestedSize -noRequestedSize = Nothing - -requestedSizeReadData :: MonadIO m => RequestedSize -> m (Ptr ()) -requestedSizeReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -requestedSizeWriteData :: MonadIO m => RequestedSize -> Ptr () -> m () -requestedSizeWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -requestedSizeClearData :: MonadIO m => RequestedSize -> m () -requestedSizeClearData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data RequestedSizeDataFieldInfo -instance AttrInfo RequestedSizeDataFieldInfo where - type AttrAllowedOps RequestedSizeDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RequestedSizeDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint RequestedSizeDataFieldInfo = (~) RequestedSize - type AttrGetType RequestedSizeDataFieldInfo = Ptr () - type AttrLabel RequestedSizeDataFieldInfo = "data" - attrGet _ = requestedSizeReadData - attrSet _ = requestedSizeWriteData - attrConstruct = undefined - attrClear _ = requestedSizeClearData - -requestedSizeData :: AttrLabelProxy "data" -requestedSizeData = AttrLabelProxy - - -requestedSizeReadMinimumSize :: MonadIO m => RequestedSize -> m Int32 -requestedSizeReadMinimumSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -requestedSizeWriteMinimumSize :: MonadIO m => RequestedSize -> Int32 -> m () -requestedSizeWriteMinimumSize s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data RequestedSizeMinimumSizeFieldInfo -instance AttrInfo RequestedSizeMinimumSizeFieldInfo where - type AttrAllowedOps RequestedSizeMinimumSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RequestedSizeMinimumSizeFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RequestedSizeMinimumSizeFieldInfo = (~) RequestedSize - type AttrGetType RequestedSizeMinimumSizeFieldInfo = Int32 - type AttrLabel RequestedSizeMinimumSizeFieldInfo = "minimum_size" - attrGet _ = requestedSizeReadMinimumSize - attrSet _ = requestedSizeWriteMinimumSize - attrConstruct = undefined - attrClear _ = undefined - -requestedSizeMinimumSize :: AttrLabelProxy "minimumSize" -requestedSizeMinimumSize = AttrLabelProxy - - -requestedSizeReadNaturalSize :: MonadIO m => RequestedSize -> m Int32 -requestedSizeReadNaturalSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -requestedSizeWriteNaturalSize :: MonadIO m => RequestedSize -> Int32 -> m () -requestedSizeWriteNaturalSize s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data RequestedSizeNaturalSizeFieldInfo -instance AttrInfo RequestedSizeNaturalSizeFieldInfo where - type AttrAllowedOps RequestedSizeNaturalSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RequestedSizeNaturalSizeFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RequestedSizeNaturalSizeFieldInfo = (~) RequestedSize - type AttrGetType RequestedSizeNaturalSizeFieldInfo = Int32 - type AttrLabel RequestedSizeNaturalSizeFieldInfo = "natural_size" - attrGet _ = requestedSizeReadNaturalSize - attrSet _ = requestedSizeWriteNaturalSize - attrConstruct = undefined - attrClear _ = undefined - -requestedSizeNaturalSize :: AttrLabelProxy "naturalSize" -requestedSizeNaturalSize = AttrLabelProxy - - - -type instance AttributeList RequestedSize = RequestedSizeAttributeList -type RequestedSizeAttributeList = ('[ '("data", RequestedSizeDataFieldInfo), '("minimumSize", RequestedSizeMinimumSizeFieldInfo), '("naturalSize", RequestedSizeNaturalSizeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveRequestedSizeMethod (t :: Symbol) (o :: *) :: * where - ResolveRequestedSizeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequestedSizeMethod t RequestedSize, MethodInfo info RequestedSize p) => IsLabelProxy t (RequestedSize -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequestedSizeMethod t RequestedSize, MethodInfo info RequestedSize p) => IsLabel t (RequestedSize -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/RequestedSize.hs-boot b/GI/Gtk/Structs/RequestedSize.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/RequestedSize.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.RequestedSize 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 RequestedSize = RequestedSize (ForeignPtr RequestedSize) -instance WrappedPtr RequestedSize where diff --git a/GI/Gtk/Structs/Requisition.hs b/GI/Gtk/Structs/Requisition.hs deleted file mode 100644 --- a/GI/Gtk/Structs/Requisition.hs +++ /dev/null @@ -1,231 +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 #GtkRequisition-struct represents the desired size of a widget. See -[GtkWidget’s geometry management section][geometry-management] for -more information. --} - -module GI.Gtk.Structs.Requisition - ( - --- * Exported types - Requisition(..) , - newZeroRequisition , - noRequisition , - - - -- * Methods --- ** requisitionCopy - RequisitionCopyMethodInfo , - requisitionCopy , - - --- ** requisitionFree - RequisitionFreeMethodInfo , - requisitionFree , - - --- ** requisitionNew - requisitionNew , - - - - - -- * Properties --- ** Height - requisitionHeight , - requisitionReadHeight , - requisitionWriteHeight , - - --- ** Width - requisitionReadWidth , - requisitionWidth , - requisitionWriteWidth , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype Requisition = Requisition (ForeignPtr Requisition) -foreign import ccall "gtk_requisition_get_type" c_gtk_requisition_get_type :: - IO GType - -instance BoxedObject Requisition where - boxedType _ = c_gtk_requisition_get_type - --- | Construct a `Requisition` struct initialized to zero. -newZeroRequisition :: MonadIO m => m Requisition -newZeroRequisition = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Requisition - -instance tag ~ 'AttrSet => Constructible Requisition tag where - new _ attrs = do - o <- newZeroRequisition - GI.Attributes.set o attrs - return o - - -noRequisition :: Maybe Requisition -noRequisition = Nothing - -requisitionReadWidth :: MonadIO m => Requisition -> m Int32 -requisitionReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -requisitionWriteWidth :: MonadIO m => Requisition -> Int32 -> m () -requisitionWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data RequisitionWidthFieldInfo -instance AttrInfo RequisitionWidthFieldInfo where - type AttrAllowedOps RequisitionWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RequisitionWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RequisitionWidthFieldInfo = (~) Requisition - type AttrGetType RequisitionWidthFieldInfo = Int32 - type AttrLabel RequisitionWidthFieldInfo = "width" - attrGet _ = requisitionReadWidth - attrSet _ = requisitionWriteWidth - attrConstruct = undefined - attrClear _ = undefined - -requisitionWidth :: AttrLabelProxy "width" -requisitionWidth = AttrLabelProxy - - -requisitionReadHeight :: MonadIO m => Requisition -> m Int32 -requisitionReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -requisitionWriteHeight :: MonadIO m => Requisition -> Int32 -> m () -requisitionWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data RequisitionHeightFieldInfo -instance AttrInfo RequisitionHeightFieldInfo where - type AttrAllowedOps RequisitionHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RequisitionHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RequisitionHeightFieldInfo = (~) Requisition - type AttrGetType RequisitionHeightFieldInfo = Int32 - type AttrLabel RequisitionHeightFieldInfo = "height" - attrGet _ = requisitionReadHeight - attrSet _ = requisitionWriteHeight - attrConstruct = undefined - attrClear _ = undefined - -requisitionHeight :: AttrLabelProxy "height" -requisitionHeight = AttrLabelProxy - - - -type instance AttributeList Requisition = RequisitionAttributeList -type RequisitionAttributeList = ('[ '("width", RequisitionWidthFieldInfo), '("height", RequisitionHeightFieldInfo)] :: [(Symbol, *)]) - --- method Requisition::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Requisition") --- throws : False --- Skip return : False - -foreign import ccall "gtk_requisition_new" gtk_requisition_new :: - IO (Ptr Requisition) - - -requisitionNew :: - (MonadIO m) => - m Requisition -- result -requisitionNew = liftIO $ do - result <- gtk_requisition_new - checkUnexpectedReturnNULL "gtk_requisition_new" result - result' <- (wrapBoxed Requisition) result - return result' - --- method Requisition::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Requisition") --- throws : False --- Skip return : False - -foreign import ccall "gtk_requisition_copy" gtk_requisition_copy :: - Ptr Requisition -> -- _obj : TInterface "Gtk" "Requisition" - IO (Ptr Requisition) - - -requisitionCopy :: - (MonadIO m) => - Requisition -- _obj - -> m Requisition -- result -requisitionCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_requisition_copy _obj' - checkUnexpectedReturnNULL "gtk_requisition_copy" result - result' <- (wrapBoxed Requisition) result - touchManagedPtr _obj - return result' - -data RequisitionCopyMethodInfo -instance (signature ~ (m Requisition), MonadIO m) => MethodInfo RequisitionCopyMethodInfo Requisition signature where - overloadedMethod _ = requisitionCopy - --- method Requisition::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", 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 "gtk_requisition_free" gtk_requisition_free :: - Ptr Requisition -> -- _obj : TInterface "Gtk" "Requisition" - IO () - - -requisitionFree :: - (MonadIO m) => - Requisition -- _obj - -> m () -- result -requisitionFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_requisition_free _obj' - touchManagedPtr _obj - return () - -data RequisitionFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RequisitionFreeMethodInfo Requisition signature where - overloadedMethod _ = requisitionFree - -type family ResolveRequisitionMethod (t :: Symbol) (o :: *) :: * where - ResolveRequisitionMethod "copy" o = RequisitionCopyMethodInfo - ResolveRequisitionMethod "free" o = RequisitionFreeMethodInfo - ResolveRequisitionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequisitionMethod t Requisition, MethodInfo info Requisition p) => IsLabelProxy t (Requisition -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequisitionMethod t Requisition, MethodInfo info Requisition p) => IsLabel t (Requisition -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/Requisition.hs-boot b/GI/Gtk/Structs/Requisition.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/Requisition.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Structs.Requisition 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 Requisition = Requisition (ForeignPtr Requisition) -instance BoxedObject Requisition where -data RequisitionCopyMethodInfo -data RequisitionFreeMethodInfo diff --git a/GI/Gtk/Structs/SelectionData.hs b/GI/Gtk/Structs/SelectionData.hs deleted file mode 100644 --- a/GI/Gtk/Structs/SelectionData.hs +++ /dev/null @@ -1,832 +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.Gtk.Structs.SelectionData - ( - --- * Exported types - SelectionData(..) , - noSelectionData , - - - -- * Methods --- ** selectionDataCopy - SelectionDataCopyMethodInfo , - selectionDataCopy , - - --- ** selectionDataFree - SelectionDataFreeMethodInfo , - selectionDataFree , - - --- ** selectionDataGetData - SelectionDataGetDataMethodInfo , - selectionDataGetData , - - --- ** selectionDataGetDataType - SelectionDataGetDataTypeMethodInfo , - selectionDataGetDataType , - - --- ** selectionDataGetDisplay - SelectionDataGetDisplayMethodInfo , - selectionDataGetDisplay , - - --- ** selectionDataGetFormat - SelectionDataGetFormatMethodInfo , - selectionDataGetFormat , - - --- ** selectionDataGetLength - SelectionDataGetLengthMethodInfo , - selectionDataGetLength , - - --- ** selectionDataGetPixbuf - SelectionDataGetPixbufMethodInfo , - selectionDataGetPixbuf , - - --- ** selectionDataGetSelection - SelectionDataGetSelectionMethodInfo , - selectionDataGetSelection , - - --- ** selectionDataGetTarget - SelectionDataGetTargetMethodInfo , - selectionDataGetTarget , - - --- ** selectionDataGetTargets - SelectionDataGetTargetsMethodInfo , - selectionDataGetTargets , - - --- ** selectionDataGetText - SelectionDataGetTextMethodInfo , - selectionDataGetText , - - --- ** selectionDataGetUris - SelectionDataGetUrisMethodInfo , - selectionDataGetUris , - - --- ** selectionDataSet - SelectionDataSetMethodInfo , - selectionDataSet , - - --- ** selectionDataSetPixbuf - SelectionDataSetPixbufMethodInfo , - selectionDataSetPixbuf , - - --- ** selectionDataSetText - SelectionDataSetTextMethodInfo , - selectionDataSetText , - - --- ** selectionDataSetUris - SelectionDataSetUrisMethodInfo , - selectionDataSetUris , - - --- ** selectionDataTargetsIncludeImage - SelectionDataTargetsIncludeImageMethodInfo, - selectionDataTargetsIncludeImage , - - --- ** selectionDataTargetsIncludeRichText - SelectionDataTargetsIncludeRichTextMethodInfo, - selectionDataTargetsIncludeRichText , - - --- ** selectionDataTargetsIncludeText - SelectionDataTargetsIncludeTextMethodInfo, - selectionDataTargetsIncludeText , - - --- ** selectionDataTargetsIncludeUri - SelectionDataTargetsIncludeUriMethodInfo, - selectionDataTargetsIncludeUri , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype SelectionData = SelectionData (ForeignPtr SelectionData) -foreign import ccall "gtk_selection_data_get_type" c_gtk_selection_data_get_type :: - IO GType - -instance BoxedObject SelectionData where - boxedType _ = c_gtk_selection_data_get_type - -noSelectionData :: Maybe SelectionData -noSelectionData = Nothing - - -type instance AttributeList SelectionData = SelectionDataAttributeList -type SelectionDataAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SelectionData::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SelectionData") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_copy" gtk_selection_data_copy :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr SelectionData) - - -selectionDataCopy :: - (MonadIO m) => - SelectionData -- _obj - -> m SelectionData -- result -selectionDataCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_copy _obj' - checkUnexpectedReturnNULL "gtk_selection_data_copy" result - result' <- (wrapBoxed SelectionData) result - touchManagedPtr _obj - return result' - -data SelectionDataCopyMethodInfo -instance (signature ~ (m SelectionData), MonadIO m) => MethodInfo SelectionDataCopyMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataCopy - --- method SelectionData::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_free" gtk_selection_data_free :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO () - - -selectionDataFree :: - (MonadIO m) => - SelectionData -- _obj - -> m () -- result -selectionDataFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_selection_data_free _obj' - touchManagedPtr _obj - return () - -data SelectionDataFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SelectionDataFreeMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataFree - --- method SelectionData::get_data_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_data_type" gtk_selection_data_get_data_type :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr Gdk.Atom) - - -selectionDataGetDataType :: - (MonadIO m) => - SelectionData -- _obj - -> m Gdk.Atom -- result -selectionDataGetDataType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_data_type _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_data_type" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - return result' - -data SelectionDataGetDataTypeMethodInfo -instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetDataTypeMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetDataType - --- method SelectionData::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_data_with_length" gtk_selection_data_get_data_with_length :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr Int32 -> -- length : TBasicType TInt - IO (Ptr Word8) - - -selectionDataGetData :: - (MonadIO m) => - SelectionData -- _obj - -> m ByteString -- result -selectionDataGetData _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Int32) - result <- gtk_selection_data_get_data_with_length _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "gtk_selection_data_get_data_with_length" result - result' <- (unpackByteStringWithLength length_') result - touchManagedPtr _obj - freeMem length_ - return result' - -data SelectionDataGetDataMethodInfo -instance (signature ~ (m ByteString), MonadIO m) => MethodInfo SelectionDataGetDataMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetData - --- method SelectionData::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_display" gtk_selection_data_get_display :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr Gdk.Display) - - -selectionDataGetDisplay :: - (MonadIO m) => - SelectionData -- _obj - -> m Gdk.Display -- result -selectionDataGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_display _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_display" result - result' <- (newObject Gdk.Display) result - touchManagedPtr _obj - return result' - -data SelectionDataGetDisplayMethodInfo -instance (signature ~ (m Gdk.Display), MonadIO m) => MethodInfo SelectionDataGetDisplayMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetDisplay - --- method SelectionData::get_format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_get_format" gtk_selection_data_get_format :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO Int32 - - -selectionDataGetFormat :: - (MonadIO m) => - SelectionData -- _obj - -> m Int32 -- result -selectionDataGetFormat _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_format _obj' - touchManagedPtr _obj - return result - -data SelectionDataGetFormatMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo SelectionDataGetFormatMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetFormat - --- method SelectionData::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_get_length" gtk_selection_data_get_length :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO Int32 - - -selectionDataGetLength :: - (MonadIO m) => - SelectionData -- _obj - -> m Int32 -- result -selectionDataGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_length _obj' - touchManagedPtr _obj - return result - -data SelectionDataGetLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo SelectionDataGetLengthMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetLength - --- method SelectionData::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_pixbuf" gtk_selection_data_get_pixbuf :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr GdkPixbuf.Pixbuf) - - -selectionDataGetPixbuf :: - (MonadIO m) => - SelectionData -- _obj - -> m (Maybe GdkPixbuf.Pixbuf) -- result -selectionDataGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_pixbuf _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data SelectionDataGetPixbufMethodInfo -instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m) => MethodInfo SelectionDataGetPixbufMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetPixbuf - --- method SelectionData::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_selection" gtk_selection_data_get_selection :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr Gdk.Atom) - - -selectionDataGetSelection :: - (MonadIO m) => - SelectionData -- _obj - -> m Gdk.Atom -- result -selectionDataGetSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_selection _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_selection" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - return result' - -data SelectionDataGetSelectionMethodInfo -instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetSelectionMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetSelection - --- method SelectionData::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_target" gtk_selection_data_get_target :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr Gdk.Atom) - - -selectionDataGetTarget :: - (MonadIO m) => - SelectionData -- _obj - -> m Gdk.Atom -- result -selectionDataGetTarget _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_target _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_target" result - result' <- (newPtr Gdk.Atom) result - touchManagedPtr _obj - return result' - -data SelectionDataGetTargetMethodInfo -instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetTargetMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetTarget - --- method SelectionData::get_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_targets" gtk_selection_data_get_targets :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom") - Ptr Int32 -> -- n_atoms : TBasicType TInt - IO CInt - - -selectionDataGetTargets :: - (MonadIO m) => - SelectionData -- _obj - -> m (Bool,[Gdk.Atom]) -- result -selectionDataGetTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - nAtoms <- allocMem :: IO (Ptr Int32) - result <- gtk_selection_data_get_targets _obj' targets nAtoms - nAtoms' <- peek nAtoms - let result' = (/= 0) result - targets' <- peek targets - targets'' <- (unpackPtrArrayWithLength nAtoms') targets' - targets''' <- mapM (newPtr Gdk.Atom) targets'' - freeMem targets' - touchManagedPtr _obj - freeMem targets - freeMem nAtoms - return (result', targets''') - -data SelectionDataGetTargetsMethodInfo -instance (signature ~ (m (Bool,[Gdk.Atom])), MonadIO m) => MethodInfo SelectionDataGetTargetsMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetTargets - --- method SelectionData::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_get_text" gtk_selection_data_get_text :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO CString - - -selectionDataGetText :: - (MonadIO m) => - SelectionData -- _obj - -> m (Maybe T.Text) -- result -selectionDataGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_text _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data SelectionDataGetTextMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo SelectionDataGetTextMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetText - --- method SelectionData::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_selection_data_get_uris" gtk_selection_data_get_uris :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO (Ptr CString) - - -selectionDataGetUris :: - (MonadIO m) => - SelectionData -- _obj - -> m [T.Text] -- result -selectionDataGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_uris _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data SelectionDataGetUrisMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SelectionDataGetUrisMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataGetUris - --- method SelectionData::set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), 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}] --- Lengths : [Arg {argCName = "length", 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 "gtk_selection_data_set" gtk_selection_data_set :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr Gdk.Atom -> -- type : TInterface "Gdk" "Atom" - Int32 -> -- format : TBasicType TInt - Ptr Word8 -> -- data : TCArray False (-1) 4 (TBasicType TUInt8) - Int32 -> -- length : TBasicType TInt - IO () - - -selectionDataSet :: - (MonadIO m) => - SelectionData -- _obj - -> Gdk.Atom -- type_ - -> Int32 -- format - -> ByteString -- data_ - -> m () -- result -selectionDataSet _obj type_ format data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = unsafeManagedPtrGetPtr type_ - data_' <- packByteString data_ - gtk_selection_data_set _obj' type_' format data_' length_ - touchManagedPtr _obj - touchManagedPtr type_ - freeMem data_' - return () - -data SelectionDataSetMethodInfo -instance (signature ~ (Gdk.Atom -> Int32 -> ByteString -> m ()), MonadIO m) => MethodInfo SelectionDataSetMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataSet - --- method SelectionData::set_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_selection_data_set_pixbuf" gtk_selection_data_set_pixbuf :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO CInt - - -selectionDataSetPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - SelectionData -- _obj - -> a -- pixbuf - -> m Bool -- result -selectionDataSetPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_selection_data_set_pixbuf _obj' pixbuf' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr pixbuf - return result' - -data SelectionDataSetPixbufMethodInfo -instance (signature ~ (a -> m Bool), MonadIO m, GdkPixbuf.PixbufK a) => MethodInfo SelectionDataSetPixbufMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataSetPixbuf - --- method SelectionData::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", 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 "gtk_selection_data_set_text" gtk_selection_data_set_text :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - IO CInt - - -selectionDataSetText :: - (MonadIO m) => - SelectionData -- _obj - -> T.Text -- str - -> Int32 -- len - -> m Bool -- result -selectionDataSetText _obj str len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - result <- gtk_selection_data_set_text _obj' str' len - let result' = (/= 0) result - touchManagedPtr _obj - freeMem str' - return result' - -data SelectionDataSetTextMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m) => MethodInfo SelectionDataSetTextMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataSetText - --- method SelectionData::set_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TCArray True (-1) (-1) (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 "gtk_selection_data_set_uris" gtk_selection_data_set_uris :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr CString -> -- uris : TCArray True (-1) (-1) (TBasicType TUTF8) - IO CInt - - -selectionDataSetUris :: - (MonadIO m) => - SelectionData -- _obj - -> [T.Text] -- uris - -> m Bool -- result -selectionDataSetUris _obj uris = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uris' <- packZeroTerminatedUTF8CArray uris - result <- gtk_selection_data_set_uris _obj' uris' - let result' = (/= 0) result - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem uris' - freeMem uris' - return result' - -data SelectionDataSetUrisMethodInfo -instance (signature ~ ([T.Text] -> m Bool), MonadIO m) => MethodInfo SelectionDataSetUrisMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataSetUris - --- method SelectionData::targets_include_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, 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 "gtk_selection_data_targets_include_image" gtk_selection_data_targets_include_image :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - CInt -> -- writable : TBasicType TBoolean - IO CInt - - -selectionDataTargetsIncludeImage :: - (MonadIO m) => - SelectionData -- _obj - -> Bool -- writable - -> m Bool -- result -selectionDataTargetsIncludeImage _obj writable = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let writable' = (fromIntegral . fromEnum) writable - result <- gtk_selection_data_targets_include_image _obj' writable' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SelectionDataTargetsIncludeImageMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeImageMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataTargetsIncludeImage - --- method SelectionData::targets_include_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_selection_data_targets_include_rich_text" gtk_selection_data_targets_include_rich_text :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO CInt - - -selectionDataTargetsIncludeRichText :: - (MonadIO m, TextBufferK a) => - SelectionData -- _obj - -> a -- buffer - -> m Bool -- result -selectionDataTargetsIncludeRichText _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_selection_data_targets_include_rich_text _obj' buffer' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr buffer - return result' - -data SelectionDataTargetsIncludeRichTextMethodInfo -instance (signature ~ (a -> m Bool), MonadIO m, TextBufferK a) => MethodInfo SelectionDataTargetsIncludeRichTextMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataTargetsIncludeRichText - --- method SelectionData::targets_include_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_targets_include_text" gtk_selection_data_targets_include_text :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO CInt - - -selectionDataTargetsIncludeText :: - (MonadIO m) => - SelectionData -- _obj - -> m Bool -- result -selectionDataTargetsIncludeText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_targets_include_text _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SelectionDataTargetsIncludeTextMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeTextMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataTargetsIncludeText - --- method SelectionData::targets_include_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 "gtk_selection_data_targets_include_uri" gtk_selection_data_targets_include_uri :: - Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - IO CInt - - -selectionDataTargetsIncludeUri :: - (MonadIO m) => - SelectionData -- _obj - -> m Bool -- result -selectionDataTargetsIncludeUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_targets_include_uri _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SelectionDataTargetsIncludeUriMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeUriMethodInfo SelectionData signature where - overloadedMethod _ = selectionDataTargetsIncludeUri - -type family ResolveSelectionDataMethod (t :: Symbol) (o :: *) :: * where - ResolveSelectionDataMethod "copy" o = SelectionDataCopyMethodInfo - ResolveSelectionDataMethod "free" o = SelectionDataFreeMethodInfo - ResolveSelectionDataMethod "set" o = SelectionDataSetMethodInfo - ResolveSelectionDataMethod "targetsIncludeImage" o = SelectionDataTargetsIncludeImageMethodInfo - ResolveSelectionDataMethod "targetsIncludeRichText" o = SelectionDataTargetsIncludeRichTextMethodInfo - ResolveSelectionDataMethod "targetsIncludeText" o = SelectionDataTargetsIncludeTextMethodInfo - ResolveSelectionDataMethod "targetsIncludeUri" o = SelectionDataTargetsIncludeUriMethodInfo - ResolveSelectionDataMethod "getDataType" o = SelectionDataGetDataTypeMethodInfo - ResolveSelectionDataMethod "getData" o = SelectionDataGetDataMethodInfo - ResolveSelectionDataMethod "getDisplay" o = SelectionDataGetDisplayMethodInfo - ResolveSelectionDataMethod "getFormat" o = SelectionDataGetFormatMethodInfo - ResolveSelectionDataMethod "getLength" o = SelectionDataGetLengthMethodInfo - ResolveSelectionDataMethod "getPixbuf" o = SelectionDataGetPixbufMethodInfo - ResolveSelectionDataMethod "getSelection" o = SelectionDataGetSelectionMethodInfo - ResolveSelectionDataMethod "getTarget" o = SelectionDataGetTargetMethodInfo - ResolveSelectionDataMethod "getTargets" o = SelectionDataGetTargetsMethodInfo - ResolveSelectionDataMethod "getText" o = SelectionDataGetTextMethodInfo - ResolveSelectionDataMethod "getUris" o = SelectionDataGetUrisMethodInfo - ResolveSelectionDataMethod "setPixbuf" o = SelectionDataSetPixbufMethodInfo - ResolveSelectionDataMethod "setText" o = SelectionDataSetTextMethodInfo - ResolveSelectionDataMethod "setUris" o = SelectionDataSetUrisMethodInfo - ResolveSelectionDataMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSelectionDataMethod t SelectionData, MethodInfo info SelectionData p) => IsLabelProxy t (SelectionData -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSelectionDataMethod t SelectionData, MethodInfo info SelectionData p) => IsLabel t (SelectionData -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/SelectionData.hs-boot b/GI/Gtk/Structs/SelectionData.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/SelectionData.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gtk.Structs.SelectionData 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 SelectionData = SelectionData (ForeignPtr SelectionData) -instance BoxedObject SelectionData where -data SelectionDataCopyMethodInfo -data SelectionDataFreeMethodInfo -data SelectionDataGetDataTypeMethodInfo -data SelectionDataGetDataMethodInfo -data SelectionDataGetDisplayMethodInfo -data SelectionDataGetFormatMethodInfo -data SelectionDataGetLengthMethodInfo -data SelectionDataGetPixbufMethodInfo -data SelectionDataGetSelectionMethodInfo -data SelectionDataGetTargetMethodInfo -data SelectionDataGetTargetsMethodInfo -data SelectionDataGetTextMethodInfo -data SelectionDataGetUrisMethodInfo -data SelectionDataSetMethodInfo -data SelectionDataSetPixbufMethodInfo -data SelectionDataSetTextMethodInfo -data SelectionDataSetUrisMethodInfo -data SelectionDataTargetsIncludeImageMethodInfo -data SelectionDataTargetsIncludeRichTextMethodInfo -data SelectionDataTargetsIncludeTextMethodInfo -data SelectionDataTargetsIncludeUriMethodInfo diff --git a/GI/Gtk/Structs/SettingsValue.hs b/GI/Gtk/Structs/SettingsValue.hs deleted file mode 100644 --- a/GI/Gtk/Structs/SettingsValue.hs +++ /dev/null @@ -1,146 +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.Gtk.Structs.SettingsValue - ( - --- * Exported types - SettingsValue(..) , - newZeroSettingsValue , - noSettingsValue , - - - -- * Properties --- ** Origin - settingsValueClearOrigin , - settingsValueOrigin , - settingsValueReadOrigin , - settingsValueWriteOrigin , - - --- ** Value - settingsValueClearValue , - settingsValueReadValue , - settingsValueValue , - settingsValueWriteValue , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype SettingsValue = SettingsValue (ForeignPtr SettingsValue) -instance WrappedPtr SettingsValue where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `SettingsValue` struct initialized to zero. -newZeroSettingsValue :: MonadIO m => m SettingsValue -newZeroSettingsValue = liftIO $ wrappedPtrCalloc >>= wrapPtr SettingsValue - -instance tag ~ 'AttrSet => Constructible SettingsValue tag where - new _ attrs = do - o <- newZeroSettingsValue - GI.Attributes.set o attrs - return o - - -noSettingsValue :: Maybe SettingsValue -noSettingsValue = Nothing - -settingsValueReadOrigin :: MonadIO m => SettingsValue -> m (Maybe T.Text) -settingsValueReadOrigin 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 - -settingsValueWriteOrigin :: MonadIO m => SettingsValue -> CString -> m () -settingsValueWriteOrigin s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -settingsValueClearOrigin :: MonadIO m => SettingsValue -> m () -settingsValueClearOrigin s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data SettingsValueOriginFieldInfo -instance AttrInfo SettingsValueOriginFieldInfo where - type AttrAllowedOps SettingsValueOriginFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsValueOriginFieldInfo = (~) CString - type AttrBaseTypeConstraint SettingsValueOriginFieldInfo = (~) SettingsValue - type AttrGetType SettingsValueOriginFieldInfo = Maybe T.Text - type AttrLabel SettingsValueOriginFieldInfo = "origin" - attrGet _ = settingsValueReadOrigin - attrSet _ = settingsValueWriteOrigin - attrConstruct = undefined - attrClear _ = settingsValueClearOrigin - -settingsValueOrigin :: AttrLabelProxy "origin" -settingsValueOrigin = AttrLabelProxy - - -settingsValueReadValue :: MonadIO m => SettingsValue -> m (Maybe GValue) -settingsValueReadValue 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 - -settingsValueWriteValue :: MonadIO m => SettingsValue -> Ptr GValue -> m () -settingsValueWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr GValue) - -settingsValueClearValue :: MonadIO m => SettingsValue -> m () -settingsValueClearValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr GValue) - -data SettingsValueValueFieldInfo -instance AttrInfo SettingsValueValueFieldInfo where - type AttrAllowedOps SettingsValueValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsValueValueFieldInfo = (~) (Ptr GValue) - type AttrBaseTypeConstraint SettingsValueValueFieldInfo = (~) SettingsValue - type AttrGetType SettingsValueValueFieldInfo = Maybe GValue - type AttrLabel SettingsValueValueFieldInfo = "value" - attrGet _ = settingsValueReadValue - attrSet _ = settingsValueWriteValue - attrConstruct = undefined - attrClear _ = settingsValueClearValue - -settingsValueValue :: AttrLabelProxy "value" -settingsValueValue = AttrLabelProxy - - - -type instance AttributeList SettingsValue = SettingsValueAttributeList -type SettingsValueAttributeList = ('[ '("origin", SettingsValueOriginFieldInfo), '("value", SettingsValueValueFieldInfo)] :: [(Symbol, *)]) - -type family ResolveSettingsValueMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsValueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsValueMethod t SettingsValue, MethodInfo info SettingsValue p) => IsLabelProxy t (SettingsValue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsValueMethod t SettingsValue, MethodInfo info SettingsValue p) => IsLabel t (SettingsValue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/SettingsValue.hs-boot b/GI/Gtk/Structs/SettingsValue.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/SettingsValue.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.SettingsValue 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 SettingsValue = SettingsValue (ForeignPtr SettingsValue) -instance WrappedPtr SettingsValue where diff --git a/GI/Gtk/Structs/StockItem.hs b/GI/Gtk/Structs/StockItem.hs deleted file mode 100644 --- a/GI/Gtk/Structs/StockItem.hs +++ /dev/null @@ -1,286 +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.Gtk.Structs.StockItem - ( - --- * Exported types - StockItem(..) , - newZeroStockItem , - noStockItem , - - - -- * Methods --- ** stockItemFree - StockItemFreeMethodInfo , - stockItemFree , - - - - - -- * Properties --- ** Keyval - stockItemKeyval , - stockItemReadKeyval , - stockItemWriteKeyval , - - --- ** Label - stockItemClearLabel , - stockItemLabel , - stockItemReadLabel , - stockItemWriteLabel , - - --- ** Modifier - stockItemModifier , - stockItemReadModifier , - stockItemWriteModifier , - - --- ** StockId - stockItemClearStockId , - stockItemReadStockId , - stockItemStockId , - stockItemWriteStockId , - - --- ** TranslationDomain - stockItemClearTranslationDomain , - stockItemReadTranslationDomain , - stockItemTranslationDomain , - stockItemWriteTranslationDomain , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype StockItem = StockItem (ForeignPtr StockItem) -instance WrappedPtr StockItem where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `StockItem` struct initialized to zero. -newZeroStockItem :: MonadIO m => m StockItem -newZeroStockItem = liftIO $ wrappedPtrCalloc >>= wrapPtr StockItem - -instance tag ~ 'AttrSet => Constructible StockItem tag where - new _ attrs = do - o <- newZeroStockItem - GI.Attributes.set o attrs - return o - - -noStockItem :: Maybe StockItem -noStockItem = Nothing - -stockItemReadStockId :: MonadIO m => StockItem -> m (Maybe T.Text) -stockItemReadStockId 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 - -stockItemWriteStockId :: MonadIO m => StockItem -> CString -> m () -stockItemWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -stockItemClearStockId :: MonadIO m => StockItem -> m () -stockItemClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data StockItemStockIdFieldInfo -instance AttrInfo StockItemStockIdFieldInfo where - type AttrAllowedOps StockItemStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StockItemStockIdFieldInfo = (~) CString - type AttrBaseTypeConstraint StockItemStockIdFieldInfo = (~) StockItem - type AttrGetType StockItemStockIdFieldInfo = Maybe T.Text - type AttrLabel StockItemStockIdFieldInfo = "stock_id" - attrGet _ = stockItemReadStockId - attrSet _ = stockItemWriteStockId - attrConstruct = undefined - attrClear _ = stockItemClearStockId - -stockItemStockId :: AttrLabelProxy "stockId" -stockItemStockId = AttrLabelProxy - - -stockItemReadLabel :: MonadIO m => StockItem -> m (Maybe T.Text) -stockItemReadLabel 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 - -stockItemWriteLabel :: MonadIO m => StockItem -> CString -> m () -stockItemWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -stockItemClearLabel :: MonadIO m => StockItem -> m () -stockItemClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data StockItemLabelFieldInfo -instance AttrInfo StockItemLabelFieldInfo where - type AttrAllowedOps StockItemLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StockItemLabelFieldInfo = (~) CString - type AttrBaseTypeConstraint StockItemLabelFieldInfo = (~) StockItem - type AttrGetType StockItemLabelFieldInfo = Maybe T.Text - type AttrLabel StockItemLabelFieldInfo = "label" - attrGet _ = stockItemReadLabel - attrSet _ = stockItemWriteLabel - attrConstruct = undefined - attrClear _ = stockItemClearLabel - -stockItemLabel :: AttrLabelProxy "label" -stockItemLabel = AttrLabelProxy - - -stockItemReadModifier :: MonadIO m => StockItem -> m [Gdk.ModifierType] -stockItemReadModifier s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CUInt - let val' = wordToGFlags val - return val' - -stockItemWriteModifier :: MonadIO m => StockItem -> [Gdk.ModifierType] -> m () -stockItemWriteModifier s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 16) (val' :: CUInt) - -data StockItemModifierFieldInfo -instance AttrInfo StockItemModifierFieldInfo where - type AttrAllowedOps StockItemModifierFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint StockItemModifierFieldInfo = (~) [Gdk.ModifierType] - type AttrBaseTypeConstraint StockItemModifierFieldInfo = (~) StockItem - type AttrGetType StockItemModifierFieldInfo = [Gdk.ModifierType] - type AttrLabel StockItemModifierFieldInfo = "modifier" - attrGet _ = stockItemReadModifier - attrSet _ = stockItemWriteModifier - attrConstruct = undefined - attrClear _ = undefined - -stockItemModifier :: AttrLabelProxy "modifier" -stockItemModifier = AttrLabelProxy - - -stockItemReadKeyval :: MonadIO m => StockItem -> m Word32 -stockItemReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -stockItemWriteKeyval :: MonadIO m => StockItem -> Word32 -> m () -stockItemWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data StockItemKeyvalFieldInfo -instance AttrInfo StockItemKeyvalFieldInfo where - type AttrAllowedOps StockItemKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint StockItemKeyvalFieldInfo = (~) Word32 - type AttrBaseTypeConstraint StockItemKeyvalFieldInfo = (~) StockItem - type AttrGetType StockItemKeyvalFieldInfo = Word32 - type AttrLabel StockItemKeyvalFieldInfo = "keyval" - attrGet _ = stockItemReadKeyval - attrSet _ = stockItemWriteKeyval - attrConstruct = undefined - attrClear _ = undefined - -stockItemKeyval :: AttrLabelProxy "keyval" -stockItemKeyval = AttrLabelProxy - - -stockItemReadTranslationDomain :: MonadIO m => StockItem -> m (Maybe T.Text) -stockItemReadTranslationDomain 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 - -stockItemWriteTranslationDomain :: MonadIO m => StockItem -> CString -> m () -stockItemWriteTranslationDomain s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -stockItemClearTranslationDomain :: MonadIO m => StockItem -> m () -stockItemClearTranslationDomain s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data StockItemTranslationDomainFieldInfo -instance AttrInfo StockItemTranslationDomainFieldInfo where - type AttrAllowedOps StockItemTranslationDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StockItemTranslationDomainFieldInfo = (~) CString - type AttrBaseTypeConstraint StockItemTranslationDomainFieldInfo = (~) StockItem - type AttrGetType StockItemTranslationDomainFieldInfo = Maybe T.Text - type AttrLabel StockItemTranslationDomainFieldInfo = "translation_domain" - attrGet _ = stockItemReadTranslationDomain - attrSet _ = stockItemWriteTranslationDomain - attrConstruct = undefined - attrClear _ = stockItemClearTranslationDomain - -stockItemTranslationDomain :: AttrLabelProxy "translationDomain" -stockItemTranslationDomain = AttrLabelProxy - - - -type instance AttributeList StockItem = StockItemAttributeList -type StockItemAttributeList = ('[ '("stockId", StockItemStockIdFieldInfo), '("label", StockItemLabelFieldInfo), '("modifier", StockItemModifierFieldInfo), '("keyval", StockItemKeyvalFieldInfo), '("translationDomain", StockItemTranslationDomainFieldInfo)] :: [(Symbol, *)]) - --- method StockItem::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StockItem", 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 "gtk_stock_item_free" gtk_stock_item_free :: - Ptr StockItem -> -- _obj : TInterface "Gtk" "StockItem" - IO () - -{-# DEPRECATED stockItemFree ["(Since version 3.10)"]#-} -stockItemFree :: - (MonadIO m) => - StockItem -- _obj - -> m () -- result -stockItemFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_stock_item_free _obj' - touchManagedPtr _obj - return () - -data StockItemFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StockItemFreeMethodInfo StockItem signature where - overloadedMethod _ = stockItemFree - -type family ResolveStockItemMethod (t :: Symbol) (o :: *) :: * where - ResolveStockItemMethod "free" o = StockItemFreeMethodInfo - ResolveStockItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStockItemMethod t StockItem, MethodInfo info StockItem p) => IsLabelProxy t (StockItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStockItemMethod t StockItem, MethodInfo info StockItem p) => IsLabel t (StockItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/StockItem.hs-boot b/GI/Gtk/Structs/StockItem.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/StockItem.hs-boot +++ /dev/null @@ -1,12 +0,0 @@ -module GI.Gtk.Structs.StockItem 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 StockItem = StockItem (ForeignPtr StockItem) -instance WrappedPtr StockItem where -data StockItemFreeMethodInfo diff --git a/GI/Gtk/Structs/SymbolicColor.hs b/GI/Gtk/Structs/SymbolicColor.hs deleted file mode 100644 --- a/GI/Gtk/Structs/SymbolicColor.hs +++ /dev/null @@ -1,412 +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) - -GtkSymbolicColor is a boxed type that represents a symbolic color. -It is the result of parsing a -[color expression][gtkcssprovider-symbolic-colors]. -To obtain the color represented by a GtkSymbolicColor, it has to -be resolved with gtk_symbolic_color_resolve(), which replaces all -symbolic color references by the colors they refer to (in a given -context) and evaluates mix, shade and other expressions, resulting -in a #GdkRGBA value. - -It is not normally necessary to deal directly with #GtkSymbolicColors, -since they are mostly used behind the scenes by #GtkStyleContext and -#GtkCssProvider. - -#GtkSymbolicColor is deprecated. Symbolic colors are considered an -implementation detail of GTK+. --} - -module GI.Gtk.Structs.SymbolicColor - ( - --- * Exported types - SymbolicColor(..) , - noSymbolicColor , - - - -- * Methods --- ** symbolicColorNewAlpha - symbolicColorNewAlpha , - - --- ** symbolicColorNewLiteral - symbolicColorNewLiteral , - - --- ** symbolicColorNewMix - symbolicColorNewMix , - - --- ** symbolicColorNewName - symbolicColorNewName , - - --- ** symbolicColorNewShade - symbolicColorNewShade , - - --- ** symbolicColorNewWin32 - symbolicColorNewWin32 , - - --- ** symbolicColorRef - SymbolicColorRefMethodInfo , - symbolicColorRef , - - --- ** symbolicColorResolve - SymbolicColorResolveMethodInfo , - symbolicColorResolve , - - --- ** symbolicColorToString - SymbolicColorToStringMethodInfo , - symbolicColorToString , - - --- ** symbolicColorUnref - SymbolicColorUnrefMethodInfo , - symbolicColorUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype SymbolicColor = SymbolicColor (ForeignPtr SymbolicColor) -foreign import ccall "gtk_symbolic_color_get_type" c_gtk_symbolic_color_get_type :: - IO GType - -instance BoxedObject SymbolicColor where - boxedType _ = c_gtk_symbolic_color_get_type - -noSymbolicColor :: Maybe SymbolicColor -noSymbolicColor = Nothing - - -type instance AttributeList SymbolicColor = SymbolicColorAttributeList -type SymbolicColorAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SymbolicColor::new_alpha --- method type : Constructor --- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_alpha" gtk_symbolic_color_new_alpha :: - Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor" - CDouble -> -- factor : TBasicType TDouble - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewAlpha ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewAlpha :: - (MonadIO m) => - SymbolicColor -- color - -> Double -- factor - -> m SymbolicColor -- result -symbolicColorNewAlpha color factor = liftIO $ do - let color' = unsafeManagedPtrGetPtr color - let factor' = realToFrac factor - result <- gtk_symbolic_color_new_alpha color' factor' - checkUnexpectedReturnNULL "gtk_symbolic_color_new_alpha" result - result' <- (wrapBoxed SymbolicColor) result - touchManagedPtr color - return result' - --- method SymbolicColor::new_literal --- method type : Constructor --- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_literal" gtk_symbolic_color_new_literal :: - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewLiteral ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewLiteral :: - (MonadIO m) => - Gdk.RGBA -- color - -> m SymbolicColor -- result -symbolicColorNewLiteral color = liftIO $ do - let color' = unsafeManagedPtrGetPtr color - result <- gtk_symbolic_color_new_literal color' - checkUnexpectedReturnNULL "gtk_symbolic_color_new_literal" result - result' <- (wrapBoxed SymbolicColor) result - touchManagedPtr color - return result' - --- method SymbolicColor::new_mix --- method type : Constructor --- Args : [Arg {argCName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_mix" gtk_symbolic_color_new_mix :: - Ptr SymbolicColor -> -- color1 : TInterface "Gtk" "SymbolicColor" - Ptr SymbolicColor -> -- color2 : TInterface "Gtk" "SymbolicColor" - CDouble -> -- factor : TBasicType TDouble - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewMix ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewMix :: - (MonadIO m) => - SymbolicColor -- color1 - -> SymbolicColor -- color2 - -> Double -- factor - -> m SymbolicColor -- result -symbolicColorNewMix color1 color2 factor = liftIO $ do - let color1' = unsafeManagedPtrGetPtr color1 - let color2' = unsafeManagedPtrGetPtr color2 - let factor' = realToFrac factor - result <- gtk_symbolic_color_new_mix color1' color2' factor' - checkUnexpectedReturnNULL "gtk_symbolic_color_new_mix" result - result' <- (wrapBoxed SymbolicColor) result - touchManagedPtr color1 - touchManagedPtr color2 - return result' - --- method SymbolicColor::new_name --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_name" gtk_symbolic_color_new_name :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewName ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewName :: - (MonadIO m) => - T.Text -- name - -> m SymbolicColor -- result -symbolicColorNewName name = liftIO $ do - name' <- textToCString name - result <- gtk_symbolic_color_new_name name' - checkUnexpectedReturnNULL "gtk_symbolic_color_new_name" result - result' <- (wrapBoxed SymbolicColor) result - freeMem name' - return result' - --- method SymbolicColor::new_shade --- method type : Constructor --- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_shade" gtk_symbolic_color_new_shade :: - Ptr SymbolicColor -> -- color : TInterface "Gtk" "SymbolicColor" - CDouble -> -- factor : TBasicType TDouble - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewShade ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewShade :: - (MonadIO m) => - SymbolicColor -- color - -> Double -- factor - -> m SymbolicColor -- result -symbolicColorNewShade color factor = liftIO $ do - let color' = unsafeManagedPtrGetPtr color - let factor' = realToFrac factor - result <- gtk_symbolic_color_new_shade color' factor' - checkUnexpectedReturnNULL "gtk_symbolic_color_new_shade" result - result' <- (wrapBoxed SymbolicColor) result - touchManagedPtr color - return result' - --- method SymbolicColor::new_win32 --- method type : Constructor --- Args : [Arg {argCName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_new_win32" gtk_symbolic_color_new_win32 :: - CString -> -- theme_class : TBasicType TUTF8 - Int32 -> -- id : TBasicType TInt - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewWin32 ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewWin32 :: - (MonadIO m) => - T.Text -- themeClass - -> Int32 -- id - -> m SymbolicColor -- result -symbolicColorNewWin32 themeClass id = liftIO $ do - themeClass' <- textToCString themeClass - result <- gtk_symbolic_color_new_win32 themeClass' id - checkUnexpectedReturnNULL "gtk_symbolic_color_new_win32" result - result' <- (wrapBoxed SymbolicColor) result - freeMem themeClass' - return result' - --- method SymbolicColor::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "SymbolicColor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_ref" gtk_symbolic_color_ref :: - Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor" - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorRef ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorRef :: - (MonadIO m) => - SymbolicColor -- _obj - -> m SymbolicColor -- result -symbolicColorRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_symbolic_color_ref _obj' - checkUnexpectedReturnNULL "gtk_symbolic_color_ref" result - result' <- (wrapBoxed SymbolicColor) result - touchManagedPtr _obj - return result' - -data SymbolicColorRefMethodInfo -instance (signature ~ (m SymbolicColor), MonadIO m) => MethodInfo SymbolicColorRefMethodInfo SymbolicColor signature where - overloadedMethod _ = symbolicColorRef - --- method SymbolicColor::resolve --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_symbolic_color_resolve" gtk_symbolic_color_resolve :: - Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor" - Ptr StyleProperties -> -- props : TInterface "Gtk" "StyleProperties" - Ptr Gdk.RGBA -> -- resolved_color : TInterface "Gdk" "RGBA" - IO CInt - -{-# DEPRECATED symbolicColorResolve ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorResolve :: - (MonadIO m, StylePropertiesK a) => - SymbolicColor -- _obj - -> Maybe (a) -- props - -> m (Bool,Gdk.RGBA) -- result -symbolicColorResolve _obj props = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeProps <- case props of - Nothing -> return nullPtr - Just jProps -> do - let jProps' = unsafeManagedPtrCastPtr jProps - return jProps' - resolvedColor <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_symbolic_color_resolve _obj' maybeProps resolvedColor - let result' = (/= 0) result - resolvedColor' <- (wrapBoxed Gdk.RGBA) resolvedColor - touchManagedPtr _obj - whenJust props touchManagedPtr - return (result', resolvedColor') - -data SymbolicColorResolveMethodInfo -instance (signature ~ (Maybe (a) -> m (Bool,Gdk.RGBA)), MonadIO m, StylePropertiesK a) => MethodInfo SymbolicColorResolveMethodInfo SymbolicColor signature where - overloadedMethod _ = symbolicColorResolve - --- method SymbolicColor::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", 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 "gtk_symbolic_color_to_string" gtk_symbolic_color_to_string :: - Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor" - IO CString - -{-# DEPRECATED symbolicColorToString ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorToString :: - (MonadIO m) => - SymbolicColor -- _obj - -> m T.Text -- result -symbolicColorToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_symbolic_color_to_string _obj' - checkUnexpectedReturnNULL "gtk_symbolic_color_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data SymbolicColorToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SymbolicColorToStringMethodInfo SymbolicColor signature where - overloadedMethod _ = symbolicColorToString - --- method SymbolicColor::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", 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 "gtk_symbolic_color_unref" gtk_symbolic_color_unref :: - Ptr SymbolicColor -> -- _obj : TInterface "Gtk" "SymbolicColor" - IO () - -{-# DEPRECATED symbolicColorUnref ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorUnref :: - (MonadIO m) => - SymbolicColor -- _obj - -> m () -- result -symbolicColorUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_symbolic_color_unref _obj' - touchManagedPtr _obj - return () - -data SymbolicColorUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SymbolicColorUnrefMethodInfo SymbolicColor signature where - overloadedMethod _ = symbolicColorUnref - -type family ResolveSymbolicColorMethod (t :: Symbol) (o :: *) :: * where - ResolveSymbolicColorMethod "ref" o = SymbolicColorRefMethodInfo - ResolveSymbolicColorMethod "resolve" o = SymbolicColorResolveMethodInfo - ResolveSymbolicColorMethod "toString" o = SymbolicColorToStringMethodInfo - ResolveSymbolicColorMethod "unref" o = SymbolicColorUnrefMethodInfo - ResolveSymbolicColorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSymbolicColorMethod t SymbolicColor, MethodInfo info SymbolicColor p) => IsLabelProxy t (SymbolicColor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSymbolicColorMethod t SymbolicColor, MethodInfo info SymbolicColor p) => IsLabel t (SymbolicColor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/SymbolicColor.hs-boot b/GI/Gtk/Structs/SymbolicColor.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/SymbolicColor.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Structs.SymbolicColor 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 SymbolicColor = SymbolicColor (ForeignPtr SymbolicColor) -instance BoxedObject SymbolicColor where -data SymbolicColorRefMethodInfo -data SymbolicColorResolveMethodInfo -data SymbolicColorToStringMethodInfo -data SymbolicColorUnrefMethodInfo diff --git a/GI/Gtk/Structs/TableChild.hs b/GI/Gtk/Structs/TableChild.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TableChild.hs +++ /dev/null @@ -1,479 +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.Gtk.Structs.TableChild - ( - --- * Exported types - TableChild(..) , - newZeroTableChild , - noTableChild , - - - -- * Properties --- ** BottomAttach - tableChildBottomAttach , - tableChildReadBottomAttach , - tableChildWriteBottomAttach , - - --- ** LeftAttach - tableChildLeftAttach , - tableChildReadLeftAttach , - tableChildWriteLeftAttach , - - --- ** RightAttach - tableChildReadRightAttach , - tableChildRightAttach , - tableChildWriteRightAttach , - - --- ** TopAttach - tableChildReadTopAttach , - tableChildTopAttach , - tableChildWriteTopAttach , - - --- ** Widget - tableChildClearWidget , - tableChildReadWidget , - tableChildWidget , - tableChildWriteWidget , - - --- ** Xexpand - tableChildReadXexpand , - tableChildWriteXexpand , - tableChildXexpand , - - --- ** Xfill - tableChildReadXfill , - tableChildWriteXfill , - tableChildXfill , - - --- ** Xpadding - tableChildReadXpadding , - tableChildWriteXpadding , - tableChildXpadding , - - --- ** Xshrink - tableChildReadXshrink , - tableChildWriteXshrink , - tableChildXshrink , - - --- ** Yexpand - tableChildReadYexpand , - tableChildWriteYexpand , - tableChildYexpand , - - --- ** Yfill - tableChildReadYfill , - tableChildWriteYfill , - tableChildYfill , - - --- ** Ypadding - tableChildReadYpadding , - tableChildWriteYpadding , - tableChildYpadding , - - --- ** Yshrink - tableChildReadYshrink , - tableChildWriteYshrink , - tableChildYshrink , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TableChild = TableChild (ForeignPtr TableChild) -instance WrappedPtr TableChild where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TableChild` struct initialized to zero. -newZeroTableChild :: MonadIO m => m TableChild -newZeroTableChild = liftIO $ wrappedPtrCalloc >>= wrapPtr TableChild - -instance tag ~ 'AttrSet => Constructible TableChild tag where - new _ attrs = do - o <- newZeroTableChild - GI.Attributes.set o attrs - return o - - -noTableChild :: Maybe TableChild -noTableChild = Nothing - -tableChildReadWidget :: MonadIO m => TableChild -> m (Maybe Widget) -tableChildReadWidget s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Widget) val' - return val'' - return result - -tableChildWriteWidget :: MonadIO m => TableChild -> Ptr Widget -> m () -tableChildWriteWidget s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Widget) - -tableChildClearWidget :: MonadIO m => TableChild -> m () -tableChildClearWidget s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Widget) - -data TableChildWidgetFieldInfo -instance AttrInfo TableChildWidgetFieldInfo where - type AttrAllowedOps TableChildWidgetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TableChildWidgetFieldInfo = (~) (Ptr Widget) - type AttrBaseTypeConstraint TableChildWidgetFieldInfo = (~) TableChild - type AttrGetType TableChildWidgetFieldInfo = Maybe Widget - type AttrLabel TableChildWidgetFieldInfo = "widget" - attrGet _ = tableChildReadWidget - attrSet _ = tableChildWriteWidget - attrConstruct = undefined - attrClear _ = tableChildClearWidget - -tableChildWidget :: AttrLabelProxy "widget" -tableChildWidget = AttrLabelProxy - - -tableChildReadLeftAttach :: MonadIO m => TableChild -> m Word16 -tableChildReadLeftAttach s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word16 - return val - -tableChildWriteLeftAttach :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteLeftAttach s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word16) - -data TableChildLeftAttachFieldInfo -instance AttrInfo TableChildLeftAttachFieldInfo where - type AttrAllowedOps TableChildLeftAttachFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildLeftAttachFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildLeftAttachFieldInfo = (~) TableChild - type AttrGetType TableChildLeftAttachFieldInfo = Word16 - type AttrLabel TableChildLeftAttachFieldInfo = "left_attach" - attrGet _ = tableChildReadLeftAttach - attrSet _ = tableChildWriteLeftAttach - attrConstruct = undefined - attrClear _ = undefined - -tableChildLeftAttach :: AttrLabelProxy "leftAttach" -tableChildLeftAttach = AttrLabelProxy - - -tableChildReadRightAttach :: MonadIO m => TableChild -> m Word16 -tableChildReadRightAttach s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 10) :: IO Word16 - return val - -tableChildWriteRightAttach :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteRightAttach s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 10) (val :: Word16) - -data TableChildRightAttachFieldInfo -instance AttrInfo TableChildRightAttachFieldInfo where - type AttrAllowedOps TableChildRightAttachFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildRightAttachFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildRightAttachFieldInfo = (~) TableChild - type AttrGetType TableChildRightAttachFieldInfo = Word16 - type AttrLabel TableChildRightAttachFieldInfo = "right_attach" - attrGet _ = tableChildReadRightAttach - attrSet _ = tableChildWriteRightAttach - attrConstruct = undefined - attrClear _ = undefined - -tableChildRightAttach :: AttrLabelProxy "rightAttach" -tableChildRightAttach = AttrLabelProxy - - -tableChildReadTopAttach :: MonadIO m => TableChild -> m Word16 -tableChildReadTopAttach s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word16 - return val - -tableChildWriteTopAttach :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteTopAttach s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word16) - -data TableChildTopAttachFieldInfo -instance AttrInfo TableChildTopAttachFieldInfo where - type AttrAllowedOps TableChildTopAttachFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildTopAttachFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildTopAttachFieldInfo = (~) TableChild - type AttrGetType TableChildTopAttachFieldInfo = Word16 - type AttrLabel TableChildTopAttachFieldInfo = "top_attach" - attrGet _ = tableChildReadTopAttach - attrSet _ = tableChildWriteTopAttach - attrConstruct = undefined - attrClear _ = undefined - -tableChildTopAttach :: AttrLabelProxy "topAttach" -tableChildTopAttach = AttrLabelProxy - - -tableChildReadBottomAttach :: MonadIO m => TableChild -> m Word16 -tableChildReadBottomAttach s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 14) :: IO Word16 - return val - -tableChildWriteBottomAttach :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteBottomAttach s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 14) (val :: Word16) - -data TableChildBottomAttachFieldInfo -instance AttrInfo TableChildBottomAttachFieldInfo where - type AttrAllowedOps TableChildBottomAttachFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildBottomAttachFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildBottomAttachFieldInfo = (~) TableChild - type AttrGetType TableChildBottomAttachFieldInfo = Word16 - type AttrLabel TableChildBottomAttachFieldInfo = "bottom_attach" - attrGet _ = tableChildReadBottomAttach - attrSet _ = tableChildWriteBottomAttach - attrConstruct = undefined - attrClear _ = undefined - -tableChildBottomAttach :: AttrLabelProxy "bottomAttach" -tableChildBottomAttach = AttrLabelProxy - - -tableChildReadXpadding :: MonadIO m => TableChild -> m Word16 -tableChildReadXpadding s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word16 - return val - -tableChildWriteXpadding :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteXpadding s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word16) - -data TableChildXpaddingFieldInfo -instance AttrInfo TableChildXpaddingFieldInfo where - type AttrAllowedOps TableChildXpaddingFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildXpaddingFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildXpaddingFieldInfo = (~) TableChild - type AttrGetType TableChildXpaddingFieldInfo = Word16 - type AttrLabel TableChildXpaddingFieldInfo = "xpadding" - attrGet _ = tableChildReadXpadding - attrSet _ = tableChildWriteXpadding - attrConstruct = undefined - attrClear _ = undefined - -tableChildXpadding :: AttrLabelProxy "xpadding" -tableChildXpadding = AttrLabelProxy - - -tableChildReadYpadding :: MonadIO m => TableChild -> m Word16 -tableChildReadYpadding s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 18) :: IO Word16 - return val - -tableChildWriteYpadding :: MonadIO m => TableChild -> Word16 -> m () -tableChildWriteYpadding s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 18) (val :: Word16) - -data TableChildYpaddingFieldInfo -instance AttrInfo TableChildYpaddingFieldInfo where - type AttrAllowedOps TableChildYpaddingFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildYpaddingFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableChildYpaddingFieldInfo = (~) TableChild - type AttrGetType TableChildYpaddingFieldInfo = Word16 - type AttrLabel TableChildYpaddingFieldInfo = "ypadding" - attrGet _ = tableChildReadYpadding - attrSet _ = tableChildWriteYpadding - attrConstruct = undefined - attrClear _ = undefined - -tableChildYpadding :: AttrLabelProxy "ypadding" -tableChildYpadding = AttrLabelProxy - - -tableChildReadXexpand :: MonadIO m => TableChild -> m Word32 -tableChildReadXexpand s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -tableChildWriteXexpand :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteXexpand s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data TableChildXexpandFieldInfo -instance AttrInfo TableChildXexpandFieldInfo where - type AttrAllowedOps TableChildXexpandFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildXexpandFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildXexpandFieldInfo = (~) TableChild - type AttrGetType TableChildXexpandFieldInfo = Word32 - type AttrLabel TableChildXexpandFieldInfo = "xexpand" - attrGet _ = tableChildReadXexpand - attrSet _ = tableChildWriteXexpand - attrConstruct = undefined - attrClear _ = undefined - -tableChildXexpand :: AttrLabelProxy "xexpand" -tableChildXexpand = AttrLabelProxy - - -tableChildReadYexpand :: MonadIO m => TableChild -> m Word32 -tableChildReadYexpand s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -tableChildWriteYexpand :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteYexpand s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Word32) - -data TableChildYexpandFieldInfo -instance AttrInfo TableChildYexpandFieldInfo where - type AttrAllowedOps TableChildYexpandFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildYexpandFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildYexpandFieldInfo = (~) TableChild - type AttrGetType TableChildYexpandFieldInfo = Word32 - type AttrLabel TableChildYexpandFieldInfo = "yexpand" - attrGet _ = tableChildReadYexpand - attrSet _ = tableChildWriteYexpand - attrConstruct = undefined - attrClear _ = undefined - -tableChildYexpand :: AttrLabelProxy "yexpand" -tableChildYexpand = AttrLabelProxy - - -tableChildReadXshrink :: MonadIO m => TableChild -> m Word32 -tableChildReadXshrink s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -tableChildWriteXshrink :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteXshrink s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Word32) - -data TableChildXshrinkFieldInfo -instance AttrInfo TableChildXshrinkFieldInfo where - type AttrAllowedOps TableChildXshrinkFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildXshrinkFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildXshrinkFieldInfo = (~) TableChild - type AttrGetType TableChildXshrinkFieldInfo = Word32 - type AttrLabel TableChildXshrinkFieldInfo = "xshrink" - attrGet _ = tableChildReadXshrink - attrSet _ = tableChildWriteXshrink - attrConstruct = undefined - attrClear _ = undefined - -tableChildXshrink :: AttrLabelProxy "xshrink" -tableChildXshrink = AttrLabelProxy - - -tableChildReadYshrink :: MonadIO m => TableChild -> m Word32 -tableChildReadYshrink s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -tableChildWriteYshrink :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteYshrink s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data TableChildYshrinkFieldInfo -instance AttrInfo TableChildYshrinkFieldInfo where - type AttrAllowedOps TableChildYshrinkFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildYshrinkFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildYshrinkFieldInfo = (~) TableChild - type AttrGetType TableChildYshrinkFieldInfo = Word32 - type AttrLabel TableChildYshrinkFieldInfo = "yshrink" - attrGet _ = tableChildReadYshrink - attrSet _ = tableChildWriteYshrink - attrConstruct = undefined - attrClear _ = undefined - -tableChildYshrink :: AttrLabelProxy "yshrink" -tableChildYshrink = AttrLabelProxy - - -tableChildReadXfill :: MonadIO m => TableChild -> m Word32 -tableChildReadXfill s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -tableChildWriteXfill :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteXfill s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 36) (val :: Word32) - -data TableChildXfillFieldInfo -instance AttrInfo TableChildXfillFieldInfo where - type AttrAllowedOps TableChildXfillFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildXfillFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildXfillFieldInfo = (~) TableChild - type AttrGetType TableChildXfillFieldInfo = Word32 - type AttrLabel TableChildXfillFieldInfo = "xfill" - attrGet _ = tableChildReadXfill - attrSet _ = tableChildWriteXfill - attrConstruct = undefined - attrClear _ = undefined - -tableChildXfill :: AttrLabelProxy "xfill" -tableChildXfill = AttrLabelProxy - - -tableChildReadYfill :: MonadIO m => TableChild -> m Word32 -tableChildReadYfill s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -tableChildWriteYfill :: MonadIO m => TableChild -> Word32 -> m () -tableChildWriteYfill s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Word32) - -data TableChildYfillFieldInfo -instance AttrInfo TableChildYfillFieldInfo where - type AttrAllowedOps TableChildYfillFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableChildYfillFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableChildYfillFieldInfo = (~) TableChild - type AttrGetType TableChildYfillFieldInfo = Word32 - type AttrLabel TableChildYfillFieldInfo = "yfill" - attrGet _ = tableChildReadYfill - attrSet _ = tableChildWriteYfill - attrConstruct = undefined - attrClear _ = undefined - -tableChildYfill :: AttrLabelProxy "yfill" -tableChildYfill = AttrLabelProxy - - - -type instance AttributeList TableChild = TableChildAttributeList -type TableChildAttributeList = ('[ '("widget", TableChildWidgetFieldInfo), '("leftAttach", TableChildLeftAttachFieldInfo), '("rightAttach", TableChildRightAttachFieldInfo), '("topAttach", TableChildTopAttachFieldInfo), '("bottomAttach", TableChildBottomAttachFieldInfo), '("xpadding", TableChildXpaddingFieldInfo), '("ypadding", TableChildYpaddingFieldInfo), '("xexpand", TableChildXexpandFieldInfo), '("yexpand", TableChildYexpandFieldInfo), '("xshrink", TableChildXshrinkFieldInfo), '("yshrink", TableChildYshrinkFieldInfo), '("xfill", TableChildXfillFieldInfo), '("yfill", TableChildYfillFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTableChildMethod (t :: Symbol) (o :: *) :: * where - ResolveTableChildMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTableChildMethod t TableChild, MethodInfo info TableChild p) => IsLabelProxy t (TableChild -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTableChildMethod t TableChild, MethodInfo info TableChild p) => IsLabel t (TableChild -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TableChild.hs-boot b/GI/Gtk/Structs/TableChild.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TableChild.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.TableChild 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 TableChild = TableChild (ForeignPtr TableChild) -instance WrappedPtr TableChild where diff --git a/GI/Gtk/Structs/TableRowCol.hs b/GI/Gtk/Structs/TableRowCol.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TableRowCol.hs +++ /dev/null @@ -1,316 +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.Gtk.Structs.TableRowCol - ( - --- * Exported types - TableRowCol(..) , - newZeroTableRowCol , - noTableRowCol , - - - -- * Properties --- ** Allocation - tableRowColAllocation , - tableRowColReadAllocation , - tableRowColWriteAllocation , - - --- ** Empty - tableRowColEmpty , - tableRowColReadEmpty , - tableRowColWriteEmpty , - - --- ** Expand - tableRowColExpand , - tableRowColReadExpand , - tableRowColWriteExpand , - - --- ** NeedExpand - tableRowColNeedExpand , - tableRowColReadNeedExpand , - tableRowColWriteNeedExpand , - - --- ** NeedShrink - tableRowColNeedShrink , - tableRowColReadNeedShrink , - tableRowColWriteNeedShrink , - - --- ** Requisition - tableRowColReadRequisition , - tableRowColRequisition , - tableRowColWriteRequisition , - - --- ** Shrink - tableRowColReadShrink , - tableRowColShrink , - tableRowColWriteShrink , - - --- ** Spacing - tableRowColReadSpacing , - tableRowColSpacing , - tableRowColWriteSpacing , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TableRowCol = TableRowCol (ForeignPtr TableRowCol) -instance WrappedPtr TableRowCol where - wrappedPtrCalloc = callocBytes 28 - wrappedPtrCopy = copyPtr 28 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TableRowCol` struct initialized to zero. -newZeroTableRowCol :: MonadIO m => m TableRowCol -newZeroTableRowCol = liftIO $ wrappedPtrCalloc >>= wrapPtr TableRowCol - -instance tag ~ 'AttrSet => Constructible TableRowCol tag where - new _ attrs = do - o <- newZeroTableRowCol - GI.Attributes.set o attrs - return o - - -noTableRowCol :: Maybe TableRowCol -noTableRowCol = Nothing - -tableRowColReadRequisition :: MonadIO m => TableRowCol -> m Word16 -tableRowColReadRequisition s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word16 - return val - -tableRowColWriteRequisition :: MonadIO m => TableRowCol -> Word16 -> m () -tableRowColWriteRequisition s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word16) - -data TableRowColRequisitionFieldInfo -instance AttrInfo TableRowColRequisitionFieldInfo where - type AttrAllowedOps TableRowColRequisitionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColRequisitionFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableRowColRequisitionFieldInfo = (~) TableRowCol - type AttrGetType TableRowColRequisitionFieldInfo = Word16 - type AttrLabel TableRowColRequisitionFieldInfo = "requisition" - attrGet _ = tableRowColReadRequisition - attrSet _ = tableRowColWriteRequisition - attrConstruct = undefined - attrClear _ = undefined - -tableRowColRequisition :: AttrLabelProxy "requisition" -tableRowColRequisition = AttrLabelProxy - - -tableRowColReadAllocation :: MonadIO m => TableRowCol -> m Word16 -tableRowColReadAllocation s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Word16 - return val - -tableRowColWriteAllocation :: MonadIO m => TableRowCol -> Word16 -> m () -tableRowColWriteAllocation s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 2) (val :: Word16) - -data TableRowColAllocationFieldInfo -instance AttrInfo TableRowColAllocationFieldInfo where - type AttrAllowedOps TableRowColAllocationFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColAllocationFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableRowColAllocationFieldInfo = (~) TableRowCol - type AttrGetType TableRowColAllocationFieldInfo = Word16 - type AttrLabel TableRowColAllocationFieldInfo = "allocation" - attrGet _ = tableRowColReadAllocation - attrSet _ = tableRowColWriteAllocation - attrConstruct = undefined - attrClear _ = undefined - -tableRowColAllocation :: AttrLabelProxy "allocation" -tableRowColAllocation = AttrLabelProxy - - -tableRowColReadSpacing :: MonadIO m => TableRowCol -> m Word16 -tableRowColReadSpacing s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -tableRowColWriteSpacing :: MonadIO m => TableRowCol -> Word16 -> m () -tableRowColWriteSpacing s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word16) - -data TableRowColSpacingFieldInfo -instance AttrInfo TableRowColSpacingFieldInfo where - type AttrAllowedOps TableRowColSpacingFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColSpacingFieldInfo = (~) Word16 - type AttrBaseTypeConstraint TableRowColSpacingFieldInfo = (~) TableRowCol - type AttrGetType TableRowColSpacingFieldInfo = Word16 - type AttrLabel TableRowColSpacingFieldInfo = "spacing" - attrGet _ = tableRowColReadSpacing - attrSet _ = tableRowColWriteSpacing - attrConstruct = undefined - attrClear _ = undefined - -tableRowColSpacing :: AttrLabelProxy "spacing" -tableRowColSpacing = AttrLabelProxy - - -tableRowColReadNeedExpand :: MonadIO m => TableRowCol -> m Word32 -tableRowColReadNeedExpand s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -tableRowColWriteNeedExpand :: MonadIO m => TableRowCol -> Word32 -> m () -tableRowColWriteNeedExpand s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data TableRowColNeedExpandFieldInfo -instance AttrInfo TableRowColNeedExpandFieldInfo where - type AttrAllowedOps TableRowColNeedExpandFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColNeedExpandFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowColNeedExpandFieldInfo = (~) TableRowCol - type AttrGetType TableRowColNeedExpandFieldInfo = Word32 - type AttrLabel TableRowColNeedExpandFieldInfo = "need_expand" - attrGet _ = tableRowColReadNeedExpand - attrSet _ = tableRowColWriteNeedExpand - attrConstruct = undefined - attrClear _ = undefined - -tableRowColNeedExpand :: AttrLabelProxy "needExpand" -tableRowColNeedExpand = AttrLabelProxy - - -tableRowColReadNeedShrink :: MonadIO m => TableRowCol -> m Word32 -tableRowColReadNeedShrink s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -tableRowColWriteNeedShrink :: MonadIO m => TableRowCol -> Word32 -> m () -tableRowColWriteNeedShrink s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data TableRowColNeedShrinkFieldInfo -instance AttrInfo TableRowColNeedShrinkFieldInfo where - type AttrAllowedOps TableRowColNeedShrinkFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColNeedShrinkFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowColNeedShrinkFieldInfo = (~) TableRowCol - type AttrGetType TableRowColNeedShrinkFieldInfo = Word32 - type AttrLabel TableRowColNeedShrinkFieldInfo = "need_shrink" - attrGet _ = tableRowColReadNeedShrink - attrSet _ = tableRowColWriteNeedShrink - attrConstruct = undefined - attrClear _ = undefined - -tableRowColNeedShrink :: AttrLabelProxy "needShrink" -tableRowColNeedShrink = AttrLabelProxy - - -tableRowColReadExpand :: MonadIO m => TableRowCol -> m Word32 -tableRowColReadExpand s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -tableRowColWriteExpand :: MonadIO m => TableRowCol -> Word32 -> m () -tableRowColWriteExpand s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data TableRowColExpandFieldInfo -instance AttrInfo TableRowColExpandFieldInfo where - type AttrAllowedOps TableRowColExpandFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColExpandFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowColExpandFieldInfo = (~) TableRowCol - type AttrGetType TableRowColExpandFieldInfo = Word32 - type AttrLabel TableRowColExpandFieldInfo = "expand" - attrGet _ = tableRowColReadExpand - attrSet _ = tableRowColWriteExpand - attrConstruct = undefined - attrClear _ = undefined - -tableRowColExpand :: AttrLabelProxy "expand" -tableRowColExpand = AttrLabelProxy - - -tableRowColReadShrink :: MonadIO m => TableRowCol -> m Word32 -tableRowColReadShrink s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -tableRowColWriteShrink :: MonadIO m => TableRowCol -> Word32 -> m () -tableRowColWriteShrink s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data TableRowColShrinkFieldInfo -instance AttrInfo TableRowColShrinkFieldInfo where - type AttrAllowedOps TableRowColShrinkFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColShrinkFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowColShrinkFieldInfo = (~) TableRowCol - type AttrGetType TableRowColShrinkFieldInfo = Word32 - type AttrLabel TableRowColShrinkFieldInfo = "shrink" - attrGet _ = tableRowColReadShrink - attrSet _ = tableRowColWriteShrink - attrConstruct = undefined - attrClear _ = undefined - -tableRowColShrink :: AttrLabelProxy "shrink" -tableRowColShrink = AttrLabelProxy - - -tableRowColReadEmpty :: MonadIO m => TableRowCol -> m Word32 -tableRowColReadEmpty s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -tableRowColWriteEmpty :: MonadIO m => TableRowCol -> Word32 -> m () -tableRowColWriteEmpty s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Word32) - -data TableRowColEmptyFieldInfo -instance AttrInfo TableRowColEmptyFieldInfo where - type AttrAllowedOps TableRowColEmptyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TableRowColEmptyFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TableRowColEmptyFieldInfo = (~) TableRowCol - type AttrGetType TableRowColEmptyFieldInfo = Word32 - type AttrLabel TableRowColEmptyFieldInfo = "empty" - attrGet _ = tableRowColReadEmpty - attrSet _ = tableRowColWriteEmpty - attrConstruct = undefined - attrClear _ = undefined - -tableRowColEmpty :: AttrLabelProxy "empty" -tableRowColEmpty = AttrLabelProxy - - - -type instance AttributeList TableRowCol = TableRowColAttributeList -type TableRowColAttributeList = ('[ '("requisition", TableRowColRequisitionFieldInfo), '("allocation", TableRowColAllocationFieldInfo), '("spacing", TableRowColSpacingFieldInfo), '("needExpand", TableRowColNeedExpandFieldInfo), '("needShrink", TableRowColNeedShrinkFieldInfo), '("expand", TableRowColExpandFieldInfo), '("shrink", TableRowColShrinkFieldInfo), '("empty", TableRowColEmptyFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTableRowColMethod (t :: Symbol) (o :: *) :: * where - ResolveTableRowColMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTableRowColMethod t TableRowCol, MethodInfo info TableRowCol p) => IsLabelProxy t (TableRowCol -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTableRowColMethod t TableRowCol, MethodInfo info TableRowCol p) => IsLabel t (TableRowCol -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TableRowCol.hs-boot b/GI/Gtk/Structs/TableRowCol.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TableRowCol.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.TableRowCol 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 TableRowCol = TableRowCol (ForeignPtr TableRowCol) -instance WrappedPtr TableRowCol where diff --git a/GI/Gtk/Structs/TargetEntry.hs b/GI/Gtk/Structs/TargetEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TargetEntry.hs +++ /dev/null @@ -1,278 +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 #GtkTargetEntry represents a single type of -data than can be supplied for by a widget for a selection -or for supplied or received during drag-and-drop. --} - -module GI.Gtk.Structs.TargetEntry - ( - --- * Exported types - TargetEntry(..) , - newZeroTargetEntry , - noTargetEntry , - - - -- * Methods --- ** targetEntryCopy - TargetEntryCopyMethodInfo , - targetEntryCopy , - - --- ** targetEntryFree - TargetEntryFreeMethodInfo , - targetEntryFree , - - --- ** targetEntryNew - targetEntryNew , - - - - - -- * Properties --- ** Flags - targetEntryFlags , - targetEntryReadFlags , - targetEntryWriteFlags , - - --- ** Info - targetEntryInfo , - targetEntryReadInfo , - targetEntryWriteInfo , - - --- ** Target - targetEntryClearTarget , - targetEntryReadTarget , - targetEntryTarget , - targetEntryWriteTarget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TargetEntry = TargetEntry (ForeignPtr TargetEntry) -foreign import ccall "gtk_target_entry_get_type" c_gtk_target_entry_get_type :: - IO GType - -instance BoxedObject TargetEntry where - boxedType _ = c_gtk_target_entry_get_type - --- | Construct a `TargetEntry` struct initialized to zero. -newZeroTargetEntry :: MonadIO m => m TargetEntry -newZeroTargetEntry = liftIO $ callocBoxedBytes 16 >>= wrapBoxed TargetEntry - -instance tag ~ 'AttrSet => Constructible TargetEntry tag where - new _ attrs = do - o <- newZeroTargetEntry - GI.Attributes.set o attrs - return o - - -noTargetEntry :: Maybe TargetEntry -noTargetEntry = Nothing - -targetEntryReadTarget :: MonadIO m => TargetEntry -> m (Maybe T.Text) -targetEntryReadTarget 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 - -targetEntryWriteTarget :: MonadIO m => TargetEntry -> CString -> m () -targetEntryWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -targetEntryClearTarget :: MonadIO m => TargetEntry -> m () -targetEntryClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data TargetEntryTargetFieldInfo -instance AttrInfo TargetEntryTargetFieldInfo where - type AttrAllowedOps TargetEntryTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TargetEntryTargetFieldInfo = (~) CString - type AttrBaseTypeConstraint TargetEntryTargetFieldInfo = (~) TargetEntry - type AttrGetType TargetEntryTargetFieldInfo = Maybe T.Text - type AttrLabel TargetEntryTargetFieldInfo = "target" - attrGet _ = targetEntryReadTarget - attrSet _ = targetEntryWriteTarget - attrConstruct = undefined - attrClear _ = targetEntryClearTarget - -targetEntryTarget :: AttrLabelProxy "target" -targetEntryTarget = AttrLabelProxy - - -targetEntryReadFlags :: MonadIO m => TargetEntry -> m Word32 -targetEntryReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -targetEntryWriteFlags :: MonadIO m => TargetEntry -> Word32 -> m () -targetEntryWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data TargetEntryFlagsFieldInfo -instance AttrInfo TargetEntryFlagsFieldInfo where - type AttrAllowedOps TargetEntryFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TargetEntryFlagsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TargetEntryFlagsFieldInfo = (~) TargetEntry - type AttrGetType TargetEntryFlagsFieldInfo = Word32 - type AttrLabel TargetEntryFlagsFieldInfo = "flags" - attrGet _ = targetEntryReadFlags - attrSet _ = targetEntryWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -targetEntryFlags :: AttrLabelProxy "flags" -targetEntryFlags = AttrLabelProxy - - -targetEntryReadInfo :: MonadIO m => TargetEntry -> m Word32 -targetEntryReadInfo s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -targetEntryWriteInfo :: MonadIO m => TargetEntry -> Word32 -> m () -targetEntryWriteInfo s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data TargetEntryInfoFieldInfo -instance AttrInfo TargetEntryInfoFieldInfo where - type AttrAllowedOps TargetEntryInfoFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TargetEntryInfoFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TargetEntryInfoFieldInfo = (~) TargetEntry - type AttrGetType TargetEntryInfoFieldInfo = Word32 - type AttrLabel TargetEntryInfoFieldInfo = "info" - attrGet _ = targetEntryReadInfo - attrSet _ = targetEntryWriteInfo - attrConstruct = undefined - attrClear _ = undefined - -targetEntryInfo :: AttrLabelProxy "info" -targetEntryInfo = AttrLabelProxy - - - -type instance AttributeList TargetEntry = TargetEntryAttributeList -type TargetEntryAttributeList = ('[ '("target", TargetEntryTargetFieldInfo), '("flags", TargetEntryFlagsFieldInfo), '("info", TargetEntryInfoFieldInfo)] :: [(Symbol, *)]) - --- method TargetEntry::new --- method type : Constructor --- Args : [Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetEntry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_entry_new" gtk_target_entry_new :: - CString -> -- target : TBasicType TUTF8 - Word32 -> -- flags : TBasicType TUInt - Word32 -> -- info : TBasicType TUInt - IO (Ptr TargetEntry) - - -targetEntryNew :: - (MonadIO m) => - T.Text -- target - -> Word32 -- flags - -> Word32 -- info - -> m TargetEntry -- result -targetEntryNew target flags info = liftIO $ do - target' <- textToCString target - result <- gtk_target_entry_new target' flags info - checkUnexpectedReturnNULL "gtk_target_entry_new" result - result' <- (wrapBoxed TargetEntry) result - freeMem target' - return result' - --- method TargetEntry::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetEntry") --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_entry_copy" gtk_target_entry_copy :: - Ptr TargetEntry -> -- _obj : TInterface "Gtk" "TargetEntry" - IO (Ptr TargetEntry) - - -targetEntryCopy :: - (MonadIO m) => - TargetEntry -- _obj - -> m TargetEntry -- result -targetEntryCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_target_entry_copy _obj' - checkUnexpectedReturnNULL "gtk_target_entry_copy" result - result' <- (wrapBoxed TargetEntry) result - touchManagedPtr _obj - return result' - -data TargetEntryCopyMethodInfo -instance (signature ~ (m TargetEntry), MonadIO m) => MethodInfo TargetEntryCopyMethodInfo TargetEntry signature where - overloadedMethod _ = targetEntryCopy - --- method TargetEntry::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", 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 "gtk_target_entry_free" gtk_target_entry_free :: - Ptr TargetEntry -> -- _obj : TInterface "Gtk" "TargetEntry" - IO () - - -targetEntryFree :: - (MonadIO m) => - TargetEntry -- _obj - -> m () -- result -targetEntryFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_entry_free _obj' - touchManagedPtr _obj - return () - -data TargetEntryFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TargetEntryFreeMethodInfo TargetEntry signature where - overloadedMethod _ = targetEntryFree - -type family ResolveTargetEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveTargetEntryMethod "copy" o = TargetEntryCopyMethodInfo - ResolveTargetEntryMethod "free" o = TargetEntryFreeMethodInfo - ResolveTargetEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTargetEntryMethod t TargetEntry, MethodInfo info TargetEntry p) => IsLabelProxy t (TargetEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTargetEntryMethod t TargetEntry, MethodInfo info TargetEntry p) => IsLabel t (TargetEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TargetEntry.hs-boot b/GI/Gtk/Structs/TargetEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TargetEntry.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Structs.TargetEntry 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 TargetEntry = TargetEntry (ForeignPtr TargetEntry) -instance BoxedObject TargetEntry where -data TargetEntryCopyMethodInfo -data TargetEntryFreeMethodInfo diff --git a/GI/Gtk/Structs/TargetList.hs b/GI/Gtk/Structs/TargetList.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TargetList.hs +++ /dev/null @@ -1,480 +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 #GtkTargetList-struct is a reference counted list -of #GtkTargetPair and should be treated as -opaque. --} - -module GI.Gtk.Structs.TargetList - ( - --- * Exported types - TargetList(..) , - noTargetList , - - - -- * Methods --- ** targetListAdd - TargetListAddMethodInfo , - targetListAdd , - - --- ** targetListAddImageTargets - TargetListAddImageTargetsMethodInfo , - targetListAddImageTargets , - - --- ** targetListAddRichTextTargets - TargetListAddRichTextTargetsMethodInfo , - targetListAddRichTextTargets , - - --- ** targetListAddTable - TargetListAddTableMethodInfo , - targetListAddTable , - - --- ** targetListAddTextTargets - TargetListAddTextTargetsMethodInfo , - targetListAddTextTargets , - - --- ** targetListAddUriTargets - TargetListAddUriTargetsMethodInfo , - targetListAddUriTargets , - - --- ** targetListFind - TargetListFindMethodInfo , - targetListFind , - - --- ** targetListNew - targetListNew , - - --- ** targetListRef - TargetListRefMethodInfo , - targetListRef , - - --- ** targetListRemove - TargetListRemoveMethodInfo , - targetListRemove , - - --- ** targetListUnref - TargetListUnrefMethodInfo , - targetListUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype TargetList = TargetList (ForeignPtr TargetList) -foreign import ccall "gtk_target_list_get_type" c_gtk_target_list_get_type :: - IO GType - -instance BoxedObject TargetList where - boxedType _ = c_gtk_target_list_get_type - -noTargetList :: Maybe TargetList -noTargetList = Nothing - - -type instance AttributeList TargetList = TargetListAttributeList -type TargetListAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TargetList::new --- method type : Constructor --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_list_new" gtk_target_list_new :: - Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt - IO (Ptr TargetList) - - -targetListNew :: - (MonadIO m) => - Maybe ([TargetEntry]) -- targets - -> m TargetList -- result -targetListNew targets = liftIO $ do - let ntargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - result <- gtk_target_list_new maybeTargets ntargets - checkUnexpectedReturnNULL "gtk_target_list_new" result - result' <- (wrapBoxed TargetList) result - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return result' - --- method TargetList::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", 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 "gtk_target_list_add" gtk_target_list_add :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- flags : TBasicType TUInt - Word32 -> -- info : TBasicType TUInt - IO () - - -targetListAdd :: - (MonadIO m) => - TargetList -- _obj - -> Gdk.Atom -- target - -> Word32 -- flags - -> Word32 -- info - -> m () -- result -targetListAdd _obj target flags info = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let target' = unsafeManagedPtrGetPtr target - gtk_target_list_add _obj' target' flags info - touchManagedPtr _obj - touchManagedPtr target - return () - -data TargetListAddMethodInfo -instance (signature ~ (Gdk.Atom -> Word32 -> Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddMethodInfo TargetList signature where - overloadedMethod _ = targetListAdd - --- method TargetList::add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", 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 "gtk_target_list_add_image_targets" gtk_target_list_add_image_targets :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt - CInt -> -- writable : TBasicType TBoolean - IO () - - -targetListAddImageTargets :: - (MonadIO m) => - TargetList -- _obj - -> Word32 -- info - -> Bool -- writable - -> m () -- result -targetListAddImageTargets _obj info writable = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let writable' = (fromIntegral . fromEnum) writable - gtk_target_list_add_image_targets _obj' info writable' - touchManagedPtr _obj - return () - -data TargetListAddImageTargetsMethodInfo -instance (signature ~ (Word32 -> Bool -> m ()), MonadIO m) => MethodInfo TargetListAddImageTargetsMethodInfo TargetList signature where - overloadedMethod _ = targetListAddImageTargets - --- method TargetList::add_rich_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", 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 "gtk_target_list_add_rich_text_targets" gtk_target_list_add_rich_text_targets :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt - CInt -> -- deserializable : TBasicType TBoolean - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO () - - -targetListAddRichTextTargets :: - (MonadIO m, TextBufferK a) => - TargetList -- _obj - -> Word32 -- info - -> Bool -- deserializable - -> a -- buffer - -> m () -- result -targetListAddRichTextTargets _obj info deserializable buffer = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let deserializable' = (fromIntegral . fromEnum) deserializable - let buffer' = unsafeManagedPtrCastPtr buffer - gtk_target_list_add_rich_text_targets _obj' info deserializable' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - -data TargetListAddRichTextTargetsMethodInfo -instance (signature ~ (Word32 -> Bool -> a -> m ()), MonadIO m, TextBufferK a) => MethodInfo TargetListAddRichTextTargetsMethodInfo TargetList signature where - overloadedMethod _ = targetListAddRichTextTargets - --- method TargetList::add_table --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_list_add_table" gtk_target_list_add_table :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt - IO () - - -targetListAddTable :: - (MonadIO m) => - TargetList -- _obj - -> [TargetEntry] -- targets - -> m () -- result -targetListAddTable _obj targets = liftIO $ do - let ntargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrGetPtr _obj - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - gtk_target_list_add_table _obj' targets'' ntargets - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data TargetListAddTableMethodInfo -instance (signature ~ ([TargetEntry] -> m ()), MonadIO m) => MethodInfo TargetListAddTableMethodInfo TargetList signature where - overloadedMethod _ = targetListAddTable - --- method TargetList::add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", 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 "gtk_target_list_add_text_targets" gtk_target_list_add_text_targets :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt - IO () - - -targetListAddTextTargets :: - (MonadIO m) => - TargetList -- _obj - -> Word32 -- info - -> m () -- result -targetListAddTextTargets _obj info = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_add_text_targets _obj' info - touchManagedPtr _obj - return () - -data TargetListAddTextTargetsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddTextTargetsMethodInfo TargetList signature where - overloadedMethod _ = targetListAddTextTargets - --- method TargetList::add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", 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 "gtk_target_list_add_uri_targets" gtk_target_list_add_uri_targets :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt - IO () - - -targetListAddUriTargets :: - (MonadIO m) => - TargetList -- _obj - -> Word32 -- info - -> m () -- result -targetListAddUriTargets _obj info = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_add_uri_targets _obj' info - touchManagedPtr _obj - return () - -data TargetListAddUriTargetsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddUriTargetsMethodInfo TargetList signature where - overloadedMethod _ = targetListAddUriTargets - --- method TargetList::find --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, 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 "gtk_target_list_find" gtk_target_list_find :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Ptr Word32 -> -- info : TBasicType TUInt - IO CInt - - -targetListFind :: - (MonadIO m) => - TargetList -- _obj - -> Gdk.Atom -- target - -> m (Bool,Word32) -- result -targetListFind _obj target = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let target' = unsafeManagedPtrGetPtr target - info <- allocMem :: IO (Ptr Word32) - result <- gtk_target_list_find _obj' target' info - let result' = (/= 0) result - info' <- peek info - touchManagedPtr _obj - touchManagedPtr target - freeMem info - return (result', info') - -data TargetListFindMethodInfo -instance (signature ~ (Gdk.Atom -> m (Bool,Word32)), MonadIO m) => MethodInfo TargetListFindMethodInfo TargetList signature where - overloadedMethod _ = targetListFind - --- method TargetList::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TargetList") --- throws : False --- Skip return : False - -foreign import ccall "gtk_target_list_ref" gtk_target_list_ref :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - IO (Ptr TargetList) - - -targetListRef :: - (MonadIO m) => - TargetList -- _obj - -> m TargetList -- result -targetListRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_target_list_ref _obj' - checkUnexpectedReturnNULL "gtk_target_list_ref" result - result' <- (wrapBoxed TargetList) result - touchManagedPtr _obj - return result' - -data TargetListRefMethodInfo -instance (signature ~ (m TargetList), MonadIO m) => MethodInfo TargetListRefMethodInfo TargetList signature where - overloadedMethod _ = targetListRef - --- method TargetList::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", 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 "gtk_target_list_remove" gtk_target_list_remove :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - IO () - - -targetListRemove :: - (MonadIO m) => - TargetList -- _obj - -> Gdk.Atom -- target - -> m () -- result -targetListRemove _obj target = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let target' = unsafeManagedPtrGetPtr target - gtk_target_list_remove _obj' target' - touchManagedPtr _obj - touchManagedPtr target - return () - -data TargetListRemoveMethodInfo -instance (signature ~ (Gdk.Atom -> m ()), MonadIO m) => MethodInfo TargetListRemoveMethodInfo TargetList signature where - overloadedMethod _ = targetListRemove - --- method TargetList::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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 "gtk_target_list_unref" gtk_target_list_unref :: - Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - IO () - - -targetListUnref :: - (MonadIO m) => - TargetList -- _obj - -> m () -- result -targetListUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_unref _obj' - touchManagedPtr _obj - return () - -data TargetListUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TargetListUnrefMethodInfo TargetList signature where - overloadedMethod _ = targetListUnref - -type family ResolveTargetListMethod (t :: Symbol) (o :: *) :: * where - ResolveTargetListMethod "add" o = TargetListAddMethodInfo - ResolveTargetListMethod "addImageTargets" o = TargetListAddImageTargetsMethodInfo - ResolveTargetListMethod "addRichTextTargets" o = TargetListAddRichTextTargetsMethodInfo - ResolveTargetListMethod "addTable" o = TargetListAddTableMethodInfo - ResolveTargetListMethod "addTextTargets" o = TargetListAddTextTargetsMethodInfo - ResolveTargetListMethod "addUriTargets" o = TargetListAddUriTargetsMethodInfo - ResolveTargetListMethod "find" o = TargetListFindMethodInfo - ResolveTargetListMethod "ref" o = TargetListRefMethodInfo - ResolveTargetListMethod "remove" o = TargetListRemoveMethodInfo - ResolveTargetListMethod "unref" o = TargetListUnrefMethodInfo - ResolveTargetListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTargetListMethod t TargetList, MethodInfo info TargetList p) => IsLabelProxy t (TargetList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTargetListMethod t TargetList, MethodInfo info TargetList p) => IsLabel t (TargetList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TargetList.hs-boot b/GI/Gtk/Structs/TargetList.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TargetList.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gtk.Structs.TargetList 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 TargetList = TargetList (ForeignPtr TargetList) -instance BoxedObject TargetList where -data TargetListAddMethodInfo -data TargetListAddImageTargetsMethodInfo -data TargetListAddRichTextTargetsMethodInfo -data TargetListAddTableMethodInfo -data TargetListAddTextTargetsMethodInfo -data TargetListAddUriTargetsMethodInfo -data TargetListFindMethodInfo -data TargetListRefMethodInfo -data TargetListRemoveMethodInfo -data TargetListUnrefMethodInfo diff --git a/GI/Gtk/Structs/TargetPair.hs b/GI/Gtk/Structs/TargetPair.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TargetPair.hs +++ /dev/null @@ -1,174 +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 #GtkTargetPair is used to represent the same -information as a table of #GtkTargetEntry, but in -an efficient form. --} - -module GI.Gtk.Structs.TargetPair - ( - --- * Exported types - TargetPair(..) , - newZeroTargetPair , - noTargetPair , - - - -- * Properties --- ** Flags - targetPairFlags , - targetPairReadFlags , - targetPairWriteFlags , - - --- ** Info - targetPairInfo , - targetPairReadInfo , - targetPairWriteInfo , - - --- ** Target - targetPairClearTarget , - targetPairReadTarget , - targetPairTarget , - targetPairWriteTarget , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype TargetPair = TargetPair (ForeignPtr TargetPair) -instance WrappedPtr TargetPair where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TargetPair` struct initialized to zero. -newZeroTargetPair :: MonadIO m => m TargetPair -newZeroTargetPair = liftIO $ wrappedPtrCalloc >>= wrapPtr TargetPair - -instance tag ~ 'AttrSet => Constructible TargetPair tag where - new _ attrs = do - o <- newZeroTargetPair - GI.Attributes.set o attrs - return o - - -noTargetPair :: Maybe TargetPair -noTargetPair = Nothing - -targetPairReadTarget :: MonadIO m => TargetPair -> m (Maybe Gdk.Atom) -targetPairReadTarget s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Gdk.Atom) val' - return val'' - return result - -targetPairWriteTarget :: MonadIO m => TargetPair -> Ptr Gdk.Atom -> m () -targetPairWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Gdk.Atom) - -targetPairClearTarget :: MonadIO m => TargetPair -> m () -targetPairClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Gdk.Atom) - -data TargetPairTargetFieldInfo -instance AttrInfo TargetPairTargetFieldInfo where - type AttrAllowedOps TargetPairTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TargetPairTargetFieldInfo = (~) (Ptr Gdk.Atom) - type AttrBaseTypeConstraint TargetPairTargetFieldInfo = (~) TargetPair - type AttrGetType TargetPairTargetFieldInfo = Maybe Gdk.Atom - type AttrLabel TargetPairTargetFieldInfo = "target" - attrGet _ = targetPairReadTarget - attrSet _ = targetPairWriteTarget - attrConstruct = undefined - attrClear _ = targetPairClearTarget - -targetPairTarget :: AttrLabelProxy "target" -targetPairTarget = AttrLabelProxy - - -targetPairReadFlags :: MonadIO m => TargetPair -> m Word32 -targetPairReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -targetPairWriteFlags :: MonadIO m => TargetPair -> Word32 -> m () -targetPairWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data TargetPairFlagsFieldInfo -instance AttrInfo TargetPairFlagsFieldInfo where - type AttrAllowedOps TargetPairFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TargetPairFlagsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TargetPairFlagsFieldInfo = (~) TargetPair - type AttrGetType TargetPairFlagsFieldInfo = Word32 - type AttrLabel TargetPairFlagsFieldInfo = "flags" - attrGet _ = targetPairReadFlags - attrSet _ = targetPairWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -targetPairFlags :: AttrLabelProxy "flags" -targetPairFlags = AttrLabelProxy - - -targetPairReadInfo :: MonadIO m => TargetPair -> m Word32 -targetPairReadInfo s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -targetPairWriteInfo :: MonadIO m => TargetPair -> Word32 -> m () -targetPairWriteInfo s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data TargetPairInfoFieldInfo -instance AttrInfo TargetPairInfoFieldInfo where - type AttrAllowedOps TargetPairInfoFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TargetPairInfoFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TargetPairInfoFieldInfo = (~) TargetPair - type AttrGetType TargetPairInfoFieldInfo = Word32 - type AttrLabel TargetPairInfoFieldInfo = "info" - attrGet _ = targetPairReadInfo - attrSet _ = targetPairWriteInfo - attrConstruct = undefined - attrClear _ = undefined - -targetPairInfo :: AttrLabelProxy "info" -targetPairInfo = AttrLabelProxy - - - -type instance AttributeList TargetPair = TargetPairAttributeList -type TargetPairAttributeList = ('[ '("target", TargetPairTargetFieldInfo), '("flags", TargetPairFlagsFieldInfo), '("info", TargetPairInfoFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTargetPairMethod (t :: Symbol) (o :: *) :: * where - ResolveTargetPairMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTargetPairMethod t TargetPair, MethodInfo info TargetPair p) => IsLabelProxy t (TargetPair -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTargetPairMethod t TargetPair, MethodInfo info TargetPair p) => IsLabel t (TargetPair -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TargetPair.hs-boot b/GI/Gtk/Structs/TargetPair.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TargetPair.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.TargetPair 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 TargetPair = TargetPair (ForeignPtr TargetPair) -instance WrappedPtr TargetPair where diff --git a/GI/Gtk/Structs/TextAppearance.hs b/GI/Gtk/Structs/TextAppearance.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TextAppearance.hs +++ /dev/null @@ -1,333 +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.Gtk.Structs.TextAppearance - ( - --- * Exported types - TextAppearance(..) , - newZeroTextAppearance , - noTextAppearance , - - - -- * Properties --- ** BgColor - textAppearanceBgColor , - textAppearanceClearBgColor , - textAppearanceReadBgColor , - textAppearanceWriteBgColor , - - --- ** DrawBg - textAppearanceDrawBg , - textAppearanceReadDrawBg , - textAppearanceWriteDrawBg , - - --- ** FgColor - textAppearanceClearFgColor , - textAppearanceFgColor , - textAppearanceReadFgColor , - textAppearanceWriteFgColor , - - --- ** InsideSelection - textAppearanceInsideSelection , - textAppearanceReadInsideSelection , - textAppearanceWriteInsideSelection , - - --- ** IsText - textAppearanceIsText , - textAppearanceReadIsText , - textAppearanceWriteIsText , - - --- ** Rise - textAppearanceReadRise , - textAppearanceRise , - textAppearanceWriteRise , - - --- ** Strikethrough - textAppearanceReadStrikethrough , - textAppearanceStrikethrough , - textAppearanceWriteStrikethrough , - - --- ** Underline - textAppearanceReadUnderline , - textAppearanceUnderline , - textAppearanceWriteUnderline , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype TextAppearance = TextAppearance (ForeignPtr TextAppearance) -instance WrappedPtr TextAppearance where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TextAppearance` struct initialized to zero. -newZeroTextAppearance :: MonadIO m => m TextAppearance -newZeroTextAppearance = liftIO $ wrappedPtrCalloc >>= wrapPtr TextAppearance - -instance tag ~ 'AttrSet => Constructible TextAppearance tag where - new _ attrs = do - o <- newZeroTextAppearance - GI.Attributes.set o attrs - return o - - -noTextAppearance :: Maybe TextAppearance -noTextAppearance = Nothing - -textAppearanceReadBgColor :: MonadIO m => TextAppearance -> m (Maybe Gdk.Color) -textAppearanceReadBgColor s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Color) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Gdk.Color) val' - return val'' - return result - -textAppearanceWriteBgColor :: MonadIO m => TextAppearance -> Ptr Gdk.Color -> m () -textAppearanceWriteBgColor s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Gdk.Color) - -textAppearanceClearBgColor :: MonadIO m => TextAppearance -> m () -textAppearanceClearBgColor s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Gdk.Color) - -data TextAppearanceBgColorFieldInfo -instance AttrInfo TextAppearanceBgColorFieldInfo where - type AttrAllowedOps TextAppearanceBgColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAppearanceBgColorFieldInfo = (~) (Ptr Gdk.Color) - type AttrBaseTypeConstraint TextAppearanceBgColorFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceBgColorFieldInfo = Maybe Gdk.Color - type AttrLabel TextAppearanceBgColorFieldInfo = "bg_color" - attrGet _ = textAppearanceReadBgColor - attrSet _ = textAppearanceWriteBgColor - attrConstruct = undefined - attrClear _ = textAppearanceClearBgColor - -textAppearanceBgColor :: AttrLabelProxy "bgColor" -textAppearanceBgColor = AttrLabelProxy - - -textAppearanceReadFgColor :: MonadIO m => TextAppearance -> m (Maybe Gdk.Color) -textAppearanceReadFgColor s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO (Ptr Gdk.Color) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Gdk.Color) val' - return val'' - return result - -textAppearanceWriteFgColor :: MonadIO m => TextAppearance -> Ptr Gdk.Color -> m () -textAppearanceWriteFgColor s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Ptr Gdk.Color) - -textAppearanceClearFgColor :: MonadIO m => TextAppearance -> m () -textAppearanceClearFgColor s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (nullPtr :: Ptr Gdk.Color) - -data TextAppearanceFgColorFieldInfo -instance AttrInfo TextAppearanceFgColorFieldInfo where - type AttrAllowedOps TextAppearanceFgColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAppearanceFgColorFieldInfo = (~) (Ptr Gdk.Color) - type AttrBaseTypeConstraint TextAppearanceFgColorFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceFgColorFieldInfo = Maybe Gdk.Color - type AttrLabel TextAppearanceFgColorFieldInfo = "fg_color" - attrGet _ = textAppearanceReadFgColor - attrSet _ = textAppearanceWriteFgColor - attrConstruct = undefined - attrClear _ = textAppearanceClearFgColor - -textAppearanceFgColor :: AttrLabelProxy "fgColor" -textAppearanceFgColor = AttrLabelProxy - - -textAppearanceReadRise :: MonadIO m => TextAppearance -> m Int32 -textAppearanceReadRise s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int32 - return val - -textAppearanceWriteRise :: MonadIO m => TextAppearance -> Int32 -> m () -textAppearanceWriteRise s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int32) - -data TextAppearanceRiseFieldInfo -instance AttrInfo TextAppearanceRiseFieldInfo where - type AttrAllowedOps TextAppearanceRiseFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceRiseFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAppearanceRiseFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceRiseFieldInfo = Int32 - type AttrLabel TextAppearanceRiseFieldInfo = "rise" - attrGet _ = textAppearanceReadRise - attrSet _ = textAppearanceWriteRise - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceRise :: AttrLabelProxy "rise" -textAppearanceRise = AttrLabelProxy - - -textAppearanceReadUnderline :: MonadIO m => TextAppearance -> m Word32 -textAppearanceReadUnderline s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -textAppearanceWriteUnderline :: MonadIO m => TextAppearance -> Word32 -> m () -textAppearanceWriteUnderline s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Word32) - -data TextAppearanceUnderlineFieldInfo -instance AttrInfo TextAppearanceUnderlineFieldInfo where - type AttrAllowedOps TextAppearanceUnderlineFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceUnderlineFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAppearanceUnderlineFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceUnderlineFieldInfo = Word32 - type AttrLabel TextAppearanceUnderlineFieldInfo = "underline" - attrGet _ = textAppearanceReadUnderline - attrSet _ = textAppearanceWriteUnderline - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceUnderline :: AttrLabelProxy "underline" -textAppearanceUnderline = AttrLabelProxy - - -textAppearanceReadStrikethrough :: MonadIO m => TextAppearance -> m Word32 -textAppearanceReadStrikethrough s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -textAppearanceWriteStrikethrough :: MonadIO m => TextAppearance -> Word32 -> m () -textAppearanceWriteStrikethrough s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data TextAppearanceStrikethroughFieldInfo -instance AttrInfo TextAppearanceStrikethroughFieldInfo where - type AttrAllowedOps TextAppearanceStrikethroughFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceStrikethroughFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAppearanceStrikethroughFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceStrikethroughFieldInfo = Word32 - type AttrLabel TextAppearanceStrikethroughFieldInfo = "strikethrough" - attrGet _ = textAppearanceReadStrikethrough - attrSet _ = textAppearanceWriteStrikethrough - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceStrikethrough :: AttrLabelProxy "strikethrough" -textAppearanceStrikethrough = AttrLabelProxy - - -textAppearanceReadDrawBg :: MonadIO m => TextAppearance -> m Word32 -textAppearanceReadDrawBg s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -textAppearanceWriteDrawBg :: MonadIO m => TextAppearance -> Word32 -> m () -textAppearanceWriteDrawBg s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 36) (val :: Word32) - -data TextAppearanceDrawBgFieldInfo -instance AttrInfo TextAppearanceDrawBgFieldInfo where - type AttrAllowedOps TextAppearanceDrawBgFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceDrawBgFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAppearanceDrawBgFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceDrawBgFieldInfo = Word32 - type AttrLabel TextAppearanceDrawBgFieldInfo = "draw_bg" - attrGet _ = textAppearanceReadDrawBg - attrSet _ = textAppearanceWriteDrawBg - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceDrawBg :: AttrLabelProxy "drawBg" -textAppearanceDrawBg = AttrLabelProxy - - -textAppearanceReadInsideSelection :: MonadIO m => TextAppearance -> m Word32 -textAppearanceReadInsideSelection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -textAppearanceWriteInsideSelection :: MonadIO m => TextAppearance -> Word32 -> m () -textAppearanceWriteInsideSelection s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Word32) - -data TextAppearanceInsideSelectionFieldInfo -instance AttrInfo TextAppearanceInsideSelectionFieldInfo where - type AttrAllowedOps TextAppearanceInsideSelectionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceInsideSelectionFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAppearanceInsideSelectionFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceInsideSelectionFieldInfo = Word32 - type AttrLabel TextAppearanceInsideSelectionFieldInfo = "inside_selection" - attrGet _ = textAppearanceReadInsideSelection - attrSet _ = textAppearanceWriteInsideSelection - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceInsideSelection :: AttrLabelProxy "insideSelection" -textAppearanceInsideSelection = AttrLabelProxy - - -textAppearanceReadIsText :: MonadIO m => TextAppearance -> m Word32 -textAppearanceReadIsText s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO Word32 - return val - -textAppearanceWriteIsText :: MonadIO m => TextAppearance -> Word32 -> m () -textAppearanceWriteIsText s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 44) (val :: Word32) - -data TextAppearanceIsTextFieldInfo -instance AttrInfo TextAppearanceIsTextFieldInfo where - type AttrAllowedOps TextAppearanceIsTextFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAppearanceIsTextFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAppearanceIsTextFieldInfo = (~) TextAppearance - type AttrGetType TextAppearanceIsTextFieldInfo = Word32 - type AttrLabel TextAppearanceIsTextFieldInfo = "is_text" - attrGet _ = textAppearanceReadIsText - attrSet _ = textAppearanceWriteIsText - attrConstruct = undefined - attrClear _ = undefined - -textAppearanceIsText :: AttrLabelProxy "isText" -textAppearanceIsText = AttrLabelProxy - - - -type instance AttributeList TextAppearance = TextAppearanceAttributeList -type TextAppearanceAttributeList = ('[ '("bgColor", TextAppearanceBgColorFieldInfo), '("fgColor", TextAppearanceFgColorFieldInfo), '("rise", TextAppearanceRiseFieldInfo), '("underline", TextAppearanceUnderlineFieldInfo), '("strikethrough", TextAppearanceStrikethroughFieldInfo), '("drawBg", TextAppearanceDrawBgFieldInfo), '("insideSelection", TextAppearanceInsideSelectionFieldInfo), '("isText", TextAppearanceIsTextFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTextAppearanceMethod (t :: Symbol) (o :: *) :: * where - ResolveTextAppearanceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextAppearanceMethod t TextAppearance, MethodInfo info TextAppearance p) => IsLabelProxy t (TextAppearance -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextAppearanceMethod t TextAppearance, MethodInfo info TextAppearance p) => IsLabel t (TextAppearance -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TextAppearance.hs-boot b/GI/Gtk/Structs/TextAppearance.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TextAppearance.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.TextAppearance 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 TextAppearance = TextAppearance (ForeignPtr TextAppearance) -instance WrappedPtr TextAppearance where diff --git a/GI/Gtk/Structs/TextAttributes.hs b/GI/Gtk/Structs/TextAttributes.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TextAttributes.hs +++ /dev/null @@ -1,872 +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) - -Using #GtkTextAttributes directly should rarely be necessary. -It’s primarily useful with gtk_text_iter_get_attributes(). -As with most GTK+ structs, the fields in this struct should only -be read, never modified directly. --} - -module GI.Gtk.Structs.TextAttributes - ( - --- * Exported types - TextAttributes(..) , - newZeroTextAttributes , - noTextAttributes , - - - -- * Methods --- ** textAttributesCopy - TextAttributesCopyMethodInfo , - textAttributesCopy , - - --- ** textAttributesCopyValues - TextAttributesCopyValuesMethodInfo , - textAttributesCopyValues , - - --- ** textAttributesNew - textAttributesNew , - - --- ** textAttributesRef - TextAttributesRefMethodInfo , - textAttributesRef , - - --- ** textAttributesUnref - TextAttributesUnrefMethodInfo , - textAttributesUnref , - - - - - -- * Properties --- ** Appearance - textAttributesAppearance , - textAttributesClearAppearance , - textAttributesReadAppearance , - textAttributesWriteAppearance , - - --- ** BgFullHeight - textAttributesBgFullHeight , - textAttributesReadBgFullHeight , - textAttributesWriteBgFullHeight , - - --- ** Direction - textAttributesDirection , - textAttributesReadDirection , - textAttributesWriteDirection , - - --- ** Editable - textAttributesEditable , - textAttributesReadEditable , - textAttributesWriteEditable , - - --- ** Font - textAttributesClearFont , - textAttributesFont , - textAttributesReadFont , - textAttributesWriteFont , - - --- ** FontScale - textAttributesFontScale , - textAttributesReadFontScale , - textAttributesWriteFontScale , - - --- ** Indent - textAttributesIndent , - textAttributesReadIndent , - textAttributesWriteIndent , - - --- ** Invisible - textAttributesInvisible , - textAttributesReadInvisible , - textAttributesWriteInvisible , - - --- ** Justification - textAttributesJustification , - textAttributesReadJustification , - textAttributesWriteJustification , - - --- ** Language - textAttributesClearLanguage , - textAttributesLanguage , - textAttributesReadLanguage , - textAttributesWriteLanguage , - - --- ** LeftMargin - textAttributesLeftMargin , - textAttributesReadLeftMargin , - textAttributesWriteLeftMargin , - - --- ** LetterSpacing - textAttributesLetterSpacing , - textAttributesReadLetterSpacing , - textAttributesWriteLetterSpacing , - - --- ** NoFallback - textAttributesNoFallback , - textAttributesReadNoFallback , - textAttributesWriteNoFallback , - - --- ** PixelsAboveLines - textAttributesPixelsAboveLines , - textAttributesReadPixelsAboveLines , - textAttributesWritePixelsAboveLines , - - --- ** PixelsBelowLines - textAttributesPixelsBelowLines , - textAttributesReadPixelsBelowLines , - textAttributesWritePixelsBelowLines , - - --- ** PixelsInsideWrap - textAttributesPixelsInsideWrap , - textAttributesReadPixelsInsideWrap , - textAttributesWritePixelsInsideWrap , - - --- ** RightMargin - textAttributesReadRightMargin , - textAttributesRightMargin , - textAttributesWriteRightMargin , - - --- ** Tabs - textAttributesClearTabs , - textAttributesReadTabs , - textAttributesTabs , - textAttributesWriteTabs , - - --- ** WrapMode - textAttributesReadWrapMode , - textAttributesWrapMode , - textAttributesWriteWrapMode , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Pango as Pango - -newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes) -foreign import ccall "gtk_text_attributes_get_type" c_gtk_text_attributes_get_type :: - IO GType - -instance BoxedObject TextAttributes where - boxedType _ = c_gtk_text_attributes_get_type - --- | Construct a `TextAttributes` struct initialized to zero. -newZeroTextAttributes :: MonadIO m => m TextAttributes -newZeroTextAttributes = liftIO $ callocBoxedBytes 168 >>= wrapBoxed TextAttributes - -instance tag ~ 'AttrSet => Constructible TextAttributes tag where - new _ attrs = do - o <- newZeroTextAttributes - GI.Attributes.set o attrs - return o - - -noTextAttributes :: Maybe TextAttributes -noTextAttributes = Nothing - -textAttributesReadAppearance :: MonadIO m => TextAttributes -> m (Maybe TextAppearance) -textAttributesReadAppearance s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO (Ptr TextAppearance) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr TextAppearance) val' - return val'' - return result - -textAttributesWriteAppearance :: MonadIO m => TextAttributes -> Ptr TextAppearance -> m () -textAttributesWriteAppearance s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Ptr TextAppearance) - -textAttributesClearAppearance :: MonadIO m => TextAttributes -> m () -textAttributesClearAppearance s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (nullPtr :: Ptr TextAppearance) - -data TextAttributesAppearanceFieldInfo -instance AttrInfo TextAttributesAppearanceFieldInfo where - type AttrAllowedOps TextAttributesAppearanceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesAppearanceFieldInfo = (~) (Ptr TextAppearance) - type AttrBaseTypeConstraint TextAttributesAppearanceFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesAppearanceFieldInfo = Maybe TextAppearance - type AttrLabel TextAttributesAppearanceFieldInfo = "appearance" - attrGet _ = textAttributesReadAppearance - attrSet _ = textAttributesWriteAppearance - attrConstruct = undefined - attrClear _ = textAttributesClearAppearance - -textAttributesAppearance :: AttrLabelProxy "appearance" -textAttributesAppearance = AttrLabelProxy - - -textAttributesReadJustification :: MonadIO m => TextAttributes -> m Justification -textAttributesReadJustification s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesWriteJustification :: MonadIO m => TextAttributes -> Justification -> m () -textAttributesWriteJustification s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 52) (val' :: CUInt) - -data TextAttributesJustificationFieldInfo -instance AttrInfo TextAttributesJustificationFieldInfo where - type AttrAllowedOps TextAttributesJustificationFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesJustificationFieldInfo = (~) Justification - type AttrBaseTypeConstraint TextAttributesJustificationFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesJustificationFieldInfo = Justification - type AttrLabel TextAttributesJustificationFieldInfo = "justification" - attrGet _ = textAttributesReadJustification - attrSet _ = textAttributesWriteJustification - attrConstruct = undefined - attrClear _ = undefined - -textAttributesJustification :: AttrLabelProxy "justification" -textAttributesJustification = AttrLabelProxy - - -textAttributesReadDirection :: MonadIO m => TextAttributes -> m TextDirection -textAttributesReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesWriteDirection :: MonadIO m => TextAttributes -> TextDirection -> m () -textAttributesWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 56) (val' :: CUInt) - -data TextAttributesDirectionFieldInfo -instance AttrInfo TextAttributesDirectionFieldInfo where - type AttrAllowedOps TextAttributesDirectionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesDirectionFieldInfo = (~) TextDirection - type AttrBaseTypeConstraint TextAttributesDirectionFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesDirectionFieldInfo = TextDirection - type AttrLabel TextAttributesDirectionFieldInfo = "direction" - attrGet _ = textAttributesReadDirection - attrSet _ = textAttributesWriteDirection - attrConstruct = undefined - attrClear _ = undefined - -textAttributesDirection :: AttrLabelProxy "direction" -textAttributesDirection = AttrLabelProxy - - -textAttributesReadFont :: MonadIO m => TextAttributes -> m (Maybe Pango.FontDescription) -textAttributesReadFont s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO (Ptr Pango.FontDescription) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Pango.FontDescription) val' - return val'' - return result - -textAttributesWriteFont :: MonadIO m => TextAttributes -> Ptr Pango.FontDescription -> m () -textAttributesWriteFont s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (val :: Ptr Pango.FontDescription) - -textAttributesClearFont :: MonadIO m => TextAttributes -> m () -textAttributesClearFont s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (nullPtr :: Ptr Pango.FontDescription) - -data TextAttributesFontFieldInfo -instance AttrInfo TextAttributesFontFieldInfo where - type AttrAllowedOps TextAttributesFontFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesFontFieldInfo = (~) (Ptr Pango.FontDescription) - type AttrBaseTypeConstraint TextAttributesFontFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesFontFieldInfo = Maybe Pango.FontDescription - type AttrLabel TextAttributesFontFieldInfo = "font" - attrGet _ = textAttributesReadFont - attrSet _ = textAttributesWriteFont - attrConstruct = undefined - attrClear _ = textAttributesClearFont - -textAttributesFont :: AttrLabelProxy "font" -textAttributesFont = AttrLabelProxy - - -textAttributesReadFontScale :: MonadIO m => TextAttributes -> m Double -textAttributesReadFontScale s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -textAttributesWriteFontScale :: MonadIO m => TextAttributes -> Double -> m () -textAttributesWriteFontScale s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data TextAttributesFontScaleFieldInfo -instance AttrInfo TextAttributesFontScaleFieldInfo where - type AttrAllowedOps TextAttributesFontScaleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesFontScaleFieldInfo = (~) Double - type AttrBaseTypeConstraint TextAttributesFontScaleFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesFontScaleFieldInfo = Double - type AttrLabel TextAttributesFontScaleFieldInfo = "font_scale" - attrGet _ = textAttributesReadFontScale - attrSet _ = textAttributesWriteFontScale - attrConstruct = undefined - attrClear _ = undefined - -textAttributesFontScale :: AttrLabelProxy "fontScale" -textAttributesFontScale = AttrLabelProxy - - -textAttributesReadLeftMargin :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadLeftMargin s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Int32 - return val - -textAttributesWriteLeftMargin :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteLeftMargin s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 80) (val :: Int32) - -data TextAttributesLeftMarginFieldInfo -instance AttrInfo TextAttributesLeftMarginFieldInfo where - type AttrAllowedOps TextAttributesLeftMarginFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesLeftMarginFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesLeftMarginFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesLeftMarginFieldInfo = Int32 - type AttrLabel TextAttributesLeftMarginFieldInfo = "left_margin" - attrGet _ = textAttributesReadLeftMargin - attrSet _ = textAttributesWriteLeftMargin - attrConstruct = undefined - attrClear _ = undefined - -textAttributesLeftMargin :: AttrLabelProxy "leftMargin" -textAttributesLeftMargin = AttrLabelProxy - - -textAttributesReadRightMargin :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadRightMargin s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Int32 - return val - -textAttributesWriteRightMargin :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteRightMargin s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 84) (val :: Int32) - -data TextAttributesRightMarginFieldInfo -instance AttrInfo TextAttributesRightMarginFieldInfo where - type AttrAllowedOps TextAttributesRightMarginFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesRightMarginFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesRightMarginFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesRightMarginFieldInfo = Int32 - type AttrLabel TextAttributesRightMarginFieldInfo = "right_margin" - attrGet _ = textAttributesReadRightMargin - attrSet _ = textAttributesWriteRightMargin - attrConstruct = undefined - attrClear _ = undefined - -textAttributesRightMargin :: AttrLabelProxy "rightMargin" -textAttributesRightMargin = AttrLabelProxy - - -textAttributesReadIndent :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadIndent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO Int32 - return val - -textAttributesWriteIndent :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteIndent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 88) (val :: Int32) - -data TextAttributesIndentFieldInfo -instance AttrInfo TextAttributesIndentFieldInfo where - type AttrAllowedOps TextAttributesIndentFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesIndentFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesIndentFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesIndentFieldInfo = Int32 - type AttrLabel TextAttributesIndentFieldInfo = "indent" - attrGet _ = textAttributesReadIndent - attrSet _ = textAttributesWriteIndent - attrConstruct = undefined - attrClear _ = undefined - -textAttributesIndent :: AttrLabelProxy "indent" -textAttributesIndent = AttrLabelProxy - - -textAttributesReadPixelsAboveLines :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadPixelsAboveLines s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 92) :: IO Int32 - return val - -textAttributesWritePixelsAboveLines :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWritePixelsAboveLines s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 92) (val :: Int32) - -data TextAttributesPixelsAboveLinesFieldInfo -instance AttrInfo TextAttributesPixelsAboveLinesFieldInfo where - type AttrAllowedOps TextAttributesPixelsAboveLinesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesPixelsAboveLinesFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesPixelsAboveLinesFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesPixelsAboveLinesFieldInfo = Int32 - type AttrLabel TextAttributesPixelsAboveLinesFieldInfo = "pixels_above_lines" - attrGet _ = textAttributesReadPixelsAboveLines - attrSet _ = textAttributesWritePixelsAboveLines - attrConstruct = undefined - attrClear _ = undefined - -textAttributesPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" -textAttributesPixelsAboveLines = AttrLabelProxy - - -textAttributesReadPixelsBelowLines :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadPixelsBelowLines s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO Int32 - return val - -textAttributesWritePixelsBelowLines :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWritePixelsBelowLines s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 96) (val :: Int32) - -data TextAttributesPixelsBelowLinesFieldInfo -instance AttrInfo TextAttributesPixelsBelowLinesFieldInfo where - type AttrAllowedOps TextAttributesPixelsBelowLinesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesPixelsBelowLinesFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesPixelsBelowLinesFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesPixelsBelowLinesFieldInfo = Int32 - type AttrLabel TextAttributesPixelsBelowLinesFieldInfo = "pixels_below_lines" - attrGet _ = textAttributesReadPixelsBelowLines - attrSet _ = textAttributesWritePixelsBelowLines - attrConstruct = undefined - attrClear _ = undefined - -textAttributesPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" -textAttributesPixelsBelowLines = AttrLabelProxy - - -textAttributesReadPixelsInsideWrap :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadPixelsInsideWrap s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 100) :: IO Int32 - return val - -textAttributesWritePixelsInsideWrap :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWritePixelsInsideWrap s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 100) (val :: Int32) - -data TextAttributesPixelsInsideWrapFieldInfo -instance AttrInfo TextAttributesPixelsInsideWrapFieldInfo where - type AttrAllowedOps TextAttributesPixelsInsideWrapFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesPixelsInsideWrapFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesPixelsInsideWrapFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesPixelsInsideWrapFieldInfo = Int32 - type AttrLabel TextAttributesPixelsInsideWrapFieldInfo = "pixels_inside_wrap" - attrGet _ = textAttributesReadPixelsInsideWrap - attrSet _ = textAttributesWritePixelsInsideWrap - attrConstruct = undefined - attrClear _ = undefined - -textAttributesPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" -textAttributesPixelsInsideWrap = AttrLabelProxy - - -textAttributesReadTabs :: MonadIO m => TextAttributes -> m (Maybe Pango.TabArray) -textAttributesReadTabs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 104) :: IO (Ptr Pango.TabArray) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Pango.TabArray) val' - return val'' - return result - -textAttributesWriteTabs :: MonadIO m => TextAttributes -> Ptr Pango.TabArray -> m () -textAttributesWriteTabs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 104) (val :: Ptr Pango.TabArray) - -textAttributesClearTabs :: MonadIO m => TextAttributes -> m () -textAttributesClearTabs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 104) (nullPtr :: Ptr Pango.TabArray) - -data TextAttributesTabsFieldInfo -instance AttrInfo TextAttributesTabsFieldInfo where - type AttrAllowedOps TextAttributesTabsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesTabsFieldInfo = (~) (Ptr Pango.TabArray) - type AttrBaseTypeConstraint TextAttributesTabsFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesTabsFieldInfo = Maybe Pango.TabArray - type AttrLabel TextAttributesTabsFieldInfo = "tabs" - attrGet _ = textAttributesReadTabs - attrSet _ = textAttributesWriteTabs - attrConstruct = undefined - attrClear _ = textAttributesClearTabs - -textAttributesTabs :: AttrLabelProxy "tabs" -textAttributesTabs = AttrLabelProxy - - -textAttributesReadWrapMode :: MonadIO m => TextAttributes -> m WrapMode -textAttributesReadWrapMode s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 112) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesWriteWrapMode :: MonadIO m => TextAttributes -> WrapMode -> m () -textAttributesWriteWrapMode s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 112) (val' :: CUInt) - -data TextAttributesWrapModeFieldInfo -instance AttrInfo TextAttributesWrapModeFieldInfo where - type AttrAllowedOps TextAttributesWrapModeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesWrapModeFieldInfo = (~) WrapMode - type AttrBaseTypeConstraint TextAttributesWrapModeFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesWrapModeFieldInfo = WrapMode - type AttrLabel TextAttributesWrapModeFieldInfo = "wrap_mode" - attrGet _ = textAttributesReadWrapMode - attrSet _ = textAttributesWriteWrapMode - attrConstruct = undefined - attrClear _ = undefined - -textAttributesWrapMode :: AttrLabelProxy "wrapMode" -textAttributesWrapMode = AttrLabelProxy - - -textAttributesReadLanguage :: MonadIO m => TextAttributes -> m (Maybe Pango.Language) -textAttributesReadLanguage s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 120) :: IO (Ptr Pango.Language) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Pango.Language) val' - return val'' - return result - -textAttributesWriteLanguage :: MonadIO m => TextAttributes -> Ptr Pango.Language -> m () -textAttributesWriteLanguage s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 120) (val :: Ptr Pango.Language) - -textAttributesClearLanguage :: MonadIO m => TextAttributes -> m () -textAttributesClearLanguage s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 120) (nullPtr :: Ptr Pango.Language) - -data TextAttributesLanguageFieldInfo -instance AttrInfo TextAttributesLanguageFieldInfo where - type AttrAllowedOps TextAttributesLanguageFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesLanguageFieldInfo = (~) (Ptr Pango.Language) - type AttrBaseTypeConstraint TextAttributesLanguageFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesLanguageFieldInfo = Maybe Pango.Language - type AttrLabel TextAttributesLanguageFieldInfo = "language" - attrGet _ = textAttributesReadLanguage - attrSet _ = textAttributesWriteLanguage - attrConstruct = undefined - attrClear _ = textAttributesClearLanguage - -textAttributesLanguage :: AttrLabelProxy "language" -textAttributesLanguage = AttrLabelProxy - - -textAttributesReadInvisible :: MonadIO m => TextAttributes -> m Word32 -textAttributesReadInvisible s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 136) :: IO Word32 - return val - -textAttributesWriteInvisible :: MonadIO m => TextAttributes -> Word32 -> m () -textAttributesWriteInvisible s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 136) (val :: Word32) - -data TextAttributesInvisibleFieldInfo -instance AttrInfo TextAttributesInvisibleFieldInfo where - type AttrAllowedOps TextAttributesInvisibleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesInvisibleFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAttributesInvisibleFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesInvisibleFieldInfo = Word32 - type AttrLabel TextAttributesInvisibleFieldInfo = "invisible" - attrGet _ = textAttributesReadInvisible - attrSet _ = textAttributesWriteInvisible - attrConstruct = undefined - attrClear _ = undefined - -textAttributesInvisible :: AttrLabelProxy "invisible" -textAttributesInvisible = AttrLabelProxy - - -textAttributesReadBgFullHeight :: MonadIO m => TextAttributes -> m Word32 -textAttributesReadBgFullHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 140) :: IO Word32 - return val - -textAttributesWriteBgFullHeight :: MonadIO m => TextAttributes -> Word32 -> m () -textAttributesWriteBgFullHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 140) (val :: Word32) - -data TextAttributesBgFullHeightFieldInfo -instance AttrInfo TextAttributesBgFullHeightFieldInfo where - type AttrAllowedOps TextAttributesBgFullHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesBgFullHeightFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAttributesBgFullHeightFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesBgFullHeightFieldInfo = Word32 - type AttrLabel TextAttributesBgFullHeightFieldInfo = "bg_full_height" - attrGet _ = textAttributesReadBgFullHeight - attrSet _ = textAttributesWriteBgFullHeight - attrConstruct = undefined - attrClear _ = undefined - -textAttributesBgFullHeight :: AttrLabelProxy "bgFullHeight" -textAttributesBgFullHeight = AttrLabelProxy - - -textAttributesReadEditable :: MonadIO m => TextAttributes -> m Word32 -textAttributesReadEditable s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 144) :: IO Word32 - return val - -textAttributesWriteEditable :: MonadIO m => TextAttributes -> Word32 -> m () -textAttributesWriteEditable s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 144) (val :: Word32) - -data TextAttributesEditableFieldInfo -instance AttrInfo TextAttributesEditableFieldInfo where - type AttrAllowedOps TextAttributesEditableFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesEditableFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAttributesEditableFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesEditableFieldInfo = Word32 - type AttrLabel TextAttributesEditableFieldInfo = "editable" - attrGet _ = textAttributesReadEditable - attrSet _ = textAttributesWriteEditable - attrConstruct = undefined - attrClear _ = undefined - -textAttributesEditable :: AttrLabelProxy "editable" -textAttributesEditable = AttrLabelProxy - - -textAttributesReadNoFallback :: MonadIO m => TextAttributes -> m Word32 -textAttributesReadNoFallback s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 148) :: IO Word32 - return val - -textAttributesWriteNoFallback :: MonadIO m => TextAttributes -> Word32 -> m () -textAttributesWriteNoFallback s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 148) (val :: Word32) - -data TextAttributesNoFallbackFieldInfo -instance AttrInfo TextAttributesNoFallbackFieldInfo where - type AttrAllowedOps TextAttributesNoFallbackFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesNoFallbackFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TextAttributesNoFallbackFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesNoFallbackFieldInfo = Word32 - type AttrLabel TextAttributesNoFallbackFieldInfo = "no_fallback" - attrGet _ = textAttributesReadNoFallback - attrSet _ = textAttributesWriteNoFallback - attrConstruct = undefined - attrClear _ = undefined - -textAttributesNoFallback :: AttrLabelProxy "noFallback" -textAttributesNoFallback = AttrLabelProxy - - -textAttributesReadLetterSpacing :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadLetterSpacing s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 160) :: IO Int32 - return val - -textAttributesWriteLetterSpacing :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteLetterSpacing s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 160) (val :: Int32) - -data TextAttributesLetterSpacingFieldInfo -instance AttrInfo TextAttributesLetterSpacingFieldInfo where - type AttrAllowedOps TextAttributesLetterSpacingFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesLetterSpacingFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesLetterSpacingFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesLetterSpacingFieldInfo = Int32 - type AttrLabel TextAttributesLetterSpacingFieldInfo = "letter_spacing" - attrGet _ = textAttributesReadLetterSpacing - attrSet _ = textAttributesWriteLetterSpacing - attrConstruct = undefined - attrClear _ = undefined - -textAttributesLetterSpacing :: AttrLabelProxy "letterSpacing" -textAttributesLetterSpacing = AttrLabelProxy - - - -type instance AttributeList TextAttributes = TextAttributesAttributeList -type TextAttributesAttributeList = ('[ '("appearance", TextAttributesAppearanceFieldInfo), '("justification", TextAttributesJustificationFieldInfo), '("direction", TextAttributesDirectionFieldInfo), '("font", TextAttributesFontFieldInfo), '("fontScale", TextAttributesFontScaleFieldInfo), '("leftMargin", TextAttributesLeftMarginFieldInfo), '("rightMargin", TextAttributesRightMarginFieldInfo), '("indent", TextAttributesIndentFieldInfo), '("pixelsAboveLines", TextAttributesPixelsAboveLinesFieldInfo), '("pixelsBelowLines", TextAttributesPixelsBelowLinesFieldInfo), '("pixelsInsideWrap", TextAttributesPixelsInsideWrapFieldInfo), '("tabs", TextAttributesTabsFieldInfo), '("wrapMode", TextAttributesWrapModeFieldInfo), '("language", TextAttributesLanguageFieldInfo), '("invisible", TextAttributesInvisibleFieldInfo), '("bgFullHeight", TextAttributesBgFullHeightFieldInfo), '("editable", TextAttributesEditableFieldInfo), '("noFallback", TextAttributesNoFallbackFieldInfo), '("letterSpacing", TextAttributesLetterSpacingFieldInfo)] :: [(Symbol, *)]) - --- method TextAttributes::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_attributes_new" gtk_text_attributes_new :: - IO (Ptr TextAttributes) - - -textAttributesNew :: - (MonadIO m) => - m TextAttributes -- result -textAttributesNew = liftIO $ do - result <- gtk_text_attributes_new - checkUnexpectedReturnNULL "gtk_text_attributes_new" result - result' <- (wrapBoxed TextAttributes) result - return result' - --- method TextAttributes::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_attributes_copy" gtk_text_attributes_copy :: - Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes" - IO (Ptr TextAttributes) - - -textAttributesCopy :: - (MonadIO m) => - TextAttributes -- _obj - -> m TextAttributes -- result -textAttributesCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_attributes_copy _obj' - checkUnexpectedReturnNULL "gtk_text_attributes_copy" result - result' <- (wrapBoxed TextAttributes) result - touchManagedPtr _obj - return result' - -data TextAttributesCopyMethodInfo -instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesCopyMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesCopy - --- method TextAttributes::copy_values --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TextAttributes", 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 "gtk_text_attributes_copy_values" gtk_text_attributes_copy_values :: - Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes" - Ptr TextAttributes -> -- dest : TInterface "Gtk" "TextAttributes" - IO () - - -textAttributesCopyValues :: - (MonadIO m) => - TextAttributes -- _obj - -> TextAttributes -- dest - -> m () -- result -textAttributesCopyValues _obj dest = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let dest' = unsafeManagedPtrGetPtr dest - gtk_text_attributes_copy_values _obj' dest' - touchManagedPtr _obj - touchManagedPtr dest - return () - -data TextAttributesCopyValuesMethodInfo -instance (signature ~ (TextAttributes -> m ()), MonadIO m) => MethodInfo TextAttributesCopyValuesMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesCopyValues - --- method TextAttributes::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_attributes_ref" gtk_text_attributes_ref :: - Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes" - IO (Ptr TextAttributes) - - -textAttributesRef :: - (MonadIO m) => - TextAttributes -- _obj - -> m TextAttributes -- result -textAttributesRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_attributes_ref _obj' - checkUnexpectedReturnNULL "gtk_text_attributes_ref" result - result' <- (wrapBoxed TextAttributes) result - touchManagedPtr _obj - return result' - -data TextAttributesRefMethodInfo -instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesRefMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesRef - --- method TextAttributes::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", 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 "gtk_text_attributes_unref" gtk_text_attributes_unref :: - Ptr TextAttributes -> -- _obj : TInterface "Gtk" "TextAttributes" - IO () - - -textAttributesUnref :: - (MonadIO m) => - TextAttributes -- _obj - -> m () -- result -textAttributesUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_attributes_unref _obj' - touchManagedPtr _obj - return () - -data TextAttributesUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TextAttributesUnrefMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesUnref - -type family ResolveTextAttributesMethod (t :: Symbol) (o :: *) :: * where - ResolveTextAttributesMethod "copy" o = TextAttributesCopyMethodInfo - ResolveTextAttributesMethod "copyValues" o = TextAttributesCopyValuesMethodInfo - ResolveTextAttributesMethod "ref" o = TextAttributesRefMethodInfo - ResolveTextAttributesMethod "unref" o = TextAttributesUnrefMethodInfo - ResolveTextAttributesMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabelProxy t (TextAttributes -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabel t (TextAttributes -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TextAttributes.hs-boot b/GI/Gtk/Structs/TextAttributes.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TextAttributes.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gtk.Structs.TextAttributes 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 TextAttributes = TextAttributes (ForeignPtr TextAttributes) -instance BoxedObject TextAttributes where -data TextAttributesCopyMethodInfo -data TextAttributesCopyValuesMethodInfo -data TextAttributesRefMethodInfo -data TextAttributesUnrefMethodInfo diff --git a/GI/Gtk/Structs/TextBTree.hs b/GI/Gtk/Structs/TextBTree.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TextBTree.hs +++ /dev/null @@ -1,54 +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.Gtk.Structs.TextBTree - ( - --- * Exported types - TextBTree(..) , - noTextBTree , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TextBTree = TextBTree (ForeignPtr TextBTree) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr TextBTree where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noTextBTree :: Maybe TextBTree -noTextBTree = Nothing - - -type instance AttributeList TextBTree = TextBTreeAttributeList -type TextBTreeAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveTextBTreeMethod (t :: Symbol) (o :: *) :: * where - ResolveTextBTreeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextBTreeMethod t TextBTree, MethodInfo info TextBTree p) => IsLabelProxy t (TextBTree -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextBTreeMethod t TextBTree, MethodInfo info TextBTree p) => IsLabel t (TextBTree -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TextBTree.hs-boot b/GI/Gtk/Structs/TextBTree.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TextBTree.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.TextBTree 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 TextBTree = TextBTree (ForeignPtr TextBTree) -instance WrappedPtr TextBTree where diff --git a/GI/Gtk/Structs/TextIter.hs b/GI/Gtk/Structs/TextIter.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TextIter.hs +++ /dev/null @@ -1,3380 +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) - -You may wish to begin by reading the -[text widget conceptual overview][TextWidget] -which gives an overview of all the objects and data -types related to the text widget and how they work together. --} - -module GI.Gtk.Structs.TextIter - ( - --- * Exported types - TextIter(..) , - newZeroTextIter , - noTextIter , - - - -- * Methods --- ** textIterAssign - TextIterAssignMethodInfo , - textIterAssign , - - --- ** textIterBackwardChar - TextIterBackwardCharMethodInfo , - textIterBackwardChar , - - --- ** textIterBackwardChars - TextIterBackwardCharsMethodInfo , - textIterBackwardChars , - - --- ** textIterBackwardCursorPosition - TextIterBackwardCursorPositionMethodInfo, - textIterBackwardCursorPosition , - - --- ** textIterBackwardCursorPositions - TextIterBackwardCursorPositionsMethodInfo, - textIterBackwardCursorPositions , - - --- ** textIterBackwardFindChar - TextIterBackwardFindCharMethodInfo , - textIterBackwardFindChar , - - --- ** textIterBackwardLine - TextIterBackwardLineMethodInfo , - textIterBackwardLine , - - --- ** textIterBackwardLines - TextIterBackwardLinesMethodInfo , - textIterBackwardLines , - - --- ** textIterBackwardSearch - TextIterBackwardSearchMethodInfo , - textIterBackwardSearch , - - --- ** textIterBackwardSentenceStart - TextIterBackwardSentenceStartMethodInfo , - textIterBackwardSentenceStart , - - --- ** textIterBackwardSentenceStarts - TextIterBackwardSentenceStartsMethodInfo, - textIterBackwardSentenceStarts , - - --- ** textIterBackwardToTagToggle - TextIterBackwardToTagToggleMethodInfo , - textIterBackwardToTagToggle , - - --- ** textIterBackwardVisibleCursorPosition - TextIterBackwardVisibleCursorPositionMethodInfo, - textIterBackwardVisibleCursorPosition , - - --- ** textIterBackwardVisibleCursorPositions - TextIterBackwardVisibleCursorPositionsMethodInfo, - textIterBackwardVisibleCursorPositions , - - --- ** textIterBackwardVisibleLine - TextIterBackwardVisibleLineMethodInfo , - textIterBackwardVisibleLine , - - --- ** textIterBackwardVisibleLines - TextIterBackwardVisibleLinesMethodInfo , - textIterBackwardVisibleLines , - - --- ** textIterBackwardVisibleWordStart - TextIterBackwardVisibleWordStartMethodInfo, - textIterBackwardVisibleWordStart , - - --- ** textIterBackwardVisibleWordStarts - TextIterBackwardVisibleWordStartsMethodInfo, - textIterBackwardVisibleWordStarts , - - --- ** textIterBackwardWordStart - TextIterBackwardWordStartMethodInfo , - textIterBackwardWordStart , - - --- ** textIterBackwardWordStarts - TextIterBackwardWordStartsMethodInfo , - textIterBackwardWordStarts , - - --- ** textIterBeginsTag - TextIterBeginsTagMethodInfo , - textIterBeginsTag , - - --- ** textIterCanInsert - TextIterCanInsertMethodInfo , - textIterCanInsert , - - --- ** textIterCompare - TextIterCompareMethodInfo , - textIterCompare , - - --- ** textIterCopy - TextIterCopyMethodInfo , - textIterCopy , - - --- ** textIterEditable - TextIterEditableMethodInfo , - textIterEditable , - - --- ** textIterEndsLine - TextIterEndsLineMethodInfo , - textIterEndsLine , - - --- ** textIterEndsSentence - TextIterEndsSentenceMethodInfo , - textIterEndsSentence , - - --- ** textIterEndsTag - TextIterEndsTagMethodInfo , - textIterEndsTag , - - --- ** textIterEndsWord - TextIterEndsWordMethodInfo , - textIterEndsWord , - - --- ** textIterEqual - TextIterEqualMethodInfo , - textIterEqual , - - --- ** textIterForwardChar - TextIterForwardCharMethodInfo , - textIterForwardChar , - - --- ** textIterForwardChars - TextIterForwardCharsMethodInfo , - textIterForwardChars , - - --- ** textIterForwardCursorPosition - TextIterForwardCursorPositionMethodInfo , - textIterForwardCursorPosition , - - --- ** textIterForwardCursorPositions - TextIterForwardCursorPositionsMethodInfo, - textIterForwardCursorPositions , - - --- ** textIterForwardFindChar - TextIterForwardFindCharMethodInfo , - textIterForwardFindChar , - - --- ** textIterForwardLine - TextIterForwardLineMethodInfo , - textIterForwardLine , - - --- ** textIterForwardLines - TextIterForwardLinesMethodInfo , - textIterForwardLines , - - --- ** textIterForwardSearch - TextIterForwardSearchMethodInfo , - textIterForwardSearch , - - --- ** textIterForwardSentenceEnd - TextIterForwardSentenceEndMethodInfo , - textIterForwardSentenceEnd , - - --- ** textIterForwardSentenceEnds - TextIterForwardSentenceEndsMethodInfo , - textIterForwardSentenceEnds , - - --- ** textIterForwardToEnd - TextIterForwardToEndMethodInfo , - textIterForwardToEnd , - - --- ** textIterForwardToLineEnd - TextIterForwardToLineEndMethodInfo , - textIterForwardToLineEnd , - - --- ** textIterForwardToTagToggle - TextIterForwardToTagToggleMethodInfo , - textIterForwardToTagToggle , - - --- ** textIterForwardVisibleCursorPosition - TextIterForwardVisibleCursorPositionMethodInfo, - textIterForwardVisibleCursorPosition , - - --- ** textIterForwardVisibleCursorPositions - TextIterForwardVisibleCursorPositionsMethodInfo, - textIterForwardVisibleCursorPositions , - - --- ** textIterForwardVisibleLine - TextIterForwardVisibleLineMethodInfo , - textIterForwardVisibleLine , - - --- ** textIterForwardVisibleLines - TextIterForwardVisibleLinesMethodInfo , - textIterForwardVisibleLines , - - --- ** textIterForwardVisibleWordEnd - TextIterForwardVisibleWordEndMethodInfo , - textIterForwardVisibleWordEnd , - - --- ** textIterForwardVisibleWordEnds - TextIterForwardVisibleWordEndsMethodInfo, - textIterForwardVisibleWordEnds , - - --- ** textIterForwardWordEnd - TextIterForwardWordEndMethodInfo , - textIterForwardWordEnd , - - --- ** textIterForwardWordEnds - TextIterForwardWordEndsMethodInfo , - textIterForwardWordEnds , - - --- ** textIterFree - TextIterFreeMethodInfo , - textIterFree , - - --- ** textIterGetAttributes - TextIterGetAttributesMethodInfo , - textIterGetAttributes , - - --- ** textIterGetBuffer - TextIterGetBufferMethodInfo , - textIterGetBuffer , - - --- ** textIterGetBytesInLine - TextIterGetBytesInLineMethodInfo , - textIterGetBytesInLine , - - --- ** textIterGetChar - TextIterGetCharMethodInfo , - textIterGetChar , - - --- ** textIterGetCharsInLine - TextIterGetCharsInLineMethodInfo , - textIterGetCharsInLine , - - --- ** textIterGetChildAnchor - TextIterGetChildAnchorMethodInfo , - textIterGetChildAnchor , - - --- ** textIterGetLanguage - TextIterGetLanguageMethodInfo , - textIterGetLanguage , - - --- ** textIterGetLine - TextIterGetLineMethodInfo , - textIterGetLine , - - --- ** textIterGetLineIndex - TextIterGetLineIndexMethodInfo , - textIterGetLineIndex , - - --- ** textIterGetLineOffset - TextIterGetLineOffsetMethodInfo , - textIterGetLineOffset , - - --- ** textIterGetMarks - TextIterGetMarksMethodInfo , - textIterGetMarks , - - --- ** textIterGetOffset - TextIterGetOffsetMethodInfo , - textIterGetOffset , - - --- ** textIterGetPixbuf - TextIterGetPixbufMethodInfo , - textIterGetPixbuf , - - --- ** textIterGetSlice - TextIterGetSliceMethodInfo , - textIterGetSlice , - - --- ** textIterGetTags - TextIterGetTagsMethodInfo , - textIterGetTags , - - --- ** textIterGetText - TextIterGetTextMethodInfo , - textIterGetText , - - --- ** textIterGetToggledTags - TextIterGetToggledTagsMethodInfo , - textIterGetToggledTags , - - --- ** textIterGetVisibleLineIndex - TextIterGetVisibleLineIndexMethodInfo , - textIterGetVisibleLineIndex , - - --- ** textIterGetVisibleLineOffset - TextIterGetVisibleLineOffsetMethodInfo , - textIterGetVisibleLineOffset , - - --- ** textIterGetVisibleSlice - TextIterGetVisibleSliceMethodInfo , - textIterGetVisibleSlice , - - --- ** textIterGetVisibleText - TextIterGetVisibleTextMethodInfo , - textIterGetVisibleText , - - --- ** textIterHasTag - TextIterHasTagMethodInfo , - textIterHasTag , - - --- ** textIterInRange - TextIterInRangeMethodInfo , - textIterInRange , - - --- ** textIterInsideSentence - TextIterInsideSentenceMethodInfo , - textIterInsideSentence , - - --- ** textIterInsideWord - TextIterInsideWordMethodInfo , - textIterInsideWord , - - --- ** textIterIsCursorPosition - TextIterIsCursorPositionMethodInfo , - textIterIsCursorPosition , - - --- ** textIterIsEnd - TextIterIsEndMethodInfo , - textIterIsEnd , - - --- ** textIterIsStart - TextIterIsStartMethodInfo , - textIterIsStart , - - --- ** textIterOrder - TextIterOrderMethodInfo , - textIterOrder , - - --- ** textIterSetLine - TextIterSetLineMethodInfo , - textIterSetLine , - - --- ** textIterSetLineIndex - TextIterSetLineIndexMethodInfo , - textIterSetLineIndex , - - --- ** textIterSetLineOffset - TextIterSetLineOffsetMethodInfo , - textIterSetLineOffset , - - --- ** textIterSetOffset - TextIterSetOffsetMethodInfo , - textIterSetOffset , - - --- ** textIterSetVisibleLineIndex - TextIterSetVisibleLineIndexMethodInfo , - textIterSetVisibleLineIndex , - - --- ** textIterSetVisibleLineOffset - TextIterSetVisibleLineOffsetMethodInfo , - textIterSetVisibleLineOffset , - - --- ** textIterStartsLine - TextIterStartsLineMethodInfo , - textIterStartsLine , - - --- ** textIterStartsSentence - TextIterStartsSentenceMethodInfo , - textIterStartsSentence , - - --- ** textIterStartsWord - TextIterStartsWordMethodInfo , - textIterStartsWord , - - --- ** textIterTogglesTag - TextIterTogglesTagMethodInfo , - textIterTogglesTag , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Pango as Pango - -newtype TextIter = TextIter (ForeignPtr TextIter) -foreign import ccall "gtk_text_iter_get_type" c_gtk_text_iter_get_type :: - IO GType - -instance BoxedObject TextIter where - boxedType _ = c_gtk_text_iter_get_type - --- | Construct a `TextIter` struct initialized to zero. -newZeroTextIter :: MonadIO m => m TextIter -newZeroTextIter = liftIO $ callocBoxedBytes 80 >>= wrapBoxed TextIter - -instance tag ~ 'AttrSet => Constructible TextIter tag where - new _ attrs = do - o <- newZeroTextIter - GI.Attributes.set o attrs - return o - - -noTextIter :: Maybe TextIter -noTextIter = Nothing - - -type instance AttributeList TextIter = TextIterAttributeList -type TextIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TextIter::assign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_assign" gtk_text_iter_assign :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- other : TInterface "Gtk" "TextIter" - IO () - - -textIterAssign :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- other - -> m () -- result -textIterAssign _obj other = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let other' = unsafeManagedPtrGetPtr other - gtk_text_iter_assign _obj' other' - touchManagedPtr _obj - touchManagedPtr other - return () - -data TextIterAssignMethodInfo -instance (signature ~ (TextIter -> m ()), MonadIO m) => MethodInfo TextIterAssignMethodInfo TextIter signature where - overloadedMethod _ = textIterAssign - --- method TextIter::backward_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_char" gtk_text_iter_backward_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardChar :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardCharMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardCharMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardChar - --- method TextIter::backward_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardChars :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardChars _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_chars _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardCharsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardCharsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardChars - --- method TextIter::backward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_cursor_position" gtk_text_iter_backward_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardCursorPosition :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardCursorPositionMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardCursorPositionMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardCursorPosition - --- method TextIter::backward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardCursorPositions :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardCursorPositionsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardCursorPositionsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardCursorPositions - --- method TextIter::backward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TPtr - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardFindChar :: - (MonadIO m) => - TextIter -- _obj - -> TextCharPredicate -- pred - -> Maybe (TextIter) -- limit - -> m Bool -- result -textIterBackwardFindChar _obj pred limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - let userData = nullPtr - result <- gtk_text_iter_backward_find_char _obj' pred' userData maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - -data TextIterBackwardFindCharMethodInfo -instance (signature ~ (TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => MethodInfo TextIterBackwardFindCharMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardFindChar - --- method TextIter::backward_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_line" gtk_text_iter_backward_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardLineMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardLine - --- method TextIter::backward_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardLines :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardLinesMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardLinesMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardLines - --- method TextIter::backward_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_search" gtk_text_iter_backward_search :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CString -> -- str : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" - Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardSearch :: - (MonadIO m) => - TextIter -- _obj - -> T.Text -- str - -> [TextSearchFlags] -- flags - -> Maybe (TextIter) -- limit - -> m (Bool,TextIter,TextIter) -- result -textIterBackwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - matchStart <- callocBoxedBytes 80 :: IO (Ptr TextIter) - matchEnd <- callocBoxedBytes 80 :: IO (Ptr TextIter) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - result <- gtk_text_iter_backward_search _obj' str' flags' matchStart matchEnd maybeLimit - let result' = (/= 0) result - matchStart' <- (wrapBoxed TextIter) matchStart - matchEnd' <- (wrapBoxed TextIter) matchEnd - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', matchStart', matchEnd') - -data TextIterBackwardSearchMethodInfo -instance (signature ~ (T.Text -> [TextSearchFlags] -> Maybe (TextIter) -> m (Bool,TextIter,TextIter)), MonadIO m) => MethodInfo TextIterBackwardSearchMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardSearch - --- method TextIter::backward_sentence_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_sentence_start" gtk_text_iter_backward_sentence_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardSentenceStart :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardSentenceStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_sentence_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardSentenceStartMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardSentenceStartMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardSentenceStart - --- method TextIter::backward_sentence_starts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardSentenceStarts :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardSentenceStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_sentence_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardSentenceStartsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardSentenceStartsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardSentenceStarts - --- method TextIter::backward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_to_tag_toggle" gtk_text_iter_backward_to_tag_toggle :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterBackwardToTagToggle :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> Maybe (a) -- tag - -> m Bool -- result -textIterBackwardToTagToggle _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_backward_to_tag_toggle _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - -data TextIterBackwardToTagToggleMethodInfo -instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterBackwardToTagToggleMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardToTagToggle - --- method TextIter::backward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_visible_cursor_position" gtk_text_iter_backward_visible_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleCursorPosition :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardVisibleCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleCursorPositionMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleCursorPositionMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleCursorPosition - --- method TextIter::backward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardVisibleCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleCursorPositionsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleCursorPositionsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleCursorPositions - --- method TextIter::backward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_visible_line" gtk_text_iter_backward_visible_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleLineMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleLine - --- method TextIter::backward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardVisibleLines :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardVisibleLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleLinesMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleLinesMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleLines - --- method TextIter::backward_visible_word_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_visible_word_start" gtk_text_iter_backward_visible_word_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleWordStart :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardVisibleWordStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_word_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleWordStartMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleWordStartMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleWordStart - --- method TextIter::backward_visible_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardVisibleWordStarts :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardVisibleWordStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_word_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardVisibleWordStartsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleWordStartsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardVisibleWordStarts - --- method TextIter::backward_word_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_backward_word_start" gtk_text_iter_backward_word_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardWordStart :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterBackwardWordStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_word_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardWordStartMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardWordStartMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardWordStart - --- method TextIter::backward_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterBackwardWordStarts :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterBackwardWordStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_word_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterBackwardWordStartsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardWordStartsMethodInfo TextIter signature where - overloadedMethod _ = textIterBackwardWordStarts - --- method TextIter::begins_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_begins_tag" gtk_text_iter_begins_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterBeginsTag :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> Maybe (a) -- tag - -> m Bool -- result -textIterBeginsTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_begins_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - -data TextIterBeginsTagMethodInfo -instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterBeginsTagMethodInfo TextIter signature where - overloadedMethod _ = textIterBeginsTag - --- method TextIter::can_insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editability", argType = TBasicType TBoolean, 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 "gtk_text_iter_can_insert" gtk_text_iter_can_insert :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- default_editability : TBasicType TBoolean - IO CInt - - -textIterCanInsert :: - (MonadIO m) => - TextIter -- _obj - -> Bool -- defaultEditability - -> m Bool -- result -textIterCanInsert _obj defaultEditability = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let defaultEditability' = (fromIntegral . fromEnum) defaultEditability - result <- gtk_text_iter_can_insert _obj' defaultEditability' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterCanInsertMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo TextIterCanInsertMethodInfo TextIter signature where - overloadedMethod _ = textIterCanInsert - --- method TextIter::compare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_compare" gtk_text_iter_compare :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterCompare :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- rhs - -> m Int32 -- result -textIterCompare _obj rhs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let rhs' = unsafeManagedPtrGetPtr rhs - result <- gtk_text_iter_compare _obj' rhs' - touchManagedPtr _obj - touchManagedPtr rhs - return result - -data TextIterCompareMethodInfo -instance (signature ~ (TextIter -> m Int32), MonadIO m) => MethodInfo TextIterCompareMethodInfo TextIter signature where - overloadedMethod _ = textIterCompare - --- method TextIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextIter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_copy" gtk_text_iter_copy :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextIter) - - -textIterCopy :: - (MonadIO m) => - TextIter -- _obj - -> m TextIter -- result -textIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_copy _obj' - checkUnexpectedReturnNULL "gtk_text_iter_copy" result - result' <- (wrapBoxed TextIter) result - touchManagedPtr _obj - return result' - -data TextIterCopyMethodInfo -instance (signature ~ (m TextIter), MonadIO m) => MethodInfo TextIterCopyMethodInfo TextIter signature where - overloadedMethod _ = textIterCopy - --- method TextIter::editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_setting", argType = TBasicType TBoolean, 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 "gtk_text_iter_editable" gtk_text_iter_editable :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- default_setting : TBasicType TBoolean - IO CInt - - -textIterEditable :: - (MonadIO m) => - TextIter -- _obj - -> Bool -- defaultSetting - -> m Bool -- result -textIterEditable _obj defaultSetting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let defaultSetting' = (fromIntegral . fromEnum) defaultSetting - result <- gtk_text_iter_editable _obj' defaultSetting' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterEditableMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo TextIterEditableMethodInfo TextIter signature where - overloadedMethod _ = textIterEditable - --- method TextIter::ends_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_ends_line" gtk_text_iter_ends_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterEndsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterEndsLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsLineMethodInfo TextIter signature where - overloadedMethod _ = textIterEndsLine - --- method TextIter::ends_sentence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_ends_sentence" gtk_text_iter_ends_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsSentence :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterEndsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterEndsSentenceMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsSentenceMethodInfo TextIter signature where - overloadedMethod _ = textIterEndsSentence - --- method TextIter::ends_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_ends_tag" gtk_text_iter_ends_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterEndsTag :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> Maybe (a) -- tag - -> m Bool -- result -textIterEndsTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_ends_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - -data TextIterEndsTagMethodInfo -instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterEndsTagMethodInfo TextIter signature where - overloadedMethod _ = textIterEndsTag - --- method TextIter::ends_word --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_ends_word" gtk_text_iter_ends_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsWord :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterEndsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterEndsWordMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsWordMethodInfo TextIter signature where - overloadedMethod _ = textIterEndsWord - --- method TextIter::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_equal" gtk_text_iter_equal :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEqual :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- rhs - -> m Bool -- result -textIterEqual _obj rhs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let rhs' = unsafeManagedPtrGetPtr rhs - result <- gtk_text_iter_equal _obj' rhs' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr rhs - return result' - -data TextIterEqualMethodInfo -instance (signature ~ (TextIter -> m Bool), MonadIO m) => MethodInfo TextIterEqualMethodInfo TextIter signature where - overloadedMethod _ = textIterEqual - --- method TextIter::forward_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_char" gtk_text_iter_forward_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardChar :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardCharMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardCharMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardChar - --- method TextIter::forward_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardChars :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardChars _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_chars _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardCharsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardCharsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardChars - --- method TextIter::forward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_cursor_position" gtk_text_iter_forward_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardCursorPosition :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardCursorPositionMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardCursorPositionMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardCursorPosition - --- method TextIter::forward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardCursorPositions :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardCursorPositionsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardCursorPositionsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardCursorPositions - --- method TextIter::forward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TPtr - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardFindChar :: - (MonadIO m) => - TextIter -- _obj - -> TextCharPredicate -- pred - -> Maybe (TextIter) -- limit - -> m Bool -- result -textIterForwardFindChar _obj pred limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - let userData = nullPtr - result <- gtk_text_iter_forward_find_char _obj' pred' userData maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - -data TextIterForwardFindCharMethodInfo -instance (signature ~ (TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => MethodInfo TextIterForwardFindCharMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardFindChar - --- method TextIter::forward_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_line" gtk_text_iter_forward_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardLineMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardLine - --- method TextIter::forward_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardLines :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardLinesMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardLinesMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardLines - --- method TextIter::forward_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_search" gtk_text_iter_forward_search :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CString -> -- str : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" - Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardSearch :: - (MonadIO m) => - TextIter -- _obj - -> T.Text -- str - -> [TextSearchFlags] -- flags - -> Maybe (TextIter) -- limit - -> m (Bool,TextIter,TextIter) -- result -textIterForwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - matchStart <- callocBoxedBytes 80 :: IO (Ptr TextIter) - matchEnd <- callocBoxedBytes 80 :: IO (Ptr TextIter) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - result <- gtk_text_iter_forward_search _obj' str' flags' matchStart matchEnd maybeLimit - let result' = (/= 0) result - matchStart' <- (wrapBoxed TextIter) matchStart - matchEnd' <- (wrapBoxed TextIter) matchEnd - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', matchStart', matchEnd') - -data TextIterForwardSearchMethodInfo -instance (signature ~ (T.Text -> [TextSearchFlags] -> Maybe (TextIter) -> m (Bool,TextIter,TextIter)), MonadIO m) => MethodInfo TextIterForwardSearchMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardSearch - --- method TextIter::forward_sentence_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_sentence_end" gtk_text_iter_forward_sentence_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardSentenceEnd :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardSentenceEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_sentence_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardSentenceEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardSentenceEndMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardSentenceEnd - --- method TextIter::forward_sentence_ends --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardSentenceEnds :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardSentenceEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_sentence_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardSentenceEndsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardSentenceEndsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardSentenceEnds - --- method TextIter::forward_to_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_to_end" gtk_text_iter_forward_to_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO () - - -textIterForwardToEnd :: - (MonadIO m) => - TextIter -- _obj - -> m () -- result -textIterForwardToEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_forward_to_end _obj' - touchManagedPtr _obj - return () - -data TextIterForwardToEndMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TextIterForwardToEndMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardToEnd - --- method TextIter::forward_to_line_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_to_line_end" gtk_text_iter_forward_to_line_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardToLineEnd :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardToLineEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_to_line_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardToLineEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardToLineEndMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardToLineEnd - --- method TextIter::forward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_to_tag_toggle" gtk_text_iter_forward_to_tag_toggle :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterForwardToTagToggle :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> Maybe (a) -- tag - -> m Bool -- result -textIterForwardToTagToggle _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_forward_to_tag_toggle _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - -data TextIterForwardToTagToggleMethodInfo -instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterForwardToTagToggleMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardToTagToggle - --- method TextIter::forward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_visible_cursor_position" gtk_text_iter_forward_visible_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleCursorPosition :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardVisibleCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleCursorPositionMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleCursorPositionMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleCursorPosition - --- method TextIter::forward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardVisibleCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleCursorPositionsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleCursorPositionsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleCursorPositions - --- method TextIter::forward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_visible_line" gtk_text_iter_forward_visible_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleLineMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleLine - --- method TextIter::forward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardVisibleLines :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardVisibleLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleLinesMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleLinesMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleLines - --- method TextIter::forward_visible_word_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_visible_word_end" gtk_text_iter_forward_visible_word_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleWordEnd :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardVisibleWordEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_word_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleWordEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleWordEndMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleWordEnd - --- method TextIter::forward_visible_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardVisibleWordEnds :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardVisibleWordEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_word_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardVisibleWordEndsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleWordEndsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardVisibleWordEnds - --- method TextIter::forward_word_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_forward_word_end" gtk_text_iter_forward_word_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardWordEnd :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterForwardWordEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_word_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardWordEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardWordEndMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardWordEnd - --- method TextIter::forward_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", 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 "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt - IO CInt - - -textIterForwardWordEnds :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- count - -> m Bool -- result -textIterForwardWordEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_word_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterForwardWordEndsMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardWordEndsMethodInfo TextIter signature where - overloadedMethod _ = textIterForwardWordEnds - --- method TextIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_free" gtk_text_iter_free :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO () - - -textIterFree :: - (MonadIO m) => - TextIter -- _obj - -> m () -- result -textIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_free _obj' - touchManagedPtr _obj - return () - -data TextIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TextIterFreeMethodInfo TextIter signature where - overloadedMethod _ = textIterFree - --- method TextIter::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_attributes" gtk_text_iter_get_attributes :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextAttributes -> -- values : TInterface "Gtk" "TextAttributes" - IO CInt - - -textIterGetAttributes :: - (MonadIO m) => - TextIter -- _obj - -> m (Bool,TextAttributes) -- result -textIterGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - values <- callocBoxedBytes 168 :: IO (Ptr TextAttributes) - result <- gtk_text_iter_get_attributes _obj' values - let result' = (/= 0) result - values' <- (wrapBoxed TextAttributes) values - touchManagedPtr _obj - return (result', values') - -data TextIterGetAttributesMethodInfo -instance (signature ~ (m (Bool,TextAttributes)), MonadIO m) => MethodInfo TextIterGetAttributesMethodInfo TextIter signature where - overloadedMethod _ = textIterGetAttributes - --- method TextIter::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextBuffer") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_buffer" gtk_text_iter_get_buffer :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextBuffer) - - -textIterGetBuffer :: - (MonadIO m) => - TextIter -- _obj - -> m TextBuffer -- result -textIterGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_buffer" result - result' <- (newObject TextBuffer) result - touchManagedPtr _obj - return result' - -data TextIterGetBufferMethodInfo -instance (signature ~ (m TextBuffer), MonadIO m) => MethodInfo TextIterGetBufferMethodInfo TextIter signature where - overloadedMethod _ = textIterGetBuffer - --- method TextIter::get_bytes_in_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_bytes_in_line" gtk_text_iter_get_bytes_in_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetBytesInLine :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetBytesInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_bytes_in_line _obj' - touchManagedPtr _obj - return result - -data TextIterGetBytesInLineMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetBytesInLineMethodInfo TextIter signature where - overloadedMethod _ = textIterGetBytesInLine - --- method TextIter::get_char --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_char" gtk_text_iter_get_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterGetChar :: - (MonadIO m) => - TextIter -- _obj - -> m Char -- result -textIterGetChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - -data TextIterGetCharMethodInfo -instance (signature ~ (m Char), MonadIO m) => MethodInfo TextIterGetCharMethodInfo TextIter signature where - overloadedMethod _ = textIterGetChar - --- method TextIter::get_chars_in_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_chars_in_line" gtk_text_iter_get_chars_in_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetCharsInLine :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetCharsInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_chars_in_line _obj' - touchManagedPtr _obj - return result - -data TextIterGetCharsInLineMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetCharsInLineMethodInfo TextIter signature where - overloadedMethod _ = textIterGetCharsInLine - --- method TextIter::get_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TextChildAnchor") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_child_anchor" gtk_text_iter_get_child_anchor :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextChildAnchor) - - -textIterGetChildAnchor :: - (MonadIO m) => - TextIter -- _obj - -> m TextChildAnchor -- result -textIterGetChildAnchor _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_child_anchor _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_child_anchor" result - result' <- (newObject TextChildAnchor) result - touchManagedPtr _obj - return result' - -data TextIterGetChildAnchorMethodInfo -instance (signature ~ (m TextChildAnchor), MonadIO m) => MethodInfo TextIterGetChildAnchorMethodInfo TextIter signature where - overloadedMethod _ = textIterGetChildAnchor - --- method TextIter::get_language --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Language") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_language" gtk_text_iter_get_language :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr Pango.Language) - - -textIterGetLanguage :: - (MonadIO m) => - TextIter -- _obj - -> m Pango.Language -- result -textIterGetLanguage _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_language _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_language" result - result' <- (wrapBoxed Pango.Language) result - touchManagedPtr _obj - return result' - -data TextIterGetLanguageMethodInfo -instance (signature ~ (m Pango.Language), MonadIO m) => MethodInfo TextIterGetLanguageMethodInfo TextIter signature where - overloadedMethod _ = textIterGetLanguage - --- method TextIter::get_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_line" gtk_text_iter_get_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLine :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line _obj' - touchManagedPtr _obj - return result - -data TextIterGetLineMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineMethodInfo TextIter signature where - overloadedMethod _ = textIterGetLine - --- method TextIter::get_line_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_line_index" gtk_text_iter_get_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLineIndex :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_index _obj' - touchManagedPtr _obj - return result - -data TextIterGetLineIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineIndexMethodInfo TextIter signature where - overloadedMethod _ = textIterGetLineIndex - --- method TextIter::get_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_line_offset" gtk_text_iter_get_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLineOffset :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_offset _obj' - touchManagedPtr _obj - return result - -data TextIterGetLineOffsetMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterGetLineOffset - --- method TextIter::get_marks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "TextMark")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_marks" gtk_text_iter_get_marks :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr (GSList (Ptr TextMark))) - - -textIterGetMarks :: - (MonadIO m) => - TextIter -- _obj - -> m [TextMark] -- result -textIterGetMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_marks _obj' - result' <- unpackGSList result - result'' <- mapM (newObject TextMark) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data TextIterGetMarksMethodInfo -instance (signature ~ (m [TextMark]), MonadIO m) => MethodInfo TextIterGetMarksMethodInfo TextIter signature where - overloadedMethod _ = textIterGetMarks - --- method TextIter::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_offset" gtk_text_iter_get_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetOffset :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_offset _obj' - touchManagedPtr _obj - return result - -data TextIterGetOffsetMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterGetOffset - --- method TextIter::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_pixbuf" gtk_text_iter_get_pixbuf :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr GdkPixbuf.Pixbuf) - - -textIterGetPixbuf :: - (MonadIO m) => - TextIter -- _obj - -> m GdkPixbuf.Pixbuf -- result -textIterGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - -data TextIterGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo TextIterGetPixbufMethodInfo TextIter signature where - overloadedMethod _ = textIterGetPixbuf - --- method TextIter::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_slice" gtk_text_iter_get_slice :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetSlice :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- end - -> m T.Text -- result -textIterGetSlice _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_slice _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - -data TextIterGetSliceMethodInfo -instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetSliceMethodInfo TextIter signature where - overloadedMethod _ = textIterGetSlice - --- method TextIter::get_tags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "TextTag")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_tags" gtk_text_iter_get_tags :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr (GSList (Ptr TextTag))) - - -textIterGetTags :: - (MonadIO m) => - TextIter -- _obj - -> m [TextTag] -- result -textIterGetTags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_tags _obj' - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data TextIterGetTagsMethodInfo -instance (signature ~ (m [TextTag]), MonadIO m) => MethodInfo TextIterGetTagsMethodInfo TextIter signature where - overloadedMethod _ = textIterGetTags - --- method TextIter::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_text" gtk_text_iter_get_text :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetText :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- end - -> m T.Text -- result -textIterGetText _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_text _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - -data TextIterGetTextMethodInfo -instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetTextMethodInfo TextIter signature where - overloadedMethod _ = textIterGetText - --- method TextIter::get_toggled_tags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gtk" "TextTag")) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_toggled_tags" gtk_text_iter_get_toggled_tags :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- toggled_on : TBasicType TBoolean - IO (Ptr (GSList (Ptr TextTag))) - - -textIterGetToggledTags :: - (MonadIO m) => - TextIter -- _obj - -> Bool -- toggledOn - -> m [TextTag] -- result -textIterGetToggledTags _obj toggledOn = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let toggledOn' = (fromIntegral . fromEnum) toggledOn - result <- gtk_text_iter_get_toggled_tags _obj' toggledOn' - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data TextIterGetToggledTagsMethodInfo -instance (signature ~ (Bool -> m [TextTag]), MonadIO m) => MethodInfo TextIterGetToggledTagsMethodInfo TextIter signature where - overloadedMethod _ = textIterGetToggledTags - --- method TextIter::get_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_visible_line_index" gtk_text_iter_get_visible_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetVisibleLineIndex :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetVisibleLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_index _obj' - touchManagedPtr _obj - return result - -data TextIterGetVisibleLineIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetVisibleLineIndexMethodInfo TextIter signature where - overloadedMethod _ = textIterGetVisibleLineIndex - --- method TextIter::get_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_visible_line_offset" gtk_text_iter_get_visible_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetVisibleLineOffset :: - (MonadIO m) => - TextIter -- _obj - -> m Int32 -- result -textIterGetVisibleLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_offset _obj' - touchManagedPtr _obj - return result - -data TextIterGetVisibleLineOffsetMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetVisibleLineOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterGetVisibleLineOffset - --- method TextIter::get_visible_slice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_visible_slice" gtk_text_iter_get_visible_slice :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetVisibleSlice :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- end - -> m T.Text -- result -textIterGetVisibleSlice _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_visible_slice _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_visible_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - -data TextIterGetVisibleSliceMethodInfo -instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetVisibleSliceMethodInfo TextIter signature where - overloadedMethod _ = textIterGetVisibleSlice - --- method TextIter::get_visible_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_get_visible_text" gtk_text_iter_get_visible_text :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetVisibleText :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- end - -> m T.Text -- result -textIterGetVisibleText _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_visible_text _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_visible_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - -data TextIterGetVisibleTextMethodInfo -instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetVisibleTextMethodInfo TextIter signature where - overloadedMethod _ = textIterGetVisibleText - --- method TextIter::has_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", 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 "gtk_text_iter_has_tag" gtk_text_iter_has_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterHasTag :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> a -- tag - -> m Bool -- result -textIterHasTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - result <- gtk_text_iter_has_tag _obj' tag' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr tag - return result' - -data TextIterHasTagMethodInfo -instance (signature ~ (a -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterHasTagMethodInfo TextIter signature where - overloadedMethod _ = textIterHasTag - --- method TextIter::in_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_in_range" gtk_text_iter_in_range :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInRange :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- start - -> TextIter -- end - -> m Bool -- result -textIterInRange _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_in_range _obj' start' end' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - -data TextIterInRangeMethodInfo -instance (signature ~ (TextIter -> TextIter -> m Bool), MonadIO m) => MethodInfo TextIterInRangeMethodInfo TextIter signature where - overloadedMethod _ = textIterInRange - --- method TextIter::inside_sentence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_inside_sentence" gtk_text_iter_inside_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInsideSentence :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterInsideSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterInsideSentenceMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterInsideSentenceMethodInfo TextIter signature where - overloadedMethod _ = textIterInsideSentence - --- method TextIter::inside_word --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_inside_word" gtk_text_iter_inside_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInsideWord :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterInsideWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterInsideWordMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterInsideWordMethodInfo TextIter signature where - overloadedMethod _ = textIterInsideWord - --- method TextIter::is_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_is_cursor_position" gtk_text_iter_is_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsCursorPosition :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterIsCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterIsCursorPositionMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsCursorPositionMethodInfo TextIter signature where - overloadedMethod _ = textIterIsCursorPosition - --- method TextIter::is_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_is_end" gtk_text_iter_is_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsEnd :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterIsEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterIsEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsEndMethodInfo TextIter signature where - overloadedMethod _ = textIterIsEnd - --- method TextIter::is_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_is_start" gtk_text_iter_is_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsStart :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterIsStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterIsStartMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsStartMethodInfo TextIter signature where - overloadedMethod _ = textIterIsStart - --- method TextIter::order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_order" gtk_text_iter_order :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- second : TInterface "Gtk" "TextIter" - IO () - - -textIterOrder :: - (MonadIO m) => - TextIter -- _obj - -> TextIter -- second - -> m () -- result -textIterOrder _obj second = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let second' = unsafeManagedPtrGetPtr second - gtk_text_iter_order _obj' second' - touchManagedPtr _obj - touchManagedPtr second - return () - -data TextIterOrderMethodInfo -instance (signature ~ (TextIter -> m ()), MonadIO m) => MethodInfo TextIterOrderMethodInfo TextIter signature where - overloadedMethod _ = textIterOrder - --- method TextIter::set_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_number", 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 "gtk_text_iter_set_line" gtk_text_iter_set_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt - IO () - - -textIterSetLine :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- lineNumber - -> m () -- result -textIterSetLine _obj lineNumber = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line _obj' lineNumber - touchManagedPtr _obj - return () - -data TextIterSetLineMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineMethodInfo TextIter signature where - overloadedMethod _ = textIterSetLine - --- method TextIter::set_line_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", 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 "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt - IO () - - -textIterSetLineIndex :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- byteOnLine - -> m () -- result -textIterSetLineIndex _obj byteOnLine = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_index _obj' byteOnLine - touchManagedPtr _obj - return () - -data TextIterSetLineIndexMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineIndexMethodInfo TextIter signature where - overloadedMethod _ = textIterSetLineIndex - --- method TextIter::set_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", 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 "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt - IO () - - -textIterSetLineOffset :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- charOnLine - -> m () -- result -textIterSetLineOffset _obj charOnLine = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_offset _obj' charOnLine - touchManagedPtr _obj - return () - -data TextIterSetLineOffsetMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterSetLineOffset - --- method TextIter::set_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", 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 "gtk_text_iter_set_offset" gtk_text_iter_set_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt - IO () - - -textIterSetOffset :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- charOffset - -> m () -- result -textIterSetOffset _obj charOffset = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_offset _obj' charOffset - touchManagedPtr _obj - return () - -data TextIterSetOffsetMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterSetOffset - --- method TextIter::set_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", 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 "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt - IO () - - -textIterSetVisibleLineIndex :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- byteOnLine - -> m () -- result -textIterSetVisibleLineIndex _obj byteOnLine = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_index _obj' byteOnLine - touchManagedPtr _obj - return () - -data TextIterSetVisibleLineIndexMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetVisibleLineIndexMethodInfo TextIter signature where - overloadedMethod _ = textIterSetVisibleLineIndex - --- method TextIter::set_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", 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 "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt - IO () - - -textIterSetVisibleLineOffset :: - (MonadIO m) => - TextIter -- _obj - -> Int32 -- charOnLine - -> m () -- result -textIterSetVisibleLineOffset _obj charOnLine = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_offset _obj' charOnLine - touchManagedPtr _obj - return () - -data TextIterSetVisibleLineOffsetMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetVisibleLineOffsetMethodInfo TextIter signature where - overloadedMethod _ = textIterSetVisibleLineOffset - --- method TextIter::starts_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_starts_line" gtk_text_iter_starts_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsLine :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterStartsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterStartsLineMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsLineMethodInfo TextIter signature where - overloadedMethod _ = textIterStartsLine - --- method TextIter::starts_sentence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_starts_sentence" gtk_text_iter_starts_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsSentence :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterStartsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterStartsSentenceMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsSentenceMethodInfo TextIter signature where - overloadedMethod _ = textIterStartsSentence - --- method TextIter::starts_word --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", 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 "gtk_text_iter_starts_word" gtk_text_iter_starts_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsWord :: - (MonadIO m) => - TextIter -- _obj - -> m Bool -- result -textIterStartsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextIterStartsWordMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsWordMethodInfo TextIter signature where - overloadedMethod _ = textIterStartsWord - --- method TextIter::toggles_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_toggles_tag" gtk_text_iter_toggles_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterTogglesTag :: - (MonadIO m, TextTagK a) => - TextIter -- _obj - -> Maybe (a) -- tag - -> m Bool -- result -textIterTogglesTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_toggles_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - -data TextIterTogglesTagMethodInfo -instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterTogglesTagMethodInfo TextIter signature where - overloadedMethod _ = textIterTogglesTag - -type family ResolveTextIterMethod (t :: Symbol) (o :: *) :: * where - ResolveTextIterMethod "assign" o = TextIterAssignMethodInfo - ResolveTextIterMethod "backwardChar" o = TextIterBackwardCharMethodInfo - ResolveTextIterMethod "backwardChars" o = TextIterBackwardCharsMethodInfo - ResolveTextIterMethod "backwardCursorPosition" o = TextIterBackwardCursorPositionMethodInfo - ResolveTextIterMethod "backwardCursorPositions" o = TextIterBackwardCursorPositionsMethodInfo - ResolveTextIterMethod "backwardFindChar" o = TextIterBackwardFindCharMethodInfo - ResolveTextIterMethod "backwardLine" o = TextIterBackwardLineMethodInfo - ResolveTextIterMethod "backwardLines" o = TextIterBackwardLinesMethodInfo - ResolveTextIterMethod "backwardSearch" o = TextIterBackwardSearchMethodInfo - ResolveTextIterMethod "backwardSentenceStart" o = TextIterBackwardSentenceStartMethodInfo - ResolveTextIterMethod "backwardSentenceStarts" o = TextIterBackwardSentenceStartsMethodInfo - ResolveTextIterMethod "backwardToTagToggle" o = TextIterBackwardToTagToggleMethodInfo - ResolveTextIterMethod "backwardVisibleCursorPosition" o = TextIterBackwardVisibleCursorPositionMethodInfo - ResolveTextIterMethod "backwardVisibleCursorPositions" o = TextIterBackwardVisibleCursorPositionsMethodInfo - ResolveTextIterMethod "backwardVisibleLine" o = TextIterBackwardVisibleLineMethodInfo - ResolveTextIterMethod "backwardVisibleLines" o = TextIterBackwardVisibleLinesMethodInfo - ResolveTextIterMethod "backwardVisibleWordStart" o = TextIterBackwardVisibleWordStartMethodInfo - ResolveTextIterMethod "backwardVisibleWordStarts" o = TextIterBackwardVisibleWordStartsMethodInfo - ResolveTextIterMethod "backwardWordStart" o = TextIterBackwardWordStartMethodInfo - ResolveTextIterMethod "backwardWordStarts" o = TextIterBackwardWordStartsMethodInfo - ResolveTextIterMethod "beginsTag" o = TextIterBeginsTagMethodInfo - ResolveTextIterMethod "canInsert" o = TextIterCanInsertMethodInfo - ResolveTextIterMethod "compare" o = TextIterCompareMethodInfo - ResolveTextIterMethod "copy" o = TextIterCopyMethodInfo - ResolveTextIterMethod "editable" o = TextIterEditableMethodInfo - ResolveTextIterMethod "endsLine" o = TextIterEndsLineMethodInfo - ResolveTextIterMethod "endsSentence" o = TextIterEndsSentenceMethodInfo - ResolveTextIterMethod "endsTag" o = TextIterEndsTagMethodInfo - ResolveTextIterMethod "endsWord" o = TextIterEndsWordMethodInfo - ResolveTextIterMethod "equal" o = TextIterEqualMethodInfo - ResolveTextIterMethod "forwardChar" o = TextIterForwardCharMethodInfo - ResolveTextIterMethod "forwardChars" o = TextIterForwardCharsMethodInfo - ResolveTextIterMethod "forwardCursorPosition" o = TextIterForwardCursorPositionMethodInfo - ResolveTextIterMethod "forwardCursorPositions" o = TextIterForwardCursorPositionsMethodInfo - ResolveTextIterMethod "forwardFindChar" o = TextIterForwardFindCharMethodInfo - ResolveTextIterMethod "forwardLine" o = TextIterForwardLineMethodInfo - ResolveTextIterMethod "forwardLines" o = TextIterForwardLinesMethodInfo - ResolveTextIterMethod "forwardSearch" o = TextIterForwardSearchMethodInfo - ResolveTextIterMethod "forwardSentenceEnd" o = TextIterForwardSentenceEndMethodInfo - ResolveTextIterMethod "forwardSentenceEnds" o = TextIterForwardSentenceEndsMethodInfo - ResolveTextIterMethod "forwardToEnd" o = TextIterForwardToEndMethodInfo - ResolveTextIterMethod "forwardToLineEnd" o = TextIterForwardToLineEndMethodInfo - ResolveTextIterMethod "forwardToTagToggle" o = TextIterForwardToTagToggleMethodInfo - ResolveTextIterMethod "forwardVisibleCursorPosition" o = TextIterForwardVisibleCursorPositionMethodInfo - ResolveTextIterMethod "forwardVisibleCursorPositions" o = TextIterForwardVisibleCursorPositionsMethodInfo - ResolveTextIterMethod "forwardVisibleLine" o = TextIterForwardVisibleLineMethodInfo - ResolveTextIterMethod "forwardVisibleLines" o = TextIterForwardVisibleLinesMethodInfo - ResolveTextIterMethod "forwardVisibleWordEnd" o = TextIterForwardVisibleWordEndMethodInfo - ResolveTextIterMethod "forwardVisibleWordEnds" o = TextIterForwardVisibleWordEndsMethodInfo - ResolveTextIterMethod "forwardWordEnd" o = TextIterForwardWordEndMethodInfo - ResolveTextIterMethod "forwardWordEnds" o = TextIterForwardWordEndsMethodInfo - ResolveTextIterMethod "free" o = TextIterFreeMethodInfo - ResolveTextIterMethod "hasTag" o = TextIterHasTagMethodInfo - ResolveTextIterMethod "inRange" o = TextIterInRangeMethodInfo - ResolveTextIterMethod "insideSentence" o = TextIterInsideSentenceMethodInfo - ResolveTextIterMethod "insideWord" o = TextIterInsideWordMethodInfo - ResolveTextIterMethod "isCursorPosition" o = TextIterIsCursorPositionMethodInfo - ResolveTextIterMethod "isEnd" o = TextIterIsEndMethodInfo - ResolveTextIterMethod "isStart" o = TextIterIsStartMethodInfo - ResolveTextIterMethod "order" o = TextIterOrderMethodInfo - ResolveTextIterMethod "startsLine" o = TextIterStartsLineMethodInfo - ResolveTextIterMethod "startsSentence" o = TextIterStartsSentenceMethodInfo - ResolveTextIterMethod "startsWord" o = TextIterStartsWordMethodInfo - ResolveTextIterMethod "togglesTag" o = TextIterTogglesTagMethodInfo - ResolveTextIterMethod "getAttributes" o = TextIterGetAttributesMethodInfo - ResolveTextIterMethod "getBuffer" o = TextIterGetBufferMethodInfo - ResolveTextIterMethod "getBytesInLine" o = TextIterGetBytesInLineMethodInfo - ResolveTextIterMethod "getChar" o = TextIterGetCharMethodInfo - ResolveTextIterMethod "getCharsInLine" o = TextIterGetCharsInLineMethodInfo - ResolveTextIterMethod "getChildAnchor" o = TextIterGetChildAnchorMethodInfo - ResolveTextIterMethod "getLanguage" o = TextIterGetLanguageMethodInfo - ResolveTextIterMethod "getLine" o = TextIterGetLineMethodInfo - ResolveTextIterMethod "getLineIndex" o = TextIterGetLineIndexMethodInfo - ResolveTextIterMethod "getLineOffset" o = TextIterGetLineOffsetMethodInfo - ResolveTextIterMethod "getMarks" o = TextIterGetMarksMethodInfo - ResolveTextIterMethod "getOffset" o = TextIterGetOffsetMethodInfo - ResolveTextIterMethod "getPixbuf" o = TextIterGetPixbufMethodInfo - ResolveTextIterMethod "getSlice" o = TextIterGetSliceMethodInfo - ResolveTextIterMethod "getTags" o = TextIterGetTagsMethodInfo - ResolveTextIterMethod "getText" o = TextIterGetTextMethodInfo - ResolveTextIterMethod "getToggledTags" o = TextIterGetToggledTagsMethodInfo - ResolveTextIterMethod "getVisibleLineIndex" o = TextIterGetVisibleLineIndexMethodInfo - ResolveTextIterMethod "getVisibleLineOffset" o = TextIterGetVisibleLineOffsetMethodInfo - ResolveTextIterMethod "getVisibleSlice" o = TextIterGetVisibleSliceMethodInfo - ResolveTextIterMethod "getVisibleText" o = TextIterGetVisibleTextMethodInfo - ResolveTextIterMethod "setLine" o = TextIterSetLineMethodInfo - ResolveTextIterMethod "setLineIndex" o = TextIterSetLineIndexMethodInfo - ResolveTextIterMethod "setLineOffset" o = TextIterSetLineOffsetMethodInfo - ResolveTextIterMethod "setOffset" o = TextIterSetOffsetMethodInfo - ResolveTextIterMethod "setVisibleLineIndex" o = TextIterSetVisibleLineIndexMethodInfo - ResolveTextIterMethod "setVisibleLineOffset" o = TextIterSetVisibleLineOffsetMethodInfo - ResolveTextIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextIterMethod t TextIter, MethodInfo info TextIter p) => IsLabelProxy t (TextIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextIterMethod t TextIter, MethodInfo info TextIter p) => IsLabel t (TextIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TextIter.hs-boot b/GI/Gtk/Structs/TextIter.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TextIter.hs-boot +++ /dev/null @@ -1,102 +0,0 @@ -module GI.Gtk.Structs.TextIter 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 TextIter = TextIter (ForeignPtr TextIter) -instance BoxedObject TextIter where -data TextIterAssignMethodInfo -data TextIterBackwardCharMethodInfo -data TextIterBackwardCharsMethodInfo -data TextIterBackwardCursorPositionMethodInfo -data TextIterBackwardCursorPositionsMethodInfo -data TextIterBackwardFindCharMethodInfo -data TextIterBackwardLineMethodInfo -data TextIterBackwardLinesMethodInfo -data TextIterBackwardSearchMethodInfo -data TextIterBackwardSentenceStartMethodInfo -data TextIterBackwardSentenceStartsMethodInfo -data TextIterBackwardToTagToggleMethodInfo -data TextIterBackwardVisibleCursorPositionMethodInfo -data TextIterBackwardVisibleCursorPositionsMethodInfo -data TextIterBackwardVisibleLineMethodInfo -data TextIterBackwardVisibleLinesMethodInfo -data TextIterBackwardVisibleWordStartMethodInfo -data TextIterBackwardVisibleWordStartsMethodInfo -data TextIterBackwardWordStartMethodInfo -data TextIterBackwardWordStartsMethodInfo -data TextIterBeginsTagMethodInfo -data TextIterCanInsertMethodInfo -data TextIterCompareMethodInfo -data TextIterCopyMethodInfo -data TextIterEditableMethodInfo -data TextIterEndsLineMethodInfo -data TextIterEndsSentenceMethodInfo -data TextIterEndsTagMethodInfo -data TextIterEndsWordMethodInfo -data TextIterEqualMethodInfo -data TextIterForwardCharMethodInfo -data TextIterForwardCharsMethodInfo -data TextIterForwardCursorPositionMethodInfo -data TextIterForwardCursorPositionsMethodInfo -data TextIterForwardFindCharMethodInfo -data TextIterForwardLineMethodInfo -data TextIterForwardLinesMethodInfo -data TextIterForwardSearchMethodInfo -data TextIterForwardSentenceEndMethodInfo -data TextIterForwardSentenceEndsMethodInfo -data TextIterForwardToEndMethodInfo -data TextIterForwardToLineEndMethodInfo -data TextIterForwardToTagToggleMethodInfo -data TextIterForwardVisibleCursorPositionMethodInfo -data TextIterForwardVisibleCursorPositionsMethodInfo -data TextIterForwardVisibleLineMethodInfo -data TextIterForwardVisibleLinesMethodInfo -data TextIterForwardVisibleWordEndMethodInfo -data TextIterForwardVisibleWordEndsMethodInfo -data TextIterForwardWordEndMethodInfo -data TextIterForwardWordEndsMethodInfo -data TextIterFreeMethodInfo -data TextIterGetAttributesMethodInfo -data TextIterGetBufferMethodInfo -data TextIterGetBytesInLineMethodInfo -data TextIterGetCharMethodInfo -data TextIterGetCharsInLineMethodInfo -data TextIterGetChildAnchorMethodInfo -data TextIterGetLanguageMethodInfo -data TextIterGetLineMethodInfo -data TextIterGetLineIndexMethodInfo -data TextIterGetLineOffsetMethodInfo -data TextIterGetMarksMethodInfo -data TextIterGetOffsetMethodInfo -data TextIterGetPixbufMethodInfo -data TextIterGetSliceMethodInfo -data TextIterGetTagsMethodInfo -data TextIterGetTextMethodInfo -data TextIterGetToggledTagsMethodInfo -data TextIterGetVisibleLineIndexMethodInfo -data TextIterGetVisibleLineOffsetMethodInfo -data TextIterGetVisibleSliceMethodInfo -data TextIterGetVisibleTextMethodInfo -data TextIterHasTagMethodInfo -data TextIterInRangeMethodInfo -data TextIterInsideSentenceMethodInfo -data TextIterInsideWordMethodInfo -data TextIterIsCursorPositionMethodInfo -data TextIterIsEndMethodInfo -data TextIterIsStartMethodInfo -data TextIterOrderMethodInfo -data TextIterSetLineMethodInfo -data TextIterSetLineIndexMethodInfo -data TextIterSetLineOffsetMethodInfo -data TextIterSetOffsetMethodInfo -data TextIterSetVisibleLineIndexMethodInfo -data TextIterSetVisibleLineOffsetMethodInfo -data TextIterStartsLineMethodInfo -data TextIterStartsSentenceMethodInfo -data TextIterStartsWordMethodInfo -data TextIterTogglesTagMethodInfo diff --git a/GI/Gtk/Structs/ThemeEngine.hs b/GI/Gtk/Structs/ThemeEngine.hs deleted file mode 100644 --- a/GI/Gtk/Structs/ThemeEngine.hs +++ /dev/null @@ -1,54 +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.Gtk.Structs.ThemeEngine - ( - --- * Exported types - ThemeEngine(..) , - noThemeEngine , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr ThemeEngine where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noThemeEngine :: Maybe ThemeEngine -noThemeEngine = Nothing - - -type instance AttributeList ThemeEngine = ThemeEngineAttributeList -type ThemeEngineAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveThemeEngineMethod (t :: Symbol) (o :: *) :: * where - ResolveThemeEngineMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThemeEngineMethod t ThemeEngine, MethodInfo info ThemeEngine p) => IsLabelProxy t (ThemeEngine -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThemeEngineMethod t ThemeEngine, MethodInfo info ThemeEngine p) => IsLabel t (ThemeEngine -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/ThemeEngine.hs-boot b/GI/Gtk/Structs/ThemeEngine.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/ThemeEngine.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.ThemeEngine 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 ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) -instance WrappedPtr ThemeEngine where diff --git a/GI/Gtk/Structs/ToggleActionEntry.hs b/GI/Gtk/Structs/ToggleActionEntry.hs deleted file mode 100644 --- a/GI/Gtk/Structs/ToggleActionEntry.hs +++ /dev/null @@ -1,300 +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) - -#GtkToggleActionEntry structs are used with -gtk_action_group_add_toggle_actions() to construct toggle actions. --} - -module GI.Gtk.Structs.ToggleActionEntry - ( - --- * Exported types - ToggleActionEntry(..) , - newZeroToggleActionEntry , - noToggleActionEntry , - - - -- * Properties --- ** Accelerator - toggleActionEntryAccelerator , - toggleActionEntryClearAccelerator , - toggleActionEntryReadAccelerator , - toggleActionEntryWriteAccelerator , - - --- ** IsActive - toggleActionEntryIsActive , - toggleActionEntryReadIsActive , - toggleActionEntryWriteIsActive , - - --- ** Label - toggleActionEntryClearLabel , - toggleActionEntryLabel , - toggleActionEntryReadLabel , - toggleActionEntryWriteLabel , - - --- ** Name - toggleActionEntryClearName , - toggleActionEntryName , - toggleActionEntryReadName , - toggleActionEntryWriteName , - - --- ** StockId - toggleActionEntryClearStockId , - toggleActionEntryReadStockId , - toggleActionEntryStockId , - toggleActionEntryWriteStockId , - - --- ** Tooltip - toggleActionEntryClearTooltip , - toggleActionEntryReadTooltip , - toggleActionEntryTooltip , - toggleActionEntryWriteTooltip , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry) -instance WrappedPtr ToggleActionEntry where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ToggleActionEntry` struct initialized to zero. -newZeroToggleActionEntry :: MonadIO m => m ToggleActionEntry -newZeroToggleActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr ToggleActionEntry - -instance tag ~ 'AttrSet => Constructible ToggleActionEntry tag where - new _ attrs = do - o <- newZeroToggleActionEntry - GI.Attributes.set o attrs - return o - - -noToggleActionEntry :: Maybe ToggleActionEntry -noToggleActionEntry = Nothing - -toggleActionEntryReadName :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) -toggleActionEntryReadName 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 - -toggleActionEntryWriteName :: MonadIO m => ToggleActionEntry -> CString -> m () -toggleActionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -toggleActionEntryClearName :: MonadIO m => ToggleActionEntry -> m () -toggleActionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data ToggleActionEntryNameFieldInfo -instance AttrInfo ToggleActionEntryNameFieldInfo where - type AttrAllowedOps ToggleActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToggleActionEntryNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ToggleActionEntryNameFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryNameFieldInfo = Maybe T.Text - type AttrLabel ToggleActionEntryNameFieldInfo = "name" - attrGet _ = toggleActionEntryReadName - attrSet _ = toggleActionEntryWriteName - attrConstruct = undefined - attrClear _ = toggleActionEntryClearName - -toggleActionEntryName :: AttrLabelProxy "name" -toggleActionEntryName = AttrLabelProxy - - -toggleActionEntryReadStockId :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) -toggleActionEntryReadStockId 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 - -toggleActionEntryWriteStockId :: MonadIO m => ToggleActionEntry -> CString -> m () -toggleActionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -toggleActionEntryClearStockId :: MonadIO m => ToggleActionEntry -> m () -toggleActionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ToggleActionEntryStockIdFieldInfo -instance AttrInfo ToggleActionEntryStockIdFieldInfo where - type AttrAllowedOps ToggleActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToggleActionEntryStockIdFieldInfo = (~) CString - type AttrBaseTypeConstraint ToggleActionEntryStockIdFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryStockIdFieldInfo = Maybe T.Text - type AttrLabel ToggleActionEntryStockIdFieldInfo = "stock_id" - attrGet _ = toggleActionEntryReadStockId - attrSet _ = toggleActionEntryWriteStockId - attrConstruct = undefined - attrClear _ = toggleActionEntryClearStockId - -toggleActionEntryStockId :: AttrLabelProxy "stockId" -toggleActionEntryStockId = AttrLabelProxy - - -toggleActionEntryReadLabel :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) -toggleActionEntryReadLabel 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 - -toggleActionEntryWriteLabel :: MonadIO m => ToggleActionEntry -> CString -> m () -toggleActionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -toggleActionEntryClearLabel :: MonadIO m => ToggleActionEntry -> m () -toggleActionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ToggleActionEntryLabelFieldInfo -instance AttrInfo ToggleActionEntryLabelFieldInfo where - type AttrAllowedOps ToggleActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToggleActionEntryLabelFieldInfo = (~) CString - type AttrBaseTypeConstraint ToggleActionEntryLabelFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryLabelFieldInfo = Maybe T.Text - type AttrLabel ToggleActionEntryLabelFieldInfo = "label" - attrGet _ = toggleActionEntryReadLabel - attrSet _ = toggleActionEntryWriteLabel - attrConstruct = undefined - attrClear _ = toggleActionEntryClearLabel - -toggleActionEntryLabel :: AttrLabelProxy "label" -toggleActionEntryLabel = AttrLabelProxy - - -toggleActionEntryReadAccelerator :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) -toggleActionEntryReadAccelerator 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 - -toggleActionEntryWriteAccelerator :: MonadIO m => ToggleActionEntry -> CString -> m () -toggleActionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -toggleActionEntryClearAccelerator :: MonadIO m => ToggleActionEntry -> m () -toggleActionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data ToggleActionEntryAcceleratorFieldInfo -instance AttrInfo ToggleActionEntryAcceleratorFieldInfo where - type AttrAllowedOps ToggleActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToggleActionEntryAcceleratorFieldInfo = (~) CString - type AttrBaseTypeConstraint ToggleActionEntryAcceleratorFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryAcceleratorFieldInfo = Maybe T.Text - type AttrLabel ToggleActionEntryAcceleratorFieldInfo = "accelerator" - attrGet _ = toggleActionEntryReadAccelerator - attrSet _ = toggleActionEntryWriteAccelerator - attrConstruct = undefined - attrClear _ = toggleActionEntryClearAccelerator - -toggleActionEntryAccelerator :: AttrLabelProxy "accelerator" -toggleActionEntryAccelerator = AttrLabelProxy - - -toggleActionEntryReadTooltip :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) -toggleActionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -toggleActionEntryWriteTooltip :: MonadIO m => ToggleActionEntry -> CString -> m () -toggleActionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -toggleActionEntryClearTooltip :: MonadIO m => ToggleActionEntry -> m () -toggleActionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data ToggleActionEntryTooltipFieldInfo -instance AttrInfo ToggleActionEntryTooltipFieldInfo where - type AttrAllowedOps ToggleActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ToggleActionEntryTooltipFieldInfo = (~) CString - type AttrBaseTypeConstraint ToggleActionEntryTooltipFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryTooltipFieldInfo = Maybe T.Text - type AttrLabel ToggleActionEntryTooltipFieldInfo = "tooltip" - attrGet _ = toggleActionEntryReadTooltip - attrSet _ = toggleActionEntryWriteTooltip - attrConstruct = undefined - attrClear _ = toggleActionEntryClearTooltip - -toggleActionEntryTooltip :: AttrLabelProxy "tooltip" -toggleActionEntryTooltip = AttrLabelProxy - - --- XXX Skipped attribute for "ToggleActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" -toggleActionEntryReadIsActive :: MonadIO m => ToggleActionEntry -> m Bool -toggleActionEntryReadIsActive s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CInt - let val' = (/= 0) val - return val' - -toggleActionEntryWriteIsActive :: MonadIO m => ToggleActionEntry -> Bool -> m () -toggleActionEntryWriteIsActive s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 48) (val' :: CInt) - -data ToggleActionEntryIsActiveFieldInfo -instance AttrInfo ToggleActionEntryIsActiveFieldInfo where - type AttrAllowedOps ToggleActionEntryIsActiveFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ToggleActionEntryIsActiveFieldInfo = (~) Bool - type AttrBaseTypeConstraint ToggleActionEntryIsActiveFieldInfo = (~) ToggleActionEntry - type AttrGetType ToggleActionEntryIsActiveFieldInfo = Bool - type AttrLabel ToggleActionEntryIsActiveFieldInfo = "is_active" - attrGet _ = toggleActionEntryReadIsActive - attrSet _ = toggleActionEntryWriteIsActive - attrConstruct = undefined - attrClear _ = undefined - -toggleActionEntryIsActive :: AttrLabelProxy "isActive" -toggleActionEntryIsActive = AttrLabelProxy - - - -type instance AttributeList ToggleActionEntry = ToggleActionEntryAttributeList -type ToggleActionEntryAttributeList = ('[ '("name", ToggleActionEntryNameFieldInfo), '("stockId", ToggleActionEntryStockIdFieldInfo), '("label", ToggleActionEntryLabelFieldInfo), '("accelerator", ToggleActionEntryAcceleratorFieldInfo), '("tooltip", ToggleActionEntryTooltipFieldInfo), '("isActive", ToggleActionEntryIsActiveFieldInfo)] :: [(Symbol, *)]) - -type family ResolveToggleActionEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveToggleActionEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveToggleActionEntryMethod t ToggleActionEntry, MethodInfo info ToggleActionEntry p) => IsLabelProxy t (ToggleActionEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveToggleActionEntryMethod t ToggleActionEntry, MethodInfo info ToggleActionEntry p) => IsLabel t (ToggleActionEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/ToggleActionEntry.hs-boot b/GI/Gtk/Structs/ToggleActionEntry.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/ToggleActionEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.ToggleActionEntry 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 ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry) -instance WrappedPtr ToggleActionEntry where diff --git a/GI/Gtk/Structs/TreeIter.hs b/GI/Gtk/Structs/TreeIter.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TreeIter.hs +++ /dev/null @@ -1,285 +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) - -The #GtkTreeIter is the primary structure -for accessing a #GtkTreeModel. Models are expected to put a unique -integer in the @stamp member, and put -model-specific data in the three @user_data -members. --} - -module GI.Gtk.Structs.TreeIter - ( - --- * Exported types - TreeIter(..) , - newZeroTreeIter , - noTreeIter , - - - -- * Methods --- ** treeIterCopy - TreeIterCopyMethodInfo , - treeIterCopy , - - --- ** treeIterFree - TreeIterFreeMethodInfo , - treeIterFree , - - - - - -- * Properties --- ** Stamp - treeIterReadStamp , - treeIterStamp , - treeIterWriteStamp , - - --- ** UserData - treeIterClearUserData , - treeIterReadUserData , - treeIterUserData , - treeIterWriteUserData , - - --- ** UserData2 - treeIterClearUserData2 , - treeIterReadUserData2 , - treeIterUserData2 , - treeIterWriteUserData2 , - - --- ** UserData3 - treeIterClearUserData3 , - treeIterReadUserData3 , - treeIterUserData3 , - treeIterWriteUserData3 , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TreeIter = TreeIter (ForeignPtr TreeIter) -foreign import ccall "gtk_tree_iter_get_type" c_gtk_tree_iter_get_type :: - IO GType - -instance BoxedObject TreeIter where - boxedType _ = c_gtk_tree_iter_get_type - --- | Construct a `TreeIter` struct initialized to zero. -newZeroTreeIter :: MonadIO m => m TreeIter -newZeroTreeIter = liftIO $ callocBoxedBytes 32 >>= wrapBoxed TreeIter - -instance tag ~ 'AttrSet => Constructible TreeIter tag where - new _ attrs = do - o <- newZeroTreeIter - GI.Attributes.set o attrs - return o - - -noTreeIter :: Maybe TreeIter -noTreeIter = Nothing - -treeIterReadStamp :: MonadIO m => TreeIter -> m Int32 -treeIterReadStamp s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -treeIterWriteStamp :: MonadIO m => TreeIter -> Int32 -> m () -treeIterWriteStamp s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data TreeIterStampFieldInfo -instance AttrInfo TreeIterStampFieldInfo where - type AttrAllowedOps TreeIterStampFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TreeIterStampFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TreeIterStampFieldInfo = (~) TreeIter - type AttrGetType TreeIterStampFieldInfo = Int32 - type AttrLabel TreeIterStampFieldInfo = "stamp" - attrGet _ = treeIterReadStamp - attrSet _ = treeIterWriteStamp - attrConstruct = undefined - attrClear _ = undefined - -treeIterStamp :: AttrLabelProxy "stamp" -treeIterStamp = AttrLabelProxy - - -treeIterReadUserData :: MonadIO m => TreeIter -> m (Ptr ()) -treeIterReadUserData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - -treeIterWriteUserData :: MonadIO m => TreeIter -> Ptr () -> m () -treeIterWriteUserData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr ()) - -treeIterClearUserData :: MonadIO m => TreeIter -> m () -treeIterClearUserData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr ()) - -data TreeIterUserDataFieldInfo -instance AttrInfo TreeIterUserDataFieldInfo where - type AttrAllowedOps TreeIterUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeIterUserDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint TreeIterUserDataFieldInfo = (~) TreeIter - type AttrGetType TreeIterUserDataFieldInfo = Ptr () - type AttrLabel TreeIterUserDataFieldInfo = "user_data" - attrGet _ = treeIterReadUserData - attrSet _ = treeIterWriteUserData - attrConstruct = undefined - attrClear _ = treeIterClearUserData - -treeIterUserData :: AttrLabelProxy "userData" -treeIterUserData = AttrLabelProxy - - -treeIterReadUserData2 :: MonadIO m => TreeIter -> m (Ptr ()) -treeIterReadUserData2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr ()) - return val - -treeIterWriteUserData2 :: MonadIO m => TreeIter -> Ptr () -> m () -treeIterWriteUserData2 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr ()) - -treeIterClearUserData2 :: MonadIO m => TreeIter -> m () -treeIterClearUserData2 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr ()) - -data TreeIterUserData2FieldInfo -instance AttrInfo TreeIterUserData2FieldInfo where - type AttrAllowedOps TreeIterUserData2FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeIterUserData2FieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint TreeIterUserData2FieldInfo = (~) TreeIter - type AttrGetType TreeIterUserData2FieldInfo = Ptr () - type AttrLabel TreeIterUserData2FieldInfo = "user_data2" - attrGet _ = treeIterReadUserData2 - attrSet _ = treeIterWriteUserData2 - attrConstruct = undefined - attrClear _ = treeIterClearUserData2 - -treeIterUserData2 :: AttrLabelProxy "userData2" -treeIterUserData2 = AttrLabelProxy - - -treeIterReadUserData3 :: MonadIO m => TreeIter -> m (Ptr ()) -treeIterReadUserData3 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - -treeIterWriteUserData3 :: MonadIO m => TreeIter -> Ptr () -> m () -treeIterWriteUserData3 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr ()) - -treeIterClearUserData3 :: MonadIO m => TreeIter -> m () -treeIterClearUserData3 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr ()) - -data TreeIterUserData3FieldInfo -instance AttrInfo TreeIterUserData3FieldInfo where - type AttrAllowedOps TreeIterUserData3FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TreeIterUserData3FieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint TreeIterUserData3FieldInfo = (~) TreeIter - type AttrGetType TreeIterUserData3FieldInfo = Ptr () - type AttrLabel TreeIterUserData3FieldInfo = "user_data3" - attrGet _ = treeIterReadUserData3 - attrSet _ = treeIterWriteUserData3 - attrConstruct = undefined - attrClear _ = treeIterClearUserData3 - -treeIterUserData3 :: AttrLabelProxy "userData3" -treeIterUserData3 = AttrLabelProxy - - - -type instance AttributeList TreeIter = TreeIterAttributeList -type TreeIterAttributeList = ('[ '("stamp", TreeIterStampFieldInfo), '("userData", TreeIterUserDataFieldInfo), '("userData2", TreeIterUserData2FieldInfo), '("userData3", TreeIterUserData3FieldInfo)] :: [(Symbol, *)]) - --- method TreeIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeIter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_iter_copy" gtk_tree_iter_copy :: - Ptr TreeIter -> -- _obj : TInterface "Gtk" "TreeIter" - IO (Ptr TreeIter) - - -treeIterCopy :: - (MonadIO m) => - TreeIter -- _obj - -> m TreeIter -- result -treeIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_iter_copy _obj' - checkUnexpectedReturnNULL "gtk_tree_iter_copy" result - result' <- (wrapBoxed TreeIter) result - touchManagedPtr _obj - return result' - -data TreeIterCopyMethodInfo -instance (signature ~ (m TreeIter), MonadIO m) => MethodInfo TreeIterCopyMethodInfo TreeIter signature where - overloadedMethod _ = treeIterCopy - --- method TreeIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", 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 "gtk_tree_iter_free" gtk_tree_iter_free :: - Ptr TreeIter -> -- _obj : TInterface "Gtk" "TreeIter" - IO () - - -treeIterFree :: - (MonadIO m) => - TreeIter -- _obj - -> m () -- result -treeIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_iter_free _obj' - touchManagedPtr _obj - return () - -data TreeIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeIterFreeMethodInfo TreeIter signature where - overloadedMethod _ = treeIterFree - -type family ResolveTreeIterMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeIterMethod "copy" o = TreeIterCopyMethodInfo - ResolveTreeIterMethod "free" o = TreeIterFreeMethodInfo - ResolveTreeIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeIterMethod t TreeIter, MethodInfo info TreeIter p) => IsLabelProxy t (TreeIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeIterMethod t TreeIter, MethodInfo info TreeIter p) => IsLabel t (TreeIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TreeIter.hs-boot b/GI/Gtk/Structs/TreeIter.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TreeIter.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gtk.Structs.TreeIter 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 TreeIter = TreeIter (ForeignPtr TreeIter) -instance BoxedObject TreeIter where -data TreeIterCopyMethodInfo -data TreeIterFreeMethodInfo diff --git a/GI/Gtk/Structs/TreePath.hs b/GI/Gtk/Structs/TreePath.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TreePath.hs +++ /dev/null @@ -1,660 +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.Gtk.Structs.TreePath - ( - --- * Exported types - TreePath(..) , - noTreePath , - - - -- * Methods --- ** treePathAppendIndex - TreePathAppendIndexMethodInfo , - treePathAppendIndex , - - --- ** treePathCompare - TreePathCompareMethodInfo , - treePathCompare , - - --- ** treePathCopy - TreePathCopyMethodInfo , - treePathCopy , - - --- ** treePathDown - TreePathDownMethodInfo , - treePathDown , - - --- ** treePathFree - TreePathFreeMethodInfo , - treePathFree , - - --- ** treePathGetDepth - TreePathGetDepthMethodInfo , - treePathGetDepth , - - --- ** treePathGetIndices - TreePathGetIndicesMethodInfo , - treePathGetIndices , - - --- ** treePathIsAncestor - TreePathIsAncestorMethodInfo , - treePathIsAncestor , - - --- ** treePathIsDescendant - TreePathIsDescendantMethodInfo , - treePathIsDescendant , - - --- ** treePathNew - treePathNew , - - --- ** treePathNewFirst - treePathNewFirst , - - --- ** treePathNewFromIndices - treePathNewFromIndices , - - --- ** treePathNewFromString - treePathNewFromString , - - --- ** treePathNext - TreePathNextMethodInfo , - treePathNext , - - --- ** treePathPrependIndex - TreePathPrependIndexMethodInfo , - treePathPrependIndex , - - --- ** treePathPrev - TreePathPrevMethodInfo , - treePathPrev , - - --- ** treePathToString - TreePathToStringMethodInfo , - treePathToString , - - --- ** treePathUp - TreePathUpMethodInfo , - treePathUp , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype TreePath = TreePath (ForeignPtr TreePath) -foreign import ccall "gtk_tree_path_get_type" c_gtk_tree_path_get_type :: - IO GType - -instance BoxedObject TreePath where - boxedType _ = c_gtk_tree_path_get_type - -noTreePath :: Maybe TreePath -noTreePath = Nothing - - -type instance AttributeList TreePath = TreePathAttributeList -type TreePathAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TreePath::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_new" gtk_tree_path_new :: - IO (Ptr TreePath) - - -treePathNew :: - (MonadIO m) => - m TreePath -- result -treePathNew = liftIO $ do - result <- gtk_tree_path_new - checkUnexpectedReturnNULL "gtk_tree_path_new" result - result' <- (wrapBoxed TreePath) result - return result' - --- method TreePath::new_first --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_new_first" gtk_tree_path_new_first :: - IO (Ptr TreePath) - - -treePathNewFirst :: - (MonadIO m) => - m TreePath -- result -treePathNewFirst = liftIO $ do - result <- gtk_tree_path_new_first - checkUnexpectedReturnNULL "gtk_tree_path_new_first" result - result' <- (wrapBoxed TreePath) result - return result' - --- method TreePath::new_from_indices --- method type : Constructor --- Args : [Arg {argCName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_new_from_indicesv" gtk_tree_path_new_from_indicesv :: - Ptr Int32 -> -- indices : TCArray False (-1) 1 (TBasicType TInt) - Word64 -> -- length : TBasicType TUInt64 - IO (Ptr TreePath) - - -treePathNewFromIndices :: - (MonadIO m) => - [Int32] -- indices - -> m TreePath -- result -treePathNewFromIndices indices = liftIO $ do - let length_ = fromIntegral $ length indices - indices' <- packStorableArray indices - result <- gtk_tree_path_new_from_indicesv indices' length_ - checkUnexpectedReturnNULL "gtk_tree_path_new_from_indicesv" result - result' <- (wrapBoxed TreePath) result - freeMem indices' - return result' - --- method TreePath::new_from_string --- method type : Constructor --- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_new_from_string" gtk_tree_path_new_from_string :: - CString -> -- path : TBasicType TUTF8 - IO (Ptr TreePath) - - -treePathNewFromString :: - (MonadIO m) => - T.Text -- path - -> m TreePath -- result -treePathNewFromString path = liftIO $ do - path' <- textToCString path - result <- gtk_tree_path_new_from_string path' - checkUnexpectedReturnNULL "gtk_tree_path_new_from_string" result - result' <- (wrapBoxed TreePath) result - freeMem path' - return result' - --- method TreePath::append_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_append_index" gtk_tree_path_append_index :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Int32 -> -- index_ : TBasicType TInt - IO () - - -treePathAppendIndex :: - (MonadIO m) => - TreePath -- _obj - -> Int32 -- index_ - -> m () -- result -treePathAppendIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_append_index _obj' index_ - touchManagedPtr _obj - return () - -data TreePathAppendIndexMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TreePathAppendIndexMethodInfo TreePath signature where - overloadedMethod _ = treePathAppendIndex - --- method TreePath::compare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_compare" gtk_tree_path_compare :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Ptr TreePath -> -- b : TInterface "Gtk" "TreePath" - IO Int32 - - -treePathCompare :: - (MonadIO m) => - TreePath -- _obj - -> TreePath -- b - -> m Int32 -- result -treePathCompare _obj b = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let b' = unsafeManagedPtrGetPtr b - result <- gtk_tree_path_compare _obj' b' - touchManagedPtr _obj - touchManagedPtr b - return result - -data TreePathCompareMethodInfo -instance (signature ~ (TreePath -> m Int32), MonadIO m) => MethodInfo TreePathCompareMethodInfo TreePath signature where - overloadedMethod _ = treePathCompare - --- method TreePath::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_copy" gtk_tree_path_copy :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO (Ptr TreePath) - - -treePathCopy :: - (MonadIO m) => - TreePath -- _obj - -> m TreePath -- result -treePathCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_copy _obj' - checkUnexpectedReturnNULL "gtk_tree_path_copy" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - return result' - -data TreePathCopyMethodInfo -instance (signature ~ (m TreePath), MonadIO m) => MethodInfo TreePathCopyMethodInfo TreePath signature where - overloadedMethod _ = treePathCopy - --- method TreePath::down --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_down" gtk_tree_path_down :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO () - - -treePathDown :: - (MonadIO m) => - TreePath -- _obj - -> m () -- result -treePathDown _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_down _obj' - touchManagedPtr _obj - return () - -data TreePathDownMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathDownMethodInfo TreePath signature where - overloadedMethod _ = treePathDown - --- method TreePath::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_free" gtk_tree_path_free :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO () - - -treePathFree :: - (MonadIO m) => - TreePath -- _obj - -> m () -- result -treePathFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_free _obj' - touchManagedPtr _obj - return () - -data TreePathFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathFreeMethodInfo TreePath signature where - overloadedMethod _ = treePathFree - --- method TreePath::get_depth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_get_depth" gtk_tree_path_get_depth :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO Int32 - - -treePathGetDepth :: - (MonadIO m) => - TreePath -- _obj - -> m Int32 -- result -treePathGetDepth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_get_depth _obj' - touchManagedPtr _obj - return result - -data TreePathGetDepthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TreePathGetDepthMethodInfo TreePath signature where - overloadedMethod _ = treePathGetDepth - --- method TreePath::get_indices --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TInt)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_get_indices_with_depth" gtk_tree_path_get_indices_with_depth :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Ptr Int32 -> -- depth : TBasicType TInt - IO (Ptr Int32) - - -treePathGetIndices :: - (MonadIO m) => - TreePath -- _obj - -> m [Int32] -- result -treePathGetIndices _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - depth <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_path_get_indices_with_depth _obj' depth - depth' <- peek depth - checkUnexpectedReturnNULL "gtk_tree_path_get_indices_with_depth" result - result' <- (unpackStorableArrayWithLength depth') result - touchManagedPtr _obj - freeMem depth - return result' - -data TreePathGetIndicesMethodInfo -instance (signature ~ (m [Int32]), MonadIO m) => MethodInfo TreePathGetIndicesMethodInfo TreePath signature where - overloadedMethod _ = treePathGetIndices - --- method TreePath::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_is_ancestor" gtk_tree_path_is_ancestor :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Ptr TreePath -> -- descendant : TInterface "Gtk" "TreePath" - IO CInt - - -treePathIsAncestor :: - (MonadIO m) => - TreePath -- _obj - -> TreePath -- descendant - -> m Bool -- result -treePathIsAncestor _obj descendant = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let descendant' = unsafeManagedPtrGetPtr descendant - result <- gtk_tree_path_is_ancestor _obj' descendant' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr descendant - return result' - -data TreePathIsAncestorMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m) => MethodInfo TreePathIsAncestorMethodInfo TreePath signature where - overloadedMethod _ = treePathIsAncestor - --- method TreePath::is_descendant --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_is_descendant" gtk_tree_path_is_descendant :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Ptr TreePath -> -- ancestor : TInterface "Gtk" "TreePath" - IO CInt - - -treePathIsDescendant :: - (MonadIO m) => - TreePath -- _obj - -> TreePath -- ancestor - -> m Bool -- result -treePathIsDescendant _obj ancestor = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let ancestor' = unsafeManagedPtrGetPtr ancestor - result <- gtk_tree_path_is_descendant _obj' ancestor' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr ancestor - return result' - -data TreePathIsDescendantMethodInfo -instance (signature ~ (TreePath -> m Bool), MonadIO m) => MethodInfo TreePathIsDescendantMethodInfo TreePath signature where - overloadedMethod _ = treePathIsDescendant - --- method TreePath::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_next" gtk_tree_path_next :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO () - - -treePathNext :: - (MonadIO m) => - TreePath -- _obj - -> m () -- result -treePathNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_next _obj' - touchManagedPtr _obj - return () - -data TreePathNextMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathNextMethodInfo TreePath signature where - overloadedMethod _ = treePathNext - --- method TreePath::prepend_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_path_prepend_index" gtk_tree_path_prepend_index :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Int32 -> -- index_ : TBasicType TInt - IO () - - -treePathPrependIndex :: - (MonadIO m) => - TreePath -- _obj - -> Int32 -- index_ - -> m () -- result -treePathPrependIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_prepend_index _obj' index_ - touchManagedPtr _obj - return () - -data TreePathPrependIndexMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TreePathPrependIndexMethodInfo TreePath signature where - overloadedMethod _ = treePathPrependIndex - --- method TreePath::prev --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_prev" gtk_tree_path_prev :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO CInt - - -treePathPrev :: - (MonadIO m) => - TreePath -- _obj - -> m Bool -- result -treePathPrev _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_prev _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreePathPrevMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreePathPrevMethodInfo TreePath signature where - overloadedMethod _ = treePathPrev - --- method TreePath::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_to_string" gtk_tree_path_to_string :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO CString - - -treePathToString :: - (MonadIO m) => - TreePath -- _obj - -> m T.Text -- result -treePathToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_to_string _obj' - checkUnexpectedReturnNULL "gtk_tree_path_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data TreePathToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TreePathToStringMethodInfo TreePath signature where - overloadedMethod _ = treePathToString - --- method TreePath::up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_path_up" gtk_tree_path_up :: - Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - IO CInt - - -treePathUp :: - (MonadIO m) => - TreePath -- _obj - -> m Bool -- result -treePathUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_up _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreePathUpMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreePathUpMethodInfo TreePath signature where - overloadedMethod _ = treePathUp - -type family ResolveTreePathMethod (t :: Symbol) (o :: *) :: * where - ResolveTreePathMethod "appendIndex" o = TreePathAppendIndexMethodInfo - ResolveTreePathMethod "compare" o = TreePathCompareMethodInfo - ResolveTreePathMethod "copy" o = TreePathCopyMethodInfo - ResolveTreePathMethod "down" o = TreePathDownMethodInfo - ResolveTreePathMethod "free" o = TreePathFreeMethodInfo - ResolveTreePathMethod "isAncestor" o = TreePathIsAncestorMethodInfo - ResolveTreePathMethod "isDescendant" o = TreePathIsDescendantMethodInfo - ResolveTreePathMethod "next" o = TreePathNextMethodInfo - ResolveTreePathMethod "prependIndex" o = TreePathPrependIndexMethodInfo - ResolveTreePathMethod "prev" o = TreePathPrevMethodInfo - ResolveTreePathMethod "toString" o = TreePathToStringMethodInfo - ResolveTreePathMethod "up" o = TreePathUpMethodInfo - ResolveTreePathMethod "getDepth" o = TreePathGetDepthMethodInfo - ResolveTreePathMethod "getIndices" o = TreePathGetIndicesMethodInfo - ResolveTreePathMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreePathMethod t TreePath, MethodInfo info TreePath p) => IsLabelProxy t (TreePath -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreePathMethod t TreePath, MethodInfo info TreePath p) => IsLabel t (TreePath -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TreePath.hs-boot b/GI/Gtk/Structs/TreePath.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TreePath.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gtk.Structs.TreePath 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 TreePath = TreePath (ForeignPtr TreePath) -instance BoxedObject TreePath where -data TreePathAppendIndexMethodInfo -data TreePathCompareMethodInfo -data TreePathCopyMethodInfo -data TreePathDownMethodInfo -data TreePathFreeMethodInfo -data TreePathGetDepthMethodInfo -data TreePathGetIndicesMethodInfo -data TreePathIsAncestorMethodInfo -data TreePathIsDescendantMethodInfo -data TreePathNextMethodInfo -data TreePathPrependIndexMethodInfo -data TreePathPrevMethodInfo -data TreePathToStringMethodInfo -data TreePathUpMethodInfo diff --git a/GI/Gtk/Structs/TreeRowReference.hs b/GI/Gtk/Structs/TreeRowReference.hs deleted file mode 100644 --- a/GI/Gtk/Structs/TreeRowReference.hs +++ /dev/null @@ -1,367 +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 GtkTreeRowReference tracks model changes so that it always refers to the -same row (a #GtkTreePath refers to a position, not a fixed row). Create a -new GtkTreeRowReference with gtk_tree_row_reference_new(). --} - -module GI.Gtk.Structs.TreeRowReference - ( - --- * Exported types - TreeRowReference(..) , - noTreeRowReference , - - - -- * Methods --- ** treeRowReferenceCopy - TreeRowReferenceCopyMethodInfo , - treeRowReferenceCopy , - - --- ** treeRowReferenceDeleted - treeRowReferenceDeleted , - - --- ** treeRowReferenceFree - TreeRowReferenceFreeMethodInfo , - treeRowReferenceFree , - - --- ** treeRowReferenceGetModel - TreeRowReferenceGetModelMethodInfo , - treeRowReferenceGetModel , - - --- ** treeRowReferenceGetPath - TreeRowReferenceGetPathMethodInfo , - treeRowReferenceGetPath , - - --- ** treeRowReferenceInserted - treeRowReferenceInserted , - - --- ** treeRowReferenceNew - treeRowReferenceNew , - - --- ** treeRowReferenceNewProxy - treeRowReferenceNewProxy , - - --- ** treeRowReferenceValid - TreeRowReferenceValidMethodInfo , - treeRowReferenceValid , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - -newtype TreeRowReference = TreeRowReference (ForeignPtr TreeRowReference) -foreign import ccall "gtk_tree_row_reference_get_type" c_gtk_tree_row_reference_get_type :: - IO GType - -instance BoxedObject TreeRowReference where - boxedType _ = c_gtk_tree_row_reference_get_type - -noTreeRowReference :: Maybe TreeRowReference -noTreeRowReference = Nothing - - -type instance AttributeList TreeRowReference = TreeRowReferenceAttributeList -type TreeRowReferenceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TreeRowReference::new --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeRowReference") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_row_reference_new" gtk_tree_row_reference_new :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr TreeRowReference) - - -treeRowReferenceNew :: - (MonadIO m, TreeModelK a) => - a -- model - -> TreePath -- path - -> m TreeRowReference -- result -treeRowReferenceNew model path = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_row_reference_new model' path' - checkUnexpectedReturnNULL "gtk_tree_row_reference_new" result - result' <- (wrapBoxed TreeRowReference) result - touchManagedPtr model - touchManagedPtr path - return result' - --- method TreeRowReference::new_proxy --- method type : Constructor --- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeRowReference") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_row_reference_new_proxy" gtk_tree_row_reference_new_proxy :: - Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr TreeRowReference) - - -treeRowReferenceNewProxy :: - (MonadIO m, GObject.ObjectK a, TreeModelK b) => - a -- proxy - -> b -- model - -> TreePath -- path - -> m TreeRowReference -- result -treeRowReferenceNewProxy proxy model path = liftIO $ do - let proxy' = unsafeManagedPtrCastPtr proxy - let model' = unsafeManagedPtrCastPtr model - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_row_reference_new_proxy proxy' model' path' - checkUnexpectedReturnNULL "gtk_tree_row_reference_new_proxy" result - result' <- (wrapBoxed TreeRowReference) result - touchManagedPtr proxy - touchManagedPtr model - touchManagedPtr path - return result' - --- method TreeRowReference::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeRowReference") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_row_reference_copy" gtk_tree_row_reference_copy :: - Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference" - IO (Ptr TreeRowReference) - - -treeRowReferenceCopy :: - (MonadIO m) => - TreeRowReference -- _obj - -> m TreeRowReference -- result -treeRowReferenceCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_copy _obj' - checkUnexpectedReturnNULL "gtk_tree_row_reference_copy" result - result' <- (wrapBoxed TreeRowReference) result - touchManagedPtr _obj - return result' - -data TreeRowReferenceCopyMethodInfo -instance (signature ~ (m TreeRowReference), MonadIO m) => MethodInfo TreeRowReferenceCopyMethodInfo TreeRowReference signature where - overloadedMethod _ = treeRowReferenceCopy - --- method TreeRowReference::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", 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 "gtk_tree_row_reference_free" gtk_tree_row_reference_free :: - Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference" - IO () - - -treeRowReferenceFree :: - (MonadIO m) => - TreeRowReference -- _obj - -> m () -- result -treeRowReferenceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_row_reference_free _obj' - touchManagedPtr _obj - return () - -data TreeRowReferenceFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeRowReferenceFreeMethodInfo TreeRowReference signature where - overloadedMethod _ = treeRowReferenceFree - --- method TreeRowReference::get_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreeModel") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_row_reference_get_model" gtk_tree_row_reference_get_model :: - Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference" - IO (Ptr TreeModel) - - -treeRowReferenceGetModel :: - (MonadIO m) => - TreeRowReference -- _obj - -> m TreeModel -- result -treeRowReferenceGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_row_reference_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - -data TreeRowReferenceGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m) => MethodInfo TreeRowReferenceGetModelMethodInfo TreeRowReference signature where - overloadedMethod _ = treeRowReferenceGetModel - --- method TreeRowReference::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_row_reference_get_path" gtk_tree_row_reference_get_path :: - Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference" - IO (Ptr TreePath) - - -treeRowReferenceGetPath :: - (MonadIO m) => - TreeRowReference -- _obj - -> m (Maybe TreePath) -- result -treeRowReferenceGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_get_path _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed TreePath) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data TreeRowReferenceGetPathMethodInfo -instance (signature ~ (m (Maybe TreePath)), MonadIO m) => MethodInfo TreeRowReferenceGetPathMethodInfo TreeRowReference signature where - overloadedMethod _ = treeRowReferenceGetPath - --- method TreeRowReference::valid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", 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 "gtk_tree_row_reference_valid" gtk_tree_row_reference_valid :: - Ptr TreeRowReference -> -- _obj : TInterface "Gtk" "TreeRowReference" - IO CInt - - -treeRowReferenceValid :: - (MonadIO m) => - TreeRowReference -- _obj - -> m Bool -- result -treeRowReferenceValid _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_valid _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeRowReferenceValidMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreeRowReferenceValidMethodInfo TreeRowReference signature where - overloadedMethod _ = treeRowReferenceValid - --- method TreeRowReference::deleted --- method type : MemberFunction --- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_row_reference_deleted" gtk_tree_row_reference_deleted :: - Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeRowReferenceDeleted :: - (MonadIO m, GObject.ObjectK a) => - a -- proxy - -> TreePath -- path - -> m () -- result -treeRowReferenceDeleted proxy path = liftIO $ do - let proxy' = unsafeManagedPtrCastPtr proxy - let path' = unsafeManagedPtrGetPtr path - gtk_tree_row_reference_deleted proxy' path' - touchManagedPtr proxy - touchManagedPtr path - return () - --- method TreeRowReference::inserted --- method type : MemberFunction --- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", 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 "gtk_tree_row_reference_inserted" gtk_tree_row_reference_inserted :: - Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeRowReferenceInserted :: - (MonadIO m, GObject.ObjectK a) => - a -- proxy - -> TreePath -- path - -> m () -- result -treeRowReferenceInserted proxy path = liftIO $ do - let proxy' = unsafeManagedPtrCastPtr proxy - let path' = unsafeManagedPtrGetPtr path - gtk_tree_row_reference_inserted proxy' path' - touchManagedPtr proxy - touchManagedPtr path - return () - -type family ResolveTreeRowReferenceMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeRowReferenceMethod "copy" o = TreeRowReferenceCopyMethodInfo - ResolveTreeRowReferenceMethod "free" o = TreeRowReferenceFreeMethodInfo - ResolveTreeRowReferenceMethod "valid" o = TreeRowReferenceValidMethodInfo - ResolveTreeRowReferenceMethod "getModel" o = TreeRowReferenceGetModelMethodInfo - ResolveTreeRowReferenceMethod "getPath" o = TreeRowReferenceGetPathMethodInfo - ResolveTreeRowReferenceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeRowReferenceMethod t TreeRowReference, MethodInfo info TreeRowReference p) => IsLabelProxy t (TreeRowReference -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeRowReferenceMethod t TreeRowReference, MethodInfo info TreeRowReference p) => IsLabel t (TreeRowReference -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/TreeRowReference.hs-boot b/GI/Gtk/Structs/TreeRowReference.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/TreeRowReference.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gtk.Structs.TreeRowReference 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 TreeRowReference = TreeRowReference (ForeignPtr TreeRowReference) -instance BoxedObject TreeRowReference where -data TreeRowReferenceCopyMethodInfo -data TreeRowReferenceFreeMethodInfo -data TreeRowReferenceGetModelMethodInfo -data TreeRowReferenceGetPathMethodInfo -data TreeRowReferenceValidMethodInfo diff --git a/GI/Gtk/Structs/WidgetPath.hs b/GI/Gtk/Structs/WidgetPath.hs deleted file mode 100644 --- a/GI/Gtk/Structs/WidgetPath.hs +++ /dev/null @@ -1,1436 +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) - -GtkWidgetPath is a boxed type that represents a widget hierarchy from -the topmost widget, typically a toplevel, to any child. This widget -path abstraction is used in #GtkStyleContext on behalf of the real -widget in order to query style information. - -If you are using GTK+ widgets, you probably will not need to use -this API directly, as there is gtk_widget_get_path(), and the style -context returned by gtk_widget_get_style_context() will be automatically -updated on widget hierarchy changes. - -The widget path generation is generally simple: - -## Defining a button within a window - -|[ -{ - GtkWidgetPath *path; - - path = gtk_widget_path_new (); - gtk_widget_path_append_type (path, GTK_TYPE_WINDOW); - gtk_widget_path_append_type (path, GTK_TYPE_BUTTON); -} -]| - -Although more complex information, such as widget names, or -different classes (property that may be used by other widget -types) and intermediate regions may be included: - -## Defining the first tab widget in a notebook - -|[ -{ - GtkWidgetPath *path; - guint pos; - - path = gtk_widget_path_new (); - - pos = gtk_widget_path_append_type (path, GTK_TYPE_NOTEBOOK); - gtk_widget_path_iter_add_region (path, pos, "tab", GTK_REGION_EVEN | GTK_REGION_FIRST); - - pos = gtk_widget_path_append_type (path, GTK_TYPE_LABEL); - gtk_widget_path_iter_set_name (path, pos, "first tab label"); -} -]| - -All this information will be used to match the style information -that applies to the described widget. --} - -module GI.Gtk.Structs.WidgetPath - ( - --- * Exported types - WidgetPath(..) , - noWidgetPath , - - - -- * Methods --- ** widgetPathAppendForWidget - WidgetPathAppendForWidgetMethodInfo , - widgetPathAppendForWidget , - - --- ** widgetPathAppendType - WidgetPathAppendTypeMethodInfo , - widgetPathAppendType , - - --- ** widgetPathAppendWithSiblings - WidgetPathAppendWithSiblingsMethodInfo , - widgetPathAppendWithSiblings , - - --- ** widgetPathCopy - WidgetPathCopyMethodInfo , - widgetPathCopy , - - --- ** widgetPathFree - WidgetPathFreeMethodInfo , - widgetPathFree , - - --- ** widgetPathGetObjectType - WidgetPathGetObjectTypeMethodInfo , - widgetPathGetObjectType , - - --- ** widgetPathHasParent - WidgetPathHasParentMethodInfo , - widgetPathHasParent , - - --- ** widgetPathIsType - WidgetPathIsTypeMethodInfo , - widgetPathIsType , - - --- ** widgetPathIterAddClass - WidgetPathIterAddClassMethodInfo , - widgetPathIterAddClass , - - --- ** widgetPathIterAddRegion - WidgetPathIterAddRegionMethodInfo , - widgetPathIterAddRegion , - - --- ** widgetPathIterClearClasses - WidgetPathIterClearClassesMethodInfo , - widgetPathIterClearClasses , - - --- ** widgetPathIterClearRegions - WidgetPathIterClearRegionsMethodInfo , - widgetPathIterClearRegions , - - --- ** widgetPathIterGetName - WidgetPathIterGetNameMethodInfo , - widgetPathIterGetName , - - --- ** widgetPathIterGetObjectType - WidgetPathIterGetObjectTypeMethodInfo , - widgetPathIterGetObjectType , - - --- ** widgetPathIterGetSiblingIndex - WidgetPathIterGetSiblingIndexMethodInfo , - widgetPathIterGetSiblingIndex , - - --- ** widgetPathIterGetSiblings - WidgetPathIterGetSiblingsMethodInfo , - widgetPathIterGetSiblings , - - --- ** widgetPathIterGetState - WidgetPathIterGetStateMethodInfo , - widgetPathIterGetState , - - --- ** widgetPathIterHasClass - WidgetPathIterHasClassMethodInfo , - widgetPathIterHasClass , - - --- ** widgetPathIterHasName - WidgetPathIterHasNameMethodInfo , - widgetPathIterHasName , - - --- ** widgetPathIterHasQclass - WidgetPathIterHasQclassMethodInfo , - widgetPathIterHasQclass , - - --- ** widgetPathIterHasQname - WidgetPathIterHasQnameMethodInfo , - widgetPathIterHasQname , - - --- ** widgetPathIterHasQregion - WidgetPathIterHasQregionMethodInfo , - widgetPathIterHasQregion , - - --- ** widgetPathIterHasRegion - WidgetPathIterHasRegionMethodInfo , - widgetPathIterHasRegion , - - --- ** widgetPathIterListClasses - WidgetPathIterListClassesMethodInfo , - widgetPathIterListClasses , - - --- ** widgetPathIterListRegions - WidgetPathIterListRegionsMethodInfo , - widgetPathIterListRegions , - - --- ** widgetPathIterRemoveClass - WidgetPathIterRemoveClassMethodInfo , - widgetPathIterRemoveClass , - - --- ** widgetPathIterRemoveRegion - WidgetPathIterRemoveRegionMethodInfo , - widgetPathIterRemoveRegion , - - --- ** widgetPathIterSetName - WidgetPathIterSetNameMethodInfo , - widgetPathIterSetName , - - --- ** widgetPathIterSetObjectType - WidgetPathIterSetObjectTypeMethodInfo , - widgetPathIterSetObjectType , - - --- ** widgetPathIterSetState - WidgetPathIterSetStateMethodInfo , - widgetPathIterSetState , - - --- ** widgetPathLength - WidgetPathLengthMethodInfo , - widgetPathLength , - - --- ** widgetPathNew - widgetPathNew , - - --- ** widgetPathPrependType - WidgetPathPrependTypeMethodInfo , - widgetPathPrependType , - - --- ** widgetPathRef - WidgetPathRefMethodInfo , - widgetPathRef , - - --- ** widgetPathToString - WidgetPathToStringMethodInfo , - widgetPathToString , - - --- ** widgetPathUnref - WidgetPathUnrefMethodInfo , - widgetPathUnref , - - - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath) -foreign import ccall "gtk_widget_path_get_type" c_gtk_widget_path_get_type :: - IO GType - -instance BoxedObject WidgetPath where - boxedType _ = c_gtk_widget_path_get_type - -noWidgetPath :: Maybe WidgetPath -noWidgetPath = Nothing - - -type instance AttributeList WidgetPath = WidgetPathAttributeList -type WidgetPathAttributeList = ('[ ] :: [(Symbol, *)]) - --- method WidgetPath::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_new" gtk_widget_path_new :: - IO (Ptr WidgetPath) - - -widgetPathNew :: - (MonadIO m) => - m WidgetPath -- result -widgetPathNew = liftIO $ do - result <- gtk_widget_path_new - checkUnexpectedReturnNULL "gtk_widget_path_new" result - result' <- (wrapBoxed WidgetPath) result - return result' - --- method WidgetPath::append_for_widget --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_path_append_for_widget" gtk_widget_path_append_for_widget :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO Int32 - - -widgetPathAppendForWidget :: - (MonadIO m, WidgetK a) => - WidgetPath -- _obj - -> a -- widget - -> m Int32 -- result -widgetPathAppendForWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_widget_path_append_for_widget _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return result - -data WidgetPathAppendForWidgetMethodInfo -instance (signature ~ (a -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetPathAppendForWidgetMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathAppendForWidget - --- method WidgetPath::append_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 TInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_append_type" gtk_widget_path_append_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO Int32 - - -widgetPathAppendType :: - (MonadIO m) => - WidgetPath -- _obj - -> GType -- type_ - -> m Int32 -- result -widgetPathAppendType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_append_type _obj' type_' - touchManagedPtr _obj - return result - -data WidgetPathAppendTypeMethodInfo -instance (signature ~ (GType -> m Int32), MonadIO m) => MethodInfo WidgetPathAppendTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathAppendType - --- method WidgetPath::append_with_siblings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling_index", argType = TBasicType TUInt, 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 "gtk_widget_path_append_with_siblings" gtk_widget_path_append_with_siblings :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Ptr WidgetPath -> -- siblings : TInterface "Gtk" "WidgetPath" - Word32 -> -- sibling_index : TBasicType TUInt - IO Int32 - - -widgetPathAppendWithSiblings :: - (MonadIO m) => - WidgetPath -- _obj - -> WidgetPath -- siblings - -> Word32 -- siblingIndex - -> m Int32 -- result -widgetPathAppendWithSiblings _obj siblings siblingIndex = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let siblings' = unsafeManagedPtrGetPtr siblings - result <- gtk_widget_path_append_with_siblings _obj' siblings' siblingIndex - touchManagedPtr _obj - touchManagedPtr siblings - return result - -data WidgetPathAppendWithSiblingsMethodInfo -instance (signature ~ (WidgetPath -> Word32 -> m Int32), MonadIO m) => MethodInfo WidgetPathAppendWithSiblingsMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathAppendWithSiblings - --- method WidgetPath::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_copy" gtk_widget_path_copy :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO (Ptr WidgetPath) - - -widgetPathCopy :: - (MonadIO m) => - WidgetPath -- _obj - -> m WidgetPath -- result -widgetPathCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_copy _obj' - checkUnexpectedReturnNULL "gtk_widget_path_copy" result - result' <- (wrapBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data WidgetPathCopyMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m) => MethodInfo WidgetPathCopyMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathCopy - --- method WidgetPath::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_widget_path_free" gtk_widget_path_free :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO () - - -widgetPathFree :: - (MonadIO m) => - WidgetPath -- _obj - -> m () -- result -widgetPathFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_free _obj' - touchManagedPtr _obj - return () - -data WidgetPathFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo WidgetPathFreeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathFree - --- method WidgetPath::get_object_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_widget_path_get_object_type" gtk_widget_path_get_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO CGType - - -widgetPathGetObjectType :: - (MonadIO m) => - WidgetPath -- _obj - -> m GType -- result -widgetPathGetObjectType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_get_object_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data WidgetPathGetObjectTypeMethodInfo -instance (signature ~ (m GType), MonadIO m) => MethodInfo WidgetPathGetObjectTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathGetObjectType - --- method WidgetPath::has_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_has_parent" gtk_widget_path_has_parent :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO CInt - - -widgetPathHasParent :: - (MonadIO m) => - WidgetPath -- _obj - -> GType -- type_ - -> m Bool -- result -widgetPathHasParent _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_has_parent _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetPathHasParentMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m) => MethodInfo WidgetPathHasParentMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathHasParent - --- method WidgetPath::is_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_is_type" gtk_widget_path_is_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO CInt - - -widgetPathIsType :: - (MonadIO m) => - WidgetPath -- _obj - -> GType -- type_ - -> m Bool -- result -widgetPathIsType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_is_type _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetPathIsTypeMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m) => MethodInfo WidgetPathIsTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIsType - --- method WidgetPath::iter_add_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 "gtk_widget_path_iter_add_class" gtk_widget_path_iter_add_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterAddClass :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m () -- result -widgetPathIterAddClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_add_class _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetPathIterAddClassMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterAddClassMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterAddClass - --- method WidgetPath::iter_add_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_widget_path_iter_add_region" gtk_widget_path_iter_add_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO () - -{-# DEPRECATED widgetPathIterAddRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterAddRegion :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> [RegionFlags] -- flags - -> m () -- result -widgetPathIterAddRegion _obj pos name flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - let flags' = gflagsToWord flags - gtk_widget_path_iter_add_region _obj' pos name' flags' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetPathIterAddRegionMethodInfo -instance (signature ~ (Int32 -> T.Text -> [RegionFlags] -> m ()), MonadIO m) => MethodInfo WidgetPathIterAddRegionMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterAddRegion - --- method WidgetPath::iter_clear_classes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_widget_path_iter_clear_classes" gtk_widget_path_iter_clear_classes :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO () - - -widgetPathIterClearClasses :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m () -- result -widgetPathIterClearClasses _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_iter_clear_classes _obj' pos - touchManagedPtr _obj - return () - -data WidgetPathIterClearClassesMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo WidgetPathIterClearClassesMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterClearClasses - --- method WidgetPath::iter_clear_regions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "gtk_widget_path_iter_clear_regions" gtk_widget_path_iter_clear_regions :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO () - -{-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterClearRegions :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m () -- result -widgetPathIterClearRegions _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_iter_clear_regions _obj' pos - touchManagedPtr _obj - return () - -data WidgetPathIterClearRegionsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo WidgetPathIterClearRegionsMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterClearRegions - --- method WidgetPath::iter_get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", 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 "gtk_widget_path_iter_get_name" gtk_widget_path_iter_get_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO CString - - -widgetPathIterGetName :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m T.Text -- result -widgetPathIterGetName _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_name _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WidgetPathIterGetNameMethodInfo -instance (signature ~ (Int32 -> m T.Text), MonadIO m) => MethodInfo WidgetPathIterGetNameMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterGetName - --- method WidgetPath::iter_get_object_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 "gtk_widget_path_iter_get_object_type" gtk_widget_path_iter_get_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO CGType - - -widgetPathIterGetObjectType :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m GType -- result -widgetPathIterGetObjectType _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_object_type _obj' pos - let result' = GType result - touchManagedPtr _obj - return result' - -data WidgetPathIterGetObjectTypeMethodInfo -instance (signature ~ (Int32 -> m GType), MonadIO m) => MethodInfo WidgetPathIterGetObjectTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterGetObjectType - --- method WidgetPath::iter_get_sibling_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_sibling_index" gtk_widget_path_iter_get_sibling_index :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO Word32 - - -widgetPathIterGetSiblingIndex :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m Word32 -- result -widgetPathIterGetSiblingIndex _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_sibling_index _obj' pos - touchManagedPtr _obj - return result - -data WidgetPathIterGetSiblingIndexMethodInfo -instance (signature ~ (Int32 -> m Word32), MonadIO m) => MethodInfo WidgetPathIterGetSiblingIndexMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterGetSiblingIndex - --- method WidgetPath::iter_get_siblings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_siblings" gtk_widget_path_iter_get_siblings :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO (Ptr WidgetPath) - - -widgetPathIterGetSiblings :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m WidgetPath -- result -widgetPathIterGetSiblings _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_siblings _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_get_siblings" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data WidgetPathIterGetSiblingsMethodInfo -instance (signature ~ (Int32 -> m WidgetPath), MonadIO m) => MethodInfo WidgetPathIterGetSiblingsMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterGetSiblings - --- method WidgetPath::iter_get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "StateFlags") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_state" gtk_widget_path_iter_get_state :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO CUInt - - -widgetPathIterGetState :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m [StateFlags] -- result -widgetPathIterGetState _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_state _obj' pos - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WidgetPathIterGetStateMethodInfo -instance (signature ~ (Int32 -> m [StateFlags]), MonadIO m) => MethodInfo WidgetPathIterGetStateMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterGetState - --- method WidgetPath::iter_has_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_class" gtk_widget_path_iter_has_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO CInt - - -widgetPathIterHasClass :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m Bool -- result -widgetPathIterHasClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- gtk_widget_path_iter_has_class _obj' pos name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - -data WidgetPathIterHasClassMethodInfo -instance (signature ~ (Int32 -> T.Text -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasClassMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasClass - --- method WidgetPath::iter_has_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_name" gtk_widget_path_iter_has_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO CInt - - -widgetPathIterHasName :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m Bool -- result -widgetPathIterHasName _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- gtk_widget_path_iter_has_name _obj' pos name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - -data WidgetPathIterHasNameMethodInfo -instance (signature ~ (Int32 -> T.Text -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasNameMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasName - --- method WidgetPath::iter_has_qclass --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, 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 "gtk_widget_path_iter_has_qclass" gtk_widget_path_iter_has_qclass :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - Word32 -> -- qname : TBasicType TUInt32 - IO CInt - - -widgetPathIterHasQclass :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> Word32 -- qname - -> m Bool -- result -widgetPathIterHasQclass _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_has_qclass _obj' pos qname - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetPathIterHasQclassMethodInfo -instance (signature ~ (Int32 -> Word32 -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasQclassMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasQclass - --- method WidgetPath::iter_has_qname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, 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 "gtk_widget_path_iter_has_qname" gtk_widget_path_iter_has_qname :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - Word32 -> -- qname : TBasicType TUInt32 - IO CInt - - -widgetPathIterHasQname :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> Word32 -- qname - -> m Bool -- result -widgetPathIterHasQname _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_has_qname _obj' pos qname - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetPathIterHasQnameMethodInfo -instance (signature ~ (Int32 -> Word32 -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasQnameMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasQname - --- method WidgetPath::iter_has_qregion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_widget_path_iter_has_qregion" gtk_widget_path_iter_has_qregion :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - Word32 -> -- qname : TBasicType TUInt32 - Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED widgetPathIterHasQregion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterHasQregion :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> Word32 -- qname - -> m (Bool,[RegionFlags]) -- result -widgetPathIterHasQregion _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_widget_path_iter_has_qregion _obj' pos qname flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem flags - return (result', flags'') - -data WidgetPathIterHasQregionMethodInfo -instance (signature ~ (Int32 -> Word32 -> m (Bool,[RegionFlags])), MonadIO m) => MethodInfo WidgetPathIterHasQregionMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasQregion - --- method WidgetPath::iter_has_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", 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 "gtk_widget_path_iter_has_region" gtk_widget_path_iter_has_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED widgetPathIterHasRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterHasRegion :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m (Bool,[RegionFlags]) -- result -widgetPathIterHasRegion _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_widget_path_iter_has_region _obj' pos name' flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem name' - freeMem flags - return (result', flags'') - -data WidgetPathIterHasRegionMethodInfo -instance (signature ~ (Int32 -> T.Text -> m (Bool,[RegionFlags])), MonadIO m) => MethodInfo WidgetPathIterHasRegionMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterHasRegion - --- method WidgetPath::iter_list_classes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_list_classes" gtk_widget_path_iter_list_classes :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO (Ptr (GSList CString)) - - -widgetPathIterListClasses :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m [T.Text] -- result -widgetPathIterListClasses _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_list_classes _obj' pos - result' <- unpackGSList result - result'' <- mapM cstringToText result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data WidgetPathIterListClassesMethodInfo -instance (signature ~ (Int32 -> m [T.Text]), MonadIO m) => MethodInfo WidgetPathIterListClassesMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterListClasses - --- method WidgetPath::iter_list_regions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_list_regions" gtk_widget_path_iter_list_regions :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - IO (Ptr (GSList CString)) - -{-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterListRegions :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> m [T.Text] -- result -widgetPathIterListRegions _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_list_regions _obj' pos - result' <- unpackGSList result - result'' <- mapM cstringToText result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data WidgetPathIterListRegionsMethodInfo -instance (signature ~ (Int32 -> m [T.Text]), MonadIO m) => MethodInfo WidgetPathIterListRegionsMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterListRegions - --- method WidgetPath::iter_remove_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 "gtk_widget_path_iter_remove_class" gtk_widget_path_iter_remove_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterRemoveClass :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m () -- result -widgetPathIterRemoveClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_remove_class _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetPathIterRemoveClassMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterRemoveClassMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterRemoveClass - --- method WidgetPath::iter_remove_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 "gtk_widget_path_iter_remove_region" gtk_widget_path_iter_remove_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetPathIterRemoveRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterRemoveRegion :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m () -- result -widgetPathIterRemoveRegion _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_remove_region _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetPathIterRemoveRegionMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterRemoveRegionMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterRemoveRegion - --- method WidgetPath::iter_set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 "gtk_widget_path_iter_set_name" gtk_widget_path_iter_set_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterSetName :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> T.Text -- name - -> m () -- result -widgetPathIterSetName _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_set_name _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetPathIterSetNameMethodInfo -instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetNameMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterSetName - --- method WidgetPath::iter_set_object_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_set_object_type" gtk_widget_path_iter_set_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CGType -> -- type : TBasicType TGType - IO () - - -widgetPathIterSetObjectType :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> GType -- type_ - -> m () -- result -widgetPathIterSetObjectType _obj pos type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - gtk_widget_path_iter_set_object_type _obj' pos type_' - touchManagedPtr _obj - return () - -data WidgetPathIterSetObjectTypeMethodInfo -instance (signature ~ (Int32 -> GType -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetObjectTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterSetObjectType - --- method WidgetPath::iter_set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", 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 "gtk_widget_path_iter_set_state" gtk_widget_path_iter_set_state :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt - CUInt -> -- state : TInterface "Gtk" "StateFlags" - IO () - - -widgetPathIterSetState :: - (MonadIO m) => - WidgetPath -- _obj - -> Int32 -- pos - -> [StateFlags] -- state - -> m () -- result -widgetPathIterSetState _obj pos state = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let state' = gflagsToWord state - gtk_widget_path_iter_set_state _obj' pos state' - touchManagedPtr _obj - return () - -data WidgetPathIterSetStateMethodInfo -instance (signature ~ (Int32 -> [StateFlags] -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetStateMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathIterSetState - --- method WidgetPath::length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_widget_path_length" gtk_widget_path_length :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO Int32 - - -widgetPathLength :: - (MonadIO m) => - WidgetPath -- _obj - -> m Int32 -- result -widgetPathLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_length _obj' - touchManagedPtr _obj - return result - -data WidgetPathLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo WidgetPathLengthMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathLength - --- method WidgetPath::prepend_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_prepend_type" gtk_widget_path_prepend_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO () - - -widgetPathPrependType :: - (MonadIO m) => - WidgetPath -- _obj - -> GType -- type_ - -> m () -- result -widgetPathPrependType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - gtk_widget_path_prepend_type _obj' type_' - touchManagedPtr _obj - return () - -data WidgetPathPrependTypeMethodInfo -instance (signature ~ (GType -> m ()), MonadIO m) => MethodInfo WidgetPathPrependTypeMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathPrependType - --- method WidgetPath::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "WidgetPath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_ref" gtk_widget_path_ref :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO (Ptr WidgetPath) - - -widgetPathRef :: - (MonadIO m) => - WidgetPath -- _obj - -> m WidgetPath -- result -widgetPathRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_ref _obj' - checkUnexpectedReturnNULL "gtk_widget_path_ref" result - result' <- (wrapBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data WidgetPathRefMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m) => MethodInfo WidgetPathRefMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathRef - --- method WidgetPath::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_widget_path_to_string" gtk_widget_path_to_string :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO CString - - -widgetPathToString :: - (MonadIO m) => - WidgetPath -- _obj - -> m T.Text -- result -widgetPathToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_to_string _obj' - checkUnexpectedReturnNULL "gtk_widget_path_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetPathToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo WidgetPathToStringMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathToString - --- method WidgetPath::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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 "gtk_widget_path_unref" gtk_widget_path_unref :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO () - - -widgetPathUnref :: - (MonadIO m) => - WidgetPath -- _obj - -> m () -- result -widgetPathUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_unref _obj' - touchManagedPtr _obj - return () - -data WidgetPathUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo WidgetPathUnrefMethodInfo WidgetPath signature where - overloadedMethod _ = widgetPathUnref - -type family ResolveWidgetPathMethod (t :: Symbol) (o :: *) :: * where - ResolveWidgetPathMethod "appendForWidget" o = WidgetPathAppendForWidgetMethodInfo - ResolveWidgetPathMethod "appendType" o = WidgetPathAppendTypeMethodInfo - ResolveWidgetPathMethod "appendWithSiblings" o = WidgetPathAppendWithSiblingsMethodInfo - ResolveWidgetPathMethod "copy" o = WidgetPathCopyMethodInfo - ResolveWidgetPathMethod "free" o = WidgetPathFreeMethodInfo - ResolveWidgetPathMethod "hasParent" o = WidgetPathHasParentMethodInfo - ResolveWidgetPathMethod "isType" o = WidgetPathIsTypeMethodInfo - ResolveWidgetPathMethod "iterAddClass" o = WidgetPathIterAddClassMethodInfo - ResolveWidgetPathMethod "iterAddRegion" o = WidgetPathIterAddRegionMethodInfo - ResolveWidgetPathMethod "iterClearClasses" o = WidgetPathIterClearClassesMethodInfo - ResolveWidgetPathMethod "iterClearRegions" o = WidgetPathIterClearRegionsMethodInfo - ResolveWidgetPathMethod "iterGetName" o = WidgetPathIterGetNameMethodInfo - ResolveWidgetPathMethod "iterGetObjectType" o = WidgetPathIterGetObjectTypeMethodInfo - ResolveWidgetPathMethod "iterGetSiblingIndex" o = WidgetPathIterGetSiblingIndexMethodInfo - ResolveWidgetPathMethod "iterGetSiblings" o = WidgetPathIterGetSiblingsMethodInfo - ResolveWidgetPathMethod "iterGetState" o = WidgetPathIterGetStateMethodInfo - ResolveWidgetPathMethod "iterHasClass" o = WidgetPathIterHasClassMethodInfo - ResolveWidgetPathMethod "iterHasName" o = WidgetPathIterHasNameMethodInfo - ResolveWidgetPathMethod "iterHasQclass" o = WidgetPathIterHasQclassMethodInfo - ResolveWidgetPathMethod "iterHasQname" o = WidgetPathIterHasQnameMethodInfo - ResolveWidgetPathMethod "iterHasQregion" o = WidgetPathIterHasQregionMethodInfo - ResolveWidgetPathMethod "iterHasRegion" o = WidgetPathIterHasRegionMethodInfo - ResolveWidgetPathMethod "iterListClasses" o = WidgetPathIterListClassesMethodInfo - ResolveWidgetPathMethod "iterListRegions" o = WidgetPathIterListRegionsMethodInfo - ResolveWidgetPathMethod "iterRemoveClass" o = WidgetPathIterRemoveClassMethodInfo - ResolveWidgetPathMethod "iterRemoveRegion" o = WidgetPathIterRemoveRegionMethodInfo - ResolveWidgetPathMethod "iterSetName" o = WidgetPathIterSetNameMethodInfo - ResolveWidgetPathMethod "iterSetObjectType" o = WidgetPathIterSetObjectTypeMethodInfo - ResolveWidgetPathMethod "iterSetState" o = WidgetPathIterSetStateMethodInfo - ResolveWidgetPathMethod "length" o = WidgetPathLengthMethodInfo - ResolveWidgetPathMethod "prependType" o = WidgetPathPrependTypeMethodInfo - ResolveWidgetPathMethod "ref" o = WidgetPathRefMethodInfo - ResolveWidgetPathMethod "toString" o = WidgetPathToStringMethodInfo - ResolveWidgetPathMethod "unref" o = WidgetPathUnrefMethodInfo - ResolveWidgetPathMethod "getObjectType" o = WidgetPathGetObjectTypeMethodInfo - ResolveWidgetPathMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWidgetPathMethod t WidgetPath, MethodInfo info WidgetPath p) => IsLabelProxy t (WidgetPath -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWidgetPathMethod t WidgetPath, MethodInfo info WidgetPath p) => IsLabel t (WidgetPath -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/WidgetPath.hs-boot b/GI/Gtk/Structs/WidgetPath.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/WidgetPath.hs-boot +++ /dev/null @@ -1,46 +0,0 @@ -module GI.Gtk.Structs.WidgetPath 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 WidgetPath = WidgetPath (ForeignPtr WidgetPath) -instance BoxedObject WidgetPath where -data WidgetPathAppendForWidgetMethodInfo -data WidgetPathAppendTypeMethodInfo -data WidgetPathAppendWithSiblingsMethodInfo -data WidgetPathCopyMethodInfo -data WidgetPathFreeMethodInfo -data WidgetPathGetObjectTypeMethodInfo -data WidgetPathHasParentMethodInfo -data WidgetPathIsTypeMethodInfo -data WidgetPathIterAddClassMethodInfo -data WidgetPathIterAddRegionMethodInfo -data WidgetPathIterClearClassesMethodInfo -data WidgetPathIterClearRegionsMethodInfo -data WidgetPathIterGetNameMethodInfo -data WidgetPathIterGetObjectTypeMethodInfo -data WidgetPathIterGetSiblingIndexMethodInfo -data WidgetPathIterGetSiblingsMethodInfo -data WidgetPathIterGetStateMethodInfo -data WidgetPathIterHasClassMethodInfo -data WidgetPathIterHasNameMethodInfo -data WidgetPathIterHasQclassMethodInfo -data WidgetPathIterHasQnameMethodInfo -data WidgetPathIterHasQregionMethodInfo -data WidgetPathIterHasRegionMethodInfo -data WidgetPathIterListClassesMethodInfo -data WidgetPathIterListRegionsMethodInfo -data WidgetPathIterRemoveClassMethodInfo -data WidgetPathIterRemoveRegionMethodInfo -data WidgetPathIterSetNameMethodInfo -data WidgetPathIterSetObjectTypeMethodInfo -data WidgetPathIterSetStateMethodInfo -data WidgetPathLengthMethodInfo -data WidgetPathPrependTypeMethodInfo -data WidgetPathRefMethodInfo -data WidgetPathToStringMethodInfo -data WidgetPathUnrefMethodInfo diff --git a/GI/Gtk/Structs/WindowGeometryInfo.hs b/GI/Gtk/Structs/WindowGeometryInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/WindowGeometryInfo.hs +++ /dev/null @@ -1,54 +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.Gtk.Structs.WindowGeometryInfo - ( - --- * Exported types - WindowGeometryInfo(..) , - noWindowGeometryInfo , - - - ) 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.Gtk.Types -import GI.Gtk.Callbacks - -newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr WindowGeometryInfo where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noWindowGeometryInfo :: Maybe WindowGeometryInfo -noWindowGeometryInfo = Nothing - - -type instance AttributeList WindowGeometryInfo = WindowGeometryInfoAttributeList -type WindowGeometryInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveWindowGeometryInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowGeometryInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowGeometryInfoMethod t WindowGeometryInfo, MethodInfo info WindowGeometryInfo p) => IsLabelProxy t (WindowGeometryInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowGeometryInfoMethod t WindowGeometryInfo, MethodInfo info WindowGeometryInfo p) => IsLabel t (WindowGeometryInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gtk/Structs/WindowGeometryInfo.hs-boot b/GI/Gtk/Structs/WindowGeometryInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/WindowGeometryInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gtk.Structs.WindowGeometryInfo 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 WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) -instance WrappedPtr WindowGeometryInfo where diff --git a/GI/Gtk/Types.hs b/GI/Gtk/Types.hs deleted file mode 100644 --- a/GI/Gtk/Types.hs +++ /dev/null @@ -1,656 +0,0 @@ -module GI.Gtk.Types - ( module GI.Gtk.Interfaces.Actionable , - module GI.Gtk.Interfaces.Activatable , - module GI.Gtk.Interfaces.AppChooser , - module GI.Gtk.Interfaces.Buildable , - module GI.Gtk.Interfaces.CellAccessibleParent, - module GI.Gtk.Interfaces.CellEditable , - module GI.Gtk.Interfaces.CellLayout , - module GI.Gtk.Interfaces.ColorChooser , - module GI.Gtk.Interfaces.Editable , - module GI.Gtk.Interfaces.FileChooser , - module GI.Gtk.Interfaces.FontChooser , - module GI.Gtk.Interfaces.Orientable , - module GI.Gtk.Interfaces.PrintOperationPreview, - module GI.Gtk.Interfaces.RecentChooser , - module GI.Gtk.Interfaces.Scrollable , - module GI.Gtk.Interfaces.StyleProvider , - module GI.Gtk.Interfaces.ToolShell , - module GI.Gtk.Interfaces.TreeDragDest , - module GI.Gtk.Interfaces.TreeDragSource , - module GI.Gtk.Interfaces.TreeModel , - module GI.Gtk.Interfaces.TreeSortable , - module GI.Gtk.Objects.AboutDialog , - module GI.Gtk.Objects.AccelGroup , - module GI.Gtk.Objects.AccelLabel , - module GI.Gtk.Objects.AccelMap , - module GI.Gtk.Objects.Accessible , - module GI.Gtk.Objects.Action , - module GI.Gtk.Objects.ActionBar , - module GI.Gtk.Objects.ActionGroup , - module GI.Gtk.Objects.Adjustment , - module GI.Gtk.Objects.Alignment , - module GI.Gtk.Objects.AppChooserButton , - module GI.Gtk.Objects.AppChooserDialog , - module GI.Gtk.Objects.AppChooserWidget , - module GI.Gtk.Objects.Application , - module GI.Gtk.Objects.ApplicationWindow , - module GI.Gtk.Objects.Arrow , - module GI.Gtk.Objects.ArrowAccessible , - module GI.Gtk.Objects.AspectFrame , - module GI.Gtk.Objects.Assistant , - module GI.Gtk.Objects.Bin , - module GI.Gtk.Objects.BooleanCellAccessible, - module GI.Gtk.Objects.Box , - module GI.Gtk.Objects.Builder , - module GI.Gtk.Objects.Button , - module GI.Gtk.Objects.ButtonAccessible , - module GI.Gtk.Objects.ButtonBox , - module GI.Gtk.Objects.Calendar , - module GI.Gtk.Objects.CellAccessible , - module GI.Gtk.Objects.CellArea , - module GI.Gtk.Objects.CellAreaBox , - module GI.Gtk.Objects.CellAreaContext , - module GI.Gtk.Objects.CellRenderer , - module GI.Gtk.Objects.CellRendererAccel , - module GI.Gtk.Objects.CellRendererCombo , - module GI.Gtk.Objects.CellRendererPixbuf, - module GI.Gtk.Objects.CellRendererProgress, - module GI.Gtk.Objects.CellRendererSpin , - module GI.Gtk.Objects.CellRendererSpinner, - module GI.Gtk.Objects.CellRendererText , - module GI.Gtk.Objects.CellRendererToggle, - module GI.Gtk.Objects.CellView , - module GI.Gtk.Objects.CheckButton , - module GI.Gtk.Objects.CheckMenuItem , - module GI.Gtk.Objects.CheckMenuItemAccessible, - module GI.Gtk.Objects.Clipboard , - module GI.Gtk.Objects.ColorButton , - module GI.Gtk.Objects.ColorChooserDialog, - module GI.Gtk.Objects.ColorChooserWidget, - module GI.Gtk.Objects.ColorSelection , - module GI.Gtk.Objects.ColorSelectionDialog, - module GI.Gtk.Objects.ComboBox , - module GI.Gtk.Objects.ComboBoxAccessible, - module GI.Gtk.Objects.ComboBoxText , - module GI.Gtk.Objects.Container , - module GI.Gtk.Objects.ContainerAccessible, - module GI.Gtk.Objects.ContainerCellAccessible, - module GI.Gtk.Objects.CssProvider , - module GI.Gtk.Objects.Dialog , - module GI.Gtk.Objects.DrawingArea , - module GI.Gtk.Objects.Entry , - module GI.Gtk.Objects.EntryAccessible , - module GI.Gtk.Objects.EntryBuffer , - module GI.Gtk.Objects.EntryCompletion , - module GI.Gtk.Objects.EntryIconAccessible, - module GI.Gtk.Objects.EventBox , - module GI.Gtk.Objects.EventController , - module GI.Gtk.Objects.Expander , - module GI.Gtk.Objects.ExpanderAccessible, - module GI.Gtk.Objects.FileChooserButton , - module GI.Gtk.Objects.FileChooserDialog , - module GI.Gtk.Objects.FileChooserWidget , - module GI.Gtk.Objects.FileFilter , - module GI.Gtk.Objects.Fixed , - module GI.Gtk.Objects.FlowBox , - module GI.Gtk.Objects.FlowBoxAccessible , - module GI.Gtk.Objects.FlowBoxChild , - module GI.Gtk.Objects.FlowBoxChildAccessible, - module GI.Gtk.Objects.FontButton , - module GI.Gtk.Objects.FontChooserDialog , - module GI.Gtk.Objects.FontChooserWidget , - module GI.Gtk.Objects.FontSelection , - module GI.Gtk.Objects.FontSelectionDialog, - module GI.Gtk.Objects.Frame , - module GI.Gtk.Objects.FrameAccessible , - module GI.Gtk.Objects.GLArea , - module GI.Gtk.Objects.Gesture , - module GI.Gtk.Objects.GestureDrag , - module GI.Gtk.Objects.GestureLongPress , - module GI.Gtk.Objects.GestureMultiPress , - module GI.Gtk.Objects.GesturePan , - module GI.Gtk.Objects.GestureRotate , - module GI.Gtk.Objects.GestureSingle , - module GI.Gtk.Objects.GestureSwipe , - module GI.Gtk.Objects.GestureZoom , - module GI.Gtk.Objects.Grid , - module GI.Gtk.Objects.HBox , - module GI.Gtk.Objects.HButtonBox , - module GI.Gtk.Objects.HPaned , - module GI.Gtk.Objects.HSV , - module GI.Gtk.Objects.HScale , - module GI.Gtk.Objects.HScrollbar , - module GI.Gtk.Objects.HSeparator , - module GI.Gtk.Objects.HandleBox , - module GI.Gtk.Objects.HeaderBar , - module GI.Gtk.Objects.IMContext , - module GI.Gtk.Objects.IMContextSimple , - module GI.Gtk.Objects.IMMulticontext , - module GI.Gtk.Objects.IconFactory , - module GI.Gtk.Objects.IconInfo , - module GI.Gtk.Objects.IconTheme , - module GI.Gtk.Objects.IconView , - module GI.Gtk.Objects.IconViewAccessible, - module GI.Gtk.Objects.Image , - module GI.Gtk.Objects.ImageAccessible , - module GI.Gtk.Objects.ImageCellAccessible, - module GI.Gtk.Objects.ImageMenuItem , - module GI.Gtk.Objects.InfoBar , - module GI.Gtk.Objects.Invisible , - module GI.Gtk.Objects.Label , - module GI.Gtk.Objects.LabelAccessible , - module GI.Gtk.Objects.Layout , - module GI.Gtk.Objects.LevelBar , - module GI.Gtk.Objects.LevelBarAccessible, - module GI.Gtk.Objects.LinkButton , - module GI.Gtk.Objects.LinkButtonAccessible, - module GI.Gtk.Objects.ListBox , - module GI.Gtk.Objects.ListBoxAccessible , - module GI.Gtk.Objects.ListBoxRow , - module GI.Gtk.Objects.ListBoxRowAccessible, - module GI.Gtk.Objects.ListStore , - module GI.Gtk.Objects.LockButton , - module GI.Gtk.Objects.LockButtonAccessible, - module GI.Gtk.Objects.Menu , - module GI.Gtk.Objects.MenuAccessible , - module GI.Gtk.Objects.MenuBar , - module GI.Gtk.Objects.MenuButton , - module GI.Gtk.Objects.MenuButtonAccessible, - module GI.Gtk.Objects.MenuItem , - module GI.Gtk.Objects.MenuItemAccessible, - module GI.Gtk.Objects.MenuShell , - module GI.Gtk.Objects.MenuShellAccessible, - module GI.Gtk.Objects.MenuToolButton , - module GI.Gtk.Objects.MessageDialog , - module GI.Gtk.Objects.Misc , - module GI.Gtk.Objects.ModelButton , - module GI.Gtk.Objects.MountOperation , - module GI.Gtk.Objects.Notebook , - module GI.Gtk.Objects.NotebookAccessible, - module GI.Gtk.Objects.NotebookPageAccessible, - module GI.Gtk.Objects.NumerableIcon , - module GI.Gtk.Objects.OffscreenWindow , - module GI.Gtk.Objects.Overlay , - module GI.Gtk.Objects.PageSetup , - module GI.Gtk.Objects.Paned , - module GI.Gtk.Objects.PanedAccessible , - module GI.Gtk.Objects.PlacesSidebar , - module GI.Gtk.Objects.Plug , - module GI.Gtk.Objects.Popover , - module GI.Gtk.Objects.PopoverAccessible , - module GI.Gtk.Objects.PopoverMenu , - module GI.Gtk.Objects.PrintContext , - module GI.Gtk.Objects.PrintOperation , - module GI.Gtk.Objects.PrintSettings , - module GI.Gtk.Objects.ProgressBar , - module GI.Gtk.Objects.ProgressBarAccessible, - module GI.Gtk.Objects.RadioAction , - module GI.Gtk.Objects.RadioButton , - module GI.Gtk.Objects.RadioButtonAccessible, - module GI.Gtk.Objects.RadioMenuItem , - module GI.Gtk.Objects.RadioMenuItemAccessible, - module GI.Gtk.Objects.RadioToolButton , - module GI.Gtk.Objects.Range , - module GI.Gtk.Objects.RangeAccessible , - module GI.Gtk.Objects.RcStyle , - module GI.Gtk.Objects.RecentAction , - module GI.Gtk.Objects.RecentChooserDialog, - module GI.Gtk.Objects.RecentChooserMenu , - module GI.Gtk.Objects.RecentChooserWidget, - module GI.Gtk.Objects.RecentFilter , - module GI.Gtk.Objects.RecentManager , - module GI.Gtk.Objects.RendererCellAccessible, - module GI.Gtk.Objects.Revealer , - module GI.Gtk.Objects.Scale , - module GI.Gtk.Objects.ScaleAccessible , - module GI.Gtk.Objects.ScaleButton , - module GI.Gtk.Objects.ScaleButtonAccessible, - module GI.Gtk.Objects.Scrollbar , - module GI.Gtk.Objects.ScrolledWindow , - module GI.Gtk.Objects.ScrolledWindowAccessible, - module GI.Gtk.Objects.SearchBar , - module GI.Gtk.Objects.SearchEntry , - module GI.Gtk.Objects.Separator , - module GI.Gtk.Objects.SeparatorMenuItem , - module GI.Gtk.Objects.SeparatorToolItem , - module GI.Gtk.Objects.Settings , - module GI.Gtk.Objects.SizeGroup , - module GI.Gtk.Objects.Socket , - module GI.Gtk.Objects.SpinButton , - module GI.Gtk.Objects.SpinButtonAccessible, - module GI.Gtk.Objects.Spinner , - module GI.Gtk.Objects.SpinnerAccessible , - module GI.Gtk.Objects.Stack , - module GI.Gtk.Objects.StackSidebar , - module GI.Gtk.Objects.StackSwitcher , - module GI.Gtk.Objects.StatusIcon , - module GI.Gtk.Objects.Statusbar , - module GI.Gtk.Objects.StatusbarAccessible, - module GI.Gtk.Objects.Style , - module GI.Gtk.Objects.StyleContext , - module GI.Gtk.Objects.StyleProperties , - module GI.Gtk.Objects.Switch , - module GI.Gtk.Objects.SwitchAccessible , - module GI.Gtk.Objects.Table , - module GI.Gtk.Objects.TearoffMenuItem , - module GI.Gtk.Objects.TextBuffer , - module GI.Gtk.Objects.TextCellAccessible, - module GI.Gtk.Objects.TextChildAnchor , - module GI.Gtk.Objects.TextMark , - module GI.Gtk.Objects.TextTag , - module GI.Gtk.Objects.TextTagTable , - module GI.Gtk.Objects.TextView , - module GI.Gtk.Objects.TextViewAccessible, - module GI.Gtk.Objects.ThemingEngine , - module GI.Gtk.Objects.ToggleAction , - module GI.Gtk.Objects.ToggleButton , - module GI.Gtk.Objects.ToggleButtonAccessible, - module GI.Gtk.Objects.ToggleToolButton , - module GI.Gtk.Objects.ToolButton , - module GI.Gtk.Objects.ToolItem , - module GI.Gtk.Objects.ToolItemGroup , - module GI.Gtk.Objects.ToolPalette , - module GI.Gtk.Objects.Toolbar , - module GI.Gtk.Objects.Tooltip , - module GI.Gtk.Objects.ToplevelAccessible, - module GI.Gtk.Objects.TreeModelFilter , - module GI.Gtk.Objects.TreeModelSort , - module GI.Gtk.Objects.TreeSelection , - module GI.Gtk.Objects.TreeStore , - module GI.Gtk.Objects.TreeView , - module GI.Gtk.Objects.TreeViewAccessible, - module GI.Gtk.Objects.TreeViewColumn , - module GI.Gtk.Objects.UIManager , - module GI.Gtk.Objects.VBox , - module GI.Gtk.Objects.VButtonBox , - module GI.Gtk.Objects.VPaned , - module GI.Gtk.Objects.VScale , - module GI.Gtk.Objects.VScrollbar , - module GI.Gtk.Objects.VSeparator , - module GI.Gtk.Objects.Viewport , - module GI.Gtk.Objects.VolumeButton , - module GI.Gtk.Objects.Widget , - module GI.Gtk.Objects.WidgetAccessible , - module GI.Gtk.Objects.Window , - module GI.Gtk.Objects.WindowAccessible , - module GI.Gtk.Objects.WindowGroup , - module GI.Gtk.Structs.AccelGroupEntry , - module GI.Gtk.Structs.AccelKey , - module GI.Gtk.Structs.ActionEntry , - module GI.Gtk.Structs.BindingArg , - module GI.Gtk.Structs.BindingEntry , - module GI.Gtk.Structs.BindingSet , - module GI.Gtk.Structs.BindingSignal , - module GI.Gtk.Structs.Border , - module GI.Gtk.Structs.CssSection , - module GI.Gtk.Structs.FileFilterInfo , - module GI.Gtk.Structs.FixedChild , - module GI.Gtk.Structs.Gradient , - module GI.Gtk.Structs.IMContextInfo , - module GI.Gtk.Structs.IconSet , - module GI.Gtk.Structs.IconSource , - module GI.Gtk.Structs.LabelSelectionInfo, - module GI.Gtk.Structs.PageRange , - module GI.Gtk.Structs.PaperSize , - module GI.Gtk.Structs.RadioActionEntry , - module GI.Gtk.Structs.RcContext , - module GI.Gtk.Structs.RcProperty , - module GI.Gtk.Structs.RecentData , - module GI.Gtk.Structs.RecentFilterInfo , - module GI.Gtk.Structs.RecentInfo , - module GI.Gtk.Structs.RequestedSize , - module GI.Gtk.Structs.Requisition , - module GI.Gtk.Structs.SelectionData , - module GI.Gtk.Structs.SettingsValue , - module GI.Gtk.Structs.StockItem , - module GI.Gtk.Structs.SymbolicColor , - module GI.Gtk.Structs.TableChild , - module GI.Gtk.Structs.TableRowCol , - module GI.Gtk.Structs.TargetEntry , - module GI.Gtk.Structs.TargetList , - module GI.Gtk.Structs.TargetPair , - module GI.Gtk.Structs.TextAppearance , - module GI.Gtk.Structs.TextAttributes , - module GI.Gtk.Structs.TextBTree , - module GI.Gtk.Structs.TextIter , - module GI.Gtk.Structs.ThemeEngine , - module GI.Gtk.Structs.ToggleActionEntry , - module GI.Gtk.Structs.TreeIter , - module GI.Gtk.Structs.TreePath , - module GI.Gtk.Structs.TreeRowReference , - module GI.Gtk.Structs.WidgetPath , - module GI.Gtk.Structs.WindowGeometryInfo, - module GI.Gtk.Enums , - module GI.Gtk.Flags , - - - ) where - - -import {-# SOURCE #-} GI.Gtk.Interfaces.Actionable -import {-# SOURCE #-} GI.Gtk.Interfaces.Activatable -import {-# SOURCE #-} GI.Gtk.Interfaces.AppChooser -import {-# SOURCE #-} GI.Gtk.Interfaces.Buildable -import {-# SOURCE #-} GI.Gtk.Interfaces.CellAccessibleParent -import {-# SOURCE #-} GI.Gtk.Interfaces.CellEditable -import {-# SOURCE #-} GI.Gtk.Interfaces.CellLayout -import {-# SOURCE #-} GI.Gtk.Interfaces.ColorChooser -import {-# SOURCE #-} GI.Gtk.Interfaces.Editable -import {-# SOURCE #-} GI.Gtk.Interfaces.FileChooser -import {-# SOURCE #-} GI.Gtk.Interfaces.FontChooser -import {-# SOURCE #-} GI.Gtk.Interfaces.Orientable -import {-# SOURCE #-} GI.Gtk.Interfaces.PrintOperationPreview -import {-# SOURCE #-} GI.Gtk.Interfaces.RecentChooser -import {-# SOURCE #-} GI.Gtk.Interfaces.Scrollable -import {-# SOURCE #-} GI.Gtk.Interfaces.StyleProvider -import {-# SOURCE #-} GI.Gtk.Interfaces.ToolShell -import {-# SOURCE #-} GI.Gtk.Interfaces.TreeDragDest -import {-# SOURCE #-} GI.Gtk.Interfaces.TreeDragSource -import {-# SOURCE #-} GI.Gtk.Interfaces.TreeModel -import {-# SOURCE #-} GI.Gtk.Interfaces.TreeSortable -import {-# SOURCE #-} GI.Gtk.Objects.AboutDialog -import {-# SOURCE #-} GI.Gtk.Objects.AccelGroup -import {-# SOURCE #-} GI.Gtk.Objects.AccelLabel -import {-# SOURCE #-} GI.Gtk.Objects.AccelMap -import {-# SOURCE #-} GI.Gtk.Objects.Accessible -import {-# SOURCE #-} GI.Gtk.Objects.Action -import {-# SOURCE #-} GI.Gtk.Objects.ActionBar -import {-# SOURCE #-} GI.Gtk.Objects.ActionGroup -import {-# SOURCE #-} GI.Gtk.Objects.Adjustment -import {-# SOURCE #-} GI.Gtk.Objects.Alignment -import {-# SOURCE #-} GI.Gtk.Objects.AppChooserButton -import {-# SOURCE #-} GI.Gtk.Objects.AppChooserDialog -import {-# SOURCE #-} GI.Gtk.Objects.AppChooserWidget -import {-# SOURCE #-} GI.Gtk.Objects.Application -import {-# SOURCE #-} GI.Gtk.Objects.ApplicationWindow -import {-# SOURCE #-} GI.Gtk.Objects.Arrow -import {-# SOURCE #-} GI.Gtk.Objects.ArrowAccessible -import {-# SOURCE #-} GI.Gtk.Objects.AspectFrame -import {-# SOURCE #-} GI.Gtk.Objects.Assistant -import {-# SOURCE #-} GI.Gtk.Objects.Bin -import {-# SOURCE #-} GI.Gtk.Objects.BooleanCellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Box -import {-# SOURCE #-} GI.Gtk.Objects.Builder -import {-# SOURCE #-} GI.Gtk.Objects.Button -import {-# SOURCE #-} GI.Gtk.Objects.ButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ButtonBox -import {-# SOURCE #-} GI.Gtk.Objects.Calendar -import {-# SOURCE #-} GI.Gtk.Objects.CellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.CellArea -import {-# SOURCE #-} GI.Gtk.Objects.CellAreaBox -import {-# SOURCE #-} GI.Gtk.Objects.CellAreaContext -import {-# SOURCE #-} GI.Gtk.Objects.CellRenderer -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererAccel -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererCombo -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererPixbuf -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererProgress -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererSpin -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererSpinner -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererText -import {-# SOURCE #-} GI.Gtk.Objects.CellRendererToggle -import {-# SOURCE #-} GI.Gtk.Objects.CellView -import {-# SOURCE #-} GI.Gtk.Objects.CheckButton -import {-# SOURCE #-} GI.Gtk.Objects.CheckMenuItem -import {-# SOURCE #-} GI.Gtk.Objects.CheckMenuItemAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Clipboard -import {-# SOURCE #-} GI.Gtk.Objects.ColorButton -import {-# SOURCE #-} GI.Gtk.Objects.ColorChooserDialog -import {-# SOURCE #-} GI.Gtk.Objects.ColorChooserWidget -import {-# SOURCE #-} GI.Gtk.Objects.ColorSelection -import {-# SOURCE #-} GI.Gtk.Objects.ColorSelectionDialog -import {-# SOURCE #-} GI.Gtk.Objects.ComboBox -import {-# SOURCE #-} GI.Gtk.Objects.ComboBoxAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ComboBoxText -import {-# SOURCE #-} GI.Gtk.Objects.Container -import {-# SOURCE #-} GI.Gtk.Objects.ContainerAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ContainerCellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.CssProvider -import {-# SOURCE #-} GI.Gtk.Objects.Dialog -import {-# SOURCE #-} GI.Gtk.Objects.DrawingArea -import {-# SOURCE #-} GI.Gtk.Objects.Entry -import {-# SOURCE #-} GI.Gtk.Objects.EntryAccessible -import {-# SOURCE #-} GI.Gtk.Objects.EntryBuffer -import {-# SOURCE #-} GI.Gtk.Objects.EntryCompletion -import {-# SOURCE #-} GI.Gtk.Objects.EntryIconAccessible -import {-# SOURCE #-} GI.Gtk.Objects.EventBox -import {-# SOURCE #-} GI.Gtk.Objects.EventController -import {-# SOURCE #-} GI.Gtk.Objects.Expander -import {-# SOURCE #-} GI.Gtk.Objects.ExpanderAccessible -import {-# SOURCE #-} GI.Gtk.Objects.FileChooserButton -import {-# SOURCE #-} GI.Gtk.Objects.FileChooserDialog -import {-# SOURCE #-} GI.Gtk.Objects.FileChooserWidget -import {-# SOURCE #-} GI.Gtk.Objects.FileFilter -import {-# SOURCE #-} GI.Gtk.Objects.Fixed -import {-# SOURCE #-} GI.Gtk.Objects.FlowBox -import {-# SOURCE #-} GI.Gtk.Objects.FlowBoxAccessible -import {-# SOURCE #-} GI.Gtk.Objects.FlowBoxChild -import {-# SOURCE #-} GI.Gtk.Objects.FlowBoxChildAccessible -import {-# SOURCE #-} GI.Gtk.Objects.FontButton -import {-# SOURCE #-} GI.Gtk.Objects.FontChooserDialog -import {-# SOURCE #-} GI.Gtk.Objects.FontChooserWidget -import {-# SOURCE #-} GI.Gtk.Objects.FontSelection -import {-# SOURCE #-} GI.Gtk.Objects.FontSelectionDialog -import {-# SOURCE #-} GI.Gtk.Objects.Frame -import {-# SOURCE #-} GI.Gtk.Objects.FrameAccessible -import {-# SOURCE #-} GI.Gtk.Objects.GLArea -import {-# SOURCE #-} GI.Gtk.Objects.Gesture -import {-# SOURCE #-} GI.Gtk.Objects.GestureDrag -import {-# SOURCE #-} GI.Gtk.Objects.GestureLongPress -import {-# SOURCE #-} GI.Gtk.Objects.GestureMultiPress -import {-# SOURCE #-} GI.Gtk.Objects.GesturePan -import {-# SOURCE #-} GI.Gtk.Objects.GestureRotate -import {-# SOURCE #-} GI.Gtk.Objects.GestureSingle -import {-# SOURCE #-} GI.Gtk.Objects.GestureSwipe -import {-# SOURCE #-} GI.Gtk.Objects.GestureZoom -import {-# SOURCE #-} GI.Gtk.Objects.Grid -import {-# SOURCE #-} GI.Gtk.Objects.HBox -import {-# SOURCE #-} GI.Gtk.Objects.HButtonBox -import {-# SOURCE #-} GI.Gtk.Objects.HPaned -import {-# SOURCE #-} GI.Gtk.Objects.HSV -import {-# SOURCE #-} GI.Gtk.Objects.HScale -import {-# SOURCE #-} GI.Gtk.Objects.HScrollbar -import {-# SOURCE #-} GI.Gtk.Objects.HSeparator -import {-# SOURCE #-} GI.Gtk.Objects.HandleBox -import {-# SOURCE #-} GI.Gtk.Objects.HeaderBar -import {-# SOURCE #-} GI.Gtk.Objects.IMContext -import {-# SOURCE #-} GI.Gtk.Objects.IMContextSimple -import {-# SOURCE #-} GI.Gtk.Objects.IMMulticontext -import {-# SOURCE #-} GI.Gtk.Objects.IconFactory -import {-# SOURCE #-} GI.Gtk.Objects.IconInfo -import {-# SOURCE #-} GI.Gtk.Objects.IconTheme -import {-# SOURCE #-} GI.Gtk.Objects.IconView -import {-# SOURCE #-} GI.Gtk.Objects.IconViewAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Image -import {-# SOURCE #-} GI.Gtk.Objects.ImageAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ImageCellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ImageMenuItem -import {-# SOURCE #-} GI.Gtk.Objects.InfoBar -import {-# SOURCE #-} GI.Gtk.Objects.Invisible -import {-# SOURCE #-} GI.Gtk.Objects.Label -import {-# SOURCE #-} GI.Gtk.Objects.LabelAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Layout -import {-# SOURCE #-} GI.Gtk.Objects.LevelBar -import {-# SOURCE #-} GI.Gtk.Objects.LevelBarAccessible -import {-# SOURCE #-} GI.Gtk.Objects.LinkButton -import {-# SOURCE #-} GI.Gtk.Objects.LinkButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ListBox -import {-# SOURCE #-} GI.Gtk.Objects.ListBoxAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ListBoxRow -import {-# SOURCE #-} GI.Gtk.Objects.ListBoxRowAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ListStore -import {-# SOURCE #-} GI.Gtk.Objects.LockButton -import {-# SOURCE #-} GI.Gtk.Objects.LockButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Menu -import {-# SOURCE #-} GI.Gtk.Objects.MenuAccessible -import {-# SOURCE #-} GI.Gtk.Objects.MenuBar -import {-# SOURCE #-} GI.Gtk.Objects.MenuButton -import {-# SOURCE #-} GI.Gtk.Objects.MenuButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.MenuItem -import {-# SOURCE #-} GI.Gtk.Objects.MenuItemAccessible -import {-# SOURCE #-} GI.Gtk.Objects.MenuShell -import {-# SOURCE #-} GI.Gtk.Objects.MenuShellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.MenuToolButton -import {-# SOURCE #-} GI.Gtk.Objects.MessageDialog -import {-# SOURCE #-} GI.Gtk.Objects.Misc -import {-# SOURCE #-} GI.Gtk.Objects.ModelButton -import {-# SOURCE #-} GI.Gtk.Objects.MountOperation -import {-# SOURCE #-} GI.Gtk.Objects.Notebook -import {-# SOURCE #-} GI.Gtk.Objects.NotebookAccessible -import {-# SOURCE #-} GI.Gtk.Objects.NotebookPageAccessible -import {-# SOURCE #-} GI.Gtk.Objects.NumerableIcon -import {-# SOURCE #-} GI.Gtk.Objects.OffscreenWindow -import {-# SOURCE #-} GI.Gtk.Objects.Overlay -import {-# SOURCE #-} GI.Gtk.Objects.PageSetup -import {-# SOURCE #-} GI.Gtk.Objects.Paned -import {-# SOURCE #-} GI.Gtk.Objects.PanedAccessible -import {-# SOURCE #-} GI.Gtk.Objects.PlacesSidebar -import {-# SOURCE #-} GI.Gtk.Objects.Plug -import {-# SOURCE #-} GI.Gtk.Objects.Popover -import {-# SOURCE #-} GI.Gtk.Objects.PopoverAccessible -import {-# SOURCE #-} GI.Gtk.Objects.PopoverMenu -import {-# SOURCE #-} GI.Gtk.Objects.PrintContext -import {-# SOURCE #-} GI.Gtk.Objects.PrintOperation -import {-# SOURCE #-} GI.Gtk.Objects.PrintSettings -import {-# SOURCE #-} GI.Gtk.Objects.ProgressBar -import {-# SOURCE #-} GI.Gtk.Objects.ProgressBarAccessible -import {-# SOURCE #-} GI.Gtk.Objects.RadioAction -import {-# SOURCE #-} GI.Gtk.Objects.RadioButton -import {-# SOURCE #-} GI.Gtk.Objects.RadioButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.RadioMenuItem -import {-# SOURCE #-} GI.Gtk.Objects.RadioMenuItemAccessible -import {-# SOURCE #-} GI.Gtk.Objects.RadioToolButton -import {-# SOURCE #-} GI.Gtk.Objects.Range -import {-# SOURCE #-} GI.Gtk.Objects.RangeAccessible -import {-# SOURCE #-} GI.Gtk.Objects.RcStyle -import {-# SOURCE #-} GI.Gtk.Objects.RecentAction -import {-# SOURCE #-} GI.Gtk.Objects.RecentChooserDialog -import {-# SOURCE #-} GI.Gtk.Objects.RecentChooserMenu -import {-# SOURCE #-} GI.Gtk.Objects.RecentChooserWidget -import {-# SOURCE #-} GI.Gtk.Objects.RecentFilter -import {-# SOURCE #-} GI.Gtk.Objects.RecentManager -import {-# SOURCE #-} GI.Gtk.Objects.RendererCellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Revealer -import {-# SOURCE #-} GI.Gtk.Objects.Scale -import {-# SOURCE #-} GI.Gtk.Objects.ScaleAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ScaleButton -import {-# SOURCE #-} GI.Gtk.Objects.ScaleButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Scrollbar -import {-# SOURCE #-} GI.Gtk.Objects.ScrolledWindow -import {-# SOURCE #-} GI.Gtk.Objects.ScrolledWindowAccessible -import {-# SOURCE #-} GI.Gtk.Objects.SearchBar -import {-# SOURCE #-} GI.Gtk.Objects.SearchEntry -import {-# SOURCE #-} GI.Gtk.Objects.Separator -import {-# SOURCE #-} GI.Gtk.Objects.SeparatorMenuItem -import {-# SOURCE #-} GI.Gtk.Objects.SeparatorToolItem -import {-# SOURCE #-} GI.Gtk.Objects.Settings -import {-# SOURCE #-} GI.Gtk.Objects.SizeGroup -import {-# SOURCE #-} GI.Gtk.Objects.Socket -import {-# SOURCE #-} GI.Gtk.Objects.SpinButton -import {-# SOURCE #-} GI.Gtk.Objects.SpinButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Spinner -import {-# SOURCE #-} GI.Gtk.Objects.SpinnerAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Stack -import {-# SOURCE #-} GI.Gtk.Objects.StackSidebar -import {-# SOURCE #-} GI.Gtk.Objects.StackSwitcher -import {-# SOURCE #-} GI.Gtk.Objects.StatusIcon -import {-# SOURCE #-} GI.Gtk.Objects.Statusbar -import {-# SOURCE #-} GI.Gtk.Objects.StatusbarAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Style -import {-# SOURCE #-} GI.Gtk.Objects.StyleContext -import {-# SOURCE #-} GI.Gtk.Objects.StyleProperties -import {-# SOURCE #-} GI.Gtk.Objects.Switch -import {-# SOURCE #-} GI.Gtk.Objects.SwitchAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Table -import {-# SOURCE #-} GI.Gtk.Objects.TearoffMenuItem -import {-# SOURCE #-} GI.Gtk.Objects.TextBuffer -import {-# SOURCE #-} GI.Gtk.Objects.TextCellAccessible -import {-# SOURCE #-} GI.Gtk.Objects.TextChildAnchor -import {-# SOURCE #-} GI.Gtk.Objects.TextMark -import {-# SOURCE #-} GI.Gtk.Objects.TextTag -import {-# SOURCE #-} GI.Gtk.Objects.TextTagTable -import {-# SOURCE #-} GI.Gtk.Objects.TextView -import {-# SOURCE #-} GI.Gtk.Objects.TextViewAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ThemingEngine -import {-# SOURCE #-} GI.Gtk.Objects.ToggleAction -import {-# SOURCE #-} GI.Gtk.Objects.ToggleButton -import {-# SOURCE #-} GI.Gtk.Objects.ToggleButtonAccessible -import {-# SOURCE #-} GI.Gtk.Objects.ToggleToolButton -import {-# SOURCE #-} GI.Gtk.Objects.ToolButton -import {-# SOURCE #-} GI.Gtk.Objects.ToolItem -import {-# SOURCE #-} GI.Gtk.Objects.ToolItemGroup -import {-# SOURCE #-} GI.Gtk.Objects.ToolPalette -import {-# SOURCE #-} GI.Gtk.Objects.Toolbar -import {-# SOURCE #-} GI.Gtk.Objects.Tooltip -import {-# SOURCE #-} GI.Gtk.Objects.ToplevelAccessible -import {-# SOURCE #-} GI.Gtk.Objects.TreeModelFilter -import {-# SOURCE #-} GI.Gtk.Objects.TreeModelSort -import {-# SOURCE #-} GI.Gtk.Objects.TreeSelection -import {-# SOURCE #-} GI.Gtk.Objects.TreeStore -import {-# SOURCE #-} GI.Gtk.Objects.TreeView -import {-# SOURCE #-} GI.Gtk.Objects.TreeViewAccessible -import {-# SOURCE #-} GI.Gtk.Objects.TreeViewColumn -import {-# SOURCE #-} GI.Gtk.Objects.UIManager -import {-# SOURCE #-} GI.Gtk.Objects.VBox -import {-# SOURCE #-} GI.Gtk.Objects.VButtonBox -import {-# SOURCE #-} GI.Gtk.Objects.VPaned -import {-# SOURCE #-} GI.Gtk.Objects.VScale -import {-# SOURCE #-} GI.Gtk.Objects.VScrollbar -import {-# SOURCE #-} GI.Gtk.Objects.VSeparator -import {-# SOURCE #-} GI.Gtk.Objects.Viewport -import {-# SOURCE #-} GI.Gtk.Objects.VolumeButton -import {-# SOURCE #-} GI.Gtk.Objects.Widget -import {-# SOURCE #-} GI.Gtk.Objects.WidgetAccessible -import {-# SOURCE #-} GI.Gtk.Objects.Window -import {-# SOURCE #-} GI.Gtk.Objects.WindowAccessible -import {-# SOURCE #-} GI.Gtk.Objects.WindowGroup -import {-# SOURCE #-} GI.Gtk.Structs.AccelGroupEntry -import {-# SOURCE #-} GI.Gtk.Structs.AccelKey -import {-# SOURCE #-} GI.Gtk.Structs.ActionEntry -import {-# SOURCE #-} GI.Gtk.Structs.BindingArg -import {-# SOURCE #-} GI.Gtk.Structs.BindingEntry -import {-# SOURCE #-} GI.Gtk.Structs.BindingSet -import {-# SOURCE #-} GI.Gtk.Structs.BindingSignal -import {-# SOURCE #-} GI.Gtk.Structs.Border -import {-# SOURCE #-} GI.Gtk.Structs.CssSection -import {-# SOURCE #-} GI.Gtk.Structs.FileFilterInfo -import {-# SOURCE #-} GI.Gtk.Structs.FixedChild -import {-# SOURCE #-} GI.Gtk.Structs.Gradient -import {-# SOURCE #-} GI.Gtk.Structs.IMContextInfo -import {-# SOURCE #-} GI.Gtk.Structs.IconSet -import {-# SOURCE #-} GI.Gtk.Structs.IconSource -import {-# SOURCE #-} GI.Gtk.Structs.LabelSelectionInfo -import {-# SOURCE #-} GI.Gtk.Structs.PageRange -import {-# SOURCE #-} GI.Gtk.Structs.PaperSize -import {-# SOURCE #-} GI.Gtk.Structs.RadioActionEntry -import {-# SOURCE #-} GI.Gtk.Structs.RcContext -import {-# SOURCE #-} GI.Gtk.Structs.RcProperty -import {-# SOURCE #-} GI.Gtk.Structs.RecentData -import {-# SOURCE #-} GI.Gtk.Structs.RecentFilterInfo -import {-# SOURCE #-} GI.Gtk.Structs.RecentInfo -import {-# SOURCE #-} GI.Gtk.Structs.RequestedSize -import {-# SOURCE #-} GI.Gtk.Structs.Requisition -import {-# SOURCE #-} GI.Gtk.Structs.SelectionData -import {-# SOURCE #-} GI.Gtk.Structs.SettingsValue -import {-# SOURCE #-} GI.Gtk.Structs.StockItem -import {-# SOURCE #-} GI.Gtk.Structs.SymbolicColor -import {-# SOURCE #-} GI.Gtk.Structs.TableChild -import {-# SOURCE #-} GI.Gtk.Structs.TableRowCol -import {-# SOURCE #-} GI.Gtk.Structs.TargetEntry -import {-# SOURCE #-} GI.Gtk.Structs.TargetList -import {-# SOURCE #-} GI.Gtk.Structs.TargetPair -import {-# SOURCE #-} GI.Gtk.Structs.TextAppearance -import {-# SOURCE #-} GI.Gtk.Structs.TextAttributes -import {-# SOURCE #-} GI.Gtk.Structs.TextBTree -import {-# SOURCE #-} GI.Gtk.Structs.TextIter -import {-# SOURCE #-} GI.Gtk.Structs.ThemeEngine -import {-# SOURCE #-} GI.Gtk.Structs.ToggleActionEntry -import {-# SOURCE #-} GI.Gtk.Structs.TreeIter -import {-# SOURCE #-} GI.Gtk.Structs.TreePath -import {-# SOURCE #-} GI.Gtk.Structs.TreeRowReference -import {-# SOURCE #-} GI.Gtk.Structs.WidgetPath -import {-# SOURCE #-} GI.Gtk.Structs.WindowGeometryInfo - -import GI.Gtk.Enums -import GI.Gtk.Flags - diff --git a/Gtk.overrides b/Gtk.overrides new file mode 100644 --- /dev/null +++ b/Gtk.overrides @@ -0,0 +1,18 @@ +namespace Gtk + +# We do not generate wrappers for GtkTreeModelModifyFunc, since it has +# fairly weird semantics. +ignore TreeModelFilter.set_modify_func + +# Signal with an (out) (caller-allocates) parameter, which we do not support. +ignore Overlay.get-child-position + +# gtk_widget_path_iter_add_qclass isn't exported despite being present in Gtk-3.0.typelib +# upstream issue: https://bugzilla.gnome.org/show_bug.cgi?id=761339 +ignore WidgetPath.iter_add_qclass + +if osx + # Not supported in Quartz version of Gtk + ignore drag_set_icon_gicon + ignore drag_get_icon_gicon +endif 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 = "Gtk" + version = "3.0" + verbose = False + overridesFile = Just "Gtk.overrides" + outputDir = Nothing diff --git a/gi-gtk.cabal b/gi-gtk.cabal --- a/gi-gtk.cabal +++ b/gi-gtk.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-gtk -version: 0.3.18.15 +version: 3.0.1 synopsis: Gtk bindings description: Bindings for Gtk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,358 +8,34 @@ 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: Gtk.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.Gtk.Types - GI.Gtk - GI.Gtk.Callbacks - GI.Gtk.Constants - GI.Gtk.Enums - GI.Gtk.Flags - GI.Gtk.Functions - GI.Gtk.Interfaces - GI.Gtk.Interfaces.Actionable - GI.Gtk.Interfaces.Activatable - GI.Gtk.Interfaces.AppChooser - GI.Gtk.Interfaces.Buildable - GI.Gtk.Interfaces.CellAccessibleParent - GI.Gtk.Interfaces.CellEditable - GI.Gtk.Interfaces.CellLayout - GI.Gtk.Interfaces.ColorChooser - GI.Gtk.Interfaces.Editable - GI.Gtk.Interfaces.FileChooser - GI.Gtk.Interfaces.FontChooser - GI.Gtk.Interfaces.Orientable - GI.Gtk.Interfaces.PrintOperationPreview - GI.Gtk.Interfaces.RecentChooser - GI.Gtk.Interfaces.Scrollable - GI.Gtk.Interfaces.StyleProvider - GI.Gtk.Interfaces.ToolShell - GI.Gtk.Interfaces.TreeDragDest - GI.Gtk.Interfaces.TreeDragSource - GI.Gtk.Interfaces.TreeModel - GI.Gtk.Interfaces.TreeSortable - GI.Gtk.Objects - GI.Gtk.Objects.AboutDialog - GI.Gtk.Objects.AccelGroup - GI.Gtk.Objects.AccelLabel - GI.Gtk.Objects.AccelMap - GI.Gtk.Objects.Accessible - GI.Gtk.Objects.Action - GI.Gtk.Objects.ActionBar - GI.Gtk.Objects.ActionGroup - GI.Gtk.Objects.Adjustment - GI.Gtk.Objects.Alignment - GI.Gtk.Objects.AppChooserButton - GI.Gtk.Objects.AppChooserDialog - GI.Gtk.Objects.AppChooserWidget - GI.Gtk.Objects.Application - GI.Gtk.Objects.ApplicationWindow - GI.Gtk.Objects.Arrow - GI.Gtk.Objects.ArrowAccessible - GI.Gtk.Objects.AspectFrame - GI.Gtk.Objects.Assistant - GI.Gtk.Objects.Bin - GI.Gtk.Objects.BooleanCellAccessible - GI.Gtk.Objects.Box - GI.Gtk.Objects.Builder - GI.Gtk.Objects.Button - GI.Gtk.Objects.ButtonAccessible - GI.Gtk.Objects.ButtonBox - GI.Gtk.Objects.Calendar - GI.Gtk.Objects.CellAccessible - GI.Gtk.Objects.CellArea - GI.Gtk.Objects.CellAreaBox - GI.Gtk.Objects.CellAreaContext - GI.Gtk.Objects.CellRenderer - GI.Gtk.Objects.CellRendererAccel - GI.Gtk.Objects.CellRendererCombo - GI.Gtk.Objects.CellRendererPixbuf - GI.Gtk.Objects.CellRendererProgress - GI.Gtk.Objects.CellRendererSpin - GI.Gtk.Objects.CellRendererSpinner - GI.Gtk.Objects.CellRendererText - GI.Gtk.Objects.CellRendererToggle - GI.Gtk.Objects.CellView - GI.Gtk.Objects.CheckButton - GI.Gtk.Objects.CheckMenuItem - GI.Gtk.Objects.CheckMenuItemAccessible - GI.Gtk.Objects.Clipboard - GI.Gtk.Objects.ColorButton - GI.Gtk.Objects.ColorChooserDialog - GI.Gtk.Objects.ColorChooserWidget - GI.Gtk.Objects.ColorSelection - GI.Gtk.Objects.ColorSelectionDialog - GI.Gtk.Objects.ComboBox - GI.Gtk.Objects.ComboBoxAccessible - GI.Gtk.Objects.ComboBoxText - GI.Gtk.Objects.Container - GI.Gtk.Objects.ContainerAccessible - GI.Gtk.Objects.ContainerCellAccessible - GI.Gtk.Objects.CssProvider - GI.Gtk.Objects.Dialog - GI.Gtk.Objects.DrawingArea - GI.Gtk.Objects.Entry - GI.Gtk.Objects.EntryAccessible - GI.Gtk.Objects.EntryBuffer - GI.Gtk.Objects.EntryCompletion - GI.Gtk.Objects.EntryIconAccessible - GI.Gtk.Objects.EventBox - GI.Gtk.Objects.EventController - GI.Gtk.Objects.Expander - GI.Gtk.Objects.ExpanderAccessible - GI.Gtk.Objects.FileChooserButton - GI.Gtk.Objects.FileChooserDialog - GI.Gtk.Objects.FileChooserWidget - GI.Gtk.Objects.FileFilter - GI.Gtk.Objects.Fixed - GI.Gtk.Objects.FlowBox - GI.Gtk.Objects.FlowBoxAccessible - GI.Gtk.Objects.FlowBoxChild - GI.Gtk.Objects.FlowBoxChildAccessible - GI.Gtk.Objects.FontButton - GI.Gtk.Objects.FontChooserDialog - GI.Gtk.Objects.FontChooserWidget - GI.Gtk.Objects.FontSelection - GI.Gtk.Objects.FontSelectionDialog - GI.Gtk.Objects.Frame - GI.Gtk.Objects.FrameAccessible - GI.Gtk.Objects.GLArea - GI.Gtk.Objects.Gesture - GI.Gtk.Objects.GestureDrag - GI.Gtk.Objects.GestureLongPress - GI.Gtk.Objects.GestureMultiPress - GI.Gtk.Objects.GesturePan - GI.Gtk.Objects.GestureRotate - GI.Gtk.Objects.GestureSingle - GI.Gtk.Objects.GestureSwipe - GI.Gtk.Objects.GestureZoom - GI.Gtk.Objects.Grid - GI.Gtk.Objects.HBox - GI.Gtk.Objects.HButtonBox - GI.Gtk.Objects.HPaned - GI.Gtk.Objects.HSV - GI.Gtk.Objects.HScale - GI.Gtk.Objects.HScrollbar - GI.Gtk.Objects.HSeparator - GI.Gtk.Objects.HandleBox - GI.Gtk.Objects.HeaderBar - GI.Gtk.Objects.IMContext - GI.Gtk.Objects.IMContextSimple - GI.Gtk.Objects.IMMulticontext - GI.Gtk.Objects.IconFactory - GI.Gtk.Objects.IconInfo - GI.Gtk.Objects.IconTheme - GI.Gtk.Objects.IconView - GI.Gtk.Objects.IconViewAccessible - GI.Gtk.Objects.Image - GI.Gtk.Objects.ImageAccessible - GI.Gtk.Objects.ImageCellAccessible - GI.Gtk.Objects.ImageMenuItem - GI.Gtk.Objects.InfoBar - GI.Gtk.Objects.Invisible - GI.Gtk.Objects.Label - GI.Gtk.Objects.LabelAccessible - GI.Gtk.Objects.Layout - GI.Gtk.Objects.LevelBar - GI.Gtk.Objects.LevelBarAccessible - GI.Gtk.Objects.LinkButton - GI.Gtk.Objects.LinkButtonAccessible - GI.Gtk.Objects.ListBox - GI.Gtk.Objects.ListBoxAccessible - GI.Gtk.Objects.ListBoxRow - GI.Gtk.Objects.ListBoxRowAccessible - GI.Gtk.Objects.ListStore - GI.Gtk.Objects.LockButton - GI.Gtk.Objects.LockButtonAccessible - GI.Gtk.Objects.Menu - GI.Gtk.Objects.MenuAccessible - GI.Gtk.Objects.MenuBar - GI.Gtk.Objects.MenuButton - GI.Gtk.Objects.MenuButtonAccessible - GI.Gtk.Objects.MenuItem - GI.Gtk.Objects.MenuItemAccessible - GI.Gtk.Objects.MenuShell - GI.Gtk.Objects.MenuShellAccessible - GI.Gtk.Objects.MenuToolButton - GI.Gtk.Objects.MessageDialog - GI.Gtk.Objects.Misc - GI.Gtk.Objects.ModelButton - GI.Gtk.Objects.MountOperation - GI.Gtk.Objects.Notebook - GI.Gtk.Objects.NotebookAccessible - GI.Gtk.Objects.NotebookPageAccessible - GI.Gtk.Objects.NumerableIcon - GI.Gtk.Objects.OffscreenWindow - GI.Gtk.Objects.Overlay - GI.Gtk.Objects.PageSetup - GI.Gtk.Objects.Paned - GI.Gtk.Objects.PanedAccessible - GI.Gtk.Objects.PlacesSidebar - GI.Gtk.Objects.Plug - GI.Gtk.Objects.Popover - GI.Gtk.Objects.PopoverAccessible - GI.Gtk.Objects.PopoverMenu - GI.Gtk.Objects.PrintContext - GI.Gtk.Objects.PrintOperation - GI.Gtk.Objects.PrintSettings - GI.Gtk.Objects.ProgressBar - GI.Gtk.Objects.ProgressBarAccessible - GI.Gtk.Objects.RadioAction - GI.Gtk.Objects.RadioButton - GI.Gtk.Objects.RadioButtonAccessible - GI.Gtk.Objects.RadioMenuItem - GI.Gtk.Objects.RadioMenuItemAccessible - GI.Gtk.Objects.RadioToolButton - GI.Gtk.Objects.Range - GI.Gtk.Objects.RangeAccessible - GI.Gtk.Objects.RcStyle - GI.Gtk.Objects.RecentAction - GI.Gtk.Objects.RecentChooserDialog - GI.Gtk.Objects.RecentChooserMenu - GI.Gtk.Objects.RecentChooserWidget - GI.Gtk.Objects.RecentFilter - GI.Gtk.Objects.RecentManager - GI.Gtk.Objects.RendererCellAccessible - GI.Gtk.Objects.Revealer - GI.Gtk.Objects.Scale - GI.Gtk.Objects.ScaleAccessible - GI.Gtk.Objects.ScaleButton - GI.Gtk.Objects.ScaleButtonAccessible - GI.Gtk.Objects.Scrollbar - GI.Gtk.Objects.ScrolledWindow - GI.Gtk.Objects.ScrolledWindowAccessible - GI.Gtk.Objects.SearchBar - GI.Gtk.Objects.SearchEntry - GI.Gtk.Objects.Separator - GI.Gtk.Objects.SeparatorMenuItem - GI.Gtk.Objects.SeparatorToolItem - GI.Gtk.Objects.Settings - GI.Gtk.Objects.SizeGroup - GI.Gtk.Objects.Socket - GI.Gtk.Objects.SpinButton - GI.Gtk.Objects.SpinButtonAccessible - GI.Gtk.Objects.Spinner - GI.Gtk.Objects.SpinnerAccessible - GI.Gtk.Objects.Stack - GI.Gtk.Objects.StackSidebar - GI.Gtk.Objects.StackSwitcher - GI.Gtk.Objects.StatusIcon - GI.Gtk.Objects.Statusbar - GI.Gtk.Objects.StatusbarAccessible - GI.Gtk.Objects.Style - GI.Gtk.Objects.StyleContext - GI.Gtk.Objects.StyleProperties - GI.Gtk.Objects.Switch - GI.Gtk.Objects.SwitchAccessible - GI.Gtk.Objects.Table - GI.Gtk.Objects.TearoffMenuItem - GI.Gtk.Objects.TextBuffer - GI.Gtk.Objects.TextCellAccessible - GI.Gtk.Objects.TextChildAnchor - GI.Gtk.Objects.TextMark - GI.Gtk.Objects.TextTag - GI.Gtk.Objects.TextTagTable - GI.Gtk.Objects.TextView - GI.Gtk.Objects.TextViewAccessible - GI.Gtk.Objects.ThemingEngine - GI.Gtk.Objects.ToggleAction - GI.Gtk.Objects.ToggleButton - GI.Gtk.Objects.ToggleButtonAccessible - GI.Gtk.Objects.ToggleToolButton - GI.Gtk.Objects.ToolButton - GI.Gtk.Objects.ToolItem - GI.Gtk.Objects.ToolItemGroup - GI.Gtk.Objects.ToolPalette - GI.Gtk.Objects.Toolbar - GI.Gtk.Objects.Tooltip - GI.Gtk.Objects.ToplevelAccessible - GI.Gtk.Objects.TreeModelFilter - GI.Gtk.Objects.TreeModelSort - GI.Gtk.Objects.TreeSelection - GI.Gtk.Objects.TreeStore - GI.Gtk.Objects.TreeView - GI.Gtk.Objects.TreeViewAccessible - GI.Gtk.Objects.TreeViewColumn - GI.Gtk.Objects.UIManager - GI.Gtk.Objects.VBox - GI.Gtk.Objects.VButtonBox - GI.Gtk.Objects.VPaned - GI.Gtk.Objects.VScale - GI.Gtk.Objects.VScrollbar - GI.Gtk.Objects.VSeparator - GI.Gtk.Objects.Viewport - GI.Gtk.Objects.VolumeButton - GI.Gtk.Objects.Widget - GI.Gtk.Objects.WidgetAccessible - GI.Gtk.Objects.Window - GI.Gtk.Objects.WindowAccessible - GI.Gtk.Objects.WindowGroup - GI.Gtk.Structs - GI.Gtk.Structs.AccelGroupEntry - GI.Gtk.Structs.AccelKey - GI.Gtk.Structs.ActionEntry - GI.Gtk.Structs.BindingArg - GI.Gtk.Structs.BindingEntry - GI.Gtk.Structs.BindingSet - GI.Gtk.Structs.BindingSignal - GI.Gtk.Structs.Border - GI.Gtk.Structs.CssSection - GI.Gtk.Structs.FileFilterInfo - GI.Gtk.Structs.FixedChild - GI.Gtk.Structs.Gradient - GI.Gtk.Structs.IMContextInfo - GI.Gtk.Structs.IconSet - GI.Gtk.Structs.IconSource - GI.Gtk.Structs.LabelSelectionInfo - GI.Gtk.Structs.PageRange - GI.Gtk.Structs.PaperSize - GI.Gtk.Structs.RadioActionEntry - GI.Gtk.Structs.RcContext - GI.Gtk.Structs.RcProperty - GI.Gtk.Structs.RecentData - GI.Gtk.Structs.RecentFilterInfo - GI.Gtk.Structs.RecentInfo - GI.Gtk.Structs.RequestedSize - GI.Gtk.Structs.Requisition - GI.Gtk.Structs.SelectionData - GI.Gtk.Structs.SettingsValue - GI.Gtk.Structs.StockItem - GI.Gtk.Structs.SymbolicColor - GI.Gtk.Structs.TableChild - GI.Gtk.Structs.TableRowCol - GI.Gtk.Structs.TargetEntry - GI.Gtk.Structs.TargetList - GI.Gtk.Structs.TargetPair - GI.Gtk.Structs.TextAppearance - GI.Gtk.Structs.TextAttributes - GI.Gtk.Structs.TextBTree - GI.Gtk.Structs.TextIter - GI.Gtk.Structs.ThemeEngine - GI.Gtk.Structs.ToggleActionEntry - GI.Gtk.Structs.TreeIter - GI.Gtk.Structs.TreePath - GI.Gtk.Structs.TreeRowReference - GI.Gtk.Structs.WidgetPath - GI.Gtk.Structs.WindowGeometryInfo - pkgconfig-depends: gtk+-3.0 >= 3.18 + + pkgconfig-depends: gtk+-3.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-atk >= 0.2.18.15 && < 0.2.19, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gdk >= 0.3.18.15 && < 0.3.19, - gi-gdkpixbuf >= 0.2.32.15 && < 0.2.33, - gi-gio >= 0.2.46.15 && < 0.2.47, - gi-pango >= 0.1.38.15 && < 0.1.39, - gi-cairo >= 0.1.14.15 && < 0.1.15, + gi-atk == 2.0.*, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gdk == 3.0.*, + gi-gdkpixbuf == 2.0.*, + gi-gio == 2.0.*, + gi-pango == 1.0.*, + gi-cairo == 1.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5